Ignore:
Timestamp:
Nov 10, 2017 10:36:31 AM (4 years ago)
Author:
schwenkel
Message:

Modified particle box location and further changes in particle model

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/lpm_boundary_conds.f90

    r2318 r2606  
    2525! -----------------
    2626! $Id$
     27! Changed particle box locations: center of particle box now coincides
     28! with scalar grid point of same index.
     29! Renamed module and subroutines: lpm_pack_arrays_mod -> lpm_pack_and_sort_mod
     30! lpm_pack_all_arrays -> lpm_sort_in_subboxes, lpm_pack_arrays -> lpm_pack
     31! lpm_sort -> lpm_sort_timeloop_done
     32!
     33! 2318 2017-07-20 17:27:44Z suehring
    2734! Get topography top index via Function call
    2835!
     
    254261!
    255262!--       Obtain x/y indices for current particle position
    256           i2 = ( particles(n)%x + 0.5_wp * dx ) * ddx
    257           j2 = ( particles(n)%y + 0.5_wp * dy ) * ddy
     263          i2 = particles(n)%x * ddx
     264          j2 = particles(n)%y * ddy
    258265!
    259266!--       Save current particle positions
     
    268275!
    269276!--       Obtain x/y indices for old particle positions
    270           i1 = ( pos_x_old + 0.5_wp * dx ) * ddx
    271           j1 = ( pos_y_old + 0.5_wp * dy ) * ddy
     277          i1 = pos_x_old * ddx
     278          j1 = pos_y_old * ddy
    272279!
    273280!--       Determine horizontal as well as vertical walls at which particle can
Note: See TracChangeset for help on using the changeset viewer.