Changeset 1860 for palm

Timestamp:

Apr 13, 2016 1:21:28 PM (9 years ago)

Author:

hoffmann

Message:

Interpolation of collision kernels adjusted to more reasonable values

File:

• palm/trunk/SOURCE/lpm_droplet_collision.f90 (modified) (2 diffs)

palm/trunk/SOURCE/lpm_droplet_collision.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-!
+! Interpolation of dissipation rate adjusted to more reasonable values. 
 !
 ! Former revisions:
@@ -158 +158 @@
 !--       Determine dissipation class index of this gridbox
           IF ( wang_kernel )  THEN
-             eclass = INT( diss(k,j,i) * 1.0E4_wp / 1000.0_wp * &
+             eclass = INT( diss(k,j,i) * 1.0E4_wp / 600.0_wp * &
                            dissipation_classes ) + 1
              epsilon = diss(k,j,i)