Ignore:
Timestamp:
Aug 6, 2018 1:18:55 PM (7 years ago)
Author:
Giersch
Message:

Interpolation to particle position revised, indent revised, bugfix in calculation of the x/y indices for current particle position

File:
1 edited

Legend:

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

    r3067 r3189  
    2525! -----------------
    2626! $Id$
     27! Bugfix in calculation of the x/y indices for current particle postion
     28!
     29! 3067 2018-06-12 14:04:34Z suehring
    2730! Remove write statements
    2831!
     
    287290          j2 = particles(n)%y * ddy
    288291          IF (zw(k)   < particles(n)%z ) k2 = k + 1
     292          IF (zw(k)   > particles(n)%z .AND. zw(k-1) < particles(n)%z ) k2 = k
    289293          IF (zw(k-1) > particles(n)%z ) k2 = k - 1
    290294!
Note: See TracChangeset for help on using the changeset viewer.