Changeset 1361 for palm/trunk/SOURCE/modules.f90

Timestamp:

Apr 16, 2014 3:17:48 PM (10 years ago)

Author:

hoffmann

Message:

improved version of two-moment cloud physics

File:

• palm/trunk/SOURCE/modules.f90 (modified) (7 diffs)

palm/trunk/SOURCE/modules.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! tend_* removed
+! call_microphysics_at_all_substeps added
+! default of drizzle set to true
 ! 
 ! Former revisions:
@@ -287 +289 @@
           diss_l_v, diss_l_w, flux_l_e, flux_l_nr, flux_l_pt, flux_l_q,        &
           flux_l_qr, flux_l_sa, flux_l_u, flux_l_v, flux_l_w, kh, km, lad_s,   &
-          lad_u, lad_v, lad_w, lai, l_wall, p_loc, sec, sls, tend, tend_pt,    &
-          tend_nr, tend_q, tend_qr, tric, u_m_l, u_m_n, u_m_r, u_m_s, v_m_l,   &
-          v_m_n, v_m_r, v_m_s, w_m_l, w_m_n, w_m_r, w_m_s
+          lad_u, lad_v, lad_w, lai, l_wall, p_loc, sec, sls, tend, tric,       &
+          u_m_l, u_m_n, u_m_r, u_m_s, v_m_l, v_m_n, v_m_r, v_m_s, w_m_l,       &
+          w_m_n, w_m_r, w_m_s
 
 #if defined( __nopointer )
@@ -368 +370 @@
                  b_vent = 0.308_wp,    & !: coef. for ventilation effect
                  beta_cc = 3.09E-4_wp, & !: coef. in turb. parametrization (cm-2 s3)
-                 bfactor,           &
+                 bfactor,              & !: solution effect on diffusional growth
                  c_1 = 4.82E-6_wp,     & !: coef. in turb. parametrization (m)
                  c_2 = 4.8E-6_wp,      & !: coef. in turb. parametrization (m)
@@ -384 +386 @@
                 cp = 1005.0_wp,       & !: heat capacity of dry air (J kg-1 K-1) 
                 diff_coeff_l = 0.23E-4_wp, & !: diffusivity of water vapor (m2 s-1)
-                effective_coll_efficiency, & !:
+                effective_coll_efficiency, & !: effective collision efficiency
                 eps_ros = 1.0E-4_wp,  & !: accuracy of Rosenbrock method
                 eps_sb = 1.0E-20_wp,  & !: threshold in two-moments scheme
@@ -408 +410 @@
                 schmidt = 0.71_wp,    & !: Schmidt number
                 schmidt_p_1d3,        & !: schmidt**( 1.0 / 3.0 )
+                sed_qc_const,         & !: const. for sedimentation of cloud water
                 sigma_gc = 1.3_wp,    & !: log-normal geometric standard deviation
                 stp = 2.5066282746310005_wp, & !: parameter in gamma function
@@ -592 +595 @@
                 bc_lr_raddir = .FALSE., bc_ns_cyc = .TRUE., &
                 bc_ns_dirrad = .FALSE., bc_ns_raddir = .FALSE.,&
+                call_microphysics_at_all_substeps = .FALSE., &
                 call_psolver_at_all_substeps = .TRUE., &
                 cloud_droplets = .FALSE., cloud_physics = .FALSE., &
@@ -604 +608 @@
                 do_sum = .FALSE., &
                 dp_external = .FALSE., dp_smooth = .FALSE., &
-                drizzle = .FALSE., dt_fixed = .FALSE., &
+                drizzle = .TRUE., dt_fixed = .FALSE., &
                 dt_3d_reached, dt_3d_reached_l, exchange_mg = .FALSE., &
                 first_call_lpm = .TRUE., &