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

Timestamp:

Apr 7, 2016 7:49:42 AM (8 years ago)

Author:

hoffmann

Message:

changes in LPM and bulk cloud microphysics

File:

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

palm/trunk/SOURCE/init_cloud_physics.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! icloud_scheme replaced by microphysics_*
 ! 
 ! Former revisions:
@@ -92 +92 @@
         
     USE control_parameters,                                                    &
-        ONLY:  g, icloud_scheme, message_string, precipitation, pt_surface,    &
+        ONLY:  g, message_string, microphysics_seifert, pt_surface,            &
                rho_surface, surface_pressure
     
@@ -126 +126 @@
 !
 !-- Calculate timestep according to precipitation
-    IF ( icloud_scheme == 0  .AND.  precipitation )  THEN
+    IF ( microphysics_seifert )  THEN
        dt_precipitation = c_sedimentation * MINVAL( dzu(nzb+2:nzt) ) /         &
                           w_precipitation