Ignore:
Timestamp:
Apr 9, 2018 2:35:46 PM (6 years ago)
Author:
schwenkel
Message:

Bugfix for particle initialization in case of ocean

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/lpm_init.f90

    r2801 r2954  
    2525! -----------------
    2626! $Id$
     27! Bugfix for particle initialization in case of ocean
     28!
     29! 2801 2018-02-14 16:01:55Z thiele
    2730! Introduce particle transfer in nested models.
    2831!
     
    721724          DO WHILE ( pos_z <= pst(i) )
    722725
    723              IF ( pos_z >= 0.0_wp .AND.  pos_z < zw(nzt) )  THEN
     726             IF ( pos_z >= zw(0) .AND.  pos_z < zw(nzt) )  THEN
    724727
    725728
Note: See TracChangeset for help on using the changeset viewer.