Changeset 851 for palm/trunk/SOURCE/lpm_exchange_horiz.f90

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)

File:

• palm/trunk/SOURCE/lpm_exchange_horiz.f90 (modified) (2 diffs)

palm/trunk/SOURCE/lpm_exchange_horiz.f90

@@ -4 +4 @@
 ! Current revisions:
 ! ------------------
-! 
+! Bugfix: resetting of particle_mask and tail mask moved from end of this
+! routine to lpm
 !
 ! Former revisions:
@@ -915 +916 @@
 #endif
 
-!
-!-- Initialize variables for the next (sub-) timestep, i.e. for marking those
-!-- particles to be deleted after the timestep
-    particle_mask     = .TRUE.
-    deleted_particles = 0
-
-    IF ( use_particle_tails )  THEN
-       tail_mask     = .TRUE.
-    ENDIF
-    deleted_tails = 0
 
  END SUBROUTINE lpm_exchange_horiz