Ignore:
Timestamp:
Jun 27, 2019 7:42:18 AM (5 years ago)
Author:
raasch
Message:

bugfix for calculating the minimum particle time step

File:
1 edited

Legend:

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

    r4044 r4054  
    2525! -----------------
    2626! $Id$
     27! bugfix for calculating the minimum particle time step
     28!
     29! 4044 2019-06-19 12:28:27Z schwenkel
    2730! Bugfix in case of grid strecting: corrected calculation of k-Index
    2831!
     
    37383741!--          The particle timestep should not be too small in order to prevent
    37393742!--          the number of particle timesteps of getting too large
    3740              IF ( dt_particle(n) < dt_min_part  .AND.  dt_min_part < dt_gap(n) )  THEN
    3741                 dt_particle(n) = dt_min_part
     3743             IF ( dt_particle(n) < dt_min_part )  THEN
     3744                IF ( dt_min_part < dt_gap(n) )  THEN
     3745                   dt_particle(n) = dt_min_part
     3746                ELSE
     3747                   dt_particle(n) = dt_gap(n)
     3748                ENDIF
    37423749             ENDIF
    37433750             rvar1_temp(n) = particles(n)%rvar1
Note: See TracChangeset for help on using the changeset viewer.