Changeset 3458 for palm/trunk/SOURCE/chem_modules.f90
- Timestamp:
- Oct 30, 2018 2:51:23 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/chem_modules.f90
r3298 r3458 27 27 ! ----------------- 28 28 ! $Id$ 29 ! from chemistry branch r3443: 30 ! ?? 31 ! 32 ! 3298 2018-10-02 12:21:11Z kanani 29 33 ! - Minor formatting 30 34 ! - Introduced Variables for Chemistry emissions Module (Russo) … … 43 47 ! @author Farah Kanani-Suehring 44 48 ! @author Basit Khan 49 ! @author Sabine Banzhaf 50 ! @author Emmanuele Russo 45 51 ! 46 52 !------------------------------------------------------------------------------! … … 88 94 LOGICAL :: do_emis = .FALSE. !< Flag for turning on chemistry emissions 89 95 LOGICAL :: cs_pr_namelist_found = .FALSE. !< Namelist parameter: Names of t 96 LOGICAL :: do_depo = .FALSE. !< namelist parameter for activation of deposition calculation 90 97 91 98 … … 161 168 ! matching between the model and the input files 162 169 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 163 205 SAVE 164 206 END MODULE chem_modules
Note: See TracChangeset
for help on using the changeset viewer.