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

Timestamp:

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

Author:

schwenkel

Message:

Modified particle box location and further changes in particle model

File:

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

palm/trunk/SOURCE/lpm_boundary_conds.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
+! 
+! 2318 2017-07-20 17:27:44Z suehring
 ! Get topography top index via Function call 
 ! 
@@ -254 +261 @@
 !
 !--       Obtain x/y indices for current particle position
-          i2 = ( particles(n)%x + 0.5_wp * dx ) * ddx
-          j2 = ( particles(n)%y + 0.5_wp * dy ) * ddy
+          i2 = particles(n)%x * ddx
+          j2 = particles(n)%y * ddy
 !
 !--       Save current particle positions
@@ -268 +275 @@
 !
 !--       Obtain x/y indices for old particle positions
-          i1 = ( pos_x_old + 0.5_wp * dx ) * ddx
-          j1 = ( pos_y_old + 0.5_wp * dy ) * ddy
+          i1 = pos_x_old * ddx
+          j1 = pos_y_old * ddy
 !
 !--       Determine horizontal as well as vertical walls at which particle can