Changeset 851 for palm

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:

• lpm.f90 (modified) (2 diffs)
• lpm_exchange_horiz.f90 (modified) (2 diffs)

palm/trunk/SOURCE/lpm.f90

@@ -4 +4 @@
 ! Current revisions:
 ! ------------------
-! 
+! Bugfix: resetting of particle_mask and tail mask moved from routine
+! lpm_exchange_horiz to here (end of sub-timestep loop)
 !
 ! Former revisions:
@@ -238 +239 @@
        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
+
+
        IF ( dt_3d_reached )  EXIT
 

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