Changeset 1065 for palm/trunk/SOURCE/init_cloud_physics.f90

Timestamp:

Nov 22, 2012 5:42:36 PM (11 years ago)

Author:

hoffmann

Message:

cloud physics: rain sedimentation and turbulence effects

File:

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

palm/trunk/SOURCE/init_cloud_physics.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
+! The Courant number of sedimentation can be controlled with c_sedimentation. 
 !
 ! Former revisions:
@@ -88 +89 @@
 !-- Calculate timestep according to precipitation
     IF ( icloud_scheme == 0  .AND.  precipitation )  THEN
-       dt_precipitation = MINVAL( dzu(nzb+2:nzt) ) / w_precipitation
+       dt_precipitation = c_sedimentation * MINVAL( dzu(nzb+2:nzt) ) /        &
+                          w_precipitation
     ENDIF
 !