Changeset 1871 for palm/trunk/SOURCE/mod_particle_attributes.f90

Timestamp:

Apr 15, 2016 11:46:09 AM (8 years ago)

Author:

hoffmann

Message:

initialization of aerosol spectra added

File:

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

palm/trunk/SOURCE/mod_particle_attributes.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-!
+! Initialization of aerosols added.
 !
 ! Former revisions:
@@ -119 +119 @@
     REAL(wp), DIMENSION(:), ALLOCATABLE     ::  log_z_z0
 
-!
-!-- Lagrangian cloud model constants
-    REAL(wp) ::  mass_of_solute = 1.0E-17_wp                !< soluted NaCl (kg)
-    REAL(wp) ::  molecular_weight_of_solute = 0.05844_wp    !< mol. m. NaCl (kg mol-1)
-    REAL(wp) ::  molecular_weight_of_water = 0.01801528_wp  !< mol. m. H2O (kg mol-1)
-    REAL(wp) ::  vanthoff = 2.0_wp                          !< van't Hoff factor for NaCl
-
     TYPE particle_type
         SEQUENCE
@@ -164 +157 @@
     TYPE(block_offset_def), DIMENSION(0:7)         ::  block_offset
 
+!
+!-- Lagrangian cloud model constants (especially for steering aerosols)
+    REAL(wp) ::  molecular_weight_of_solute = 0.05844_wp    !< mol. m. NaCl (kg mol-1)
+    REAL(wp) ::  molecular_weight_of_water = 0.01801528_wp  !< mol. m. H2O (kg mol-1)
+    REAL(wp) ::  rho_s = 2165.0_wp                          !< density of NaCl (kg m-3) 
+    REAL(wp) ::  vanthoff = 2.0_wp                          !< van't Hoff factor for NaCl
+
+    REAL(wp) ::  n1 = 100.0_wp, s1 = 2.0_wp, rm1 = 0.05E-6_wp, &
+                 n2 =   0.0_wp, s2 = 2.0_wp, rm2 = 0.05E-6_wp, &
+                 n3 =   0.0_wp, s3 = 2.0_wp, rm3 = 0.05E-6_wp
+
+    LOGICAL  ::  monodisperse_aerosols      = .FALSE.       !< initialize monodisperse aerosols
+    LOGICAL  ::  init_aerosol_probabilistic = .FALSE.       !< how to initialize aerosol spectra
+
     SAVE