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

Timestamp:

Oct 16, 2018 8:39:37 PM (6 years ago)

Author:

knoop

Message:

Introduced global constant rd_d_rv=0.622

File:

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

palm/trunk/SOURCE/lpm_droplet_condensation.f90

@@ -143 +143 @@
     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
+               magnus, pi, rho_l, rho_s, rd_d_rv, r_v, vanthoff
 
     USE control_parameters,                                                    &
@@ -223 +223 @@
 !
 !-- Current vapor pressure
-    e_a = q(kp,jp,ip) * hyp(kp) / ( q(kp,jp,ip) + 0.622_wp )
+    e_a = q(kp,jp,ip) * hyp(kp) / ( q(kp,jp,ip) + rd_d_rv )
 !
 !-- Thermal conductivity for water (from Rogers and Yau, Table 7.1)