Changeset 3274 for palm/trunk/SOURCE/lpm_init.f90

Timestamp:

Sep 24, 2018 3:42:55 PM (6 years ago)

Author:

knoop

Message:

Modularization of all bulk cloud physics code components

File:

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

palm/trunk/SOURCE/lpm_init.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Modularization of all bulk cloud physics code components
+! 
+! 3241 2018-09-12 15:02:00Z raasch
 ! unused variables removed
 ! 
@@ -1051 +1054 @@
 
     USE arrays_3d,                                                             &
-        ONLY: hyp, pt, q
-
-    USE cloud_parameters,                                                      &
-        ONLY: molecular_weight_of_solute, molecular_weight_of_water, rho_l,    &
-              r_v, rho_s, vanthoff
-
-    USE constants,                                                             &
-        ONLY: pi
-
-    USE diagnostic_quantities_mod,                                             &
-        ONLY:  magnus
-
+        ONLY: hyp, pt, q, exner
+
+    USE basic_constants_and_equations_mod,                                     &
+        ONLY: molecular_weight_of_solute, molecular_weight_of_water, magnus,   &
+              pi, rho_l, r_v, rho_s, vanthoff
 
     USE kinds
@@ -1199 +1195 @@
 !--          the sometimes lengthy growth toward their equilibrium radius within
 !--          the simulation.
-             t_int  = pt(kp,jp,ip) * ( hyp(kp) / 100000.0_wp )**0.286_wp
+             t_int  = pt(kp,jp,ip) * exner(kp)
 
              e_s = magnus( t_int )