Changeset 1519 for palm


Ignore:
Timestamp:
Jan 8, 2015 10:20:42 AM (9 years ago)
Author:
hoffmann
Message:

bugfix: check if radius ratio < 1 for computation of collisions

File:
1 edited

Legend:

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

    r1360 r1519  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Bugfix: Using the new particle structure, particles are not sorted by size.
     23! Hence, computation of collision efficiencies must ensure that the ratio of
     24! two colliding droplets is < 1.
    2325!
    2426! Former revisions:
     
    846848
    847849             ir = ira(j)
    848              rq = radclass(i) / radclass(j)
     850             rq = MIN( radclass(i) / radclass(j), radclass(j) / radclass(i) )
    849851             iq = INT( rq * 20 ) + 1
    850852             iq = MAX( iq , 2)
     
    10031005
    10041006             ir = ira(j)
    1005              rq = radclass(i) / radclass(j)
     1007             rq = MIN( radclass(i) / radclass(j), radclass(j) / radclass(i) )
    10061008
    10071009             DO  kk = 2, 11
Note: See TracChangeset for help on using the changeset viewer.