Changeset 3385 for palm

Timestamp:

Oct 19, 2018 2:52:29 PM (6 years ago)

Author:

knoop

Message:

Bugfix: replaced a wrong usage of "surf_lsm_h" with the correct "surf_usm_h" in production_e

File:

• palm/trunk/SOURCE/turbulence_closure_mod.f90 (modified) (1 diff)

palm/trunk/SOURCE/turbulence_closure_mod.f90

@@ -3125 +3125 @@
                    surf_e = surf_usm_h%end_index(j,i)
                    DO  m = surf_s, surf_e
-                      k = surf_lsm_h%k(m)
+                      k = surf_usm_h%k(m)
 
                       IF ( .NOT. bulk_cloud_model .AND. .NOT. cloud_droplets ) THEN