Ignore:
Timestamp:
Jul 26, 2018 5:12:48 PM (3 years ago)
Author:
suehring
Message:

Major bugfix in calculation of ol and ts at building roofs; bugfix in restart data for surface elements; in 2D data output, mask latent heat flux at urban-type surfaces

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/surface_mod.f90

    r3152 r3176  
    2626! -----------------
    2727! $Id$
     28! Bugfix in restarts for surface elements.
     29!
     30! 3152 2018-07-19 13:26:52Z suehring
    2831! q_surface added
    2932!
     
    26902693                         surf_h(l)%pt_surface(mm(l)) = surf_lsm_h%pt_surface(m)
    26912694                      IF ( ALLOCATED( surf_def_h(l)%q_surface ) )              &
    2692                          surf_h(l)%q_surface(mm(l)) = surf_def_h(l)%q_surface(m)
     2695                         surf_h(l)%q_surface(mm(l)) = surf_lsm_h%q_surface(m)
    26932696                      IF ( ALLOCATED( surf_def_h(l)%vpt_surface ) )            &
    2694                          surf_h(l)%vpt_surface(mm(l)) = surf_def_h(l)%vpt_surface(m)
     2697                         surf_h(l)%vpt_surface(mm(l)) = surf_lsm_h%vpt_surface(m)
    26952698                      IF ( ALLOCATED( surf_lsm_h%usws ) )                      &
    26962699                         surf_h(0)%usws(mm(0))    = surf_lsm_h%usws(m)
Note: See TracChangeset for help on using the changeset viewer.