Changeset 851


Ignore:
Timestamp:
Mar 15, 2012 2:32:58 PM (13 years ago)
Author:
raasch
Message:

Bugfix: resetting of particle_mask and tail mask moved from routine lpm_exchange_horiz to routine lpm (end of sub-timestep loop)

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r850 r851  
    44! Current revisions:
    55! ------------------
    6 !
     6! Bugfix: resetting of particle_mask and tail mask moved from routine
     7! lpm_exchange_horiz to here (end of sub-timestep loop)
    78!
    89! Former revisions:
     
    238239       ENDIF
    239240
     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
    240253       IF ( dt_3d_reached )  EXIT
    241254
  • palm/trunk/SOURCE/lpm_exchange_horiz.f90

    r850 r851  
    44! Current revisions:
    55! ------------------
    6 !
     6! Bugfix: resetting of particle_mask and tail mask moved from end of this
     7! routine to lpm
    78!
    89! Former revisions:
     
    915916#endif
    916917
    917 !
    918 !-- Initialize variables for the next (sub-) timestep, i.e. for marking those
    919 !-- particles to be deleted after the timestep
    920     particle_mask     = .TRUE.
    921     deleted_particles = 0
    922 
    923     IF ( use_particle_tails )  THEN
    924        tail_mask     = .TRUE.
    925     ENDIF
    926     deleted_tails = 0
    927918
    928919 END SUBROUTINE lpm_exchange_horiz
Note: See TracChangeset for help on using the changeset viewer.