Skip to content

Commit

Permalink
CESM3_SLH include pp_trop_strat_* and pp_waccm_tsmlt_* fpr SLH
Browse files Browse the repository at this point in the history
  • Loading branch information
@RafaPedroFernandez
RafaPedroFernandez committed Sep 23, 2024
1 parent 00d305f commit 0143a15
Show file tree
Hide file tree
Showing 72 changed files with 117,947 additions and 0 deletions.
2,176 changes: 2,176 additions & 0 deletions src/chemistry/pp_trop_strat_mam4_slh/chem_mech.doc
View file

Large diffs are not rendered by default.

1,425 changes: 1,425 additions & 0 deletions src/chemistry/pp_trop_strat_mam4_slh/chem_mech.in
View file

Large diffs are not rendered by default.

51 changes: 51 additions & 0 deletions src/chemistry/pp_trop_strat_mam4_slh/chem_mods.F90
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,51 @@
module chem_mods
!--------------------------------------------------------------
! ... Basic chemistry parameters and arrays
!--------------------------------------------------------------
use shr_kind_mod, only : r8 => shr_kind_r8
implicit none
save
integer, parameter :: phtcnt = 152, & ! number of photolysis reactions
rxntot = 700, & ! number of total reactions
gascnt = 548, & ! number of gas phase reactions
nabscol = 2, & ! number of absorbing column densities
gas_pcnst = 260, & ! number of "gas phase" species
nfs = 3, & ! number of "fixed" species
relcnt = 0, & ! number of relationship species
grpcnt = 0, & ! number of group members
nzcnt = 2706, & ! number of non-zero matrix entries
extcnt = 16, & ! number of species with external forcing
clscnt1 = 2, & ! number of species in explicit class
clscnt2 = 0, & ! number of species in hov class
clscnt3 = 0, & ! number of species in ebi class
clscnt4 = 258, & ! number of species in implicit class
clscnt5 = 0, & ! number of species in rodas class
indexm = 1, & ! index of total atm density in invariant array
indexh2o = 0, & ! index of water vapor density
clsze = 1, & ! loop length for implicit chemistry
rxt_tag_cnt = 700, &
enthalpy_cnt = 18, &
nslvd = 41
integer :: clscnt(5) = 0
integer :: cls_rxt_cnt(4,5) = 0
integer :: clsmap(gas_pcnst,5) = 0
integer :: permute(gas_pcnst,5) = 0
integer :: diag_map(clscnt4) = 0
real(r8) :: adv_mass(gas_pcnst) = 0._r8
real(r8) :: crb_mass(gas_pcnst) = 0._r8
real(r8) :: fix_mass(max(1,nfs))
real(r8), allocatable :: cph_enthalpy(:)
integer, allocatable :: cph_rid(:)
integer, allocatable :: num_rnts(:)
integer, allocatable :: rxt_tag_map(:)
real(r8), allocatable :: pht_alias_mult(:,:)
character(len=32), allocatable :: rxt_tag_lst(:)
character(len=16), allocatable :: pht_alias_lst(:,:)
character(len=16) :: inv_lst(max(1,nfs))
character(len=16) :: extfrc_lst(max(1,extcnt))
logical :: frc_from_dataset(max(1,extcnt))
logical :: is_vector
logical :: is_scalar
character(len=16) :: slvd_lst(max(1,nslvd))
integer, parameter :: veclen = 32
end module chem_mods
703 changes: 703 additions & 0 deletions src/chemistry/pp_trop_strat_mam4_slh/m_rxt_id.F90
View file

Large diffs are not rendered by default.

263 changes: 263 additions & 0 deletions src/chemistry/pp_trop_strat_mam4_slh/m_spc_id.F90
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,263 @@
module m_spc_id
implicit none
integer, parameter :: id_ALKNIT = 1
integer, parameter :: id_ALKOOH = 2
integer, parameter :: id_AOA_NH = 3
integer, parameter :: id_bc_a1 = 4
integer, parameter :: id_bc_a4 = 5
integer, parameter :: id_BCARY = 6
integer, parameter :: id_BENZENE = 7
integer, parameter :: id_BENZOOH = 8
integer, parameter :: id_BEPOMUC = 9
integer, parameter :: id_BIGALD = 10
integer, parameter :: id_BIGALD1 = 11
integer, parameter :: id_BIGALD2 = 12
integer, parameter :: id_BIGALD3 = 13
integer, parameter :: id_BIGALD4 = 14
integer, parameter :: id_BIGALK = 15
integer, parameter :: id_BIGENE = 16
integer, parameter :: id_BR = 17
integer, parameter :: id_BR2 = 18
integer, parameter :: id_BRCL = 19
integer, parameter :: id_BRNO2 = 20
integer, parameter :: id_BRO = 21
integer, parameter :: id_BRONO2 = 22
integer, parameter :: id_BRY = 23
integer, parameter :: id_BZALD = 24
integer, parameter :: id_BZOOH = 25
integer, parameter :: id_C2CL4 = 26
integer, parameter :: id_C2H2 = 27
integer, parameter :: id_C2H4 = 28
integer, parameter :: id_C2H4CL2 = 29
integer, parameter :: id_C2H5OH = 30
integer, parameter :: id_C2H5OOH = 31
integer, parameter :: id_C2H6 = 32
integer, parameter :: id_C3H6 = 33
integer, parameter :: id_C3H7OOH = 34
integer, parameter :: id_C3H8 = 35
integer, parameter :: id_C6H5OOH = 36
integer, parameter :: id_CCL4 = 37
integer, parameter :: id_CF2CLBR = 38
integer, parameter :: id_CF3BR = 39
integer, parameter :: id_CFC11 = 40
integer, parameter :: id_CFC113 = 41
integer, parameter :: id_CFC114 = 42
integer, parameter :: id_CFC115 = 43
integer, parameter :: id_CFC12 = 44
integer, parameter :: id_CH2BR2 = 45
integer, parameter :: id_CH2BRCL = 46
integer, parameter :: id_CH2CL2 = 47
integer, parameter :: id_CH2I2 = 48
integer, parameter :: id_CH2IBR = 49
integer, parameter :: id_CH2ICL = 50
integer, parameter :: id_CH2O = 51
integer, parameter :: id_CH3BR = 52
integer, parameter :: id_CH3CCL3 = 53
integer, parameter :: id_CH3CHO = 54
integer, parameter :: id_CH3CL = 55
integer, parameter :: id_CH3CN = 56
integer, parameter :: id_CH3COCH3 = 57
integer, parameter :: id_CH3COCHO = 58
integer, parameter :: id_CH3COOH = 59
integer, parameter :: id_CH3COOOH = 60
integer, parameter :: id_CH3I = 61
integer, parameter :: id_CH3OH = 62
integer, parameter :: id_CH3OOH = 63
integer, parameter :: id_CH4 = 64
integer, parameter :: id_CHBR2CL = 65
integer, parameter :: id_CHBR3 = 66
integer, parameter :: id_CHBRCL2 = 67
integer, parameter :: id_CHCL2O2 = 68
integer, parameter :: id_CHCL3 = 69
integer, parameter :: id_CL = 70
integer, parameter :: id_CL2 = 71
integer, parameter :: id_CL2O2 = 72
integer, parameter :: id_CLNO2 = 73
integer, parameter :: id_CLO = 74
integer, parameter :: id_CLONO2 = 75
integer, parameter :: id_CLY = 76
integer, parameter :: id_CO = 77
integer, parameter :: id_CO2 = 78
integer, parameter :: id_COCL2 = 79
integer, parameter :: id_COF2 = 80
integer, parameter :: id_COFCL = 81
integer, parameter :: id_CRESOL = 82
integer, parameter :: id_DMS = 83
integer, parameter :: id_dst_a1 = 84
integer, parameter :: id_dst_a2 = 85
integer, parameter :: id_dst_a3 = 86
integer, parameter :: id_E90 = 87
integer, parameter :: id_EOOH = 88
integer, parameter :: id_F = 89
integer, parameter :: id_GLYALD = 90
integer, parameter :: id_GLYOXAL = 91
integer, parameter :: id_H = 92
integer, parameter :: id_H2 = 93
integer, parameter :: id_H2402 = 94
integer, parameter :: id_H2O2 = 95
integer, parameter :: id_H2SO4 = 96
integer, parameter :: id_HBR = 97
integer, parameter :: id_HCFC141B = 98
integer, parameter :: id_HCFC142B = 99
integer, parameter :: id_HCFC22 = 100
integer, parameter :: id_HCL = 101
integer, parameter :: id_HCN = 102
integer, parameter :: id_HCOOH = 103
integer, parameter :: id_HF = 104
integer, parameter :: id_HI = 105
integer, parameter :: id_HNO3 = 106
integer, parameter :: id_HO2NO2 = 107
integer, parameter :: id_HOBR = 108
integer, parameter :: id_HOCL = 109
integer, parameter :: id_HOI = 110
integer, parameter :: id_HONITR = 111
integer, parameter :: id_HPALD = 112
integer, parameter :: id_HYAC = 113
integer, parameter :: id_HYDRALD = 114
integer, parameter :: id_I = 115
integer, parameter :: id_I2 = 116
integer, parameter :: id_I2O2 = 117
integer, parameter :: id_I2O3 = 118
integer, parameter :: id_I2O4 = 119
integer, parameter :: id_IBR = 120
integer, parameter :: id_ICL = 121
integer, parameter :: id_IEPOX = 122
integer, parameter :: id_INO = 123
integer, parameter :: id_INO2 = 124
integer, parameter :: id_IO = 125
integer, parameter :: id_IONO2 = 126
integer, parameter :: id_ISOP = 127
integer, parameter :: id_ISOPNITA = 128
integer, parameter :: id_ISOPNITB = 129
integer, parameter :: id_ISOPNOOH = 130
integer, parameter :: id_ISOPOOH = 131
integer, parameter :: id_IVOC = 132
integer, parameter :: id_IY = 133
integer, parameter :: id_MACR = 134
integer, parameter :: id_MACROOH = 135
integer, parameter :: id_MEK = 136
integer, parameter :: id_MEKOOH = 137
integer, parameter :: id_MPAN = 138
integer, parameter :: id_MTERP = 139
integer, parameter :: id_MVK = 140
integer, parameter :: id_N = 141
integer, parameter :: id_N2O = 142
integer, parameter :: id_N2O5 = 143
integer, parameter :: id_NC4CH2OH = 144
integer, parameter :: id_NC4CHO = 145
integer, parameter :: id_ncl_a1 = 146
integer, parameter :: id_ncl_a2 = 147
integer, parameter :: id_ncl_a3 = 148
integer, parameter :: id_NH3 = 149
integer, parameter :: id_NH4 = 150
integer, parameter :: id_NH_5 = 151
integer, parameter :: id_NH_50 = 152
integer, parameter :: id_NO = 153
integer, parameter :: id_NO2 = 154
integer, parameter :: id_NO3 = 155
integer, parameter :: id_NOA = 156
integer, parameter :: id_NTERPOOH = 157
integer, parameter :: id_num_a1 = 158
integer, parameter :: id_num_a2 = 159
integer, parameter :: id_num_a3 = 160
integer, parameter :: id_num_a4 = 161
integer, parameter :: id_O = 162
integer, parameter :: id_O3 = 163
integer, parameter :: id_O3S = 164
integer, parameter :: id_OCLO = 165
integer, parameter :: id_OCS = 166
integer, parameter :: id_OIO = 167
integer, parameter :: id_ONITR = 168
integer, parameter :: id_PAN = 169
integer, parameter :: id_PBZNIT = 170
integer, parameter :: id_PHENO = 171
integer, parameter :: id_PHENOL = 172
integer, parameter :: id_PHENOOH = 173
integer, parameter :: id_pom_a1 = 174
integer, parameter :: id_pom_a4 = 175
integer, parameter :: id_POOH = 176
integer, parameter :: id_ROOH = 177
integer, parameter :: id_S = 178
integer, parameter :: id_SF6 = 179
integer, parameter :: id_SO = 180
integer, parameter :: id_SO2 = 181
integer, parameter :: id_SO3 = 182
integer, parameter :: id_so4_a1 = 183
integer, parameter :: id_so4_a2 = 184
integer, parameter :: id_so4_a3 = 185
integer, parameter :: id_soa1_a1 = 186
integer, parameter :: id_soa1_a2 = 187
integer, parameter :: id_soa2_a1 = 188
integer, parameter :: id_soa2_a2 = 189
integer, parameter :: id_soa3_a1 = 190
integer, parameter :: id_soa3_a2 = 191
integer, parameter :: id_soa4_a1 = 192
integer, parameter :: id_soa4_a2 = 193
integer, parameter :: id_soa5_a1 = 194
integer, parameter :: id_soa5_a2 = 195
integer, parameter :: id_SOAG0 = 196
integer, parameter :: id_SOAG1 = 197
integer, parameter :: id_SOAG2 = 198
integer, parameter :: id_SOAG3 = 199
integer, parameter :: id_SOAG4 = 200
integer, parameter :: id_ST80_25 = 201
integer, parameter :: id_SVOC = 202
integer, parameter :: id_TEPOMUC = 203
integer, parameter :: id_TERP2OOH = 204
integer, parameter :: id_TERPNIT = 205
integer, parameter :: id_TERPOOH = 206
integer, parameter :: id_TERPROD1 = 207
integer, parameter :: id_TERPROD2 = 208
integer, parameter :: id_TOLOOH = 209
integer, parameter :: id_TOLUENE = 210
integer, parameter :: id_XOOH = 211
integer, parameter :: id_XYLENES = 212
integer, parameter :: id_XYLENOOH = 213
integer, parameter :: id_XYLOL = 214
integer, parameter :: id_XYLOLOOH = 215
integer, parameter :: id_NHDEP = 216
integer, parameter :: id_NDEP = 217
integer, parameter :: id_ACBZO2 = 218
integer, parameter :: id_ALKO2 = 219
integer, parameter :: id_BCARYO2VBS = 220
integer, parameter :: id_BENZO2 = 221
integer, parameter :: id_BENZO2VBS = 222
integer, parameter :: id_BZOO = 223
integer, parameter :: id_C2H5O2 = 224
integer, parameter :: id_C3H7O2 = 225
integer, parameter :: id_C6H5O2 = 226
integer, parameter :: id_CH3CO3 = 227
integer, parameter :: id_CH3O2 = 228
integer, parameter :: id_DICARBO2 = 229
integer, parameter :: id_ENEO2 = 230
integer, parameter :: id_EO = 231
integer, parameter :: id_EO2 = 232
integer, parameter :: id_HO2 = 233
integer, parameter :: id_HOCH2OO = 234
integer, parameter :: id_ISOPAO2 = 235
integer, parameter :: id_ISOPBO2 = 236
integer, parameter :: id_ISOPNO3 = 237
integer, parameter :: id_ISOPO2VBS = 238
integer, parameter :: id_IVOCO2VBS = 239
integer, parameter :: id_MACRO2 = 240
integer, parameter :: id_MALO2 = 241
integer, parameter :: id_MCO3 = 242
integer, parameter :: id_MDIALO2 = 243
integer, parameter :: id_MEKO2 = 244
integer, parameter :: id_MTERPO2VBS = 245
integer, parameter :: id_NTERPO2 = 246
integer, parameter :: id_O1D = 247
integer, parameter :: id_OH = 248
integer, parameter :: id_PHENO2 = 249
integer, parameter :: id_PO2 = 250
integer, parameter :: id_RO2 = 251
integer, parameter :: id_TERP2O2 = 252
integer, parameter :: id_TERPO2 = 253
integer, parameter :: id_TOLO2 = 254
integer, parameter :: id_TOLUO2VBS = 255
integer, parameter :: id_XO2 = 256
integer, parameter :: id_XYLENO2 = 257
integer, parameter :: id_XYLEO2VBS = 258
integer, parameter :: id_XYLOLO2 = 259
integer, parameter :: id_H2O = 260
end module m_spc_id
Loading

0 comments on commit 0143a15

Please sign in to comment.