Changeset 3039 for palm/trunk/SOURCE/lpm_droplet_condensation.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_droplet_condensation.f90 (modified) (3 diffs)

palm/trunk/SOURCE/lpm_droplet_condensation.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix for lcm with grid stretching
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -124 +127 @@
 
     USE arrays_3d,                                                             &
-        ONLY:  hyp, pt, q, ql_c, ql_v
+        ONLY:  dzw, hyp, pt, q, ql_c, ql_v
 
     USE cloud_parameters,                                                      &
@@ -372 +375 @@
                                    rho_l * 1.33333333_wp * pi *                &
                                    ( new_r(n)**3 - particles(n)%radius**3 ) /  &
-                                   ( rho_surface * dx * dy * dz )
+                                   ( rho_surface * dx * dy * dzw(kp) )
 !
 !--    Check if the increase in liqid water is not too big. If this is the case,