Changeset 2608 for palm/trunk/SOURCE/lpm_droplet_condensation.f90

Timestamp:

Nov 13, 2017 2:04:26 PM (6 years ago)

Author:

schwenkel

Message:

Inital revision of diagnostic_quantities_mod allows unified calculation of magnus equation and saturion mixing ratio

File:

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

palm/trunk/SOURCE/lpm_droplet_condensation.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Calculation of magnus equation in external module (diagnostic_quantities_mod).
+! 
+! 2375 2017-08-29 14:10:28Z schwenkel
 ! Changed ONLY-dependencies
 !
@@ -129 +132 @@
     USE cpulog,                                                                &
         ONLY:  cpu_log, log_point_s
+
+    USE diagnostic_quantities_mod,                                             &
+        ONLY:  magnus
 
     USE grid_variables,                                                        &
@@ -199 +205 @@
 !
 !-- Saturation vapor pressure (Eq. 10 in Bolton, 1980)
-    e_s = 611.2_wp * EXP( 17.62_wp * ( t_int - 273.15_wp ) / ( t_int - 29.65_wp ) )
+    e_s = magnus( t_int )
 !
 !-- Current vapor pressure