Changeset 4054 for palm/trunk/SOURCE/lagrangian_particle_model_mod.f90
 Timestamp:
 Jun 27, 2019 7:42:18 AM (5 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/lagrangian_particle_model_mod.f90
r4044 r4054 25 25 !  26 26 ! $Id$ 27 ! bugfix for calculating the minimum particle time step 28 ! 29 ! 4044 20190619 12:28:27Z schwenkel 27 30 ! Bugfix in case of grid strecting: corrected calculation of kIndex 28 31 ! … … 3738 3741 ! The particle timestep should not be too small in order to prevent 3739 3742 ! 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 3742 3749 ENDIF 3743 3750 rvar1_temp(n) = particles(n)%rvar1
Note: See TracChangeset
for help on using the changeset viewer.