Ignore:
Timestamp:
Apr 20, 2016 9:36:50 AM (5 years ago)
Author:
hoffmann
Message:

Bugfix in lpm_collision_kernels

File:
1 edited

Legend:

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

    r1874 r1880  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Bugfix: The index of the larger particle has to be chosen for interpolation.
    2222!
    2323! Former revisions:
     
    2727! 1873 2016-04-18 14:50:06Z maronga
    2828! Module renamed (removed _mod)
    29 !
    3029!
    3130! 1858 2016-04-13 13:12:11Z hoffmann
     
    786785          DO  i = 1, j
    787786
    788              ir = ira(j)
     787             ir = MAX( ira(i), ira(j) )
    789788             rq = MIN( radclass(i) / radclass(j), radclass(j) / radclass(i) )
    790789             iq = INT( rq * 20 ) + 1
     
    945944          DO  i = 1, j
    946945
    947              ir = ira(j)
     946             ir = MAX( ira(i), ira(j) )
    948947             rq = MIN( radclass(i) / radclass(j), radclass(j) / radclass(i) )
    949948
Note: See TracChangeset for help on using the changeset viewer.