Ignore:
Timestamp:
Aug 29, 2017 2:10:28 PM (4 years ago)
Author:
schwenkel
Message:

improved aerosol initialization for bulk microphysics

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/mod_particle_attributes.f90

    r2312 r2375  
    2020! Current revisions:
    2121! ------------------
    22 !
    23 !
     22! 
     23! 
    2424! Former revisions:
    2525! -----------------
    2626! $Id$
     27! molecular_weight_of_solute, molecular_weight_of_water, vanthoff removed and
     28! added in modules. Parameters are also used in bulk-microphysics.
     29!
     30! 2312 2017-07-14 20:26:51Z hoffmann
    2731! Aerosol initialization improved.
    2832!
     
    9599    USE kinds
    96100
    97     CHARACTER(LEN=15) ::  aero_type = 'maritime'                   !< aerosol type
    98     CHARACTER(LEN=15) ::  bc_par_lr = 'cyclic'                     !< left/right boundary condition
    99     CHARACTER(LEN=15) ::  bc_par_ns = 'cyclic'                     !< north/south boundary condition
    100     CHARACTER(LEN=15) ::  bc_par_b  = 'reflect'                    !< bottom boundary condition
    101     CHARACTER(LEN=15) ::  bc_par_t  = 'absorb'                     !< top boundary condition
    102     CHARACTER(LEN=15) ::  collision_kernel = 'none'                !< collision kernel
     101    CHARACTER(LEN=15) ::  aero_species = 'nacl'                    !< aerosol species
     102    CHARACTER(LEN=15) ::  aero_type    = 'maritime'                !< aerosol type
     103    CHARACTER(LEN=15) ::  bc_par_lr    = 'cyclic'                  !< left/right boundary condition
     104    CHARACTER(LEN=15) ::  bc_par_ns    = 'cyclic'                  !< north/south boundary condition
     105    CHARACTER(LEN=15) ::  bc_par_b     = 'reflect'                 !< bottom boundary condition
     106    CHARACTER(LEN=15) ::  bc_par_t     = 'absorb'                  !< top boundary condition
     107    CHARACTER(LEN=15) ::  collision_kernel   = 'none'              !< collision kernel
    103108    CHARACTER(LEN=5)  ::  splitting_function = 'gamma'             !< function for calculation critical weighting factor
    104     CHARACTER(LEN=5)  ::  splitting_mode = 'const'                 !< splitting mode
     109    CHARACTER(LEN=5)  ::  splitting_mode     = 'const'             !< splitting mode
    105110
    106111    INTEGER(iwp) ::  deleted_particles = 0                        !< number of deleted particles per time step
     
    172177    REAL(wp) ::  initial_weighting_factor = 1.0_wp         !< namelist parameter (see documentation)
    173178    REAL(wp) ::  log_sigma(3) = 1.0_wp                     !< namelist parameter (see documentation)
    174     REAL(wp) ::  molecular_weight_of_solute = 0.05844_wp   !< mol. m. NaCl (kg mol-1)
    175     REAL(wp) ::  molecular_weight_of_water = 0.01801528_wp !< mol. m. H2O (kg mol-1)
    176179    REAL(wp) ::  na(3) = 0.0_wp                            !< namelist parameter (see documentation)
    177180    REAL(wp) ::  number_concentration = -1.0_wp            !< namelist parameter (see documentation)
     
    179182    REAL(wp) ::  radius_merge = 1.0E-7_wp                  !< namelist parameter (see documentation)
    180183    REAL(wp) ::  radius_split = 40.0E-6_wp                 !< namelist parameter (see documentation)
    181     REAL(wp) ::  rho_s = 2165.0_wp                         !< density of NaCl (kg m-3)
    182184    REAL(wp) ::  rm(3) = 1.0E-6_wp                         !< namelist parameter (see documentation)
    183185    REAL(wp) ::  sgs_wf_part                               !< parameter for sgs
    184186    REAL(wp) ::  time_prel = 0.0_wp                        !< time for particle release
    185187    REAL(wp) ::  time_write_particle_data = 0.0_wp         !< write particle data at current time on file
    186     REAL(wp) ::  vanthoff = 2.0_wp                         !< van't Hoff factor for NaCl
    187188    REAL(wp) ::  weight_factor_merge = -1.0_wp             !< namelist parameter (see documentation)
    188189    REAL(wp) ::  weight_factor_split = -1.0_wp             !< namelist parameter (see documentation)
Note: See TracChangeset for help on using the changeset viewer.