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

palm/trunk/SOURCE/lpm_droplet_condensation.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Modularization of all bulk cloud physics code components
+! 
+! 3241 2018-09-12 15:02:00Z raasch
 ! unused variables removed
 ! 
@@ -136 +139 @@
 
     USE arrays_3d,                                                             &
-        ONLY:  dzw, hyp, pt, q, ql_c, ql_v
-
-    USE cloud_parameters,                                                      &
-        ONLY:  l_v, molecular_weight_of_solute,                        &
-               molecular_weight_of_water, rho_l, rho_s, r_v, vanthoff
-
-    USE constants,                                                             &
-        ONLY:  pi
+        ONLY:  dzw, hyp, pt, q, ql_c, ql_v, exner
+
+    USE basic_constants_and_equations_mod,                                     &
+        ONLY:  l_v, molecular_weight_of_solute, molecular_weight_of_water,     &
+               magnus, pi, rho_l, rho_s, r_v, vanthoff
 
     USE control_parameters,                                                    &
@@ -150 +150 @@
     USE cpulog,                                                                &
         ONLY:  cpu_log, log_point_s
-
-    USE diagnostic_quantities_mod,                                             &
-        ONLY:  magnus
 
     USE grid_variables,                                                        &
@@ -220 +217 @@
 !
 !-- Absolute temperature
-    t_int = pt(kp,jp,ip) * ( hyp(kp) / 100000.0_wp )**0.286_wp
+    t_int = pt(kp,jp,ip) * exner(kp)
 !
 !-- Saturation vapor pressure (Eq. 10 in Bolton, 1980)