Changeset 1822 for palm/trunk/SOURCE/modules.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/modules.f90 (modified) (4 diffs)

palm/trunk/SOURCE/modules.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-!
+! icloud_scheme removed. microphysics_sat_adjust, microphysics_kessler, 
+! microphysics_seifert added. 
 !
 ! Former revisions:
@@ -626 +627 @@
                              bc_sa_t = 'neumann', &
                              bc_uv_b = 'dirichlet', bc_uv_t = 'dirichlet', &
-                             cloud_scheme = 'seifert_beheng', &
+                             cloud_scheme = 'saturation_adjust', &
                              coupling_mode = 'uncoupled', &
                              coupling_mode_remote = 'uncoupled', &
@@ -665 +666 @@
                      grid_level, ibc_e_b, ibc_p_b, ibc_p_t, &
                      ibc_pt_b, ibc_pt_t, ibc_q_b, ibc_q_t, &
-                     ibc_sa_t, ibc_uv_b, ibc_uv_t, icloud_scheme, &
+                     ibc_sa_t, ibc_uv_b, ibc_uv_t, &
                      inflow_disturbance_begin = -1, inflow_disturbance_end = -1, &
                      intermediate_timestep_count, intermediate_timestep_count_max, &
@@ -734 +735 @@
                 lsf_vert = .TRUE., lptnudge = .FALSE., lqnudge = .FALSE., &
                 lunudge = .FALSE., lvnudge = .FALSE., lwnudge = .FALSE., &
-                masking_method = .FALSE., mg_switch_to_pe0 = .FALSE., &
+                masking_method = .FALSE., &
+                microphysics_sat_adjust = .FALSE., &
+                microphysics_kessler = .FALSE., &
+                microphysics_seifert = .FALSE., &
+                mg_switch_to_pe0 = .FALSE., &
                 monotonic_adjustment = .FALSE.
     LOGICAL ::  nest_bound_l = .FALSE. !< nested boundary on left side