Changeset 3142 for palm/trunk/SOURCE/land_surface_model_mod.f90

Timestamp:

Jul 17, 2018 3:27:45 PM (6 years ago)

Author:

suehring

Message:

Bugfix in referencing buildings on orography top; minor bugfix for last LSM commit

File:

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

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Minor bugfix for last commit.
+! 
+! 3138 2018-07-17 08:21:20Z maronga
 ! Bugfix: limit roughness lengths in case of sea surface with constant_roughness
 ! = .F.
@@ -6981 +6984 @@
              ENDIF
              
-             IF ( surf_lsm_h%z0(m) >= surf_lsm_h%z_mo(m) )  THEN
+             IF ( surf_lsm_h%z0q(m) >= surf_lsm_h%z_mo(m) )  THEN
   
                 surf_lsm_h%z0q(m) = 0.9_wp * surf_lsm_h%z_mo(m)