Changeset 3245 for palm/trunk/SOURCE/turbulence_closure_mod.f90

Timestamp:

Sep 13, 2018 2:08:16 PM (6 years ago)

Author:

knoop

Message:

Bugfix: wrong use of surf_lsm_h changed to surf_usm_h

File:

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

palm/trunk/SOURCE/turbulence_closure_mod.f90

@@ -3215 +3215 @@
                    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. cloud_physics .AND. .NOT. cloud_droplets ) THEN