Changeset 831 for palm

Timestamp:

Feb 22, 2012 12:29:39 AM (13 years ago)

Author:

raasch

Message:

thermal_conductivity_l and diff_coeff_l now depend on temperature and pressure

File:

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

palm/trunk/SOURCE/advec_particles.f90

@@ -4 +4 @@
 ! Current revisions:
 ! ------------------
-! 
+! thermal_conductivity_l and diff_coeff_l now depend on temperature and
+! pressure 
 !
 ! Former revisions:
@@ -351 +352 @@
           e_a = q_int * p_int / ( 0.378 * q_int + 0.622 )
 
+!
+!--       Thermal conductivity for water (from Rogers and Yau, Table 7.1),
+!--       diffusivity for water vapor (after Hall und Pruppacher, 1976)
+          thermal_conductivity_l = 7.94048E-05 * t_int + 0.00227011 
+          diff_coeff_l           = 0.211E-4 * ( t_int / 273.15 )**1.94 * &
+                                   ( 101325.0 / p_int)
 !
 !--       Change in radius by condensation/evaporation