Changeset 4667 for palm/trunk/SOURCE/urban_surface_mod.f90

Timestamp:

Sep 9, 2020 12:52:40 PM (4 years ago)

Author:

pavelkrc

Message:

Limit vertical r_a in USM similarly to horizontal; improve debug messages

File:

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

palm/trunk/SOURCE/urban_surface_mod.f90

@@ -22 +22 @@
 ! Current revisions:
 ! -----------------
-!
+! Limit vertical r_a similarly to horizontal
 !
 ! Former revisions:
@@ -8070 +8070 @@
 !--        Limit aerodynamic resistance
            IF ( surf_usm_v(l)%r_a(m) < 1.0_wp )  surf_usm_v(l)%r_a(m) = 1.0_wp
+           IF ( surf_usm_v(l)%r_a(m) > 300.0_wp )  surf_usm_v(l)%r_a(m) = 300.0_wp
 
            f_shf         = rho_cp / surf_usm_v(l)%r_a(m)