Changeset 3039 for palm/trunk/SOURCE/lpm_calc_liquid_water_content.f90

Timestamp:

May 24, 2018 1:13:11 PM (6 years ago)

Author:

schwenkel

Message:

bugfix for lcm with grid stretching

File:

• palm/trunk/SOURCE/lpm_calc_liquid_water_content.f90 (modified) (3 diffs)

palm/trunk/SOURCE/lpm_calc_liquid_water_content.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix for lcm with grid stretching
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -67 +70 @@
 
     USE arrays_3d,                                                             &
-        ONLY:  ql, ql_v, ql_vp
+        ONLY:  dzw, ql, ql_v, ql_vp
 
     USE cloud_parameters,                                                      &
@@ -127 +130 @@
              IF ( ql_v(k,j,i) /= 0.0_wp )  THEN
                 ql(k,j,i) = ql(k,j,i) + rho_l * 1.33333333_wp * pi *           &
-                                        ql_v(k,j,i) /                       &
-                                        ( rho_surface * dx * dy * dz )
+                                        ql_v(k,j,i) /                          &
+                                        ( rho_surface * dx * dy * dzw(k) )
 
                 IF ( ql(k,j,i) < 0.0_wp )  THEN