Changeset 851
- Timestamp:
- Mar 15, 2012 2:32:58 PM (13 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/lpm.f90
r850 r851 4 4 ! Current revisions: 5 5 ! ------------------ 6 ! 6 ! Bugfix: resetting of particle_mask and tail mask moved from routine 7 ! lpm_exchange_horiz to here (end of sub-timestep loop) 7 8 ! 8 9 ! Former revisions: … … 238 239 ENDIF 239 240 241 ! 242 !-- Initialize variables for the next (sub-) timestep, i.e. for marking those 243 !-- particles to be deleted after the timestep 244 particle_mask = .TRUE. 245 deleted_particles = 0 246 247 IF ( use_particle_tails ) THEN 248 tail_mask = .TRUE. 249 ENDIF 250 deleted_tails = 0 251 252 240 253 IF ( dt_3d_reached ) EXIT 241 254 -
palm/trunk/SOURCE/lpm_exchange_horiz.f90
r850 r851 4 4 ! Current revisions: 5 5 ! ------------------ 6 ! 6 ! Bugfix: resetting of particle_mask and tail mask moved from end of this 7 ! routine to lpm 7 8 ! 8 9 ! Former revisions: … … 915 916 #endif 916 917 917 !918 !-- Initialize variables for the next (sub-) timestep, i.e. for marking those919 !-- particles to be deleted after the timestep920 particle_mask = .TRUE.921 deleted_particles = 0922 923 IF ( use_particle_tails ) THEN924 tail_mask = .TRUE.925 ENDIF926 deleted_tails = 0927 918 928 919 END SUBROUTINE lpm_exchange_horiz
Note: See TracChangeset
for help on using the changeset viewer.