Changeset 2954 for palm

Timestamp:

Apr 9, 2018 2:35:46 PM (7 years ago)

Author:

schwenkel

Message:

Bugfix for particle initialization in case of ocean

File:

• palm/trunk/SOURCE/lpm_init.f90 (modified) (2 diffs)

palm/trunk/SOURCE/lpm_init.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix for particle initialization in case of ocean
+! 
+! 2801 2018-02-14 16:01:55Z thiele
 ! Introduce particle transfer in nested models.
 ! 
@@ -721 +724 @@
           DO WHILE ( pos_z <= pst(i) )
 
-             IF ( pos_z >= 0.0_wp  .AND.  pos_z < zw(nzt) )  THEN
+             IF ( pos_z >= zw(0) .AND.  pos_z < zw(nzt) )  THEN