Changeset 116 for palm/trunk/SOURCE/advec_particles.f90

Timestamp:

Oct 11, 2007 2:30:27 AM (17 years ago)

Author:

raasch

Message:

further preliminary updates concerning particle sorting and documentation

File:

• palm/trunk/SOURCE/advec_particles.f90 (modified) (3 diffs)

palm/trunk/SOURCE/advec_particles.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
+! Sorting of particles is controlled by dt_sort_particles and moved from
+! the SGS timestep loop after the end of this loop.
 ! Bugfix: pleft/pright changed to pnorth/psouth in sendrecv of particle tail
 ! numbers along y
@@ -3254 +3256 @@
 !    ENDDO
 
-!
-!--    Sort particles in the sequence the gridboxes are stored in the memory
-       CALL sort_particles
-
 !    WRITE ( 9, * ) '*** advec_particles: ##9'
 !    CALL local_flush( 9 )
@@ -3286 +3284 @@
 
     ENDDO   ! timestep loop
+
+
+!
+!-- Sort particles in the sequence the gridboxes are stored in the memory
+    time_sort_particles = time_sort_particles + dt_3d
+    IF ( time_sort_particles >= dt_sort_particles )  THEN
+       CALL sort_particles
+       time_sort_particles = MOD( time_sort_particles, &
+                                  MAX( dt_sort_particles, dt_3d ) )
+    ENDIF