Changeset 2606 for palm/trunk/SOURCE/lpm.f90

Timestamp:

Nov 10, 2017 10:36:31 AM (6 years ago)

Author:

schwenkel

Message:

Modified particle box location and further changes in particle model

File:

• palm/trunk/SOURCE/lpm.f90 (modified) (4 diffs)

palm/trunk/SOURCE/lpm.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Changed particle box locations: center of particle box now coincides 
+! with scalar grid point of same index.
+! Renamed module and subroutines: lpm_pack_arrays_mod -> lpm_pack_and_sort_mod
+! lpm_pack_all_arrays -> lpm_sort_in_subboxes, lpm_pack_arrays -> lpm_pack
+! lpm_sort -> lpm_sort_timeloop_done
+! 
+! 2418 2017-09-06 15:24:24Z suehring
 ! Major bugfixes in modeling SGS particle speeds (since revision 1359).
 ! Particle sorting added to distinguish between already completed and 
@@ -144 +151 @@
         ONLY: lpm_create_particle, PHASE_RELEASE
 
-    USE lpm_pack_arrays_mod,                                                   &
-        ONLY:  lpm_pack_all_arrays, lpm_sort
+    USE lpm_pack_and_sort_mod,                                                   &
+        ONLY:  lpm_sort_in_subboxes, lpm_sort_timeloop_done
 
     USE particle_attributes,                                                   &
@@ -281 +288 @@
 !--    according to their sub-boxes. 
        IF ( .NOT. first_loop_stride  .AND.  use_sgs_for_particles )            &
-          CALL lpm_sort
+          CALL lpm_sort_timeloop_done
 
        DO  i = nxl, nxr
@@ -408 +415 @@
 !--    Pack particles (eliminate those marked for deletion),
 !--    determine new number of particles
-       CALL lpm_pack_all_arrays
+       CALL lpm_sort_in_subboxes
 !
 !--    Initialize variables for the next (sub-) timestep, i.e., for marking