Changeset 824 for palm/trunk/SOURCE/init_cloud_physics.f90

Timestamp:

Feb 17, 2012 9:09:57 AM (12 years ago)

Author:

raasch

Message:

preliminary checkin of new curvature/solution effects on droplet growth

File:

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

palm/trunk/SOURCE/init_cloud_physics.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! calculation of b_cond replaced by calculation of bfactor
 !
 ! Former revisions:
@@ -34 +34 @@
     USE arrays_3d
     USE cloud_parameters
+    USE constants
     USE control_parameters
     USE grid_variables
@@ -46 +47 @@
 
 !
-!-- Compute frequently used parameters
+!-- Calculate frequently used parameters
     l_d_cp = l_v / cp
     l_d_r  = l_v / r_d
     l_d_rv = l_v / r_v
-
 !
-!-- Constant b in equation for droplet growth by condensation / evaporation.
-!-- Factor 1E-3 is needed because formula is in cgs units
-    mass_of_solute = 1.0E-17            ! in kg
-    molecular_weight_of_solute = 58.5   ! NaCl
-    b_cond = 4.3 * 2.0 * mass_of_solute / molecular_weight_of_solute * 1.0E-6
-
+!-- Calculate factor used in equation for droplet growth by condensation
+    bfactor = 3.0 * vanthoff * mass_of_solute * molecular_weight_of_water &
+              / ( 4.0 * pi * rho_l * molecular_weight_of_solute )
 !
 !-- Calculate: