Changeset 1860


Ignore:
Timestamp:
Apr 13, 2016 1:21:28 PM (8 years ago)
Author:
hoffmann
Message:

Interpolation of collision kernels adjusted to more reasonable values

File:
1 edited

Legend:

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

    r1823 r1860  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Interpolation of dissipation rate adjusted to more reasonable values.
    2222!
    2323! Former revisions:
     
    158158!--       Determine dissipation class index of this gridbox
    159159          IF ( wang_kernel )  THEN
    160              eclass = INT( diss(k,j,i) * 1.0E4_wp / 1000.0_wp * &
     160             eclass = INT( diss(k,j,i) * 1.0E4_wp / 600.0_wp * &
    161161                           dissipation_classes ) + 1
    162162             epsilon = diss(k,j,i)
Note: See TracChangeset for help on using the changeset viewer.