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

Timestamp:

Aug 13, 2018 12:26:14 PM (6 years ago)

Author:

maronga

Message:

set maximum value for aerodynamic resistance over horiztonal surfaces

File:

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

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Added maximum aerodynamic resistance of 300.
+! 
+! 3161 2018-07-23 09:30:10Z maronga
 ! Increased roughness of asphalt surfaces to account for turbulence production
 ! by traffic and other obstacles
@@ -1915 +1918 @@
 !
 !--    Make sure that the resistance does not drop to zero for neutral 
-!--    stratification. 
-       IF ( surf%r_a(m) < 1.0_wp )  surf%r_a(m) = 1.0_wp
+!--    stratification. Also, set a maximum resistance to avoid the breakdown of
+!--    MOST for locations with zero wind speed
+       IF ( surf%r_a(m) <   1.0_wp )  surf%r_a(m) =   1.0_wp
+       IF ( surf%r_a(m) > 300.0_wp )  surf%r_a(m) = 300.0_wp       
 !
 !--    Second step: calculate canopy resistance r_canopy