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

palm/trunk/SOURCE/lpm_init.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix for lcm with grid stretching
+! 
+! 2967 2018-04-13 11:22:08Z raasch
 ! nesting routine is only called if nesting is switched on
 ! 
@@ -209 +212 @@
 
     USE arrays_3d,                                                             &
-        ONLY:  de_dx, de_dy, de_dz, zu, zw
+        ONLY:  de_dx, de_dy, de_dz, dzw, zu, zw
 
     USE control_parameters,                                                    &
@@ -1161 +1164 @@
                      na(3) / ( SQRT( 2.0 * pi ) * log_sigma(3) ) *                     &
                      EXP( - LOG10( r_mid / rm(3) )**2 / ( 2.0 * log_sigma(3)**2 ) )    &
-                   ) * ( LOG10(r_r) - LOG10(r_l) ) * ( dx * dy * dz )
+                   ) * ( LOG10(r_r) - LOG10(r_l) ) * ( dx * dy * dzw(kp) )
 
 !