Ignore:
Timestamp:
Oct 30, 2018 2:51:23 PM (3 years ago)
Author:
kanani
Message:

Reintegrated fixes/changes from branch chemistry

File:
1 edited

Legend:

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

    r3298 r3458  
    2727! -----------------
    2828! $Id$
     29! from chemistry branch r3443:
     30! ??
     31!
     32! 3298 2018-10-02 12:21:11Z kanani
    2933! - Minor formatting
    3034! - Introduced Variables for Chemistry emissions Module (Russo)
     
    4347! @author Farah Kanani-Suehring
    4448! @author Basit Khan
     49! @author Sabine Banzhaf
     50! @author Emmanuele Russo
    4551!
    4652!------------------------------------------------------------------------------!
     
    8894    LOGICAL       :: do_emis                               = .FALSE.               !< Flag for turning on chemistry emissions
    8995    LOGICAL       :: cs_pr_namelist_found                  = .FALSE.               !< Namelist parameter: Names of t
     96    LOGICAL       :: do_depo                               = .FALSE.               !< namelist parameter for activation of deposition calculation
    9097
    9198
     
    161168                                                                                   ! matching between the model and the input files
    162169
     170   
     171    !-- Selected atomic/molecular weights:
     172   
     173    REAL, PARAMETER        ::  xm_H     =    1.00790e-3           ! kg/mol
     174    REAL, PARAMETER        ::  xm_N     =   14.00670e-3           ! kg/mol
     175    REAL, PARAMETER        ::  xm_C     =   12.01115e-3           ! kg/mol
     176    REAL, PARAMETER        ::  xm_S     =   32.06400e-3           ! kg/mol
     177    REAL, PARAMETER        ::  xm_O     =   15.99940e-3           ! kg/mol
     178    REAL, PARAMETER        ::  xm_F     =   18.99840e-3           ! kg/mol
     179    REAL, PARAMETER        ::  xm_Na    =   22.98977e-3           ! kg/mol
     180    REAL, PARAMETER        ::  xm_Cl    =   35.45300e-3           ! kg/mol
     181    REAL, PARAMETER        ::  xm_Rn222 =  222.00000e-3           ! kg/mol
     182    REAL, PARAMETER        ::  xm_Pb210 =  210.00000e-3           ! kg/mol
     183    REAL, PARAMETER        ::  xm_Ca    =   40.07800e-3           ! kg/mol
     184    REAL, PARAMETER        ::  xm_K     =   39.09800e-3           ! kg/mol
     185    REAL, PARAMETER        ::  xm_Mg    =   24.30500e-3           ! kg/mol
     186    REAL, PARAMETER        ::  xm_Pb    =  207.20000e-3           ! kg/mol
     187    REAL, PARAMETER        ::  xm_Cd    =  112.41000e-3           ! kg/mol
     188   
     189    REAL, PARAMETER        ::  xm_h2o   = xm_H * 2 + xm_O         ! kg/mol
     190    REAL, PARAMETER        ::  xm_o3    = xm_O * 3                ! kg/mol
     191    REAL, PARAMETER        ::  xm_N2O5  = xm_N * 2 + xm_O * 5     ! kg/mol
     192    REAL, PARAMETER        ::  xm_HNO3  = xm_H + xm_N + xm_O * 3  ! kg/mol
     193    REAL, PARAMETER        ::  xm_NH4   = xm_N + xm_H * 4         ! kg/mol
     194    REAL, PARAMETER        ::  xm_SO4   = xm_S + xm_O * 4         ! kg/mol
     195    REAL, PARAMETER        ::  xm_NO3   = xm_N + xm_O * 3         ! kg/mol
     196    REAL, PARAMETER        ::  xm_CO2   = xm_C + xm_O * 2         ! kg/mol
     197   
     198    ! mass of air
     199    REAL, PARAMETER        ::  xm_air   =  28.964e-3              ! kg/mol
     200       
     201    ! dummy weight, used for complex molecules:
     202    REAL, PARAMETER        ::  xm_dummy =  1000.0e-3              ! kg/mol
     203
     204   
    163205    SAVE
    164206 END MODULE chem_modules
Note: See TracChangeset for help on using the changeset viewer.