Changeset 3176 for palm/trunk/SOURCE/surface_mod.f90

Timestamp:

Jul 26, 2018 5:12:48 PM (6 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:

• palm/trunk/SOURCE/surface_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/surface_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Bugfix in restarts for surface elements.
+! 
+! 3152 2018-07-19 13:26:52Z suehring
 ! q_surface added
 ! 
@@ -2690 +2693 @@
                          surf_h(l)%pt_surface(mm(l)) = surf_lsm_h%pt_surface(m)
                       IF ( ALLOCATED( surf_def_h(l)%q_surface ) )              &
-                         surf_h(l)%q_surface(mm(l)) = surf_def_h(l)%q_surface(m)
+                         surf_h(l)%q_surface(mm(l)) = surf_lsm_h%q_surface(m)
                       IF ( ALLOCATED( surf_def_h(l)%vpt_surface ) )            &
-                         surf_h(l)%vpt_surface(mm(l)) = surf_def_h(l)%vpt_surface(m)
+                         surf_h(l)%vpt_surface(mm(l)) = surf_lsm_h%vpt_surface(m)
                       IF ( ALLOCATED( surf_lsm_h%usws ) )                      &
                          surf_h(0)%usws(mm(0))    = surf_lsm_h%usws(m)