Add files via upload
This commit is contained in:
Xuesong (Steve)
414
code/adjoint/gckpp_adj_Monitor.f90
Normal file
414
code/adjoint/gckpp_adj_Monitor.f90
Normal file
@ -0,0 +1,414 @@
|
||||
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
||||
!
|
||||
! Utility Data Module File
|
||||
!
|
||||
! Generated by KPP-2.2 symbolic chemistry Kinetics PreProcessor
|
||||
! (http://www.cs.vt.edu/~asandu/Software/KPP)
|
||||
! KPP is distributed under GPL, the general public licence
|
||||
! (http://www.gnu.org/copyleft/gpl.html)
|
||||
! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa
|
||||
! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech
|
||||
! With important contributions from:
|
||||
! M. Damian, Villanova University, USA
|
||||
! R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany
|
||||
!
|
||||
! File : gckpp_adj_Monitor.f90
|
||||
! Time : Tue May 14 19:43:54 2013
|
||||
! Working directory : /home/daven/kpp-2.2.1/GC_KPP
|
||||
! Equation file : gckpp_adj.kpp
|
||||
! Output root filename : gckpp_adj
|
||||
!
|
||||
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
||||
|
||||
|
||||
|
||||
MODULE gckpp_adj_Monitor
|
||||
|
||||
|
||||
CHARACTER(LEN=12), PARAMETER, DIMENSION(90) :: SPC_NAMES_0 = (/ &
|
||||
'DRYCH2O ','DRYH2O2 ','DRYHNO3 ', &
|
||||
'DRYN2O5 ','DRYNO2 ','DRYO3 ', &
|
||||
'DRYPAN ','DRYPMN ','DRYPPN ', &
|
||||
'DRYR4N2 ','SO4 ','MSA ', &
|
||||
'CO2 ','DRYDEP ','LISOPOH ', &
|
||||
'C3H8 ','H2O2 ','PPN ', &
|
||||
'GPAN ','SO2 ','PAN ', &
|
||||
'ALK4 ','C2H6 ','HNO2 ', &
|
||||
'N2O5 ','MAOP ','MAP ', &
|
||||
'MP ','HNO4 ','R4P ', &
|
||||
'RA3P ','RB3P ','RP ', &
|
||||
'DMS ','ETP ','GP ', &
|
||||
'PP ','PRPN ','INPN ', &
|
||||
'MRP ','IAP ','VRP ', &
|
||||
'ISNP ','PMN ','RIP ', &
|
||||
'ISOP ','CO ','PRPE ', &
|
||||
'ACET ','GLYC ','MVN2 ', &
|
||||
'A3O2 ','B3O2 ','R4N1 ', &
|
||||
'MAN2 ','HNO3 ','RIO1 ', &
|
||||
'IALD ','MRO2 ','KO2 ', &
|
||||
'HAC ','ATO2 ','PRN1 ', &
|
||||
'VRO2 ','ISN1 ','IAO2 ', &
|
||||
'INO2 ','RCHO ','CH2O ', &
|
||||
'PO2 ','ALD2 ','R4O2 ', &
|
||||
'R4N2 ','ETO2 ','MGLY ', &
|
||||
'MEK ','MVK ','MAO3 ', &
|
||||
'RIO2 ','MACR ','RCO3 ', &
|
||||
'NO2 ','OH ','HO2 ', &
|
||||
'NO ','MCO3 ','NO3 ', &
|
||||
'GCO3 ','O3 ','MO2 ' /)
|
||||
CHARACTER(LEN=12), PARAMETER, DIMENSION(16) :: SPC_NAMES_1 = (/ &
|
||||
'ACTA ','CH4 ','EMISSION ', &
|
||||
'EOH ','GLCO3 ','GLP ', &
|
||||
'GLPAN ','GLYX ','H2 ', &
|
||||
'H2O ','HCOOH ','MNO3 ', &
|
||||
'MOH ','O2 ','RCOOH ', &
|
||||
'ROH ' /)
|
||||
CHARACTER(LEN=12), PARAMETER, DIMENSION(106) :: SPC_NAMES = (/&
|
||||
SPC_NAMES_0, SPC_NAMES_1 /)
|
||||
|
||||
INTEGER, PARAMETER, DIMENSION(106) :: LOOKAT = (/ &
|
||||
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, &
|
||||
13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, &
|
||||
25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, &
|
||||
37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, &
|
||||
49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, &
|
||||
61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, &
|
||||
73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, &
|
||||
85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, &
|
||||
97, 98, 99,100,101,102,103,104,105,106 /)
|
||||
|
||||
INTEGER, DIMENSION(1) :: MONITOR
|
||||
CHARACTER(LEN=12), DIMENSION(1) :: SMASS
|
||||
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_0 = (/ &
|
||||
' NO + O3 --> NO2 + O2 ', &
|
||||
' OH + O3 --> HO2 + O2 ', &
|
||||
' HO2 + O3 --> OH + 2 O2 ', &
|
||||
' NO2 + O3 --> NO3 + O2 ', &
|
||||
' O3 + MO2 --> CH2O + HO2 + 2 O2 ', &
|
||||
' 2 OH --> O3 + H2O ', &
|
||||
' 2 OH --> H2O2 ', &
|
||||
' OH + HO2 --> H2O + O2 ', &
|
||||
' H2O2 + OH --> HO2 + H2O ', &
|
||||
' HO2 + NO --> NO2 + OH ', &
|
||||
' 2 HO2 --> H2O2 ', &
|
||||
' OH + H2 --> HO2 + H2O ', &
|
||||
' CO + OH --> CO2 + HO2 ', &
|
||||
' OH + CH4 --> MO2 + H2O ', &
|
||||
' NO + MO2 --> CH2O + NO2 + HO2 ', &
|
||||
' HO2 + MO2 --> MP + O2 ', &
|
||||
' 2 MO2 --> CH2O + MOH + O2 ', &
|
||||
' 2 MO2 --> 2 CH2O + 2 HO2 ', &
|
||||
' MP + OH --> MO2 + H2O ', &
|
||||
' MP + OH --> CH2O + OH + H2O ', &
|
||||
' CH2O + OH --> CO + HO2 + H2O ', &
|
||||
' NO2 + OH --> HNO3 ', &
|
||||
' HNO3 + OH --> NO3 + H2O ', &
|
||||
' OH + NO --> HNO2 ', &
|
||||
' HNO2 + OH --> NO2 + H2O ', &
|
||||
' NO2 + HO2 --> HNO4 ', &
|
||||
' HNO4 --> NO2 + HO2 ', &
|
||||
' HNO4 + OH --> NO2 + H2O + O2 ', &
|
||||
' HO2 + NO3 --> NO2 + OH + O2 ', &
|
||||
' NO + NO3 --> 2 NO2 ' /)
|
||||
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_1 = (/ &
|
||||
' OH + NO3 --> NO2 + HO2 ', &
|
||||
' NO2 + NO3 --> N2O5 ', &
|
||||
' N2O5 --> NO2 + NO3 ', &
|
||||
' OH + HCOOH --> CO2 + HO2 + H2O ', &
|
||||
' OH + MOH --> CH2O + HO2 ', &
|
||||
' NO2 + NO3 --> NO2 + NO + O2 ', &
|
||||
' CH2O + NO3 --> CO + HNO3 + HO2 ', &
|
||||
' ALD2 + OH --> 0.05 CO + 0.05 CH2O + 0.05 HO2 + 0.95 MCO3 ', &
|
||||
' ALD2 + NO3 --> HNO3 + MCO3 ', &
|
||||
' NO2 + MCO3 --> PAN ', &
|
||||
' PAN --> NO2 + MCO3 ', &
|
||||
' NO + MCO3 --> CO2 + NO2 + MO2 ', &
|
||||
' C2H6 + OH --> ETO2 + H2O ', &
|
||||
' ETO2 + NO --> ALD2 + NO2 + HO2 ', &
|
||||
' C3H8 + OH --> B3O2 ', &
|
||||
' C3H8 + OH --> A3O2 ', &
|
||||
' A3O2 + NO --> RCHO + NO2 + HO2 ', &
|
||||
' PO2 + NO --> CH2O + ALD2 + NO2 + HO2 ', &
|
||||
' ALK4 + OH --> R4O2 ', &
|
||||
' R4O2 + NO --> 0.32 ACET + 0.05 A3O2 + 0.18 B3O2 + 0.13 RCHO + 0.32 ALD2 ... etc. ', &
|
||||
' R4O2 + NO --> R4N2 ', &
|
||||
' R4N1 + NO --> 0.57 RCHO + 0.39 CH2O + 0.75 ALD2 + 0.3 R4O2 + 2 NO2 ... etc. ', &
|
||||
' ATO2 + NO --> 0.96 CH2O + 0.04 R4N2 + 0.96 NO2 + 0.96 MCO3 ', &
|
||||
' KO2 + NO --> 0.93 ALD2 + 0.07 R4N2 + 0.93 NO2 + 0.93 MCO3 ', &
|
||||
' RIO2 + NO --> 0.1 HNO3 + 0.34 IALD + 0.56 CH2O + 0.34 MVK + 0.22 MACR ... etc. ', &
|
||||
' RIO2 + NO --> HNO3 ', &
|
||||
' RIO1 + NO --> IALD + 0.75 CH2O + NO2 + HO2 ', &
|
||||
' RIO1 + NO --> HNO3 ', &
|
||||
' IAO2 + NO --> 0.61 CO + 0.24 GLYC + 0.08 HNO3 + 0.33 HAC + 0.35 CH2O ... etc. ', &
|
||||
' ISN1 + NO --> 0.95 GLYC + 0.05 HNO3 + 0.95 HAC + 1.95 NO2 + 0.05 HO2 ... etc. ' /)
|
||||
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_2 = (/ &
|
||||
' VRO2 + NO --> 0.72 GLYC + 0.28 CH2O + 0.28 MGLY + NO2 + 0.28 HO2 + 0.72 MCO3 ... etc. ', &
|
||||
' VRO2 + NO --> HNO3 ', &
|
||||
' MRO2 + NO --> HAC + CH2O + NO2 + HO2 ', &
|
||||
' MRO2 + NO --> HNO3 ', &
|
||||
' MVN2 + NO --> 0.6 GLYC + 0.1 HNO3 + 0.3 CH2O + 0.3 MGLY + 1.9 NO2 ... etc. ', &
|
||||
' MAN2 + NO --> CH2O + MGLY + 2 NO2 ', &
|
||||
' B3O2 + NO --> ACET + NO2 + HO2 ', &
|
||||
' INO2 + NO --> 0.85 HNO3 + 0.15 CH2O + 0.05 MVK + 0.1 MACR + 1.15 NO2 ... etc. ', &
|
||||
' PRN1 + NO --> CH2O + ALD2 + 2 NO2 ', &
|
||||
' ALK4 + NO3 --> HNO3 + R4O2 ', &
|
||||
' R4N2 + OH --> R4N1 + H2O ', &
|
||||
' OH + ACTA --> CO2 + MO2 + H2O ', &
|
||||
' RCHO + OH --> RCO3 + H2O ', &
|
||||
' RCO3 + NO2 --> PPN ', &
|
||||
' PPN --> RCO3 + NO2 ', &
|
||||
' NO2 + GCO3 --> GPAN ', &
|
||||
' GPAN --> NO2 + GCO3 ', &
|
||||
' MAO3 + NO2 --> PMN ', &
|
||||
' PMN --> MAO3 + NO2 ', &
|
||||
' NO2 + GLCO3 --> GLPAN ', &
|
||||
' GLPAN --> NO2 + GLCO3 ', &
|
||||
' RCO3 + NO --> ETO2 + NO2 ', &
|
||||
' NO + GCO3 --> CH2O + NO2 + HO2 ', &
|
||||
' MAO3 + NO --> CH2O + NO2 + MCO3 ', &
|
||||
' NO + GLCO3 --> CO + NO2 + HO2 ', &
|
||||
' RCHO + NO3 --> HNO3 + RCO3 ', &
|
||||
' ACET + OH --> ATO2 + H2O ', &
|
||||
' ACET + OH --> ATO2 + H2O ', &
|
||||
' A3O2 + MO2 --> 0.75 RCHO + 0.75 CH2O + HO2 + 0.25 MOH + 0.25 ROH ', &
|
||||
' PO2 + MO2 --> 0.16 HAC + 0.09 RCHO + 1.25 CH2O + 0.5 ALD2 + HO2 + 0.25 MOH ... etc. ' /)
|
||||
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_3 = (/ &
|
||||
' R4O2 + HO2 --> R4P ', &
|
||||
' R4N1 + HO2 --> R4N2 ', &
|
||||
' ATO2 + HO2 --> MCO3 + MO2 ', &
|
||||
' KO2 + HO2 --> MGLY + MO2 ', &
|
||||
' RIO2 + HO2 --> RIP ', &
|
||||
' RIO1 + HO2 --> RIP ', &
|
||||
' IAO2 + HO2 --> IAP ', &
|
||||
' ISN1 + HO2 --> ISNP ', &
|
||||
' VRO2 + HO2 --> VRP ', &
|
||||
' MRO2 + HO2 --> MRP ', &
|
||||
' MVN2 + HO2 --> ISNP ', &
|
||||
' MAN2 + HO2 --> ISNP ', &
|
||||
' B3O2 + HO2 --> RB3P ', &
|
||||
' INO2 + HO2 --> INPN ', &
|
||||
' PRN1 + HO2 --> PRPN ', &
|
||||
' MEK + OH --> KO2 + H2O ', &
|
||||
' ETO2 + MO2 --> 0.75 CH2O + 0.75 ALD2 + HO2 + 0.25 EOH + 0.25 MOH ', &
|
||||
' MEK + NO3 --> HNO3 + KO2 ', &
|
||||
' R4O2 + MO2 --> 0.16 ACET + 0.03 A3O2 + 0.09 B3O2 + 0.07 RCHO + 0.75 CH2O ... etc. ', &
|
||||
' R4N1 + MO2 --> 0.54 RCHO + 0.95 CH2O + 0.38 ALD2 + 0.15 R4O2 + NO2 ... etc. ', &
|
||||
' ATO2 + MO2 --> 0.2 HAC + 0.5 CH2O + 0.5 MGLY + 0.3 HO2 + 0.3 MCO3 + 0.5 MOH ... etc. ', &
|
||||
' KO2 + MO2 --> 0.75 CH2O + 0.5 ALD2 + 0.25 MEK + 0.5 HO2 + 0.5 MCO3 ... etc. ', &
|
||||
' RIO2 + MO2 --> 0.07 RIO1 + 0.06 IALD + 1.1 CH2O + 0.25 MEK + 0.2 MVK ... etc. ', &
|
||||
' RIO1 + MO2 --> 0.5 IALD + 1.13 CH2O + 0.25 MEK + HO2 + 0.25 MOH + 0.25 ROH ... etc. ', &
|
||||
' IAO2 + MO2 --> 0.33 CO + 0.13 GLYC + 0.18 HAC + 0.95 CH2O + 0.29 MGLY ... etc. ', &
|
||||
' ISN1 + MO2 --> 0.5 GLYC + 0.5 HAC + 0.25 RCHO + 0.75 CH2O + NO2 + 0.5 HO2 ... etc. ', &
|
||||
' VRO2 + MO2 --> 0.36 GLYC + 0.89 CH2O + 0.14 MGLY + 0.25 MEK + 0.64 HO2 ... etc. ', &
|
||||
' MRO2 + MO2 --> 0.15 CO + HAC + 0.85 CH2O + 1.15 HO2 ', &
|
||||
' MVN2 + MO2 --> 0.25 RCHO + 1.25 CH2O + 0.25 MGLY + NO2 + 0.75 HO2 + 0.25 MCO3 ... etc. ', &
|
||||
' MAN2 + MO2 --> 0.25 RCHO + 1.25 CH2O + 0.5 MGLY + NO2 + 0.5 HO2 + 0.25 MOH ... etc. ' /)
|
||||
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_4 = (/ &
|
||||
' B3O2 + MO2 --> 0.75 ACET + 0.75 CH2O + HO2 + 0.25 MOH + 0.25 ROH ', &
|
||||
' INO2 + MO2 --> 0.425 HNO3 + 0.25 RCHO + 0.83 CH2O + 0.03 MVK + 0.05 MACR ... etc. ', &
|
||||
' PRN1 + MO2 --> 0.25 RCHO + 1.25 CH2O + 0.5 ALD2 + NO2 + 0.5 HO2 + 0.25 MOH ... etc. ', &
|
||||
' OH + EOH --> ALD2 + HO2 ', &
|
||||
' OH + ROH --> RCHO + HO2 ', &
|
||||
' 2 ETO2 --> 2 ALD2 + 2 HO2 ', &
|
||||
' 2 ETO2 --> ALD2 + EOH ', &
|
||||
' ETO2 + HO2 --> ETP ', &
|
||||
' A3O2 + HO2 --> RA3P ', &
|
||||
' PO2 + HO2 --> PP ', &
|
||||
' HO2 + MCO3 --> 0.41 MAP + 0.44 OH + 0.15 O3 + 0.44 MO2 + 0.15 ACTA ... etc. ', &
|
||||
' RCO3 + HO2 --> 0.7 RP + 0.3 O3 + 0.3 RCOOH ', &
|
||||
' HO2 + GCO3 --> 0.71 GP + 0.29 CH2O + 0.29 O3 ', &
|
||||
' MAO3 + HO2 --> 0.7 MAOP + 0.3 O3 + 0.3 RCOOH ', &
|
||||
' HO2 + GLCO3 --> 0.3 O3 + 0.7 GLP + 0.3 RCOOH ', &
|
||||
' PRPE + OH --> PO2 ', &
|
||||
' PRPE + O3 --> 0.42 CO + 0.535 CH2O + 0.5 ALD2 + 0.135 OH + 0.3 HO2 ... etc. ', &
|
||||
' PMN + OH --> 0.59 HAC + 2.23 CH2O + NO2 + 2 HO2 ', &
|
||||
' PMN + O3 --> 0.6 CH2O + NO2 + HO2 ', &
|
||||
' GLYC + OH --> 0.4 CO + 0.2 HO2 + 0.8 GCO3 + 0.2 H2 ', &
|
||||
' PRPE + NO3 --> PRN1 ', &
|
||||
' OH + GLYX --> 2 CO + HO2 ', &
|
||||
' MGLY + OH --> CO + MCO3 ', &
|
||||
' NO3 + GLYX --> 2 CO + HNO3 + HO2 ', &
|
||||
' MGLY + NO3 --> CO + HNO3 + MCO3 ', &
|
||||
' ISOP + OH --> LISOPOH + RIO2 ', &
|
||||
' MVK + OH --> VRO2 ', &
|
||||
' MACR + OH --> 0.43 MRO2 + 0.57 MAO3 ', &
|
||||
' HAC + OH --> MGLY + HO2 ', &
|
||||
' A3O2 + MCO3 --> RCHO + HO2 + MO2 ' /)
|
||||
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_5 = (/ &
|
||||
' PO2 + MCO3 --> CH2O + ALD2 + HO2 + MO2 ', &
|
||||
' A3O2 + MCO3 --> RCHO + ACTA ', &
|
||||
' PO2 + MCO3 --> 0.65 HAC + 0.35 RCHO + ACTA ', &
|
||||
' ISOP + O3 --> 0.15 CO2 + 0.05 CO + 0.07 PRPE + 0.9 CH2O + 0.159 MVK ... etc. ', &
|
||||
' MVK + O3 --> 0.05 CO + 0.8 CH2O + 0.04 ALD2 + 0.82 MGLY + 0.08 OH ... etc. ', &
|
||||
' MACR + O3 --> 0.16 CO2 + 0.2 CO + 0.7 CH2O + 0.8 MGLY + 0.215 OH + 0.275 HO2 ... etc. ', &
|
||||
' ISOP + NO3 --> INO2 ', &
|
||||
' MACR + NO3 --> MAN2 ', &
|
||||
' MACR + NO3 --> HNO3 + MAO3 ', &
|
||||
' RCO3 + MO2 --> CH2O + ETO2 + HO2 ', &
|
||||
' GCO3 + MO2 --> 2 CH2O + 2 HO2 ', &
|
||||
' MAO3 + MO2 --> 2 CH2O + HO2 + MCO3 ', &
|
||||
' MO2 + GLCO3 --> CO + CH2O + 2 HO2 ', &
|
||||
' RCO3 + MO2 --> CH2O + RCOOH ', &
|
||||
' GCO3 + MO2 --> CH2O + RCOOH ', &
|
||||
' MAO3 + MO2 --> CH2O + RCOOH ', &
|
||||
' MO2 + GLCO3 --> CH2O + RCOOH ', &
|
||||
' INPN + OH --> INO2 ', &
|
||||
' PRPN + OH --> PRN1 ', &
|
||||
' ETP + OH --> 0.5 ALD2 + 0.5 ETO2 + 0.5 OH ', &
|
||||
' RA3P + OH --> 0.5 A3O2 + 0.5 RCHO + 0.5 OH ', &
|
||||
' RB3P + OH --> 0.5 ACET + 0.5 B3O2 + 0.5 OH ', &
|
||||
' R4P + OH --> 0.5 RCHO + 0.5 R4O2 + 0.5 OH ', &
|
||||
' RP + OH --> 0.5 ALD2 + 0.5 RCO3 + 0.5 OH ', &
|
||||
' PP + OH --> PO2 ', &
|
||||
' GP + OH --> GCO3 ', &
|
||||
' OH + GLP --> 0.5 CO + 0.5 OH + 0.5 GLCO3 ', &
|
||||
' RIP + OH --> 0.509 IALD + 0.491 RIO2 + 0.509 OH ', &
|
||||
' IAP + OH --> IAO2 ', &
|
||||
' ISNP + OH --> 0.5 ISN1 + 0.5 RCHO + 0.5 NO2 + 0.5 OH ' /)
|
||||
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_6 = (/ &
|
||||
' VRP + OH --> 0.5 VRO2 + 0.5 RCHO + 0.5 OH ', &
|
||||
' MRP + OH --> MRO2 ', &
|
||||
' MAOP + OH --> MAO3 ', &
|
||||
' MAP + OH --> 0.5 CH2O + 0.5 OH + 0.5 MCO3 ', &
|
||||
' C2H6 + NO3 --> HNO3 + ETO2 ', &
|
||||
' OH + MNO3 --> CH2O + NO2 ', &
|
||||
' IALD + OH --> 0.44 IAO2 + 0.41 MAO3 + 0.15 HO2 ', &
|
||||
' IALD + O3 --> 0.4 CO + 0.28 GLYC + 0.2 HAC + 0.12 CH2O + 0.6 MGLY ... etc. ', &
|
||||
' 2 MCO3 --> 2 MO2 ', &
|
||||
' MCO3 + MO2 --> CH2O + HO2 + MO2 ', &
|
||||
' MCO3 + MO2 --> CH2O + ACTA ', &
|
||||
' R4O2 + MCO3 --> 0.32 ACET + 0.05 A3O2 + 0.18 B3O2 + 0.13 RCHO + 0.32 ALD2 ... etc. ', &
|
||||
' ATO2 + MCO3 --> 0.2 CH2O + 0.8 MGLY + 0.8 HO2 + 0.2 MCO3 + MO2 ', &
|
||||
' KO2 + MCO3 --> ALD2 + MCO3 + MO2 ', &
|
||||
' RIO2 + MCO3 --> 0.136 RIO1 + 0.127 IALD + 0.69 CH2O + 0.402 MVK + 0.288 MACR ... etc. ', &
|
||||
' RIO1 + MCO3 --> IALD + 0.75 CH2O + HO2 + MO2 ', &
|
||||
' IAO2 + MCO3 --> 0.65 CO + 0.26 GLYC + 0.36 HAC + 0.4 CH2O + 0.58 MGLY ... etc. ', &
|
||||
' ISN1 + MCO3 --> GLYC + HAC + NO2 + MO2 ', &
|
||||
' VRO2 + MCO3 --> 0.72 GLYC + 0.28 CH2O + 0.28 MGLY + 0.28 HO2 + 0.72 MCO3 ... etc. ', &
|
||||
' MRO2 + MCO3 --> 0.83 CO + 0.83 HAC + 0.17 CH2O + 0.17 MGLY + HO2 + MO2 ... etc. ', &
|
||||
' B3O2 + MCO3 --> ACET + HO2 + MO2 ', &
|
||||
' R4N1 + MCO3 --> 0.57 RCHO + 0.39 CH2O + 0.75 ALD2 + 0.3 R4O2 + NO2 + MO2 ... etc. ', &
|
||||
' MVN2 + MCO3 --> CH2O + 0.5 MGLY + NO2 + 0.5 HO2 + 0.5 MCO3 + MO2 ', &
|
||||
' MAN2 + MCO3 --> CH2O + MGLY + NO2 + MO2 ', &
|
||||
' INO2 + MCO3 --> 0.85 HNO3 + 0.15 CH2O + 0.05 MVK + 0.1 MACR + 0.15 NO2 ... etc. ', &
|
||||
' PRN1 + MCO3 --> CH2O + ALD2 + NO2 + MO2 ', &
|
||||
' R4O2 + MCO3 --> MEK + ACTA ', &
|
||||
' ATO2 + MCO3 --> MEK + ACTA ', &
|
||||
' KO2 + MCO3 --> MEK + ACTA ', &
|
||||
' RIO2 + MCO3 --> MEK + ACTA ' /)
|
||||
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_7 = (/ &
|
||||
' RIO1 + MCO3 --> MEK + ACTA ', &
|
||||
' IAO2 + MCO3 --> MEK + ACTA ', &
|
||||
' VRO2 + MCO3 --> MEK + ACTA ', &
|
||||
' MRO2 + MCO3 --> MEK + ACTA ', &
|
||||
' R4N1 + MCO3 --> RCHO + NO2 + ACTA ', &
|
||||
' ISN1 + MCO3 --> RCHO + NO2 + ACTA ', &
|
||||
' MVN2 + MCO3 --> RCHO + NO2 + ACTA ', &
|
||||
' MAN2 + MCO3 --> RCHO + NO2 + ACTA ', &
|
||||
' INO2 + MCO3 --> RCHO + NO2 + ACTA ', &
|
||||
' PRN1 + MCO3 --> RCHO + NO2 + ACTA ', &
|
||||
' B3O2 + MCO3 --> ACET + ACTA ', &
|
||||
' ETO2 + MCO3 --> ALD2 + HO2 + MO2 ', &
|
||||
' ETO2 + MCO3 --> ALD2 + ACTA ', &
|
||||
' RCO3 + MCO3 --> ETO2 + MO2 ', &
|
||||
' MCO3 + GCO3 --> CH2O + HO2 + MO2 ', &
|
||||
' MAO3 + MCO3 --> CH2O + MCO3 + MO2 ', &
|
||||
'MCO3 + GLCO3 --> CO + HO2 + MO2 ', &
|
||||
' 2 NO3 --> 2 NO2 + O2 ', &
|
||||
' EMISSION --> NO ', &
|
||||
' EMISSION --> NO2 ', &
|
||||
' EMISSION --> CO ', &
|
||||
' EMISSION --> ALK4 ', &
|
||||
' EMISSION --> ISOP ', &
|
||||
' EMISSION --> ACET ', &
|
||||
' EMISSION --> PRPE ', &
|
||||
' EMISSION --> C3H8 ', &
|
||||
' EMISSION --> C2H6 ', &
|
||||
' EMISSION --> MEK ', &
|
||||
' EMISSION --> ALD2 ', &
|
||||
' EMISSION --> CH2O ' /)
|
||||
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_8 = (/ &
|
||||
' EMISSION --> O3 ', &
|
||||
' EMISSION --> HNO3 ', &
|
||||
' NO2 --> DRYNO2 + DRYDEP ', &
|
||||
' O3 --> DRYO3 + DRYDEP ', &
|
||||
' PAN --> DRYPAN + DRYDEP ', &
|
||||
' HNO3 --> DRYHNO3 + DRYDEP ', &
|
||||
' CH2O --> DRYCH2O + DRYDEP ', &
|
||||
' N2O5 --> DRYN2O5 + DRYDEP ', &
|
||||
' H2O2 --> DRYH2O2 + DRYDEP ', &
|
||||
' PMN --> DRYPMN + DRYDEP ', &
|
||||
' PPN --> DRYPPN + DRYDEP ', &
|
||||
' R4N2 --> DRYR4N2 + DRYDEP ', &
|
||||
' HO2 --> 0.5 H2O2 ', &
|
||||
' NO2 --> 0.5 HNO2 + 0.5 HNO3 ', &
|
||||
' NO3 --> HNO3 ', &
|
||||
' N2O5 --> 2 HNO3 ', &
|
||||
' DMS + OH --> SO2 + CH2O + MO2 ', &
|
||||
' DMS + OH --> 0.25 MSA + 0.75 SO2 + MO2 ', &
|
||||
' DMS + NO3 --> SO2 + HNO3 + CH2O + MO2 ', &
|
||||
' SO2 + OH --> SO4 + HO2 ', &
|
||||
' O3 --> 2 OH ', &
|
||||
' NO2 --> NO + O3 ', &
|
||||
' H2O2 --> 2 OH ', &
|
||||
' MP --> CH2O + OH + HO2 ', &
|
||||
' CH2O --> CO + 2 HO2 ', &
|
||||
' CH2O --> CO + H2 ', &
|
||||
' HNO3 --> NO2 + OH ', &
|
||||
' HNO2 --> OH + NO ', &
|
||||
' HNO4 --> OH + NO3 ', &
|
||||
' NO3 --> NO2 + O3 ' /)
|
||||
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_9 = (/ &
|
||||
' NO3 --> NO + O2 ', &
|
||||
' N2O5 --> NO2 + NO3 ', &
|
||||
' N2O5 --> NO + NO3 + O3 ', &
|
||||
' HNO4 --> NO2 + HO2 ', &
|
||||
' ALD2 --> CO + HO2 + MO2 ', &
|
||||
' ALD2 --> CO + CH4 ', &
|
||||
' PAN --> 0.6 NO2 + 0.6 MCO3 + 0.4 NO3 + 0.4 MO2 ', &
|
||||
' RCHO --> CO + ETO2 + HO2 ', &
|
||||
' ACET --> MCO3 + MO2 ', &
|
||||
' ACET --> CO + 2 MO2 ', &
|
||||
' MEK --> 0.85 ETO2 + 0.15 RCO3 + 0.85 MCO3 + 0.15 MO2 ', &
|
||||
' MNO3 --> CH2O + NO2 + H2O ', &
|
||||
' GLYC --> CO + CH2O + 2 HO2 ', &
|
||||
' GLYX --> 1.5 CO + 0.5 CH2O + 0.5 H2 ', &
|
||||
' GLYX --> 2 CO + 2 HO2 ', &
|
||||
' MGLY --> CO + HO2 + MCO3 ', &
|
||||
' MGLY --> CO + ALD2 ', &
|
||||
' MVK --> CO + PRPE ', &
|
||||
' MVK --> CO + CH2O + HO2 + MCO3 ', &
|
||||
' MVK --> MAO3 + MO2 ', &
|
||||
' MACR --> MAO3 + HO2 ', &
|
||||
' MACR --> CO + CH2O + HO2 + MCO3 ', &
|
||||
' HAC --> CH2O + HO2 + MCO3 ', &
|
||||
' INPN --> RCHO + NO2 + OH + HO2 ', &
|
||||
' PRPN --> RCHO + NO2 + OH + HO2 ', &
|
||||
' ETP --> ALD2 + OH + HO2 ', &
|
||||
' RA3P --> RCHO + OH + HO2 ', &
|
||||
' RB3P --> ACET + OH + HO2 ', &
|
||||
' R4P --> RCHO + OH + HO2 ', &
|
||||
' PP --> CH2O + ALD2 + OH + HO2 ' /)
|
||||
CHARACTER(LEN=100), PARAMETER, DIMENSION(11) :: EQN_NAMES_10 = (/ &
|
||||
' RP --> ALD2 + OH + HO2 ', &
|
||||
' GP --> CH2O + OH + HO2 ', &
|
||||
' GLP --> CO + OH + HO2 ', &
|
||||
' RIP --> 0.373 IALD + 0.627 CH2O + 0.368 MVK + 0.259 MACR + OH ... etc. ', &
|
||||
' IAP --> 0.67 CO + 0.26 GLYC + 0.36 HAC + 0.58 MGLY + OH + HO2 ... etc. ', &
|
||||
' ISNP --> RCHO + NO2 + OH + HO2 ', &
|
||||
' VRP --> 0.7 GLYC + 0.3 CH2O + 0.3 MGLY + OH + 0.3 HO2 + 0.7 MCO3 ... etc. ', &
|
||||
' MRP --> 0.5 CO + HAC + 0.5 CH2O + OH + HO2 ', &
|
||||
' MAOP --> CH2O + OH + MCO3 ', &
|
||||
' R4N2 --> 0.32 ACET + 0.05 A3O2 + 0.18 B3O2 + 0.13 RCHO + 0.32 ALD2 ... etc. ', &
|
||||
' MAP --> OH + MO2 ' /)
|
||||
CHARACTER(LEN=100), PARAMETER, DIMENSION(311) :: EQN_NAMES = (/&
|
||||
EQN_NAMES_0, EQN_NAMES_1, EQN_NAMES_2, EQN_NAMES_3, EQN_NAMES_4, &
|
||||
EQN_NAMES_5, EQN_NAMES_6, EQN_NAMES_7, EQN_NAMES_8, EQN_NAMES_9, &
|
||||
EQN_NAMES_10 /)
|
||||
|
||||
! INLINED global variables
|
||||
|
||||
! End INLINED global variables
|
||||
|
||||
|
||||
END MODULE gckpp_adj_Monitor
|
||||
Reference in New Issue
Block a user