Changeset 1860 for palm/trunk
- Timestamp:
- Apr 13, 2016 1:21:28 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/lpm_droplet_collision.f90
r1823 r1860 19 19 ! Current revisions: 20 20 ! ------------------ 21 ! 21 ! Interpolation of dissipation rate adjusted to more reasonable values. 22 22 ! 23 23 ! Former revisions: … … 158 158 !-- Determine dissipation class index of this gridbox 159 159 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 * & 161 161 dissipation_classes ) + 1 162 162 epsilon = diss(k,j,i)
Note: See TracChangeset
for help on using the changeset viewer.