From 646cff7de6402197dcb80c75f758ec68f8246e17 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Mon, 25 Feb 2019 12:04:12 +0100
Subject: [PATCH] Quentin 25/02/2019: correction in chemistry: cancel of
previous commit : no need of change BASIC.f90 related to MEGAN emission
scheme (one BASIC.f90 by RELACS scheme. The default RELACS scheme in MNH is
still the same)
---
.../009_ICARTT/003_mesonh/ReLACS_poet.nam | 27 +-
src/MNH/BASIC.f90 | 119535 ++++-----------
2 files changed, 27017 insertions(+), 92545 deletions(-)
diff --git a/MY_RUN/KTEST/009_ICARTT/003_mesonh/ReLACS_poet.nam b/MY_RUN/KTEST/009_ICARTT/003_mesonh/ReLACS_poet.nam
index 915324567..95e3e203b 100644
--- a/MY_RUN/KTEST/009_ICARTT/003_mesonh/ReLACS_poet.nam
+++ b/MY_RUN/KTEST/009_ICARTT/003_mesonh/ReLACS_poet.nam
@@ -25,7 +25,7 @@ different norm-profile
===================================================================
NORMINIT
-!initial values (units are par per part = MIX)
+initial values (units are par per part = MIX)
MIX
37
(1X,A12,1X,E17.2)
@@ -120,9 +120,9 @@ norm-profiles to be associated
SURF_RES
surface resistances (s/m), refer to Seinfeld and Pandis, 1998, p. 975, Tab.19.2
-1
-(1X,A12,1X,F5.0)
-'NONE ' 0.0
+ 1
+(A32,2E15.5)
+NONE 0.0
=====================================================================
*** the following section will be read by ch_init_depconst.F90 ***
@@ -281,8 +281,6 @@ CON
================================================================
*** the following section will be read by build_pronoslistn.F90 ***
*** <called by ch_init_emissionn.F90> ***
-* Format: Nom espece pronostic Meso-NH - Facteur Aggregation - NOM ESPECE EMISE
-* expl: NO (espece Meso-NH) 0.70 (facteur aggregation) ANOX (espece emise PGD)
================================================================
AGREGATION
@@ -293,14 +291,11 @@ CO 1. COBB 1. COBIO 1. COAN
NO 0.7 NOXBB 0.7 NOXAN
NO2 0.3 NOXBB 0.3 NOXAN
HCHO 1. CH2OBB 1. CH2OAN
-BIOL 1. ISOPBIO 1. TERPBIO
-BIOH 1. ISOPBIO 1. TERPBIO
-ETHE 1. C2H6BB 1. C2H6BIO 1. C2H6AN
-AROH 1. TOLUBB 1. TOLUAN
-AROL 1. TOLUBB 1. TOLUAN
-AROO 1. TOLUBB 1. TOLUAN
-ALD2 1. CH3CHOBB 1. CH3CHOAN
-KETL 0.33 ACETBB 0.33 ACETBIO 0.33 ACETAN 1.61 MEKBB 1.61 MEKAN
-KETH 0.33 ACETBB 0.33 ACETBIO 0.33 ACETAN 1.61 MEKBB 1.61 MEKAN
-
+BIO 1. ISOPBIO 1. TERPBIO
+ETH 1. C2H6BB 1. C2H6BIO 1. C2H6AN
+ARO 1. TOLUBB 1. TOLUAN
+ALD 1. CH3CHOBB 1. CH3CHOAN
+KET 0.33 ACETBB 0.33 ACETBIO 0.33 ACETAN 1.61 MEKBB 1.61 MEKAN
+ALKE 0.96 C2H4BB 0.96 C2H4BIO 0.96 C2H4AN 1.04 C3H6BB 1.04 C3H6BIO 1.04 C3H6AN 1.04 BUTEBB 1.04 BUTEAN
+ALKA 0.44 C3H8BB 0.44 C3H8BIO 0.44 C3H8AN 0.38 CH3OHBB 0.38 CH3OHBIO 0.38 CH3OHAN 1. BUTABB 1. BUTAAN 1. C2H5OHBB 1. C2H5OHAN
END_AGREGATION
diff --git a/src/MNH/BASIC.f90 b/src/MNH/BASIC.f90
index 4ba875fab..854c2bc06 100755
--- a/src/MNH/BASIC.f90
+++ b/src/MNH/BASIC.f90
@@ -4,77 +4,13 @@
! The following species appear on the left hand side of a reaction,
! but they are not in the list of prognostic variables. Make sure that
! they are defined elsewhere (in begin_module as TPK%something):
-! RO250
-! RO251
-! RO252
-! RO253
-! RO254
-! RO255
-! RO256
-! RO220
-! RO257
-! RO221
-! RO258
-! OSD
+! H2
+! O1D
! W_O2
-! RO222
-! RO223
-! RO224
-! RO225
-! RO226
-! RO227
-! RO228
-! RO229
-! N2
-! RO240
-! CH4
+! O3P
! H2O
-! RO241
-! RO242
-! RO243
-! RO244
-! RO245
-! RO246
-! RO247
-! RO210
-! RO211
-! RO248
-! O
-! RO249
-! RO212
-! RO213
-! RO22
-! RO214
-! RO23
-! RO215
-! RO24
-! RO216
-! RAD1
-! RO217
-! RO26
-! RAD2
! CO2
-! RO218
-! RO27
-! RAD3
-! RO219
-! RO28
-! RAD4
-! RO29
-! RAD5
-! RAD6
-! RO230
-! RAD7
-! RAD8
-! RO231
-! RO232
-! RO233
-! RO234
-! RO235
-! RO236
-! RO237
-! RO238
-! RO239
+! N2
! O2
!
!========================================================================
@@ -82,76 +18,12 @@
! The following species appear on the right hand side of a reaction,
! but they are not in the list of prognostic variables. Make sure that
! they are really final products or defined elsewhere:
-! RO250
-! RO251
-! RO252
-! RO253
-! RO254
-! RO255
-! RO256
-! RO257
-! RO220
-! RO258
-! RO221
-! OSD
-! RO222
-! RO223
-! RO224
-! RO225
-! RO226
-! RO227
-! RO228
-! RO229
-! N2
-! RO240
-! H2O
-! RO241
-! RO242
-! RO243
-! RO244
-! RO245
-! RO246
-! RO247
-! RO210
-! RO248
-! RO211
-! O
-! RO249
-! RO212
-! RO213
-! RO22
-! RO214
-! RO23
! H2
-! RO215
-! RO24
-! RAD1
-! RO216
-! RAD2
-! RO217
-! RO26
-! RAD3
-! RO218
-! RO27
+! O1D
+! O3P
+! H2O
! CO2
-! RAD4
-! RO219
-! RO28
-! RAD5
-! RO29
-! RAD6
-! RAD7
-! RO230
-! RAD8
-! RO231
-! RO232
-! RO233
-! RO234
-! RO235
-! RO236
-! RO237
-! RO238
-! RO239
+! N2
! O2
!
!========================================================================
@@ -162,371 +34,138 @@
!
! the chemical reactions implemented are the following ...
!
-! K001=!ZRATES(:,001)::NO2-->NO+O
-! K002=TPK%M*5.60E-34*(TPK%T/300)**(-2.6)::O+O2-->O3
-! K003=6.5E-12*EXP(119.8/TPK%T)::O+NO2-->NO+O2
-! K004=@TROE(1.,9.0E-32,2.,2.2E-11,0.,0.8,TPK%M,TPK%T,KVECNPT)::O+NO2-->NO3
-! K005=1.8E-12*EXP(-1368.9/TPK%T)::NO+O3-->NO2+O2
-! K006=1.4E-13*EXP(-2471.1/TPK%T)::NO2+O3-->NO3+O2
-! K007=1.8E-11*EXP(110.7/TPK%T)::NO+NO3-->2.*NO2
-! K008=5.09E-18/TPK%T*EXP(528.4/TPK%T)::NO+NO-->2.*NO2
-! K009=@TROE(1.,2.8E-30,3.5,2.0E-12,0.2,0.45,TPK%M,TPK%T,KVECNPT)::NO2+NO3-->N2O5
-! K010=@TROE_EQUIL(2.8E-30,3.5,2.0E-12,0.2,3.70E+26,11000.0,0.45,TPK%M,TPK%T,KVECNPT)::N2O5-->NO2+NO3
-! K011=2.59E-22::N2O5+H2O-->2.*HNO3
-! K012=4.5E-14*EXP(-1258.2/TPK%T)::NO2+NO3-->NO+NO2+O2
-! K013=!ZRATES(:,007)::NO3-->NO+O2
-! K014=!ZRATES(:,008)::NO3-->NO2+O
-! K015=!ZRATES(:,003)::O3-->O+O2
-! K016=!ZRATES(:,002)::O3-->OSD+O2
-! K017=2.2E-10::OSD+H2O-->OH+OH
-! K018A=1.80E-11*exp(-(-110.0/TPK%T))::OSD+N2-->O+N2
-! K018B=3.20E-11*exp(-(-70.0/TPK%T))::OSD+O2-->O+O2
-! K019=@TROE(1.,7.0E-31,2.6,3.6E-11,0.1,0.6,TPK%M,TPK%T,KVECNPT)::NO+OH-->HONO
-! K020=!ZRATES(:,004)::HONO-->0.9*NO+0.1*NO2+0.9*OH+0.1*HO2
-! K021=4.0E-24::NO2+H2O-->0.5*HONO+0.5*HNO3
-! K022=@TROE(1.,2.85E-30,2.67,3.13E-11,0.,0.6,TPK%M,TPK%T,KVECNPT)::NO2+OH-->HNO3
-! K023=@TROE_KA(7.2E-15,785.1,4.1E-16,1439.4,1.9E-33,724.7,TPK%M,TPK%T,KVECNPT)::HNO3+OH-->NO3+H2O
-! K024=@TROE_KB(1.3E-13,0.,3.19E-33,0.,TPK%M,TPK%T,KVECNPT)::CO+OH-->HO2+CO2
-! K025=1.9E-12*EXP(-1001.5/TPK%T)::O3+OH-->HO2+O2
-! K026=3.41E-12*EXP(271.8/TPK%T)::NO+HO2-->NO2+OH
-! K027=@TROE(1.,1.8E-31,3.2,4.7E-12,0.,0.6,TPK%M,TPK%T,KVECNPT)::NO2+HO2-->HNO4
-! K028=@TROE_EQUIL(1.8E-31,3.2,4.7E-12,0.,4.76E+26,10900.,0.6,TPK%M,TPK%T,KVECNPT)::HNO4-->NO2+HO2
-! K029=1.5E-12*EXP(362.4/TPK%T)::HNO4+OH-->NO2+O2+H2O
-! K030=1.4E-14*EXP(-598.9/TPK%T)::O3+HO2-->OH+2.*O2
-! K031=@TROE_KB(2.2E-13,598.9,1.85E-33,981.4,TPK%M,TPK%T,KVECNPT)::HO2+HO2-->H2O2
-! K032=@TROE_KB(3.08E-34,2798.2,2.59E-54,3180.7,TPK%M,TPK%T,KVECNPT)::HO2+HO2+H2O-->H2O2+O2+H2O
-! K033=4.0E-12::NO3+HO2-->0.8*NO2+0.2*HNO3+0.8*OH+O2
-! K034=8.0E-12*EXP(-2058.4/TPK%T)::O+O3-->2.*O2
-! K035=@TROE(1.,4.1E-31,3.3,2.0E-12,0.,0.45,TPK%M,TPK%T,KVECNPT)::SO2+OH-->H2SO4+HO2
-! K036=!ZRATES(:,009)::H2O2-->2.*OH
-! K037=2.91E-12*EXP(-161/TPK%T)::H2O2+OH-->HO2+H2O
-! K038=@TROE(1.,9.00E-32,1.5,3.00E-11,0.0,0.6,TPK%M,TPK%T,KVECNPT)::O+NO-->NO2
-! K039=2.7E-12*EXP(261.7/TPK%T)::HONO+OH-->NO2+H2O
-! K040=2.0E-11::NO3+OH-->NO2+HO2
-! K041=8.5E-13*EXP(-2450.9/TPK%T)::NO3+NO3-->2.*NO2+O2
-! K042=4.8E-11*EXP(251.6/TPK%T)::OH+HO2-->H2O+O2
-! K043=2.66E-12*EXP(-1800.2/TPK%T)::CH4+OH-->RO21+RO2T+H2O
-! K044=!ZRATES(:,011)::HCHO-->CO+2.0*HO2
-! K045=!ZRATES(:,010)::HCHO-->CO+H2
-! K046=1.2E-14*TPK%T*EXP(286.9/TPK%T)::HCHO+OH-->CO+HO2+H2O
-! K047=2.0E-12*EXP(-2430.8/TPK%T)::HCHO+NO3-->HNO3+CO+HO2
-! K048=6.0E-18*TPK%T**2*EXP(170.1/TPK%T)::MEOH+OH-->HO2+HCHO+H2O
-! K049=1.96E-12*EXP(437.8/TPK%T)::ETHE+OH-->RO22+RO2T
-! K050=4.89E-18*TPK%T**2*EXP(-2282.3/TPK%T)::ETHE+NO3-->RO23+RO2T
-! K051=9.14E-15*EXP(-2580.3/TPK%T)::ETHE+O3-->0.315*CO+0.06*HO2+0.06*OH+0.5*HCHO+0.07*H2O+0.185*ORA1
-! K052=7.3E-13::ETHE+O-->0.6*CO+HO2+0.6*RO21+0.4*RO24+RO2T
-! K053=6.18E-18*TPK%T**2*EXP(532/TPK%T)::ETOH+OH-->TPK%CF1*HO2+TPK%CF1*ALD2+TPK%CF2*RO22+TPK%CF2*RO2T+H2O
-! K054=5.86E-12*EXP(500.3/TPK%T)::OLEL+OH-->RO22+RO2T
-! K055=1.0E-13*EXP(-800.2/TPK%T)::OLEL+NO3-->RO23+RO2T
-! K056=1.0E-17::OLEL+O3-->0.56*CO+0.2*CO2+0.36*OH+0.28*HO2+0.5*HCHO+0.5*ALD2+0.1*ALKL+0.28*RO25+0.28*RO2T+0.12*ORA1+0.12*ORA2
-! K057=4.66E-12::OLEL+O-->0.5*ALKL+0.4*ALD2+0.1*RO24+0.1*RO25+0.2*RO2T
-! K058=3.91E-12::ALKL+OH-->RO25+RO2T+H2O
-! K059=!ZRATES(:,012)::ALD2-->CO+HO2+RO25+RO2T
-! K060=6.91E-12*EXP(250/TPK%T)::ALD2+OH-->RO26+RO2T+H2O
-! K061=3.0E-13*EXP(-1427/TPK%T)::ALD2+NO3-->HNO3+RO26+RO2T
-! K062=4.91E-12::KETL+OH-->RO27+RO2T+H2O
-! K063=!ZRATES(:,023)::KETL-->RO25+RO28+2.*RO2T
-! K064=2.55E-11*EXP(410.2/TPK%T)::ISOP+OH-->0.66*RO29+0.34*RO210+RO2T
-! K065=3.02E-12*EXP(-445.9/TPK%T)::ISOP+NO3-->0.66*RO211+0.34*RO212+RO2T
-! K066=7.86E-15*EXP(-1912.9/TPK%T)::ISOP+O3-->0.068*CO2+0.461*CO+0.5*HCHO+0.664*OH+0.366*HO2+0.054*OLEL+0.389*MVK+0.17*MCR+0.271*RO213+0.095*RO214+0.366*RO2T+0.121*ORA1
-! K067=3.5E-11::ISOP+O-->0.925*OLEL+0.075*ALD2
-! K068=3.2E-12::MTBE+OH-->RO215+RO2T+H2O
-! K069=1.28E-11::ALCH+OH-->RO22+RO2T+H2O
-! K070=5.1E-12::KETH+OH-->RO216+RO2T+H2O
-! K071=!ZRATES(:,016)::KETH-->RO25+RO28+2.*RO2T
-! K072=3.77E-12::AROO+NO3-->HNO3+RAD1
-! K073=2.264E-10::AROO+OH-->0.16*HO2+0.16*AROO+0.1*RO217+0.1*RO2T+0.74*RAD2+0.1*H2O
-! K074=3.47E-11::OLEH+OH-->RO218+RO2T
-! K075=3.47E-11*1.0E-13*EXP(-800.2/TPK%T)/(5.86E-12*EXP(500.3/TPK%T))::OLEH+NO3-->RO219+RO2T
-! K076=3.47E-11*1.0E-17/(5.86E-12*EXP(500.3/TPK%T))::OLEH+O3-->0.56*CO+0.2*CO2+0.36*OH+0.28*HO2+0.5*HCHO+0.5*RPR1+0.12*ACID+0.1*ALKM+0.28*RO220+0.28*RO2T
-! K077=3.47E-11*4.66E-12/(5.86E-12*EXP(500.3/TPK%T))::OLEH+O-->0.5*ALKM+0.4*RPR1+0.1*RO24+0.1*RO220+0.2*RO2T
-! K078=1.03E-11::ALKM+OH-->RO220+RO2T+H2O
-! K079=3.27E-11::AROL+OH-->0.16*HO2+0.16*AROO+0.1*RO221+0.74*RAD3+0.06*RO2T+0.06*H2O
-! K080=1.52E-11::AROH+OH-->0.16*HO2+0.16*AROO+0.84*RAD4
-! K081=1.4E-12*EXP(-1872.2/TPK%T)::ARAL+NO3-->HNO3+O3+ARAC
-! K082=1.29E-11::ARAL+OH-->0.9983609*RPRL+TPK%CF48*HO2+TPK%CF39*O3+TPK%CF39*ARAC+TPK%CF45*RO222+TPK%CF40*RAD5+TPK%CF45*RO2T+TPK%CF48*H2O
-! K083=1.1E-12::ARAC+OH-->0.16*HO2+0.1599999*URG7+0.1*RO223+0.74*RAD6+0.1*RO2T+0.1*H2O
-! K084=1.7E-10::BIOL+OH-->RO224+RO2T
-! K085=1.46E-11::BIOL+NO3-->RO225+RO2T
-! K086=2.5E-16::BIOL+O3-->0.445*CO+0.055*H2O2+0.445*HO2+0.89*OH+5.5000000E-02*URG4+0.055*RPR3+0.445*RO226+0.445*RO2T
-! K087=1.7E-10*4.66E-12/(5.86E-12*EXP(500.3/TPK%T))::BIOL+O-->0.7500000*URG10+0.2500000*URG10
-! K088=1.77E-10::BIOH+OH-->RO227+RO2T
-! K089=2.91E-11::BIOH+NO3-->RO228+RO2T
-! K090=1.4E-16::BIOH+O3-->0.445*CO+0.055*H2O2+0.89*OH+0.055*UR7+0.055*UR8+0.445*RO229+0.445*RO230+0.89*RO2T
-! K091=8.59E-11::BIOH+O-->
-! K092=7.7E-11::PAH+OH-->0.16*HO2+0.1600000*URG8+0.1*RO231+0.74*RAD7+0.1*RO2T+0.1*H2O
-! K093=1.97E-11::ALKH+OH-->RO232+RO2T+H2O
-! K094=3.41E-13*EXP(800.2/TPK%T)::RO2T+HO2-->HO2
-! K095=4.2E-12*EXP(181.2/TPK%T)::RO2T+NO-->NO
-! K096=1.0E-15::RO2T+RO2T-->RO2T
-! K097=0.9*7.7E5/TPK%T::RAD2-->RO233+RO2T
-! K098=0.9*7.7E5/TPK%T::RAD3-->RO234+RO2T
-! K099=0.9*7.7E5/TPK%T::RAD4-->RO235+RO2T
-! K100=0.9*7.7E5/TPK%T::RAD5-->RO236+RO2T
-! K101=0.9*7.7E5/TPK%T::RAD6-->RO237+RO2T
-! K102=0.9*7.7E5/TPK%T::RAD7-->RO238+RO2T
-! K103=1.7*3.0E-11::RAD1+NO2-->RPR4
-! K104=1.7*3.0E-11::RAD2+NO2-->RPR4+H2O
-! K105=1.7*3.0E-11::RAD3+NO2-->H2O
-! K106=1.7*3.0E-11::RAD4+NO2-->H2O
-! K107=1.7*3.0E-11::RAD5+NO2-->RPR5+H2O
-! K108=1.7*3.0E-11::RAD6+NO2-->0.9999993*URG7+H2O
-! K109=1.7*3.0E-11::RAD7+NO2-->1.0000000*URG8+H2O
-! K110=4.09E-12*EXP(180.2/TPK%T)::RO21+NO-->NO2+HO2+HCHO
-! K111=1.0E-15::RO21+RO2T-->HO2+HCHO+RO2T+O2
-! K112=3.41E-13*EXP(800.2/TPK%T)::RO21+HO2-->HO2+OH+HCHO
-! K113=2.45E-12*EXP(180.2/TPK%T)::RO22+NO-->NO2+HO2+HCHO+ALD2
-! K114=1.0E-15::RO22+RO2T-->HO2+HCHO+ALD2+RO2T+O2
-! K115=3.41E-13*EXP(800.2/TPK%T)::RO22+HO2-->OH+HO2+HCHO+ALD2
-! K116=2.45E-12*EXP(180.2/TPK%T)::RO23+NO-->2.*NO2+HCHO+ALD2
-! K117=1.0E-15::RO23+RO2T-->NO2+HO2+HCHO+ALD2+O2+RO2T
-! K118=3.41E-13*EXP(800.2/TPK%T)::RO23+HO2-->NO2+HO2+OH+HCHO+ALD2
-! K119=3.45E-12*EXP(180.2/TPK%T)::RO24+NO-->NO2+CO+HO2+HCHO
-! K120=1.0E-15::RO24+RO2T-->CO+HO2+HCHO+RO2T+O2
-! K121=3.41E-13*EXP(800.2/TPK%T)::RO24+HO2-->CO+HO2+OH+HCHO
-! K122=2.91E-12*EXP(180.2/TPK%T)::RO25+NO-->TPK%CF3*ALKL+TPK%CF4*NO2+TPK%CF4*HO2+TPK%CF4*ALD2
-! K123=1.0E-15::RO25+RO2T-->HO2+ALD2+RO2T+O2
-! K124=3.41E-13*EXP(800.2/TPK%T)::RO25+HO2-->HO2+OH+ALD2
-! K125=1.11E-11*EXP(180.2/TPK%T)::RO26+NO-->NO2+CO2+RO25+RO2T
-! K126=@TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECNPT)::RO26+NO2-->PAN1
-! K127=@TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECNPT)::RO28+NO2-->PAN2
-! K128=@TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECNPT)::RO239+NO2-->PAN3
-! K129=@TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECNPT)::RO248+NO2-->PAN4
-! K130=@TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECNPT)::RO250+NO2-->APAN
-! K131=@TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECNPT)::RO254+NO2-->PAN6
-! K132=@TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECNPT)::RO255+NO2-->PAN7
-! K133=@TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECNPT)::RO257+NO2-->APAN
-! K134=@TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECNPT)::RO258+NO2-->PN10
-! K135=@TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.6,TPK%M,TPK%T,KVECNPT)::PAN1-->NO2+RO26+RO2T
-! K136=@TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.6,TPK%M,TPK%T,KVECNPT)::PAN2-->NO2+RO28+RO2T
-! K137=@TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.6,TPK%M,TPK%T,KVECNPT)::PAN3-->NO2+RO239+RO2T
-! K138=@TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.6,TPK%M,TPK%T,KVECNPT)::PN10-->NO2+RO258+RO2T
-! K139=@TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.6,TPK%M,TPK%T,KVECNPT)::APAN-->1.0000000*NO2+0.3750353*RO250+0.6249651*RO257+1.0000000*RO2T
-! K140=@TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.6,TPK%M,TPK%T,KVECNPT)::PAN6-->NO2+RO254+RO2T
-! K141=@TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.6,TPK%M,TPK%T,KVECNPT)::PAN4-->NO2+RO248+RO2T
-! K142=3.41E-13*EXP(800.2/TPK%T)/3.5::RO26+HO2-->O3+ACID+ORA2
-! K143=1.0E-15::RO26+RO2T-->CO2+RO25+2.*RO2T+O2
-! K144=2.45E-12*EXP(180.2/TPK%T)::RO27+NO-->NO2+ALD2+RO28+RO2T
-! K145=1.0E-15::RO27+RO2T-->ALD2+RO28+2.*RO2T+O2
-! K146=3.41E-13*EXP(800.2/TPK%T)::RO27+HO2-->OH+ALD2+RO28+RO2T
-! K147=1.11E-11*EXP(180.2/TPK%T)::RO28+NO-->NO2+CO2+RO21+RO2T
-! K148=3.41E-13*EXP(800.2/TPK%T)/3.5::RO28+HO2-->O3+ORA2
-! K149=1.0E-15::RO28+RO2T-->CO2+RO21+2.*RO2T+O2
-! K150=2.08E-12*EXP(180.2/TPK%T)::RO29+NO-->TPK%CF5*OLEL+TPK%CF6*NO2+TPK%CF6*HO2+TPK%CF6*HCHO+TPK%CF6*MVK
-! K151=1.0E-15::RO29+RO2T-->HO2+MVK+HCHO+RO2T+O2
-! K152=3.41E-13*EXP(800.2/TPK%T)::RO29+HO2-->HO2+OH+MVK+HCHO
-! K153=2.08E-12*EXP(180.2/TPK%T)::RO210+NO-->NO2+HO2+HCHO+MCR
-! K154=1.0E-15::RO210+RO2T-->HO2+HCHO+MCR+RO2T+O2
-! K155=3.41E-13*EXP(800.2/TPK%T)::RO210+HO2-->HO2+OH+HCHO+MCR
-! K156=2.08E-12*EXP(180.2/TPK%T)::RO211+NO-->2.*NO2+HCHO+MVK
-! K157=1.0E-15::RO211+RO2T-->NO2+HCHO+MVK+RO2T+O2
-! K158=3.41E-13*EXP(800.2/TPK%T)::RO211+HO2-->NO2+OH+HCHO+MVK
-! K159=2.08E-12*EXP(180.2/TPK%T)::RO212+NO-->2.*NO2+HCHO+MCR
-! K160=1.0E-15::RO212+RO2T-->NO2+HCHO+MCR+RO2T+O2
-! K161=3.41E-13*EXP(800.2/TPK%T)::RO212+HO2-->NO2+OH+HCHO+MCR
-! K162=2.45E-12*EXP(180.2/TPK%T)::RO213+NO-->NO2+HCHO+RO239+RO2T
-! K163=1.0E-15::RO213+RO2T-->HCHO+RO239+2.*RO2T+O2
-! K164=3.41E-13*EXP(800.2/TPK%T)::RO213+HO2-->HCHO+OH+RO239+RO2T
-! K165=1.11E-11*EXP(180.2/TPK%T)::RO239+NO-->NO2+CO2+RO214+RO2T
-! K166=3.41E-13*EXP(800.2/TPK%T)/3.5::RO239+HO2-->O3+0.5*OLEL+0.5*ORA2
-! K167=1.0E-15::RO239+RO2T-->CO2+RO214+2.*RO2T+O2
-! K168=2.91E-12*EXP(180.2/TPK%T)::RO214+NO-->TPK%CF7*OLEL+TPK%CF8*NO2+TPK%CF8*RO27+TPK%CF8*RO2T
-! K169=1.0E-15::RO214+RO2T-->RO27+2.*RO2T+O2
-! K170=3.41E-13*EXP(800.2/TPK%T)::RO214+HO2-->OH+RO27+RO2T
-! K171=2.08E-12*EXP(180.2/TPK%T)::RO215+NO-->NO2+HO2+TPK%CF9*ALD2+TPK%CF10*HCHO+TPK%CF11*KETL+TPK%CF12*ALKL
-! K172=1.0E-15::RO215+RO2T-->HO2+TPK%CF13*ALD2+TPK%CF14*HCHO+TPK%CF15*KETL+TPK%CF16*ALKL+RO2T+O2
-! K173=3.41E-13*EXP(800.2/TPK%T)::RO215+HO2-->OH+HO2+TPK%CF13*ALD2+TPK%CF14*HCHO+TPK%CF15*KETL+TPK%CF16*ALKL
-! K174=1.48E-12*EXP(180.2/TPK%T)::RO216+NO-->NO2+ALD2+RO28+RO2T
-! K175=1.0E-15::RO216+RO2T-->ALD2+RO28+2.*RO2T+O2
-! K176=3.41E-13*EXP(800.2/TPK%T)::RO216+HO2-->OH+ALD2+RO28+RO2T
-! K177=1.25E-12*EXP(180.2/TPK%T)::RO217+NO-->TPK%CF21*URG6+TPK%CF22*NO2+TPK%CF22*HO2+TPK%CFA2*RPRL
-! K178=1.0E-15::RO217+RO2T-->HO2+0.9983609*RPRL+RO2T+O2
-! K179=3.41E-13*EXP(800.2/TPK%T)::RO217+HO2-->HO2+OH+0.9983609*RPRL
-! K180=1.25E-12*EXP(180.2/TPK%T)::RO218+NO-->TPK%CF20*NO2+TPK%CF20*HO2
-! K181=1.0E-15::RO218+RO2T-->HO2+RO2T+O2
-! K182=3.41E-13*EXP(800.2/TPK%T)::RO218+HO2-->HO2+OH
-! K183=1.05E-12*EXP(180.2/TPK%T)::RO219+NO-->2.*NO2+HCHO+RPR1
-! K184=1.0E-15::RO219+RO2T-->NO2+HCHO+RPR1+RO2T+O2
-! K185=3.41E-13*EXP(800.2/TPK%T)::RO219+HO2-->NO2+OH+HCHO+RPR1
-! K186=1.25E-12*EXP(180.2/TPK%T)::RO220+NO-->TPK%CF18*NO2+TPK%CF18*RO218+TPK%CF18*RO2T
-! K187=1.0E-15::RO220+RO2T-->RO218+2.*RO2T+O2
-! K188=3.41E-13*EXP(800.2/TPK%T)::RO220+HO2-->OH+RO218+RO2T
-! K189=1.05E-12*EXP(180.2/TPK%T)::RO221+NO-->TPK%CF24*NO2+TPK%CF24*HO2+TPK%CF24*ARAL
-! K190=1.0E-15::RO221+RO2T-->HO2+ARAL+RO2T+O2
-! K191=3.41E-13*EXP(800.2/TPK%T)::RO221+HO2-->HO2+OH+ARAL
-! K192=1.25E-12*EXP(180.2/TPK%T)::RO222+NO-->TPK%CF42*NO2+TPK%CF42*HO2+TPK%CFA7*RPRL
-! K193=1.0E-15::RO222+RO2T-->HO2+0.9983609*RPRL+RO2T+O2
-! K194=3.41E-13*EXP(800.2/TPK%T)::RO222+HO2-->HO2+OH+0.9983609*RPRL
-! K195=1.25E-12*EXP(180.2/TPK%T)::RO223+NO-->TPK%CF43*URG6+TPK%CF44*NO2+TPK%CF44*HO2+TPK%CF44*RPR7
-! K196=1.0E-15::RO223+RO2T-->HO2+RPR7+RO2T+O2
-! K197=3.41E-13*EXP(800.2/TPK%T)::RO223+HO2-->HO2+OH+RPR7
-! K198=8.89E-13*EXP(180.2/TPK%T)::RO224+NO-->TPK%CFA23*AP7+TPK%CFA10*RPR3+TPK%CF26*NO2+TPK%CF26*HO2
-! K199=1.0E-15::RO224+RO2T-->HO2+RPR3+RO2T+O2
-! K200=3.41E-13*EXP(800.2/TPK%T)::RO224+HO2-->HO2+OH+RPR3
-! K201=8.89E-13*EXP(180.2/TPK%T)::RO225+NO-->2.*NO2+RPR3
-! K202=1.0E-15::RO225+RO2T-->NO2+RPR3+RO2T+O2
-! K203=3.41E-13*EXP(800.2/TPK%T)::RO225+HO2-->NO2+OH+RPR3
-! K204=8.89E-13*EXP(180.2/TPK%T)::RO226+NO-->NO2+1.0000000*UR17+RO28+RO2T
-! K205=1.0E-15::RO226+RO2T-->1.0000000*UR17+RO28+2.*RO2T+O2
-! K206=3.41E-13*EXP(800.2/TPK%T)::RO226+HO2-->1.0000000*UR17+OH+RO28+RO2T
-! K207=8.89E-13*EXP(180.2/TPK%T)::RO227+NO-->TPK%CF27*URG10+TPK%CF28*NO2+TPK%CF28*HO2+TPK%CFA12*UR7
-! K208=1.0E-15::RO227+RO2T-->HO2+UR7+RO2T+O2
-! K209=3.41E-13*EXP(800.2/TPK%T)::RO227+HO2-->HO2+OH+0.3*UR7
-! K210=8.89E-13*EXP(180.2/TPK%T)::RO228+NO-->2.*NO2+0.3*UR7
-! K211=1.0E-15::RO228+RO2T-->NO2+0.3*UR7+RO2T+O2
-! K212=3.41E-13*EXP(800.2/TPK%T)::RO228+HO2-->NO2+OH+0.3*UR7
-! K213=1.05E-12*EXP(180.2/TPK%T)::RO229+NO-->TPK%CF30*NO2+TPK%CF30*RO240+TPK%CF30*RO2T
-! K214=1.0E-15::RO229+RO2T-->RO240+2.*RO2T+O2
-! K215=3.41E-13*EXP(800.2/TPK%T)::RO229+HO2-->OH+RO240+RO2T
-! K216=1.05E-12*EXP(180.2/TPK%T)::RO240+NO-->NO2+RPR8+RO28+RO2T
-! K217=1.0E-15::RO240+RO2T-->RPR8+RO28+2.*RO2T+O2
-! K218=3.41E-13*EXP(800.2/TPK%T)::RO240+HO2-->OH+RPR8+RO28+RO2T
-! K219=1.0E-15::RO230+RO2T-->RO28+2.*RO2T+O2
-! K220=3.41E-13*EXP(800.2/TPK%T)::RO230+HO2-->OH+RO28+RO2T
-! K221=6.32E-13*EXP(180.2/TPK%T)::RO231+NO-->TPK%CF31*URG8+TPK%CF32*NO2+TPK%CF32*HO2+TPK%CF32*UR19
-! K222=1.0E-15::RO231+RO2T-->HO2+UR19+RO2T+O2
-! K223=3.41E-13*EXP(800.2/TPK%T)::RO231+HO2-->HO2+OH+UR19
-! K224=3.2E-13*EXP(180.2/TPK%T)::RO232+NO-->TPK%CFA14*URG9+TPK%CF34*NO2+TPK%CF34*RO241+TPK%CF34*RO2T
-! K225=1.0E-15::RO232+RO2T-->RO241+2.*RO2T+O2
-! K226=3.41E-13*EXP(800.2/TPK%T)::RO232+HO2-->OH+RO241+RO2T
-! K227=3.2E-13*EXP(180.2/TPK%T)::RO241+NO-->TPK%CFA15*URG9+TPK%CF36*NO2+TPK%CF36*HO2+TPK%CFA16*URG9
-! K228=1.0E-15::RO241+RO2T-->HO2+0.9999996*URG9+RO2T+O2
-! K229=3.41E-13*EXP(800.2/TPK%T)::RO241+HO2-->HO2+OH+0.9999996*URG9
-! K230=1.2*1.64E+42/(TPK%T**11.4)*EXP(-9460/TPK%T)::RO233-->RO242+RO2T
-! K231=1.25E-12*EXP(180.2/TPK%T)::RO233+NO-->NO2+HO2+0.3000000*RPG3
-! K232=1.0E-15::RO233+RO2T-->HO2+1.0000000*RPG3+RO2T+O2
-! K233=3.41E-13*EXP(800.2/TPK%T)::RO233+HO2-->HO2+OH+0.3000000*RPG3
-! K234=1.25E-12*EXP(180.2/TPK%T)::RO242+NO-->NO2+HO2+RP10+MGLY
-! K235=1.0E-15::RO242+RO2T-->HO2+RP10+O2+RO2T+MGLY
-! K236=3.41E-13*EXP(800.2/TPK%T)::RO242+HO2-->HO2+OH+RP10+MGLY
-! K237=1.2*1.64E+42/(TPK%T**11.4)*EXP(-9460/TPK%T)::RO234-->RO243+RO2T
-! K238=1.05E-12*EXP(180.2/TPK%T)::RO234+NO-->NO2+HO2+0.3*RP11
-! K239=1.0E-15::RO234+RO2T-->HO2+RP11+RO2T+O2
-! K240=3.41E-13*EXP(800.2/TPK%T)::RO234+HO2-->HO2+OH+0.3*RP11
-! K241=1.05E-12*EXP(180.2/TPK%T)::RO243+NO-->NO2+HO2+RP10+MGLY
-! K242=1.0E-15::RO243+RO2T-->HO2+RP10+MGLY+O2+RO2T
-! K243=3.41E-13*EXP(800.2/TPK%T)::RO243+HO2-->HO2+OH+RP10+MGLY
-! K244=1.1*1.64E+42/(TPK%T**11.4)*EXP(-9460/TPK%T)::RO235-->RO244+RO2T
-! K245=8.89E-13*EXP(180.2/TPK%T)::RO235+NO-->NO2+HO2+0.5*RP11
-! K246=1.0E-15::RO235+RO2T-->HO2+RP11+RO2T+O2
-! K247=3.41E-13*EXP(800.2/TPK%T)::RO235+HO2-->HO2+OH+RP11
-! K248=8.89E-13*EXP(180.2/TPK%T)::RO244+NO-->NO2+HO2+RP10+MGLY
-! K249=1.0E-15::RO244+RO2T-->HO2+RP10+MGLY+O2+RO2T
-! K250=3.41E-13*EXP(800.2/TPK%T)::RO244+HO2-->HO2+OH+RP10+MGLY
-! K251=1.2*1.64E+42/(TPK%T**11.4)*EXP(-9460/TPK%T)::RO236-->RO245+RO2T
-! K252=1.25E-12*EXP(180.2/TPK%T)::RO236+NO-->NO2+HO2+0.3000000*RPG3
-! K253=1.0E-15::RO236+RO2T-->HO2+1.0000000*RPG3+RO2T+O2
-! K254=3.41E-13*EXP(800.2/TPK%T)::RO236+HO2-->HO2+OH+0.3000000*RPG3
-! K255=1.25E-12*EXP(180.2/TPK%T)::RO245+NO-->NO2+HO2+RP10+MGLY
-! K256=1.0E-15::RO245+RO2T-->HO2+RP10+MGLY+O2+RO2T
-! K257=3.41E-13*EXP(800.2/TPK%T)::RO245+HO2-->HO2+OH+RP10+MGLY
-! K258=1.2*1.64E+42/(TPK%T**11.4)*EXP(-9460/TPK%T)::RO237-->RO246+RO2T
-! K259=1.25E-12*EXP(180.2/TPK%T)::RO237+NO-->NO2+HO2+0.3000000*RPG2
-! K260=1.0E-15::RO237+RO2T-->HO2+1.0000000*RPG2+RO2T+O2
-! K261=3.41E-13*EXP(800.2/TPK%T)::RO237+HO2-->HO2+OH+0.3000000*RPG2
-! K262=1.25E-12*EXP(180.2/TPK%T)::RO246+NO-->NO2+HO2+RP10+MGLY
-! K263=1.0E-15::RO246+RO2T-->HO2+RP10+MGLY+O2+RO2T
-! K264=3.41E-13*EXP(800.2/TPK%T)::RO246+HO2-->HO2+OH+RP10+MGLY
-! K265=1.2*1.64E+42/(TPK%T**11.4)*EXP(-9460/TPK%T)::RO238-->RO247+RO2T
-! K266=6.32E-13*EXP(180.2/TPK%T)::RO238+NO-->NO2+HO2+1.0000013*RPG7
-! K267=1.0E-15::RO238+RO2T-->HO2+1.0000013*RPG7+RO2T+O2
-! K268=3.41E-13*EXP(800.2/TPK%T)::RO238+HO2-->HO2+OH+1.0000013*RPG7
-! K269=6.32E-13*EXP(180.2/TPK%T)::RO247+NO-->NO2+HO2+1.0023998*RPRL+MGLY
-! K270=1.0E-15::RO247+RO2T-->HO2+1.0023998*RPRL+MGLY+O2+RO2T
-! K271=3.41E-13*EXP(800.2/TPK%T)::RO247+HO2-->HO2+OH+1.0023998*RPRL+MGLY
-! K272=4.14E-12*EXP(452.9/TPK%T)::MVK+OH-->RO249+RO2T
-! K273=1.86E-11*EXP(176.1/TPK%T)::MCR+OH-->TPK%CF46*RO250+TPK%CF46*H2O+TPK%CF47*RO251+RO2T
-! K274=1.72E-11::MGLY+OH-->RO248+RO2T+H2O
-! K275=1.5E-12*EXP(-1726.2/TPK%T)::MCR+NO3-->TPK%CF46*HNO3+TPK%CF46*RO250+TPK%CF47*RO252+RO2T
-! K276=!ZRATES(:,019)::MGLY-->CO+HO2+RO28+RO2T
-! K277=1.11E-11*EXP(180.2/TPK%T)::RO248+NO-->NO2+CO2+RO28+RO2T
-! K278=1.4E-12*EXP(-1897.3/TPK%T)::MGLY+NO3-->HNO3+RO248+RO2T
-! K279=3.41E-13*EXP(800.2/TPK%T)/3.5::RO248+HO2-->O3+UR21
-! K280=1.0E-15::RO248+RO2T-->CO2+RO28+2.*RO2T+O2
-! K281=7.5E-16*EXP(-1519.9/TPK%T)::MVK+O3-->0.56*CO+0.2*CO2+0.28*HO2+0.36*OH+0.5*MGLY+0.5*HCHO+0.1*ALD2+0.12*ORA1+0.12*UR21+0.28*RO28+0.28*RO2T+0.2*H2O
-! K282=1.36E-15*EXP(-2113.7/TPK%T)::MCR+O3-->0.41*CO+0.41*HO2+0.82*OH+0.5*HCHO+0.59*MGLY+0.09*ORA1+0.41*RO253+0.41*RO2T
-! K283=4.32E-12::MVK+O-->0.85*KETL+0.15*RO24+0.15*RO28+0.3*RO2T
-! K284=6.34E-12::MCR+O-->0.15*CO+0.15*HO2+0.85*ALD2+0.15*RO27+0.15*RO2T
-! K285=2.45E-12*EXP(180.2/TPK%T)::RO249+NO-->NO2+HO2+MGLY+HCHO
-! K286=1.0E-15::RO249+RO2T-->HO2+MGLY+HCHO+RO2T+O2
-! K287=3.41E-13*EXP(800.2/TPK%T)::RO249+HO2-->HO2+OH+MGLY+HCHO
-! K288=1.11E-11*EXP(180.2/TPK%T)::RO250+NO-->CO2+NO2+RO214+RO2T
-! K289=3.41E-13*EXP(800.2/TPK%T)/3.5::RO250+HO2-->O3+0.5*ORA2+0.5*OLEL
-! K290=1.0E-15::RO250+RO2T-->CO2+RO214+2.*RO2T+O2
-! K291=2.45E-12*EXP(180.2/TPK%T)::RO251+NO-->NO2+HO2+HCHO+MGLY
-! K292=3.41E-13*EXP(800.2/TPK%T)::RO251+HO2-->HO2+HCHO+MGLY+RO2T+O2
-! K293=1.0E-15::RO251+RO2T-->HO2+OH+MGLY+HCHO
-! K294=2.45E-12*EXP(180.2/TPK%T)::RO252+NO-->2.*NO2+MGLY+HCHO
-! K295=3.41E-13*EXP(800.2/TPK%T)::RO252+HO2-->NO2+MGLY+HCHO+RO2T+O2
-! K296=1.0E-15::RO252+RO2T-->NO2+OH+MGLY+HCHO
-! K297=2.91E-12*EXP(180.2/TPK%T)::RO253+NO-->NO2+HCHO+RO254+RO2T
-! K298=3.41E-13*EXP(800.2/TPK%T)::RO253+HO2-->HCHO+RO254+2.*RO2T+O2
-! K299=1.0E-15::RO253+RO2T-->OH+HCHO+RO254+RO2T
-! K300=1.11E-11*EXP(180.2/TPK%T)::RO254+NO-->CO2+CO+NO2+HO2
-! K301=3.41E-13*EXP(800.2/TPK%T)/3.5::RO254+HO2-->O3+RP16
-! K302=1.0E-15::RO254+RO2T-->CO2+CO+HO2+RO2T+O2
-! K303=1.29E-11::RPR5+OH-->O3+0.9999993*URG7+H2O
-! K304=3.54E-11::RPR1+OH-->RO255+RO2T+H2O
-! K305=1.72E-11::RP16+OH-->RO258+RO2T+H2O
-! K306=1.2940467E-11::RPRL+OH-->1.0000011*H2O+1.0000011*O3+2.0714202E-03*RPR7+0.9979297*URG7
-! K307=3.0E-13*EXP(-1427/TPK%T)*3.54E-11/(6.91E-12*EXP(250/TPK%T))::RPR1+NO3-->HNO3+RO255+RO2T
-! K308=!ZRATES(:,012)::RPR1-->CO+HO2+RO220+RO2T
-! K309=1.11E-11*EXP(180.2/TPK%T)::RO255+NO-->NO2+CO2+RO220+RO2T
-! K310=3.41E-13*EXP(800.2/TPK%T)/3.5::RO255+HO2-->O3+ACID
-! K311=1.0E-15::RO255+RO2T-->CO2+RO220+2.*RO2T+O2
-! K312=4.24E-11::RPR3+OH-->RO256+RO2T+H2O
-! K313=3.0E-13*EXP(-1427/TPK%T)*4.24E-11/(6.91E-12*EXP(250/TPK%T))::RPR3+NO3-->HNO3+RO256+RO2T
-! K314=!ZRATES(:,012)::RPR3-->CO+2.*HO2
-! K315=1.11E-11*EXP(180.2/TPK%T)::RO256+NO-->NO2+CO2+HO2
-! K316=@TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECNPT)::RO256+NO2-->PAN8
-! K317=@TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.6,TPK%M,TPK%T,KVECNPT)::PAN8-->NO2+RO256+RO2T
-! K318=3.41E-13*EXP(800.2/TPK%T)/3.5::RO256+HO2-->O3+1.0000000*URG4
-! K319=1.0E-15::RO256+RO2T-->CO2+HO2+RO2T+O2
-! K320=3.77E-12::RPR4+NO3-->HNO3+RAD8
-! K321=2.30E-11*EXP(151.0/TPK%T)::RAD8+NO2-->UR22+H2O
-! K322=1.29E-11::RPR7+OH-->O3+0.9999993*URG7+H2O
-! K323=1.3918362E-10::RPG7+OH-->1.0000005*O3+1.0000005*H2O+0.5021558*RPG7+0.4978440*URG6
-! K324=1.145E-10::RPR8+OH-->RO257+RO2T+H2O
-! K325=1.098E-10::RP10+OH-->HO2+H2O
-! K326=1.964E-10::RP11+OH-->O3+0.67*UR26+H2O
-! K327=3.0E-13*EXP(-1427/TPK%T)*1.145E-10/(6.91E-12*EXP(250/TPK%T))::RPR8+NO3-->HNO3+RO257+RO2T
-! K328=!ZRATES(:,012)::RP10-->
-! K329=!ZRATES(:,012)::RPR8-->CO+HO2+RO29+RO2T
-! K330=!ZRATES(:,012)::RPR8-->HO2+RO257+RO2T
-! K331=1.11E-11*EXP(180.2/TPK%T)::RO257+NO-->NO2+CO2+RO29+RO2T
-! K332=3.41E-13*EXP(800.2/TPK%T)/3.5::RO257+HO2-->1.0000000*URG4+O3
-! K333=1.0E-15::RO257+RO2T-->CO2+RO29+2.*RO2T+O2
-! K334=2.4131647E-10::RPG3+OH-->1.0000000*O3+0.1191897*RPG2+1.0000000*H2O+0.8808107*RPG2
-! K335=2.1923330E-10::RPG2+OH-->1.0000000*O3+0.5562513*URG2+1.0000000*H2O+0.4437492*RP18
-! K337=1.97E-10::RP18+OH-->O3+URG2+H2O
-! K338=1.4E-12*EXP(-1897.3/TPK%T)::RP16+NO3-->HNO3+RO258+RO2T
-! K339=!ZRATES(:,019)::RP16-->2.*CO+OH+HO2
-! K340=1.11E-11*EXP(180.2/TPK%T)::RO258+NO-->CO+CO2+NO2+OH
-! K341=3.41E-13*EXP(800.2/TPK%T)::RO258+HO2-->O3+UR28
-! K342=1.0E-15::RO258+RO2T-->CO+CO2+OH+RO2T+O2
-! K343=@TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.6,TPK%M,TPK%T,KVECNPT)::PAN7-->NO2+RO255+RO2T
-! K344=8.89E-13*EXP(180.2/TPK%T)::RO230+NO-->NO2+RO28+RO2T
-! K345=3.30E-12*exp(-(900.0/TPK%T))::NH3+OH-->
-! K346=1.00E-40::H2SO4-->
-! K347=4.50E-13::ORA1+OH-->HO2+CO2+H2O
-! K348=6.00E-13::ORA2+OH-->
-! K349=1.20E-12::ACID+OH-->
-! K350=1.00E-40::URG2-->
-! K351=1.00E-40::URG4-->
-! K352=1.00E-40::URG6-->
-! K353=1.00E-40::URG7-->
-! K354=1.00E-40::URG8-->
-! K355=1.00E-40::URG9-->
-! K356=1.00E-40::URG10-->
-! K357=1.00E-40::UR7-->
-! K358=1.00E-40::UR8-->
-! K359=1.00E-40::UR17-->
-! K360=1.00E-40::UR19-->
-! K361=1.00E-40::UR21-->
-! K362=1.00E-40::UR22-->
-! K363=1.00E-40::UR26-->
-! K364=1.00E-40::UR28-->
-! K365=1.00E-40::AP7-->
+! K001=!ZRATES(:,001)::NO2-->O3P+NO
+! K002=!ZRATES(:,002)::O3-->O1D+O2
+! K003=!ZRATES(:,003)::O3-->O3P+O2
+! K004=!ZRATES(:,004)::HONO-->OH+NO
+! K005=!ZRATES(:,005)::HNO3-->OH+NO2
+! K006=!ZRATES(:,006)::HNO4-->0.65*HO2+0.65*NO2+0.35*OH+0.35*NO3
+! K007=!ZRATES(:,007)::NO3-->NO+O2
+! K008=!ZRATES(:,008)::NO3-->NO2+O3P
+! K009=!ZRATES(:,009)::H2O2-->OH+OH
+! K010=!ZRATES(:,010)::HCHO-->H2+CO
+! K011=!ZRATES(:,011)::HCHO-->HO2+HO2+CO
+! K012=!ZRATES(:,012)::ALD-->MO2+HO2+CO
+! K013=!ZRATES(:,013)::OP1-->HCHO+HO2+OH
+! K014=!ZRATES(:,014)::OP2-->0.96205*ALD+0.96205*HO2+0.03795*MO2+OH
+! K015=!ZRATES(:,015)::KET-->1.00000*CARBOP+1.00000*ALKAP
+! K016=!ZRATES(:,016)::CARBO-->0.06517*HCHO+0.69622*CARBOP+0.75830*HO2+0.91924*CO+0.20842*H2
+! K017=!ZRATES(:,017)::ONIT-->0.20*ALD+0.80*KET+HO2+NO2
+! K018=TPK%M*6.00E-34*(TPK%T/300)**(-2.3)::O3P+O2-->O3
+! K019=8.00E-12*exp(-(2060.0/TPK%T))::O3P+O3-->2.0*O2
+! K020=1.80E-11*exp(-(-110.0/TPK%T))::O1D+N2-->O3P+N2
+! K021=3.20E-11*exp(-(-70.0/TPK%T))::O1D+O2-->O3P+O2
+! K022=2.20E-10::O1D+H2O-->OH+OH
+! K023=1.60E-12*exp(-(940.0/TPK%T))::O3+OH-->HO2+O2
+! K024=1.10E-14*exp(-(500.0/TPK%T))::O3+HO2-->OH+2.0*O2
+! K025=4.80E-11*exp(-(-250.0/TPK%T))::OH+HO2-->H2O+O2
+! K026=2.90E-12*exp(-(160.0/TPK%T))::H2O2+OH-->HO2+H2O
+! K027=2.3E-13*EXP(600./TPK%T)+1.7E-33*TPK%M*EXP(1000./TPK%T)::HO2+HO2-->H2O2+O2
+! K028=3.22E-34*EXP(2800./TPK%T)+2.38E-54*TPK%M*EXP(3200./TPK%T)::HO2+HO2+H2O-->H2O2+H2O+O2
+! K029=@TROE(1.,9.00E-32,1.5,3.00E-11,0.0,TPK%M,TPK%T,KVECNPT)::O3P+NO-->NO2
+! K030=6.50E-12*exp(-(-120.0/TPK%T))::O3P+NO2-->NO+O2
+! K031=@TROE(1.,9.00E-32,2.0,2.20E-11,0.0,TPK%M,TPK%T,KVECNPT)::O3P+NO2-->NO3
+! K032=@TROE(1.,7.00E-31,2.6,1.50E-11,0.5,TPK%M,TPK%T,KVECNPT)::OH+NO-->HONO
+! K033=@TROE(1.,2.60E-30,3.2,2.40E-11,1.3,TPK%M,TPK%T,KVECNPT)::OH+NO2-->HNO3
+! K034=2.20E-11::OH+NO3-->NO2+HO2
+! K035=3.70E-12*exp(-(-250.0/TPK%T))::HO2+NO-->NO2+OH
+! K036=@TROE(1.,1.80E-31,3.2,4.70E-12,1.4,TPK%M,TPK%T,KVECNPT)::HO2+NO2-->HNO4
+! K037=@TROE_EQUIL(1.80E-31,3.2,4.70E-12,1.4,4.76E+26,10900.,TPK%M,TPK%T,KVECNPT)::HNO4-->HO2+NO2
+! K038=3.50E-12::HO2+NO3-->0.3*HNO3+0.7*NO2+0.7*OH
+! K039=1.80E-11*exp(-(390.0/TPK%T))::OH+HONO-->H2O+NO2
+! K040=(7.2E-15*EXP(785/TPK%T))+(1.9E-33*EXP(725/TPK%T)*TPK%M)/(1+(1.9E-33*EXP(725/TPK%T)*TPK%M)/(4.1E-16*EXP(1440/TPK%T)))::OH+HNO3-->NO3+H2O
+! K041=1.30E-12*exp(-(-380.0/TPK%T))::OH+HNO4-->NO2+H2O+O2
+! K042=2.00E-12*exp(-(1400.0/TPK%T))::O3+NO-->NO2+O2
+! K043=1.20E-13*exp(-(2450.0/TPK%T))::O3+NO2-->NO3+O2
+! K044=3.30E-39*exp(-(-530.0/TPK%T))::NO+NO+O2-->NO2+NO2
+! K045=1.50E-11*exp(-(-170.0/TPK%T))::NO3+NO-->NO2+NO2
+! K046=4.50E-14*exp(-(1260.0/TPK%T))::NO3+NO2-->NO+NO2+O2
+! K047=@TROE(1.,2.20E-30,3.9,1.50E-12,0.7,TPK%M,TPK%T,KVECNPT)::NO3+NO2-->N2O5
+! K048=@TROE_EQUIL(2.20E-30,3.9,1.50E-12,0.7,3.70E+26,11000.0,TPK%M,TPK%T,KVECNPT)::N2O5-->NO2+NO3
+! K049=8.50E-13*exp(-(2450.0/TPK%T))::NO3+NO3-->NO2+NO2+O2
+! K050=3.30E-12*exp(-(900.0/TPK%T))::NH3+OH-->
+! K051=5.50E-12*exp(-(2000.0/TPK%T))::OH+H2-->H2O+HO2
+! K052=@TROE(1.,3.00E-31,3.3,1.50E-12,0.0,TPK%M,TPK%T,KVECNPT)::OH+SO2-->SULF+HO2
+! K053=1.5E-13*(1.+2.439E-20*TPK%M)::CO+OH-->HO2+CO2
+! K054=6.00E-11::BIO+O3P-->0.91868*ALKE+0.05*HCHO+0.02*OH+0.01*CO+0.13255*CARBO+0.28*HO2+0.15*XO2
+! K055=0.00E-01*exp(-(-13.0/TPK%T))::CARBO+O3P-->ALD
+! K056=TPK%T*TPK%T*7.44E-18*exp(-(1361./TPK%T))::CH4+OH-->MO2+H2O
+! K057=1.51E-17*TPK%T*TPK%T*exp(-(492./TPK%T))::ETH+OH-->ALKAP
+! K058=3.76E-12*exp(-(260.0/TPK%T))+1.70E-12*exp(-(155.0/TPK%T))+1.21E-12*exp(-(125.0/TPK%T))::ALKA+OH-->0.87811*ALKAP+0.12793*HO2+0.08173*ALD+0.03498*KET+0.00835*CARBO+0.00140*HCHO+0.00878*ORA1+0.00878*CO+0.00878*OH+H2O
+! K059=1.78E-12*exp(-(-438.0/TPK%T))+6.07E-13*exp(-(-500.0/TPK%T))+0.00E-01*exp(-(-448.0/TPK%T))::ALKE+OH-->1.02529*ALKEP+0.00000*BIOP
+! K060=2.54E-11*exp(-(-410.0/TPK%T))+0.00E-01*exp(-(-444.0/TPK%T))+0.00E-01::BIO+OH-->1.00000*BIOP
+! K061=3.31E-12*exp(-(-355.0/TPK%T))+3.45E-13::ARO+OH-->0.93968*ADD+0.10318*XO2+0.10318*HO2+0.00276*PHO
+! K062=1.00E-11::HCHO+OH-->HO2+CO+H2O
+! K063=5.55E-12*exp(-(-331.0/TPK%T))::ALD+OH-->1.00000*CARBOP+H2O
+! K064=TPK%T*TPK%T*5.68E-18*exp(-(-92.0/TPK%T))::KET+OH-->1.00000*CARBOP+H2O
+! K065=1.32E-11+1.88E-12*exp(-(-175.0/TPK%T))::CARBO+OH-->0.51419*CARBOP+0.16919*CARBO+1.01732*CO+0.51208*HO2+0.00000*HCHO+0.06253*ALD+0.00853*KET+0.10162*XO2+0.75196*H2O
+! K066=4.50E-13::ORA1+OH-->HO2+CO2+H2O
+! K067=6.00E-13::ORA2+OH-->
+! K068=2.93E-12*exp(-(-190.0/TPK%T))::OP1+OH-->0.65*MO2+0.35*HCHO+0.35*OH
+! K069=3.36E-12*exp(-(-190.0/TPK%T))::OP2+OH-->0.40341*ALKAP+0.05413*CARBOP+0.07335*ALD+0.37591*KET+0.09333*XO2+0.02915*HO2+0.02915*HCHO+0.44925*OH
+! K070=3.80E-14+1.59E-14*exp(-(-500.0/TPK%T))::PAN+OH-->0.57839*HCHO+0.21863*CARBO+0.71893*NO3+0.28107*PAN+0.28107*HO2+0.29733*H2O+XO2
+! K071=5.31E-12*exp(-(260.0/TPK%T))::ONIT+OH-->1.00000*ALKAP+NO2+H2O
+! K072=3.40E-13*exp(-(1900.0/TPK%T))::HCHO+NO3-->HO2+HNO3+CO
+! K073=1.40E-12*exp(-(1900.0/TPK%T))::ALD+NO3-->1.00000*CARBOP+HNO3
+! K074=1.62E-12*exp(-(1900.0/TPK%T))+0.00E-01*exp(-(150.0/TPK%T))+1.94E-14*exp(-(1000.0/TPK%T))::CARBO+NO3-->0.91567*HNO3+0.38881*CARBOP+0.10530*CARBO+0.05265*ALD+0.00632*KET+0.10530*NO2+0.10530*XO2+0.63217*HO2+1.33723*CO+0.00000*OLN
+! K075=4.92E-16::ARO+NO3-->HNO3+PHO
+! K076=4.35E-18*TPK%T*TPK%T*exp(-(2282.0/TPK%T))+1.91E-14*exp(-(450.0/TPK%T))+1.08E-15*exp(-(-450.0/TPK%T))+0.00E-01::ALKE+NO3-->0.00000*CARBO+0.93768*OLN
+! K077=4.00E-12*exp(-(446.0/TPK%T))+0.00E-01*exp(-(-490.0/TPK%T))+0.00E-01::BIO+NO3-->0.91741*CARBO+1.00000*OLN
+! K078=3.76E-16*exp(-(500.0/TPK%T))::PAN+NO3-->0.60*ONIT+0.60*NO3+0.40000*PAN+0.40*HCHO+0.40*NO2+XO2
+! K079=8.17E-15*exp(-(2580.0/TPK%T))+4.32E-16*exp(-(1800.0/TPK%T))+2.87E-17*exp(-(845.0/TPK%T))+0.00E-01*exp(-(2283.0/TPK%T))::ALKE+O3-->0.48290*HCHO+0.51468*ALD+0.07377*KET+0.00000*CARBO+0.35120*CO+0.15343*ORA1+0.08143*ORA2+0.23451*HO2+0.39435*OH+0.05705*CARBOP+0.03196*ETH+0.00000*ALKE+0.04300*CH4+0.13966*MO2+0.09815*ALKAP+0.01833*H2O2+0.00000*XO2+0.05409*H2+0.00000*O3P
+! K080=7.86E-15*exp(-(1913.0/TPK%T))+0.00E-01*exp(-(732.0/TPK%T))+0.00E-01::BIO+O3-->0.90000*HCHO+0.00000*ALD+0.00000*KET+0.39754*CARBO+0.36000*CO+0.37388*ALKE+0.00000*ALKAP+0.17000*CARBOP+0.03000*MO2+0.15000*ORA1+0.00000*ORA2+0.28000*OH+0.30000*HO2+0.00100*H2O2+0.05000*H2+0.13000*XO2+0.09000*O3P
+! K081=0.00E-01*exp(-(2112.0/TPK%T))+1.38E-19::CARBO+O3-->0.00000*HCHO+1.07583*CARBO+0.15692*ALD+0.10788*ORA1+0.20595*ORA2+0.27460*CARBOP+0.10149*OP2+0.64728*CO+0.28441*HO2+0.20595*OH+0.00000*H2
+! K082=7.20E-17*exp(-(1700.0/TPK%T))::PAN+O3-->0.70*HCHO+0.30000*PAN+0.70*NO2+0.13*CO+0.04*H2+0.11*ORA1+0.08*HO2+0.036*OH+0.70000*CARBOP
+! K083=2.00E-11::PHO+NO2-->0.10670*ARO+ONIT
+! K084=1.00E-11::PHO+HO2-->1.06698*ARO
+! K085=3.60E-11::ADD+NO2-->ARO+HONO
+! K086=1.66E-17*exp(-(-1044.0/TPK%T))::ADD+O2-->0.98*AROP+0.02*ARO+0.02*HO2
+! K087=2.80E-11::ADD+O3-->ARO+OH
+! K088=@TROE(5.86E-01,9.70E-29,5.6,9.30E-12,1.5,TPK%M,TPK%T,KVECNPT)::CARBOP+NO2-->1.00000*PAN
+! K089=@TROE_EQUIL(9.70E-29,5.6,9.30E-12,1.5,1.16E+28,13954.,TPK%M,TPK%T,KVECNPT)::PAN-->1.00000*CARBOP+NO2
+! K090=4.20E-12*exp(-(-180.0/TPK%T))::MO2+NO-->HCHO+HO2+NO2
+! K091=4.36E-12::ALKAP+NO-->0.33144*ALD+0.03002*HCHO+0.54531*KET+0.03407*CARBO+0.74265*HO2+0.09016*MO2+0.08187*ALKAP+0.13007*XO2+0.08459*ONIT+0.91541*NO2
+! K092=6.93E-12::ALKEP+NO-->1.39870*HCHO+0.42125*ALD+0.05220*KET+HO2+NO2
+! K093=4.00E-12::BIOP+NO-->0.45463*CARBO+0.60600*HCHO+0.00000*ALD+0.00000*KET+0.37815*ALKE+0.84700*HO2+0.84700*NO2+0.15300*ONIT
+! K094=4.00E-12::AROP+NO-->0.95115*NO2+0.95115*HO2+2.06993*CARBO+0.04885*ONIT
+! K095=1.22E-11::CARBOP+NO-->0.78134*MO2+0.09532*CARBOP+0.05848*HCHO+0.07368*ALD+0.08670*CARBO+0.12334*HO2+0.02563*XO2+NO2
+! K096=4.00E-12::OLN+NO-->0.18401*ONIT+1.81599*NO2+0.18401*HO2+0.23419*HCHO+1.01182*ALD+0.37862*KET
+! K097=3.80E-13*exp(-(-800.0/TPK%T))::MO2+HO2-->OP1
+! K098=6.16E-14*exp(-(-700.0/TPK%T))+1.52E-13*exp(-(-1300.0/TPK%T))::ALKAP+HO2-->1.00524*OP2
+! K099=1.81E-13*exp(-(-1300.0/TPK%T))::ALKEP+HO2-->1.00524*OP2
+! K0100=1.28E-13*exp(-(-1300.0/TPK%T))+0.00E-01::BIOP+HO2-->1.00524*OP2
+! K0101=3.75E-13*exp(-(-980.0/TPK%T))::AROP+HO2-->1.00524*OP2
+! K0102=5.94E-13*exp(-(-550.0/TPK%T))+1.99E-16*exp(-(-2640.0/TPK%T))+5.56E-14*exp(-(-1300.0/TPK%T))::CARBOP+HO2-->0.80904*OP2+0.17307*ORA2+0.17307*O3
+! K103=1.66E-13*exp(-(-1300.0/TPK%T))::OLN+HO2-->ONIT
+! K104=9.10E-14*exp(-(-416.0/TPK%T))::MO2+MO2-->1.33*HCHO+0.66*HO2
+! K105=1.03E-14*exp(-(-158.0/TPK%T))+6.24E-14*exp(-(-431.0/TPK%T))+1.53E-14*exp(-(-467.0/TPK%T))+4.34E-15*exp(-(-633.0/TPK%T))::ALKAP+MO2-->0.80556*HCHO+0.98383*HO2+0.56070*ALD+0.09673*KET+0.01390*MO2+0.07976*CARBO+0.13370*XO2+0.00385*ALKAP
+! K106=1.57E-13*exp(-(-708.0/TPK%T))::ALKEP+MO2-->1.42894*HCHO+0.46413*ALD+0.03814*KET+HO2
+! K107=1.36E-13*exp(-(-708.0/TPK%T))::BIOP+MO2-->0.56064*CARBO+0.48074*ALKE+1.00000*HO2+1.09000*HCHO+0.00000*ALD+0.00000*KET
+! K108=3.56E-14*exp(-(-708.0/TPK%T))::AROP+MO2-->HCHO+1.02767*HO2+1.99461*CARBO
+! K109=1.77E-11*exp(-(440.0/TPK%T))+1.48E-16*exp(-(-2510.0/TPK%T))+3.10E-13*exp(-(-508.0/TPK%T))::CARBOP+MO2-->0.95723*HCHO+0.82998*HO2+0.56031*MO2+0.13684*ORA2+0.05954*CARBOP+0.15387*CARBO+0.08295*ALD+0.02212*XO2
+! K110=1.12E-13*exp(-(-708.0/TPK%T))::OLN+MO2-->0.88625*HCHO+0.67560*HO2+0.67560*ONIT+0.41524*ALD+0.09667*KET+0.32440*NO2
+! K111=4.44E-14*exp(-(-211.0/TPK%T))+2.23E-13*exp(-(-460.0/TPK%T))+4.10E-14*exp(-(-522.0/TPK%T))+1.17E-14*exp(-(-683.0/TPK%T))::ALKAP+CARBOP-->0.71461*ALD+0.48079*HO2+0.51480*MO2+0.49810*ORA2+0.18819*KET+0.07600*HCHO+0.00828*ALKAP+0.11306*XO2+0.06954*CARBO
+! K112=4.36E-13*exp(-(-765.0/TPK%T))::ALKEP+CARBOP-->0.68192*HCHO+0.68374*ALD+0.50078*HO2+0.50078*MO2+0.49922*ORA2+0.06579*KET
+! K113=7.60E-13*exp(-(-765.0/TPK%T))::BIOP+CARBOP-->0.78591*CARBO+0.24463*ALKE+0.50600*HO2+0.49400*ORA2+0.34000*HCHO+0.50600*MO2+0.00000*ALD+0.00000*KET
+! K114=3.63E-13*exp(-(-765.0/TPK%T))::AROP+CARBOP-->MO2+HO2+1.99455*CARBO
+! K115=7.73E-13*exp(-(-530.0/TPK%T))+1.70E-13*exp(-(-565.0/TPK%T))::CARBOP+CARBOP-->1.66702*MO2+0.05821*CARBOP+0.03432*HCHO+0.10777*CARBO+0.06969*ALD+0.02190*KET+0.07566*HO2+0.01593*XO2+0.09955*ORA2
+! K116=4.85E-13*exp(-(-765.0/TPK%T))::OLN+CARBOP-->0.66562*ONIT+0.51037*MO2+0.48963*ORA2+0.17599*HO2+0.13414*HCHO+0.42122*ALD+0.10822*KET+0.00000*NO2
+! K117=4.19E-15*exp(-(-1000.0/TPK%T))::OLN+OLN-->2.00*ONIT+HO2
+! K118=2.48E-14*exp(-(-1000.0/TPK%T))::OLN+OLN-->0.00000*HCHO+0.00000*ALD+0.00000*KET+0.00000*HO2+0.00000*NO2+0.00000*ONIT
+! K119=1.20E-12::MO2+NO3-->HCHO+HO2+NO2
+! K120=1.20E-12::ALKAP+NO3-->0.33743*ALD+0.81290*HO2+0.03142*HCHO+0.62978*KET+0.03531*CARBO+0.09731*MO2+0.08994*ALKAP+0.16271*XO2+NO2
+! K121=1.20E-12::ALKEP+NO3-->1.40909*HCHO+0.43039*ALD+0.02051*KET+HO2+NO2
+! K122=1.20E-12::BIOP+NO3-->0.61160*CARBO+0.42729*ALKE+0.68600*HCHO+0.00000*ALD+0.00000*KET+HO2+NO2
+! K123=1.20E-12::AROP+NO3-->2.81904*CARBO+HO2+NO2
+! K124=3.48E-12::CARBOP+NO3-->0.91910*MO2+0.03175*CARBOP+0.03175*HCHO+0.03455*CARBO+0.02936*ALD+0.04915*HO2+0.01021*XO2+NO2
+! K125=1.20E-12::OLN+NO3-->0.25928*ONIT+1.74072*NO2+0.25928*HO2+0.20740*HCHO+0.91850*ALD+0.34740*KET
+! K126=1.66E-13*exp(-(-1300.0/TPK%T))::XO2+HO2-->1.00524*OP2
+! K127=5.99E-15*exp(-(-1510.0/TPK%T))::XO2+MO2-->HCHO+HO2
+! K128=1.69E-14*exp(-(-1560.0/TPK%T))::XO2+CARBOP-->MO2
+! K129=7.13E-17*exp(-(-2950.0/TPK%T))::XO2+XO2-->
+! K130=4.00E-12::XO2+NO-->NO2
+! K131=1.20E-12::XO2+NO3-->NO2
+! K132=1.00E-40::SULF-->
! KTC1=@KT(0.05,48.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::O3-->WC_O3
! KTC2=@KT(0.11,34.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::H2O2-->WC_H2O2
! KTC3=@KT(0.0001,30.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::NO-->WC_NO
@@ -541,54 +180,32 @@
! KTC12=@KT(0.2,30.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::HO2-->WC_HO2
! KTC13=@KT(0.0002,44.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::CO2-->WC_CO2
! KTC14=@KT(0.11,64.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::SO2-->WC_SO2
-! KTC15=@KT(0.07,98.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::H2SO4-->WC_H2SO4
-! KTC16=@KT(0.05,47.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::RO21-->WC_RO21
-! KTC17=@KT(0.05,75.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::RO25-->WC_RO25
-! KTC18=@KT(0.027,32.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::MEOH-->WC_MEOH
-! KTC19=@KT(0.017,46.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::ETOH-->WC_ETOH
-! KTC20=@KT(0.011,60.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::ALCH-->WC_ALCH
-! KTC21=@KT(0.04,30.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::HCHO-->WC_HCHO
-! KTC22=@KT(0.03,44.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::ALD2-->WC_ALD2
-! KTC23=@KT(0.01,58.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::GLY-->WC_GLY
-! KTC24=@KT(0.008,58.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::KETL-->WC_KETL
-! KTC25=@KT(0.0003,72.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::MGLY-->WC_MGLY
-! KTC26=@KT(0.023,46.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::ORA1-->WC_ORA1
-! KTC27=@KT(0.032,60.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::ORA2-->WC_ORA2
-! KTC28=@KT(0.05,74.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::ACID-->WC_ACID
-! KTC29=@KT(0.05,74.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::RP16-->WC_RP16
-! KTC30=@KT(0.05,88.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::UR21-->WC_UR21
-! KTC31=@KT(0.05,90.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::UR28-->WC_UR28
-! KTC32=@KT(0.05,48.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(1.1e-2,-2830.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_O3-->O3
-! KTC33=@KT(0.11,34.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(7.73e4,-7310.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_H2O2-->H2O2
-! KTC34=@KT(0.0001,30.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(1.92e-3,-1790.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_NO-->NO
-! KTC35=@KT(0.0015,46.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(1.4e-2,-2516.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_NO2-->NO2
-! KTC36=@KT(0.05,62.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(3.8e-2,-8707.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_NO3-->NO3
-! KTC37=@KT(0.0037,108.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(2.1e0,-3400.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_N2O5-->N2O5
-! KTC38=@KT(0.05,47.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(5.0e1,-4880.,1.6e-3,1760.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_HONO-->HONO
-! KTC39=@KT(0.054,63.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(2.1e5,-8700.,2.2e1,0.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_HNO3-->HNO3
-! KTC40=@KT(0.05,79.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(1.2e4,-6900.,1.26e-6,0.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_HNO4-->HNO4
-! KTC41=@KT(0.04,17.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFB(6.02e1,-4160.,1.7e-5,4350.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_NH3-->NH3
-! KTC42=@KT(0.05,17.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(3.9e1,0.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_OH-->OH
-! KTC43=@KT(0.2,30.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(6.9e2,-6643.,1.6e-5,0.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_HO2-->HO2
-! KTC44=@KT(0.0002,44.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(3.4e-2,-2710.,4.3e-7,920.,4.7e-11,1780.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_CO2-->CO2
-! KTC45=@KT(0.11,64.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(1.36,-2930.,1.3e-2,-1965.,6.4e-8,-1430.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_SO2-->SO2
-! KTC46=@KT(0.07,98.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(2.1e5,-8700.,1.0e3,0.,1.0e-2,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_H2SO4-->H2SO4
-! KTC47=@KT(0.05,47.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(2.7e0,0.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_RO21-->RO21
-! KTC48=@KT(0.05,75.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(7.5e1,0.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_RO25-->RO25
-! KTC49=@KT(0.027,32.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(2.2e2,-5210.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_MEOH-->MEOH
-! KTC50=@KT(0.017,46.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(1.9e2,-6600.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_ETOH-->ETOH
-! KTC51=@KT(0.011,60.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(1.3e2,-7500.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_ALCH-->ALCH
-! KTC52=@KT(0.04,30.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(3.23e3,-7100.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_HCHO-->HCHO
-! KTC53=@KT(0.03,44.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(1.29e1,-5890.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_ALD2-->ALD2
-! KTC54=@KT(0.01,58.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(3.6e5,0.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_GLY-->GLY
-! KTC55=@KT(0.008,58.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(2.81e1,-5050.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_KETL-->KETL
-! KTC56=@KT(0.0003,72.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(3.7e3,0.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_MGLY-->MGLY
-! KTC57=@KT(0.023,46.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(8.9e3,-6100.,1.8e-4,150.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_ORA1-->ORA1
-! KTC58=@KT(0.032,60.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(4.1e3,-6200.,1.75e-5,0.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_ORA2-->ORA2
-! KTC59=@KT(0.05,74.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(5.7e3,0.,1.35e-5,0.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_ACID-->ACID
-! KTC60=@KT(0.05,74.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(9.0e3,0.,3.2e-4,0.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_RP16-->RP16
-! KTC61=@KT(0.05,88.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(3.11e5,-5090.,3.55e-3,0.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_UR21-->UR21
-! KTC62=@KT(0.05,90.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(5.0e8,0.,5.6e-2,0.,5.4e-5,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_UR28-->UR28
+! KTC15=@KT(0.07,98.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::SULF-->WC_SULF
+! KTC16=@KT(0.04,30.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::HCHO-->WC_HCHO
+! KTC17=@KT(0.012,46.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::ORA1-->WC_ORA1
+! KTC18=@KT(0.03,60.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::ORA2-->WC_ORA2
+! KTC19=@KT(0.05,47.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::MO2-->WC_MO2
+! KTC20=@KT(0.007,48.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::OP1-->WC_OP1
+! KTC21=@KT(0.05,48.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(1.1e-2,-2830.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_O3-->O3
+! KTC22=@KT(0.11,34.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(7.73e4,-7310.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_H2O2-->H2O2
+! KTC23=@KT(0.0001,30.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(1.92e-3,-1790.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_NO-->NO
+! KTC24=@KT(0.0015,46.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(1.4e-2,0.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_NO2-->NO2
+! KTC25=@KT(0.05,62.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(3.8e-2,0.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_NO3-->NO3
+! KTC26=@KT(0.0037,108.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(2.1,-3400.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_N2O5-->N2O5
+! KTC27=@KT(0.05,47.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(5.0e1,-4880.,1.6e-3,1760.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_HONO-->HONO
+! KTC28=@KT(0.054,63.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(2.1e5,-8700.,2.2e1,0.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_HNO3-->HNO3
+! KTC29=@KT(0.05,79.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(1.2e4,-6900.,1.26e-6,0.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_HNO4-->HNO4
+! KTC30=@KT(0.04,17.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFB(6.02e1,-4160.,1.7e-5,4350.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_NH3-->NH3
+! KTC31=@KT(0.05,17.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(3.9e1,0.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_OH-->OH
+! KTC32=@KT(0.2,30.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(6.9e2,0.,1.6e-5,0.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_HO2-->HO2
+! KTC33=@KT(0.0002,44.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(3.4e-2,-2710.,4.3e-7,920.,4.7e-11,1780.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_CO2-->CO2
+! KTC34=@KT(0.11,64.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(1.36,-2930.,1.3e-2,-1965.,6.4e-8,-1430.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_SO2-->SO2
+! KTC35=@KT(0.07,98.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(2.1e5,-8700.,1.0e3,0.,1.0e-2,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_SULF-->SULF
+! KTC36=@KT(0.04,30.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(3.23e3,-7100.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_HCHO-->HCHO
+! KTC37=@KT(0.012,46.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(8.9e3,-6100.,1.8e-4,150.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_ORA1-->ORA1
+! KTC38=@KT(0.03,60.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(4.1e3,-6200.,1.74e-5,0.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_ORA2-->ORA2
+! KTC39=@KT(0.05,47.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(2.7e0,-2030.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_MO2-->MO2
+! KTC40=@KT(0.007,48.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(3.e2,-5280.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_OP1-->OP1
! KTR1=@KT(0.05,48.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::O3-->WR_O3
! KTR2=@KT(0.11,34.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::H2O2-->WR_H2O2
! KTR3=@KT(0.0001,30.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::NO-->WR_NO
@@ -603,55 +220,33 @@
! KTR12=@KT(0.2,30.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::HO2-->WR_HO2
! KTR13=@KT(0.0002,44.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::CO2-->WR_CO2
! KTR14=@KT(0.11,64.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::SO2-->WR_SO2
-! KTR15=@KT(0.07,98.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::H2SO4-->WR_H2SO4
-! KTR16=@KT(0.05,47.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::RO21-->WR_RO21
-! KTR17=@KT(0.05,75.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::RO25-->WR_RO25
-! KTR18=@KT(0.027,32.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::MEOH-->WR_MEOH
-! KTR19=@KT(0.017,46.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::ETOH-->WR_ETOH
-! KTR20=@KT(0.011,60.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::ALCH-->WR_ALCH
-! KTR21=@KT(0.04,30.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::HCHO-->WR_HCHO
-! KTR22=@KT(0.03,44.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::ALD2-->WR_ALD2
-! KTR23=@KT(0.01,58.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::GLY-->WR_GLY
-! KTR24=@KT(0.008,58.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::KETL-->WR_KETL
-! KTR25=@KT(0.0003,72.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::MGLY-->WR_MGLY
-! KTR26=@KT(0.023,46.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::ORA1-->WR_ORA1
-! KTR27=@KT(0.032,60.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::ORA2-->WR_ORA2
-! KTR28=@KT(0.05,74.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::ACID-->WR_ACID
-! KTR29=@KT(0.05,74.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::RP16-->WR_RP16
-! KTR30=@KT(0.05,88.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::UR21-->WR_UR21
-! KTR31=@KT(0.05,90.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::UR28-->WR_UR28
-! KTR32=@KT(0.05,48.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(1.1e-2,-2830.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_O3-->O3
-! KTR33=@KT(0.11,34.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(7.73e4,-7310.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_H2O2-->H2O2
-! KTR34=@KT(0.0001,30.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(1.92e-3,-1790.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_NO-->NO
-! KTR35=@KT(0.0015,46.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(1.4e-2,-2516.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_NO2-->NO2
-! KTR36=@KT(0.05,62.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(3.8e-2,-8707.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_NO3-->NO3
-! KTR37=@KT(0.0037,108.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(2.1e0,-3400.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_N2O5-->N2O5
-! KTR38=@KT(0.05,47.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(5.0e1,-4880.,1.6e-3,1760.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_HONO-->HONO
-! KTR39=@KT(0.054,63.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(2.1e5,-8700.,2.2e1,0.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_HNO3-->HNO3
-! KTR40=@KT(0.05,79.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(1.2e4,-6900.,1.26e-6,0.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_HNO4-->HNO4
-! KTR41=@KT(0.04,17.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFB(6.02e1,-4160.,1.7e-5,4350.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_NH3-->NH3
-! KTR42=@KT(0.05,17.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(3.9e1,0.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_OH-->OH
-! KTR43=@KT(0.2,30.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(6.9e2,-6643.,1.6e-5,0.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_HO2-->HO2
-! KTR44=@KT(0.0002,44.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(3.4e-2,-2710.,4.3e-7,920.,4.7e-11,1780.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_CO2-->CO2
-! KTR45=@KT(0.11,64.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(1.36,-2930.,1.3e-2,-1965.,6.4e-8,-1430.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_SO2-->SO2
-! KTR46=@KT(0.07,98.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(2.1e5,-8700.,1.0e3,0.,1.0e-2,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_H2SO4-->H2SO4
-! KTR47=@KT(0.05,47.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(2.7e0,0.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_RO21-->RO21
-! KTR48=@KT(0.05,75.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(7.5e1,0.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_RO25-->RO25
-! KTR49=@KT(0.027,32.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(2.2e2,-5210.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_MEOH-->MEOH
-! KTR50=@KT(0.017,46.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(1.9e2,-6600.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_ETOH-->ETOH
-! KTR51=@KT(0.011,60.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(1.3e2,-7500.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_ALCH-->ALCH
-! KTR52=@KT(0.04,30.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(3.23e3,-7100.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_HCHO-->HCHO
-! KTR53=@KT(0.03,44.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(1.29e1,-5890.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_ALD2-->ALD2
-! KTR54=@KT(0.01,58.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(3.6e5,0.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_GLY-->GLY
-! KTR55=@KT(0.008,58.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(2.81e1,-5050.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_KETL-->KETL
-! KTR56=@KT(0.0003,72.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(3.7e3,0.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_MGLY-->MGLY
-! KTR57=@KT(0.023,46.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(8.9e3,-6100.,1.8e-4,150.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_ORA1-->ORA1
-! KTR58=@KT(0.032,60.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(4.1e3,-6200.,1.75e-5,0.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_ORA2-->ORA2
-! KTR59=@KT(0.05,74.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(5.7e3,0.,1.35e-5,0.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_ACID-->ACID
-! KTR60=@KT(0.05,74.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(9.0e3,0.,3.2e-4,0.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_RP16-->RP16
-! KTR61=@KT(0.05,88.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(3.11e5,-5090.,3.55e-3,0.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_UR21-->UR21
-! KTR62=@KT(0.05,90.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(5.0e8,0.,5.6e-2,0.,5.4e-5,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_UR28-->UR28
-! KC1=!ZRATES(:,024)::WC_H2O2-->WC_OH+WC_OH
+! KTR15=@KT(0.07,98.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::SULF-->WR_SULF
+! KTR16=@KT(0.04,30.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::HCHO-->WR_HCHO
+! KTR17=@KT(0.012,46.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::ORA1-->WR_ORA1
+! KTR18=@KT(0.03,60.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::ORA2-->WR_ORA2
+! KTR19=@KT(0.05,47.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::MO2-->WR_MO2
+! KTR20=@KT(0.007,48.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::OP1-->WR_OP1
+! KTR21=@KT(0.05,48.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(1.1e-2,-2830.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_O3-->O3
+! KTR22=@KT(0.11,34.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(7.73e4,-7310.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_H2O2-->H2O2
+! KTR23=@KT(0.0001,30.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(1.92e-3,-1790.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_NO-->NO
+! KTR24=@KT(0.0015,46.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(1.4e-2,0.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_NO2-->NO2
+! KTR25=@KT(0.05,62.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(3.8e-2,0.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_NO3-->NO3
+! KTR26=@KT(0.0037,108.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(2.1,-3400.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_N2O5-->N2O5
+! KTR27=@KT(0.05,47.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(5.0e1,-4880.,1.6e-3,1760.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_HONO-->HONO
+! KTR28=@KT(0.054,63.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(2.1e5,-8700.,2.2e1,0.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_HNO3-->HNO3
+! KTR29=@KT(0.05,79.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(1.2e4,-6900.,1.26e-6,0.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_HNO4-->HNO4
+! KTR30=@KT(0.04,17.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFB(6.02e1,-4160.,1.7e-5,4350.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_NH3-->NH3
+! KTR31=@KT(0.05,17.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(3.9e1,0.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_OH-->OH
+! KTR32=@KT(0.2,30.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(6.9e2,0.,1.6e-5,0.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_HO2-->HO2
+! KTR33=@KT(0.0002,44.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(3.4e-2,-2710.,4.3e-7,920.,4.7e-11,1780.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_CO2-->CO2
+! KTR34=@KT(0.11,64.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(1.36,-2930.,1.3e-2,-1965.,6.4e-8,-1430.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_SO2-->SO2
+! KTR35=@KT(0.07,98.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(2.1e5,-8700.,1.0e3,0.,1.0e-2,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_SULF-->SULF
+! KTR36=@KT(0.04,30.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(3.23e3,-7100.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_HCHO-->HCHO
+! KTR37=@KT(0.012,46.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(8.9e3,-6100.,1.8e-4,150.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_ORA1-->ORA1
+! KTR38=@KT(0.03,60.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(4.1e3,-6200.,1.74e-5,0.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_ORA2-->ORA2
+! KTR39=@KT(0.05,47.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(2.7e0,-2030.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_MO2-->MO2
+! KTR40=@KT(0.007,48.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(3.e2,-5280.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_OP1-->OP1
+! KC1=!ZRATES(:,018)::WC_H2O2-->WC_OH+WC_OH
! KC2=(3.6E+9*exp(-930.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECCLOUD::WC_OH+WC_OH-->WC_H2O2
! KC3=((2.8E+10*10.**(-TPK%PHC)+3.5E+10*exp(-720.*(1./TPK%T-1./298.15))*1.6e-5)/(1.6e-5+10.**(-TPK%PHC)))/TPK%MOL2MOLECCLOUD::WC_OH+WC_HO2-->
! KC4=(3.2E+7*exp(-1700.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECCLOUD::WC_H2O2+WC_OH-->WC_HO2
@@ -662,42 +257,26 @@
! KC9=((1.8E+9*10.**(-TPK%PHC)+4.5E+9*1.6e-5)/(1.6e-5+10.**(-TPK%PHC)))/TPK%MOL2MOLECCLOUD::WC_NO2+WC_HO2-->WC_HNO4
! KC10=2.6E-2*10.**(-TPK%PHC)/(1.26e-6+10.**(-TPK%PHC))::WC_HNO4-->WC_HO2+WC_NO2
! KC11=1.1E0*1.26e-6/(1.26e-6+10.**(-TPK%PHC))::WC_HNO4-->WC_HONO
-! KC12=(3.3E+5*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*(10.**(-TPK%PHC))**2./((1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.)*(1.26e-6+10.**(-TPK%PHC))))/TPK%MOL2MOLECCLOUD::WC_HNO4+WC_SO2-->WC_H2SO4+WC_HNO3
-! KC13=!ZRATES(:,025)*2.2e+1/(2.2e+1+10.**(-TPK%PHC))::WC_HNO3-->WC_NO2+WC_OH
+! KC12=(3.3E+5*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*(10.**(-TPK%PHC))**2./((1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.)*(1.26e-6+10.**(-TPK%PHC))))/TPK%MOL2MOLECCLOUD::WC_HNO4+WC_SO2-->WC_SULF+WC_HNO3
+! KC13=!ZRATES(:,019)*2.2e+1/(2.2e+1+10.**(-TPK%PHC))::WC_HNO3-->WC_NO2+WC_OH
! KC14=1.0E+10::WC_N2O5-->WC_HNO3+WC_HNO3
-! KC15=(1.0E+5*1.0e+3*1.0e-2/(1.0e+3*1.0e-2+1.0e+3*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.))/TPK%MOL2MOLECCLOUD::WC_NO3+WC_H2SO4-->WC_HNO3+WC_ASO4
+! KC15=(1.0E+5*1.0e+3*1.0e-2/(1.0e+3*1.0e-2+1.0e+3*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.))/TPK%MOL2MOLECCLOUD::WC_NO3+WC_SULF-->WC_HNO3+WC_ASO4
! KC16=(1.3E+9*exp(-2200.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.))/TPK%MOL2MOLECCLOUD::WC_NO3+WC_SO2-->WC_HNO3+WC_ASO3
-! KC17=((7.9E+2*exp(-2900.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+2.5E+7*exp(-2450.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15)))/((1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.)*(1.+2.5e3*exp(4030.*(1./TPK%T-1./298.15)))))/TPK%MOL2MOLECCLOUD::WC_SO2+WC_HCHO-->WC_AHMS
-! KC18=7.7E-3*exp(-9200.*(1./TPK%T-1./298.15))+3.7E+3*1.e-14*EXP(-6716*(1./TPK%T-1./298.15))/10.**(-TPK%PHC)::WC_AHMS-->WC_SO2+WC_HCHO
-! KC19=3.0E+8/TPK%MOL2MOLECCLOUD::WC_AHMS+WC_OH-->WC_HO2+WC_ORA1+WC_SO2
-! KC20=1.1E+9::WC_ASO3+W_O2-->WC_ASO5
-! KC21=(1.7E+9*10.**(-TPK%PHC)/(1.6e-5+10.**(-TPK%PHC)))/TPK%MOL2MOLECCLOUD::WC_ASO5+WC_HO2-->WC_AHSO5
-! KC22=(2.2E+8*exp(-2600.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECCLOUD::WC_ASO5+WC_ASO5-->WC_ASO4+WC_ASO4
-! KC23=(7.1E+6*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)*10.**(-TPK%PHC)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.))/TPK%MOL2MOLECCLOUD::WC_AHSO5+WC_SO2-->2.00*WC_H2SO4
-! KC24=4.6E+2*exp(-1100.*(1./TPK%T-1./298.15))::WC_ASO4-->WC_H2SO4+WC_OH
-! KC25=((3.7E+5*exp(-5500.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+1.5E+9*exp(-5300.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15)))/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.))/TPK%MOL2MOLECCLOUD::WC_SO2+WC_O3-->WC_H2SO4
-! KC26=(9.1E+7*exp(-3600.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)*10.**(-TPK%PHC)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.))/TPK%MOL2MOLECCLOUD::WC_SO2+WC_H2O2-->WC_H2SO4
-! KC27=(1.7E+8*exp(-2200.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECCLOUD::WC_RO21+WC_RO21-->2.00*WC_HCHO+2.00*WC_HO2
-! KC28=(5.0E+5*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.))/TPK%MOL2MOLECCLOUD::WC_RO21+WC_SO2-->WC_HCHO+WC_ASO3
-! KC29=1.5E+8/TPK%MOL2MOLECCLOUD::WC_RO25+WC_RO25-->WC_ORA2+WC_H2O2+WC_ALD2+WC_HO2
-! KC30=(1.7E+9*exp(-600.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECCLOUD::WC_MEOH+WC_OH-->WC_HCHO+WC_HO2
-! KC31=(2.1E+9*exp(-1200.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECCLOUD::WC_ETOH+WC_OH-->WC_ALD2+WC_HO2
-! KC32=(3.3E+9*exp(-1000.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECCLOUD::WC_ALCH+WC_OH-->0.50*WC_ALD2+0.50*WC_KETL+WC_HO2
-! KC33=(7.8E+8*exp(-1000.*(1./TPK%T-1./298.15))*2.5e3*exp(4030.*(1./TPK%T-1./298.15))/(1.+2.5e3*exp(4030.*(1./TPK%T-1./298.15))))/TPK%MOL2MOLECCLOUD::WC_HCHO+WC_OH-->WC_ORA1+WC_HO2
-! KC34=3.4E+9/TPK%MOL2MOLECCLOUD::WC_ALD2+WC_OH-->0.50*WC_RO21+0.50*WC_RO25+WC_CO2
-! KC35=(1.1E+9*exp(-1500.*(1./TPK%T-1./298.15))*3.9e3/(1.+3.9e3))/TPK%MOL2MOLECCLOUD::WC_GLY+WC_OH-->WC_RP16+WC_HO2
-! KC36=(7.9E+8*exp(-1600.*(1./TPK%T-1./298.15))*4.86e2/(1.+4.86e2))/TPK%MOL2MOLECCLOUD::WC_MGLY+WC_OH-->WC_UR21+WC_HO2
-! KC37=(8.9E+8*exp(-1400.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECCLOUD::WC_KETL+WC_OH-->WC_MGLY+WC_KETL+WC_HCHO+WC_UR21+WC_ALD2+WC_RO21+WC_CO2+WC_H2O2+WC_HO2
-! KC38=((1.0E+8*exp(-1000.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+3.4E+9*exp(-1200.*(1./TPK%T-1./298.15))*1.8e-4*exp(150.*(1./TPK%T-1./298.15)))/(1.8e-4*exp(150.*(1./TPK%T-1./298.15))+10.**(-TPK%PHC)))/TPK%MOL2MOLECCLOUD::WC_ORA1+WC_OH-->WC_CO2+WC_HO2
-! KC39=((1.5E+7*exp(-1300.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+1.0E+8*exp(-1800.*(1./TPK%T-1./298.15))*1.75e-5)/(1.75e-5+10.**(-TPK%PHC)))/TPK%MOL2MOLECCLOUD::WC_ORA2+WC_OH-->WC_RP16+0.5*WC_H2O2
-! KC40=(3.2E+8*exp(-2300.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)/(1.35e-5+10.**(-TPK%PHC)))/TPK%MOL2MOLECCLOUD::WC_ACID+WC_OH-->WC_RO25+WC_CO2
-! KC41=(7.3E+8*exp(-1800.*(1./TPK%T-1./298.15))*1.35e-5/(1.35e-5+10.**(-TPK%PHC)))/TPK%MOL2MOLECCLOUD::WC_ACID+WC_OH-->0.56*WC_UR21+0.15*WC_ACID2+0.29*WC_ALD2+0.29*WC_H2O2+0.11*WC_HO2
-! KC42=((4.7E+7*10.**(-TPK%PHC)*5.6E-2+7.7E+6*5.6E-2*5.4e-5)/(5.6E-2*5.4E-5+5.4E-5*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.))/TPK%MOL2MOLECCLOUD::WC_UR28+WC_OH-->2*WC_CO2+WC_HO2
-! KC43=((1.2E+8*exp(-2800.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+7.0E+8*exp(-2300.*(1./TPK%T-1./298.15))*3.55E-3)/(3.55E-3+10.**(-TPK%PHC)))/TPK%MOL2MOLECCLOUD::WC_UR21+WC_OH-->0.56*WC_ACID2+0.43*WC_ALD2+0.43*WC_CO2+0.3*WC_H2O2+0.81*WC_HO2
-! KC44=(3.6E+8*exp(-1000.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)/(10.**(-TPK%PHC)+3.2E-4))/TPK%MOL2MOLECCLOUD::WC_RP16+WC_OH-->WC_UR28+WC_HO2
-! KC45=(2.6E+9*exp(-4300.*(1./TPK%T-1./298.15))*3.2E-4/(10.**(-TPK%PHC)+3.2E-4))/TPK%MOL2MOLECCLOUD::WC_RP16+WC_OH-->2*WC_CO2+0.45*WC_H2O2+0.71*WC_HO2
-! KC46=1.6E+7/TPK%MOL2MOLECCLOUD::WC_ACID2+WC_OH-->
-! KR1=!ZRATES(:,024)::WR_H2O2-->WR_OH+WR_OH
+! KC17=(1.7E+8*exp(-2200.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECCLOUD::WC_MO2+WC_MO2-->2.00*WC_HCHO+2.00*WC_HO2
+! KC18=(5.0E+5*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.))/TPK%MOL2MOLECCLOUD::WC_MO2+WC_SO2-->WC_OP1+WC_ASO3
+! KC19=(7.8E+8*exp(-1000.*(1./TPK%T-1./298.15))*2.5e3*exp(4030.*(1./TPK%T-1./298.15))/(1.+2.5e3*exp(4030.*(1./TPK%T-1./298.15))))/TPK%MOL2MOLECCLOUD::WC_HCHO+WC_OH-->WC_ORA1+WC_HO2
+! KC20=((1.0E+8*exp(-1000.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+3.4E+9*exp(-1200.*(1./TPK%T-1./298.15))*1.8e-4*exp(150.*(1./TPK%T-1./298.15)))/(1.8e-4*exp(150.*(1./TPK%T-1./298.15))+10.**(-TPK%PHC)))/TPK%MOL2MOLECCLOUD::WC_ORA1+WC_OH-->WC_CO2+WC_HO2
+! KC21=((7.9E+2*exp(-2900.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+2.5E+7*exp(-2450.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15)))/((1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.)*(1.+2.5e3*exp(4030.*(1./TPK%T-1./298.15)))))/TPK%MOL2MOLECCLOUD::WC_SO2+WC_HCHO-->WC_AHMS
+! KC22=7.7E-3*exp(-9200.*(1./TPK%T-1./298.15))+3.7E+3*1.e-14*EXP(-6716*(1./TPK%T-1./298.15))/10.**(-TPK%PHC)::WC_AHMS-->WC_SO2+WC_HCHO
+! KC23=3.0E+8/TPK%MOL2MOLECCLOUD::WC_AHMS+WC_OH-->WC_HO2+WC_ORA1+WC_SO2
+! KC24=1.1E+9::WC_ASO3+W_O2-->WC_ASO5
+! KC25=(1.7E+9*10.**(-TPK%PHC)/(1.6e-5+10.**(-TPK%PHC)))/TPK%MOL2MOLECCLOUD::WC_ASO5+WC_HO2-->WC_AHSO5
+! KC26=(2.2E+8*exp(-2600.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECCLOUD::WC_ASO5+WC_ASO5-->WC_ASO4+WC_ASO4
+! KC27=(7.1E+6*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)*10.**(-TPK%PHC)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.))/TPK%MOL2MOLECCLOUD::WC_AHSO5+WC_SO2-->2.00*WC_SULF
+! KC28=4.6E+2*exp(-1100.*(1./TPK%T-1./298.15))::WC_ASO4-->WC_SULF+WC_OH
+! KC29=((3.7E+5*exp(-5500.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+1.5E+9*exp(-5300.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15)))/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.))/TPK%MOL2MOLECCLOUD::WC_SO2+WC_O3-->WC_SULF
+! KC30=(9.1E+7*exp(-3600.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)*10.**(-TPK%PHC)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.))/TPK%MOL2MOLECCLOUD::WC_SO2+WC_H2O2-->WC_SULF
+! KR1=!ZRATES(:,018)::WR_H2O2-->WR_OH+WR_OH
! KR2=(3.6E+9*exp(-930.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECRAIN::WR_OH+WR_OH-->WR_H2O2
! KR3=((2.8E+10*10.**(-TPK%PHR)+3.5E+10*exp(-720.*(1./TPK%T-1./298.15))*1.6e-5)/(1.6e-5+10.**(-TPK%PHR)))/TPK%MOL2MOLECRAIN::WR_OH+WR_HO2-->
! KR4=(3.2E+7*exp(-1700.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECRAIN::WR_H2O2+WR_OH-->WR_HO2
@@ -708,2272 +287,1212 @@
! KR9=((1.8E+9*10.**(-TPK%PHR)+4.5E+9*1.6e-5)/(1.6e-5+10.**(-TPK%PHR)))/TPK%MOL2MOLECRAIN::WR_NO2+WR_HO2-->WR_HNO4
! KR10=2.6E-2*10.**(-TPK%PHR)/(1.26e-6+10.**(-TPK%PHR))::WR_HNO4-->WR_HO2+WR_NO2
! KR11=1.1E0*1.26e-6/(1.26e-6+10.**(-TPK%PHR))::WR_HNO4-->WR_HONO
-! KR12=(3.3E+5*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*(10.**(-TPK%PHR))**2./((1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.)*(1.26e-6+10.**(-TPK%PHR))))/TPK%MOL2MOLECRAIN::WR_HNO4+WR_SO2-->WR_H2SO4+WR_HNO3
-! KR13=!ZRATES(:,025)*2.2e+1/(2.2e+1+10.**(-TPK%PHR))::WR_HNO3-->WR_NO2+WR_OH
+! KR12=(3.3E+5*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*(10.**(-TPK%PHR))**2./((1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.)*(1.26e-6+10.**(-TPK%PHR))))/TPK%MOL2MOLECRAIN::WR_HNO4+WR_SO2-->WR_SULF+WR_HNO3
+! KR13=!ZRATES(:,019)*2.2e+1/(2.2e+1+10.**(-TPK%PHR))::WR_HNO3-->WR_NO2+WR_OH
! KR14=1.0E+10::WR_N2O5-->WR_HNO3+WR_HNO3
-! KR15=(1.0E+5*1.0e+3*1.0e-2/(1.0e+3*1.0e-2+1.0e+3*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.))/TPK%MOL2MOLECRAIN::WR_NO3+WR_H2SO4-->WR_HNO3+WR_ASO4
+! KR15=(1.0E+5*1.0e+3*1.0e-2/(1.0e+3*1.0e-2+1.0e+3*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.))/TPK%MOL2MOLECRAIN::WR_NO3+WR_SULF-->WR_HNO3+WR_ASO4
! KR16=(1.3E+9*exp(-2200.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.))/TPK%MOL2MOLECRAIN::WR_NO3+WR_SO2-->WR_HNO3+WR_ASO3
-! KR17=((7.9E+2*exp(-2900.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+2.5E+7*exp(-2450.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15)))/((1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.)*(1.+2.5e3*exp(4030.*(1./TPK%T-1./298.15)))))/TPK%MOL2MOLECRAIN::WR_SO2+WR_HCHO-->WR_AHMS
-! KR18=7.7E-3*exp(-9200.*(1./TPK%T-1./298.15))+3.7E+3*1.e-14*EXP(-6716*(1./TPK%T-1./298.15))/10.**(-TPK%PHR)::WR_AHMS-->WR_SO2+WR_HCHO
-! KR19=3.0E+8/TPK%MOL2MOLECRAIN::WR_AHMS+WR_OH-->WR_HO2+WR_ORA1+WR_SO2
-! KR20=1.1E+9::WR_ASO3+W_O2-->WR_ASO5
-! KR21=(1.7E+9*10.**(-TPK%PHR)/(1.6e-5+10.**(-TPK%PHR)))/TPK%MOL2MOLECRAIN::WR_ASO5+WR_HO2-->WR_AHSO5
-! KR22=(2.2E+8*exp(-2600.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECRAIN::WR_ASO5+WR_ASO5-->WR_ASO4+WR_ASO4
-! KR23=(7.1E+6*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)*10.**(-TPK%PHR)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.))/TPK%MOL2MOLECRAIN::WR_AHSO5+WR_SO2-->2.00*WR_H2SO4
-! KR24=4.6E+2*exp(-1100.*(1./TPK%T-1./298.15))::WR_ASO4-->WR_H2SO4+WR_OH
-! KR25=((3.7E+5*exp(-5500.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+1.5E+9*exp(-5300.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15)))/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.))/TPK%MOL2MOLECRAIN::WR_SO2+WR_O3-->WR_H2SO4
-! KR26=(9.1E+7*exp(-3600.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)*10.**(-TPK%PHR)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.))/TPK%MOL2MOLECRAIN::WR_SO2+WR_H2O2-->WR_H2SO4
-! KR27=(1.7E+8*exp(-2200.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECRAIN::WR_RO21+WR_RO21-->2.00*WR_HCHO+2.00*WR_HO2
-! KR28=(5.0E+5*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.))/TPK%MOL2MOLECRAIN::WR_RO21+WR_SO2-->WR_HCHO+WR_ASO3
-! KR29=1.5E+8/TPK%MOL2MOLECRAIN::WR_RO25+WR_RO25-->WR_ORA2+WR_H2O2+WR_ALD2+WR_HO2
-! KR30=(1.7E+9*exp(-600.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECRAIN::WR_MEOH+WR_OH-->WR_HCHO+WR_HO2
-! KR31=(2.1E+9*exp(-1200.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECRAIN::WR_ETOH+WR_OH-->WR_ALD2+WR_HO2
-! KR32=(3.3E+9*exp(-1000.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECRAIN::WR_ALCH+WR_OH-->0.50*WR_ALD2+0.50*WR_KETL+WR_HO2
-! KR33=(7.8E+8*exp(-1000.*(1./TPK%T-1./298.15))*2.5e3*exp(4030.*(1./TPK%T-1./298.15))/(1.+2.5e3*exp(4030.*(1./TPK%T-1./298.15))))/TPK%MOL2MOLECRAIN::WR_HCHO+WR_OH-->WR_ORA1+WR_HO2
-! KR34=3.4E+9/TPK%MOL2MOLECRAIN::WR_ALD2+WR_OH-->0.50*WR_RO21+0.50*WR_RO25+WR_CO2
-! KR35=(1.1E+9*exp(-1500.*(1./TPK%T-1./298.15))*3.9e3/(1.+3.9e3))/TPK%MOL2MOLECRAIN::WR_GLY+WR_OH-->WR_RP16+WR_HO2
-! KR36=(7.9E+8*exp(-1600.*(1./TPK%T-1./298.15))*4.86e2/(1.+4.86e2))/TPK%MOL2MOLECRAIN::WR_MGLY+WR_OH-->WR_UR21+WR_HO2
-! KR37=(8.9E+8*exp(-1400.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECRAIN::WR_KETL+WR_OH-->WR_MGLY+WR_KETL+WR_HCHO+WR_UR21+WR_ALD2+WR_RO21+WR_CO2+WR_H2O2+WR_HO2
-! KR38=((1.0E+8*exp(-1000.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+3.4E+9*exp(-1200.*(1./TPK%T-1./298.15))*1.8e-4*exp(150.*(1./TPK%T-1./298.15)))/(1.8e-4*exp(150.*(1./TPK%T-1./298.15))+10.**(-TPK%PHR)))/TPK%MOL2MOLECRAIN::WR_ORA1+WR_OH-->WR_CO2+WR_HO2
-! KR39=((1.5E+7*exp(-1300.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+1.0E+8*exp(-1800.*(1./TPK%T-1./298.15))*1.75e-5)/(1.75e-5+10.**(-TPK%PHR)))/TPK%MOL2MOLECRAIN::WR_ORA2+WR_OH-->WR_RP16+0.5*WR_H2O2
-! KR40=(3.2E+8*exp(-2300.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)/(1.35e-5+10.**(-TPK%PHR)))/TPK%MOL2MOLECRAIN::WR_ACID+WR_OH-->WR_RO25+WR_CO2
-! KR41=(7.3E+8*exp(-1800.*(1./TPK%T-1./298.15))*1.35e-5/(1.35e-5+10.**(-TPK%PHR)))/TPK%MOL2MOLECRAIN::WR_ACID+WR_OH-->0.56*WR_UR21+0.15*WR_ACID2+0.29*WR_ALD2+0.29*WR_H2O2+0.11*WR_HO2
-! KR42=((4.7E+7*10.**(-TPK%PHR)*5.6E-2+7.7E+6*5.6E-2*5.4e-5)/(5.6E-2*5.4E-5+5.4E-5*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.))/TPK%MOL2MOLECRAIN::WR_UR28+WR_OH-->2*WR_CO2+WR_HO2
-! KR43=((1.2E+8*exp(-2800.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+7.0E+8*exp(-2300.*(1./TPK%T-1./298.15))*3.55E-3)/(3.55E-3+10.**(-TPK%PHR)))/TPK%MOL2MOLECRAIN::WR_UR21+WR_OH-->0.56*WR_ACID2+0.43*WR_ALD2+0.43*WR_CO2+0.3*WR_H2O2+0.81*WR_HO2
-! KR44=(3.6E+8*exp(-1000.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)/(10.**(-TPK%PHR)+3.2E-4))/TPK%MOL2MOLECRAIN::WR_RP16+WR_OH-->WR_UR28+WR_HO2
-! KR45=(2.6E+9*exp(-4300.*(1./TPK%T-1./298.15))*3.2E-4/(10.**(-TPK%PHR)+3.2E-4))/TPK%MOL2MOLECRAIN::WR_RP16+WR_OH-->2*WR_CO2+0.45*WR_H2O2+0.71*WR_HO2
-! KR46=1.6E+7/TPK%MOL2MOLECRAIN::WR_ACID2+WR_OH-->
+! KR17=(1.7E+8*exp(-2200.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECRAIN::WR_MO2+WR_MO2-->2.00*WR_HCHO+2.00*WR_HO2
+! KR18=(5.0E+5*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.))/TPK%MOL2MOLECRAIN::WR_MO2+WR_SO2-->WR_OP1+WR_ASO3
+! KR19=(7.8E+8*exp(-1000.*(1./TPK%T-1./298.15))*2.5e3*exp(4030.*(1./TPK%T-1./298.15))/(1.+2.5e3*exp(4030.*(1./TPK%T-1./298.15))))/TPK%MOL2MOLECRAIN::WR_HCHO+WR_OH-->WR_ORA1+WR_HO2
+! KR20=((1.0E+8*exp(-1000.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+3.4E+9*exp(-1200.*(1./TPK%T-1./298.15))*1.8e-4*exp(150.*(1./TPK%T-1./298.15)))/(1.8e-4*exp(150.*(1./TPK%T-1./298.15))+10.**(-TPK%PHR)))/TPK%MOL2MOLECRAIN::WR_ORA1+WR_OH-->WR_CO2+WR_HO2
+! KR21=((7.9E+2*exp(-2900.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+2.5E+7*exp(-2450.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15)))/((1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.)*(1.+2.5e3*exp(4030.*(1./TPK%T-1./298.15)))))/TPK%MOL2MOLECRAIN::WR_SO2+WR_HCHO-->WR_AHMS
+! KR22=7.7E-3*exp(-9200.*(1./TPK%T-1./298.15))+3.7E+3*1.e-14*EXP(-6716*(1./TPK%T-1./298.15))/10.**(-TPK%PHR)::WR_AHMS-->WR_SO2+WR_HCHO
+! KR23=3.0E+8/TPK%MOL2MOLECRAIN::WR_AHMS+WR_OH-->WR_HO2+WR_ORA1+WR_SO2
+! KR24=1.1E+9::WR_ASO3+W_O2-->WR_ASO5
+! KR25=(1.7E+9*10.**(-TPK%PHR)/(1.6e-5+10.**(-TPK%PHR)))/TPK%MOL2MOLECRAIN::WR_ASO5+WR_HO2-->WR_AHSO5
+! KR26=(2.2E+8*exp(-2600.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECRAIN::WR_ASO5+WR_ASO5-->WR_ASO4+WR_ASO4
+! KR27=(7.1E+6*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)*10.**(-TPK%PHR)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.))/TPK%MOL2MOLECRAIN::WR_AHSO5+WR_SO2-->2.00*WR_SULF
+! KR28=4.6E+2*exp(-1100.*(1./TPK%T-1./298.15))::WR_ASO4-->WR_SULF+WR_OH
+! KR29=((3.7E+5*exp(-5500.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+1.5E+9*exp(-5300.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15)))/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.))/TPK%MOL2MOLECRAIN::WR_SO2+WR_O3-->WR_SULF
+! KR30=(9.1E+7*exp(-3600.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)*10.**(-TPK%PHR)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.))/TPK%MOL2MOLECRAIN::WR_SO2+WR_H2O2-->WR_SULF
!
!========================================================================
!
! the prognostic chemical species are the following ...
!
-! 1. NO PCONC(:,1)
-! 2. NO2 PCONC(:,2)
-! 3. O3 PCONC(:,3)
-! 4. HONO PCONC(:,4)
-! 5. HNO3 PCONC(:,5)
-! 6. HNO4 PCONC(:,6)
-! 7. N2O5 PCONC(:,7)
-! 8. NO3 PCONC(:,8)
-! 9. NH3 PCONC(:,9)
-! 10. HO2 PCONC(:,10)
-! 11. CO PCONC(:,11)
-! 12. H2O2 PCONC(:,12)
-! 13. SO2 PCONC(:,13)
-! 14. H2SO4 PCONC(:,14)
-! 15. OH PCONC(:,15)
-! 16. ETHE PCONC(:,16)
-! 17. OLEL PCONC(:,17)
-! 18. OLEH PCONC(:,18)
-! 19. ALKL PCONC(:,19)
-! 20. ALKM PCONC(:,20)
-! 21. ALKH PCONC(:,21)
-! 22. AROH PCONC(:,22)
-! 23. AROL PCONC(:,23)
-! 24. AROO PCONC(:,24)
-! 25. ARAL PCONC(:,25)
-! 26. ARAC PCONC(:,26)
-! 27. PAH PCONC(:,27)
-! 28. HCHO PCONC(:,28)
-! 29. ALD2 PCONC(:,29)
-! 30. KETL PCONC(:,30)
-! 31. KETH PCONC(:,31)
-! 32. MEOH PCONC(:,32)
-! 33. ETOH PCONC(:,33)
-! 34. ALCH PCONC(:,34)
-! 35. ISOP PCONC(:,35)
-! 36. BIOL PCONC(:,36)
-! 37. BIOH PCONC(:,37)
-! 38. MTBE PCONC(:,38)
-! 39. MVK PCONC(:,39)
-! 40. MCR PCONC(:,40)
-! 41. MGLY PCONC(:,41)
-! 42. GLY PCONC(:,42)
-! 43. ORA1 PCONC(:,43)
-! 44. ORA2 PCONC(:,44)
-! 45. ACID PCONC(:,45)
-! 46. UR28 PCONC(:,46)
-! 47. UR21 PCONC(:,47)
-! 48. URG2 PCONC(:,48)
-! 49. UR26 PCONC(:,49)
-! 50. RPG2 PCONC(:,50)
-! 51. RP18 PCONC(:,51)
-! 52. RPG3 PCONC(:,52)
-! 53. URG4 PCONC(:,53)
-! 54. UR8 PCONC(:,54)
-! 55. UR17 PCONC(:,55)
-! 56. UR7 PCONC(:,56)
-! 57. RPR3 PCONC(:,57)
-! 58. URG6 PCONC(:,58)
-! 59. UR22 PCONC(:,59)
-! 60. URG7 PCONC(:,60)
-! 61. RPR4 PCONC(:,61)
-! 62. RPR7 PCONC(:,62)
-! 63. RPG7 PCONC(:,63)
-! 64. URG8 PCONC(:,64)
-! 65. UR19 PCONC(:,65)
-! 66. URG9 PCONC(:,66)
-! 67. AP7 PCONC(:,67)
-! 68. URG10 PCONC(:,68)
-! 69. RPR1 PCONC(:,69)
-! 70. RPR5 PCONC(:,70)
-! 71. RPR8 PCONC(:,71)
-! 72. RP10 PCONC(:,72)
-! 73. RP11 PCONC(:,73)
-! 74. RP16 PCONC(:,74)
-! 75. RPRL PCONC(:,75)
-! 76. APAN PCONC(:,76)
-! 77. PAN1 PCONC(:,77)
-! 78. PAN2 PCONC(:,78)
-! 79. PAN3 PCONC(:,79)
-! 80. PAN4 PCONC(:,80)
-! 81. PAN6 PCONC(:,81)
-! 82. PAN7 PCONC(:,82)
-! 83. PAN8 PCONC(:,83)
-! 84. PN10 PCONC(:,84)
-! 85. RO2T PCONC(:,85)
-! 86. RO21 PCONC(:,86)
-! 87. RO25 PCONC(:,87)
-! 88. WC_O3 PCONC(:,88)
-! 89. WC_H2O2 PCONC(:,89)
-! 90. WC_NO PCONC(:,90)
-! 91. WC_NO2 PCONC(:,91)
-! 92. WC_NO3 PCONC(:,92)
-! 93. WC_N2O5 PCONC(:,93)
-! 94. WC_HONO PCONC(:,94)
-! 95. WC_HNO3 PCONC(:,95)
-! 96. WC_HNO4 PCONC(:,96)
-! 97. WC_NH3 PCONC(:,97)
-! 98. WC_OH PCONC(:,98)
-! 99. WC_HO2 PCONC(:,99)
-! 100. WC_CO2 PCONC(:,100)
-! 101. WC_SO2 PCONC(:,101)
-! 102. WC_H2SO4 PCONC(:,102)
-! 103. WC_RO21 PCONC(:,103)
-! 104. WC_RO25 PCONC(:,104)
-! 105. WC_MEOH PCONC(:,105)
-! 106. WC_ETOH PCONC(:,106)
-! 107. WC_ALCH PCONC(:,107)
-! 108. WC_HCHO PCONC(:,108)
-! 109. WC_ALD2 PCONC(:,109)
-! 110. WC_GLY PCONC(:,110)
-! 111. WC_MGLY PCONC(:,111)
-! 112. WC_KETL PCONC(:,112)
-! 113. WC_ORA1 PCONC(:,113)
-! 114. WC_ORA2 PCONC(:,114)
-! 115. WC_ACID PCONC(:,115)
-! 116. WC_RP16 PCONC(:,116)
-! 117. WC_UR21 PCONC(:,117)
-! 118. WC_UR28 PCONC(:,118)
-! 119. WC_ACID2 PCONC(:,119)
-! 120. WC_ASO3 PCONC(:,120)
-! 121. WC_ASO4 PCONC(:,121)
-! 122. WC_ASO5 PCONC(:,122)
-! 123. WC_AHSO5 PCONC(:,123)
-! 124. WC_AHMS PCONC(:,124)
-! 125. WR_O3 PCONC(:,125)
-! 126. WR_H2O2 PCONC(:,126)
-! 127. WR_NO PCONC(:,127)
-! 128. WR_NO2 PCONC(:,128)
-! 129. WR_NO3 PCONC(:,129)
-! 130. WR_N2O5 PCONC(:,130)
-! 131. WR_HONO PCONC(:,131)
-! 132. WR_HNO3 PCONC(:,132)
-! 133. WR_HNO4 PCONC(:,133)
-! 134. WR_NH3 PCONC(:,134)
-! 135. WR_OH PCONC(:,135)
-! 136. WR_HO2 PCONC(:,136)
-! 137. WR_CO2 PCONC(:,137)
-! 138. WR_SO2 PCONC(:,138)
-! 139. WR_H2SO4 PCONC(:,139)
-! 140. WR_RO21 PCONC(:,140)
-! 141. WR_RO25 PCONC(:,141)
-! 142. WR_MEOH PCONC(:,142)
-! 143. WR_ETOH PCONC(:,143)
-! 144. WR_ALCH PCONC(:,144)
-! 145. WR_HCHO PCONC(:,145)
-! 146. WR_ALD2 PCONC(:,146)
-! 147. WR_GLY PCONC(:,147)
-! 148. WR_MGLY PCONC(:,148)
-! 149. WR_KETL PCONC(:,149)
-! 150. WR_ORA1 PCONC(:,150)
-! 151. WR_ORA2 PCONC(:,151)
-! 152. WR_ACID PCONC(:,152)
-! 153. WR_RP16 PCONC(:,153)
-! 154. WR_UR21 PCONC(:,154)
-! 155. WR_UR28 PCONC(:,155)
-! 156. WR_ACID2 PCONC(:,156)
-! 157. WR_ASO3 PCONC(:,157)
-! 158. WR_ASO4 PCONC(:,158)
-! 159. WR_ASO5 PCONC(:,159)
-! 160. WR_AHSO5 PCONC(:,160)
-! 161. WR_AHMS PCONC(:,161)
+! 1. O3 PCONC(:,1)
+! 2. H2O2 PCONC(:,2)
+! 3. NO PCONC(:,3)
+! 4. NO2 PCONC(:,4)
+! 5. NO3 PCONC(:,5)
+! 6. N2O5 PCONC(:,6)
+! 7. HONO PCONC(:,7)
+! 8. HNO3 PCONC(:,8)
+! 9. HNO4 PCONC(:,9)
+! 10. NH3 PCONC(:,10)
+! 11. SO2 PCONC(:,11)
+! 12. SULF PCONC(:,12)
+! 13. CO PCONC(:,13)
+! 14. OH PCONC(:,14)
+! 15. HO2 PCONC(:,15)
+! 16. CH4 PCONC(:,16)
+! 17. ETH PCONC(:,17)
+! 18. ALKA PCONC(:,18)
+! 19. ALKE PCONC(:,19)
+! 20. BIO PCONC(:,20)
+! 21. ARO PCONC(:,21)
+! 22. HCHO PCONC(:,22)
+! 23. ALD PCONC(:,23)
+! 24. KET PCONC(:,24)
+! 25. CARBO PCONC(:,25)
+! 26. ONIT PCONC(:,26)
+! 27. PAN PCONC(:,27)
+! 28. OP1 PCONC(:,28)
+! 29. OP2 PCONC(:,29)
+! 30. ORA1 PCONC(:,30)
+! 31. ORA2 PCONC(:,31)
+! 32. MO2 PCONC(:,32)
+! 33. ALKAP PCONC(:,33)
+! 34. ALKEP PCONC(:,34)
+! 35. BIOP PCONC(:,35)
+! 36. PHO PCONC(:,36)
+! 37. ADD PCONC(:,37)
+! 38. AROP PCONC(:,38)
+! 39. CARBOP PCONC(:,39)
+! 40. OLN PCONC(:,40)
+! 41. XO2 PCONC(:,41)
+! 42. WC_O3 PCONC(:,42)
+! 43. WC_H2O2 PCONC(:,43)
+! 44. WC_NO PCONC(:,44)
+! 45. WC_NO2 PCONC(:,45)
+! 46. WC_NO3 PCONC(:,46)
+! 47. WC_N2O5 PCONC(:,47)
+! 48. WC_HONO PCONC(:,48)
+! 49. WC_HNO3 PCONC(:,49)
+! 50. WC_HNO4 PCONC(:,50)
+! 51. WC_NH3 PCONC(:,51)
+! 52. WC_OH PCONC(:,52)
+! 53. WC_HO2 PCONC(:,53)
+! 54. WC_CO2 PCONC(:,54)
+! 55. WC_SO2 PCONC(:,55)
+! 56. WC_SULF PCONC(:,56)
+! 57. WC_HCHO PCONC(:,57)
+! 58. WC_ORA1 PCONC(:,58)
+! 59. WC_ORA2 PCONC(:,59)
+! 60. WC_MO2 PCONC(:,60)
+! 61. WC_OP1 PCONC(:,61)
+! 62. WC_ASO3 PCONC(:,62)
+! 63. WC_ASO4 PCONC(:,63)
+! 64. WC_ASO5 PCONC(:,64)
+! 65. WC_AHSO5 PCONC(:,65)
+! 66. WC_AHMS PCONC(:,66)
+! 67. WR_O3 PCONC(:,67)
+! 68. WR_H2O2 PCONC(:,68)
+! 69. WR_NO PCONC(:,69)
+! 70. WR_NO2 PCONC(:,70)
+! 71. WR_NO3 PCONC(:,71)
+! 72. WR_N2O5 PCONC(:,72)
+! 73. WR_HONO PCONC(:,73)
+! 74. WR_HNO3 PCONC(:,74)
+! 75. WR_HNO4 PCONC(:,75)
+! 76. WR_NH3 PCONC(:,76)
+! 77. WR_OH PCONC(:,77)
+! 78. WR_HO2 PCONC(:,78)
+! 79. WR_CO2 PCONC(:,79)
+! 80. WR_SO2 PCONC(:,80)
+! 81. WR_SULF PCONC(:,81)
+! 82. WR_HCHO PCONC(:,82)
+! 83. WR_ORA1 PCONC(:,83)
+! 84. WR_ORA2 PCONC(:,84)
+! 85. WR_MO2 PCONC(:,85)
+! 86. WR_OP1 PCONC(:,86)
+! 87. WR_ASO3 PCONC(:,87)
+! 88. WR_ASO4 PCONC(:,88)
+! 89. WR_ASO5 PCONC(:,89)
+! 90. WR_AHSO5 PCONC(:,90)
+! 91. WR_AHMS PCONC(:,91)
!
!========================================================================
!
! the individual chemical terms are the following ...
!
+! terms for O3:
+! + K018*<O3P>*<O2>
+! + 0.17307*K0102*<CARBOP>*<HO2>
+! + KTC21*<WC_O3>
+! + KTR21*<WR_O3>
+! - K002*<O3>
+! - K003*<O3>
+! - K019*<O3P>*<O3>
+! - K023*<O3>*<OH>
+! - K024*<O3>*<HO2>
+! - K042*<O3>*<NO>
+! - K043*<O3>*<NO2>
+! - K079*<ALKE>*<O3>
+! - K080*<BIO>*<O3>
+! - K081*<CARBO>*<O3>
+! - K082*<PAN>*<O3>
+! - K087*<ADD>*<O3>
+! - KTC1*<O3>
+! - KTR1*<O3>
+! terms for H2O2:
+! + K027*<HO2>*<HO2>
+! + K028*<HO2>*<HO2>*<H2O>
+! + 0.01833*K079*<ALKE>*<O3>
+! + 0.00100*K080*<BIO>*<O3>
+! + KTC22*<WC_H2O2>
+! + KTR22*<WR_H2O2>
+! - K009*<H2O2>
+! - K026*<H2O2>*<OH>
+! - KTC2*<H2O2>
+! - KTR2*<H2O2>
! terms for NO:
! + K001*<NO2>
-! + K003*<NO2>*<O>
-! + K012*<NO3>*<NO2>
-! + K013*<NO3>
-! + 0.9*K020*<HONO>
-! + K095*<NO>*<RO2T>
-! + KTC34*<WC_NO>
-! + KTR34*<WR_NO>
-! - K005*<O3>*<NO>
-! - K007*<NO3>*<NO>
-! - K008*<NO>*<NO>
-! - K008*<NO>*<NO>
-! - K019*<OH>*<NO>
-! - K026*<HO2>*<NO>
-! - K038*<NO>*<O>
-! - K095*<NO>*<RO2T>
-! - K110*<NO>*<RO21>
-! - K113*<NO>*<RO22>
-! - K116*<NO>*<RO23>
-! - K119*<NO>*<RO24>
-! - K122*<NO>*<RO25>
-! - K125*<NO>*<RO26>
-! - K144*<NO>*<RO27>
-! - K147*<NO>*<RO28>
-! - K150*<NO>*<RO29>
-! - K153*<NO>*<RO210>
-! - K156*<NO>*<RO211>
-! - K159*<NO>*<RO212>
-! - K162*<NO>*<RO213>
-! - K165*<NO>*<RO239>
-! - K168*<NO>*<RO214>
-! - K171*<NO>*<RO215>
-! - K174*<NO>*<RO216>
-! - K177*<NO>*<RO217>
-! - K180*<NO>*<RO218>
-! - K183*<NO>*<RO219>
-! - K186*<NO>*<RO220>
-! - K189*<NO>*<RO221>
-! - K192*<NO>*<RO222>
-! - K195*<NO>*<RO223>
-! - K198*<NO>*<RO224>
-! - K201*<NO>*<RO225>
-! - K204*<NO>*<RO226>
-! - K207*<NO>*<RO227>
-! - K210*<NO>*<RO228>
-! - K213*<NO>*<RO229>
-! - K216*<NO>*<RO240>
-! - K221*<NO>*<RO231>
-! - K224*<NO>*<RO232>
-! - K227*<NO>*<RO241>
-! - K231*<NO>*<RO233>
-! - K234*<NO>*<RO242>
-! - K238*<NO>*<RO234>
-! - K241*<NO>*<RO243>
-! - K245*<NO>*<RO235>
-! - K248*<NO>*<RO244>
-! - K252*<NO>*<RO236>
-! - K255*<NO>*<RO245>
-! - K259*<NO>*<RO237>
-! - K262*<NO>*<RO246>
-! - K266*<NO>*<RO238>
-! - K269*<NO>*<RO247>
-! - K277*<NO>*<RO248>
-! - K285*<NO>*<RO249>
-! - K288*<NO>*<RO250>
-! - K291*<NO>*<RO251>
-! - K294*<NO>*<RO252>
-! - K297*<NO>*<RO253>
-! - K300*<NO>*<RO254>
-! - K309*<NO>*<RO255>
-! - K315*<NO>*<RO256>
-! - K331*<NO>*<RO257>
-! - K340*<NO>*<RO258>
-! - K344*<NO>*<RO230>
+! + K004*<HONO>
+! + K007*<NO3>
+! + K030*<O3P>*<NO2>
+! + K046*<NO3>*<NO2>
+! + KTC23*<WC_NO>
+! + KTR23*<WR_NO>
+! - K029*<O3P>*<NO>
+! - K032*<OH>*<NO>
+! - K035*<HO2>*<NO>
+! - K042*<O3>*<NO>
+! - K044*<NO>*<NO>*<O2>
+! - K044*<NO>*<NO>*<O2>
+! - K045*<NO3>*<NO>
+! - K090*<MO2>*<NO>
+! - K091*<ALKAP>*<NO>
+! - K092*<ALKEP>*<NO>
+! - K093*<BIOP>*<NO>
+! - K094*<AROP>*<NO>
+! - K095*<CARBOP>*<NO>
+! - K096*<OLN>*<NO>
+! - K130*<XO2>*<NO>
! - KTC3*<NO>
! - KTR3*<NO>
! terms for NO2:
-! + K005*<O3>*<NO>
-! + 2.*K007*<NO3>*<NO>
-! + 2.*K008*<NO>*<NO>
-! + K010*<N2O5>
-! + K012*<NO3>*<NO2>
-! + K014*<NO3>
-! + 0.1*K020*<HONO>
-! + K026*<HO2>*<NO>
-! + K028*<HNO4>
-! + K029*<OH>*<HNO4>
-! + 0.8*K033*<HO2>*<NO3>
-! + K038*<NO>*<O>
+! + K005*<HNO3>
+! + 0.65*K006*<HNO4>
+! + K008*<NO3>
+! + K017*<ONIT>
+! + K029*<O3P>*<NO>
+! + K034*<OH>*<NO3>
+! + K035*<HO2>*<NO>
+! + K037*<HNO4>
+! + 0.7*K038*<HO2>*<NO3>
! + K039*<OH>*<HONO>
-! + K040*<OH>*<NO3>
-! + 2.*K041*<NO3>*<NO3>
-! + K110*<NO>*<RO21>
-! + K113*<NO>*<RO22>
-! + 2.*K116*<NO>*<RO23>
-! + K117*<RO2T>*<RO23>
-! + K118*<HO2>*<RO23>
-! + K119*<NO>*<RO24>
-! + TPK%CF4*K122*<NO>*<RO25>
-! + K125*<NO>*<RO26>
-! + K135*<PAN1>
-! + K136*<PAN2>
-! + K137*<PAN3>
-! + K138*<PN10>
-! + 1.0000000*K139*<APAN>
-! + K140*<PAN6>
-! + K141*<PAN4>
-! + K144*<NO>*<RO27>
-! + K147*<NO>*<RO28>
-! + TPK%CF6*K150*<NO>*<RO29>
-! + K153*<NO>*<RO210>
-! + 2.*K156*<NO>*<RO211>
-! + K157*<RO2T>*<RO211>
-! + K158*<HO2>*<RO211>
-! + 2.*K159*<NO>*<RO212>
-! + K160*<RO2T>*<RO212>
-! + K161*<HO2>*<RO212>
-! + K162*<NO>*<RO213>
-! + K165*<NO>*<RO239>
-! + TPK%CF8*K168*<NO>*<RO214>
-! + K171*<NO>*<RO215>
-! + K174*<NO>*<RO216>
-! + TPK%CF22*K177*<NO>*<RO217>
-! + TPK%CF20*K180*<NO>*<RO218>
-! + 2.*K183*<NO>*<RO219>
-! + K184*<RO2T>*<RO219>
-! + K185*<HO2>*<RO219>
-! + TPK%CF18*K186*<NO>*<RO220>
-! + TPK%CF24*K189*<NO>*<RO221>
-! + TPK%CF42*K192*<NO>*<RO222>
-! + TPK%CF44*K195*<NO>*<RO223>
-! + TPK%CF26*K198*<NO>*<RO224>
-! + 2.*K201*<NO>*<RO225>
-! + K202*<RO2T>*<RO225>
-! + K203*<HO2>*<RO225>
-! + K204*<NO>*<RO226>
-! + TPK%CF28*K207*<NO>*<RO227>
-! + 2.*K210*<NO>*<RO228>
-! + K211*<RO2T>*<RO228>
-! + K212*<HO2>*<RO228>
-! + TPK%CF30*K213*<NO>*<RO229>
-! + K216*<NO>*<RO240>
-! + TPK%CF32*K221*<NO>*<RO231>
-! + TPK%CF34*K224*<NO>*<RO232>
-! + TPK%CF36*K227*<NO>*<RO241>
-! + K231*<NO>*<RO233>
-! + K234*<NO>*<RO242>
-! + K238*<NO>*<RO234>
-! + K241*<NO>*<RO243>
-! + K245*<NO>*<RO235>
-! + K248*<NO>*<RO244>
-! + K252*<NO>*<RO236>
-! + K255*<NO>*<RO245>
-! + K259*<NO>*<RO237>
-! + K262*<NO>*<RO246>
-! + K266*<NO>*<RO238>
-! + K269*<NO>*<RO247>
-! + K277*<NO>*<RO248>
-! + K285*<NO>*<RO249>
-! + K288*<NO>*<RO250>
-! + K291*<NO>*<RO251>
-! + 2.*K294*<NO>*<RO252>
-! + K295*<HO2>*<RO252>
-! + K296*<RO2T>*<RO252>
-! + K297*<NO>*<RO253>
-! + K300*<NO>*<RO254>
-! + K309*<NO>*<RO255>
-! + K315*<NO>*<RO256>
-! + K317*<PAN8>
-! + K331*<NO>*<RO257>
-! + K340*<NO>*<RO258>
-! + K343*<PAN7>
-! + K344*<NO>*<RO230>
-! + KTC35*<WC_NO2>
-! + KTR35*<WR_NO2>
+! + K041*<OH>*<HNO4>
+! + K042*<O3>*<NO>
+! + K044*<NO>*<NO>*<O2>
+! + K044*<NO>*<NO>*<O2>
+! + K045*<NO3>*<NO>
+! + K045*<NO3>*<NO>
+! + K046*<NO3>*<NO2>
+! + K048*<N2O5>
+! + K049*<NO3>*<NO3>
+! + K049*<NO3>*<NO3>
+! + K071*<ONIT>*<OH>
+! + 0.10530*K074*<CARBO>*<NO3>
+! + 0.40*K078*<PAN>*<NO3>
+! + 0.70*K082*<PAN>*<O3>
+! + K089*<PAN>
+! + K090*<MO2>*<NO>
+! + 0.91541*K091*<ALKAP>*<NO>
+! + K092*<ALKEP>*<NO>
+! + 0.84700*K093*<BIOP>*<NO>
+! + 0.95115*K094*<AROP>*<NO>
+! + K095*<CARBOP>*<NO>
+! + 1.81599*K096*<OLN>*<NO>
+! + 0.32440*K110*<OLN>*<MO2>
+! + 0.00000*K116*<OLN>*<CARBOP>
+! + 0.00000*K118*<OLN>*<OLN>
+! + K119*<MO2>*<NO3>
+! + K120*<ALKAP>*<NO3>
+! + K121*<ALKEP>*<NO3>
+! + K122*<BIOP>*<NO3>
+! + K123*<AROP>*<NO3>
+! + K124*<CARBOP>*<NO3>
+! + 1.74072*K125*<OLN>*<NO3>
+! + K130*<XO2>*<NO>
+! + K131*<XO2>*<NO3>
+! + KTC24*<WC_NO2>
+! + KTR24*<WR_NO2>
! - K001*<NO2>
-! - K003*<NO2>*<O>
-! - K004*<NO2>*<O>
-! - K006*<O3>*<NO2>
-! - K009*<NO3>*<NO2>
-! - K012*<NO3>*<NO2>
-! - K021*<H2O>*<NO2>
-! - K022*<OH>*<NO2>
-! - K027*<HO2>*<NO2>
-! - K103*<NO2>*<RAD1>
-! - K104*<NO2>*<RAD2>
-! - K105*<NO2>*<RAD3>
-! - K106*<NO2>*<RAD4>
-! - K107*<NO2>*<RAD5>
-! - K108*<NO2>*<RAD6>
-! - K109*<NO2>*<RAD7>
-! - K126*<NO2>*<RO26>
-! - K127*<NO2>*<RO28>
-! - K128*<NO2>*<RO239>
-! - K129*<NO2>*<RO248>
-! - K130*<NO2>*<RO250>
-! - K131*<NO2>*<RO254>
-! - K132*<NO2>*<RO255>
-! - K133*<NO2>*<RO257>
-! - K134*<NO2>*<RO258>
-! - K316*<NO2>*<RO256>
-! - K321*<NO2>*<RAD8>
+! - K030*<O3P>*<NO2>
+! - K031*<O3P>*<NO2>
+! - K033*<OH>*<NO2>
+! - K036*<HO2>*<NO2>
+! - K043*<O3>*<NO2>
+! - K046*<NO3>*<NO2>
+! - K047*<NO3>*<NO2>
+! - K083*<PHO>*<NO2>
+! - K085*<ADD>*<NO2>
+! - K088*<CARBOP>*<NO2>
! - KTC4*<NO2>
! - KTR4*<NO2>
-! terms for O3:
-! + K002*<O2>*<O>
-! + K081*<NO3>*<ARAL>
-! + TPK%CF39*K082*<OH>*<ARAL>
-! + K142*<HO2>*<RO26>
-! + K148*<HO2>*<RO28>
-! + K166*<HO2>*<RO239>
-! + K279*<HO2>*<RO248>
-! + K289*<HO2>*<RO250>
-! + K301*<HO2>*<RO254>
-! + K303*<OH>*<RPR5>
-! + 1.0000011*K306*<OH>*<RPRL>
-! + K310*<HO2>*<RO255>
-! + K318*<HO2>*<RO256>
-! + K322*<OH>*<RPR7>
-! + 1.0000005*K323*<OH>*<RPG7>
-! + K326*<OH>*<RP11>
-! + K332*<HO2>*<RO257>
-! + 1.0000000*K334*<OH>*<RPG3>
-! + 1.0000000*K335*<OH>*<RPG2>
-! + K337*<OH>*<RP18>
-! + K341*<HO2>*<RO258>
-! + KTC32*<WC_O3>
-! + KTR32*<WR_O3>
-! - K005*<O3>*<NO>
-! - K006*<O3>*<NO2>
-! - K015*<O3>
-! - K016*<O3>
-! - K025*<OH>*<O3>
-! - K030*<HO2>*<O3>
-! - K034*<O3>*<O>
-! - K051*<O3>*<ETHE>
-! - K056*<O3>*<OLEL>
-! - K066*<O3>*<ISOP>
-! - K076*<O3>*<OLEH>
-! - K086*<O3>*<BIOL>
-! - K090*<O3>*<BIOH>
-! - K281*<O3>*<MVK>
-! - K282*<O3>*<MCR>
-! - KTC1*<O3>
-! - KTR1*<O3>
+! terms for NO3:
+! + 0.35*K006*<HNO4>
+! + K031*<O3P>*<NO2>
+! + K040*<OH>*<HNO3>
+! + K043*<O3>*<NO2>
+! + K048*<N2O5>
+! + 0.71893*K070*<PAN>*<OH>
+! + 0.60*K078*<PAN>*<NO3>
+! + KTC25*<WC_NO3>
+! + KTR25*<WR_NO3>
+! - K007*<NO3>
+! - K008*<NO3>
+! - K034*<OH>*<NO3>
+! - K038*<HO2>*<NO3>
+! - K045*<NO3>*<NO>
+! - K046*<NO3>*<NO2>
+! - K047*<NO3>*<NO2>
+! - K049*<NO3>*<NO3>
+! - K049*<NO3>*<NO3>
+! - K072*<HCHO>*<NO3>
+! - K073*<ALD>*<NO3>
+! - K074*<CARBO>*<NO3>
+! - K075*<ARO>*<NO3>
+! - K076*<ALKE>*<NO3>
+! - K077*<BIO>*<NO3>
+! - K078*<PAN>*<NO3>
+! - K119*<MO2>*<NO3>
+! - K120*<ALKAP>*<NO3>
+! - K121*<ALKEP>*<NO3>
+! - K122*<BIOP>*<NO3>
+! - K123*<AROP>*<NO3>
+! - K124*<CARBOP>*<NO3>
+! - K125*<OLN>*<NO3>
+! - K131*<XO2>*<NO3>
+! - KTC5*<NO3>
+! - KTR5*<NO3>
+! terms for N2O5:
+! + K047*<NO3>*<NO2>
+! + KTC26*<WC_N2O5>
+! + KTR26*<WR_N2O5>
+! - K048*<N2O5>
+! - KTC6*<N2O5>
+! - KTR6*<N2O5>
! terms for HONO:
-! + K019*<OH>*<NO>
-! + 0.5*K021*<H2O>*<NO2>
-! + KTC38*<WC_HONO>
-! + KTR38*<WR_HONO>
-! - K020*<HONO>
+! + K032*<OH>*<NO>
+! + K085*<ADD>*<NO2>
+! + KTC27*<WC_HONO>
+! + KTR27*<WR_HONO>
+! - K004*<HONO>
! - K039*<OH>*<HONO>
! - KTC7*<HONO>
! - KTR7*<HONO>
! terms for HNO3:
-! + 2.*K011*<H2O>*<N2O5>
-! + 0.5*K021*<H2O>*<NO2>
-! + K022*<OH>*<NO2>
-! + 0.2*K033*<HO2>*<NO3>
-! + K047*<NO3>*<HCHO>
-! + K061*<NO3>*<ALD2>
-! + K072*<NO3>*<AROO>
-! + K081*<NO3>*<ARAL>
-! + TPK%CF46*K275*<NO3>*<MCR>
-! + K278*<NO3>*<MGLY>
-! + K307*<NO3>*<RPR1>
-! + K313*<NO3>*<RPR3>
-! + K320*<NO3>*<RPR4>
-! + K327*<NO3>*<RPR8>
-! + K338*<NO3>*<RP16>
-! + KTC39*<WC_HNO3>
-! + KTR39*<WR_HNO3>
-! - K023*<OH>*<HNO3>
+! + K033*<OH>*<NO2>
+! + 0.3*K038*<HO2>*<NO3>
+! + K072*<HCHO>*<NO3>
+! + K073*<ALD>*<NO3>
+! + 0.91567*K074*<CARBO>*<NO3>
+! + K075*<ARO>*<NO3>
+! + KTC28*<WC_HNO3>
+! + KTR28*<WR_HNO3>
+! - K005*<HNO3>
+! - K040*<OH>*<HNO3>
! - KTC8*<HNO3>
! - KTR8*<HNO3>
! terms for HNO4:
-! + K027*<HO2>*<NO2>
-! + KTC40*<WC_HNO4>
-! + KTR40*<WR_HNO4>
-! - K028*<HNO4>
-! - K029*<OH>*<HNO4>
+! + K036*<HO2>*<NO2>
+! + KTC29*<WC_HNO4>
+! + KTR29*<WR_HNO4>
+! - K006*<HNO4>
+! - K037*<HNO4>
+! - K041*<OH>*<HNO4>
! - KTC9*<HNO4>
! - KTR9*<HNO4>
-! terms for N2O5:
-! + K009*<NO3>*<NO2>
-! + KTC37*<WC_N2O5>
-! + KTR37*<WR_N2O5>
-! - K010*<N2O5>
-! - K011*<H2O>*<N2O5>
-! - KTC6*<N2O5>
-! - KTR6*<N2O5>
-! terms for NO3:
-! + K004*<NO2>*<O>
-! + K006*<O3>*<NO2>
-! + K010*<N2O5>
-! + K023*<OH>*<HNO3>
-! + KTC36*<WC_NO3>
-! + KTR36*<WR_NO3>
-! - K007*<NO3>*<NO>
-! - K009*<NO3>*<NO2>
-! - K012*<NO3>*<NO2>
-! - K013*<NO3>
-! - K014*<NO3>
-! - K033*<HO2>*<NO3>
-! - K040*<OH>*<NO3>
-! - K041*<NO3>*<NO3>
-! - K041*<NO3>*<NO3>
-! - K047*<NO3>*<HCHO>
-! - K050*<NO3>*<ETHE>
-! - K055*<NO3>*<OLEL>
-! - K061*<NO3>*<ALD2>
-! - K065*<NO3>*<ISOP>
-! - K072*<NO3>*<AROO>
-! - K075*<NO3>*<OLEH>
-! - K081*<NO3>*<ARAL>
-! - K085*<NO3>*<BIOL>
-! - K089*<NO3>*<BIOH>
-! - K275*<NO3>*<MCR>
-! - K278*<NO3>*<MGLY>
-! - K307*<NO3>*<RPR1>
-! - K313*<NO3>*<RPR3>
-! - K320*<NO3>*<RPR4>
-! - K327*<NO3>*<RPR8>
-! - K338*<NO3>*<RP16>
-! - KTC5*<NO3>
-! - KTR5*<NO3>
! terms for NH3:
-! + KTC41*<WC_NH3>
-! + KTR41*<WR_NH3>
-! - K345*<OH>*<NH3>
+! + KTC30*<WC_NH3>
+! + KTR30*<WR_NH3>
+! - K050*<NH3>*<OH>
! - KTC10*<NH3>
! - KTR10*<NH3>
-! terms for HO2:
-! + 0.1*K020*<HONO>
-! + K024*<OH>*<CO>
-! + K025*<OH>*<O3>
-! + K028*<HNO4>
-! + K035*<OH>*<SO2>
-! + K037*<OH>*<H2O2>
-! + K040*<OH>*<NO3>
-! + 2.0*K044*<HCHO>
-! + K046*<OH>*<HCHO>
-! + K047*<NO3>*<HCHO>
-! + K048*<OH>*<MEOH>
-! + 0.06*K051*<O3>*<ETHE>
-! + K052*<O>*<ETHE>
-! + TPK%CF1*K053*<OH>*<ETOH>
-! + 0.28*K056*<O3>*<OLEL>
-! + K059*<ALD2>
-! + 0.366*K066*<O3>*<ISOP>
-! + 0.16*K073*<OH>*<AROO>
-! + 0.28*K076*<O3>*<OLEH>
-! + 0.16*K079*<OH>*<AROL>
-! + 0.16*K080*<OH>*<AROH>
-! + TPK%CF48*K082*<OH>*<ARAL>
-! + 0.16*K083*<OH>*<ARAC>
-! + 0.445*K086*<O3>*<BIOL>
-! + 0.16*K092*<OH>*<PAH>
-! + K094*<HO2>*<RO2T>
-! + K110*<NO>*<RO21>
-! + K111*<RO2T>*<RO21>
-! + K112*<HO2>*<RO21>
-! + K113*<NO>*<RO22>
-! + K114*<RO2T>*<RO22>
-! + K115*<HO2>*<RO22>
-! + K117*<RO2T>*<RO23>
-! + K118*<HO2>*<RO23>
-! + K119*<NO>*<RO24>
-! + K120*<RO2T>*<RO24>
-! + K121*<HO2>*<RO24>
-! + TPK%CF4*K122*<NO>*<RO25>
-! + K123*<RO2T>*<RO25>
-! + K124*<HO2>*<RO25>
-! + TPK%CF6*K150*<NO>*<RO29>
-! + K151*<RO2T>*<RO29>
-! + K152*<HO2>*<RO29>
-! + K153*<NO>*<RO210>
-! + K154*<RO2T>*<RO210>
-! + K155*<HO2>*<RO210>
-! + K171*<NO>*<RO215>
-! + K172*<RO2T>*<RO215>
-! + K173*<HO2>*<RO215>
-! + TPK%CF22*K177*<NO>*<RO217>
-! + K178*<RO2T>*<RO217>
-! + K179*<HO2>*<RO217>
-! + TPK%CF20*K180*<NO>*<RO218>
-! + K181*<RO2T>*<RO218>
-! + K182*<HO2>*<RO218>
-! + TPK%CF24*K189*<NO>*<RO221>
-! + K190*<RO2T>*<RO221>
-! + K191*<HO2>*<RO221>
-! + TPK%CF42*K192*<NO>*<RO222>
-! + K193*<RO2T>*<RO222>
-! + K194*<HO2>*<RO222>
-! + TPK%CF44*K195*<NO>*<RO223>
-! + K196*<RO2T>*<RO223>
-! + K197*<HO2>*<RO223>
-! + TPK%CF26*K198*<NO>*<RO224>
-! + K199*<RO2T>*<RO224>
-! + K200*<HO2>*<RO224>
-! + TPK%CF28*K207*<NO>*<RO227>
-! + K208*<RO2T>*<RO227>
-! + K209*<HO2>*<RO227>
-! + TPK%CF32*K221*<NO>*<RO231>
-! + K222*<RO2T>*<RO231>
-! + K223*<HO2>*<RO231>
-! + TPK%CF36*K227*<NO>*<RO241>
-! + K228*<RO2T>*<RO241>
-! + K229*<HO2>*<RO241>
-! + K231*<NO>*<RO233>
-! + K232*<RO2T>*<RO233>
-! + K233*<HO2>*<RO233>
-! + K234*<NO>*<RO242>
-! + K235*<RO2T>*<RO242>
-! + K236*<HO2>*<RO242>
-! + K238*<NO>*<RO234>
-! + K239*<RO2T>*<RO234>
-! + K240*<HO2>*<RO234>
-! + K241*<NO>*<RO243>
-! + K242*<RO2T>*<RO243>
-! + K243*<HO2>*<RO243>
-! + K245*<NO>*<RO235>
-! + K246*<RO2T>*<RO235>
-! + K247*<HO2>*<RO235>
-! + K248*<NO>*<RO244>
-! + K249*<RO2T>*<RO244>
-! + K250*<HO2>*<RO244>
-! + K252*<NO>*<RO236>
-! + K253*<RO2T>*<RO236>
-! + K254*<HO2>*<RO236>
-! + K255*<NO>*<RO245>
-! + K256*<RO2T>*<RO245>
-! + K257*<HO2>*<RO245>
-! + K259*<NO>*<RO237>
-! + K260*<RO2T>*<RO237>
-! + K261*<HO2>*<RO237>
-! + K262*<NO>*<RO246>
-! + K263*<RO2T>*<RO246>
-! + K264*<HO2>*<RO246>
-! + K266*<NO>*<RO238>
-! + K267*<RO2T>*<RO238>
-! + K268*<HO2>*<RO238>
-! + K269*<NO>*<RO247>
-! + K270*<RO2T>*<RO247>
-! + K271*<HO2>*<RO247>
-! + K276*<MGLY>
-! + 0.28*K281*<O3>*<MVK>
-! + 0.41*K282*<O3>*<MCR>
-! + 0.15*K284*<O>*<MCR>
-! + K285*<NO>*<RO249>
-! + K286*<RO2T>*<RO249>
-! + K287*<HO2>*<RO249>
-! + K291*<NO>*<RO251>
-! + K292*<HO2>*<RO251>
-! + K293*<RO2T>*<RO251>
-! + K300*<NO>*<RO254>
-! + K302*<RO2T>*<RO254>
-! + K308*<RPR1>
-! + 2.*K314*<RPR3>
-! + K315*<NO>*<RO256>
-! + K319*<RO2T>*<RO256>
-! + K325*<OH>*<RP10>
-! + K329*<RPR8>
-! + K330*<RPR8>
-! + K339*<RP16>
-! + K347*<OH>*<ORA1>
-! + KTC43*<WC_HO2>
-! + KTR43*<WR_HO2>
-! - K026*<HO2>*<NO>
-! - K027*<HO2>*<NO2>
-! - K030*<HO2>*<O3>
-! - K031*<HO2>*<HO2>
-! - K031*<HO2>*<HO2>
-! - K032*<HO2>*<H2O>*<HO2>
-! - K032*<HO2>*<H2O>*<HO2>
-! - K033*<HO2>*<NO3>
-! - K042*<HO2>*<OH>
-! - K094*<HO2>*<RO2T>
-! - K112*<HO2>*<RO21>
-! - K115*<HO2>*<RO22>
-! - K118*<HO2>*<RO23>
-! - K121*<HO2>*<RO24>
-! - K124*<HO2>*<RO25>
-! - K142*<HO2>*<RO26>
-! - K146*<HO2>*<RO27>
-! - K148*<HO2>*<RO28>
-! - K152*<HO2>*<RO29>
-! - K155*<HO2>*<RO210>
-! - K158*<HO2>*<RO211>
-! - K161*<HO2>*<RO212>
-! - K164*<HO2>*<RO213>
-! - K166*<HO2>*<RO239>
-! - K170*<HO2>*<RO214>
-! - K173*<HO2>*<RO215>
-! - K176*<HO2>*<RO216>
-! - K179*<HO2>*<RO217>
-! - K182*<HO2>*<RO218>
-! - K185*<HO2>*<RO219>
-! - K188*<HO2>*<RO220>
-! - K191*<HO2>*<RO221>
-! - K194*<HO2>*<RO222>
-! - K197*<HO2>*<RO223>
-! - K200*<HO2>*<RO224>
-! - K203*<HO2>*<RO225>
-! - K206*<HO2>*<RO226>
-! - K209*<HO2>*<RO227>
-! - K212*<HO2>*<RO228>
-! - K215*<HO2>*<RO229>
-! - K218*<HO2>*<RO240>
-! - K220*<HO2>*<RO230>
-! - K223*<HO2>*<RO231>
-! - K226*<HO2>*<RO232>
-! - K229*<HO2>*<RO241>
-! - K233*<HO2>*<RO233>
-! - K236*<HO2>*<RO242>
-! - K240*<HO2>*<RO234>
-! - K243*<HO2>*<RO243>
-! - K247*<HO2>*<RO235>
-! - K250*<HO2>*<RO244>
-! - K254*<HO2>*<RO236>
-! - K257*<HO2>*<RO245>
-! - K261*<HO2>*<RO237>
-! - K264*<HO2>*<RO246>
-! - K268*<HO2>*<RO238>
-! - K271*<HO2>*<RO247>
-! - K279*<HO2>*<RO248>
-! - K287*<HO2>*<RO249>
-! - K289*<HO2>*<RO250>
-! - K292*<HO2>*<RO251>
-! - K295*<HO2>*<RO252>
-! - K298*<HO2>*<RO253>
-! - K301*<HO2>*<RO254>
-! - K310*<HO2>*<RO255>
-! - K318*<HO2>*<RO256>
-! - K332*<HO2>*<RO257>
-! - K341*<HO2>*<RO258>
-! - KTC12*<HO2>
-! - KTR12*<HO2>
-! terms for CO:
-! + K044*<HCHO>
-! + K045*<HCHO>
-! + K046*<OH>*<HCHO>
-! + K047*<NO3>*<HCHO>
-! + 0.315*K051*<O3>*<ETHE>
-! + 0.6*K052*<O>*<ETHE>
-! + 0.56*K056*<O3>*<OLEL>
-! + K059*<ALD2>
-! + 0.461*K066*<O3>*<ISOP>
-! + 0.56*K076*<O3>*<OLEH>
-! + 0.445*K086*<O3>*<BIOL>
-! + 0.445*K090*<O3>*<BIOH>
-! + K119*<NO>*<RO24>
-! + K120*<RO2T>*<RO24>
-! + K121*<HO2>*<RO24>
-! + K276*<MGLY>
-! + 0.56*K281*<O3>*<MVK>
-! + 0.41*K282*<O3>*<MCR>
-! + 0.15*K284*<O>*<MCR>
-! + K300*<NO>*<RO254>
-! + K302*<RO2T>*<RO254>
-! + K308*<RPR1>
-! + K314*<RPR3>
-! + K329*<RPR8>
-! + 2.*K339*<RP16>
-! + K340*<NO>*<RO258>
-! + K342*<RO2T>*<RO258>
-! - K024*<OH>*<CO>
-! terms for H2O2:
-! + K031*<HO2>*<HO2>
-! + K032*<HO2>*<H2O>*<HO2>
-! + 0.055*K086*<O3>*<BIOL>
-! + 0.055*K090*<O3>*<BIOH>
-! + KTC33*<WC_H2O2>
-! + KTR33*<WR_H2O2>
-! - K036*<H2O2>
-! - K037*<OH>*<H2O2>
-! - KTC2*<H2O2>
-! - KTR2*<H2O2>
! terms for SO2:
-! + KTC45*<WC_SO2>
-! + KTR45*<WR_SO2>
-! - K035*<OH>*<SO2>
+! + KTC34*<WC_SO2>
+! + KTR34*<WR_SO2>
+! - K052*<OH>*<SO2>
! - KTC14*<SO2>
! - KTR14*<SO2>
-! terms for H2SO4:
-! + K035*<OH>*<SO2>
-! + KTC46*<WC_H2SO4>
-! + KTR46*<WR_H2SO4>
-! - K346*<H2SO4>
-! - KTC15*<H2SO4>
-! - KTR15*<H2SO4>
+! terms for SULF:
+! + K052*<OH>*<SO2>
+! + KTC35*<WC_SULF>
+! + KTR35*<WR_SULF>
+! - K132*<SULF>
+! - KTC15*<SULF>
+! - KTR15*<SULF>
+! terms for CO:
+! + K010*<HCHO>
+! + K011*<HCHO>
+! + K012*<ALD>
+! + 0.91924*K016*<CARBO>
+! + 0.01*K054*<BIO>*<O3P>
+! + 0.00878*K058*<ALKA>*<OH>
+! + K062*<HCHO>*<OH>
+! + 1.01732*K065*<CARBO>*<OH>
+! + K072*<HCHO>*<NO3>
+! + 1.33723*K074*<CARBO>*<NO3>
+! + 0.35120*K079*<ALKE>*<O3>
+! + 0.36000*K080*<BIO>*<O3>
+! + 0.64728*K081*<CARBO>*<O3>
+! + 0.13*K082*<PAN>*<O3>
+! - K053*<CO>*<OH>
! terms for OH:
-! + K017*<H2O>*<OSD>
-! + K017*<H2O>*<OSD>
-! + 0.9*K020*<HONO>
-! + K026*<HO2>*<NO>
-! + K030*<HO2>*<O3>
-! + 0.8*K033*<HO2>*<NO3>
-! + 2.*K036*<H2O2>
-! + 0.06*K051*<O3>*<ETHE>
-! + 0.36*K056*<O3>*<OLEL>
-! + 0.664*K066*<O3>*<ISOP>
-! + 0.36*K076*<O3>*<OLEH>
-! + 0.89*K086*<O3>*<BIOL>
-! + 0.89*K090*<O3>*<BIOH>
-! + K112*<HO2>*<RO21>
-! + K115*<HO2>*<RO22>
-! + K118*<HO2>*<RO23>
-! + K121*<HO2>*<RO24>
-! + K124*<HO2>*<RO25>
-! + K146*<HO2>*<RO27>
-! + K152*<HO2>*<RO29>
-! + K155*<HO2>*<RO210>
-! + K158*<HO2>*<RO211>
-! + K161*<HO2>*<RO212>
-! + K164*<HO2>*<RO213>
-! + K170*<HO2>*<RO214>
-! + K173*<HO2>*<RO215>
-! + K176*<HO2>*<RO216>
-! + K179*<HO2>*<RO217>
-! + K182*<HO2>*<RO218>
-! + K185*<HO2>*<RO219>
-! + K188*<HO2>*<RO220>
-! + K191*<HO2>*<RO221>
-! + K194*<HO2>*<RO222>
-! + K197*<HO2>*<RO223>
-! + K200*<HO2>*<RO224>
-! + K203*<HO2>*<RO225>
-! + K206*<HO2>*<RO226>
-! + K209*<HO2>*<RO227>
-! + K212*<HO2>*<RO228>
-! + K215*<HO2>*<RO229>
-! + K218*<HO2>*<RO240>
-! + K220*<HO2>*<RO230>
-! + K223*<HO2>*<RO231>
-! + K226*<HO2>*<RO232>
-! + K229*<HO2>*<RO241>
-! + K233*<HO2>*<RO233>
-! + K236*<HO2>*<RO242>
-! + K240*<HO2>*<RO234>
-! + K243*<HO2>*<RO243>
-! + K247*<HO2>*<RO235>
-! + K250*<HO2>*<RO244>
-! + K254*<HO2>*<RO236>
-! + K257*<HO2>*<RO245>
-! + K261*<HO2>*<RO237>
-! + K264*<HO2>*<RO246>
-! + K268*<HO2>*<RO238>
-! + K271*<HO2>*<RO247>
-! + 0.36*K281*<O3>*<MVK>
-! + 0.82*K282*<O3>*<MCR>
-! + K287*<HO2>*<RO249>
-! + K293*<RO2T>*<RO251>
-! + K296*<RO2T>*<RO252>
-! + K299*<RO2T>*<RO253>
-! + K339*<RP16>
-! + K340*<NO>*<RO258>
-! + K342*<RO2T>*<RO258>
-! + KTC42*<WC_OH>
-! + KTR42*<WR_OH>
-! - K019*<OH>*<NO>
-! - K022*<OH>*<NO2>
-! - K023*<OH>*<HNO3>
-! - K024*<OH>*<CO>
-! - K025*<OH>*<O3>
-! - K029*<OH>*<HNO4>
-! - K035*<OH>*<SO2>
-! - K037*<OH>*<H2O2>
+! + K004*<HONO>
+! + K005*<HNO3>
+! + 0.35*K006*<HNO4>
+! + K009*<H2O2>
+! + K009*<H2O2>
+! + K013*<OP1>
+! + K014*<OP2>
+! + K022*<O1D>*<H2O>
+! + K022*<O1D>*<H2O>
+! + K024*<O3>*<HO2>
+! + K035*<HO2>*<NO>
+! + 0.7*K038*<HO2>*<NO3>
+! + 0.02*K054*<BIO>*<O3P>
+! + 0.00878*K058*<ALKA>*<OH>
+! + 0.35*K068*<OP1>*<OH>
+! + 0.44925*K069*<OP2>*<OH>
+! + 0.39435*K079*<ALKE>*<O3>
+! + 0.28000*K080*<BIO>*<O3>
+! + 0.20595*K081*<CARBO>*<O3>
+! + 0.036*K082*<PAN>*<O3>
+! + K087*<ADD>*<O3>
+! + KTC31*<WC_OH>
+! + KTR31*<WR_OH>
+! - K023*<O3>*<OH>
+! - K025*<OH>*<HO2>
+! - K026*<H2O2>*<OH>
+! - K032*<OH>*<NO>
+! - K033*<OH>*<NO2>
+! - K034*<OH>*<NO3>
! - K039*<OH>*<HONO>
-! - K040*<OH>*<NO3>
-! - K042*<HO2>*<OH>
-! - K043*<OH>*<CH4>
-! - K046*<OH>*<HCHO>
-! - K048*<OH>*<MEOH>
-! - K049*<OH>*<ETHE>
-! - K053*<OH>*<ETOH>
-! - K054*<OH>*<OLEL>
-! - K058*<OH>*<ALKL>
-! - K060*<OH>*<ALD2>
-! - K062*<OH>*<KETL>
-! - K064*<OH>*<ISOP>
-! - K068*<OH>*<MTBE>
-! - K069*<OH>*<ALCH>
-! - K070*<OH>*<KETH>
-! - K073*<OH>*<AROO>
-! - K074*<OH>*<OLEH>
-! - K078*<OH>*<ALKM>
-! - K079*<OH>*<AROL>
-! - K080*<OH>*<AROH>
-! - K082*<OH>*<ARAL>
-! - K083*<OH>*<ARAC>
-! - K084*<OH>*<BIOL>
-! - K088*<OH>*<BIOH>
-! - K092*<OH>*<PAH>
-! - K093*<OH>*<ALKH>
-! - K272*<OH>*<MVK>
-! - K273*<OH>*<MCR>
-! - K274*<OH>*<MGLY>
-! - K303*<OH>*<RPR5>
-! - K304*<OH>*<RPR1>
-! - K305*<OH>*<RP16>
-! - K306*<OH>*<RPRL>
-! - K312*<OH>*<RPR3>
-! - K322*<OH>*<RPR7>
-! - K323*<OH>*<RPG7>
-! - K324*<OH>*<RPR8>
-! - K325*<OH>*<RP10>
-! - K326*<OH>*<RP11>
-! - K334*<OH>*<RPG3>
-! - K335*<OH>*<RPG2>
-! - K337*<OH>*<RP18>
-! - K345*<OH>*<NH3>
-! - K347*<OH>*<ORA1>
-! - K348*<OH>*<ORA2>
-! - K349*<OH>*<ACID>
+! - K040*<OH>*<HNO3>
+! - K041*<OH>*<HNO4>
+! - K050*<NH3>*<OH>
+! - K051*<OH>*<H2>
+! - K052*<OH>*<SO2>
+! - K053*<CO>*<OH>
+! - K056*<CH4>*<OH>
+! - K057*<ETH>*<OH>
+! - K058*<ALKA>*<OH>
+! - K059*<ALKE>*<OH>
+! - K060*<BIO>*<OH>
+! - K061*<ARO>*<OH>
+! - K062*<HCHO>*<OH>
+! - K063*<ALD>*<OH>
+! - K064*<KET>*<OH>
+! - K065*<CARBO>*<OH>
+! - K066*<ORA1>*<OH>
+! - K067*<ORA2>*<OH>
+! - K068*<OP1>*<OH>
+! - K069*<OP2>*<OH>
+! - K070*<PAN>*<OH>
+! - K071*<ONIT>*<OH>
! - KTC11*<OH>
! - KTR11*<OH>
-! terms for ETHE:
-! + 0.0
-! - K049*<OH>*<ETHE>
-! - K050*<NO3>*<ETHE>
-! - K051*<O3>*<ETHE>
-! - K052*<O>*<ETHE>
-! terms for OLEL:
-! + 0.054*K066*<O3>*<ISOP>
-! + 0.925*K067*<O>*<ISOP>
-! + TPK%CF5*K150*<NO>*<RO29>
-! + 0.5*K166*<HO2>*<RO239>
-! + TPK%CF7*K168*<NO>*<RO214>
-! + 0.5*K289*<HO2>*<RO250>
-! - K054*<OH>*<OLEL>
-! - K055*<NO3>*<OLEL>
-! - K056*<O3>*<OLEL>
-! - K057*<O>*<OLEL>
-! terms for OLEH:
-! + 0.0
-! - K074*<OH>*<OLEH>
-! - K075*<NO3>*<OLEH>
-! - K076*<O3>*<OLEH>
-! - K077*<O>*<OLEH>
-! terms for ALKL:
-! + 0.1*K056*<O3>*<OLEL>
-! + 0.5*K057*<O>*<OLEL>
-! + TPK%CF3*K122*<NO>*<RO25>
-! + TPK%CF12*K171*<NO>*<RO215>
-! + TPK%CF16*K172*<RO2T>*<RO215>
-! + TPK%CF16*K173*<HO2>*<RO215>
-! - K058*<OH>*<ALKL>
-! terms for ALKM:
-! + 0.1*K076*<O3>*<OLEH>
-! + 0.5*K077*<O>*<OLEH>
-! - K078*<OH>*<ALKM>
-! terms for ALKH:
-! + 0.0
-! - K093*<OH>*<ALKH>
-! terms for AROH:
-! + 0.0
-! - K080*<OH>*<AROH>
-! terms for AROL:
+! terms for HO2:
+! + 0.65*K006*<HNO4>
+! + K011*<HCHO>
+! + K011*<HCHO>
+! + K012*<ALD>
+! + K013*<OP1>
+! + 0.96205*K014*<OP2>
+! + 0.75830*K016*<CARBO>
+! + K017*<ONIT>
+! + K023*<O3>*<OH>
+! + K026*<H2O2>*<OH>
+! + K034*<OH>*<NO3>
+! + K037*<HNO4>
+! + K051*<OH>*<H2>
+! + K052*<OH>*<SO2>
+! + K053*<CO>*<OH>
+! + 0.28*K054*<BIO>*<O3P>
+! + 0.12793*K058*<ALKA>*<OH>
+! + 0.10318*K061*<ARO>*<OH>
+! + K062*<HCHO>*<OH>
+! + 0.51208*K065*<CARBO>*<OH>
+! + K066*<ORA1>*<OH>
+! + 0.02915*K069*<OP2>*<OH>
+! + 0.28107*K070*<PAN>*<OH>
+! + K072*<HCHO>*<NO3>
+! + 0.63217*K074*<CARBO>*<NO3>
+! + 0.23451*K079*<ALKE>*<O3>
+! + 0.30000*K080*<BIO>*<O3>
+! + 0.28441*K081*<CARBO>*<O3>
+! + 0.08*K082*<PAN>*<O3>
+! + 0.02*K086*<ADD>*<O2>
+! + K090*<MO2>*<NO>
+! + 0.74265*K091*<ALKAP>*<NO>
+! + K092*<ALKEP>*<NO>
+! + 0.84700*K093*<BIOP>*<NO>
+! + 0.95115*K094*<AROP>*<NO>
+! + 0.12334*K095*<CARBOP>*<NO>
+! + 0.18401*K096*<OLN>*<NO>
+! + 0.66*K104*<MO2>*<MO2>
+! + 0.98383*K105*<ALKAP>*<MO2>
+! + K106*<ALKEP>*<MO2>
+! + 1.00000*K107*<BIOP>*<MO2>
+! + 1.02767*K108*<AROP>*<MO2>
+! + 0.82998*K109*<CARBOP>*<MO2>
+! + 0.67560*K110*<OLN>*<MO2>
+! + 0.48079*K111*<ALKAP>*<CARBOP>
+! + 0.50078*K112*<ALKEP>*<CARBOP>
+! + 0.50600*K113*<BIOP>*<CARBOP>
+! + K114*<AROP>*<CARBOP>
+! + 0.07566*K115*<CARBOP>*<CARBOP>
+! + 0.17599*K116*<OLN>*<CARBOP>
+! + K117*<OLN>*<OLN>
+! + 0.00000*K118*<OLN>*<OLN>
+! + K119*<MO2>*<NO3>
+! + 0.81290*K120*<ALKAP>*<NO3>
+! + K121*<ALKEP>*<NO3>
+! + K122*<BIOP>*<NO3>
+! + K123*<AROP>*<NO3>
+! + 0.04915*K124*<CARBOP>*<NO3>
+! + 0.25928*K125*<OLN>*<NO3>
+! + K127*<XO2>*<MO2>
+! + KTC32*<WC_HO2>
+! + KTR32*<WR_HO2>
+! - K024*<O3>*<HO2>
+! - K025*<OH>*<HO2>
+! - K027*<HO2>*<HO2>
+! - K027*<HO2>*<HO2>
+! - K028*<HO2>*<HO2>*<H2O>
+! - K028*<HO2>*<HO2>*<H2O>
+! - K035*<HO2>*<NO>
+! - K036*<HO2>*<NO2>
+! - K038*<HO2>*<NO3>
+! - K084*<PHO>*<HO2>
+! - K097*<MO2>*<HO2>
+! - K098*<ALKAP>*<HO2>
+! - K099*<ALKEP>*<HO2>
+! - K0100*<BIOP>*<HO2>
+! - K0101*<AROP>*<HO2>
+! - K0102*<CARBOP>*<HO2>
+! - K103*<OLN>*<HO2>
+! - K126*<XO2>*<HO2>
+! - KTC12*<HO2>
+! - KTR12*<HO2>
+! terms for CH4:
+! + 0.04300*K079*<ALKE>*<O3>
+! - K056*<CH4>*<OH>
+! terms for ETH:
+! + 0.03196*K079*<ALKE>*<O3>
+! - K057*<ETH>*<OH>
+! terms for ALKA:
! + 0.0
-! - K079*<OH>*<AROL>
-! terms for AROO:
-! + 0.16*K073*<OH>*<AROO>
-! + 0.16*K079*<OH>*<AROL>
-! + 0.16*K080*<OH>*<AROH>
-! - K072*<NO3>*<AROO>
-! - K073*<OH>*<AROO>
-! terms for ARAL:
-! + TPK%CF24*K189*<NO>*<RO221>
-! + K190*<RO2T>*<RO221>
-! + K191*<HO2>*<RO221>
-! - K081*<NO3>*<ARAL>
-! - K082*<OH>*<ARAL>
-! terms for ARAC:
-! + K081*<NO3>*<ARAL>
-! + TPK%CF39*K082*<OH>*<ARAL>
-! - K083*<OH>*<ARAC>
-! terms for PAH:
+! - K058*<ALKA>*<OH>
+! terms for ALKE:
+! + 0.91868*K054*<BIO>*<O3P>
+! + 0.00000*K079*<ALKE>*<O3>
+! + 0.37388*K080*<BIO>*<O3>
+! + 0.37815*K093*<BIOP>*<NO>
+! + 0.48074*K107*<BIOP>*<MO2>
+! + 0.24463*K113*<BIOP>*<CARBOP>
+! + 0.42729*K122*<BIOP>*<NO3>
+! - K059*<ALKE>*<OH>
+! - K076*<ALKE>*<NO3>
+! - K079*<ALKE>*<O3>
+! terms for BIO:
! + 0.0
-! - K092*<OH>*<PAH>
+! - K054*<BIO>*<O3P>
+! - K060*<BIO>*<OH>
+! - K077*<BIO>*<NO3>
+! - K080*<BIO>*<O3>
+! terms for ARO:
+! + 0.10670*K083*<PHO>*<NO2>
+! + 1.06698*K084*<PHO>*<HO2>
+! + K085*<ADD>*<NO2>
+! + 0.02*K086*<ADD>*<O2>
+! + K087*<ADD>*<O3>
+! - K061*<ARO>*<OH>
+! - K075*<ARO>*<NO3>
! terms for HCHO:
-! + K048*<OH>*<MEOH>
-! + 0.5*K051*<O3>*<ETHE>
-! + 0.5*K056*<O3>*<OLEL>
-! + 0.5*K066*<O3>*<ISOP>
-! + 0.5*K076*<O3>*<OLEH>
-! + K110*<NO>*<RO21>
-! + K111*<RO2T>*<RO21>
-! + K112*<HO2>*<RO21>
-! + K113*<NO>*<RO22>
-! + K114*<RO2T>*<RO22>
-! + K115*<HO2>*<RO22>
-! + K116*<NO>*<RO23>
-! + K117*<RO2T>*<RO23>
-! + K118*<HO2>*<RO23>
-! + K119*<NO>*<RO24>
-! + K120*<RO2T>*<RO24>
-! + K121*<HO2>*<RO24>
-! + TPK%CF6*K150*<NO>*<RO29>
-! + K151*<RO2T>*<RO29>
-! + K152*<HO2>*<RO29>
-! + K153*<NO>*<RO210>
-! + K154*<RO2T>*<RO210>
-! + K155*<HO2>*<RO210>
-! + K156*<NO>*<RO211>
-! + K157*<RO2T>*<RO211>
-! + K158*<HO2>*<RO211>
-! + K159*<NO>*<RO212>
-! + K160*<RO2T>*<RO212>
-! + K161*<HO2>*<RO212>
-! + K162*<NO>*<RO213>
-! + K163*<RO2T>*<RO213>
-! + K164*<HO2>*<RO213>
-! + TPK%CF10*K171*<NO>*<RO215>
-! + TPK%CF14*K172*<RO2T>*<RO215>
-! + TPK%CF14*K173*<HO2>*<RO215>
-! + K183*<NO>*<RO219>
-! + K184*<RO2T>*<RO219>
-! + K185*<HO2>*<RO219>
-! + 0.5*K281*<O3>*<MVK>
-! + 0.5*K282*<O3>*<MCR>
-! + K285*<NO>*<RO249>
-! + K286*<RO2T>*<RO249>
-! + K287*<HO2>*<RO249>
-! + K291*<NO>*<RO251>
-! + K292*<HO2>*<RO251>
-! + K293*<RO2T>*<RO251>
-! + K294*<NO>*<RO252>
-! + K295*<HO2>*<RO252>
-! + K296*<RO2T>*<RO252>
-! + K297*<NO>*<RO253>
-! + K298*<HO2>*<RO253>
-! + K299*<RO2T>*<RO253>
-! + KTC52*<WC_HCHO>
-! + KTR52*<WR_HCHO>
-! - K044*<HCHO>
-! - K045*<HCHO>
-! - K046*<OH>*<HCHO>
-! - K047*<NO3>*<HCHO>
-! - KTC21*<HCHO>
-! - KTR21*<HCHO>
-! terms for ALD2:
-! + TPK%CF1*K053*<OH>*<ETOH>
-! + 0.5*K056*<O3>*<OLEL>
-! + 0.4*K057*<O>*<OLEL>
-! + 0.075*K067*<O>*<ISOP>
-! + K113*<NO>*<RO22>
-! + K114*<RO2T>*<RO22>
-! + K115*<HO2>*<RO22>
-! + K116*<NO>*<RO23>
-! + K117*<RO2T>*<RO23>
-! + K118*<HO2>*<RO23>
-! + TPK%CF4*K122*<NO>*<RO25>
-! + K123*<RO2T>*<RO25>
-! + K124*<HO2>*<RO25>
-! + K144*<NO>*<RO27>
-! + K145*<RO2T>*<RO27>
-! + K146*<HO2>*<RO27>
-! + TPK%CF9*K171*<NO>*<RO215>
-! + TPK%CF13*K172*<RO2T>*<RO215>
-! + TPK%CF13*K173*<HO2>*<RO215>
-! + K174*<NO>*<RO216>
-! + K175*<RO2T>*<RO216>
-! + K176*<HO2>*<RO216>
-! + 0.1*K281*<O3>*<MVK>
-! + 0.85*K284*<O>*<MCR>
-! + KTC53*<WC_ALD2>
-! + KTR53*<WR_ALD2>
-! - K059*<ALD2>
-! - K060*<OH>*<ALD2>
-! - K061*<NO3>*<ALD2>
-! - KTC22*<ALD2>
-! - KTR22*<ALD2>
-! terms for KETL:
-! + TPK%CF11*K171*<NO>*<RO215>
-! + TPK%CF15*K172*<RO2T>*<RO215>
-! + TPK%CF15*K173*<HO2>*<RO215>
-! + 0.85*K283*<O>*<MVK>
-! + KTC55*<WC_KETL>
-! + KTR55*<WR_KETL>
-! - K062*<OH>*<KETL>
-! - K063*<KETL>
-! - KTC24*<KETL>
-! - KTR24*<KETL>
-! terms for KETH:
-! + 0.0
-! - K070*<OH>*<KETH>
-! - K071*<KETH>
-! terms for MEOH:
-! + KTC49*<WC_MEOH>
-! + KTR49*<WR_MEOH>
-! - K048*<OH>*<MEOH>
-! - KTC18*<MEOH>
-! - KTR18*<MEOH>
-! terms for ETOH:
-! + KTC50*<WC_ETOH>
-! + KTR50*<WR_ETOH>
-! - K053*<OH>*<ETOH>
-! - KTC19*<ETOH>
-! - KTR19*<ETOH>
-! terms for ALCH:
-! + KTC51*<WC_ALCH>
-! + KTR51*<WR_ALCH>
-! - K069*<OH>*<ALCH>
-! - KTC20*<ALCH>
-! - KTR20*<ALCH>
-! terms for ISOP:
-! + 0.0
-! - K064*<OH>*<ISOP>
-! - K065*<NO3>*<ISOP>
-! - K066*<O3>*<ISOP>
-! - K067*<O>*<ISOP>
-! terms for BIOL:
-! + 0.0
-! - K084*<OH>*<BIOL>
-! - K085*<NO3>*<BIOL>
-! - K086*<O3>*<BIOL>
-! - K087*<O>*<BIOL>
-! terms for BIOH:
-! + 0.0
-! - K088*<OH>*<BIOH>
-! - K089*<NO3>*<BIOH>
-! - K090*<O3>*<BIOH>
-! - K091*<O>*<BIOH>
-! terms for MTBE:
-! + 0.0
-! - K068*<OH>*<MTBE>
-! terms for MVK:
-! + 0.389*K066*<O3>*<ISOP>
-! + TPK%CF6*K150*<NO>*<RO29>
-! + K151*<RO2T>*<RO29>
-! + K152*<HO2>*<RO29>
-! + K156*<NO>*<RO211>
-! + K157*<RO2T>*<RO211>
-! + K158*<HO2>*<RO211>
-! - K272*<OH>*<MVK>
-! - K281*<O3>*<MVK>
-! - K283*<O>*<MVK>
-! terms for MCR:
-! + 0.17*K066*<O3>*<ISOP>
-! + K153*<NO>*<RO210>
-! + K154*<RO2T>*<RO210>
-! + K155*<HO2>*<RO210>
-! + K159*<NO>*<RO212>
-! + K160*<RO2T>*<RO212>
-! + K161*<HO2>*<RO212>
-! - K273*<OH>*<MCR>
-! - K275*<NO3>*<MCR>
-! - K282*<O3>*<MCR>
-! - K284*<O>*<MCR>
-! terms for MGLY:
-! + K234*<NO>*<RO242>
-! + K235*<RO2T>*<RO242>
-! + K236*<HO2>*<RO242>
-! + K241*<NO>*<RO243>
-! + K242*<RO2T>*<RO243>
-! + K243*<HO2>*<RO243>
-! + K248*<NO>*<RO244>
-! + K249*<RO2T>*<RO244>
-! + K250*<HO2>*<RO244>
-! + K255*<NO>*<RO245>
-! + K256*<RO2T>*<RO245>
-! + K257*<HO2>*<RO245>
-! + K262*<NO>*<RO246>
-! + K263*<RO2T>*<RO246>
-! + K264*<HO2>*<RO246>
-! + K269*<NO>*<RO247>
-! + K270*<RO2T>*<RO247>
-! + K271*<HO2>*<RO247>
-! + 0.5*K281*<O3>*<MVK>
-! + 0.59*K282*<O3>*<MCR>
-! + K285*<NO>*<RO249>
-! + K286*<RO2T>*<RO249>
-! + K287*<HO2>*<RO249>
-! + K291*<NO>*<RO251>
-! + K292*<HO2>*<RO251>
-! + K293*<RO2T>*<RO251>
-! + K294*<NO>*<RO252>
-! + K295*<HO2>*<RO252>
-! + K296*<RO2T>*<RO252>
-! + KTC56*<WC_MGLY>
-! + KTR56*<WR_MGLY>
-! - K274*<OH>*<MGLY>
-! - K276*<MGLY>
-! - K278*<NO3>*<MGLY>
-! - KTC25*<MGLY>
-! - KTR25*<MGLY>
-! terms for GLY:
-! + KTC54*<WC_GLY>
-! + KTR54*<WR_GLY>
-! - KTC23*<GLY>
-! - KTR23*<GLY>
+! + K013*<OP1>
+! + 0.06517*K016*<CARBO>
+! + 0.05*K054*<BIO>*<O3P>
+! + 0.00140*K058*<ALKA>*<OH>
+! + 0.00000*K065*<CARBO>*<OH>
+! + 0.35*K068*<OP1>*<OH>
+! + 0.02915*K069*<OP2>*<OH>
+! + 0.57839*K070*<PAN>*<OH>
+! + 0.40*K078*<PAN>*<NO3>
+! + 0.48290*K079*<ALKE>*<O3>
+! + 0.90000*K080*<BIO>*<O3>
+! + 0.00000*K081*<CARBO>*<O3>
+! + 0.70*K082*<PAN>*<O3>
+! + K090*<MO2>*<NO>
+! + 0.03002*K091*<ALKAP>*<NO>
+! + 1.39870*K092*<ALKEP>*<NO>
+! + 0.60600*K093*<BIOP>*<NO>
+! + 0.05848*K095*<CARBOP>*<NO>
+! + 0.23419*K096*<OLN>*<NO>
+! + 1.33*K104*<MO2>*<MO2>
+! + 0.80556*K105*<ALKAP>*<MO2>
+! + 1.42894*K106*<ALKEP>*<MO2>
+! + 1.09000*K107*<BIOP>*<MO2>
+! + K108*<AROP>*<MO2>
+! + 0.95723*K109*<CARBOP>*<MO2>
+! + 0.88625*K110*<OLN>*<MO2>
+! + 0.07600*K111*<ALKAP>*<CARBOP>
+! + 0.68192*K112*<ALKEP>*<CARBOP>
+! + 0.34000*K113*<BIOP>*<CARBOP>
+! + 0.03432*K115*<CARBOP>*<CARBOP>
+! + 0.13414*K116*<OLN>*<CARBOP>
+! + 0.00000*K118*<OLN>*<OLN>
+! + K119*<MO2>*<NO3>
+! + 0.03142*K120*<ALKAP>*<NO3>
+! + 1.40909*K121*<ALKEP>*<NO3>
+! + 0.68600*K122*<BIOP>*<NO3>
+! + 0.03175*K124*<CARBOP>*<NO3>
+! + 0.20740*K125*<OLN>*<NO3>
+! + K127*<XO2>*<MO2>
+! + KTC36*<WC_HCHO>
+! + KTR36*<WR_HCHO>
+! - K010*<HCHO>
+! - K011*<HCHO>
+! - K062*<HCHO>*<OH>
+! - K072*<HCHO>*<NO3>
+! - KTC16*<HCHO>
+! - KTR16*<HCHO>
+! terms for ALD:
+! + 0.96205*K014*<OP2>
+! + 0.20*K017*<ONIT>
+! + K055*<CARBO>*<O3P>
+! + 0.08173*K058*<ALKA>*<OH>
+! + 0.06253*K065*<CARBO>*<OH>
+! + 0.07335*K069*<OP2>*<OH>
+! + 0.05265*K074*<CARBO>*<NO3>
+! + 0.51468*K079*<ALKE>*<O3>
+! + 0.00000*K080*<BIO>*<O3>
+! + 0.15692*K081*<CARBO>*<O3>
+! + 0.33144*K091*<ALKAP>*<NO>
+! + 0.42125*K092*<ALKEP>*<NO>
+! + 0.00000*K093*<BIOP>*<NO>
+! + 0.07368*K095*<CARBOP>*<NO>
+! + 1.01182*K096*<OLN>*<NO>
+! + 0.56070*K105*<ALKAP>*<MO2>
+! + 0.46413*K106*<ALKEP>*<MO2>
+! + 0.00000*K107*<BIOP>*<MO2>
+! + 0.08295*K109*<CARBOP>*<MO2>
+! + 0.41524*K110*<OLN>*<MO2>
+! + 0.71461*K111*<ALKAP>*<CARBOP>
+! + 0.68374*K112*<ALKEP>*<CARBOP>
+! + 0.00000*K113*<BIOP>*<CARBOP>
+! + 0.06969*K115*<CARBOP>*<CARBOP>
+! + 0.42122*K116*<OLN>*<CARBOP>
+! + 0.00000*K118*<OLN>*<OLN>
+! + 0.33743*K120*<ALKAP>*<NO3>
+! + 0.43039*K121*<ALKEP>*<NO3>
+! + 0.00000*K122*<BIOP>*<NO3>
+! + 0.02936*K124*<CARBOP>*<NO3>
+! + 0.91850*K125*<OLN>*<NO3>
+! - K012*<ALD>
+! - K063*<ALD>*<OH>
+! - K073*<ALD>*<NO3>
+! terms for KET:
+! + 0.80*K017*<ONIT>
+! + 0.03498*K058*<ALKA>*<OH>
+! + 0.00853*K065*<CARBO>*<OH>
+! + 0.37591*K069*<OP2>*<OH>
+! + 0.00632*K074*<CARBO>*<NO3>
+! + 0.07377*K079*<ALKE>*<O3>
+! + 0.00000*K080*<BIO>*<O3>
+! + 0.54531*K091*<ALKAP>*<NO>
+! + 0.05220*K092*<ALKEP>*<NO>
+! + 0.00000*K093*<BIOP>*<NO>
+! + 0.37862*K096*<OLN>*<NO>
+! + 0.09673*K105*<ALKAP>*<MO2>
+! + 0.03814*K106*<ALKEP>*<MO2>
+! + 0.00000*K107*<BIOP>*<MO2>
+! + 0.09667*K110*<OLN>*<MO2>
+! + 0.18819*K111*<ALKAP>*<CARBOP>
+! + 0.06579*K112*<ALKEP>*<CARBOP>
+! + 0.00000*K113*<BIOP>*<CARBOP>
+! + 0.02190*K115*<CARBOP>*<CARBOP>
+! + 0.10822*K116*<OLN>*<CARBOP>
+! + 0.00000*K118*<OLN>*<OLN>
+! + 0.62978*K120*<ALKAP>*<NO3>
+! + 0.02051*K121*<ALKEP>*<NO3>
+! + 0.00000*K122*<BIOP>*<NO3>
+! + 0.34740*K125*<OLN>*<NO3>
+! - K015*<KET>
+! - K064*<KET>*<OH>
+! terms for CARBO:
+! + 0.13255*K054*<BIO>*<O3P>
+! + 0.00835*K058*<ALKA>*<OH>
+! + 0.16919*K065*<CARBO>*<OH>
+! + 0.21863*K070*<PAN>*<OH>
+! + 0.10530*K074*<CARBO>*<NO3>
+! + 0.00000*K076*<ALKE>*<NO3>
+! + 0.91741*K077*<BIO>*<NO3>
+! + 0.00000*K079*<ALKE>*<O3>
+! + 0.39754*K080*<BIO>*<O3>
+! + 1.07583*K081*<CARBO>*<O3>
+! + 0.03407*K091*<ALKAP>*<NO>
+! + 0.45463*K093*<BIOP>*<NO>
+! + 2.06993*K094*<AROP>*<NO>
+! + 0.08670*K095*<CARBOP>*<NO>
+! + 0.07976*K105*<ALKAP>*<MO2>
+! + 0.56064*K107*<BIOP>*<MO2>
+! + 1.99461*K108*<AROP>*<MO2>
+! + 0.15387*K109*<CARBOP>*<MO2>
+! + 0.06954*K111*<ALKAP>*<CARBOP>
+! + 0.78591*K113*<BIOP>*<CARBOP>
+! + 1.99455*K114*<AROP>*<CARBOP>
+! + 0.10777*K115*<CARBOP>*<CARBOP>
+! + 0.03531*K120*<ALKAP>*<NO3>
+! + 0.61160*K122*<BIOP>*<NO3>
+! + 2.81904*K123*<AROP>*<NO3>
+! + 0.03455*K124*<CARBOP>*<NO3>
+! - K016*<CARBO>
+! - K055*<CARBO>*<O3P>
+! - K065*<CARBO>*<OH>
+! - K074*<CARBO>*<NO3>
+! - K081*<CARBO>*<O3>
+! terms for ONIT:
+! + 0.60*K078*<PAN>*<NO3>
+! + K083*<PHO>*<NO2>
+! + 0.08459*K091*<ALKAP>*<NO>
+! + 0.15300*K093*<BIOP>*<NO>
+! + 0.04885*K094*<AROP>*<NO>
+! + 0.18401*K096*<OLN>*<NO>
+! + K103*<OLN>*<HO2>
+! + 0.67560*K110*<OLN>*<MO2>
+! + 0.66562*K116*<OLN>*<CARBOP>
+! + 2.00*K117*<OLN>*<OLN>
+! + 0.00000*K118*<OLN>*<OLN>
+! + 0.25928*K125*<OLN>*<NO3>
+! - K017*<ONIT>
+! - K071*<ONIT>*<OH>
+! terms for PAN:
+! + 0.28107*K070*<PAN>*<OH>
+! + 0.40000*K078*<PAN>*<NO3>
+! + 0.30000*K082*<PAN>*<O3>
+! + 1.00000*K088*<CARBOP>*<NO2>
+! - K070*<PAN>*<OH>
+! - K078*<PAN>*<NO3>
+! - K082*<PAN>*<O3>
+! - K089*<PAN>
+! terms for OP1:
+! + K097*<MO2>*<HO2>
+! + KTC40*<WC_OP1>
+! + KTR40*<WR_OP1>
+! - K013*<OP1>
+! - K068*<OP1>*<OH>
+! - KTC20*<OP1>
+! - KTR20*<OP1>
+! terms for OP2:
+! + 0.10149*K081*<CARBO>*<O3>
+! + 1.00524*K098*<ALKAP>*<HO2>
+! + 1.00524*K099*<ALKEP>*<HO2>
+! + 1.00524*K0100*<BIOP>*<HO2>
+! + 1.00524*K0101*<AROP>*<HO2>
+! + 0.80904*K0102*<CARBOP>*<HO2>
+! + 1.00524*K126*<XO2>*<HO2>
+! - K014*<OP2>
+! - K069*<OP2>*<OH>
! terms for ORA1:
-! + 0.185*K051*<O3>*<ETHE>
-! + 0.12*K056*<O3>*<OLEL>
-! + 0.121*K066*<O3>*<ISOP>
-! + 0.12*K281*<O3>*<MVK>
-! + 0.09*K282*<O3>*<MCR>
-! + KTC57*<WC_ORA1>
-! + KTR57*<WR_ORA1>
-! - K347*<OH>*<ORA1>
-! - KTC26*<ORA1>
-! - KTR26*<ORA1>
+! + 0.00878*K058*<ALKA>*<OH>
+! + 0.15343*K079*<ALKE>*<O3>
+! + 0.15000*K080*<BIO>*<O3>
+! + 0.10788*K081*<CARBO>*<O3>
+! + 0.11*K082*<PAN>*<O3>
+! + KTC37*<WC_ORA1>
+! + KTR37*<WR_ORA1>
+! - K066*<ORA1>*<OH>
+! - KTC17*<ORA1>
+! - KTR17*<ORA1>
! terms for ORA2:
-! + 0.12*K056*<O3>*<OLEL>
-! + K142*<HO2>*<RO26>
-! + K148*<HO2>*<RO28>
-! + 0.5*K166*<HO2>*<RO239>
-! + 0.5*K289*<HO2>*<RO250>
-! + KTC58*<WC_ORA2>
-! + KTR58*<WR_ORA2>
-! - K348*<OH>*<ORA2>
-! - KTC27*<ORA2>
-! - KTR27*<ORA2>
-! terms for ACID:
-! + 0.12*K076*<O3>*<OLEH>
-! + K142*<HO2>*<RO26>
-! + K310*<HO2>*<RO255>
-! + KTC59*<WC_ACID>
-! + KTR59*<WR_ACID>
-! - K349*<OH>*<ACID>
-! - KTC28*<ACID>
-! - KTR28*<ACID>
-! terms for UR28:
-! + K341*<HO2>*<RO258>
-! + KTC62*<WC_UR28>
-! + KTR62*<WR_UR28>
-! - K364*<UR28>
-! - KTC31*<UR28>
-! - KTR31*<UR28>
-! terms for UR21:
-! + K279*<HO2>*<RO248>
-! + 0.12*K281*<O3>*<MVK>
-! + KTC61*<WC_UR21>
-! + KTR61*<WR_UR21>
-! - K361*<UR21>
-! - KTC30*<UR21>
-! - KTR30*<UR21>
-! terms for URG2:
-! + 0.5562513*K335*<OH>*<RPG2>
-! + K337*<OH>*<RP18>
-! - K350*<URG2>
-! terms for UR26:
-! + 0.67*K326*<OH>*<RP11>
-! - K363*<UR26>
-! terms for RPG2:
-! + 0.3000000*K259*<NO>*<RO237>
-! + 1.0000000*K260*<RO2T>*<RO237>
-! + 0.3000000*K261*<HO2>*<RO237>
-! + 0.1191897*K334*<OH>*<RPG3>
-! + 0.8808107*K334*<OH>*<RPG3>
-! - K335*<OH>*<RPG2>
-! terms for RP18:
-! + 0.4437492*K335*<OH>*<RPG2>
-! - K337*<OH>*<RP18>
-! terms for RPG3:
-! + 0.3000000*K231*<NO>*<RO233>
-! + 1.0000000*K232*<RO2T>*<RO233>
-! + 0.3000000*K233*<HO2>*<RO233>
-! + 0.3000000*K252*<NO>*<RO236>
-! + 1.0000000*K253*<RO2T>*<RO236>
-! + 0.3000000*K254*<HO2>*<RO236>
-! - K334*<OH>*<RPG3>
-! terms for URG4:
-! + 5.5000000E-02*K086*<O3>*<BIOL>
-! + 1.0000000*K318*<HO2>*<RO256>
-! + 1.0000000*K332*<HO2>*<RO257>
-! - K351*<URG4>
-! terms for UR8:
-! + 0.055*K090*<O3>*<BIOH>
-! - K358*<UR8>
-! terms for UR17:
-! + 1.0000000*K204*<NO>*<RO226>
-! + 1.0000000*K205*<RO2T>*<RO226>
-! + 1.0000000*K206*<HO2>*<RO226>
-! - K359*<UR17>
-! terms for UR7:
-! + 0.055*K090*<O3>*<BIOH>
-! + TPK%CFA12*K207*<NO>*<RO227>
-! + K208*<RO2T>*<RO227>
-! + 0.3*K209*<HO2>*<RO227>
-! + 0.3*K210*<NO>*<RO228>
-! + 0.3*K211*<RO2T>*<RO228>
-! + 0.3*K212*<HO2>*<RO228>
-! - K357*<UR7>
-! terms for RPR3:
-! + 0.055*K086*<O3>*<BIOL>
-! + TPK%CFA10*K198*<NO>*<RO224>
-! + K199*<RO2T>*<RO224>
-! + K200*<HO2>*<RO224>
-! + K201*<NO>*<RO225>
-! + K202*<RO2T>*<RO225>
-! + K203*<HO2>*<RO225>
-! - K312*<OH>*<RPR3>
-! - K313*<NO3>*<RPR3>
-! - K314*<RPR3>
-! terms for URG6:
-! + TPK%CF21*K177*<NO>*<RO217>
-! + TPK%CF43*K195*<NO>*<RO223>
-! + 0.4978440*K323*<OH>*<RPG7>
-! - K352*<URG6>
-! terms for UR22:
-! + K321*<NO2>*<RAD8>
-! - K362*<UR22>
-! terms for URG7:
-! + 0.1599999*K083*<OH>*<ARAC>
-! + 0.9999993*K108*<NO2>*<RAD6>
-! + 0.9999993*K303*<OH>*<RPR5>
-! + 0.9979297*K306*<OH>*<RPRL>
-! + 0.9999993*K322*<OH>*<RPR7>
-! - K353*<URG7>
-! terms for RPR4:
-! + K103*<NO2>*<RAD1>
-! + K104*<NO2>*<RAD2>
-! - K320*<NO3>*<RPR4>
-! terms for RPR7:
-! + TPK%CF44*K195*<NO>*<RO223>
-! + K196*<RO2T>*<RO223>
-! + K197*<HO2>*<RO223>
-! + 2.0714202E-03*K306*<OH>*<RPRL>
-! - K322*<OH>*<RPR7>
-! terms for RPG7:
-! + 1.0000013*K266*<NO>*<RO238>
-! + 1.0000013*K267*<RO2T>*<RO238>
-! + 1.0000013*K268*<HO2>*<RO238>
-! + 0.5021558*K323*<OH>*<RPG7>
-! - K323*<OH>*<RPG7>
-! terms for URG8:
-! + 0.1600000*K092*<OH>*<PAH>
-! + 1.0000000*K109*<NO2>*<RAD7>
-! + TPK%CF31*K221*<NO>*<RO231>
-! - K354*<URG8>
-! terms for UR19:
-! + TPK%CF32*K221*<NO>*<RO231>
-! + K222*<RO2T>*<RO231>
-! + K223*<HO2>*<RO231>
-! - K360*<UR19>
-! terms for URG9:
-! + TPK%CFA14*K224*<NO>*<RO232>
-! + TPK%CFA16*K227*<NO>*<RO241>
-! + TPK%CFA15*K227*<NO>*<RO241>
-! + 0.9999996*K228*<RO2T>*<RO241>
-! + 0.9999996*K229*<HO2>*<RO241>
-! - K355*<URG9>
-! terms for AP7:
-! + TPK%CFA23*K198*<NO>*<RO224>
-! - K365*<AP7>
-! terms for URG10:
-! + 0.2500000*K087*<O>*<BIOL>
-! + 0.7500000*K087*<O>*<BIOL>
-! + TPK%CF27*K207*<NO>*<RO227>
-! - K356*<URG10>
-! terms for RPR1:
-! + 0.5*K076*<O3>*<OLEH>
-! + 0.4*K077*<O>*<OLEH>
-! + K183*<NO>*<RO219>
-! + K184*<RO2T>*<RO219>
-! + K185*<HO2>*<RO219>
-! - K304*<OH>*<RPR1>
-! - K307*<NO3>*<RPR1>
-! - K308*<RPR1>
-! terms for RPR5:
-! + K107*<NO2>*<RAD5>
-! - K303*<OH>*<RPR5>
-! terms for RPR8:
-! + K216*<NO>*<RO240>
-! + K217*<RO2T>*<RO240>
-! + K218*<HO2>*<RO240>
-! - K324*<OH>*<RPR8>
-! - K327*<NO3>*<RPR8>
-! - K329*<RPR8>
-! - K330*<RPR8>
-! terms for RP10:
-! + K234*<NO>*<RO242>
-! + K235*<RO2T>*<RO242>
-! + K236*<HO2>*<RO242>
-! + K241*<NO>*<RO243>
-! + K242*<RO2T>*<RO243>
-! + K243*<HO2>*<RO243>
-! + K248*<NO>*<RO244>
-! + K249*<RO2T>*<RO244>
-! + K250*<HO2>*<RO244>
-! + K255*<NO>*<RO245>
-! + K256*<RO2T>*<RO245>
-! + K257*<HO2>*<RO245>
-! + K262*<NO>*<RO246>
-! + K263*<RO2T>*<RO246>
-! + K264*<HO2>*<RO246>
-! - K325*<OH>*<RP10>
-! - K328*<RP10>
-! terms for RP11:
-! + 0.3*K238*<NO>*<RO234>
-! + K239*<RO2T>*<RO234>
-! + 0.3*K240*<HO2>*<RO234>
-! + 0.5*K245*<NO>*<RO235>
-! + K246*<RO2T>*<RO235>
-! + K247*<HO2>*<RO235>
-! - K326*<OH>*<RP11>
-! terms for RP16:
-! + K301*<HO2>*<RO254>
-! + KTC60*<WC_RP16>
-! + KTR60*<WR_RP16>
-! - K305*<OH>*<RP16>
-! - K338*<NO3>*<RP16>
-! - K339*<RP16>
-! - KTC29*<RP16>
-! - KTR29*<RP16>
-! terms for RPRL:
-! + 0.9983609*K082*<OH>*<ARAL>
-! + TPK%CFA2*K177*<NO>*<RO217>
-! + 0.9983609*K178*<RO2T>*<RO217>
-! + 0.9983609*K179*<HO2>*<RO217>
-! + TPK%CFA7*K192*<NO>*<RO222>
-! + 0.9983609*K193*<RO2T>*<RO222>
-! + 0.9983609*K194*<HO2>*<RO222>
-! + 1.0023998*K269*<NO>*<RO247>
-! + 1.0023998*K270*<RO2T>*<RO247>
-! + 1.0023998*K271*<HO2>*<RO247>
-! - K306*<OH>*<RPRL>
-! terms for APAN:
-! + K130*<NO2>*<RO250>
-! + K133*<NO2>*<RO257>
-! - K139*<APAN>
-! terms for PAN1:
-! + K126*<NO2>*<RO26>
-! - K135*<PAN1>
-! terms for PAN2:
-! + K127*<NO2>*<RO28>
-! - K136*<PAN2>
-! terms for PAN3:
-! + K128*<NO2>*<RO239>
-! - K137*<PAN3>
-! terms for PAN4:
-! + K129*<NO2>*<RO248>
-! - K141*<PAN4>
-! terms for PAN6:
-! + K131*<NO2>*<RO254>
-! - K140*<PAN6>
-! terms for PAN7:
-! + K132*<NO2>*<RO255>
-! - K343*<PAN7>
-! terms for PAN8:
-! + K316*<NO2>*<RO256>
-! - K317*<PAN8>
-! terms for PN10:
-! + K134*<NO2>*<RO258>
-! - K138*<PN10>
-! terms for RO2T:
-! + K043*<OH>*<CH4>
-! + K049*<OH>*<ETHE>
-! + K050*<NO3>*<ETHE>
-! + K052*<O>*<ETHE>
-! + TPK%CF2*K053*<OH>*<ETOH>
-! + K054*<OH>*<OLEL>
-! + K055*<NO3>*<OLEL>
-! + 0.28*K056*<O3>*<OLEL>
-! + 0.2*K057*<O>*<OLEL>
-! + K058*<OH>*<ALKL>
-! + K059*<ALD2>
-! + K060*<OH>*<ALD2>
-! + K061*<NO3>*<ALD2>
-! + K062*<OH>*<KETL>
-! + 2.*K063*<KETL>
-! + K064*<OH>*<ISOP>
-! + K065*<NO3>*<ISOP>
-! + 0.366*K066*<O3>*<ISOP>
-! + K068*<OH>*<MTBE>
-! + K069*<OH>*<ALCH>
-! + K070*<OH>*<KETH>
-! + 2.*K071*<KETH>
-! + 0.1*K073*<OH>*<AROO>
-! + K074*<OH>*<OLEH>
-! + K075*<NO3>*<OLEH>
-! + 0.28*K076*<O3>*<OLEH>
-! + 0.2*K077*<O>*<OLEH>
-! + K078*<OH>*<ALKM>
-! + 0.06*K079*<OH>*<AROL>
-! + TPK%CF45*K082*<OH>*<ARAL>
-! + 0.1*K083*<OH>*<ARAC>
-! + K084*<OH>*<BIOL>
-! + K085*<NO3>*<BIOL>
-! + 0.445*K086*<O3>*<BIOL>
-! + K088*<OH>*<BIOH>
-! + K089*<NO3>*<BIOH>
-! + 0.89*K090*<O3>*<BIOH>
-! + 0.1*K092*<OH>*<PAH>
-! + K093*<OH>*<ALKH>
-! + K096*<RO2T>*<RO2T>
-! + K097*<RAD2>
-! + K098*<RAD3>
-! + K099*<RAD4>
-! + K100*<RAD5>
-! + K101*<RAD6>
-! + K102*<RAD7>
-! + K111*<RO2T>*<RO21>
-! + K114*<RO2T>*<RO22>
-! + K117*<RO2T>*<RO23>
-! + K120*<RO2T>*<RO24>
-! + K123*<RO2T>*<RO25>
-! + K125*<NO>*<RO26>
-! + K135*<PAN1>
-! + K136*<PAN2>
-! + K137*<PAN3>
-! + K138*<PN10>
-! + 1.0000000*K139*<APAN>
-! + K140*<PAN6>
-! + K141*<PAN4>
-! + 2.*K143*<RO2T>*<RO26>
-! + K144*<NO>*<RO27>
-! + 2.*K145*<RO2T>*<RO27>
-! + K146*<HO2>*<RO27>
-! + K147*<NO>*<RO28>
-! + 2.*K149*<RO2T>*<RO28>
-! + K151*<RO2T>*<RO29>
-! + K154*<RO2T>*<RO210>
-! + K157*<RO2T>*<RO211>
-! + K160*<RO2T>*<RO212>
-! + K162*<NO>*<RO213>
-! + 2.*K163*<RO2T>*<RO213>
-! + K164*<HO2>*<RO213>
-! + K165*<NO>*<RO239>
-! + 2.*K167*<RO2T>*<RO239>
-! + TPK%CF8*K168*<NO>*<RO214>
-! + 2.*K169*<RO2T>*<RO214>
-! + K170*<HO2>*<RO214>
-! + K172*<RO2T>*<RO215>
-! + K174*<NO>*<RO216>
-! + 2.*K175*<RO2T>*<RO216>
-! + K176*<HO2>*<RO216>
-! + K178*<RO2T>*<RO217>
-! + K181*<RO2T>*<RO218>
-! + K184*<RO2T>*<RO219>
-! + TPK%CF18*K186*<NO>*<RO220>
-! + 2.*K187*<RO2T>*<RO220>
-! + K188*<HO2>*<RO220>
-! + K190*<RO2T>*<RO221>
-! + K193*<RO2T>*<RO222>
-! + K196*<RO2T>*<RO223>
-! + K199*<RO2T>*<RO224>
-! + K202*<RO2T>*<RO225>
-! + K204*<NO>*<RO226>
-! + 2.*K205*<RO2T>*<RO226>
-! + K206*<HO2>*<RO226>
-! + K208*<RO2T>*<RO227>
-! + K211*<RO2T>*<RO228>
-! + TPK%CF30*K213*<NO>*<RO229>
-! + 2.*K214*<RO2T>*<RO229>
-! + K215*<HO2>*<RO229>
-! + K216*<NO>*<RO240>
-! + 2.*K217*<RO2T>*<RO240>
-! + K218*<HO2>*<RO240>
-! + 2.*K219*<RO2T>*<RO230>
-! + K220*<HO2>*<RO230>
-! + K222*<RO2T>*<RO231>
-! + TPK%CF34*K224*<NO>*<RO232>
-! + 2.*K225*<RO2T>*<RO232>
-! + K226*<HO2>*<RO232>
-! + K228*<RO2T>*<RO241>
-! + K230*<RO233>
-! + K232*<RO2T>*<RO233>
-! + K235*<RO2T>*<RO242>
-! + K237*<RO234>
-! + K239*<RO2T>*<RO234>
-! + K242*<RO2T>*<RO243>
-! + K244*<RO235>
-! + K246*<RO2T>*<RO235>
-! + K249*<RO2T>*<RO244>
-! + K251*<RO236>
-! + K253*<RO2T>*<RO236>
-! + K256*<RO2T>*<RO245>
-! + K258*<RO237>
-! + K260*<RO2T>*<RO237>
-! + K263*<RO2T>*<RO246>
-! + K265*<RO238>
-! + K267*<RO2T>*<RO238>
-! + K270*<RO2T>*<RO247>
-! + K272*<OH>*<MVK>
-! + K273*<OH>*<MCR>
-! + K274*<OH>*<MGLY>
-! + K275*<NO3>*<MCR>
-! + K276*<MGLY>
-! + K277*<NO>*<RO248>
-! + K278*<NO3>*<MGLY>
-! + 2.*K280*<RO2T>*<RO248>
-! + 0.28*K281*<O3>*<MVK>
-! + 0.41*K282*<O3>*<MCR>
-! + 0.3*K283*<O>*<MVK>
-! + 0.15*K284*<O>*<MCR>
-! + K286*<RO2T>*<RO249>
-! + K288*<NO>*<RO250>
-! + 2.*K290*<RO2T>*<RO250>
-! + K292*<HO2>*<RO251>
-! + K295*<HO2>*<RO252>
-! + K297*<NO>*<RO253>
-! + 2.*K298*<HO2>*<RO253>
-! + K299*<RO2T>*<RO253>
-! + K302*<RO2T>*<RO254>
-! + K304*<OH>*<RPR1>
-! + K305*<OH>*<RP16>
-! + K307*<NO3>*<RPR1>
-! + K308*<RPR1>
-! + K309*<NO>*<RO255>
-! + 2.*K311*<RO2T>*<RO255>
-! + K312*<OH>*<RPR3>
-! + K313*<NO3>*<RPR3>
-! + K317*<PAN8>
-! + K319*<RO2T>*<RO256>
-! + K324*<OH>*<RPR8>
-! + K327*<NO3>*<RPR8>
-! + K329*<RPR8>
-! + K330*<RPR8>
-! + K331*<NO>*<RO257>
-! + 2.*K333*<RO2T>*<RO257>
-! + K338*<NO3>*<RP16>
-! + K342*<RO2T>*<RO258>
-! + K343*<PAN7>
-! + K344*<NO>*<RO230>
-! - K094*<HO2>*<RO2T>
-! - K095*<NO>*<RO2T>
-! - K096*<RO2T>*<RO2T>
-! - K096*<RO2T>*<RO2T>
-! - K111*<RO2T>*<RO21>
-! - K114*<RO2T>*<RO22>
-! - K117*<RO2T>*<RO23>
-! - K120*<RO2T>*<RO24>
-! - K123*<RO2T>*<RO25>
-! - K143*<RO2T>*<RO26>
-! - K145*<RO2T>*<RO27>
-! - K149*<RO2T>*<RO28>
-! - K151*<RO2T>*<RO29>
-! - K154*<RO2T>*<RO210>
-! - K157*<RO2T>*<RO211>
-! - K160*<RO2T>*<RO212>
-! - K163*<RO2T>*<RO213>
-! - K167*<RO2T>*<RO239>
-! - K169*<RO2T>*<RO214>
-! - K172*<RO2T>*<RO215>
-! - K175*<RO2T>*<RO216>
-! - K178*<RO2T>*<RO217>
-! - K181*<RO2T>*<RO218>
-! - K184*<RO2T>*<RO219>
-! - K187*<RO2T>*<RO220>
-! - K190*<RO2T>*<RO221>
-! - K193*<RO2T>*<RO222>
-! - K196*<RO2T>*<RO223>
-! - K199*<RO2T>*<RO224>
-! - K202*<RO2T>*<RO225>
-! - K205*<RO2T>*<RO226>
-! - K208*<RO2T>*<RO227>
-! - K211*<RO2T>*<RO228>
-! - K214*<RO2T>*<RO229>
-! - K217*<RO2T>*<RO240>
-! - K219*<RO2T>*<RO230>
-! - K222*<RO2T>*<RO231>
-! - K225*<RO2T>*<RO232>
-! - K228*<RO2T>*<RO241>
-! - K232*<RO2T>*<RO233>
-! - K235*<RO2T>*<RO242>
-! - K239*<RO2T>*<RO234>
-! - K242*<RO2T>*<RO243>
-! - K246*<RO2T>*<RO235>
-! - K249*<RO2T>*<RO244>
-! - K253*<RO2T>*<RO236>
-! - K256*<RO2T>*<RO245>
-! - K260*<RO2T>*<RO237>
-! - K263*<RO2T>*<RO246>
-! - K267*<RO2T>*<RO238>
-! - K270*<RO2T>*<RO247>
-! - K280*<RO2T>*<RO248>
-! - K286*<RO2T>*<RO249>
-! - K290*<RO2T>*<RO250>
-! - K293*<RO2T>*<RO251>
-! - K296*<RO2T>*<RO252>
-! - K299*<RO2T>*<RO253>
-! - K302*<RO2T>*<RO254>
-! - K311*<RO2T>*<RO255>
-! - K319*<RO2T>*<RO256>
-! - K333*<RO2T>*<RO257>
-! - K342*<RO2T>*<RO258>
-! terms for RO21:
-! + K043*<OH>*<CH4>
-! + 0.6*K052*<O>*<ETHE>
-! + K147*<NO>*<RO28>
-! + K149*<RO2T>*<RO28>
-! + KTC47*<WC_RO21>
-! + KTR47*<WR_RO21>
-! - K110*<NO>*<RO21>
-! - K111*<RO2T>*<RO21>
-! - K112*<HO2>*<RO21>
-! - KTC16*<RO21>
-! - KTR16*<RO21>
-! terms for RO25:
-! + 0.28*K056*<O3>*<OLEL>
-! + 0.1*K057*<O>*<OLEL>
-! + K058*<OH>*<ALKL>
-! + K059*<ALD2>
-! + K063*<KETL>
-! + K071*<KETH>
-! + K125*<NO>*<RO26>
-! + K143*<RO2T>*<RO26>
-! + KTC48*<WC_RO25>
-! + KTR48*<WR_RO25>
-! - K122*<NO>*<RO25>
-! - K123*<RO2T>*<RO25>
-! - K124*<HO2>*<RO25>
-! - KTC17*<RO25>
-! - KTR17*<RO25>
+! + 0.08143*K079*<ALKE>*<O3>
+! + 0.00000*K080*<BIO>*<O3>
+! + 0.20595*K081*<CARBO>*<O3>
+! + 0.17307*K0102*<CARBOP>*<HO2>
+! + 0.13684*K109*<CARBOP>*<MO2>
+! + 0.49810*K111*<ALKAP>*<CARBOP>
+! + 0.49922*K112*<ALKEP>*<CARBOP>
+! + 0.49400*K113*<BIOP>*<CARBOP>
+! + 0.09955*K115*<CARBOP>*<CARBOP>
+! + 0.48963*K116*<OLN>*<CARBOP>
+! + KTC38*<WC_ORA2>
+! + KTR38*<WR_ORA2>
+! - K067*<ORA2>*<OH>
+! - KTC18*<ORA2>
+! - KTR18*<ORA2>
+! terms for MO2:
+! + K012*<ALD>
+! + 0.03795*K014*<OP2>
+! + K056*<CH4>*<OH>
+! + 0.65*K068*<OP1>*<OH>
+! + 0.13966*K079*<ALKE>*<O3>
+! + 0.03000*K080*<BIO>*<O3>
+! + 0.09016*K091*<ALKAP>*<NO>
+! + 0.78134*K095*<CARBOP>*<NO>
+! + 0.01390*K105*<ALKAP>*<MO2>
+! + 0.56031*K109*<CARBOP>*<MO2>
+! + 0.51480*K111*<ALKAP>*<CARBOP>
+! + 0.50078*K112*<ALKEP>*<CARBOP>
+! + 0.50600*K113*<BIOP>*<CARBOP>
+! + K114*<AROP>*<CARBOP>
+! + 1.66702*K115*<CARBOP>*<CARBOP>
+! + 0.51037*K116*<OLN>*<CARBOP>
+! + 0.09731*K120*<ALKAP>*<NO3>
+! + 0.91910*K124*<CARBOP>*<NO3>
+! + K128*<XO2>*<CARBOP>
+! + KTC39*<WC_MO2>
+! + KTR39*<WR_MO2>
+! - K090*<MO2>*<NO>
+! - K097*<MO2>*<HO2>
+! - K104*<MO2>*<MO2>
+! - K104*<MO2>*<MO2>
+! - K105*<ALKAP>*<MO2>
+! - K106*<ALKEP>*<MO2>
+! - K107*<BIOP>*<MO2>
+! - K108*<AROP>*<MO2>
+! - K109*<CARBOP>*<MO2>
+! - K110*<OLN>*<MO2>
+! - K119*<MO2>*<NO3>
+! - K127*<XO2>*<MO2>
+! - KTC19*<MO2>
+! - KTR19*<MO2>
+! terms for ALKAP:
+! + 1.00000*K015*<KET>
+! + K057*<ETH>*<OH>
+! + 0.87811*K058*<ALKA>*<OH>
+! + 0.40341*K069*<OP2>*<OH>
+! + 1.00000*K071*<ONIT>*<OH>
+! + 0.09815*K079*<ALKE>*<O3>
+! + 0.00000*K080*<BIO>*<O3>
+! + 0.08187*K091*<ALKAP>*<NO>
+! + 0.00385*K105*<ALKAP>*<MO2>
+! + 0.00828*K111*<ALKAP>*<CARBOP>
+! + 0.08994*K120*<ALKAP>*<NO3>
+! - K091*<ALKAP>*<NO>
+! - K098*<ALKAP>*<HO2>
+! - K105*<ALKAP>*<MO2>
+! - K111*<ALKAP>*<CARBOP>
+! - K120*<ALKAP>*<NO3>
+! terms for ALKEP:
+! + 1.02529*K059*<ALKE>*<OH>
+! - K092*<ALKEP>*<NO>
+! - K099*<ALKEP>*<HO2>
+! - K106*<ALKEP>*<MO2>
+! - K112*<ALKEP>*<CARBOP>
+! - K121*<ALKEP>*<NO3>
+! terms for BIOP:
+! + 0.00000*K059*<ALKE>*<OH>
+! + 1.00000*K060*<BIO>*<OH>
+! - K093*<BIOP>*<NO>
+! - K0100*<BIOP>*<HO2>
+! - K107*<BIOP>*<MO2>
+! - K113*<BIOP>*<CARBOP>
+! - K122*<BIOP>*<NO3>
+! terms for PHO:
+! + 0.00276*K061*<ARO>*<OH>
+! + K075*<ARO>*<NO3>
+! - K083*<PHO>*<NO2>
+! - K084*<PHO>*<HO2>
+! terms for ADD:
+! + 0.93968*K061*<ARO>*<OH>
+! - K085*<ADD>*<NO2>
+! - K086*<ADD>*<O2>
+! - K087*<ADD>*<O3>
+! terms for AROP:
+! + 0.98*K086*<ADD>*<O2>
+! - K094*<AROP>*<NO>
+! - K0101*<AROP>*<HO2>
+! - K108*<AROP>*<MO2>
+! - K114*<AROP>*<CARBOP>
+! - K123*<AROP>*<NO3>
+! terms for CARBOP:
+! + 1.00000*K015*<KET>
+! + 0.69622*K016*<CARBO>
+! + 1.00000*K063*<ALD>*<OH>
+! + 1.00000*K064*<KET>*<OH>
+! + 0.51419*K065*<CARBO>*<OH>
+! + 0.05413*K069*<OP2>*<OH>
+! + 1.00000*K073*<ALD>*<NO3>
+! + 0.38881*K074*<CARBO>*<NO3>
+! + 0.05705*K079*<ALKE>*<O3>
+! + 0.17000*K080*<BIO>*<O3>
+! + 0.27460*K081*<CARBO>*<O3>
+! + 0.70000*K082*<PAN>*<O3>
+! + 1.00000*K089*<PAN>
+! + 0.09532*K095*<CARBOP>*<NO>
+! + 0.05954*K109*<CARBOP>*<MO2>
+! + 0.05821*K115*<CARBOP>*<CARBOP>
+! + 0.03175*K124*<CARBOP>*<NO3>
+! - K088*<CARBOP>*<NO2>
+! - K095*<CARBOP>*<NO>
+! - K0102*<CARBOP>*<HO2>
+! - K109*<CARBOP>*<MO2>
+! - K111*<ALKAP>*<CARBOP>
+! - K112*<ALKEP>*<CARBOP>
+! - K113*<BIOP>*<CARBOP>
+! - K114*<AROP>*<CARBOP>
+! - K115*<CARBOP>*<CARBOP>
+! - K115*<CARBOP>*<CARBOP>
+! - K116*<OLN>*<CARBOP>
+! - K124*<CARBOP>*<NO3>
+! - K128*<XO2>*<CARBOP>
+! terms for OLN:
+! + 0.00000*K074*<CARBO>*<NO3>
+! + 0.93768*K076*<ALKE>*<NO3>
+! + 1.00000*K077*<BIO>*<NO3>
+! - K096*<OLN>*<NO>
+! - K103*<OLN>*<HO2>
+! - K110*<OLN>*<MO2>
+! - K116*<OLN>*<CARBOP>
+! - K117*<OLN>*<OLN>
+! - K117*<OLN>*<OLN>
+! - K118*<OLN>*<OLN>
+! - K118*<OLN>*<OLN>
+! - K125*<OLN>*<NO3>
+! terms for XO2:
+! + 0.15*K054*<BIO>*<O3P>
+! + 0.10318*K061*<ARO>*<OH>
+! + 0.10162*K065*<CARBO>*<OH>
+! + 0.09333*K069*<OP2>*<OH>
+! + K070*<PAN>*<OH>
+! + 0.10530*K074*<CARBO>*<NO3>
+! + K078*<PAN>*<NO3>
+! + 0.00000*K079*<ALKE>*<O3>
+! + 0.13000*K080*<BIO>*<O3>
+! + 0.13007*K091*<ALKAP>*<NO>
+! + 0.02563*K095*<CARBOP>*<NO>
+! + 0.13370*K105*<ALKAP>*<MO2>
+! + 0.02212*K109*<CARBOP>*<MO2>
+! + 0.11306*K111*<ALKAP>*<CARBOP>
+! + 0.01593*K115*<CARBOP>*<CARBOP>
+! + 0.16271*K120*<ALKAP>*<NO3>
+! + 0.01021*K124*<CARBOP>*<NO3>
+! - K126*<XO2>*<HO2>
+! - K127*<XO2>*<MO2>
+! - K128*<XO2>*<CARBOP>
+! - K129*<XO2>*<XO2>
+! - K129*<XO2>*<XO2>
+! - K130*<XO2>*<NO>
+! - K131*<XO2>*<NO3>
! terms for WC_O3:
! + KTC1*<O3>
-! - KTC32*<WC_O3>
-! - KC6*<WC_HO2>*<WC_O3>
-! - KC25*<WC_O3>*<WC_SO2>
+! - KTC21*<WC_O3>
+! - KC6*<WC_O3>*<WC_HO2>
+! - KC29*<WC_SO2>*<WC_O3>
! terms for WC_H2O2:
! + KTC2*<H2O2>
! + KC2*<WC_OH>*<WC_OH>
! + KC5*<WC_HO2>*<WC_HO2>
-! + KC29*<WC_RO25>*<WC_RO25>
-! + KC37*<WC_OH>*<WC_KETL>
-! + 0.5*KC39*<WC_OH>*<WC_ORA2>
-! + 0.29*KC41*<WC_OH>*<WC_ACID>
-! + 0.3*KC43*<WC_OH>*<WC_UR21>
-! + 0.45*KC45*<WC_OH>*<WC_RP16>
-! - KTC33*<WC_H2O2>
+! - KTC22*<WC_H2O2>
! - KC1*<WC_H2O2>
-! - KC4*<WC_OH>*<WC_H2O2>
-! - KC26*<WC_H2O2>*<WC_SO2>
+! - KC4*<WC_H2O2>*<WC_OH>
+! - KC30*<WC_SO2>*<WC_H2O2>
! terms for WC_NO:
! + KTC3*<NO>
-! - KTC34*<WC_NO>
+! - KTC23*<WC_NO>
! terms for WC_NO2:
! + KTC4*<NO2>
-! + KC8*<WC_OH>*<WC_HONO>
+! + KC8*<WC_HONO>*<WC_OH>
! + KC10*<WC_HNO4>
! + KC13*<WC_HNO3>
-! - KTC35*<WC_NO2>
-! - KC9*<WC_HO2>*<WC_NO2>
+! - KTC24*<WC_NO2>
+! - KC9*<WC_NO2>*<WC_HO2>
! terms for WC_NO3:
! + KTC5*<NO3>
-! - KTC36*<WC_NO3>
-! - KC15*<WC_H2SO4>*<WC_NO3>
-! - KC16*<WC_SO2>*<WC_NO3>
+! - KTC25*<WC_NO3>
+! - KC15*<WC_NO3>*<WC_SULF>
+! - KC16*<WC_NO3>*<WC_SO2>
! terms for WC_N2O5:
! + KTC6*<N2O5>
-! - KTC37*<WC_N2O5>
+! - KTC26*<WC_N2O5>
! - KC14*<WC_N2O5>
! terms for WC_HONO:
! + KTC7*<HONO>
! + KC11*<WC_HNO4>
-! - KTC38*<WC_HONO>
-! - KC8*<WC_OH>*<WC_HONO>
+! - KTC27*<WC_HONO>
+! - KC8*<WC_HONO>*<WC_OH>
! terms for WC_HNO3:
! + KTC8*<HNO3>
-! + KC12*<WC_SO2>*<WC_HNO4>
+! + KC12*<WC_HNO4>*<WC_SO2>
! + KC14*<WC_N2O5>
! + KC14*<WC_N2O5>
-! + KC15*<WC_H2SO4>*<WC_NO3>
-! + KC16*<WC_SO2>*<WC_NO3>
-! - KTC39*<WC_HNO3>
+! + KC15*<WC_NO3>*<WC_SULF>
+! + KC16*<WC_NO3>*<WC_SO2>
+! - KTC28*<WC_HNO3>
! - KC13*<WC_HNO3>
! terms for WC_HNO4:
! + KTC9*<HNO4>
-! + KC9*<WC_HO2>*<WC_NO2>
-! - KTC40*<WC_HNO4>
+! + KC9*<WC_NO2>*<WC_HO2>
+! - KTC29*<WC_HNO4>
! - KC10*<WC_HNO4>
! - KC11*<WC_HNO4>
-! - KC12*<WC_SO2>*<WC_HNO4>
+! - KC12*<WC_HNO4>*<WC_SO2>
! terms for WC_NH3:
! + KTC10*<NH3>
-! - KTC41*<WC_NH3>
+! - KTC30*<WC_NH3>
! terms for WC_OH:
! + KTC11*<OH>
! + KC1*<WC_H2O2>
! + KC1*<WC_H2O2>
-! + KC6*<WC_HO2>*<WC_O3>
+! + KC6*<WC_O3>*<WC_HO2>
! + KC13*<WC_HNO3>
-! + KC24*<WC_ASO4>
-! - KTC42*<WC_OH>
+! + KC28*<WC_ASO4>
+! - KTC31*<WC_OH>
! - KC2*<WC_OH>*<WC_OH>
! - KC2*<WC_OH>*<WC_OH>
-! - KC3*<WC_HO2>*<WC_OH>
-! - KC4*<WC_OH>*<WC_H2O2>
-! - KC7*<WC_SO2>*<WC_OH>
-! - KC8*<WC_OH>*<WC_HONO>
-! - KC19*<WC_OH>*<WC_AHMS>
-! - KC30*<WC_OH>*<WC_MEOH>
-! - KC31*<WC_OH>*<WC_ETOH>
-! - KC32*<WC_OH>*<WC_ALCH>
-! - KC33*<WC_OH>*<WC_HCHO>
-! - KC34*<WC_OH>*<WC_ALD2>
-! - KC35*<WC_OH>*<WC_GLY>
-! - KC36*<WC_OH>*<WC_MGLY>
-! - KC37*<WC_OH>*<WC_KETL>
-! - KC38*<WC_OH>*<WC_ORA1>
-! - KC39*<WC_OH>*<WC_ORA2>
-! - KC40*<WC_OH>*<WC_ACID>
-! - KC41*<WC_OH>*<WC_ACID>
-! - KC42*<WC_OH>*<WC_UR28>
-! - KC43*<WC_OH>*<WC_UR21>
-! - KC44*<WC_OH>*<WC_RP16>
-! - KC45*<WC_OH>*<WC_RP16>
-! - KC46*<WC_OH>*<WC_ACID2>
+! - KC3*<WC_OH>*<WC_HO2>
+! - KC4*<WC_H2O2>*<WC_OH>
+! - KC7*<WC_OH>*<WC_SO2>
+! - KC8*<WC_HONO>*<WC_OH>
+! - KC19*<WC_HCHO>*<WC_OH>
+! - KC20*<WC_ORA1>*<WC_OH>
+! - KC23*<WC_AHMS>*<WC_OH>
! terms for WC_HO2:
! + KTC12*<HO2>
-! + KC4*<WC_OH>*<WC_H2O2>
+! + KC4*<WC_H2O2>*<WC_OH>
! + KC10*<WC_HNO4>
-! + KC19*<WC_OH>*<WC_AHMS>
-! + 2.00*KC27*<WC_RO21>*<WC_RO21>
-! + KC29*<WC_RO25>*<WC_RO25>
-! + KC30*<WC_OH>*<WC_MEOH>
-! + KC31*<WC_OH>*<WC_ETOH>
-! + KC32*<WC_OH>*<WC_ALCH>
-! + KC33*<WC_OH>*<WC_HCHO>
-! + KC35*<WC_OH>*<WC_GLY>
-! + KC36*<WC_OH>*<WC_MGLY>
-! + KC37*<WC_OH>*<WC_KETL>
-! + KC38*<WC_OH>*<WC_ORA1>
-! + 0.11*KC41*<WC_OH>*<WC_ACID>
-! + KC42*<WC_OH>*<WC_UR28>
-! + 0.81*KC43*<WC_OH>*<WC_UR21>
-! + KC44*<WC_OH>*<WC_RP16>
-! + 0.71*KC45*<WC_OH>*<WC_RP16>
-! - KTC43*<WC_HO2>
-! - KC3*<WC_HO2>*<WC_OH>
+! + 2.00*KC17*<WC_MO2>*<WC_MO2>
+! + KC19*<WC_HCHO>*<WC_OH>
+! + KC20*<WC_ORA1>*<WC_OH>
+! + KC23*<WC_AHMS>*<WC_OH>
+! - KTC32*<WC_HO2>
+! - KC3*<WC_OH>*<WC_HO2>
! - KC5*<WC_HO2>*<WC_HO2>
! - KC5*<WC_HO2>*<WC_HO2>
-! - KC6*<WC_HO2>*<WC_O3>
-! - KC9*<WC_HO2>*<WC_NO2>
-! - KC21*<WC_HO2>*<WC_ASO5>
+! - KC6*<WC_O3>*<WC_HO2>
+! - KC9*<WC_NO2>*<WC_HO2>
+! - KC25*<WC_ASO5>*<WC_HO2>
! terms for WC_CO2:
! + KTC13*<CO2>
-! + KC34*<WC_OH>*<WC_ALD2>
-! + KC37*<WC_OH>*<WC_KETL>
-! + KC38*<WC_OH>*<WC_ORA1>
-! + KC40*<WC_OH>*<WC_ACID>
-! + 2*KC42*<WC_OH>*<WC_UR28>
-! + 0.43*KC43*<WC_OH>*<WC_UR21>
-! + 2*KC45*<WC_OH>*<WC_RP16>
-! - KTC44*<WC_CO2>
+! + KC20*<WC_ORA1>*<WC_OH>
+! - KTC33*<WC_CO2>
! terms for WC_SO2:
! + KTC14*<SO2>
-! + KC18*<WC_AHMS>
-! + KC19*<WC_OH>*<WC_AHMS>
-! - KTC45*<WC_SO2>
-! - KC7*<WC_SO2>*<WC_OH>
-! - KC12*<WC_SO2>*<WC_HNO4>
-! - KC16*<WC_SO2>*<WC_NO3>
-! - KC17*<WC_HCHO>*<WC_SO2>
-! - KC23*<WC_SO2>*<WC_AHSO5>
-! - KC25*<WC_O3>*<WC_SO2>
-! - KC26*<WC_H2O2>*<WC_SO2>
-! - KC28*<WC_SO2>*<WC_RO21>
-! terms for WC_H2SO4:
-! + KTC15*<H2SO4>
-! + KC12*<WC_SO2>*<WC_HNO4>
-! + 2.00*KC23*<WC_SO2>*<WC_AHSO5>
-! + KC24*<WC_ASO4>
-! + KC25*<WC_O3>*<WC_SO2>
-! + KC26*<WC_H2O2>*<WC_SO2>
-! - KTC46*<WC_H2SO4>
-! - KC15*<WC_H2SO4>*<WC_NO3>
-! terms for WC_RO21:
-! + KTC16*<RO21>
-! + 0.50*KC34*<WC_OH>*<WC_ALD2>
-! + KC37*<WC_OH>*<WC_KETL>
-! - KTC47*<WC_RO21>
-! - KC27*<WC_RO21>*<WC_RO21>
-! - KC27*<WC_RO21>*<WC_RO21>
-! - KC28*<WC_SO2>*<WC_RO21>
-! terms for WC_RO25:
-! + KTC17*<RO25>
-! + 0.50*KC34*<WC_OH>*<WC_ALD2>
-! + KC40*<WC_OH>*<WC_ACID>
-! - KTC48*<WC_RO25>
-! - KC29*<WC_RO25>*<WC_RO25>
-! - KC29*<WC_RO25>*<WC_RO25>
-! terms for WC_MEOH:
-! + KTC18*<MEOH>
-! - KTC49*<WC_MEOH>
-! - KC30*<WC_OH>*<WC_MEOH>
-! terms for WC_ETOH:
-! + KTC19*<ETOH>
-! - KTC50*<WC_ETOH>
-! - KC31*<WC_OH>*<WC_ETOH>
-! terms for WC_ALCH:
-! + KTC20*<ALCH>
-! - KTC51*<WC_ALCH>
-! - KC32*<WC_OH>*<WC_ALCH>
+! + KC22*<WC_AHMS>
+! + KC23*<WC_AHMS>*<WC_OH>
+! - KTC34*<WC_SO2>
+! - KC7*<WC_OH>*<WC_SO2>
+! - KC12*<WC_HNO4>*<WC_SO2>
+! - KC16*<WC_NO3>*<WC_SO2>
+! - KC18*<WC_MO2>*<WC_SO2>
+! - KC21*<WC_SO2>*<WC_HCHO>
+! - KC27*<WC_AHSO5>*<WC_SO2>
+! - KC29*<WC_SO2>*<WC_O3>
+! - KC30*<WC_SO2>*<WC_H2O2>
+! terms for WC_SULF:
+! + KTC15*<SULF>
+! + KC12*<WC_HNO4>*<WC_SO2>
+! + 2.00*KC27*<WC_AHSO5>*<WC_SO2>
+! + KC28*<WC_ASO4>
+! + KC29*<WC_SO2>*<WC_O3>
+! + KC30*<WC_SO2>*<WC_H2O2>
+! - KTC35*<WC_SULF>
+! - KC15*<WC_NO3>*<WC_SULF>
! terms for WC_HCHO:
-! + KTC21*<HCHO>
-! + KC18*<WC_AHMS>
-! + 2.00*KC27*<WC_RO21>*<WC_RO21>
-! + KC28*<WC_SO2>*<WC_RO21>
-! + KC30*<WC_OH>*<WC_MEOH>
-! + KC37*<WC_OH>*<WC_KETL>
-! - KTC52*<WC_HCHO>
-! - KC17*<WC_HCHO>*<WC_SO2>
-! - KC33*<WC_OH>*<WC_HCHO>
-! terms for WC_ALD2:
-! + KTC22*<ALD2>
-! + KC29*<WC_RO25>*<WC_RO25>
-! + KC31*<WC_OH>*<WC_ETOH>
-! + 0.50*KC32*<WC_OH>*<WC_ALCH>
-! + KC37*<WC_OH>*<WC_KETL>
-! + 0.29*KC41*<WC_OH>*<WC_ACID>
-! + 0.43*KC43*<WC_OH>*<WC_UR21>
-! - KTC53*<WC_ALD2>
-! - KC34*<WC_OH>*<WC_ALD2>
-! terms for WC_GLY:
-! + KTC23*<GLY>
-! - KTC54*<WC_GLY>
-! - KC35*<WC_OH>*<WC_GLY>
-! terms for WC_MGLY:
-! + KTC25*<MGLY>
-! + KC37*<WC_OH>*<WC_KETL>
-! - KTC56*<WC_MGLY>
-! - KC36*<WC_OH>*<WC_MGLY>
-! terms for WC_KETL:
-! + KTC24*<KETL>
-! + 0.50*KC32*<WC_OH>*<WC_ALCH>
-! + KC37*<WC_OH>*<WC_KETL>
-! - KTC55*<WC_KETL>
-! - KC37*<WC_OH>*<WC_KETL>
+! + KTC16*<HCHO>
+! + 2.00*KC17*<WC_MO2>*<WC_MO2>
+! + KC22*<WC_AHMS>
+! - KTC36*<WC_HCHO>
+! - KC19*<WC_HCHO>*<WC_OH>
+! - KC21*<WC_SO2>*<WC_HCHO>
! terms for WC_ORA1:
-! + KTC26*<ORA1>
-! + KC19*<WC_OH>*<WC_AHMS>
-! + KC33*<WC_OH>*<WC_HCHO>
-! - KTC57*<WC_ORA1>
-! - KC38*<WC_OH>*<WC_ORA1>
+! + KTC17*<ORA1>
+! + KC19*<WC_HCHO>*<WC_OH>
+! + KC23*<WC_AHMS>*<WC_OH>
+! - KTC37*<WC_ORA1>
+! - KC20*<WC_ORA1>*<WC_OH>
! terms for WC_ORA2:
-! + KTC27*<ORA2>
-! + KC29*<WC_RO25>*<WC_RO25>
-! - KTC58*<WC_ORA2>
-! - KC39*<WC_OH>*<WC_ORA2>
-! terms for WC_ACID:
-! + KTC28*<ACID>
-! - KTC59*<WC_ACID>
-! - KC40*<WC_OH>*<WC_ACID>
-! - KC41*<WC_OH>*<WC_ACID>
-! terms for WC_RP16:
-! + KTC29*<RP16>
-! + KC35*<WC_OH>*<WC_GLY>
-! + KC39*<WC_OH>*<WC_ORA2>
-! - KTC60*<WC_RP16>
-! - KC44*<WC_OH>*<WC_RP16>
-! - KC45*<WC_OH>*<WC_RP16>
-! terms for WC_UR21:
-! + KTC30*<UR21>
-! + KC36*<WC_OH>*<WC_MGLY>
-! + KC37*<WC_OH>*<WC_KETL>
-! + 0.56*KC41*<WC_OH>*<WC_ACID>
-! - KTC61*<WC_UR21>
-! - KC43*<WC_OH>*<WC_UR21>
-! terms for WC_UR28:
-! + KTC31*<UR28>
-! + KC44*<WC_OH>*<WC_RP16>
-! - KTC62*<WC_UR28>
-! - KC42*<WC_OH>*<WC_UR28>
-! terms for WC_ACID2:
-! + 0.15*KC41*<WC_OH>*<WC_ACID>
-! + 0.56*KC43*<WC_OH>*<WC_UR21>
-! - KC46*<WC_OH>*<WC_ACID2>
+! + KTC18*<ORA2>
+! - KTC38*<WC_ORA2>
+! terms for WC_MO2:
+! + KTC19*<MO2>
+! - KTC39*<WC_MO2>
+! - KC17*<WC_MO2>*<WC_MO2>
+! - KC17*<WC_MO2>*<WC_MO2>
+! - KC18*<WC_MO2>*<WC_SO2>
+! terms for WC_OP1:
+! + KTC20*<OP1>
+! + KC18*<WC_MO2>*<WC_SO2>
+! - KTC40*<WC_OP1>
! terms for WC_ASO3:
-! + KC7*<WC_SO2>*<WC_OH>
-! + KC16*<WC_SO2>*<WC_NO3>
-! + KC28*<WC_SO2>*<WC_RO21>
-! - KC20*<W_O2>*<WC_ASO3>
+! + KC7*<WC_OH>*<WC_SO2>
+! + KC16*<WC_NO3>*<WC_SO2>
+! + KC18*<WC_MO2>*<WC_SO2>
+! - KC24*<WC_ASO3>*<W_O2>
! terms for WC_ASO4:
-! + KC15*<WC_H2SO4>*<WC_NO3>
-! + KC22*<WC_ASO5>*<WC_ASO5>
-! + KC22*<WC_ASO5>*<WC_ASO5>
-! - KC24*<WC_ASO4>
+! + KC15*<WC_NO3>*<WC_SULF>
+! + KC26*<WC_ASO5>*<WC_ASO5>
+! + KC26*<WC_ASO5>*<WC_ASO5>
+! - KC28*<WC_ASO4>
! terms for WC_ASO5:
-! + KC20*<W_O2>*<WC_ASO3>
-! - KC21*<WC_HO2>*<WC_ASO5>
-! - KC22*<WC_ASO5>*<WC_ASO5>
-! - KC22*<WC_ASO5>*<WC_ASO5>
+! + KC24*<WC_ASO3>*<W_O2>
+! - KC25*<WC_ASO5>*<WC_HO2>
+! - KC26*<WC_ASO5>*<WC_ASO5>
+! - KC26*<WC_ASO5>*<WC_ASO5>
! terms for WC_AHSO5:
-! + KC21*<WC_HO2>*<WC_ASO5>
-! - KC23*<WC_SO2>*<WC_AHSO5>
+! + KC25*<WC_ASO5>*<WC_HO2>
+! - KC27*<WC_AHSO5>*<WC_SO2>
! terms for WC_AHMS:
-! + KC17*<WC_HCHO>*<WC_SO2>
-! - KC18*<WC_AHMS>
-! - KC19*<WC_OH>*<WC_AHMS>
+! + KC21*<WC_SO2>*<WC_HCHO>
+! - KC22*<WC_AHMS>
+! - KC23*<WC_AHMS>*<WC_OH>
! terms for WR_O3:
! + KTR1*<O3>
-! - KTR32*<WR_O3>
-! - KR6*<WR_HO2>*<WR_O3>
-! - KR25*<WR_O3>*<WR_SO2>
+! - KTR21*<WR_O3>
+! - KR6*<WR_O3>*<WR_HO2>
+! - KR29*<WR_SO2>*<WR_O3>
! terms for WR_H2O2:
! + KTR2*<H2O2>
! + KR2*<WR_OH>*<WR_OH>
! + KR5*<WR_HO2>*<WR_HO2>
-! + KR29*<WR_RO25>*<WR_RO25>
-! + KR37*<WR_OH>*<WR_KETL>
-! + 0.5*KR39*<WR_OH>*<WR_ORA2>
-! + 0.29*KR41*<WR_OH>*<WR_ACID>
-! + 0.3*KR43*<WR_OH>*<WR_UR21>
-! + 0.45*KR45*<WR_OH>*<WR_RP16>
-! - KTR33*<WR_H2O2>
+! - KTR22*<WR_H2O2>
! - KR1*<WR_H2O2>
-! - KR4*<WR_OH>*<WR_H2O2>
-! - KR26*<WR_H2O2>*<WR_SO2>
+! - KR4*<WR_H2O2>*<WR_OH>
+! - KR30*<WR_SO2>*<WR_H2O2>
! terms for WR_NO:
! + KTR3*<NO>
-! - KTR34*<WR_NO>
+! - KTR23*<WR_NO>
! terms for WR_NO2:
! + KTR4*<NO2>
-! + KR8*<WR_OH>*<WR_HONO>
+! + KR8*<WR_HONO>*<WR_OH>
! + KR10*<WR_HNO4>
! + KR13*<WR_HNO3>
-! - KTR35*<WR_NO2>
-! - KR9*<WR_HO2>*<WR_NO2>
+! - KTR24*<WR_NO2>
+! - KR9*<WR_NO2>*<WR_HO2>
! terms for WR_NO3:
! + KTR5*<NO3>
-! - KTR36*<WR_NO3>
-! - KR15*<WR_H2SO4>*<WR_NO3>
-! - KR16*<WR_SO2>*<WR_NO3>
+! - KTR25*<WR_NO3>
+! - KR15*<WR_NO3>*<WR_SULF>
+! - KR16*<WR_NO3>*<WR_SO2>
! terms for WR_N2O5:
! + KTR6*<N2O5>
-! - KTR37*<WR_N2O5>
+! - KTR26*<WR_N2O5>
! - KR14*<WR_N2O5>
! terms for WR_HONO:
! + KTR7*<HONO>
! + KR11*<WR_HNO4>
-! - KTR38*<WR_HONO>
-! - KR8*<WR_OH>*<WR_HONO>
+! - KTR27*<WR_HONO>
+! - KR8*<WR_HONO>*<WR_OH>
! terms for WR_HNO3:
! + KTR8*<HNO3>
-! + KR12*<WR_SO2>*<WR_HNO4>
+! + KR12*<WR_HNO4>*<WR_SO2>
! + KR14*<WR_N2O5>
! + KR14*<WR_N2O5>
-! + KR15*<WR_H2SO4>*<WR_NO3>
-! + KR16*<WR_SO2>*<WR_NO3>
-! - KTR39*<WR_HNO3>
+! + KR15*<WR_NO3>*<WR_SULF>
+! + KR16*<WR_NO3>*<WR_SO2>
+! - KTR28*<WR_HNO3>
! - KR13*<WR_HNO3>
! terms for WR_HNO4:
! + KTR9*<HNO4>
-! + KR9*<WR_HO2>*<WR_NO2>
-! - KTR40*<WR_HNO4>
+! + KR9*<WR_NO2>*<WR_HO2>
+! - KTR29*<WR_HNO4>
! - KR10*<WR_HNO4>
! - KR11*<WR_HNO4>
-! - KR12*<WR_SO2>*<WR_HNO4>
+! - KR12*<WR_HNO4>*<WR_SO2>
! terms for WR_NH3:
! + KTR10*<NH3>
-! - KTR41*<WR_NH3>
+! - KTR30*<WR_NH3>
! terms for WR_OH:
! + KTR11*<OH>
! + KR1*<WR_H2O2>
! + KR1*<WR_H2O2>
-! + KR6*<WR_HO2>*<WR_O3>
+! + KR6*<WR_O3>*<WR_HO2>
! + KR13*<WR_HNO3>
-! + KR24*<WR_ASO4>
-! - KTR42*<WR_OH>
+! + KR28*<WR_ASO4>
+! - KTR31*<WR_OH>
! - KR2*<WR_OH>*<WR_OH>
! - KR2*<WR_OH>*<WR_OH>
-! - KR3*<WR_HO2>*<WR_OH>
-! - KR4*<WR_OH>*<WR_H2O2>
-! - KR7*<WR_SO2>*<WR_OH>
-! - KR8*<WR_OH>*<WR_HONO>
-! - KR19*<WR_OH>*<WR_AHMS>
-! - KR30*<WR_OH>*<WR_MEOH>
-! - KR31*<WR_OH>*<WR_ETOH>
-! - KR32*<WR_OH>*<WR_ALCH>
-! - KR33*<WR_OH>*<WR_HCHO>
-! - KR34*<WR_OH>*<WR_ALD2>
-! - KR35*<WR_OH>*<WR_GLY>
-! - KR36*<WR_OH>*<WR_MGLY>
-! - KR37*<WR_OH>*<WR_KETL>
-! - KR38*<WR_OH>*<WR_ORA1>
-! - KR39*<WR_OH>*<WR_ORA2>
-! - KR40*<WR_OH>*<WR_ACID>
-! - KR41*<WR_OH>*<WR_ACID>
-! - KR42*<WR_OH>*<WR_UR28>
-! - KR43*<WR_OH>*<WR_UR21>
-! - KR44*<WR_OH>*<WR_RP16>
-! - KR45*<WR_OH>*<WR_RP16>
-! - KR46*<WR_OH>*<WR_ACID2>
+! - KR3*<WR_OH>*<WR_HO2>
+! - KR4*<WR_H2O2>*<WR_OH>
+! - KR7*<WR_OH>*<WR_SO2>
+! - KR8*<WR_HONO>*<WR_OH>
+! - KR19*<WR_HCHO>*<WR_OH>
+! - KR20*<WR_ORA1>*<WR_OH>
+! - KR23*<WR_AHMS>*<WR_OH>
! terms for WR_HO2:
! + KTR12*<HO2>
-! + KR4*<WR_OH>*<WR_H2O2>
+! + KR4*<WR_H2O2>*<WR_OH>
! + KR10*<WR_HNO4>
-! + KR19*<WR_OH>*<WR_AHMS>
-! + 2.00*KR27*<WR_RO21>*<WR_RO21>
-! + KR29*<WR_RO25>*<WR_RO25>
-! + KR30*<WR_OH>*<WR_MEOH>
-! + KR31*<WR_OH>*<WR_ETOH>
-! + KR32*<WR_OH>*<WR_ALCH>
-! + KR33*<WR_OH>*<WR_HCHO>
-! + KR35*<WR_OH>*<WR_GLY>
-! + KR36*<WR_OH>*<WR_MGLY>
-! + KR37*<WR_OH>*<WR_KETL>
-! + KR38*<WR_OH>*<WR_ORA1>
-! + 0.11*KR41*<WR_OH>*<WR_ACID>
-! + KR42*<WR_OH>*<WR_UR28>
-! + 0.81*KR43*<WR_OH>*<WR_UR21>
-! + KR44*<WR_OH>*<WR_RP16>
-! + 0.71*KR45*<WR_OH>*<WR_RP16>
-! - KTR43*<WR_HO2>
-! - KR3*<WR_HO2>*<WR_OH>
+! + 2.00*KR17*<WR_MO2>*<WR_MO2>
+! + KR19*<WR_HCHO>*<WR_OH>
+! + KR20*<WR_ORA1>*<WR_OH>
+! + KR23*<WR_AHMS>*<WR_OH>
+! - KTR32*<WR_HO2>
+! - KR3*<WR_OH>*<WR_HO2>
! - KR5*<WR_HO2>*<WR_HO2>
! - KR5*<WR_HO2>*<WR_HO2>
-! - KR6*<WR_HO2>*<WR_O3>
-! - KR9*<WR_HO2>*<WR_NO2>
-! - KR21*<WR_HO2>*<WR_ASO5>
+! - KR6*<WR_O3>*<WR_HO2>
+! - KR9*<WR_NO2>*<WR_HO2>
+! - KR25*<WR_ASO5>*<WR_HO2>
! terms for WR_CO2:
! + KTR13*<CO2>
-! + KR34*<WR_OH>*<WR_ALD2>
-! + KR37*<WR_OH>*<WR_KETL>
-! + KR38*<WR_OH>*<WR_ORA1>
-! + KR40*<WR_OH>*<WR_ACID>
-! + 2*KR42*<WR_OH>*<WR_UR28>
-! + 0.43*KR43*<WR_OH>*<WR_UR21>
-! + 2*KR45*<WR_OH>*<WR_RP16>
-! - KTR44*<WR_CO2>
+! + KR20*<WR_ORA1>*<WR_OH>
+! - KTR33*<WR_CO2>
! terms for WR_SO2:
! + KTR14*<SO2>
-! + KR18*<WR_AHMS>
-! + KR19*<WR_OH>*<WR_AHMS>
-! - KTR45*<WR_SO2>
-! - KR7*<WR_SO2>*<WR_OH>
-! - KR12*<WR_SO2>*<WR_HNO4>
-! - KR16*<WR_SO2>*<WR_NO3>
-! - KR17*<WR_HCHO>*<WR_SO2>
-! - KR23*<WR_SO2>*<WR_AHSO5>
-! - KR25*<WR_O3>*<WR_SO2>
-! - KR26*<WR_H2O2>*<WR_SO2>
-! - KR28*<WR_SO2>*<WR_RO21>
-! terms for WR_H2SO4:
-! + KTR15*<H2SO4>
-! + KR12*<WR_SO2>*<WR_HNO4>
-! + 2.00*KR23*<WR_SO2>*<WR_AHSO5>
-! + KR24*<WR_ASO4>
-! + KR25*<WR_O3>*<WR_SO2>
-! + KR26*<WR_H2O2>*<WR_SO2>
-! - KTR46*<WR_H2SO4>
-! - KR15*<WR_H2SO4>*<WR_NO3>
-! terms for WR_RO21:
-! + KTR16*<RO21>
-! + 0.50*KR34*<WR_OH>*<WR_ALD2>
-! + KR37*<WR_OH>*<WR_KETL>
-! - KTR47*<WR_RO21>
-! - KR27*<WR_RO21>*<WR_RO21>
-! - KR27*<WR_RO21>*<WR_RO21>
-! - KR28*<WR_SO2>*<WR_RO21>
-! terms for WR_RO25:
-! + KTR17*<RO25>
-! + 0.50*KR34*<WR_OH>*<WR_ALD2>
-! + KR40*<WR_OH>*<WR_ACID>
-! - KTR48*<WR_RO25>
-! - KR29*<WR_RO25>*<WR_RO25>
-! - KR29*<WR_RO25>*<WR_RO25>
-! terms for WR_MEOH:
-! + KTR18*<MEOH>
-! - KTR49*<WR_MEOH>
-! - KR30*<WR_OH>*<WR_MEOH>
-! terms for WR_ETOH:
-! + KTR19*<ETOH>
-! - KTR50*<WR_ETOH>
-! - KR31*<WR_OH>*<WR_ETOH>
-! terms for WR_ALCH:
-! + KTR20*<ALCH>
-! - KTR51*<WR_ALCH>
-! - KR32*<WR_OH>*<WR_ALCH>
+! + KR22*<WR_AHMS>
+! + KR23*<WR_AHMS>*<WR_OH>
+! - KTR34*<WR_SO2>
+! - KR7*<WR_OH>*<WR_SO2>
+! - KR12*<WR_HNO4>*<WR_SO2>
+! - KR16*<WR_NO3>*<WR_SO2>
+! - KR18*<WR_MO2>*<WR_SO2>
+! - KR21*<WR_SO2>*<WR_HCHO>
+! - KR27*<WR_AHSO5>*<WR_SO2>
+! - KR29*<WR_SO2>*<WR_O3>
+! - KR30*<WR_SO2>*<WR_H2O2>
+! terms for WR_SULF:
+! + KTR15*<SULF>
+! + KR12*<WR_HNO4>*<WR_SO2>
+! + 2.00*KR27*<WR_AHSO5>*<WR_SO2>
+! + KR28*<WR_ASO4>
+! + KR29*<WR_SO2>*<WR_O3>
+! + KR30*<WR_SO2>*<WR_H2O2>
+! - KTR35*<WR_SULF>
+! - KR15*<WR_NO3>*<WR_SULF>
! terms for WR_HCHO:
-! + KTR21*<HCHO>
-! + KR18*<WR_AHMS>
-! + 2.00*KR27*<WR_RO21>*<WR_RO21>
-! + KR28*<WR_SO2>*<WR_RO21>
-! + KR30*<WR_OH>*<WR_MEOH>
-! + KR37*<WR_OH>*<WR_KETL>
-! - KTR52*<WR_HCHO>
-! - KR17*<WR_HCHO>*<WR_SO2>
-! - KR33*<WR_OH>*<WR_HCHO>
-! terms for WR_ALD2:
-! + KTR22*<ALD2>
-! + KR29*<WR_RO25>*<WR_RO25>
-! + KR31*<WR_OH>*<WR_ETOH>
-! + 0.50*KR32*<WR_OH>*<WR_ALCH>
-! + KR37*<WR_OH>*<WR_KETL>
-! + 0.29*KR41*<WR_OH>*<WR_ACID>
-! + 0.43*KR43*<WR_OH>*<WR_UR21>
-! - KTR53*<WR_ALD2>
-! - KR34*<WR_OH>*<WR_ALD2>
-! terms for WR_GLY:
-! + KTR23*<GLY>
-! - KTR54*<WR_GLY>
-! - KR35*<WR_OH>*<WR_GLY>
-! terms for WR_MGLY:
-! + KTR25*<MGLY>
-! + KR37*<WR_OH>*<WR_KETL>
-! - KTR56*<WR_MGLY>
-! - KR36*<WR_OH>*<WR_MGLY>
-! terms for WR_KETL:
-! + KTR24*<KETL>
-! + 0.50*KR32*<WR_OH>*<WR_ALCH>
-! + KR37*<WR_OH>*<WR_KETL>
-! - KTR55*<WR_KETL>
-! - KR37*<WR_OH>*<WR_KETL>
+! + KTR16*<HCHO>
+! + 2.00*KR17*<WR_MO2>*<WR_MO2>
+! + KR22*<WR_AHMS>
+! - KTR36*<WR_HCHO>
+! - KR19*<WR_HCHO>*<WR_OH>
+! - KR21*<WR_SO2>*<WR_HCHO>
! terms for WR_ORA1:
-! + KTR26*<ORA1>
-! + KR19*<WR_OH>*<WR_AHMS>
-! + KR33*<WR_OH>*<WR_HCHO>
-! - KTR57*<WR_ORA1>
-! - KR38*<WR_OH>*<WR_ORA1>
+! + KTR17*<ORA1>
+! + KR19*<WR_HCHO>*<WR_OH>
+! + KR23*<WR_AHMS>*<WR_OH>
+! - KTR37*<WR_ORA1>
+! - KR20*<WR_ORA1>*<WR_OH>
! terms for WR_ORA2:
-! + KTR27*<ORA2>
-! + KR29*<WR_RO25>*<WR_RO25>
-! - KTR58*<WR_ORA2>
-! - KR39*<WR_OH>*<WR_ORA2>
-! terms for WR_ACID:
-! + KTR28*<ACID>
-! - KTR59*<WR_ACID>
-! - KR40*<WR_OH>*<WR_ACID>
-! - KR41*<WR_OH>*<WR_ACID>
-! terms for WR_RP16:
-! + KTR29*<RP16>
-! + KR35*<WR_OH>*<WR_GLY>
-! + KR39*<WR_OH>*<WR_ORA2>
-! - KTR60*<WR_RP16>
-! - KR44*<WR_OH>*<WR_RP16>
-! - KR45*<WR_OH>*<WR_RP16>
-! terms for WR_UR21:
-! + KTR30*<UR21>
-! + KR36*<WR_OH>*<WR_MGLY>
-! + KR37*<WR_OH>*<WR_KETL>
-! + 0.56*KR41*<WR_OH>*<WR_ACID>
-! - KTR61*<WR_UR21>
-! - KR43*<WR_OH>*<WR_UR21>
-! terms for WR_UR28:
-! + KTR31*<UR28>
-! + KR44*<WR_OH>*<WR_RP16>
-! - KTR62*<WR_UR28>
-! - KR42*<WR_OH>*<WR_UR28>
-! terms for WR_ACID2:
-! + 0.15*KR41*<WR_OH>*<WR_ACID>
-! + 0.56*KR43*<WR_OH>*<WR_UR21>
-! - KR46*<WR_OH>*<WR_ACID2>
+! + KTR18*<ORA2>
+! - KTR38*<WR_ORA2>
+! terms for WR_MO2:
+! + KTR19*<MO2>
+! - KTR39*<WR_MO2>
+! - KR17*<WR_MO2>*<WR_MO2>
+! - KR17*<WR_MO2>*<WR_MO2>
+! - KR18*<WR_MO2>*<WR_SO2>
+! terms for WR_OP1:
+! + KTR20*<OP1>
+! + KR18*<WR_MO2>*<WR_SO2>
+! - KTR40*<WR_OP1>
! terms for WR_ASO3:
-! + KR7*<WR_SO2>*<WR_OH>
-! + KR16*<WR_SO2>*<WR_NO3>
-! + KR28*<WR_SO2>*<WR_RO21>
-! - KR20*<W_O2>*<WR_ASO3>
+! + KR7*<WR_OH>*<WR_SO2>
+! + KR16*<WR_NO3>*<WR_SO2>
+! + KR18*<WR_MO2>*<WR_SO2>
+! - KR24*<WR_ASO3>*<W_O2>
! terms for WR_ASO4:
-! + KR15*<WR_H2SO4>*<WR_NO3>
-! + KR22*<WR_ASO5>*<WR_ASO5>
-! + KR22*<WR_ASO5>*<WR_ASO5>
-! - KR24*<WR_ASO4>
+! + KR15*<WR_NO3>*<WR_SULF>
+! + KR26*<WR_ASO5>*<WR_ASO5>
+! + KR26*<WR_ASO5>*<WR_ASO5>
+! - KR28*<WR_ASO4>
! terms for WR_ASO5:
-! + KR20*<W_O2>*<WR_ASO3>
-! - KR21*<WR_HO2>*<WR_ASO5>
-! - KR22*<WR_ASO5>*<WR_ASO5>
-! - KR22*<WR_ASO5>*<WR_ASO5>
+! + KR24*<WR_ASO3>*<W_O2>
+! - KR25*<WR_ASO5>*<WR_HO2>
+! - KR26*<WR_ASO5>*<WR_ASO5>
+! - KR26*<WR_ASO5>*<WR_ASO5>
! terms for WR_AHSO5:
-! + KR21*<WR_HO2>*<WR_ASO5>
-! - KR23*<WR_SO2>*<WR_AHSO5>
+! + KR25*<WR_ASO5>*<WR_HO2>
+! - KR27*<WR_AHSO5>*<WR_SO2>
! terms for WR_AHMS:
-! + KR17*<WR_HCHO>*<WR_SO2>
-! - KR18*<WR_AHMS>
-! - KR19*<WR_OH>*<WR_AHMS>
+! + KR21*<WR_SO2>*<WR_HCHO>
+! - KR22*<WR_AHMS>
+! - KR23*<WR_AHMS>*<WR_OH>
!
!========================================================================
!
@@ -3018,11 +1537,11 @@
!! DECLARATIONS
!! ------------
IMPLICIT NONE
-INTEGER, DIMENSION(2), PARAMETER :: JPNEQ = (/87,161/) ! number of prognostic chemical species
-INTEGER, DIMENSION(2), PARAMETER :: JPNEQAQ = (/0,74/) ! number of prognostic aqueous phase chemical species
-INTEGER, DIMENSION(2), PARAMETER :: JPNREAC = (/365,581/) ! number of chemical reactions
+INTEGER, DIMENSION(2), PARAMETER :: JPNEQ = (/41,91/) ! number of prognostic chemical species
+INTEGER, DIMENSION(2), PARAMETER :: JPNEQAQ = (/0,50/) ! number of prognostic aqueous phase chemical species
+INTEGER, DIMENSION(2), PARAMETER :: JPNREAC = (/132,272/) ! number of chemical reactions
INTEGER, DIMENSION(2), PARAMETER :: JPNMETEOVARS = (/13,13/) ! number of meteorological variables
-INTEGER, DIMENSION(2), PARAMETER :: JPNNONZEROTERMS = (/1188,1768/) ! number of non-zero terms returned by CH_TERMS
+INTEGER, DIMENSION(2), PARAMETER :: JPNNONZEROTERMS = (/606,942/) ! number of non-zero terms returned by CH_TERMS
!
CHARACTER(LEN=32), DIMENSION(JPNEQ(2)), TARGET :: CNAMES ! names of the species
CHARACTER(LEN=32), DIMENSION(JPNREAC(2)), TARGET :: CREACS ! the reaction rate names
@@ -3053,8 +1572,7 @@ REAL,DIMENSION(:),POINTER :: K014=>NULL()
REAL,DIMENSION(:),POINTER :: K015=>NULL()
REAL,DIMENSION(:),POINTER :: K016=>NULL()
REAL,DIMENSION(:),POINTER :: K017=>NULL()
-REAL,DIMENSION(:),POINTER :: K018A=>NULL()
-REAL,DIMENSION(:),POINTER :: K018B=>NULL()
+REAL,DIMENSION(:),POINTER :: K018=>NULL()
REAL,DIMENSION(:),POINTER :: K019=>NULL()
REAL,DIMENSION(:),POINTER :: K020=>NULL()
REAL,DIMENSION(:),POINTER :: K021=>NULL()
@@ -3136,9 +1654,9 @@ REAL,DIMENSION(:),POINTER :: K096=>NULL()
REAL,DIMENSION(:),POINTER :: K097=>NULL()
REAL,DIMENSION(:),POINTER :: K098=>NULL()
REAL,DIMENSION(:),POINTER :: K099=>NULL()
-REAL,DIMENSION(:),POINTER :: K100=>NULL()
-REAL,DIMENSION(:),POINTER :: K101=>NULL()
-REAL,DIMENSION(:),POINTER :: K102=>NULL()
+REAL,DIMENSION(:),POINTER :: K0100=>NULL()
+REAL,DIMENSION(:),POINTER :: K0101=>NULL()
+REAL,DIMENSION(:),POINTER :: K0102=>NULL()
REAL,DIMENSION(:),POINTER :: K103=>NULL()
REAL,DIMENSION(:),POINTER :: K104=>NULL()
REAL,DIMENSION(:),POINTER :: K105=>NULL()
@@ -3169,238 +1687,6 @@ REAL,DIMENSION(:),POINTER :: K129=>NULL()
REAL,DIMENSION(:),POINTER :: K130=>NULL()
REAL,DIMENSION(:),POINTER :: K131=>NULL()
REAL,DIMENSION(:),POINTER :: K132=>NULL()
-REAL,DIMENSION(:),POINTER :: K133=>NULL()
-REAL,DIMENSION(:),POINTER :: K134=>NULL()
-REAL,DIMENSION(:),POINTER :: K135=>NULL()
-REAL,DIMENSION(:),POINTER :: K136=>NULL()
-REAL,DIMENSION(:),POINTER :: K137=>NULL()
-REAL,DIMENSION(:),POINTER :: K138=>NULL()
-REAL,DIMENSION(:),POINTER :: K139=>NULL()
-REAL,DIMENSION(:),POINTER :: K140=>NULL()
-REAL,DIMENSION(:),POINTER :: K141=>NULL()
-REAL,DIMENSION(:),POINTER :: K142=>NULL()
-REAL,DIMENSION(:),POINTER :: K143=>NULL()
-REAL,DIMENSION(:),POINTER :: K144=>NULL()
-REAL,DIMENSION(:),POINTER :: K145=>NULL()
-REAL,DIMENSION(:),POINTER :: K146=>NULL()
-REAL,DIMENSION(:),POINTER :: K147=>NULL()
-REAL,DIMENSION(:),POINTER :: K148=>NULL()
-REAL,DIMENSION(:),POINTER :: K149=>NULL()
-REAL,DIMENSION(:),POINTER :: K150=>NULL()
-REAL,DIMENSION(:),POINTER :: K151=>NULL()
-REAL,DIMENSION(:),POINTER :: K152=>NULL()
-REAL,DIMENSION(:),POINTER :: K153=>NULL()
-REAL,DIMENSION(:),POINTER :: K154=>NULL()
-REAL,DIMENSION(:),POINTER :: K155=>NULL()
-REAL,DIMENSION(:),POINTER :: K156=>NULL()
-REAL,DIMENSION(:),POINTER :: K157=>NULL()
-REAL,DIMENSION(:),POINTER :: K158=>NULL()
-REAL,DIMENSION(:),POINTER :: K159=>NULL()
-REAL,DIMENSION(:),POINTER :: K160=>NULL()
-REAL,DIMENSION(:),POINTER :: K161=>NULL()
-REAL,DIMENSION(:),POINTER :: K162=>NULL()
-REAL,DIMENSION(:),POINTER :: K163=>NULL()
-REAL,DIMENSION(:),POINTER :: K164=>NULL()
-REAL,DIMENSION(:),POINTER :: K165=>NULL()
-REAL,DIMENSION(:),POINTER :: K166=>NULL()
-REAL,DIMENSION(:),POINTER :: K167=>NULL()
-REAL,DIMENSION(:),POINTER :: K168=>NULL()
-REAL,DIMENSION(:),POINTER :: K169=>NULL()
-REAL,DIMENSION(:),POINTER :: K170=>NULL()
-REAL,DIMENSION(:),POINTER :: K171=>NULL()
-REAL,DIMENSION(:),POINTER :: K172=>NULL()
-REAL,DIMENSION(:),POINTER :: K173=>NULL()
-REAL,DIMENSION(:),POINTER :: K174=>NULL()
-REAL,DIMENSION(:),POINTER :: K175=>NULL()
-REAL,DIMENSION(:),POINTER :: K176=>NULL()
-REAL,DIMENSION(:),POINTER :: K177=>NULL()
-REAL,DIMENSION(:),POINTER :: K178=>NULL()
-REAL,DIMENSION(:),POINTER :: K179=>NULL()
-REAL,DIMENSION(:),POINTER :: K180=>NULL()
-REAL,DIMENSION(:),POINTER :: K181=>NULL()
-REAL,DIMENSION(:),POINTER :: K182=>NULL()
-REAL,DIMENSION(:),POINTER :: K183=>NULL()
-REAL,DIMENSION(:),POINTER :: K184=>NULL()
-REAL,DIMENSION(:),POINTER :: K185=>NULL()
-REAL,DIMENSION(:),POINTER :: K186=>NULL()
-REAL,DIMENSION(:),POINTER :: K187=>NULL()
-REAL,DIMENSION(:),POINTER :: K188=>NULL()
-REAL,DIMENSION(:),POINTER :: K189=>NULL()
-REAL,DIMENSION(:),POINTER :: K190=>NULL()
-REAL,DIMENSION(:),POINTER :: K191=>NULL()
-REAL,DIMENSION(:),POINTER :: K192=>NULL()
-REAL,DIMENSION(:),POINTER :: K193=>NULL()
-REAL,DIMENSION(:),POINTER :: K194=>NULL()
-REAL,DIMENSION(:),POINTER :: K195=>NULL()
-REAL,DIMENSION(:),POINTER :: K196=>NULL()
-REAL,DIMENSION(:),POINTER :: K197=>NULL()
-REAL,DIMENSION(:),POINTER :: K198=>NULL()
-REAL,DIMENSION(:),POINTER :: K199=>NULL()
-REAL,DIMENSION(:),POINTER :: K200=>NULL()
-REAL,DIMENSION(:),POINTER :: K201=>NULL()
-REAL,DIMENSION(:),POINTER :: K202=>NULL()
-REAL,DIMENSION(:),POINTER :: K203=>NULL()
-REAL,DIMENSION(:),POINTER :: K204=>NULL()
-REAL,DIMENSION(:),POINTER :: K205=>NULL()
-REAL,DIMENSION(:),POINTER :: K206=>NULL()
-REAL,DIMENSION(:),POINTER :: K207=>NULL()
-REAL,DIMENSION(:),POINTER :: K208=>NULL()
-REAL,DIMENSION(:),POINTER :: K209=>NULL()
-REAL,DIMENSION(:),POINTER :: K210=>NULL()
-REAL,DIMENSION(:),POINTER :: K211=>NULL()
-REAL,DIMENSION(:),POINTER :: K212=>NULL()
-REAL,DIMENSION(:),POINTER :: K213=>NULL()
-REAL,DIMENSION(:),POINTER :: K214=>NULL()
-REAL,DIMENSION(:),POINTER :: K215=>NULL()
-REAL,DIMENSION(:),POINTER :: K216=>NULL()
-REAL,DIMENSION(:),POINTER :: K217=>NULL()
-REAL,DIMENSION(:),POINTER :: K218=>NULL()
-REAL,DIMENSION(:),POINTER :: K219=>NULL()
-REAL,DIMENSION(:),POINTER :: K220=>NULL()
-REAL,DIMENSION(:),POINTER :: K221=>NULL()
-REAL,DIMENSION(:),POINTER :: K222=>NULL()
-REAL,DIMENSION(:),POINTER :: K223=>NULL()
-REAL,DIMENSION(:),POINTER :: K224=>NULL()
-REAL,DIMENSION(:),POINTER :: K225=>NULL()
-REAL,DIMENSION(:),POINTER :: K226=>NULL()
-REAL,DIMENSION(:),POINTER :: K227=>NULL()
-REAL,DIMENSION(:),POINTER :: K228=>NULL()
-REAL,DIMENSION(:),POINTER :: K229=>NULL()
-REAL,DIMENSION(:),POINTER :: K230=>NULL()
-REAL,DIMENSION(:),POINTER :: K231=>NULL()
-REAL,DIMENSION(:),POINTER :: K232=>NULL()
-REAL,DIMENSION(:),POINTER :: K233=>NULL()
-REAL,DIMENSION(:),POINTER :: K234=>NULL()
-REAL,DIMENSION(:),POINTER :: K235=>NULL()
-REAL,DIMENSION(:),POINTER :: K236=>NULL()
-REAL,DIMENSION(:),POINTER :: K237=>NULL()
-REAL,DIMENSION(:),POINTER :: K238=>NULL()
-REAL,DIMENSION(:),POINTER :: K239=>NULL()
-REAL,DIMENSION(:),POINTER :: K240=>NULL()
-REAL,DIMENSION(:),POINTER :: K241=>NULL()
-REAL,DIMENSION(:),POINTER :: K242=>NULL()
-REAL,DIMENSION(:),POINTER :: K243=>NULL()
-REAL,DIMENSION(:),POINTER :: K244=>NULL()
-REAL,DIMENSION(:),POINTER :: K245=>NULL()
-REAL,DIMENSION(:),POINTER :: K246=>NULL()
-REAL,DIMENSION(:),POINTER :: K247=>NULL()
-REAL,DIMENSION(:),POINTER :: K248=>NULL()
-REAL,DIMENSION(:),POINTER :: K249=>NULL()
-REAL,DIMENSION(:),POINTER :: K250=>NULL()
-REAL,DIMENSION(:),POINTER :: K251=>NULL()
-REAL,DIMENSION(:),POINTER :: K252=>NULL()
-REAL,DIMENSION(:),POINTER :: K253=>NULL()
-REAL,DIMENSION(:),POINTER :: K254=>NULL()
-REAL,DIMENSION(:),POINTER :: K255=>NULL()
-REAL,DIMENSION(:),POINTER :: K256=>NULL()
-REAL,DIMENSION(:),POINTER :: K257=>NULL()
-REAL,DIMENSION(:),POINTER :: K258=>NULL()
-REAL,DIMENSION(:),POINTER :: K259=>NULL()
-REAL,DIMENSION(:),POINTER :: K260=>NULL()
-REAL,DIMENSION(:),POINTER :: K261=>NULL()
-REAL,DIMENSION(:),POINTER :: K262=>NULL()
-REAL,DIMENSION(:),POINTER :: K263=>NULL()
-REAL,DIMENSION(:),POINTER :: K264=>NULL()
-REAL,DIMENSION(:),POINTER :: K265=>NULL()
-REAL,DIMENSION(:),POINTER :: K266=>NULL()
-REAL,DIMENSION(:),POINTER :: K267=>NULL()
-REAL,DIMENSION(:),POINTER :: K268=>NULL()
-REAL,DIMENSION(:),POINTER :: K269=>NULL()
-REAL,DIMENSION(:),POINTER :: K270=>NULL()
-REAL,DIMENSION(:),POINTER :: K271=>NULL()
-REAL,DIMENSION(:),POINTER :: K272=>NULL()
-REAL,DIMENSION(:),POINTER :: K273=>NULL()
-REAL,DIMENSION(:),POINTER :: K274=>NULL()
-REAL,DIMENSION(:),POINTER :: K275=>NULL()
-REAL,DIMENSION(:),POINTER :: K276=>NULL()
-REAL,DIMENSION(:),POINTER :: K277=>NULL()
-REAL,DIMENSION(:),POINTER :: K278=>NULL()
-REAL,DIMENSION(:),POINTER :: K279=>NULL()
-REAL,DIMENSION(:),POINTER :: K280=>NULL()
-REAL,DIMENSION(:),POINTER :: K281=>NULL()
-REAL,DIMENSION(:),POINTER :: K282=>NULL()
-REAL,DIMENSION(:),POINTER :: K283=>NULL()
-REAL,DIMENSION(:),POINTER :: K284=>NULL()
-REAL,DIMENSION(:),POINTER :: K285=>NULL()
-REAL,DIMENSION(:),POINTER :: K286=>NULL()
-REAL,DIMENSION(:),POINTER :: K287=>NULL()
-REAL,DIMENSION(:),POINTER :: K288=>NULL()
-REAL,DIMENSION(:),POINTER :: K289=>NULL()
-REAL,DIMENSION(:),POINTER :: K290=>NULL()
-REAL,DIMENSION(:),POINTER :: K291=>NULL()
-REAL,DIMENSION(:),POINTER :: K292=>NULL()
-REAL,DIMENSION(:),POINTER :: K293=>NULL()
-REAL,DIMENSION(:),POINTER :: K294=>NULL()
-REAL,DIMENSION(:),POINTER :: K295=>NULL()
-REAL,DIMENSION(:),POINTER :: K296=>NULL()
-REAL,DIMENSION(:),POINTER :: K297=>NULL()
-REAL,DIMENSION(:),POINTER :: K298=>NULL()
-REAL,DIMENSION(:),POINTER :: K299=>NULL()
-REAL,DIMENSION(:),POINTER :: K300=>NULL()
-REAL,DIMENSION(:),POINTER :: K301=>NULL()
-REAL,DIMENSION(:),POINTER :: K302=>NULL()
-REAL,DIMENSION(:),POINTER :: K303=>NULL()
-REAL,DIMENSION(:),POINTER :: K304=>NULL()
-REAL,DIMENSION(:),POINTER :: K305=>NULL()
-REAL,DIMENSION(:),POINTER :: K306=>NULL()
-REAL,DIMENSION(:),POINTER :: K307=>NULL()
-REAL,DIMENSION(:),POINTER :: K308=>NULL()
-REAL,DIMENSION(:),POINTER :: K309=>NULL()
-REAL,DIMENSION(:),POINTER :: K310=>NULL()
-REAL,DIMENSION(:),POINTER :: K311=>NULL()
-REAL,DIMENSION(:),POINTER :: K312=>NULL()
-REAL,DIMENSION(:),POINTER :: K313=>NULL()
-REAL,DIMENSION(:),POINTER :: K314=>NULL()
-REAL,DIMENSION(:),POINTER :: K315=>NULL()
-REAL,DIMENSION(:),POINTER :: K316=>NULL()
-REAL,DIMENSION(:),POINTER :: K317=>NULL()
-REAL,DIMENSION(:),POINTER :: K318=>NULL()
-REAL,DIMENSION(:),POINTER :: K319=>NULL()
-REAL,DIMENSION(:),POINTER :: K320=>NULL()
-REAL,DIMENSION(:),POINTER :: K321=>NULL()
-REAL,DIMENSION(:),POINTER :: K322=>NULL()
-REAL,DIMENSION(:),POINTER :: K323=>NULL()
-REAL,DIMENSION(:),POINTER :: K324=>NULL()
-REAL,DIMENSION(:),POINTER :: K325=>NULL()
-REAL,DIMENSION(:),POINTER :: K326=>NULL()
-REAL,DIMENSION(:),POINTER :: K327=>NULL()
-REAL,DIMENSION(:),POINTER :: K328=>NULL()
-REAL,DIMENSION(:),POINTER :: K329=>NULL()
-REAL,DIMENSION(:),POINTER :: K330=>NULL()
-REAL,DIMENSION(:),POINTER :: K331=>NULL()
-REAL,DIMENSION(:),POINTER :: K332=>NULL()
-REAL,DIMENSION(:),POINTER :: K333=>NULL()
-REAL,DIMENSION(:),POINTER :: K334=>NULL()
-REAL,DIMENSION(:),POINTER :: K335=>NULL()
-REAL,DIMENSION(:),POINTER :: K337=>NULL()
-REAL,DIMENSION(:),POINTER :: K338=>NULL()
-REAL,DIMENSION(:),POINTER :: K339=>NULL()
-REAL,DIMENSION(:),POINTER :: K340=>NULL()
-REAL,DIMENSION(:),POINTER :: K341=>NULL()
-REAL,DIMENSION(:),POINTER :: K342=>NULL()
-REAL,DIMENSION(:),POINTER :: K343=>NULL()
-REAL,DIMENSION(:),POINTER :: K344=>NULL()
-REAL,DIMENSION(:),POINTER :: K345=>NULL()
-REAL,DIMENSION(:),POINTER :: K346=>NULL()
-REAL,DIMENSION(:),POINTER :: K347=>NULL()
-REAL,DIMENSION(:),POINTER :: K348=>NULL()
-REAL,DIMENSION(:),POINTER :: K349=>NULL()
-REAL,DIMENSION(:),POINTER :: K350=>NULL()
-REAL,DIMENSION(:),POINTER :: K351=>NULL()
-REAL,DIMENSION(:),POINTER :: K352=>NULL()
-REAL,DIMENSION(:),POINTER :: K353=>NULL()
-REAL,DIMENSION(:),POINTER :: K354=>NULL()
-REAL,DIMENSION(:),POINTER :: K355=>NULL()
-REAL,DIMENSION(:),POINTER :: K356=>NULL()
-REAL,DIMENSION(:),POINTER :: K357=>NULL()
-REAL,DIMENSION(:),POINTER :: K358=>NULL()
-REAL,DIMENSION(:),POINTER :: K359=>NULL()
-REAL,DIMENSION(:),POINTER :: K360=>NULL()
-REAL,DIMENSION(:),POINTER :: K361=>NULL()
-REAL,DIMENSION(:),POINTER :: K362=>NULL()
-REAL,DIMENSION(:),POINTER :: K363=>NULL()
-REAL,DIMENSION(:),POINTER :: K364=>NULL()
-REAL,DIMENSION(:),POINTER :: K365=>NULL()
REAL,DIMENSION(:),POINTER :: KTC1=>NULL()
REAL,DIMENSION(:),POINTER :: KTC2=>NULL()
REAL,DIMENSION(:),POINTER :: KTC3=>NULL()
@@ -3441,28 +1727,6 @@ REAL,DIMENSION(:),POINTER :: KTC37=>NULL()
REAL,DIMENSION(:),POINTER :: KTC38=>NULL()
REAL,DIMENSION(:),POINTER :: KTC39=>NULL()
REAL,DIMENSION(:),POINTER :: KTC40=>NULL()
-REAL,DIMENSION(:),POINTER :: KTC41=>NULL()
-REAL,DIMENSION(:),POINTER :: KTC42=>NULL()
-REAL,DIMENSION(:),POINTER :: KTC43=>NULL()
-REAL,DIMENSION(:),POINTER :: KTC44=>NULL()
-REAL,DIMENSION(:),POINTER :: KTC45=>NULL()
-REAL,DIMENSION(:),POINTER :: KTC46=>NULL()
-REAL,DIMENSION(:),POINTER :: KTC47=>NULL()
-REAL,DIMENSION(:),POINTER :: KTC48=>NULL()
-REAL,DIMENSION(:),POINTER :: KTC49=>NULL()
-REAL,DIMENSION(:),POINTER :: KTC50=>NULL()
-REAL,DIMENSION(:),POINTER :: KTC51=>NULL()
-REAL,DIMENSION(:),POINTER :: KTC52=>NULL()
-REAL,DIMENSION(:),POINTER :: KTC53=>NULL()
-REAL,DIMENSION(:),POINTER :: KTC54=>NULL()
-REAL,DIMENSION(:),POINTER :: KTC55=>NULL()
-REAL,DIMENSION(:),POINTER :: KTC56=>NULL()
-REAL,DIMENSION(:),POINTER :: KTC57=>NULL()
-REAL,DIMENSION(:),POINTER :: KTC58=>NULL()
-REAL,DIMENSION(:),POINTER :: KTC59=>NULL()
-REAL,DIMENSION(:),POINTER :: KTC60=>NULL()
-REAL,DIMENSION(:),POINTER :: KTC61=>NULL()
-REAL,DIMENSION(:),POINTER :: KTC62=>NULL()
REAL,DIMENSION(:),POINTER :: KTR1=>NULL()
REAL,DIMENSION(:),POINTER :: KTR2=>NULL()
REAL,DIMENSION(:),POINTER :: KTR3=>NULL()
@@ -3503,28 +1767,6 @@ REAL,DIMENSION(:),POINTER :: KTR37=>NULL()
REAL,DIMENSION(:),POINTER :: KTR38=>NULL()
REAL,DIMENSION(:),POINTER :: KTR39=>NULL()
REAL,DIMENSION(:),POINTER :: KTR40=>NULL()
-REAL,DIMENSION(:),POINTER :: KTR41=>NULL()
-REAL,DIMENSION(:),POINTER :: KTR42=>NULL()
-REAL,DIMENSION(:),POINTER :: KTR43=>NULL()
-REAL,DIMENSION(:),POINTER :: KTR44=>NULL()
-REAL,DIMENSION(:),POINTER :: KTR45=>NULL()
-REAL,DIMENSION(:),POINTER :: KTR46=>NULL()
-REAL,DIMENSION(:),POINTER :: KTR47=>NULL()
-REAL,DIMENSION(:),POINTER :: KTR48=>NULL()
-REAL,DIMENSION(:),POINTER :: KTR49=>NULL()
-REAL,DIMENSION(:),POINTER :: KTR50=>NULL()
-REAL,DIMENSION(:),POINTER :: KTR51=>NULL()
-REAL,DIMENSION(:),POINTER :: KTR52=>NULL()
-REAL,DIMENSION(:),POINTER :: KTR53=>NULL()
-REAL,DIMENSION(:),POINTER :: KTR54=>NULL()
-REAL,DIMENSION(:),POINTER :: KTR55=>NULL()
-REAL,DIMENSION(:),POINTER :: KTR56=>NULL()
-REAL,DIMENSION(:),POINTER :: KTR57=>NULL()
-REAL,DIMENSION(:),POINTER :: KTR58=>NULL()
-REAL,DIMENSION(:),POINTER :: KTR59=>NULL()
-REAL,DIMENSION(:),POINTER :: KTR60=>NULL()
-REAL,DIMENSION(:),POINTER :: KTR61=>NULL()
-REAL,DIMENSION(:),POINTER :: KTR62=>NULL()
REAL,DIMENSION(:),POINTER :: KC1=>NULL()
REAL,DIMENSION(:),POINTER :: KC2=>NULL()
REAL,DIMENSION(:),POINTER :: KC3=>NULL()
@@ -3555,22 +1797,6 @@ REAL,DIMENSION(:),POINTER :: KC27=>NULL()
REAL,DIMENSION(:),POINTER :: KC28=>NULL()
REAL,DIMENSION(:),POINTER :: KC29=>NULL()
REAL,DIMENSION(:),POINTER :: KC30=>NULL()
-REAL,DIMENSION(:),POINTER :: KC31=>NULL()
-REAL,DIMENSION(:),POINTER :: KC32=>NULL()
-REAL,DIMENSION(:),POINTER :: KC33=>NULL()
-REAL,DIMENSION(:),POINTER :: KC34=>NULL()
-REAL,DIMENSION(:),POINTER :: KC35=>NULL()
-REAL,DIMENSION(:),POINTER :: KC36=>NULL()
-REAL,DIMENSION(:),POINTER :: KC37=>NULL()
-REAL,DIMENSION(:),POINTER :: KC38=>NULL()
-REAL,DIMENSION(:),POINTER :: KC39=>NULL()
-REAL,DIMENSION(:),POINTER :: KC40=>NULL()
-REAL,DIMENSION(:),POINTER :: KC41=>NULL()
-REAL,DIMENSION(:),POINTER :: KC42=>NULL()
-REAL,DIMENSION(:),POINTER :: KC43=>NULL()
-REAL,DIMENSION(:),POINTER :: KC44=>NULL()
-REAL,DIMENSION(:),POINTER :: KC45=>NULL()
-REAL,DIMENSION(:),POINTER :: KC46=>NULL()
REAL,DIMENSION(:),POINTER :: KR1=>NULL()
REAL,DIMENSION(:),POINTER :: KR2=>NULL()
REAL,DIMENSION(:),POINTER :: KR3=>NULL()
@@ -3601,22 +1827,6 @@ REAL,DIMENSION(:),POINTER :: KR27=>NULL()
REAL,DIMENSION(:),POINTER :: KR28=>NULL()
REAL,DIMENSION(:),POINTER :: KR29=>NULL()
REAL,DIMENSION(:),POINTER :: KR30=>NULL()
-REAL,DIMENSION(:),POINTER :: KR31=>NULL()
-REAL,DIMENSION(:),POINTER :: KR32=>NULL()
-REAL,DIMENSION(:),POINTER :: KR33=>NULL()
-REAL,DIMENSION(:),POINTER :: KR34=>NULL()
-REAL,DIMENSION(:),POINTER :: KR35=>NULL()
-REAL,DIMENSION(:),POINTER :: KR36=>NULL()
-REAL,DIMENSION(:),POINTER :: KR37=>NULL()
-REAL,DIMENSION(:),POINTER :: KR38=>NULL()
-REAL,DIMENSION(:),POINTER :: KR39=>NULL()
-REAL,DIMENSION(:),POINTER :: KR40=>NULL()
-REAL,DIMENSION(:),POINTER :: KR41=>NULL()
-REAL,DIMENSION(:),POINTER :: KR42=>NULL()
-REAL,DIMENSION(:),POINTER :: KR43=>NULL()
-REAL,DIMENSION(:),POINTER :: KR44=>NULL()
-REAL,DIMENSION(:),POINTER :: KR45=>NULL()
-REAL,DIMENSION(:),POINTER :: KR46=>NULL()
! output channel (NOUT) and verbosity level (NVERB)
INTEGER :: NOUT
INTEGER,DIMENSION(:),POINTER :: NVERB=>NULL()
@@ -3626,41 +1836,19 @@ INTEGER,DIMENSION(:),POINTER :: NVERB=>NULL()
! supplementary variables of the CCS that are to be placed into
! the TYPE definition of TPK (to be addressed e.g. as TPK%O2):
!
-INTEGER,DIMENSION(:),POINTER :: MODELLEVEL, &! index of the model level (1 for box model)
- LON, &! longitude of curtrent grid point (degree)
- LAT ! latitude of curtrent grid point (degree)
-INTEGER,DIMENSION(:),POINTER :: YEAR, MONTH, DAY ! starting date of experiment (~DTEXP)
+INTEGER,DIMENSION(:),POINTER :: MODELLEVEL ! index of the model level (1 for box model)
REAL,DIMENSION(:),POINTER :: T, &! temperature (K)
- PRESSURE, &! pressure (atm)
- M, &! air density (molec/cm3)
- H2O, &! conc. of water molecules (molec/cm3)
- CLOUDWATER, &! cloud water (kg/kg)
- RAINWATER, &! rain water (kg/kg)
- RHODREF, &! ref dry air density (kg/m3)
- O2, N2, H2, &! conc. of oxigen, nitrogen, hydrogen (molec/cm3)
- CH4, CO2, &! conc. of methane, carbon dioxide (molec/cm3)
- O, OSD, &! (molec/cm3) at equilibrium (fast species)
- RO22, RO23, RO24, &! continue
- RO26, RO27, RO28, RO29, &! continue
- RO210, RO211, RO212, &! continue
- RO213, RO214, RO215, &! continue
- RO216, RO217, RO218, &! continue
- RO219, RO220, RO221, &! continue
- RO222, RO223, RO224, &! continue
- RO225, RO226, RO227, &! continue
- RO228, RO229, RO230, &! continue
- RO231, RO232, RO233, &! continue
- RO234, RO235, RO236, &! continue
- RO237, RO238, RO239, &! continue
- RO240, RO241, RO242, &! continue
- RO243, RO244, RO245, &! continue
- RO246, RO247, RO248, &! continue
- RO249, RO250, RO251, &! continue
- RO252, RO253, RO254, &! continue
- RO255, RO256, RO257, &! continue
- RO258, RAD1, RAD2, &! continue
- RAD3, RAD4, RAD5, &! continue
- RAD6, RAD7, RAD8
+ PRESSURE, &! pressure (atm)
+ M, &! air density (molec/cm3)
+ H2O, &! conc. of water molecules (molec/cm3)
+ CLOUDWATER, &! cloud water (kg/kg)
+ RAINWATER, &! rain water (kg/kg)
+ RHODREF, &! ref dry air density (kg/m3)
+ O2, N2, H2, &! conc. of oxigen nitrogen, hydrogen (molec/cm3)
+ OH, O1D, O3P, &! (molec/cm3) at equilibrium (fast species)
+ LON, &! longitude of curtrent grid point (degree)
+ LAT ! latitude of curtrent grid point (degree)
+INTEGER,DIMENSION(:),POINTER :: YEAR, MONTH, DAY ! starting date of experiment (~DTEXP)
REAL,DIMENSION(:),POINTER :: LWC, &! cloud liquid water content (vol/vol)
MOL2MOLECCLOUD, &! conversion factor mole/L to molec/cm3 in cloud
RADC, &! mean radius of cloud droplet (µm)
@@ -3669,23 +1857,9 @@ REAL,DIMENSION(:),POINTER :: LWC, &! cloud liquid water content (v
MOL2MOLECRAIN, &! conversion factor mole/L to molec/cm3 in rain
RADR, &! mean radius of rain drops (µm)
PHR, &! pH value of rain water
+ CO2, &! conc. of CO2 (molec/cm3)
RCH, &! perfect gases constant
W_O2 ! conc. of O2 in aqueous phase at equilibrium (M)
-REAL,DIMENSION(:),POINTER :: CF1, CF2, CF3, CF4, CF5,& ! stochiometric coef.
- CF6, CF7, CF8, CF9, CF10,&
- CF11, CF12, CF13, CF14, CF15,&
- CF16, CF17, CF18, CF19, CF20,&
- CF21, CF22, CF23, CF24, CF25,&
- CF26, CF27, CF28, CF29, CF30,&
- CF31, CF32, CF33, CF34, CF35,&
- CF36, CF37, CF38, CF39, CF40,&
- CF41, CF42, CF43, CF44, CF45,&
- CF46, CF47, CF48, CF49, CFA1,&
- CFA2, CFA3, CFA4, CFA5, CFA6,&
- CFA7, CFA8, CFA9, CFA10, CFA11,&
- CFA12, CFA13, CFA14, CFA15, CFA16,&
- CFA17, CFA18, CFA19, CFA20, CFA21,&
- CFA22, CFA23, CFA24
!
! /END_MODULE/
END TYPE CCSTYPE
@@ -3702,167 +1876,97 @@ END TYPE CCSTYPE
TYPE(CCSTYPE), DIMENSION(8), TARGET, SAVE :: TACCS ! 8 models
!
! list of chemical species indices
-INTEGER, PARAMETER :: JP_NO = 1
-INTEGER, PARAMETER :: JP_NO2 = 2
-INTEGER, PARAMETER :: JP_O3 = 3
-INTEGER, PARAMETER :: JP_HONO = 4
-INTEGER, PARAMETER :: JP_HNO3 = 5
-INTEGER, PARAMETER :: JP_HNO4 = 6
-INTEGER, PARAMETER :: JP_N2O5 = 7
-INTEGER, PARAMETER :: JP_NO3 = 8
-INTEGER, PARAMETER :: JP_NH3 = 9
-INTEGER, PARAMETER :: JP_HO2 = 10
-INTEGER, PARAMETER :: JP_CO = 11
-INTEGER, PARAMETER :: JP_H2O2 = 12
-INTEGER, PARAMETER :: JP_SO2 = 13
-INTEGER, PARAMETER :: JP_H2SO4 = 14
-INTEGER, PARAMETER :: JP_OH = 15
-INTEGER, PARAMETER :: JP_ETHE = 16
-INTEGER, PARAMETER :: JP_OLEL = 17
-INTEGER, PARAMETER :: JP_OLEH = 18
-INTEGER, PARAMETER :: JP_ALKL = 19
-INTEGER, PARAMETER :: JP_ALKM = 20
-INTEGER, PARAMETER :: JP_ALKH = 21
-INTEGER, PARAMETER :: JP_AROH = 22
-INTEGER, PARAMETER :: JP_AROL = 23
-INTEGER, PARAMETER :: JP_AROO = 24
-INTEGER, PARAMETER :: JP_ARAL = 25
-INTEGER, PARAMETER :: JP_ARAC = 26
-INTEGER, PARAMETER :: JP_PAH = 27
-INTEGER, PARAMETER :: JP_HCHO = 28
-INTEGER, PARAMETER :: JP_ALD2 = 29
-INTEGER, PARAMETER :: JP_KETL = 30
-INTEGER, PARAMETER :: JP_KETH = 31
-INTEGER, PARAMETER :: JP_MEOH = 32
-INTEGER, PARAMETER :: JP_ETOH = 33
-INTEGER, PARAMETER :: JP_ALCH = 34
-INTEGER, PARAMETER :: JP_ISOP = 35
-INTEGER, PARAMETER :: JP_BIOL = 36
-INTEGER, PARAMETER :: JP_BIOH = 37
-INTEGER, PARAMETER :: JP_MTBE = 38
-INTEGER, PARAMETER :: JP_MVK = 39
-INTEGER, PARAMETER :: JP_MCR = 40
-INTEGER, PARAMETER :: JP_MGLY = 41
-INTEGER, PARAMETER :: JP_GLY = 42
-INTEGER, PARAMETER :: JP_ORA1 = 43
-INTEGER, PARAMETER :: JP_ORA2 = 44
-INTEGER, PARAMETER :: JP_ACID = 45
-INTEGER, PARAMETER :: JP_UR28 = 46
-INTEGER, PARAMETER :: JP_UR21 = 47
-INTEGER, PARAMETER :: JP_URG2 = 48
-INTEGER, PARAMETER :: JP_UR26 = 49
-INTEGER, PARAMETER :: JP_RPG2 = 50
-INTEGER, PARAMETER :: JP_RP18 = 51
-INTEGER, PARAMETER :: JP_RPG3 = 52
-INTEGER, PARAMETER :: JP_URG4 = 53
-INTEGER, PARAMETER :: JP_UR8 = 54
-INTEGER, PARAMETER :: JP_UR17 = 55
-INTEGER, PARAMETER :: JP_UR7 = 56
-INTEGER, PARAMETER :: JP_RPR3 = 57
-INTEGER, PARAMETER :: JP_URG6 = 58
-INTEGER, PARAMETER :: JP_UR22 = 59
-INTEGER, PARAMETER :: JP_URG7 = 60
-INTEGER, PARAMETER :: JP_RPR4 = 61
-INTEGER, PARAMETER :: JP_RPR7 = 62
-INTEGER, PARAMETER :: JP_RPG7 = 63
-INTEGER, PARAMETER :: JP_URG8 = 64
-INTEGER, PARAMETER :: JP_UR19 = 65
-INTEGER, PARAMETER :: JP_URG9 = 66
-INTEGER, PARAMETER :: JP_AP7 = 67
-INTEGER, PARAMETER :: JP_URG10 = 68
-INTEGER, PARAMETER :: JP_RPR1 = 69
-INTEGER, PARAMETER :: JP_RPR5 = 70
-INTEGER, PARAMETER :: JP_RPR8 = 71
-INTEGER, PARAMETER :: JP_RP10 = 72
-INTEGER, PARAMETER :: JP_RP11 = 73
-INTEGER, PARAMETER :: JP_RP16 = 74
-INTEGER, PARAMETER :: JP_RPRL = 75
-INTEGER, PARAMETER :: JP_APAN = 76
-INTEGER, PARAMETER :: JP_PAN1 = 77
-INTEGER, PARAMETER :: JP_PAN2 = 78
-INTEGER, PARAMETER :: JP_PAN3 = 79
-INTEGER, PARAMETER :: JP_PAN4 = 80
-INTEGER, PARAMETER :: JP_PAN6 = 81
-INTEGER, PARAMETER :: JP_PAN7 = 82
-INTEGER, PARAMETER :: JP_PAN8 = 83
-INTEGER, PARAMETER :: JP_PN10 = 84
-INTEGER, PARAMETER :: JP_RO2T = 85
-INTEGER, PARAMETER :: JP_RO21 = 86
-INTEGER, PARAMETER :: JP_RO25 = 87
-INTEGER, PARAMETER :: JP_WC_O3 = 88
-INTEGER, PARAMETER :: JP_WC_H2O2 = 89
-INTEGER, PARAMETER :: JP_WC_NO = 90
-INTEGER, PARAMETER :: JP_WC_NO2 = 91
-INTEGER, PARAMETER :: JP_WC_NO3 = 92
-INTEGER, PARAMETER :: JP_WC_N2O5 = 93
-INTEGER, PARAMETER :: JP_WC_HONO = 94
-INTEGER, PARAMETER :: JP_WC_HNO3 = 95
-INTEGER, PARAMETER :: JP_WC_HNO4 = 96
-INTEGER, PARAMETER :: JP_WC_NH3 = 97
-INTEGER, PARAMETER :: JP_WC_OH = 98
-INTEGER, PARAMETER :: JP_WC_HO2 = 99
-INTEGER, PARAMETER :: JP_WC_CO2 = 100
-INTEGER, PARAMETER :: JP_WC_SO2 = 101
-INTEGER, PARAMETER :: JP_WC_H2SO4 = 102
-INTEGER, PARAMETER :: JP_WC_RO21 = 103
-INTEGER, PARAMETER :: JP_WC_RO25 = 104
-INTEGER, PARAMETER :: JP_WC_MEOH = 105
-INTEGER, PARAMETER :: JP_WC_ETOH = 106
-INTEGER, PARAMETER :: JP_WC_ALCH = 107
-INTEGER, PARAMETER :: JP_WC_HCHO = 108
-INTEGER, PARAMETER :: JP_WC_ALD2 = 109
-INTEGER, PARAMETER :: JP_WC_GLY = 110
-INTEGER, PARAMETER :: JP_WC_MGLY = 111
-INTEGER, PARAMETER :: JP_WC_KETL = 112
-INTEGER, PARAMETER :: JP_WC_ORA1 = 113
-INTEGER, PARAMETER :: JP_WC_ORA2 = 114
-INTEGER, PARAMETER :: JP_WC_ACID = 115
-INTEGER, PARAMETER :: JP_WC_RP16 = 116
-INTEGER, PARAMETER :: JP_WC_UR21 = 117
-INTEGER, PARAMETER :: JP_WC_UR28 = 118
-INTEGER, PARAMETER :: JP_WC_ACID2 = 119
-INTEGER, PARAMETER :: JP_WC_ASO3 = 120
-INTEGER, PARAMETER :: JP_WC_ASO4 = 121
-INTEGER, PARAMETER :: JP_WC_ASO5 = 122
-INTEGER, PARAMETER :: JP_WC_AHSO5 = 123
-INTEGER, PARAMETER :: JP_WC_AHMS = 124
-INTEGER, PARAMETER :: JP_WR_O3 = 125
-INTEGER, PARAMETER :: JP_WR_H2O2 = 126
-INTEGER, PARAMETER :: JP_WR_NO = 127
-INTEGER, PARAMETER :: JP_WR_NO2 = 128
-INTEGER, PARAMETER :: JP_WR_NO3 = 129
-INTEGER, PARAMETER :: JP_WR_N2O5 = 130
-INTEGER, PARAMETER :: JP_WR_HONO = 131
-INTEGER, PARAMETER :: JP_WR_HNO3 = 132
-INTEGER, PARAMETER :: JP_WR_HNO4 = 133
-INTEGER, PARAMETER :: JP_WR_NH3 = 134
-INTEGER, PARAMETER :: JP_WR_OH = 135
-INTEGER, PARAMETER :: JP_WR_HO2 = 136
-INTEGER, PARAMETER :: JP_WR_CO2 = 137
-INTEGER, PARAMETER :: JP_WR_SO2 = 138
-INTEGER, PARAMETER :: JP_WR_H2SO4 = 139
-INTEGER, PARAMETER :: JP_WR_RO21 = 140
-INTEGER, PARAMETER :: JP_WR_RO25 = 141
-INTEGER, PARAMETER :: JP_WR_MEOH = 142
-INTEGER, PARAMETER :: JP_WR_ETOH = 143
-INTEGER, PARAMETER :: JP_WR_ALCH = 144
-INTEGER, PARAMETER :: JP_WR_HCHO = 145
-INTEGER, PARAMETER :: JP_WR_ALD2 = 146
-INTEGER, PARAMETER :: JP_WR_GLY = 147
-INTEGER, PARAMETER :: JP_WR_MGLY = 148
-INTEGER, PARAMETER :: JP_WR_KETL = 149
-INTEGER, PARAMETER :: JP_WR_ORA1 = 150
-INTEGER, PARAMETER :: JP_WR_ORA2 = 151
-INTEGER, PARAMETER :: JP_WR_ACID = 152
-INTEGER, PARAMETER :: JP_WR_RP16 = 153
-INTEGER, PARAMETER :: JP_WR_UR21 = 154
-INTEGER, PARAMETER :: JP_WR_UR28 = 155
-INTEGER, PARAMETER :: JP_WR_ACID2 = 156
-INTEGER, PARAMETER :: JP_WR_ASO3 = 157
-INTEGER, PARAMETER :: JP_WR_ASO4 = 158
-INTEGER, PARAMETER :: JP_WR_ASO5 = 159
-INTEGER, PARAMETER :: JP_WR_AHSO5 = 160
-INTEGER, PARAMETER :: JP_WR_AHMS = 161
+INTEGER, PARAMETER :: JP_O3 = 1
+INTEGER, PARAMETER :: JP_H2O2 = 2
+INTEGER, PARAMETER :: JP_NO = 3
+INTEGER, PARAMETER :: JP_NO2 = 4
+INTEGER, PARAMETER :: JP_NO3 = 5
+INTEGER, PARAMETER :: JP_N2O5 = 6
+INTEGER, PARAMETER :: JP_HONO = 7
+INTEGER, PARAMETER :: JP_HNO3 = 8
+INTEGER, PARAMETER :: JP_HNO4 = 9
+INTEGER, PARAMETER :: JP_NH3 = 10
+INTEGER, PARAMETER :: JP_SO2 = 11
+INTEGER, PARAMETER :: JP_SULF = 12
+INTEGER, PARAMETER :: JP_CO = 13
+INTEGER, PARAMETER :: JP_OH = 14
+INTEGER, PARAMETER :: JP_HO2 = 15
+INTEGER, PARAMETER :: JP_CH4 = 16
+INTEGER, PARAMETER :: JP_ETH = 17
+INTEGER, PARAMETER :: JP_ALKA = 18
+INTEGER, PARAMETER :: JP_ALKE = 19
+INTEGER, PARAMETER :: JP_BIO = 20
+INTEGER, PARAMETER :: JP_ARO = 21
+INTEGER, PARAMETER :: JP_HCHO = 22
+INTEGER, PARAMETER :: JP_ALD = 23
+INTEGER, PARAMETER :: JP_KET = 24
+INTEGER, PARAMETER :: JP_CARBO = 25
+INTEGER, PARAMETER :: JP_ONIT = 26
+INTEGER, PARAMETER :: JP_PAN = 27
+INTEGER, PARAMETER :: JP_OP1 = 28
+INTEGER, PARAMETER :: JP_OP2 = 29
+INTEGER, PARAMETER :: JP_ORA1 = 30
+INTEGER, PARAMETER :: JP_ORA2 = 31
+INTEGER, PARAMETER :: JP_MO2 = 32
+INTEGER, PARAMETER :: JP_ALKAP = 33
+INTEGER, PARAMETER :: JP_ALKEP = 34
+INTEGER, PARAMETER :: JP_BIOP = 35
+INTEGER, PARAMETER :: JP_PHO = 36
+INTEGER, PARAMETER :: JP_ADD = 37
+INTEGER, PARAMETER :: JP_AROP = 38
+INTEGER, PARAMETER :: JP_CARBOP = 39
+INTEGER, PARAMETER :: JP_OLN = 40
+INTEGER, PARAMETER :: JP_XO2 = 41
+INTEGER, PARAMETER :: JP_WC_O3 = 42
+INTEGER, PARAMETER :: JP_WC_H2O2 = 43
+INTEGER, PARAMETER :: JP_WC_NO = 44
+INTEGER, PARAMETER :: JP_WC_NO2 = 45
+INTEGER, PARAMETER :: JP_WC_NO3 = 46
+INTEGER, PARAMETER :: JP_WC_N2O5 = 47
+INTEGER, PARAMETER :: JP_WC_HONO = 48
+INTEGER, PARAMETER :: JP_WC_HNO3 = 49
+INTEGER, PARAMETER :: JP_WC_HNO4 = 50
+INTEGER, PARAMETER :: JP_WC_NH3 = 51
+INTEGER, PARAMETER :: JP_WC_OH = 52
+INTEGER, PARAMETER :: JP_WC_HO2 = 53
+INTEGER, PARAMETER :: JP_WC_CO2 = 54
+INTEGER, PARAMETER :: JP_WC_SO2 = 55
+INTEGER, PARAMETER :: JP_WC_SULF = 56
+INTEGER, PARAMETER :: JP_WC_HCHO = 57
+INTEGER, PARAMETER :: JP_WC_ORA1 = 58
+INTEGER, PARAMETER :: JP_WC_ORA2 = 59
+INTEGER, PARAMETER :: JP_WC_MO2 = 60
+INTEGER, PARAMETER :: JP_WC_OP1 = 61
+INTEGER, PARAMETER :: JP_WC_ASO3 = 62
+INTEGER, PARAMETER :: JP_WC_ASO4 = 63
+INTEGER, PARAMETER :: JP_WC_ASO5 = 64
+INTEGER, PARAMETER :: JP_WC_AHSO5 = 65
+INTEGER, PARAMETER :: JP_WC_AHMS = 66
+INTEGER, PARAMETER :: JP_WR_O3 = 67
+INTEGER, PARAMETER :: JP_WR_H2O2 = 68
+INTEGER, PARAMETER :: JP_WR_NO = 69
+INTEGER, PARAMETER :: JP_WR_NO2 = 70
+INTEGER, PARAMETER :: JP_WR_NO3 = 71
+INTEGER, PARAMETER :: JP_WR_N2O5 = 72
+INTEGER, PARAMETER :: JP_WR_HONO = 73
+INTEGER, PARAMETER :: JP_WR_HNO3 = 74
+INTEGER, PARAMETER :: JP_WR_HNO4 = 75
+INTEGER, PARAMETER :: JP_WR_NH3 = 76
+INTEGER, PARAMETER :: JP_WR_OH = 77
+INTEGER, PARAMETER :: JP_WR_HO2 = 78
+INTEGER, PARAMETER :: JP_WR_CO2 = 79
+INTEGER, PARAMETER :: JP_WR_SO2 = 80
+INTEGER, PARAMETER :: JP_WR_SULF = 81
+INTEGER, PARAMETER :: JP_WR_HCHO = 82
+INTEGER, PARAMETER :: JP_WR_ORA1 = 83
+INTEGER, PARAMETER :: JP_WR_ORA2 = 84
+INTEGER, PARAMETER :: JP_WR_MO2 = 85
+INTEGER, PARAMETER :: JP_WR_OP1 = 86
+INTEGER, PARAMETER :: JP_WR_ASO3 = 87
+INTEGER, PARAMETER :: JP_WR_ASO4 = 88
+INTEGER, PARAMETER :: JP_WR_ASO5 = 89
+INTEGER, PARAMETER :: JP_WR_AHSO5 = 90
+INTEGER, PARAMETER :: JP_WR_AHMS = 91
!
END MODULE MODD_CH_M9_SCHEME
!
@@ -3951,8 +2055,7 @@ ALLOCATE(TACCS(KMI)%K014(KVECNPT))
ALLOCATE(TACCS(KMI)%K015(KVECNPT))
ALLOCATE(TACCS(KMI)%K016(KVECNPT))
ALLOCATE(TACCS(KMI)%K017(KVECNPT))
-ALLOCATE(TACCS(KMI)%K018A(KVECNPT))
-ALLOCATE(TACCS(KMI)%K018B(KVECNPT))
+ALLOCATE(TACCS(KMI)%K018(KVECNPT))
ALLOCATE(TACCS(KMI)%K019(KVECNPT))
ALLOCATE(TACCS(KMI)%K020(KVECNPT))
ALLOCATE(TACCS(KMI)%K021(KVECNPT))
@@ -4034,9 +2137,9 @@ ALLOCATE(TACCS(KMI)%K096(KVECNPT))
ALLOCATE(TACCS(KMI)%K097(KVECNPT))
ALLOCATE(TACCS(KMI)%K098(KVECNPT))
ALLOCATE(TACCS(KMI)%K099(KVECNPT))
-ALLOCATE(TACCS(KMI)%K100(KVECNPT))
-ALLOCATE(TACCS(KMI)%K101(KVECNPT))
-ALLOCATE(TACCS(KMI)%K102(KVECNPT))
+ALLOCATE(TACCS(KMI)%K0100(KVECNPT))
+ALLOCATE(TACCS(KMI)%K0101(KVECNPT))
+ALLOCATE(TACCS(KMI)%K0102(KVECNPT))
ALLOCATE(TACCS(KMI)%K103(KVECNPT))
ALLOCATE(TACCS(KMI)%K104(KVECNPT))
ALLOCATE(TACCS(KMI)%K105(KVECNPT))
@@ -4067,238 +2170,6 @@ ALLOCATE(TACCS(KMI)%K129(KVECNPT))
ALLOCATE(TACCS(KMI)%K130(KVECNPT))
ALLOCATE(TACCS(KMI)%K131(KVECNPT))
ALLOCATE(TACCS(KMI)%K132(KVECNPT))
-ALLOCATE(TACCS(KMI)%K133(KVECNPT))
-ALLOCATE(TACCS(KMI)%K134(KVECNPT))
-ALLOCATE(TACCS(KMI)%K135(KVECNPT))
-ALLOCATE(TACCS(KMI)%K136(KVECNPT))
-ALLOCATE(TACCS(KMI)%K137(KVECNPT))
-ALLOCATE(TACCS(KMI)%K138(KVECNPT))
-ALLOCATE(TACCS(KMI)%K139(KVECNPT))
-ALLOCATE(TACCS(KMI)%K140(KVECNPT))
-ALLOCATE(TACCS(KMI)%K141(KVECNPT))
-ALLOCATE(TACCS(KMI)%K142(KVECNPT))
-ALLOCATE(TACCS(KMI)%K143(KVECNPT))
-ALLOCATE(TACCS(KMI)%K144(KVECNPT))
-ALLOCATE(TACCS(KMI)%K145(KVECNPT))
-ALLOCATE(TACCS(KMI)%K146(KVECNPT))
-ALLOCATE(TACCS(KMI)%K147(KVECNPT))
-ALLOCATE(TACCS(KMI)%K148(KVECNPT))
-ALLOCATE(TACCS(KMI)%K149(KVECNPT))
-ALLOCATE(TACCS(KMI)%K150(KVECNPT))
-ALLOCATE(TACCS(KMI)%K151(KVECNPT))
-ALLOCATE(TACCS(KMI)%K152(KVECNPT))
-ALLOCATE(TACCS(KMI)%K153(KVECNPT))
-ALLOCATE(TACCS(KMI)%K154(KVECNPT))
-ALLOCATE(TACCS(KMI)%K155(KVECNPT))
-ALLOCATE(TACCS(KMI)%K156(KVECNPT))
-ALLOCATE(TACCS(KMI)%K157(KVECNPT))
-ALLOCATE(TACCS(KMI)%K158(KVECNPT))
-ALLOCATE(TACCS(KMI)%K159(KVECNPT))
-ALLOCATE(TACCS(KMI)%K160(KVECNPT))
-ALLOCATE(TACCS(KMI)%K161(KVECNPT))
-ALLOCATE(TACCS(KMI)%K162(KVECNPT))
-ALLOCATE(TACCS(KMI)%K163(KVECNPT))
-ALLOCATE(TACCS(KMI)%K164(KVECNPT))
-ALLOCATE(TACCS(KMI)%K165(KVECNPT))
-ALLOCATE(TACCS(KMI)%K166(KVECNPT))
-ALLOCATE(TACCS(KMI)%K167(KVECNPT))
-ALLOCATE(TACCS(KMI)%K168(KVECNPT))
-ALLOCATE(TACCS(KMI)%K169(KVECNPT))
-ALLOCATE(TACCS(KMI)%K170(KVECNPT))
-ALLOCATE(TACCS(KMI)%K171(KVECNPT))
-ALLOCATE(TACCS(KMI)%K172(KVECNPT))
-ALLOCATE(TACCS(KMI)%K173(KVECNPT))
-ALLOCATE(TACCS(KMI)%K174(KVECNPT))
-ALLOCATE(TACCS(KMI)%K175(KVECNPT))
-ALLOCATE(TACCS(KMI)%K176(KVECNPT))
-ALLOCATE(TACCS(KMI)%K177(KVECNPT))
-ALLOCATE(TACCS(KMI)%K178(KVECNPT))
-ALLOCATE(TACCS(KMI)%K179(KVECNPT))
-ALLOCATE(TACCS(KMI)%K180(KVECNPT))
-ALLOCATE(TACCS(KMI)%K181(KVECNPT))
-ALLOCATE(TACCS(KMI)%K182(KVECNPT))
-ALLOCATE(TACCS(KMI)%K183(KVECNPT))
-ALLOCATE(TACCS(KMI)%K184(KVECNPT))
-ALLOCATE(TACCS(KMI)%K185(KVECNPT))
-ALLOCATE(TACCS(KMI)%K186(KVECNPT))
-ALLOCATE(TACCS(KMI)%K187(KVECNPT))
-ALLOCATE(TACCS(KMI)%K188(KVECNPT))
-ALLOCATE(TACCS(KMI)%K189(KVECNPT))
-ALLOCATE(TACCS(KMI)%K190(KVECNPT))
-ALLOCATE(TACCS(KMI)%K191(KVECNPT))
-ALLOCATE(TACCS(KMI)%K192(KVECNPT))
-ALLOCATE(TACCS(KMI)%K193(KVECNPT))
-ALLOCATE(TACCS(KMI)%K194(KVECNPT))
-ALLOCATE(TACCS(KMI)%K195(KVECNPT))
-ALLOCATE(TACCS(KMI)%K196(KVECNPT))
-ALLOCATE(TACCS(KMI)%K197(KVECNPT))
-ALLOCATE(TACCS(KMI)%K198(KVECNPT))
-ALLOCATE(TACCS(KMI)%K199(KVECNPT))
-ALLOCATE(TACCS(KMI)%K200(KVECNPT))
-ALLOCATE(TACCS(KMI)%K201(KVECNPT))
-ALLOCATE(TACCS(KMI)%K202(KVECNPT))
-ALLOCATE(TACCS(KMI)%K203(KVECNPT))
-ALLOCATE(TACCS(KMI)%K204(KVECNPT))
-ALLOCATE(TACCS(KMI)%K205(KVECNPT))
-ALLOCATE(TACCS(KMI)%K206(KVECNPT))
-ALLOCATE(TACCS(KMI)%K207(KVECNPT))
-ALLOCATE(TACCS(KMI)%K208(KVECNPT))
-ALLOCATE(TACCS(KMI)%K209(KVECNPT))
-ALLOCATE(TACCS(KMI)%K210(KVECNPT))
-ALLOCATE(TACCS(KMI)%K211(KVECNPT))
-ALLOCATE(TACCS(KMI)%K212(KVECNPT))
-ALLOCATE(TACCS(KMI)%K213(KVECNPT))
-ALLOCATE(TACCS(KMI)%K214(KVECNPT))
-ALLOCATE(TACCS(KMI)%K215(KVECNPT))
-ALLOCATE(TACCS(KMI)%K216(KVECNPT))
-ALLOCATE(TACCS(KMI)%K217(KVECNPT))
-ALLOCATE(TACCS(KMI)%K218(KVECNPT))
-ALLOCATE(TACCS(KMI)%K219(KVECNPT))
-ALLOCATE(TACCS(KMI)%K220(KVECNPT))
-ALLOCATE(TACCS(KMI)%K221(KVECNPT))
-ALLOCATE(TACCS(KMI)%K222(KVECNPT))
-ALLOCATE(TACCS(KMI)%K223(KVECNPT))
-ALLOCATE(TACCS(KMI)%K224(KVECNPT))
-ALLOCATE(TACCS(KMI)%K225(KVECNPT))
-ALLOCATE(TACCS(KMI)%K226(KVECNPT))
-ALLOCATE(TACCS(KMI)%K227(KVECNPT))
-ALLOCATE(TACCS(KMI)%K228(KVECNPT))
-ALLOCATE(TACCS(KMI)%K229(KVECNPT))
-ALLOCATE(TACCS(KMI)%K230(KVECNPT))
-ALLOCATE(TACCS(KMI)%K231(KVECNPT))
-ALLOCATE(TACCS(KMI)%K232(KVECNPT))
-ALLOCATE(TACCS(KMI)%K233(KVECNPT))
-ALLOCATE(TACCS(KMI)%K234(KVECNPT))
-ALLOCATE(TACCS(KMI)%K235(KVECNPT))
-ALLOCATE(TACCS(KMI)%K236(KVECNPT))
-ALLOCATE(TACCS(KMI)%K237(KVECNPT))
-ALLOCATE(TACCS(KMI)%K238(KVECNPT))
-ALLOCATE(TACCS(KMI)%K239(KVECNPT))
-ALLOCATE(TACCS(KMI)%K240(KVECNPT))
-ALLOCATE(TACCS(KMI)%K241(KVECNPT))
-ALLOCATE(TACCS(KMI)%K242(KVECNPT))
-ALLOCATE(TACCS(KMI)%K243(KVECNPT))
-ALLOCATE(TACCS(KMI)%K244(KVECNPT))
-ALLOCATE(TACCS(KMI)%K245(KVECNPT))
-ALLOCATE(TACCS(KMI)%K246(KVECNPT))
-ALLOCATE(TACCS(KMI)%K247(KVECNPT))
-ALLOCATE(TACCS(KMI)%K248(KVECNPT))
-ALLOCATE(TACCS(KMI)%K249(KVECNPT))
-ALLOCATE(TACCS(KMI)%K250(KVECNPT))
-ALLOCATE(TACCS(KMI)%K251(KVECNPT))
-ALLOCATE(TACCS(KMI)%K252(KVECNPT))
-ALLOCATE(TACCS(KMI)%K253(KVECNPT))
-ALLOCATE(TACCS(KMI)%K254(KVECNPT))
-ALLOCATE(TACCS(KMI)%K255(KVECNPT))
-ALLOCATE(TACCS(KMI)%K256(KVECNPT))
-ALLOCATE(TACCS(KMI)%K257(KVECNPT))
-ALLOCATE(TACCS(KMI)%K258(KVECNPT))
-ALLOCATE(TACCS(KMI)%K259(KVECNPT))
-ALLOCATE(TACCS(KMI)%K260(KVECNPT))
-ALLOCATE(TACCS(KMI)%K261(KVECNPT))
-ALLOCATE(TACCS(KMI)%K262(KVECNPT))
-ALLOCATE(TACCS(KMI)%K263(KVECNPT))
-ALLOCATE(TACCS(KMI)%K264(KVECNPT))
-ALLOCATE(TACCS(KMI)%K265(KVECNPT))
-ALLOCATE(TACCS(KMI)%K266(KVECNPT))
-ALLOCATE(TACCS(KMI)%K267(KVECNPT))
-ALLOCATE(TACCS(KMI)%K268(KVECNPT))
-ALLOCATE(TACCS(KMI)%K269(KVECNPT))
-ALLOCATE(TACCS(KMI)%K270(KVECNPT))
-ALLOCATE(TACCS(KMI)%K271(KVECNPT))
-ALLOCATE(TACCS(KMI)%K272(KVECNPT))
-ALLOCATE(TACCS(KMI)%K273(KVECNPT))
-ALLOCATE(TACCS(KMI)%K274(KVECNPT))
-ALLOCATE(TACCS(KMI)%K275(KVECNPT))
-ALLOCATE(TACCS(KMI)%K276(KVECNPT))
-ALLOCATE(TACCS(KMI)%K277(KVECNPT))
-ALLOCATE(TACCS(KMI)%K278(KVECNPT))
-ALLOCATE(TACCS(KMI)%K279(KVECNPT))
-ALLOCATE(TACCS(KMI)%K280(KVECNPT))
-ALLOCATE(TACCS(KMI)%K281(KVECNPT))
-ALLOCATE(TACCS(KMI)%K282(KVECNPT))
-ALLOCATE(TACCS(KMI)%K283(KVECNPT))
-ALLOCATE(TACCS(KMI)%K284(KVECNPT))
-ALLOCATE(TACCS(KMI)%K285(KVECNPT))
-ALLOCATE(TACCS(KMI)%K286(KVECNPT))
-ALLOCATE(TACCS(KMI)%K287(KVECNPT))
-ALLOCATE(TACCS(KMI)%K288(KVECNPT))
-ALLOCATE(TACCS(KMI)%K289(KVECNPT))
-ALLOCATE(TACCS(KMI)%K290(KVECNPT))
-ALLOCATE(TACCS(KMI)%K291(KVECNPT))
-ALLOCATE(TACCS(KMI)%K292(KVECNPT))
-ALLOCATE(TACCS(KMI)%K293(KVECNPT))
-ALLOCATE(TACCS(KMI)%K294(KVECNPT))
-ALLOCATE(TACCS(KMI)%K295(KVECNPT))
-ALLOCATE(TACCS(KMI)%K296(KVECNPT))
-ALLOCATE(TACCS(KMI)%K297(KVECNPT))
-ALLOCATE(TACCS(KMI)%K298(KVECNPT))
-ALLOCATE(TACCS(KMI)%K299(KVECNPT))
-ALLOCATE(TACCS(KMI)%K300(KVECNPT))
-ALLOCATE(TACCS(KMI)%K301(KVECNPT))
-ALLOCATE(TACCS(KMI)%K302(KVECNPT))
-ALLOCATE(TACCS(KMI)%K303(KVECNPT))
-ALLOCATE(TACCS(KMI)%K304(KVECNPT))
-ALLOCATE(TACCS(KMI)%K305(KVECNPT))
-ALLOCATE(TACCS(KMI)%K306(KVECNPT))
-ALLOCATE(TACCS(KMI)%K307(KVECNPT))
-ALLOCATE(TACCS(KMI)%K308(KVECNPT))
-ALLOCATE(TACCS(KMI)%K309(KVECNPT))
-ALLOCATE(TACCS(KMI)%K310(KVECNPT))
-ALLOCATE(TACCS(KMI)%K311(KVECNPT))
-ALLOCATE(TACCS(KMI)%K312(KVECNPT))
-ALLOCATE(TACCS(KMI)%K313(KVECNPT))
-ALLOCATE(TACCS(KMI)%K314(KVECNPT))
-ALLOCATE(TACCS(KMI)%K315(KVECNPT))
-ALLOCATE(TACCS(KMI)%K316(KVECNPT))
-ALLOCATE(TACCS(KMI)%K317(KVECNPT))
-ALLOCATE(TACCS(KMI)%K318(KVECNPT))
-ALLOCATE(TACCS(KMI)%K319(KVECNPT))
-ALLOCATE(TACCS(KMI)%K320(KVECNPT))
-ALLOCATE(TACCS(KMI)%K321(KVECNPT))
-ALLOCATE(TACCS(KMI)%K322(KVECNPT))
-ALLOCATE(TACCS(KMI)%K323(KVECNPT))
-ALLOCATE(TACCS(KMI)%K324(KVECNPT))
-ALLOCATE(TACCS(KMI)%K325(KVECNPT))
-ALLOCATE(TACCS(KMI)%K326(KVECNPT))
-ALLOCATE(TACCS(KMI)%K327(KVECNPT))
-ALLOCATE(TACCS(KMI)%K328(KVECNPT))
-ALLOCATE(TACCS(KMI)%K329(KVECNPT))
-ALLOCATE(TACCS(KMI)%K330(KVECNPT))
-ALLOCATE(TACCS(KMI)%K331(KVECNPT))
-ALLOCATE(TACCS(KMI)%K332(KVECNPT))
-ALLOCATE(TACCS(KMI)%K333(KVECNPT))
-ALLOCATE(TACCS(KMI)%K334(KVECNPT))
-ALLOCATE(TACCS(KMI)%K335(KVECNPT))
-ALLOCATE(TACCS(KMI)%K337(KVECNPT))
-ALLOCATE(TACCS(KMI)%K338(KVECNPT))
-ALLOCATE(TACCS(KMI)%K339(KVECNPT))
-ALLOCATE(TACCS(KMI)%K340(KVECNPT))
-ALLOCATE(TACCS(KMI)%K341(KVECNPT))
-ALLOCATE(TACCS(KMI)%K342(KVECNPT))
-ALLOCATE(TACCS(KMI)%K343(KVECNPT))
-ALLOCATE(TACCS(KMI)%K344(KVECNPT))
-ALLOCATE(TACCS(KMI)%K345(KVECNPT))
-ALLOCATE(TACCS(KMI)%K346(KVECNPT))
-ALLOCATE(TACCS(KMI)%K347(KVECNPT))
-ALLOCATE(TACCS(KMI)%K348(KVECNPT))
-ALLOCATE(TACCS(KMI)%K349(KVECNPT))
-ALLOCATE(TACCS(KMI)%K350(KVECNPT))
-ALLOCATE(TACCS(KMI)%K351(KVECNPT))
-ALLOCATE(TACCS(KMI)%K352(KVECNPT))
-ALLOCATE(TACCS(KMI)%K353(KVECNPT))
-ALLOCATE(TACCS(KMI)%K354(KVECNPT))
-ALLOCATE(TACCS(KMI)%K355(KVECNPT))
-ALLOCATE(TACCS(KMI)%K356(KVECNPT))
-ALLOCATE(TACCS(KMI)%K357(KVECNPT))
-ALLOCATE(TACCS(KMI)%K358(KVECNPT))
-ALLOCATE(TACCS(KMI)%K359(KVECNPT))
-ALLOCATE(TACCS(KMI)%K360(KVECNPT))
-ALLOCATE(TACCS(KMI)%K361(KVECNPT))
-ALLOCATE(TACCS(KMI)%K362(KVECNPT))
-ALLOCATE(TACCS(KMI)%K363(KVECNPT))
-ALLOCATE(TACCS(KMI)%K364(KVECNPT))
-ALLOCATE(TACCS(KMI)%K365(KVECNPT))
IF (TACCS(KMI)%LUSECHAQ) THEN
ALLOCATE(TACCS(KMI)%KTC1(KVECNPT))
ALLOCATE(TACCS(KMI)%KTC2(KVECNPT))
@@ -4340,28 +2211,6 @@ IF (TACCS(KMI)%LUSECHAQ) THEN
ALLOCATE(TACCS(KMI)%KTC38(KVECNPT))
ALLOCATE(TACCS(KMI)%KTC39(KVECNPT))
ALLOCATE(TACCS(KMI)%KTC40(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTC41(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTC42(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTC43(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTC44(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTC45(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTC46(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTC47(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTC48(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTC49(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTC50(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTC51(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTC52(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTC53(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTC54(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTC55(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTC56(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTC57(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTC58(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTC59(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTC60(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTC61(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTC62(KVECNPT))
ALLOCATE(TACCS(KMI)%KTR1(KVECNPT))
ALLOCATE(TACCS(KMI)%KTR2(KVECNPT))
ALLOCATE(TACCS(KMI)%KTR3(KVECNPT))
@@ -4402,28 +2251,6 @@ IF (TACCS(KMI)%LUSECHAQ) THEN
ALLOCATE(TACCS(KMI)%KTR38(KVECNPT))
ALLOCATE(TACCS(KMI)%KTR39(KVECNPT))
ALLOCATE(TACCS(KMI)%KTR40(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTR41(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTR42(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTR43(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTR44(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTR45(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTR46(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTR47(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTR48(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTR49(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTR50(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTR51(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTR52(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTR53(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTR54(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTR55(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTR56(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTR57(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTR58(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTR59(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTR60(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTR61(KVECNPT))
- ALLOCATE(TACCS(KMI)%KTR62(KVECNPT))
ALLOCATE(TACCS(KMI)%KC1(KVECNPT))
ALLOCATE(TACCS(KMI)%KC2(KVECNPT))
ALLOCATE(TACCS(KMI)%KC3(KVECNPT))
@@ -4454,22 +2281,6 @@ IF (TACCS(KMI)%LUSECHAQ) THEN
ALLOCATE(TACCS(KMI)%KC28(KVECNPT))
ALLOCATE(TACCS(KMI)%KC29(KVECNPT))
ALLOCATE(TACCS(KMI)%KC30(KVECNPT))
- ALLOCATE(TACCS(KMI)%KC31(KVECNPT))
- ALLOCATE(TACCS(KMI)%KC32(KVECNPT))
- ALLOCATE(TACCS(KMI)%KC33(KVECNPT))
- ALLOCATE(TACCS(KMI)%KC34(KVECNPT))
- ALLOCATE(TACCS(KMI)%KC35(KVECNPT))
- ALLOCATE(TACCS(KMI)%KC36(KVECNPT))
- ALLOCATE(TACCS(KMI)%KC37(KVECNPT))
- ALLOCATE(TACCS(KMI)%KC38(KVECNPT))
- ALLOCATE(TACCS(KMI)%KC39(KVECNPT))
- ALLOCATE(TACCS(KMI)%KC40(KVECNPT))
- ALLOCATE(TACCS(KMI)%KC41(KVECNPT))
- ALLOCATE(TACCS(KMI)%KC42(KVECNPT))
- ALLOCATE(TACCS(KMI)%KC43(KVECNPT))
- ALLOCATE(TACCS(KMI)%KC44(KVECNPT))
- ALLOCATE(TACCS(KMI)%KC45(KVECNPT))
- ALLOCATE(TACCS(KMI)%KC46(KVECNPT))
ALLOCATE(TACCS(KMI)%KR1(KVECNPT))
ALLOCATE(TACCS(KMI)%KR2(KVECNPT))
ALLOCATE(TACCS(KMI)%KR3(KVECNPT))
@@ -4500,30 +2311,9 @@ IF (TACCS(KMI)%LUSECHAQ) THEN
ALLOCATE(TACCS(KMI)%KR28(KVECNPT))
ALLOCATE(TACCS(KMI)%KR29(KVECNPT))
ALLOCATE(TACCS(KMI)%KR30(KVECNPT))
- ALLOCATE(TACCS(KMI)%KR31(KVECNPT))
- ALLOCATE(TACCS(KMI)%KR32(KVECNPT))
- ALLOCATE(TACCS(KMI)%KR33(KVECNPT))
- ALLOCATE(TACCS(KMI)%KR34(KVECNPT))
- ALLOCATE(TACCS(KMI)%KR35(KVECNPT))
- ALLOCATE(TACCS(KMI)%KR36(KVECNPT))
- ALLOCATE(TACCS(KMI)%KR37(KVECNPT))
- ALLOCATE(TACCS(KMI)%KR38(KVECNPT))
- ALLOCATE(TACCS(KMI)%KR39(KVECNPT))
- ALLOCATE(TACCS(KMI)%KR40(KVECNPT))
- ALLOCATE(TACCS(KMI)%KR41(KVECNPT))
- ALLOCATE(TACCS(KMI)%KR42(KVECNPT))
- ALLOCATE(TACCS(KMI)%KR43(KVECNPT))
- ALLOCATE(TACCS(KMI)%KR44(KVECNPT))
- ALLOCATE(TACCS(KMI)%KR45(KVECNPT))
- ALLOCATE(TACCS(KMI)%KR46(KVECNPT))
END IF
ALLOCATE(TACCS(KMI)%NVERB(KVECNPT))
ALLOCATE(TACCS(KMI)%MODELLEVEL(KVECNPT))
-ALLOCATE(TACCS(KMI)%LAT(KVECNPT))
-ALLOCATE(TACCS(KMI)%LON(KVECNPT))
-ALLOCATE(TACCS(KMI)%YEAR(KVECNPT))
-ALLOCATE(TACCS(KMI)%MONTH(KVECNPT))
-ALLOCATE(TACCS(KMI)%DAY(KVECNPT))
ALLOCATE(TACCS(KMI)%T(KVECNPT))
ALLOCATE(TACCS(KMI)%PRESSURE(KVECNPT))
ALLOCATE(TACCS(KMI)%M(KVECNPT))
@@ -4534,74 +2324,14 @@ ALLOCATE(TACCS(KMI)%RHODREF(KVECNPT))
ALLOCATE(TACCS(KMI)%O2(KVECNPT))
ALLOCATE(TACCS(KMI)%N2(KVECNPT))
ALLOCATE(TACCS(KMI)%H2(KVECNPT))
-ALLOCATE(TACCS(KMI)%CO2(KVECNPT))
-ALLOCATE(TACCS(KMI)%CH4(KVECNPT))
-ALLOCATE(TACCS(KMI)%O (KVECNPT))
-ALLOCATE(TACCS(KMI)%OSD (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO22 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO23 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO24 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO26 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO27 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO28(KVECNPT))
-ALLOCATE(TACCS(KMI)%RO29 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO210 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO211 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO212 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO213 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO214 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO215 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO216 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO217 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO218 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO219 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO220 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO221 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO222 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO223 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO224 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO225 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO226 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO227 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO228 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO229 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO230 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO231 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO232 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO233 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO234 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO235 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO236 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO237 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO238 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO239 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO240 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO241 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO242 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO243 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO244 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO245 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO246 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO247 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO248 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO249 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO250 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO251 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO252 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO253 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO254 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO255 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO256 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO257 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RO258 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RAD1 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RAD2 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RAD3 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RAD4 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RAD5 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RAD6 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RAD7 (KVECNPT))
-ALLOCATE(TACCS(KMI)%RAD8 (KVECNPT))
+ALLOCATE(TACCS(KMI)%OH(KVECNPT))
+ALLOCATE(TACCS(KMI)%O1D(KVECNPT))
+ALLOCATE(TACCS(KMI)%O3P(KVECNPT))
+ALLOCATE(TACCS(KMI)%LAT(KVECNPT))
+ALLOCATE(TACCS(KMI)%LON(KVECNPT))
+ALLOCATE(TACCS(KMI)%YEAR(KVECNPT))
+ALLOCATE(TACCS(KMI)%MONTH(KVECNPT))
+ALLOCATE(TACCS(KMI)%DAY(KVECNPT))
ALLOCATE(TACCS(KMI)%LWC(KVECNPT))
ALLOCATE(TACCS(KMI)%MOL2MOLECCLOUD(KVECNPT))
ALLOCATE(TACCS(KMI)%RADC(KVECNPT))
@@ -4610,81 +2340,9 @@ ALLOCATE(TACCS(KMI)%LWR(KVECNPT))
ALLOCATE(TACCS(KMI)%MOL2MOLECRAIN(KVECNPT))
ALLOCATE(TACCS(KMI)%RADR(KVECNPT))
ALLOCATE(TACCS(KMI)%PHR(KVECNPT))
+ALLOCATE(TACCS(KMI)%CO2(KVECNPT))
ALLOCATE(TACCS(KMI)%RCH(KVECNPT))
ALLOCATE(TACCS(KMI)%W_O2(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF1(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF2(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF3(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF4(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF5(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF6(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF7(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF8(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF9(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF10(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF11(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF12(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF13(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF14(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF15(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF16(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF17(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF18(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF19(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF20(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF21(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF22(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF23(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF24(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF25(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF26(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF27(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF28(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF29(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF30(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF31(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF32(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF33(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF34(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF35(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF36(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF37(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF38(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF39(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF40(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF41(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF42(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF43(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF44(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF45(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF46(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF47(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF48(KVECNPT))
-ALLOCATE(TACCS(KMI)%CF49(KVECNPT))
-ALLOCATE(TACCS(KMI)%CFA1(KVECNPT))
-ALLOCATE(TACCS(KMI)%CFA2(KVECNPT))
-ALLOCATE(TACCS(KMI)%CFA3(KVECNPT))
-ALLOCATE(TACCS(KMI)%CFA4(KVECNPT))
-ALLOCATE(TACCS(KMI)%CFA5(KVECNPT))
-ALLOCATE(TACCS(KMI)%CFA6(KVECNPT))
-ALLOCATE(TACCS(KMI)%CFA7(KVECNPT))
-ALLOCATE(TACCS(KMI)%CFA8(KVECNPT))
-ALLOCATE(TACCS(KMI)%CFA9(KVECNPT))
-ALLOCATE(TACCS(KMI)%CFA10(KVECNPT))
-ALLOCATE(TACCS(KMI)%CFA11(KVECNPT))
-ALLOCATE(TACCS(KMI)%CFA12(KVECNPT))
-ALLOCATE(TACCS(KMI)%CFA13(KVECNPT))
-ALLOCATE(TACCS(KMI)%CFA14(KVECNPT))
-ALLOCATE(TACCS(KMI)%CFA15(KVECNPT))
-ALLOCATE(TACCS(KMI)%CFA16(KVECNPT))
-ALLOCATE(TACCS(KMI)%CFA17(KVECNPT))
-ALLOCATE(TACCS(KMI)%CFA18(KVECNPT))
-ALLOCATE(TACCS(KMI)%CFA19(KVECNPT))
-ALLOCATE(TACCS(KMI)%CFA20(KVECNPT))
-ALLOCATE(TACCS(KMI)%CFA21(KVECNPT))
-ALLOCATE(TACCS(KMI)%CFA22(KVECNPT))
-ALLOCATE(TACCS(KMI)%CFA23(KVECNPT))
-ALLOCATE(TACCS(KMI)%CFA24(KVECNPT))
END SUBROUTINE CH_ALLOCATE_TACCS
!
!========================================================================
@@ -4770,8 +2428,7 @@ IF (ASSOCIATED(TACCS(KMI)%K014)) DEALLOCATE(TACCS(KMI)%K014)
IF (ASSOCIATED(TACCS(KMI)%K015)) DEALLOCATE(TACCS(KMI)%K015)
IF (ASSOCIATED(TACCS(KMI)%K016)) DEALLOCATE(TACCS(KMI)%K016)
IF (ASSOCIATED(TACCS(KMI)%K017)) DEALLOCATE(TACCS(KMI)%K017)
-IF (ASSOCIATED(TACCS(KMI)%K018A)) DEALLOCATE(TACCS(KMI)%K018A)
-IF (ASSOCIATED(TACCS(KMI)%K018B)) DEALLOCATE(TACCS(KMI)%K018B)
+IF (ASSOCIATED(TACCS(KMI)%K018)) DEALLOCATE(TACCS(KMI)%K018)
IF (ASSOCIATED(TACCS(KMI)%K019)) DEALLOCATE(TACCS(KMI)%K019)
IF (ASSOCIATED(TACCS(KMI)%K020)) DEALLOCATE(TACCS(KMI)%K020)
IF (ASSOCIATED(TACCS(KMI)%K021)) DEALLOCATE(TACCS(KMI)%K021)
@@ -4853,9 +2510,9 @@ IF (ASSOCIATED(TACCS(KMI)%K096)) DEALLOCATE(TACCS(KMI)%K096)
IF (ASSOCIATED(TACCS(KMI)%K097)) DEALLOCATE(TACCS(KMI)%K097)
IF (ASSOCIATED(TACCS(KMI)%K098)) DEALLOCATE(TACCS(KMI)%K098)
IF (ASSOCIATED(TACCS(KMI)%K099)) DEALLOCATE(TACCS(KMI)%K099)
-IF (ASSOCIATED(TACCS(KMI)%K100)) DEALLOCATE(TACCS(KMI)%K100)
-IF (ASSOCIATED(TACCS(KMI)%K101)) DEALLOCATE(TACCS(KMI)%K101)
-IF (ASSOCIATED(TACCS(KMI)%K102)) DEALLOCATE(TACCS(KMI)%K102)
+IF (ASSOCIATED(TACCS(KMI)%K0100)) DEALLOCATE(TACCS(KMI)%K0100)
+IF (ASSOCIATED(TACCS(KMI)%K0101)) DEALLOCATE(TACCS(KMI)%K0101)
+IF (ASSOCIATED(TACCS(KMI)%K0102)) DEALLOCATE(TACCS(KMI)%K0102)
IF (ASSOCIATED(TACCS(KMI)%K103)) DEALLOCATE(TACCS(KMI)%K103)
IF (ASSOCIATED(TACCS(KMI)%K104)) DEALLOCATE(TACCS(KMI)%K104)
IF (ASSOCIATED(TACCS(KMI)%K105)) DEALLOCATE(TACCS(KMI)%K105)
@@ -4886,238 +2543,6 @@ IF (ASSOCIATED(TACCS(KMI)%K129)) DEALLOCATE(TACCS(KMI)%K129)
IF (ASSOCIATED(TACCS(KMI)%K130)) DEALLOCATE(TACCS(KMI)%K130)
IF (ASSOCIATED(TACCS(KMI)%K131)) DEALLOCATE(TACCS(KMI)%K131)
IF (ASSOCIATED(TACCS(KMI)%K132)) DEALLOCATE(TACCS(KMI)%K132)
-IF (ASSOCIATED(TACCS(KMI)%K133)) DEALLOCATE(TACCS(KMI)%K133)
-IF (ASSOCIATED(TACCS(KMI)%K134)) DEALLOCATE(TACCS(KMI)%K134)
-IF (ASSOCIATED(TACCS(KMI)%K135)) DEALLOCATE(TACCS(KMI)%K135)
-IF (ASSOCIATED(TACCS(KMI)%K136)) DEALLOCATE(TACCS(KMI)%K136)
-IF (ASSOCIATED(TACCS(KMI)%K137)) DEALLOCATE(TACCS(KMI)%K137)
-IF (ASSOCIATED(TACCS(KMI)%K138)) DEALLOCATE(TACCS(KMI)%K138)
-IF (ASSOCIATED(TACCS(KMI)%K139)) DEALLOCATE(TACCS(KMI)%K139)
-IF (ASSOCIATED(TACCS(KMI)%K140)) DEALLOCATE(TACCS(KMI)%K140)
-IF (ASSOCIATED(TACCS(KMI)%K141)) DEALLOCATE(TACCS(KMI)%K141)
-IF (ASSOCIATED(TACCS(KMI)%K142)) DEALLOCATE(TACCS(KMI)%K142)
-IF (ASSOCIATED(TACCS(KMI)%K143)) DEALLOCATE(TACCS(KMI)%K143)
-IF (ASSOCIATED(TACCS(KMI)%K144)) DEALLOCATE(TACCS(KMI)%K144)
-IF (ASSOCIATED(TACCS(KMI)%K145)) DEALLOCATE(TACCS(KMI)%K145)
-IF (ASSOCIATED(TACCS(KMI)%K146)) DEALLOCATE(TACCS(KMI)%K146)
-IF (ASSOCIATED(TACCS(KMI)%K147)) DEALLOCATE(TACCS(KMI)%K147)
-IF (ASSOCIATED(TACCS(KMI)%K148)) DEALLOCATE(TACCS(KMI)%K148)
-IF (ASSOCIATED(TACCS(KMI)%K149)) DEALLOCATE(TACCS(KMI)%K149)
-IF (ASSOCIATED(TACCS(KMI)%K150)) DEALLOCATE(TACCS(KMI)%K150)
-IF (ASSOCIATED(TACCS(KMI)%K151)) DEALLOCATE(TACCS(KMI)%K151)
-IF (ASSOCIATED(TACCS(KMI)%K152)) DEALLOCATE(TACCS(KMI)%K152)
-IF (ASSOCIATED(TACCS(KMI)%K153)) DEALLOCATE(TACCS(KMI)%K153)
-IF (ASSOCIATED(TACCS(KMI)%K154)) DEALLOCATE(TACCS(KMI)%K154)
-IF (ASSOCIATED(TACCS(KMI)%K155)) DEALLOCATE(TACCS(KMI)%K155)
-IF (ASSOCIATED(TACCS(KMI)%K156)) DEALLOCATE(TACCS(KMI)%K156)
-IF (ASSOCIATED(TACCS(KMI)%K157)) DEALLOCATE(TACCS(KMI)%K157)
-IF (ASSOCIATED(TACCS(KMI)%K158)) DEALLOCATE(TACCS(KMI)%K158)
-IF (ASSOCIATED(TACCS(KMI)%K159)) DEALLOCATE(TACCS(KMI)%K159)
-IF (ASSOCIATED(TACCS(KMI)%K160)) DEALLOCATE(TACCS(KMI)%K160)
-IF (ASSOCIATED(TACCS(KMI)%K161)) DEALLOCATE(TACCS(KMI)%K161)
-IF (ASSOCIATED(TACCS(KMI)%K162)) DEALLOCATE(TACCS(KMI)%K162)
-IF (ASSOCIATED(TACCS(KMI)%K163)) DEALLOCATE(TACCS(KMI)%K163)
-IF (ASSOCIATED(TACCS(KMI)%K164)) DEALLOCATE(TACCS(KMI)%K164)
-IF (ASSOCIATED(TACCS(KMI)%K165)) DEALLOCATE(TACCS(KMI)%K165)
-IF (ASSOCIATED(TACCS(KMI)%K166)) DEALLOCATE(TACCS(KMI)%K166)
-IF (ASSOCIATED(TACCS(KMI)%K167)) DEALLOCATE(TACCS(KMI)%K167)
-IF (ASSOCIATED(TACCS(KMI)%K168)) DEALLOCATE(TACCS(KMI)%K168)
-IF (ASSOCIATED(TACCS(KMI)%K169)) DEALLOCATE(TACCS(KMI)%K169)
-IF (ASSOCIATED(TACCS(KMI)%K170)) DEALLOCATE(TACCS(KMI)%K170)
-IF (ASSOCIATED(TACCS(KMI)%K171)) DEALLOCATE(TACCS(KMI)%K171)
-IF (ASSOCIATED(TACCS(KMI)%K172)) DEALLOCATE(TACCS(KMI)%K172)
-IF (ASSOCIATED(TACCS(KMI)%K173)) DEALLOCATE(TACCS(KMI)%K173)
-IF (ASSOCIATED(TACCS(KMI)%K174)) DEALLOCATE(TACCS(KMI)%K174)
-IF (ASSOCIATED(TACCS(KMI)%K175)) DEALLOCATE(TACCS(KMI)%K175)
-IF (ASSOCIATED(TACCS(KMI)%K176)) DEALLOCATE(TACCS(KMI)%K176)
-IF (ASSOCIATED(TACCS(KMI)%K177)) DEALLOCATE(TACCS(KMI)%K177)
-IF (ASSOCIATED(TACCS(KMI)%K178)) DEALLOCATE(TACCS(KMI)%K178)
-IF (ASSOCIATED(TACCS(KMI)%K179)) DEALLOCATE(TACCS(KMI)%K179)
-IF (ASSOCIATED(TACCS(KMI)%K180)) DEALLOCATE(TACCS(KMI)%K180)
-IF (ASSOCIATED(TACCS(KMI)%K181)) DEALLOCATE(TACCS(KMI)%K181)
-IF (ASSOCIATED(TACCS(KMI)%K182)) DEALLOCATE(TACCS(KMI)%K182)
-IF (ASSOCIATED(TACCS(KMI)%K183)) DEALLOCATE(TACCS(KMI)%K183)
-IF (ASSOCIATED(TACCS(KMI)%K184)) DEALLOCATE(TACCS(KMI)%K184)
-IF (ASSOCIATED(TACCS(KMI)%K185)) DEALLOCATE(TACCS(KMI)%K185)
-IF (ASSOCIATED(TACCS(KMI)%K186)) DEALLOCATE(TACCS(KMI)%K186)
-IF (ASSOCIATED(TACCS(KMI)%K187)) DEALLOCATE(TACCS(KMI)%K187)
-IF (ASSOCIATED(TACCS(KMI)%K188)) DEALLOCATE(TACCS(KMI)%K188)
-IF (ASSOCIATED(TACCS(KMI)%K189)) DEALLOCATE(TACCS(KMI)%K189)
-IF (ASSOCIATED(TACCS(KMI)%K190)) DEALLOCATE(TACCS(KMI)%K190)
-IF (ASSOCIATED(TACCS(KMI)%K191)) DEALLOCATE(TACCS(KMI)%K191)
-IF (ASSOCIATED(TACCS(KMI)%K192)) DEALLOCATE(TACCS(KMI)%K192)
-IF (ASSOCIATED(TACCS(KMI)%K193)) DEALLOCATE(TACCS(KMI)%K193)
-IF (ASSOCIATED(TACCS(KMI)%K194)) DEALLOCATE(TACCS(KMI)%K194)
-IF (ASSOCIATED(TACCS(KMI)%K195)) DEALLOCATE(TACCS(KMI)%K195)
-IF (ASSOCIATED(TACCS(KMI)%K196)) DEALLOCATE(TACCS(KMI)%K196)
-IF (ASSOCIATED(TACCS(KMI)%K197)) DEALLOCATE(TACCS(KMI)%K197)
-IF (ASSOCIATED(TACCS(KMI)%K198)) DEALLOCATE(TACCS(KMI)%K198)
-IF (ASSOCIATED(TACCS(KMI)%K199)) DEALLOCATE(TACCS(KMI)%K199)
-IF (ASSOCIATED(TACCS(KMI)%K200)) DEALLOCATE(TACCS(KMI)%K200)
-IF (ASSOCIATED(TACCS(KMI)%K201)) DEALLOCATE(TACCS(KMI)%K201)
-IF (ASSOCIATED(TACCS(KMI)%K202)) DEALLOCATE(TACCS(KMI)%K202)
-IF (ASSOCIATED(TACCS(KMI)%K203)) DEALLOCATE(TACCS(KMI)%K203)
-IF (ASSOCIATED(TACCS(KMI)%K204)) DEALLOCATE(TACCS(KMI)%K204)
-IF (ASSOCIATED(TACCS(KMI)%K205)) DEALLOCATE(TACCS(KMI)%K205)
-IF (ASSOCIATED(TACCS(KMI)%K206)) DEALLOCATE(TACCS(KMI)%K206)
-IF (ASSOCIATED(TACCS(KMI)%K207)) DEALLOCATE(TACCS(KMI)%K207)
-IF (ASSOCIATED(TACCS(KMI)%K208)) DEALLOCATE(TACCS(KMI)%K208)
-IF (ASSOCIATED(TACCS(KMI)%K209)) DEALLOCATE(TACCS(KMI)%K209)
-IF (ASSOCIATED(TACCS(KMI)%K210)) DEALLOCATE(TACCS(KMI)%K210)
-IF (ASSOCIATED(TACCS(KMI)%K211)) DEALLOCATE(TACCS(KMI)%K211)
-IF (ASSOCIATED(TACCS(KMI)%K212)) DEALLOCATE(TACCS(KMI)%K212)
-IF (ASSOCIATED(TACCS(KMI)%K213)) DEALLOCATE(TACCS(KMI)%K213)
-IF (ASSOCIATED(TACCS(KMI)%K214)) DEALLOCATE(TACCS(KMI)%K214)
-IF (ASSOCIATED(TACCS(KMI)%K215)) DEALLOCATE(TACCS(KMI)%K215)
-IF (ASSOCIATED(TACCS(KMI)%K216)) DEALLOCATE(TACCS(KMI)%K216)
-IF (ASSOCIATED(TACCS(KMI)%K217)) DEALLOCATE(TACCS(KMI)%K217)
-IF (ASSOCIATED(TACCS(KMI)%K218)) DEALLOCATE(TACCS(KMI)%K218)
-IF (ASSOCIATED(TACCS(KMI)%K219)) DEALLOCATE(TACCS(KMI)%K219)
-IF (ASSOCIATED(TACCS(KMI)%K220)) DEALLOCATE(TACCS(KMI)%K220)
-IF (ASSOCIATED(TACCS(KMI)%K221)) DEALLOCATE(TACCS(KMI)%K221)
-IF (ASSOCIATED(TACCS(KMI)%K222)) DEALLOCATE(TACCS(KMI)%K222)
-IF (ASSOCIATED(TACCS(KMI)%K223)) DEALLOCATE(TACCS(KMI)%K223)
-IF (ASSOCIATED(TACCS(KMI)%K224)) DEALLOCATE(TACCS(KMI)%K224)
-IF (ASSOCIATED(TACCS(KMI)%K225)) DEALLOCATE(TACCS(KMI)%K225)
-IF (ASSOCIATED(TACCS(KMI)%K226)) DEALLOCATE(TACCS(KMI)%K226)
-IF (ASSOCIATED(TACCS(KMI)%K227)) DEALLOCATE(TACCS(KMI)%K227)
-IF (ASSOCIATED(TACCS(KMI)%K228)) DEALLOCATE(TACCS(KMI)%K228)
-IF (ASSOCIATED(TACCS(KMI)%K229)) DEALLOCATE(TACCS(KMI)%K229)
-IF (ASSOCIATED(TACCS(KMI)%K230)) DEALLOCATE(TACCS(KMI)%K230)
-IF (ASSOCIATED(TACCS(KMI)%K231)) DEALLOCATE(TACCS(KMI)%K231)
-IF (ASSOCIATED(TACCS(KMI)%K232)) DEALLOCATE(TACCS(KMI)%K232)
-IF (ASSOCIATED(TACCS(KMI)%K233)) DEALLOCATE(TACCS(KMI)%K233)
-IF (ASSOCIATED(TACCS(KMI)%K234)) DEALLOCATE(TACCS(KMI)%K234)
-IF (ASSOCIATED(TACCS(KMI)%K235)) DEALLOCATE(TACCS(KMI)%K235)
-IF (ASSOCIATED(TACCS(KMI)%K236)) DEALLOCATE(TACCS(KMI)%K236)
-IF (ASSOCIATED(TACCS(KMI)%K237)) DEALLOCATE(TACCS(KMI)%K237)
-IF (ASSOCIATED(TACCS(KMI)%K238)) DEALLOCATE(TACCS(KMI)%K238)
-IF (ASSOCIATED(TACCS(KMI)%K239)) DEALLOCATE(TACCS(KMI)%K239)
-IF (ASSOCIATED(TACCS(KMI)%K240)) DEALLOCATE(TACCS(KMI)%K240)
-IF (ASSOCIATED(TACCS(KMI)%K241)) DEALLOCATE(TACCS(KMI)%K241)
-IF (ASSOCIATED(TACCS(KMI)%K242)) DEALLOCATE(TACCS(KMI)%K242)
-IF (ASSOCIATED(TACCS(KMI)%K243)) DEALLOCATE(TACCS(KMI)%K243)
-IF (ASSOCIATED(TACCS(KMI)%K244)) DEALLOCATE(TACCS(KMI)%K244)
-IF (ASSOCIATED(TACCS(KMI)%K245)) DEALLOCATE(TACCS(KMI)%K245)
-IF (ASSOCIATED(TACCS(KMI)%K246)) DEALLOCATE(TACCS(KMI)%K246)
-IF (ASSOCIATED(TACCS(KMI)%K247)) DEALLOCATE(TACCS(KMI)%K247)
-IF (ASSOCIATED(TACCS(KMI)%K248)) DEALLOCATE(TACCS(KMI)%K248)
-IF (ASSOCIATED(TACCS(KMI)%K249)) DEALLOCATE(TACCS(KMI)%K249)
-IF (ASSOCIATED(TACCS(KMI)%K250)) DEALLOCATE(TACCS(KMI)%K250)
-IF (ASSOCIATED(TACCS(KMI)%K251)) DEALLOCATE(TACCS(KMI)%K251)
-IF (ASSOCIATED(TACCS(KMI)%K252)) DEALLOCATE(TACCS(KMI)%K252)
-IF (ASSOCIATED(TACCS(KMI)%K253)) DEALLOCATE(TACCS(KMI)%K253)
-IF (ASSOCIATED(TACCS(KMI)%K254)) DEALLOCATE(TACCS(KMI)%K254)
-IF (ASSOCIATED(TACCS(KMI)%K255)) DEALLOCATE(TACCS(KMI)%K255)
-IF (ASSOCIATED(TACCS(KMI)%K256)) DEALLOCATE(TACCS(KMI)%K256)
-IF (ASSOCIATED(TACCS(KMI)%K257)) DEALLOCATE(TACCS(KMI)%K257)
-IF (ASSOCIATED(TACCS(KMI)%K258)) DEALLOCATE(TACCS(KMI)%K258)
-IF (ASSOCIATED(TACCS(KMI)%K259)) DEALLOCATE(TACCS(KMI)%K259)
-IF (ASSOCIATED(TACCS(KMI)%K260)) DEALLOCATE(TACCS(KMI)%K260)
-IF (ASSOCIATED(TACCS(KMI)%K261)) DEALLOCATE(TACCS(KMI)%K261)
-IF (ASSOCIATED(TACCS(KMI)%K262)) DEALLOCATE(TACCS(KMI)%K262)
-IF (ASSOCIATED(TACCS(KMI)%K263)) DEALLOCATE(TACCS(KMI)%K263)
-IF (ASSOCIATED(TACCS(KMI)%K264)) DEALLOCATE(TACCS(KMI)%K264)
-IF (ASSOCIATED(TACCS(KMI)%K265)) DEALLOCATE(TACCS(KMI)%K265)
-IF (ASSOCIATED(TACCS(KMI)%K266)) DEALLOCATE(TACCS(KMI)%K266)
-IF (ASSOCIATED(TACCS(KMI)%K267)) DEALLOCATE(TACCS(KMI)%K267)
-IF (ASSOCIATED(TACCS(KMI)%K268)) DEALLOCATE(TACCS(KMI)%K268)
-IF (ASSOCIATED(TACCS(KMI)%K269)) DEALLOCATE(TACCS(KMI)%K269)
-IF (ASSOCIATED(TACCS(KMI)%K270)) DEALLOCATE(TACCS(KMI)%K270)
-IF (ASSOCIATED(TACCS(KMI)%K271)) DEALLOCATE(TACCS(KMI)%K271)
-IF (ASSOCIATED(TACCS(KMI)%K272)) DEALLOCATE(TACCS(KMI)%K272)
-IF (ASSOCIATED(TACCS(KMI)%K273)) DEALLOCATE(TACCS(KMI)%K273)
-IF (ASSOCIATED(TACCS(KMI)%K274)) DEALLOCATE(TACCS(KMI)%K274)
-IF (ASSOCIATED(TACCS(KMI)%K275)) DEALLOCATE(TACCS(KMI)%K275)
-IF (ASSOCIATED(TACCS(KMI)%K276)) DEALLOCATE(TACCS(KMI)%K276)
-IF (ASSOCIATED(TACCS(KMI)%K277)) DEALLOCATE(TACCS(KMI)%K277)
-IF (ASSOCIATED(TACCS(KMI)%K278)) DEALLOCATE(TACCS(KMI)%K278)
-IF (ASSOCIATED(TACCS(KMI)%K279)) DEALLOCATE(TACCS(KMI)%K279)
-IF (ASSOCIATED(TACCS(KMI)%K280)) DEALLOCATE(TACCS(KMI)%K280)
-IF (ASSOCIATED(TACCS(KMI)%K281)) DEALLOCATE(TACCS(KMI)%K281)
-IF (ASSOCIATED(TACCS(KMI)%K282)) DEALLOCATE(TACCS(KMI)%K282)
-IF (ASSOCIATED(TACCS(KMI)%K283)) DEALLOCATE(TACCS(KMI)%K283)
-IF (ASSOCIATED(TACCS(KMI)%K284)) DEALLOCATE(TACCS(KMI)%K284)
-IF (ASSOCIATED(TACCS(KMI)%K285)) DEALLOCATE(TACCS(KMI)%K285)
-IF (ASSOCIATED(TACCS(KMI)%K286)) DEALLOCATE(TACCS(KMI)%K286)
-IF (ASSOCIATED(TACCS(KMI)%K287)) DEALLOCATE(TACCS(KMI)%K287)
-IF (ASSOCIATED(TACCS(KMI)%K288)) DEALLOCATE(TACCS(KMI)%K288)
-IF (ASSOCIATED(TACCS(KMI)%K289)) DEALLOCATE(TACCS(KMI)%K289)
-IF (ASSOCIATED(TACCS(KMI)%K290)) DEALLOCATE(TACCS(KMI)%K290)
-IF (ASSOCIATED(TACCS(KMI)%K291)) DEALLOCATE(TACCS(KMI)%K291)
-IF (ASSOCIATED(TACCS(KMI)%K292)) DEALLOCATE(TACCS(KMI)%K292)
-IF (ASSOCIATED(TACCS(KMI)%K293)) DEALLOCATE(TACCS(KMI)%K293)
-IF (ASSOCIATED(TACCS(KMI)%K294)) DEALLOCATE(TACCS(KMI)%K294)
-IF (ASSOCIATED(TACCS(KMI)%K295)) DEALLOCATE(TACCS(KMI)%K295)
-IF (ASSOCIATED(TACCS(KMI)%K296)) DEALLOCATE(TACCS(KMI)%K296)
-IF (ASSOCIATED(TACCS(KMI)%K297)) DEALLOCATE(TACCS(KMI)%K297)
-IF (ASSOCIATED(TACCS(KMI)%K298)) DEALLOCATE(TACCS(KMI)%K298)
-IF (ASSOCIATED(TACCS(KMI)%K299)) DEALLOCATE(TACCS(KMI)%K299)
-IF (ASSOCIATED(TACCS(KMI)%K300)) DEALLOCATE(TACCS(KMI)%K300)
-IF (ASSOCIATED(TACCS(KMI)%K301)) DEALLOCATE(TACCS(KMI)%K301)
-IF (ASSOCIATED(TACCS(KMI)%K302)) DEALLOCATE(TACCS(KMI)%K302)
-IF (ASSOCIATED(TACCS(KMI)%K303)) DEALLOCATE(TACCS(KMI)%K303)
-IF (ASSOCIATED(TACCS(KMI)%K304)) DEALLOCATE(TACCS(KMI)%K304)
-IF (ASSOCIATED(TACCS(KMI)%K305)) DEALLOCATE(TACCS(KMI)%K305)
-IF (ASSOCIATED(TACCS(KMI)%K306)) DEALLOCATE(TACCS(KMI)%K306)
-IF (ASSOCIATED(TACCS(KMI)%K307)) DEALLOCATE(TACCS(KMI)%K307)
-IF (ASSOCIATED(TACCS(KMI)%K308)) DEALLOCATE(TACCS(KMI)%K308)
-IF (ASSOCIATED(TACCS(KMI)%K309)) DEALLOCATE(TACCS(KMI)%K309)
-IF (ASSOCIATED(TACCS(KMI)%K310)) DEALLOCATE(TACCS(KMI)%K310)
-IF (ASSOCIATED(TACCS(KMI)%K311)) DEALLOCATE(TACCS(KMI)%K311)
-IF (ASSOCIATED(TACCS(KMI)%K312)) DEALLOCATE(TACCS(KMI)%K312)
-IF (ASSOCIATED(TACCS(KMI)%K313)) DEALLOCATE(TACCS(KMI)%K313)
-IF (ASSOCIATED(TACCS(KMI)%K314)) DEALLOCATE(TACCS(KMI)%K314)
-IF (ASSOCIATED(TACCS(KMI)%K315)) DEALLOCATE(TACCS(KMI)%K315)
-IF (ASSOCIATED(TACCS(KMI)%K316)) DEALLOCATE(TACCS(KMI)%K316)
-IF (ASSOCIATED(TACCS(KMI)%K317)) DEALLOCATE(TACCS(KMI)%K317)
-IF (ASSOCIATED(TACCS(KMI)%K318)) DEALLOCATE(TACCS(KMI)%K318)
-IF (ASSOCIATED(TACCS(KMI)%K319)) DEALLOCATE(TACCS(KMI)%K319)
-IF (ASSOCIATED(TACCS(KMI)%K320)) DEALLOCATE(TACCS(KMI)%K320)
-IF (ASSOCIATED(TACCS(KMI)%K321)) DEALLOCATE(TACCS(KMI)%K321)
-IF (ASSOCIATED(TACCS(KMI)%K322)) DEALLOCATE(TACCS(KMI)%K322)
-IF (ASSOCIATED(TACCS(KMI)%K323)) DEALLOCATE(TACCS(KMI)%K323)
-IF (ASSOCIATED(TACCS(KMI)%K324)) DEALLOCATE(TACCS(KMI)%K324)
-IF (ASSOCIATED(TACCS(KMI)%K325)) DEALLOCATE(TACCS(KMI)%K325)
-IF (ASSOCIATED(TACCS(KMI)%K326)) DEALLOCATE(TACCS(KMI)%K326)
-IF (ASSOCIATED(TACCS(KMI)%K327)) DEALLOCATE(TACCS(KMI)%K327)
-IF (ASSOCIATED(TACCS(KMI)%K328)) DEALLOCATE(TACCS(KMI)%K328)
-IF (ASSOCIATED(TACCS(KMI)%K329)) DEALLOCATE(TACCS(KMI)%K329)
-IF (ASSOCIATED(TACCS(KMI)%K330)) DEALLOCATE(TACCS(KMI)%K330)
-IF (ASSOCIATED(TACCS(KMI)%K331)) DEALLOCATE(TACCS(KMI)%K331)
-IF (ASSOCIATED(TACCS(KMI)%K332)) DEALLOCATE(TACCS(KMI)%K332)
-IF (ASSOCIATED(TACCS(KMI)%K333)) DEALLOCATE(TACCS(KMI)%K333)
-IF (ASSOCIATED(TACCS(KMI)%K334)) DEALLOCATE(TACCS(KMI)%K334)
-IF (ASSOCIATED(TACCS(KMI)%K335)) DEALLOCATE(TACCS(KMI)%K335)
-IF (ASSOCIATED(TACCS(KMI)%K337)) DEALLOCATE(TACCS(KMI)%K337)
-IF (ASSOCIATED(TACCS(KMI)%K338)) DEALLOCATE(TACCS(KMI)%K338)
-IF (ASSOCIATED(TACCS(KMI)%K339)) DEALLOCATE(TACCS(KMI)%K339)
-IF (ASSOCIATED(TACCS(KMI)%K340)) DEALLOCATE(TACCS(KMI)%K340)
-IF (ASSOCIATED(TACCS(KMI)%K341)) DEALLOCATE(TACCS(KMI)%K341)
-IF (ASSOCIATED(TACCS(KMI)%K342)) DEALLOCATE(TACCS(KMI)%K342)
-IF (ASSOCIATED(TACCS(KMI)%K343)) DEALLOCATE(TACCS(KMI)%K343)
-IF (ASSOCIATED(TACCS(KMI)%K344)) DEALLOCATE(TACCS(KMI)%K344)
-IF (ASSOCIATED(TACCS(KMI)%K345)) DEALLOCATE(TACCS(KMI)%K345)
-IF (ASSOCIATED(TACCS(KMI)%K346)) DEALLOCATE(TACCS(KMI)%K346)
-IF (ASSOCIATED(TACCS(KMI)%K347)) DEALLOCATE(TACCS(KMI)%K347)
-IF (ASSOCIATED(TACCS(KMI)%K348)) DEALLOCATE(TACCS(KMI)%K348)
-IF (ASSOCIATED(TACCS(KMI)%K349)) DEALLOCATE(TACCS(KMI)%K349)
-IF (ASSOCIATED(TACCS(KMI)%K350)) DEALLOCATE(TACCS(KMI)%K350)
-IF (ASSOCIATED(TACCS(KMI)%K351)) DEALLOCATE(TACCS(KMI)%K351)
-IF (ASSOCIATED(TACCS(KMI)%K352)) DEALLOCATE(TACCS(KMI)%K352)
-IF (ASSOCIATED(TACCS(KMI)%K353)) DEALLOCATE(TACCS(KMI)%K353)
-IF (ASSOCIATED(TACCS(KMI)%K354)) DEALLOCATE(TACCS(KMI)%K354)
-IF (ASSOCIATED(TACCS(KMI)%K355)) DEALLOCATE(TACCS(KMI)%K355)
-IF (ASSOCIATED(TACCS(KMI)%K356)) DEALLOCATE(TACCS(KMI)%K356)
-IF (ASSOCIATED(TACCS(KMI)%K357)) DEALLOCATE(TACCS(KMI)%K357)
-IF (ASSOCIATED(TACCS(KMI)%K358)) DEALLOCATE(TACCS(KMI)%K358)
-IF (ASSOCIATED(TACCS(KMI)%K359)) DEALLOCATE(TACCS(KMI)%K359)
-IF (ASSOCIATED(TACCS(KMI)%K360)) DEALLOCATE(TACCS(KMI)%K360)
-IF (ASSOCIATED(TACCS(KMI)%K361)) DEALLOCATE(TACCS(KMI)%K361)
-IF (ASSOCIATED(TACCS(KMI)%K362)) DEALLOCATE(TACCS(KMI)%K362)
-IF (ASSOCIATED(TACCS(KMI)%K363)) DEALLOCATE(TACCS(KMI)%K363)
-IF (ASSOCIATED(TACCS(KMI)%K364)) DEALLOCATE(TACCS(KMI)%K364)
-IF (ASSOCIATED(TACCS(KMI)%K365)) DEALLOCATE(TACCS(KMI)%K365)
IF (ASSOCIATED(TACCS(KMI)%KTC1)) DEALLOCATE(TACCS(KMI)%KTC1)
IF (ASSOCIATED(TACCS(KMI)%KTC2)) DEALLOCATE(TACCS(KMI)%KTC2)
IF (ASSOCIATED(TACCS(KMI)%KTC3)) DEALLOCATE(TACCS(KMI)%KTC3)
@@ -5158,28 +2583,6 @@ IF (ASSOCIATED(TACCS(KMI)%KTC37)) DEALLOCATE(TACCS(KMI)%KTC37)
IF (ASSOCIATED(TACCS(KMI)%KTC38)) DEALLOCATE(TACCS(KMI)%KTC38)
IF (ASSOCIATED(TACCS(KMI)%KTC39)) DEALLOCATE(TACCS(KMI)%KTC39)
IF (ASSOCIATED(TACCS(KMI)%KTC40)) DEALLOCATE(TACCS(KMI)%KTC40)
-IF (ASSOCIATED(TACCS(KMI)%KTC41)) DEALLOCATE(TACCS(KMI)%KTC41)
-IF (ASSOCIATED(TACCS(KMI)%KTC42)) DEALLOCATE(TACCS(KMI)%KTC42)
-IF (ASSOCIATED(TACCS(KMI)%KTC43)) DEALLOCATE(TACCS(KMI)%KTC43)
-IF (ASSOCIATED(TACCS(KMI)%KTC44)) DEALLOCATE(TACCS(KMI)%KTC44)
-IF (ASSOCIATED(TACCS(KMI)%KTC45)) DEALLOCATE(TACCS(KMI)%KTC45)
-IF (ASSOCIATED(TACCS(KMI)%KTC46)) DEALLOCATE(TACCS(KMI)%KTC46)
-IF (ASSOCIATED(TACCS(KMI)%KTC47)) DEALLOCATE(TACCS(KMI)%KTC47)
-IF (ASSOCIATED(TACCS(KMI)%KTC48)) DEALLOCATE(TACCS(KMI)%KTC48)
-IF (ASSOCIATED(TACCS(KMI)%KTC49)) DEALLOCATE(TACCS(KMI)%KTC49)
-IF (ASSOCIATED(TACCS(KMI)%KTC50)) DEALLOCATE(TACCS(KMI)%KTC50)
-IF (ASSOCIATED(TACCS(KMI)%KTC51)) DEALLOCATE(TACCS(KMI)%KTC51)
-IF (ASSOCIATED(TACCS(KMI)%KTC52)) DEALLOCATE(TACCS(KMI)%KTC52)
-IF (ASSOCIATED(TACCS(KMI)%KTC53)) DEALLOCATE(TACCS(KMI)%KTC53)
-IF (ASSOCIATED(TACCS(KMI)%KTC54)) DEALLOCATE(TACCS(KMI)%KTC54)
-IF (ASSOCIATED(TACCS(KMI)%KTC55)) DEALLOCATE(TACCS(KMI)%KTC55)
-IF (ASSOCIATED(TACCS(KMI)%KTC56)) DEALLOCATE(TACCS(KMI)%KTC56)
-IF (ASSOCIATED(TACCS(KMI)%KTC57)) DEALLOCATE(TACCS(KMI)%KTC57)
-IF (ASSOCIATED(TACCS(KMI)%KTC58)) DEALLOCATE(TACCS(KMI)%KTC58)
-IF (ASSOCIATED(TACCS(KMI)%KTC59)) DEALLOCATE(TACCS(KMI)%KTC59)
-IF (ASSOCIATED(TACCS(KMI)%KTC60)) DEALLOCATE(TACCS(KMI)%KTC60)
-IF (ASSOCIATED(TACCS(KMI)%KTC61)) DEALLOCATE(TACCS(KMI)%KTC61)
-IF (ASSOCIATED(TACCS(KMI)%KTC62)) DEALLOCATE(TACCS(KMI)%KTC62)
IF (ASSOCIATED(TACCS(KMI)%KTR1)) DEALLOCATE(TACCS(KMI)%KTR1)
IF (ASSOCIATED(TACCS(KMI)%KTR2)) DEALLOCATE(TACCS(KMI)%KTR2)
IF (ASSOCIATED(TACCS(KMI)%KTR3)) DEALLOCATE(TACCS(KMI)%KTR3)
@@ -5220,28 +2623,6 @@ IF (ASSOCIATED(TACCS(KMI)%KTR37)) DEALLOCATE(TACCS(KMI)%KTR37)
IF (ASSOCIATED(TACCS(KMI)%KTR38)) DEALLOCATE(TACCS(KMI)%KTR38)
IF (ASSOCIATED(TACCS(KMI)%KTR39)) DEALLOCATE(TACCS(KMI)%KTR39)
IF (ASSOCIATED(TACCS(KMI)%KTR40)) DEALLOCATE(TACCS(KMI)%KTR40)
-IF (ASSOCIATED(TACCS(KMI)%KTR41)) DEALLOCATE(TACCS(KMI)%KTR41)
-IF (ASSOCIATED(TACCS(KMI)%KTR42)) DEALLOCATE(TACCS(KMI)%KTR42)
-IF (ASSOCIATED(TACCS(KMI)%KTR43)) DEALLOCATE(TACCS(KMI)%KTR43)
-IF (ASSOCIATED(TACCS(KMI)%KTR44)) DEALLOCATE(TACCS(KMI)%KTR44)
-IF (ASSOCIATED(TACCS(KMI)%KTR45)) DEALLOCATE(TACCS(KMI)%KTR45)
-IF (ASSOCIATED(TACCS(KMI)%KTR46)) DEALLOCATE(TACCS(KMI)%KTR46)
-IF (ASSOCIATED(TACCS(KMI)%KTR47)) DEALLOCATE(TACCS(KMI)%KTR47)
-IF (ASSOCIATED(TACCS(KMI)%KTR48)) DEALLOCATE(TACCS(KMI)%KTR48)
-IF (ASSOCIATED(TACCS(KMI)%KTR49)) DEALLOCATE(TACCS(KMI)%KTR49)
-IF (ASSOCIATED(TACCS(KMI)%KTR50)) DEALLOCATE(TACCS(KMI)%KTR50)
-IF (ASSOCIATED(TACCS(KMI)%KTR51)) DEALLOCATE(TACCS(KMI)%KTR51)
-IF (ASSOCIATED(TACCS(KMI)%KTR52)) DEALLOCATE(TACCS(KMI)%KTR52)
-IF (ASSOCIATED(TACCS(KMI)%KTR53)) DEALLOCATE(TACCS(KMI)%KTR53)
-IF (ASSOCIATED(TACCS(KMI)%KTR54)) DEALLOCATE(TACCS(KMI)%KTR54)
-IF (ASSOCIATED(TACCS(KMI)%KTR55)) DEALLOCATE(TACCS(KMI)%KTR55)
-IF (ASSOCIATED(TACCS(KMI)%KTR56)) DEALLOCATE(TACCS(KMI)%KTR56)
-IF (ASSOCIATED(TACCS(KMI)%KTR57)) DEALLOCATE(TACCS(KMI)%KTR57)
-IF (ASSOCIATED(TACCS(KMI)%KTR58)) DEALLOCATE(TACCS(KMI)%KTR58)
-IF (ASSOCIATED(TACCS(KMI)%KTR59)) DEALLOCATE(TACCS(KMI)%KTR59)
-IF (ASSOCIATED(TACCS(KMI)%KTR60)) DEALLOCATE(TACCS(KMI)%KTR60)
-IF (ASSOCIATED(TACCS(KMI)%KTR61)) DEALLOCATE(TACCS(KMI)%KTR61)
-IF (ASSOCIATED(TACCS(KMI)%KTR62)) DEALLOCATE(TACCS(KMI)%KTR62)
IF (ASSOCIATED(TACCS(KMI)%KC1)) DEALLOCATE(TACCS(KMI)%KC1)
IF (ASSOCIATED(TACCS(KMI)%KC2)) DEALLOCATE(TACCS(KMI)%KC2)
IF (ASSOCIATED(TACCS(KMI)%KC3)) DEALLOCATE(TACCS(KMI)%KC3)
@@ -5272,22 +2653,6 @@ IF (ASSOCIATED(TACCS(KMI)%KC27)) DEALLOCATE(TACCS(KMI)%KC27)
IF (ASSOCIATED(TACCS(KMI)%KC28)) DEALLOCATE(TACCS(KMI)%KC28)
IF (ASSOCIATED(TACCS(KMI)%KC29)) DEALLOCATE(TACCS(KMI)%KC29)
IF (ASSOCIATED(TACCS(KMI)%KC30)) DEALLOCATE(TACCS(KMI)%KC30)
-IF (ASSOCIATED(TACCS(KMI)%KC31)) DEALLOCATE(TACCS(KMI)%KC31)
-IF (ASSOCIATED(TACCS(KMI)%KC32)) DEALLOCATE(TACCS(KMI)%KC32)
-IF (ASSOCIATED(TACCS(KMI)%KC33)) DEALLOCATE(TACCS(KMI)%KC33)
-IF (ASSOCIATED(TACCS(KMI)%KC34)) DEALLOCATE(TACCS(KMI)%KC34)
-IF (ASSOCIATED(TACCS(KMI)%KC35)) DEALLOCATE(TACCS(KMI)%KC35)
-IF (ASSOCIATED(TACCS(KMI)%KC36)) DEALLOCATE(TACCS(KMI)%KC36)
-IF (ASSOCIATED(TACCS(KMI)%KC37)) DEALLOCATE(TACCS(KMI)%KC37)
-IF (ASSOCIATED(TACCS(KMI)%KC38)) DEALLOCATE(TACCS(KMI)%KC38)
-IF (ASSOCIATED(TACCS(KMI)%KC39)) DEALLOCATE(TACCS(KMI)%KC39)
-IF (ASSOCIATED(TACCS(KMI)%KC40)) DEALLOCATE(TACCS(KMI)%KC40)
-IF (ASSOCIATED(TACCS(KMI)%KC41)) DEALLOCATE(TACCS(KMI)%KC41)
-IF (ASSOCIATED(TACCS(KMI)%KC42)) DEALLOCATE(TACCS(KMI)%KC42)
-IF (ASSOCIATED(TACCS(KMI)%KC43)) DEALLOCATE(TACCS(KMI)%KC43)
-IF (ASSOCIATED(TACCS(KMI)%KC44)) DEALLOCATE(TACCS(KMI)%KC44)
-IF (ASSOCIATED(TACCS(KMI)%KC45)) DEALLOCATE(TACCS(KMI)%KC45)
-IF (ASSOCIATED(TACCS(KMI)%KC46)) DEALLOCATE(TACCS(KMI)%KC46)
IF (ASSOCIATED(TACCS(KMI)%KR1)) DEALLOCATE(TACCS(KMI)%KR1)
IF (ASSOCIATED(TACCS(KMI)%KR2)) DEALLOCATE(TACCS(KMI)%KR2)
IF (ASSOCIATED(TACCS(KMI)%KR3)) DEALLOCATE(TACCS(KMI)%KR3)
@@ -5318,29 +2683,8 @@ IF (ASSOCIATED(TACCS(KMI)%KR27)) DEALLOCATE(TACCS(KMI)%KR27)
IF (ASSOCIATED(TACCS(KMI)%KR28)) DEALLOCATE(TACCS(KMI)%KR28)
IF (ASSOCIATED(TACCS(KMI)%KR29)) DEALLOCATE(TACCS(KMI)%KR29)
IF (ASSOCIATED(TACCS(KMI)%KR30)) DEALLOCATE(TACCS(KMI)%KR30)
-IF (ASSOCIATED(TACCS(KMI)%KR31)) DEALLOCATE(TACCS(KMI)%KR31)
-IF (ASSOCIATED(TACCS(KMI)%KR32)) DEALLOCATE(TACCS(KMI)%KR32)
-IF (ASSOCIATED(TACCS(KMI)%KR33)) DEALLOCATE(TACCS(KMI)%KR33)
-IF (ASSOCIATED(TACCS(KMI)%KR34)) DEALLOCATE(TACCS(KMI)%KR34)
-IF (ASSOCIATED(TACCS(KMI)%KR35)) DEALLOCATE(TACCS(KMI)%KR35)
-IF (ASSOCIATED(TACCS(KMI)%KR36)) DEALLOCATE(TACCS(KMI)%KR36)
-IF (ASSOCIATED(TACCS(KMI)%KR37)) DEALLOCATE(TACCS(KMI)%KR37)
-IF (ASSOCIATED(TACCS(KMI)%KR38)) DEALLOCATE(TACCS(KMI)%KR38)
-IF (ASSOCIATED(TACCS(KMI)%KR39)) DEALLOCATE(TACCS(KMI)%KR39)
-IF (ASSOCIATED(TACCS(KMI)%KR40)) DEALLOCATE(TACCS(KMI)%KR40)
-IF (ASSOCIATED(TACCS(KMI)%KR41)) DEALLOCATE(TACCS(KMI)%KR41)
-IF (ASSOCIATED(TACCS(KMI)%KR42)) DEALLOCATE(TACCS(KMI)%KR42)
-IF (ASSOCIATED(TACCS(KMI)%KR43)) DEALLOCATE(TACCS(KMI)%KR43)
-IF (ASSOCIATED(TACCS(KMI)%KR44)) DEALLOCATE(TACCS(KMI)%KR44)
-IF (ASSOCIATED(TACCS(KMI)%KR45)) DEALLOCATE(TACCS(KMI)%KR45)
-IF (ASSOCIATED(TACCS(KMI)%KR46)) DEALLOCATE(TACCS(KMI)%KR46)
IF (ASSOCIATED(TACCS(KMI)%NVERB)) DEALLOCATE(TACCS(KMI)%NVERB)
IF (ASSOCIATED(TACCS(KMI)%MODELLEVEL)) DEALLOCATE(TACCS(KMI)%MODELLEVEL)
-IF (ASSOCIATED(TACCS(KMI)%LAT)) DEALLOCATE(TACCS(KMI)%LAT)
-IF (ASSOCIATED(TACCS(KMI)%LON)) DEALLOCATE(TACCS(KMI)%LON)
-IF (ASSOCIATED(TACCS(KMI)%YEAR)) DEALLOCATE(TACCS(KMI)%YEAR)
-IF (ASSOCIATED(TACCS(KMI)%MONTH)) DEALLOCATE(TACCS(KMI)%MONTH)
-IF (ASSOCIATED(TACCS(KMI)%DAY)) DEALLOCATE(TACCS(KMI)%DAY)
IF (ASSOCIATED(TACCS(KMI)%T)) DEALLOCATE(TACCS(KMI)%T)
IF (ASSOCIATED(TACCS(KMI)%PRESSURE)) DEALLOCATE(TACCS(KMI)%PRESSURE)
IF (ASSOCIATED(TACCS(KMI)%M)) DEALLOCATE(TACCS(KMI)%M)
@@ -5351,74 +2695,14 @@ IF (ASSOCIATED(TACCS(KMI)%RHODREF)) DEALLOCATE(TACCS(KMI)%RHODREF)
IF (ASSOCIATED(TACCS(KMI)%O2)) DEALLOCATE(TACCS(KMI)%O2)
IF (ASSOCIATED(TACCS(KMI)%N2)) DEALLOCATE(TACCS(KMI)%N2)
IF (ASSOCIATED(TACCS(KMI)%H2)) DEALLOCATE(TACCS(KMI)%H2)
-IF (ASSOCIATED(TACCS(KMI)%CO2)) DEALLOCATE(TACCS(KMI)%CO2)
-IF (ASSOCIATED(TACCS(KMI)%CH4)) DEALLOCATE(TACCS(KMI)%CH4)
-IF (ASSOCIATED(TACCS(KMI)%O )) DEALLOCATE(TACCS(KMI)%O )
-IF (ASSOCIATED(TACCS(KMI)%OSD )) DEALLOCATE(TACCS(KMI)%OSD )
-IF (ASSOCIATED(TACCS(KMI)%RO22 )) DEALLOCATE(TACCS(KMI)%RO22 )
-IF (ASSOCIATED(TACCS(KMI)%RO23 )) DEALLOCATE(TACCS(KMI)%RO23 )
-IF (ASSOCIATED(TACCS(KMI)%RO24 )) DEALLOCATE(TACCS(KMI)%RO24 )
-IF (ASSOCIATED(TACCS(KMI)%RO26 )) DEALLOCATE(TACCS(KMI)%RO26 )
-IF (ASSOCIATED(TACCS(KMI)%RO27 )) DEALLOCATE(TACCS(KMI)%RO27 )
-IF (ASSOCIATED(TACCS(KMI)%RO28)) DEALLOCATE(TACCS(KMI)%RO28)
-IF (ASSOCIATED(TACCS(KMI)%RO29 )) DEALLOCATE(TACCS(KMI)%RO29 )
-IF (ASSOCIATED(TACCS(KMI)%RO210 )) DEALLOCATE(TACCS(KMI)%RO210 )
-IF (ASSOCIATED(TACCS(KMI)%RO211 )) DEALLOCATE(TACCS(KMI)%RO211 )
-IF (ASSOCIATED(TACCS(KMI)%RO212 )) DEALLOCATE(TACCS(KMI)%RO212 )
-IF (ASSOCIATED(TACCS(KMI)%RO213 )) DEALLOCATE(TACCS(KMI)%RO213 )
-IF (ASSOCIATED(TACCS(KMI)%RO214 )) DEALLOCATE(TACCS(KMI)%RO214 )
-IF (ASSOCIATED(TACCS(KMI)%RO215 )) DEALLOCATE(TACCS(KMI)%RO215 )
-IF (ASSOCIATED(TACCS(KMI)%RO216 )) DEALLOCATE(TACCS(KMI)%RO216 )
-IF (ASSOCIATED(TACCS(KMI)%RO217 )) DEALLOCATE(TACCS(KMI)%RO217 )
-IF (ASSOCIATED(TACCS(KMI)%RO218 )) DEALLOCATE(TACCS(KMI)%RO218 )
-IF (ASSOCIATED(TACCS(KMI)%RO219 )) DEALLOCATE(TACCS(KMI)%RO219 )
-IF (ASSOCIATED(TACCS(KMI)%RO220 )) DEALLOCATE(TACCS(KMI)%RO220 )
-IF (ASSOCIATED(TACCS(KMI)%RO221 )) DEALLOCATE(TACCS(KMI)%RO221 )
-IF (ASSOCIATED(TACCS(KMI)%RO222 )) DEALLOCATE(TACCS(KMI)%RO222 )
-IF (ASSOCIATED(TACCS(KMI)%RO223 )) DEALLOCATE(TACCS(KMI)%RO223 )
-IF (ASSOCIATED(TACCS(KMI)%RO224 )) DEALLOCATE(TACCS(KMI)%RO224 )
-IF (ASSOCIATED(TACCS(KMI)%RO225 )) DEALLOCATE(TACCS(KMI)%RO225 )
-IF (ASSOCIATED(TACCS(KMI)%RO226 )) DEALLOCATE(TACCS(KMI)%RO226 )
-IF (ASSOCIATED(TACCS(KMI)%RO227 )) DEALLOCATE(TACCS(KMI)%RO227 )
-IF (ASSOCIATED(TACCS(KMI)%RO228 )) DEALLOCATE(TACCS(KMI)%RO228 )
-IF (ASSOCIATED(TACCS(KMI)%RO229 )) DEALLOCATE(TACCS(KMI)%RO229 )
-IF (ASSOCIATED(TACCS(KMI)%RO230 )) DEALLOCATE(TACCS(KMI)%RO230 )
-IF (ASSOCIATED(TACCS(KMI)%RO231 )) DEALLOCATE(TACCS(KMI)%RO231 )
-IF (ASSOCIATED(TACCS(KMI)%RO232 )) DEALLOCATE(TACCS(KMI)%RO232 )
-IF (ASSOCIATED(TACCS(KMI)%RO233 )) DEALLOCATE(TACCS(KMI)%RO233 )
-IF (ASSOCIATED(TACCS(KMI)%RO234 )) DEALLOCATE(TACCS(KMI)%RO234 )
-IF (ASSOCIATED(TACCS(KMI)%RO235 )) DEALLOCATE(TACCS(KMI)%RO235 )
-IF (ASSOCIATED(TACCS(KMI)%RO236 )) DEALLOCATE(TACCS(KMI)%RO236 )
-IF (ASSOCIATED(TACCS(KMI)%RO237 )) DEALLOCATE(TACCS(KMI)%RO237 )
-IF (ASSOCIATED(TACCS(KMI)%RO238 )) DEALLOCATE(TACCS(KMI)%RO238 )
-IF (ASSOCIATED(TACCS(KMI)%RO239 )) DEALLOCATE(TACCS(KMI)%RO239 )
-IF (ASSOCIATED(TACCS(KMI)%RO240 )) DEALLOCATE(TACCS(KMI)%RO240 )
-IF (ASSOCIATED(TACCS(KMI)%RO241 )) DEALLOCATE(TACCS(KMI)%RO241 )
-IF (ASSOCIATED(TACCS(KMI)%RO242 )) DEALLOCATE(TACCS(KMI)%RO242 )
-IF (ASSOCIATED(TACCS(KMI)%RO243 )) DEALLOCATE(TACCS(KMI)%RO243 )
-IF (ASSOCIATED(TACCS(KMI)%RO244 )) DEALLOCATE(TACCS(KMI)%RO244 )
-IF (ASSOCIATED(TACCS(KMI)%RO245 )) DEALLOCATE(TACCS(KMI)%RO245 )
-IF (ASSOCIATED(TACCS(KMI)%RO246 )) DEALLOCATE(TACCS(KMI)%RO246 )
-IF (ASSOCIATED(TACCS(KMI)%RO247 )) DEALLOCATE(TACCS(KMI)%RO247 )
-IF (ASSOCIATED(TACCS(KMI)%RO248 )) DEALLOCATE(TACCS(KMI)%RO248 )
-IF (ASSOCIATED(TACCS(KMI)%RO249 )) DEALLOCATE(TACCS(KMI)%RO249 )
-IF (ASSOCIATED(TACCS(KMI)%RO250 )) DEALLOCATE(TACCS(KMI)%RO250 )
-IF (ASSOCIATED(TACCS(KMI)%RO251 )) DEALLOCATE(TACCS(KMI)%RO251 )
-IF (ASSOCIATED(TACCS(KMI)%RO252 )) DEALLOCATE(TACCS(KMI)%RO252 )
-IF (ASSOCIATED(TACCS(KMI)%RO253 )) DEALLOCATE(TACCS(KMI)%RO253 )
-IF (ASSOCIATED(TACCS(KMI)%RO254 )) DEALLOCATE(TACCS(KMI)%RO254 )
-IF (ASSOCIATED(TACCS(KMI)%RO255 )) DEALLOCATE(TACCS(KMI)%RO255 )
-IF (ASSOCIATED(TACCS(KMI)%RO256 )) DEALLOCATE(TACCS(KMI)%RO256 )
-IF (ASSOCIATED(TACCS(KMI)%RO257 )) DEALLOCATE(TACCS(KMI)%RO257 )
-IF (ASSOCIATED(TACCS(KMI)%RO258 )) DEALLOCATE(TACCS(KMI)%RO258 )
-IF (ASSOCIATED(TACCS(KMI)%RAD1 )) DEALLOCATE(TACCS(KMI)%RAD1 )
-IF (ASSOCIATED(TACCS(KMI)%RAD2 )) DEALLOCATE(TACCS(KMI)%RAD2 )
-IF (ASSOCIATED(TACCS(KMI)%RAD3 )) DEALLOCATE(TACCS(KMI)%RAD3 )
-IF (ASSOCIATED(TACCS(KMI)%RAD4 )) DEALLOCATE(TACCS(KMI)%RAD4 )
-IF (ASSOCIATED(TACCS(KMI)%RAD5 )) DEALLOCATE(TACCS(KMI)%RAD5 )
-IF (ASSOCIATED(TACCS(KMI)%RAD6 )) DEALLOCATE(TACCS(KMI)%RAD6 )
-IF (ASSOCIATED(TACCS(KMI)%RAD7 )) DEALLOCATE(TACCS(KMI)%RAD7 )
-IF (ASSOCIATED(TACCS(KMI)%RAD8 )) DEALLOCATE(TACCS(KMI)%RAD8 )
+IF (ASSOCIATED(TACCS(KMI)%OH)) DEALLOCATE(TACCS(KMI)%OH)
+IF (ASSOCIATED(TACCS(KMI)%O1D)) DEALLOCATE(TACCS(KMI)%O1D)
+IF (ASSOCIATED(TACCS(KMI)%O3P)) DEALLOCATE(TACCS(KMI)%O3P)
+IF (ASSOCIATED(TACCS(KMI)%LAT)) DEALLOCATE(TACCS(KMI)%LAT)
+IF (ASSOCIATED(TACCS(KMI)%LON)) DEALLOCATE(TACCS(KMI)%LON)
+IF (ASSOCIATED(TACCS(KMI)%YEAR)) DEALLOCATE(TACCS(KMI)%YEAR)
+IF (ASSOCIATED(TACCS(KMI)%MONTH)) DEALLOCATE(TACCS(KMI)%MONTH)
+IF (ASSOCIATED(TACCS(KMI)%DAY)) DEALLOCATE(TACCS(KMI)%DAY)
IF (ASSOCIATED(TACCS(KMI)%LWC)) DEALLOCATE(TACCS(KMI)%LWC)
IF (ASSOCIATED(TACCS(KMI)%MOL2MOLECCLOUD)) DEALLOCATE(TACCS(KMI)%MOL2MOLECCLOUD)
IF (ASSOCIATED(TACCS(KMI)%RADC)) DEALLOCATE(TACCS(KMI)%RADC)
@@ -5427,81 +2711,9 @@ IF (ASSOCIATED(TACCS(KMI)%LWR)) DEALLOCATE(TACCS(KMI)%LWR)
IF (ASSOCIATED(TACCS(KMI)%MOL2MOLECRAIN)) DEALLOCATE(TACCS(KMI)%MOL2MOLECRAIN)
IF (ASSOCIATED(TACCS(KMI)%RADR)) DEALLOCATE(TACCS(KMI)%RADR)
IF (ASSOCIATED(TACCS(KMI)%PHR)) DEALLOCATE(TACCS(KMI)%PHR)
+IF (ASSOCIATED(TACCS(KMI)%CO2)) DEALLOCATE(TACCS(KMI)%CO2)
IF (ASSOCIATED(TACCS(KMI)%RCH)) DEALLOCATE(TACCS(KMI)%RCH)
IF (ASSOCIATED(TACCS(KMI)%W_O2)) DEALLOCATE(TACCS(KMI)%W_O2)
-IF (ASSOCIATED(TACCS(KMI)%CF1)) DEALLOCATE(TACCS(KMI)%CF1)
-IF (ASSOCIATED(TACCS(KMI)%CF2)) DEALLOCATE(TACCS(KMI)%CF2)
-IF (ASSOCIATED(TACCS(KMI)%CF3)) DEALLOCATE(TACCS(KMI)%CF3)
-IF (ASSOCIATED(TACCS(KMI)%CF4)) DEALLOCATE(TACCS(KMI)%CF4)
-IF (ASSOCIATED(TACCS(KMI)%CF5)) DEALLOCATE(TACCS(KMI)%CF5)
-IF (ASSOCIATED(TACCS(KMI)%CF6)) DEALLOCATE(TACCS(KMI)%CF6)
-IF (ASSOCIATED(TACCS(KMI)%CF7)) DEALLOCATE(TACCS(KMI)%CF7)
-IF (ASSOCIATED(TACCS(KMI)%CF8)) DEALLOCATE(TACCS(KMI)%CF8)
-IF (ASSOCIATED(TACCS(KMI)%CF9)) DEALLOCATE(TACCS(KMI)%CF9)
-IF (ASSOCIATED(TACCS(KMI)%CF10)) DEALLOCATE(TACCS(KMI)%CF10)
-IF (ASSOCIATED(TACCS(KMI)%CF11)) DEALLOCATE(TACCS(KMI)%CF11)
-IF (ASSOCIATED(TACCS(KMI)%CF12)) DEALLOCATE(TACCS(KMI)%CF12)
-IF (ASSOCIATED(TACCS(KMI)%CF13)) DEALLOCATE(TACCS(KMI)%CF13)
-IF (ASSOCIATED(TACCS(KMI)%CF14)) DEALLOCATE(TACCS(KMI)%CF14)
-IF (ASSOCIATED(TACCS(KMI)%CF15)) DEALLOCATE(TACCS(KMI)%CF15)
-IF (ASSOCIATED(TACCS(KMI)%CF16)) DEALLOCATE(TACCS(KMI)%CF16)
-IF (ASSOCIATED(TACCS(KMI)%CF17)) DEALLOCATE(TACCS(KMI)%CF17)
-IF (ASSOCIATED(TACCS(KMI)%CF18)) DEALLOCATE(TACCS(KMI)%CF18)
-IF (ASSOCIATED(TACCS(KMI)%CF19)) DEALLOCATE(TACCS(KMI)%CF19)
-IF (ASSOCIATED(TACCS(KMI)%CF20)) DEALLOCATE(TACCS(KMI)%CF20)
-IF (ASSOCIATED(TACCS(KMI)%CF21)) DEALLOCATE(TACCS(KMI)%CF21)
-IF (ASSOCIATED(TACCS(KMI)%CF22)) DEALLOCATE(TACCS(KMI)%CF22)
-IF (ASSOCIATED(TACCS(KMI)%CF23)) DEALLOCATE(TACCS(KMI)%CF23)
-IF (ASSOCIATED(TACCS(KMI)%CF24)) DEALLOCATE(TACCS(KMI)%CF24)
-IF (ASSOCIATED(TACCS(KMI)%CF25)) DEALLOCATE(TACCS(KMI)%CF25)
-IF (ASSOCIATED(TACCS(KMI)%CF26)) DEALLOCATE(TACCS(KMI)%CF26)
-IF (ASSOCIATED(TACCS(KMI)%CF27)) DEALLOCATE(TACCS(KMI)%CF27)
-IF (ASSOCIATED(TACCS(KMI)%CF28)) DEALLOCATE(TACCS(KMI)%CF28)
-IF (ASSOCIATED(TACCS(KMI)%CF29)) DEALLOCATE(TACCS(KMI)%CF29)
-IF (ASSOCIATED(TACCS(KMI)%CF30)) DEALLOCATE(TACCS(KMI)%CF30)
-IF (ASSOCIATED(TACCS(KMI)%CF31)) DEALLOCATE(TACCS(KMI)%CF31)
-IF (ASSOCIATED(TACCS(KMI)%CF32)) DEALLOCATE(TACCS(KMI)%CF32)
-IF (ASSOCIATED(TACCS(KMI)%CF33)) DEALLOCATE(TACCS(KMI)%CF33)
-IF (ASSOCIATED(TACCS(KMI)%CF34)) DEALLOCATE(TACCS(KMI)%CF34)
-IF (ASSOCIATED(TACCS(KMI)%CF35)) DEALLOCATE(TACCS(KMI)%CF35)
-IF (ASSOCIATED(TACCS(KMI)%CF36)) DEALLOCATE(TACCS(KMI)%CF36)
-IF (ASSOCIATED(TACCS(KMI)%CF37)) DEALLOCATE(TACCS(KMI)%CF37)
-IF (ASSOCIATED(TACCS(KMI)%CF38)) DEALLOCATE(TACCS(KMI)%CF38)
-IF (ASSOCIATED(TACCS(KMI)%CF39)) DEALLOCATE(TACCS(KMI)%CF39)
-IF (ASSOCIATED(TACCS(KMI)%CF40)) DEALLOCATE(TACCS(KMI)%CF40)
-IF (ASSOCIATED(TACCS(KMI)%CF41)) DEALLOCATE(TACCS(KMI)%CF41)
-IF (ASSOCIATED(TACCS(KMI)%CF42)) DEALLOCATE(TACCS(KMI)%CF42)
-IF (ASSOCIATED(TACCS(KMI)%CF43)) DEALLOCATE(TACCS(KMI)%CF43)
-IF (ASSOCIATED(TACCS(KMI)%CF44)) DEALLOCATE(TACCS(KMI)%CF44)
-IF (ASSOCIATED(TACCS(KMI)%CF45)) DEALLOCATE(TACCS(KMI)%CF45)
-IF (ASSOCIATED(TACCS(KMI)%CF46)) DEALLOCATE(TACCS(KMI)%CF46)
-IF (ASSOCIATED(TACCS(KMI)%CF47)) DEALLOCATE(TACCS(KMI)%CF47)
-IF (ASSOCIATED(TACCS(KMI)%CF48)) DEALLOCATE(TACCS(KMI)%CF48)
-IF (ASSOCIATED(TACCS(KMI)%CF49)) DEALLOCATE(TACCS(KMI)%CF49)
-IF (ASSOCIATED(TACCS(KMI)%CFA1)) DEALLOCATE(TACCS(KMI)%CFA1)
-IF (ASSOCIATED(TACCS(KMI)%CFA2)) DEALLOCATE(TACCS(KMI)%CFA2)
-IF (ASSOCIATED(TACCS(KMI)%CFA3)) DEALLOCATE(TACCS(KMI)%CFA3)
-IF (ASSOCIATED(TACCS(KMI)%CFA4)) DEALLOCATE(TACCS(KMI)%CFA4)
-IF (ASSOCIATED(TACCS(KMI)%CFA5)) DEALLOCATE(TACCS(KMI)%CFA5)
-IF (ASSOCIATED(TACCS(KMI)%CFA6)) DEALLOCATE(TACCS(KMI)%CFA6)
-IF (ASSOCIATED(TACCS(KMI)%CFA7)) DEALLOCATE(TACCS(KMI)%CFA7)
-IF (ASSOCIATED(TACCS(KMI)%CFA8)) DEALLOCATE(TACCS(KMI)%CFA8)
-IF (ASSOCIATED(TACCS(KMI)%CFA9)) DEALLOCATE(TACCS(KMI)%CFA9)
-IF (ASSOCIATED(TACCS(KMI)%CFA10)) DEALLOCATE(TACCS(KMI)%CFA10)
-IF (ASSOCIATED(TACCS(KMI)%CFA11)) DEALLOCATE(TACCS(KMI)%CFA11)
-IF (ASSOCIATED(TACCS(KMI)%CFA12)) DEALLOCATE(TACCS(KMI)%CFA12)
-IF (ASSOCIATED(TACCS(KMI)%CFA13)) DEALLOCATE(TACCS(KMI)%CFA13)
-IF (ASSOCIATED(TACCS(KMI)%CFA14)) DEALLOCATE(TACCS(KMI)%CFA14)
-IF (ASSOCIATED(TACCS(KMI)%CFA15)) DEALLOCATE(TACCS(KMI)%CFA15)
-IF (ASSOCIATED(TACCS(KMI)%CFA16)) DEALLOCATE(TACCS(KMI)%CFA16)
-IF (ASSOCIATED(TACCS(KMI)%CFA17)) DEALLOCATE(TACCS(KMI)%CFA17)
-IF (ASSOCIATED(TACCS(KMI)%CFA18)) DEALLOCATE(TACCS(KMI)%CFA18)
-IF (ASSOCIATED(TACCS(KMI)%CFA19)) DEALLOCATE(TACCS(KMI)%CFA19)
-IF (ASSOCIATED(TACCS(KMI)%CFA20)) DEALLOCATE(TACCS(KMI)%CFA20)
-IF (ASSOCIATED(TACCS(KMI)%CFA21)) DEALLOCATE(TACCS(KMI)%CFA21)
-IF (ASSOCIATED(TACCS(KMI)%CFA22)) DEALLOCATE(TACCS(KMI)%CFA22)
-IF (ASSOCIATED(TACCS(KMI)%CFA23)) DEALLOCATE(TACCS(KMI)%CFA23)
-IF (ASSOCIATED(TACCS(KMI)%CFA24)) DEALLOCATE(TACCS(KMI)%CFA24)
END SUBROUTINE CH_DEALLOCATE_TACCS
!
!========================================================================
@@ -5598,167 +2810,97 @@ TACCS(KMI)%NOUT = KOUT
IF (GFIRSTCALL) THEN
GFIRSTCALL = .FALSE.
! initialisation of the names of the chemical species
- CNAMES(1) = 'NO'
- CNAMES(2) = 'NO2'
- CNAMES(3) = 'O3'
- CNAMES(4) = 'HONO'
- CNAMES(5) = 'HNO3'
- CNAMES(6) = 'HNO4'
- CNAMES(7) = 'N2O5'
- CNAMES(8) = 'NO3'
- CNAMES(9) = 'NH3'
- CNAMES(10) = 'HO2'
- CNAMES(11) = 'CO'
- CNAMES(12) = 'H2O2'
- CNAMES(13) = 'SO2'
- CNAMES(14) = 'H2SO4'
- CNAMES(15) = 'OH'
- CNAMES(16) = 'ETHE'
- CNAMES(17) = 'OLEL'
- CNAMES(18) = 'OLEH'
- CNAMES(19) = 'ALKL'
- CNAMES(20) = 'ALKM'
- CNAMES(21) = 'ALKH'
- CNAMES(22) = 'AROH'
- CNAMES(23) = 'AROL'
- CNAMES(24) = 'AROO'
- CNAMES(25) = 'ARAL'
- CNAMES(26) = 'ARAC'
- CNAMES(27) = 'PAH'
- CNAMES(28) = 'HCHO'
- CNAMES(29) = 'ALD2'
- CNAMES(30) = 'KETL'
- CNAMES(31) = 'KETH'
- CNAMES(32) = 'MEOH'
- CNAMES(33) = 'ETOH'
- CNAMES(34) = 'ALCH'
- CNAMES(35) = 'ISOP'
- CNAMES(36) = 'BIOL'
- CNAMES(37) = 'BIOH'
- CNAMES(38) = 'MTBE'
- CNAMES(39) = 'MVK'
- CNAMES(40) = 'MCR'
- CNAMES(41) = 'MGLY'
- CNAMES(42) = 'GLY'
- CNAMES(43) = 'ORA1'
- CNAMES(44) = 'ORA2'
- CNAMES(45) = 'ACID'
- CNAMES(46) = 'UR28'
- CNAMES(47) = 'UR21'
- CNAMES(48) = 'URG2'
- CNAMES(49) = 'UR26'
- CNAMES(50) = 'RPG2'
- CNAMES(51) = 'RP18'
- CNAMES(52) = 'RPG3'
- CNAMES(53) = 'URG4'
- CNAMES(54) = 'UR8'
- CNAMES(55) = 'UR17'
- CNAMES(56) = 'UR7'
- CNAMES(57) = 'RPR3'
- CNAMES(58) = 'URG6'
- CNAMES(59) = 'UR22'
- CNAMES(60) = 'URG7'
- CNAMES(61) = 'RPR4'
- CNAMES(62) = 'RPR7'
- CNAMES(63) = 'RPG7'
- CNAMES(64) = 'URG8'
- CNAMES(65) = 'UR19'
- CNAMES(66) = 'URG9'
- CNAMES(67) = 'AP7'
- CNAMES(68) = 'URG10'
- CNAMES(69) = 'RPR1'
- CNAMES(70) = 'RPR5'
- CNAMES(71) = 'RPR8'
- CNAMES(72) = 'RP10'
- CNAMES(73) = 'RP11'
- CNAMES(74) = 'RP16'
- CNAMES(75) = 'RPRL'
- CNAMES(76) = 'APAN'
- CNAMES(77) = 'PAN1'
- CNAMES(78) = 'PAN2'
- CNAMES(79) = 'PAN3'
- CNAMES(80) = 'PAN4'
- CNAMES(81) = 'PAN6'
- CNAMES(82) = 'PAN7'
- CNAMES(83) = 'PAN8'
- CNAMES(84) = 'PN10'
- CNAMES(85) = 'RO2T'
- CNAMES(86) = 'RO21'
- CNAMES(87) = 'RO25'
- CNAMES(88) = 'WC_O3'
- CNAMES(89) = 'WC_H2O2'
- CNAMES(90) = 'WC_NO'
- CNAMES(91) = 'WC_NO2'
- CNAMES(92) = 'WC_NO3'
- CNAMES(93) = 'WC_N2O5'
- CNAMES(94) = 'WC_HONO'
- CNAMES(95) = 'WC_HNO3'
- CNAMES(96) = 'WC_HNO4'
- CNAMES(97) = 'WC_NH3'
- CNAMES(98) = 'WC_OH'
- CNAMES(99) = 'WC_HO2'
- CNAMES(100) = 'WC_CO2'
- CNAMES(101) = 'WC_SO2'
- CNAMES(102) = 'WC_H2SO4'
- CNAMES(103) = 'WC_RO21'
- CNAMES(104) = 'WC_RO25'
- CNAMES(105) = 'WC_MEOH'
- CNAMES(106) = 'WC_ETOH'
- CNAMES(107) = 'WC_ALCH'
- CNAMES(108) = 'WC_HCHO'
- CNAMES(109) = 'WC_ALD2'
- CNAMES(110) = 'WC_GLY'
- CNAMES(111) = 'WC_MGLY'
- CNAMES(112) = 'WC_KETL'
- CNAMES(113) = 'WC_ORA1'
- CNAMES(114) = 'WC_ORA2'
- CNAMES(115) = 'WC_ACID'
- CNAMES(116) = 'WC_RP16'
- CNAMES(117) = 'WC_UR21'
- CNAMES(118) = 'WC_UR28'
- CNAMES(119) = 'WC_ACID2'
- CNAMES(120) = 'WC_ASO3'
- CNAMES(121) = 'WC_ASO4'
- CNAMES(122) = 'WC_ASO5'
- CNAMES(123) = 'WC_AHSO5'
- CNAMES(124) = 'WC_AHMS'
- CNAMES(125) = 'WR_O3'
- CNAMES(126) = 'WR_H2O2'
- CNAMES(127) = 'WR_NO'
- CNAMES(128) = 'WR_NO2'
- CNAMES(129) = 'WR_NO3'
- CNAMES(130) = 'WR_N2O5'
- CNAMES(131) = 'WR_HONO'
- CNAMES(132) = 'WR_HNO3'
- CNAMES(133) = 'WR_HNO4'
- CNAMES(134) = 'WR_NH3'
- CNAMES(135) = 'WR_OH'
- CNAMES(136) = 'WR_HO2'
- CNAMES(137) = 'WR_CO2'
- CNAMES(138) = 'WR_SO2'
- CNAMES(139) = 'WR_H2SO4'
- CNAMES(140) = 'WR_RO21'
- CNAMES(141) = 'WR_RO25'
- CNAMES(142) = 'WR_MEOH'
- CNAMES(143) = 'WR_ETOH'
- CNAMES(144) = 'WR_ALCH'
- CNAMES(145) = 'WR_HCHO'
- CNAMES(146) = 'WR_ALD2'
- CNAMES(147) = 'WR_GLY'
- CNAMES(148) = 'WR_MGLY'
- CNAMES(149) = 'WR_KETL'
- CNAMES(150) = 'WR_ORA1'
- CNAMES(151) = 'WR_ORA2'
- CNAMES(152) = 'WR_ACID'
- CNAMES(153) = 'WR_RP16'
- CNAMES(154) = 'WR_UR21'
- CNAMES(155) = 'WR_UR28'
- CNAMES(156) = 'WR_ACID2'
- CNAMES(157) = 'WR_ASO3'
- CNAMES(158) = 'WR_ASO4'
- CNAMES(159) = 'WR_ASO5'
- CNAMES(160) = 'WR_AHSO5'
- CNAMES(161) = 'WR_AHMS'
+ CNAMES(1) = 'O3'
+ CNAMES(2) = 'H2O2'
+ CNAMES(3) = 'NO'
+ CNAMES(4) = 'NO2'
+ CNAMES(5) = 'NO3'
+ CNAMES(6) = 'N2O5'
+ CNAMES(7) = 'HONO'
+ CNAMES(8) = 'HNO3'
+ CNAMES(9) = 'HNO4'
+ CNAMES(10) = 'NH3'
+ CNAMES(11) = 'SO2'
+ CNAMES(12) = 'SULF'
+ CNAMES(13) = 'CO'
+ CNAMES(14) = 'OH'
+ CNAMES(15) = 'HO2'
+ CNAMES(16) = 'CH4'
+ CNAMES(17) = 'ETH'
+ CNAMES(18) = 'ALKA'
+ CNAMES(19) = 'ALKE'
+ CNAMES(20) = 'BIO'
+ CNAMES(21) = 'ARO'
+ CNAMES(22) = 'HCHO'
+ CNAMES(23) = 'ALD'
+ CNAMES(24) = 'KET'
+ CNAMES(25) = 'CARBO'
+ CNAMES(26) = 'ONIT'
+ CNAMES(27) = 'PAN'
+ CNAMES(28) = 'OP1'
+ CNAMES(29) = 'OP2'
+ CNAMES(30) = 'ORA1'
+ CNAMES(31) = 'ORA2'
+ CNAMES(32) = 'MO2'
+ CNAMES(33) = 'ALKAP'
+ CNAMES(34) = 'ALKEP'
+ CNAMES(35) = 'BIOP'
+ CNAMES(36) = 'PHO'
+ CNAMES(37) = 'ADD'
+ CNAMES(38) = 'AROP'
+ CNAMES(39) = 'CARBOP'
+ CNAMES(40) = 'OLN'
+ CNAMES(41) = 'XO2'
+ CNAMES(42) = 'WC_O3'
+ CNAMES(43) = 'WC_H2O2'
+ CNAMES(44) = 'WC_NO'
+ CNAMES(45) = 'WC_NO2'
+ CNAMES(46) = 'WC_NO3'
+ CNAMES(47) = 'WC_N2O5'
+ CNAMES(48) = 'WC_HONO'
+ CNAMES(49) = 'WC_HNO3'
+ CNAMES(50) = 'WC_HNO4'
+ CNAMES(51) = 'WC_NH3'
+ CNAMES(52) = 'WC_OH'
+ CNAMES(53) = 'WC_HO2'
+ CNAMES(54) = 'WC_CO2'
+ CNAMES(55) = 'WC_SO2'
+ CNAMES(56) = 'WC_SULF'
+ CNAMES(57) = 'WC_HCHO'
+ CNAMES(58) = 'WC_ORA1'
+ CNAMES(59) = 'WC_ORA2'
+ CNAMES(60) = 'WC_MO2'
+ CNAMES(61) = 'WC_OP1'
+ CNAMES(62) = 'WC_ASO3'
+ CNAMES(63) = 'WC_ASO4'
+ CNAMES(64) = 'WC_ASO5'
+ CNAMES(65) = 'WC_AHSO5'
+ CNAMES(66) = 'WC_AHMS'
+ CNAMES(67) = 'WR_O3'
+ CNAMES(68) = 'WR_H2O2'
+ CNAMES(69) = 'WR_NO'
+ CNAMES(70) = 'WR_NO2'
+ CNAMES(71) = 'WR_NO3'
+ CNAMES(72) = 'WR_N2O5'
+ CNAMES(73) = 'WR_HONO'
+ CNAMES(74) = 'WR_HNO3'
+ CNAMES(75) = 'WR_HNO4'
+ CNAMES(76) = 'WR_NH3'
+ CNAMES(77) = 'WR_OH'
+ CNAMES(78) = 'WR_HO2'
+ CNAMES(79) = 'WR_CO2'
+ CNAMES(80) = 'WR_SO2'
+ CNAMES(81) = 'WR_SULF'
+ CNAMES(82) = 'WR_HCHO'
+ CNAMES(83) = 'WR_ORA1'
+ CNAMES(84) = 'WR_ORA2'
+ CNAMES(85) = 'WR_MO2'
+ CNAMES(86) = 'WR_OP1'
+ CNAMES(87) = 'WR_ASO3'
+ CNAMES(88) = 'WR_ASO4'
+ CNAMES(89) = 'WR_ASO5'
+ CNAMES(90) = 'WR_AHSO5'
+ CNAMES(91) = 'WR_AHMS'
! initialisation of the names of the reactions
CREACS(1) = 'K001'
CREACS(2) = 'K002'
@@ -5777,1605 +2919,829 @@ IF (GFIRSTCALL) THEN
CREACS(15) = 'K015'
CREACS(16) = 'K016'
CREACS(17) = 'K017'
- CREACS(18) = 'K018A'
- CREACS(19) = 'K018B'
- CREACS(20) = 'K019'
- CREACS(21) = 'K020'
- CREACS(22) = 'K021'
- CREACS(23) = 'K022'
- CREACS(24) = 'K023'
- CREACS(25) = 'K024'
- CREACS(26) = 'K025'
- CREACS(27) = 'K026'
- CREACS(28) = 'K027'
- CREACS(29) = 'K028'
- CREACS(30) = 'K029'
- CREACS(31) = 'K030'
- CREACS(32) = 'K031'
- CREACS(33) = 'K032'
- CREACS(34) = 'K033'
- CREACS(35) = 'K034'
- CREACS(36) = 'K035'
- CREACS(37) = 'K036'
- CREACS(38) = 'K037'
- CREACS(39) = 'K038'
- CREACS(40) = 'K039'
- CREACS(41) = 'K040'
- CREACS(42) = 'K041'
- CREACS(43) = 'K042'
- CREACS(44) = 'K043'
- CREACS(45) = 'K044'
- CREACS(46) = 'K045'
- CREACS(47) = 'K046'
- CREACS(48) = 'K047'
- CREACS(49) = 'K048'
- CREACS(50) = 'K049'
- CREACS(51) = 'K050'
- CREACS(52) = 'K051'
- CREACS(53) = 'K052'
- CREACS(54) = 'K053'
- CREACS(55) = 'K054'
- CREACS(56) = 'K055'
- CREACS(57) = 'K056'
- CREACS(58) = 'K057'
- CREACS(59) = 'K058'
- CREACS(60) = 'K059'
- CREACS(61) = 'K060'
- CREACS(62) = 'K061'
- CREACS(63) = 'K062'
- CREACS(64) = 'K063'
- CREACS(65) = 'K064'
- CREACS(66) = 'K065'
- CREACS(67) = 'K066'
- CREACS(68) = 'K067'
- CREACS(69) = 'K068'
- CREACS(70) = 'K069'
- CREACS(71) = 'K070'
- CREACS(72) = 'K071'
- CREACS(73) = 'K072'
- CREACS(74) = 'K073'
- CREACS(75) = 'K074'
- CREACS(76) = 'K075'
- CREACS(77) = 'K076'
- CREACS(78) = 'K077'
- CREACS(79) = 'K078'
- CREACS(80) = 'K079'
- CREACS(81) = 'K080'
- CREACS(82) = 'K081'
- CREACS(83) = 'K082'
- CREACS(84) = 'K083'
- CREACS(85) = 'K084'
- CREACS(86) = 'K085'
- CREACS(87) = 'K086'
- CREACS(88) = 'K087'
- CREACS(89) = 'K088'
- CREACS(90) = 'K089'
- CREACS(91) = 'K090'
- CREACS(92) = 'K091'
- CREACS(93) = 'K092'
- CREACS(94) = 'K093'
- CREACS(95) = 'K094'
- CREACS(96) = 'K095'
- CREACS(97) = 'K096'
- CREACS(98) = 'K097'
- CREACS(99) = 'K098'
- CREACS(100) = 'K099'
- CREACS(101) = 'K100'
- CREACS(102) = 'K101'
- CREACS(103) = 'K102'
- CREACS(104) = 'K103'
- CREACS(105) = 'K104'
- CREACS(106) = 'K105'
- CREACS(107) = 'K106'
- CREACS(108) = 'K107'
- CREACS(109) = 'K108'
- CREACS(110) = 'K109'
- CREACS(111) = 'K110'
- CREACS(112) = 'K111'
- CREACS(113) = 'K112'
- CREACS(114) = 'K113'
- CREACS(115) = 'K114'
- CREACS(116) = 'K115'
- CREACS(117) = 'K116'
- CREACS(118) = 'K117'
- CREACS(119) = 'K118'
- CREACS(120) = 'K119'
- CREACS(121) = 'K120'
- CREACS(122) = 'K121'
- CREACS(123) = 'K122'
- CREACS(124) = 'K123'
- CREACS(125) = 'K124'
- CREACS(126) = 'K125'
- CREACS(127) = 'K126'
- CREACS(128) = 'K127'
- CREACS(129) = 'K128'
- CREACS(130) = 'K129'
- CREACS(131) = 'K130'
- CREACS(132) = 'K131'
- CREACS(133) = 'K132'
- CREACS(134) = 'K133'
- CREACS(135) = 'K134'
- CREACS(136) = 'K135'
- CREACS(137) = 'K136'
- CREACS(138) = 'K137'
- CREACS(139) = 'K138'
- CREACS(140) = 'K139'
- CREACS(141) = 'K140'
- CREACS(142) = 'K141'
- CREACS(143) = 'K142'
- CREACS(144) = 'K143'
- CREACS(145) = 'K144'
- CREACS(146) = 'K145'
- CREACS(147) = 'K146'
- CREACS(148) = 'K147'
- CREACS(149) = 'K148'
- CREACS(150) = 'K149'
- CREACS(151) = 'K150'
- CREACS(152) = 'K151'
- CREACS(153) = 'K152'
- CREACS(154) = 'K153'
- CREACS(155) = 'K154'
- CREACS(156) = 'K155'
- CREACS(157) = 'K156'
- CREACS(158) = 'K157'
- CREACS(159) = 'K158'
- CREACS(160) = 'K159'
- CREACS(161) = 'K160'
- CREACS(162) = 'K161'
- CREACS(163) = 'K162'
- CREACS(164) = 'K163'
- CREACS(165) = 'K164'
- CREACS(166) = 'K165'
- CREACS(167) = 'K166'
- CREACS(168) = 'K167'
- CREACS(169) = 'K168'
- CREACS(170) = 'K169'
- CREACS(171) = 'K170'
- CREACS(172) = 'K171'
- CREACS(173) = 'K172'
- CREACS(174) = 'K173'
- CREACS(175) = 'K174'
- CREACS(176) = 'K175'
- CREACS(177) = 'K176'
- CREACS(178) = 'K177'
- CREACS(179) = 'K178'
- CREACS(180) = 'K179'
- CREACS(181) = 'K180'
- CREACS(182) = 'K181'
- CREACS(183) = 'K182'
- CREACS(184) = 'K183'
- CREACS(185) = 'K184'
- CREACS(186) = 'K185'
- CREACS(187) = 'K186'
- CREACS(188) = 'K187'
- CREACS(189) = 'K188'
- CREACS(190) = 'K189'
- CREACS(191) = 'K190'
- CREACS(192) = 'K191'
- CREACS(193) = 'K192'
- CREACS(194) = 'K193'
- CREACS(195) = 'K194'
- CREACS(196) = 'K195'
- CREACS(197) = 'K196'
- CREACS(198) = 'K197'
- CREACS(199) = 'K198'
- CREACS(200) = 'K199'
- CREACS(201) = 'K200'
- CREACS(202) = 'K201'
- CREACS(203) = 'K202'
- CREACS(204) = 'K203'
- CREACS(205) = 'K204'
- CREACS(206) = 'K205'
- CREACS(207) = 'K206'
- CREACS(208) = 'K207'
- CREACS(209) = 'K208'
- CREACS(210) = 'K209'
- CREACS(211) = 'K210'
- CREACS(212) = 'K211'
- CREACS(213) = 'K212'
- CREACS(214) = 'K213'
- CREACS(215) = 'K214'
- CREACS(216) = 'K215'
- CREACS(217) = 'K216'
- CREACS(218) = 'K217'
- CREACS(219) = 'K218'
- CREACS(220) = 'K219'
- CREACS(221) = 'K220'
- CREACS(222) = 'K221'
- CREACS(223) = 'K222'
- CREACS(224) = 'K223'
- CREACS(225) = 'K224'
- CREACS(226) = 'K225'
- CREACS(227) = 'K226'
- CREACS(228) = 'K227'
- CREACS(229) = 'K228'
- CREACS(230) = 'K229'
- CREACS(231) = 'K230'
- CREACS(232) = 'K231'
- CREACS(233) = 'K232'
- CREACS(234) = 'K233'
- CREACS(235) = 'K234'
- CREACS(236) = 'K235'
- CREACS(237) = 'K236'
- CREACS(238) = 'K237'
- CREACS(239) = 'K238'
- CREACS(240) = 'K239'
- CREACS(241) = 'K240'
- CREACS(242) = 'K241'
- CREACS(243) = 'K242'
- CREACS(244) = 'K243'
- CREACS(245) = 'K244'
- CREACS(246) = 'K245'
- CREACS(247) = 'K246'
- CREACS(248) = 'K247'
- CREACS(249) = 'K248'
- CREACS(250) = 'K249'
- CREACS(251) = 'K250'
- CREACS(252) = 'K251'
- CREACS(253) = 'K252'
- CREACS(254) = 'K253'
- CREACS(255) = 'K254'
- CREACS(256) = 'K255'
- CREACS(257) = 'K256'
- CREACS(258) = 'K257'
- CREACS(259) = 'K258'
- CREACS(260) = 'K259'
- CREACS(261) = 'K260'
- CREACS(262) = 'K261'
- CREACS(263) = 'K262'
- CREACS(264) = 'K263'
- CREACS(265) = 'K264'
- CREACS(266) = 'K265'
- CREACS(267) = 'K266'
- CREACS(268) = 'K267'
- CREACS(269) = 'K268'
- CREACS(270) = 'K269'
- CREACS(271) = 'K270'
- CREACS(272) = 'K271'
- CREACS(273) = 'K272'
- CREACS(274) = 'K273'
- CREACS(275) = 'K274'
- CREACS(276) = 'K275'
- CREACS(277) = 'K276'
- CREACS(278) = 'K277'
- CREACS(279) = 'K278'
- CREACS(280) = 'K279'
- CREACS(281) = 'K280'
- CREACS(282) = 'K281'
- CREACS(283) = 'K282'
- CREACS(284) = 'K283'
- CREACS(285) = 'K284'
- CREACS(286) = 'K285'
- CREACS(287) = 'K286'
- CREACS(288) = 'K287'
- CREACS(289) = 'K288'
- CREACS(290) = 'K289'
- CREACS(291) = 'K290'
- CREACS(292) = 'K291'
- CREACS(293) = 'K292'
- CREACS(294) = 'K293'
- CREACS(295) = 'K294'
- CREACS(296) = 'K295'
- CREACS(297) = 'K296'
- CREACS(298) = 'K297'
- CREACS(299) = 'K298'
- CREACS(300) = 'K299'
- CREACS(301) = 'K300'
- CREACS(302) = 'K301'
- CREACS(303) = 'K302'
- CREACS(304) = 'K303'
- CREACS(305) = 'K304'
- CREACS(306) = 'K305'
- CREACS(307) = 'K306'
- CREACS(308) = 'K307'
- CREACS(309) = 'K308'
- CREACS(310) = 'K309'
- CREACS(311) = 'K310'
- CREACS(312) = 'K311'
- CREACS(313) = 'K312'
- CREACS(314) = 'K313'
- CREACS(315) = 'K314'
- CREACS(316) = 'K315'
- CREACS(317) = 'K316'
- CREACS(318) = 'K317'
- CREACS(319) = 'K318'
- CREACS(320) = 'K319'
- CREACS(321) = 'K320'
- CREACS(322) = 'K321'
- CREACS(323) = 'K322'
- CREACS(324) = 'K323'
- CREACS(325) = 'K324'
- CREACS(326) = 'K325'
- CREACS(327) = 'K326'
- CREACS(328) = 'K327'
- CREACS(329) = 'K328'
- CREACS(330) = 'K329'
- CREACS(331) = 'K330'
- CREACS(332) = 'K331'
- CREACS(333) = 'K332'
- CREACS(334) = 'K333'
- CREACS(335) = 'K334'
- CREACS(336) = 'K335'
- CREACS(337) = 'K337'
- CREACS(338) = 'K338'
- CREACS(339) = 'K339'
- CREACS(340) = 'K340'
- CREACS(341) = 'K341'
- CREACS(342) = 'K342'
- CREACS(343) = 'K343'
- CREACS(344) = 'K344'
- CREACS(345) = 'K345'
- CREACS(346) = 'K346'
- CREACS(347) = 'K347'
- CREACS(348) = 'K348'
- CREACS(349) = 'K349'
- CREACS(350) = 'K350'
- CREACS(351) = 'K351'
- CREACS(352) = 'K352'
- CREACS(353) = 'K353'
- CREACS(354) = 'K354'
- CREACS(355) = 'K355'
- CREACS(356) = 'K356'
- CREACS(357) = 'K357'
- CREACS(358) = 'K358'
- CREACS(359) = 'K359'
- CREACS(360) = 'K360'
- CREACS(361) = 'K361'
- CREACS(362) = 'K362'
- CREACS(363) = 'K363'
- CREACS(364) = 'K364'
- CREACS(365) = 'K365'
- CREACS(366) = 'KTC1'
- CREACS(367) = 'KTC2'
- CREACS(368) = 'KTC3'
- CREACS(369) = 'KTC4'
- CREACS(370) = 'KTC5'
- CREACS(371) = 'KTC6'
- CREACS(372) = 'KTC7'
- CREACS(373) = 'KTC8'
- CREACS(374) = 'KTC9'
- CREACS(375) = 'KTC10'
- CREACS(376) = 'KTC11'
- CREACS(377) = 'KTC12'
- CREACS(378) = 'KTC13'
- CREACS(379) = 'KTC14'
- CREACS(380) = 'KTC15'
- CREACS(381) = 'KTC16'
- CREACS(382) = 'KTC17'
- CREACS(383) = 'KTC18'
- CREACS(384) = 'KTC19'
- CREACS(385) = 'KTC20'
- CREACS(386) = 'KTC21'
- CREACS(387) = 'KTC22'
- CREACS(388) = 'KTC23'
- CREACS(389) = 'KTC24'
- CREACS(390) = 'KTC25'
- CREACS(391) = 'KTC26'
- CREACS(392) = 'KTC27'
- CREACS(393) = 'KTC28'
- CREACS(394) = 'KTC29'
- CREACS(395) = 'KTC30'
- CREACS(396) = 'KTC31'
- CREACS(397) = 'KTC32'
- CREACS(398) = 'KTC33'
- CREACS(399) = 'KTC34'
- CREACS(400) = 'KTC35'
- CREACS(401) = 'KTC36'
- CREACS(402) = 'KTC37'
- CREACS(403) = 'KTC38'
- CREACS(404) = 'KTC39'
- CREACS(405) = 'KTC40'
- CREACS(406) = 'KTC41'
- CREACS(407) = 'KTC42'
- CREACS(408) = 'KTC43'
- CREACS(409) = 'KTC44'
- CREACS(410) = 'KTC45'
- CREACS(411) = 'KTC46'
- CREACS(412) = 'KTC47'
- CREACS(413) = 'KTC48'
- CREACS(414) = 'KTC49'
- CREACS(415) = 'KTC50'
- CREACS(416) = 'KTC51'
- CREACS(417) = 'KTC52'
- CREACS(418) = 'KTC53'
- CREACS(419) = 'KTC54'
- CREACS(420) = 'KTC55'
- CREACS(421) = 'KTC56'
- CREACS(422) = 'KTC57'
- CREACS(423) = 'KTC58'
- CREACS(424) = 'KTC59'
- CREACS(425) = 'KTC60'
- CREACS(426) = 'KTC61'
- CREACS(427) = 'KTC62'
- CREACS(428) = 'KTR1'
- CREACS(429) = 'KTR2'
- CREACS(430) = 'KTR3'
- CREACS(431) = 'KTR4'
- CREACS(432) = 'KTR5'
- CREACS(433) = 'KTR6'
- CREACS(434) = 'KTR7'
- CREACS(435) = 'KTR8'
- CREACS(436) = 'KTR9'
- CREACS(437) = 'KTR10'
- CREACS(438) = 'KTR11'
- CREACS(439) = 'KTR12'
- CREACS(440) = 'KTR13'
- CREACS(441) = 'KTR14'
- CREACS(442) = 'KTR15'
- CREACS(443) = 'KTR16'
- CREACS(444) = 'KTR17'
- CREACS(445) = 'KTR18'
- CREACS(446) = 'KTR19'
- CREACS(447) = 'KTR20'
- CREACS(448) = 'KTR21'
- CREACS(449) = 'KTR22'
- CREACS(450) = 'KTR23'
- CREACS(451) = 'KTR24'
- CREACS(452) = 'KTR25'
- CREACS(453) = 'KTR26'
- CREACS(454) = 'KTR27'
- CREACS(455) = 'KTR28'
- CREACS(456) = 'KTR29'
- CREACS(457) = 'KTR30'
- CREACS(458) = 'KTR31'
- CREACS(459) = 'KTR32'
- CREACS(460) = 'KTR33'
- CREACS(461) = 'KTR34'
- CREACS(462) = 'KTR35'
- CREACS(463) = 'KTR36'
- CREACS(464) = 'KTR37'
- CREACS(465) = 'KTR38'
- CREACS(466) = 'KTR39'
- CREACS(467) = 'KTR40'
- CREACS(468) = 'KTR41'
- CREACS(469) = 'KTR42'
- CREACS(470) = 'KTR43'
- CREACS(471) = 'KTR44'
- CREACS(472) = 'KTR45'
- CREACS(473) = 'KTR46'
- CREACS(474) = 'KTR47'
- CREACS(475) = 'KTR48'
- CREACS(476) = 'KTR49'
- CREACS(477) = 'KTR50'
- CREACS(478) = 'KTR51'
- CREACS(479) = 'KTR52'
- CREACS(480) = 'KTR53'
- CREACS(481) = 'KTR54'
- CREACS(482) = 'KTR55'
- CREACS(483) = 'KTR56'
- CREACS(484) = 'KTR57'
- CREACS(485) = 'KTR58'
- CREACS(486) = 'KTR59'
- CREACS(487) = 'KTR60'
- CREACS(488) = 'KTR61'
- CREACS(489) = 'KTR62'
- CREACS(490) = 'KC1'
- CREACS(491) = 'KC2'
- CREACS(492) = 'KC3'
- CREACS(493) = 'KC4'
- CREACS(494) = 'KC5'
- CREACS(495) = 'KC6'
- CREACS(496) = 'KC7'
- CREACS(497) = 'KC8'
- CREACS(498) = 'KC9'
- CREACS(499) = 'KC10'
- CREACS(500) = 'KC11'
- CREACS(501) = 'KC12'
- CREACS(502) = 'KC13'
- CREACS(503) = 'KC14'
- CREACS(504) = 'KC15'
- CREACS(505) = 'KC16'
- CREACS(506) = 'KC17'
- CREACS(507) = 'KC18'
- CREACS(508) = 'KC19'
- CREACS(509) = 'KC20'
- CREACS(510) = 'KC21'
- CREACS(511) = 'KC22'
- CREACS(512) = 'KC23'
- CREACS(513) = 'KC24'
- CREACS(514) = 'KC25'
- CREACS(515) = 'KC26'
- CREACS(516) = 'KC27'
- CREACS(517) = 'KC28'
- CREACS(518) = 'KC29'
- CREACS(519) = 'KC30'
- CREACS(520) = 'KC31'
- CREACS(521) = 'KC32'
- CREACS(522) = 'KC33'
- CREACS(523) = 'KC34'
- CREACS(524) = 'KC35'
- CREACS(525) = 'KC36'
- CREACS(526) = 'KC37'
- CREACS(527) = 'KC38'
- CREACS(528) = 'KC39'
- CREACS(529) = 'KC40'
- CREACS(530) = 'KC41'
- CREACS(531) = 'KC42'
- CREACS(532) = 'KC43'
- CREACS(533) = 'KC44'
- CREACS(534) = 'KC45'
- CREACS(535) = 'KC46'
- CREACS(536) = 'KR1'
- CREACS(537) = 'KR2'
- CREACS(538) = 'KR3'
- CREACS(539) = 'KR4'
- CREACS(540) = 'KR5'
- CREACS(541) = 'KR6'
- CREACS(542) = 'KR7'
- CREACS(543) = 'KR8'
- CREACS(544) = 'KR9'
- CREACS(545) = 'KR10'
- CREACS(546) = 'KR11'
- CREACS(547) = 'KR12'
- CREACS(548) = 'KR13'
- CREACS(549) = 'KR14'
- CREACS(550) = 'KR15'
- CREACS(551) = 'KR16'
- CREACS(552) = 'KR17'
- CREACS(553) = 'KR18'
- CREACS(554) = 'KR19'
- CREACS(555) = 'KR20'
- CREACS(556) = 'KR21'
- CREACS(557) = 'KR22'
- CREACS(558) = 'KR23'
- CREACS(559) = 'KR24'
- CREACS(560) = 'KR25'
- CREACS(561) = 'KR26'
- CREACS(562) = 'KR27'
- CREACS(563) = 'KR28'
- CREACS(564) = 'KR29'
- CREACS(565) = 'KR30'
- CREACS(566) = 'KR31'
- CREACS(567) = 'KR32'
- CREACS(568) = 'KR33'
- CREACS(569) = 'KR34'
- CREACS(570) = 'KR35'
- CREACS(571) = 'KR36'
- CREACS(572) = 'KR37'
- CREACS(573) = 'KR38'
- CREACS(574) = 'KR39'
- CREACS(575) = 'KR40'
- CREACS(576) = 'KR41'
- CREACS(577) = 'KR42'
- CREACS(578) = 'KR43'
- CREACS(579) = 'KR44'
- CREACS(580) = 'KR45'
- CREACS(581) = 'KR46'
+ CREACS(18) = 'K018'
+ CREACS(19) = 'K019'
+ CREACS(20) = 'K020'
+ CREACS(21) = 'K021'
+ CREACS(22) = 'K022'
+ CREACS(23) = 'K023'
+ CREACS(24) = 'K024'
+ CREACS(25) = 'K025'
+ CREACS(26) = 'K026'
+ CREACS(27) = 'K027'
+ CREACS(28) = 'K028'
+ CREACS(29) = 'K029'
+ CREACS(30) = 'K030'
+ CREACS(31) = 'K031'
+ CREACS(32) = 'K032'
+ CREACS(33) = 'K033'
+ CREACS(34) = 'K034'
+ CREACS(35) = 'K035'
+ CREACS(36) = 'K036'
+ CREACS(37) = 'K037'
+ CREACS(38) = 'K038'
+ CREACS(39) = 'K039'
+ CREACS(40) = 'K040'
+ CREACS(41) = 'K041'
+ CREACS(42) = 'K042'
+ CREACS(43) = 'K043'
+ CREACS(44) = 'K044'
+ CREACS(45) = 'K045'
+ CREACS(46) = 'K046'
+ CREACS(47) = 'K047'
+ CREACS(48) = 'K048'
+ CREACS(49) = 'K049'
+ CREACS(50) = 'K050'
+ CREACS(51) = 'K051'
+ CREACS(52) = 'K052'
+ CREACS(53) = 'K053'
+ CREACS(54) = 'K054'
+ CREACS(55) = 'K055'
+ CREACS(56) = 'K056'
+ CREACS(57) = 'K057'
+ CREACS(58) = 'K058'
+ CREACS(59) = 'K059'
+ CREACS(60) = 'K060'
+ CREACS(61) = 'K061'
+ CREACS(62) = 'K062'
+ CREACS(63) = 'K063'
+ CREACS(64) = 'K064'
+ CREACS(65) = 'K065'
+ CREACS(66) = 'K066'
+ CREACS(67) = 'K067'
+ CREACS(68) = 'K068'
+ CREACS(69) = 'K069'
+ CREACS(70) = 'K070'
+ CREACS(71) = 'K071'
+ CREACS(72) = 'K072'
+ CREACS(73) = 'K073'
+ CREACS(74) = 'K074'
+ CREACS(75) = 'K075'
+ CREACS(76) = 'K076'
+ CREACS(77) = 'K077'
+ CREACS(78) = 'K078'
+ CREACS(79) = 'K079'
+ CREACS(80) = 'K080'
+ CREACS(81) = 'K081'
+ CREACS(82) = 'K082'
+ CREACS(83) = 'K083'
+ CREACS(84) = 'K084'
+ CREACS(85) = 'K085'
+ CREACS(86) = 'K086'
+ CREACS(87) = 'K087'
+ CREACS(88) = 'K088'
+ CREACS(89) = 'K089'
+ CREACS(90) = 'K090'
+ CREACS(91) = 'K091'
+ CREACS(92) = 'K092'
+ CREACS(93) = 'K093'
+ CREACS(94) = 'K094'
+ CREACS(95) = 'K095'
+ CREACS(96) = 'K096'
+ CREACS(97) = 'K097'
+ CREACS(98) = 'K098'
+ CREACS(99) = 'K099'
+ CREACS(100) = 'K0100'
+ CREACS(101) = 'K0101'
+ CREACS(102) = 'K0102'
+ CREACS(103) = 'K103'
+ CREACS(104) = 'K104'
+ CREACS(105) = 'K105'
+ CREACS(106) = 'K106'
+ CREACS(107) = 'K107'
+ CREACS(108) = 'K108'
+ CREACS(109) = 'K109'
+ CREACS(110) = 'K110'
+ CREACS(111) = 'K111'
+ CREACS(112) = 'K112'
+ CREACS(113) = 'K113'
+ CREACS(114) = 'K114'
+ CREACS(115) = 'K115'
+ CREACS(116) = 'K116'
+ CREACS(117) = 'K117'
+ CREACS(118) = 'K118'
+ CREACS(119) = 'K119'
+ CREACS(120) = 'K120'
+ CREACS(121) = 'K121'
+ CREACS(122) = 'K122'
+ CREACS(123) = 'K123'
+ CREACS(124) = 'K124'
+ CREACS(125) = 'K125'
+ CREACS(126) = 'K126'
+ CREACS(127) = 'K127'
+ CREACS(128) = 'K128'
+ CREACS(129) = 'K129'
+ CREACS(130) = 'K130'
+ CREACS(131) = 'K131'
+ CREACS(132) = 'K132'
+ CREACS(133) = 'KTC1'
+ CREACS(134) = 'KTC2'
+ CREACS(135) = 'KTC3'
+ CREACS(136) = 'KTC4'
+ CREACS(137) = 'KTC5'
+ CREACS(138) = 'KTC6'
+ CREACS(139) = 'KTC7'
+ CREACS(140) = 'KTC8'
+ CREACS(141) = 'KTC9'
+ CREACS(142) = 'KTC10'
+ CREACS(143) = 'KTC11'
+ CREACS(144) = 'KTC12'
+ CREACS(145) = 'KTC13'
+ CREACS(146) = 'KTC14'
+ CREACS(147) = 'KTC15'
+ CREACS(148) = 'KTC16'
+ CREACS(149) = 'KTC17'
+ CREACS(150) = 'KTC18'
+ CREACS(151) = 'KTC19'
+ CREACS(152) = 'KTC20'
+ CREACS(153) = 'KTC21'
+ CREACS(154) = 'KTC22'
+ CREACS(155) = 'KTC23'
+ CREACS(156) = 'KTC24'
+ CREACS(157) = 'KTC25'
+ CREACS(158) = 'KTC26'
+ CREACS(159) = 'KTC27'
+ CREACS(160) = 'KTC28'
+ CREACS(161) = 'KTC29'
+ CREACS(162) = 'KTC30'
+ CREACS(163) = 'KTC31'
+ CREACS(164) = 'KTC32'
+ CREACS(165) = 'KTC33'
+ CREACS(166) = 'KTC34'
+ CREACS(167) = 'KTC35'
+ CREACS(168) = 'KTC36'
+ CREACS(169) = 'KTC37'
+ CREACS(170) = 'KTC38'
+ CREACS(171) = 'KTC39'
+ CREACS(172) = 'KTC40'
+ CREACS(173) = 'KTR1'
+ CREACS(174) = 'KTR2'
+ CREACS(175) = 'KTR3'
+ CREACS(176) = 'KTR4'
+ CREACS(177) = 'KTR5'
+ CREACS(178) = 'KTR6'
+ CREACS(179) = 'KTR7'
+ CREACS(180) = 'KTR8'
+ CREACS(181) = 'KTR9'
+ CREACS(182) = 'KTR10'
+ CREACS(183) = 'KTR11'
+ CREACS(184) = 'KTR12'
+ CREACS(185) = 'KTR13'
+ CREACS(186) = 'KTR14'
+ CREACS(187) = 'KTR15'
+ CREACS(188) = 'KTR16'
+ CREACS(189) = 'KTR17'
+ CREACS(190) = 'KTR18'
+ CREACS(191) = 'KTR19'
+ CREACS(192) = 'KTR20'
+ CREACS(193) = 'KTR21'
+ CREACS(194) = 'KTR22'
+ CREACS(195) = 'KTR23'
+ CREACS(196) = 'KTR24'
+ CREACS(197) = 'KTR25'
+ CREACS(198) = 'KTR26'
+ CREACS(199) = 'KTR27'
+ CREACS(200) = 'KTR28'
+ CREACS(201) = 'KTR29'
+ CREACS(202) = 'KTR30'
+ CREACS(203) = 'KTR31'
+ CREACS(204) = 'KTR32'
+ CREACS(205) = 'KTR33'
+ CREACS(206) = 'KTR34'
+ CREACS(207) = 'KTR35'
+ CREACS(208) = 'KTR36'
+ CREACS(209) = 'KTR37'
+ CREACS(210) = 'KTR38'
+ CREACS(211) = 'KTR39'
+ CREACS(212) = 'KTR40'
+ CREACS(213) = 'KC1'
+ CREACS(214) = 'KC2'
+ CREACS(215) = 'KC3'
+ CREACS(216) = 'KC4'
+ CREACS(217) = 'KC5'
+ CREACS(218) = 'KC6'
+ CREACS(219) = 'KC7'
+ CREACS(220) = 'KC8'
+ CREACS(221) = 'KC9'
+ CREACS(222) = 'KC10'
+ CREACS(223) = 'KC11'
+ CREACS(224) = 'KC12'
+ CREACS(225) = 'KC13'
+ CREACS(226) = 'KC14'
+ CREACS(227) = 'KC15'
+ CREACS(228) = 'KC16'
+ CREACS(229) = 'KC17'
+ CREACS(230) = 'KC18'
+ CREACS(231) = 'KC19'
+ CREACS(232) = 'KC20'
+ CREACS(233) = 'KC21'
+ CREACS(234) = 'KC22'
+ CREACS(235) = 'KC23'
+ CREACS(236) = 'KC24'
+ CREACS(237) = 'KC25'
+ CREACS(238) = 'KC26'
+ CREACS(239) = 'KC27'
+ CREACS(240) = 'KC28'
+ CREACS(241) = 'KC29'
+ CREACS(242) = 'KC30'
+ CREACS(243) = 'KR1'
+ CREACS(244) = 'KR2'
+ CREACS(245) = 'KR3'
+ CREACS(246) = 'KR4'
+ CREACS(247) = 'KR5'
+ CREACS(248) = 'KR6'
+ CREACS(249) = 'KR7'
+ CREACS(250) = 'KR8'
+ CREACS(251) = 'KR9'
+ CREACS(252) = 'KR10'
+ CREACS(253) = 'KR11'
+ CREACS(254) = 'KR12'
+ CREACS(255) = 'KR13'
+ CREACS(256) = 'KR14'
+ CREACS(257) = 'KR15'
+ CREACS(258) = 'KR16'
+ CREACS(259) = 'KR17'
+ CREACS(260) = 'KR18'
+ CREACS(261) = 'KR19'
+ CREACS(262) = 'KR20'
+ CREACS(263) = 'KR21'
+ CREACS(264) = 'KR22'
+ CREACS(265) = 'KR23'
+ CREACS(266) = 'KR24'
+ CREACS(267) = 'KR25'
+ CREACS(268) = 'KR26'
+ CREACS(269) = 'KR27'
+ CREACS(270) = 'KR28'
+ CREACS(271) = 'KR29'
+ CREACS(272) = 'KR30'
! initialisation of the full reactions
- CFULLREACS(1) = 'K001=!ZRATES(:,001)::NO2-->NO+O'
- CFULLREACS(2) = 'K002=TPK%M*5.60E-34*(TPK%T/300)**(-2.6)::O+O2-->O3'
- CFULLREACS(3) = 'K003=6.5E-12*EXP(119.8/TPK%T)::O+NO2-->NO+O2'
- CFULLREACS(4) = 'K004=@TROE(1.,9.0E-32,2.,2.2E-11,0.,0.8,TPK%M,TPK%T,KVECNPT):&
-&:O+NO2-->NO3'
- CFULLREACS(5) = 'K005=1.8E-12*EXP(-1368.9/TPK%T)::NO+O3-->NO2+O2'
- CFULLREACS(6) = 'K006=1.4E-13*EXP(-2471.1/TPK%T)::NO2+O3-->NO3+O2'
- CFULLREACS(7) = 'K007=1.8E-11*EXP(110.7/TPK%T)::NO+NO3-->2.*NO2'
- CFULLREACS(8) = 'K008=5.09E-18/TPK%T*EXP(528.4/TPK%T)::NO+NO-->2.*NO2'
- CFULLREACS(9) = 'K009=@TROE(1.,2.8E-30,3.5,2.0E-12,0.2,0.45,TPK%M,TPK%T,KVECNP&
-&T)::NO2+NO3-->N2O5'
- CFULLREACS(10) = 'K010=@TROE_EQUIL(2.8E-30,3.5,2.0E-12,0.2,3.70E+26,11000.0,0.&
-&45,TPK%M,TPK%T,KVECNPT)::N2O5-->NO2+NO3'
- CFULLREACS(11) = 'K011=2.59E-22::N2O5+H2O-->2.*HNO3'
- CFULLREACS(12) = 'K012=4.5E-14*EXP(-1258.2/TPK%T)::NO2+NO3-->NO+NO2+O2'
- CFULLREACS(13) = 'K013=!ZRATES(:,007)::NO3-->NO+O2'
- CFULLREACS(14) = 'K014=!ZRATES(:,008)::NO3-->NO2+O'
- CFULLREACS(15) = 'K015=!ZRATES(:,003)::O3-->O+O2'
- CFULLREACS(16) = 'K016=!ZRATES(:,002)::O3-->OSD+O2'
- CFULLREACS(17) = 'K017=2.2E-10::OSD+H2O-->OH+OH'
- CFULLREACS(18) = 'K018A=1.80E-11*exp(-(-110.0/TPK%T))::OSD+N2-->O+N2'
- CFULLREACS(19) = 'K018B=3.20E-11*exp(-(-70.0/TPK%T))::OSD+O2-->O+O2'
- CFULLREACS(20) = 'K019=@TROE(1.,7.0E-31,2.6,3.6E-11,0.1,0.6,TPK%M,TPK%T,KVECNP&
-&T)::NO+OH-->HONO'
- CFULLREACS(21) = 'K020=!ZRATES(:,004)::HONO-->0.9*NO+0.1*NO2+0.9*OH+0.1*HO2'
- CFULLREACS(22) = 'K021=4.0E-24::NO2+H2O-->0.5*HONO+0.5*HNO3'
- CFULLREACS(23) = 'K022=@TROE(1.,2.85E-30,2.67,3.13E-11,0.,0.6,TPK%M,TPK%T,KVEC&
-&NPT)::NO2+OH-->HNO3'
- CFULLREACS(24) = 'K023=@TROE_KA(7.2E-15,785.1,4.1E-16,1439.4,1.9E-33,724.7,TPK&
-&%M,TPK%T,KVECNPT)::HNO3+OH-->NO3+H2O'
- CFULLREACS(25) = 'K024=@TROE_KB(1.3E-13,0.,3.19E-33,0.,TPK%M,TPK%T,KVECNPT)::C&
-&O+OH-->HO2+CO2'
- CFULLREACS(26) = 'K025=1.9E-12*EXP(-1001.5/TPK%T)::O3+OH-->HO2+O2'
- CFULLREACS(27) = 'K026=3.41E-12*EXP(271.8/TPK%T)::NO+HO2-->NO2+OH'
- CFULLREACS(28) = 'K027=@TROE(1.,1.8E-31,3.2,4.7E-12,0.,0.6,TPK%M,TPK%T,KVECNPT&
-&)::NO2+HO2-->HNO4'
- CFULLREACS(29) = 'K028=@TROE_EQUIL(1.8E-31,3.2,4.7E-12,0.,4.76E+26,10900.,0.6,&
-&TPK%M,TPK%T,KVECNPT)::HNO4-->NO2+HO2'
- CFULLREACS(30) = 'K029=1.5E-12*EXP(362.4/TPK%T)::HNO4+OH-->NO2+O2+H2O'
- CFULLREACS(31) = 'K030=1.4E-14*EXP(-598.9/TPK%T)::O3+HO2-->OH+2.*O2'
- CFULLREACS(32) = 'K031=@TROE_KB(2.2E-13,598.9,1.85E-33,981.4,TPK%M,TPK%T,KVECN&
-&PT)::HO2+HO2-->H2O2'
- CFULLREACS(33) = 'K032=@TROE_KB(3.08E-34,2798.2,2.59E-54,3180.7,TPK%M,TPK%T,KV&
-&ECNPT)::HO2+HO2+H2O-->H2O2+O2+H2O'
- CFULLREACS(34) = 'K033=4.0E-12::NO3+HO2-->0.8*NO2+0.2*HNO3+0.8*OH+O2'
- CFULLREACS(35) = 'K034=8.0E-12*EXP(-2058.4/TPK%T)::O+O3-->2.*O2'
- CFULLREACS(36) = 'K035=@TROE(1.,4.1E-31,3.3,2.0E-12,0.,0.45,TPK%M,TPK%T,KVECNP&
-&T)::SO2+OH-->H2SO4+HO2'
- CFULLREACS(37) = 'K036=!ZRATES(:,009)::H2O2-->2.*OH'
- CFULLREACS(38) = 'K037=2.91E-12*EXP(-161/TPK%T)::H2O2+OH-->HO2+H2O'
- CFULLREACS(39) = 'K038=@TROE(1.,9.00E-32,1.5,3.00E-11,0.0,0.6,TPK%M,TPK%T,KVEC&
-&NPT)::O+NO-->NO2'
- CFULLREACS(40) = 'K039=2.7E-12*EXP(261.7/TPK%T)::HONO+OH-->NO2+H2O'
- CFULLREACS(41) = 'K040=2.0E-11::NO3+OH-->NO2+HO2'
- CFULLREACS(42) = 'K041=8.5E-13*EXP(-2450.9/TPK%T)::NO3+NO3-->2.*NO2+O2'
- CFULLREACS(43) = 'K042=4.8E-11*EXP(251.6/TPK%T)::OH+HO2-->H2O+O2'
- CFULLREACS(44) = 'K043=2.66E-12*EXP(-1800.2/TPK%T)::CH4+OH-->RO21+RO2T+H2O'
- CFULLREACS(45) = 'K044=!ZRATES(:,011)::HCHO-->CO+2.0*HO2'
- CFULLREACS(46) = 'K045=!ZRATES(:,010)::HCHO-->CO+H2'
- CFULLREACS(47) = 'K046=1.2E-14*TPK%T*EXP(286.9/TPK%T)::HCHO+OH-->CO+HO2+H2O'
- CFULLREACS(48) = 'K047=2.0E-12*EXP(-2430.8/TPK%T)::HCHO+NO3-->HNO3+CO+HO2'
- CFULLREACS(49) = 'K048=6.0E-18*TPK%T**2*EXP(170.1/TPK%T)::MEOH+OH-->HO2+HCHO+H&
+ CFULLREACS(1) = 'K001=!ZRATES(:,001)::NO2-->O3P+NO'
+ CFULLREACS(2) = 'K002=!ZRATES(:,002)::O3-->O1D+O2'
+ CFULLREACS(3) = 'K003=!ZRATES(:,003)::O3-->O3P+O2'
+ CFULLREACS(4) = 'K004=!ZRATES(:,004)::HONO-->OH+NO'
+ CFULLREACS(5) = 'K005=!ZRATES(:,005)::HNO3-->OH+NO2'
+ CFULLREACS(6) = 'K006=!ZRATES(:,006)::HNO4-->0.65*HO2+0.65*NO2+0.35*OH+0.35*NO&
+&3'
+ CFULLREACS(7) = 'K007=!ZRATES(:,007)::NO3-->NO+O2'
+ CFULLREACS(8) = 'K008=!ZRATES(:,008)::NO3-->NO2+O3P'
+ CFULLREACS(9) = 'K009=!ZRATES(:,009)::H2O2-->OH+OH'
+ CFULLREACS(10) = 'K010=!ZRATES(:,010)::HCHO-->H2+CO'
+ CFULLREACS(11) = 'K011=!ZRATES(:,011)::HCHO-->HO2+HO2+CO'
+ CFULLREACS(12) = 'K012=!ZRATES(:,012)::ALD-->MO2+HO2+CO'
+ CFULLREACS(13) = 'K013=!ZRATES(:,013)::OP1-->HCHO+HO2+OH'
+ CFULLREACS(14) = 'K014=!ZRATES(:,014)::OP2-->0.96205*ALD+0.96205*HO2+0.03795*M&
+&O2+OH'
+ CFULLREACS(15) = 'K015=!ZRATES(:,015)::KET-->1.00000*CARBOP+1.00000*ALKAP'
+ CFULLREACS(16) = 'K016=!ZRATES(:,016)::CARBO-->0.06517*HCHO+0.69622*CARBOP+0.7&
+&5830*HO2+0.91924*CO+0.20842*H2'
+ CFULLREACS(17) = 'K017=!ZRATES(:,017)::ONIT-->0.20*ALD+0.80*KET+HO2+NO2'
+ CFULLREACS(18) = 'K018=TPK%M*6.00E-34*(TPK%T/300)**(-2.3)::O3P+O2-->O3'
+ CFULLREACS(19) = 'K019=8.00E-12*exp(-(2060.0/TPK%T))::O3P+O3-->2.0*O2'
+ CFULLREACS(20) = 'K020=1.80E-11*exp(-(-110.0/TPK%T))::O1D+N2-->O3P+N2'
+ CFULLREACS(21) = 'K021=3.20E-11*exp(-(-70.0/TPK%T))::O1D+O2-->O3P+O2'
+ CFULLREACS(22) = 'K022=2.20E-10::O1D+H2O-->OH+OH'
+ CFULLREACS(23) = 'K023=1.60E-12*exp(-(940.0/TPK%T))::O3+OH-->HO2+O2'
+ CFULLREACS(24) = 'K024=1.10E-14*exp(-(500.0/TPK%T))::O3+HO2-->OH+2.0*O2'
+ CFULLREACS(25) = 'K025=4.80E-11*exp(-(-250.0/TPK%T))::OH+HO2-->H2O+O2'
+ CFULLREACS(26) = 'K026=2.90E-12*exp(-(160.0/TPK%T))::H2O2+OH-->HO2+H2O'
+ CFULLREACS(27) = 'K027=2.3E-13*EXP(600./TPK%T)+1.7E-33*TPK%M*EXP(1000./TPK%T):&
+&:HO2+HO2-->H2O2+O2'
+ CFULLREACS(28) = 'K028=3.22E-34*EXP(2800./TPK%T)+2.38E-54*TPK%M*EXP(3200./TPK%&
+&T)::HO2+HO2+H2O-->H2O2+H2O+O2'
+ CFULLREACS(29) = 'K029=@TROE(1.,9.00E-32,1.5,3.00E-11,0.0,TPK%M,TPK%T,KVECNPT)&
+&::O3P+NO-->NO2'
+ CFULLREACS(30) = 'K030=6.50E-12*exp(-(-120.0/TPK%T))::O3P+NO2-->NO+O2'
+ CFULLREACS(31) = 'K031=@TROE(1.,9.00E-32,2.0,2.20E-11,0.0,TPK%M,TPK%T,KVECNPT)&
+&::O3P+NO2-->NO3'
+ CFULLREACS(32) = 'K032=@TROE(1.,7.00E-31,2.6,1.50E-11,0.5,TPK%M,TPK%T,KVECNPT)&
+&::OH+NO-->HONO'
+ CFULLREACS(33) = 'K033=@TROE(1.,2.60E-30,3.2,2.40E-11,1.3,TPK%M,TPK%T,KVECNPT)&
+&::OH+NO2-->HNO3'
+ CFULLREACS(34) = 'K034=2.20E-11::OH+NO3-->NO2+HO2'
+ CFULLREACS(35) = 'K035=3.70E-12*exp(-(-250.0/TPK%T))::HO2+NO-->NO2+OH'
+ CFULLREACS(36) = 'K036=@TROE(1.,1.80E-31,3.2,4.70E-12,1.4,TPK%M,TPK%T,KVECNPT)&
+&::HO2+NO2-->HNO4'
+ CFULLREACS(37) = 'K037=@TROE_EQUIL(1.80E-31,3.2,4.70E-12,1.4,4.76E+26,10900.,T&
+&PK%M,TPK%T,KVECNPT)::HNO4-->HO2+NO2'
+ CFULLREACS(38) = 'K038=3.50E-12::HO2+NO3-->0.3*HNO3+0.7*NO2+0.7*OH'
+ CFULLREACS(39) = 'K039=1.80E-11*exp(-(390.0/TPK%T))::OH+HONO-->H2O+NO2'
+ CFULLREACS(40) = 'K040=(7.2E-15*EXP(785/TPK%T))+(1.9E-33*EXP(725/TPK%T)*TPK%M)&
+&/(1+(1.9E-33*EXP(725/TPK%T)*TPK%M)/(4.1E-16*EXP(1440/TPK%T)))::OH+HNO3-->NO3+H&
&2O'
- CFULLREACS(50) = 'K049=1.96E-12*EXP(437.8/TPK%T)::ETHE+OH-->RO22+RO2T'
- CFULLREACS(51) = 'K050=4.89E-18*TPK%T**2*EXP(-2282.3/TPK%T)::ETHE+NO3-->RO23+R&
-&O2T'
- CFULLREACS(52) = 'K051=9.14E-15*EXP(-2580.3/TPK%T)::ETHE+O3-->0.315*CO+0.06*HO&
-&2+0.06*OH+0.5*HCHO+0.07*H2O+0.185*ORA1'
- CFULLREACS(53) = 'K052=7.3E-13::ETHE+O-->0.6*CO+HO2+0.6*RO21+0.4*RO24+RO2T'
- CFULLREACS(54) = 'K053=6.18E-18*TPK%T**2*EXP(532/TPK%T)::ETOH+OH-->TPK%CF1*HO2&
-&+TPK%CF1*ALD2+TPK%CF2*RO22+TPK%CF2*RO2T+H2O'
- CFULLREACS(55) = 'K054=5.86E-12*EXP(500.3/TPK%T)::OLEL+OH-->RO22+RO2T'
- CFULLREACS(56) = 'K055=1.0E-13*EXP(-800.2/TPK%T)::OLEL+NO3-->RO23+RO2T'
- CFULLREACS(57) = 'K056=1.0E-17::OLEL+O3-->0.56*CO+0.2*CO2+0.36*OH+0.28*HO2+0.5&
-&*HCHO+0.5*ALD2+0.1*ALKL+0.28*RO25+0.28*RO2T+0.12*ORA1+0.12*ORA2'
- CFULLREACS(58) = 'K057=4.66E-12::OLEL+O-->0.5*ALKL+0.4*ALD2+0.1*RO24+0.1*RO25+&
-&0.2*RO2T'
- CFULLREACS(59) = 'K058=3.91E-12::ALKL+OH-->RO25+RO2T+H2O'
- CFULLREACS(60) = 'K059=!ZRATES(:,012)::ALD2-->CO+HO2+RO25+RO2T'
- CFULLREACS(61) = 'K060=6.91E-12*EXP(250/TPK%T)::ALD2+OH-->RO26+RO2T+H2O'
- CFULLREACS(62) = 'K061=3.0E-13*EXP(-1427/TPK%T)::ALD2+NO3-->HNO3+RO26+RO2T'
- CFULLREACS(63) = 'K062=4.91E-12::KETL+OH-->RO27+RO2T+H2O'
- CFULLREACS(64) = 'K063=!ZRATES(:,023)::KETL-->RO25+RO28+2.*RO2T'
- CFULLREACS(65) = 'K064=2.55E-11*EXP(410.2/TPK%T)::ISOP+OH-->0.66*RO29+0.34*RO2&
-&10+RO2T'
- CFULLREACS(66) = 'K065=3.02E-12*EXP(-445.9/TPK%T)::ISOP+NO3-->0.66*RO211+0.34*&
-&RO212+RO2T'
- CFULLREACS(67) = 'K066=7.86E-15*EXP(-1912.9/TPK%T)::ISOP+O3-->0.068*CO2+0.461*&
-&CO+0.5*HCHO+0.664*OH+0.366*HO2+0.054*OLEL+0.389*MVK+0.17*MCR+0.271*RO213+0.095&
-&*RO214+0.366*RO2T+0.121*ORA1'
- CFULLREACS(68) = 'K067=3.5E-11::ISOP+O-->0.925*OLEL+0.075*ALD2'
- CFULLREACS(69) = 'K068=3.2E-12::MTBE+OH-->RO215+RO2T+H2O'
- CFULLREACS(70) = 'K069=1.28E-11::ALCH+OH-->RO22+RO2T+H2O'
- CFULLREACS(71) = 'K070=5.1E-12::KETH+OH-->RO216+RO2T+H2O'
- CFULLREACS(72) = 'K071=!ZRATES(:,016)::KETH-->RO25+RO28+2.*RO2T'
- CFULLREACS(73) = 'K072=3.77E-12::AROO+NO3-->HNO3+RAD1'
- CFULLREACS(74) = 'K073=2.264E-10::AROO+OH-->0.16*HO2+0.16*AROO+0.1*RO217+0.1*R&
-&O2T+0.74*RAD2+0.1*H2O'
- CFULLREACS(75) = 'K074=3.47E-11::OLEH+OH-->RO218+RO2T'
- CFULLREACS(76) = 'K075=3.47E-11*1.0E-13*EXP(-800.2/TPK%T)/(5.86E-12*EXP(500.3/&
-&TPK%T))::OLEH+NO3-->RO219+RO2T'
- CFULLREACS(77) = 'K076=3.47E-11*1.0E-17/(5.86E-12*EXP(500.3/TPK%T))::OLEH+O3--&
-&>0.56*CO+0.2*CO2+0.36*OH+0.28*HO2+0.5*HCHO+0.5*RPR1+0.12*ACID+0.1*ALKM+0.28*RO&
-&220+0.28*RO2T'
- CFULLREACS(78) = 'K077=3.47E-11*4.66E-12/(5.86E-12*EXP(500.3/TPK%T))::OLEH+O--&
-&>0.5*ALKM+0.4*RPR1+0.1*RO24+0.1*RO220+0.2*RO2T'
- CFULLREACS(79) = 'K078=1.03E-11::ALKM+OH-->RO220+RO2T+H2O'
- CFULLREACS(80) = 'K079=3.27E-11::AROL+OH-->0.16*HO2+0.16*AROO+0.1*RO221+0.74*R&
-&AD3+0.06*RO2T+0.06*H2O'
- CFULLREACS(81) = 'K080=1.52E-11::AROH+OH-->0.16*HO2+0.16*AROO+0.84*RAD4'
- CFULLREACS(82) = 'K081=1.4E-12*EXP(-1872.2/TPK%T)::ARAL+NO3-->HNO3+O3+ARAC'
- CFULLREACS(83) = 'K082=1.29E-11::ARAL+OH-->0.9983609*RPRL+TPK%CF48*HO2+TPK%CF3&
-&9*O3+TPK%CF39*ARAC+TPK%CF45*RO222+TPK%CF40*RAD5+TPK%CF45*RO2T+TPK%CF48*H2O'
- CFULLREACS(84) = 'K083=1.1E-12::ARAC+OH-->0.16*HO2+0.1599999*URG7+0.1*RO223+0.&
-&74*RAD6+0.1*RO2T+0.1*H2O'
- CFULLREACS(85) = 'K084=1.7E-10::BIOL+OH-->RO224+RO2T'
- CFULLREACS(86) = 'K085=1.46E-11::BIOL+NO3-->RO225+RO2T'
- CFULLREACS(87) = 'K086=2.5E-16::BIOL+O3-->0.445*CO+0.055*H2O2+0.445*HO2+0.89*O&
-&H+5.5000000E-02*URG4+0.055*RPR3+0.445*RO226+0.445*RO2T'
- CFULLREACS(88) = 'K087=1.7E-10*4.66E-12/(5.86E-12*EXP(500.3/TPK%T))::BIOL+O-->&
-&0.7500000*URG10+0.2500000*URG10'
- CFULLREACS(89) = 'K088=1.77E-10::BIOH+OH-->RO227+RO2T'
- CFULLREACS(90) = 'K089=2.91E-11::BIOH+NO3-->RO228+RO2T'
- CFULLREACS(91) = 'K090=1.4E-16::BIOH+O3-->0.445*CO+0.055*H2O2+0.89*OH+0.055*UR&
-&7+0.055*UR8+0.445*RO229+0.445*RO230+0.89*RO2T'
- CFULLREACS(92) = 'K091=8.59E-11::BIOH+O-->'
- CFULLREACS(93) = 'K092=7.7E-11::PAH+OH-->0.16*HO2+0.1600000*URG8+0.1*RO231+0.7&
-&4*RAD7+0.1*RO2T+0.1*H2O'
- CFULLREACS(94) = 'K093=1.97E-11::ALKH+OH-->RO232+RO2T+H2O'
- CFULLREACS(95) = 'K094=3.41E-13*EXP(800.2/TPK%T)::RO2T+HO2-->HO2'
- CFULLREACS(96) = 'K095=4.2E-12*EXP(181.2/TPK%T)::RO2T+NO-->NO'
- CFULLREACS(97) = 'K096=1.0E-15::RO2T+RO2T-->RO2T'
- CFULLREACS(98) = 'K097=0.9*7.7E5/TPK%T::RAD2-->RO233+RO2T'
- CFULLREACS(99) = 'K098=0.9*7.7E5/TPK%T::RAD3-->RO234+RO2T'
- CFULLREACS(100) = 'K099=0.9*7.7E5/TPK%T::RAD4-->RO235+RO2T'
- CFULLREACS(101) = 'K100=0.9*7.7E5/TPK%T::RAD5-->RO236+RO2T'
- CFULLREACS(102) = 'K101=0.9*7.7E5/TPK%T::RAD6-->RO237+RO2T'
- CFULLREACS(103) = 'K102=0.9*7.7E5/TPK%T::RAD7-->RO238+RO2T'
- CFULLREACS(104) = 'K103=1.7*3.0E-11::RAD1+NO2-->RPR4'
- CFULLREACS(105) = 'K104=1.7*3.0E-11::RAD2+NO2-->RPR4+H2O'
- CFULLREACS(106) = 'K105=1.7*3.0E-11::RAD3+NO2-->H2O'
- CFULLREACS(107) = 'K106=1.7*3.0E-11::RAD4+NO2-->H2O'
- CFULLREACS(108) = 'K107=1.7*3.0E-11::RAD5+NO2-->RPR5+H2O'
- CFULLREACS(109) = 'K108=1.7*3.0E-11::RAD6+NO2-->0.9999993*URG7+H2O'
- CFULLREACS(110) = 'K109=1.7*3.0E-11::RAD7+NO2-->1.0000000*URG8+H2O'
- CFULLREACS(111) = 'K110=4.09E-12*EXP(180.2/TPK%T)::RO21+NO-->NO2+HO2+HCHO'
- CFULLREACS(112) = 'K111=1.0E-15::RO21+RO2T-->HO2+HCHO+RO2T+O2'
- CFULLREACS(113) = 'K112=3.41E-13*EXP(800.2/TPK%T)::RO21+HO2-->HO2+OH+HCHO'
- CFULLREACS(114) = 'K113=2.45E-12*EXP(180.2/TPK%T)::RO22+NO-->NO2+HO2+HCHO+ALD2&
-&'
- CFULLREACS(115) = 'K114=1.0E-15::RO22+RO2T-->HO2+HCHO+ALD2+RO2T+O2'
- CFULLREACS(116) = 'K115=3.41E-13*EXP(800.2/TPK%T)::RO22+HO2-->OH+HO2+HCHO+ALD2&
-&'
- CFULLREACS(117) = 'K116=2.45E-12*EXP(180.2/TPK%T)::RO23+NO-->2.*NO2+HCHO+ALD2'
- CFULLREACS(118) = 'K117=1.0E-15::RO23+RO2T-->NO2+HO2+HCHO+ALD2+O2+RO2T'
- CFULLREACS(119) = 'K118=3.41E-13*EXP(800.2/TPK%T)::RO23+HO2-->NO2+HO2+OH+HCHO+&
-&ALD2'
- CFULLREACS(120) = 'K119=3.45E-12*EXP(180.2/TPK%T)::RO24+NO-->NO2+CO+HO2+HCHO'
- CFULLREACS(121) = 'K120=1.0E-15::RO24+RO2T-->CO+HO2+HCHO+RO2T+O2'
- CFULLREACS(122) = 'K121=3.41E-13*EXP(800.2/TPK%T)::RO24+HO2-->CO+HO2+OH+HCHO'
- CFULLREACS(123) = 'K122=2.91E-12*EXP(180.2/TPK%T)::RO25+NO-->TPK%CF3*ALKL+TPK%&
-&CF4*NO2+TPK%CF4*HO2+TPK%CF4*ALD2'
- CFULLREACS(124) = 'K123=1.0E-15::RO25+RO2T-->HO2+ALD2+RO2T+O2'
- CFULLREACS(125) = 'K124=3.41E-13*EXP(800.2/TPK%T)::RO25+HO2-->HO2+OH+ALD2'
- CFULLREACS(126) = 'K125=1.11E-11*EXP(180.2/TPK%T)::RO26+NO-->NO2+CO2+RO25+RO2T&
-&'
- CFULLREACS(127) = 'K126=@TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECN&
-&PT)::RO26+NO2-->PAN1'
- CFULLREACS(128) = 'K127=@TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECN&
-&PT)::RO28+NO2-->PAN2'
- CFULLREACS(129) = 'K128=@TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECN&
-&PT)::RO239+NO2-->PAN3'
- CFULLREACS(130) = 'K129=@TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECN&
-&PT)::RO248+NO2-->PAN4'
- CFULLREACS(131) = 'K130=@TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECN&
-&PT)::RO250+NO2-->APAN'
- CFULLREACS(132) = 'K131=@TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECN&
-&PT)::RO254+NO2-->PAN6'
- CFULLREACS(133) = 'K132=@TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECN&
-&PT)::RO255+NO2-->PAN7'
- CFULLREACS(134) = 'K133=@TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECN&
-&PT)::RO257+NO2-->APAN'
- CFULLREACS(135) = 'K134=@TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECN&
-&PT)::RO258+NO2-->PN10'
- CFULLREACS(136) = 'K135=@TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.&
-&6,TPK%M,TPK%T,KVECNPT)::PAN1-->NO2+RO26+RO2T'
- CFULLREACS(137) = 'K136=@TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.&
-&6,TPK%M,TPK%T,KVECNPT)::PAN2-->NO2+RO28+RO2T'
- CFULLREACS(138) = 'K137=@TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.&
-&6,TPK%M,TPK%T,KVECNPT)::PAN3-->NO2+RO239+RO2T'
- CFULLREACS(139) = 'K138=@TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.&
-&6,TPK%M,TPK%T,KVECNPT)::PN10-->NO2+RO258+RO2T'
- CFULLREACS(140) = 'K139=@TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.&
-&6,TPK%M,TPK%T,KVECNPT)::APAN-->1.0000000*NO2+0.3750353*RO250+0.6249651*RO257+1&
-&.0000000*RO2T'
- CFULLREACS(141) = 'K140=@TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.&
-&6,TPK%M,TPK%T,KVECNPT)::PAN6-->NO2+RO254+RO2T'
- CFULLREACS(142) = 'K141=@TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.&
-&6,TPK%M,TPK%T,KVECNPT)::PAN4-->NO2+RO248+RO2T'
- CFULLREACS(143) = 'K142=3.41E-13*EXP(800.2/TPK%T)/3.5::RO26+HO2-->O3+ACID+ORA2&
+ CFULLREACS(41) = 'K041=1.30E-12*exp(-(-380.0/TPK%T))::OH+HNO4-->NO2+H2O+O2'
+ CFULLREACS(42) = 'K042=2.00E-12*exp(-(1400.0/TPK%T))::O3+NO-->NO2+O2'
+ CFULLREACS(43) = 'K043=1.20E-13*exp(-(2450.0/TPK%T))::O3+NO2-->NO3+O2'
+ CFULLREACS(44) = 'K044=3.30E-39*exp(-(-530.0/TPK%T))::NO+NO+O2-->NO2+NO2'
+ CFULLREACS(45) = 'K045=1.50E-11*exp(-(-170.0/TPK%T))::NO3+NO-->NO2+NO2'
+ CFULLREACS(46) = 'K046=4.50E-14*exp(-(1260.0/TPK%T))::NO3+NO2-->NO+NO2+O2'
+ CFULLREACS(47) = 'K047=@TROE(1.,2.20E-30,3.9,1.50E-12,0.7,TPK%M,TPK%T,KVECNPT)&
+&::NO3+NO2-->N2O5'
+ CFULLREACS(48) = 'K048=@TROE_EQUIL(2.20E-30,3.9,1.50E-12,0.7,3.70E+26,11000.0,&
+&TPK%M,TPK%T,KVECNPT)::N2O5-->NO2+NO3'
+ CFULLREACS(49) = 'K049=8.50E-13*exp(-(2450.0/TPK%T))::NO3+NO3-->NO2+NO2+O2'
+ CFULLREACS(50) = 'K050=3.30E-12*exp(-(900.0/TPK%T))::NH3+OH-->'
+ CFULLREACS(51) = 'K051=5.50E-12*exp(-(2000.0/TPK%T))::OH+H2-->H2O+HO2'
+ CFULLREACS(52) = 'K052=@TROE(1.,3.00E-31,3.3,1.50E-12,0.0,TPK%M,TPK%T,KVECNPT)&
+&::OH+SO2-->SULF+HO2'
+ CFULLREACS(53) = 'K053=1.5E-13*(1.+2.439E-20*TPK%M)::CO+OH-->HO2+CO2'
+ CFULLREACS(54) = 'K054=6.00E-11::BIO+O3P-->0.91868*ALKE+0.05*HCHO+0.02*OH+0.01&
+&*CO+0.13255*CARBO+0.28*HO2+0.15*XO2'
+ CFULLREACS(55) = 'K055=0.00E-01*exp(-(-13.0/TPK%T))::CARBO+O3P-->ALD'
+ CFULLREACS(56) = 'K056=TPK%T*TPK%T*7.44E-18*exp(-(1361./TPK%T))::CH4+OH-->MO2+&
+&H2O'
+ CFULLREACS(57) = 'K057=1.51E-17*TPK%T*TPK%T*exp(-(492./TPK%T))::ETH+OH-->ALKAP&
&'
- CFULLREACS(144) = 'K143=1.0E-15::RO26+RO2T-->CO2+RO25+2.*RO2T+O2'
- CFULLREACS(145) = 'K144=2.45E-12*EXP(180.2/TPK%T)::RO27+NO-->NO2+ALD2+RO28+RO2&
-&T'
- CFULLREACS(146) = 'K145=1.0E-15::RO27+RO2T-->ALD2+RO28+2.*RO2T+O2'
- CFULLREACS(147) = 'K146=3.41E-13*EXP(800.2/TPK%T)::RO27+HO2-->OH+ALD2+RO28+RO2&
-&T'
- CFULLREACS(148) = 'K147=1.11E-11*EXP(180.2/TPK%T)::RO28+NO-->NO2+CO2+RO21+RO2T&
-&'
- CFULLREACS(149) = 'K148=3.41E-13*EXP(800.2/TPK%T)/3.5::RO28+HO2-->O3+ORA2'
- CFULLREACS(150) = 'K149=1.0E-15::RO28+RO2T-->CO2+RO21+2.*RO2T+O2'
- CFULLREACS(151) = 'K150=2.08E-12*EXP(180.2/TPK%T)::RO29+NO-->TPK%CF5*OLEL+TPK%&
-&CF6*NO2+TPK%CF6*HO2+TPK%CF6*HCHO+TPK%CF6*MVK'
- CFULLREACS(152) = 'K151=1.0E-15::RO29+RO2T-->HO2+MVK+HCHO+RO2T+O2'
- CFULLREACS(153) = 'K152=3.41E-13*EXP(800.2/TPK%T)::RO29+HO2-->HO2+OH+MVK+HCHO'
- CFULLREACS(154) = 'K153=2.08E-12*EXP(180.2/TPK%T)::RO210+NO-->NO2+HO2+HCHO+MCR&
-&'
- CFULLREACS(155) = 'K154=1.0E-15::RO210+RO2T-->HO2+HCHO+MCR+RO2T+O2'
- CFULLREACS(156) = 'K155=3.41E-13*EXP(800.2/TPK%T)::RO210+HO2-->HO2+OH+HCHO+MCR&
-&'
- CFULLREACS(157) = 'K156=2.08E-12*EXP(180.2/TPK%T)::RO211+NO-->2.*NO2+HCHO+MVK'
- CFULLREACS(158) = 'K157=1.0E-15::RO211+RO2T-->NO2+HCHO+MVK+RO2T+O2'
- CFULLREACS(159) = 'K158=3.41E-13*EXP(800.2/TPK%T)::RO211+HO2-->NO2+OH+HCHO+MVK&
-&'
- CFULLREACS(160) = 'K159=2.08E-12*EXP(180.2/TPK%T)::RO212+NO-->2.*NO2+HCHO+MCR'
- CFULLREACS(161) = 'K160=1.0E-15::RO212+RO2T-->NO2+HCHO+MCR+RO2T+O2'
- CFULLREACS(162) = 'K161=3.41E-13*EXP(800.2/TPK%T)::RO212+HO2-->NO2+OH+HCHO+MCR&
-&'
- CFULLREACS(163) = 'K162=2.45E-12*EXP(180.2/TPK%T)::RO213+NO-->NO2+HCHO+RO239+R&
-&O2T'
- CFULLREACS(164) = 'K163=1.0E-15::RO213+RO2T-->HCHO+RO239+2.*RO2T+O2'
- CFULLREACS(165) = 'K164=3.41E-13*EXP(800.2/TPK%T)::RO213+HO2-->HCHO+OH+RO239+R&
-&O2T'
- CFULLREACS(166) = 'K165=1.11E-11*EXP(180.2/TPK%T)::RO239+NO-->NO2+CO2+RO214+RO&
-&2T'
- CFULLREACS(167) = 'K166=3.41E-13*EXP(800.2/TPK%T)/3.5::RO239+HO2-->O3+0.5*OLEL&
-&+0.5*ORA2'
- CFULLREACS(168) = 'K167=1.0E-15::RO239+RO2T-->CO2+RO214+2.*RO2T+O2'
- CFULLREACS(169) = 'K168=2.91E-12*EXP(180.2/TPK%T)::RO214+NO-->TPK%CF7*OLEL+TPK&
-&%CF8*NO2+TPK%CF8*RO27+TPK%CF8*RO2T'
- CFULLREACS(170) = 'K169=1.0E-15::RO214+RO2T-->RO27+2.*RO2T+O2'
- CFULLREACS(171) = 'K170=3.41E-13*EXP(800.2/TPK%T)::RO214+HO2-->OH+RO27+RO2T'
- CFULLREACS(172) = 'K171=2.08E-12*EXP(180.2/TPK%T)::RO215+NO-->NO2+HO2+TPK%CF9*&
-&ALD2+TPK%CF10*HCHO+TPK%CF11*KETL+TPK%CF12*ALKL'
- CFULLREACS(173) = 'K172=1.0E-15::RO215+RO2T-->HO2+TPK%CF13*ALD2+TPK%CF14*HCHO+&
-&TPK%CF15*KETL+TPK%CF16*ALKL+RO2T+O2'
- CFULLREACS(174) = 'K173=3.41E-13*EXP(800.2/TPK%T)::RO215+HO2-->OH+HO2+TPK%CF13&
-&*ALD2+TPK%CF14*HCHO+TPK%CF15*KETL+TPK%CF16*ALKL'
- CFULLREACS(175) = 'K174=1.48E-12*EXP(180.2/TPK%T)::RO216+NO-->NO2+ALD2+RO28+RO&
-&2T'
- CFULLREACS(176) = 'K175=1.0E-15::RO216+RO2T-->ALD2+RO28+2.*RO2T+O2'
- CFULLREACS(177) = 'K176=3.41E-13*EXP(800.2/TPK%T)::RO216+HO2-->OH+ALD2+RO28+RO&
-&2T'
- CFULLREACS(178) = 'K177=1.25E-12*EXP(180.2/TPK%T)::RO217+NO-->TPK%CF21*URG6+TP&
-&K%CF22*NO2+TPK%CF22*HO2+TPK%CFA2*RPRL'
- CFULLREACS(179) = 'K178=1.0E-15::RO217+RO2T-->HO2+0.9983609*RPRL+RO2T+O2'
- CFULLREACS(180) = 'K179=3.41E-13*EXP(800.2/TPK%T)::RO217+HO2-->HO2+OH+0.998360&
-&9*RPRL'
- CFULLREACS(181) = 'K180=1.25E-12*EXP(180.2/TPK%T)::RO218+NO-->TPK%CF20*NO2+TPK&
-&%CF20*HO2'
- CFULLREACS(182) = 'K181=1.0E-15::RO218+RO2T-->HO2+RO2T+O2'
- CFULLREACS(183) = 'K182=3.41E-13*EXP(800.2/TPK%T)::RO218+HO2-->HO2+OH'
- CFULLREACS(184) = 'K183=1.05E-12*EXP(180.2/TPK%T)::RO219+NO-->2.*NO2+HCHO+RPR1&
-&'
- CFULLREACS(185) = 'K184=1.0E-15::RO219+RO2T-->NO2+HCHO+RPR1+RO2T+O2'
- CFULLREACS(186) = 'K185=3.41E-13*EXP(800.2/TPK%T)::RO219+HO2-->NO2+OH+HCHO+RPR&
-&1'
- CFULLREACS(187) = 'K186=1.25E-12*EXP(180.2/TPK%T)::RO220+NO-->TPK%CF18*NO2+TPK&
-&%CF18*RO218+TPK%CF18*RO2T'
- CFULLREACS(188) = 'K187=1.0E-15::RO220+RO2T-->RO218+2.*RO2T+O2'
- CFULLREACS(189) = 'K188=3.41E-13*EXP(800.2/TPK%T)::RO220+HO2-->OH+RO218+RO2T'
- CFULLREACS(190) = 'K189=1.05E-12*EXP(180.2/TPK%T)::RO221+NO-->TPK%CF24*NO2+TPK&
-&%CF24*HO2+TPK%CF24*ARAL'
- CFULLREACS(191) = 'K190=1.0E-15::RO221+RO2T-->HO2+ARAL+RO2T+O2'
- CFULLREACS(192) = 'K191=3.41E-13*EXP(800.2/TPK%T)::RO221+HO2-->HO2+OH+ARAL'
- CFULLREACS(193) = 'K192=1.25E-12*EXP(180.2/TPK%T)::RO222+NO-->TPK%CF42*NO2+TPK&
-&%CF42*HO2+TPK%CFA7*RPRL'
- CFULLREACS(194) = 'K193=1.0E-15::RO222+RO2T-->HO2+0.9983609*RPRL+RO2T+O2'
- CFULLREACS(195) = 'K194=3.41E-13*EXP(800.2/TPK%T)::RO222+HO2-->HO2+OH+0.998360&
-&9*RPRL'
- CFULLREACS(196) = 'K195=1.25E-12*EXP(180.2/TPK%T)::RO223+NO-->TPK%CF43*URG6+TP&
-&K%CF44*NO2+TPK%CF44*HO2+TPK%CF44*RPR7'
- CFULLREACS(197) = 'K196=1.0E-15::RO223+RO2T-->HO2+RPR7+RO2T+O2'
- CFULLREACS(198) = 'K197=3.41E-13*EXP(800.2/TPK%T)::RO223+HO2-->HO2+OH+RPR7'
- CFULLREACS(199) = 'K198=8.89E-13*EXP(180.2/TPK%T)::RO224+NO-->TPK%CFA23*AP7+TP&
-&K%CFA10*RPR3+TPK%CF26*NO2+TPK%CF26*HO2'
- CFULLREACS(200) = 'K199=1.0E-15::RO224+RO2T-->HO2+RPR3+RO2T+O2'
- CFULLREACS(201) = 'K200=3.41E-13*EXP(800.2/TPK%T)::RO224+HO2-->HO2+OH+RPR3'
- CFULLREACS(202) = 'K201=8.89E-13*EXP(180.2/TPK%T)::RO225+NO-->2.*NO2+RPR3'
- CFULLREACS(203) = 'K202=1.0E-15::RO225+RO2T-->NO2+RPR3+RO2T+O2'
- CFULLREACS(204) = 'K203=3.41E-13*EXP(800.2/TPK%T)::RO225+HO2-->NO2+OH+RPR3'
- CFULLREACS(205) = 'K204=8.89E-13*EXP(180.2/TPK%T)::RO226+NO-->NO2+1.0000000*UR&
-&17+RO28+RO2T'
- CFULLREACS(206) = 'K205=1.0E-15::RO226+RO2T-->1.0000000*UR17+RO28+2.*RO2T+O2'
- CFULLREACS(207) = 'K206=3.41E-13*EXP(800.2/TPK%T)::RO226+HO2-->1.0000000*UR17+&
-&OH+RO28+RO2T'
- CFULLREACS(208) = 'K207=8.89E-13*EXP(180.2/TPK%T)::RO227+NO-->TPK%CF27*URG10+T&
-&PK%CF28*NO2+TPK%CF28*HO2+TPK%CFA12*UR7'
- CFULLREACS(209) = 'K208=1.0E-15::RO227+RO2T-->HO2+UR7+RO2T+O2'
- CFULLREACS(210) = 'K209=3.41E-13*EXP(800.2/TPK%T)::RO227+HO2-->HO2+OH+0.3*UR7'
- CFULLREACS(211) = 'K210=8.89E-13*EXP(180.2/TPK%T)::RO228+NO-->2.*NO2+0.3*UR7'
- CFULLREACS(212) = 'K211=1.0E-15::RO228+RO2T-->NO2+0.3*UR7+RO2T+O2'
- CFULLREACS(213) = 'K212=3.41E-13*EXP(800.2/TPK%T)::RO228+HO2-->NO2+OH+0.3*UR7'
- CFULLREACS(214) = 'K213=1.05E-12*EXP(180.2/TPK%T)::RO229+NO-->TPK%CF30*NO2+TPK&
-&%CF30*RO240+TPK%CF30*RO2T'
- CFULLREACS(215) = 'K214=1.0E-15::RO229+RO2T-->RO240+2.*RO2T+O2'
- CFULLREACS(216) = 'K215=3.41E-13*EXP(800.2/TPK%T)::RO229+HO2-->OH+RO240+RO2T'
- CFULLREACS(217) = 'K216=1.05E-12*EXP(180.2/TPK%T)::RO240+NO-->NO2+RPR8+RO28+RO&
-&2T'
- CFULLREACS(218) = 'K217=1.0E-15::RO240+RO2T-->RPR8+RO28+2.*RO2T+O2'
- CFULLREACS(219) = 'K218=3.41E-13*EXP(800.2/TPK%T)::RO240+HO2-->OH+RPR8+RO28+RO&
-&2T'
- CFULLREACS(220) = 'K219=1.0E-15::RO230+RO2T-->RO28+2.*RO2T+O2'
- CFULLREACS(221) = 'K220=3.41E-13*EXP(800.2/TPK%T)::RO230+HO2-->OH+RO28+RO2T'
- CFULLREACS(222) = 'K221=6.32E-13*EXP(180.2/TPK%T)::RO231+NO-->TPK%CF31*URG8+TP&
-&K%CF32*NO2+TPK%CF32*HO2+TPK%CF32*UR19'
- CFULLREACS(223) = 'K222=1.0E-15::RO231+RO2T-->HO2+UR19+RO2T+O2'
- CFULLREACS(224) = 'K223=3.41E-13*EXP(800.2/TPK%T)::RO231+HO2-->HO2+OH+UR19'
- CFULLREACS(225) = 'K224=3.2E-13*EXP(180.2/TPK%T)::RO232+NO-->TPK%CFA14*URG9+TP&
-&K%CF34*NO2+TPK%CF34*RO241+TPK%CF34*RO2T'
- CFULLREACS(226) = 'K225=1.0E-15::RO232+RO2T-->RO241+2.*RO2T+O2'
- CFULLREACS(227) = 'K226=3.41E-13*EXP(800.2/TPK%T)::RO232+HO2-->OH+RO241+RO2T'
- CFULLREACS(228) = 'K227=3.2E-13*EXP(180.2/TPK%T)::RO241+NO-->TPK%CFA15*URG9+TP&
-&K%CF36*NO2+TPK%CF36*HO2+TPK%CFA16*URG9'
- CFULLREACS(229) = 'K228=1.0E-15::RO241+RO2T-->HO2+0.9999996*URG9+RO2T+O2'
- CFULLREACS(230) = 'K229=3.41E-13*EXP(800.2/TPK%T)::RO241+HO2-->HO2+OH+0.999999&
-&6*URG9'
- CFULLREACS(231) = 'K230=1.2*1.64E+42/(TPK%T**11.4)*EXP(-9460/TPK%T)::RO233-->R&
-&O242+RO2T'
- CFULLREACS(232) = 'K231=1.25E-12*EXP(180.2/TPK%T)::RO233+NO-->NO2+HO2+0.300000&
-&0*RPG3'
- CFULLREACS(233) = 'K232=1.0E-15::RO233+RO2T-->HO2+1.0000000*RPG3+RO2T+O2'
- CFULLREACS(234) = 'K233=3.41E-13*EXP(800.2/TPK%T)::RO233+HO2-->HO2+OH+0.300000&
-&0*RPG3'
- CFULLREACS(235) = 'K234=1.25E-12*EXP(180.2/TPK%T)::RO242+NO-->NO2+HO2+RP10+MGL&
-&Y'
- CFULLREACS(236) = 'K235=1.0E-15::RO242+RO2T-->HO2+RP10+O2+RO2T+MGLY'
- CFULLREACS(237) = 'K236=3.41E-13*EXP(800.2/TPK%T)::RO242+HO2-->HO2+OH+RP10+MGL&
-&Y'
- CFULLREACS(238) = 'K237=1.2*1.64E+42/(TPK%T**11.4)*EXP(-9460/TPK%T)::RO234-->R&
-&O243+RO2T'
- CFULLREACS(239) = 'K238=1.05E-12*EXP(180.2/TPK%T)::RO234+NO-->NO2+HO2+0.3*RP11&
-&'
- CFULLREACS(240) = 'K239=1.0E-15::RO234+RO2T-->HO2+RP11+RO2T+O2'
- CFULLREACS(241) = 'K240=3.41E-13*EXP(800.2/TPK%T)::RO234+HO2-->HO2+OH+0.3*RP11&
-&'
- CFULLREACS(242) = 'K241=1.05E-12*EXP(180.2/TPK%T)::RO243+NO-->NO2+HO2+RP10+MGL&
-&Y'
- CFULLREACS(243) = 'K242=1.0E-15::RO243+RO2T-->HO2+RP10+MGLY+O2+RO2T'
- CFULLREACS(244) = 'K243=3.41E-13*EXP(800.2/TPK%T)::RO243+HO2-->HO2+OH+RP10+MGL&
-&Y'
- CFULLREACS(245) = 'K244=1.1*1.64E+42/(TPK%T**11.4)*EXP(-9460/TPK%T)::RO235-->R&
-&O244+RO2T'
- CFULLREACS(246) = 'K245=8.89E-13*EXP(180.2/TPK%T)::RO235+NO-->NO2+HO2+0.5*RP11&
-&'
- CFULLREACS(247) = 'K246=1.0E-15::RO235+RO2T-->HO2+RP11+RO2T+O2'
- CFULLREACS(248) = 'K247=3.41E-13*EXP(800.2/TPK%T)::RO235+HO2-->HO2+OH+RP11'
- CFULLREACS(249) = 'K248=8.89E-13*EXP(180.2/TPK%T)::RO244+NO-->NO2+HO2+RP10+MGL&
-&Y'
- CFULLREACS(250) = 'K249=1.0E-15::RO244+RO2T-->HO2+RP10+MGLY+O2+RO2T'
- CFULLREACS(251) = 'K250=3.41E-13*EXP(800.2/TPK%T)::RO244+HO2-->HO2+OH+RP10+MGL&
-&Y'
- CFULLREACS(252) = 'K251=1.2*1.64E+42/(TPK%T**11.4)*EXP(-9460/TPK%T)::RO236-->R&
-&O245+RO2T'
- CFULLREACS(253) = 'K252=1.25E-12*EXP(180.2/TPK%T)::RO236+NO-->NO2+HO2+0.300000&
-&0*RPG3'
- CFULLREACS(254) = 'K253=1.0E-15::RO236+RO2T-->HO2+1.0000000*RPG3+RO2T+O2'
- CFULLREACS(255) = 'K254=3.41E-13*EXP(800.2/TPK%T)::RO236+HO2-->HO2+OH+0.300000&
-&0*RPG3'
- CFULLREACS(256) = 'K255=1.25E-12*EXP(180.2/TPK%T)::RO245+NO-->NO2+HO2+RP10+MGL&
-&Y'
- CFULLREACS(257) = 'K256=1.0E-15::RO245+RO2T-->HO2+RP10+MGLY+O2+RO2T'
- CFULLREACS(258) = 'K257=3.41E-13*EXP(800.2/TPK%T)::RO245+HO2-->HO2+OH+RP10+MGL&
-&Y'
- CFULLREACS(259) = 'K258=1.2*1.64E+42/(TPK%T**11.4)*EXP(-9460/TPK%T)::RO237-->R&
-&O246+RO2T'
- CFULLREACS(260) = 'K259=1.25E-12*EXP(180.2/TPK%T)::RO237+NO-->NO2+HO2+0.300000&
-&0*RPG2'
- CFULLREACS(261) = 'K260=1.0E-15::RO237+RO2T-->HO2+1.0000000*RPG2+RO2T+O2'
- CFULLREACS(262) = 'K261=3.41E-13*EXP(800.2/TPK%T)::RO237+HO2-->HO2+OH+0.300000&
-&0*RPG2'
- CFULLREACS(263) = 'K262=1.25E-12*EXP(180.2/TPK%T)::RO246+NO-->NO2+HO2+RP10+MGL&
-&Y'
- CFULLREACS(264) = 'K263=1.0E-15::RO246+RO2T-->HO2+RP10+MGLY+O2+RO2T'
- CFULLREACS(265) = 'K264=3.41E-13*EXP(800.2/TPK%T)::RO246+HO2-->HO2+OH+RP10+MGL&
-&Y'
- CFULLREACS(266) = 'K265=1.2*1.64E+42/(TPK%T**11.4)*EXP(-9460/TPK%T)::RO238-->R&
-&O247+RO2T'
- CFULLREACS(267) = 'K266=6.32E-13*EXP(180.2/TPK%T)::RO238+NO-->NO2+HO2+1.000001&
-&3*RPG7'
- CFULLREACS(268) = 'K267=1.0E-15::RO238+RO2T-->HO2+1.0000013*RPG7+RO2T+O2'
- CFULLREACS(269) = 'K268=3.41E-13*EXP(800.2/TPK%T)::RO238+HO2-->HO2+OH+1.000001&
-&3*RPG7'
- CFULLREACS(270) = 'K269=6.32E-13*EXP(180.2/TPK%T)::RO247+NO-->NO2+HO2+1.002399&
-&8*RPRL+MGLY'
- CFULLREACS(271) = 'K270=1.0E-15::RO247+RO2T-->HO2+1.0023998*RPRL+MGLY+O2+RO2T'
- CFULLREACS(272) = 'K271=3.41E-13*EXP(800.2/TPK%T)::RO247+HO2-->HO2+OH+1.002399&
-&8*RPRL+MGLY'
- CFULLREACS(273) = 'K272=4.14E-12*EXP(452.9/TPK%T)::MVK+OH-->RO249+RO2T'
- CFULLREACS(274) = 'K273=1.86E-11*EXP(176.1/TPK%T)::MCR+OH-->TPK%CF46*RO250+TPK&
-&%CF46*H2O+TPK%CF47*RO251+RO2T'
- CFULLREACS(275) = 'K274=1.72E-11::MGLY+OH-->RO248+RO2T+H2O'
- CFULLREACS(276) = 'K275=1.5E-12*EXP(-1726.2/TPK%T)::MCR+NO3-->TPK%CF46*HNO3+TP&
-&K%CF46*RO250+TPK%CF47*RO252+RO2T'
- CFULLREACS(277) = 'K276=!ZRATES(:,019)::MGLY-->CO+HO2+RO28+RO2T'
- CFULLREACS(278) = 'K277=1.11E-11*EXP(180.2/TPK%T)::RO248+NO-->NO2+CO2+RO28+RO2&
-&T'
- CFULLREACS(279) = 'K278=1.4E-12*EXP(-1897.3/TPK%T)::MGLY+NO3-->HNO3+RO248+RO2T&
-&'
- CFULLREACS(280) = 'K279=3.41E-13*EXP(800.2/TPK%T)/3.5::RO248+HO2-->O3+UR21'
- CFULLREACS(281) = 'K280=1.0E-15::RO248+RO2T-->CO2+RO28+2.*RO2T+O2'
- CFULLREACS(282) = 'K281=7.5E-16*EXP(-1519.9/TPK%T)::MVK+O3-->0.56*CO+0.2*CO2+0&
-&.28*HO2+0.36*OH+0.5*MGLY+0.5*HCHO+0.1*ALD2+0.12*ORA1+0.12*UR21+0.28*RO28+0.28*&
-&RO2T+0.2*H2O'
- CFULLREACS(283) = 'K282=1.36E-15*EXP(-2113.7/TPK%T)::MCR+O3-->0.41*CO+0.41*HO2&
-&+0.82*OH+0.5*HCHO+0.59*MGLY+0.09*ORA1+0.41*RO253+0.41*RO2T'
- CFULLREACS(284) = 'K283=4.32E-12::MVK+O-->0.85*KETL+0.15*RO24+0.15*RO28+0.3*RO&
-&2T'
- CFULLREACS(285) = 'K284=6.34E-12::MCR+O-->0.15*CO+0.15*HO2+0.85*ALD2+0.15*RO27&
-&+0.15*RO2T'
- CFULLREACS(286) = 'K285=2.45E-12*EXP(180.2/TPK%T)::RO249+NO-->NO2+HO2+MGLY+HCH&
-&O'
- CFULLREACS(287) = 'K286=1.0E-15::RO249+RO2T-->HO2+MGLY+HCHO+RO2T+O2'
- CFULLREACS(288) = 'K287=3.41E-13*EXP(800.2/TPK%T)::RO249+HO2-->HO2+OH+MGLY+HCH&
-&O'
- CFULLREACS(289) = 'K288=1.11E-11*EXP(180.2/TPK%T)::RO250+NO-->CO2+NO2+RO214+RO&
-&2T'
- CFULLREACS(290) = 'K289=3.41E-13*EXP(800.2/TPK%T)/3.5::RO250+HO2-->O3+0.5*ORA2&
-&+0.5*OLEL'
- CFULLREACS(291) = 'K290=1.0E-15::RO250+RO2T-->CO2+RO214+2.*RO2T+O2'
- CFULLREACS(292) = 'K291=2.45E-12*EXP(180.2/TPK%T)::RO251+NO-->NO2+HO2+HCHO+MGL&
-&Y'
- CFULLREACS(293) = 'K292=3.41E-13*EXP(800.2/TPK%T)::RO251+HO2-->HO2+HCHO+MGLY+R&
-&O2T+O2'
- CFULLREACS(294) = 'K293=1.0E-15::RO251+RO2T-->HO2+OH+MGLY+HCHO'
- CFULLREACS(295) = 'K294=2.45E-12*EXP(180.2/TPK%T)::RO252+NO-->2.*NO2+MGLY+HCHO&
+ CFULLREACS(58) = 'K058=3.76E-12*exp(-(260.0/TPK%T))+1.70E-12*exp(-(155.0/TPK%T&
+&))+1.21E-12*exp(-(125.0/TPK%T))::ALKA+OH-->0.87811*ALKAP+0.12793*HO2+0.08173*A&
+&LD+0.03498*KET+0.00835*CARBO+0.00140*HCHO+0.00878*ORA1+0.00878*CO+0.00878*OH+H&
+&2O'
+ CFULLREACS(59) = 'K059=1.78E-12*exp(-(-438.0/TPK%T))+6.07E-13*exp(-(-500.0/TPK&
+&%T))+0.00E-01*exp(-(-448.0/TPK%T))::ALKE+OH-->1.02529*ALKEP+0.00000*BIOP'
+ CFULLREACS(60) = 'K060=2.54E-11*exp(-(-410.0/TPK%T))+0.00E-01*exp(-(-444.0/TPK&
+&%T))+0.00E-01::BIO+OH-->1.00000*BIOP'
+ CFULLREACS(61) = 'K061=3.31E-12*exp(-(-355.0/TPK%T))+3.45E-13::ARO+OH-->0.9396&
+&8*ADD+0.10318*XO2+0.10318*HO2+0.00276*PHO'
+ CFULLREACS(62) = 'K062=1.00E-11::HCHO+OH-->HO2+CO+H2O'
+ CFULLREACS(63) = 'K063=5.55E-12*exp(-(-331.0/TPK%T))::ALD+OH-->1.00000*CARBOP+&
+&H2O'
+ CFULLREACS(64) = 'K064=TPK%T*TPK%T*5.68E-18*exp(-(-92.0/TPK%T))::KET+OH-->1.00&
+&000*CARBOP+H2O'
+ CFULLREACS(65) = 'K065=1.32E-11+1.88E-12*exp(-(-175.0/TPK%T))::CARBO+OH-->0.51&
+&419*CARBOP+0.16919*CARBO+1.01732*CO+0.51208*HO2+0.00000*HCHO+0.06253*ALD+0.008&
+&53*KET+0.10162*XO2+0.75196*H2O'
+ CFULLREACS(66) = 'K066=4.50E-13::ORA1+OH-->HO2+CO2+H2O'
+ CFULLREACS(67) = 'K067=6.00E-13::ORA2+OH-->'
+ CFULLREACS(68) = 'K068=2.93E-12*exp(-(-190.0/TPK%T))::OP1+OH-->0.65*MO2+0.35*H&
+&CHO+0.35*OH'
+ CFULLREACS(69) = 'K069=3.36E-12*exp(-(-190.0/TPK%T))::OP2+OH-->0.40341*ALKAP+0&
+&.05413*CARBOP+0.07335*ALD+0.37591*KET+0.09333*XO2+0.02915*HO2+0.02915*HCHO+0.4&
+&4925*OH'
+ CFULLREACS(70) = 'K070=3.80E-14+1.59E-14*exp(-(-500.0/TPK%T))::PAN+OH-->0.5783&
+&9*HCHO+0.21863*CARBO+0.71893*NO3+0.28107*PAN+0.28107*HO2+0.29733*H2O+XO2'
+ CFULLREACS(71) = 'K071=5.31E-12*exp(-(260.0/TPK%T))::ONIT+OH-->1.00000*ALKAP+N&
+&O2+H2O'
+ CFULLREACS(72) = 'K072=3.40E-13*exp(-(1900.0/TPK%T))::HCHO+NO3-->HO2+HNO3+CO'
+ CFULLREACS(73) = 'K073=1.40E-12*exp(-(1900.0/TPK%T))::ALD+NO3-->1.00000*CARBOP&
+&+HNO3'
+ CFULLREACS(74) = 'K074=1.62E-12*exp(-(1900.0/TPK%T))+0.00E-01*exp(-(150.0/TPK%&
+&T))+1.94E-14*exp(-(1000.0/TPK%T))::CARBO+NO3-->0.91567*HNO3+0.38881*CARBOP+0.1&
+&0530*CARBO+0.05265*ALD+0.00632*KET+0.10530*NO2+0.10530*XO2+0.63217*HO2+1.33723&
+&*CO+0.00000*OLN'
+ CFULLREACS(75) = 'K075=4.92E-16::ARO+NO3-->HNO3+PHO'
+ CFULLREACS(76) = 'K076=4.35E-18*TPK%T*TPK%T*exp(-(2282.0/TPK%T))+1.91E-14*exp(&
+&-(450.0/TPK%T))+1.08E-15*exp(-(-450.0/TPK%T))+0.00E-01::ALKE+NO3-->0.00000*CAR&
+&BO+0.93768*OLN'
+ CFULLREACS(77) = 'K077=4.00E-12*exp(-(446.0/TPK%T))+0.00E-01*exp(-(-490.0/TPK%&
+&T))+0.00E-01::BIO+NO3-->0.91741*CARBO+1.00000*OLN'
+ CFULLREACS(78) = 'K078=3.76E-16*exp(-(500.0/TPK%T))::PAN+NO3-->0.60*ONIT+0.60*&
+&NO3+0.40000*PAN+0.40*HCHO+0.40*NO2+XO2'
+ CFULLREACS(79) = 'K079=8.17E-15*exp(-(2580.0/TPK%T))+4.32E-16*exp(-(1800.0/TPK&
+&%T))+2.87E-17*exp(-(845.0/TPK%T))+0.00E-01*exp(-(2283.0/TPK%T))::ALKE+O3-->0.4&
+&8290*HCHO+0.51468*ALD+0.07377*KET+0.00000*CARBO+0.35120*CO+0.15343*ORA1+0.0814&
+&3*ORA2+0.23451*HO2+0.39435*OH+0.05705*CARBOP+0.03196*ETH+0.00000*ALKE+0.04300*&
+&CH4+0.13966*MO2+0.09815*ALKAP+0.01833*H2O2+0.00000*XO2+0.05409*H2+0.00000*O3P'
+ CFULLREACS(80) = 'K080=7.86E-15*exp(-(1913.0/TPK%T))+0.00E-01*exp(-(732.0/TPK%&
+&T))+0.00E-01::BIO+O3-->0.90000*HCHO+0.00000*ALD+0.00000*KET+0.39754*CARBO+0.36&
+&000*CO+0.37388*ALKE+0.00000*ALKAP+0.17000*CARBOP+0.03000*MO2+0.15000*ORA1+0.00&
+&000*ORA2+0.28000*OH+0.30000*HO2+0.00100*H2O2+0.05000*H2+0.13000*XO2+0.09000*O3&
+&P'
+ CFULLREACS(81) = 'K081=0.00E-01*exp(-(2112.0/TPK%T))+1.38E-19::CARBO+O3-->0.00&
+&000*HCHO+1.07583*CARBO+0.15692*ALD+0.10788*ORA1+0.20595*ORA2+0.27460*CARBOP+0.&
+&10149*OP2+0.64728*CO+0.28441*HO2+0.20595*OH+0.00000*H2'
+ CFULLREACS(82) = 'K082=7.20E-17*exp(-(1700.0/TPK%T))::PAN+O3-->0.70*HCHO+0.300&
+&00*PAN+0.70*NO2+0.13*CO+0.04*H2+0.11*ORA1+0.08*HO2+0.036*OH+0.70000*CARBOP'
+ CFULLREACS(83) = 'K083=2.00E-11::PHO+NO2-->0.10670*ARO+ONIT'
+ CFULLREACS(84) = 'K084=1.00E-11::PHO+HO2-->1.06698*ARO'
+ CFULLREACS(85) = 'K085=3.60E-11::ADD+NO2-->ARO+HONO'
+ CFULLREACS(86) = 'K086=1.66E-17*exp(-(-1044.0/TPK%T))::ADD+O2-->0.98*AROP+0.02&
+&*ARO+0.02*HO2'
+ CFULLREACS(87) = 'K087=2.80E-11::ADD+O3-->ARO+OH'
+ CFULLREACS(88) = 'K088=@TROE(5.86E-01,9.70E-29,5.6,9.30E-12,1.5,TPK%M,TPK%T,KV&
+&ECNPT)::CARBOP+NO2-->1.00000*PAN'
+ CFULLREACS(89) = 'K089=@TROE_EQUIL(9.70E-29,5.6,9.30E-12,1.5,1.16E+28,13954.,T&
+&PK%M,TPK%T,KVECNPT)::PAN-->1.00000*CARBOP+NO2'
+ CFULLREACS(90) = 'K090=4.20E-12*exp(-(-180.0/TPK%T))::MO2+NO-->HCHO+HO2+NO2'
+ CFULLREACS(91) = 'K091=4.36E-12::ALKAP+NO-->0.33144*ALD+0.03002*HCHO+0.54531*K&
+&ET+0.03407*CARBO+0.74265*HO2+0.09016*MO2+0.08187*ALKAP+0.13007*XO2+0.08459*ONI&
+&T+0.91541*NO2'
+ CFULLREACS(92) = 'K092=6.93E-12::ALKEP+NO-->1.39870*HCHO+0.42125*ALD+0.05220*K&
+&ET+HO2+NO2'
+ CFULLREACS(93) = 'K093=4.00E-12::BIOP+NO-->0.45463*CARBO+0.60600*HCHO+0.00000*&
+&ALD+0.00000*KET+0.37815*ALKE+0.84700*HO2+0.84700*NO2+0.15300*ONIT'
+ CFULLREACS(94) = 'K094=4.00E-12::AROP+NO-->0.95115*NO2+0.95115*HO2+2.06993*CAR&
+&BO+0.04885*ONIT'
+ CFULLREACS(95) = 'K095=1.22E-11::CARBOP+NO-->0.78134*MO2+0.09532*CARBOP+0.0584&
+&8*HCHO+0.07368*ALD+0.08670*CARBO+0.12334*HO2+0.02563*XO2+NO2'
+ CFULLREACS(96) = 'K096=4.00E-12::OLN+NO-->0.18401*ONIT+1.81599*NO2+0.18401*HO2&
+&+0.23419*HCHO+1.01182*ALD+0.37862*KET'
+ CFULLREACS(97) = 'K097=3.80E-13*exp(-(-800.0/TPK%T))::MO2+HO2-->OP1'
+ CFULLREACS(98) = 'K098=6.16E-14*exp(-(-700.0/TPK%T))+1.52E-13*exp(-(-1300.0/TP&
+&K%T))::ALKAP+HO2-->1.00524*OP2'
+ CFULLREACS(99) = 'K099=1.81E-13*exp(-(-1300.0/TPK%T))::ALKEP+HO2-->1.00524*OP2&
&'
- CFULLREACS(296) = 'K295=3.41E-13*EXP(800.2/TPK%T)::RO252+HO2-->NO2+MGLY+HCHO+R&
-&O2T+O2'
- CFULLREACS(297) = 'K296=1.0E-15::RO252+RO2T-->NO2+OH+MGLY+HCHO'
- CFULLREACS(298) = 'K297=2.91E-12*EXP(180.2/TPK%T)::RO253+NO-->NO2+HCHO+RO254+R&
-&O2T'
- CFULLREACS(299) = 'K298=3.41E-13*EXP(800.2/TPK%T)::RO253+HO2-->HCHO+RO254+2.*R&
-&O2T+O2'
- CFULLREACS(300) = 'K299=1.0E-15::RO253+RO2T-->OH+HCHO+RO254+RO2T'
- CFULLREACS(301) = 'K300=1.11E-11*EXP(180.2/TPK%T)::RO254+NO-->CO2+CO+NO2+HO2'
- CFULLREACS(302) = 'K301=3.41E-13*EXP(800.2/TPK%T)/3.5::RO254+HO2-->O3+RP16'
- CFULLREACS(303) = 'K302=1.0E-15::RO254+RO2T-->CO2+CO+HO2+RO2T+O2'
- CFULLREACS(304) = 'K303=1.29E-11::RPR5+OH-->O3+0.9999993*URG7+H2O'
- CFULLREACS(305) = 'K304=3.54E-11::RPR1+OH-->RO255+RO2T+H2O'
- CFULLREACS(306) = 'K305=1.72E-11::RP16+OH-->RO258+RO2T+H2O'
- CFULLREACS(307) = 'K306=1.2940467E-11::RPRL+OH-->1.0000011*H2O+1.0000011*O3+2.&
-&0714202E-03*RPR7+0.9979297*URG7'
- CFULLREACS(308) = 'K307=3.0E-13*EXP(-1427/TPK%T)*3.54E-11/(6.91E-12*EXP(250/TP&
-&K%T))::RPR1+NO3-->HNO3+RO255+RO2T'
- CFULLREACS(309) = 'K308=!ZRATES(:,012)::RPR1-->CO+HO2+RO220+RO2T'
- CFULLREACS(310) = 'K309=1.11E-11*EXP(180.2/TPK%T)::RO255+NO-->NO2+CO2+RO220+RO&
-&2T'
- CFULLREACS(311) = 'K310=3.41E-13*EXP(800.2/TPK%T)/3.5::RO255+HO2-->O3+ACID'
- CFULLREACS(312) = 'K311=1.0E-15::RO255+RO2T-->CO2+RO220+2.*RO2T+O2'
- CFULLREACS(313) = 'K312=4.24E-11::RPR3+OH-->RO256+RO2T+H2O'
- CFULLREACS(314) = 'K313=3.0E-13*EXP(-1427/TPK%T)*4.24E-11/(6.91E-12*EXP(250/TP&
-&K%T))::RPR3+NO3-->HNO3+RO256+RO2T'
- CFULLREACS(315) = 'K314=!ZRATES(:,012)::RPR3-->CO+2.*HO2'
- CFULLREACS(316) = 'K315=1.11E-11*EXP(180.2/TPK%T)::RO256+NO-->NO2+CO2+HO2'
- CFULLREACS(317) = 'K316=@TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECN&
-&PT)::RO256+NO2-->PAN8'
- CFULLREACS(318) = 'K317=@TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.&
-&6,TPK%M,TPK%T,KVECNPT)::PAN8-->NO2+RO256+RO2T'
- CFULLREACS(319) = 'K318=3.41E-13*EXP(800.2/TPK%T)/3.5::RO256+HO2-->O3+1.000000&
-&0*URG4'
- CFULLREACS(320) = 'K319=1.0E-15::RO256+RO2T-->CO2+HO2+RO2T+O2'
- CFULLREACS(321) = 'K320=3.77E-12::RPR4+NO3-->HNO3+RAD8'
- CFULLREACS(322) = 'K321=2.30E-11*EXP(151.0/TPK%T)::RAD8+NO2-->UR22+H2O'
- CFULLREACS(323) = 'K322=1.29E-11::RPR7+OH-->O3+0.9999993*URG7+H2O'
- CFULLREACS(324) = 'K323=1.3918362E-10::RPG7+OH-->1.0000005*O3+1.0000005*H2O+0.&
-&5021558*RPG7+0.4978440*URG6'
- CFULLREACS(325) = 'K324=1.145E-10::RPR8+OH-->RO257+RO2T+H2O'
- CFULLREACS(326) = 'K325=1.098E-10::RP10+OH-->HO2+H2O'
- CFULLREACS(327) = 'K326=1.964E-10::RP11+OH-->O3+0.67*UR26+H2O'
- CFULLREACS(328) = 'K327=3.0E-13*EXP(-1427/TPK%T)*1.145E-10/(6.91E-12*EXP(250/T&
-&PK%T))::RPR8+NO3-->HNO3+RO257+RO2T'
- CFULLREACS(329) = 'K328=!ZRATES(:,012)::RP10-->'
- CFULLREACS(330) = 'K329=!ZRATES(:,012)::RPR8-->CO+HO2+RO29+RO2T'
- CFULLREACS(331) = 'K330=!ZRATES(:,012)::RPR8-->HO2+RO257+RO2T'
- CFULLREACS(332) = 'K331=1.11E-11*EXP(180.2/TPK%T)::RO257+NO-->NO2+CO2+RO29+RO2&
-&T'
- CFULLREACS(333) = 'K332=3.41E-13*EXP(800.2/TPK%T)/3.5::RO257+HO2-->1.0000000*U&
-&RG4+O3'
- CFULLREACS(334) = 'K333=1.0E-15::RO257+RO2T-->CO2+RO29+2.*RO2T+O2'
- CFULLREACS(335) = 'K334=2.4131647E-10::RPG3+OH-->1.0000000*O3+0.1191897*RPG2+1&
-&.0000000*H2O+0.8808107*RPG2'
- CFULLREACS(336) = 'K335=2.1923330E-10::RPG2+OH-->1.0000000*O3+0.5562513*URG2+1&
-&.0000000*H2O+0.4437492*RP18'
- CFULLREACS(337) = 'K337=1.97E-10::RP18+OH-->O3+URG2+H2O'
- CFULLREACS(338) = 'K338=1.4E-12*EXP(-1897.3/TPK%T)::RP16+NO3-->HNO3+RO258+RO2T&
+ CFULLREACS(100) = 'K0100=1.28E-13*exp(-(-1300.0/TPK%T))+0.00E-01::BIOP+HO2-->1&
+&.00524*OP2'
+ CFULLREACS(101) = 'K0101=3.75E-13*exp(-(-980.0/TPK%T))::AROP+HO2-->1.00524*OP2&
&'
- CFULLREACS(339) = 'K339=!ZRATES(:,019)::RP16-->2.*CO+OH+HO2'
- CFULLREACS(340) = 'K340=1.11E-11*EXP(180.2/TPK%T)::RO258+NO-->CO+CO2+NO2+OH'
- CFULLREACS(341) = 'K341=3.41E-13*EXP(800.2/TPK%T)::RO258+HO2-->O3+UR28'
- CFULLREACS(342) = 'K342=1.0E-15::RO258+RO2T-->CO+CO2+OH+RO2T+O2'
- CFULLREACS(343) = 'K343=@TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.&
-&6,TPK%M,TPK%T,KVECNPT)::PAN7-->NO2+RO255+RO2T'
- CFULLREACS(344) = 'K344=8.89E-13*EXP(180.2/TPK%T)::RO230+NO-->NO2+RO28+RO2T'
- CFULLREACS(345) = 'K345=3.30E-12*exp(-(900.0/TPK%T))::NH3+OH-->'
- CFULLREACS(346) = 'K346=1.00E-40::H2SO4-->'
- CFULLREACS(347) = 'K347=4.50E-13::ORA1+OH-->HO2+CO2+H2O'
- CFULLREACS(348) = 'K348=6.00E-13::ORA2+OH-->'
- CFULLREACS(349) = 'K349=1.20E-12::ACID+OH-->'
- CFULLREACS(350) = 'K350=1.00E-40::URG2-->'
- CFULLREACS(351) = 'K351=1.00E-40::URG4-->'
- CFULLREACS(352) = 'K352=1.00E-40::URG6-->'
- CFULLREACS(353) = 'K353=1.00E-40::URG7-->'
- CFULLREACS(354) = 'K354=1.00E-40::URG8-->'
- CFULLREACS(355) = 'K355=1.00E-40::URG9-->'
- CFULLREACS(356) = 'K356=1.00E-40::URG10-->'
- CFULLREACS(357) = 'K357=1.00E-40::UR7-->'
- CFULLREACS(358) = 'K358=1.00E-40::UR8-->'
- CFULLREACS(359) = 'K359=1.00E-40::UR17-->'
- CFULLREACS(360) = 'K360=1.00E-40::UR19-->'
- CFULLREACS(361) = 'K361=1.00E-40::UR21-->'
- CFULLREACS(362) = 'K362=1.00E-40::UR22-->'
- CFULLREACS(363) = 'K363=1.00E-40::UR26-->'
- CFULLREACS(364) = 'K364=1.00E-40::UR28-->'
- CFULLREACS(365) = 'K365=1.00E-40::AP7-->'
- CFULLREACS(366) = 'KTC1=@KT(0.05,48.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::O3-->WC_&
+ CFULLREACS(102) = 'K0102=5.94E-13*exp(-(-550.0/TPK%T))+1.99E-16*exp(-(-2640.0/&
+&TPK%T))+5.56E-14*exp(-(-1300.0/TPK%T))::CARBOP+HO2-->0.80904*OP2+0.17307*ORA2+&
+&0.17307*O3'
+ CFULLREACS(103) = 'K103=1.66E-13*exp(-(-1300.0/TPK%T))::OLN+HO2-->ONIT'
+ CFULLREACS(104) = 'K104=9.10E-14*exp(-(-416.0/TPK%T))::MO2+MO2-->1.33*HCHO+0.6&
+&6*HO2'
+ CFULLREACS(105) = 'K105=1.03E-14*exp(-(-158.0/TPK%T))+6.24E-14*exp(-(-431.0/TP&
+&K%T))+1.53E-14*exp(-(-467.0/TPK%T))+4.34E-15*exp(-(-633.0/TPK%T))::ALKAP+MO2--&
+&>0.80556*HCHO+0.98383*HO2+0.56070*ALD+0.09673*KET+0.01390*MO2+0.07976*CARBO+0.&
+&13370*XO2+0.00385*ALKAP'
+ CFULLREACS(106) = 'K106=1.57E-13*exp(-(-708.0/TPK%T))::ALKEP+MO2-->1.42894*HCH&
+&O+0.46413*ALD+0.03814*KET+HO2'
+ CFULLREACS(107) = 'K107=1.36E-13*exp(-(-708.0/TPK%T))::BIOP+MO2-->0.56064*CARB&
+&O+0.48074*ALKE+1.00000*HO2+1.09000*HCHO+0.00000*ALD+0.00000*KET'
+ CFULLREACS(108) = 'K108=3.56E-14*exp(-(-708.0/TPK%T))::AROP+MO2-->HCHO+1.02767&
+&*HO2+1.99461*CARBO'
+ CFULLREACS(109) = 'K109=1.77E-11*exp(-(440.0/TPK%T))+1.48E-16*exp(-(-2510.0/TP&
+&K%T))+3.10E-13*exp(-(-508.0/TPK%T))::CARBOP+MO2-->0.95723*HCHO+0.82998*HO2+0.5&
+&6031*MO2+0.13684*ORA2+0.05954*CARBOP+0.15387*CARBO+0.08295*ALD+0.02212*XO2'
+ CFULLREACS(110) = 'K110=1.12E-13*exp(-(-708.0/TPK%T))::OLN+MO2-->0.88625*HCHO+&
+&0.67560*HO2+0.67560*ONIT+0.41524*ALD+0.09667*KET+0.32440*NO2'
+ CFULLREACS(111) = 'K111=4.44E-14*exp(-(-211.0/TPK%T))+2.23E-13*exp(-(-460.0/TP&
+&K%T))+4.10E-14*exp(-(-522.0/TPK%T))+1.17E-14*exp(-(-683.0/TPK%T))::ALKAP+CARBO&
+&P-->0.71461*ALD+0.48079*HO2+0.51480*MO2+0.49810*ORA2+0.18819*KET+0.07600*HCHO+&
+&0.00828*ALKAP+0.11306*XO2+0.06954*CARBO'
+ CFULLREACS(112) = 'K112=4.36E-13*exp(-(-765.0/TPK%T))::ALKEP+CARBOP-->0.68192*&
+&HCHO+0.68374*ALD+0.50078*HO2+0.50078*MO2+0.49922*ORA2+0.06579*KET'
+ CFULLREACS(113) = 'K113=7.60E-13*exp(-(-765.0/TPK%T))::BIOP+CARBOP-->0.78591*C&
+&ARBO+0.24463*ALKE+0.50600*HO2+0.49400*ORA2+0.34000*HCHO+0.50600*MO2+0.00000*AL&
+&D+0.00000*KET'
+ CFULLREACS(114) = 'K114=3.63E-13*exp(-(-765.0/TPK%T))::AROP+CARBOP-->MO2+HO2+1&
+&.99455*CARBO'
+ CFULLREACS(115) = 'K115=7.73E-13*exp(-(-530.0/TPK%T))+1.70E-13*exp(-(-565.0/TP&
+&K%T))::CARBOP+CARBOP-->1.66702*MO2+0.05821*CARBOP+0.03432*HCHO+0.10777*CARBO+0&
+&.06969*ALD+0.02190*KET+0.07566*HO2+0.01593*XO2+0.09955*ORA2'
+ CFULLREACS(116) = 'K116=4.85E-13*exp(-(-765.0/TPK%T))::OLN+CARBOP-->0.66562*ON&
+&IT+0.51037*MO2+0.48963*ORA2+0.17599*HO2+0.13414*HCHO+0.42122*ALD+0.10822*KET+0&
+&.00000*NO2'
+ CFULLREACS(117) = 'K117=4.19E-15*exp(-(-1000.0/TPK%T))::OLN+OLN-->2.00*ONIT+HO&
+&2'
+ CFULLREACS(118) = 'K118=2.48E-14*exp(-(-1000.0/TPK%T))::OLN+OLN-->0.00000*HCHO&
+&+0.00000*ALD+0.00000*KET+0.00000*HO2+0.00000*NO2+0.00000*ONIT'
+ CFULLREACS(119) = 'K119=1.20E-12::MO2+NO3-->HCHO+HO2+NO2'
+ CFULLREACS(120) = 'K120=1.20E-12::ALKAP+NO3-->0.33743*ALD+0.81290*HO2+0.03142*&
+&HCHO+0.62978*KET+0.03531*CARBO+0.09731*MO2+0.08994*ALKAP+0.16271*XO2+NO2'
+ CFULLREACS(121) = 'K121=1.20E-12::ALKEP+NO3-->1.40909*HCHO+0.43039*ALD+0.02051&
+&*KET+HO2+NO2'
+ CFULLREACS(122) = 'K122=1.20E-12::BIOP+NO3-->0.61160*CARBO+0.42729*ALKE+0.6860&
+&0*HCHO+0.00000*ALD+0.00000*KET+HO2+NO2'
+ CFULLREACS(123) = 'K123=1.20E-12::AROP+NO3-->2.81904*CARBO+HO2+NO2'
+ CFULLREACS(124) = 'K124=3.48E-12::CARBOP+NO3-->0.91910*MO2+0.03175*CARBOP+0.03&
+&175*HCHO+0.03455*CARBO+0.02936*ALD+0.04915*HO2+0.01021*XO2+NO2'
+ CFULLREACS(125) = 'K125=1.20E-12::OLN+NO3-->0.25928*ONIT+1.74072*NO2+0.25928*H&
+&O2+0.20740*HCHO+0.91850*ALD+0.34740*KET'
+ CFULLREACS(126) = 'K126=1.66E-13*exp(-(-1300.0/TPK%T))::XO2+HO2-->1.00524*OP2'
+ CFULLREACS(127) = 'K127=5.99E-15*exp(-(-1510.0/TPK%T))::XO2+MO2-->HCHO+HO2'
+ CFULLREACS(128) = 'K128=1.69E-14*exp(-(-1560.0/TPK%T))::XO2+CARBOP-->MO2'
+ CFULLREACS(129) = 'K129=7.13E-17*exp(-(-2950.0/TPK%T))::XO2+XO2-->'
+ CFULLREACS(130) = 'K130=4.00E-12::XO2+NO-->NO2'
+ CFULLREACS(131) = 'K131=1.20E-12::XO2+NO3-->NO2'
+ CFULLREACS(132) = 'K132=1.00E-40::SULF-->'
+ CFULLREACS(133) = 'KTC1=@KT(0.05,48.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::O3-->WC_&
&O3'
- CFULLREACS(367) = 'KTC2=@KT(0.11,34.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::H2O2-->W&
+ CFULLREACS(134) = 'KTC2=@KT(0.11,34.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::H2O2-->W&
&C_H2O2'
- CFULLREACS(368) = 'KTC3=@KT(0.0001,30.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::NO-->W&
+ CFULLREACS(135) = 'KTC3=@KT(0.0001,30.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::NO-->W&
&C_NO'
- CFULLREACS(369) = 'KTC4=@KT(0.0015,46.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::NO2-->&
+ CFULLREACS(136) = 'KTC4=@KT(0.0015,46.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::NO2-->&
&WC_NO2'
- CFULLREACS(370) = 'KTC5=@KT(0.05,62.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::NO3-->WC&
+ CFULLREACS(137) = 'KTC5=@KT(0.05,62.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::NO3-->WC&
&_NO3'
- CFULLREACS(371) = 'KTC6=@KT(0.0037,108.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::N2O5-&
+ CFULLREACS(138) = 'KTC6=@KT(0.0037,108.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::N2O5-&
&->WC_N2O5'
- CFULLREACS(372) = 'KTC7=@KT(0.05,47.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::HONO-->W&
+ CFULLREACS(139) = 'KTC7=@KT(0.05,47.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::HONO-->W&
&C_HONO'
- CFULLREACS(373) = 'KTC8=@KT(0.054,63.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::HNO3-->&
+ CFULLREACS(140) = 'KTC8=@KT(0.054,63.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::HNO3-->&
&WC_HNO3'
- CFULLREACS(374) = 'KTC9=@KT(0.05,79.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::HNO4-->W&
+ CFULLREACS(141) = 'KTC9=@KT(0.05,79.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::HNO4-->W&
&C_HNO4'
- CFULLREACS(375) = 'KTC10=@KT(0.04,17.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::NH3-->W&
+ CFULLREACS(142) = 'KTC10=@KT(0.04,17.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::NH3-->W&
&C_NH3'
- CFULLREACS(376) = 'KTC11=@KT(0.05,17.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::OH-->WC&
+ CFULLREACS(143) = 'KTC11=@KT(0.05,17.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::OH-->WC&
&_OH'
- CFULLREACS(377) = 'KTC12=@KT(0.2,30.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::HO2-->WC&
+ CFULLREACS(144) = 'KTC12=@KT(0.2,30.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::HO2-->WC&
&_HO2'
- CFULLREACS(378) = 'KTC13=@KT(0.0002,44.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::CO2--&
+ CFULLREACS(145) = 'KTC13=@KT(0.0002,44.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::CO2--&
&>WC_CO2'
- CFULLREACS(379) = 'KTC14=@KT(0.11,64.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::SO2-->W&
+ CFULLREACS(146) = 'KTC14=@KT(0.11,64.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::SO2-->W&
&C_SO2'
- CFULLREACS(380) = 'KTC15=@KT(0.07,98.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::H2SO4--&
-&>WC_H2SO4'
- CFULLREACS(381) = 'KTC16=@KT(0.05,47.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::RO21-->&
-&WC_RO21'
- CFULLREACS(382) = 'KTC17=@KT(0.05,75.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::RO25-->&
-&WC_RO25'
- CFULLREACS(383) = 'KTC18=@KT(0.027,32.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::MEOH--&
-&>WC_MEOH'
- CFULLREACS(384) = 'KTC19=@KT(0.017,46.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::ETOH--&
-&>WC_ETOH'
- CFULLREACS(385) = 'KTC20=@KT(0.011,60.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::ALCH--&
-&>WC_ALCH'
- CFULLREACS(386) = 'KTC21=@KT(0.04,30.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::HCHO-->&
+ CFULLREACS(147) = 'KTC15=@KT(0.07,98.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::SULF-->&
+&WC_SULF'
+ CFULLREACS(148) = 'KTC16=@KT(0.04,30.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::HCHO-->&
&WC_HCHO'
- CFULLREACS(387) = 'KTC22=@KT(0.03,44.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::ALD2-->&
-&WC_ALD2'
- CFULLREACS(388) = 'KTC23=@KT(0.01,58.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::GLY-->W&
-&C_GLY'
- CFULLREACS(389) = 'KTC24=@KT(0.008,58.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::KETL--&
-&>WC_KETL'
- CFULLREACS(390) = 'KTC25=@KT(0.0003,72.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::MGLY-&
-&->WC_MGLY'
- CFULLREACS(391) = 'KTC26=@KT(0.023,46.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::ORA1--&
+ CFULLREACS(149) = 'KTC17=@KT(0.012,46.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::ORA1--&
&>WC_ORA1'
- CFULLREACS(392) = 'KTC27=@KT(0.032,60.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::ORA2--&
-&>WC_ORA2'
- CFULLREACS(393) = 'KTC28=@KT(0.05,74.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::ACID-->&
-&WC_ACID'
- CFULLREACS(394) = 'KTC29=@KT(0.05,74.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::RP16-->&
-&WC_RP16'
- CFULLREACS(395) = 'KTC30=@KT(0.05,88.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::UR21-->&
-&WC_UR21'
- CFULLREACS(396) = 'KTC31=@KT(0.05,90.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::UR28-->&
-&WC_UR28'
- CFULLREACS(397) = 'KTC32=@KT(0.05,48.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(1.1e-2,-&
+ CFULLREACS(150) = 'KTC18=@KT(0.03,60.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::ORA2-->&
+&WC_ORA2'
+ CFULLREACS(151) = 'KTC19=@KT(0.05,47.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::MO2-->W&
+&C_MO2'
+ CFULLREACS(152) = 'KTC20=@KT(0.007,48.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::OP1-->&
+&WC_OP1'
+ CFULLREACS(153) = 'KTC21=@KT(0.05,48.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(1.1e-2,-&
&2830.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_O3-->O3'
- CFULLREACS(398) = 'KTC33=@KT(0.11,34.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(7.73e4,-&
+ CFULLREACS(154) = 'KTC22=@KT(0.11,34.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(7.73e4,-&
&7310.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_H2O2-->H2O2'
- CFULLREACS(399) = 'KTC34=@KT(0.0001,30.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(1.92e-&
+ CFULLREACS(155) = 'KTC23=@KT(0.0001,30.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(1.92e-&
&3,-1790.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_NO-->NO'
- CFULLREACS(400) = 'KTC35=@KT(0.0015,46.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(1.4e-2&
-&,-2516.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_NO2-->NO2'
- CFULLREACS(401) = 'KTC36=@KT(0.05,62.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(3.8e-2,-&
-&8707.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_NO3-->NO3'
- CFULLREACS(402) = 'KTC37=@KT(0.0037,108.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(2.1e0&
-&,-3400.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_N2O5-->N2O5'
- CFULLREACS(403) = 'KTC38=@KT(0.05,47.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(5.0e1,-4&
+ CFULLREACS(156) = 'KTC24=@KT(0.0015,46.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(1.4e-2&
+&,0.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_NO2-->NO2'
+ CFULLREACS(157) = 'KTC25=@KT(0.05,62.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(3.8e-2,0&
+&.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_NO3-->NO3'
+ CFULLREACS(158) = 'KTC26=@KT(0.0037,108.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(2.1,-&
+&3400.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_N2O5-->N2O5'
+ CFULLREACS(159) = 'KTC27=@KT(0.05,47.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(5.0e1,-4&
&880.,1.6e-3,1760.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_HONO-->HONO'
- CFULLREACS(404) = 'KTC39=@KT(0.054,63.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(2.1e5,-&
+ CFULLREACS(160) = 'KTC28=@KT(0.054,63.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(2.1e5,-&
&8700.,2.2e1,0.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_HNO3-->HNO3'
- CFULLREACS(405) = 'KTC40=@KT(0.05,79.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(1.2e4,-6&
+ CFULLREACS(161) = 'KTC29=@KT(0.05,79.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(1.2e4,-6&
&900.,1.26e-6,0.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_HNO4-->HNO4'
- CFULLREACS(406) = 'KTC41=@KT(0.04,17.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFB(6.02e1,-&
+ CFULLREACS(162) = 'KTC30=@KT(0.04,17.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFB(6.02e1,-&
&4160.,1.7e-5,4350.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_NH3-->NH3'
- CFULLREACS(407) = 'KTC42=@KT(0.05,17.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(3.9e1,0.&
+ CFULLREACS(163) = 'KTC31=@KT(0.05,17.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(3.9e1,0.&
&,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_OH-->OH'
- CFULLREACS(408) = 'KTC43=@KT(0.2,30.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(6.9e2,-66&
-&43.,1.6e-5,0.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_HO2-->HO2'
- CFULLREACS(409) = 'KTC44=@KT(0.0002,44.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(3.4e-2&
+ CFULLREACS(164) = 'KTC32=@KT(0.2,30.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(6.9e2,0.,&
+&1.6e-5,0.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_HO2-->HO2'
+ CFULLREACS(165) = 'KTC33=@KT(0.0002,44.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(3.4e-2&
&,-2710.,4.3e-7,920.,4.7e-11,1780.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_CO&
&2-->CO2'
- CFULLREACS(410) = 'KTC45=@KT(0.11,64.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(1.36,-29&
+ CFULLREACS(166) = 'KTC34=@KT(0.11,64.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(1.36,-29&
&30.,1.3e-2,-1965.,6.4e-8,-1430.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_SO2-&
&->SO2'
- CFULLREACS(411) = 'KTC46=@KT(0.07,98.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(2.1e5,-8&
-&700.,1.0e3,0.,1.0e-2,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_H2SO4-->H2SO&
-&4'
- CFULLREACS(412) = 'KTC47=@KT(0.05,47.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(2.7e0,0.&
-&,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_RO21-->RO21'
- CFULLREACS(413) = 'KTC48=@KT(0.05,75.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(7.5e1,0.&
-&,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_RO25-->RO25'
- CFULLREACS(414) = 'KTC49=@KT(0.027,32.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(2.2e2,-&
-&5210.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_MEOH-->MEOH'
- CFULLREACS(415) = 'KTC50=@KT(0.017,46.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(1.9e2,-&
-&6600.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_ETOH-->ETOH'
- CFULLREACS(416) = 'KTC51=@KT(0.011,60.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(1.3e2,-&
-&7500.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_ALCH-->ALCH'
- CFULLREACS(417) = 'KTC52=@KT(0.04,30.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(3.23e3,-&
+ CFULLREACS(167) = 'KTC35=@KT(0.07,98.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(2.1e5,-8&
+&700.,1.0e3,0.,1.0e-2,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_SULF-->SULF'
+ CFULLREACS(168) = 'KTC36=@KT(0.04,30.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(3.23e3,-&
&7100.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_HCHO-->HCHO'
- CFULLREACS(418) = 'KTC53=@KT(0.03,44.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(1.29e1,-&
-&5890.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_ALD2-->ALD2'
- CFULLREACS(419) = 'KTC54=@KT(0.01,58.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(3.6e5,0.&
-&,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_GLY-->GLY'
- CFULLREACS(420) = 'KTC55=@KT(0.008,58.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(2.81e1,&
-&-5050.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_KETL-->KETL'
- CFULLREACS(421) = 'KTC56=@KT(0.0003,72.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(3.7e3,&
-&0.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_MGLY-->MGLY'
- CFULLREACS(422) = 'KTC57=@KT(0.023,46.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(8.9e3,-&
+ CFULLREACS(169) = 'KTC37=@KT(0.012,46.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(8.9e3,-&
&6100.,1.8e-4,150.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_ORA1-->ORA1'
- CFULLREACS(423) = 'KTC58=@KT(0.032,60.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(4.1e3,-&
-&6200.,1.75e-5,0.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_ORA2-->ORA2'
- CFULLREACS(424) = 'KTC59=@KT(0.05,74.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(5.7e3,0.&
-&,1.35e-5,0.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_ACID-->ACID'
- CFULLREACS(425) = 'KTC60=@KT(0.05,74.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(9.0e3,0.&
-&,3.2e-4,0.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_RP16-->RP16'
- CFULLREACS(426) = 'KTC61=@KT(0.05,88.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(3.11e5,-&
-&5090.,3.55e-3,0.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_UR21-->UR21'
- CFULLREACS(427) = 'KTC62=@KT(0.05,90.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(5.0e8,0.&
-&,5.6e-2,0.,5.4e-5,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_UR28-->UR28'
- CFULLREACS(428) = 'KTR1=@KT(0.05,48.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::O3-->WR_&
+ CFULLREACS(170) = 'KTC38=@KT(0.03,60.,TPK%T,TPK%RADC,KVECNPT)/(@HEFFA(4.1e3,-6&
+&200.,1.74e-5,0.,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_ORA2-->ORA2'
+ CFULLREACS(171) = 'KTC39=@KT(0.05,47.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(2.7e0,-2&
+&030.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_MO2-->MO2'
+ CFULLREACS(172) = 'KTC40=@KT(0.007,48.,TPK%T,TPK%RADC,KVECNPT)/(@HENRY(3.e2,-5&
+&280.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WC_OP1-->OP1'
+ CFULLREACS(173) = 'KTR1=@KT(0.05,48.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::O3-->WR_&
&O3'
- CFULLREACS(429) = 'KTR2=@KT(0.11,34.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::H2O2-->W&
+ CFULLREACS(174) = 'KTR2=@KT(0.11,34.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::H2O2-->W&
&R_H2O2'
- CFULLREACS(430) = 'KTR3=@KT(0.0001,30.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::NO-->W&
+ CFULLREACS(175) = 'KTR3=@KT(0.0001,30.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::NO-->W&
&R_NO'
- CFULLREACS(431) = 'KTR4=@KT(0.0015,46.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::NO2-->&
+ CFULLREACS(176) = 'KTR4=@KT(0.0015,46.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::NO2-->&
&WR_NO2'
- CFULLREACS(432) = 'KTR5=@KT(0.05,62.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::NO3-->WR&
+ CFULLREACS(177) = 'KTR5=@KT(0.05,62.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::NO3-->WR&
&_NO3'
- CFULLREACS(433) = 'KTR6=@KT(0.0037,108.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::N2O5-&
+ CFULLREACS(178) = 'KTR6=@KT(0.0037,108.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::N2O5-&
&->WR_N2O5'
- CFULLREACS(434) = 'KTR7=@KT(0.05,47.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::HONO-->W&
+ CFULLREACS(179) = 'KTR7=@KT(0.05,47.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::HONO-->W&
&R_HONO'
- CFULLREACS(435) = 'KTR8=@KT(0.054,63.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::HNO3-->&
+ CFULLREACS(180) = 'KTR8=@KT(0.054,63.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::HNO3-->&
&WR_HNO3'
- CFULLREACS(436) = 'KTR9=@KT(0.05,79.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::HNO4-->W&
+ CFULLREACS(181) = 'KTR9=@KT(0.05,79.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::HNO4-->W&
&R_HNO4'
- CFULLREACS(437) = 'KTR10=@KT(0.04,17.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::NH3-->W&
+ CFULLREACS(182) = 'KTR10=@KT(0.04,17.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::NH3-->W&
&R_NH3'
- CFULLREACS(438) = 'KTR11=@KT(0.05,17.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::OH-->WR&
+ CFULLREACS(183) = 'KTR11=@KT(0.05,17.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::OH-->WR&
&_OH'
- CFULLREACS(439) = 'KTR12=@KT(0.2,30.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::HO2-->WR&
+ CFULLREACS(184) = 'KTR12=@KT(0.2,30.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::HO2-->WR&
&_HO2'
- CFULLREACS(440) = 'KTR13=@KT(0.0002,44.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::CO2--&
+ CFULLREACS(185) = 'KTR13=@KT(0.0002,44.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::CO2--&
&>WR_CO2'
- CFULLREACS(441) = 'KTR14=@KT(0.11,64.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::SO2-->W&
+ CFULLREACS(186) = 'KTR14=@KT(0.11,64.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::SO2-->W&
&R_SO2'
- CFULLREACS(442) = 'KTR15=@KT(0.07,98.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::H2SO4--&
-&>WR_H2SO4'
- CFULLREACS(443) = 'KTR16=@KT(0.05,47.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::RO21-->&
-&WR_RO21'
- CFULLREACS(444) = 'KTR17=@KT(0.05,75.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::RO25-->&
-&WR_RO25'
- CFULLREACS(445) = 'KTR18=@KT(0.027,32.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::MEOH--&
-&>WR_MEOH'
- CFULLREACS(446) = 'KTR19=@KT(0.017,46.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::ETOH--&
-&>WR_ETOH'
- CFULLREACS(447) = 'KTR20=@KT(0.011,60.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::ALCH--&
-&>WR_ALCH'
- CFULLREACS(448) = 'KTR21=@KT(0.04,30.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::HCHO-->&
+ CFULLREACS(187) = 'KTR15=@KT(0.07,98.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::SULF-->&
+&WR_SULF'
+ CFULLREACS(188) = 'KTR16=@KT(0.04,30.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::HCHO-->&
&WR_HCHO'
- CFULLREACS(449) = 'KTR22=@KT(0.03,44.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::ALD2-->&
-&WR_ALD2'
- CFULLREACS(450) = 'KTR23=@KT(0.01,58.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::GLY-->W&
-&R_GLY'
- CFULLREACS(451) = 'KTR24=@KT(0.008,58.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::KETL--&
-&>WR_KETL'
- CFULLREACS(452) = 'KTR25=@KT(0.0003,72.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::MGLY-&
-&->WR_MGLY'
- CFULLREACS(453) = 'KTR26=@KT(0.023,46.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::ORA1--&
+ CFULLREACS(189) = 'KTR17=@KT(0.012,46.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::ORA1--&
&>WR_ORA1'
- CFULLREACS(454) = 'KTR27=@KT(0.032,60.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::ORA2--&
-&>WR_ORA2'
- CFULLREACS(455) = 'KTR28=@KT(0.05,74.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::ACID-->&
-&WR_ACID'
- CFULLREACS(456) = 'KTR29=@KT(0.05,74.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::RP16-->&
-&WR_RP16'
- CFULLREACS(457) = 'KTR30=@KT(0.05,88.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::UR21-->&
-&WR_UR21'
- CFULLREACS(458) = 'KTR31=@KT(0.05,90.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::UR28-->&
-&WR_UR28'
- CFULLREACS(459) = 'KTR32=@KT(0.05,48.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(1.1e-2,-&
+ CFULLREACS(190) = 'KTR18=@KT(0.03,60.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::ORA2-->&
+&WR_ORA2'
+ CFULLREACS(191) = 'KTR19=@KT(0.05,47.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::MO2-->W&
+&R_MO2'
+ CFULLREACS(192) = 'KTR20=@KT(0.007,48.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::OP1-->&
+&WR_OP1'
+ CFULLREACS(193) = 'KTR21=@KT(0.05,48.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(1.1e-2,-&
&2830.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_O3-->O3'
- CFULLREACS(460) = 'KTR33=@KT(0.11,34.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(7.73e4,-&
+ CFULLREACS(194) = 'KTR22=@KT(0.11,34.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(7.73e4,-&
&7310.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_H2O2-->H2O2'
- CFULLREACS(461) = 'KTR34=@KT(0.0001,30.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(1.92e-&
+ CFULLREACS(195) = 'KTR23=@KT(0.0001,30.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(1.92e-&
&3,-1790.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_NO-->NO'
- CFULLREACS(462) = 'KTR35=@KT(0.0015,46.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(1.4e-2&
-&,-2516.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_NO2-->NO2'
- CFULLREACS(463) = 'KTR36=@KT(0.05,62.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(3.8e-2,-&
-&8707.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_NO3-->NO3'
- CFULLREACS(464) = 'KTR37=@KT(0.0037,108.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(2.1e0&
-&,-3400.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_N2O5-->N2O5'
- CFULLREACS(465) = 'KTR38=@KT(0.05,47.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(5.0e1,-4&
+ CFULLREACS(196) = 'KTR24=@KT(0.0015,46.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(1.4e-2&
+&,0.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_NO2-->NO2'
+ CFULLREACS(197) = 'KTR25=@KT(0.05,62.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(3.8e-2,0&
+&.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_NO3-->NO3'
+ CFULLREACS(198) = 'KTR26=@KT(0.0037,108.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(2.1,-&
+&3400.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_N2O5-->N2O5'
+ CFULLREACS(199) = 'KTR27=@KT(0.05,47.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(5.0e1,-4&
&880.,1.6e-3,1760.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_HONO-->HONO'
- CFULLREACS(466) = 'KTR39=@KT(0.054,63.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(2.1e5,-&
+ CFULLREACS(200) = 'KTR28=@KT(0.054,63.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(2.1e5,-&
&8700.,2.2e1,0.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_HNO3-->HNO3'
- CFULLREACS(467) = 'KTR40=@KT(0.05,79.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(1.2e4,-6&
+ CFULLREACS(201) = 'KTR29=@KT(0.05,79.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(1.2e4,-6&
&900.,1.26e-6,0.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_HNO4-->HNO4'
- CFULLREACS(468) = 'KTR41=@KT(0.04,17.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFB(6.02e1,-&
+ CFULLREACS(202) = 'KTR30=@KT(0.04,17.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFB(6.02e1,-&
&4160.,1.7e-5,4350.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_NH3-->NH3'
- CFULLREACS(469) = 'KTR42=@KT(0.05,17.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(3.9e1,0.&
+ CFULLREACS(203) = 'KTR31=@KT(0.05,17.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(3.9e1,0.&
&,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_OH-->OH'
- CFULLREACS(470) = 'KTR43=@KT(0.2,30.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(6.9e2,-66&
-&43.,1.6e-5,0.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_HO2-->HO2'
- CFULLREACS(471) = 'KTR44=@KT(0.0002,44.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(3.4e-2&
+ CFULLREACS(204) = 'KTR32=@KT(0.2,30.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(6.9e2,0.,&
+&1.6e-5,0.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_HO2-->HO2'
+ CFULLREACS(205) = 'KTR33=@KT(0.0002,44.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(3.4e-2&
&,-2710.,4.3e-7,920.,4.7e-11,1780.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_CO&
&2-->CO2'
- CFULLREACS(472) = 'KTR45=@KT(0.11,64.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(1.36,-29&
+ CFULLREACS(206) = 'KTR34=@KT(0.11,64.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(1.36,-29&
&30.,1.3e-2,-1965.,6.4e-8,-1430.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_SO2-&
&->SO2'
- CFULLREACS(473) = 'KTR46=@KT(0.07,98.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(2.1e5,-8&
-&700.,1.0e3,0.,1.0e-2,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_H2SO4-->H2SO&
-&4'
- CFULLREACS(474) = 'KTR47=@KT(0.05,47.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(2.7e0,0.&
-&,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_RO21-->RO21'
- CFULLREACS(475) = 'KTR48=@KT(0.05,75.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(7.5e1,0.&
-&,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_RO25-->RO25'
- CFULLREACS(476) = 'KTR49=@KT(0.027,32.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(2.2e2,-&
-&5210.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_MEOH-->MEOH'
- CFULLREACS(477) = 'KTR50=@KT(0.017,46.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(1.9e2,-&
-&6600.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_ETOH-->ETOH'
- CFULLREACS(478) = 'KTR51=@KT(0.011,60.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(1.3e2,-&
-&7500.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_ALCH-->ALCH'
- CFULLREACS(479) = 'KTR52=@KT(0.04,30.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(3.23e3,-&
+ CFULLREACS(207) = 'KTR35=@KT(0.07,98.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(2.1e5,-8&
+&700.,1.0e3,0.,1.0e-2,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_SULF-->SULF'
+ CFULLREACS(208) = 'KTR36=@KT(0.04,30.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(3.23e3,-&
&7100.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_HCHO-->HCHO'
- CFULLREACS(480) = 'KTR53=@KT(0.03,44.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(1.29e1,-&
-&5890.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_ALD2-->ALD2'
- CFULLREACS(481) = 'KTR54=@KT(0.01,58.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(3.6e5,0.&
-&,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_GLY-->GLY'
- CFULLREACS(482) = 'KTR55=@KT(0.008,58.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(2.81e1,&
-&-5050.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_KETL-->KETL'
- CFULLREACS(483) = 'KTR56=@KT(0.0003,72.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(3.7e3,&
-&0.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_MGLY-->MGLY'
- CFULLREACS(484) = 'KTR57=@KT(0.023,46.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(8.9e3,-&
+ CFULLREACS(209) = 'KTR37=@KT(0.012,46.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(8.9e3,-&
&6100.,1.8e-4,150.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_ORA1-->ORA1'
- CFULLREACS(485) = 'KTR58=@KT(0.032,60.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(4.1e3,-&
-&6200.,1.75e-5,0.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_ORA2-->ORA2'
- CFULLREACS(486) = 'KTR59=@KT(0.05,74.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(5.7e3,0.&
-&,1.35e-5,0.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_ACID-->ACID'
- CFULLREACS(487) = 'KTR60=@KT(0.05,74.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(9.0e3,0.&
-&,3.2e-4,0.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_RP16-->RP16'
- CFULLREACS(488) = 'KTR61=@KT(0.05,88.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(3.11e5,-&
-&5090.,3.55e-3,0.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_UR21-->UR21'
- CFULLREACS(489) = 'KTR62=@KT(0.05,90.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(5.0e8,0.&
-&,5.6e-2,0.,5.4e-5,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_UR28-->UR28'
- CFULLREACS(490) = 'KC1=!ZRATES(:,024)::WC_H2O2-->WC_OH+WC_OH'
- CFULLREACS(491) = 'KC2=(3.6E+9*exp(-930.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECC&
+ CFULLREACS(210) = 'KTR38=@KT(0.03,60.,TPK%T,TPK%RADR,KVECNPT)/(@HEFFA(4.1e3,-6&
+&200.,1.74e-5,0.,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_ORA2-->ORA2'
+ CFULLREACS(211) = 'KTR39=@KT(0.05,47.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(2.7e0,-2&
+&030.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_MO2-->MO2'
+ CFULLREACS(212) = 'KTR40=@KT(0.007,48.,TPK%T,TPK%RADR,KVECNPT)/(@HENRY(3.e2,-5&
+&280.,TPK%T,KVECNPT)*TPK%RCH*TPK%T)::WR_OP1-->OP1'
+ CFULLREACS(213) = 'KC1=!ZRATES(:,018)::WC_H2O2-->WC_OH+WC_OH'
+ CFULLREACS(214) = 'KC2=(3.6E+9*exp(-930.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECC&
&LOUD::WC_OH+WC_OH-->WC_H2O2'
- CFULLREACS(492) = 'KC3=((2.8E+10*10.**(-TPK%PHC)+3.5E+10*exp(-720.*(1./TPK%T-1&
+ CFULLREACS(215) = 'KC3=((2.8E+10*10.**(-TPK%PHC)+3.5E+10*exp(-720.*(1./TPK%T-1&
&./298.15))*1.6e-5)/(1.6e-5+10.**(-TPK%PHC)))/TPK%MOL2MOLECCLOUD::WC_OH+WC_HO2-&
&->'
- CFULLREACS(493) = 'KC4=(3.2E+7*exp(-1700.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLEC&
+ CFULLREACS(216) = 'KC4=(3.2E+7*exp(-1700.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLEC&
&CLOUD::WC_H2O2+WC_OH-->WC_HO2'
- CFULLREACS(494) = 'KC5=((8.3E+5*exp(-2700.*(1./TPK%T-1./298.15))*(10.**(-TPK%P&
+ CFULLREACS(217) = 'KC5=((8.3E+5*exp(-2700.*(1./TPK%T-1./298.15))*(10.**(-TPK%P&
&HC))**2.+9.6E+7*exp(-910.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)*1.6e-5)/(1.6e-&
&5+10.**(-TPK%PHC))**2.)/TPK%MOL2MOLECCLOUD::WC_HO2+WC_HO2-->WC_H2O2'
- CFULLREACS(495) = 'KC6=(1.5E+9*exp(-1500.*(1./TPK%T-1./298.15))*1.6e-5/(1.6e-5&
+ CFULLREACS(218) = 'KC6=(1.5E+9*exp(-1500.*(1./TPK%T-1./298.15))*1.6e-5/(1.6e-5&
&+10.**(-TPK%PHC)))/TPK%MOL2MOLECCLOUD::WC_O3+WC_HO2-->WC_OH'
- CFULLREACS(496) = 'KC7=(2.7E+9*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-T&
+ CFULLREACS(219) = 'KC7=(2.7E+9*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-T&
&PK%PHC)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./&
&298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PH&
&C))**2.))/TPK%MOL2MOLECCLOUD::WC_OH+WC_SO2-->WC_ASO3'
- CFULLREACS(497) = 'KC8=(1.0E+10*10.**(-TPK%PHC)/(1.6e-3*exp(-1760.*(1./TPK%T-1&
+ CFULLREACS(220) = 'KC8=(1.0E+10*10.**(-TPK%PHC)/(1.6e-3*exp(-1760.*(1./TPK%T-1&
&./298.15))+10.**(-TPK%PHC)))/TPK%MOL2MOLECCLOUD::WC_HONO+WC_OH-->WC_NO2'
- CFULLREACS(498) = 'KC9=((1.8E+9*10.**(-TPK%PHC)+4.5E+9*1.6e-5)/(1.6e-5+10.**(-&
+ CFULLREACS(221) = 'KC9=((1.8E+9*10.**(-TPK%PHC)+4.5E+9*1.6e-5)/(1.6e-5+10.**(-&
&TPK%PHC)))/TPK%MOL2MOLECCLOUD::WC_NO2+WC_HO2-->WC_HNO4'
- CFULLREACS(499) = 'KC10=2.6E-2*10.**(-TPK%PHC)/(1.26e-6+10.**(-TPK%PHC))::WC_H&
+ CFULLREACS(222) = 'KC10=2.6E-2*10.**(-TPK%PHC)/(1.26e-6+10.**(-TPK%PHC))::WC_H&
&NO4-->WC_HO2+WC_NO2'
- CFULLREACS(500) = 'KC11=1.1E0*1.26e-6/(1.26e-6+10.**(-TPK%PHC))::WC_HNO4-->WC_&
+ CFULLREACS(223) = 'KC11=1.1E0*1.26e-6/(1.26e-6+10.**(-TPK%PHC))::WC_HNO4-->WC_&
&HONO'
- CFULLREACS(501) = 'KC12=(3.3E+5*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*(10.**(&
+ CFULLREACS(224) = 'KC12=(3.3E+5*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*(10.**(&
&-TPK%PHC))**2./((1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./T&
&PK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**&
&(-TPK%PHC))**2.)*(1.26e-6+10.**(-TPK%PHC))))/TPK%MOL2MOLECCLOUD::WC_HNO4+WC_SO&
-&2-->WC_H2SO4+WC_HNO3'
- CFULLREACS(502) = 'KC13=!ZRATES(:,025)*2.2e+1/(2.2e+1+10.**(-TPK%PHC))::WC_HNO&
+&2-->WC_SULF+WC_HNO3'
+ CFULLREACS(225) = 'KC13=!ZRATES(:,019)*2.2e+1/(2.2e+1+10.**(-TPK%PHC))::WC_HNO&
&3-->WC_NO2+WC_OH'
- CFULLREACS(503) = 'KC14=1.0E+10::WC_N2O5-->WC_HNO3+WC_HNO3'
- CFULLREACS(504) = 'KC15=(1.0E+5*1.0e+3*1.0e-2/(1.0e+3*1.0e-2+1.0e+3*10.**(-TPK&
-&%PHC)+(10.**(-TPK%PHC))**2.))/TPK%MOL2MOLECCLOUD::WC_NO3+WC_H2SO4-->WC_HNO3+WC&
-&_ASO4'
- CFULLREACS(505) = 'KC16=(1.3E+9*exp(-2200.*(1./TPK%T-1./298.15))*1.3e-2*exp(19&
+ CFULLREACS(226) = 'KC14=1.0E+10::WC_N2O5-->WC_HNO3+WC_HNO3'
+ CFULLREACS(227) = 'KC15=(1.0E+5*1.0e+3*1.0e-2/(1.0e+3*1.0e-2+1.0e+3*10.**(-TPK&
+&%PHC)+(10.**(-TPK%PHC))**2.))/TPK%MOL2MOLECCLOUD::WC_NO3+WC_SULF-->WC_HNO3+WC_&
+&ASO4'
+ CFULLREACS(228) = 'KC16=(1.3E+9*exp(-2200.*(1./TPK%T-1./298.15))*1.3e-2*exp(19&
&65.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.1&
&5))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.1&
&5))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.))/TPK%MOL2MOLECCLOUD::WC_NO3+WC_SO2-&
&->WC_HNO3+WC_ASO3'
- CFULLREACS(506) = 'KC17=((7.9E+2*exp(-2900.*(1./TPK%T-1./298.15))*1.3e-2*exp(1&
+ CFULLREACS(229) = 'KC17=(1.7E+8*exp(-2200.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLE&
+&CCLOUD::WC_MO2+WC_MO2-->2.00*WC_HCHO+2.00*WC_HO2'
+ CFULLREACS(230) = 'KC18=(5.0E+5*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-&
+&TPK%PHC)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1.&
+&/298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%P&
+&HC))**2.))/TPK%MOL2MOLECCLOUD::WC_MO2+WC_SO2-->WC_OP1+WC_ASO3'
+ CFULLREACS(231) = 'KC19=(7.8E+8*exp(-1000.*(1./TPK%T-1./298.15))*2.5e3*exp(403&
+&0.*(1./TPK%T-1./298.15))/(1.+2.5e3*exp(4030.*(1./TPK%T-1./298.15))))/TPK%MOL2M&
+&OLECCLOUD::WC_HCHO+WC_OH-->WC_ORA1+WC_HO2'
+ CFULLREACS(232) = 'KC20=((1.0E+8*exp(-1000.*(1./TPK%T-1./298.15))*10.**(-TPK%P&
+&HC)+3.4E+9*exp(-1200.*(1./TPK%T-1./298.15))*1.8e-4*exp(150.*(1./TPK%T-1./298.1&
+&5)))/(1.8e-4*exp(150.*(1./TPK%T-1./298.15))+10.**(-TPK%PHC)))/TPK%MOL2MOLECCLO&
+&UD::WC_ORA1+WC_OH-->WC_CO2+WC_HO2'
+ CFULLREACS(233) = 'KC21=((7.9E+2*exp(-2900.*(1./TPK%T-1./298.15))*1.3e-2*exp(1&
&965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+2.5E+7*exp(-2450.*(1./TPK%T-1./298.&
&15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.&
&15)))/((1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./2&
&98.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC&
&))**2.)*(1.+2.5e3*exp(4030.*(1./TPK%T-1./298.15)))))/TPK%MOL2MOLECCLOUD::WC_SO&
&2+WC_HCHO-->WC_AHMS'
- CFULLREACS(507) = 'KC18=7.7E-3*exp(-9200.*(1./TPK%T-1./298.15))+3.7E+3*1.e-14*&
+ CFULLREACS(234) = 'KC22=7.7E-3*exp(-9200.*(1./TPK%T-1./298.15))+3.7E+3*1.e-14*&
&EXP(-6716*(1./TPK%T-1./298.15))/10.**(-TPK%PHC)::WC_AHMS-->WC_SO2+WC_HCHO'
- CFULLREACS(508) = 'KC19=3.0E+8/TPK%MOL2MOLECCLOUD::WC_AHMS+WC_OH-->WC_HO2+WC_O&
+ CFULLREACS(235) = 'KC23=3.0E+8/TPK%MOL2MOLECCLOUD::WC_AHMS+WC_OH-->WC_HO2+WC_O&
&RA1+WC_SO2'
- CFULLREACS(509) = 'KC20=1.1E+9::WC_ASO3+W_O2-->WC_ASO5'
- CFULLREACS(510) = 'KC21=(1.7E+9*10.**(-TPK%PHC)/(1.6e-5+10.**(-TPK%PHC)))/TPK%&
+ CFULLREACS(236) = 'KC24=1.1E+9::WC_ASO3+W_O2-->WC_ASO5'
+ CFULLREACS(237) = 'KC25=(1.7E+9*10.**(-TPK%PHC)/(1.6e-5+10.**(-TPK%PHC)))/TPK%&
&MOL2MOLECCLOUD::WC_ASO5+WC_HO2-->WC_AHSO5'
- CFULLREACS(511) = 'KC22=(2.2E+8*exp(-2600.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLE&
+ CFULLREACS(238) = 'KC26=(2.2E+8*exp(-2600.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLE&
&CCLOUD::WC_ASO5+WC_ASO5-->WC_ASO4+WC_ASO4'
- CFULLREACS(512) = 'KC23=(7.1E+6*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-&
+ CFULLREACS(239) = 'KC27=(7.1E+6*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-&
&TPK%PHC)*10.**(-TPK%PHC)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(14&
&30.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PH&
-&C)+(10.**(-TPK%PHC))**2.))/TPK%MOL2MOLECCLOUD::WC_AHSO5+WC_SO2-->2.00*WC_H2SO4&
-&'
- CFULLREACS(513) = 'KC24=4.6E+2*exp(-1100.*(1./TPK%T-1./298.15))::WC_ASO4-->WC_&
-&H2SO4+WC_OH'
- CFULLREACS(514) = 'KC25=((3.7E+5*exp(-5500.*(1./TPK%T-1./298.15))*1.3e-2*exp(1&
+&C)+(10.**(-TPK%PHC))**2.))/TPK%MOL2MOLECCLOUD::WC_AHSO5+WC_SO2-->2.00*WC_SULF'
+ CFULLREACS(240) = 'KC28=4.6E+2*exp(-1100.*(1./TPK%T-1./298.15))::WC_ASO4-->WC_&
+&SULF+WC_OH'
+ CFULLREACS(241) = 'KC29=((3.7E+5*exp(-5500.*(1./TPK%T-1./298.15))*1.3e-2*exp(1&
&965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+1.5E+9*exp(-5300.*(1./TPK%T-1./298.&
&15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.&
&15)))/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./29&
&8.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC)&
-&)**2.))/TPK%MOL2MOLECCLOUD::WC_SO2+WC_O3-->WC_H2SO4'
- CFULLREACS(515) = 'KC26=(9.1E+7*exp(-3600.*(1./TPK%T-1./298.15))*1.3e-2*exp(19&
+&)**2.))/TPK%MOL2MOLECCLOUD::WC_SO2+WC_O3-->WC_SULF'
+ CFULLREACS(242) = 'KC30=(9.1E+7*exp(-3600.*(1./TPK%T-1./298.15))*1.3e-2*exp(19&
&65.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)*10.**(-TPK%PHC)/(1.3e-2*exp(1965.*(1&
&./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1&
&./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.))/TPK%MOL2MOLECCLOUD&
-&::WC_SO2+WC_H2O2-->WC_H2SO4'
- CFULLREACS(516) = 'KC27=(1.7E+8*exp(-2200.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLE&
-&CCLOUD::WC_RO21+WC_RO21-->2.00*WC_HCHO+2.00*WC_HO2'
- CFULLREACS(517) = 'KC28=(5.0E+5*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-&
-&TPK%PHC)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1.&
-&/298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%P&
-&HC))**2.))/TPK%MOL2MOLECCLOUD::WC_RO21+WC_SO2-->WC_HCHO+WC_ASO3'
- CFULLREACS(518) = 'KC29=1.5E+8/TPK%MOL2MOLECCLOUD::WC_RO25+WC_RO25-->WC_ORA2+W&
-&C_H2O2+WC_ALD2+WC_HO2'
- CFULLREACS(519) = 'KC30=(1.7E+9*exp(-600.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLEC&
-&CLOUD::WC_MEOH+WC_OH-->WC_HCHO+WC_HO2'
- CFULLREACS(520) = 'KC31=(2.1E+9*exp(-1200.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLE&
-&CCLOUD::WC_ETOH+WC_OH-->WC_ALD2+WC_HO2'
- CFULLREACS(521) = 'KC32=(3.3E+9*exp(-1000.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLE&
-&CCLOUD::WC_ALCH+WC_OH-->0.50*WC_ALD2+0.50*WC_KETL+WC_HO2'
- CFULLREACS(522) = 'KC33=(7.8E+8*exp(-1000.*(1./TPK%T-1./298.15))*2.5e3*exp(403&
-&0.*(1./TPK%T-1./298.15))/(1.+2.5e3*exp(4030.*(1./TPK%T-1./298.15))))/TPK%MOL2M&
-&OLECCLOUD::WC_HCHO+WC_OH-->WC_ORA1+WC_HO2'
- CFULLREACS(523) = 'KC34=3.4E+9/TPK%MOL2MOLECCLOUD::WC_ALD2+WC_OH-->0.50*WC_RO2&
-&1+0.50*WC_RO25+WC_CO2'
- CFULLREACS(524) = 'KC35=(1.1E+9*exp(-1500.*(1./TPK%T-1./298.15))*3.9e3/(1.+3.9&
-&e3))/TPK%MOL2MOLECCLOUD::WC_GLY+WC_OH-->WC_RP16+WC_HO2'
- CFULLREACS(525) = 'KC36=(7.9E+8*exp(-1600.*(1./TPK%T-1./298.15))*4.86e2/(1.+4.&
-&86e2))/TPK%MOL2MOLECCLOUD::WC_MGLY+WC_OH-->WC_UR21+WC_HO2'
- CFULLREACS(526) = 'KC37=(8.9E+8*exp(-1400.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLE&
-&CCLOUD::WC_KETL+WC_OH-->WC_MGLY+WC_KETL+WC_HCHO+WC_UR21+WC_ALD2+WC_RO21+WC_CO2&
-&+WC_H2O2+WC_HO2'
- CFULLREACS(527) = 'KC38=((1.0E+8*exp(-1000.*(1./TPK%T-1./298.15))*10.**(-TPK%P&
-&HC)+3.4E+9*exp(-1200.*(1./TPK%T-1./298.15))*1.8e-4*exp(150.*(1./TPK%T-1./298.1&
-&5)))/(1.8e-4*exp(150.*(1./TPK%T-1./298.15))+10.**(-TPK%PHC)))/TPK%MOL2MOLECCLO&
-&UD::WC_ORA1+WC_OH-->WC_CO2+WC_HO2'
- CFULLREACS(528) = 'KC39=((1.5E+7*exp(-1300.*(1./TPK%T-1./298.15))*10.**(-TPK%P&
-&HC)+1.0E+8*exp(-1800.*(1./TPK%T-1./298.15))*1.75e-5)/(1.75e-5+10.**(-TPK%PHC))&
-&)/TPK%MOL2MOLECCLOUD::WC_ORA2+WC_OH-->WC_RP16+0.5*WC_H2O2'
- CFULLREACS(529) = 'KC40=(3.2E+8*exp(-2300.*(1./TPK%T-1./298.15))*10.**(-TPK%PH&
-&C)/(1.35e-5+10.**(-TPK%PHC)))/TPK%MOL2MOLECCLOUD::WC_ACID+WC_OH-->WC_RO25+WC_C&
-&O2'
- CFULLREACS(530) = 'KC41=(7.3E+8*exp(-1800.*(1./TPK%T-1./298.15))*1.35e-5/(1.35&
-&e-5+10.**(-TPK%PHC)))/TPK%MOL2MOLECCLOUD::WC_ACID+WC_OH-->0.56*WC_UR21+0.15*WC&
-&_ACID2+0.29*WC_ALD2+0.29*WC_H2O2+0.11*WC_HO2'
- CFULLREACS(531) = 'KC42=((4.7E+7*10.**(-TPK%PHC)*5.6E-2+7.7E+6*5.6E-2*5.4e-5)/&
-&(5.6E-2*5.4E-5+5.4E-5*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.))/TPK%MOL2MOLECCLO&
-&UD::WC_UR28+WC_OH-->2*WC_CO2+WC_HO2'
- CFULLREACS(532) = 'KC43=((1.2E+8*exp(-2800.*(1./TPK%T-1./298.15))*10.**(-TPK%P&
-&HC)+7.0E+8*exp(-2300.*(1./TPK%T-1./298.15))*3.55E-3)/(3.55E-3+10.**(-TPK%PHC))&
-&)/TPK%MOL2MOLECCLOUD::WC_UR21+WC_OH-->0.56*WC_ACID2+0.43*WC_ALD2+0.43*WC_CO2+0&
-&.3*WC_H2O2+0.81*WC_HO2'
- CFULLREACS(533) = 'KC44=(3.6E+8*exp(-1000.*(1./TPK%T-1./298.15))*10.**(-TPK%PH&
-&C)/(10.**(-TPK%PHC)+3.2E-4))/TPK%MOL2MOLECCLOUD::WC_RP16+WC_OH-->WC_UR28+WC_HO&
-&2'
- CFULLREACS(534) = 'KC45=(2.6E+9*exp(-4300.*(1./TPK%T-1./298.15))*3.2E-4/(10.**&
-&(-TPK%PHC)+3.2E-4))/TPK%MOL2MOLECCLOUD::WC_RP16+WC_OH-->2*WC_CO2+0.45*WC_H2O2+&
-&0.71*WC_HO2'
- CFULLREACS(535) = 'KC46=1.6E+7/TPK%MOL2MOLECCLOUD::WC_ACID2+WC_OH-->'
- CFULLREACS(536) = 'KR1=!ZRATES(:,024)::WR_H2O2-->WR_OH+WR_OH'
- CFULLREACS(537) = 'KR2=(3.6E+9*exp(-930.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECR&
+&::WC_SO2+WC_H2O2-->WC_SULF'
+ CFULLREACS(243) = 'KR1=!ZRATES(:,018)::WR_H2O2-->WR_OH+WR_OH'
+ CFULLREACS(244) = 'KR2=(3.6E+9*exp(-930.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECR&
&AIN::WR_OH+WR_OH-->WR_H2O2'
- CFULLREACS(538) = 'KR3=((2.8E+10*10.**(-TPK%PHR)+3.5E+10*exp(-720.*(1./TPK%T-1&
+ CFULLREACS(245) = 'KR3=((2.8E+10*10.**(-TPK%PHR)+3.5E+10*exp(-720.*(1./TPK%T-1&
&./298.15))*1.6e-5)/(1.6e-5+10.**(-TPK%PHR)))/TPK%MOL2MOLECRAIN::WR_OH+WR_HO2--&
&>'
- CFULLREACS(539) = 'KR4=(3.2E+7*exp(-1700.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLEC&
+ CFULLREACS(246) = 'KR4=(3.2E+7*exp(-1700.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLEC&
&RAIN::WR_H2O2+WR_OH-->WR_HO2'
- CFULLREACS(540) = 'KR5=((8.3E+5*exp(-2700.*(1./TPK%T-1./298.15))*(10.**(-TPK%P&
+ CFULLREACS(247) = 'KR5=((8.3E+5*exp(-2700.*(1./TPK%T-1./298.15))*(10.**(-TPK%P&
&HR))**2.+9.6E+7*exp(-910.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)*1.6e-5)/(1.6e-&
&5+10.**(-TPK%PHR))**2.)/TPK%MOL2MOLECRAIN::WR_HO2+WR_HO2-->WR_H2O2'
- CFULLREACS(541) = 'KR6=(1.5E+9*exp(-1500.*(1./TPK%T-1./298.15))*1.6e-5/(1.6e-5&
+ CFULLREACS(248) = 'KR6=(1.5E+9*exp(-1500.*(1./TPK%T-1./298.15))*1.6e-5/(1.6e-5&
&+10.**(-TPK%PHR)))/TPK%MOL2MOLECRAIN::WR_O3+WR_HO2-->WR_OH'
- CFULLREACS(542) = 'KR7=(2.7E+9*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-T&
+ CFULLREACS(249) = 'KR7=(2.7E+9*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-T&
&PK%PHR)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./&
&298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PH&
&R))**2.))/TPK%MOL2MOLECRAIN::WR_OH+WR_SO2-->WR_ASO3'
- CFULLREACS(543) = 'KR8=(1.0E+10*10.**(-TPK%PHR)/(1.6e-3*exp(-1760.*(1./TPK%T-1&
+ CFULLREACS(250) = 'KR8=(1.0E+10*10.**(-TPK%PHR)/(1.6e-3*exp(-1760.*(1./TPK%T-1&
&./298.15))+10.**(-TPK%PHR)))/TPK%MOL2MOLECRAIN::WR_HONO+WR_OH-->WR_NO2'
- CFULLREACS(544) = 'KR9=((1.8E+9*10.**(-TPK%PHR)+4.5E+9*1.6e-5)/(1.6e-5+10.**(-&
+ CFULLREACS(251) = 'KR9=((1.8E+9*10.**(-TPK%PHR)+4.5E+9*1.6e-5)/(1.6e-5+10.**(-&
&TPK%PHR)))/TPK%MOL2MOLECRAIN::WR_NO2+WR_HO2-->WR_HNO4'
- CFULLREACS(545) = 'KR10=2.6E-2*10.**(-TPK%PHR)/(1.26e-6+10.**(-TPK%PHR))::WR_H&
+ CFULLREACS(252) = 'KR10=2.6E-2*10.**(-TPK%PHR)/(1.26e-6+10.**(-TPK%PHR))::WR_H&
&NO4-->WR_HO2+WR_NO2'
- CFULLREACS(546) = 'KR11=1.1E0*1.26e-6/(1.26e-6+10.**(-TPK%PHR))::WR_HNO4-->WR_&
+ CFULLREACS(253) = 'KR11=1.1E0*1.26e-6/(1.26e-6+10.**(-TPK%PHR))::WR_HNO4-->WR_&
&HONO'
- CFULLREACS(547) = 'KR12=(3.3E+5*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*(10.**(&
+ CFULLREACS(254) = 'KR12=(3.3E+5*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*(10.**(&
&-TPK%PHR))**2./((1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./T&
&PK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**&
&(-TPK%PHR))**2.)*(1.26e-6+10.**(-TPK%PHR))))/TPK%MOL2MOLECRAIN::WR_HNO4+WR_SO2&
-&-->WR_H2SO4+WR_HNO3'
- CFULLREACS(548) = 'KR13=!ZRATES(:,025)*2.2e+1/(2.2e+1+10.**(-TPK%PHR))::WR_HNO&
+&-->WR_SULF+WR_HNO3'
+ CFULLREACS(255) = 'KR13=!ZRATES(:,019)*2.2e+1/(2.2e+1+10.**(-TPK%PHR))::WR_HNO&
&3-->WR_NO2+WR_OH'
- CFULLREACS(549) = 'KR14=1.0E+10::WR_N2O5-->WR_HNO3+WR_HNO3'
- CFULLREACS(550) = 'KR15=(1.0E+5*1.0e+3*1.0e-2/(1.0e+3*1.0e-2+1.0e+3*10.**(-TPK&
-&%PHR)+(10.**(-TPK%PHR))**2.))/TPK%MOL2MOLECRAIN::WR_NO3+WR_H2SO4-->WR_HNO3+WR_&
-&ASO4'
- CFULLREACS(551) = 'KR16=(1.3E+9*exp(-2200.*(1./TPK%T-1./298.15))*1.3e-2*exp(19&
+ CFULLREACS(256) = 'KR14=1.0E+10::WR_N2O5-->WR_HNO3+WR_HNO3'
+ CFULLREACS(257) = 'KR15=(1.0E+5*1.0e+3*1.0e-2/(1.0e+3*1.0e-2+1.0e+3*10.**(-TPK&
+&%PHR)+(10.**(-TPK%PHR))**2.))/TPK%MOL2MOLECRAIN::WR_NO3+WR_SULF-->WR_HNO3+WR_A&
+&SO4'
+ CFULLREACS(258) = 'KR16=(1.3E+9*exp(-2200.*(1./TPK%T-1./298.15))*1.3e-2*exp(19&
&65.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.1&
&5))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.1&
&5))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.))/TPK%MOL2MOLECRAIN::WR_NO3+WR_SO2--&
&>WR_HNO3+WR_ASO3'
- CFULLREACS(552) = 'KR17=((7.9E+2*exp(-2900.*(1./TPK%T-1./298.15))*1.3e-2*exp(1&
+ CFULLREACS(259) = 'KR17=(1.7E+8*exp(-2200.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLE&
+&CRAIN::WR_MO2+WR_MO2-->2.00*WR_HCHO+2.00*WR_HO2'
+ CFULLREACS(260) = 'KR18=(5.0E+5*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-&
+&TPK%PHR)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1.&
+&/298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%P&
+&HR))**2.))/TPK%MOL2MOLECRAIN::WR_MO2+WR_SO2-->WR_OP1+WR_ASO3'
+ CFULLREACS(261) = 'KR19=(7.8E+8*exp(-1000.*(1./TPK%T-1./298.15))*2.5e3*exp(403&
+&0.*(1./TPK%T-1./298.15))/(1.+2.5e3*exp(4030.*(1./TPK%T-1./298.15))))/TPK%MOL2M&
+&OLECRAIN::WR_HCHO+WR_OH-->WR_ORA1+WR_HO2'
+ CFULLREACS(262) = 'KR20=((1.0E+8*exp(-1000.*(1./TPK%T-1./298.15))*10.**(-TPK%P&
+&HR)+3.4E+9*exp(-1200.*(1./TPK%T-1./298.15))*1.8e-4*exp(150.*(1./TPK%T-1./298.1&
+&5)))/(1.8e-4*exp(150.*(1./TPK%T-1./298.15))+10.**(-TPK%PHR)))/TPK%MOL2MOLECRAI&
+&N::WR_ORA1+WR_OH-->WR_CO2+WR_HO2'
+ CFULLREACS(263) = 'KR21=((7.9E+2*exp(-2900.*(1./TPK%T-1./298.15))*1.3e-2*exp(1&
&965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+2.5E+7*exp(-2450.*(1./TPK%T-1./298.&
&15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.&
&15)))/((1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./2&
&98.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR&
&))**2.)*(1.+2.5e3*exp(4030.*(1./TPK%T-1./298.15)))))/TPK%MOL2MOLECRAIN::WR_SO2&
&+WR_HCHO-->WR_AHMS'
- CFULLREACS(553) = 'KR18=7.7E-3*exp(-9200.*(1./TPK%T-1./298.15))+3.7E+3*1.e-14*&
+ CFULLREACS(264) = 'KR22=7.7E-3*exp(-9200.*(1./TPK%T-1./298.15))+3.7E+3*1.e-14*&
&EXP(-6716*(1./TPK%T-1./298.15))/10.**(-TPK%PHR)::WR_AHMS-->WR_SO2+WR_HCHO'
- CFULLREACS(554) = 'KR19=3.0E+8/TPK%MOL2MOLECRAIN::WR_AHMS+WR_OH-->WR_HO2+WR_OR&
+ CFULLREACS(265) = 'KR23=3.0E+8/TPK%MOL2MOLECRAIN::WR_AHMS+WR_OH-->WR_HO2+WR_OR&
&A1+WR_SO2'
- CFULLREACS(555) = 'KR20=1.1E+9::WR_ASO3+W_O2-->WR_ASO5'
- CFULLREACS(556) = 'KR21=(1.7E+9*10.**(-TPK%PHR)/(1.6e-5+10.**(-TPK%PHR)))/TPK%&
+ CFULLREACS(266) = 'KR24=1.1E+9::WR_ASO3+W_O2-->WR_ASO5'
+ CFULLREACS(267) = 'KR25=(1.7E+9*10.**(-TPK%PHR)/(1.6e-5+10.**(-TPK%PHR)))/TPK%&
&MOL2MOLECRAIN::WR_ASO5+WR_HO2-->WR_AHSO5'
- CFULLREACS(557) = 'KR22=(2.2E+8*exp(-2600.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLE&
+ CFULLREACS(268) = 'KR26=(2.2E+8*exp(-2600.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLE&
&CRAIN::WR_ASO5+WR_ASO5-->WR_ASO4+WR_ASO4'
- CFULLREACS(558) = 'KR23=(7.1E+6*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-&
+ CFULLREACS(269) = 'KR27=(7.1E+6*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-&
&TPK%PHR)*10.**(-TPK%PHR)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(14&
&30.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PH&
-&R)+(10.**(-TPK%PHR))**2.))/TPK%MOL2MOLECRAIN::WR_AHSO5+WR_SO2-->2.00*WR_H2SO4'
- CFULLREACS(559) = 'KR24=4.6E+2*exp(-1100.*(1./TPK%T-1./298.15))::WR_ASO4-->WR_&
-&H2SO4+WR_OH'
- CFULLREACS(560) = 'KR25=((3.7E+5*exp(-5500.*(1./TPK%T-1./298.15))*1.3e-2*exp(1&
+&R)+(10.**(-TPK%PHR))**2.))/TPK%MOL2MOLECRAIN::WR_AHSO5+WR_SO2-->2.00*WR_SULF'
+ CFULLREACS(270) = 'KR28=4.6E+2*exp(-1100.*(1./TPK%T-1./298.15))::WR_ASO4-->WR_&
+&SULF+WR_OH'
+ CFULLREACS(271) = 'KR29=((3.7E+5*exp(-5500.*(1./TPK%T-1./298.15))*1.3e-2*exp(1&
&965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+1.5E+9*exp(-5300.*(1./TPK%T-1./298.&
&15))*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.&
&15)))/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./29&
&8.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR)&
-&)**2.))/TPK%MOL2MOLECRAIN::WR_SO2+WR_O3-->WR_H2SO4'
- CFULLREACS(561) = 'KR26=(9.1E+7*exp(-3600.*(1./TPK%T-1./298.15))*1.3e-2*exp(19&
+&)**2.))/TPK%MOL2MOLECRAIN::WR_SO2+WR_O3-->WR_SULF'
+ CFULLREACS(272) = 'KR30=(9.1E+7*exp(-3600.*(1./TPK%T-1./298.15))*1.3e-2*exp(19&
&65.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)*10.**(-TPK%PHR)/(1.3e-2*exp(1965.*(1&
&./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1&
&./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.))/TPK%MOL2MOLECRAIN:&
-&:WR_SO2+WR_H2O2-->WR_H2SO4'
- CFULLREACS(562) = 'KR27=(1.7E+8*exp(-2200.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLE&
-&CRAIN::WR_RO21+WR_RO21-->2.00*WR_HCHO+2.00*WR_HO2'
- CFULLREACS(563) = 'KR28=(5.0E+5*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-&
-&TPK%PHR)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1.&
-&/298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%P&
-&HR))**2.))/TPK%MOL2MOLECRAIN::WR_RO21+WR_SO2-->WR_HCHO+WR_ASO3'
- CFULLREACS(564) = 'KR29=1.5E+8/TPK%MOL2MOLECRAIN::WR_RO25+WR_RO25-->WR_ORA2+WR&
-&_H2O2+WR_ALD2+WR_HO2'
- CFULLREACS(565) = 'KR30=(1.7E+9*exp(-600.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLEC&
-&RAIN::WR_MEOH+WR_OH-->WR_HCHO+WR_HO2'
- CFULLREACS(566) = 'KR31=(2.1E+9*exp(-1200.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLE&
-&CRAIN::WR_ETOH+WR_OH-->WR_ALD2+WR_HO2'
- CFULLREACS(567) = 'KR32=(3.3E+9*exp(-1000.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLE&
-&CRAIN::WR_ALCH+WR_OH-->0.50*WR_ALD2+0.50*WR_KETL+WR_HO2'
- CFULLREACS(568) = 'KR33=(7.8E+8*exp(-1000.*(1./TPK%T-1./298.15))*2.5e3*exp(403&
-&0.*(1./TPK%T-1./298.15))/(1.+2.5e3*exp(4030.*(1./TPK%T-1./298.15))))/TPK%MOL2M&
-&OLECRAIN::WR_HCHO+WR_OH-->WR_ORA1+WR_HO2'
- CFULLREACS(569) = 'KR34=3.4E+9/TPK%MOL2MOLECRAIN::WR_ALD2+WR_OH-->0.50*WR_RO21&
-&+0.50*WR_RO25+WR_CO2'
- CFULLREACS(570) = 'KR35=(1.1E+9*exp(-1500.*(1./TPK%T-1./298.15))*3.9e3/(1.+3.9&
-&e3))/TPK%MOL2MOLECRAIN::WR_GLY+WR_OH-->WR_RP16+WR_HO2'
- CFULLREACS(571) = 'KR36=(7.9E+8*exp(-1600.*(1./TPK%T-1./298.15))*4.86e2/(1.+4.&
-&86e2))/TPK%MOL2MOLECRAIN::WR_MGLY+WR_OH-->WR_UR21+WR_HO2'
- CFULLREACS(572) = 'KR37=(8.9E+8*exp(-1400.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLE&
-&CRAIN::WR_KETL+WR_OH-->WR_MGLY+WR_KETL+WR_HCHO+WR_UR21+WR_ALD2+WR_RO21+WR_CO2+&
-&WR_H2O2+WR_HO2'
- CFULLREACS(573) = 'KR38=((1.0E+8*exp(-1000.*(1./TPK%T-1./298.15))*10.**(-TPK%P&
-&HR)+3.4E+9*exp(-1200.*(1./TPK%T-1./298.15))*1.8e-4*exp(150.*(1./TPK%T-1./298.1&
-&5)))/(1.8e-4*exp(150.*(1./TPK%T-1./298.15))+10.**(-TPK%PHR)))/TPK%MOL2MOLECRAI&
-&N::WR_ORA1+WR_OH-->WR_CO2+WR_HO2'
- CFULLREACS(574) = 'KR39=((1.5E+7*exp(-1300.*(1./TPK%T-1./298.15))*10.**(-TPK%P&
-&HR)+1.0E+8*exp(-1800.*(1./TPK%T-1./298.15))*1.75e-5)/(1.75e-5+10.**(-TPK%PHR))&
-&)/TPK%MOL2MOLECRAIN::WR_ORA2+WR_OH-->WR_RP16+0.5*WR_H2O2'
- CFULLREACS(575) = 'KR40=(3.2E+8*exp(-2300.*(1./TPK%T-1./298.15))*10.**(-TPK%PH&
-&R)/(1.35e-5+10.**(-TPK%PHR)))/TPK%MOL2MOLECRAIN::WR_ACID+WR_OH-->WR_RO25+WR_CO&
-&2'
- CFULLREACS(576) = 'KR41=(7.3E+8*exp(-1800.*(1./TPK%T-1./298.15))*1.35e-5/(1.35&
-&e-5+10.**(-TPK%PHR)))/TPK%MOL2MOLECRAIN::WR_ACID+WR_OH-->0.56*WR_UR21+0.15*WR_&
-&ACID2+0.29*WR_ALD2+0.29*WR_H2O2+0.11*WR_HO2'
- CFULLREACS(577) = 'KR42=((4.7E+7*10.**(-TPK%PHR)*5.6E-2+7.7E+6*5.6E-2*5.4e-5)/&
-&(5.6E-2*5.4E-5+5.4E-5*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.))/TPK%MOL2MOLECRAI&
-&N::WR_UR28+WR_OH-->2*WR_CO2+WR_HO2'
- CFULLREACS(578) = 'KR43=((1.2E+8*exp(-2800.*(1./TPK%T-1./298.15))*10.**(-TPK%P&
-&HR)+7.0E+8*exp(-2300.*(1./TPK%T-1./298.15))*3.55E-3)/(3.55E-3+10.**(-TPK%PHR))&
-&)/TPK%MOL2MOLECRAIN::WR_UR21+WR_OH-->0.56*WR_ACID2+0.43*WR_ALD2+0.43*WR_CO2+0.&
-&3*WR_H2O2+0.81*WR_HO2'
- CFULLREACS(579) = 'KR44=(3.6E+8*exp(-1000.*(1./TPK%T-1./298.15))*10.**(-TPK%PH&
-&R)/(10.**(-TPK%PHR)+3.2E-4))/TPK%MOL2MOLECRAIN::WR_RP16+WR_OH-->WR_UR28+WR_HO2&
-&'
- CFULLREACS(580) = 'KR45=(2.6E+9*exp(-4300.*(1./TPK%T-1./298.15))*3.2E-4/(10.**&
-&(-TPK%PHR)+3.2E-4))/TPK%MOL2MOLECRAIN::WR_RP16+WR_OH-->2*WR_CO2+0.45*WR_H2O2+0&
-&.71*WR_HO2'
- CFULLREACS(581) = 'KR46=1.6E+7/TPK%MOL2MOLECRAIN::WR_ACID2+WR_OH-->'
+&:WR_SO2+WR_H2O2-->WR_SULF'
END IF
IF (KVERB >= 5) THEN
! print information to KOUT
@@ -7553,1640 +3919,6 @@ END SUBROUTINE CH_PRODLOSS
!
!========================================================================
!
-!! ##########################
- MODULE MODI_CH_PRODLOSS_GAZ
-!! ##########################
-INTERFACE
-SUBROUTINE CH_PRODLOSS_GAZ(PTIME,PCONC,PPROD,PLOSS,KMI,KVECNPT,KEQ)
-IMPLICIT NONE
-REAL, INTENT(IN) :: PTIME
-INTEGER, INTENT(IN) :: KVECNPT
-INTEGER, INTENT(IN) :: KEQ
-REAL, INTENT(IN), DIMENSION(KVECNPT,KEQ) :: PCONC
-REAL, INTENT(OUT), DIMENSION(KVECNPT,KEQ) :: PPROD, PLOSS
-INTEGER, INTENT(IN) :: KMI
-END SUBROUTINE CH_PRODLOSS_GAZ
-END INTERFACE
-END MODULE MODI_CH_PRODLOSS_GAZ
-!
-!========================================================================
-!
-!! ##################################################################
- SUBROUTINE CH_PRODLOSS_GAZ(PTIME,PCONC,PPROD,PLOSS,KMI,KVECNPT,KEQ)
-!! ##################################################################
-!! This code has been created automatically by preprocessor m10,
-!! version: 9.7, copyright 1995-1999 by Meteo France/Universite Paul Sabatier.
-!! Please report all bugs to K. Suhre (Lab. d'Aerologie UPS/CNRS).
-!!
-!!*** *MODD_CH_PRODLOSS*
-!!
-!! PURPOSE
-!! -------
-! calculation of production and loss terms for diagnostics
-!!
-!!** METHOD
-!! ------
-!! The terms of temporal derivative of the chemical species,
-!! written as:
-!! d/dt PCONC = CH_FCN = PPROD - PCONC*PLOSS,
-!! are calculated for diagnostic purposes.
-!!
-!! REFERENCE
-!! ---------
-!! none
-!!
-!! AUTHOR
-!! ------
-!! Karsten Suhre (LA)
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 26/07/96
-!! Modified 05/05/98: Vectorization (Vincent Crassier & KS)
-!! Modified 31/10/03: New interface for better MesoNH compilation (D. Gazen)
-!!
-!!----------------------------------------------------------------------
-!!
-!! EXTERNAL
-!! --------
-!! none
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-USE MODD_CH_M9_SCHEME
-!!
-!! EXPLICIT ARGUMENTS
-!! ------------------
-IMPLICIT NONE
-REAL, INTENT(IN) :: PTIME
-INTEGER, INTENT(IN) :: KVECNPT
-INTEGER, INTENT(IN) :: KEQ
-REAL, INTENT(IN), DIMENSION(KVECNPT,KEQ) :: PCONC
-REAL, INTENT(OUT), DIMENSION(KVECNPT,KEQ) :: PPROD, PLOSS
-INTEGER, INTENT(IN) :: KMI
-TYPE(CCSTYPE), POINTER :: TPK
-TPK=>TACCS(KMI)
-! /BEGIN_CODE/
-TPK%OSD = ( +TPK%K016*PCONC(:,JP_O3) ) / &
- ( +TPK%K017*TPK%H2O+TPK%K018A*TPK%N2(:)+TPK%K018B*TPK%O2(:) )
-!
-TPK%O = ( +TPK%K001*PCONC(:,JP_NO2)+TPK%K014*PCONC(:,JP_NO3)+TPK%&
-&K015*PCONC(:,JP_O3)+TPK%K018A*TPK%OSD*TPK%N2(:)+TPK%K018B*TPK%OSD*TPK%O2(:) ) / &
-( +TPK%K002*TPK%O2(:)+TPK%K003*PCONC(:,JP_NO2)+TPK%K004*PCONC(:,JP_NO2)+TPK%K034*&
-PCONC(:,JP_O3)+TPK%K038*PCONC(:,JP_NO)+TPK%K052*PCONC(:,JP_ETHE)+&
-&TPK%K057*PCONC(:,JP_OLEL)+TPK%K067*PCONC(:,JP_ISOP)+TPK%K077*PCONC(:,&
-&JP_OLEH)+TPK%K087*PCONC(:,JP_BIOL)+TPK%K091*PCONC(:,JP_BIOH)+TPK%K283&
-&*PCONC(:,JP_MVK)+TPK%K284*PCONC(:,JP_MCR) )
-!
-TPK%RO225 = ( TPK%K085*PCONC(:,JP_BIOL)*PCONC(:,JP_NO3) ) / &
-( +TPK%K201*PCONC(:,JP_NO)+TPK%K202*PCONC(:,JP_RO2T)+TPK%K203*PCONC(:,JP_HO2))
-!
-TPK%RO228 = ( TPK%K089*PCONC(:,JP_BIOH)*PCONC(:,JP_NO3) ) / &
-( +TPK%K210*PCONC(:,JP_NO)+TPK%K211*PCONC(:,JP_RO2T)+TPK%K212*PCONC(:,JP_HO2))
-
-!
-TPK%RO253 = ( +0.41*TPK%K282*PCONC(:,JP_MCR)*PCONC(:,JP_O3) ) / &
-( +TPK%K297*PCONC(:,JP_NO)+TPK%K298*PCONC(:,JP_HO2)+TPK%K299*PCONC(&
-&:,JP_RO2T) )
-!
-TPK%RO254 = ( +TPK%K140*PCONC(:,JP_PAN6)+TPK%K297*TPK%RO253*&
-&PCONC(:,JP_NO)+TPK%K298*TPK%RO253*PCONC(:,JP_HO2)+TPK%K299*&
-&TPK%RO253*PCONC(:,JP_RO2T) ) / &
-( +TPK%K131*PCONC(:,JP_NO2)+TPK%K300*PCONC(:,JP_NO)+TPK%K301*PCONC(&
-&:,JP_HO2)+TPK%K302*PCONC(:,JP_RO2T) )
-!
-TPK%RO213 = ( +0.271*TPK%K066*PCONC(:,JP_ISOP)*PCONC(:,JP_O3) ) / &
-( +TPK%K162*PCONC(:,JP_NO)+TPK%K163*PCONC(:,JP_RO2T)+TPK%K164*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO239 = ( +TPK%K137*PCONC(:,JP_PAN3)+TPK%K162*TPK%RO213*&
-&PCONC(:,JP_NO)+TPK%K163*TPK%RO213*PCONC(:,JP_RO2T)+TPK%K164*TPK%RO213*PCONC(:,JP_HO2) ) / &
-( +TPK%K128*PCONC(:,JP_NO2)+TPK%K165*PCONC(:,JP_NO)+TPK%K166*PCONC(&
-&:,JP_HO2)+TPK%K167*PCONC(:,JP_RO2T) )
-!
-TPK%RO248 = ( +TPK%K141*PCONC(:,JP_PAN4)+TPK%K274*PCONC(:,JP_MGLY)*P&
-&CONC(:,JP_OH)+TPK%K278*PCONC(:,JP_MGLY)*PCONC(:,JP_NO3) ) / &
-( +TPK%K129*PCONC(:,JP_NO2)+TPK%K277*PCONC(:,JP_NO)+TPK%K279*PCONC(&
-&:,JP_HO2)+TPK%K280*PCONC(:,JP_RO2T) )
-!
-TPK%RO249 = ( +TPK%K272*PCONC(:,JP_MVK)*PCONC(:,JP_OH) ) / &
-( +TPK%K285*PCONC(:,JP_NO)+TPK%K286*PCONC(:,JP_RO2T)+TPK%K287*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO250 = ( +0.3750353*TPK%K139*PCONC(:,JP_APAN)+TPK%CF46*TPK%K2&
-&73*PCONC(:,JP_MCR)*PCONC(:,JP_OH)+TPK%CF46*TPK%K275*PCONC(:,JP_MCR)*PCONC&
-&(:,JP_NO3) ) / &
-( +TPK%K130*PCONC(:,JP_NO2)+TPK%K288*PCONC(:,JP_NO)+TPK%K289*PCONC(&
-&:,JP_HO2)+TPK%K290*PCONC(:,JP_RO2T) )
-!
-TPK%RO214 = ( +0.095*TPK%K066*PCONC(:,JP_ISOP)*PCONC(:,JP_O3)+TPK%K1&
-&65*TPK%RO239*PCONC(:,JP_NO)+TPK%K167*TPK%RO239*PCONC(:,JP_R&
-&O2T)+TPK%K288*TPK%RO250*PCONC(:,JP_NO)+TPK%K290*TPK%RO250&
-&*PCONC(:,JP_RO2T) ) / &
-( +TPK%K168*PCONC(:,JP_NO)+TPK%K169*PCONC(:,JP_RO2T)+TPK%K170*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO251 = ( +TPK%CF47*TPK%K273*PCONC(:,JP_MCR)*PCONC(:,JP_OH) ) / &
-( +TPK%K291*PCONC(:,JP_NO)+TPK%K292*PCONC(:,JP_HO2)+TPK%K293*PCONC(&
-&:,JP_RO2T) )
-!
-TPK%RO252 = ( +TPK%CF47*TPK%K275*PCONC(:,JP_MCR)*PCONC(:,JP_NO3) ) /&
-( +TPK%K294*PCONC(:,JP_NO)+TPK%K295*PCONC(:,JP_HO2)+TPK%K296*PCONC(&
-&:,JP_RO2T) )
-!
-TPK%RO258 = ( +TPK%K138*PCONC(:,JP_PN10)+TPK%K305*PCONC(:,JP_RP16)*P&
-&CONC(:,JP_OH)+TPK%K338*PCONC(:,JP_RP16)*PCONC(:,JP_NO3) ) / &
-( +TPK%K134*PCONC(:,JP_NO2)+TPK%K340*PCONC(:,JP_NO)+TPK%K341*PCONC(&
-&:,JP_HO2)+TPK%K342*PCONC(:,JP_RO2T) )
-!
-TPK%RO255 = ( +TPK%K304*PCONC(:,JP_RPR1)*PCONC(:,JP_OH)+TPK%K307*PCO&
-&NC(:,JP_RPR1)*PCONC(:,JP_NO3)+TPK%K343*PCONC(:,JP_PAN7) ) / &
-( +TPK%K132*PCONC(:,JP_NO2)+TPK%K309*PCONC(:,JP_NO)+TPK%K310*PCONC(&
-&:,JP_HO2)+TPK%K311*PCONC(:,JP_RO2T) )
-!
-TPK%RO256 = ( +TPK%K312*PCONC(:,JP_RPR3)*PCONC(:,JP_OH)+TPK%K313*PCO&
-&NC(:,JP_RPR3)*PCONC(:,JP_NO3)+TPK%K317*PCONC(:,JP_PAN8) ) / &
-( +TPK%K315*PCONC(:,JP_NO)+TPK%K316*PCONC(:,JP_NO2)+TPK%K318*PCONC(&
-&:,JP_HO2)+TPK%K319*PCONC(:,JP_RO2T) )
-!
-TPK%RO257 = ( +0.6249651*TPK%K139*PCONC(:,JP_APAN)+TPK%K324*PCONC(:,&
-&JP_RPR8)*PCONC(:,JP_OH)+TPK%K327*PCONC(:,JP_RPR8)*PCONC(:,JP_NO3)+TPK%K3&
-&30*PCONC(:,JP_RPR8) ) / &
-( +TPK%K133*PCONC(:,JP_NO2)+TPK%K331*PCONC(:,JP_NO)+TPK%K332*PCONC(&
-&:,JP_HO2)+TPK%K333*PCONC(:,JP_RO2T) )
-!
-TPK%RO29 = ( +0.66*TPK%K064*PCONC(:,JP_ISOP)*PCONC(:,JP_OH)+TPK%K329&
-&*PCONC(:,JP_RPR8)+TPK%K331*TPK%RO257*PCONC(:,JP_NO)+TPK%K333*TPK%RO257*&
-PCONC(:,JP_RO2T) ) / &
-( +TPK%K150*PCONC(:,JP_NO)+TPK%K151*PCONC(:,JP_RO2T)+TPK%K152*PCONC&
-&(:,JP_HO2) )
-!
-!avoid division by zero in prodloss
-WHERE (PCONC(:,JP_NO2)>0.)
- TPK%RAD1 = ( +TPK%K072*PCONC(:,JP_AROO)*PCONC(:,JP_NO3) ) / &
- ( +TPK%K103*PCONC(:,JP_NO2) )
-!
- TPK%RAD8 = ( +TPK%K320*PCONC(:,JP_RPR4)*PCONC(:,JP_NO3) ) / &
- ( +TPK%K321*PCONC(:,JP_NO2) )
-ELSEWHERE
- TPK%RAD1 = 0.
- TPK%RAD8 = 0.
-ENDWHERE
-!
-TPK%RAD2 = ( +0.74*TPK%K073*PCONC(:,JP_AROO)*PCONC(:,JP_OH) ) / &
-( +TPK%K097+TPK%K104*PCONC(:,JP_NO2) )
-!
-TPK%RAD3 = ( +0.74*TPK%K079*PCONC(:,JP_AROL)*PCONC(:,JP_OH) ) / &
-( +TPK%K098+TPK%K105*PCONC(:,JP_NO2) )
-!
-TPK%RAD4 = ( +0.84*TPK%K080*PCONC(:,JP_AROH)*PCONC(:,JP_OH) ) / &
-( +TPK%K099+TPK%K106*PCONC(:,JP_NO2) )
-!
-TPK%RAD5 = ( +TPK%CF40*TPK%K082*PCONC(:,JP_ARAL)*PCONC(:,JP_OH) ) / &
-( +TPK%K100+TPK%K107*PCONC(:,JP_NO2) )
-!
-TPK%RAD6 = ( +0.74*TPK%K083*PCONC(:,JP_ARAC)*PCONC(:,JP_OH) ) / &
-( +TPK%K101+TPK%K108*PCONC(:,JP_NO2) )
-!
-TPK%RAD7 = ( +0.74*TPK%K092*PCONC(:,JP_PAH)*PCONC(:,JP_OH) ) / &
-( +TPK%K102+TPK%K109*PCONC(:,JP_NO2) )
-!
-TPK%RO22 = ( +TPK%K049*PCONC(:,JP_ETHE)*PCONC(:,JP_OH)+TPK%CF2*TPK&
-&%K053*PCONC(:,JP_ETOH)*PCONC(:,JP_OH)+TPK%K054*PCONC(:,JP_OLEL)*PCONC(:,JP_&
-&OH)+TPK%K069*PCONC(:,JP_ALCH)*PCONC(:,JP_OH) ) / &
-( +TPK%K113*PCONC(:,JP_NO)+TPK%K114*PCONC(:,JP_RO2T)+TPK%K115*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO23 = ( +TPK%K050*PCONC(:,JP_ETHE)*PCONC(:,JP_NO3)+TPK%K055*PCO&
-&NC(:,JP_OLEL)*PCONC(:,JP_NO3) ) / &
-( +TPK%K116*PCONC(:,JP_NO)+TPK%K117*PCONC(:,JP_RO2T)+TPK%K118*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO24 = ( +0.4*TPK%K052*PCONC(:,JP_ETHE)*TPK%O+0.1*TPK%K0&
-&57*PCONC(:,JP_OLEL)*TPK%O+0.1*TPK%K077*PCONC(:,JP_OLEH)*&
-&TPK%O+0.15*TPK%K283*PCONC(:,JP_MVK)*TPK%O ) / &
-( +TPK%K119*PCONC(:,JP_NO)+TPK%K120*PCONC(:,JP_RO2T)+TPK%K121*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO26 = ( +TPK%K060*PCONC(:,JP_ALD2)*PCONC(:,JP_OH)+TPK%K061*PCON&
-&C(:,JP_ALD2)*PCONC(:,JP_NO3)+TPK%K135*PCONC(:,JP_PAN1) ) / &
-( +TPK%K125*PCONC(:,JP_NO)+TPK%K126*PCONC(:,JP_NO2)+TPK%K142*PCONC(&
-&:,JP_HO2)+TPK%K143*PCONC(:,JP_RO2T) )
-!
-TPK%RO27 = ( +TPK%K062*PCONC(:,JP_KETL)*PCONC(:,JP_OH)+TPK%CF8*TPK&
-&%K168*TPK%RO214*PCONC(:,JP_NO)+TPK%K169*TPK%RO214*PCONC(:,J&
-&P_RO2T)+TPK%K170*TPK%RO214*PCONC(:,JP_HO2)+0.15*TPK%K284*PCONC(:&
-&,JP_MCR)*TPK%O ) / &
-( +TPK%K144*PCONC(:,JP_NO)+TPK%K145*PCONC(:,JP_RO2T)+TPK%K146*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO210 = ( +0.34*TPK%K064*PCONC(:,JP_ISOP)*PCONC(:,JP_OH) ) / &
-( +TPK%K153*PCONC(:,JP_NO)+TPK%K154*PCONC(:,JP_RO2T)+TPK%K155*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO211 = ( +0.66*TPK%K065*PCONC(:,JP_ISOP)*PCONC(:,JP_NO3) ) / &
-( +TPK%K156*PCONC(:,JP_NO)+TPK%K157*PCONC(:,JP_RO2T)+TPK%K158*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO212 = ( +0.34*TPK%K065*PCONC(:,JP_ISOP)*PCONC(:,JP_NO3) ) / &
-( +TPK%K159*PCONC(:,JP_NO)+TPK%K160*PCONC(:,JP_RO2T)+TPK%K161*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO215 = ( +TPK%K068*PCONC(:,JP_MTBE)*PCONC(:,JP_OH) ) / &
-( +TPK%K171*PCONC(:,JP_NO)+TPK%K172*PCONC(:,JP_RO2T)+TPK%K173*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO216 = ( +TPK%K070*PCONC(:,JP_KETH)*PCONC(:,JP_OH) ) / &
-( +TPK%K174*PCONC(:,JP_NO)+TPK%K175*PCONC(:,JP_RO2T)+TPK%K176*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO217 = ( +0.1*TPK%K073*PCONC(:,JP_AROO)*PCONC(:,JP_OH) ) / &
-( +TPK%K177*PCONC(:,JP_NO)+TPK%K178*PCONC(:,JP_RO2T)+TPK%K179*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO220 = ( +0.28*TPK%K076*PCONC(:,JP_OLEH)*PCONC(:,JP_O3)+0.1*TPK&
-&%K077*PCONC(:,JP_OLEH)*TPK%O+TPK%K078*PCONC(:,JP_ALKM)*PCONC(:,JP_O&
-&H)+TPK%K308*PCONC(:,JP_RPR1)+TPK%K309*TPK%RO255*PCONC(:,JP_NO)+T&
-&PK%K311*TPK%RO255*PCONC(:,JP_RO2T) ) / &
-( +TPK%K186*PCONC(:,JP_NO)+TPK%K187*PCONC(:,JP_RO2T)+TPK%K188*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO218 = ( +TPK%K074*PCONC(:,JP_OLEH)*PCONC(:,JP_OH)+TPK%CF18*TPK%K186*&
-TPK%RO220*PCONC(:,JP_NO)+TPK%K187*TPK%RO220*PCONC(:&
-&,JP_RO2T)+TPK%K188*TPK%RO220*PCONC(:,JP_HO2) ) / &
-( +TPK%K180*PCONC(:,JP_NO)+TPK%K181*PCONC(:,JP_RO2T)+TPK%K182*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO219 = ( +TPK%K075*PCONC(:,JP_OLEH)*PCONC(:,JP_NO3) ) / &
-( +TPK%K183*PCONC(:,JP_NO)+TPK%K184*PCONC(:,JP_RO2T)+TPK%K185*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO221 = ( +0.1*TPK%K079*PCONC(:,JP_AROL)*PCONC(:,JP_OH) ) / &
-( +TPK%K189*PCONC(:,JP_NO)+TPK%K190*PCONC(:,JP_RO2T)+TPK%K191*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO222 = ( +TPK%CF45*TPK%K082*PCONC(:,JP_ARAL)*PCONC(:,JP_OH) ) /&
-& &
-( +TPK%K192*PCONC(:,JP_NO)+TPK%K193*PCONC(:,JP_RO2T)+TPK%K194*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO223 = ( +0.1*TPK%K083*PCONC(:,JP_ARAC)*PCONC(:,JP_OH) ) / &
-( +TPK%K195*PCONC(:,JP_NO)+TPK%K196*PCONC(:,JP_RO2T)+TPK%K197*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO224 = ( +TPK%K084*PCONC(:,JP_BIOL)*PCONC(:,JP_OH) ) / &
-( +TPK%K198*PCONC(:,JP_NO)+TPK%K199*PCONC(:,JP_RO2T)+TPK%K200*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO226 = ( +0.445*TPK%K086*PCONC(:,JP_BIOL)*PCONC(:,JP_O3) ) / &
-( +TPK%K204*PCONC(:,JP_NO)+TPK%K205*PCONC(:,JP_RO2T)+TPK%K206*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO227 = ( +TPK%K088*PCONC(:,JP_BIOH)*PCONC(:,JP_OH) ) / &
-( +TPK%K207*PCONC(:,JP_NO)+TPK%K208*PCONC(:,JP_RO2T)+TPK%K209*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO229 = ( +0.445*TPK%K090*PCONC(:,JP_BIOH)*PCONC(:,JP_O3) ) / &
-( +TPK%K213*PCONC(:,JP_NO)+TPK%K214*PCONC(:,JP_RO2T)+TPK%K215*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO230 = ( +0.445*TPK%K090*PCONC(:,JP_BIOH)*PCONC(:,JP_O3) ) / &
-( +TPK%K219*PCONC(:,JP_RO2T)+TPK%K220*PCONC(:,JP_HO2)+TPK%K344*PCON&
-&C(:,JP_NO) )
-!
-TPK%RO231 = ( +0.1*TPK%K092*PCONC(:,JP_PAH)*PCONC(:,JP_OH) ) / &
-( +TPK%K221*PCONC(:,JP_NO)+TPK%K222*PCONC(:,JP_RO2T)+TPK%K223*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO232 = ( +TPK%K093*PCONC(:,JP_ALKH)*PCONC(:,JP_OH) ) / &
-( +TPK%K224*PCONC(:,JP_NO)+TPK%K225*PCONC(:,JP_RO2T)+TPK%K226*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO233 = ( +TPK%K097*TPK%RAD2 ) / &
-( +TPK%K230+TPK%K231*PCONC(:,JP_NO)+TPK%K232*PCONC(:,JP_RO2T)+TPK%K233*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO234 = ( +TPK%K098*TPK%RAD3 ) / &
-( +TPK%K237+TPK%K238*PCONC(:,JP_NO)+TPK%K239*PCONC(:,JP_RO2T)+TPK%K240*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO235 = ( +TPK%K099*TPK%RAD4 ) / &
-( +TPK%K244+TPK%K245*PCONC(:,JP_NO)+TPK%K246*PCONC(:,JP_RO2T)+TPK%K247*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO236 = ( +TPK%K100*TPK%RAD5 ) / &
-( +TPK%K251+TPK%K252*PCONC(:,JP_NO)+TPK%K253*PCONC(:,JP_RO2T)+TPK%K254*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO237 = ( +TPK%K101*TPK%RAD6 ) / &
-( +TPK%K258+TPK%K259*PCONC(:,JP_NO)+TPK%K260*PCONC(:,JP_RO2T)+TPK%K261*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO238 = ( +TPK%K102*TPK%RAD7 ) / &
-( +TPK%K265+TPK%K266*PCONC(:,JP_NO)+TPK%K267*PCONC(:,JP_RO2T)+TPK%K268*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO240 = ( +TPK%CF30*TPK%K213*TPK%RO229*PCONC(:,JP_NO)+TPK%K214*&
-TPK%RO229*PCONC(:,JP_RO2T)+TPK%K215*TPK%RO229*PCON&
-&C(:,JP_HO2) ) / &
-( +TPK%K216*PCONC(:,JP_NO)+TPK%K217*PCONC(:,JP_RO2T)+TPK%K218*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO241 = ( +TPK%CF34*TPK%K224*TPK%RO232*PCONC(:,JP_NO)+TPK%K225*&
-TPK%RO232*PCONC(:,JP_RO2T)+TPK%K226*TPK%RO232*PCON&
-&C(:,JP_HO2) ) / &
-( +TPK%K227*PCONC(:,JP_NO)+TPK%K228*PCONC(:,JP_RO2T)+TPK%K229*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO242 = ( +TPK%K230*TPK%RO233 ) / &
-( +TPK%K234*PCONC(:,JP_NO)+TPK%K235*PCONC(:,JP_RO2T)+TPK%K236*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO243 = ( +TPK%K237*TPK%RO234 ) / &
-( +TPK%K241*PCONC(:,JP_NO)+TPK%K242*PCONC(:,JP_RO2T)+TPK%K243*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO244 = ( +TPK%K244*TPK%RO235 ) / &
-( +TPK%K248*PCONC(:,JP_NO)+TPK%K249*PCONC(:,JP_RO2T)+TPK%K250*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO245 = ( +TPK%K251*TPK%RO236 ) / &
-( +TPK%K255*PCONC(:,JP_NO)+TPK%K256*PCONC(:,JP_RO2T)+TPK%K257*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO246 = ( +TPK%K258*TPK%RO237 ) / &
-( +TPK%K262*PCONC(:,JP_NO)+TPK%K263*PCONC(:,JP_RO2T)+TPK%K264*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO247 = ( +TPK%K265*TPK%RO238 ) / &
-( +TPK%K269*PCONC(:,JP_NO)+TPK%K270*PCONC(:,JP_RO2T)+TPK%K271*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO28 = ( +TPK%K063*PCONC(:,JP_KETL)+TPK%K071*PCONC(:,JP_KETH)+TP&
-&K%K136*PCONC(:,JP_PAN2)+TPK%K144*TPK%RO27*PCONC(:,JP_NO)+TPK%&
-&K145*TPK%RO27*PCONC(:,JP_RO2T)+TPK%K146*TPK%RO27*PCONC(:,JP&
-&_HO2)+TPK%K174*TPK%RO216*PCONC(:,JP_NO)+TPK%K175*TPK%RO21&
-&6*PCONC(:,JP_RO2T)+TPK%K176*TPK%RO216*PCONC(:,JP_HO2)+TPK%K204*&
-&TPK%RO226*PCONC(:,JP_NO)+TPK%K205*TPK%RO226*PCONC(:,JP_RO2T)&
-&+TPK%K206*TPK%RO226*PCONC(:,JP_HO2)+TPK%K216*TPK%RO240*&
-&PCONC(:,JP_NO)+TPK%K217*TPK%RO240*PCONC(:,JP_RO2T)+TPK%K218*&
-&TPK%RO240*PCONC(:,JP_HO2)+TPK%K219*TPK%RO230*PCONC(:,JP_RO2T)+T&
-&PK%K220*TPK%RO230*PCONC(:,JP_HO2)+TPK%K276*PCONC(:,JP_MGLY)+TPK%K277*&
-TPK%RO248*PCONC(:,JP_NO)+TPK%K280*TPK%RO248*PCONC(:&
-&,JP_RO2T)+0.28*TPK%K281*PCONC(:,JP_MVK)*PCONC(:,JP_O3)+0.15*TPK%K283*PCO&
-&NC(:,JP_MVK)*TPK%O+TPK%K344*TPK%RO230*PCONC(:,JP_NO) ) / &
-( +TPK%K127*PCONC(:,JP_NO2)+TPK%K147*PCONC(:,JP_NO)+TPK%K148*PCONC(&
-&:,JP_HO2)+TPK%K149*PCONC(:,JP_RO2T) )
-!
-! /END_CODE/
-CALL SUB0
-CALL SUB1
-CALL SUB2
-CALL SUB3
-CALL SUB4
-CALL SUB5
-CALL SUB6
-CALL SUB7
-CALL SUB8
-
-CONTAINS
-
-SUBROUTINE SUB0
-!
-!Indices 1 a 10
-!
-!
-!PPROD(NO) = +K001*<NO2>+K003*<NO2>*<O>+K012*<NO3>*<NO2>+K013*<NO3>+0.9*K020*<H
-!ONO>+K095*<NO>*<RO2T>
- PPROD(:,1) = +TPK%K001(:)*PCONC(:,2)+TPK%K003(:)*PCONC(:,2)*TPK%O(:)+TPK%K012(&
-&:)*PCONC(:,8)*PCONC(:,2)+TPK%K013(:)*PCONC(:,8)+0.9*TPK%K020(:)*PCONC(:,4)+TPK&
-&%K095(:)*PCONC(:,1)*PCONC(:,85)
-!PLOSS(NO) = +K005*<O3>+K007*<NO3>+K008*<NO>+K008*<NO>+K019*<OH>+K026*<HO2>+K03
-!8*<O>+K095*<RO2T>+K110*<RO21>+K113*<RO22>+K116*<RO23>+K119*<RO24>+K122*<RO25>+
-!K125*<RO26>+K144*<RO27>+K147*<RO28>+K150*<RO29>+K153*<RO210>+K156*<RO211>+K159
-!*<RO212>+K162*<RO213>+K165*<RO239>+K168*<RO214>+K171*<RO215>+K174*<RO216>+K177
-!*<RO217>+K180*<RO218>+K183*<RO219>+K186*<RO220>+K189*<RO221>+K192*<RO222>+K195
-!*<RO223>+K198*<RO224>+K201*<RO225>+K204*<RO226>+K207*<RO227>+K210*<RO228>+K213
-!*<RO229>+K216*<RO240>+K221*<RO231>+K224*<RO232>+K227*<RO241>+K231*<RO233>+K234
-!*<RO242>+K238*<RO234>+K241*<RO243>+K245*<RO235>+K248*<RO244>+K252*<RO236>+K255
-!*<RO245>+K259*<RO237>+K262*<RO246>+K266*<RO238>+K269*<RO247>+K277*<RO248>+K285
-!*<RO249>+K288*<RO250>+K291*<RO251>+K294*<RO252>+K297*<RO253>+K300*<RO254>+K309
-!*<RO255>+K315*<RO256>+K331*<RO257>+K340*<RO258>+K344*<RO230>
- PLOSS(:,1) = +TPK%K005(:)*PCONC(:,3)+TPK%K007(:)*PCONC(:,8)+TPK%K008(:)*PCONC(&
-&:,1)+TPK%K008(:)*PCONC(:,1)+TPK%K019(:)*PCONC(:,15)+TPK%K026(:)*PCONC(:,10)+TP&
-&K%K038(:)*TPK%O(:)+TPK%K095(:)*PCONC(:,85)+TPK%K110(:)*PCONC(:,86)+TPK%K113(:)&
-&*TPK%RO22(:)+TPK%K116(:)*TPK%RO23(:)+TPK%K119(:)*TPK%RO24(:)+TPK%K122(:)*PCONC&
-&(:,87)+TPK%K125(:)*TPK%RO26(:)+TPK%K144(:)*TPK%RO27(:)+TPK%K147(:)*TPK%RO28(:)&
-&+TPK%K150(:)*TPK%RO29(:)+TPK%K153(:)*TPK%RO210(:)+TPK%K156(:)*TPK%RO211(:)+TPK&
-&%K159(:)*TPK%RO212(:)+TPK%K162(:)*TPK%RO213(:)+TPK%K165(:)*TPK%RO239(:)+TPK%K1&
-&68(:)*TPK%RO214(:)+TPK%K171(:)*TPK%RO215(:)+TPK%K174(:)*TPK%RO216(:)+TPK%K177(&
-&:)*TPK%RO217(:)+TPK%K180(:)*TPK%RO218(:)+TPK%K183(:)*TPK%RO219(:)+TPK%K186(:)*&
-&TPK%RO220(:)+TPK%K189(:)*TPK%RO221(:)+TPK%K192(:)*TPK%RO222(:)+TPK%K195(:)*TPK&
-&%RO223(:)+TPK%K198(:)*TPK%RO224(:)+TPK%K201(:)*TPK%RO225(:)+TPK%K204(:)*TPK%RO&
-&226(:)+TPK%K207(:)*TPK%RO227(:)+TPK%K210(:)*TPK%RO228(:)+TPK%K213(:)*TPK%RO229&
-&(:)+TPK%K216(:)*TPK%RO240(:)+TPK%K221(:)*TPK%RO231(:)+TPK%K224(:)*TPK%RO232(:)&
-&+TPK%K227(:)*TPK%RO241(:)+TPK%K231(:)*TPK%RO233(:)+TPK%K234(:)*TPK%RO242(:)+TP&
-&K%K238(:)*TPK%RO234(:)+TPK%K241(:)*TPK%RO243(:)+TPK%K245(:)*TPK%RO235(:)+TPK%K&
-&248(:)*TPK%RO244(:)+TPK%K252(:)*TPK%RO236(:)+TPK%K255(:)*TPK%RO245(:)+TPK%K259&
-&(:)*TPK%RO237(:)+TPK%K262(:)*TPK%RO246(:)+TPK%K266(:)*TPK%RO238(:)+TPK%K269(:)&
-&*TPK%RO247(:)+TPK%K277(:)*TPK%RO248(:)+TPK%K285(:)*TPK%RO249(:)+TPK%K288(:)*TP&
-&K%RO250(:)+TPK%K291(:)*TPK%RO251(:)+TPK%K294(:)*TPK%RO252(:)+TPK%K297(:)*TPK%R&
-&O253(:)+TPK%K300(:)*TPK%RO254(:)+TPK%K309(:)*TPK%RO255(:)+TPK%K315(:)*TPK%RO25&
-&6(:)+TPK%K331(:)*TPK%RO257(:)+TPK%K340(:)*TPK%RO258(:)+TPK%K344(:)*TPK%RO230(:&
-&)
-!
-!PPROD(NO2) = +K005*<O3>*<NO>+2.*K007*<NO3>*<NO>+2.*K008*<NO>*<NO>+K010*<N2O5>+
-!K012*<NO3>*<NO2>+K014*<NO3>+0.1*K020*<HONO>+K026*<HO2>*<NO>+K028*<HNO4>+K029*<
-!OH>*<HNO4>+0.8*K033*<HO2>*<NO3>+K038*<NO>*<O>+K039*<OH>*<HONO>+K040*<OH>*<NO3>
-!+2.*K041*<NO3>*<NO3>+K110*<NO>*<RO21>+K113*<NO>*<RO22>+2.*K116*<NO>*<RO23>+K11
-!7*<RO2T>*<RO23>+K118*<HO2>*<RO23>+K119*<NO>*<RO24>+TPK%CF4*K122*<NO>*<RO25>+K1
-!25*<NO>*<RO26>+K135*<PAN1>+K136*<PAN2>+K137*<PAN3>+K138*<PN10>+1.0000000*K139*
-!<APAN>+K140*<PAN6>+K141*<PAN4>+K144*<NO>*<RO27>+K147*<NO>*<RO28>+TPK%CF6*K150*
-!<NO>*<RO29>+K153*<NO>*<RO210>+2.*K156*<NO>*<RO211>+K157*<RO2T>*<RO211>+K158*<H
-!O2>*<RO211>+2.*K159*<NO>*<RO212>+K160*<RO2T>*<RO212>+K161*<HO2>*<RO212>+K162*<
-!NO>*<RO213>+K165*<NO>*<RO239>+TPK%CF8*K168*<NO>*<RO214>+K171*<NO>*<RO215>+K174
-!*<NO>*<RO216>+TPK%CF22*K177*<NO>*<RO217>+TPK%CF20*K180*<NO>*<RO218>+2.*K183*<N
-!O>*<RO219>+K184*<RO2T>*<RO219>+K185*<HO2>*<RO219>+TPK%CF18*K186*<NO>*<RO220>+T
-!PK%CF24*K189*<NO>*<RO221>+TPK%CF42*K192*<NO>*<RO222>+TPK%CF44*K195*<NO>*<RO223
-!>+TPK%CF26*K198*<NO>*<RO224>+2.*K201*<NO>*<RO225>+K202*<RO2T>*<RO225>+K203*<HO
-!2>*<RO225>+K204*<NO>*<RO226>+TPK%CF28*K207*<NO>*<RO227>+2.*K210*<NO>*<RO228>+K
-!211*<RO2T>*<RO228>+K212*<HO2>*<RO228>+TPK%CF30*K213*<NO>*<RO229>+K216*<NO>*<RO
-!240>+TPK%CF32*K221*<NO>*<RO231>+TPK%CF34*K224*<NO>*<RO232>+TPK%CF36*K227*<NO>*
-!<RO241>+K231*<NO>*<RO233>+K234*<NO>*<RO242>+K238*<NO>*<RO234>+K241*<NO>*<RO243
-!>+K245*<NO>*<RO235>+K248*<NO>*<RO244>+K252*<NO>*<RO236>+K255*<NO>*<RO245>+K259
-!*<NO>*<RO237>+K262*<NO>*<RO246>+K266*<NO>*<RO238>+K269*<NO>*<RO247>+K277*<NO>*
-!<RO248>+K285*<NO>*<RO249>+K288*<NO>*<RO250>+K291*<NO>*<RO251>+2.*K294*<NO>*<RO
-!252>+K295*<HO2>*<RO252>+K296*<RO2T>*<RO252>+K297*<NO>*<RO253>+K300*<NO>*<RO254
-!>+K309*<NO>*<RO255>+K315*<NO>*<RO256>+K317*<PAN8>+K331*<NO>*<RO257>+K340*<NO>*
-!<RO258>+K343*<PAN7>+K344*<NO>*<RO230>
- PPROD(:,2) = +TPK%K005(:)*PCONC(:,3)*PCONC(:,1)+2.*TPK%K007(:)*PCONC(:,8)*PCON&
-&C(:,1)+2.*TPK%K008(:)*PCONC(:,1)*PCONC(:,1)+TPK%K010(:)*PCONC(:,7)+TPK%K012(:)&
-&*PCONC(:,8)*PCONC(:,2)+TPK%K014(:)*PCONC(:,8)+0.1*TPK%K020(:)*PCONC(:,4)+TPK%K&
-&026(:)*PCONC(:,10)*PCONC(:,1)+TPK%K028(:)*PCONC(:,6)+TPK%K029(:)*PCONC(:,15)*P&
-&CONC(:,6)+0.8*TPK%K033(:)*PCONC(:,10)*PCONC(:,8)+TPK%K038(:)*PCONC(:,1)*TPK%O(&
-&:)+TPK%K039(:)*PCONC(:,15)*PCONC(:,4)+TPK%K040(:)*PCONC(:,15)*PCONC(:,8)+2.*TP&
-&K%K041(:)*PCONC(:,8)*PCONC(:,8)+TPK%K110(:)*PCONC(:,1)*PCONC(:,86)+TPK%K113(:)&
-&*PCONC(:,1)*TPK%RO22(:)+2.*TPK%K116(:)*PCONC(:,1)*TPK%RO23(:)+TPK%K117(:)*PCON&
-&C(:,85)*TPK%RO23(:)+TPK%K118(:)*PCONC(:,10)*TPK%RO23(:)+TPK%K119(:)*PCONC(:,1)&
-&*TPK%RO24(:)+TPK%CF4*TPK%K122(:)*PCONC(:,1)*PCONC(:,87)+TPK%K125(:)*PCONC(:,1)&
-&*TPK%RO26(:)+TPK%K135(:)*PCONC(:,77)+TPK%K136(:)*PCONC(:,78)+TPK%K137(:)*PCONC&
-&(:,79)+TPK%K138(:)*PCONC(:,84)+1.0000000*TPK%K139(:)*PCONC(:,76)+TPK%K140(:)*P&
-&CONC(:,81)+TPK%K141(:)*PCONC(:,80)+TPK%K144(:)*PCONC(:,1)*TPK%RO27(:)+TPK%K147&
-&(:)*PCONC(:,1)*TPK%RO28(:)+TPK%CF6*TPK%K150(:)*PCONC(:,1)*TPK%RO29(:)+TPK%K153&
-&(:)*PCONC(:,1)*TPK%RO210(:)+2.*TPK%K156(:)*PCONC(:,1)*TPK%RO211(:)+TPK%K157(:)&
-&*PCONC(:,85)*TPK%RO211(:)+TPK%K158(:)*PCONC(:,10)*TPK%RO211(:)+2.*TPK%K159(:)*&
-&PCONC(:,1)*TPK%RO212(:)+TPK%K160(:)*PCONC(:,85)*TPK%RO212(:)+TPK%K161(:)*PCONC&
-&(:,10)*TPK%RO212(:)+TPK%K162(:)*PCONC(:,1)*TPK%RO213(:)+TPK%K165(:)*PCONC(:,1)&
-&*TPK%RO239(:)+TPK%CF8*TPK%K168(:)*PCONC(:,1)*TPK%RO214(:)+TPK%K171(:)*PCONC(:,&
-&1)*TPK%RO215(:)+TPK%K174(:)*PCONC(:,1)*TPK%RO216(:)+TPK%CF22*TPK%K177(:)*PCONC&
-&(:,1)*TPK%RO217(:)+TPK%CF20*TPK%K180(:)*PCONC(:,1)*TPK%RO218(:)+2.*TPK%K183(:)&
-&*PCONC(:,1)*TPK%RO219(:)+TPK%K184(:)*PCONC(:,85)*TPK%RO219(:)+TPK%K185(:)*PCON&
-&C(:,10)*TPK%RO219(:)+TPK%CF18*TPK%K186(:)*PCONC(:,1)*TPK%RO220(:)+TPK%CF24*TPK&
-&%K189(:)*PCONC(:,1)*TPK%RO221(:)+TPK%CF42*TPK%K192(:)*PCONC(:,1)*TPK%RO222(:)+&
-&TPK%CF44*TPK%K195(:)*PCONC(:,1)*TPK%RO223(:)+TPK%CF26*TPK%K198(:)*PCONC(:,1)*T&
-&PK%RO224(:)+2.*TPK%K201(:)*PCONC(:,1)*TPK%RO225(:)+TPK%K202(:)*PCONC(:,85)*TPK&
-&%RO225(:)+TPK%K203(:)*PCONC(:,10)*TPK%RO225(:)+TPK%K204(:)*PCONC(:,1)*TPK%RO22&
-&6(:)+TPK%CF28*TPK%K207(:)*PCONC(:,1)*TPK%RO227(:)+2.*TPK%K210(:)*PCONC(:,1)*TP&
-&K%RO228(:)+TPK%K211(:)*PCONC(:,85)*TPK%RO228(:)+TPK%K212(:)*PCONC(:,10)*TPK%RO&
-&228(:)+TPK%CF30*TPK%K213(:)*PCONC(:,1)*TPK%RO229(:)+TPK%K216(:)*PCONC(:,1)*TPK&
-&%RO240(:)+TPK%CF32*TPK%K221(:)*PCONC(:,1)*TPK%RO231(:)+TPK%CF34*TPK%K224(:)*PC&
-&ONC(:,1)*TPK%RO232(:)+TPK%CF36*TPK%K227(:)*PCONC(:,1)*TPK%RO241(:)+TPK%K231(:)&
-&*PCONC(:,1)*TPK%RO233(:)+TPK%K234(:)*PCONC(:,1)*TPK%RO242(:)+TPK%K238(:)*PCONC&
-&(:,1)*TPK%RO234(:)+TPK%K241(:)*PCONC(:,1)*TPK%RO243(:)+TPK%K245(:)*PCONC(:,1)*&
-&TPK%RO235(:)+TPK%K248(:)*PCONC(:,1)*TPK%RO244(:)+TPK%K252(:)*PCONC(:,1)*TPK%RO&
-&236(:)+TPK%K255(:)*PCONC(:,1)*TPK%RO245(:)+TPK%K259(:)*PCONC(:,1)*TPK%RO237(:)&
-&+TPK%K262(:)*PCONC(:,1)*TPK%RO246(:)+TPK%K266(:)*PCONC(:,1)*TPK%RO238(:)+TPK%K&
-&269(:)*PCONC(:,1)*TPK%RO247(:)+TPK%K277(:)*PCONC(:,1)*TPK%RO248(:)+TPK%K285(:)&
-&*PCONC(:,1)*TPK%RO249(:)+TPK%K288(:)*PCONC(:,1)*TPK%RO250(:)+TPK%K291(:)*PCONC&
-&(:,1)*TPK%RO251(:)+2.*TPK%K294(:)*PCONC(:,1)*TPK%RO252(:)+TPK%K295(:)*PCONC(:,&
-&10)*TPK%RO252(:)+TPK%K296(:)*PCONC(:,85)*TPK%RO252(:)+TPK%K297(:)*PCONC(:,1)*T&
-&PK%RO253(:)+TPK%K300(:)*PCONC(:,1)*TPK%RO254(:)+TPK%K309(:)*PCONC(:,1)*TPK%RO2&
-&55(:)+TPK%K315(:)*PCONC(:,1)*TPK%RO256(:)+TPK%K317(:)*PCONC(:,83)+TPK%K331(:)*&
-&PCONC(:,1)*TPK%RO257(:)+TPK%K340(:)*PCONC(:,1)*TPK%RO258(:)+TPK%K343(:)*PCONC(&
-&:,82)+TPK%K344(:)*PCONC(:,1)*TPK%RO230(:)
-!PLOSS(NO2) = +K001+K003*<O>+K004*<O>+K006*<O3>+K009*<NO3>+K012*<NO3>+K021*<H2O
-!>+K022*<OH>+K027*<HO2>+K103*<RAD1>+K104*<RAD2>+K105*<RAD3>+K106*<RAD4>+K107*<R
-!AD5>+K108*<RAD6>+K109*<RAD7>+K126*<RO26>+K127*<RO28>+K128*<RO239>+K129*<RO248>
-!+K130*<RO250>+K131*<RO254>+K132*<RO255>+K133*<RO257>+K134*<RO258>+K316*<RO256>
-!+K321*<RAD8>
- PLOSS(:,2) = +TPK%K001(:)+TPK%K003(:)*TPK%O(:)+TPK%K004(:)*TPK%O(:)+TPK%K006(:&
-&)*PCONC(:,3)+TPK%K009(:)*PCONC(:,8)+TPK%K012(:)*PCONC(:,8)+TPK%K021(:)*TPK%H2O&
-&(:)+TPK%K022(:)*PCONC(:,15)+TPK%K027(:)*PCONC(:,10)+TPK%K103(:)*TPK%RAD1(:)+TP&
-&K%K104(:)*TPK%RAD2(:)+TPK%K105(:)*TPK%RAD3(:)+TPK%K106(:)*TPK%RAD4(:)+TPK%K107&
-&(:)*TPK%RAD5(:)+TPK%K108(:)*TPK%RAD6(:)+TPK%K109(:)*TPK%RAD7(:)+TPK%K126(:)*TP&
-&K%RO26(:)+TPK%K127(:)*TPK%RO28(:)+TPK%K128(:)*TPK%RO239(:)+TPK%K129(:)*TPK%RO2&
-&48(:)+TPK%K130(:)*TPK%RO250(:)+TPK%K131(:)*TPK%RO254(:)+TPK%K132(:)*TPK%RO255(&
-&:)+TPK%K133(:)*TPK%RO257(:)+TPK%K134(:)*TPK%RO258(:)+TPK%K316(:)*TPK%RO256(:)+&
-&TPK%K321(:)*TPK%RAD8(:)
-!
-!PPROD(O3) = +K002*<O2>*<O>+K081*<NO3>*<ARAL>+TPK%CF39*K082*<OH>*<ARAL>+K142*<H
-!O2>*<RO26>+K148*<HO2>*<RO28>+K166*<HO2>*<RO239>+K279*<HO2>*<RO248>+K289*<HO2>*
-!<RO250>+K301*<HO2>*<RO254>+K303*<OH>*<RPR5>+1.0000011*K306*<OH>*<RPRL>+K310*<H
-!O2>*<RO255>+K318*<HO2>*<RO256>+K322*<OH>*<RPR7>+1.0000005*K323*<OH>*<RPG7>+K32
-!6*<OH>*<RP11>+K332*<HO2>*<RO257>+1.0000000*K334*<OH>*<RPG3>+1.0000000*K335*<OH
-!>*<RPG2>+K337*<OH>*<RP18>+K341*<HO2>*<RO258>
- PPROD(:,3) = +TPK%K002(:)*TPK%O2(:)*TPK%O(:)+TPK%K081(:)*PCONC(:,8)*PCONC(:,25&
-&)+TPK%CF39*TPK%K082(:)*PCONC(:,15)*PCONC(:,25)+TPK%K142(:)*PCONC(:,10)*TPK%RO2&
-&6(:)+TPK%K148(:)*PCONC(:,10)*TPK%RO28(:)+TPK%K166(:)*PCONC(:,10)*TPK%RO239(:)+&
-&TPK%K279(:)*PCONC(:,10)*TPK%RO248(:)+TPK%K289(:)*PCONC(:,10)*TPK%RO250(:)+TPK%&
-&K301(:)*PCONC(:,10)*TPK%RO254(:)+TPK%K303(:)*PCONC(:,15)*PCONC(:,70)+1.0000011&
-&*TPK%K306(:)*PCONC(:,15)*PCONC(:,75)+TPK%K310(:)*PCONC(:,10)*TPK%RO255(:)+TPK%&
-&K318(:)*PCONC(:,10)*TPK%RO256(:)+TPK%K322(:)*PCONC(:,15)*PCONC(:,62)+1.0000005&
-&*TPK%K323(:)*PCONC(:,15)*PCONC(:,63)+TPK%K326(:)*PCONC(:,15)*PCONC(:,73)+TPK%K&
-&332(:)*PCONC(:,10)*TPK%RO257(:)+1.0000000*TPK%K334(:)*PCONC(:,15)*PCONC(:,52)+&
-&1.0000000*TPK%K335(:)*PCONC(:,15)*PCONC(:,50)+TPK%K337(:)*PCONC(:,15)*PCONC(:,&
-&51)+TPK%K341(:)*PCONC(:,10)*TPK%RO258(:)
-!PLOSS(O3) = +K005*<NO>+K006*<NO2>+K015+K016+K025*<OH>+K030*<HO2>+K034*<O>+K051
-!*<ETHE>+K056*<OLEL>+K066*<ISOP>+K076*<OLEH>+K086*<BIOL>+K090*<BIOH>+K281*<MVK>
-!+K282*<MCR>
- PLOSS(:,3) = +TPK%K005(:)*PCONC(:,1)+TPK%K006(:)*PCONC(:,2)+TPK%K015(:)+TPK%K0&
-&16(:)+TPK%K025(:)*PCONC(:,15)+TPK%K030(:)*PCONC(:,10)+TPK%K034(:)*TPK%O(:)+TPK&
-&%K051(:)*PCONC(:,16)+TPK%K056(:)*PCONC(:,17)+TPK%K066(:)*PCONC(:,35)+TPK%K076(&
-&:)*PCONC(:,18)+TPK%K086(:)*PCONC(:,36)+TPK%K090(:)*PCONC(:,37)+TPK%K281(:)*PCO&
-&NC(:,39)+TPK%K282(:)*PCONC(:,40)
-!
-!PPROD(HONO) = +K019*<OH>*<NO>+0.5*K021*<H2O>*<NO2>
- PPROD(:,4) = +TPK%K019(:)*PCONC(:,15)*PCONC(:,1)+0.5*TPK%K021(:)*TPK%H2O(:)*PC&
-&ONC(:,2)
-!PLOSS(HONO) = +K020+K039*<OH>
- PLOSS(:,4) = +TPK%K020(:)+TPK%K039(:)*PCONC(:,15)
-!
-!PPROD(HNO3) = +2.*K011*<H2O>*<N2O5>+0.5*K021*<H2O>*<NO2>+K022*<OH>*<NO2>+0.2*K
-!033*<HO2>*<NO3>+K047*<NO3>*<HCHO>+K061*<NO3>*<ALD2>+K072*<NO3>*<AROO>+K081*<NO
-!3>*<ARAL>+TPK%CF46*K275*<NO3>*<MCR>+K278*<NO3>*<MGLY>+K307*<NO3>*<RPR1>+K313*<
-!NO3>*<RPR3>+K320*<NO3>*<RPR4>+K327*<NO3>*<RPR8>+K338*<NO3>*<RP16>
- PPROD(:,5) = +2.*TPK%K011(:)*TPK%H2O(:)*PCONC(:,7)+0.5*TPK%K021(:)*TPK%H2O(:)*&
-&PCONC(:,2)+TPK%K022(:)*PCONC(:,15)*PCONC(:,2)+0.2*TPK%K033(:)*PCONC(:,10)*PCON&
-&C(:,8)+TPK%K047(:)*PCONC(:,8)*PCONC(:,28)+TPK%K061(:)*PCONC(:,8)*PCONC(:,29)+T&
-&PK%K072(:)*PCONC(:,8)*PCONC(:,24)+TPK%K081(:)*PCONC(:,8)*PCONC(:,25)+TPK%CF46*&
-&TPK%K275(:)*PCONC(:,8)*PCONC(:,40)+TPK%K278(:)*PCONC(:,8)*PCONC(:,41)+TPK%K307&
-&(:)*PCONC(:,8)*PCONC(:,69)+TPK%K313(:)*PCONC(:,8)*PCONC(:,57)+TPK%K320(:)*PCON&
-&C(:,8)*PCONC(:,61)+TPK%K327(:)*PCONC(:,8)*PCONC(:,71)+TPK%K338(:)*PCONC(:,8)*P&
-&CONC(:,74)
-!PLOSS(HNO3) = +K023*<OH>
- PLOSS(:,5) = +TPK%K023(:)*PCONC(:,15)
-!
-!PPROD(HNO4) = +K027*<HO2>*<NO2>
- PPROD(:,6) = +TPK%K027(:)*PCONC(:,10)*PCONC(:,2)
-!PLOSS(HNO4) = +K028+K029*<OH>
- PLOSS(:,6) = +TPK%K028(:)+TPK%K029(:)*PCONC(:,15)
-!
-!PPROD(N2O5) = +K009*<NO3>*<NO2>
- PPROD(:,7) = +TPK%K009(:)*PCONC(:,8)*PCONC(:,2)
-!PLOSS(N2O5) = +K010+K011*<H2O>
- PLOSS(:,7) = +TPK%K010(:)+TPK%K011(:)*TPK%H2O(:)
-!
-!PPROD(NO3) = +K004*<NO2>*<O>+K006*<O3>*<NO2>+K010*<N2O5>+K023*<OH>*<HNO3>
- PPROD(:,8) = +TPK%K004(:)*PCONC(:,2)*TPK%O(:)+TPK%K006(:)*PCONC(:,3)*PCONC(:,2&
-&)+TPK%K010(:)*PCONC(:,7)+TPK%K023(:)*PCONC(:,15)*PCONC(:,5)
-!PLOSS(NO3) = +K007*<NO>+K009*<NO2>+K012*<NO2>+K013+K014+K033*<HO2>+K040*<OH>+K
-!041*<NO3>+K041*<NO3>+K047*<HCHO>+K050*<ETHE>+K055*<OLEL>+K061*<ALD2>+K065*<ISO
-!P>+K072*<AROO>+K075*<OLEH>+K081*<ARAL>+K085*<BIOL>+K089*<BIOH>+K275*<MCR>+K278
-!*<MGLY>+K307*<RPR1>+K313*<RPR3>+K320*<RPR4>+K327*<RPR8>+K338*<RP16>
- PLOSS(:,8) = +TPK%K007(:)*PCONC(:,1)+TPK%K009(:)*PCONC(:,2)+TPK%K012(:)*PCONC(&
-&:,2)+TPK%K013(:)+TPK%K014(:)+TPK%K033(:)*PCONC(:,10)+TPK%K040(:)*PCONC(:,15)+T&
-&PK%K041(:)*PCONC(:,8)+TPK%K041(:)*PCONC(:,8)+TPK%K047(:)*PCONC(:,28)+TPK%K050(&
-&:)*PCONC(:,16)+TPK%K055(:)*PCONC(:,17)+TPK%K061(:)*PCONC(:,29)+TPK%K065(:)*PCO&
-&NC(:,35)+TPK%K072(:)*PCONC(:,24)+TPK%K075(:)*PCONC(:,18)+TPK%K081(:)*PCONC(:,2&
-&5)+TPK%K085(:)*PCONC(:,36)+TPK%K089(:)*PCONC(:,37)+TPK%K275(:)*PCONC(:,40)+TPK&
-&%K278(:)*PCONC(:,41)+TPK%K307(:)*PCONC(:,69)+TPK%K313(:)*PCONC(:,57)+TPK%K320(&
-&:)*PCONC(:,61)+TPK%K327(:)*PCONC(:,71)+TPK%K338(:)*PCONC(:,74)
-!
-!PPROD(NH3) = 0.0
- PPROD(:,9) = 0.0
-!PLOSS(NH3) = +K345*<OH>
- PLOSS(:,9) = +TPK%K345(:)*PCONC(:,15)
-!
-!PPROD(HO2) = +0.1*K020*<HONO>+K024*<OH>*<CO>+K025*<OH>*<O3>+K028*<HNO4>+K035*<
-!OH>*<SO2>+K037*<OH>*<H2O2>+K040*<OH>*<NO3>+2.0*K044*<HCHO>+K046*<OH>*<HCHO>+K0
-!47*<NO3>*<HCHO>+K048*<OH>*<MEOH>+0.06*K051*<O3>*<ETHE>+K052*<O>*<ETHE>+TPK%CF1
-!*K053*<OH>*<ETOH>+0.28*K056*<O3>*<OLEL>+K059*<ALD2>+0.366*K066*<O3>*<ISOP>+0.1
-!6*K073*<OH>*<AROO>+0.28*K076*<O3>*<OLEH>+0.16*K079*<OH>*<AROL>+0.16*K080*<OH>*
-!<AROH>+TPK%CF48*K082*<OH>*<ARAL>+0.16*K083*<OH>*<ARAC>+0.445*K086*<O3>*<BIOL>+
-!0.16*K092*<OH>*<PAH>+K094*<HO2>*<RO2T>+K110*<NO>*<RO21>+K111*<RO2T>*<RO21>+K11
-!2*<HO2>*<RO21>+K113*<NO>*<RO22>+K114*<RO2T>*<RO22>+K115*<HO2>*<RO22>+K117*<RO2
-!T>*<RO23>+K118*<HO2>*<RO23>+K119*<NO>*<RO24>+K120*<RO2T>*<RO24>+K121*<HO2>*<RO
-!24>+TPK%CF4*K122*<NO>*<RO25>+K123*<RO2T>*<RO25>+K124*<HO2>*<RO25>+TPK%CF6*K150
-!*<NO>*<RO29>+K151*<RO2T>*<RO29>+K152*<HO2>*<RO29>+K153*<NO>*<RO210>+K154*<RO2T
-!>*<RO210>+K155*<HO2>*<RO210>+K171*<NO>*<RO215>+K172*<RO2T>*<RO215>+K173*<HO2>*
-!<RO215>+TPK%CF22*K177*<NO>*<RO217>+K178*<RO2T>*<RO217>+K179*<HO2>*<RO217>+TPK%
-!CF20*K180*<NO>*<RO218>+K181*<RO2T>*<RO218>+K182*<HO2>*<RO218>+TPK%CF24*K189*<N
-!O>*<RO221>+K190*<RO2T>*<RO221>+K191*<HO2>*<RO221>+TPK%CF42*K192*<NO>*<RO222>+K
-!193*<RO2T>*<RO222>+K194*<HO2>*<RO222>+TPK%CF44*K195*<NO>*<RO223>+K196*<RO2T>*<
-!RO223>+K197*<HO2>*<RO223>+TPK%CF26*K198*<NO>*<RO224>+K199*<RO2T>*<RO224>+K200*
-!<HO2>*<RO224>+TPK%CF28*K207*<NO>*<RO227>+K208*<RO2T>*<RO227>+K209*<HO2>*<RO227
-!>+TPK%CF32*K221*<NO>*<RO231>+K222*<RO2T>*<RO231>+K223*<HO2>*<RO231>+TPK%CF36*K
-!227*<NO>*<RO241>+K228*<RO2T>*<RO241>+K229*<HO2>*<RO241>+K231*<NO>*<RO233>+K232
-!*<RO2T>*<RO233>+K233*<HO2>*<RO233>+K234*<NO>*<RO242>+K235*<RO2T>*<RO242>+K236*
-!<HO2>*<RO242>+K238*<NO>*<RO234>+K239*<RO2T>*<RO234>+K240*<HO2>*<RO234>+K241*<N
-!O>*<RO243>+K242*<RO2T>*<RO243>+K243*<HO2>*<RO243>+K245*<NO>*<RO235>+K246*<RO2T
-!>*<RO235>+K247*<HO2>*<RO235>+K248*<NO>*<RO244>+K249*<RO2T>*<RO244>+K250*<HO2>*
-!<RO244>+K252*<NO>*<RO236>+K253*<RO2T>*<RO236>+K254*<HO2>*<RO236>+K255*<NO>*<RO
-!245>+K256*<RO2T>*<RO245>+K257*<HO2>*<RO245>+K259*<NO>*<RO237>+K260*<RO2T>*<RO2
-!37>+K261*<HO2>*<RO237>+K262*<NO>*<RO246>+K263*<RO2T>*<RO246>+K264*<HO2>*<RO246
-!>+K266*<NO>*<RO238>+K267*<RO2T>*<RO238>+K268*<HO2>*<RO238>+K269*<NO>*<RO247>+K
-!270*<RO2T>*<RO247>+K271*<HO2>*<RO247>+K276*<MGLY>+0.28*K281*<O3>*<MVK>+0.41*K2
-!82*<O3>*<MCR>+0.15*K284*<O>*<MCR>+K285*<NO>*<RO249>+K286*<RO2T>*<RO249>+K287*<
-!HO2>*<RO249>+K291*<NO>*<RO251>+K292*<HO2>*<RO251>+K293*<RO2T>*<RO251>+K300*<NO
-!>*<RO254>+K302*<RO2T>*<RO254>+K308*<RPR1>+2.*K314*<RPR3>+K315*<NO>*<RO256>+K31
-!9*<RO2T>*<RO256>+K325*<OH>*<RP10>+K329*<RPR8>+K330*<RPR8>+K339*<RP16>+K347*<OH
-!>*<ORA1>
- PPROD(:,10) = +0.1*TPK%K020(:)*PCONC(:,4)+TPK%K024(:)*PCONC(:,15)*PCONC(:,11)+&
-&TPK%K025(:)*PCONC(:,15)*PCONC(:,3)+TPK%K028(:)*PCONC(:,6)+TPK%K035(:)*PCONC(:,&
-&15)*PCONC(:,13)+TPK%K037(:)*PCONC(:,15)*PCONC(:,12)+TPK%K040(:)*PCONC(:,15)*PC&
-&ONC(:,8)+2.0*TPK%K044(:)*PCONC(:,28)+TPK%K046(:)*PCONC(:,15)*PCONC(:,28)+TPK%K&
-&047(:)*PCONC(:,8)*PCONC(:,28)+TPK%K048(:)*PCONC(:,15)*PCONC(:,32)+0.06*TPK%K05&
-&1(:)*PCONC(:,3)*PCONC(:,16)+TPK%K052(:)*TPK%O(:)*PCONC(:,16)+TPK%CF1*TPK%K053(&
-&:)*PCONC(:,15)*PCONC(:,33)+0.28*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)+TPK%K059(:)&
-&*PCONC(:,29)+0.366*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)+0.16*TPK%K073(:)*PCONC(:&
-&,15)*PCONC(:,24)+0.28*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)+0.16*TPK%K079(:)*PCON&
-&C(:,15)*PCONC(:,23)+0.16*TPK%K080(:)*PCONC(:,15)*PCONC(:,22)+TPK%CF48*TPK%K082&
-&(:)*PCONC(:,15)*PCONC(:,25)+0.16*TPK%K083(:)*PCONC(:,15)*PCONC(:,26)+0.445*TPK&
-&%K086(:)*PCONC(:,3)*PCONC(:,36)+0.16*TPK%K092(:)*PCONC(:,15)*PCONC(:,27)+TPK%K&
-&094(:)*PCONC(:,10)*PCONC(:,85)+TPK%K110(:)*PCONC(:,1)*PCONC(:,86)+TPK%K111(:)*&
-&PCONC(:,85)*PCONC(:,86)+TPK%K112(:)*PCONC(:,10)*PCONC(:,86)+TPK%K113(:)*PCONC(&
-&:,1)*TPK%RO22(:)+TPK%K114(:)*PCONC(:,85)*TPK%RO22(:)+TPK%K115(:)*PCONC(:,10)*T&
-&PK%RO22(:)+TPK%K117(:)*PCONC(:,85)*TPK%RO23(:)+TPK%K118(:)*PCONC(:,10)*TPK%RO2&
-&3(:)+TPK%K119(:)*PCONC(:,1)*TPK%RO24(:)+TPK%K120(:)*PCONC(:,85)*TPK%RO24(:)+TP&
-&K%K121(:)*PCONC(:,10)*TPK%RO24(:)+TPK%CF4*TPK%K122(:)*PCONC(:,1)*PCONC(:,87)+T&
-&PK%K123(:)*PCONC(:,85)*PCONC(:,87)+TPK%K124(:)*PCONC(:,10)*PCONC(:,87)+TPK%CF6&
-&*TPK%K150(:)*PCONC(:,1)*TPK%RO29(:)+TPK%K151(:)*PCONC(:,85)*TPK%RO29(:)+TPK%K1&
-&52(:)*PCONC(:,10)*TPK%RO29(:)+TPK%K153(:)*PCONC(:,1)*TPK%RO210(:)+TPK%K154(:)*&
-&PCONC(:,85)*TPK%RO210(:)+TPK%K155(:)*PCONC(:,10)*TPK%RO210(:)+TPK%K171(:)*PCON&
-&C(:,1)*TPK%RO215(:)+TPK%K172(:)*PCONC(:,85)*TPK%RO215(:)+TPK%K173(:)*PCONC(:,1&
-&0)*TPK%RO215(:)+TPK%CF22*TPK%K177(:)*PCONC(:,1)*TPK%RO217(:)+TPK%K178(:)*PCONC&
-&(:,85)*TPK%RO217(:)+TPK%K179(:)*PCONC(:,10)*TPK%RO217(:)+TPK%CF20*TPK%K180(:)*&
-&PCONC(:,1)*TPK%RO218(:)+TPK%K181(:)*PCONC(:,85)*TPK%RO218(:)+TPK%K182(:)*PCONC&
-&(:,10)*TPK%RO218(:)+TPK%CF24*TPK%K189(:)*PCONC(:,1)*TPK%RO221(:)+TPK%K190(:)*P&
-&CONC(:,85)*TPK%RO221(:)+TPK%K191(:)*PCONC(:,10)*TPK%RO221(:)+TPK%CF42*TPK%K192&
-&(:)*PCONC(:,1)*TPK%RO222(:)+TPK%K193(:)*PCONC(:,85)*TPK%RO222(:)+TPK%K194(:)*P&
-&CONC(:,10)*TPK%RO222(:)+TPK%CF44*TPK%K195(:)*PCONC(:,1)*TPK%RO223(:)+TPK%K196(&
-&:)*PCONC(:,85)*TPK%RO223(:)+TPK%K197(:)*PCONC(:,10)*TPK%RO223(:)+TPK%CF26*TPK%&
-&K198(:)*PCONC(:,1)*TPK%RO224(:)+TPK%K199(:)*PCONC(:,85)*TPK%RO224(:)+TPK%K200(&
-&:)*PCONC(:,10)*TPK%RO224(:)+TPK%CF28*TPK%K207(:)*PCONC(:,1)*TPK%RO227(:)+TPK%K&
-&208(:)*PCONC(:,85)*TPK%RO227(:)+TPK%K209(:)*PCONC(:,10)*TPK%RO227(:)+TPK%CF32*&
-&TPK%K221(:)*PCONC(:,1)*TPK%RO231(:)+TPK%K222(:)*PCONC(:,85)*TPK%RO231(:)+TPK%K&
-&223(:)*PCONC(:,10)*TPK%RO231(:)+TPK%CF36*TPK%K227(:)*PCONC(:,1)*TPK%RO241(:)+T&
-&PK%K228(:)*PCONC(:,85)*TPK%RO241(:)+TPK%K229(:)*PCONC(:,10)*TPK%RO241(:)+TPK%K&
-&231(:)*PCONC(:,1)*TPK%RO233(:)+TPK%K232(:)*PCONC(:,85)*TPK%RO233(:)+TPK%K233(:&
-&)*PCONC(:,10)*TPK%RO233(:)+TPK%K234(:)*PCONC(:,1)*TPK%RO242(:)+TPK%K235(:)*PCO&
-&NC(:,85)*TPK%RO242(:)+TPK%K236(:)*PCONC(:,10)*TPK%RO242(:)+TPK%K238(:)*PCONC(:&
-&,1)*TPK%RO234(:)+TPK%K239(:)*PCONC(:,85)*TPK%RO234(:)+TPK%K240(:)*PCONC(:,10)*&
-&TPK%RO234(:)+TPK%K241(:)*PCONC(:,1)*TPK%RO243(:)+TPK%K242(:)*PCONC(:,85)*TPK%R&
-&O243(:)+TPK%K243(:)*PCONC(:,10)*TPK%RO243(:)+TPK%K245(:)*PCONC(:,1)*TPK%RO235(&
-&:)+TPK%K246(:)*PCONC(:,85)*TPK%RO235(:)+TPK%K247(:)*PCONC(:,10)*TPK%RO235(:)+T&
-&PK%K248(:)*PCONC(:,1)*TPK%RO244(:)+TPK%K249(:)*PCONC(:,85)*TPK%RO244(:)+TPK%K2&
-&50(:)*PCONC(:,10)*TPK%RO244(:)+TPK%K252(:)*PCONC(:,1)*TPK%RO236(:)+TPK%K253(:)&
-&*PCONC(:,85)*TPK%RO236(:)+TPK%K254(:)*PCONC(:,10)*TPK%RO236(:)+TPK%K255(:)*PCO&
-&NC(:,1)*TPK%RO245(:)+TPK%K256(:)*PCONC(:,85)*TPK%RO245(:)+TPK%K257(:)*PCONC(:,&
-&10)*TPK%RO245(:)+TPK%K259(:)*PCONC(:,1)*TPK%RO237(:)+TPK%K260(:)*PCONC(:,85)*T&
-&PK%RO237(:)+TPK%K261(:)*PCONC(:,10)*TPK%RO237(:)+TPK%K262(:)*PCONC(:,1)*TPK%RO&
-&246(:)+TPK%K263(:)*PCONC(:,85)*TPK%RO246(:)+TPK%K264(:)*PCONC(:,10)*TPK%RO246(&
-&:)+TPK%K266(:)*PCONC(:,1)*TPK%RO238(:)+TPK%K267(:)*PCONC(:,85)*TPK%RO238(:)+TP&
-&K%K268(:)*PCONC(:,10)*TPK%RO238(:)+TPK%K269(:)*PCONC(:,1)*TPK%RO247(:)+TPK%K27&
-&0(:)*PCONC(:,85)*TPK%RO247(:)+TPK%K271(:)*PCONC(:,10)*TPK%RO247(:)+TPK%K276(:)&
-&*PCONC(:,41)+0.28*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)+0.41*TPK%K282(:)*PCONC(:,&
-&3)*PCONC(:,40)+0.15*TPK%K284(:)*TPK%O(:)*PCONC(:,40)+TPK%K285(:)*PCONC(:,1)*TP&
-&K%RO249(:)+TPK%K286(:)*PCONC(:,85)*TPK%RO249(:)+TPK%K287(:)*PCONC(:,10)*TPK%RO&
-&249(:)+TPK%K291(:)*PCONC(:,1)*TPK%RO251(:)+TPK%K292(:)*PCONC(:,10)*TPK%RO251(:&
-&)+TPK%K293(:)*PCONC(:,85)*TPK%RO251(:)+TPK%K300(:)*PCONC(:,1)*TPK%RO254(:)+TPK&
-&%K302(:)*PCONC(:,85)*TPK%RO254(:)+TPK%K308(:)*PCONC(:,69)+2.*TPK%K314(:)*PCONC&
-&(:,57)+TPK%K315(:)*PCONC(:,1)*TPK%RO256(:)+TPK%K319(:)*PCONC(:,85)*TPK%RO256(:&
-&)+TPK%K325(:)*PCONC(:,15)*PCONC(:,72)+TPK%K329(:)*PCONC(:,71)+TPK%K330(:)*PCON&
-&C(:,71)+TPK%K339(:)*PCONC(:,74)+TPK%K347(:)*PCONC(:,15)*PCONC(:,43)
-!PLOSS(HO2) = +K026*<NO>+K027*<NO2>+K030*<O3>+K031*<HO2>+K031*<HO2>+K032*<H2O>*
-!<HO2>+K032*<H2O>*<HO2>+K033*<NO3>+K042*<OH>+K094*<RO2T>+K112*<RO21>+K115*<RO22
-!>+K118*<RO23>+K121*<RO24>+K124*<RO25>+K142*<RO26>+K146*<RO27>+K148*<RO28>+K152
-!*<RO29>+K155*<RO210>+K158*<RO211>+K161*<RO212>+K164*<RO213>+K166*<RO239>+K170*
-!<RO214>+K173*<RO215>+K176*<RO216>+K179*<RO217>+K182*<RO218>+K185*<RO219>+K188*
-!<RO220>+K191*<RO221>+K194*<RO222>+K197*<RO223>+K200*<RO224>+K203*<RO225>+K206*
-!<RO226>+K209*<RO227>+K212*<RO228>+K215*<RO229>+K218*<RO240>+K220*<RO230>+K223*
-!<RO231>+K226*<RO232>+K229*<RO241>+K233*<RO233>+K236*<RO242>+K240*<RO234>+K243*
-!<RO243>+K247*<RO235>+K250*<RO244>+K254*<RO236>+K257*<RO245>+K261*<RO237>+K264*
-!<RO246>+K268*<RO238>+K271*<RO247>+K279*<RO248>+K287*<RO249>+K289*<RO250>+K292*
-!<RO251>+K295*<RO252>+K298*<RO253>+K301*<RO254>+K310*<RO255>+K318*<RO256>+K332*
-!<RO257>+K341*<RO258>
- PLOSS(:,10) = +TPK%K026(:)*PCONC(:,1)+TPK%K027(:)*PCONC(:,2)+TPK%K030(:)*PCONC&
-&(:,3)+TPK%K031(:)*PCONC(:,10)+TPK%K031(:)*PCONC(:,10)+TPK%K032(:)*TPK%H2O(:)*P&
-&CONC(:,10)+TPK%K032(:)*TPK%H2O(:)*PCONC(:,10)+TPK%K033(:)*PCONC(:,8)+TPK%K042(&
-&:)*PCONC(:,15)+TPK%K094(:)*PCONC(:,85)+TPK%K112(:)*PCONC(:,86)+TPK%K115(:)*TPK&
-&%RO22(:)+TPK%K118(:)*TPK%RO23(:)+TPK%K121(:)*TPK%RO24(:)+TPK%K124(:)*PCONC(:,8&
-&7)+TPK%K142(:)*TPK%RO26(:)+TPK%K146(:)*TPK%RO27(:)+TPK%K148(:)*TPK%RO28(:)+TPK&
-&%K152(:)*TPK%RO29(:)+TPK%K155(:)*TPK%RO210(:)+TPK%K158(:)*TPK%RO211(:)+TPK%K16&
-&1(:)*TPK%RO212(:)+TPK%K164(:)*TPK%RO213(:)+TPK%K166(:)*TPK%RO239(:)+TPK%K170(:&
-&)*TPK%RO214(:)+TPK%K173(:)*TPK%RO215(:)+TPK%K176(:)*TPK%RO216(:)+TPK%K179(:)*T&
-&PK%RO217(:)+TPK%K182(:)*TPK%RO218(:)+TPK%K185(:)*TPK%RO219(:)+TPK%K188(:)*TPK%&
-&RO220(:)+TPK%K191(:)*TPK%RO221(:)+TPK%K194(:)*TPK%RO222(:)+TPK%K197(:)*TPK%RO2&
-&23(:)+TPK%K200(:)*TPK%RO224(:)+TPK%K203(:)*TPK%RO225(:)+TPK%K206(:)*TPK%RO226(&
-&:)+TPK%K209(:)*TPK%RO227(:)+TPK%K212(:)*TPK%RO228(:)+TPK%K215(:)*TPK%RO229(:)+&
-&TPK%K218(:)*TPK%RO240(:)+TPK%K220(:)*TPK%RO230(:)+TPK%K223(:)*TPK%RO231(:)+TPK&
-&%K226(:)*TPK%RO232(:)+TPK%K229(:)*TPK%RO241(:)+TPK%K233(:)*TPK%RO233(:)+TPK%K2&
-&36(:)*TPK%RO242(:)+TPK%K240(:)*TPK%RO234(:)+TPK%K243(:)*TPK%RO243(:)+TPK%K247(&
-&:)*TPK%RO235(:)+TPK%K250(:)*TPK%RO244(:)+TPK%K254(:)*TPK%RO236(:)+TPK%K257(:)*&
-&TPK%RO245(:)+TPK%K261(:)*TPK%RO237(:)+TPK%K264(:)*TPK%RO246(:)+TPK%K268(:)*TPK&
-&%RO238(:)+TPK%K271(:)*TPK%RO247(:)+TPK%K279(:)*TPK%RO248(:)+TPK%K287(:)*TPK%RO&
-&249(:)+TPK%K289(:)*TPK%RO250(:)+TPK%K292(:)*TPK%RO251(:)+TPK%K295(:)*TPK%RO252&
-&(:)+TPK%K298(:)*TPK%RO253(:)+TPK%K301(:)*TPK%RO254(:)+TPK%K310(:)*TPK%RO255(:)&
-&+TPK%K318(:)*TPK%RO256(:)+TPK%K332(:)*TPK%RO257(:)+TPK%K341(:)*TPK%RO258(:)
-!
-RETURN
-END SUBROUTINE SUB0
-!
-SUBROUTINE SUB1
-!
-!Indices 11 a 20
-!
-!
-!PPROD(CO) = +K044*<HCHO>+K045*<HCHO>+K046*<OH>*<HCHO>+K047*<NO3>*<HCHO>+0.315*
-!K051*<O3>*<ETHE>+0.6*K052*<O>*<ETHE>+0.56*K056*<O3>*<OLEL>+K059*<ALD2>+0.461*K
-!066*<O3>*<ISOP>+0.56*K076*<O3>*<OLEH>+0.445*K086*<O3>*<BIOL>+0.445*K090*<O3>*<
-!BIOH>+K119*<NO>*<RO24>+K120*<RO2T>*<RO24>+K121*<HO2>*<RO24>+K276*<MGLY>+0.56*K
-!281*<O3>*<MVK>+0.41*K282*<O3>*<MCR>+0.15*K284*<O>*<MCR>+K300*<NO>*<RO254>+K302
-!*<RO2T>*<RO254>+K308*<RPR1>+K314*<RPR3>+K329*<RPR8>+2.*K339*<RP16>+K340*<NO>*<
-!RO258>+K342*<RO2T>*<RO258>
- PPROD(:,11) = +TPK%K044(:)*PCONC(:,28)+TPK%K045(:)*PCONC(:,28)+TPK%K046(:)*PCO&
-&NC(:,15)*PCONC(:,28)+TPK%K047(:)*PCONC(:,8)*PCONC(:,28)+0.315*TPK%K051(:)*PCON&
-&C(:,3)*PCONC(:,16)+0.6*TPK%K052(:)*TPK%O(:)*PCONC(:,16)+0.56*TPK%K056(:)*PCONC&
-&(:,3)*PCONC(:,17)+TPK%K059(:)*PCONC(:,29)+0.461*TPK%K066(:)*PCONC(:,3)*PCONC(:&
-&,35)+0.56*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)+0.445*TPK%K086(:)*PCONC(:,3)*PCON&
-&C(:,36)+0.445*TPK%K090(:)*PCONC(:,3)*PCONC(:,37)+TPK%K119(:)*PCONC(:,1)*TPK%RO&
-&24(:)+TPK%K120(:)*PCONC(:,85)*TPK%RO24(:)+TPK%K121(:)*PCONC(:,10)*TPK%RO24(:)+&
-&TPK%K276(:)*PCONC(:,41)+0.56*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)+0.41*TPK%K282(&
-&:)*PCONC(:,3)*PCONC(:,40)+0.15*TPK%K284(:)*TPK%O(:)*PCONC(:,40)+TPK%K300(:)*PC&
-&ONC(:,1)*TPK%RO254(:)+TPK%K302(:)*PCONC(:,85)*TPK%RO254(:)+TPK%K308(:)*PCONC(:&
-&,69)+TPK%K314(:)*PCONC(:,57)+TPK%K329(:)*PCONC(:,71)+2.*TPK%K339(:)*PCONC(:,74&
-&)+TPK%K340(:)*PCONC(:,1)*TPK%RO258(:)+TPK%K342(:)*PCONC(:,85)*TPK%RO258(:)
-!PLOSS(CO) = +K024*<OH>
- PLOSS(:,11) = +TPK%K024(:)*PCONC(:,15)
-!
-!PPROD(H2O2) = +K031*<HO2>*<HO2>+K032*<HO2>*<H2O>*<HO2>+0.055*K086*<O3>*<BIOL>+
-!0.055*K090*<O3>*<BIOH>
- PPROD(:,12) = +TPK%K031(:)*PCONC(:,10)*PCONC(:,10)+TPK%K032(:)*PCONC(:,10)*TPK&
-&%H2O(:)*PCONC(:,10)+0.055*TPK%K086(:)*PCONC(:,3)*PCONC(:,36)+0.055*TPK%K090(:)&
-&*PCONC(:,3)*PCONC(:,37)
-!PLOSS(H2O2) = +K036+K037*<OH>
- PLOSS(:,12) = +TPK%K036(:)+TPK%K037(:)*PCONC(:,15)
-!
-!PPROD(SO2) = 0.0
- PPROD(:,13) = 0.0
-!PLOSS(SO2) = +K035*<OH>
- PLOSS(:,13) = +TPK%K035(:)*PCONC(:,15)
-!
-!PPROD(H2SO4) = +K035*<OH>*<SO2>
- PPROD(:,14) = +TPK%K035(:)*PCONC(:,15)*PCONC(:,13)
-!PLOSS(H2SO4) = +K346
- PLOSS(:,14) = +TPK%K346(:)
-!
-!PPROD(OH) = +K017*<H2O>*<OSD>+K017*<H2O>*<OSD>+0.9*K020*<HONO>+K026*<HO2>*<NO>
-!+K030*<HO2>*<O3>+0.8*K033*<HO2>*<NO3>+2.*K036*<H2O2>+0.06*K051*<O3>*<ETHE>+0.3
-!6*K056*<O3>*<OLEL>+0.664*K066*<O3>*<ISOP>+0.36*K076*<O3>*<OLEH>+0.89*K086*<O3>
-!*<BIOL>+0.89*K090*<O3>*<BIOH>+K112*<HO2>*<RO21>+K115*<HO2>*<RO22>+K118*<HO2>*<
-!RO23>+K121*<HO2>*<RO24>+K124*<HO2>*<RO25>+K146*<HO2>*<RO27>+K152*<HO2>*<RO29>+
-!K155*<HO2>*<RO210>+K158*<HO2>*<RO211>+K161*<HO2>*<RO212>+K164*<HO2>*<RO213>+K1
-!70*<HO2>*<RO214>+K173*<HO2>*<RO215>+K176*<HO2>*<RO216>+K179*<HO2>*<RO217>+K182
-!*<HO2>*<RO218>+K185*<HO2>*<RO219>+K188*<HO2>*<RO220>+K191*<HO2>*<RO221>+K194*<
-!HO2>*<RO222>+K197*<HO2>*<RO223>+K200*<HO2>*<RO224>+K203*<HO2>*<RO225>+K206*<HO
-!2>*<RO226>+K209*<HO2>*<RO227>+K212*<HO2>*<RO228>+K215*<HO2>*<RO229>+K218*<HO2>
-!*<RO240>+K220*<HO2>*<RO230>+K223*<HO2>*<RO231>+K226*<HO2>*<RO232>+K229*<HO2>*<
-!RO241>+K233*<HO2>*<RO233>+K236*<HO2>*<RO242>+K240*<HO2>*<RO234>+K243*<HO2>*<RO
-!243>+K247*<HO2>*<RO235>+K250*<HO2>*<RO244>+K254*<HO2>*<RO236>+K257*<HO2>*<RO24
-!5>+K261*<HO2>*<RO237>+K264*<HO2>*<RO246>+K268*<HO2>*<RO238>+K271*<HO2>*<RO247>
-!+0.36*K281*<O3>*<MVK>+0.82*K282*<O3>*<MCR>+K287*<HO2>*<RO249>+K293*<RO2T>*<RO2
-!51>+K296*<RO2T>*<RO252>+K299*<RO2T>*<RO253>+K339*<RP16>+K340*<NO>*<RO258>+K342
-!*<RO2T>*<RO258>
- PPROD(:,15) = +TPK%K017(:)*TPK%H2O(:)*TPK%OSD(:)+TPK%K017(:)*TPK%H2O(:)*TPK%OS&
-&D(:)+0.9*TPK%K020(:)*PCONC(:,4)+TPK%K026(:)*PCONC(:,10)*PCONC(:,1)+TPK%K030(:)&
-&*PCONC(:,10)*PCONC(:,3)+0.8*TPK%K033(:)*PCONC(:,10)*PCONC(:,8)+2.*TPK%K036(:)*&
-&PCONC(:,12)+0.06*TPK%K051(:)*PCONC(:,3)*PCONC(:,16)+0.36*TPK%K056(:)*PCONC(:,3&
-&)*PCONC(:,17)+0.664*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)+0.36*TPK%K076(:)*PCONC(&
-&:,3)*PCONC(:,18)+0.89*TPK%K086(:)*PCONC(:,3)*PCONC(:,36)+0.89*TPK%K090(:)*PCON&
-&C(:,3)*PCONC(:,37)+TPK%K112(:)*PCONC(:,10)*PCONC(:,86)+TPK%K115(:)*PCONC(:,10)&
-&*TPK%RO22(:)+TPK%K118(:)*PCONC(:,10)*TPK%RO23(:)+TPK%K121(:)*PCONC(:,10)*TPK%R&
-&O24(:)+TPK%K124(:)*PCONC(:,10)*PCONC(:,87)+TPK%K146(:)*PCONC(:,10)*TPK%RO27(:)&
-&+TPK%K152(:)*PCONC(:,10)*TPK%RO29(:)+TPK%K155(:)*PCONC(:,10)*TPK%RO210(:)+TPK%&
-&K158(:)*PCONC(:,10)*TPK%RO211(:)+TPK%K161(:)*PCONC(:,10)*TPK%RO212(:)+TPK%K164&
-&(:)*PCONC(:,10)*TPK%RO213(:)+TPK%K170(:)*PCONC(:,10)*TPK%RO214(:)+TPK%K173(:)*&
-&PCONC(:,10)*TPK%RO215(:)+TPK%K176(:)*PCONC(:,10)*TPK%RO216(:)+TPK%K179(:)*PCON&
-&C(:,10)*TPK%RO217(:)+TPK%K182(:)*PCONC(:,10)*TPK%RO218(:)+TPK%K185(:)*PCONC(:,&
-&10)*TPK%RO219(:)+TPK%K188(:)*PCONC(:,10)*TPK%RO220(:)+TPK%K191(:)*PCONC(:,10)*&
-&TPK%RO221(:)+TPK%K194(:)*PCONC(:,10)*TPK%RO222(:)+TPK%K197(:)*PCONC(:,10)*TPK%&
-&RO223(:)+TPK%K200(:)*PCONC(:,10)*TPK%RO224(:)+TPK%K203(:)*PCONC(:,10)*TPK%RO22&
-&5(:)+TPK%K206(:)*PCONC(:,10)*TPK%RO226(:)+TPK%K209(:)*PCONC(:,10)*TPK%RO227(:)&
-&+TPK%K212(:)*PCONC(:,10)*TPK%RO228(:)+TPK%K215(:)*PCONC(:,10)*TPK%RO229(:)+TPK&
-&%K218(:)*PCONC(:,10)*TPK%RO240(:)+TPK%K220(:)*PCONC(:,10)*TPK%RO230(:)+TPK%K22&
-&3(:)*PCONC(:,10)*TPK%RO231(:)+TPK%K226(:)*PCONC(:,10)*TPK%RO232(:)+TPK%K229(:)&
-&*PCONC(:,10)*TPK%RO241(:)+TPK%K233(:)*PCONC(:,10)*TPK%RO233(:)+TPK%K236(:)*PCO&
-&NC(:,10)*TPK%RO242(:)+TPK%K240(:)*PCONC(:,10)*TPK%RO234(:)+TPK%K243(:)*PCONC(:&
-&,10)*TPK%RO243(:)+TPK%K247(:)*PCONC(:,10)*TPK%RO235(:)+TPK%K250(:)*PCONC(:,10)&
-&*TPK%RO244(:)+TPK%K254(:)*PCONC(:,10)*TPK%RO236(:)+TPK%K257(:)*PCONC(:,10)*TPK&
-&%RO245(:)+TPK%K261(:)*PCONC(:,10)*TPK%RO237(:)+TPK%K264(:)*PCONC(:,10)*TPK%RO2&
-&46(:)+TPK%K268(:)*PCONC(:,10)*TPK%RO238(:)+TPK%K271(:)*PCONC(:,10)*TPK%RO247(:&
-&)+0.36*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)+0.82*TPK%K282(:)*PCONC(:,3)*PCONC(:,&
-&40)+TPK%K287(:)*PCONC(:,10)*TPK%RO249(:)+TPK%K293(:)*PCONC(:,85)*TPK%RO251(:)+&
-&TPK%K296(:)*PCONC(:,85)*TPK%RO252(:)+TPK%K299(:)*PCONC(:,85)*TPK%RO253(:)+TPK%&
-&K339(:)*PCONC(:,74)+TPK%K340(:)*PCONC(:,1)*TPK%RO258(:)+TPK%K342(:)*PCONC(:,85&
-&)*TPK%RO258(:)
-!PLOSS(OH) = +K019*<NO>+K022*<NO2>+K023*<HNO3>+K024*<CO>+K025*<O3>+K029*<HNO4>+
-!K035*<SO2>+K037*<H2O2>+K039*<HONO>+K040*<NO3>+K042*<HO2>+K043*<CH4>+K046*<HCHO
-!>+K048*<MEOH>+K049*<ETHE>+K053*<ETOH>+K054*<OLEL>+K058*<ALKL>+K060*<ALD2>+K062
-!*<KETL>+K064*<ISOP>+K068*<MTBE>+K069*<ALCH>+K070*<KETH>+K073*<AROO>+K074*<OLEH
-!>+K078*<ALKM>+K079*<AROL>+K080*<AROH>+K082*<ARAL>+K083*<ARAC>+K084*<BIOL>+K088
-!*<BIOH>+K092*<PAH>+K093*<ALKH>+K272*<MVK>+K273*<MCR>+K274*<MGLY>+K303*<RPR5>+K
-!304*<RPR1>+K305*<RP16>+K306*<RPRL>+K312*<RPR3>+K322*<RPR7>+K323*<RPG7>+K324*<R
-!PR8>+K325*<RP10>+K326*<RP11>+K334*<RPG3>+K335*<RPG2>+K337*<RP18>+K345*<NH3>+K3
-!47*<ORA1>+K348*<ORA2>+K349*<ACID>
- PLOSS(:,15) = +TPK%K019(:)*PCONC(:,1)+TPK%K022(:)*PCONC(:,2)+TPK%K023(:)*PCONC&
-&(:,5)+TPK%K024(:)*PCONC(:,11)+TPK%K025(:)*PCONC(:,3)+TPK%K029(:)*PCONC(:,6)+TP&
-&K%K035(:)*PCONC(:,13)+TPK%K037(:)*PCONC(:,12)+TPK%K039(:)*PCONC(:,4)+TPK%K040(&
-&:)*PCONC(:,8)+TPK%K042(:)*PCONC(:,10)+TPK%K043(:)*TPK%CH4(:)+TPK%K046(:)*PCONC&
-&(:,28)+TPK%K048(:)*PCONC(:,32)+TPK%K049(:)*PCONC(:,16)+TPK%K053(:)*PCONC(:,33)&
-&+TPK%K054(:)*PCONC(:,17)+TPK%K058(:)*PCONC(:,19)+TPK%K060(:)*PCONC(:,29)+TPK%K&
-&062(:)*PCONC(:,30)+TPK%K064(:)*PCONC(:,35)+TPK%K068(:)*PCONC(:,38)+TPK%K069(:)&
-&*PCONC(:,34)+TPK%K070(:)*PCONC(:,31)+TPK%K073(:)*PCONC(:,24)+TPK%K074(:)*PCONC&
-&(:,18)+TPK%K078(:)*PCONC(:,20)+TPK%K079(:)*PCONC(:,23)+TPK%K080(:)*PCONC(:,22)&
-&+TPK%K082(:)*PCONC(:,25)+TPK%K083(:)*PCONC(:,26)+TPK%K084(:)*PCONC(:,36)+TPK%K&
-&088(:)*PCONC(:,37)+TPK%K092(:)*PCONC(:,27)+TPK%K093(:)*PCONC(:,21)+TPK%K272(:)&
-&*PCONC(:,39)+TPK%K273(:)*PCONC(:,40)+TPK%K274(:)*PCONC(:,41)+TPK%K303(:)*PCONC&
-&(:,70)+TPK%K304(:)*PCONC(:,69)+TPK%K305(:)*PCONC(:,74)+TPK%K306(:)*PCONC(:,75)&
-&+TPK%K312(:)*PCONC(:,57)+TPK%K322(:)*PCONC(:,62)+TPK%K323(:)*PCONC(:,63)+TPK%K&
-&324(:)*PCONC(:,71)+TPK%K325(:)*PCONC(:,72)+TPK%K326(:)*PCONC(:,73)+TPK%K334(:)&
-&*PCONC(:,52)+TPK%K335(:)*PCONC(:,50)+TPK%K337(:)*PCONC(:,51)+TPK%K345(:)*PCONC&
-&(:,9)+TPK%K347(:)*PCONC(:,43)+TPK%K348(:)*PCONC(:,44)+TPK%K349(:)*PCONC(:,45)
-!
-!PPROD(ETHE) = 0.0
- PPROD(:,16) = 0.0
-!PLOSS(ETHE) = +K049*<OH>+K050*<NO3>+K051*<O3>+K052*<O>
- PLOSS(:,16) = +TPK%K049(:)*PCONC(:,15)+TPK%K050(:)*PCONC(:,8)+TPK%K051(:)*PCON&
-&C(:,3)+TPK%K052(:)*TPK%O(:)
-!
-!PPROD(OLEL) = +0.054*K066*<O3>*<ISOP>+0.925*K067*<O>*<ISOP>+TPK%CF5*K150*<NO>*
-!<RO29>+0.5*K166*<HO2>*<RO239>+TPK%CF7*K168*<NO>*<RO214>+0.5*K289*<HO2>*<RO250>
- PPROD(:,17) = +0.054*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)+0.925*TPK%K067(:)*TPK%&
-&O(:)*PCONC(:,35)+TPK%CF5*TPK%K150(:)*PCONC(:,1)*TPK%RO29(:)+0.5*TPK%K166(:)*PC&
-&ONC(:,10)*TPK%RO239(:)+TPK%CF7*TPK%K168(:)*PCONC(:,1)*TPK%RO214(:)+0.5*TPK%K28&
-&9(:)*PCONC(:,10)*TPK%RO250(:)
-!PLOSS(OLEL) = +K054*<OH>+K055*<NO3>+K056*<O3>+K057*<O>
- PLOSS(:,17) = +TPK%K054(:)*PCONC(:,15)+TPK%K055(:)*PCONC(:,8)+TPK%K056(:)*PCON&
-&C(:,3)+TPK%K057(:)*TPK%O(:)
-!
-!PPROD(OLEH) = 0.0
- PPROD(:,18) = 0.0
-!PLOSS(OLEH) = +K074*<OH>+K075*<NO3>+K076*<O3>+K077*<O>
- PLOSS(:,18) = +TPK%K074(:)*PCONC(:,15)+TPK%K075(:)*PCONC(:,8)+TPK%K076(:)*PCON&
-&C(:,3)+TPK%K077(:)*TPK%O(:)
-!
-!PPROD(ALKL) = +0.1*K056*<O3>*<OLEL>+0.5*K057*<O>*<OLEL>+TPK%CF3*K122*<NO>*<RO2
-!5>+TPK%CF12*K171*<NO>*<RO215>+TPK%CF16*K172*<RO2T>*<RO215>+TPK%CF16*K173*<HO2>
-!*<RO215>
- PPROD(:,19) = +0.1*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)+0.5*TPK%K057(:)*TPK%O(:)&
-&*PCONC(:,17)+TPK%CF3*TPK%K122(:)*PCONC(:,1)*PCONC(:,87)+TPK%CF12*TPK%K171(:)*P&
-&CONC(:,1)*TPK%RO215(:)+TPK%CF16*TPK%K172(:)*PCONC(:,85)*TPK%RO215(:)+TPK%CF16*&
-&TPK%K173(:)*PCONC(:,10)*TPK%RO215(:)
-!PLOSS(ALKL) = +K058*<OH>
- PLOSS(:,19) = +TPK%K058(:)*PCONC(:,15)
-!
-!PPROD(ALKM) = +0.1*K076*<O3>*<OLEH>+0.5*K077*<O>*<OLEH>
- PPROD(:,20) = +0.1*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)+0.5*TPK%K077(:)*TPK%O(:)&
-&*PCONC(:,18)
-!PLOSS(ALKM) = +K078*<OH>
- PLOSS(:,20) = +TPK%K078(:)*PCONC(:,15)
-!
-RETURN
-END SUBROUTINE SUB1
-!
-SUBROUTINE SUB2
-!
-!Indices 21 a 30
-!
-!
-!PPROD(ALKH) = 0.0
- PPROD(:,21) = 0.0
-!PLOSS(ALKH) = +K093*<OH>
- PLOSS(:,21) = +TPK%K093(:)*PCONC(:,15)
-!
-!PPROD(AROH) = 0.0
- PPROD(:,22) = 0.0
-!PLOSS(AROH) = +K080*<OH>
- PLOSS(:,22) = +TPK%K080(:)*PCONC(:,15)
-!
-!PPROD(AROL) = 0.0
- PPROD(:,23) = 0.0
-!PLOSS(AROL) = +K079*<OH>
- PLOSS(:,23) = +TPK%K079(:)*PCONC(:,15)
-!
-!PPROD(AROO) = +0.16*K073*<OH>*<AROO>+0.16*K079*<OH>*<AROL>+0.16*K080*<OH>*<ARO
-!H>
- PPROD(:,24) = +0.16*TPK%K073(:)*PCONC(:,15)*PCONC(:,24)+0.16*TPK%K079(:)*PCONC&
-&(:,15)*PCONC(:,23)+0.16*TPK%K080(:)*PCONC(:,15)*PCONC(:,22)
-!PLOSS(AROO) = +K072*<NO3>+K073*<OH>
- PLOSS(:,24) = +TPK%K072(:)*PCONC(:,8)+TPK%K073(:)*PCONC(:,15)
-!
-!PPROD(ARAL) = +TPK%CF24*K189*<NO>*<RO221>+K190*<RO2T>*<RO221>+K191*<HO2>*<RO22
-!1>
- PPROD(:,25) = +TPK%CF24*TPK%K189(:)*PCONC(:,1)*TPK%RO221(:)+TPK%K190(:)*PCONC(&
-&:,85)*TPK%RO221(:)+TPK%K191(:)*PCONC(:,10)*TPK%RO221(:)
-!PLOSS(ARAL) = +K081*<NO3>+K082*<OH>
- PLOSS(:,25) = +TPK%K081(:)*PCONC(:,8)+TPK%K082(:)*PCONC(:,15)
-!
-!PPROD(ARAC) = +K081*<NO3>*<ARAL>+TPK%CF39*K082*<OH>*<ARAL>
- PPROD(:,26) = +TPK%K081(:)*PCONC(:,8)*PCONC(:,25)+TPK%CF39*TPK%K082(:)*PCONC(:&
-&,15)*PCONC(:,25)
-!PLOSS(ARAC) = +K083*<OH>
- PLOSS(:,26) = +TPK%K083(:)*PCONC(:,15)
-!
-!PPROD(PAH) = 0.0
- PPROD(:,27) = 0.0
-!PLOSS(PAH) = +K092*<OH>
- PLOSS(:,27) = +TPK%K092(:)*PCONC(:,15)
-!
-!PPROD(HCHO) = +K048*<OH>*<MEOH>+0.5*K051*<O3>*<ETHE>+0.5*K056*<O3>*<OLEL>+0.5*
-!K066*<O3>*<ISOP>+0.5*K076*<O3>*<OLEH>+K110*<NO>*<RO21>+K111*<RO2T>*<RO21>+K112
-!*<HO2>*<RO21>+K113*<NO>*<RO22>+K114*<RO2T>*<RO22>+K115*<HO2>*<RO22>+K116*<NO>*
-!<RO23>+K117*<RO2T>*<RO23>+K118*<HO2>*<RO23>+K119*<NO>*<RO24>+K120*<RO2T>*<RO24
-!>+K121*<HO2>*<RO24>+TPK%CF6*K150*<NO>*<RO29>+K151*<RO2T>*<RO29>+K152*<HO2>*<RO
-!29>+K153*<NO>*<RO210>+K154*<RO2T>*<RO210>+K155*<HO2>*<RO210>+K156*<NO>*<RO211>
-!+K157*<RO2T>*<RO211>+K158*<HO2>*<RO211>+K159*<NO>*<RO212>+K160*<RO2T>*<RO212>+
-!K161*<HO2>*<RO212>+K162*<NO>*<RO213>+K163*<RO2T>*<RO213>+K164*<HO2>*<RO213>+TP
-!K%CF10*K171*<NO>*<RO215>+TPK%CF14*K172*<RO2T>*<RO215>+TPK%CF14*K173*<HO2>*<RO2
-!15>+K183*<NO>*<RO219>+K184*<RO2T>*<RO219>+K185*<HO2>*<RO219>+0.5*K281*<O3>*<MV
-!K>+0.5*K282*<O3>*<MCR>+K285*<NO>*<RO249>+K286*<RO2T>*<RO249>+K287*<HO2>*<RO249
-!>+K291*<NO>*<RO251>+K292*<HO2>*<RO251>+K293*<RO2T>*<RO251>+K294*<NO>*<RO252>+K
-!295*<HO2>*<RO252>+K296*<RO2T>*<RO252>+K297*<NO>*<RO253>+K298*<HO2>*<RO253>+K29
-!9*<RO2T>*<RO253>
- PPROD(:,28) = +TPK%K048(:)*PCONC(:,15)*PCONC(:,32)+0.5*TPK%K051(:)*PCONC(:,3)*&
-&PCONC(:,16)+0.5*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)+0.5*TPK%K066(:)*PCONC(:,3)*&
-&PCONC(:,35)+0.5*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)+TPK%K110(:)*PCONC(:,1)*PCON&
-&C(:,86)+TPK%K111(:)*PCONC(:,85)*PCONC(:,86)+TPK%K112(:)*PCONC(:,10)*PCONC(:,86&
-&)+TPK%K113(:)*PCONC(:,1)*TPK%RO22(:)+TPK%K114(:)*PCONC(:,85)*TPK%RO22(:)+TPK%K&
-&115(:)*PCONC(:,10)*TPK%RO22(:)+TPK%K116(:)*PCONC(:,1)*TPK%RO23(:)+TPK%K117(:)*&
-&PCONC(:,85)*TPK%RO23(:)+TPK%K118(:)*PCONC(:,10)*TPK%RO23(:)+TPK%K119(:)*PCONC(&
-&:,1)*TPK%RO24(:)+TPK%K120(:)*PCONC(:,85)*TPK%RO24(:)+TPK%K121(:)*PCONC(:,10)*T&
-&PK%RO24(:)+TPK%CF6*TPK%K150(:)*PCONC(:,1)*TPK%RO29(:)+TPK%K151(:)*PCONC(:,85)*&
-&TPK%RO29(:)+TPK%K152(:)*PCONC(:,10)*TPK%RO29(:)+TPK%K153(:)*PCONC(:,1)*TPK%RO2&
-&10(:)+TPK%K154(:)*PCONC(:,85)*TPK%RO210(:)+TPK%K155(:)*PCONC(:,10)*TPK%RO210(:&
-&)+TPK%K156(:)*PCONC(:,1)*TPK%RO211(:)+TPK%K157(:)*PCONC(:,85)*TPK%RO211(:)+TPK&
-&%K158(:)*PCONC(:,10)*TPK%RO211(:)+TPK%K159(:)*PCONC(:,1)*TPK%RO212(:)+TPK%K160&
-&(:)*PCONC(:,85)*TPK%RO212(:)+TPK%K161(:)*PCONC(:,10)*TPK%RO212(:)+TPK%K162(:)*&
-&PCONC(:,1)*TPK%RO213(:)+TPK%K163(:)*PCONC(:,85)*TPK%RO213(:)+TPK%K164(:)*PCONC&
-&(:,10)*TPK%RO213(:)+TPK%CF10*TPK%K171(:)*PCONC(:,1)*TPK%RO215(:)+TPK%CF14*TPK%&
-&K172(:)*PCONC(:,85)*TPK%RO215(:)+TPK%CF14*TPK%K173(:)*PCONC(:,10)*TPK%RO215(:)&
-&+TPK%K183(:)*PCONC(:,1)*TPK%RO219(:)+TPK%K184(:)*PCONC(:,85)*TPK%RO219(:)+TPK%&
-&K185(:)*PCONC(:,10)*TPK%RO219(:)+0.5*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)+0.5*TP&
-&K%K282(:)*PCONC(:,3)*PCONC(:,40)+TPK%K285(:)*PCONC(:,1)*TPK%RO249(:)+TPK%K286(&
-&:)*PCONC(:,85)*TPK%RO249(:)+TPK%K287(:)*PCONC(:,10)*TPK%RO249(:)+TPK%K291(:)*P&
-&CONC(:,1)*TPK%RO251(:)+TPK%K292(:)*PCONC(:,10)*TPK%RO251(:)+TPK%K293(:)*PCONC(&
-&:,85)*TPK%RO251(:)+TPK%K294(:)*PCONC(:,1)*TPK%RO252(:)+TPK%K295(:)*PCONC(:,10)&
-&*TPK%RO252(:)+TPK%K296(:)*PCONC(:,85)*TPK%RO252(:)+TPK%K297(:)*PCONC(:,1)*TPK%&
-&RO253(:)+TPK%K298(:)*PCONC(:,10)*TPK%RO253(:)+TPK%K299(:)*PCONC(:,85)*TPK%RO25&
-&3(:)
-!PLOSS(HCHO) = +K044+K045+K046*<OH>+K047*<NO3>
- PLOSS(:,28) = +TPK%K044(:)+TPK%K045(:)+TPK%K046(:)*PCONC(:,15)+TPK%K047(:)*PCO&
-&NC(:,8)
-!
-!PPROD(ALD2) = +TPK%CF1*K053*<OH>*<ETOH>+0.5*K056*<O3>*<OLEL>+0.4*K057*<O>*<OLE
-!L>+0.075*K067*<O>*<ISOP>+K113*<NO>*<RO22>+K114*<RO2T>*<RO22>+K115*<HO2>*<RO22>
-!+K116*<NO>*<RO23>+K117*<RO2T>*<RO23>+K118*<HO2>*<RO23>+TPK%CF4*K122*<NO>*<RO25
-!>+K123*<RO2T>*<RO25>+K124*<HO2>*<RO25>+K144*<NO>*<RO27>+K145*<RO2T>*<RO27>+K14
-!6*<HO2>*<RO27>+TPK%CF9*K171*<NO>*<RO215>+TPK%CF13*K172*<RO2T>*<RO215>+TPK%CF13
-!*K173*<HO2>*<RO215>+K174*<NO>*<RO216>+K175*<RO2T>*<RO216>+K176*<HO2>*<RO216>+0
-!.1*K281*<O3>*<MVK>+0.85*K284*<O>*<MCR>
- PPROD(:,29) = +TPK%CF1*TPK%K053(:)*PCONC(:,15)*PCONC(:,33)+0.5*TPK%K056(:)*PCO&
-&NC(:,3)*PCONC(:,17)+0.4*TPK%K057(:)*TPK%O(:)*PCONC(:,17)+0.075*TPK%K067(:)*TPK&
-&%O(:)*PCONC(:,35)+TPK%K113(:)*PCONC(:,1)*TPK%RO22(:)+TPK%K114(:)*PCONC(:,85)*T&
-&PK%RO22(:)+TPK%K115(:)*PCONC(:,10)*TPK%RO22(:)+TPK%K116(:)*PCONC(:,1)*TPK%RO23&
-&(:)+TPK%K117(:)*PCONC(:,85)*TPK%RO23(:)+TPK%K118(:)*PCONC(:,10)*TPK%RO23(:)+TP&
-&K%CF4*TPK%K122(:)*PCONC(:,1)*PCONC(:,87)+TPK%K123(:)*PCONC(:,85)*PCONC(:,87)+T&
-&PK%K124(:)*PCONC(:,10)*PCONC(:,87)+TPK%K144(:)*PCONC(:,1)*TPK%RO27(:)+TPK%K145&
-&(:)*PCONC(:,85)*TPK%RO27(:)+TPK%K146(:)*PCONC(:,10)*TPK%RO27(:)+TPK%CF9*TPK%K1&
-&71(:)*PCONC(:,1)*TPK%RO215(:)+TPK%CF13*TPK%K172(:)*PCONC(:,85)*TPK%RO215(:)+TP&
-&K%CF13*TPK%K173(:)*PCONC(:,10)*TPK%RO215(:)+TPK%K174(:)*PCONC(:,1)*TPK%RO216(:&
-&)+TPK%K175(:)*PCONC(:,85)*TPK%RO216(:)+TPK%K176(:)*PCONC(:,10)*TPK%RO216(:)+0.&
-&1*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)+0.85*TPK%K284(:)*TPK%O(:)*PCONC(:,40)
-!PLOSS(ALD2) = +K059+K060*<OH>+K061*<NO3>
- PLOSS(:,29) = +TPK%K059(:)+TPK%K060(:)*PCONC(:,15)+TPK%K061(:)*PCONC(:,8)
-!
-!PPROD(KETL) = +TPK%CF11*K171*<NO>*<RO215>+TPK%CF15*K172*<RO2T>*<RO215>+TPK%CF1
-!5*K173*<HO2>*<RO215>+0.85*K283*<O>*<MVK>
- PPROD(:,30) = +TPK%CF11*TPK%K171(:)*PCONC(:,1)*TPK%RO215(:)+TPK%CF15*TPK%K172(&
-&:)*PCONC(:,85)*TPK%RO215(:)+TPK%CF15*TPK%K173(:)*PCONC(:,10)*TPK%RO215(:)+0.85&
-&*TPK%K283(:)*TPK%O(:)*PCONC(:,39)
-!PLOSS(KETL) = +K062*<OH>+K063
- PLOSS(:,30) = +TPK%K062(:)*PCONC(:,15)+TPK%K063(:)
-!
-RETURN
-END SUBROUTINE SUB2
-!
-SUBROUTINE SUB3
-!
-!Indices 31 a 40
-!
-!
-!PPROD(KETH) = 0.0
- PPROD(:,31) = 0.0
-!PLOSS(KETH) = +K070*<OH>+K071
- PLOSS(:,31) = +TPK%K070(:)*PCONC(:,15)+TPK%K071(:)
-!
-!PPROD(MEOH) = 0.0
- PPROD(:,32) = 0.0
-!PLOSS(MEOH) = +K048*<OH>
- PLOSS(:,32) = +TPK%K048(:)*PCONC(:,15)
-!
-!PPROD(ETOH) = 0.0
- PPROD(:,33) = 0.0
-!PLOSS(ETOH) = +K053*<OH>
- PLOSS(:,33) = +TPK%K053(:)*PCONC(:,15)
-!
-!PPROD(ALCH) = 0.0
- PPROD(:,34) = 0.0
-!PLOSS(ALCH) = +K069*<OH>
- PLOSS(:,34) = +TPK%K069(:)*PCONC(:,15)
-!
-!PPROD(ISOP) = 0.0
- PPROD(:,35) = 0.0
-!PLOSS(ISOP) = +K064*<OH>+K065*<NO3>+K066*<O3>+K067*<O>
- PLOSS(:,35) = +TPK%K064(:)*PCONC(:,15)+TPK%K065(:)*PCONC(:,8)+TPK%K066(:)*PCON&
-&C(:,3)+TPK%K067(:)*TPK%O(:)
-!
-!PPROD(BIOL) = 0.0
- PPROD(:,36) = 0.0
-!PLOSS(BIOL) = +K084*<OH>+K085*<NO3>+K086*<O3>+K087*<O>
- PLOSS(:,36) = +TPK%K084(:)*PCONC(:,15)+TPK%K085(:)*PCONC(:,8)+TPK%K086(:)*PCON&
-&C(:,3)+TPK%K087(:)*TPK%O(:)
-!
-!PPROD(BIOH) = 0.0
- PPROD(:,37) = 0.0
-!PLOSS(BIOH) = +K088*<OH>+K089*<NO3>+K090*<O3>+K091*<O>
- PLOSS(:,37) = +TPK%K088(:)*PCONC(:,15)+TPK%K089(:)*PCONC(:,8)+TPK%K090(:)*PCON&
-&C(:,3)+TPK%K091(:)*TPK%O(:)
-!
-!PPROD(MTBE) = 0.0
- PPROD(:,38) = 0.0
-!PLOSS(MTBE) = +K068*<OH>
- PLOSS(:,38) = +TPK%K068(:)*PCONC(:,15)
-!
-!PPROD(MVK) = +0.389*K066*<O3>*<ISOP>+TPK%CF6*K150*<NO>*<RO29>+K151*<RO2T>*<RO2
-!9>+K152*<HO2>*<RO29>+K156*<NO>*<RO211>+K157*<RO2T>*<RO211>+K158*<HO2>*<RO211>
- PPROD(:,39) = +0.389*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)+TPK%CF6*TPK%K150(:)*PC&
-&ONC(:,1)*TPK%RO29(:)+TPK%K151(:)*PCONC(:,85)*TPK%RO29(:)+TPK%K152(:)*PCONC(:,1&
-&0)*TPK%RO29(:)+TPK%K156(:)*PCONC(:,1)*TPK%RO211(:)+TPK%K157(:)*PCONC(:,85)*TPK&
-&%RO211(:)+TPK%K158(:)*PCONC(:,10)*TPK%RO211(:)
-!PLOSS(MVK) = +K272*<OH>+K281*<O3>+K283*<O>
- PLOSS(:,39) = +TPK%K272(:)*PCONC(:,15)+TPK%K281(:)*PCONC(:,3)+TPK%K283(:)*TPK%&
-&O(:)
-!
-!PPROD(MCR) = +0.17*K066*<O3>*<ISOP>+K153*<NO>*<RO210>+K154*<RO2T>*<RO210>+K155
-!*<HO2>*<RO210>+K159*<NO>*<RO212>+K160*<RO2T>*<RO212>+K161*<HO2>*<RO212>
- PPROD(:,40) = +0.17*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)+TPK%K153(:)*PCONC(:,1)*&
-&TPK%RO210(:)+TPK%K154(:)*PCONC(:,85)*TPK%RO210(:)+TPK%K155(:)*PCONC(:,10)*TPK%&
-&RO210(:)+TPK%K159(:)*PCONC(:,1)*TPK%RO212(:)+TPK%K160(:)*PCONC(:,85)*TPK%RO212&
-&(:)+TPK%K161(:)*PCONC(:,10)*TPK%RO212(:)
-!PLOSS(MCR) = +K273*<OH>+K275*<NO3>+K282*<O3>+K284*<O>
- PLOSS(:,40) = +TPK%K273(:)*PCONC(:,15)+TPK%K275(:)*PCONC(:,8)+TPK%K282(:)*PCON&
-&C(:,3)+TPK%K284(:)*TPK%O(:)
-!
-RETURN
-END SUBROUTINE SUB3
-!
-SUBROUTINE SUB4
-!
-!Indices 41 a 50
-!
-!
-!PPROD(MGLY) = +K234*<NO>*<RO242>+K235*<RO2T>*<RO242>+K236*<HO2>*<RO242>+K241*<
-!NO>*<RO243>+K242*<RO2T>*<RO243>+K243*<HO2>*<RO243>+K248*<NO>*<RO244>+K249*<RO2
-!T>*<RO244>+K250*<HO2>*<RO244>+K255*<NO>*<RO245>+K256*<RO2T>*<RO245>+K257*<HO2>
-!*<RO245>+K262*<NO>*<RO246>+K263*<RO2T>*<RO246>+K264*<HO2>*<RO246>+K269*<NO>*<R
-!O247>+K270*<RO2T>*<RO247>+K271*<HO2>*<RO247>+0.5*K281*<O3>*<MVK>+0.59*K282*<O3
-!>*<MCR>+K285*<NO>*<RO249>+K286*<RO2T>*<RO249>+K287*<HO2>*<RO249>+K291*<NO>*<RO
-!251>+K292*<HO2>*<RO251>+K293*<RO2T>*<RO251>+K294*<NO>*<RO252>+K295*<HO2>*<RO25
-!2>+K296*<RO2T>*<RO252>
- PPROD(:,41) = +TPK%K234(:)*PCONC(:,1)*TPK%RO242(:)+TPK%K235(:)*PCONC(:,85)*TPK&
-&%RO242(:)+TPK%K236(:)*PCONC(:,10)*TPK%RO242(:)+TPK%K241(:)*PCONC(:,1)*TPK%RO24&
-&3(:)+TPK%K242(:)*PCONC(:,85)*TPK%RO243(:)+TPK%K243(:)*PCONC(:,10)*TPK%RO243(:)&
-&+TPK%K248(:)*PCONC(:,1)*TPK%RO244(:)+TPK%K249(:)*PCONC(:,85)*TPK%RO244(:)+TPK%&
-&K250(:)*PCONC(:,10)*TPK%RO244(:)+TPK%K255(:)*PCONC(:,1)*TPK%RO245(:)+TPK%K256(&
-&:)*PCONC(:,85)*TPK%RO245(:)+TPK%K257(:)*PCONC(:,10)*TPK%RO245(:)+TPK%K262(:)*P&
-&CONC(:,1)*TPK%RO246(:)+TPK%K263(:)*PCONC(:,85)*TPK%RO246(:)+TPK%K264(:)*PCONC(&
-&:,10)*TPK%RO246(:)+TPK%K269(:)*PCONC(:,1)*TPK%RO247(:)+TPK%K270(:)*PCONC(:,85)&
-&*TPK%RO247(:)+TPK%K271(:)*PCONC(:,10)*TPK%RO247(:)+0.5*TPK%K281(:)*PCONC(:,3)*&
-&PCONC(:,39)+0.59*TPK%K282(:)*PCONC(:,3)*PCONC(:,40)+TPK%K285(:)*PCONC(:,1)*TPK&
-&%RO249(:)+TPK%K286(:)*PCONC(:,85)*TPK%RO249(:)+TPK%K287(:)*PCONC(:,10)*TPK%RO2&
-&49(:)+TPK%K291(:)*PCONC(:,1)*TPK%RO251(:)+TPK%K292(:)*PCONC(:,10)*TPK%RO251(:)&
-&+TPK%K293(:)*PCONC(:,85)*TPK%RO251(:)+TPK%K294(:)*PCONC(:,1)*TPK%RO252(:)+TPK%&
-&K295(:)*PCONC(:,10)*TPK%RO252(:)+TPK%K296(:)*PCONC(:,85)*TPK%RO252(:)
-!PLOSS(MGLY) = +K274*<OH>+K276+K278*<NO3>
- PLOSS(:,41) = +TPK%K274(:)*PCONC(:,15)+TPK%K276(:)+TPK%K278(:)*PCONC(:,8)
-!
-!PPROD(GLY) = 0.0
- PPROD(:,42) = 0.0
-!PLOSS(GLY) = 0.0
- PLOSS(:,42) = 0.0
-!
-!PPROD(ORA1) = +0.185*K051*<O3>*<ETHE>+0.12*K056*<O3>*<OLEL>+0.121*K066*<O3>*<I
-!SOP>+0.12*K281*<O3>*<MVK>+0.09*K282*<O3>*<MCR>
- PPROD(:,43) = +0.185*TPK%K051(:)*PCONC(:,3)*PCONC(:,16)+0.12*TPK%K056(:)*PCONC&
-&(:,3)*PCONC(:,17)+0.121*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)+0.12*TPK%K281(:)*PC&
-&ONC(:,3)*PCONC(:,39)+0.09*TPK%K282(:)*PCONC(:,3)*PCONC(:,40)
-!PLOSS(ORA1) = +K347*<OH>
- PLOSS(:,43) = +TPK%K347(:)*PCONC(:,15)
-!
-!PPROD(ORA2) = +0.12*K056*<O3>*<OLEL>+K142*<HO2>*<RO26>+K148*<HO2>*<RO28>+0.5*K
-!166*<HO2>*<RO239>+0.5*K289*<HO2>*<RO250>
- PPROD(:,44) = +0.12*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)+TPK%K142(:)*PCONC(:,10)&
-&*TPK%RO26(:)+TPK%K148(:)*PCONC(:,10)*TPK%RO28(:)+0.5*TPK%K166(:)*PCONC(:,10)*T&
-&PK%RO239(:)+0.5*TPK%K289(:)*PCONC(:,10)*TPK%RO250(:)
-!PLOSS(ORA2) = +K348*<OH>
- PLOSS(:,44) = +TPK%K348(:)*PCONC(:,15)
-!
-!PPROD(ACID) = +0.12*K076*<O3>*<OLEH>+K142*<HO2>*<RO26>+K310*<HO2>*<RO255>
- PPROD(:,45) = +0.12*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)+TPK%K142(:)*PCONC(:,10)&
-&*TPK%RO26(:)+TPK%K310(:)*PCONC(:,10)*TPK%RO255(:)
-!PLOSS(ACID) = +K349*<OH>
- PLOSS(:,45) = +TPK%K349(:)*PCONC(:,15)
-!
-!PPROD(UR28) = +K341*<HO2>*<RO258>
- PPROD(:,46) = +TPK%K341(:)*PCONC(:,10)*TPK%RO258(:)
-!PLOSS(UR28) = +K364
- PLOSS(:,46) = +TPK%K364(:)
-!
-!PPROD(UR21) = +K279*<HO2>*<RO248>+0.12*K281*<O3>*<MVK>
- PPROD(:,47) = +TPK%K279(:)*PCONC(:,10)*TPK%RO248(:)+0.12*TPK%K281(:)*PCONC(:,3&
-&)*PCONC(:,39)
-!PLOSS(UR21) = +K361
- PLOSS(:,47) = +TPK%K361(:)
-!
-!PPROD(URG2) = +0.5562513*K335*<OH>*<RPG2>+K337*<OH>*<RP18>
- PPROD(:,48) = +0.5562513*TPK%K335(:)*PCONC(:,15)*PCONC(:,50)+TPK%K337(:)*PCONC&
-&(:,15)*PCONC(:,51)
-!PLOSS(URG2) = +K350
- PLOSS(:,48) = +TPK%K350(:)
-!
-!PPROD(UR26) = +0.67*K326*<OH>*<RP11>
- PPROD(:,49) = +0.67*TPK%K326(:)*PCONC(:,15)*PCONC(:,73)
-!PLOSS(UR26) = +K363
- PLOSS(:,49) = +TPK%K363(:)
-!
-!PPROD(RPG2) = +0.3000000*K259*<NO>*<RO237>+1.0000000*K260*<RO2T>*<RO237>+0.300
-!0000*K261*<HO2>*<RO237>+0.1191897*K334*<OH>*<RPG3>+0.8808107*K334*<OH>*<RPG3>
- PPROD(:,50) = +0.3000000*TPK%K259(:)*PCONC(:,1)*TPK%RO237(:)+1.0000000*TPK%K26&
-&0(:)*PCONC(:,85)*TPK%RO237(:)+0.3000000*TPK%K261(:)*PCONC(:,10)*TPK%RO237(:)+0&
-&.1191897*TPK%K334(:)*PCONC(:,15)*PCONC(:,52)+0.8808107*TPK%K334(:)*PCONC(:,15)&
-&*PCONC(:,52)
-!PLOSS(RPG2) = +K335*<OH>
- PLOSS(:,50) = +TPK%K335(:)*PCONC(:,15)
-!
-RETURN
-END SUBROUTINE SUB4
-!
-SUBROUTINE SUB5
-!
-!Indices 51 a 60
-!
-!
-!PPROD(RP18) = +0.4437492*K335*<OH>*<RPG2>
- PPROD(:,51) = +0.4437492*TPK%K335(:)*PCONC(:,15)*PCONC(:,50)
-!PLOSS(RP18) = +K337*<OH>
- PLOSS(:,51) = +TPK%K337(:)*PCONC(:,15)
-!
-!PPROD(RPG3) = +0.3000000*K231*<NO>*<RO233>+1.0000000*K232*<RO2T>*<RO233>+0.300
-!0000*K233*<HO2>*<RO233>+0.3000000*K252*<NO>*<RO236>+1.0000000*K253*<RO2T>*<RO2
-!36>+0.3000000*K254*<HO2>*<RO236>
- PPROD(:,52) = +0.3000000*TPK%K231(:)*PCONC(:,1)*TPK%RO233(:)+1.0000000*TPK%K23&
-&2(:)*PCONC(:,85)*TPK%RO233(:)+0.3000000*TPK%K233(:)*PCONC(:,10)*TPK%RO233(:)+0&
-&.3000000*TPK%K252(:)*PCONC(:,1)*TPK%RO236(:)+1.0000000*TPK%K253(:)*PCONC(:,85)&
-&*TPK%RO236(:)+0.3000000*TPK%K254(:)*PCONC(:,10)*TPK%RO236(:)
-!PLOSS(RPG3) = +K334*<OH>
- PLOSS(:,52) = +TPK%K334(:)*PCONC(:,15)
-!
-!PPROD(URG4) = +5.5000000E-02*K086*<O3>*<BIOL>+1.0000000*K318*<HO2>*<RO256>+1.0
-!000000*K332*<HO2>*<RO257>
- PPROD(:,53) = +5.5000000E-02*TPK%K086(:)*PCONC(:,3)*PCONC(:,36)+1.0000000*TPK%&
-&K318(:)*PCONC(:,10)*TPK%RO256(:)+1.0000000*TPK%K332(:)*PCONC(:,10)*TPK%RO257(:&
-&)
-!PLOSS(URG4) = +K351
- PLOSS(:,53) = +TPK%K351(:)
-!
-!PPROD(UR8) = +0.055*K090*<O3>*<BIOH>
- PPROD(:,54) = +0.055*TPK%K090(:)*PCONC(:,3)*PCONC(:,37)
-!PLOSS(UR8) = +K358
- PLOSS(:,54) = +TPK%K358(:)
-!
-!PPROD(UR17) = +1.0000000*K204*<NO>*<RO226>+1.0000000*K205*<RO2T>*<RO226>+1.000
-!0000*K206*<HO2>*<RO226>
- PPROD(:,55) = +1.0000000*TPK%K204(:)*PCONC(:,1)*TPK%RO226(:)+1.0000000*TPK%K20&
-&5(:)*PCONC(:,85)*TPK%RO226(:)+1.0000000*TPK%K206(:)*PCONC(:,10)*TPK%RO226(:)
-!PLOSS(UR17) = +K359
- PLOSS(:,55) = +TPK%K359(:)
-!
-!PPROD(UR7) = +0.055*K090*<O3>*<BIOH>+TPK%CFA12*K207*<NO>*<RO227>+K208*<RO2T>*<
-!RO227>+0.3*K209*<HO2>*<RO227>+0.3*K210*<NO>*<RO228>+0.3*K211*<RO2T>*<RO228>+0.
-!3*K212*<HO2>*<RO228>
- PPROD(:,56) = +0.055*TPK%K090(:)*PCONC(:,3)*PCONC(:,37)+TPK%CFA12*TPK%K207(:)*&
-&PCONC(:,1)*TPK%RO227(:)+TPK%K208(:)*PCONC(:,85)*TPK%RO227(:)+0.3*TPK%K209(:)*P&
-&CONC(:,10)*TPK%RO227(:)+0.3*TPK%K210(:)*PCONC(:,1)*TPK%RO228(:)+0.3*TPK%K211(:&
-&)*PCONC(:,85)*TPK%RO228(:)+0.3*TPK%K212(:)*PCONC(:,10)*TPK%RO228(:)
-!PLOSS(UR7) = +K357
- PLOSS(:,56) = +TPK%K357(:)
-!
-!PPROD(RPR3) = +0.055*K086*<O3>*<BIOL>+TPK%CFA10*K198*<NO>*<RO224>+K199*<RO2T>*
-!<RO224>+K200*<HO2>*<RO224>+K201*<NO>*<RO225>+K202*<RO2T>*<RO225>+K203*<HO2>*<R
-!O225>
- PPROD(:,57) = +0.055*TPK%K086(:)*PCONC(:,3)*PCONC(:,36)+TPK%CFA10*TPK%K198(:)*&
-&PCONC(:,1)*TPK%RO224(:)+TPK%K199(:)*PCONC(:,85)*TPK%RO224(:)+TPK%K200(:)*PCONC&
-&(:,10)*TPK%RO224(:)+TPK%K201(:)*PCONC(:,1)*TPK%RO225(:)+TPK%K202(:)*PCONC(:,85&
-&)*TPK%RO225(:)+TPK%K203(:)*PCONC(:,10)*TPK%RO225(:)
-!PLOSS(RPR3) = +K312*<OH>+K313*<NO3>+K314
- PLOSS(:,57) = +TPK%K312(:)*PCONC(:,15)+TPK%K313(:)*PCONC(:,8)+TPK%K314(:)
-!
-!PPROD(URG6) = +TPK%CF21*K177*<NO>*<RO217>+TPK%CF43*K195*<NO>*<RO223>+0.4978440
-!*K323*<OH>*<RPG7>
- PPROD(:,58) = +TPK%CF21*TPK%K177(:)*PCONC(:,1)*TPK%RO217(:)+TPK%CF43*TPK%K195(&
-&:)*PCONC(:,1)*TPK%RO223(:)+0.4978440*TPK%K323(:)*PCONC(:,15)*PCONC(:,63)
-!PLOSS(URG6) = +K352
- PLOSS(:,58) = +TPK%K352(:)
-!
-!PPROD(UR22) = +K321*<NO2>*<RAD8>
- PPROD(:,59) = +TPK%K321(:)*PCONC(:,2)*TPK%RAD8(:)
-!PLOSS(UR22) = +K362
- PLOSS(:,59) = +TPK%K362(:)
-!
-!PPROD(URG7) = +0.1599999*K083*<OH>*<ARAC>+0.9999993*K108*<NO2>*<RAD6>+0.999999
-!3*K303*<OH>*<RPR5>+0.9979297*K306*<OH>*<RPRL>+0.9999993*K322*<OH>*<RPR7>
- PPROD(:,60) = +0.1599999*TPK%K083(:)*PCONC(:,15)*PCONC(:,26)+0.9999993*TPK%K10&
-&8(:)*PCONC(:,2)*TPK%RAD6(:)+0.9999993*TPK%K303(:)*PCONC(:,15)*PCONC(:,70)+0.99&
-&79297*TPK%K306(:)*PCONC(:,15)*PCONC(:,75)+0.9999993*TPK%K322(:)*PCONC(:,15)*PC&
-&ONC(:,62)
-!PLOSS(URG7) = +K353
- PLOSS(:,60) = +TPK%K353(:)
-!
-RETURN
-END SUBROUTINE SUB5
-!
-SUBROUTINE SUB6
-!
-!Indices 61 a 70
-!
-!
-!PPROD(RPR4) = +K103*<NO2>*<RAD1>+K104*<NO2>*<RAD2>
- PPROD(:,61) = +TPK%K103(:)*PCONC(:,2)*TPK%RAD1(:)+TPK%K104(:)*PCONC(:,2)*TPK%R&
-&AD2(:)
-!PLOSS(RPR4) = +K320*<NO3>
- PLOSS(:,61) = +TPK%K320(:)*PCONC(:,8)
-!
-!PPROD(RPR7) = +TPK%CF44*K195*<NO>*<RO223>+K196*<RO2T>*<RO223>+K197*<HO2>*<RO22
-!3>+2.0714202E-03*K306*<OH>*<RPRL>
- PPROD(:,62) = +TPK%CF44*TPK%K195(:)*PCONC(:,1)*TPK%RO223(:)+TPK%K196(:)*PCONC(&
-&:,85)*TPK%RO223(:)+TPK%K197(:)*PCONC(:,10)*TPK%RO223(:)+2.0714202E-03*TPK%K306&
-&(:)*PCONC(:,15)*PCONC(:,75)
-!PLOSS(RPR7) = +K322*<OH>
- PLOSS(:,62) = +TPK%K322(:)*PCONC(:,15)
-!
-!PPROD(RPG7) = +1.0000013*K266*<NO>*<RO238>+1.0000013*K267*<RO2T>*<RO238>+1.000
-!0013*K268*<HO2>*<RO238>+0.5021558*K323*<OH>*<RPG7>
- PPROD(:,63) = +1.0000013*TPK%K266(:)*PCONC(:,1)*TPK%RO238(:)+1.0000013*TPK%K26&
-&7(:)*PCONC(:,85)*TPK%RO238(:)+1.0000013*TPK%K268(:)*PCONC(:,10)*TPK%RO238(:)+0&
-&.5021558*TPK%K323(:)*PCONC(:,15)*PCONC(:,63)
-!PLOSS(RPG7) = +K323*<OH>
- PLOSS(:,63) = +TPK%K323(:)*PCONC(:,15)
-!
-!PPROD(URG8) = +0.1600000*K092*<OH>*<PAH>+1.0000000*K109*<NO2>*<RAD7>+TPK%CF31*
-!K221*<NO>*<RO231>
- PPROD(:,64) = +0.1600000*TPK%K092(:)*PCONC(:,15)*PCONC(:,27)+1.0000000*TPK%K10&
-&9(:)*PCONC(:,2)*TPK%RAD7(:)+TPK%CF31*TPK%K221(:)*PCONC(:,1)*TPK%RO231(:)
-!PLOSS(URG8) = +K354
- PLOSS(:,64) = +TPK%K354(:)
-!
-!PPROD(UR19) = +TPK%CF32*K221*<NO>*<RO231>+K222*<RO2T>*<RO231>+K223*<HO2>*<RO23
-!1>
- PPROD(:,65) = +TPK%CF32*TPK%K221(:)*PCONC(:,1)*TPK%RO231(:)+TPK%K222(:)*PCONC(&
-&:,85)*TPK%RO231(:)+TPK%K223(:)*PCONC(:,10)*TPK%RO231(:)
-!PLOSS(UR19) = +K360
- PLOSS(:,65) = +TPK%K360(:)
-!
-!PPROD(URG9) = +TPK%CFA14*K224*<NO>*<RO232>+TPK%CFA16*K227*<NO>*<RO241>+TPK%CFA
-!15*K227*<NO>*<RO241>+0.9999996*K228*<RO2T>*<RO241>+0.9999996*K229*<HO2>*<RO241
-!>
- PPROD(:,66) = +TPK%CFA14*TPK%K224(:)*PCONC(:,1)*TPK%RO232(:)+TPK%CFA16*TPK%K22&
-&7(:)*PCONC(:,1)*TPK%RO241(:)+TPK%CFA15*TPK%K227(:)*PCONC(:,1)*TPK%RO241(:)+0.9&
-&999996*TPK%K228(:)*PCONC(:,85)*TPK%RO241(:)+0.9999996*TPK%K229(:)*PCONC(:,10)*&
-&TPK%RO241(:)
-!PLOSS(URG9) = +K355
- PLOSS(:,66) = +TPK%K355(:)
-!
-!PPROD(AP7) = +TPK%CFA23*K198*<NO>*<RO224>
- PPROD(:,67) = +TPK%CFA23*TPK%K198(:)*PCONC(:,1)*TPK%RO224(:)
-!PLOSS(AP7) = +K365
- PLOSS(:,67) = +TPK%K365(:)
-!
-!PPROD(URG10) = +0.2500000*K087*<O>*<BIOL>+0.7500000*K087*<O>*<BIOL>+TPK%CF27*K
-!207*<NO>*<RO227>
- PPROD(:,68) = +0.2500000*TPK%K087(:)*TPK%O(:)*PCONC(:,36)+0.7500000*TPK%K087(:&
-&)*TPK%O(:)*PCONC(:,36)+TPK%CF27*TPK%K207(:)*PCONC(:,1)*TPK%RO227(:)
-!PLOSS(URG10) = +K356
- PLOSS(:,68) = +TPK%K356(:)
-!
-!PPROD(RPR1) = +0.5*K076*<O3>*<OLEH>+0.4*K077*<O>*<OLEH>+K183*<NO>*<RO219>+K184
-!*<RO2T>*<RO219>+K185*<HO2>*<RO219>
- PPROD(:,69) = +0.5*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)+0.4*TPK%K077(:)*TPK%O(:)&
-&*PCONC(:,18)+TPK%K183(:)*PCONC(:,1)*TPK%RO219(:)+TPK%K184(:)*PCONC(:,85)*TPK%R&
-&O219(:)+TPK%K185(:)*PCONC(:,10)*TPK%RO219(:)
-!PLOSS(RPR1) = +K304*<OH>+K307*<NO3>+K308
- PLOSS(:,69) = +TPK%K304(:)*PCONC(:,15)+TPK%K307(:)*PCONC(:,8)+TPK%K308(:)
-!
-!PPROD(RPR5) = +K107*<NO2>*<RAD5>
- PPROD(:,70) = +TPK%K107(:)*PCONC(:,2)*TPK%RAD5(:)
-!PLOSS(RPR5) = +K303*<OH>
- PLOSS(:,70) = +TPK%K303(:)*PCONC(:,15)
-!
-RETURN
-END SUBROUTINE SUB6
-!
-SUBROUTINE SUB7
-!
-!Indices 71 a 80
-!
-!
-!PPROD(RPR8) = +K216*<NO>*<RO240>+K217*<RO2T>*<RO240>+K218*<HO2>*<RO240>
- PPROD(:,71) = +TPK%K216(:)*PCONC(:,1)*TPK%RO240(:)+TPK%K217(:)*PCONC(:,85)*TPK&
-&%RO240(:)+TPK%K218(:)*PCONC(:,10)*TPK%RO240(:)
-!PLOSS(RPR8) = +K324*<OH>+K327*<NO3>+K329+K330
- PLOSS(:,71) = +TPK%K324(:)*PCONC(:,15)+TPK%K327(:)*PCONC(:,8)+TPK%K329(:)+TPK%&
-&K330(:)
-!
-!PPROD(RP10) = +K234*<NO>*<RO242>+K235*<RO2T>*<RO242>+K236*<HO2>*<RO242>+K241*<
-!NO>*<RO243>+K242*<RO2T>*<RO243>+K243*<HO2>*<RO243>+K248*<NO>*<RO244>+K249*<RO2
-!T>*<RO244>+K250*<HO2>*<RO244>+K255*<NO>*<RO245>+K256*<RO2T>*<RO245>+K257*<HO2>
-!*<RO245>+K262*<NO>*<RO246>+K263*<RO2T>*<RO246>+K264*<HO2>*<RO246>
- PPROD(:,72) = +TPK%K234(:)*PCONC(:,1)*TPK%RO242(:)+TPK%K235(:)*PCONC(:,85)*TPK&
-&%RO242(:)+TPK%K236(:)*PCONC(:,10)*TPK%RO242(:)+TPK%K241(:)*PCONC(:,1)*TPK%RO24&
-&3(:)+TPK%K242(:)*PCONC(:,85)*TPK%RO243(:)+TPK%K243(:)*PCONC(:,10)*TPK%RO243(:)&
-&+TPK%K248(:)*PCONC(:,1)*TPK%RO244(:)+TPK%K249(:)*PCONC(:,85)*TPK%RO244(:)+TPK%&
-&K250(:)*PCONC(:,10)*TPK%RO244(:)+TPK%K255(:)*PCONC(:,1)*TPK%RO245(:)+TPK%K256(&
-&:)*PCONC(:,85)*TPK%RO245(:)+TPK%K257(:)*PCONC(:,10)*TPK%RO245(:)+TPK%K262(:)*P&
-&CONC(:,1)*TPK%RO246(:)+TPK%K263(:)*PCONC(:,85)*TPK%RO246(:)+TPK%K264(:)*PCONC(&
-&:,10)*TPK%RO246(:)
-!PLOSS(RP10) = +K325*<OH>+K328
- PLOSS(:,72) = +TPK%K325(:)*PCONC(:,15)+TPK%K328(:)
-!
-!PPROD(RP11) = +0.3*K238*<NO>*<RO234>+K239*<RO2T>*<RO234>+0.3*K240*<HO2>*<RO234
-!>+0.5*K245*<NO>*<RO235>+K246*<RO2T>*<RO235>+K247*<HO2>*<RO235>
- PPROD(:,73) = +0.3*TPK%K238(:)*PCONC(:,1)*TPK%RO234(:)+TPK%K239(:)*PCONC(:,85)&
-&*TPK%RO234(:)+0.3*TPK%K240(:)*PCONC(:,10)*TPK%RO234(:)+0.5*TPK%K245(:)*PCONC(:&
-&,1)*TPK%RO235(:)+TPK%K246(:)*PCONC(:,85)*TPK%RO235(:)+TPK%K247(:)*PCONC(:,10)*&
-&TPK%RO235(:)
-!PLOSS(RP11) = +K326*<OH>
- PLOSS(:,73) = +TPK%K326(:)*PCONC(:,15)
-!
-!PPROD(RP16) = +K301*<HO2>*<RO254>
- PPROD(:,74) = +TPK%K301(:)*PCONC(:,10)*TPK%RO254(:)
-!PLOSS(RP16) = +K305*<OH>+K338*<NO3>+K339
- PLOSS(:,74) = +TPK%K305(:)*PCONC(:,15)+TPK%K338(:)*PCONC(:,8)+TPK%K339(:)
-!
-!PPROD(RPRL) = +0.9983609*K082*<OH>*<ARAL>+TPK%CFA2*K177*<NO>*<RO217>+0.9983609
-!*K178*<RO2T>*<RO217>+0.9983609*K179*<HO2>*<RO217>+TPK%CFA7*K192*<NO>*<RO222>+0
-!.9983609*K193*<RO2T>*<RO222>+0.9983609*K194*<HO2>*<RO222>+1.0023998*K269*<NO>*
-!<RO247>+1.0023998*K270*<RO2T>*<RO247>+1.0023998*K271*<HO2>*<RO247>
- PPROD(:,75) = +0.9983609*TPK%K082(:)*PCONC(:,15)*PCONC(:,25)+TPK%CFA2*TPK%K177&
-&(:)*PCONC(:,1)*TPK%RO217(:)+0.9983609*TPK%K178(:)*PCONC(:,85)*TPK%RO217(:)+0.9&
-&983609*TPK%K179(:)*PCONC(:,10)*TPK%RO217(:)+TPK%CFA7*TPK%K192(:)*PCONC(:,1)*TP&
-&K%RO222(:)+0.9983609*TPK%K193(:)*PCONC(:,85)*TPK%RO222(:)+0.9983609*TPK%K194(:&
-&)*PCONC(:,10)*TPK%RO222(:)+1.0023998*TPK%K269(:)*PCONC(:,1)*TPK%RO247(:)+1.002&
-&3998*TPK%K270(:)*PCONC(:,85)*TPK%RO247(:)+1.0023998*TPK%K271(:)*PCONC(:,10)*TP&
-&K%RO247(:)
-!PLOSS(RPRL) = +K306*<OH>
- PLOSS(:,75) = +TPK%K306(:)*PCONC(:,15)
-!
-!PPROD(APAN) = +K130*<NO2>*<RO250>+K133*<NO2>*<RO257>
- PPROD(:,76) = +TPK%K130(:)*PCONC(:,2)*TPK%RO250(:)+TPK%K133(:)*PCONC(:,2)*TPK%&
-&RO257(:)
-!PLOSS(APAN) = +K139
- PLOSS(:,76) = +TPK%K139(:)
-!
-!PPROD(PAN1) = +K126*<NO2>*<RO26>
- PPROD(:,77) = +TPK%K126(:)*PCONC(:,2)*TPK%RO26(:)
-!PLOSS(PAN1) = +K135
- PLOSS(:,77) = +TPK%K135(:)
-!
-!PPROD(PAN2) = +K127*<NO2>*<RO28>
- PPROD(:,78) = +TPK%K127(:)*PCONC(:,2)*TPK%RO28(:)
-!PLOSS(PAN2) = +K136
- PLOSS(:,78) = +TPK%K136(:)
-!
-!PPROD(PAN3) = +K128*<NO2>*<RO239>
- PPROD(:,79) = +TPK%K128(:)*PCONC(:,2)*TPK%RO239(:)
-!PLOSS(PAN3) = +K137
- PLOSS(:,79) = +TPK%K137(:)
-!
-!PPROD(PAN4) = +K129*<NO2>*<RO248>
- PPROD(:,80) = +TPK%K129(:)*PCONC(:,2)*TPK%RO248(:)
-!PLOSS(PAN4) = +K141
- PLOSS(:,80) = +TPK%K141(:)
-!
-RETURN
-END SUBROUTINE SUB7
-!
-SUBROUTINE SUB8
-!
-!Indices 81 a 87
-!
-!
-!PPROD(PAN6) = +K131*<NO2>*<RO254>
- PPROD(:,81) = +TPK%K131(:)*PCONC(:,2)*TPK%RO254(:)
-!PLOSS(PAN6) = +K140
- PLOSS(:,81) = +TPK%K140(:)
-!
-!PPROD(PAN7) = +K132*<NO2>*<RO255>
- PPROD(:,82) = +TPK%K132(:)*PCONC(:,2)*TPK%RO255(:)
-!PLOSS(PAN7) = +K343
- PLOSS(:,82) = +TPK%K343(:)
-!
-!PPROD(PAN8) = +K316*<NO2>*<RO256>
- PPROD(:,83) = +TPK%K316(:)*PCONC(:,2)*TPK%RO256(:)
-!PLOSS(PAN8) = +K317
- PLOSS(:,83) = +TPK%K317(:)
-!
-!PPROD(PN10) = +K134*<NO2>*<RO258>
- PPROD(:,84) = +TPK%K134(:)*PCONC(:,2)*TPK%RO258(:)
-!PLOSS(PN10) = +K138
- PLOSS(:,84) = +TPK%K138(:)
-!
-!PPROD(RO2T) = +K043*<OH>*<CH4>+K049*<OH>*<ETHE>+K050*<NO3>*<ETHE>+K052*<O>*<ET
-!HE>+TPK%CF2*K053*<OH>*<ETOH>+K054*<OH>*<OLEL>+K055*<NO3>*<OLEL>+0.28*K056*<O3>
-!*<OLEL>+0.2*K057*<O>*<OLEL>+K058*<OH>*<ALKL>+K059*<ALD2>+K060*<OH>*<ALD2>+K061
-!*<NO3>*<ALD2>+K062*<OH>*<KETL>+2.*K063*<KETL>+K064*<OH>*<ISOP>+K065*<NO3>*<ISO
-!P>+0.366*K066*<O3>*<ISOP>+K068*<OH>*<MTBE>+K069*<OH>*<ALCH>+K070*<OH>*<KETH>+2
-!.*K071*<KETH>+0.1*K073*<OH>*<AROO>+K074*<OH>*<OLEH>+K075*<NO3>*<OLEH>+0.28*K07
-!6*<O3>*<OLEH>+0.2*K077*<O>*<OLEH>+K078*<OH>*<ALKM>+0.06*K079*<OH>*<AROL>+TPK%C
-!F45*K082*<OH>*<ARAL>+0.1*K083*<OH>*<ARAC>+K084*<OH>*<BIOL>+K085*<NO3>*<BIOL>+0
-!.445*K086*<O3>*<BIOL>+K088*<OH>*<BIOH>+K089*<NO3>*<BIOH>+0.89*K090*<O3>*<BIOH>
-!+0.1*K092*<OH>*<PAH>+K093*<OH>*<ALKH>+K096*<RO2T>*<RO2T>+K097*<RAD2>+K098*<RAD
-!3>+K099*<RAD4>+K100*<RAD5>+K101*<RAD6>+K102*<RAD7>+K111*<RO2T>*<RO21>+K114*<RO
-!2T>*<RO22>+K117*<RO2T>*<RO23>+K120*<RO2T>*<RO24>+K123*<RO2T>*<RO25>+K125*<NO>*
-!<RO26>+K135*<PAN1>+K136*<PAN2>+K137*<PAN3>+K138*<PN10>+1.0000000*K139*<APAN>+K
-!140*<PAN6>+K141*<PAN4>+2.*K143*<RO2T>*<RO26>+K144*<NO>*<RO27>+2.*K145*<RO2T>*<
-!RO27>+K146*<HO2>*<RO27>+K147*<NO>*<RO28>+2.*K149*<RO2T>*<RO28>+K151*<RO2T>*<RO
-!29>+K154*<RO2T>*<RO210>+K157*<RO2T>*<RO211>+K160*<RO2T>*<RO212>+K162*<NO>*<RO2
-!13>+2.*K163*<RO2T>*<RO213>+K164*<HO2>*<RO213>+K165*<NO>*<RO239>+2.*K167*<RO2T>
-!*<RO239>+TPK%CF8*K168*<NO>*<RO214>+2.*K169*<RO2T>*<RO214>+K170*<HO2>*<RO214>+K
-!172*<RO2T>*<RO215>+K174*<NO>*<RO216>+2.*K175*<RO2T>*<RO216>+K176*<HO2>*<RO216>
-!+K178*<RO2T>*<RO217>+K181*<RO2T>*<RO218>+K184*<RO2T>*<RO219>+TPK%CF18*K186*<NO
-!>*<RO220>+2.*K187*<RO2T>*<RO220>+K188*<HO2>*<RO220>+K190*<RO2T>*<RO221>+K193*<
-!RO2T>*<RO222>+K196*<RO2T>*<RO223>+K199*<RO2T>*<RO224>+K202*<RO2T>*<RO225>+K204
-!*<NO>*<RO226>+2.*K205*<RO2T>*<RO226>+K206*<HO2>*<RO226>+K208*<RO2T>*<RO227>+K2
-!11*<RO2T>*<RO228>+TPK%CF30*K213*<NO>*<RO229>+2.*K214*<RO2T>*<RO229>+K215*<HO2>
-!*<RO229>+K216*<NO>*<RO240>+2.*K217*<RO2T>*<RO240>+K218*<HO2>*<RO240>+2.*K219*<
-!RO2T>*<RO230>+K220*<HO2>*<RO230>+K222*<RO2T>*<RO231>+TPK%CF34*K224*<NO>*<RO232
-!>+2.*K225*<RO2T>*<RO232>+K226*<HO2>*<RO232>+K228*<RO2T>*<RO241>+K230*<RO233>+K
-!232*<RO2T>*<RO233>+K235*<RO2T>*<RO242>+K237*<RO234>+K239*<RO2T>*<RO234>+K242*<
-!RO2T>*<RO243>+K244*<RO235>+K246*<RO2T>*<RO235>+K249*<RO2T>*<RO244>+K251*<RO236
-!>+K253*<RO2T>*<RO236>+K256*<RO2T>*<RO245>+K258*<RO237>+K260*<RO2T>*<RO237>+K26
-!3*<RO2T>*<RO246>+K265*<RO238>+K267*<RO2T>*<RO238>+K270*<RO2T>*<RO247>+K272*<OH
-!>*<MVK>+K273*<OH>*<MCR>+K274*<OH>*<MGLY>+K275*<NO3>*<MCR>+K276*<MGLY>+K277*<NO
-!>*<RO248>+K278*<NO3>*<MGLY>+2.*K280*<RO2T>*<RO248>+0.28*K281*<O3>*<MVK>+0.41*K
-!282*<O3>*<MCR>+0.3*K283*<O>*<MVK>+0.15*K284*<O>*<MCR>+K286*<RO2T>*<RO249>+K288
-!*<NO>*<RO250>+2.*K290*<RO2T>*<RO250>+K292*<HO2>*<RO251>+K295*<HO2>*<RO252>+K29
-!7*<NO>*<RO253>+2.*K298*<HO2>*<RO253>+K299*<RO2T>*<RO253>+K302*<RO2T>*<RO254>+K
-!304*<OH>*<RPR1>+K305*<OH>*<RP16>+K307*<NO3>*<RPR1>+K308*<RPR1>+K309*<NO>*<RO25
-!5>+2.*K311*<RO2T>*<RO255>+K312*<OH>*<RPR3>+K313*<NO3>*<RPR3>+K317*<PAN8>+K319*
-!<RO2T>*<RO256>+K324*<OH>*<RPR8>+K327*<NO3>*<RPR8>+K329*<RPR8>+K330*<RPR8>+K331
-!*<NO>*<RO257>+2.*K333*<RO2T>*<RO257>+K338*<NO3>*<RP16>+K342*<RO2T>*<RO258>+K34
-!3*<PAN7>+K344*<NO>*<RO230>
- PPROD(:,85) = +TPK%K043(:)*PCONC(:,15)*TPK%CH4(:)+TPK%K049(:)*PCONC(:,15)*PCON&
-&C(:,16)+TPK%K050(:)*PCONC(:,8)*PCONC(:,16)+TPK%K052(:)*TPK%O(:)*PCONC(:,16)+TP&
-&K%CF2*TPK%K053(:)*PCONC(:,15)*PCONC(:,33)+TPK%K054(:)*PCONC(:,15)*PCONC(:,17)+&
-&TPK%K055(:)*PCONC(:,8)*PCONC(:,17)+0.28*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)+0.2&
-&*TPK%K057(:)*TPK%O(:)*PCONC(:,17)+TPK%K058(:)*PCONC(:,15)*PCONC(:,19)+TPK%K059&
-&(:)*PCONC(:,29)+TPK%K060(:)*PCONC(:,15)*PCONC(:,29)+TPK%K061(:)*PCONC(:,8)*PCO&
-&NC(:,29)+TPK%K062(:)*PCONC(:,15)*PCONC(:,30)+2.*TPK%K063(:)*PCONC(:,30)+TPK%K0&
-&64(:)*PCONC(:,15)*PCONC(:,35)+TPK%K065(:)*PCONC(:,8)*PCONC(:,35)+0.366*TPK%K06&
-&6(:)*PCONC(:,3)*PCONC(:,35)+TPK%K068(:)*PCONC(:,15)*PCONC(:,38)+TPK%K069(:)*PC&
-&ONC(:,15)*PCONC(:,34)+TPK%K070(:)*PCONC(:,15)*PCONC(:,31)+2.*TPK%K071(:)*PCONC&
-&(:,31)+0.1*TPK%K073(:)*PCONC(:,15)*PCONC(:,24)+TPK%K074(:)*PCONC(:,15)*PCONC(:&
-&,18)+TPK%K075(:)*PCONC(:,8)*PCONC(:,18)+0.28*TPK%K076(:)*PCONC(:,3)*PCONC(:,18&
-&)+0.2*TPK%K077(:)*TPK%O(:)*PCONC(:,18)+TPK%K078(:)*PCONC(:,15)*PCONC(:,20)+0.0&
-&6*TPK%K079(:)*PCONC(:,15)*PCONC(:,23)+TPK%CF45*TPK%K082(:)*PCONC(:,15)*PCONC(:&
-&,25)+0.1*TPK%K083(:)*PCONC(:,15)*PCONC(:,26)+TPK%K084(:)*PCONC(:,15)*PCONC(:,3&
-&6)+TPK%K085(:)*PCONC(:,8)*PCONC(:,36)+0.445*TPK%K086(:)*PCONC(:,3)*PCONC(:,36)&
-&+TPK%K088(:)*PCONC(:,15)*PCONC(:,37)+TPK%K089(:)*PCONC(:,8)*PCONC(:,37)+0.89*T&
-&PK%K090(:)*PCONC(:,3)*PCONC(:,37)+0.1*TPK%K092(:)*PCONC(:,15)*PCONC(:,27)+TPK%&
-&K093(:)*PCONC(:,15)*PCONC(:,21)+TPK%K096(:)*PCONC(:,85)*PCONC(:,85)+TPK%K097(:&
-&)*TPK%RAD2(:)+TPK%K098(:)*TPK%RAD3(:)+TPK%K099(:)*TPK%RAD4(:)+TPK%K100(:)*TPK%&
-&RAD5(:)+TPK%K101(:)*TPK%RAD6(:)+TPK%K102(:)*TPK%RAD7(:)+TPK%K111(:)*PCONC(:,85&
-&)*PCONC(:,86)+TPK%K114(:)*PCONC(:,85)*TPK%RO22(:)+TPK%K117(:)*PCONC(:,85)*TPK%&
-&RO23(:)+TPK%K120(:)*PCONC(:,85)*TPK%RO24(:)+TPK%K123(:)*PCONC(:,85)*PCONC(:,87&
-&)+TPK%K125(:)*PCONC(:,1)*TPK%RO26(:)+TPK%K135(:)*PCONC(:,77)+TPK%K136(:)*PCONC&
-&(:,78)+TPK%K137(:)*PCONC(:,79)+TPK%K138(:)*PCONC(:,84)+1.0000000*TPK%K139(:)*P&
-&CONC(:,76)+TPK%K140(:)*PCONC(:,81)+TPK%K141(:)*PCONC(:,80)+2.*TPK%K143(:)*PCON&
-&C(:,85)*TPK%RO26(:)+TPK%K144(:)*PCONC(:,1)*TPK%RO27(:)+2.*TPK%K145(:)*PCONC(:,&
-&85)*TPK%RO27(:)+TPK%K146(:)*PCONC(:,10)*TPK%RO27(:)+TPK%K147(:)*PCONC(:,1)*TPK&
-&%RO28(:)+2.*TPK%K149(:)*PCONC(:,85)*TPK%RO28(:)+TPK%K151(:)*PCONC(:,85)*TPK%RO&
-&29(:)+TPK%K154(:)*PCONC(:,85)*TPK%RO210(:)+TPK%K157(:)*PCONC(:,85)*TPK%RO211(:&
-&)+TPK%K160(:)*PCONC(:,85)*TPK%RO212(:)+TPK%K162(:)*PCONC(:,1)*TPK%RO213(:)+2.*&
-&TPK%K163(:)*PCONC(:,85)*TPK%RO213(:)+TPK%K164(:)*PCONC(:,10)*TPK%RO213(:)+TPK%&
-&K165(:)*PCONC(:,1)*TPK%RO239(:)+2.*TPK%K167(:)*PCONC(:,85)*TPK%RO239(:)+TPK%CF&
-&8*TPK%K168(:)*PCONC(:,1)*TPK%RO214(:)+2.*TPK%K169(:)*PCONC(:,85)*TPK%RO214(:)+&
-&TPK%K170(:)*PCONC(:,10)*TPK%RO214(:)+TPK%K172(:)*PCONC(:,85)*TPK%RO215(:)+TPK%&
-&K174(:)*PCONC(:,1)*TPK%RO216(:)+2.*TPK%K175(:)*PCONC(:,85)*TPK%RO216(:)+TPK%K1&
-&76(:)*PCONC(:,10)*TPK%RO216(:)+TPK%K178(:)*PCONC(:,85)*TPK%RO217(:)+TPK%K181(:&
-&)*PCONC(:,85)*TPK%RO218(:)+TPK%K184(:)*PCONC(:,85)*TPK%RO219(:)+TPK%CF18*TPK%K&
-&186(:)*PCONC(:,1)*TPK%RO220(:)+2.*TPK%K187(:)*PCONC(:,85)*TPK%RO220(:)+TPK%K18&
-&8(:)*PCONC(:,10)*TPK%RO220(:)+TPK%K190(:)*PCONC(:,85)*TPK%RO221(:)+TPK%K193(:)&
-&*PCONC(:,85)*TPK%RO222(:)+TPK%K196(:)*PCONC(:,85)*TPK%RO223(:)+TPK%K199(:)*PCO&
-&NC(:,85)*TPK%RO224(:)+TPK%K202(:)*PCONC(:,85)*TPK%RO225(:)+TPK%K204(:)*PCONC(:&
-&,1)*TPK%RO226(:)+2.*TPK%K205(:)*PCONC(:,85)*TPK%RO226(:)+TPK%K206(:)*PCONC(:,1&
-&0)*TPK%RO226(:)+TPK%K208(:)*PCONC(:,85)*TPK%RO227(:)+TPK%K211(:)*PCONC(:,85)*T&
-&PK%RO228(:)+TPK%CF30*TPK%K213(:)*PCONC(:,1)*TPK%RO229(:)+2.*TPK%K214(:)*PCONC(&
-&:,85)*TPK%RO229(:)+TPK%K215(:)*PCONC(:,10)*TPK%RO229(:)+TPK%K216(:)*PCONC(:,1)&
-&*TPK%RO240(:)+2.*TPK%K217(:)*PCONC(:,85)*TPK%RO240(:)+TPK%K218(:)*PCONC(:,10)*&
-&TPK%RO240(:)+2.*TPK%K219(:)*PCONC(:,85)*TPK%RO230(:)+TPK%K220(:)*PCONC(:,10)*T&
-&PK%RO230(:)+TPK%K222(:)*PCONC(:,85)*TPK%RO231(:)+TPK%CF34*TPK%K224(:)*PCONC(:,&
-&1)*TPK%RO232(:)+2.*TPK%K225(:)*PCONC(:,85)*TPK%RO232(:)+TPK%K226(:)*PCONC(:,10&
-&)*TPK%RO232(:)+TPK%K228(:)*PCONC(:,85)*TPK%RO241(:)+TPK%K230(:)*TPK%RO233(:)+T&
-&PK%K232(:)*PCONC(:,85)*TPK%RO233(:)+TPK%K235(:)*PCONC(:,85)*TPK%RO242(:)+TPK%K&
-&237(:)*TPK%RO234(:)+TPK%K239(:)*PCONC(:,85)*TPK%RO234(:)+TPK%K242(:)*PCONC(:,8&
-&5)*TPK%RO243(:)+TPK%K244(:)*TPK%RO235(:)+TPK%K246(:)*PCONC(:,85)*TPK%RO235(:)+&
-&TPK%K249(:)*PCONC(:,85)*TPK%RO244(:)+TPK%K251(:)*TPK%RO236(:)+TPK%K253(:)*PCON&
-&C(:,85)*TPK%RO236(:)+TPK%K256(:)*PCONC(:,85)*TPK%RO245(:)+TPK%K258(:)*TPK%RO23&
-&7(:)+TPK%K260(:)*PCONC(:,85)*TPK%RO237(:)+TPK%K263(:)*PCONC(:,85)*TPK%RO246(:)&
-&+TPK%K265(:)*TPK%RO238(:)+TPK%K267(:)*PCONC(:,85)*TPK%RO238(:)+TPK%K270(:)*PCO&
-&NC(:,85)*TPK%RO247(:)+TPK%K272(:)*PCONC(:,15)*PCONC(:,39)+TPK%K273(:)*PCONC(:,&
-&15)*PCONC(:,40)+TPK%K274(:)*PCONC(:,15)*PCONC(:,41)+TPK%K275(:)*PCONC(:,8)*PCO&
-&NC(:,40)+TPK%K276(:)*PCONC(:,41)+TPK%K277(:)*PCONC(:,1)*TPK%RO248(:)+TPK%K278(&
-&:)*PCONC(:,8)*PCONC(:,41)+2.*TPK%K280(:)*PCONC(:,85)*TPK%RO248(:)+0.28*TPK%K28&
-&1(:)*PCONC(:,3)*PCONC(:,39)+0.41*TPK%K282(:)*PCONC(:,3)*PCONC(:,40)+0.3*TPK%K2&
-&83(:)*TPK%O(:)*PCONC(:,39)+0.15*TPK%K284(:)*TPK%O(:)*PCONC(:,40)+TPK%K286(:)*P&
-&CONC(:,85)*TPK%RO249(:)+TPK%K288(:)*PCONC(:,1)*TPK%RO250(:)+2.*TPK%K290(:)*PCO&
-&NC(:,85)*TPK%RO250(:)+TPK%K292(:)*PCONC(:,10)*TPK%RO251(:)+TPK%K295(:)*PCONC(:&
-&,10)*TPK%RO252(:)+TPK%K297(:)*PCONC(:,1)*TPK%RO253(:)+2.*TPK%K298(:)*PCONC(:,1&
-&0)*TPK%RO253(:)+TPK%K299(:)*PCONC(:,85)*TPK%RO253(:)+TPK%K302(:)*PCONC(:,85)*T&
-&PK%RO254(:)+TPK%K304(:)*PCONC(:,15)*PCONC(:,69)+TPK%K305(:)*PCONC(:,15)*PCONC(&
-&:,74)+TPK%K307(:)*PCONC(:,8)*PCONC(:,69)+TPK%K308(:)*PCONC(:,69)+TPK%K309(:)*P&
-&CONC(:,1)*TPK%RO255(:)+2.*TPK%K311(:)*PCONC(:,85)*TPK%RO255(:)+TPK%K312(:)*PCO&
-&NC(:,15)*PCONC(:,57)+TPK%K313(:)*PCONC(:,8)*PCONC(:,57)+TPK%K317(:)*PCONC(:,83&
-&)+TPK%K319(:)*PCONC(:,85)*TPK%RO256(:)+TPK%K324(:)*PCONC(:,15)*PCONC(:,71)+TPK&
-&%K327(:)*PCONC(:,8)*PCONC(:,71)+TPK%K329(:)*PCONC(:,71)+TPK%K330(:)*PCONC(:,71&
-&)+TPK%K331(:)*PCONC(:,1)*TPK%RO257(:)+2.*TPK%K333(:)*PCONC(:,85)*TPK%RO257(:)+&
-&TPK%K338(:)*PCONC(:,8)*PCONC(:,74)+TPK%K342(:)*PCONC(:,85)*TPK%RO258(:)+TPK%K3&
-&43(:)*PCONC(:,82)+TPK%K344(:)*PCONC(:,1)*TPK%RO230(:)
-!PLOSS(RO2T) = +K094*<HO2>+K095*<NO>+K096*<RO2T>+K096*<RO2T>+K111*<RO21>+K114*<
-!RO22>+K117*<RO23>+K120*<RO24>+K123*<RO25>+K143*<RO26>+K145*<RO27>+K149*<RO28>+
-!K151*<RO29>+K154*<RO210>+K157*<RO211>+K160*<RO212>+K163*<RO213>+K167*<RO239>+K
-!169*<RO214>+K172*<RO215>+K175*<RO216>+K178*<RO217>+K181*<RO218>+K184*<RO219>+K
-!187*<RO220>+K190*<RO221>+K193*<RO222>+K196*<RO223>+K199*<RO224>+K202*<RO225>+K
-!205*<RO226>+K208*<RO227>+K211*<RO228>+K214*<RO229>+K217*<RO240>+K219*<RO230>+K
-!222*<RO231>+K225*<RO232>+K228*<RO241>+K232*<RO233>+K235*<RO242>+K239*<RO234>+K
-!242*<RO243>+K246*<RO235>+K249*<RO244>+K253*<RO236>+K256*<RO245>+K260*<RO237>+K
-!263*<RO246>+K267*<RO238>+K270*<RO247>+K280*<RO248>+K286*<RO249>+K290*<RO250>+K
-!293*<RO251>+K296*<RO252>+K299*<RO253>+K302*<RO254>+K311*<RO255>+K319*<RO256>+K
-!333*<RO257>+K342*<RO258>
- PLOSS(:,85) = +TPK%K094(:)*PCONC(:,10)+TPK%K095(:)*PCONC(:,1)+TPK%K096(:)*PCON&
-&C(:,85)+TPK%K096(:)*PCONC(:,85)+TPK%K111(:)*PCONC(:,86)+TPK%K114(:)*TPK%RO22(:&
-&)+TPK%K117(:)*TPK%RO23(:)+TPK%K120(:)*TPK%RO24(:)+TPK%K123(:)*PCONC(:,87)+TPK%&
-&K143(:)*TPK%RO26(:)+TPK%K145(:)*TPK%RO27(:)+TPK%K149(:)*TPK%RO28(:)+TPK%K151(:&
-&)*TPK%RO29(:)+TPK%K154(:)*TPK%RO210(:)+TPK%K157(:)*TPK%RO211(:)+TPK%K160(:)*TP&
-&K%RO212(:)+TPK%K163(:)*TPK%RO213(:)+TPK%K167(:)*TPK%RO239(:)+TPK%K169(:)*TPK%R&
-&O214(:)+TPK%K172(:)*TPK%RO215(:)+TPK%K175(:)*TPK%RO216(:)+TPK%K178(:)*TPK%RO21&
-&7(:)+TPK%K181(:)*TPK%RO218(:)+TPK%K184(:)*TPK%RO219(:)+TPK%K187(:)*TPK%RO220(:&
-&)+TPK%K190(:)*TPK%RO221(:)+TPK%K193(:)*TPK%RO222(:)+TPK%K196(:)*TPK%RO223(:)+T&
-&PK%K199(:)*TPK%RO224(:)+TPK%K202(:)*TPK%RO225(:)+TPK%K205(:)*TPK%RO226(:)+TPK%&
-&K208(:)*TPK%RO227(:)+TPK%K211(:)*TPK%RO228(:)+TPK%K214(:)*TPK%RO229(:)+TPK%K21&
-&7(:)*TPK%RO240(:)+TPK%K219(:)*TPK%RO230(:)+TPK%K222(:)*TPK%RO231(:)+TPK%K225(:&
-&)*TPK%RO232(:)+TPK%K228(:)*TPK%RO241(:)+TPK%K232(:)*TPK%RO233(:)+TPK%K235(:)*T&
-&PK%RO242(:)+TPK%K239(:)*TPK%RO234(:)+TPK%K242(:)*TPK%RO243(:)+TPK%K246(:)*TPK%&
-&RO235(:)+TPK%K249(:)*TPK%RO244(:)+TPK%K253(:)*TPK%RO236(:)+TPK%K256(:)*TPK%RO2&
-&45(:)+TPK%K260(:)*TPK%RO237(:)+TPK%K263(:)*TPK%RO246(:)+TPK%K267(:)*TPK%RO238(&
-&:)+TPK%K270(:)*TPK%RO247(:)+TPK%K280(:)*TPK%RO248(:)+TPK%K286(:)*TPK%RO249(:)+&
-&TPK%K290(:)*TPK%RO250(:)+TPK%K293(:)*TPK%RO251(:)+TPK%K296(:)*TPK%RO252(:)+TPK&
-&%K299(:)*TPK%RO253(:)+TPK%K302(:)*TPK%RO254(:)+TPK%K311(:)*TPK%RO255(:)+TPK%K3&
-&19(:)*TPK%RO256(:)+TPK%K333(:)*TPK%RO257(:)+TPK%K342(:)*TPK%RO258(:)
-!
-!PPROD(RO21) = +K043*<OH>*<CH4>+0.6*K052*<O>*<ETHE>+K147*<NO>*<RO28>+K149*<RO2T
-!>*<RO28>
- PPROD(:,86) = +TPK%K043(:)*PCONC(:,15)*TPK%CH4(:)+0.6*TPK%K052(:)*TPK%O(:)*PCO&
-&NC(:,16)+TPK%K147(:)*PCONC(:,1)*TPK%RO28(:)+TPK%K149(:)*PCONC(:,85)*TPK%RO28(:&
-&)
-!PLOSS(RO21) = +K110*<NO>+K111*<RO2T>+K112*<HO2>
- PLOSS(:,86) = +TPK%K110(:)*PCONC(:,1)+TPK%K111(:)*PCONC(:,85)+TPK%K112(:)*PCON&
-&C(:,10)
-!
-!PPROD(RO25) = +0.28*K056*<O3>*<OLEL>+0.1*K057*<O>*<OLEL>+K058*<OH>*<ALKL>+K059
-!*<ALD2>+K063*<KETL>+K071*<KETH>+K125*<NO>*<RO26>+K143*<RO2T>*<RO26>
- PPROD(:,87) = +0.28*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)+0.1*TPK%K057(:)*TPK%O(:&
-&)*PCONC(:,17)+TPK%K058(:)*PCONC(:,15)*PCONC(:,19)+TPK%K059(:)*PCONC(:,29)+TPK%&
-&K063(:)*PCONC(:,30)+TPK%K071(:)*PCONC(:,31)+TPK%K125(:)*PCONC(:,1)*TPK%RO26(:)&
-&+TPK%K143(:)*PCONC(:,85)*TPK%RO26(:)
-!PLOSS(RO25) = +K122*<NO>+K123*<RO2T>+K124*<HO2>
- PLOSS(:,87) = +TPK%K122(:)*PCONC(:,1)+TPK%K123(:)*PCONC(:,85)+TPK%K124(:)*PCON&
-&C(:,10)
-!
-RETURN
-END SUBROUTINE SUB8
-!
-END SUBROUTINE CH_PRODLOSS_GAZ
-!
-!
-!========================================================================
-!
!! ##########################
MODULE MODI_CH_PRODLOSS_AQ
!! ##########################
@@ -9261,317 +3993,15 @@ INTEGER, INTENT(IN) :: KMI
TYPE(CCSTYPE), POINTER :: TPK
TPK=>TACCS(KMI)
! /BEGIN_CODE/
-TPK%OSD = ( +TPK%K016*PCONC(:,JP_O3) ) / &
- ( +TPK%K017*TPK%H2O+TPK%K018A*TPK%N2(:)+TPK%K018B*TPK%O2(:) )
-!
-TPK%O = ( +TPK%K001*PCONC(:,JP_NO2)+TPK%K014*PCONC(:,JP_NO3)+TPK%&
-&K015*PCONC(:,JP_O3)+TPK%K018A*TPK%OSD*TPK%N2(:)+TPK%K018B*TPK%OSD*TPK%O2(:) ) / &
-( +TPK%K002*TPK%O2(:)+TPK%K003*PCONC(:,JP_NO2)+TPK%K004*PCONC(:,JP_NO2)+TPK%K034*&
-PCONC(:,JP_O3)+TPK%K038*PCONC(:,JP_NO)+TPK%K052*PCONC(:,JP_ETHE)+&
-&TPK%K057*PCONC(:,JP_OLEL)+TPK%K067*PCONC(:,JP_ISOP)+TPK%K077*PCONC(:,&
-&JP_OLEH)+TPK%K087*PCONC(:,JP_BIOL)+TPK%K091*PCONC(:,JP_BIOH)+TPK%K283&
-&*PCONC(:,JP_MVK)+TPK%K284*PCONC(:,JP_MCR) )
-!
-TPK%RO225 = ( TPK%K085*PCONC(:,JP_BIOL)*PCONC(:,JP_NO3) ) / &
-( +TPK%K201*PCONC(:,JP_NO)+TPK%K202*PCONC(:,JP_RO2T)+TPK%K203*PCONC(:,JP_HO2))
-!
-TPK%RO228 = ( TPK%K089*PCONC(:,JP_BIOH)*PCONC(:,JP_NO3) ) / &
-( +TPK%K210*PCONC(:,JP_NO)+TPK%K211*PCONC(:,JP_RO2T)+TPK%K212*PCONC(:,JP_HO2))
-
-!
-TPK%RO253 = ( +0.41*TPK%K282*PCONC(:,JP_MCR)*PCONC(:,JP_O3) ) / &
-( +TPK%K297*PCONC(:,JP_NO)+TPK%K298*PCONC(:,JP_HO2)+TPK%K299*PCONC(&
-&:,JP_RO2T) )
-!
-TPK%RO254 = ( +TPK%K140*PCONC(:,JP_PAN6)+TPK%K297*TPK%RO253*&
-&PCONC(:,JP_NO)+TPK%K298*TPK%RO253*PCONC(:,JP_HO2)+TPK%K299*&
-&TPK%RO253*PCONC(:,JP_RO2T) ) / &
-( +TPK%K131*PCONC(:,JP_NO2)+TPK%K300*PCONC(:,JP_NO)+TPK%K301*PCONC(&
-&:,JP_HO2)+TPK%K302*PCONC(:,JP_RO2T) )
-!
-TPK%RO213 = ( +0.271*TPK%K066*PCONC(:,JP_ISOP)*PCONC(:,JP_O3) ) / &
-( +TPK%K162*PCONC(:,JP_NO)+TPK%K163*PCONC(:,JP_RO2T)+TPK%K164*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO239 = ( +TPK%K137*PCONC(:,JP_PAN3)+TPK%K162*TPK%RO213*&
-&PCONC(:,JP_NO)+TPK%K163*TPK%RO213*PCONC(:,JP_RO2T)+TPK%K164*TPK%RO213*PCONC(:,JP_HO2) ) / &
-( +TPK%K128*PCONC(:,JP_NO2)+TPK%K165*PCONC(:,JP_NO)+TPK%K166*PCONC(&
-&:,JP_HO2)+TPK%K167*PCONC(:,JP_RO2T) )
-!
-TPK%RO248 = ( +TPK%K141*PCONC(:,JP_PAN4)+TPK%K274*PCONC(:,JP_MGLY)*P&
-&CONC(:,JP_OH)+TPK%K278*PCONC(:,JP_MGLY)*PCONC(:,JP_NO3) ) / &
-( +TPK%K129*PCONC(:,JP_NO2)+TPK%K277*PCONC(:,JP_NO)+TPK%K279*PCONC(&
-&:,JP_HO2)+TPK%K280*PCONC(:,JP_RO2T) )
-!
-TPK%RO249 = ( +TPK%K272*PCONC(:,JP_MVK)*PCONC(:,JP_OH) ) / &
-( +TPK%K285*PCONC(:,JP_NO)+TPK%K286*PCONC(:,JP_RO2T)+TPK%K287*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO250 = ( +0.3750353*TPK%K139*PCONC(:,JP_APAN)+TPK%CF46*TPK%K2&
-&73*PCONC(:,JP_MCR)*PCONC(:,JP_OH)+TPK%CF46*TPK%K275*PCONC(:,JP_MCR)*PCONC&
-&(:,JP_NO3) ) / &
-( +TPK%K130*PCONC(:,JP_NO2)+TPK%K288*PCONC(:,JP_NO)+TPK%K289*PCONC(&
-&:,JP_HO2)+TPK%K290*PCONC(:,JP_RO2T) )
-!
-TPK%RO214 = ( +0.095*TPK%K066*PCONC(:,JP_ISOP)*PCONC(:,JP_O3)+TPK%K1&
-&65*TPK%RO239*PCONC(:,JP_NO)+TPK%K167*TPK%RO239*PCONC(:,JP_R&
-&O2T)+TPK%K288*TPK%RO250*PCONC(:,JP_NO)+TPK%K290*TPK%RO250&
-&*PCONC(:,JP_RO2T) ) / &
-( +TPK%K168*PCONC(:,JP_NO)+TPK%K169*PCONC(:,JP_RO2T)+TPK%K170*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO251 = ( +TPK%CF47*TPK%K273*PCONC(:,JP_MCR)*PCONC(:,JP_OH) ) / &
-( +TPK%K291*PCONC(:,JP_NO)+TPK%K292*PCONC(:,JP_HO2)+TPK%K293*PCONC(&
-&:,JP_RO2T) )
-!
-TPK%RO252 = ( +TPK%CF47*TPK%K275*PCONC(:,JP_MCR)*PCONC(:,JP_NO3) ) /&
-( +TPK%K294*PCONC(:,JP_NO)+TPK%K295*PCONC(:,JP_HO2)+TPK%K296*PCONC(&
-&:,JP_RO2T) )
-!
-TPK%RO258 = ( +TPK%K138*PCONC(:,JP_PN10)+TPK%K305*PCONC(:,JP_RP16)*P&
-&CONC(:,JP_OH)+TPK%K338*PCONC(:,JP_RP16)*PCONC(:,JP_NO3) ) / &
-( +TPK%K134*PCONC(:,JP_NO2)+TPK%K340*PCONC(:,JP_NO)+TPK%K341*PCONC(&
-&:,JP_HO2)+TPK%K342*PCONC(:,JP_RO2T) )
-!
-TPK%RO255 = ( +TPK%K304*PCONC(:,JP_RPR1)*PCONC(:,JP_OH)+TPK%K307*PCO&
-&NC(:,JP_RPR1)*PCONC(:,JP_NO3)+TPK%K343*PCONC(:,JP_PAN7) ) / &
-( +TPK%K132*PCONC(:,JP_NO2)+TPK%K309*PCONC(:,JP_NO)+TPK%K310*PCONC(&
-&:,JP_HO2)+TPK%K311*PCONC(:,JP_RO2T) )
-!
-TPK%RO256 = ( +TPK%K312*PCONC(:,JP_RPR3)*PCONC(:,JP_OH)+TPK%K313*PCO&
-&NC(:,JP_RPR3)*PCONC(:,JP_NO3)+TPK%K317*PCONC(:,JP_PAN8) ) / &
-( +TPK%K315*PCONC(:,JP_NO)+TPK%K316*PCONC(:,JP_NO2)+TPK%K318*PCONC(&
-&:,JP_HO2)+TPK%K319*PCONC(:,JP_RO2T) )
-!
-TPK%RO257 = ( +0.6249651*TPK%K139*PCONC(:,JP_APAN)+TPK%K324*PCONC(:,&
-&JP_RPR8)*PCONC(:,JP_OH)+TPK%K327*PCONC(:,JP_RPR8)*PCONC(:,JP_NO3)+TPK%K3&
-&30*PCONC(:,JP_RPR8) ) / &
-( +TPK%K133*PCONC(:,JP_NO2)+TPK%K331*PCONC(:,JP_NO)+TPK%K332*PCONC(&
-&:,JP_HO2)+TPK%K333*PCONC(:,JP_RO2T) )
-!
-TPK%RO29 = ( +0.66*TPK%K064*PCONC(:,JP_ISOP)*PCONC(:,JP_OH)+TPK%K329&
-&*PCONC(:,JP_RPR8)+TPK%K331*TPK%RO257*PCONC(:,JP_NO)+TPK%K333*TPK%RO257*&
-PCONC(:,JP_RO2T) ) / &
-( +TPK%K150*PCONC(:,JP_NO)+TPK%K151*PCONC(:,JP_RO2T)+TPK%K152*PCONC&
-&(:,JP_HO2) )
-!
-!avoid division by zero in prodloss
-WHERE (PCONC(:,JP_NO2)>0.)
- TPK%RAD1 = ( +TPK%K072*PCONC(:,JP_AROO)*PCONC(:,JP_NO3) ) / &
- ( +TPK%K103*PCONC(:,JP_NO2) )
-!
- TPK%RAD8 = ( +TPK%K320*PCONC(:,JP_RPR4)*PCONC(:,JP_NO3) ) / &
- ( +TPK%K321*PCONC(:,JP_NO2) )
-ELSEWHERE
- TPK%RAD1 = 0.
- TPK%RAD8 = 0.
-ENDWHERE
-!
-TPK%RAD2 = ( +0.74*TPK%K073*PCONC(:,JP_AROO)*PCONC(:,JP_OH) ) / &
-( +TPK%K097+TPK%K104*PCONC(:,JP_NO2) )
-!
-TPK%RAD3 = ( +0.74*TPK%K079*PCONC(:,JP_AROL)*PCONC(:,JP_OH) ) / &
-( +TPK%K098+TPK%K105*PCONC(:,JP_NO2) )
-!
-TPK%RAD4 = ( +0.84*TPK%K080*PCONC(:,JP_AROH)*PCONC(:,JP_OH) ) / &
-( +TPK%K099+TPK%K106*PCONC(:,JP_NO2) )
-!
-TPK%RAD5 = ( +TPK%CF40*TPK%K082*PCONC(:,JP_ARAL)*PCONC(:,JP_OH) ) / &
-( +TPK%K100+TPK%K107*PCONC(:,JP_NO2) )
-!
-TPK%RAD6 = ( +0.74*TPK%K083*PCONC(:,JP_ARAC)*PCONC(:,JP_OH) ) / &
-( +TPK%K101+TPK%K108*PCONC(:,JP_NO2) )
-!
-TPK%RAD7 = ( +0.74*TPK%K092*PCONC(:,JP_PAH)*PCONC(:,JP_OH) ) / &
-( +TPK%K102+TPK%K109*PCONC(:,JP_NO2) )
-!
-TPK%RO22 = ( +TPK%K049*PCONC(:,JP_ETHE)*PCONC(:,JP_OH)+TPK%CF2*TPK&
-&%K053*PCONC(:,JP_ETOH)*PCONC(:,JP_OH)+TPK%K054*PCONC(:,JP_OLEL)*PCONC(:,JP_&
-&OH)+TPK%K069*PCONC(:,JP_ALCH)*PCONC(:,JP_OH) ) / &
-( +TPK%K113*PCONC(:,JP_NO)+TPK%K114*PCONC(:,JP_RO2T)+TPK%K115*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO23 = ( +TPK%K050*PCONC(:,JP_ETHE)*PCONC(:,JP_NO3)+TPK%K055*PCO&
-&NC(:,JP_OLEL)*PCONC(:,JP_NO3) ) / &
-( +TPK%K116*PCONC(:,JP_NO)+TPK%K117*PCONC(:,JP_RO2T)+TPK%K118*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO24 = ( +0.4*TPK%K052*PCONC(:,JP_ETHE)*TPK%O+0.1*TPK%K0&
-&57*PCONC(:,JP_OLEL)*TPK%O+0.1*TPK%K077*PCONC(:,JP_OLEH)*&
-&TPK%O+0.15*TPK%K283*PCONC(:,JP_MVK)*TPK%O ) / &
-( +TPK%K119*PCONC(:,JP_NO)+TPK%K120*PCONC(:,JP_RO2T)+TPK%K121*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO26 = ( +TPK%K060*PCONC(:,JP_ALD2)*PCONC(:,JP_OH)+TPK%K061*PCON&
-&C(:,JP_ALD2)*PCONC(:,JP_NO3)+TPK%K135*PCONC(:,JP_PAN1) ) / &
-( +TPK%K125*PCONC(:,JP_NO)+TPK%K126*PCONC(:,JP_NO2)+TPK%K142*PCONC(&
-&:,JP_HO2)+TPK%K143*PCONC(:,JP_RO2T) )
-!
-TPK%RO27 = ( +TPK%K062*PCONC(:,JP_KETL)*PCONC(:,JP_OH)+TPK%CF8*TPK&
-&%K168*TPK%RO214*PCONC(:,JP_NO)+TPK%K169*TPK%RO214*PCONC(:,J&
-&P_RO2T)+TPK%K170*TPK%RO214*PCONC(:,JP_HO2)+0.15*TPK%K284*PCONC(:&
-&,JP_MCR)*TPK%O ) / &
-( +TPK%K144*PCONC(:,JP_NO)+TPK%K145*PCONC(:,JP_RO2T)+TPK%K146*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO210 = ( +0.34*TPK%K064*PCONC(:,JP_ISOP)*PCONC(:,JP_OH) ) / &
-( +TPK%K153*PCONC(:,JP_NO)+TPK%K154*PCONC(:,JP_RO2T)+TPK%K155*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO211 = ( +0.66*TPK%K065*PCONC(:,JP_ISOP)*PCONC(:,JP_NO3) ) / &
-( +TPK%K156*PCONC(:,JP_NO)+TPK%K157*PCONC(:,JP_RO2T)+TPK%K158*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO212 = ( +0.34*TPK%K065*PCONC(:,JP_ISOP)*PCONC(:,JP_NO3) ) / &
-( +TPK%K159*PCONC(:,JP_NO)+TPK%K160*PCONC(:,JP_RO2T)+TPK%K161*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO215 = ( +TPK%K068*PCONC(:,JP_MTBE)*PCONC(:,JP_OH) ) / &
-( +TPK%K171*PCONC(:,JP_NO)+TPK%K172*PCONC(:,JP_RO2T)+TPK%K173*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO216 = ( +TPK%K070*PCONC(:,JP_KETH)*PCONC(:,JP_OH) ) / &
-( +TPK%K174*PCONC(:,JP_NO)+TPK%K175*PCONC(:,JP_RO2T)+TPK%K176*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO217 = ( +0.1*TPK%K073*PCONC(:,JP_AROO)*PCONC(:,JP_OH) ) / &
-( +TPK%K177*PCONC(:,JP_NO)+TPK%K178*PCONC(:,JP_RO2T)+TPK%K179*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO220 = ( +0.28*TPK%K076*PCONC(:,JP_OLEH)*PCONC(:,JP_O3)+0.1*TPK&
-&%K077*PCONC(:,JP_OLEH)*TPK%O+TPK%K078*PCONC(:,JP_ALKM)*PCONC(:,JP_O&
-&H)+TPK%K308*PCONC(:,JP_RPR1)+TPK%K309*TPK%RO255*PCONC(:,JP_NO)+T&
-&PK%K311*TPK%RO255*PCONC(:,JP_RO2T) ) / &
-( +TPK%K186*PCONC(:,JP_NO)+TPK%K187*PCONC(:,JP_RO2T)+TPK%K188*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO218 = ( +TPK%K074*PCONC(:,JP_OLEH)*PCONC(:,JP_OH)+TPK%CF18*TPK%K186*&
-TPK%RO220*PCONC(:,JP_NO)+TPK%K187*TPK%RO220*PCONC(:&
-&,JP_RO2T)+TPK%K188*TPK%RO220*PCONC(:,JP_HO2) ) / &
-( +TPK%K180*PCONC(:,JP_NO)+TPK%K181*PCONC(:,JP_RO2T)+TPK%K182*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO219 = ( +TPK%K075*PCONC(:,JP_OLEH)*PCONC(:,JP_NO3) ) / &
-( +TPK%K183*PCONC(:,JP_NO)+TPK%K184*PCONC(:,JP_RO2T)+TPK%K185*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO221 = ( +0.1*TPK%K079*PCONC(:,JP_AROL)*PCONC(:,JP_OH) ) / &
-( +TPK%K189*PCONC(:,JP_NO)+TPK%K190*PCONC(:,JP_RO2T)+TPK%K191*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO222 = ( +TPK%CF45*TPK%K082*PCONC(:,JP_ARAL)*PCONC(:,JP_OH) ) /&
-& &
-( +TPK%K192*PCONC(:,JP_NO)+TPK%K193*PCONC(:,JP_RO2T)+TPK%K194*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO223 = ( +0.1*TPK%K083*PCONC(:,JP_ARAC)*PCONC(:,JP_OH) ) / &
-( +TPK%K195*PCONC(:,JP_NO)+TPK%K196*PCONC(:,JP_RO2T)+TPK%K197*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO224 = ( +TPK%K084*PCONC(:,JP_BIOL)*PCONC(:,JP_OH) ) / &
-( +TPK%K198*PCONC(:,JP_NO)+TPK%K199*PCONC(:,JP_RO2T)+TPK%K200*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO226 = ( +0.445*TPK%K086*PCONC(:,JP_BIOL)*PCONC(:,JP_O3) ) / &
-( +TPK%K204*PCONC(:,JP_NO)+TPK%K205*PCONC(:,JP_RO2T)+TPK%K206*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO227 = ( +TPK%K088*PCONC(:,JP_BIOH)*PCONC(:,JP_OH) ) / &
-( +TPK%K207*PCONC(:,JP_NO)+TPK%K208*PCONC(:,JP_RO2T)+TPK%K209*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO229 = ( +0.445*TPK%K090*PCONC(:,JP_BIOH)*PCONC(:,JP_O3) ) / &
-( +TPK%K213*PCONC(:,JP_NO)+TPK%K214*PCONC(:,JP_RO2T)+TPK%K215*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO230 = ( +0.445*TPK%K090*PCONC(:,JP_BIOH)*PCONC(:,JP_O3) ) / &
-( +TPK%K219*PCONC(:,JP_RO2T)+TPK%K220*PCONC(:,JP_HO2)+TPK%K344*PCON&
-&C(:,JP_NO) )
-!
-TPK%RO231 = ( +0.1*TPK%K092*PCONC(:,JP_PAH)*PCONC(:,JP_OH) ) / &
-( +TPK%K221*PCONC(:,JP_NO)+TPK%K222*PCONC(:,JP_RO2T)+TPK%K223*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO232 = ( +TPK%K093*PCONC(:,JP_ALKH)*PCONC(:,JP_OH) ) / &
-( +TPK%K224*PCONC(:,JP_NO)+TPK%K225*PCONC(:,JP_RO2T)+TPK%K226*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO233 = ( +TPK%K097*TPK%RAD2 ) / &
-( +TPK%K230+TPK%K231*PCONC(:,JP_NO)+TPK%K232*PCONC(:,JP_RO2T)+TPK%K233*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO234 = ( +TPK%K098*TPK%RAD3 ) / &
-( +TPK%K237+TPK%K238*PCONC(:,JP_NO)+TPK%K239*PCONC(:,JP_RO2T)+TPK%K240*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO235 = ( +TPK%K099*TPK%RAD4 ) / &
-( +TPK%K244+TPK%K245*PCONC(:,JP_NO)+TPK%K246*PCONC(:,JP_RO2T)+TPK%K247*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO236 = ( +TPK%K100*TPK%RAD5 ) / &
-( +TPK%K251+TPK%K252*PCONC(:,JP_NO)+TPK%K253*PCONC(:,JP_RO2T)+TPK%K254*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO237 = ( +TPK%K101*TPK%RAD6 ) / &
-( +TPK%K258+TPK%K259*PCONC(:,JP_NO)+TPK%K260*PCONC(:,JP_RO2T)+TPK%K261*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO238 = ( +TPK%K102*TPK%RAD7 ) / &
-( +TPK%K265+TPK%K266*PCONC(:,JP_NO)+TPK%K267*PCONC(:,JP_RO2T)+TPK%K268*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO240 = ( +TPK%CF30*TPK%K213*TPK%RO229*PCONC(:,JP_NO)+TPK%K214*&
-TPK%RO229*PCONC(:,JP_RO2T)+TPK%K215*TPK%RO229*PCON&
-&C(:,JP_HO2) ) / &
-( +TPK%K216*PCONC(:,JP_NO)+TPK%K217*PCONC(:,JP_RO2T)+TPK%K218*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO241 = ( +TPK%CF34*TPK%K224*TPK%RO232*PCONC(:,JP_NO)+TPK%K225*&
-TPK%RO232*PCONC(:,JP_RO2T)+TPK%K226*TPK%RO232*PCON&
-&C(:,JP_HO2) ) / &
-( +TPK%K227*PCONC(:,JP_NO)+TPK%K228*PCONC(:,JP_RO2T)+TPK%K229*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO242 = ( +TPK%K230*TPK%RO233 ) / &
-( +TPK%K234*PCONC(:,JP_NO)+TPK%K235*PCONC(:,JP_RO2T)+TPK%K236*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO243 = ( +TPK%K237*TPK%RO234 ) / &
-( +TPK%K241*PCONC(:,JP_NO)+TPK%K242*PCONC(:,JP_RO2T)+TPK%K243*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO244 = ( +TPK%K244*TPK%RO235 ) / &
-( +TPK%K248*PCONC(:,JP_NO)+TPK%K249*PCONC(:,JP_RO2T)+TPK%K250*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO245 = ( +TPK%K251*TPK%RO236 ) / &
-( +TPK%K255*PCONC(:,JP_NO)+TPK%K256*PCONC(:,JP_RO2T)+TPK%K257*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO246 = ( +TPK%K258*TPK%RO237 ) / &
-( +TPK%K262*PCONC(:,JP_NO)+TPK%K263*PCONC(:,JP_RO2T)+TPK%K264*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO247 = ( +TPK%K265*TPK%RO238 ) / &
-( +TPK%K269*PCONC(:,JP_NO)+TPK%K270*PCONC(:,JP_RO2T)+TPK%K271*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO28 = ( +TPK%K063*PCONC(:,JP_KETL)+TPK%K071*PCONC(:,JP_KETH)+TP&
-&K%K136*PCONC(:,JP_PAN2)+TPK%K144*TPK%RO27*PCONC(:,JP_NO)+TPK%&
-&K145*TPK%RO27*PCONC(:,JP_RO2T)+TPK%K146*TPK%RO27*PCONC(:,JP&
-&_HO2)+TPK%K174*TPK%RO216*PCONC(:,JP_NO)+TPK%K175*TPK%RO21&
-&6*PCONC(:,JP_RO2T)+TPK%K176*TPK%RO216*PCONC(:,JP_HO2)+TPK%K204*&
-&TPK%RO226*PCONC(:,JP_NO)+TPK%K205*TPK%RO226*PCONC(:,JP_RO2T)&
-&+TPK%K206*TPK%RO226*PCONC(:,JP_HO2)+TPK%K216*TPK%RO240*&
-&PCONC(:,JP_NO)+TPK%K217*TPK%RO240*PCONC(:,JP_RO2T)+TPK%K218*&
-&TPK%RO240*PCONC(:,JP_HO2)+TPK%K219*TPK%RO230*PCONC(:,JP_RO2T)+T&
-&PK%K220*TPK%RO230*PCONC(:,JP_HO2)+TPK%K276*PCONC(:,JP_MGLY)+TPK%K277*&
-TPK%RO248*PCONC(:,JP_NO)+TPK%K280*TPK%RO248*PCONC(:&
-&,JP_RO2T)+0.28*TPK%K281*PCONC(:,JP_MVK)*PCONC(:,JP_O3)+0.15*TPK%K283*PCO&
-&NC(:,JP_MVK)*TPK%O+TPK%K344*TPK%RO230*PCONC(:,JP_NO) ) / &
-( +TPK%K127*PCONC(:,JP_NO2)+TPK%K147*PCONC(:,JP_NO)+TPK%K148*PCONC(&
-&:,JP_HO2)+TPK%K149*PCONC(:,JP_RO2T) )
-!
+TPK%O1D(:)=(TPK%K002(:)*PCONC(:,JP_O3))/(TPK%K020(:)*TPK%N2(:)+TPK%K021(:)*TPK%O2(:)+&
+ &TPK%K022(:)*TPK%H2O(:))
+TPK%O3P(:)=(TPK%K001(:)*PCONC(:,JP_NO2)+TPK%K003(:)*PCONC(:,JP_O3)+TPK%K008(:)*PCONC(:,JP_NO3)+&
+ &TPK%K020(:)*TPK%O1D(:)*TPK%N2(:)+TPK%K021(:)*TPK%O1D(:)*TPK%O2(:)+&
+ &0.00000*TPK%K079(:)*PCONC(:,JP_ALKE)*PCONC(:,JP_O3)+&
+ &0.09000*TPK%K080(:)*PCONC(:,JP_BIO)*PCONC(:,JP_O3))/&
+ &(TPK%K018(:)*TPK%O2(:)+TPK%K019(:)*PCONC(:,JP_O3)+TPK%K029(:)*PCONC(:,JP_NO)+&
+ &TPK%K030(:)*PCONC(:,JP_NO2)+TPK%K031(:)*PCONC(:,JP_NO2)+TPK%K054(:)*PCONC(:,JP_BIO)+&
+ &TPK%K055(:)*PCONC(:,JP_CARBO))
! /END_CODE/
CALL SUB0
CALL SUB1
@@ -9583,13 +4013,6 @@ CALL SUB6
CALL SUB7
CALL SUB8
CALL SUB9
-CALL SUB10
-CALL SUB11
-CALL SUB12
-CALL SUB13
-CALL SUB14
-CALL SUB15
-CALL SUB16
CONTAINS
@@ -9598,350 +4021,132 @@ SUBROUTINE SUB0
!Indices 1 a 10
!
!
-!PPROD(NO) = +K001*<NO2>+K003*<NO2>*<O>+K012*<NO3>*<NO2>+K013*<NO3>+0.9*K020*<H
-!ONO>+K095*<NO>*<RO2T>+KTC34*<WC_NO>+KTR34*<WR_NO>
- PPROD(:,1) = +TPK%K001(:)*PCONC(:,2)+TPK%K003(:)*PCONC(:,2)*TPK%O(:)+TPK%K012(&
-&:)*PCONC(:,8)*PCONC(:,2)+TPK%K013(:)*PCONC(:,8)+0.9*TPK%K020(:)*PCONC(:,4)+TPK&
-&%K095(:)*PCONC(:,1)*PCONC(:,85)+TPK%KTC34(:)*PCONC(:,90)+TPK%KTR34(:)*PCONC(:,&
-&127)
-!PLOSS(NO) = +K005*<O3>+K007*<NO3>+K008*<NO>+K008*<NO>+K019*<OH>+K026*<HO2>+K03
-!8*<O>+K095*<RO2T>+K110*<RO21>+K113*<RO22>+K116*<RO23>+K119*<RO24>+K122*<RO25>+
-!K125*<RO26>+K144*<RO27>+K147*<RO28>+K150*<RO29>+K153*<RO210>+K156*<RO211>+K159
-!*<RO212>+K162*<RO213>+K165*<RO239>+K168*<RO214>+K171*<RO215>+K174*<RO216>+K177
-!*<RO217>+K180*<RO218>+K183*<RO219>+K186*<RO220>+K189*<RO221>+K192*<RO222>+K195
-!*<RO223>+K198*<RO224>+K201*<RO225>+K204*<RO226>+K207*<RO227>+K210*<RO228>+K213
-!*<RO229>+K216*<RO240>+K221*<RO231>+K224*<RO232>+K227*<RO241>+K231*<RO233>+K234
-!*<RO242>+K238*<RO234>+K241*<RO243>+K245*<RO235>+K248*<RO244>+K252*<RO236>+K255
-!*<RO245>+K259*<RO237>+K262*<RO246>+K266*<RO238>+K269*<RO247>+K277*<RO248>+K285
-!*<RO249>+K288*<RO250>+K291*<RO251>+K294*<RO252>+K297*<RO253>+K300*<RO254>+K309
-!*<RO255>+K315*<RO256>+K331*<RO257>+K340*<RO258>+K344*<RO230>+KTC3+KTR3
- PLOSS(:,1) = +TPK%K005(:)*PCONC(:,3)+TPK%K007(:)*PCONC(:,8)+TPK%K008(:)*PCONC(&
-&:,1)+TPK%K008(:)*PCONC(:,1)+TPK%K019(:)*PCONC(:,15)+TPK%K026(:)*PCONC(:,10)+TP&
-&K%K038(:)*TPK%O(:)+TPK%K095(:)*PCONC(:,85)+TPK%K110(:)*PCONC(:,86)+TPK%K113(:)&
-&*TPK%RO22(:)+TPK%K116(:)*TPK%RO23(:)+TPK%K119(:)*TPK%RO24(:)+TPK%K122(:)*PCONC&
-&(:,87)+TPK%K125(:)*TPK%RO26(:)+TPK%K144(:)*TPK%RO27(:)+TPK%K147(:)*TPK%RO28(:)&
-&+TPK%K150(:)*TPK%RO29(:)+TPK%K153(:)*TPK%RO210(:)+TPK%K156(:)*TPK%RO211(:)+TPK&
-&%K159(:)*TPK%RO212(:)+TPK%K162(:)*TPK%RO213(:)+TPK%K165(:)*TPK%RO239(:)+TPK%K1&
-&68(:)*TPK%RO214(:)+TPK%K171(:)*TPK%RO215(:)+TPK%K174(:)*TPK%RO216(:)+TPK%K177(&
-&:)*TPK%RO217(:)+TPK%K180(:)*TPK%RO218(:)+TPK%K183(:)*TPK%RO219(:)+TPK%K186(:)*&
-&TPK%RO220(:)+TPK%K189(:)*TPK%RO221(:)+TPK%K192(:)*TPK%RO222(:)+TPK%K195(:)*TPK&
-&%RO223(:)+TPK%K198(:)*TPK%RO224(:)+TPK%K201(:)*TPK%RO225(:)+TPK%K204(:)*TPK%RO&
-&226(:)+TPK%K207(:)*TPK%RO227(:)+TPK%K210(:)*TPK%RO228(:)+TPK%K213(:)*TPK%RO229&
-&(:)+TPK%K216(:)*TPK%RO240(:)+TPK%K221(:)*TPK%RO231(:)+TPK%K224(:)*TPK%RO232(:)&
-&+TPK%K227(:)*TPK%RO241(:)+TPK%K231(:)*TPK%RO233(:)+TPK%K234(:)*TPK%RO242(:)+TP&
-&K%K238(:)*TPK%RO234(:)+TPK%K241(:)*TPK%RO243(:)+TPK%K245(:)*TPK%RO235(:)+TPK%K&
-&248(:)*TPK%RO244(:)+TPK%K252(:)*TPK%RO236(:)+TPK%K255(:)*TPK%RO245(:)+TPK%K259&
-&(:)*TPK%RO237(:)+TPK%K262(:)*TPK%RO246(:)+TPK%K266(:)*TPK%RO238(:)+TPK%K269(:)&
-&*TPK%RO247(:)+TPK%K277(:)*TPK%RO248(:)+TPK%K285(:)*TPK%RO249(:)+TPK%K288(:)*TP&
-&K%RO250(:)+TPK%K291(:)*TPK%RO251(:)+TPK%K294(:)*TPK%RO252(:)+TPK%K297(:)*TPK%R&
-&O253(:)+TPK%K300(:)*TPK%RO254(:)+TPK%K309(:)*TPK%RO255(:)+TPK%K315(:)*TPK%RO25&
-&6(:)+TPK%K331(:)*TPK%RO257(:)+TPK%K340(:)*TPK%RO258(:)+TPK%K344(:)*TPK%RO230(:&
-&)+TPK%KTC3(:)+TPK%KTR3(:)
-!
-!PPROD(NO2) = +K005*<O3>*<NO>+2.*K007*<NO3>*<NO>+2.*K008*<NO>*<NO>+K010*<N2O5>+
-!K012*<NO3>*<NO2>+K014*<NO3>+0.1*K020*<HONO>+K026*<HO2>*<NO>+K028*<HNO4>+K029*<
-!OH>*<HNO4>+0.8*K033*<HO2>*<NO3>+K038*<NO>*<O>+K039*<OH>*<HONO>+K040*<OH>*<NO3>
-!+2.*K041*<NO3>*<NO3>+K110*<NO>*<RO21>+K113*<NO>*<RO22>+2.*K116*<NO>*<RO23>+K11
-!7*<RO2T>*<RO23>+K118*<HO2>*<RO23>+K119*<NO>*<RO24>+TPK%CF4*K122*<NO>*<RO25>+K1
-!25*<NO>*<RO26>+K135*<PAN1>+K136*<PAN2>+K137*<PAN3>+K138*<PN10>+1.0000000*K139*
-!<APAN>+K140*<PAN6>+K141*<PAN4>+K144*<NO>*<RO27>+K147*<NO>*<RO28>+TPK%CF6*K150*
-!<NO>*<RO29>+K153*<NO>*<RO210>+2.*K156*<NO>*<RO211>+K157*<RO2T>*<RO211>+K158*<H
-!O2>*<RO211>+2.*K159*<NO>*<RO212>+K160*<RO2T>*<RO212>+K161*<HO2>*<RO212>+K162*<
-!NO>*<RO213>+K165*<NO>*<RO239>+TPK%CF8*K168*<NO>*<RO214>+K171*<NO>*<RO215>+K174
-!*<NO>*<RO216>+TPK%CF22*K177*<NO>*<RO217>+TPK%CF20*K180*<NO>*<RO218>+2.*K183*<N
-!O>*<RO219>+K184*<RO2T>*<RO219>+K185*<HO2>*<RO219>+TPK%CF18*K186*<NO>*<RO220>+T
-!PK%CF24*K189*<NO>*<RO221>+TPK%CF42*K192*<NO>*<RO222>+TPK%CF44*K195*<NO>*<RO223
-!>+TPK%CF26*K198*<NO>*<RO224>+2.*K201*<NO>*<RO225>+K202*<RO2T>*<RO225>+K203*<HO
-!2>*<RO225>+K204*<NO>*<RO226>+TPK%CF28*K207*<NO>*<RO227>+2.*K210*<NO>*<RO228>+K
-!211*<RO2T>*<RO228>+K212*<HO2>*<RO228>+TPK%CF30*K213*<NO>*<RO229>+K216*<NO>*<RO
-!240>+TPK%CF32*K221*<NO>*<RO231>+TPK%CF34*K224*<NO>*<RO232>+TPK%CF36*K227*<NO>*
-!<RO241>+K231*<NO>*<RO233>+K234*<NO>*<RO242>+K238*<NO>*<RO234>+K241*<NO>*<RO243
-!>+K245*<NO>*<RO235>+K248*<NO>*<RO244>+K252*<NO>*<RO236>+K255*<NO>*<RO245>+K259
-!*<NO>*<RO237>+K262*<NO>*<RO246>+K266*<NO>*<RO238>+K269*<NO>*<RO247>+K277*<NO>*
-!<RO248>+K285*<NO>*<RO249>+K288*<NO>*<RO250>+K291*<NO>*<RO251>+2.*K294*<NO>*<RO
-!252>+K295*<HO2>*<RO252>+K296*<RO2T>*<RO252>+K297*<NO>*<RO253>+K300*<NO>*<RO254
-!>+K309*<NO>*<RO255>+K315*<NO>*<RO256>+K317*<PAN8>+K331*<NO>*<RO257>+K340*<NO>*
-!<RO258>+K343*<PAN7>+K344*<NO>*<RO230>+KTC35*<WC_NO2>+KTR35*<WR_NO2>
- PPROD(:,2) = +TPK%K005(:)*PCONC(:,3)*PCONC(:,1)+2.*TPK%K007(:)*PCONC(:,8)*PCON&
-&C(:,1)+2.*TPK%K008(:)*PCONC(:,1)*PCONC(:,1)+TPK%K010(:)*PCONC(:,7)+TPK%K012(:)&
-&*PCONC(:,8)*PCONC(:,2)+TPK%K014(:)*PCONC(:,8)+0.1*TPK%K020(:)*PCONC(:,4)+TPK%K&
-&026(:)*PCONC(:,10)*PCONC(:,1)+TPK%K028(:)*PCONC(:,6)+TPK%K029(:)*PCONC(:,15)*P&
-&CONC(:,6)+0.8*TPK%K033(:)*PCONC(:,10)*PCONC(:,8)+TPK%K038(:)*PCONC(:,1)*TPK%O(&
-&:)+TPK%K039(:)*PCONC(:,15)*PCONC(:,4)+TPK%K040(:)*PCONC(:,15)*PCONC(:,8)+2.*TP&
-&K%K041(:)*PCONC(:,8)*PCONC(:,8)+TPK%K110(:)*PCONC(:,1)*PCONC(:,86)+TPK%K113(:)&
-&*PCONC(:,1)*TPK%RO22(:)+2.*TPK%K116(:)*PCONC(:,1)*TPK%RO23(:)+TPK%K117(:)*PCON&
-&C(:,85)*TPK%RO23(:)+TPK%K118(:)*PCONC(:,10)*TPK%RO23(:)+TPK%K119(:)*PCONC(:,1)&
-&*TPK%RO24(:)+TPK%CF4*TPK%K122(:)*PCONC(:,1)*PCONC(:,87)+TPK%K125(:)*PCONC(:,1)&
-&*TPK%RO26(:)+TPK%K135(:)*PCONC(:,77)+TPK%K136(:)*PCONC(:,78)+TPK%K137(:)*PCONC&
-&(:,79)+TPK%K138(:)*PCONC(:,84)+1.0000000*TPK%K139(:)*PCONC(:,76)+TPK%K140(:)*P&
-&CONC(:,81)+TPK%K141(:)*PCONC(:,80)+TPK%K144(:)*PCONC(:,1)*TPK%RO27(:)+TPK%K147&
-&(:)*PCONC(:,1)*TPK%RO28(:)+TPK%CF6*TPK%K150(:)*PCONC(:,1)*TPK%RO29(:)+TPK%K153&
-&(:)*PCONC(:,1)*TPK%RO210(:)+2.*TPK%K156(:)*PCONC(:,1)*TPK%RO211(:)+TPK%K157(:)&
-&*PCONC(:,85)*TPK%RO211(:)+TPK%K158(:)*PCONC(:,10)*TPK%RO211(:)+2.*TPK%K159(:)*&
-&PCONC(:,1)*TPK%RO212(:)+TPK%K160(:)*PCONC(:,85)*TPK%RO212(:)+TPK%K161(:)*PCONC&
-&(:,10)*TPK%RO212(:)+TPK%K162(:)*PCONC(:,1)*TPK%RO213(:)+TPK%K165(:)*PCONC(:,1)&
-&*TPK%RO239(:)+TPK%CF8*TPK%K168(:)*PCONC(:,1)*TPK%RO214(:)+TPK%K171(:)*PCONC(:,&
-&1)*TPK%RO215(:)+TPK%K174(:)*PCONC(:,1)*TPK%RO216(:)+TPK%CF22*TPK%K177(:)*PCONC&
-&(:,1)*TPK%RO217(:)+TPK%CF20*TPK%K180(:)*PCONC(:,1)*TPK%RO218(:)+2.*TPK%K183(:)&
-&*PCONC(:,1)*TPK%RO219(:)+TPK%K184(:)*PCONC(:,85)*TPK%RO219(:)+TPK%K185(:)*PCON&
-&C(:,10)*TPK%RO219(:)+TPK%CF18*TPK%K186(:)*PCONC(:,1)*TPK%RO220(:)+TPK%CF24*TPK&
-&%K189(:)*PCONC(:,1)*TPK%RO221(:)+TPK%CF42*TPK%K192(:)*PCONC(:,1)*TPK%RO222(:)+&
-&TPK%CF44*TPK%K195(:)*PCONC(:,1)*TPK%RO223(:)+TPK%CF26*TPK%K198(:)*PCONC(:,1)*T&
-&PK%RO224(:)+2.*TPK%K201(:)*PCONC(:,1)*TPK%RO225(:)+TPK%K202(:)*PCONC(:,85)*TPK&
-&%RO225(:)+TPK%K203(:)*PCONC(:,10)*TPK%RO225(:)+TPK%K204(:)*PCONC(:,1)*TPK%RO22&
-&6(:)+TPK%CF28*TPK%K207(:)*PCONC(:,1)*TPK%RO227(:)+2.*TPK%K210(:)*PCONC(:,1)*TP&
-&K%RO228(:)+TPK%K211(:)*PCONC(:,85)*TPK%RO228(:)+TPK%K212(:)*PCONC(:,10)*TPK%RO&
-&228(:)+TPK%CF30*TPK%K213(:)*PCONC(:,1)*TPK%RO229(:)+TPK%K216(:)*PCONC(:,1)*TPK&
-&%RO240(:)+TPK%CF32*TPK%K221(:)*PCONC(:,1)*TPK%RO231(:)+TPK%CF34*TPK%K224(:)*PC&
-&ONC(:,1)*TPK%RO232(:)+TPK%CF36*TPK%K227(:)*PCONC(:,1)*TPK%RO241(:)+TPK%K231(:)&
-&*PCONC(:,1)*TPK%RO233(:)+TPK%K234(:)*PCONC(:,1)*TPK%RO242(:)+TPK%K238(:)*PCONC&
-&(:,1)*TPK%RO234(:)+TPK%K241(:)*PCONC(:,1)*TPK%RO243(:)+TPK%K245(:)*PCONC(:,1)*&
-&TPK%RO235(:)+TPK%K248(:)*PCONC(:,1)*TPK%RO244(:)+TPK%K252(:)*PCONC(:,1)*TPK%RO&
-&236(:)+TPK%K255(:)*PCONC(:,1)*TPK%RO245(:)+TPK%K259(:)*PCONC(:,1)*TPK%RO237(:)&
-&+TPK%K262(:)*PCONC(:,1)*TPK%RO246(:)+TPK%K266(:)*PCONC(:,1)*TPK%RO238(:)+TPK%K&
-&269(:)*PCONC(:,1)*TPK%RO247(:)+TPK%K277(:)*PCONC(:,1)*TPK%RO248(:)+TPK%K285(:)&
-&*PCONC(:,1)*TPK%RO249(:)+TPK%K288(:)*PCONC(:,1)*TPK%RO250(:)+TPK%K291(:)*PCONC&
-&(:,1)*TPK%RO251(:)+2.*TPK%K294(:)*PCONC(:,1)*TPK%RO252(:)+TPK%K295(:)*PCONC(:,&
-&10)*TPK%RO252(:)+TPK%K296(:)*PCONC(:,85)*TPK%RO252(:)+TPK%K297(:)*PCONC(:,1)*T&
-&PK%RO253(:)+TPK%K300(:)*PCONC(:,1)*TPK%RO254(:)+TPK%K309(:)*PCONC(:,1)*TPK%RO2&
-&55(:)+TPK%K315(:)*PCONC(:,1)*TPK%RO256(:)+TPK%K317(:)*PCONC(:,83)+TPK%K331(:)*&
-&PCONC(:,1)*TPK%RO257(:)+TPK%K340(:)*PCONC(:,1)*TPK%RO258(:)+TPK%K343(:)*PCONC(&
-&:,82)+TPK%K344(:)*PCONC(:,1)*TPK%RO230(:)+TPK%KTC35(:)*PCONC(:,91)+TPK%KTR35(:&
-&)*PCONC(:,128)
-!PLOSS(NO2) = +K001+K003*<O>+K004*<O>+K006*<O3>+K009*<NO3>+K012*<NO3>+K021*<H2O
-!>+K022*<OH>+K027*<HO2>+K103*<RAD1>+K104*<RAD2>+K105*<RAD3>+K106*<RAD4>+K107*<R
-!AD5>+K108*<RAD6>+K109*<RAD7>+K126*<RO26>+K127*<RO28>+K128*<RO239>+K129*<RO248>
-!+K130*<RO250>+K131*<RO254>+K132*<RO255>+K133*<RO257>+K134*<RO258>+K316*<RO256>
-!+K321*<RAD8>+KTC4+KTR4
- PLOSS(:,2) = +TPK%K001(:)+TPK%K003(:)*TPK%O(:)+TPK%K004(:)*TPK%O(:)+TPK%K006(:&
-&)*PCONC(:,3)+TPK%K009(:)*PCONC(:,8)+TPK%K012(:)*PCONC(:,8)+TPK%K021(:)*TPK%H2O&
-&(:)+TPK%K022(:)*PCONC(:,15)+TPK%K027(:)*PCONC(:,10)+TPK%K103(:)*TPK%RAD1(:)+TP&
-&K%K104(:)*TPK%RAD2(:)+TPK%K105(:)*TPK%RAD3(:)+TPK%K106(:)*TPK%RAD4(:)+TPK%K107&
-&(:)*TPK%RAD5(:)+TPK%K108(:)*TPK%RAD6(:)+TPK%K109(:)*TPK%RAD7(:)+TPK%K126(:)*TP&
-&K%RO26(:)+TPK%K127(:)*TPK%RO28(:)+TPK%K128(:)*TPK%RO239(:)+TPK%K129(:)*TPK%RO2&
-&48(:)+TPK%K130(:)*TPK%RO250(:)+TPK%K131(:)*TPK%RO254(:)+TPK%K132(:)*TPK%RO255(&
-&:)+TPK%K133(:)*TPK%RO257(:)+TPK%K134(:)*TPK%RO258(:)+TPK%K316(:)*TPK%RO256(:)+&
-&TPK%K321(:)*TPK%RAD8(:)+TPK%KTC4(:)+TPK%KTR4(:)
-!
-!PPROD(O3) = +K002*<O2>*<O>+K081*<NO3>*<ARAL>+TPK%CF39*K082*<OH>*<ARAL>+K142*<H
-!O2>*<RO26>+K148*<HO2>*<RO28>+K166*<HO2>*<RO239>+K279*<HO2>*<RO248>+K289*<HO2>*
-!<RO250>+K301*<HO2>*<RO254>+K303*<OH>*<RPR5>+1.0000011*K306*<OH>*<RPRL>+K310*<H
-!O2>*<RO255>+K318*<HO2>*<RO256>+K322*<OH>*<RPR7>+1.0000005*K323*<OH>*<RPG7>+K32
-!6*<OH>*<RP11>+K332*<HO2>*<RO257>+1.0000000*K334*<OH>*<RPG3>+1.0000000*K335*<OH
-!>*<RPG2>+K337*<OH>*<RP18>+K341*<HO2>*<RO258>+KTC32*<WC_O3>+KTR32*<WR_O3>
- PPROD(:,3) = +TPK%K002(:)*TPK%O2(:)*TPK%O(:)+TPK%K081(:)*PCONC(:,8)*PCONC(:,25&
-&)+TPK%CF39*TPK%K082(:)*PCONC(:,15)*PCONC(:,25)+TPK%K142(:)*PCONC(:,10)*TPK%RO2&
-&6(:)+TPK%K148(:)*PCONC(:,10)*TPK%RO28(:)+TPK%K166(:)*PCONC(:,10)*TPK%RO239(:)+&
-&TPK%K279(:)*PCONC(:,10)*TPK%RO248(:)+TPK%K289(:)*PCONC(:,10)*TPK%RO250(:)+TPK%&
-&K301(:)*PCONC(:,10)*TPK%RO254(:)+TPK%K303(:)*PCONC(:,15)*PCONC(:,70)+1.0000011&
-&*TPK%K306(:)*PCONC(:,15)*PCONC(:,75)+TPK%K310(:)*PCONC(:,10)*TPK%RO255(:)+TPK%&
-&K318(:)*PCONC(:,10)*TPK%RO256(:)+TPK%K322(:)*PCONC(:,15)*PCONC(:,62)+1.0000005&
-&*TPK%K323(:)*PCONC(:,15)*PCONC(:,63)+TPK%K326(:)*PCONC(:,15)*PCONC(:,73)+TPK%K&
-&332(:)*PCONC(:,10)*TPK%RO257(:)+1.0000000*TPK%K334(:)*PCONC(:,15)*PCONC(:,52)+&
-&1.0000000*TPK%K335(:)*PCONC(:,15)*PCONC(:,50)+TPK%K337(:)*PCONC(:,15)*PCONC(:,&
-&51)+TPK%K341(:)*PCONC(:,10)*TPK%RO258(:)+TPK%KTC32(:)*PCONC(:,88)+TPK%KTR32(:)&
-&*PCONC(:,125)
-!PLOSS(O3) = +K005*<NO>+K006*<NO2>+K015+K016+K025*<OH>+K030*<HO2>+K034*<O>+K051
-!*<ETHE>+K056*<OLEL>+K066*<ISOP>+K076*<OLEH>+K086*<BIOL>+K090*<BIOH>+K281*<MVK>
-!+K282*<MCR>+KTC1+KTR1
- PLOSS(:,3) = +TPK%K005(:)*PCONC(:,1)+TPK%K006(:)*PCONC(:,2)+TPK%K015(:)+TPK%K0&
-&16(:)+TPK%K025(:)*PCONC(:,15)+TPK%K030(:)*PCONC(:,10)+TPK%K034(:)*TPK%O(:)+TPK&
-&%K051(:)*PCONC(:,16)+TPK%K056(:)*PCONC(:,17)+TPK%K066(:)*PCONC(:,35)+TPK%K076(&
-&:)*PCONC(:,18)+TPK%K086(:)*PCONC(:,36)+TPK%K090(:)*PCONC(:,37)+TPK%K281(:)*PCO&
-&NC(:,39)+TPK%K282(:)*PCONC(:,40)+TPK%KTC1(:)+TPK%KTR1(:)
-!
-!PPROD(HONO) = +K019*<OH>*<NO>+0.5*K021*<H2O>*<NO2>+KTC38*<WC_HONO>+KTR38*<WR_H
-!ONO>
- PPROD(:,4) = +TPK%K019(:)*PCONC(:,15)*PCONC(:,1)+0.5*TPK%K021(:)*TPK%H2O(:)*PC&
-&ONC(:,2)+TPK%KTC38(:)*PCONC(:,94)+TPK%KTR38(:)*PCONC(:,131)
-!PLOSS(HONO) = +K020+K039*<OH>+KTC7+KTR7
- PLOSS(:,4) = +TPK%K020(:)+TPK%K039(:)*PCONC(:,15)+TPK%KTC7(:)+TPK%KTR7(:)
-!
-!PPROD(HNO3) = +2.*K011*<H2O>*<N2O5>+0.5*K021*<H2O>*<NO2>+K022*<OH>*<NO2>+0.2*K
-!033*<HO2>*<NO3>+K047*<NO3>*<HCHO>+K061*<NO3>*<ALD2>+K072*<NO3>*<AROO>+K081*<NO
-!3>*<ARAL>+TPK%CF46*K275*<NO3>*<MCR>+K278*<NO3>*<MGLY>+K307*<NO3>*<RPR1>+K313*<
-!NO3>*<RPR3>+K320*<NO3>*<RPR4>+K327*<NO3>*<RPR8>+K338*<NO3>*<RP16>+KTC39*<WC_HN
-!O3>+KTR39*<WR_HNO3>
- PPROD(:,5) = +2.*TPK%K011(:)*TPK%H2O(:)*PCONC(:,7)+0.5*TPK%K021(:)*TPK%H2O(:)*&
-&PCONC(:,2)+TPK%K022(:)*PCONC(:,15)*PCONC(:,2)+0.2*TPK%K033(:)*PCONC(:,10)*PCON&
-&C(:,8)+TPK%K047(:)*PCONC(:,8)*PCONC(:,28)+TPK%K061(:)*PCONC(:,8)*PCONC(:,29)+T&
-&PK%K072(:)*PCONC(:,8)*PCONC(:,24)+TPK%K081(:)*PCONC(:,8)*PCONC(:,25)+TPK%CF46*&
-&TPK%K275(:)*PCONC(:,8)*PCONC(:,40)+TPK%K278(:)*PCONC(:,8)*PCONC(:,41)+TPK%K307&
-&(:)*PCONC(:,8)*PCONC(:,69)+TPK%K313(:)*PCONC(:,8)*PCONC(:,57)+TPK%K320(:)*PCON&
-&C(:,8)*PCONC(:,61)+TPK%K327(:)*PCONC(:,8)*PCONC(:,71)+TPK%K338(:)*PCONC(:,8)*P&
-&CONC(:,74)+TPK%KTC39(:)*PCONC(:,95)+TPK%KTR39(:)*PCONC(:,132)
-!PLOSS(HNO3) = +K023*<OH>+KTC8+KTR8
- PLOSS(:,5) = +TPK%K023(:)*PCONC(:,15)+TPK%KTC8(:)+TPK%KTR8(:)
-!
-!PPROD(HNO4) = +K027*<HO2>*<NO2>+KTC40*<WC_HNO4>+KTR40*<WR_HNO4>
- PPROD(:,6) = +TPK%K027(:)*PCONC(:,10)*PCONC(:,2)+TPK%KTC40(:)*PCONC(:,96)+TPK%&
-&KTR40(:)*PCONC(:,133)
-!PLOSS(HNO4) = +K028+K029*<OH>+KTC9+KTR9
- PLOSS(:,6) = +TPK%K028(:)+TPK%K029(:)*PCONC(:,15)+TPK%KTC9(:)+TPK%KTR9(:)
-!
-!PPROD(N2O5) = +K009*<NO3>*<NO2>+KTC37*<WC_N2O5>+KTR37*<WR_N2O5>
- PPROD(:,7) = +TPK%K009(:)*PCONC(:,8)*PCONC(:,2)+TPK%KTC37(:)*PCONC(:,93)+TPK%K&
-&TR37(:)*PCONC(:,130)
-!PLOSS(N2O5) = +K010+K011*<H2O>+KTC6+KTR6
- PLOSS(:,7) = +TPK%K010(:)+TPK%K011(:)*TPK%H2O(:)+TPK%KTC6(:)+TPK%KTR6(:)
-!
-!PPROD(NO3) = +K004*<NO2>*<O>+K006*<O3>*<NO2>+K010*<N2O5>+K023*<OH>*<HNO3>+KTC3
-!6*<WC_NO3>+KTR36*<WR_NO3>
- PPROD(:,8) = +TPK%K004(:)*PCONC(:,2)*TPK%O(:)+TPK%K006(:)*PCONC(:,3)*PCONC(:,2&
-&)+TPK%K010(:)*PCONC(:,7)+TPK%K023(:)*PCONC(:,15)*PCONC(:,5)+TPK%KTC36(:)*PCONC&
-&(:,92)+TPK%KTR36(:)*PCONC(:,129)
-!PLOSS(NO3) = +K007*<NO>+K009*<NO2>+K012*<NO2>+K013+K014+K033*<HO2>+K040*<OH>+K
-!041*<NO3>+K041*<NO3>+K047*<HCHO>+K050*<ETHE>+K055*<OLEL>+K061*<ALD2>+K065*<ISO
-!P>+K072*<AROO>+K075*<OLEH>+K081*<ARAL>+K085*<BIOL>+K089*<BIOH>+K275*<MCR>+K278
-!*<MGLY>+K307*<RPR1>+K313*<RPR3>+K320*<RPR4>+K327*<RPR8>+K338*<RP16>+KTC5+KTR5
- PLOSS(:,8) = +TPK%K007(:)*PCONC(:,1)+TPK%K009(:)*PCONC(:,2)+TPK%K012(:)*PCONC(&
-&:,2)+TPK%K013(:)+TPK%K014(:)+TPK%K033(:)*PCONC(:,10)+TPK%K040(:)*PCONC(:,15)+T&
-&PK%K041(:)*PCONC(:,8)+TPK%K041(:)*PCONC(:,8)+TPK%K047(:)*PCONC(:,28)+TPK%K050(&
-&:)*PCONC(:,16)+TPK%K055(:)*PCONC(:,17)+TPK%K061(:)*PCONC(:,29)+TPK%K065(:)*PCO&
-&NC(:,35)+TPK%K072(:)*PCONC(:,24)+TPK%K075(:)*PCONC(:,18)+TPK%K081(:)*PCONC(:,2&
-&5)+TPK%K085(:)*PCONC(:,36)+TPK%K089(:)*PCONC(:,37)+TPK%K275(:)*PCONC(:,40)+TPK&
-&%K278(:)*PCONC(:,41)+TPK%K307(:)*PCONC(:,69)+TPK%K313(:)*PCONC(:,57)+TPK%K320(&
-&:)*PCONC(:,61)+TPK%K327(:)*PCONC(:,71)+TPK%K338(:)*PCONC(:,74)+TPK%KTC5(:)+TPK&
-&%KTR5(:)
-!
-!PPROD(NH3) = +KTC41*<WC_NH3>+KTR41*<WR_NH3>
- PPROD(:,9) = +TPK%KTC41(:)*PCONC(:,97)+TPK%KTR41(:)*PCONC(:,134)
-!PLOSS(NH3) = +K345*<OH>+KTC10+KTR10
- PLOSS(:,9) = +TPK%K345(:)*PCONC(:,15)+TPK%KTC10(:)+TPK%KTR10(:)
-!
-!PPROD(HO2) = +0.1*K020*<HONO>+K024*<OH>*<CO>+K025*<OH>*<O3>+K028*<HNO4>+K035*<
-!OH>*<SO2>+K037*<OH>*<H2O2>+K040*<OH>*<NO3>+2.0*K044*<HCHO>+K046*<OH>*<HCHO>+K0
-!47*<NO3>*<HCHO>+K048*<OH>*<MEOH>+0.06*K051*<O3>*<ETHE>+K052*<O>*<ETHE>+TPK%CF1
-!*K053*<OH>*<ETOH>+0.28*K056*<O3>*<OLEL>+K059*<ALD2>+0.366*K066*<O3>*<ISOP>+0.1
-!6*K073*<OH>*<AROO>+0.28*K076*<O3>*<OLEH>+0.16*K079*<OH>*<AROL>+0.16*K080*<OH>*
-!<AROH>+TPK%CF48*K082*<OH>*<ARAL>+0.16*K083*<OH>*<ARAC>+0.445*K086*<O3>*<BIOL>+
-!0.16*K092*<OH>*<PAH>+K094*<HO2>*<RO2T>+K110*<NO>*<RO21>+K111*<RO2T>*<RO21>+K11
-!2*<HO2>*<RO21>+K113*<NO>*<RO22>+K114*<RO2T>*<RO22>+K115*<HO2>*<RO22>+K117*<RO2
-!T>*<RO23>+K118*<HO2>*<RO23>+K119*<NO>*<RO24>+K120*<RO2T>*<RO24>+K121*<HO2>*<RO
-!24>+TPK%CF4*K122*<NO>*<RO25>+K123*<RO2T>*<RO25>+K124*<HO2>*<RO25>+TPK%CF6*K150
-!*<NO>*<RO29>+K151*<RO2T>*<RO29>+K152*<HO2>*<RO29>+K153*<NO>*<RO210>+K154*<RO2T
-!>*<RO210>+K155*<HO2>*<RO210>+K171*<NO>*<RO215>+K172*<RO2T>*<RO215>+K173*<HO2>*
-!<RO215>+TPK%CF22*K177*<NO>*<RO217>+K178*<RO2T>*<RO217>+K179*<HO2>*<RO217>+TPK%
-!CF20*K180*<NO>*<RO218>+K181*<RO2T>*<RO218>+K182*<HO2>*<RO218>+TPK%CF24*K189*<N
-!O>*<RO221>+K190*<RO2T>*<RO221>+K191*<HO2>*<RO221>+TPK%CF42*K192*<NO>*<RO222>+K
-!193*<RO2T>*<RO222>+K194*<HO2>*<RO222>+TPK%CF44*K195*<NO>*<RO223>+K196*<RO2T>*<
-!RO223>+K197*<HO2>*<RO223>+TPK%CF26*K198*<NO>*<RO224>+K199*<RO2T>*<RO224>+K200*
-!<HO2>*<RO224>+TPK%CF28*K207*<NO>*<RO227>+K208*<RO2T>*<RO227>+K209*<HO2>*<RO227
-!>+TPK%CF32*K221*<NO>*<RO231>+K222*<RO2T>*<RO231>+K223*<HO2>*<RO231>+TPK%CF36*K
-!227*<NO>*<RO241>+K228*<RO2T>*<RO241>+K229*<HO2>*<RO241>+K231*<NO>*<RO233>+K232
-!*<RO2T>*<RO233>+K233*<HO2>*<RO233>+K234*<NO>*<RO242>+K235*<RO2T>*<RO242>+K236*
-!<HO2>*<RO242>+K238*<NO>*<RO234>+K239*<RO2T>*<RO234>+K240*<HO2>*<RO234>+K241*<N
-!O>*<RO243>+K242*<RO2T>*<RO243>+K243*<HO2>*<RO243>+K245*<NO>*<RO235>+K246*<RO2T
-!>*<RO235>+K247*<HO2>*<RO235>+K248*<NO>*<RO244>+K249*<RO2T>*<RO244>+K250*<HO2>*
-!<RO244>+K252*<NO>*<RO236>+K253*<RO2T>*<RO236>+K254*<HO2>*<RO236>+K255*<NO>*<RO
-!245>+K256*<RO2T>*<RO245>+K257*<HO2>*<RO245>+K259*<NO>*<RO237>+K260*<RO2T>*<RO2
-!37>+K261*<HO2>*<RO237>+K262*<NO>*<RO246>+K263*<RO2T>*<RO246>+K264*<HO2>*<RO246
-!>+K266*<NO>*<RO238>+K267*<RO2T>*<RO238>+K268*<HO2>*<RO238>+K269*<NO>*<RO247>+K
-!270*<RO2T>*<RO247>+K271*<HO2>*<RO247>+K276*<MGLY>+0.28*K281*<O3>*<MVK>+0.41*K2
-!82*<O3>*<MCR>+0.15*K284*<O>*<MCR>+K285*<NO>*<RO249>+K286*<RO2T>*<RO249>+K287*<
-!HO2>*<RO249>+K291*<NO>*<RO251>+K292*<HO2>*<RO251>+K293*<RO2T>*<RO251>+K300*<NO
-!>*<RO254>+K302*<RO2T>*<RO254>+K308*<RPR1>+2.*K314*<RPR3>+K315*<NO>*<RO256>+K31
-!9*<RO2T>*<RO256>+K325*<OH>*<RP10>+K329*<RPR8>+K330*<RPR8>+K339*<RP16>+K347*<OH
-!>*<ORA1>+KTC43*<WC_HO2>+KTR43*<WR_HO2>
- PPROD(:,10) = +0.1*TPK%K020(:)*PCONC(:,4)+TPK%K024(:)*PCONC(:,15)*PCONC(:,11)+&
-&TPK%K025(:)*PCONC(:,15)*PCONC(:,3)+TPK%K028(:)*PCONC(:,6)+TPK%K035(:)*PCONC(:,&
-&15)*PCONC(:,13)+TPK%K037(:)*PCONC(:,15)*PCONC(:,12)+TPK%K040(:)*PCONC(:,15)*PC&
-&ONC(:,8)+2.0*TPK%K044(:)*PCONC(:,28)+TPK%K046(:)*PCONC(:,15)*PCONC(:,28)+TPK%K&
-&047(:)*PCONC(:,8)*PCONC(:,28)+TPK%K048(:)*PCONC(:,15)*PCONC(:,32)+0.06*TPK%K05&
-&1(:)*PCONC(:,3)*PCONC(:,16)+TPK%K052(:)*TPK%O(:)*PCONC(:,16)+TPK%CF1*TPK%K053(&
-&:)*PCONC(:,15)*PCONC(:,33)+0.28*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)+TPK%K059(:)&
-&*PCONC(:,29)+0.366*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)+0.16*TPK%K073(:)*PCONC(:&
-&,15)*PCONC(:,24)+0.28*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)+0.16*TPK%K079(:)*PCON&
-&C(:,15)*PCONC(:,23)+0.16*TPK%K080(:)*PCONC(:,15)*PCONC(:,22)+TPK%CF48*TPK%K082&
-&(:)*PCONC(:,15)*PCONC(:,25)+0.16*TPK%K083(:)*PCONC(:,15)*PCONC(:,26)+0.445*TPK&
-&%K086(:)*PCONC(:,3)*PCONC(:,36)+0.16*TPK%K092(:)*PCONC(:,15)*PCONC(:,27)+TPK%K&
-&094(:)*PCONC(:,10)*PCONC(:,85)+TPK%K110(:)*PCONC(:,1)*PCONC(:,86)+TPK%K111(:)*&
-&PCONC(:,85)*PCONC(:,86)+TPK%K112(:)*PCONC(:,10)*PCONC(:,86)+TPK%K113(:)*PCONC(&
-&:,1)*TPK%RO22(:)+TPK%K114(:)*PCONC(:,85)*TPK%RO22(:)+TPK%K115(:)*PCONC(:,10)*T&
-&PK%RO22(:)+TPK%K117(:)*PCONC(:,85)*TPK%RO23(:)+TPK%K118(:)*PCONC(:,10)*TPK%RO2&
-&3(:)+TPK%K119(:)*PCONC(:,1)*TPK%RO24(:)+TPK%K120(:)*PCONC(:,85)*TPK%RO24(:)+TP&
-&K%K121(:)*PCONC(:,10)*TPK%RO24(:)+TPK%CF4*TPK%K122(:)*PCONC(:,1)*PCONC(:,87)+T&
-&PK%K123(:)*PCONC(:,85)*PCONC(:,87)+TPK%K124(:)*PCONC(:,10)*PCONC(:,87)+TPK%CF6&
-&*TPK%K150(:)*PCONC(:,1)*TPK%RO29(:)+TPK%K151(:)*PCONC(:,85)*TPK%RO29(:)+TPK%K1&
-&52(:)*PCONC(:,10)*TPK%RO29(:)+TPK%K153(:)*PCONC(:,1)*TPK%RO210(:)+TPK%K154(:)*&
-&PCONC(:,85)*TPK%RO210(:)+TPK%K155(:)*PCONC(:,10)*TPK%RO210(:)+TPK%K171(:)*PCON&
-&C(:,1)*TPK%RO215(:)+TPK%K172(:)*PCONC(:,85)*TPK%RO215(:)+TPK%K173(:)*PCONC(:,1&
-&0)*TPK%RO215(:)+TPK%CF22*TPK%K177(:)*PCONC(:,1)*TPK%RO217(:)+TPK%K178(:)*PCONC&
-&(:,85)*TPK%RO217(:)+TPK%K179(:)*PCONC(:,10)*TPK%RO217(:)+TPK%CF20*TPK%K180(:)*&
-&PCONC(:,1)*TPK%RO218(:)+TPK%K181(:)*PCONC(:,85)*TPK%RO218(:)+TPK%K182(:)*PCONC&
-&(:,10)*TPK%RO218(:)+TPK%CF24*TPK%K189(:)*PCONC(:,1)*TPK%RO221(:)+TPK%K190(:)*P&
-&CONC(:,85)*TPK%RO221(:)+TPK%K191(:)*PCONC(:,10)*TPK%RO221(:)+TPK%CF42*TPK%K192&
-&(:)*PCONC(:,1)*TPK%RO222(:)+TPK%K193(:)*PCONC(:,85)*TPK%RO222(:)+TPK%K194(:)*P&
-&CONC(:,10)*TPK%RO222(:)+TPK%CF44*TPK%K195(:)*PCONC(:,1)*TPK%RO223(:)+TPK%K196(&
-&:)*PCONC(:,85)*TPK%RO223(:)+TPK%K197(:)*PCONC(:,10)*TPK%RO223(:)+TPK%CF26*TPK%&
-&K198(:)*PCONC(:,1)*TPK%RO224(:)+TPK%K199(:)*PCONC(:,85)*TPK%RO224(:)+TPK%K200(&
-&:)*PCONC(:,10)*TPK%RO224(:)+TPK%CF28*TPK%K207(:)*PCONC(:,1)*TPK%RO227(:)+TPK%K&
-&208(:)*PCONC(:,85)*TPK%RO227(:)+TPK%K209(:)*PCONC(:,10)*TPK%RO227(:)+TPK%CF32*&
-&TPK%K221(:)*PCONC(:,1)*TPK%RO231(:)+TPK%K222(:)*PCONC(:,85)*TPK%RO231(:)+TPK%K&
-&223(:)*PCONC(:,10)*TPK%RO231(:)+TPK%CF36*TPK%K227(:)*PCONC(:,1)*TPK%RO241(:)+T&
-&PK%K228(:)*PCONC(:,85)*TPK%RO241(:)+TPK%K229(:)*PCONC(:,10)*TPK%RO241(:)+TPK%K&
-&231(:)*PCONC(:,1)*TPK%RO233(:)+TPK%K232(:)*PCONC(:,85)*TPK%RO233(:)+TPK%K233(:&
-&)*PCONC(:,10)*TPK%RO233(:)+TPK%K234(:)*PCONC(:,1)*TPK%RO242(:)+TPK%K235(:)*PCO&
-&NC(:,85)*TPK%RO242(:)+TPK%K236(:)*PCONC(:,10)*TPK%RO242(:)+TPK%K238(:)*PCONC(:&
-&,1)*TPK%RO234(:)+TPK%K239(:)*PCONC(:,85)*TPK%RO234(:)+TPK%K240(:)*PCONC(:,10)*&
-&TPK%RO234(:)+TPK%K241(:)*PCONC(:,1)*TPK%RO243(:)+TPK%K242(:)*PCONC(:,85)*TPK%R&
-&O243(:)+TPK%K243(:)*PCONC(:,10)*TPK%RO243(:)+TPK%K245(:)*PCONC(:,1)*TPK%RO235(&
-&:)+TPK%K246(:)*PCONC(:,85)*TPK%RO235(:)+TPK%K247(:)*PCONC(:,10)*TPK%RO235(:)+T&
-&PK%K248(:)*PCONC(:,1)*TPK%RO244(:)+TPK%K249(:)*PCONC(:,85)*TPK%RO244(:)+TPK%K2&
-&50(:)*PCONC(:,10)*TPK%RO244(:)+TPK%K252(:)*PCONC(:,1)*TPK%RO236(:)+TPK%K253(:)&
-&*PCONC(:,85)*TPK%RO236(:)+TPK%K254(:)*PCONC(:,10)*TPK%RO236(:)+TPK%K255(:)*PCO&
-&NC(:,1)*TPK%RO245(:)+TPK%K256(:)*PCONC(:,85)*TPK%RO245(:)+TPK%K257(:)*PCONC(:,&
-&10)*TPK%RO245(:)+TPK%K259(:)*PCONC(:,1)*TPK%RO237(:)+TPK%K260(:)*PCONC(:,85)*T&
-&PK%RO237(:)+TPK%K261(:)*PCONC(:,10)*TPK%RO237(:)+TPK%K262(:)*PCONC(:,1)*TPK%RO&
-&246(:)+TPK%K263(:)*PCONC(:,85)*TPK%RO246(:)+TPK%K264(:)*PCONC(:,10)*TPK%RO246(&
-&:)+TPK%K266(:)*PCONC(:,1)*TPK%RO238(:)+TPK%K267(:)*PCONC(:,85)*TPK%RO238(:)+TP&
-&K%K268(:)*PCONC(:,10)*TPK%RO238(:)+TPK%K269(:)*PCONC(:,1)*TPK%RO247(:)+TPK%K27&
-&0(:)*PCONC(:,85)*TPK%RO247(:)+TPK%K271(:)*PCONC(:,10)*TPK%RO247(:)+TPK%K276(:)&
-&*PCONC(:,41)+0.28*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)+0.41*TPK%K282(:)*PCONC(:,&
-&3)*PCONC(:,40)+0.15*TPK%K284(:)*TPK%O(:)*PCONC(:,40)+TPK%K285(:)*PCONC(:,1)*TP&
-&K%RO249(:)+TPK%K286(:)*PCONC(:,85)*TPK%RO249(:)+TPK%K287(:)*PCONC(:,10)*TPK%RO&
-&249(:)+TPK%K291(:)*PCONC(:,1)*TPK%RO251(:)+TPK%K292(:)*PCONC(:,10)*TPK%RO251(:&
-&)+TPK%K293(:)*PCONC(:,85)*TPK%RO251(:)+TPK%K300(:)*PCONC(:,1)*TPK%RO254(:)+TPK&
-&%K302(:)*PCONC(:,85)*TPK%RO254(:)+TPK%K308(:)*PCONC(:,69)+2.*TPK%K314(:)*PCONC&
-&(:,57)+TPK%K315(:)*PCONC(:,1)*TPK%RO256(:)+TPK%K319(:)*PCONC(:,85)*TPK%RO256(:&
-&)+TPK%K325(:)*PCONC(:,15)*PCONC(:,72)+TPK%K329(:)*PCONC(:,71)+TPK%K330(:)*PCON&
-&C(:,71)+TPK%K339(:)*PCONC(:,74)+TPK%K347(:)*PCONC(:,15)*PCONC(:,43)+TPK%KTC43(&
-&:)*PCONC(:,99)+TPK%KTR43(:)*PCONC(:,136)
-!PLOSS(HO2) = +K026*<NO>+K027*<NO2>+K030*<O3>+K031*<HO2>+K031*<HO2>+K032*<H2O>*
-!<HO2>+K032*<H2O>*<HO2>+K033*<NO3>+K042*<OH>+K094*<RO2T>+K112*<RO21>+K115*<RO22
-!>+K118*<RO23>+K121*<RO24>+K124*<RO25>+K142*<RO26>+K146*<RO27>+K148*<RO28>+K152
-!*<RO29>+K155*<RO210>+K158*<RO211>+K161*<RO212>+K164*<RO213>+K166*<RO239>+K170*
-!<RO214>+K173*<RO215>+K176*<RO216>+K179*<RO217>+K182*<RO218>+K185*<RO219>+K188*
-!<RO220>+K191*<RO221>+K194*<RO222>+K197*<RO223>+K200*<RO224>+K203*<RO225>+K206*
-!<RO226>+K209*<RO227>+K212*<RO228>+K215*<RO229>+K218*<RO240>+K220*<RO230>+K223*
-!<RO231>+K226*<RO232>+K229*<RO241>+K233*<RO233>+K236*<RO242>+K240*<RO234>+K243*
-!<RO243>+K247*<RO235>+K250*<RO244>+K254*<RO236>+K257*<RO245>+K261*<RO237>+K264*
-!<RO246>+K268*<RO238>+K271*<RO247>+K279*<RO248>+K287*<RO249>+K289*<RO250>+K292*
-!<RO251>+K295*<RO252>+K298*<RO253>+K301*<RO254>+K310*<RO255>+K318*<RO256>+K332*
-!<RO257>+K341*<RO258>+KTC12+KTR12
- PLOSS(:,10) = +TPK%K026(:)*PCONC(:,1)+TPK%K027(:)*PCONC(:,2)+TPK%K030(:)*PCONC&
-&(:,3)+TPK%K031(:)*PCONC(:,10)+TPK%K031(:)*PCONC(:,10)+TPK%K032(:)*TPK%H2O(:)*P&
-&CONC(:,10)+TPK%K032(:)*TPK%H2O(:)*PCONC(:,10)+TPK%K033(:)*PCONC(:,8)+TPK%K042(&
-&:)*PCONC(:,15)+TPK%K094(:)*PCONC(:,85)+TPK%K112(:)*PCONC(:,86)+TPK%K115(:)*TPK&
-&%RO22(:)+TPK%K118(:)*TPK%RO23(:)+TPK%K121(:)*TPK%RO24(:)+TPK%K124(:)*PCONC(:,8&
-&7)+TPK%K142(:)*TPK%RO26(:)+TPK%K146(:)*TPK%RO27(:)+TPK%K148(:)*TPK%RO28(:)+TPK&
-&%K152(:)*TPK%RO29(:)+TPK%K155(:)*TPK%RO210(:)+TPK%K158(:)*TPK%RO211(:)+TPK%K16&
-&1(:)*TPK%RO212(:)+TPK%K164(:)*TPK%RO213(:)+TPK%K166(:)*TPK%RO239(:)+TPK%K170(:&
-&)*TPK%RO214(:)+TPK%K173(:)*TPK%RO215(:)+TPK%K176(:)*TPK%RO216(:)+TPK%K179(:)*T&
-&PK%RO217(:)+TPK%K182(:)*TPK%RO218(:)+TPK%K185(:)*TPK%RO219(:)+TPK%K188(:)*TPK%&
-&RO220(:)+TPK%K191(:)*TPK%RO221(:)+TPK%K194(:)*TPK%RO222(:)+TPK%K197(:)*TPK%RO2&
-&23(:)+TPK%K200(:)*TPK%RO224(:)+TPK%K203(:)*TPK%RO225(:)+TPK%K206(:)*TPK%RO226(&
-&:)+TPK%K209(:)*TPK%RO227(:)+TPK%K212(:)*TPK%RO228(:)+TPK%K215(:)*TPK%RO229(:)+&
-&TPK%K218(:)*TPK%RO240(:)+TPK%K220(:)*TPK%RO230(:)+TPK%K223(:)*TPK%RO231(:)+TPK&
-&%K226(:)*TPK%RO232(:)+TPK%K229(:)*TPK%RO241(:)+TPK%K233(:)*TPK%RO233(:)+TPK%K2&
-&36(:)*TPK%RO242(:)+TPK%K240(:)*TPK%RO234(:)+TPK%K243(:)*TPK%RO243(:)+TPK%K247(&
-&:)*TPK%RO235(:)+TPK%K250(:)*TPK%RO244(:)+TPK%K254(:)*TPK%RO236(:)+TPK%K257(:)*&
-&TPK%RO245(:)+TPK%K261(:)*TPK%RO237(:)+TPK%K264(:)*TPK%RO246(:)+TPK%K268(:)*TPK&
-&%RO238(:)+TPK%K271(:)*TPK%RO247(:)+TPK%K279(:)*TPK%RO248(:)+TPK%K287(:)*TPK%RO&
-&249(:)+TPK%K289(:)*TPK%RO250(:)+TPK%K292(:)*TPK%RO251(:)+TPK%K295(:)*TPK%RO252&
-&(:)+TPK%K298(:)*TPK%RO253(:)+TPK%K301(:)*TPK%RO254(:)+TPK%K310(:)*TPK%RO255(:)&
-&+TPK%K318(:)*TPK%RO256(:)+TPK%K332(:)*TPK%RO257(:)+TPK%K341(:)*TPK%RO258(:)+TP&
-&K%KTC12(:)+TPK%KTR12(:)
+!PPROD(O3) = +K018*<O3P>*<O2>+0.17307*K0102*<CARBOP>*<HO2>+KTC21*<WC_O3>+KTR21*
+!<WR_O3>
+ PPROD(:,1) = +TPK%K018(:)*TPK%O3P(:)*TPK%O2(:)+0.17307*TPK%K0102(:)*PCONC(:,39&
+&)*PCONC(:,15)+TPK%KTC21(:)*PCONC(:,42)+TPK%KTR21(:)*PCONC(:,67)
+!PLOSS(O3) = +K002+K003+K019*<O3P>+K023*<OH>+K024*<HO2>+K042*<NO>+K043*<NO2>+K0
+!79*<ALKE>+K080*<BIO>+K081*<CARBO>+K082*<PAN>+K087*<ADD>+KTC1+KTR1
+ PLOSS(:,1) = +TPK%K002(:)+TPK%K003(:)+TPK%K019(:)*TPK%O3P(:)+TPK%K023(:)*PCONC&
+&(:,14)+TPK%K024(:)*PCONC(:,15)+TPK%K042(:)*PCONC(:,3)+TPK%K043(:)*PCONC(:,4)+T&
+&PK%K079(:)*PCONC(:,19)+TPK%K080(:)*PCONC(:,20)+TPK%K081(:)*PCONC(:,25)+TPK%K08&
+&2(:)*PCONC(:,27)+TPK%K087(:)*PCONC(:,37)+TPK%KTC1(:)+TPK%KTR1(:)
+!
+!PPROD(H2O2) = +K027*<HO2>*<HO2>+K028*<HO2>*<HO2>*<H2O>+0.01833*K079*<ALKE>*<O3
+!>+0.00100*K080*<BIO>*<O3>+KTC22*<WC_H2O2>+KTR22*<WR_H2O2>
+ PPROD(:,2) = +TPK%K027(:)*PCONC(:,15)*PCONC(:,15)+TPK%K028(:)*PCONC(:,15)*PCON&
+&C(:,15)*TPK%H2O(:)+0.01833*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)+0.00100*TPK%K080&
+&(:)*PCONC(:,20)*PCONC(:,1)+TPK%KTC22(:)*PCONC(:,43)+TPK%KTR22(:)*PCONC(:,68)
+!PLOSS(H2O2) = +K009+K026*<OH>+KTC2+KTR2
+ PLOSS(:,2) = +TPK%K009(:)+TPK%K026(:)*PCONC(:,14)+TPK%KTC2(:)+TPK%KTR2(:)
+!
+!PPROD(NO) = +K001*<NO2>+K004*<HONO>+K007*<NO3>+K030*<O3P>*<NO2>+K046*<NO3>*<NO
+!2>+KTC23*<WC_NO>+KTR23*<WR_NO>
+ PPROD(:,3) = +TPK%K001(:)*PCONC(:,4)+TPK%K004(:)*PCONC(:,7)+TPK%K007(:)*PCONC(&
+&:,5)+TPK%K030(:)*TPK%O3P(:)*PCONC(:,4)+TPK%K046(:)*PCONC(:,5)*PCONC(:,4)+TPK%K&
+&TC23(:)*PCONC(:,44)+TPK%KTR23(:)*PCONC(:,69)
+!PLOSS(NO) = +K029*<O3P>+K032*<OH>+K035*<HO2>+K042*<O3>+K044*<NO>*<O2>+K044*<NO
+!>*<O2>+K045*<NO3>+K090*<MO2>+K091*<ALKAP>+K092*<ALKEP>+K093*<BIOP>+K094*<AROP>
+!+K095*<CARBOP>+K096*<OLN>+K130*<XO2>+KTC3+KTR3
+ PLOSS(:,3) = +TPK%K029(:)*TPK%O3P(:)+TPK%K032(:)*PCONC(:,14)+TPK%K035(:)*PCONC&
+&(:,15)+TPK%K042(:)*PCONC(:,1)+TPK%K044(:)*PCONC(:,3)*TPK%O2(:)+TPK%K044(:)*PCO&
+&NC(:,3)*TPK%O2(:)+TPK%K045(:)*PCONC(:,5)+TPK%K090(:)*PCONC(:,32)+TPK%K091(:)*P&
+&CONC(:,33)+TPK%K092(:)*PCONC(:,34)+TPK%K093(:)*PCONC(:,35)+TPK%K094(:)*PCONC(:&
+&,38)+TPK%K095(:)*PCONC(:,39)+TPK%K096(:)*PCONC(:,40)+TPK%K130(:)*PCONC(:,41)+T&
+&PK%KTC3(:)+TPK%KTR3(:)
+!
+!PPROD(NO2) = +K005*<HNO3>+0.65*K006*<HNO4>+K008*<NO3>+K017*<ONIT>+K029*<O3P>*<
+!NO>+K034*<OH>*<NO3>+K035*<HO2>*<NO>+K037*<HNO4>+0.7*K038*<HO2>*<NO3>+K039*<OH>
+!*<HONO>+K041*<OH>*<HNO4>+K042*<O3>*<NO>+K044*<NO>*<NO>*<O2>+K044*<NO>*<NO>*<O2
+!>+K045*<NO3>*<NO>+K045*<NO3>*<NO>+K046*<NO3>*<NO2>+K048*<N2O5>+K049*<NO3>*<NO3
+!>+K049*<NO3>*<NO3>+K071*<ONIT>*<OH>+0.10530*K074*<CARBO>*<NO3>+0.40*K078*<PAN>
+!*<NO3>+0.70*K082*<PAN>*<O3>+K089*<PAN>+K090*<MO2>*<NO>+0.91541*K091*<ALKAP>*<N
+!O>+K092*<ALKEP>*<NO>+0.84700*K093*<BIOP>*<NO>+0.95115*K094*<AROP>*<NO>+K095*<C
+!ARBOP>*<NO>+1.81599*K096*<OLN>*<NO>+0.32440*K110*<OLN>*<MO2>+0.00000*K116*<OLN
+!>*<CARBOP>+0.00000*K118*<OLN>*<OLN>+K119*<MO2>*<NO3>+K120*<ALKAP>*<NO3>+K121*<
+!ALKEP>*<NO3>+K122*<BIOP>*<NO3>+K123*<AROP>*<NO3>+K124*<CARBOP>*<NO3>+1.74072*K
+!125*<OLN>*<NO3>+K130*<XO2>*<NO>+K131*<XO2>*<NO3>+KTC24*<WC_NO2>+KTR24*<WR_NO2>
+ PPROD(:,4) = +TPK%K005(:)*PCONC(:,8)+0.65*TPK%K006(:)*PCONC(:,9)+TPK%K008(:)*P&
+&CONC(:,5)+TPK%K017(:)*PCONC(:,26)+TPK%K029(:)*TPK%O3P(:)*PCONC(:,3)+TPK%K034(:&
+&)*PCONC(:,14)*PCONC(:,5)+TPK%K035(:)*PCONC(:,15)*PCONC(:,3)+TPK%K037(:)*PCONC(&
+&:,9)+0.7*TPK%K038(:)*PCONC(:,15)*PCONC(:,5)+TPK%K039(:)*PCONC(:,14)*PCONC(:,7)&
+&+TPK%K041(:)*PCONC(:,14)*PCONC(:,9)+TPK%K042(:)*PCONC(:,1)*PCONC(:,3)+TPK%K044&
+&(:)*PCONC(:,3)*PCONC(:,3)*TPK%O2(:)+TPK%K044(:)*PCONC(:,3)*PCONC(:,3)*TPK%O2(:&
+&)+TPK%K045(:)*PCONC(:,5)*PCONC(:,3)+TPK%K045(:)*PCONC(:,5)*PCONC(:,3)+TPK%K046&
+&(:)*PCONC(:,5)*PCONC(:,4)+TPK%K048(:)*PCONC(:,6)+TPK%K049(:)*PCONC(:,5)*PCONC(&
+&:,5)+TPK%K049(:)*PCONC(:,5)*PCONC(:,5)+TPK%K071(:)*PCONC(:,26)*PCONC(:,14)+0.1&
+&0530*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)+0.40*TPK%K078(:)*PCONC(:,27)*PCONC(:,5&
+&)+0.70*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)+TPK%K089(:)*PCONC(:,27)+TPK%K090(:)*&
+&PCONC(:,32)*PCONC(:,3)+0.91541*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)+TPK%K092(:)*&
+&PCONC(:,34)*PCONC(:,3)+0.84700*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)+0.95115*TPK%&
+&K094(:)*PCONC(:,38)*PCONC(:,3)+TPK%K095(:)*PCONC(:,39)*PCONC(:,3)+1.81599*TPK%&
+&K096(:)*PCONC(:,40)*PCONC(:,3)+0.32440*TPK%K110(:)*PCONC(:,40)*PCONC(:,32)+0.0&
+&0000*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)+0.00000*TPK%K118(:)*PCONC(:,40)*PCONC&
+&(:,40)+TPK%K119(:)*PCONC(:,32)*PCONC(:,5)+TPK%K120(:)*PCONC(:,33)*PCONC(:,5)+T&
+&PK%K121(:)*PCONC(:,34)*PCONC(:,5)+TPK%K122(:)*PCONC(:,35)*PCONC(:,5)+TPK%K123(&
+&:)*PCONC(:,38)*PCONC(:,5)+TPK%K124(:)*PCONC(:,39)*PCONC(:,5)+1.74072*TPK%K125(&
+&:)*PCONC(:,40)*PCONC(:,5)+TPK%K130(:)*PCONC(:,41)*PCONC(:,3)+TPK%K131(:)*PCONC&
+&(:,41)*PCONC(:,5)+TPK%KTC24(:)*PCONC(:,45)+TPK%KTR24(:)*PCONC(:,70)
+!PLOSS(NO2) = +K001+K030*<O3P>+K031*<O3P>+K033*<OH>+K036*<HO2>+K043*<O3>+K046*<
+!NO3>+K047*<NO3>+K083*<PHO>+K085*<ADD>+K088*<CARBOP>+KTC4+KTR4
+ PLOSS(:,4) = +TPK%K001(:)+TPK%K030(:)*TPK%O3P(:)+TPK%K031(:)*TPK%O3P(:)+TPK%K0&
+&33(:)*PCONC(:,14)+TPK%K036(:)*PCONC(:,15)+TPK%K043(:)*PCONC(:,1)+TPK%K046(:)*P&
+&CONC(:,5)+TPK%K047(:)*PCONC(:,5)+TPK%K083(:)*PCONC(:,36)+TPK%K085(:)*PCONC(:,3&
+&7)+TPK%K088(:)*PCONC(:,39)+TPK%KTC4(:)+TPK%KTR4(:)
+!
+!PPROD(NO3) = +0.35*K006*<HNO4>+K031*<O3P>*<NO2>+K040*<OH>*<HNO3>+K043*<O3>*<NO
+!2>+K048*<N2O5>+0.71893*K070*<PAN>*<OH>+0.60*K078*<PAN>*<NO3>+KTC25*<WC_NO3>+KT
+!R25*<WR_NO3>
+ PPROD(:,5) = +0.35*TPK%K006(:)*PCONC(:,9)+TPK%K031(:)*TPK%O3P(:)*PCONC(:,4)+TP&
+&K%K040(:)*PCONC(:,14)*PCONC(:,8)+TPK%K043(:)*PCONC(:,1)*PCONC(:,4)+TPK%K048(:)&
+&*PCONC(:,6)+0.71893*TPK%K070(:)*PCONC(:,27)*PCONC(:,14)+0.60*TPK%K078(:)*PCONC&
+&(:,27)*PCONC(:,5)+TPK%KTC25(:)*PCONC(:,46)+TPK%KTR25(:)*PCONC(:,71)
+!PLOSS(NO3) = +K007+K008+K034*<OH>+K038*<HO2>+K045*<NO>+K046*<NO2>+K047*<NO2>+K
+!049*<NO3>+K049*<NO3>+K072*<HCHO>+K073*<ALD>+K074*<CARBO>+K075*<ARO>+K076*<ALKE
+!>+K077*<BIO>+K078*<PAN>+K119*<MO2>+K120*<ALKAP>+K121*<ALKEP>+K122*<BIOP>+K123*
+!<AROP>+K124*<CARBOP>+K125*<OLN>+K131*<XO2>+KTC5+KTR5
+ PLOSS(:,5) = +TPK%K007(:)+TPK%K008(:)+TPK%K034(:)*PCONC(:,14)+TPK%K038(:)*PCON&
+&C(:,15)+TPK%K045(:)*PCONC(:,3)+TPK%K046(:)*PCONC(:,4)+TPK%K047(:)*PCONC(:,4)+T&
+&PK%K049(:)*PCONC(:,5)+TPK%K049(:)*PCONC(:,5)+TPK%K072(:)*PCONC(:,22)+TPK%K073(&
+&:)*PCONC(:,23)+TPK%K074(:)*PCONC(:,25)+TPK%K075(:)*PCONC(:,21)+TPK%K076(:)*PCO&
+&NC(:,19)+TPK%K077(:)*PCONC(:,20)+TPK%K078(:)*PCONC(:,27)+TPK%K119(:)*PCONC(:,3&
+&2)+TPK%K120(:)*PCONC(:,33)+TPK%K121(:)*PCONC(:,34)+TPK%K122(:)*PCONC(:,35)+TPK&
+&%K123(:)*PCONC(:,38)+TPK%K124(:)*PCONC(:,39)+TPK%K125(:)*PCONC(:,40)+TPK%K131(&
+&:)*PCONC(:,41)+TPK%KTC5(:)+TPK%KTR5(:)
+!
+!PPROD(N2O5) = +K047*<NO3>*<NO2>+KTC26*<WC_N2O5>+KTR26*<WR_N2O5>
+ PPROD(:,6) = +TPK%K047(:)*PCONC(:,5)*PCONC(:,4)+TPK%KTC26(:)*PCONC(:,47)+TPK%K&
+&TR26(:)*PCONC(:,72)
+!PLOSS(N2O5) = +K048+KTC6+KTR6
+ PLOSS(:,6) = +TPK%K048(:)+TPK%KTC6(:)+TPK%KTR6(:)
+!
+!PPROD(HONO) = +K032*<OH>*<NO>+K085*<ADD>*<NO2>+KTC27*<WC_HONO>+KTR27*<WR_HONO>
+ PPROD(:,7) = +TPK%K032(:)*PCONC(:,14)*PCONC(:,3)+TPK%K085(:)*PCONC(:,37)*PCONC&
+&(:,4)+TPK%KTC27(:)*PCONC(:,48)+TPK%KTR27(:)*PCONC(:,73)
+!PLOSS(HONO) = +K004+K039*<OH>+KTC7+KTR7
+ PLOSS(:,7) = +TPK%K004(:)+TPK%K039(:)*PCONC(:,14)+TPK%KTC7(:)+TPK%KTR7(:)
+!
+!PPROD(HNO3) = +K033*<OH>*<NO2>+0.3*K038*<HO2>*<NO3>+K072*<HCHO>*<NO3>+K073*<AL
+!D>*<NO3>+0.91567*K074*<CARBO>*<NO3>+K075*<ARO>*<NO3>+KTC28*<WC_HNO3>+KTR28*<WR
+!_HNO3>
+ PPROD(:,8) = +TPK%K033(:)*PCONC(:,14)*PCONC(:,4)+0.3*TPK%K038(:)*PCONC(:,15)*P&
+&CONC(:,5)+TPK%K072(:)*PCONC(:,22)*PCONC(:,5)+TPK%K073(:)*PCONC(:,23)*PCONC(:,5&
+&)+0.91567*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)+TPK%K075(:)*PCONC(:,21)*PCONC(:,5&
+&)+TPK%KTC28(:)*PCONC(:,49)+TPK%KTR28(:)*PCONC(:,74)
+!PLOSS(HNO3) = +K005+K040*<OH>+KTC8+KTR8
+ PLOSS(:,8) = +TPK%K005(:)+TPK%K040(:)*PCONC(:,14)+TPK%KTC8(:)+TPK%KTR8(:)
+!
+!PPROD(HNO4) = +K036*<HO2>*<NO2>+KTC29*<WC_HNO4>+KTR29*<WR_HNO4>
+ PPROD(:,9) = +TPK%K036(:)*PCONC(:,15)*PCONC(:,4)+TPK%KTC29(:)*PCONC(:,50)+TPK%&
+&KTR29(:)*PCONC(:,75)
+!PLOSS(HNO4) = +K006+K037+K041*<OH>+KTC9+KTR9
+ PLOSS(:,9) = +TPK%K006(:)+TPK%K037(:)+TPK%K041(:)*PCONC(:,14)+TPK%KTC9(:)+TPK%&
+&KTR9(:)
+!
+!PPROD(NH3) = +KTC30*<WC_NH3>+KTR30*<WR_NH3>
+ PPROD(:,10) = +TPK%KTC30(:)*PCONC(:,51)+TPK%KTR30(:)*PCONC(:,76)
+!PLOSS(NH3) = +K050*<OH>+KTC10+KTR10
+ PLOSS(:,10) = +TPK%K050(:)*PCONC(:,14)+TPK%KTC10(:)+TPK%KTR10(:)
!
RETURN
END SUBROUTINE SUB0
@@ -9951,161 +4156,156 @@ SUBROUTINE SUB1
!Indices 11 a 20
!
!
-!PPROD(CO) = +K044*<HCHO>+K045*<HCHO>+K046*<OH>*<HCHO>+K047*<NO3>*<HCHO>+0.315*
-!K051*<O3>*<ETHE>+0.6*K052*<O>*<ETHE>+0.56*K056*<O3>*<OLEL>+K059*<ALD2>+0.461*K
-!066*<O3>*<ISOP>+0.56*K076*<O3>*<OLEH>+0.445*K086*<O3>*<BIOL>+0.445*K090*<O3>*<
-!BIOH>+K119*<NO>*<RO24>+K120*<RO2T>*<RO24>+K121*<HO2>*<RO24>+K276*<MGLY>+0.56*K
-!281*<O3>*<MVK>+0.41*K282*<O3>*<MCR>+0.15*K284*<O>*<MCR>+K300*<NO>*<RO254>+K302
-!*<RO2T>*<RO254>+K308*<RPR1>+K314*<RPR3>+K329*<RPR8>+2.*K339*<RP16>+K340*<NO>*<
-!RO258>+K342*<RO2T>*<RO258>
- PPROD(:,11) = +TPK%K044(:)*PCONC(:,28)+TPK%K045(:)*PCONC(:,28)+TPK%K046(:)*PCO&
-&NC(:,15)*PCONC(:,28)+TPK%K047(:)*PCONC(:,8)*PCONC(:,28)+0.315*TPK%K051(:)*PCON&
-&C(:,3)*PCONC(:,16)+0.6*TPK%K052(:)*TPK%O(:)*PCONC(:,16)+0.56*TPK%K056(:)*PCONC&
-&(:,3)*PCONC(:,17)+TPK%K059(:)*PCONC(:,29)+0.461*TPK%K066(:)*PCONC(:,3)*PCONC(:&
-&,35)+0.56*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)+0.445*TPK%K086(:)*PCONC(:,3)*PCON&
-&C(:,36)+0.445*TPK%K090(:)*PCONC(:,3)*PCONC(:,37)+TPK%K119(:)*PCONC(:,1)*TPK%RO&
-&24(:)+TPK%K120(:)*PCONC(:,85)*TPK%RO24(:)+TPK%K121(:)*PCONC(:,10)*TPK%RO24(:)+&
-&TPK%K276(:)*PCONC(:,41)+0.56*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)+0.41*TPK%K282(&
-&:)*PCONC(:,3)*PCONC(:,40)+0.15*TPK%K284(:)*TPK%O(:)*PCONC(:,40)+TPK%K300(:)*PC&
-&ONC(:,1)*TPK%RO254(:)+TPK%K302(:)*PCONC(:,85)*TPK%RO254(:)+TPK%K308(:)*PCONC(:&
-&,69)+TPK%K314(:)*PCONC(:,57)+TPK%K329(:)*PCONC(:,71)+2.*TPK%K339(:)*PCONC(:,74&
-&)+TPK%K340(:)*PCONC(:,1)*TPK%RO258(:)+TPK%K342(:)*PCONC(:,85)*TPK%RO258(:)
-!PLOSS(CO) = +K024*<OH>
- PLOSS(:,11) = +TPK%K024(:)*PCONC(:,15)
-!
-!PPROD(H2O2) = +K031*<HO2>*<HO2>+K032*<HO2>*<H2O>*<HO2>+0.055*K086*<O3>*<BIOL>+
-!0.055*K090*<O3>*<BIOH>+KTC33*<WC_H2O2>+KTR33*<WR_H2O2>
- PPROD(:,12) = +TPK%K031(:)*PCONC(:,10)*PCONC(:,10)+TPK%K032(:)*PCONC(:,10)*TPK&
-&%H2O(:)*PCONC(:,10)+0.055*TPK%K086(:)*PCONC(:,3)*PCONC(:,36)+0.055*TPK%K090(:)&
-&*PCONC(:,3)*PCONC(:,37)+TPK%KTC33(:)*PCONC(:,89)+TPK%KTR33(:)*PCONC(:,126)
-!PLOSS(H2O2) = +K036+K037*<OH>+KTC2+KTR2
- PLOSS(:,12) = +TPK%K036(:)+TPK%K037(:)*PCONC(:,15)+TPK%KTC2(:)+TPK%KTR2(:)
-!
-!PPROD(SO2) = +KTC45*<WC_SO2>+KTR45*<WR_SO2>
- PPROD(:,13) = +TPK%KTC45(:)*PCONC(:,101)+TPK%KTR45(:)*PCONC(:,138)
-!PLOSS(SO2) = +K035*<OH>+KTC14+KTR14
- PLOSS(:,13) = +TPK%K035(:)*PCONC(:,15)+TPK%KTC14(:)+TPK%KTR14(:)
-!
-!PPROD(H2SO4) = +K035*<OH>*<SO2>+KTC46*<WC_H2SO4>+KTR46*<WR_H2SO4>
- PPROD(:,14) = +TPK%K035(:)*PCONC(:,15)*PCONC(:,13)+TPK%KTC46(:)*PCONC(:,102)+T&
-&PK%KTR46(:)*PCONC(:,139)
-!PLOSS(H2SO4) = +K346+KTC15+KTR15
- PLOSS(:,14) = +TPK%K346(:)+TPK%KTC15(:)+TPK%KTR15(:)
-!
-!PPROD(OH) = +K017*<H2O>*<OSD>+K017*<H2O>*<OSD>+0.9*K020*<HONO>+K026*<HO2>*<NO>
-!+K030*<HO2>*<O3>+0.8*K033*<HO2>*<NO3>+2.*K036*<H2O2>+0.06*K051*<O3>*<ETHE>+0.3
-!6*K056*<O3>*<OLEL>+0.664*K066*<O3>*<ISOP>+0.36*K076*<O3>*<OLEH>+0.89*K086*<O3>
-!*<BIOL>+0.89*K090*<O3>*<BIOH>+K112*<HO2>*<RO21>+K115*<HO2>*<RO22>+K118*<HO2>*<
-!RO23>+K121*<HO2>*<RO24>+K124*<HO2>*<RO25>+K146*<HO2>*<RO27>+K152*<HO2>*<RO29>+
-!K155*<HO2>*<RO210>+K158*<HO2>*<RO211>+K161*<HO2>*<RO212>+K164*<HO2>*<RO213>+K1
-!70*<HO2>*<RO214>+K173*<HO2>*<RO215>+K176*<HO2>*<RO216>+K179*<HO2>*<RO217>+K182
-!*<HO2>*<RO218>+K185*<HO2>*<RO219>+K188*<HO2>*<RO220>+K191*<HO2>*<RO221>+K194*<
-!HO2>*<RO222>+K197*<HO2>*<RO223>+K200*<HO2>*<RO224>+K203*<HO2>*<RO225>+K206*<HO
-!2>*<RO226>+K209*<HO2>*<RO227>+K212*<HO2>*<RO228>+K215*<HO2>*<RO229>+K218*<HO2>
-!*<RO240>+K220*<HO2>*<RO230>+K223*<HO2>*<RO231>+K226*<HO2>*<RO232>+K229*<HO2>*<
-!RO241>+K233*<HO2>*<RO233>+K236*<HO2>*<RO242>+K240*<HO2>*<RO234>+K243*<HO2>*<RO
-!243>+K247*<HO2>*<RO235>+K250*<HO2>*<RO244>+K254*<HO2>*<RO236>+K257*<HO2>*<RO24
-!5>+K261*<HO2>*<RO237>+K264*<HO2>*<RO246>+K268*<HO2>*<RO238>+K271*<HO2>*<RO247>
-!+0.36*K281*<O3>*<MVK>+0.82*K282*<O3>*<MCR>+K287*<HO2>*<RO249>+K293*<RO2T>*<RO2
-!51>+K296*<RO2T>*<RO252>+K299*<RO2T>*<RO253>+K339*<RP16>+K340*<NO>*<RO258>+K342
-!*<RO2T>*<RO258>+KTC42*<WC_OH>+KTR42*<WR_OH>
- PPROD(:,15) = +TPK%K017(:)*TPK%H2O(:)*TPK%OSD(:)+TPK%K017(:)*TPK%H2O(:)*TPK%OS&
-&D(:)+0.9*TPK%K020(:)*PCONC(:,4)+TPK%K026(:)*PCONC(:,10)*PCONC(:,1)+TPK%K030(:)&
-&*PCONC(:,10)*PCONC(:,3)+0.8*TPK%K033(:)*PCONC(:,10)*PCONC(:,8)+2.*TPK%K036(:)*&
-&PCONC(:,12)+0.06*TPK%K051(:)*PCONC(:,3)*PCONC(:,16)+0.36*TPK%K056(:)*PCONC(:,3&
-&)*PCONC(:,17)+0.664*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)+0.36*TPK%K076(:)*PCONC(&
-&:,3)*PCONC(:,18)+0.89*TPK%K086(:)*PCONC(:,3)*PCONC(:,36)+0.89*TPK%K090(:)*PCON&
-&C(:,3)*PCONC(:,37)+TPK%K112(:)*PCONC(:,10)*PCONC(:,86)+TPK%K115(:)*PCONC(:,10)&
-&*TPK%RO22(:)+TPK%K118(:)*PCONC(:,10)*TPK%RO23(:)+TPK%K121(:)*PCONC(:,10)*TPK%R&
-&O24(:)+TPK%K124(:)*PCONC(:,10)*PCONC(:,87)+TPK%K146(:)*PCONC(:,10)*TPK%RO27(:)&
-&+TPK%K152(:)*PCONC(:,10)*TPK%RO29(:)+TPK%K155(:)*PCONC(:,10)*TPK%RO210(:)+TPK%&
-&K158(:)*PCONC(:,10)*TPK%RO211(:)+TPK%K161(:)*PCONC(:,10)*TPK%RO212(:)+TPK%K164&
-&(:)*PCONC(:,10)*TPK%RO213(:)+TPK%K170(:)*PCONC(:,10)*TPK%RO214(:)+TPK%K173(:)*&
-&PCONC(:,10)*TPK%RO215(:)+TPK%K176(:)*PCONC(:,10)*TPK%RO216(:)+TPK%K179(:)*PCON&
-&C(:,10)*TPK%RO217(:)+TPK%K182(:)*PCONC(:,10)*TPK%RO218(:)+TPK%K185(:)*PCONC(:,&
-&10)*TPK%RO219(:)+TPK%K188(:)*PCONC(:,10)*TPK%RO220(:)+TPK%K191(:)*PCONC(:,10)*&
-&TPK%RO221(:)+TPK%K194(:)*PCONC(:,10)*TPK%RO222(:)+TPK%K197(:)*PCONC(:,10)*TPK%&
-&RO223(:)+TPK%K200(:)*PCONC(:,10)*TPK%RO224(:)+TPK%K203(:)*PCONC(:,10)*TPK%RO22&
-&5(:)+TPK%K206(:)*PCONC(:,10)*TPK%RO226(:)+TPK%K209(:)*PCONC(:,10)*TPK%RO227(:)&
-&+TPK%K212(:)*PCONC(:,10)*TPK%RO228(:)+TPK%K215(:)*PCONC(:,10)*TPK%RO229(:)+TPK&
-&%K218(:)*PCONC(:,10)*TPK%RO240(:)+TPK%K220(:)*PCONC(:,10)*TPK%RO230(:)+TPK%K22&
-&3(:)*PCONC(:,10)*TPK%RO231(:)+TPK%K226(:)*PCONC(:,10)*TPK%RO232(:)+TPK%K229(:)&
-&*PCONC(:,10)*TPK%RO241(:)+TPK%K233(:)*PCONC(:,10)*TPK%RO233(:)+TPK%K236(:)*PCO&
-&NC(:,10)*TPK%RO242(:)+TPK%K240(:)*PCONC(:,10)*TPK%RO234(:)+TPK%K243(:)*PCONC(:&
-&,10)*TPK%RO243(:)+TPK%K247(:)*PCONC(:,10)*TPK%RO235(:)+TPK%K250(:)*PCONC(:,10)&
-&*TPK%RO244(:)+TPK%K254(:)*PCONC(:,10)*TPK%RO236(:)+TPK%K257(:)*PCONC(:,10)*TPK&
-&%RO245(:)+TPK%K261(:)*PCONC(:,10)*TPK%RO237(:)+TPK%K264(:)*PCONC(:,10)*TPK%RO2&
-&46(:)+TPK%K268(:)*PCONC(:,10)*TPK%RO238(:)+TPK%K271(:)*PCONC(:,10)*TPK%RO247(:&
-&)+0.36*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)+0.82*TPK%K282(:)*PCONC(:,3)*PCONC(:,&
-&40)+TPK%K287(:)*PCONC(:,10)*TPK%RO249(:)+TPK%K293(:)*PCONC(:,85)*TPK%RO251(:)+&
-&TPK%K296(:)*PCONC(:,85)*TPK%RO252(:)+TPK%K299(:)*PCONC(:,85)*TPK%RO253(:)+TPK%&
-&K339(:)*PCONC(:,74)+TPK%K340(:)*PCONC(:,1)*TPK%RO258(:)+TPK%K342(:)*PCONC(:,85&
-&)*TPK%RO258(:)+TPK%KTC42(:)*PCONC(:,98)+TPK%KTR42(:)*PCONC(:,135)
-!PLOSS(OH) = +K019*<NO>+K022*<NO2>+K023*<HNO3>+K024*<CO>+K025*<O3>+K029*<HNO4>+
-!K035*<SO2>+K037*<H2O2>+K039*<HONO>+K040*<NO3>+K042*<HO2>+K043*<CH4>+K046*<HCHO
-!>+K048*<MEOH>+K049*<ETHE>+K053*<ETOH>+K054*<OLEL>+K058*<ALKL>+K060*<ALD2>+K062
-!*<KETL>+K064*<ISOP>+K068*<MTBE>+K069*<ALCH>+K070*<KETH>+K073*<AROO>+K074*<OLEH
-!>+K078*<ALKM>+K079*<AROL>+K080*<AROH>+K082*<ARAL>+K083*<ARAC>+K084*<BIOL>+K088
-!*<BIOH>+K092*<PAH>+K093*<ALKH>+K272*<MVK>+K273*<MCR>+K274*<MGLY>+K303*<RPR5>+K
-!304*<RPR1>+K305*<RP16>+K306*<RPRL>+K312*<RPR3>+K322*<RPR7>+K323*<RPG7>+K324*<R
-!PR8>+K325*<RP10>+K326*<RP11>+K334*<RPG3>+K335*<RPG2>+K337*<RP18>+K345*<NH3>+K3
-!47*<ORA1>+K348*<ORA2>+K349*<ACID>+KTC11+KTR11
- PLOSS(:,15) = +TPK%K019(:)*PCONC(:,1)+TPK%K022(:)*PCONC(:,2)+TPK%K023(:)*PCONC&
-&(:,5)+TPK%K024(:)*PCONC(:,11)+TPK%K025(:)*PCONC(:,3)+TPK%K029(:)*PCONC(:,6)+TP&
-&K%K035(:)*PCONC(:,13)+TPK%K037(:)*PCONC(:,12)+TPK%K039(:)*PCONC(:,4)+TPK%K040(&
-&:)*PCONC(:,8)+TPK%K042(:)*PCONC(:,10)+TPK%K043(:)*TPK%CH4(:)+TPK%K046(:)*PCONC&
-&(:,28)+TPK%K048(:)*PCONC(:,32)+TPK%K049(:)*PCONC(:,16)+TPK%K053(:)*PCONC(:,33)&
-&+TPK%K054(:)*PCONC(:,17)+TPK%K058(:)*PCONC(:,19)+TPK%K060(:)*PCONC(:,29)+TPK%K&
-&062(:)*PCONC(:,30)+TPK%K064(:)*PCONC(:,35)+TPK%K068(:)*PCONC(:,38)+TPK%K069(:)&
-&*PCONC(:,34)+TPK%K070(:)*PCONC(:,31)+TPK%K073(:)*PCONC(:,24)+TPK%K074(:)*PCONC&
-&(:,18)+TPK%K078(:)*PCONC(:,20)+TPK%K079(:)*PCONC(:,23)+TPK%K080(:)*PCONC(:,22)&
-&+TPK%K082(:)*PCONC(:,25)+TPK%K083(:)*PCONC(:,26)+TPK%K084(:)*PCONC(:,36)+TPK%K&
-&088(:)*PCONC(:,37)+TPK%K092(:)*PCONC(:,27)+TPK%K093(:)*PCONC(:,21)+TPK%K272(:)&
-&*PCONC(:,39)+TPK%K273(:)*PCONC(:,40)+TPK%K274(:)*PCONC(:,41)+TPK%K303(:)*PCONC&
-&(:,70)+TPK%K304(:)*PCONC(:,69)+TPK%K305(:)*PCONC(:,74)+TPK%K306(:)*PCONC(:,75)&
-&+TPK%K312(:)*PCONC(:,57)+TPK%K322(:)*PCONC(:,62)+TPK%K323(:)*PCONC(:,63)+TPK%K&
-&324(:)*PCONC(:,71)+TPK%K325(:)*PCONC(:,72)+TPK%K326(:)*PCONC(:,73)+TPK%K334(:)&
-&*PCONC(:,52)+TPK%K335(:)*PCONC(:,50)+TPK%K337(:)*PCONC(:,51)+TPK%K345(:)*PCONC&
-&(:,9)+TPK%K347(:)*PCONC(:,43)+TPK%K348(:)*PCONC(:,44)+TPK%K349(:)*PCONC(:,45)+&
-&TPK%KTC11(:)+TPK%KTR11(:)
-!
-!PPROD(ETHE) = 0.0
- PPROD(:,16) = 0.0
-!PLOSS(ETHE) = +K049*<OH>+K050*<NO3>+K051*<O3>+K052*<O>
- PLOSS(:,16) = +TPK%K049(:)*PCONC(:,15)+TPK%K050(:)*PCONC(:,8)+TPK%K051(:)*PCON&
-&C(:,3)+TPK%K052(:)*TPK%O(:)
-!
-!PPROD(OLEL) = +0.054*K066*<O3>*<ISOP>+0.925*K067*<O>*<ISOP>+TPK%CF5*K150*<NO>*
-!<RO29>+0.5*K166*<HO2>*<RO239>+TPK%CF7*K168*<NO>*<RO214>+0.5*K289*<HO2>*<RO250>
- PPROD(:,17) = +0.054*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)+0.925*TPK%K067(:)*TPK%&
-&O(:)*PCONC(:,35)+TPK%CF5*TPK%K150(:)*PCONC(:,1)*TPK%RO29(:)+0.5*TPK%K166(:)*PC&
-&ONC(:,10)*TPK%RO239(:)+TPK%CF7*TPK%K168(:)*PCONC(:,1)*TPK%RO214(:)+0.5*TPK%K28&
-&9(:)*PCONC(:,10)*TPK%RO250(:)
-!PLOSS(OLEL) = +K054*<OH>+K055*<NO3>+K056*<O3>+K057*<O>
- PLOSS(:,17) = +TPK%K054(:)*PCONC(:,15)+TPK%K055(:)*PCONC(:,8)+TPK%K056(:)*PCON&
-&C(:,3)+TPK%K057(:)*TPK%O(:)
-!
-!PPROD(OLEH) = 0.0
+!PPROD(SO2) = +KTC34*<WC_SO2>+KTR34*<WR_SO2>
+ PPROD(:,11) = +TPK%KTC34(:)*PCONC(:,55)+TPK%KTR34(:)*PCONC(:,80)
+!PLOSS(SO2) = +K052*<OH>+KTC14+KTR14
+ PLOSS(:,11) = +TPK%K052(:)*PCONC(:,14)+TPK%KTC14(:)+TPK%KTR14(:)
+!
+!PPROD(SULF) = +K052*<OH>*<SO2>+KTC35*<WC_SULF>+KTR35*<WR_SULF>
+ PPROD(:,12) = +TPK%K052(:)*PCONC(:,14)*PCONC(:,11)+TPK%KTC35(:)*PCONC(:,56)+TP&
+&K%KTR35(:)*PCONC(:,81)
+!PLOSS(SULF) = +K132+KTC15+KTR15
+ PLOSS(:,12) = +TPK%K132(:)+TPK%KTC15(:)+TPK%KTR15(:)
+!
+!PPROD(CO) = +K010*<HCHO>+K011*<HCHO>+K012*<ALD>+0.91924*K016*<CARBO>+0.01*K054
+!*<BIO>*<O3P>+0.00878*K058*<ALKA>*<OH>+K062*<HCHO>*<OH>+1.01732*K065*<CARBO>*<O
+!H>+K072*<HCHO>*<NO3>+1.33723*K074*<CARBO>*<NO3>+0.35120*K079*<ALKE>*<O3>+0.360
+!00*K080*<BIO>*<O3>+0.64728*K081*<CARBO>*<O3>+0.13*K082*<PAN>*<O3>
+ PPROD(:,13) = +TPK%K010(:)*PCONC(:,22)+TPK%K011(:)*PCONC(:,22)+TPK%K012(:)*PCO&
+&NC(:,23)+0.91924*TPK%K016(:)*PCONC(:,25)+0.01*TPK%K054(:)*PCONC(:,20)*TPK%O3P(&
+&:)+0.00878*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)+TPK%K062(:)*PCONC(:,22)*PCONC(:&
+&,14)+1.01732*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)+TPK%K072(:)*PCONC(:,22)*PCONC&
+&(:,5)+1.33723*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)+0.35120*TPK%K079(:)*PCONC(:,1&
+&9)*PCONC(:,1)+0.36000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)+0.64728*TPK%K081(:)*P&
+&CONC(:,25)*PCONC(:,1)+0.13*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)
+!PLOSS(CO) = +K053*<OH>
+ PLOSS(:,13) = +TPK%K053(:)*PCONC(:,14)
+!
+!PPROD(OH) = +K004*<HONO>+K005*<HNO3>+0.35*K006*<HNO4>+K009*<H2O2>+K009*<H2O2>+
+!K013*<OP1>+K014*<OP2>+K022*<O1D>*<H2O>+K022*<O1D>*<H2O>+K024*<O3>*<HO2>+K035*<
+!HO2>*<NO>+0.7*K038*<HO2>*<NO3>+0.02*K054*<BIO>*<O3P>+0.00878*K058*<ALKA>*<OH>+
+!0.35*K068*<OP1>*<OH>+0.44925*K069*<OP2>*<OH>+0.39435*K079*<ALKE>*<O3>+0.28000*
+!K080*<BIO>*<O3>+0.20595*K081*<CARBO>*<O3>+0.036*K082*<PAN>*<O3>+K087*<ADD>*<O3
+!>+KTC31*<WC_OH>+KTR31*<WR_OH>
+ PPROD(:,14) = +TPK%K004(:)*PCONC(:,7)+TPK%K005(:)*PCONC(:,8)+0.35*TPK%K006(:)*&
+&PCONC(:,9)+TPK%K009(:)*PCONC(:,2)+TPK%K009(:)*PCONC(:,2)+TPK%K013(:)*PCONC(:,2&
+&8)+TPK%K014(:)*PCONC(:,29)+TPK%K022(:)*TPK%O1D(:)*TPK%H2O(:)+TPK%K022(:)*TPK%O&
+&1D(:)*TPK%H2O(:)+TPK%K024(:)*PCONC(:,1)*PCONC(:,15)+TPK%K035(:)*PCONC(:,15)*PC&
+&ONC(:,3)+0.7*TPK%K038(:)*PCONC(:,15)*PCONC(:,5)+0.02*TPK%K054(:)*PCONC(:,20)*T&
+&PK%O3P(:)+0.00878*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)+0.35*TPK%K068(:)*PCONC(:&
+&,28)*PCONC(:,14)+0.44925*TPK%K069(:)*PCONC(:,29)*PCONC(:,14)+0.39435*TPK%K079(&
+&:)*PCONC(:,19)*PCONC(:,1)+0.28000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)+0.20595*T&
+&PK%K081(:)*PCONC(:,25)*PCONC(:,1)+0.036*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)+TPK&
+&%K087(:)*PCONC(:,37)*PCONC(:,1)+TPK%KTC31(:)*PCONC(:,52)+TPK%KTR31(:)*PCONC(:,&
+&77)
+!PLOSS(OH) = +K023*<O3>+K025*<HO2>+K026*<H2O2>+K032*<NO>+K033*<NO2>+K034*<NO3>+
+!K039*<HONO>+K040*<HNO3>+K041*<HNO4>+K050*<NH3>+K051*<H2>+K052*<SO2>+K053*<CO>+
+!K056*<CH4>+K057*<ETH>+K058*<ALKA>+K059*<ALKE>+K060*<BIO>+K061*<ARO>+K062*<HCHO
+!>+K063*<ALD>+K064*<KET>+K065*<CARBO>+K066*<ORA1>+K067*<ORA2>+K068*<OP1>+K069*<
+!OP2>+K070*<PAN>+K071*<ONIT>+KTC11+KTR11
+ PLOSS(:,14) = +TPK%K023(:)*PCONC(:,1)+TPK%K025(:)*PCONC(:,15)+TPK%K026(:)*PCON&
+&C(:,2)+TPK%K032(:)*PCONC(:,3)+TPK%K033(:)*PCONC(:,4)+TPK%K034(:)*PCONC(:,5)+TP&
+&K%K039(:)*PCONC(:,7)+TPK%K040(:)*PCONC(:,8)+TPK%K041(:)*PCONC(:,9)+TPK%K050(:)&
+&*PCONC(:,10)+TPK%K051(:)*TPK%H2(:)+TPK%K052(:)*PCONC(:,11)+TPK%K053(:)*PCONC(:&
+&,13)+TPK%K056(:)*PCONC(:,16)+TPK%K057(:)*PCONC(:,17)+TPK%K058(:)*PCONC(:,18)+T&
+&PK%K059(:)*PCONC(:,19)+TPK%K060(:)*PCONC(:,20)+TPK%K061(:)*PCONC(:,21)+TPK%K06&
+&2(:)*PCONC(:,22)+TPK%K063(:)*PCONC(:,23)+TPK%K064(:)*PCONC(:,24)+TPK%K065(:)*P&
+&CONC(:,25)+TPK%K066(:)*PCONC(:,30)+TPK%K067(:)*PCONC(:,31)+TPK%K068(:)*PCONC(:&
+&,28)+TPK%K069(:)*PCONC(:,29)+TPK%K070(:)*PCONC(:,27)+TPK%K071(:)*PCONC(:,26)+T&
+&PK%KTC11(:)+TPK%KTR11(:)
+!
+!PPROD(HO2) = +0.65*K006*<HNO4>+K011*<HCHO>+K011*<HCHO>+K012*<ALD>+K013*<OP1>+0
+!.96205*K014*<OP2>+0.75830*K016*<CARBO>+K017*<ONIT>+K023*<O3>*<OH>+K026*<H2O2>*
+!<OH>+K034*<OH>*<NO3>+K037*<HNO4>+K051*<OH>*<H2>+K052*<OH>*<SO2>+K053*<CO>*<OH>
+!+0.28*K054*<BIO>*<O3P>+0.12793*K058*<ALKA>*<OH>+0.10318*K061*<ARO>*<OH>+K062*<
+!HCHO>*<OH>+0.51208*K065*<CARBO>*<OH>+K066*<ORA1>*<OH>+0.02915*K069*<OP2>*<OH>+
+!0.28107*K070*<PAN>*<OH>+K072*<HCHO>*<NO3>+0.63217*K074*<CARBO>*<NO3>+0.23451*K
+!079*<ALKE>*<O3>+0.30000*K080*<BIO>*<O3>+0.28441*K081*<CARBO>*<O3>+0.08*K082*<P
+!AN>*<O3>+0.02*K086*<ADD>*<O2>+K090*<MO2>*<NO>+0.74265*K091*<ALKAP>*<NO>+K092*<
+!ALKEP>*<NO>+0.84700*K093*<BIOP>*<NO>+0.95115*K094*<AROP>*<NO>+0.12334*K095*<CA
+!RBOP>*<NO>+0.18401*K096*<OLN>*<NO>+0.66*K104*<MO2>*<MO2>+0.98383*K105*<ALKAP>*
+!<MO2>+K106*<ALKEP>*<MO2>+1.00000*K107*<BIOP>*<MO2>+1.02767*K108*<AROP>*<MO2>+0
+!.82998*K109*<CARBOP>*<MO2>+0.67560*K110*<OLN>*<MO2>+0.48079*K111*<ALKAP>*<CARB
+!OP>+0.50078*K112*<ALKEP>*<CARBOP>+0.50600*K113*<BIOP>*<CARBOP>+K114*<AROP>*<CA
+!RBOP>+0.07566*K115*<CARBOP>*<CARBOP>+0.17599*K116*<OLN>*<CARBOP>+K117*<OLN>*<O
+!LN>+0.00000*K118*<OLN>*<OLN>+K119*<MO2>*<NO3>+0.81290*K120*<ALKAP>*<NO3>+K121*
+!<ALKEP>*<NO3>+K122*<BIOP>*<NO3>+K123*<AROP>*<NO3>+0.04915*K124*<CARBOP>*<NO3>+
+!0.25928*K125*<OLN>*<NO3>+K127*<XO2>*<MO2>+KTC32*<WC_HO2>+KTR32*<WR_HO2>
+ PPROD(:,15) = +0.65*TPK%K006(:)*PCONC(:,9)+TPK%K011(:)*PCONC(:,22)+TPK%K011(:)&
+&*PCONC(:,22)+TPK%K012(:)*PCONC(:,23)+TPK%K013(:)*PCONC(:,28)+0.96205*TPK%K014(&
+&:)*PCONC(:,29)+0.75830*TPK%K016(:)*PCONC(:,25)+TPK%K017(:)*PCONC(:,26)+TPK%K02&
+&3(:)*PCONC(:,1)*PCONC(:,14)+TPK%K026(:)*PCONC(:,2)*PCONC(:,14)+TPK%K034(:)*PCO&
+&NC(:,14)*PCONC(:,5)+TPK%K037(:)*PCONC(:,9)+TPK%K051(:)*PCONC(:,14)*TPK%H2(:)+T&
+&PK%K052(:)*PCONC(:,14)*PCONC(:,11)+TPK%K053(:)*PCONC(:,13)*PCONC(:,14)+0.28*TP&
+&K%K054(:)*PCONC(:,20)*TPK%O3P(:)+0.12793*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)+0&
+&.10318*TPK%K061(:)*PCONC(:,21)*PCONC(:,14)+TPK%K062(:)*PCONC(:,22)*PCONC(:,14)&
+&+0.51208*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)+TPK%K066(:)*PCONC(:,30)*PCONC(:,1&
+&4)+0.02915*TPK%K069(:)*PCONC(:,29)*PCONC(:,14)+0.28107*TPK%K070(:)*PCONC(:,27)&
+&*PCONC(:,14)+TPK%K072(:)*PCONC(:,22)*PCONC(:,5)+0.63217*TPK%K074(:)*PCONC(:,25&
+&)*PCONC(:,5)+0.23451*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)+0.30000*TPK%K080(:)*PC&
+&ONC(:,20)*PCONC(:,1)+0.28441*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)+0.08*TPK%K082(&
+&:)*PCONC(:,27)*PCONC(:,1)+0.02*TPK%K086(:)*PCONC(:,37)*TPK%O2(:)+TPK%K090(:)*P&
+&CONC(:,32)*PCONC(:,3)+0.74265*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)+TPK%K092(:)*P&
+&CONC(:,34)*PCONC(:,3)+0.84700*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)+0.95115*TPK%K&
+&094(:)*PCONC(:,38)*PCONC(:,3)+0.12334*TPK%K095(:)*PCONC(:,39)*PCONC(:,3)+0.184&
+&01*TPK%K096(:)*PCONC(:,40)*PCONC(:,3)+0.66*TPK%K104(:)*PCONC(:,32)*PCONC(:,32)&
+&+0.98383*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)+TPK%K106(:)*PCONC(:,34)*PCONC(:,3&
+&2)+1.00000*TPK%K107(:)*PCONC(:,35)*PCONC(:,32)+1.02767*TPK%K108(:)*PCONC(:,38)&
+&*PCONC(:,32)+0.82998*TPK%K109(:)*PCONC(:,39)*PCONC(:,32)+0.67560*TPK%K110(:)*P&
+&CONC(:,40)*PCONC(:,32)+0.48079*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)+0.50078*TPK&
+&%K112(:)*PCONC(:,34)*PCONC(:,39)+0.50600*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)+T&
+&PK%K114(:)*PCONC(:,38)*PCONC(:,39)+0.07566*TPK%K115(:)*PCONC(:,39)*PCONC(:,39)&
+&+0.17599*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)+TPK%K117(:)*PCONC(:,40)*PCONC(:,4&
+&0)+0.00000*TPK%K118(:)*PCONC(:,40)*PCONC(:,40)+TPK%K119(:)*PCONC(:,32)*PCONC(:&
+&,5)+0.81290*TPK%K120(:)*PCONC(:,33)*PCONC(:,5)+TPK%K121(:)*PCONC(:,34)*PCONC(:&
+&,5)+TPK%K122(:)*PCONC(:,35)*PCONC(:,5)+TPK%K123(:)*PCONC(:,38)*PCONC(:,5)+0.04&
+&915*TPK%K124(:)*PCONC(:,39)*PCONC(:,5)+0.25928*TPK%K125(:)*PCONC(:,40)*PCONC(:&
+&,5)+TPK%K127(:)*PCONC(:,41)*PCONC(:,32)+TPK%KTC32(:)*PCONC(:,53)+TPK%KTR32(:)*&
+&PCONC(:,78)
+!PLOSS(HO2) = +K024*<O3>+K025*<OH>+K027*<HO2>+K027*<HO2>+K028*<HO2>*<H2O>+K028*
+!<HO2>*<H2O>+K035*<NO>+K036*<NO2>+K038*<NO3>+K084*<PHO>+K097*<MO2>+K098*<ALKAP>
+!+K099*<ALKEP>+K0100*<BIOP>+K0101*<AROP>+K0102*<CARBOP>+K103*<OLN>+K126*<XO2>+K
+!TC12+KTR12
+ PLOSS(:,15) = +TPK%K024(:)*PCONC(:,1)+TPK%K025(:)*PCONC(:,14)+TPK%K027(:)*PCON&
+&C(:,15)+TPK%K027(:)*PCONC(:,15)+TPK%K028(:)*PCONC(:,15)*TPK%H2O(:)+TPK%K028(:)&
+&*PCONC(:,15)*TPK%H2O(:)+TPK%K035(:)*PCONC(:,3)+TPK%K036(:)*PCONC(:,4)+TPK%K038&
+&(:)*PCONC(:,5)+TPK%K084(:)*PCONC(:,36)+TPK%K097(:)*PCONC(:,32)+TPK%K098(:)*PCO&
+&NC(:,33)+TPK%K099(:)*PCONC(:,34)+TPK%K0100(:)*PCONC(:,35)+TPK%K0101(:)*PCONC(:&
+&,38)+TPK%K0102(:)*PCONC(:,39)+TPK%K103(:)*PCONC(:,40)+TPK%K126(:)*PCONC(:,41)+&
+&TPK%KTC12(:)+TPK%KTR12(:)
+!
+!PPROD(CH4) = +0.04300*K079*<ALKE>*<O3>
+ PPROD(:,16) = +0.04300*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
+!PLOSS(CH4) = +K056*<OH>
+ PLOSS(:,16) = +TPK%K056(:)*PCONC(:,14)
+!
+!PPROD(ETH) = +0.03196*K079*<ALKE>*<O3>
+ PPROD(:,17) = +0.03196*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
+!PLOSS(ETH) = +K057*<OH>
+ PLOSS(:,17) = +TPK%K057(:)*PCONC(:,14)
+!
+!PPROD(ALKA) = 0.0
PPROD(:,18) = 0.0
-!PLOSS(OLEH) = +K074*<OH>+K075*<NO3>+K076*<O3>+K077*<O>
- PLOSS(:,18) = +TPK%K074(:)*PCONC(:,15)+TPK%K075(:)*PCONC(:,8)+TPK%K076(:)*PCON&
-&C(:,3)+TPK%K077(:)*TPK%O(:)
-!
-!PPROD(ALKL) = +0.1*K056*<O3>*<OLEL>+0.5*K057*<O>*<OLEL>+TPK%CF3*K122*<NO>*<RO2
-!5>+TPK%CF12*K171*<NO>*<RO215>+TPK%CF16*K172*<RO2T>*<RO215>+TPK%CF16*K173*<HO2>
-!*<RO215>
- PPROD(:,19) = +0.1*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)+0.5*TPK%K057(:)*TPK%O(:)&
-&*PCONC(:,17)+TPK%CF3*TPK%K122(:)*PCONC(:,1)*PCONC(:,87)+TPK%CF12*TPK%K171(:)*P&
-&CONC(:,1)*TPK%RO215(:)+TPK%CF16*TPK%K172(:)*PCONC(:,85)*TPK%RO215(:)+TPK%CF16*&
-&TPK%K173(:)*PCONC(:,10)*TPK%RO215(:)
-!PLOSS(ALKL) = +K058*<OH>
- PLOSS(:,19) = +TPK%K058(:)*PCONC(:,15)
-!
-!PPROD(ALKM) = +0.1*K076*<O3>*<OLEH>+0.5*K077*<O>*<OLEH>
- PPROD(:,20) = +0.1*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)+0.5*TPK%K077(:)*TPK%O(:)&
-&*PCONC(:,18)
-!PLOSS(ALKM) = +K078*<OH>
- PLOSS(:,20) = +TPK%K078(:)*PCONC(:,15)
+!PLOSS(ALKA) = +K058*<OH>
+ PLOSS(:,18) = +TPK%K058(:)*PCONC(:,14)
+!
+!PPROD(ALKE) = +0.91868*K054*<BIO>*<O3P>+0.00000*K079*<ALKE>*<O3>+0.37388*K080*
+!<BIO>*<O3>+0.37815*K093*<BIOP>*<NO>+0.48074*K107*<BIOP>*<MO2>+0.24463*K113*<BI
+!OP>*<CARBOP>+0.42729*K122*<BIOP>*<NO3>
+ PPROD(:,19) = +0.91868*TPK%K054(:)*PCONC(:,20)*TPK%O3P(:)+0.00000*TPK%K079(:)*&
+&PCONC(:,19)*PCONC(:,1)+0.37388*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)+0.37815*TPK%&
+&K093(:)*PCONC(:,35)*PCONC(:,3)+0.48074*TPK%K107(:)*PCONC(:,35)*PCONC(:,32)+0.2&
+&4463*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)+0.42729*TPK%K122(:)*PCONC(:,35)*PCONC&
+&(:,5)
+!PLOSS(ALKE) = +K059*<OH>+K076*<NO3>+K079*<O3>
+ PLOSS(:,19) = +TPK%K059(:)*PCONC(:,14)+TPK%K076(:)*PCONC(:,5)+TPK%K079(:)*PCON&
+&C(:,1)
+!
+!PPROD(BIO) = 0.0
+ PPROD(:,20) = 0.0
+!PLOSS(BIO) = +K054*<O3P>+K060*<OH>+K077*<NO3>+K080*<O3>
+ PLOSS(:,20) = +TPK%K054(:)*TPK%O3P(:)+TPK%K060(:)*PCONC(:,14)+TPK%K077(:)*PCON&
+&C(:,5)+TPK%K080(:)*PCONC(:,1)
!
RETURN
END SUBROUTINE SUB1
@@ -10115,122 +4315,189 @@ SUBROUTINE SUB2
!Indices 21 a 30
!
!
-!PPROD(ALKH) = 0.0
- PPROD(:,21) = 0.0
-!PLOSS(ALKH) = +K093*<OH>
- PLOSS(:,21) = +TPK%K093(:)*PCONC(:,15)
-!
-!PPROD(AROH) = 0.0
- PPROD(:,22) = 0.0
-!PLOSS(AROH) = +K080*<OH>
- PLOSS(:,22) = +TPK%K080(:)*PCONC(:,15)
-!
-!PPROD(AROL) = 0.0
- PPROD(:,23) = 0.0
-!PLOSS(AROL) = +K079*<OH>
- PLOSS(:,23) = +TPK%K079(:)*PCONC(:,15)
-!
-!PPROD(AROO) = +0.16*K073*<OH>*<AROO>+0.16*K079*<OH>*<AROL>+0.16*K080*<OH>*<ARO
-!H>
- PPROD(:,24) = +0.16*TPK%K073(:)*PCONC(:,15)*PCONC(:,24)+0.16*TPK%K079(:)*PCONC&
-&(:,15)*PCONC(:,23)+0.16*TPK%K080(:)*PCONC(:,15)*PCONC(:,22)
-!PLOSS(AROO) = +K072*<NO3>+K073*<OH>
- PLOSS(:,24) = +TPK%K072(:)*PCONC(:,8)+TPK%K073(:)*PCONC(:,15)
-!
-!PPROD(ARAL) = +TPK%CF24*K189*<NO>*<RO221>+K190*<RO2T>*<RO221>+K191*<HO2>*<RO22
-!1>
- PPROD(:,25) = +TPK%CF24*TPK%K189(:)*PCONC(:,1)*TPK%RO221(:)+TPK%K190(:)*PCONC(&
-&:,85)*TPK%RO221(:)+TPK%K191(:)*PCONC(:,10)*TPK%RO221(:)
-!PLOSS(ARAL) = +K081*<NO3>+K082*<OH>
- PLOSS(:,25) = +TPK%K081(:)*PCONC(:,8)+TPK%K082(:)*PCONC(:,15)
-!
-!PPROD(ARAC) = +K081*<NO3>*<ARAL>+TPK%CF39*K082*<OH>*<ARAL>
- PPROD(:,26) = +TPK%K081(:)*PCONC(:,8)*PCONC(:,25)+TPK%CF39*TPK%K082(:)*PCONC(:&
-&,15)*PCONC(:,25)
-!PLOSS(ARAC) = +K083*<OH>
- PLOSS(:,26) = +TPK%K083(:)*PCONC(:,15)
-!
-!PPROD(PAH) = 0.0
- PPROD(:,27) = 0.0
-!PLOSS(PAH) = +K092*<OH>
- PLOSS(:,27) = +TPK%K092(:)*PCONC(:,15)
-!
-!PPROD(HCHO) = +K048*<OH>*<MEOH>+0.5*K051*<O3>*<ETHE>+0.5*K056*<O3>*<OLEL>+0.5*
-!K066*<O3>*<ISOP>+0.5*K076*<O3>*<OLEH>+K110*<NO>*<RO21>+K111*<RO2T>*<RO21>+K112
-!*<HO2>*<RO21>+K113*<NO>*<RO22>+K114*<RO2T>*<RO22>+K115*<HO2>*<RO22>+K116*<NO>*
-!<RO23>+K117*<RO2T>*<RO23>+K118*<HO2>*<RO23>+K119*<NO>*<RO24>+K120*<RO2T>*<RO24
-!>+K121*<HO2>*<RO24>+TPK%CF6*K150*<NO>*<RO29>+K151*<RO2T>*<RO29>+K152*<HO2>*<RO
-!29>+K153*<NO>*<RO210>+K154*<RO2T>*<RO210>+K155*<HO2>*<RO210>+K156*<NO>*<RO211>
-!+K157*<RO2T>*<RO211>+K158*<HO2>*<RO211>+K159*<NO>*<RO212>+K160*<RO2T>*<RO212>+
-!K161*<HO2>*<RO212>+K162*<NO>*<RO213>+K163*<RO2T>*<RO213>+K164*<HO2>*<RO213>+TP
-!K%CF10*K171*<NO>*<RO215>+TPK%CF14*K172*<RO2T>*<RO215>+TPK%CF14*K173*<HO2>*<RO2
-!15>+K183*<NO>*<RO219>+K184*<RO2T>*<RO219>+K185*<HO2>*<RO219>+0.5*K281*<O3>*<MV
-!K>+0.5*K282*<O3>*<MCR>+K285*<NO>*<RO249>+K286*<RO2T>*<RO249>+K287*<HO2>*<RO249
-!>+K291*<NO>*<RO251>+K292*<HO2>*<RO251>+K293*<RO2T>*<RO251>+K294*<NO>*<RO252>+K
-!295*<HO2>*<RO252>+K296*<RO2T>*<RO252>+K297*<NO>*<RO253>+K298*<HO2>*<RO253>+K29
-!9*<RO2T>*<RO253>+KTC52*<WC_HCHO>+KTR52*<WR_HCHO>
- PPROD(:,28) = +TPK%K048(:)*PCONC(:,15)*PCONC(:,32)+0.5*TPK%K051(:)*PCONC(:,3)*&
-&PCONC(:,16)+0.5*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)+0.5*TPK%K066(:)*PCONC(:,3)*&
-&PCONC(:,35)+0.5*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)+TPK%K110(:)*PCONC(:,1)*PCON&
-&C(:,86)+TPK%K111(:)*PCONC(:,85)*PCONC(:,86)+TPK%K112(:)*PCONC(:,10)*PCONC(:,86&
-&)+TPK%K113(:)*PCONC(:,1)*TPK%RO22(:)+TPK%K114(:)*PCONC(:,85)*TPK%RO22(:)+TPK%K&
-&115(:)*PCONC(:,10)*TPK%RO22(:)+TPK%K116(:)*PCONC(:,1)*TPK%RO23(:)+TPK%K117(:)*&
-&PCONC(:,85)*TPK%RO23(:)+TPK%K118(:)*PCONC(:,10)*TPK%RO23(:)+TPK%K119(:)*PCONC(&
-&:,1)*TPK%RO24(:)+TPK%K120(:)*PCONC(:,85)*TPK%RO24(:)+TPK%K121(:)*PCONC(:,10)*T&
-&PK%RO24(:)+TPK%CF6*TPK%K150(:)*PCONC(:,1)*TPK%RO29(:)+TPK%K151(:)*PCONC(:,85)*&
-&TPK%RO29(:)+TPK%K152(:)*PCONC(:,10)*TPK%RO29(:)+TPK%K153(:)*PCONC(:,1)*TPK%RO2&
-&10(:)+TPK%K154(:)*PCONC(:,85)*TPK%RO210(:)+TPK%K155(:)*PCONC(:,10)*TPK%RO210(:&
-&)+TPK%K156(:)*PCONC(:,1)*TPK%RO211(:)+TPK%K157(:)*PCONC(:,85)*TPK%RO211(:)+TPK&
-&%K158(:)*PCONC(:,10)*TPK%RO211(:)+TPK%K159(:)*PCONC(:,1)*TPK%RO212(:)+TPK%K160&
-&(:)*PCONC(:,85)*TPK%RO212(:)+TPK%K161(:)*PCONC(:,10)*TPK%RO212(:)+TPK%K162(:)*&
-&PCONC(:,1)*TPK%RO213(:)+TPK%K163(:)*PCONC(:,85)*TPK%RO213(:)+TPK%K164(:)*PCONC&
-&(:,10)*TPK%RO213(:)+TPK%CF10*TPK%K171(:)*PCONC(:,1)*TPK%RO215(:)+TPK%CF14*TPK%&
-&K172(:)*PCONC(:,85)*TPK%RO215(:)+TPK%CF14*TPK%K173(:)*PCONC(:,10)*TPK%RO215(:)&
-&+TPK%K183(:)*PCONC(:,1)*TPK%RO219(:)+TPK%K184(:)*PCONC(:,85)*TPK%RO219(:)+TPK%&
-&K185(:)*PCONC(:,10)*TPK%RO219(:)+0.5*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)+0.5*TP&
-&K%K282(:)*PCONC(:,3)*PCONC(:,40)+TPK%K285(:)*PCONC(:,1)*TPK%RO249(:)+TPK%K286(&
-&:)*PCONC(:,85)*TPK%RO249(:)+TPK%K287(:)*PCONC(:,10)*TPK%RO249(:)+TPK%K291(:)*P&
-&CONC(:,1)*TPK%RO251(:)+TPK%K292(:)*PCONC(:,10)*TPK%RO251(:)+TPK%K293(:)*PCONC(&
-&:,85)*TPK%RO251(:)+TPK%K294(:)*PCONC(:,1)*TPK%RO252(:)+TPK%K295(:)*PCONC(:,10)&
-&*TPK%RO252(:)+TPK%K296(:)*PCONC(:,85)*TPK%RO252(:)+TPK%K297(:)*PCONC(:,1)*TPK%&
-&RO253(:)+TPK%K298(:)*PCONC(:,10)*TPK%RO253(:)+TPK%K299(:)*PCONC(:,85)*TPK%RO25&
-&3(:)+TPK%KTC52(:)*PCONC(:,108)+TPK%KTR52(:)*PCONC(:,145)
-!PLOSS(HCHO) = +K044+K045+K046*<OH>+K047*<NO3>+KTC21+KTR21
- PLOSS(:,28) = +TPK%K044(:)+TPK%K045(:)+TPK%K046(:)*PCONC(:,15)+TPK%K047(:)*PCO&
-&NC(:,8)+TPK%KTC21(:)+TPK%KTR21(:)
-!
-!PPROD(ALD2) = +TPK%CF1*K053*<OH>*<ETOH>+0.5*K056*<O3>*<OLEL>+0.4*K057*<O>*<OLE
-!L>+0.075*K067*<O>*<ISOP>+K113*<NO>*<RO22>+K114*<RO2T>*<RO22>+K115*<HO2>*<RO22>
-!+K116*<NO>*<RO23>+K117*<RO2T>*<RO23>+K118*<HO2>*<RO23>+TPK%CF4*K122*<NO>*<RO25
-!>+K123*<RO2T>*<RO25>+K124*<HO2>*<RO25>+K144*<NO>*<RO27>+K145*<RO2T>*<RO27>+K14
-!6*<HO2>*<RO27>+TPK%CF9*K171*<NO>*<RO215>+TPK%CF13*K172*<RO2T>*<RO215>+TPK%CF13
-!*K173*<HO2>*<RO215>+K174*<NO>*<RO216>+K175*<RO2T>*<RO216>+K176*<HO2>*<RO216>+0
-!.1*K281*<O3>*<MVK>+0.85*K284*<O>*<MCR>+KTC53*<WC_ALD2>+KTR53*<WR_ALD2>
- PPROD(:,29) = +TPK%CF1*TPK%K053(:)*PCONC(:,15)*PCONC(:,33)+0.5*TPK%K056(:)*PCO&
-&NC(:,3)*PCONC(:,17)+0.4*TPK%K057(:)*TPK%O(:)*PCONC(:,17)+0.075*TPK%K067(:)*TPK&
-&%O(:)*PCONC(:,35)+TPK%K113(:)*PCONC(:,1)*TPK%RO22(:)+TPK%K114(:)*PCONC(:,85)*T&
-&PK%RO22(:)+TPK%K115(:)*PCONC(:,10)*TPK%RO22(:)+TPK%K116(:)*PCONC(:,1)*TPK%RO23&
-&(:)+TPK%K117(:)*PCONC(:,85)*TPK%RO23(:)+TPK%K118(:)*PCONC(:,10)*TPK%RO23(:)+TP&
-&K%CF4*TPK%K122(:)*PCONC(:,1)*PCONC(:,87)+TPK%K123(:)*PCONC(:,85)*PCONC(:,87)+T&
-&PK%K124(:)*PCONC(:,10)*PCONC(:,87)+TPK%K144(:)*PCONC(:,1)*TPK%RO27(:)+TPK%K145&
-&(:)*PCONC(:,85)*TPK%RO27(:)+TPK%K146(:)*PCONC(:,10)*TPK%RO27(:)+TPK%CF9*TPK%K1&
-&71(:)*PCONC(:,1)*TPK%RO215(:)+TPK%CF13*TPK%K172(:)*PCONC(:,85)*TPK%RO215(:)+TP&
-&K%CF13*TPK%K173(:)*PCONC(:,10)*TPK%RO215(:)+TPK%K174(:)*PCONC(:,1)*TPK%RO216(:&
-&)+TPK%K175(:)*PCONC(:,85)*TPK%RO216(:)+TPK%K176(:)*PCONC(:,10)*TPK%RO216(:)+0.&
-&1*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)+0.85*TPK%K284(:)*TPK%O(:)*PCONC(:,40)+TPK&
-&%KTC53(:)*PCONC(:,109)+TPK%KTR53(:)*PCONC(:,146)
-!PLOSS(ALD2) = +K059+K060*<OH>+K061*<NO3>+KTC22+KTR22
- PLOSS(:,29) = +TPK%K059(:)+TPK%K060(:)*PCONC(:,15)+TPK%K061(:)*PCONC(:,8)+TPK%&
-&KTC22(:)+TPK%KTR22(:)
-!
-!PPROD(KETL) = +TPK%CF11*K171*<NO>*<RO215>+TPK%CF15*K172*<RO2T>*<RO215>+TPK%CF1
-!5*K173*<HO2>*<RO215>+0.85*K283*<O>*<MVK>+KTC55*<WC_KETL>+KTR55*<WR_KETL>
- PPROD(:,30) = +TPK%CF11*TPK%K171(:)*PCONC(:,1)*TPK%RO215(:)+TPK%CF15*TPK%K172(&
-&:)*PCONC(:,85)*TPK%RO215(:)+TPK%CF15*TPK%K173(:)*PCONC(:,10)*TPK%RO215(:)+0.85&
-&*TPK%K283(:)*TPK%O(:)*PCONC(:,39)+TPK%KTC55(:)*PCONC(:,112)+TPK%KTR55(:)*PCONC&
-&(:,149)
-!PLOSS(KETL) = +K062*<OH>+K063+KTC24+KTR24
- PLOSS(:,30) = +TPK%K062(:)*PCONC(:,15)+TPK%K063(:)+TPK%KTC24(:)+TPK%KTR24(:)
+!PPROD(ARO) = +0.10670*K083*<PHO>*<NO2>+1.06698*K084*<PHO>*<HO2>+K085*<ADD>*<NO
+!2>+0.02*K086*<ADD>*<O2>+K087*<ADD>*<O3>
+ PPROD(:,21) = +0.10670*TPK%K083(:)*PCONC(:,36)*PCONC(:,4)+1.06698*TPK%K084(:)*&
+&PCONC(:,36)*PCONC(:,15)+TPK%K085(:)*PCONC(:,37)*PCONC(:,4)+0.02*TPK%K086(:)*PC&
+&ONC(:,37)*TPK%O2(:)+TPK%K087(:)*PCONC(:,37)*PCONC(:,1)
+!PLOSS(ARO) = +K061*<OH>+K075*<NO3>
+ PLOSS(:,21) = +TPK%K061(:)*PCONC(:,14)+TPK%K075(:)*PCONC(:,5)
+!
+!PPROD(HCHO) = +K013*<OP1>+0.06517*K016*<CARBO>+0.05*K054*<BIO>*<O3P>+0.00140*K
+!058*<ALKA>*<OH>+0.00000*K065*<CARBO>*<OH>+0.35*K068*<OP1>*<OH>+0.02915*K069*<O
+!P2>*<OH>+0.57839*K070*<PAN>*<OH>+0.40*K078*<PAN>*<NO3>+0.48290*K079*<ALKE>*<O3
+!>+0.90000*K080*<BIO>*<O3>+0.00000*K081*<CARBO>*<O3>+0.70*K082*<PAN>*<O3>+K090*
+!<MO2>*<NO>+0.03002*K091*<ALKAP>*<NO>+1.39870*K092*<ALKEP>*<NO>+0.60600*K093*<B
+!IOP>*<NO>+0.05848*K095*<CARBOP>*<NO>+0.23419*K096*<OLN>*<NO>+1.33*K104*<MO2>*<
+!MO2>+0.80556*K105*<ALKAP>*<MO2>+1.42894*K106*<ALKEP>*<MO2>+1.09000*K107*<BIOP>
+!*<MO2>+K108*<AROP>*<MO2>+0.95723*K109*<CARBOP>*<MO2>+0.88625*K110*<OLN>*<MO2>+
+!0.07600*K111*<ALKAP>*<CARBOP>+0.68192*K112*<ALKEP>*<CARBOP>+0.34000*K113*<BIOP
+!>*<CARBOP>+0.03432*K115*<CARBOP>*<CARBOP>+0.13414*K116*<OLN>*<CARBOP>+0.00000*
+!K118*<OLN>*<OLN>+K119*<MO2>*<NO3>+0.03142*K120*<ALKAP>*<NO3>+1.40909*K121*<ALK
+!EP>*<NO3>+0.68600*K122*<BIOP>*<NO3>+0.03175*K124*<CARBOP>*<NO3>+0.20740*K125*<
+!OLN>*<NO3>+K127*<XO2>*<MO2>+KTC36*<WC_HCHO>+KTR36*<WR_HCHO>
+ PPROD(:,22) = +TPK%K013(:)*PCONC(:,28)+0.06517*TPK%K016(:)*PCONC(:,25)+0.05*TP&
+&K%K054(:)*PCONC(:,20)*TPK%O3P(:)+0.00140*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)+0&
+&.00000*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)+0.35*TPK%K068(:)*PCONC(:,28)*PCONC(&
+&:,14)+0.02915*TPK%K069(:)*PCONC(:,29)*PCONC(:,14)+0.57839*TPK%K070(:)*PCONC(:,&
+&27)*PCONC(:,14)+0.40*TPK%K078(:)*PCONC(:,27)*PCONC(:,5)+0.48290*TPK%K079(:)*PC&
+&ONC(:,19)*PCONC(:,1)+0.90000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)+0.00000*TPK%K0&
+&81(:)*PCONC(:,25)*PCONC(:,1)+0.70*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)+TPK%K090(&
+&:)*PCONC(:,32)*PCONC(:,3)+0.03002*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)+1.39870*T&
+&PK%K092(:)*PCONC(:,34)*PCONC(:,3)+0.60600*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)+0&
+&.05848*TPK%K095(:)*PCONC(:,39)*PCONC(:,3)+0.23419*TPK%K096(:)*PCONC(:,40)*PCON&
+&C(:,3)+1.33*TPK%K104(:)*PCONC(:,32)*PCONC(:,32)+0.80556*TPK%K105(:)*PCONC(:,33&
+&)*PCONC(:,32)+1.42894*TPK%K106(:)*PCONC(:,34)*PCONC(:,32)+1.09000*TPK%K107(:)*&
+&PCONC(:,35)*PCONC(:,32)+TPK%K108(:)*PCONC(:,38)*PCONC(:,32)+0.95723*TPK%K109(:&
+&)*PCONC(:,39)*PCONC(:,32)+0.88625*TPK%K110(:)*PCONC(:,40)*PCONC(:,32)+0.07600*&
+&TPK%K111(:)*PCONC(:,33)*PCONC(:,39)+0.68192*TPK%K112(:)*PCONC(:,34)*PCONC(:,39&
+&)+0.34000*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)+0.03432*TPK%K115(:)*PCONC(:,39)*&
+&PCONC(:,39)+0.13414*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)+0.00000*TPK%K118(:)*PC&
+&ONC(:,40)*PCONC(:,40)+TPK%K119(:)*PCONC(:,32)*PCONC(:,5)+0.03142*TPK%K120(:)*P&
+&CONC(:,33)*PCONC(:,5)+1.40909*TPK%K121(:)*PCONC(:,34)*PCONC(:,5)+0.68600*TPK%K&
+&122(:)*PCONC(:,35)*PCONC(:,5)+0.03175*TPK%K124(:)*PCONC(:,39)*PCONC(:,5)+0.207&
+&40*TPK%K125(:)*PCONC(:,40)*PCONC(:,5)+TPK%K127(:)*PCONC(:,41)*PCONC(:,32)+TPK%&
+&KTC36(:)*PCONC(:,57)+TPK%KTR36(:)*PCONC(:,82)
+!PLOSS(HCHO) = +K010+K011+K062*<OH>+K072*<NO3>+KTC16+KTR16
+ PLOSS(:,22) = +TPK%K010(:)+TPK%K011(:)+TPK%K062(:)*PCONC(:,14)+TPK%K072(:)*PCO&
+&NC(:,5)+TPK%KTC16(:)+TPK%KTR16(:)
+!
+!PPROD(ALD) = +0.96205*K014*<OP2>+0.20*K017*<ONIT>+K055*<CARBO>*<O3P>+0.08173*K
+!058*<ALKA>*<OH>+0.06253*K065*<CARBO>*<OH>+0.07335*K069*<OP2>*<OH>+0.05265*K074
+!*<CARBO>*<NO3>+0.51468*K079*<ALKE>*<O3>+0.00000*K080*<BIO>*<O3>+0.15692*K081*<
+!CARBO>*<O3>+0.33144*K091*<ALKAP>*<NO>+0.42125*K092*<ALKEP>*<NO>+0.00000*K093*<
+!BIOP>*<NO>+0.07368*K095*<CARBOP>*<NO>+1.01182*K096*<OLN>*<NO>+0.56070*K105*<AL
+!KAP>*<MO2>+0.46413*K106*<ALKEP>*<MO2>+0.00000*K107*<BIOP>*<MO2>+0.08295*K109*<
+!CARBOP>*<MO2>+0.41524*K110*<OLN>*<MO2>+0.71461*K111*<ALKAP>*<CARBOP>+0.68374*K
+!112*<ALKEP>*<CARBOP>+0.00000*K113*<BIOP>*<CARBOP>+0.06969*K115*<CARBOP>*<CARBO
+!P>+0.42122*K116*<OLN>*<CARBOP>+0.00000*K118*<OLN>*<OLN>+0.33743*K120*<ALKAP>*<
+!NO3>+0.43039*K121*<ALKEP>*<NO3>+0.00000*K122*<BIOP>*<NO3>+0.02936*K124*<CARBOP
+!>*<NO3>+0.91850*K125*<OLN>*<NO3>
+ PPROD(:,23) = +0.96205*TPK%K014(:)*PCONC(:,29)+0.20*TPK%K017(:)*PCONC(:,26)+TP&
+&K%K055(:)*PCONC(:,25)*TPK%O3P(:)+0.08173*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)+0&
+&.06253*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)+0.07335*TPK%K069(:)*PCONC(:,29)*PCO&
+&NC(:,14)+0.05265*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)+0.51468*TPK%K079(:)*PCONC(&
+&:,19)*PCONC(:,1)+0.00000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)+0.15692*TPK%K081(:&
+&)*PCONC(:,25)*PCONC(:,1)+0.33144*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)+0.42125*TP&
+&K%K092(:)*PCONC(:,34)*PCONC(:,3)+0.00000*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)+0.&
+&07368*TPK%K095(:)*PCONC(:,39)*PCONC(:,3)+1.01182*TPK%K096(:)*PCONC(:,40)*PCONC&
+&(:,3)+0.56070*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)+0.46413*TPK%K106(:)*PCONC(:,&
+&34)*PCONC(:,32)+0.00000*TPK%K107(:)*PCONC(:,35)*PCONC(:,32)+0.08295*TPK%K109(:&
+&)*PCONC(:,39)*PCONC(:,32)+0.41524*TPK%K110(:)*PCONC(:,40)*PCONC(:,32)+0.71461*&
+&TPK%K111(:)*PCONC(:,33)*PCONC(:,39)+0.68374*TPK%K112(:)*PCONC(:,34)*PCONC(:,39&
+&)+0.00000*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)+0.06969*TPK%K115(:)*PCONC(:,39)*&
+&PCONC(:,39)+0.42122*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)+0.00000*TPK%K118(:)*PC&
+&ONC(:,40)*PCONC(:,40)+0.33743*TPK%K120(:)*PCONC(:,33)*PCONC(:,5)+0.43039*TPK%K&
+&121(:)*PCONC(:,34)*PCONC(:,5)+0.00000*TPK%K122(:)*PCONC(:,35)*PCONC(:,5)+0.029&
+&36*TPK%K124(:)*PCONC(:,39)*PCONC(:,5)+0.91850*TPK%K125(:)*PCONC(:,40)*PCONC(:,&
+&5)
+!PLOSS(ALD) = +K012+K063*<OH>+K073*<NO3>
+ PLOSS(:,23) = +TPK%K012(:)+TPK%K063(:)*PCONC(:,14)+TPK%K073(:)*PCONC(:,5)
+!
+!PPROD(KET) = +0.80*K017*<ONIT>+0.03498*K058*<ALKA>*<OH>+0.00853*K065*<CARBO>*<
+!OH>+0.37591*K069*<OP2>*<OH>+0.00632*K074*<CARBO>*<NO3>+0.07377*K079*<ALKE>*<O3
+!>+0.00000*K080*<BIO>*<O3>+0.54531*K091*<ALKAP>*<NO>+0.05220*K092*<ALKEP>*<NO>+
+!0.00000*K093*<BIOP>*<NO>+0.37862*K096*<OLN>*<NO>+0.09673*K105*<ALKAP>*<MO2>+0.
+!03814*K106*<ALKEP>*<MO2>+0.00000*K107*<BIOP>*<MO2>+0.09667*K110*<OLN>*<MO2>+0.
+!18819*K111*<ALKAP>*<CARBOP>+0.06579*K112*<ALKEP>*<CARBOP>+0.00000*K113*<BIOP>*
+!<CARBOP>+0.02190*K115*<CARBOP>*<CARBOP>+0.10822*K116*<OLN>*<CARBOP>+0.00000*K1
+!18*<OLN>*<OLN>+0.62978*K120*<ALKAP>*<NO3>+0.02051*K121*<ALKEP>*<NO3>+0.00000*K
+!122*<BIOP>*<NO3>+0.34740*K125*<OLN>*<NO3>
+ PPROD(:,24) = +0.80*TPK%K017(:)*PCONC(:,26)+0.03498*TPK%K058(:)*PCONC(:,18)*PC&
+&ONC(:,14)+0.00853*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)+0.37591*TPK%K069(:)*PCON&
+&C(:,29)*PCONC(:,14)+0.00632*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)+0.07377*TPK%K07&
+&9(:)*PCONC(:,19)*PCONC(:,1)+0.00000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)+0.54531&
+&*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)+0.05220*TPK%K092(:)*PCONC(:,34)*PCONC(:,3)&
+&+0.00000*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)+0.37862*TPK%K096(:)*PCONC(:,40)*PC&
+&ONC(:,3)+0.09673*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)+0.03814*TPK%K106(:)*PCONC&
+&(:,34)*PCONC(:,32)+0.00000*TPK%K107(:)*PCONC(:,35)*PCONC(:,32)+0.09667*TPK%K11&
+&0(:)*PCONC(:,40)*PCONC(:,32)+0.18819*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)+0.065&
+&79*TPK%K112(:)*PCONC(:,34)*PCONC(:,39)+0.00000*TPK%K113(:)*PCONC(:,35)*PCONC(:&
+&,39)+0.02190*TPK%K115(:)*PCONC(:,39)*PCONC(:,39)+0.10822*TPK%K116(:)*PCONC(:,4&
+&0)*PCONC(:,39)+0.00000*TPK%K118(:)*PCONC(:,40)*PCONC(:,40)+0.62978*TPK%K120(:)&
+&*PCONC(:,33)*PCONC(:,5)+0.02051*TPK%K121(:)*PCONC(:,34)*PCONC(:,5)+0.00000*TPK&
+&%K122(:)*PCONC(:,35)*PCONC(:,5)+0.34740*TPK%K125(:)*PCONC(:,40)*PCONC(:,5)
+!PLOSS(KET) = +K015+K064*<OH>
+ PLOSS(:,24) = +TPK%K015(:)+TPK%K064(:)*PCONC(:,14)
+!
+!PPROD(CARBO) = +0.13255*K054*<BIO>*<O3P>+0.00835*K058*<ALKA>*<OH>+0.16919*K065
+!*<CARBO>*<OH>+0.21863*K070*<PAN>*<OH>+0.10530*K074*<CARBO>*<NO3>+0.00000*K076*
+!<ALKE>*<NO3>+0.91741*K077*<BIO>*<NO3>+0.00000*K079*<ALKE>*<O3>+0.39754*K080*<B
+!IO>*<O3>+1.07583*K081*<CARBO>*<O3>+0.03407*K091*<ALKAP>*<NO>+0.45463*K093*<BIO
+!P>*<NO>+2.06993*K094*<AROP>*<NO>+0.08670*K095*<CARBOP>*<NO>+0.07976*K105*<ALKA
+!P>*<MO2>+0.56064*K107*<BIOP>*<MO2>+1.99461*K108*<AROP>*<MO2>+0.15387*K109*<CAR
+!BOP>*<MO2>+0.06954*K111*<ALKAP>*<CARBOP>+0.78591*K113*<BIOP>*<CARBOP>+1.99455*
+!K114*<AROP>*<CARBOP>+0.10777*K115*<CARBOP>*<CARBOP>+0.03531*K120*<ALKAP>*<NO3>
+!+0.61160*K122*<BIOP>*<NO3>+2.81904*K123*<AROP>*<NO3>+0.03455*K124*<CARBOP>*<NO
+!3>
+ PPROD(:,25) = +0.13255*TPK%K054(:)*PCONC(:,20)*TPK%O3P(:)+0.00835*TPK%K058(:)*&
+&PCONC(:,18)*PCONC(:,14)+0.16919*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)+0.21863*TP&
+&K%K070(:)*PCONC(:,27)*PCONC(:,14)+0.10530*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)+0&
+&.00000*TPK%K076(:)*PCONC(:,19)*PCONC(:,5)+0.91741*TPK%K077(:)*PCONC(:,20)*PCON&
+&C(:,5)+0.00000*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)+0.39754*TPK%K080(:)*PCONC(:,&
+&20)*PCONC(:,1)+1.07583*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)+0.03407*TPK%K091(:)*&
+&PCONC(:,33)*PCONC(:,3)+0.45463*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)+2.06993*TPK%&
+&K094(:)*PCONC(:,38)*PCONC(:,3)+0.08670*TPK%K095(:)*PCONC(:,39)*PCONC(:,3)+0.07&
+&976*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)+0.56064*TPK%K107(:)*PCONC(:,35)*PCONC(&
+&:,32)+1.99461*TPK%K108(:)*PCONC(:,38)*PCONC(:,32)+0.15387*TPK%K109(:)*PCONC(:,&
+&39)*PCONC(:,32)+0.06954*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)+0.78591*TPK%K113(:&
+&)*PCONC(:,35)*PCONC(:,39)+1.99455*TPK%K114(:)*PCONC(:,38)*PCONC(:,39)+0.10777*&
+&TPK%K115(:)*PCONC(:,39)*PCONC(:,39)+0.03531*TPK%K120(:)*PCONC(:,33)*PCONC(:,5)&
+&+0.61160*TPK%K122(:)*PCONC(:,35)*PCONC(:,5)+2.81904*TPK%K123(:)*PCONC(:,38)*PC&
+&ONC(:,5)+0.03455*TPK%K124(:)*PCONC(:,39)*PCONC(:,5)
+!PLOSS(CARBO) = +K016+K055*<O3P>+K065*<OH>+K074*<NO3>+K081*<O3>
+ PLOSS(:,25) = +TPK%K016(:)+TPK%K055(:)*TPK%O3P(:)+TPK%K065(:)*PCONC(:,14)+TPK%&
+&K074(:)*PCONC(:,5)+TPK%K081(:)*PCONC(:,1)
+!
+!PPROD(ONIT) = +0.60*K078*<PAN>*<NO3>+K083*<PHO>*<NO2>+0.08459*K091*<ALKAP>*<NO
+!>+0.15300*K093*<BIOP>*<NO>+0.04885*K094*<AROP>*<NO>+0.18401*K096*<OLN>*<NO>+K1
+!03*<OLN>*<HO2>+0.67560*K110*<OLN>*<MO2>+0.66562*K116*<OLN>*<CARBOP>+2.00*K117*
+!<OLN>*<OLN>+0.00000*K118*<OLN>*<OLN>+0.25928*K125*<OLN>*<NO3>
+ PPROD(:,26) = +0.60*TPK%K078(:)*PCONC(:,27)*PCONC(:,5)+TPK%K083(:)*PCONC(:,36)&
+&*PCONC(:,4)+0.08459*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)+0.15300*TPK%K093(:)*PCO&
+&NC(:,35)*PCONC(:,3)+0.04885*TPK%K094(:)*PCONC(:,38)*PCONC(:,3)+0.18401*TPK%K09&
+&6(:)*PCONC(:,40)*PCONC(:,3)+TPK%K103(:)*PCONC(:,40)*PCONC(:,15)+0.67560*TPK%K1&
+&10(:)*PCONC(:,40)*PCONC(:,32)+0.66562*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)+2.00&
+&*TPK%K117(:)*PCONC(:,40)*PCONC(:,40)+0.00000*TPK%K118(:)*PCONC(:,40)*PCONC(:,4&
+&0)+0.25928*TPK%K125(:)*PCONC(:,40)*PCONC(:,5)
+!PLOSS(ONIT) = +K017+K071*<OH>
+ PLOSS(:,26) = +TPK%K017(:)+TPK%K071(:)*PCONC(:,14)
+!
+!PPROD(PAN) = +0.28107*K070*<PAN>*<OH>+0.40000*K078*<PAN>*<NO3>+0.30000*K082*<P
+!AN>*<O3>+1.00000*K088*<CARBOP>*<NO2>
+ PPROD(:,27) = +0.28107*TPK%K070(:)*PCONC(:,27)*PCONC(:,14)+0.40000*TPK%K078(:)&
+&*PCONC(:,27)*PCONC(:,5)+0.30000*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)+1.00000*TPK&
+&%K088(:)*PCONC(:,39)*PCONC(:,4)
+!PLOSS(PAN) = +K070*<OH>+K078*<NO3>+K082*<O3>+K089
+ PLOSS(:,27) = +TPK%K070(:)*PCONC(:,14)+TPK%K078(:)*PCONC(:,5)+TPK%K082(:)*PCON&
+&C(:,1)+TPK%K089(:)
+!
+!PPROD(OP1) = +K097*<MO2>*<HO2>+KTC40*<WC_OP1>+KTR40*<WR_OP1>
+ PPROD(:,28) = +TPK%K097(:)*PCONC(:,32)*PCONC(:,15)+TPK%KTC40(:)*PCONC(:,61)+TP&
+&K%KTR40(:)*PCONC(:,86)
+!PLOSS(OP1) = +K013+K068*<OH>+KTC20+KTR20
+ PLOSS(:,28) = +TPK%K013(:)+TPK%K068(:)*PCONC(:,14)+TPK%KTC20(:)+TPK%KTR20(:)
+!
+!PPROD(OP2) = +0.10149*K081*<CARBO>*<O3>+1.00524*K098*<ALKAP>*<HO2>+1.00524*K09
+!9*<ALKEP>*<HO2>+1.00524*K0100*<BIOP>*<HO2>+1.00524*K0101*<AROP>*<HO2>+0.80904*
+!K0102*<CARBOP>*<HO2>+1.00524*K126*<XO2>*<HO2>
+ PPROD(:,29) = +0.10149*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)+1.00524*TPK%K098(:)*&
+&PCONC(:,33)*PCONC(:,15)+1.00524*TPK%K099(:)*PCONC(:,34)*PCONC(:,15)+1.00524*TP&
+&K%K0100(:)*PCONC(:,35)*PCONC(:,15)+1.00524*TPK%K0101(:)*PCONC(:,38)*PCONC(:,15&
+&)+0.80904*TPK%K0102(:)*PCONC(:,39)*PCONC(:,15)+1.00524*TPK%K126(:)*PCONC(:,41)&
+&*PCONC(:,15)
+!PLOSS(OP2) = +K014+K069*<OH>
+ PLOSS(:,29) = +TPK%K014(:)+TPK%K069(:)*PCONC(:,14)
+!
+!PPROD(ORA1) = +0.00878*K058*<ALKA>*<OH>+0.15343*K079*<ALKE>*<O3>+0.15000*K080*
+!<BIO>*<O3>+0.10788*K081*<CARBO>*<O3>+0.11*K082*<PAN>*<O3>+KTC37*<WC_ORA1>+KTR3
+!7*<WR_ORA1>
+ PPROD(:,30) = +0.00878*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)+0.15343*TPK%K079(:)&
+&*PCONC(:,19)*PCONC(:,1)+0.15000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)+0.10788*TPK&
+&%K081(:)*PCONC(:,25)*PCONC(:,1)+0.11*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)+TPK%KT&
+&C37(:)*PCONC(:,58)+TPK%KTR37(:)*PCONC(:,83)
+!PLOSS(ORA1) = +K066*<OH>+KTC17+KTR17
+ PLOSS(:,30) = +TPK%K066(:)*PCONC(:,14)+TPK%KTC17(:)+TPK%KTR17(:)
!
RETURN
END SUBROUTINE SUB2
@@ -10240,68 +4507,128 @@ SUBROUTINE SUB3
!Indices 31 a 40
!
!
-!PPROD(KETH) = 0.0
- PPROD(:,31) = 0.0
-!PLOSS(KETH) = +K070*<OH>+K071
- PLOSS(:,31) = +TPK%K070(:)*PCONC(:,15)+TPK%K071(:)
-!
-!PPROD(MEOH) = +KTC49*<WC_MEOH>+KTR49*<WR_MEOH>
- PPROD(:,32) = +TPK%KTC49(:)*PCONC(:,105)+TPK%KTR49(:)*PCONC(:,142)
-!PLOSS(MEOH) = +K048*<OH>+KTC18+KTR18
- PLOSS(:,32) = +TPK%K048(:)*PCONC(:,15)+TPK%KTC18(:)+TPK%KTR18(:)
-!
-!PPROD(ETOH) = +KTC50*<WC_ETOH>+KTR50*<WR_ETOH>
- PPROD(:,33) = +TPK%KTC50(:)*PCONC(:,106)+TPK%KTR50(:)*PCONC(:,143)
-!PLOSS(ETOH) = +K053*<OH>+KTC19+KTR19
- PLOSS(:,33) = +TPK%K053(:)*PCONC(:,15)+TPK%KTC19(:)+TPK%KTR19(:)
-!
-!PPROD(ALCH) = +KTC51*<WC_ALCH>+KTR51*<WR_ALCH>
- PPROD(:,34) = +TPK%KTC51(:)*PCONC(:,107)+TPK%KTR51(:)*PCONC(:,144)
-!PLOSS(ALCH) = +K069*<OH>+KTC20+KTR20
- PLOSS(:,34) = +TPK%K069(:)*PCONC(:,15)+TPK%KTC20(:)+TPK%KTR20(:)
-!
-!PPROD(ISOP) = 0.0
- PPROD(:,35) = 0.0
-!PLOSS(ISOP) = +K064*<OH>+K065*<NO3>+K066*<O3>+K067*<O>
- PLOSS(:,35) = +TPK%K064(:)*PCONC(:,15)+TPK%K065(:)*PCONC(:,8)+TPK%K066(:)*PCON&
-&C(:,3)+TPK%K067(:)*TPK%O(:)
-!
-!PPROD(BIOL) = 0.0
- PPROD(:,36) = 0.0
-!PLOSS(BIOL) = +K084*<OH>+K085*<NO3>+K086*<O3>+K087*<O>
- PLOSS(:,36) = +TPK%K084(:)*PCONC(:,15)+TPK%K085(:)*PCONC(:,8)+TPK%K086(:)*PCON&
-&C(:,3)+TPK%K087(:)*TPK%O(:)
-!
-!PPROD(BIOH) = 0.0
- PPROD(:,37) = 0.0
-!PLOSS(BIOH) = +K088*<OH>+K089*<NO3>+K090*<O3>+K091*<O>
- PLOSS(:,37) = +TPK%K088(:)*PCONC(:,15)+TPK%K089(:)*PCONC(:,8)+TPK%K090(:)*PCON&
-&C(:,3)+TPK%K091(:)*TPK%O(:)
-!
-!PPROD(MTBE) = 0.0
- PPROD(:,38) = 0.0
-!PLOSS(MTBE) = +K068*<OH>
- PLOSS(:,38) = +TPK%K068(:)*PCONC(:,15)
-!
-!PPROD(MVK) = +0.389*K066*<O3>*<ISOP>+TPK%CF6*K150*<NO>*<RO29>+K151*<RO2T>*<RO2
-!9>+K152*<HO2>*<RO29>+K156*<NO>*<RO211>+K157*<RO2T>*<RO211>+K158*<HO2>*<RO211>
- PPROD(:,39) = +0.389*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)+TPK%CF6*TPK%K150(:)*PC&
-&ONC(:,1)*TPK%RO29(:)+TPK%K151(:)*PCONC(:,85)*TPK%RO29(:)+TPK%K152(:)*PCONC(:,1&
-&0)*TPK%RO29(:)+TPK%K156(:)*PCONC(:,1)*TPK%RO211(:)+TPK%K157(:)*PCONC(:,85)*TPK&
-&%RO211(:)+TPK%K158(:)*PCONC(:,10)*TPK%RO211(:)
-!PLOSS(MVK) = +K272*<OH>+K281*<O3>+K283*<O>
- PLOSS(:,39) = +TPK%K272(:)*PCONC(:,15)+TPK%K281(:)*PCONC(:,3)+TPK%K283(:)*TPK%&
-&O(:)
-!
-!PPROD(MCR) = +0.17*K066*<O3>*<ISOP>+K153*<NO>*<RO210>+K154*<RO2T>*<RO210>+K155
-!*<HO2>*<RO210>+K159*<NO>*<RO212>+K160*<RO2T>*<RO212>+K161*<HO2>*<RO212>
- PPROD(:,40) = +0.17*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)+TPK%K153(:)*PCONC(:,1)*&
-&TPK%RO210(:)+TPK%K154(:)*PCONC(:,85)*TPK%RO210(:)+TPK%K155(:)*PCONC(:,10)*TPK%&
-&RO210(:)+TPK%K159(:)*PCONC(:,1)*TPK%RO212(:)+TPK%K160(:)*PCONC(:,85)*TPK%RO212&
-&(:)+TPK%K161(:)*PCONC(:,10)*TPK%RO212(:)
-!PLOSS(MCR) = +K273*<OH>+K275*<NO3>+K282*<O3>+K284*<O>
- PLOSS(:,40) = +TPK%K273(:)*PCONC(:,15)+TPK%K275(:)*PCONC(:,8)+TPK%K282(:)*PCON&
-&C(:,3)+TPK%K284(:)*TPK%O(:)
+!PPROD(ORA2) = +0.08143*K079*<ALKE>*<O3>+0.00000*K080*<BIO>*<O3>+0.20595*K081*<
+!CARBO>*<O3>+0.17307*K0102*<CARBOP>*<HO2>+0.13684*K109*<CARBOP>*<MO2>+0.49810*K
+!111*<ALKAP>*<CARBOP>+0.49922*K112*<ALKEP>*<CARBOP>+0.49400*K113*<BIOP>*<CARBOP
+!>+0.09955*K115*<CARBOP>*<CARBOP>+0.48963*K116*<OLN>*<CARBOP>+KTC38*<WC_ORA2>+K
+!TR38*<WR_ORA2>
+ PPROD(:,31) = +0.08143*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)+0.00000*TPK%K080(:)*&
+&PCONC(:,20)*PCONC(:,1)+0.20595*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)+0.17307*TPK%&
+&K0102(:)*PCONC(:,39)*PCONC(:,15)+0.13684*TPK%K109(:)*PCONC(:,39)*PCONC(:,32)+0&
+&.49810*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)+0.49922*TPK%K112(:)*PCONC(:,34)*PCO&
+&NC(:,39)+0.49400*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)+0.09955*TPK%K115(:)*PCONC&
+&(:,39)*PCONC(:,39)+0.48963*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)+TPK%KTC38(:)*PC&
+&ONC(:,59)+TPK%KTR38(:)*PCONC(:,84)
+!PLOSS(ORA2) = +K067*<OH>+KTC18+KTR18
+ PLOSS(:,31) = +TPK%K067(:)*PCONC(:,14)+TPK%KTC18(:)+TPK%KTR18(:)
+!
+!PPROD(MO2) = +K012*<ALD>+0.03795*K014*<OP2>+K056*<CH4>*<OH>+0.65*K068*<OP1>*<O
+!H>+0.13966*K079*<ALKE>*<O3>+0.03000*K080*<BIO>*<O3>+0.09016*K091*<ALKAP>*<NO>+
+!0.78134*K095*<CARBOP>*<NO>+0.01390*K105*<ALKAP>*<MO2>+0.56031*K109*<CARBOP>*<M
+!O2>+0.51480*K111*<ALKAP>*<CARBOP>+0.50078*K112*<ALKEP>*<CARBOP>+0.50600*K113*<
+!BIOP>*<CARBOP>+K114*<AROP>*<CARBOP>+1.66702*K115*<CARBOP>*<CARBOP>+0.51037*K11
+!6*<OLN>*<CARBOP>+0.09731*K120*<ALKAP>*<NO3>+0.91910*K124*<CARBOP>*<NO3>+K128*<
+!XO2>*<CARBOP>+KTC39*<WC_MO2>+KTR39*<WR_MO2>
+ PPROD(:,32) = +TPK%K012(:)*PCONC(:,23)+0.03795*TPK%K014(:)*PCONC(:,29)+TPK%K05&
+&6(:)*PCONC(:,16)*PCONC(:,14)+0.65*TPK%K068(:)*PCONC(:,28)*PCONC(:,14)+0.13966*&
+&TPK%K079(:)*PCONC(:,19)*PCONC(:,1)+0.03000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)+&
+&0.09016*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)+0.78134*TPK%K095(:)*PCONC(:,39)*PCO&
+&NC(:,3)+0.01390*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)+0.56031*TPK%K109(:)*PCONC(&
+&:,39)*PCONC(:,32)+0.51480*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)+0.50078*TPK%K112&
+&(:)*PCONC(:,34)*PCONC(:,39)+0.50600*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)+TPK%K1&
+&14(:)*PCONC(:,38)*PCONC(:,39)+1.66702*TPK%K115(:)*PCONC(:,39)*PCONC(:,39)+0.51&
+&037*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)+0.09731*TPK%K120(:)*PCONC(:,33)*PCONC(&
+&:,5)+0.91910*TPK%K124(:)*PCONC(:,39)*PCONC(:,5)+TPK%K128(:)*PCONC(:,41)*PCONC(&
+&:,39)+TPK%KTC39(:)*PCONC(:,60)+TPK%KTR39(:)*PCONC(:,85)
+!PLOSS(MO2) = +K090*<NO>+K097*<HO2>+K104*<MO2>+K104*<MO2>+K105*<ALKAP>+K106*<AL
+!KEP>+K107*<BIOP>+K108*<AROP>+K109*<CARBOP>+K110*<OLN>+K119*<NO3>+K127*<XO2>+KT
+!C19+KTR19
+ PLOSS(:,32) = +TPK%K090(:)*PCONC(:,3)+TPK%K097(:)*PCONC(:,15)+TPK%K104(:)*PCON&
+&C(:,32)+TPK%K104(:)*PCONC(:,32)+TPK%K105(:)*PCONC(:,33)+TPK%K106(:)*PCONC(:,34&
+&)+TPK%K107(:)*PCONC(:,35)+TPK%K108(:)*PCONC(:,38)+TPK%K109(:)*PCONC(:,39)+TPK%&
+&K110(:)*PCONC(:,40)+TPK%K119(:)*PCONC(:,5)+TPK%K127(:)*PCONC(:,41)+TPK%KTC19(:&
+&)+TPK%KTR19(:)
+!
+!PPROD(ALKAP) = +1.00000*K015*<KET>+K057*<ETH>*<OH>+0.87811*K058*<ALKA>*<OH>+0.
+!40341*K069*<OP2>*<OH>+1.00000*K071*<ONIT>*<OH>+0.09815*K079*<ALKE>*<O3>+0.0000
+!0*K080*<BIO>*<O3>+0.08187*K091*<ALKAP>*<NO>+0.00385*K105*<ALKAP>*<MO2>+0.00828
+!*K111*<ALKAP>*<CARBOP>+0.08994*K120*<ALKAP>*<NO3>
+ PPROD(:,33) = +1.00000*TPK%K015(:)*PCONC(:,24)+TPK%K057(:)*PCONC(:,17)*PCONC(:&
+&,14)+0.87811*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)+0.40341*TPK%K069(:)*PCONC(:,2&
+&9)*PCONC(:,14)+1.00000*TPK%K071(:)*PCONC(:,26)*PCONC(:,14)+0.09815*TPK%K079(:)&
+&*PCONC(:,19)*PCONC(:,1)+0.00000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)+0.08187*TPK&
+&%K091(:)*PCONC(:,33)*PCONC(:,3)+0.00385*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)+0.&
+&00828*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)+0.08994*TPK%K120(:)*PCONC(:,33)*PCON&
+&C(:,5)
+!PLOSS(ALKAP) = +K091*<NO>+K098*<HO2>+K105*<MO2>+K111*<CARBOP>+K120*<NO3>
+ PLOSS(:,33) = +TPK%K091(:)*PCONC(:,3)+TPK%K098(:)*PCONC(:,15)+TPK%K105(:)*PCON&
+&C(:,32)+TPK%K111(:)*PCONC(:,39)+TPK%K120(:)*PCONC(:,5)
+!
+!PPROD(ALKEP) = +1.02529*K059*<ALKE>*<OH>
+ PPROD(:,34) = +1.02529*TPK%K059(:)*PCONC(:,19)*PCONC(:,14)
+!PLOSS(ALKEP) = +K092*<NO>+K099*<HO2>+K106*<MO2>+K112*<CARBOP>+K121*<NO3>
+ PLOSS(:,34) = +TPK%K092(:)*PCONC(:,3)+TPK%K099(:)*PCONC(:,15)+TPK%K106(:)*PCON&
+&C(:,32)+TPK%K112(:)*PCONC(:,39)+TPK%K121(:)*PCONC(:,5)
+!
+!PPROD(BIOP) = +0.00000*K059*<ALKE>*<OH>+1.00000*K060*<BIO>*<OH>
+ PPROD(:,35) = +0.00000*TPK%K059(:)*PCONC(:,19)*PCONC(:,14)+1.00000*TPK%K060(:)&
+&*PCONC(:,20)*PCONC(:,14)
+!PLOSS(BIOP) = +K093*<NO>+K0100*<HO2>+K107*<MO2>+K113*<CARBOP>+K122*<NO3>
+ PLOSS(:,35) = +TPK%K093(:)*PCONC(:,3)+TPK%K0100(:)*PCONC(:,15)+TPK%K107(:)*PCO&
+&NC(:,32)+TPK%K113(:)*PCONC(:,39)+TPK%K122(:)*PCONC(:,5)
+!
+!PPROD(PHO) = +0.00276*K061*<ARO>*<OH>+K075*<ARO>*<NO3>
+ PPROD(:,36) = +0.00276*TPK%K061(:)*PCONC(:,21)*PCONC(:,14)+TPK%K075(:)*PCONC(:&
+&,21)*PCONC(:,5)
+!PLOSS(PHO) = +K083*<NO2>+K084*<HO2>
+ PLOSS(:,36) = +TPK%K083(:)*PCONC(:,4)+TPK%K084(:)*PCONC(:,15)
+!
+!PPROD(ADD) = +0.93968*K061*<ARO>*<OH>
+ PPROD(:,37) = +0.93968*TPK%K061(:)*PCONC(:,21)*PCONC(:,14)
+!PLOSS(ADD) = +K085*<NO2>+K086*<O2>+K087*<O3>
+ PLOSS(:,37) = +TPK%K085(:)*PCONC(:,4)+TPK%K086(:)*TPK%O2(:)+TPK%K087(:)*PCONC(&
+&:,1)
+!
+!PPROD(AROP) = +0.98*K086*<ADD>*<O2>
+ PPROD(:,38) = +0.98*TPK%K086(:)*PCONC(:,37)*TPK%O2(:)
+!PLOSS(AROP) = +K094*<NO>+K0101*<HO2>+K108*<MO2>+K114*<CARBOP>+K123*<NO3>
+ PLOSS(:,38) = +TPK%K094(:)*PCONC(:,3)+TPK%K0101(:)*PCONC(:,15)+TPK%K108(:)*PCO&
+&NC(:,32)+TPK%K114(:)*PCONC(:,39)+TPK%K123(:)*PCONC(:,5)
+!
+!PPROD(CARBOP) = +1.00000*K015*<KET>+0.69622*K016*<CARBO>+1.00000*K063*<ALD>*<O
+!H>+1.00000*K064*<KET>*<OH>+0.51419*K065*<CARBO>*<OH>+0.05413*K069*<OP2>*<OH>+1
+!.00000*K073*<ALD>*<NO3>+0.38881*K074*<CARBO>*<NO3>+0.05705*K079*<ALKE>*<O3>+0.
+!17000*K080*<BIO>*<O3>+0.27460*K081*<CARBO>*<O3>+0.70000*K082*<PAN>*<O3>+1.0000
+!0*K089*<PAN>+0.09532*K095*<CARBOP>*<NO>+0.05954*K109*<CARBOP>*<MO2>+0.05821*K1
+!15*<CARBOP>*<CARBOP>+0.03175*K124*<CARBOP>*<NO3>
+ PPROD(:,39) = +1.00000*TPK%K015(:)*PCONC(:,24)+0.69622*TPK%K016(:)*PCONC(:,25)&
+&+1.00000*TPK%K063(:)*PCONC(:,23)*PCONC(:,14)+1.00000*TPK%K064(:)*PCONC(:,24)*P&
+&CONC(:,14)+0.51419*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)+0.05413*TPK%K069(:)*PCO&
+&NC(:,29)*PCONC(:,14)+1.00000*TPK%K073(:)*PCONC(:,23)*PCONC(:,5)+0.38881*TPK%K0&
+&74(:)*PCONC(:,25)*PCONC(:,5)+0.05705*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)+0.1700&
+&0*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)+0.27460*TPK%K081(:)*PCONC(:,25)*PCONC(:,1&
+&)+0.70000*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)+1.00000*TPK%K089(:)*PCONC(:,27)+0&
+&.09532*TPK%K095(:)*PCONC(:,39)*PCONC(:,3)+0.05954*TPK%K109(:)*PCONC(:,39)*PCON&
+&C(:,32)+0.05821*TPK%K115(:)*PCONC(:,39)*PCONC(:,39)+0.03175*TPK%K124(:)*PCONC(&
+&:,39)*PCONC(:,5)
+!PLOSS(CARBOP) = +K088*<NO2>+K095*<NO>+K0102*<HO2>+K109*<MO2>+K111*<ALKAP>+K112
+!*<ALKEP>+K113*<BIOP>+K114*<AROP>+K115*<CARBOP>+K115*<CARBOP>+K116*<OLN>+K124*<
+!NO3>+K128*<XO2>
+ PLOSS(:,39) = +TPK%K088(:)*PCONC(:,4)+TPK%K095(:)*PCONC(:,3)+TPK%K0102(:)*PCON&
+&C(:,15)+TPK%K109(:)*PCONC(:,32)+TPK%K111(:)*PCONC(:,33)+TPK%K112(:)*PCONC(:,34&
+&)+TPK%K113(:)*PCONC(:,35)+TPK%K114(:)*PCONC(:,38)+TPK%K115(:)*PCONC(:,39)+TPK%&
+&K115(:)*PCONC(:,39)+TPK%K116(:)*PCONC(:,40)+TPK%K124(:)*PCONC(:,5)+TPK%K128(:)&
+&*PCONC(:,41)
+!
+!PPROD(OLN) = +0.00000*K074*<CARBO>*<NO3>+0.93768*K076*<ALKE>*<NO3>+1.00000*K07
+!7*<BIO>*<NO3>
+ PPROD(:,40) = +0.00000*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)+0.93768*TPK%K076(:)*&
+&PCONC(:,19)*PCONC(:,5)+1.00000*TPK%K077(:)*PCONC(:,20)*PCONC(:,5)
+!PLOSS(OLN) = +K096*<NO>+K103*<HO2>+K110*<MO2>+K116*<CARBOP>+K117*<OLN>+K117*<O
+!LN>+K118*<OLN>+K118*<OLN>+K125*<NO3>
+ PLOSS(:,40) = +TPK%K096(:)*PCONC(:,3)+TPK%K103(:)*PCONC(:,15)+TPK%K110(:)*PCON&
+&C(:,32)+TPK%K116(:)*PCONC(:,39)+TPK%K117(:)*PCONC(:,40)+TPK%K117(:)*PCONC(:,40&
+&)+TPK%K118(:)*PCONC(:,40)+TPK%K118(:)*PCONC(:,40)+TPK%K125(:)*PCONC(:,5)
!
RETURN
END SUBROUTINE SUB3
@@ -10311,96 +4638,79 @@ SUBROUTINE SUB4
!Indices 41 a 50
!
!
-!PPROD(MGLY) = +K234*<NO>*<RO242>+K235*<RO2T>*<RO242>+K236*<HO2>*<RO242>+K241*<
-!NO>*<RO243>+K242*<RO2T>*<RO243>+K243*<HO2>*<RO243>+K248*<NO>*<RO244>+K249*<RO2
-!T>*<RO244>+K250*<HO2>*<RO244>+K255*<NO>*<RO245>+K256*<RO2T>*<RO245>+K257*<HO2>
-!*<RO245>+K262*<NO>*<RO246>+K263*<RO2T>*<RO246>+K264*<HO2>*<RO246>+K269*<NO>*<R
-!O247>+K270*<RO2T>*<RO247>+K271*<HO2>*<RO247>+0.5*K281*<O3>*<MVK>+0.59*K282*<O3
-!>*<MCR>+K285*<NO>*<RO249>+K286*<RO2T>*<RO249>+K287*<HO2>*<RO249>+K291*<NO>*<RO
-!251>+K292*<HO2>*<RO251>+K293*<RO2T>*<RO251>+K294*<NO>*<RO252>+K295*<HO2>*<RO25
-!2>+K296*<RO2T>*<RO252>+KTC56*<WC_MGLY>+KTR56*<WR_MGLY>
- PPROD(:,41) = +TPK%K234(:)*PCONC(:,1)*TPK%RO242(:)+TPK%K235(:)*PCONC(:,85)*TPK&
-&%RO242(:)+TPK%K236(:)*PCONC(:,10)*TPK%RO242(:)+TPK%K241(:)*PCONC(:,1)*TPK%RO24&
-&3(:)+TPK%K242(:)*PCONC(:,85)*TPK%RO243(:)+TPK%K243(:)*PCONC(:,10)*TPK%RO243(:)&
-&+TPK%K248(:)*PCONC(:,1)*TPK%RO244(:)+TPK%K249(:)*PCONC(:,85)*TPK%RO244(:)+TPK%&
-&K250(:)*PCONC(:,10)*TPK%RO244(:)+TPK%K255(:)*PCONC(:,1)*TPK%RO245(:)+TPK%K256(&
-&:)*PCONC(:,85)*TPK%RO245(:)+TPK%K257(:)*PCONC(:,10)*TPK%RO245(:)+TPK%K262(:)*P&
-&CONC(:,1)*TPK%RO246(:)+TPK%K263(:)*PCONC(:,85)*TPK%RO246(:)+TPK%K264(:)*PCONC(&
-&:,10)*TPK%RO246(:)+TPK%K269(:)*PCONC(:,1)*TPK%RO247(:)+TPK%K270(:)*PCONC(:,85)&
-&*TPK%RO247(:)+TPK%K271(:)*PCONC(:,10)*TPK%RO247(:)+0.5*TPK%K281(:)*PCONC(:,3)*&
-&PCONC(:,39)+0.59*TPK%K282(:)*PCONC(:,3)*PCONC(:,40)+TPK%K285(:)*PCONC(:,1)*TPK&
-&%RO249(:)+TPK%K286(:)*PCONC(:,85)*TPK%RO249(:)+TPK%K287(:)*PCONC(:,10)*TPK%RO2&
-&49(:)+TPK%K291(:)*PCONC(:,1)*TPK%RO251(:)+TPK%K292(:)*PCONC(:,10)*TPK%RO251(:)&
-&+TPK%K293(:)*PCONC(:,85)*TPK%RO251(:)+TPK%K294(:)*PCONC(:,1)*TPK%RO252(:)+TPK%&
-&K295(:)*PCONC(:,10)*TPK%RO252(:)+TPK%K296(:)*PCONC(:,85)*TPK%RO252(:)+TPK%KTC5&
-&6(:)*PCONC(:,111)+TPK%KTR56(:)*PCONC(:,148)
-!PLOSS(MGLY) = +K274*<OH>+K276+K278*<NO3>+KTC25+KTR25
- PLOSS(:,41) = +TPK%K274(:)*PCONC(:,15)+TPK%K276(:)+TPK%K278(:)*PCONC(:,8)+TPK%&
-&KTC25(:)+TPK%KTR25(:)
-!
-!PPROD(GLY) = +KTC54*<WC_GLY>+KTR54*<WR_GLY>
- PPROD(:,42) = +TPK%KTC54(:)*PCONC(:,110)+TPK%KTR54(:)*PCONC(:,147)
-!PLOSS(GLY) = +KTC23+KTR23
- PLOSS(:,42) = +TPK%KTC23(:)+TPK%KTR23(:)
-!
-!PPROD(ORA1) = +0.185*K051*<O3>*<ETHE>+0.12*K056*<O3>*<OLEL>+0.121*K066*<O3>*<I
-!SOP>+0.12*K281*<O3>*<MVK>+0.09*K282*<O3>*<MCR>+KTC57*<WC_ORA1>+KTR57*<WR_ORA1>
- PPROD(:,43) = +0.185*TPK%K051(:)*PCONC(:,3)*PCONC(:,16)+0.12*TPK%K056(:)*PCONC&
-&(:,3)*PCONC(:,17)+0.121*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)+0.12*TPK%K281(:)*PC&
-&ONC(:,3)*PCONC(:,39)+0.09*TPK%K282(:)*PCONC(:,3)*PCONC(:,40)+TPK%KTC57(:)*PCON&
-&C(:,113)+TPK%KTR57(:)*PCONC(:,150)
-!PLOSS(ORA1) = +K347*<OH>+KTC26+KTR26
- PLOSS(:,43) = +TPK%K347(:)*PCONC(:,15)+TPK%KTC26(:)+TPK%KTR26(:)
-!
-!PPROD(ORA2) = +0.12*K056*<O3>*<OLEL>+K142*<HO2>*<RO26>+K148*<HO2>*<RO28>+0.5*K
-!166*<HO2>*<RO239>+0.5*K289*<HO2>*<RO250>+KTC58*<WC_ORA2>+KTR58*<WR_ORA2>
- PPROD(:,44) = +0.12*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)+TPK%K142(:)*PCONC(:,10)&
-&*TPK%RO26(:)+TPK%K148(:)*PCONC(:,10)*TPK%RO28(:)+0.5*TPK%K166(:)*PCONC(:,10)*T&
-&PK%RO239(:)+0.5*TPK%K289(:)*PCONC(:,10)*TPK%RO250(:)+TPK%KTC58(:)*PCONC(:,114)&
-&+TPK%KTR58(:)*PCONC(:,151)
-!PLOSS(ORA2) = +K348*<OH>+KTC27+KTR27
- PLOSS(:,44) = +TPK%K348(:)*PCONC(:,15)+TPK%KTC27(:)+TPK%KTR27(:)
-!
-!PPROD(ACID) = +0.12*K076*<O3>*<OLEH>+K142*<HO2>*<RO26>+K310*<HO2>*<RO255>+KTC5
-!9*<WC_ACID>+KTR59*<WR_ACID>
- PPROD(:,45) = +0.12*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)+TPK%K142(:)*PCONC(:,10)&
-&*TPK%RO26(:)+TPK%K310(:)*PCONC(:,10)*TPK%RO255(:)+TPK%KTC59(:)*PCONC(:,115)+TP&
-&K%KTR59(:)*PCONC(:,152)
-!PLOSS(ACID) = +K349*<OH>+KTC28+KTR28
- PLOSS(:,45) = +TPK%K349(:)*PCONC(:,15)+TPK%KTC28(:)+TPK%KTR28(:)
-!
-!PPROD(UR28) = +K341*<HO2>*<RO258>+KTC62*<WC_UR28>+KTR62*<WR_UR28>
- PPROD(:,46) = +TPK%K341(:)*PCONC(:,10)*TPK%RO258(:)+TPK%KTC62(:)*PCONC(:,118)+&
-&TPK%KTR62(:)*PCONC(:,155)
-!PLOSS(UR28) = +K364+KTC31+KTR31
- PLOSS(:,46) = +TPK%K364(:)+TPK%KTC31(:)+TPK%KTR31(:)
-!
-!PPROD(UR21) = +K279*<HO2>*<RO248>+0.12*K281*<O3>*<MVK>+KTC61*<WC_UR21>+KTR61*<
-!WR_UR21>
- PPROD(:,47) = +TPK%K279(:)*PCONC(:,10)*TPK%RO248(:)+0.12*TPK%K281(:)*PCONC(:,3&
-&)*PCONC(:,39)+TPK%KTC61(:)*PCONC(:,117)+TPK%KTR61(:)*PCONC(:,154)
-!PLOSS(UR21) = +K361+KTC30+KTR30
- PLOSS(:,47) = +TPK%K361(:)+TPK%KTC30(:)+TPK%KTR30(:)
-!
-!PPROD(URG2) = +0.5562513*K335*<OH>*<RPG2>+K337*<OH>*<RP18>
- PPROD(:,48) = +0.5562513*TPK%K335(:)*PCONC(:,15)*PCONC(:,50)+TPK%K337(:)*PCONC&
-&(:,15)*PCONC(:,51)
-!PLOSS(URG2) = +K350
- PLOSS(:,48) = +TPK%K350(:)
-!
-!PPROD(UR26) = +0.67*K326*<OH>*<RP11>
- PPROD(:,49) = +0.67*TPK%K326(:)*PCONC(:,15)*PCONC(:,73)
-!PLOSS(UR26) = +K363
- PLOSS(:,49) = +TPK%K363(:)
-!
-!PPROD(RPG2) = +0.3000000*K259*<NO>*<RO237>+1.0000000*K260*<RO2T>*<RO237>+0.300
-!0000*K261*<HO2>*<RO237>+0.1191897*K334*<OH>*<RPG3>+0.8808107*K334*<OH>*<RPG3>
- PPROD(:,50) = +0.3000000*TPK%K259(:)*PCONC(:,1)*TPK%RO237(:)+1.0000000*TPK%K26&
-&0(:)*PCONC(:,85)*TPK%RO237(:)+0.3000000*TPK%K261(:)*PCONC(:,10)*TPK%RO237(:)+0&
-&.1191897*TPK%K334(:)*PCONC(:,15)*PCONC(:,52)+0.8808107*TPK%K334(:)*PCONC(:,15)&
-&*PCONC(:,52)
-!PLOSS(RPG2) = +K335*<OH>
- PLOSS(:,50) = +TPK%K335(:)*PCONC(:,15)
+!PPROD(XO2) = +0.15*K054*<BIO>*<O3P>+0.10318*K061*<ARO>*<OH>+0.10162*K065*<CARB
+!O>*<OH>+0.09333*K069*<OP2>*<OH>+K070*<PAN>*<OH>+0.10530*K074*<CARBO>*<NO3>+K07
+!8*<PAN>*<NO3>+0.00000*K079*<ALKE>*<O3>+0.13000*K080*<BIO>*<O3>+0.13007*K091*<A
+!LKAP>*<NO>+0.02563*K095*<CARBOP>*<NO>+0.13370*K105*<ALKAP>*<MO2>+0.02212*K109*
+!<CARBOP>*<MO2>+0.11306*K111*<ALKAP>*<CARBOP>+0.01593*K115*<CARBOP>*<CARBOP>+0.
+!16271*K120*<ALKAP>*<NO3>+0.01021*K124*<CARBOP>*<NO3>
+ PPROD(:,41) = +0.15*TPK%K054(:)*PCONC(:,20)*TPK%O3P(:)+0.10318*TPK%K061(:)*PCO&
+&NC(:,21)*PCONC(:,14)+0.10162*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)+0.09333*TPK%K&
+&069(:)*PCONC(:,29)*PCONC(:,14)+TPK%K070(:)*PCONC(:,27)*PCONC(:,14)+0.10530*TPK&
+&%K074(:)*PCONC(:,25)*PCONC(:,5)+TPK%K078(:)*PCONC(:,27)*PCONC(:,5)+0.00000*TPK&
+&%K079(:)*PCONC(:,19)*PCONC(:,1)+0.13000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)+0.1&
+&3007*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)+0.02563*TPK%K095(:)*PCONC(:,39)*PCONC(&
+&:,3)+0.13370*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)+0.02212*TPK%K109(:)*PCONC(:,3&
+&9)*PCONC(:,32)+0.11306*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)+0.01593*TPK%K115(:)&
+&*PCONC(:,39)*PCONC(:,39)+0.16271*TPK%K120(:)*PCONC(:,33)*PCONC(:,5)+0.01021*TP&
+&K%K124(:)*PCONC(:,39)*PCONC(:,5)
+!PLOSS(XO2) = +K126*<HO2>+K127*<MO2>+K128*<CARBOP>+K129*<XO2>+K129*<XO2>+K130*<
+!NO>+K131*<NO3>
+ PLOSS(:,41) = +TPK%K126(:)*PCONC(:,15)+TPK%K127(:)*PCONC(:,32)+TPK%K128(:)*PCO&
+&NC(:,39)+TPK%K129(:)*PCONC(:,41)+TPK%K129(:)*PCONC(:,41)+TPK%K130(:)*PCONC(:,3&
+&)+TPK%K131(:)*PCONC(:,5)
+!
+!PPROD(WC_O3) = +KTC1*<O3>
+ PPROD(:,42) = +TPK%KTC1(:)*PCONC(:,1)
+!PLOSS(WC_O3) = +KTC21+KC6*<WC_HO2>+KC29*<WC_SO2>
+ PLOSS(:,42) = +TPK%KTC21(:)+TPK%KC6(:)*PCONC(:,53)+TPK%KC29(:)*PCONC(:,55)
+!
+!PPROD(WC_H2O2) = +KTC2*<H2O2>+KC2*<WC_OH>*<WC_OH>+KC5*<WC_HO2>*<WC_HO2>
+ PPROD(:,43) = +TPK%KTC2(:)*PCONC(:,2)+TPK%KC2(:)*PCONC(:,52)*PCONC(:,52)+TPK%K&
+&C5(:)*PCONC(:,53)*PCONC(:,53)
+!PLOSS(WC_H2O2) = +KTC22+KC1+KC4*<WC_OH>+KC30*<WC_SO2>
+ PLOSS(:,43) = +TPK%KTC22(:)+TPK%KC1(:)+TPK%KC4(:)*PCONC(:,52)+TPK%KC30(:)*PCON&
+&C(:,55)
+!
+!PPROD(WC_NO) = +KTC3*<NO>
+ PPROD(:,44) = +TPK%KTC3(:)*PCONC(:,3)
+!PLOSS(WC_NO) = +KTC23
+ PLOSS(:,44) = +TPK%KTC23(:)
+!
+!PPROD(WC_NO2) = +KTC4*<NO2>+KC8*<WC_HONO>*<WC_OH>+KC10*<WC_HNO4>+KC13*<WC_HNO3
+!>
+ PPROD(:,45) = +TPK%KTC4(:)*PCONC(:,4)+TPK%KC8(:)*PCONC(:,48)*PCONC(:,52)+TPK%K&
+&C10(:)*PCONC(:,50)+TPK%KC13(:)*PCONC(:,49)
+!PLOSS(WC_NO2) = +KTC24+KC9*<WC_HO2>
+ PLOSS(:,45) = +TPK%KTC24(:)+TPK%KC9(:)*PCONC(:,53)
+!
+!PPROD(WC_NO3) = +KTC5*<NO3>
+ PPROD(:,46) = +TPK%KTC5(:)*PCONC(:,5)
+!PLOSS(WC_NO3) = +KTC25+KC15*<WC_SULF>+KC16*<WC_SO2>
+ PLOSS(:,46) = +TPK%KTC25(:)+TPK%KC15(:)*PCONC(:,56)+TPK%KC16(:)*PCONC(:,55)
+!
+!PPROD(WC_N2O5) = +KTC6*<N2O5>
+ PPROD(:,47) = +TPK%KTC6(:)*PCONC(:,6)
+!PLOSS(WC_N2O5) = +KTC26+KC14
+ PLOSS(:,47) = +TPK%KTC26(:)+TPK%KC14(:)
+!
+!PPROD(WC_HONO) = +KTC7*<HONO>+KC11*<WC_HNO4>
+ PPROD(:,48) = +TPK%KTC7(:)*PCONC(:,7)+TPK%KC11(:)*PCONC(:,50)
+!PLOSS(WC_HONO) = +KTC27+KC8*<WC_OH>
+ PLOSS(:,48) = +TPK%KTC27(:)+TPK%KC8(:)*PCONC(:,52)
+!
+!PPROD(WC_HNO3) = +KTC8*<HNO3>+KC12*<WC_HNO4>*<WC_SO2>+KC14*<WC_N2O5>+KC14*<WC_
+!N2O5>+KC15*<WC_NO3>*<WC_SULF>+KC16*<WC_NO3>*<WC_SO2>
+ PPROD(:,49) = +TPK%KTC8(:)*PCONC(:,8)+TPK%KC12(:)*PCONC(:,50)*PCONC(:,55)+TPK%&
+&KC14(:)*PCONC(:,47)+TPK%KC14(:)*PCONC(:,47)+TPK%KC15(:)*PCONC(:,46)*PCONC(:,56&
+&)+TPK%KC16(:)*PCONC(:,46)*PCONC(:,55)
+!PLOSS(WC_HNO3) = +KTC28+KC13
+ PLOSS(:,49) = +TPK%KTC28(:)+TPK%KC13(:)
+!
+!PPROD(WC_HNO4) = +KTC9*<HNO4>+KC9*<WC_NO2>*<WC_HO2>
+ PPROD(:,50) = +TPK%KTC9(:)*PCONC(:,9)+TPK%KC9(:)*PCONC(:,45)*PCONC(:,53)
+!PLOSS(WC_HNO4) = +KTC29+KC10+KC11+KC12*<WC_SO2>
+ PLOSS(:,50) = +TPK%KTC29(:)+TPK%KC10(:)+TPK%KC11(:)+TPK%KC12(:)*PCONC(:,55)
!
RETURN
END SUBROUTINE SUB4
@@ -10410,81 +4720,80 @@ SUBROUTINE SUB5
!Indices 51 a 60
!
!
-!PPROD(RP18) = +0.4437492*K335*<OH>*<RPG2>
- PPROD(:,51) = +0.4437492*TPK%K335(:)*PCONC(:,15)*PCONC(:,50)
-!PLOSS(RP18) = +K337*<OH>
- PLOSS(:,51) = +TPK%K337(:)*PCONC(:,15)
-!
-!PPROD(RPG3) = +0.3000000*K231*<NO>*<RO233>+1.0000000*K232*<RO2T>*<RO233>+0.300
-!0000*K233*<HO2>*<RO233>+0.3000000*K252*<NO>*<RO236>+1.0000000*K253*<RO2T>*<RO2
-!36>+0.3000000*K254*<HO2>*<RO236>
- PPROD(:,52) = +0.3000000*TPK%K231(:)*PCONC(:,1)*TPK%RO233(:)+1.0000000*TPK%K23&
-&2(:)*PCONC(:,85)*TPK%RO233(:)+0.3000000*TPK%K233(:)*PCONC(:,10)*TPK%RO233(:)+0&
-&.3000000*TPK%K252(:)*PCONC(:,1)*TPK%RO236(:)+1.0000000*TPK%K253(:)*PCONC(:,85)&
-&*TPK%RO236(:)+0.3000000*TPK%K254(:)*PCONC(:,10)*TPK%RO236(:)
-!PLOSS(RPG3) = +K334*<OH>
- PLOSS(:,52) = +TPK%K334(:)*PCONC(:,15)
-!
-!PPROD(URG4) = +5.5000000E-02*K086*<O3>*<BIOL>+1.0000000*K318*<HO2>*<RO256>+1.0
-!000000*K332*<HO2>*<RO257>
- PPROD(:,53) = +5.5000000E-02*TPK%K086(:)*PCONC(:,3)*PCONC(:,36)+1.0000000*TPK%&
-&K318(:)*PCONC(:,10)*TPK%RO256(:)+1.0000000*TPK%K332(:)*PCONC(:,10)*TPK%RO257(:&
-&)
-!PLOSS(URG4) = +K351
- PLOSS(:,53) = +TPK%K351(:)
-!
-!PPROD(UR8) = +0.055*K090*<O3>*<BIOH>
- PPROD(:,54) = +0.055*TPK%K090(:)*PCONC(:,3)*PCONC(:,37)
-!PLOSS(UR8) = +K358
- PLOSS(:,54) = +TPK%K358(:)
-!
-!PPROD(UR17) = +1.0000000*K204*<NO>*<RO226>+1.0000000*K205*<RO2T>*<RO226>+1.000
-!0000*K206*<HO2>*<RO226>
- PPROD(:,55) = +1.0000000*TPK%K204(:)*PCONC(:,1)*TPK%RO226(:)+1.0000000*TPK%K20&
-&5(:)*PCONC(:,85)*TPK%RO226(:)+1.0000000*TPK%K206(:)*PCONC(:,10)*TPK%RO226(:)
-!PLOSS(UR17) = +K359
- PLOSS(:,55) = +TPK%K359(:)
-!
-!PPROD(UR7) = +0.055*K090*<O3>*<BIOH>+TPK%CFA12*K207*<NO>*<RO227>+K208*<RO2T>*<
-!RO227>+0.3*K209*<HO2>*<RO227>+0.3*K210*<NO>*<RO228>+0.3*K211*<RO2T>*<RO228>+0.
-!3*K212*<HO2>*<RO228>
- PPROD(:,56) = +0.055*TPK%K090(:)*PCONC(:,3)*PCONC(:,37)+TPK%CFA12*TPK%K207(:)*&
-&PCONC(:,1)*TPK%RO227(:)+TPK%K208(:)*PCONC(:,85)*TPK%RO227(:)+0.3*TPK%K209(:)*P&
-&CONC(:,10)*TPK%RO227(:)+0.3*TPK%K210(:)*PCONC(:,1)*TPK%RO228(:)+0.3*TPK%K211(:&
-&)*PCONC(:,85)*TPK%RO228(:)+0.3*TPK%K212(:)*PCONC(:,10)*TPK%RO228(:)
-!PLOSS(UR7) = +K357
- PLOSS(:,56) = +TPK%K357(:)
-!
-!PPROD(RPR3) = +0.055*K086*<O3>*<BIOL>+TPK%CFA10*K198*<NO>*<RO224>+K199*<RO2T>*
-!<RO224>+K200*<HO2>*<RO224>+K201*<NO>*<RO225>+K202*<RO2T>*<RO225>+K203*<HO2>*<R
-!O225>
- PPROD(:,57) = +0.055*TPK%K086(:)*PCONC(:,3)*PCONC(:,36)+TPK%CFA10*TPK%K198(:)*&
-&PCONC(:,1)*TPK%RO224(:)+TPK%K199(:)*PCONC(:,85)*TPK%RO224(:)+TPK%K200(:)*PCONC&
-&(:,10)*TPK%RO224(:)+TPK%K201(:)*PCONC(:,1)*TPK%RO225(:)+TPK%K202(:)*PCONC(:,85&
-&)*TPK%RO225(:)+TPK%K203(:)*PCONC(:,10)*TPK%RO225(:)
-!PLOSS(RPR3) = +K312*<OH>+K313*<NO3>+K314
- PLOSS(:,57) = +TPK%K312(:)*PCONC(:,15)+TPK%K313(:)*PCONC(:,8)+TPK%K314(:)
-!
-!PPROD(URG6) = +TPK%CF21*K177*<NO>*<RO217>+TPK%CF43*K195*<NO>*<RO223>+0.4978440
-!*K323*<OH>*<RPG7>
- PPROD(:,58) = +TPK%CF21*TPK%K177(:)*PCONC(:,1)*TPK%RO217(:)+TPK%CF43*TPK%K195(&
-&:)*PCONC(:,1)*TPK%RO223(:)+0.4978440*TPK%K323(:)*PCONC(:,15)*PCONC(:,63)
-!PLOSS(URG6) = +K352
- PLOSS(:,58) = +TPK%K352(:)
-!
-!PPROD(UR22) = +K321*<NO2>*<RAD8>
- PPROD(:,59) = +TPK%K321(:)*PCONC(:,2)*TPK%RAD8(:)
-!PLOSS(UR22) = +K362
- PLOSS(:,59) = +TPK%K362(:)
-!
-!PPROD(URG7) = +0.1599999*K083*<OH>*<ARAC>+0.9999993*K108*<NO2>*<RAD6>+0.999999
-!3*K303*<OH>*<RPR5>+0.9979297*K306*<OH>*<RPRL>+0.9999993*K322*<OH>*<RPR7>
- PPROD(:,60) = +0.1599999*TPK%K083(:)*PCONC(:,15)*PCONC(:,26)+0.9999993*TPK%K10&
-&8(:)*PCONC(:,2)*TPK%RAD6(:)+0.9999993*TPK%K303(:)*PCONC(:,15)*PCONC(:,70)+0.99&
-&79297*TPK%K306(:)*PCONC(:,15)*PCONC(:,75)+0.9999993*TPK%K322(:)*PCONC(:,15)*PC&
-&ONC(:,62)
-!PLOSS(URG7) = +K353
- PLOSS(:,60) = +TPK%K353(:)
+!PPROD(WC_NH3) = +KTC10*<NH3>
+ PPROD(:,51) = +TPK%KTC10(:)*PCONC(:,10)
+!PLOSS(WC_NH3) = +KTC30
+ PLOSS(:,51) = +TPK%KTC30(:)
+!
+!PPROD(WC_OH) = +KTC11*<OH>+KC1*<WC_H2O2>+KC1*<WC_H2O2>+KC6*<WC_O3>*<WC_HO2>+KC
+!13*<WC_HNO3>+KC28*<WC_ASO4>
+ PPROD(:,52) = +TPK%KTC11(:)*PCONC(:,14)+TPK%KC1(:)*PCONC(:,43)+TPK%KC1(:)*PCON&
+&C(:,43)+TPK%KC6(:)*PCONC(:,42)*PCONC(:,53)+TPK%KC13(:)*PCONC(:,49)+TPK%KC28(:)&
+&*PCONC(:,63)
+!PLOSS(WC_OH) = +KTC31+KC2*<WC_OH>+KC2*<WC_OH>+KC3*<WC_HO2>+KC4*<WC_H2O2>+KC7*<
+!WC_SO2>+KC8*<WC_HONO>+KC19*<WC_HCHO>+KC20*<WC_ORA1>+KC23*<WC_AHMS>
+ PLOSS(:,52) = +TPK%KTC31(:)+TPK%KC2(:)*PCONC(:,52)+TPK%KC2(:)*PCONC(:,52)+TPK%&
+&KC3(:)*PCONC(:,53)+TPK%KC4(:)*PCONC(:,43)+TPK%KC7(:)*PCONC(:,55)+TPK%KC8(:)*PC&
+&ONC(:,48)+TPK%KC19(:)*PCONC(:,57)+TPK%KC20(:)*PCONC(:,58)+TPK%KC23(:)*PCONC(:,&
+&66)
+!
+!PPROD(WC_HO2) = +KTC12*<HO2>+KC4*<WC_H2O2>*<WC_OH>+KC10*<WC_HNO4>+2.00*KC17*<W
+!C_MO2>*<WC_MO2>+KC19*<WC_HCHO>*<WC_OH>+KC20*<WC_ORA1>*<WC_OH>+KC23*<WC_AHMS>*<
+!WC_OH>
+ PPROD(:,53) = +TPK%KTC12(:)*PCONC(:,15)+TPK%KC4(:)*PCONC(:,43)*PCONC(:,52)+TPK&
+&%KC10(:)*PCONC(:,50)+2.00*TPK%KC17(:)*PCONC(:,60)*PCONC(:,60)+TPK%KC19(:)*PCON&
+&C(:,57)*PCONC(:,52)+TPK%KC20(:)*PCONC(:,58)*PCONC(:,52)+TPK%KC23(:)*PCONC(:,66&
+&)*PCONC(:,52)
+!PLOSS(WC_HO2) = +KTC32+KC3*<WC_OH>+KC5*<WC_HO2>+KC5*<WC_HO2>+KC6*<WC_O3>+KC9*<
+!WC_NO2>+KC25*<WC_ASO5>
+ PLOSS(:,53) = +TPK%KTC32(:)+TPK%KC3(:)*PCONC(:,52)+TPK%KC5(:)*PCONC(:,53)+TPK%&
+&KC5(:)*PCONC(:,53)+TPK%KC6(:)*PCONC(:,42)+TPK%KC9(:)*PCONC(:,45)+TPK%KC25(:)*P&
+&CONC(:,64)
+!
+!PPROD(WC_CO2) = +KTC13*<CO2>+KC20*<WC_ORA1>*<WC_OH>
+ PPROD(:,54) = +TPK%KTC13(:)*TPK%CO2(:)+TPK%KC20(:)*PCONC(:,58)*PCONC(:,52)
+!PLOSS(WC_CO2) = +KTC33
+ PLOSS(:,54) = +TPK%KTC33(:)
+!
+!PPROD(WC_SO2) = +KTC14*<SO2>+KC22*<WC_AHMS>+KC23*<WC_AHMS>*<WC_OH>
+ PPROD(:,55) = +TPK%KTC14(:)*PCONC(:,11)+TPK%KC22(:)*PCONC(:,66)+TPK%KC23(:)*PC&
+&ONC(:,66)*PCONC(:,52)
+!PLOSS(WC_SO2) = +KTC34+KC7*<WC_OH>+KC12*<WC_HNO4>+KC16*<WC_NO3>+KC18*<WC_MO2>+
+!KC21*<WC_HCHO>+KC27*<WC_AHSO5>+KC29*<WC_O3>+KC30*<WC_H2O2>
+ PLOSS(:,55) = +TPK%KTC34(:)+TPK%KC7(:)*PCONC(:,52)+TPK%KC12(:)*PCONC(:,50)+TPK&
+&%KC16(:)*PCONC(:,46)+TPK%KC18(:)*PCONC(:,60)+TPK%KC21(:)*PCONC(:,57)+TPK%KC27(&
+&:)*PCONC(:,65)+TPK%KC29(:)*PCONC(:,42)+TPK%KC30(:)*PCONC(:,43)
+!
+!PPROD(WC_SULF) = +KTC15*<SULF>+KC12*<WC_HNO4>*<WC_SO2>+2.00*KC27*<WC_AHSO5>*<W
+!C_SO2>+KC28*<WC_ASO4>+KC29*<WC_SO2>*<WC_O3>+KC30*<WC_SO2>*<WC_H2O2>
+ PPROD(:,56) = +TPK%KTC15(:)*PCONC(:,12)+TPK%KC12(:)*PCONC(:,50)*PCONC(:,55)+2.&
+&00*TPK%KC27(:)*PCONC(:,65)*PCONC(:,55)+TPK%KC28(:)*PCONC(:,63)+TPK%KC29(:)*PCO&
+&NC(:,55)*PCONC(:,42)+TPK%KC30(:)*PCONC(:,55)*PCONC(:,43)
+!PLOSS(WC_SULF) = +KTC35+KC15*<WC_NO3>
+ PLOSS(:,56) = +TPK%KTC35(:)+TPK%KC15(:)*PCONC(:,46)
+!
+!PPROD(WC_HCHO) = +KTC16*<HCHO>+2.00*KC17*<WC_MO2>*<WC_MO2>+KC22*<WC_AHMS>
+ PPROD(:,57) = +TPK%KTC16(:)*PCONC(:,22)+2.00*TPK%KC17(:)*PCONC(:,60)*PCONC(:,6&
+&0)+TPK%KC22(:)*PCONC(:,66)
+!PLOSS(WC_HCHO) = +KTC36+KC19*<WC_OH>+KC21*<WC_SO2>
+ PLOSS(:,57) = +TPK%KTC36(:)+TPK%KC19(:)*PCONC(:,52)+TPK%KC21(:)*PCONC(:,55)
+!
+!PPROD(WC_ORA1) = +KTC17*<ORA1>+KC19*<WC_HCHO>*<WC_OH>+KC23*<WC_AHMS>*<WC_OH>
+ PPROD(:,58) = +TPK%KTC17(:)*PCONC(:,30)+TPK%KC19(:)*PCONC(:,57)*PCONC(:,52)+TP&
+&K%KC23(:)*PCONC(:,66)*PCONC(:,52)
+!PLOSS(WC_ORA1) = +KTC37+KC20*<WC_OH>
+ PLOSS(:,58) = +TPK%KTC37(:)+TPK%KC20(:)*PCONC(:,52)
+!
+!PPROD(WC_ORA2) = +KTC18*<ORA2>
+ PPROD(:,59) = +TPK%KTC18(:)*PCONC(:,31)
+!PLOSS(WC_ORA2) = +KTC38
+ PLOSS(:,59) = +TPK%KTC38(:)
+!
+!PPROD(WC_MO2) = +KTC19*<MO2>
+ PPROD(:,60) = +TPK%KTC19(:)*PCONC(:,32)
+!PLOSS(WC_MO2) = +KTC39+KC17*<WC_MO2>+KC17*<WC_MO2>+KC18*<WC_SO2>
+ PLOSS(:,60) = +TPK%KTC39(:)+TPK%KC17(:)*PCONC(:,60)+TPK%KC17(:)*PCONC(:,60)+TP&
+&K%KC18(:)*PCONC(:,55)
!
RETURN
END SUBROUTINE SUB5
@@ -10494,76 +4803,64 @@ SUBROUTINE SUB6
!Indices 61 a 70
!
!
-!PPROD(RPR4) = +K103*<NO2>*<RAD1>+K104*<NO2>*<RAD2>
- PPROD(:,61) = +TPK%K103(:)*PCONC(:,2)*TPK%RAD1(:)+TPK%K104(:)*PCONC(:,2)*TPK%R&
-&AD2(:)
-!PLOSS(RPR4) = +K320*<NO3>
- PLOSS(:,61) = +TPK%K320(:)*PCONC(:,8)
-!
-!PPROD(RPR7) = +TPK%CF44*K195*<NO>*<RO223>+K196*<RO2T>*<RO223>+K197*<HO2>*<RO22
-!3>+2.0714202E-03*K306*<OH>*<RPRL>
- PPROD(:,62) = +TPK%CF44*TPK%K195(:)*PCONC(:,1)*TPK%RO223(:)+TPK%K196(:)*PCONC(&
-&:,85)*TPK%RO223(:)+TPK%K197(:)*PCONC(:,10)*TPK%RO223(:)+2.0714202E-03*TPK%K306&
-&(:)*PCONC(:,15)*PCONC(:,75)
-!PLOSS(RPR7) = +K322*<OH>
- PLOSS(:,62) = +TPK%K322(:)*PCONC(:,15)
-!
-!PPROD(RPG7) = +1.0000013*K266*<NO>*<RO238>+1.0000013*K267*<RO2T>*<RO238>+1.000
-!0013*K268*<HO2>*<RO238>+0.5021558*K323*<OH>*<RPG7>
- PPROD(:,63) = +1.0000013*TPK%K266(:)*PCONC(:,1)*TPK%RO238(:)+1.0000013*TPK%K26&
-&7(:)*PCONC(:,85)*TPK%RO238(:)+1.0000013*TPK%K268(:)*PCONC(:,10)*TPK%RO238(:)+0&
-&.5021558*TPK%K323(:)*PCONC(:,15)*PCONC(:,63)
-!PLOSS(RPG7) = +K323*<OH>
- PLOSS(:,63) = +TPK%K323(:)*PCONC(:,15)
-!
-!PPROD(URG8) = +0.1600000*K092*<OH>*<PAH>+1.0000000*K109*<NO2>*<RAD7>+TPK%CF31*
-!K221*<NO>*<RO231>
- PPROD(:,64) = +0.1600000*TPK%K092(:)*PCONC(:,15)*PCONC(:,27)+1.0000000*TPK%K10&
-&9(:)*PCONC(:,2)*TPK%RAD7(:)+TPK%CF31*TPK%K221(:)*PCONC(:,1)*TPK%RO231(:)
-!PLOSS(URG8) = +K354
- PLOSS(:,64) = +TPK%K354(:)
-!
-!PPROD(UR19) = +TPK%CF32*K221*<NO>*<RO231>+K222*<RO2T>*<RO231>+K223*<HO2>*<RO23
-!1>
- PPROD(:,65) = +TPK%CF32*TPK%K221(:)*PCONC(:,1)*TPK%RO231(:)+TPK%K222(:)*PCONC(&
-&:,85)*TPK%RO231(:)+TPK%K223(:)*PCONC(:,10)*TPK%RO231(:)
-!PLOSS(UR19) = +K360
- PLOSS(:,65) = +TPK%K360(:)
-!
-!PPROD(URG9) = +TPK%CFA14*K224*<NO>*<RO232>+TPK%CFA16*K227*<NO>*<RO241>+TPK%CFA
-!15*K227*<NO>*<RO241>+0.9999996*K228*<RO2T>*<RO241>+0.9999996*K229*<HO2>*<RO241
+!PPROD(WC_OP1) = +KTC20*<OP1>+KC18*<WC_MO2>*<WC_SO2>
+ PPROD(:,61) = +TPK%KTC20(:)*PCONC(:,28)+TPK%KC18(:)*PCONC(:,60)*PCONC(:,55)
+!PLOSS(WC_OP1) = +KTC40
+ PLOSS(:,61) = +TPK%KTC40(:)
+!
+!PPROD(WC_ASO3) = +KC7*<WC_OH>*<WC_SO2>+KC16*<WC_NO3>*<WC_SO2>+KC18*<WC_MO2>*<W
+!C_SO2>
+ PPROD(:,62) = +TPK%KC7(:)*PCONC(:,52)*PCONC(:,55)+TPK%KC16(:)*PCONC(:,46)*PCON&
+&C(:,55)+TPK%KC18(:)*PCONC(:,60)*PCONC(:,55)
+!PLOSS(WC_ASO3) = +KC24*<W_O2>
+ PLOSS(:,62) = +TPK%KC24(:)*TPK%W_O2(:)
+!
+!PPROD(WC_ASO4) = +KC15*<WC_NO3>*<WC_SULF>+KC26*<WC_ASO5>*<WC_ASO5>+KC26*<WC_AS
+!O5>*<WC_ASO5>
+ PPROD(:,63) = +TPK%KC15(:)*PCONC(:,46)*PCONC(:,56)+TPK%KC26(:)*PCONC(:,64)*PCO&
+&NC(:,64)+TPK%KC26(:)*PCONC(:,64)*PCONC(:,64)
+!PLOSS(WC_ASO4) = +KC28
+ PLOSS(:,63) = +TPK%KC28(:)
+!
+!PPROD(WC_ASO5) = +KC24*<WC_ASO3>*<W_O2>
+ PPROD(:,64) = +TPK%KC24(:)*PCONC(:,62)*TPK%W_O2(:)
+!PLOSS(WC_ASO5) = +KC25*<WC_HO2>+KC26*<WC_ASO5>+KC26*<WC_ASO5>
+ PLOSS(:,64) = +TPK%KC25(:)*PCONC(:,53)+TPK%KC26(:)*PCONC(:,64)+TPK%KC26(:)*PCO&
+&NC(:,64)
+!
+!PPROD(WC_AHSO5) = +KC25*<WC_ASO5>*<WC_HO2>
+ PPROD(:,65) = +TPK%KC25(:)*PCONC(:,64)*PCONC(:,53)
+!PLOSS(WC_AHSO5) = +KC27*<WC_SO2>
+ PLOSS(:,65) = +TPK%KC27(:)*PCONC(:,55)
+!
+!PPROD(WC_AHMS) = +KC21*<WC_SO2>*<WC_HCHO>
+ PPROD(:,66) = +TPK%KC21(:)*PCONC(:,55)*PCONC(:,57)
+!PLOSS(WC_AHMS) = +KC22+KC23*<WC_OH>
+ PLOSS(:,66) = +TPK%KC22(:)+TPK%KC23(:)*PCONC(:,52)
+!
+!PPROD(WR_O3) = +KTR1*<O3>
+ PPROD(:,67) = +TPK%KTR1(:)*PCONC(:,1)
+!PLOSS(WR_O3) = +KTR21+KR6*<WR_HO2>+KR29*<WR_SO2>
+ PLOSS(:,67) = +TPK%KTR21(:)+TPK%KR6(:)*PCONC(:,78)+TPK%KR29(:)*PCONC(:,80)
+!
+!PPROD(WR_H2O2) = +KTR2*<H2O2>+KR2*<WR_OH>*<WR_OH>+KR5*<WR_HO2>*<WR_HO2>
+ PPROD(:,68) = +TPK%KTR2(:)*PCONC(:,2)+TPK%KR2(:)*PCONC(:,77)*PCONC(:,77)+TPK%K&
+&R5(:)*PCONC(:,78)*PCONC(:,78)
+!PLOSS(WR_H2O2) = +KTR22+KR1+KR4*<WR_OH>+KR30*<WR_SO2>
+ PLOSS(:,68) = +TPK%KTR22(:)+TPK%KR1(:)+TPK%KR4(:)*PCONC(:,77)+TPK%KR30(:)*PCON&
+&C(:,80)
+!
+!PPROD(WR_NO) = +KTR3*<NO>
+ PPROD(:,69) = +TPK%KTR3(:)*PCONC(:,3)
+!PLOSS(WR_NO) = +KTR23
+ PLOSS(:,69) = +TPK%KTR23(:)
+!
+!PPROD(WR_NO2) = +KTR4*<NO2>+KR8*<WR_HONO>*<WR_OH>+KR10*<WR_HNO4>+KR13*<WR_HNO3
!>
- PPROD(:,66) = +TPK%CFA14*TPK%K224(:)*PCONC(:,1)*TPK%RO232(:)+TPK%CFA16*TPK%K22&
-&7(:)*PCONC(:,1)*TPK%RO241(:)+TPK%CFA15*TPK%K227(:)*PCONC(:,1)*TPK%RO241(:)+0.9&
-&999996*TPK%K228(:)*PCONC(:,85)*TPK%RO241(:)+0.9999996*TPK%K229(:)*PCONC(:,10)*&
-&TPK%RO241(:)
-!PLOSS(URG9) = +K355
- PLOSS(:,66) = +TPK%K355(:)
-!
-!PPROD(AP7) = +TPK%CFA23*K198*<NO>*<RO224>
- PPROD(:,67) = +TPK%CFA23*TPK%K198(:)*PCONC(:,1)*TPK%RO224(:)
-!PLOSS(AP7) = +K365
- PLOSS(:,67) = +TPK%K365(:)
-!
-!PPROD(URG10) = +0.2500000*K087*<O>*<BIOL>+0.7500000*K087*<O>*<BIOL>+TPK%CF27*K
-!207*<NO>*<RO227>
- PPROD(:,68) = +0.2500000*TPK%K087(:)*TPK%O(:)*PCONC(:,36)+0.7500000*TPK%K087(:&
-&)*TPK%O(:)*PCONC(:,36)+TPK%CF27*TPK%K207(:)*PCONC(:,1)*TPK%RO227(:)
-!PLOSS(URG10) = +K356
- PLOSS(:,68) = +TPK%K356(:)
-!
-!PPROD(RPR1) = +0.5*K076*<O3>*<OLEH>+0.4*K077*<O>*<OLEH>+K183*<NO>*<RO219>+K184
-!*<RO2T>*<RO219>+K185*<HO2>*<RO219>
- PPROD(:,69) = +0.5*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)+0.4*TPK%K077(:)*TPK%O(:)&
-&*PCONC(:,18)+TPK%K183(:)*PCONC(:,1)*TPK%RO219(:)+TPK%K184(:)*PCONC(:,85)*TPK%R&
-&O219(:)+TPK%K185(:)*PCONC(:,10)*TPK%RO219(:)
-!PLOSS(RPR1) = +K304*<OH>+K307*<NO3>+K308
- PLOSS(:,69) = +TPK%K304(:)*PCONC(:,15)+TPK%K307(:)*PCONC(:,8)+TPK%K308(:)
-!
-!PPROD(RPR5) = +K107*<NO2>*<RAD5>
- PPROD(:,70) = +TPK%K107(:)*PCONC(:,2)*TPK%RAD5(:)
-!PLOSS(RPR5) = +K303*<OH>
- PLOSS(:,70) = +TPK%K303(:)*PCONC(:,15)
+ PPROD(:,70) = +TPK%KTR4(:)*PCONC(:,4)+TPK%KR8(:)*PCONC(:,73)*PCONC(:,77)+TPK%K&
+&R10(:)*PCONC(:,75)+TPK%KR13(:)*PCONC(:,74)
+!PLOSS(WR_NO2) = +KTR24+KR9*<WR_HO2>
+ PLOSS(:,70) = +TPK%KTR24(:)+TPK%KR9(:)*PCONC(:,78)
!
RETURN
END SUBROUTINE SUB6
@@ -10573,83 +4870,77 @@ SUBROUTINE SUB7
!Indices 71 a 80
!
!
-!PPROD(RPR8) = +K216*<NO>*<RO240>+K217*<RO2T>*<RO240>+K218*<HO2>*<RO240>
- PPROD(:,71) = +TPK%K216(:)*PCONC(:,1)*TPK%RO240(:)+TPK%K217(:)*PCONC(:,85)*TPK&
-&%RO240(:)+TPK%K218(:)*PCONC(:,10)*TPK%RO240(:)
-!PLOSS(RPR8) = +K324*<OH>+K327*<NO3>+K329+K330
- PLOSS(:,71) = +TPK%K324(:)*PCONC(:,15)+TPK%K327(:)*PCONC(:,8)+TPK%K329(:)+TPK%&
-&K330(:)
-!
-!PPROD(RP10) = +K234*<NO>*<RO242>+K235*<RO2T>*<RO242>+K236*<HO2>*<RO242>+K241*<
-!NO>*<RO243>+K242*<RO2T>*<RO243>+K243*<HO2>*<RO243>+K248*<NO>*<RO244>+K249*<RO2
-!T>*<RO244>+K250*<HO2>*<RO244>+K255*<NO>*<RO245>+K256*<RO2T>*<RO245>+K257*<HO2>
-!*<RO245>+K262*<NO>*<RO246>+K263*<RO2T>*<RO246>+K264*<HO2>*<RO246>
- PPROD(:,72) = +TPK%K234(:)*PCONC(:,1)*TPK%RO242(:)+TPK%K235(:)*PCONC(:,85)*TPK&
-&%RO242(:)+TPK%K236(:)*PCONC(:,10)*TPK%RO242(:)+TPK%K241(:)*PCONC(:,1)*TPK%RO24&
-&3(:)+TPK%K242(:)*PCONC(:,85)*TPK%RO243(:)+TPK%K243(:)*PCONC(:,10)*TPK%RO243(:)&
-&+TPK%K248(:)*PCONC(:,1)*TPK%RO244(:)+TPK%K249(:)*PCONC(:,85)*TPK%RO244(:)+TPK%&
-&K250(:)*PCONC(:,10)*TPK%RO244(:)+TPK%K255(:)*PCONC(:,1)*TPK%RO245(:)+TPK%K256(&
-&:)*PCONC(:,85)*TPK%RO245(:)+TPK%K257(:)*PCONC(:,10)*TPK%RO245(:)+TPK%K262(:)*P&
-&CONC(:,1)*TPK%RO246(:)+TPK%K263(:)*PCONC(:,85)*TPK%RO246(:)+TPK%K264(:)*PCONC(&
-&:,10)*TPK%RO246(:)
-!PLOSS(RP10) = +K325*<OH>+K328
- PLOSS(:,72) = +TPK%K325(:)*PCONC(:,15)+TPK%K328(:)
-!
-!PPROD(RP11) = +0.3*K238*<NO>*<RO234>+K239*<RO2T>*<RO234>+0.3*K240*<HO2>*<RO234
-!>+0.5*K245*<NO>*<RO235>+K246*<RO2T>*<RO235>+K247*<HO2>*<RO235>
- PPROD(:,73) = +0.3*TPK%K238(:)*PCONC(:,1)*TPK%RO234(:)+TPK%K239(:)*PCONC(:,85)&
-&*TPK%RO234(:)+0.3*TPK%K240(:)*PCONC(:,10)*TPK%RO234(:)+0.5*TPK%K245(:)*PCONC(:&
-&,1)*TPK%RO235(:)+TPK%K246(:)*PCONC(:,85)*TPK%RO235(:)+TPK%K247(:)*PCONC(:,10)*&
-&TPK%RO235(:)
-!PLOSS(RP11) = +K326*<OH>
- PLOSS(:,73) = +TPK%K326(:)*PCONC(:,15)
-!
-!PPROD(RP16) = +K301*<HO2>*<RO254>+KTC60*<WC_RP16>+KTR60*<WR_RP16>
- PPROD(:,74) = +TPK%K301(:)*PCONC(:,10)*TPK%RO254(:)+TPK%KTC60(:)*PCONC(:,116)+&
-&TPK%KTR60(:)*PCONC(:,153)
-!PLOSS(RP16) = +K305*<OH>+K338*<NO3>+K339+KTC29+KTR29
- PLOSS(:,74) = +TPK%K305(:)*PCONC(:,15)+TPK%K338(:)*PCONC(:,8)+TPK%K339(:)+TPK%&
-&KTC29(:)+TPK%KTR29(:)
-!
-!PPROD(RPRL) = +0.9983609*K082*<OH>*<ARAL>+TPK%CFA2*K177*<NO>*<RO217>+0.9983609
-!*K178*<RO2T>*<RO217>+0.9983609*K179*<HO2>*<RO217>+TPK%CFA7*K192*<NO>*<RO222>+0
-!.9983609*K193*<RO2T>*<RO222>+0.9983609*K194*<HO2>*<RO222>+1.0023998*K269*<NO>*
-!<RO247>+1.0023998*K270*<RO2T>*<RO247>+1.0023998*K271*<HO2>*<RO247>
- PPROD(:,75) = +0.9983609*TPK%K082(:)*PCONC(:,15)*PCONC(:,25)+TPK%CFA2*TPK%K177&
-&(:)*PCONC(:,1)*TPK%RO217(:)+0.9983609*TPK%K178(:)*PCONC(:,85)*TPK%RO217(:)+0.9&
-&983609*TPK%K179(:)*PCONC(:,10)*TPK%RO217(:)+TPK%CFA7*TPK%K192(:)*PCONC(:,1)*TP&
-&K%RO222(:)+0.9983609*TPK%K193(:)*PCONC(:,85)*TPK%RO222(:)+0.9983609*TPK%K194(:&
-&)*PCONC(:,10)*TPK%RO222(:)+1.0023998*TPK%K269(:)*PCONC(:,1)*TPK%RO247(:)+1.002&
-&3998*TPK%K270(:)*PCONC(:,85)*TPK%RO247(:)+1.0023998*TPK%K271(:)*PCONC(:,10)*TP&
-&K%RO247(:)
-!PLOSS(RPRL) = +K306*<OH>
- PLOSS(:,75) = +TPK%K306(:)*PCONC(:,15)
-!
-!PPROD(APAN) = +K130*<NO2>*<RO250>+K133*<NO2>*<RO257>
- PPROD(:,76) = +TPK%K130(:)*PCONC(:,2)*TPK%RO250(:)+TPK%K133(:)*PCONC(:,2)*TPK%&
-&RO257(:)
-!PLOSS(APAN) = +K139
- PLOSS(:,76) = +TPK%K139(:)
-!
-!PPROD(PAN1) = +K126*<NO2>*<RO26>
- PPROD(:,77) = +TPK%K126(:)*PCONC(:,2)*TPK%RO26(:)
-!PLOSS(PAN1) = +K135
- PLOSS(:,77) = +TPK%K135(:)
-!
-!PPROD(PAN2) = +K127*<NO2>*<RO28>
- PPROD(:,78) = +TPK%K127(:)*PCONC(:,2)*TPK%RO28(:)
-!PLOSS(PAN2) = +K136
- PLOSS(:,78) = +TPK%K136(:)
-!
-!PPROD(PAN3) = +K128*<NO2>*<RO239>
- PPROD(:,79) = +TPK%K128(:)*PCONC(:,2)*TPK%RO239(:)
-!PLOSS(PAN3) = +K137
- PLOSS(:,79) = +TPK%K137(:)
-!
-!PPROD(PAN4) = +K129*<NO2>*<RO248>
- PPROD(:,80) = +TPK%K129(:)*PCONC(:,2)*TPK%RO248(:)
-!PLOSS(PAN4) = +K141
- PLOSS(:,80) = +TPK%K141(:)
+!PPROD(WR_NO3) = +KTR5*<NO3>
+ PPROD(:,71) = +TPK%KTR5(:)*PCONC(:,5)
+!PLOSS(WR_NO3) = +KTR25+KR15*<WR_SULF>+KR16*<WR_SO2>
+ PLOSS(:,71) = +TPK%KTR25(:)+TPK%KR15(:)*PCONC(:,81)+TPK%KR16(:)*PCONC(:,80)
+!
+!PPROD(WR_N2O5) = +KTR6*<N2O5>
+ PPROD(:,72) = +TPK%KTR6(:)*PCONC(:,6)
+!PLOSS(WR_N2O5) = +KTR26+KR14
+ PLOSS(:,72) = +TPK%KTR26(:)+TPK%KR14(:)
+!
+!PPROD(WR_HONO) = +KTR7*<HONO>+KR11*<WR_HNO4>
+ PPROD(:,73) = +TPK%KTR7(:)*PCONC(:,7)+TPK%KR11(:)*PCONC(:,75)
+!PLOSS(WR_HONO) = +KTR27+KR8*<WR_OH>
+ PLOSS(:,73) = +TPK%KTR27(:)+TPK%KR8(:)*PCONC(:,77)
+!
+!PPROD(WR_HNO3) = +KTR8*<HNO3>+KR12*<WR_HNO4>*<WR_SO2>+KR14*<WR_N2O5>+KR14*<WR_
+!N2O5>+KR15*<WR_NO3>*<WR_SULF>+KR16*<WR_NO3>*<WR_SO2>
+ PPROD(:,74) = +TPK%KTR8(:)*PCONC(:,8)+TPK%KR12(:)*PCONC(:,75)*PCONC(:,80)+TPK%&
+&KR14(:)*PCONC(:,72)+TPK%KR14(:)*PCONC(:,72)+TPK%KR15(:)*PCONC(:,71)*PCONC(:,81&
+&)+TPK%KR16(:)*PCONC(:,71)*PCONC(:,80)
+!PLOSS(WR_HNO3) = +KTR28+KR13
+ PLOSS(:,74) = +TPK%KTR28(:)+TPK%KR13(:)
+!
+!PPROD(WR_HNO4) = +KTR9*<HNO4>+KR9*<WR_NO2>*<WR_HO2>
+ PPROD(:,75) = +TPK%KTR9(:)*PCONC(:,9)+TPK%KR9(:)*PCONC(:,70)*PCONC(:,78)
+!PLOSS(WR_HNO4) = +KTR29+KR10+KR11+KR12*<WR_SO2>
+ PLOSS(:,75) = +TPK%KTR29(:)+TPK%KR10(:)+TPK%KR11(:)+TPK%KR12(:)*PCONC(:,80)
+!
+!PPROD(WR_NH3) = +KTR10*<NH3>
+ PPROD(:,76) = +TPK%KTR10(:)*PCONC(:,10)
+!PLOSS(WR_NH3) = +KTR30
+ PLOSS(:,76) = +TPK%KTR30(:)
+!
+!PPROD(WR_OH) = +KTR11*<OH>+KR1*<WR_H2O2>+KR1*<WR_H2O2>+KR6*<WR_O3>*<WR_HO2>+KR
+!13*<WR_HNO3>+KR28*<WR_ASO4>
+ PPROD(:,77) = +TPK%KTR11(:)*PCONC(:,14)+TPK%KR1(:)*PCONC(:,68)+TPK%KR1(:)*PCON&
+&C(:,68)+TPK%KR6(:)*PCONC(:,67)*PCONC(:,78)+TPK%KR13(:)*PCONC(:,74)+TPK%KR28(:)&
+&*PCONC(:,88)
+!PLOSS(WR_OH) = +KTR31+KR2*<WR_OH>+KR2*<WR_OH>+KR3*<WR_HO2>+KR4*<WR_H2O2>+KR7*<
+!WR_SO2>+KR8*<WR_HONO>+KR19*<WR_HCHO>+KR20*<WR_ORA1>+KR23*<WR_AHMS>
+ PLOSS(:,77) = +TPK%KTR31(:)+TPK%KR2(:)*PCONC(:,77)+TPK%KR2(:)*PCONC(:,77)+TPK%&
+&KR3(:)*PCONC(:,78)+TPK%KR4(:)*PCONC(:,68)+TPK%KR7(:)*PCONC(:,80)+TPK%KR8(:)*PC&
+&ONC(:,73)+TPK%KR19(:)*PCONC(:,82)+TPK%KR20(:)*PCONC(:,83)+TPK%KR23(:)*PCONC(:,&
+&91)
+!
+!PPROD(WR_HO2) = +KTR12*<HO2>+KR4*<WR_H2O2>*<WR_OH>+KR10*<WR_HNO4>+2.00*KR17*<W
+!R_MO2>*<WR_MO2>+KR19*<WR_HCHO>*<WR_OH>+KR20*<WR_ORA1>*<WR_OH>+KR23*<WR_AHMS>*<
+!WR_OH>
+ PPROD(:,78) = +TPK%KTR12(:)*PCONC(:,15)+TPK%KR4(:)*PCONC(:,68)*PCONC(:,77)+TPK&
+&%KR10(:)*PCONC(:,75)+2.00*TPK%KR17(:)*PCONC(:,85)*PCONC(:,85)+TPK%KR19(:)*PCON&
+&C(:,82)*PCONC(:,77)+TPK%KR20(:)*PCONC(:,83)*PCONC(:,77)+TPK%KR23(:)*PCONC(:,91&
+&)*PCONC(:,77)
+!PLOSS(WR_HO2) = +KTR32+KR3*<WR_OH>+KR5*<WR_HO2>+KR5*<WR_HO2>+KR6*<WR_O3>+KR9*<
+!WR_NO2>+KR25*<WR_ASO5>
+ PLOSS(:,78) = +TPK%KTR32(:)+TPK%KR3(:)*PCONC(:,77)+TPK%KR5(:)*PCONC(:,78)+TPK%&
+&KR5(:)*PCONC(:,78)+TPK%KR6(:)*PCONC(:,67)+TPK%KR9(:)*PCONC(:,70)+TPK%KR25(:)*P&
+&CONC(:,89)
+!
+!PPROD(WR_CO2) = +KTR13*<CO2>+KR20*<WR_ORA1>*<WR_OH>
+ PPROD(:,79) = +TPK%KTR13(:)*TPK%CO2(:)+TPK%KR20(:)*PCONC(:,83)*PCONC(:,77)
+!PLOSS(WR_CO2) = +KTR33
+ PLOSS(:,79) = +TPK%KTR33(:)
+!
+!PPROD(WR_SO2) = +KTR14*<SO2>+KR22*<WR_AHMS>+KR23*<WR_AHMS>*<WR_OH>
+ PPROD(:,80) = +TPK%KTR14(:)*PCONC(:,11)+TPK%KR22(:)*PCONC(:,91)+TPK%KR23(:)*PC&
+&ONC(:,91)*PCONC(:,77)
+!PLOSS(WR_SO2) = +KTR34+KR7*<WR_OH>+KR12*<WR_HNO4>+KR16*<WR_NO3>+KR18*<WR_MO2>+
+!KR21*<WR_HCHO>+KR27*<WR_AHSO5>+KR29*<WR_O3>+KR30*<WR_H2O2>
+ PLOSS(:,80) = +TPK%KTR34(:)+TPK%KR7(:)*PCONC(:,77)+TPK%KR12(:)*PCONC(:,75)+TPK&
+&%KR16(:)*PCONC(:,71)+TPK%KR18(:)*PCONC(:,85)+TPK%KR21(:)*PCONC(:,82)+TPK%KR27(&
+&:)*PCONC(:,90)+TPK%KR29(:)*PCONC(:,67)+TPK%KR30(:)*PCONC(:,68)
!
RETURN
END SUBROUTINE SUB7
@@ -10659,797 +4950,806 @@ SUBROUTINE SUB8
!Indices 81 a 90
!
!
-!PPROD(PAN6) = +K131*<NO2>*<RO254>
- PPROD(:,81) = +TPK%K131(:)*PCONC(:,2)*TPK%RO254(:)
-!PLOSS(PAN6) = +K140
- PLOSS(:,81) = +TPK%K140(:)
-!
-!PPROD(PAN7) = +K132*<NO2>*<RO255>
- PPROD(:,82) = +TPK%K132(:)*PCONC(:,2)*TPK%RO255(:)
-!PLOSS(PAN7) = +K343
- PLOSS(:,82) = +TPK%K343(:)
-!
-!PPROD(PAN8) = +K316*<NO2>*<RO256>
- PPROD(:,83) = +TPK%K316(:)*PCONC(:,2)*TPK%RO256(:)
-!PLOSS(PAN8) = +K317
- PLOSS(:,83) = +TPK%K317(:)
-!
-!PPROD(PN10) = +K134*<NO2>*<RO258>
- PPROD(:,84) = +TPK%K134(:)*PCONC(:,2)*TPK%RO258(:)
-!PLOSS(PN10) = +K138
- PLOSS(:,84) = +TPK%K138(:)
-!
-!PPROD(RO2T) = +K043*<OH>*<CH4>+K049*<OH>*<ETHE>+K050*<NO3>*<ETHE>+K052*<O>*<ET
-!HE>+TPK%CF2*K053*<OH>*<ETOH>+K054*<OH>*<OLEL>+K055*<NO3>*<OLEL>+0.28*K056*<O3>
-!*<OLEL>+0.2*K057*<O>*<OLEL>+K058*<OH>*<ALKL>+K059*<ALD2>+K060*<OH>*<ALD2>+K061
-!*<NO3>*<ALD2>+K062*<OH>*<KETL>+2.*K063*<KETL>+K064*<OH>*<ISOP>+K065*<NO3>*<ISO
-!P>+0.366*K066*<O3>*<ISOP>+K068*<OH>*<MTBE>+K069*<OH>*<ALCH>+K070*<OH>*<KETH>+2
-!.*K071*<KETH>+0.1*K073*<OH>*<AROO>+K074*<OH>*<OLEH>+K075*<NO3>*<OLEH>+0.28*K07
-!6*<O3>*<OLEH>+0.2*K077*<O>*<OLEH>+K078*<OH>*<ALKM>+0.06*K079*<OH>*<AROL>+TPK%C
-!F45*K082*<OH>*<ARAL>+0.1*K083*<OH>*<ARAC>+K084*<OH>*<BIOL>+K085*<NO3>*<BIOL>+0
-!.445*K086*<O3>*<BIOL>+K088*<OH>*<BIOH>+K089*<NO3>*<BIOH>+0.89*K090*<O3>*<BIOH>
-!+0.1*K092*<OH>*<PAH>+K093*<OH>*<ALKH>+K096*<RO2T>*<RO2T>+K097*<RAD2>+K098*<RAD
-!3>+K099*<RAD4>+K100*<RAD5>+K101*<RAD6>+K102*<RAD7>+K111*<RO2T>*<RO21>+K114*<RO
-!2T>*<RO22>+K117*<RO2T>*<RO23>+K120*<RO2T>*<RO24>+K123*<RO2T>*<RO25>+K125*<NO>*
-!<RO26>+K135*<PAN1>+K136*<PAN2>+K137*<PAN3>+K138*<PN10>+1.0000000*K139*<APAN>+K
-!140*<PAN6>+K141*<PAN4>+2.*K143*<RO2T>*<RO26>+K144*<NO>*<RO27>+2.*K145*<RO2T>*<
-!RO27>+K146*<HO2>*<RO27>+K147*<NO>*<RO28>+2.*K149*<RO2T>*<RO28>+K151*<RO2T>*<RO
-!29>+K154*<RO2T>*<RO210>+K157*<RO2T>*<RO211>+K160*<RO2T>*<RO212>+K162*<NO>*<RO2
-!13>+2.*K163*<RO2T>*<RO213>+K164*<HO2>*<RO213>+K165*<NO>*<RO239>+2.*K167*<RO2T>
-!*<RO239>+TPK%CF8*K168*<NO>*<RO214>+2.*K169*<RO2T>*<RO214>+K170*<HO2>*<RO214>+K
-!172*<RO2T>*<RO215>+K174*<NO>*<RO216>+2.*K175*<RO2T>*<RO216>+K176*<HO2>*<RO216>
-!+K178*<RO2T>*<RO217>+K181*<RO2T>*<RO218>+K184*<RO2T>*<RO219>+TPK%CF18*K186*<NO
-!>*<RO220>+2.*K187*<RO2T>*<RO220>+K188*<HO2>*<RO220>+K190*<RO2T>*<RO221>+K193*<
-!RO2T>*<RO222>+K196*<RO2T>*<RO223>+K199*<RO2T>*<RO224>+K202*<RO2T>*<RO225>+K204
-!*<NO>*<RO226>+2.*K205*<RO2T>*<RO226>+K206*<HO2>*<RO226>+K208*<RO2T>*<RO227>+K2
-!11*<RO2T>*<RO228>+TPK%CF30*K213*<NO>*<RO229>+2.*K214*<RO2T>*<RO229>+K215*<HO2>
-!*<RO229>+K216*<NO>*<RO240>+2.*K217*<RO2T>*<RO240>+K218*<HO2>*<RO240>+2.*K219*<
-!RO2T>*<RO230>+K220*<HO2>*<RO230>+K222*<RO2T>*<RO231>+TPK%CF34*K224*<NO>*<RO232
-!>+2.*K225*<RO2T>*<RO232>+K226*<HO2>*<RO232>+K228*<RO2T>*<RO241>+K230*<RO233>+K
-!232*<RO2T>*<RO233>+K235*<RO2T>*<RO242>+K237*<RO234>+K239*<RO2T>*<RO234>+K242*<
-!RO2T>*<RO243>+K244*<RO235>+K246*<RO2T>*<RO235>+K249*<RO2T>*<RO244>+K251*<RO236
-!>+K253*<RO2T>*<RO236>+K256*<RO2T>*<RO245>+K258*<RO237>+K260*<RO2T>*<RO237>+K26
-!3*<RO2T>*<RO246>+K265*<RO238>+K267*<RO2T>*<RO238>+K270*<RO2T>*<RO247>+K272*<OH
-!>*<MVK>+K273*<OH>*<MCR>+K274*<OH>*<MGLY>+K275*<NO3>*<MCR>+K276*<MGLY>+K277*<NO
-!>*<RO248>+K278*<NO3>*<MGLY>+2.*K280*<RO2T>*<RO248>+0.28*K281*<O3>*<MVK>+0.41*K
-!282*<O3>*<MCR>+0.3*K283*<O>*<MVK>+0.15*K284*<O>*<MCR>+K286*<RO2T>*<RO249>+K288
-!*<NO>*<RO250>+2.*K290*<RO2T>*<RO250>+K292*<HO2>*<RO251>+K295*<HO2>*<RO252>+K29
-!7*<NO>*<RO253>+2.*K298*<HO2>*<RO253>+K299*<RO2T>*<RO253>+K302*<RO2T>*<RO254>+K
-!304*<OH>*<RPR1>+K305*<OH>*<RP16>+K307*<NO3>*<RPR1>+K308*<RPR1>+K309*<NO>*<RO25
-!5>+2.*K311*<RO2T>*<RO255>+K312*<OH>*<RPR3>+K313*<NO3>*<RPR3>+K317*<PAN8>+K319*
-!<RO2T>*<RO256>+K324*<OH>*<RPR8>+K327*<NO3>*<RPR8>+K329*<RPR8>+K330*<RPR8>+K331
-!*<NO>*<RO257>+2.*K333*<RO2T>*<RO257>+K338*<NO3>*<RP16>+K342*<RO2T>*<RO258>+K34
-!3*<PAN7>+K344*<NO>*<RO230>
- PPROD(:,85) = +TPK%K043(:)*PCONC(:,15)*TPK%CH4(:)+TPK%K049(:)*PCONC(:,15)*PCON&
-&C(:,16)+TPK%K050(:)*PCONC(:,8)*PCONC(:,16)+TPK%K052(:)*TPK%O(:)*PCONC(:,16)+TP&
-&K%CF2*TPK%K053(:)*PCONC(:,15)*PCONC(:,33)+TPK%K054(:)*PCONC(:,15)*PCONC(:,17)+&
-&TPK%K055(:)*PCONC(:,8)*PCONC(:,17)+0.28*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)+0.2&
-&*TPK%K057(:)*TPK%O(:)*PCONC(:,17)+TPK%K058(:)*PCONC(:,15)*PCONC(:,19)+TPK%K059&
-&(:)*PCONC(:,29)+TPK%K060(:)*PCONC(:,15)*PCONC(:,29)+TPK%K061(:)*PCONC(:,8)*PCO&
-&NC(:,29)+TPK%K062(:)*PCONC(:,15)*PCONC(:,30)+2.*TPK%K063(:)*PCONC(:,30)+TPK%K0&
-&64(:)*PCONC(:,15)*PCONC(:,35)+TPK%K065(:)*PCONC(:,8)*PCONC(:,35)+0.366*TPK%K06&
-&6(:)*PCONC(:,3)*PCONC(:,35)+TPK%K068(:)*PCONC(:,15)*PCONC(:,38)+TPK%K069(:)*PC&
-&ONC(:,15)*PCONC(:,34)+TPK%K070(:)*PCONC(:,15)*PCONC(:,31)+2.*TPK%K071(:)*PCONC&
-&(:,31)+0.1*TPK%K073(:)*PCONC(:,15)*PCONC(:,24)+TPK%K074(:)*PCONC(:,15)*PCONC(:&
-&,18)+TPK%K075(:)*PCONC(:,8)*PCONC(:,18)+0.28*TPK%K076(:)*PCONC(:,3)*PCONC(:,18&
-&)+0.2*TPK%K077(:)*TPK%O(:)*PCONC(:,18)+TPK%K078(:)*PCONC(:,15)*PCONC(:,20)+0.0&
-&6*TPK%K079(:)*PCONC(:,15)*PCONC(:,23)+TPK%CF45*TPK%K082(:)*PCONC(:,15)*PCONC(:&
-&,25)+0.1*TPK%K083(:)*PCONC(:,15)*PCONC(:,26)+TPK%K084(:)*PCONC(:,15)*PCONC(:,3&
-&6)+TPK%K085(:)*PCONC(:,8)*PCONC(:,36)+0.445*TPK%K086(:)*PCONC(:,3)*PCONC(:,36)&
-&+TPK%K088(:)*PCONC(:,15)*PCONC(:,37)+TPK%K089(:)*PCONC(:,8)*PCONC(:,37)+0.89*T&
-&PK%K090(:)*PCONC(:,3)*PCONC(:,37)+0.1*TPK%K092(:)*PCONC(:,15)*PCONC(:,27)+TPK%&
-&K093(:)*PCONC(:,15)*PCONC(:,21)+TPK%K096(:)*PCONC(:,85)*PCONC(:,85)+TPK%K097(:&
-&)*TPK%RAD2(:)+TPK%K098(:)*TPK%RAD3(:)+TPK%K099(:)*TPK%RAD4(:)+TPK%K100(:)*TPK%&
-&RAD5(:)+TPK%K101(:)*TPK%RAD6(:)+TPK%K102(:)*TPK%RAD7(:)+TPK%K111(:)*PCONC(:,85&
-&)*PCONC(:,86)+TPK%K114(:)*PCONC(:,85)*TPK%RO22(:)+TPK%K117(:)*PCONC(:,85)*TPK%&
-&RO23(:)+TPK%K120(:)*PCONC(:,85)*TPK%RO24(:)+TPK%K123(:)*PCONC(:,85)*PCONC(:,87&
-&)+TPK%K125(:)*PCONC(:,1)*TPK%RO26(:)+TPK%K135(:)*PCONC(:,77)+TPK%K136(:)*PCONC&
-&(:,78)+TPK%K137(:)*PCONC(:,79)+TPK%K138(:)*PCONC(:,84)+1.0000000*TPK%K139(:)*P&
-&CONC(:,76)+TPK%K140(:)*PCONC(:,81)+TPK%K141(:)*PCONC(:,80)+2.*TPK%K143(:)*PCON&
-&C(:,85)*TPK%RO26(:)+TPK%K144(:)*PCONC(:,1)*TPK%RO27(:)+2.*TPK%K145(:)*PCONC(:,&
-&85)*TPK%RO27(:)+TPK%K146(:)*PCONC(:,10)*TPK%RO27(:)+TPK%K147(:)*PCONC(:,1)*TPK&
-&%RO28(:)+2.*TPK%K149(:)*PCONC(:,85)*TPK%RO28(:)+TPK%K151(:)*PCONC(:,85)*TPK%RO&
-&29(:)+TPK%K154(:)*PCONC(:,85)*TPK%RO210(:)+TPK%K157(:)*PCONC(:,85)*TPK%RO211(:&
-&)+TPK%K160(:)*PCONC(:,85)*TPK%RO212(:)+TPK%K162(:)*PCONC(:,1)*TPK%RO213(:)+2.*&
-&TPK%K163(:)*PCONC(:,85)*TPK%RO213(:)+TPK%K164(:)*PCONC(:,10)*TPK%RO213(:)+TPK%&
-&K165(:)*PCONC(:,1)*TPK%RO239(:)+2.*TPK%K167(:)*PCONC(:,85)*TPK%RO239(:)+TPK%CF&
-&8*TPK%K168(:)*PCONC(:,1)*TPK%RO214(:)+2.*TPK%K169(:)*PCONC(:,85)*TPK%RO214(:)+&
-&TPK%K170(:)*PCONC(:,10)*TPK%RO214(:)+TPK%K172(:)*PCONC(:,85)*TPK%RO215(:)+TPK%&
-&K174(:)*PCONC(:,1)*TPK%RO216(:)+2.*TPK%K175(:)*PCONC(:,85)*TPK%RO216(:)+TPK%K1&
-&76(:)*PCONC(:,10)*TPK%RO216(:)+TPK%K178(:)*PCONC(:,85)*TPK%RO217(:)+TPK%K181(:&
-&)*PCONC(:,85)*TPK%RO218(:)+TPK%K184(:)*PCONC(:,85)*TPK%RO219(:)+TPK%CF18*TPK%K&
-&186(:)*PCONC(:,1)*TPK%RO220(:)+2.*TPK%K187(:)*PCONC(:,85)*TPK%RO220(:)+TPK%K18&
-&8(:)*PCONC(:,10)*TPK%RO220(:)+TPK%K190(:)*PCONC(:,85)*TPK%RO221(:)+TPK%K193(:)&
-&*PCONC(:,85)*TPK%RO222(:)+TPK%K196(:)*PCONC(:,85)*TPK%RO223(:)+TPK%K199(:)*PCO&
-&NC(:,85)*TPK%RO224(:)+TPK%K202(:)*PCONC(:,85)*TPK%RO225(:)+TPK%K204(:)*PCONC(:&
-&,1)*TPK%RO226(:)+2.*TPK%K205(:)*PCONC(:,85)*TPK%RO226(:)+TPK%K206(:)*PCONC(:,1&
-&0)*TPK%RO226(:)+TPK%K208(:)*PCONC(:,85)*TPK%RO227(:)+TPK%K211(:)*PCONC(:,85)*T&
-&PK%RO228(:)+TPK%CF30*TPK%K213(:)*PCONC(:,1)*TPK%RO229(:)+2.*TPK%K214(:)*PCONC(&
-&:,85)*TPK%RO229(:)+TPK%K215(:)*PCONC(:,10)*TPK%RO229(:)+TPK%K216(:)*PCONC(:,1)&
-&*TPK%RO240(:)+2.*TPK%K217(:)*PCONC(:,85)*TPK%RO240(:)+TPK%K218(:)*PCONC(:,10)*&
-&TPK%RO240(:)+2.*TPK%K219(:)*PCONC(:,85)*TPK%RO230(:)+TPK%K220(:)*PCONC(:,10)*T&
-&PK%RO230(:)+TPK%K222(:)*PCONC(:,85)*TPK%RO231(:)+TPK%CF34*TPK%K224(:)*PCONC(:,&
-&1)*TPK%RO232(:)+2.*TPK%K225(:)*PCONC(:,85)*TPK%RO232(:)+TPK%K226(:)*PCONC(:,10&
-&)*TPK%RO232(:)+TPK%K228(:)*PCONC(:,85)*TPK%RO241(:)+TPK%K230(:)*TPK%RO233(:)+T&
-&PK%K232(:)*PCONC(:,85)*TPK%RO233(:)+TPK%K235(:)*PCONC(:,85)*TPK%RO242(:)+TPK%K&
-&237(:)*TPK%RO234(:)+TPK%K239(:)*PCONC(:,85)*TPK%RO234(:)+TPK%K242(:)*PCONC(:,8&
-&5)*TPK%RO243(:)+TPK%K244(:)*TPK%RO235(:)+TPK%K246(:)*PCONC(:,85)*TPK%RO235(:)+&
-&TPK%K249(:)*PCONC(:,85)*TPK%RO244(:)+TPK%K251(:)*TPK%RO236(:)+TPK%K253(:)*PCON&
-&C(:,85)*TPK%RO236(:)+TPK%K256(:)*PCONC(:,85)*TPK%RO245(:)+TPK%K258(:)*TPK%RO23&
-&7(:)+TPK%K260(:)*PCONC(:,85)*TPK%RO237(:)+TPK%K263(:)*PCONC(:,85)*TPK%RO246(:)&
-&+TPK%K265(:)*TPK%RO238(:)+TPK%K267(:)*PCONC(:,85)*TPK%RO238(:)+TPK%K270(:)*PCO&
-&NC(:,85)*TPK%RO247(:)+TPK%K272(:)*PCONC(:,15)*PCONC(:,39)+TPK%K273(:)*PCONC(:,&
-&15)*PCONC(:,40)+TPK%K274(:)*PCONC(:,15)*PCONC(:,41)+TPK%K275(:)*PCONC(:,8)*PCO&
-&NC(:,40)+TPK%K276(:)*PCONC(:,41)+TPK%K277(:)*PCONC(:,1)*TPK%RO248(:)+TPK%K278(&
-&:)*PCONC(:,8)*PCONC(:,41)+2.*TPK%K280(:)*PCONC(:,85)*TPK%RO248(:)+0.28*TPK%K28&
-&1(:)*PCONC(:,3)*PCONC(:,39)+0.41*TPK%K282(:)*PCONC(:,3)*PCONC(:,40)+0.3*TPK%K2&
-&83(:)*TPK%O(:)*PCONC(:,39)+0.15*TPK%K284(:)*TPK%O(:)*PCONC(:,40)+TPK%K286(:)*P&
-&CONC(:,85)*TPK%RO249(:)+TPK%K288(:)*PCONC(:,1)*TPK%RO250(:)+2.*TPK%K290(:)*PCO&
-&NC(:,85)*TPK%RO250(:)+TPK%K292(:)*PCONC(:,10)*TPK%RO251(:)+TPK%K295(:)*PCONC(:&
-&,10)*TPK%RO252(:)+TPK%K297(:)*PCONC(:,1)*TPK%RO253(:)+2.*TPK%K298(:)*PCONC(:,1&
-&0)*TPK%RO253(:)+TPK%K299(:)*PCONC(:,85)*TPK%RO253(:)+TPK%K302(:)*PCONC(:,85)*T&
-&PK%RO254(:)+TPK%K304(:)*PCONC(:,15)*PCONC(:,69)+TPK%K305(:)*PCONC(:,15)*PCONC(&
-&:,74)+TPK%K307(:)*PCONC(:,8)*PCONC(:,69)+TPK%K308(:)*PCONC(:,69)+TPK%K309(:)*P&
-&CONC(:,1)*TPK%RO255(:)+2.*TPK%K311(:)*PCONC(:,85)*TPK%RO255(:)+TPK%K312(:)*PCO&
-&NC(:,15)*PCONC(:,57)+TPK%K313(:)*PCONC(:,8)*PCONC(:,57)+TPK%K317(:)*PCONC(:,83&
-&)+TPK%K319(:)*PCONC(:,85)*TPK%RO256(:)+TPK%K324(:)*PCONC(:,15)*PCONC(:,71)+TPK&
-&%K327(:)*PCONC(:,8)*PCONC(:,71)+TPK%K329(:)*PCONC(:,71)+TPK%K330(:)*PCONC(:,71&
-&)+TPK%K331(:)*PCONC(:,1)*TPK%RO257(:)+2.*TPK%K333(:)*PCONC(:,85)*TPK%RO257(:)+&
-&TPK%K338(:)*PCONC(:,8)*PCONC(:,74)+TPK%K342(:)*PCONC(:,85)*TPK%RO258(:)+TPK%K3&
-&43(:)*PCONC(:,82)+TPK%K344(:)*PCONC(:,1)*TPK%RO230(:)
-!PLOSS(RO2T) = +K094*<HO2>+K095*<NO>+K096*<RO2T>+K096*<RO2T>+K111*<RO21>+K114*<
-!RO22>+K117*<RO23>+K120*<RO24>+K123*<RO25>+K143*<RO26>+K145*<RO27>+K149*<RO28>+
-!K151*<RO29>+K154*<RO210>+K157*<RO211>+K160*<RO212>+K163*<RO213>+K167*<RO239>+K
-!169*<RO214>+K172*<RO215>+K175*<RO216>+K178*<RO217>+K181*<RO218>+K184*<RO219>+K
-!187*<RO220>+K190*<RO221>+K193*<RO222>+K196*<RO223>+K199*<RO224>+K202*<RO225>+K
-!205*<RO226>+K208*<RO227>+K211*<RO228>+K214*<RO229>+K217*<RO240>+K219*<RO230>+K
-!222*<RO231>+K225*<RO232>+K228*<RO241>+K232*<RO233>+K235*<RO242>+K239*<RO234>+K
-!242*<RO243>+K246*<RO235>+K249*<RO244>+K253*<RO236>+K256*<RO245>+K260*<RO237>+K
-!263*<RO246>+K267*<RO238>+K270*<RO247>+K280*<RO248>+K286*<RO249>+K290*<RO250>+K
-!293*<RO251>+K296*<RO252>+K299*<RO253>+K302*<RO254>+K311*<RO255>+K319*<RO256>+K
-!333*<RO257>+K342*<RO258>
- PLOSS(:,85) = +TPK%K094(:)*PCONC(:,10)+TPK%K095(:)*PCONC(:,1)+TPK%K096(:)*PCON&
-&C(:,85)+TPK%K096(:)*PCONC(:,85)+TPK%K111(:)*PCONC(:,86)+TPK%K114(:)*TPK%RO22(:&
-&)+TPK%K117(:)*TPK%RO23(:)+TPK%K120(:)*TPK%RO24(:)+TPK%K123(:)*PCONC(:,87)+TPK%&
-&K143(:)*TPK%RO26(:)+TPK%K145(:)*TPK%RO27(:)+TPK%K149(:)*TPK%RO28(:)+TPK%K151(:&
-&)*TPK%RO29(:)+TPK%K154(:)*TPK%RO210(:)+TPK%K157(:)*TPK%RO211(:)+TPK%K160(:)*TP&
-&K%RO212(:)+TPK%K163(:)*TPK%RO213(:)+TPK%K167(:)*TPK%RO239(:)+TPK%K169(:)*TPK%R&
-&O214(:)+TPK%K172(:)*TPK%RO215(:)+TPK%K175(:)*TPK%RO216(:)+TPK%K178(:)*TPK%RO21&
-&7(:)+TPK%K181(:)*TPK%RO218(:)+TPK%K184(:)*TPK%RO219(:)+TPK%K187(:)*TPK%RO220(:&
-&)+TPK%K190(:)*TPK%RO221(:)+TPK%K193(:)*TPK%RO222(:)+TPK%K196(:)*TPK%RO223(:)+T&
-&PK%K199(:)*TPK%RO224(:)+TPK%K202(:)*TPK%RO225(:)+TPK%K205(:)*TPK%RO226(:)+TPK%&
-&K208(:)*TPK%RO227(:)+TPK%K211(:)*TPK%RO228(:)+TPK%K214(:)*TPK%RO229(:)+TPK%K21&
-&7(:)*TPK%RO240(:)+TPK%K219(:)*TPK%RO230(:)+TPK%K222(:)*TPK%RO231(:)+TPK%K225(:&
-&)*TPK%RO232(:)+TPK%K228(:)*TPK%RO241(:)+TPK%K232(:)*TPK%RO233(:)+TPK%K235(:)*T&
-&PK%RO242(:)+TPK%K239(:)*TPK%RO234(:)+TPK%K242(:)*TPK%RO243(:)+TPK%K246(:)*TPK%&
-&RO235(:)+TPK%K249(:)*TPK%RO244(:)+TPK%K253(:)*TPK%RO236(:)+TPK%K256(:)*TPK%RO2&
-&45(:)+TPK%K260(:)*TPK%RO237(:)+TPK%K263(:)*TPK%RO246(:)+TPK%K267(:)*TPK%RO238(&
-&:)+TPK%K270(:)*TPK%RO247(:)+TPK%K280(:)*TPK%RO248(:)+TPK%K286(:)*TPK%RO249(:)+&
-&TPK%K290(:)*TPK%RO250(:)+TPK%K293(:)*TPK%RO251(:)+TPK%K296(:)*TPK%RO252(:)+TPK&
-&%K299(:)*TPK%RO253(:)+TPK%K302(:)*TPK%RO254(:)+TPK%K311(:)*TPK%RO255(:)+TPK%K3&
-&19(:)*TPK%RO256(:)+TPK%K333(:)*TPK%RO257(:)+TPK%K342(:)*TPK%RO258(:)
-!
-!PPROD(RO21) = +K043*<OH>*<CH4>+0.6*K052*<O>*<ETHE>+K147*<NO>*<RO28>+K149*<RO2T
-!>*<RO28>+KTC47*<WC_RO21>+KTR47*<WR_RO21>
- PPROD(:,86) = +TPK%K043(:)*PCONC(:,15)*TPK%CH4(:)+0.6*TPK%K052(:)*TPK%O(:)*PCO&
-&NC(:,16)+TPK%K147(:)*PCONC(:,1)*TPK%RO28(:)+TPK%K149(:)*PCONC(:,85)*TPK%RO28(:&
-&)+TPK%KTC47(:)*PCONC(:,103)+TPK%KTR47(:)*PCONC(:,140)
-!PLOSS(RO21) = +K110*<NO>+K111*<RO2T>+K112*<HO2>+KTC16+KTR16
- PLOSS(:,86) = +TPK%K110(:)*PCONC(:,1)+TPK%K111(:)*PCONC(:,85)+TPK%K112(:)*PCON&
-&C(:,10)+TPK%KTC16(:)+TPK%KTR16(:)
-!
-!PPROD(RO25) = +0.28*K056*<O3>*<OLEL>+0.1*K057*<O>*<OLEL>+K058*<OH>*<ALKL>+K059
-!*<ALD2>+K063*<KETL>+K071*<KETH>+K125*<NO>*<RO26>+K143*<RO2T>*<RO26>+KTC48*<WC_
-!RO25>+KTR48*<WR_RO25>
- PPROD(:,87) = +0.28*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)+0.1*TPK%K057(:)*TPK%O(:&
-&)*PCONC(:,17)+TPK%K058(:)*PCONC(:,15)*PCONC(:,19)+TPK%K059(:)*PCONC(:,29)+TPK%&
-&K063(:)*PCONC(:,30)+TPK%K071(:)*PCONC(:,31)+TPK%K125(:)*PCONC(:,1)*TPK%RO26(:)&
-&+TPK%K143(:)*PCONC(:,85)*TPK%RO26(:)+TPK%KTC48(:)*PCONC(:,104)+TPK%KTR48(:)*PC&
-&ONC(:,141)
-!PLOSS(RO25) = +K122*<NO>+K123*<RO2T>+K124*<HO2>+KTC17+KTR17
- PLOSS(:,87) = +TPK%K122(:)*PCONC(:,1)+TPK%K123(:)*PCONC(:,85)+TPK%K124(:)*PCON&
-&C(:,10)+TPK%KTC17(:)+TPK%KTR17(:)
-!
-!PPROD(WC_O3) = +KTC1*<O3>
- PPROD(:,88) = +TPK%KTC1(:)*PCONC(:,3)
-!PLOSS(WC_O3) = +KTC32+KC6*<WC_HO2>+KC25*<WC_SO2>
- PLOSS(:,88) = +TPK%KTC32(:)+TPK%KC6(:)*PCONC(:,99)+TPK%KC25(:)*PCONC(:,101)
-!
-!PPROD(WC_H2O2) = +KTC2*<H2O2>+KC2*<WC_OH>*<WC_OH>+KC5*<WC_HO2>*<WC_HO2>+KC29*<
-!WC_RO25>*<WC_RO25>+KC37*<WC_OH>*<WC_KETL>+0.5*KC39*<WC_OH>*<WC_ORA2>+0.29*KC41
-!*<WC_OH>*<WC_ACID>+0.3*KC43*<WC_OH>*<WC_UR21>+0.45*KC45*<WC_OH>*<WC_RP16>
- PPROD(:,89) = +TPK%KTC2(:)*PCONC(:,12)+TPK%KC2(:)*PCONC(:,98)*PCONC(:,98)+TPK%&
-&KC5(:)*PCONC(:,99)*PCONC(:,99)+TPK%KC29(:)*PCONC(:,104)*PCONC(:,104)+TPK%KC37(&
-&:)*PCONC(:,98)*PCONC(:,112)+0.5*TPK%KC39(:)*PCONC(:,98)*PCONC(:,114)+0.29*TPK%&
-&KC41(:)*PCONC(:,98)*PCONC(:,115)+0.3*TPK%KC43(:)*PCONC(:,98)*PCONC(:,117)+0.45&
-&*TPK%KC45(:)*PCONC(:,98)*PCONC(:,116)
-!PLOSS(WC_H2O2) = +KTC33+KC1+KC4*<WC_OH>+KC26*<WC_SO2>
- PLOSS(:,89) = +TPK%KTC33(:)+TPK%KC1(:)+TPK%KC4(:)*PCONC(:,98)+TPK%KC26(:)*PCON&
-&C(:,101)
-!
-!PPROD(WC_NO) = +KTC3*<NO>
- PPROD(:,90) = +TPK%KTC3(:)*PCONC(:,1)
-!PLOSS(WC_NO) = +KTC34
- PLOSS(:,90) = +TPK%KTC34(:)
+!PPROD(WR_SULF) = +KTR15*<SULF>+KR12*<WR_HNO4>*<WR_SO2>+2.00*KR27*<WR_AHSO5>*<W
+!R_SO2>+KR28*<WR_ASO4>+KR29*<WR_SO2>*<WR_O3>+KR30*<WR_SO2>*<WR_H2O2>
+ PPROD(:,81) = +TPK%KTR15(:)*PCONC(:,12)+TPK%KR12(:)*PCONC(:,75)*PCONC(:,80)+2.&
+&00*TPK%KR27(:)*PCONC(:,90)*PCONC(:,80)+TPK%KR28(:)*PCONC(:,88)+TPK%KR29(:)*PCO&
+&NC(:,80)*PCONC(:,67)+TPK%KR30(:)*PCONC(:,80)*PCONC(:,68)
+!PLOSS(WR_SULF) = +KTR35+KR15*<WR_NO3>
+ PLOSS(:,81) = +TPK%KTR35(:)+TPK%KR15(:)*PCONC(:,71)
+!
+!PPROD(WR_HCHO) = +KTR16*<HCHO>+2.00*KR17*<WR_MO2>*<WR_MO2>+KR22*<WR_AHMS>
+ PPROD(:,82) = +TPK%KTR16(:)*PCONC(:,22)+2.00*TPK%KR17(:)*PCONC(:,85)*PCONC(:,8&
+&5)+TPK%KR22(:)*PCONC(:,91)
+!PLOSS(WR_HCHO) = +KTR36+KR19*<WR_OH>+KR21*<WR_SO2>
+ PLOSS(:,82) = +TPK%KTR36(:)+TPK%KR19(:)*PCONC(:,77)+TPK%KR21(:)*PCONC(:,80)
+!
+!PPROD(WR_ORA1) = +KTR17*<ORA1>+KR19*<WR_HCHO>*<WR_OH>+KR23*<WR_AHMS>*<WR_OH>
+ PPROD(:,83) = +TPK%KTR17(:)*PCONC(:,30)+TPK%KR19(:)*PCONC(:,82)*PCONC(:,77)+TP&
+&K%KR23(:)*PCONC(:,91)*PCONC(:,77)
+!PLOSS(WR_ORA1) = +KTR37+KR20*<WR_OH>
+ PLOSS(:,83) = +TPK%KTR37(:)+TPK%KR20(:)*PCONC(:,77)
+!
+!PPROD(WR_ORA2) = +KTR18*<ORA2>
+ PPROD(:,84) = +TPK%KTR18(:)*PCONC(:,31)
+!PLOSS(WR_ORA2) = +KTR38
+ PLOSS(:,84) = +TPK%KTR38(:)
+!
+!PPROD(WR_MO2) = +KTR19*<MO2>
+ PPROD(:,85) = +TPK%KTR19(:)*PCONC(:,32)
+!PLOSS(WR_MO2) = +KTR39+KR17*<WR_MO2>+KR17*<WR_MO2>+KR18*<WR_SO2>
+ PLOSS(:,85) = +TPK%KTR39(:)+TPK%KR17(:)*PCONC(:,85)+TPK%KR17(:)*PCONC(:,85)+TP&
+&K%KR18(:)*PCONC(:,80)
+!
+!PPROD(WR_OP1) = +KTR20*<OP1>+KR18*<WR_MO2>*<WR_SO2>
+ PPROD(:,86) = +TPK%KTR20(:)*PCONC(:,28)+TPK%KR18(:)*PCONC(:,85)*PCONC(:,80)
+!PLOSS(WR_OP1) = +KTR40
+ PLOSS(:,86) = +TPK%KTR40(:)
+!
+!PPROD(WR_ASO3) = +KR7*<WR_OH>*<WR_SO2>+KR16*<WR_NO3>*<WR_SO2>+KR18*<WR_MO2>*<W
+!R_SO2>
+ PPROD(:,87) = +TPK%KR7(:)*PCONC(:,77)*PCONC(:,80)+TPK%KR16(:)*PCONC(:,71)*PCON&
+&C(:,80)+TPK%KR18(:)*PCONC(:,85)*PCONC(:,80)
+!PLOSS(WR_ASO3) = +KR24*<W_O2>
+ PLOSS(:,87) = +TPK%KR24(:)*TPK%W_O2(:)
+!
+!PPROD(WR_ASO4) = +KR15*<WR_NO3>*<WR_SULF>+KR26*<WR_ASO5>*<WR_ASO5>+KR26*<WR_AS
+!O5>*<WR_ASO5>
+ PPROD(:,88) = +TPK%KR15(:)*PCONC(:,71)*PCONC(:,81)+TPK%KR26(:)*PCONC(:,89)*PCO&
+&NC(:,89)+TPK%KR26(:)*PCONC(:,89)*PCONC(:,89)
+!PLOSS(WR_ASO4) = +KR28
+ PLOSS(:,88) = +TPK%KR28(:)
+!
+!PPROD(WR_ASO5) = +KR24*<WR_ASO3>*<W_O2>
+ PPROD(:,89) = +TPK%KR24(:)*PCONC(:,87)*TPK%W_O2(:)
+!PLOSS(WR_ASO5) = +KR25*<WR_HO2>+KR26*<WR_ASO5>+KR26*<WR_ASO5>
+ PLOSS(:,89) = +TPK%KR25(:)*PCONC(:,78)+TPK%KR26(:)*PCONC(:,89)+TPK%KR26(:)*PCO&
+&NC(:,89)
+!
+!PPROD(WR_AHSO5) = +KR25*<WR_ASO5>*<WR_HO2>
+ PPROD(:,90) = +TPK%KR25(:)*PCONC(:,89)*PCONC(:,78)
+!PLOSS(WR_AHSO5) = +KR27*<WR_SO2>
+ PLOSS(:,90) = +TPK%KR27(:)*PCONC(:,80)
!
RETURN
END SUBROUTINE SUB8
!
SUBROUTINE SUB9
!
-!Indices 91 a 100
-!
-!
-!PPROD(WC_NO2) = +KTC4*<NO2>+KC8*<WC_OH>*<WC_HONO>+KC10*<WC_HNO4>+KC13*<WC_HNO3
-!>
- PPROD(:,91) = +TPK%KTC4(:)*PCONC(:,2)+TPK%KC8(:)*PCONC(:,98)*PCONC(:,94)+TPK%K&
-&C10(:)*PCONC(:,96)+TPK%KC13(:)*PCONC(:,95)
-!PLOSS(WC_NO2) = +KTC35+KC9*<WC_HO2>
- PLOSS(:,91) = +TPK%KTC35(:)+TPK%KC9(:)*PCONC(:,99)
-!
-!PPROD(WC_NO3) = +KTC5*<NO3>
- PPROD(:,92) = +TPK%KTC5(:)*PCONC(:,8)
-!PLOSS(WC_NO3) = +KTC36+KC15*<WC_H2SO4>+KC16*<WC_SO2>
- PLOSS(:,92) = +TPK%KTC36(:)+TPK%KC15(:)*PCONC(:,102)+TPK%KC16(:)*PCONC(:,101)
-!
-!PPROD(WC_N2O5) = +KTC6*<N2O5>
- PPROD(:,93) = +TPK%KTC6(:)*PCONC(:,7)
-!PLOSS(WC_N2O5) = +KTC37+KC14
- PLOSS(:,93) = +TPK%KTC37(:)+TPK%KC14(:)
+!Indices 91 a 91
!
-!PPROD(WC_HONO) = +KTC7*<HONO>+KC11*<WC_HNO4>
- PPROD(:,94) = +TPK%KTC7(:)*PCONC(:,4)+TPK%KC11(:)*PCONC(:,96)
-!PLOSS(WC_HONO) = +KTC38+KC8*<WC_OH>
- PLOSS(:,94) = +TPK%KTC38(:)+TPK%KC8(:)*PCONC(:,98)
-!
-!PPROD(WC_HNO3) = +KTC8*<HNO3>+KC12*<WC_SO2>*<WC_HNO4>+KC14*<WC_N2O5>+KC14*<WC_
-!N2O5>+KC15*<WC_H2SO4>*<WC_NO3>+KC16*<WC_SO2>*<WC_NO3>
- PPROD(:,95) = +TPK%KTC8(:)*PCONC(:,5)+TPK%KC12(:)*PCONC(:,101)*PCONC(:,96)+TPK&
-&%KC14(:)*PCONC(:,93)+TPK%KC14(:)*PCONC(:,93)+TPK%KC15(:)*PCONC(:,102)*PCONC(:,&
-&92)+TPK%KC16(:)*PCONC(:,101)*PCONC(:,92)
-!PLOSS(WC_HNO3) = +KTC39+KC13
- PLOSS(:,95) = +TPK%KTC39(:)+TPK%KC13(:)
-!
-!PPROD(WC_HNO4) = +KTC9*<HNO4>+KC9*<WC_HO2>*<WC_NO2>
- PPROD(:,96) = +TPK%KTC9(:)*PCONC(:,6)+TPK%KC9(:)*PCONC(:,99)*PCONC(:,91)
-!PLOSS(WC_HNO4) = +KTC40+KC10+KC11+KC12*<WC_SO2>
- PLOSS(:,96) = +TPK%KTC40(:)+TPK%KC10(:)+TPK%KC11(:)+TPK%KC12(:)*PCONC(:,101)
!
-!PPROD(WC_NH3) = +KTC10*<NH3>
- PPROD(:,97) = +TPK%KTC10(:)*PCONC(:,9)
-!PLOSS(WC_NH3) = +KTC41
- PLOSS(:,97) = +TPK%KTC41(:)
-!
-!PPROD(WC_OH) = +KTC11*<OH>+KC1*<WC_H2O2>+KC1*<WC_H2O2>+KC6*<WC_HO2>*<WC_O3>+KC
-!13*<WC_HNO3>+KC24*<WC_ASO4>
- PPROD(:,98) = +TPK%KTC11(:)*PCONC(:,15)+TPK%KC1(:)*PCONC(:,89)+TPK%KC1(:)*PCON&
-&C(:,89)+TPK%KC6(:)*PCONC(:,99)*PCONC(:,88)+TPK%KC13(:)*PCONC(:,95)+TPK%KC24(:)&
-&*PCONC(:,121)
-!PLOSS(WC_OH) = +KTC42+KC2*<WC_OH>+KC2*<WC_OH>+KC3*<WC_HO2>+KC4*<WC_H2O2>+KC7*<
-!WC_SO2>+KC8*<WC_HONO>+KC19*<WC_AHMS>+KC30*<WC_MEOH>+KC31*<WC_ETOH>+KC32*<WC_AL
-!CH>+KC33*<WC_HCHO>+KC34*<WC_ALD2>+KC35*<WC_GLY>+KC36*<WC_MGLY>+KC37*<WC_KETL>+
-!KC38*<WC_ORA1>+KC39*<WC_ORA2>+KC40*<WC_ACID>+KC41*<WC_ACID>+KC42*<WC_UR28>+KC4
-!3*<WC_UR21>+KC44*<WC_RP16>+KC45*<WC_RP16>+KC46*<WC_ACID2>
- PLOSS(:,98) = +TPK%KTC42(:)+TPK%KC2(:)*PCONC(:,98)+TPK%KC2(:)*PCONC(:,98)+TPK%&
-&KC3(:)*PCONC(:,99)+TPK%KC4(:)*PCONC(:,89)+TPK%KC7(:)*PCONC(:,101)+TPK%KC8(:)*P&
-&CONC(:,94)+TPK%KC19(:)*PCONC(:,124)+TPK%KC30(:)*PCONC(:,105)+TPK%KC31(:)*PCONC&
-&(:,106)+TPK%KC32(:)*PCONC(:,107)+TPK%KC33(:)*PCONC(:,108)+TPK%KC34(:)*PCONC(:,&
-&109)+TPK%KC35(:)*PCONC(:,110)+TPK%KC36(:)*PCONC(:,111)+TPK%KC37(:)*PCONC(:,112&
-&)+TPK%KC38(:)*PCONC(:,113)+TPK%KC39(:)*PCONC(:,114)+TPK%KC40(:)*PCONC(:,115)+T&
-&PK%KC41(:)*PCONC(:,115)+TPK%KC42(:)*PCONC(:,118)+TPK%KC43(:)*PCONC(:,117)+TPK%&
-&KC44(:)*PCONC(:,116)+TPK%KC45(:)*PCONC(:,116)+TPK%KC46(:)*PCONC(:,119)
-!
-!PPROD(WC_HO2) = +KTC12*<HO2>+KC4*<WC_OH>*<WC_H2O2>+KC10*<WC_HNO4>+KC19*<WC_OH>
-!*<WC_AHMS>+2.00*KC27*<WC_RO21>*<WC_RO21>+KC29*<WC_RO25>*<WC_RO25>+KC30*<WC_OH>
-!*<WC_MEOH>+KC31*<WC_OH>*<WC_ETOH>+KC32*<WC_OH>*<WC_ALCH>+KC33*<WC_OH>*<WC_HCHO
-!>+KC35*<WC_OH>*<WC_GLY>+KC36*<WC_OH>*<WC_MGLY>+KC37*<WC_OH>*<WC_KETL>+KC38*<WC
-!_OH>*<WC_ORA1>+0.11*KC41*<WC_OH>*<WC_ACID>+KC42*<WC_OH>*<WC_UR28>+0.81*KC43*<W
-!C_OH>*<WC_UR21>+KC44*<WC_OH>*<WC_RP16>+0.71*KC45*<WC_OH>*<WC_RP16>
- PPROD(:,99) = +TPK%KTC12(:)*PCONC(:,10)+TPK%KC4(:)*PCONC(:,98)*PCONC(:,89)+TPK&
-&%KC10(:)*PCONC(:,96)+TPK%KC19(:)*PCONC(:,98)*PCONC(:,124)+2.00*TPK%KC27(:)*PCO&
-&NC(:,103)*PCONC(:,103)+TPK%KC29(:)*PCONC(:,104)*PCONC(:,104)+TPK%KC30(:)*PCONC&
-&(:,98)*PCONC(:,105)+TPK%KC31(:)*PCONC(:,98)*PCONC(:,106)+TPK%KC32(:)*PCONC(:,9&
-&8)*PCONC(:,107)+TPK%KC33(:)*PCONC(:,98)*PCONC(:,108)+TPK%KC35(:)*PCONC(:,98)*P&
-&CONC(:,110)+TPK%KC36(:)*PCONC(:,98)*PCONC(:,111)+TPK%KC37(:)*PCONC(:,98)*PCONC&
-&(:,112)+TPK%KC38(:)*PCONC(:,98)*PCONC(:,113)+0.11*TPK%KC41(:)*PCONC(:,98)*PCON&
-&C(:,115)+TPK%KC42(:)*PCONC(:,98)*PCONC(:,118)+0.81*TPK%KC43(:)*PCONC(:,98)*PCO&
-&NC(:,117)+TPK%KC44(:)*PCONC(:,98)*PCONC(:,116)+0.71*TPK%KC45(:)*PCONC(:,98)*PC&
-&ONC(:,116)
-!PLOSS(WC_HO2) = +KTC43+KC3*<WC_OH>+KC5*<WC_HO2>+KC5*<WC_HO2>+KC6*<WC_O3>+KC9*<
-!WC_NO2>+KC21*<WC_ASO5>
- PLOSS(:,99) = +TPK%KTC43(:)+TPK%KC3(:)*PCONC(:,98)+TPK%KC5(:)*PCONC(:,99)+TPK%&
-&KC5(:)*PCONC(:,99)+TPK%KC6(:)*PCONC(:,88)+TPK%KC9(:)*PCONC(:,91)+TPK%KC21(:)*P&
-&CONC(:,122)
-!
-!PPROD(WC_CO2) = +KTC13*<CO2>+KC34*<WC_OH>*<WC_ALD2>+KC37*<WC_OH>*<WC_KETL>+KC3
-!8*<WC_OH>*<WC_ORA1>+KC40*<WC_OH>*<WC_ACID>+2*KC42*<WC_OH>*<WC_UR28>+0.43*KC43*
-!<WC_OH>*<WC_UR21>+2*KC45*<WC_OH>*<WC_RP16>
- PPROD(:,100) = +TPK%KTC13(:)*TPK%CO2(:)+TPK%KC34(:)*PCONC(:,98)*PCONC(:,109)+T&
-&PK%KC37(:)*PCONC(:,98)*PCONC(:,112)+TPK%KC38(:)*PCONC(:,98)*PCONC(:,113)+TPK%K&
-&C40(:)*PCONC(:,98)*PCONC(:,115)+2*TPK%KC42(:)*PCONC(:,98)*PCONC(:,118)+0.43*TP&
-&K%KC43(:)*PCONC(:,98)*PCONC(:,117)+2*TPK%KC45(:)*PCONC(:,98)*PCONC(:,116)
-!PLOSS(WC_CO2) = +KTC44
- PLOSS(:,100) = +TPK%KTC44(:)
+!PPROD(WR_AHMS) = +KR21*<WR_SO2>*<WR_HCHO>
+ PPROD(:,91) = +TPK%KR21(:)*PCONC(:,80)*PCONC(:,82)
+!PLOSS(WR_AHMS) = +KR22+KR23*<WR_OH>
+ PLOSS(:,91) = +TPK%KR22(:)+TPK%KR23(:)*PCONC(:,77)
!
RETURN
END SUBROUTINE SUB9
!
-SUBROUTINE SUB10
-!
-!Indices 101 a 110
-!
-!
-!PPROD(WC_SO2) = +KTC14*<SO2>+KC18*<WC_AHMS>+KC19*<WC_OH>*<WC_AHMS>
- PPROD(:,101) = +TPK%KTC14(:)*PCONC(:,13)+TPK%KC18(:)*PCONC(:,124)+TPK%KC19(:)*&
-&PCONC(:,98)*PCONC(:,124)
-!PLOSS(WC_SO2) = +KTC45+KC7*<WC_OH>+KC12*<WC_HNO4>+KC16*<WC_NO3>+KC17*<WC_HCHO>
-!+KC23*<WC_AHSO5>+KC25*<WC_O3>+KC26*<WC_H2O2>+KC28*<WC_RO21>
- PLOSS(:,101) = +TPK%KTC45(:)+TPK%KC7(:)*PCONC(:,98)+TPK%KC12(:)*PCONC(:,96)+TP&
-&K%KC16(:)*PCONC(:,92)+TPK%KC17(:)*PCONC(:,108)+TPK%KC23(:)*PCONC(:,123)+TPK%KC&
-&25(:)*PCONC(:,88)+TPK%KC26(:)*PCONC(:,89)+TPK%KC28(:)*PCONC(:,103)
-!
-!PPROD(WC_H2SO4) = +KTC15*<H2SO4>+KC12*<WC_SO2>*<WC_HNO4>+2.00*KC23*<WC_SO2>*<W
-!C_AHSO5>+KC24*<WC_ASO4>+KC25*<WC_O3>*<WC_SO2>+KC26*<WC_H2O2>*<WC_SO2>
- PPROD(:,102) = +TPK%KTC15(:)*PCONC(:,14)+TPK%KC12(:)*PCONC(:,101)*PCONC(:,96)+&
-&2.00*TPK%KC23(:)*PCONC(:,101)*PCONC(:,123)+TPK%KC24(:)*PCONC(:,121)+TPK%KC25(:&
-&)*PCONC(:,88)*PCONC(:,101)+TPK%KC26(:)*PCONC(:,89)*PCONC(:,101)
-!PLOSS(WC_H2SO4) = +KTC46+KC15*<WC_NO3>
- PLOSS(:,102) = +TPK%KTC46(:)+TPK%KC15(:)*PCONC(:,92)
-!
-!PPROD(WC_RO21) = +KTC16*<RO21>+0.50*KC34*<WC_OH>*<WC_ALD2>+KC37*<WC_OH>*<WC_KE
-!TL>
- PPROD(:,103) = +TPK%KTC16(:)*PCONC(:,86)+0.50*TPK%KC34(:)*PCONC(:,98)*PCONC(:,&
-&109)+TPK%KC37(:)*PCONC(:,98)*PCONC(:,112)
-!PLOSS(WC_RO21) = +KTC47+KC27*<WC_RO21>+KC27*<WC_RO21>+KC28*<WC_SO2>
- PLOSS(:,103) = +TPK%KTC47(:)+TPK%KC27(:)*PCONC(:,103)+TPK%KC27(:)*PCONC(:,103)&
-&+TPK%KC28(:)*PCONC(:,101)
-!
-!PPROD(WC_RO25) = +KTC17*<RO25>+0.50*KC34*<WC_OH>*<WC_ALD2>+KC40*<WC_OH>*<WC_AC
-!ID>
- PPROD(:,104) = +TPK%KTC17(:)*PCONC(:,87)+0.50*TPK%KC34(:)*PCONC(:,98)*PCONC(:,&
-&109)+TPK%KC40(:)*PCONC(:,98)*PCONC(:,115)
-!PLOSS(WC_RO25) = +KTC48+KC29*<WC_RO25>+KC29*<WC_RO25>
- PLOSS(:,104) = +TPK%KTC48(:)+TPK%KC29(:)*PCONC(:,104)+TPK%KC29(:)*PCONC(:,104)
-!
-!PPROD(WC_MEOH) = +KTC18*<MEOH>
- PPROD(:,105) = +TPK%KTC18(:)*PCONC(:,32)
-!PLOSS(WC_MEOH) = +KTC49+KC30*<WC_OH>
- PLOSS(:,105) = +TPK%KTC49(:)+TPK%KC30(:)*PCONC(:,98)
-!
-!PPROD(WC_ETOH) = +KTC19*<ETOH>
- PPROD(:,106) = +TPK%KTC19(:)*PCONC(:,33)
-!PLOSS(WC_ETOH) = +KTC50+KC31*<WC_OH>
- PLOSS(:,106) = +TPK%KTC50(:)+TPK%KC31(:)*PCONC(:,98)
-!
-!PPROD(WC_ALCH) = +KTC20*<ALCH>
- PPROD(:,107) = +TPK%KTC20(:)*PCONC(:,34)
-!PLOSS(WC_ALCH) = +KTC51+KC32*<WC_OH>
- PLOSS(:,107) = +TPK%KTC51(:)+TPK%KC32(:)*PCONC(:,98)
-!
-!PPROD(WC_HCHO) = +KTC21*<HCHO>+KC18*<WC_AHMS>+2.00*KC27*<WC_RO21>*<WC_RO21>+KC
-!28*<WC_SO2>*<WC_RO21>+KC30*<WC_OH>*<WC_MEOH>+KC37*<WC_OH>*<WC_KETL>
- PPROD(:,108) = +TPK%KTC21(:)*PCONC(:,28)+TPK%KC18(:)*PCONC(:,124)+2.00*TPK%KC2&
-&7(:)*PCONC(:,103)*PCONC(:,103)+TPK%KC28(:)*PCONC(:,101)*PCONC(:,103)+TPK%KC30(&
-&:)*PCONC(:,98)*PCONC(:,105)+TPK%KC37(:)*PCONC(:,98)*PCONC(:,112)
-!PLOSS(WC_HCHO) = +KTC52+KC17*<WC_SO2>+KC33*<WC_OH>
- PLOSS(:,108) = +TPK%KTC52(:)+TPK%KC17(:)*PCONC(:,101)+TPK%KC33(:)*PCONC(:,98)
-!
-!PPROD(WC_ALD2) = +KTC22*<ALD2>+KC29*<WC_RO25>*<WC_RO25>+KC31*<WC_OH>*<WC_ETOH>
-!+0.50*KC32*<WC_OH>*<WC_ALCH>+KC37*<WC_OH>*<WC_KETL>+0.29*KC41*<WC_OH>*<WC_ACID
-!>+0.43*KC43*<WC_OH>*<WC_UR21>
- PPROD(:,109) = +TPK%KTC22(:)*PCONC(:,29)+TPK%KC29(:)*PCONC(:,104)*PCONC(:,104)&
-&+TPK%KC31(:)*PCONC(:,98)*PCONC(:,106)+0.50*TPK%KC32(:)*PCONC(:,98)*PCONC(:,107&
-&)+TPK%KC37(:)*PCONC(:,98)*PCONC(:,112)+0.29*TPK%KC41(:)*PCONC(:,98)*PCONC(:,11&
-&5)+0.43*TPK%KC43(:)*PCONC(:,98)*PCONC(:,117)
-!PLOSS(WC_ALD2) = +KTC53+KC34*<WC_OH>
- PLOSS(:,109) = +TPK%KTC53(:)+TPK%KC34(:)*PCONC(:,98)
-!
-!PPROD(WC_GLY) = +KTC23*<GLY>
- PPROD(:,110) = +TPK%KTC23(:)*PCONC(:,42)
-!PLOSS(WC_GLY) = +KTC54+KC35*<WC_OH>
- PLOSS(:,110) = +TPK%KTC54(:)+TPK%KC35(:)*PCONC(:,98)
-!
-RETURN
-END SUBROUTINE SUB10
+END SUBROUTINE CH_PRODLOSS_AQ
!
-SUBROUTINE SUB11
!
-!Indices 111 a 120
+!========================================================================
!
+!! ##########################
+ MODULE MODI_CH_PRODLOSS_GAZ
+!! ##########################
+INTERFACE
+SUBROUTINE CH_PRODLOSS_GAZ(PTIME,PCONC,PPROD,PLOSS,KMI,KVECNPT,KEQ)
+IMPLICIT NONE
+REAL, INTENT(IN) :: PTIME
+INTEGER, INTENT(IN) :: KVECNPT
+INTEGER, INTENT(IN) :: KEQ
+REAL, INTENT(IN), DIMENSION(KVECNPT,KEQ) :: PCONC
+REAL, INTENT(OUT), DIMENSION(KVECNPT,KEQ) :: PPROD, PLOSS
+INTEGER, INTENT(IN) :: KMI
+END SUBROUTINE CH_PRODLOSS_GAZ
+END INTERFACE
+END MODULE MODI_CH_PRODLOSS_GAZ
!
-!PPROD(WC_MGLY) = +KTC25*<MGLY>+KC37*<WC_OH>*<WC_KETL>
- PPROD(:,111) = +TPK%KTC25(:)*PCONC(:,41)+TPK%KC37(:)*PCONC(:,98)*PCONC(:,112)
-!PLOSS(WC_MGLY) = +KTC56+KC36*<WC_OH>
- PLOSS(:,111) = +TPK%KTC56(:)+TPK%KC36(:)*PCONC(:,98)
-!
-!PPROD(WC_KETL) = +KTC24*<KETL>+0.50*KC32*<WC_OH>*<WC_ALCH>+KC37*<WC_OH>*<WC_KE
-!TL>
- PPROD(:,112) = +TPK%KTC24(:)*PCONC(:,30)+0.50*TPK%KC32(:)*PCONC(:,98)*PCONC(:,&
-&107)+TPK%KC37(:)*PCONC(:,98)*PCONC(:,112)
-!PLOSS(WC_KETL) = +KTC55+KC37*<WC_OH>
- PLOSS(:,112) = +TPK%KTC55(:)+TPK%KC37(:)*PCONC(:,98)
-!
-!PPROD(WC_ORA1) = +KTC26*<ORA1>+KC19*<WC_OH>*<WC_AHMS>+KC33*<WC_OH>*<WC_HCHO>
- PPROD(:,113) = +TPK%KTC26(:)*PCONC(:,43)+TPK%KC19(:)*PCONC(:,98)*PCONC(:,124)+&
-&TPK%KC33(:)*PCONC(:,98)*PCONC(:,108)
-!PLOSS(WC_ORA1) = +KTC57+KC38*<WC_OH>
- PLOSS(:,113) = +TPK%KTC57(:)+TPK%KC38(:)*PCONC(:,98)
-!
-!PPROD(WC_ORA2) = +KTC27*<ORA2>+KC29*<WC_RO25>*<WC_RO25>
- PPROD(:,114) = +TPK%KTC27(:)*PCONC(:,44)+TPK%KC29(:)*PCONC(:,104)*PCONC(:,104)
-!PLOSS(WC_ORA2) = +KTC58+KC39*<WC_OH>
- PLOSS(:,114) = +TPK%KTC58(:)+TPK%KC39(:)*PCONC(:,98)
-!
-!PPROD(WC_ACID) = +KTC28*<ACID>
- PPROD(:,115) = +TPK%KTC28(:)*PCONC(:,45)
-!PLOSS(WC_ACID) = +KTC59+KC40*<WC_OH>+KC41*<WC_OH>
- PLOSS(:,115) = +TPK%KTC59(:)+TPK%KC40(:)*PCONC(:,98)+TPK%KC41(:)*PCONC(:,98)
-!
-!PPROD(WC_RP16) = +KTC29*<RP16>+KC35*<WC_OH>*<WC_GLY>+KC39*<WC_OH>*<WC_ORA2>
- PPROD(:,116) = +TPK%KTC29(:)*PCONC(:,74)+TPK%KC35(:)*PCONC(:,98)*PCONC(:,110)+&
-&TPK%KC39(:)*PCONC(:,98)*PCONC(:,114)
-!PLOSS(WC_RP16) = +KTC60+KC44*<WC_OH>+KC45*<WC_OH>
- PLOSS(:,116) = +TPK%KTC60(:)+TPK%KC44(:)*PCONC(:,98)+TPK%KC45(:)*PCONC(:,98)
-!
-!PPROD(WC_UR21) = +KTC30*<UR21>+KC36*<WC_OH>*<WC_MGLY>+KC37*<WC_OH>*<WC_KETL>+0
-!.56*KC41*<WC_OH>*<WC_ACID>
- PPROD(:,117) = +TPK%KTC30(:)*PCONC(:,47)+TPK%KC36(:)*PCONC(:,98)*PCONC(:,111)+&
-&TPK%KC37(:)*PCONC(:,98)*PCONC(:,112)+0.56*TPK%KC41(:)*PCONC(:,98)*PCONC(:,115)
-!PLOSS(WC_UR21) = +KTC61+KC43*<WC_OH>
- PLOSS(:,117) = +TPK%KTC61(:)+TPK%KC43(:)*PCONC(:,98)
-!
-!PPROD(WC_UR28) = +KTC31*<UR28>+KC44*<WC_OH>*<WC_RP16>
- PPROD(:,118) = +TPK%KTC31(:)*PCONC(:,46)+TPK%KC44(:)*PCONC(:,98)*PCONC(:,116)
-!PLOSS(WC_UR28) = +KTC62+KC42*<WC_OH>
- PLOSS(:,118) = +TPK%KTC62(:)+TPK%KC42(:)*PCONC(:,98)
-!
-!PPROD(WC_ACID2) = +0.15*KC41*<WC_OH>*<WC_ACID>+0.56*KC43*<WC_OH>*<WC_UR21>
- PPROD(:,119) = +0.15*TPK%KC41(:)*PCONC(:,98)*PCONC(:,115)+0.56*TPK%KC43(:)*PCO&
-&NC(:,98)*PCONC(:,117)
-!PLOSS(WC_ACID2) = +KC46*<WC_OH>
- PLOSS(:,119) = +TPK%KC46(:)*PCONC(:,98)
-!
-!PPROD(WC_ASO3) = +KC7*<WC_SO2>*<WC_OH>+KC16*<WC_SO2>*<WC_NO3>+KC28*<WC_SO2>*<W
-!C_RO21>
- PPROD(:,120) = +TPK%KC7(:)*PCONC(:,101)*PCONC(:,98)+TPK%KC16(:)*PCONC(:,101)*P&
-&CONC(:,92)+TPK%KC28(:)*PCONC(:,101)*PCONC(:,103)
-!PLOSS(WC_ASO3) = +KC20*<W_O2>
- PLOSS(:,120) = +TPK%KC20(:)*TPK%W_O2(:)
+!========================================================================
!
-RETURN
-END SUBROUTINE SUB11
+!! ##################################################################
+ SUBROUTINE CH_PRODLOSS_GAZ(PTIME,PCONC,PPROD,PLOSS,KMI,KVECNPT,KEQ)
+!! ##################################################################
+!! This code has been created automatically by preprocessor m10,
+!! version: 9.7, copyright 1995-1999 by Meteo France/Universite Paul Sabatier.
+!! Please report all bugs to K. Suhre (Lab. d'Aerologie UPS/CNRS).
+!!
+!!*** *MODD_CH_PRODLOSS*
+!!
+!! PURPOSE
+!! -------
+! calculation of production and loss terms for diagnostics
+!!
+!!** METHOD
+!! ------
+!! The terms of temporal derivative of the chemical species,
+!! written as:
+!! d/dt PCONC = CH_FCN = PPROD - PCONC*PLOSS,
+!! are calculated for diagnostic purposes.
+!!
+!! REFERENCE
+!! ---------
+!! none
+!!
+!! AUTHOR
+!! ------
+!! Karsten Suhre (LA)
+!!
+!! MODIFICATIONS
+!! -------------
+!! Original 26/07/96
+!! Modified 05/05/98: Vectorization (Vincent Crassier & KS)
+!! Modified 31/10/03: New interface for better MesoNH compilation (D. Gazen)
+!!
+!!----------------------------------------------------------------------
+!!
+!! EXTERNAL
+!! --------
+!! none
+!!
+!! IMPLICIT ARGUMENTS
+!! ------------------
+USE MODD_CH_M9_SCHEME
+!!
+!! EXPLICIT ARGUMENTS
+!! ------------------
+IMPLICIT NONE
+REAL, INTENT(IN) :: PTIME
+INTEGER, INTENT(IN) :: KVECNPT
+INTEGER, INTENT(IN) :: KEQ
+REAL, INTENT(IN), DIMENSION(KVECNPT,KEQ) :: PCONC
+REAL, INTENT(OUT), DIMENSION(KVECNPT,KEQ) :: PPROD, PLOSS
+INTEGER, INTENT(IN) :: KMI
+TYPE(CCSTYPE), POINTER :: TPK
+TPK=>TACCS(KMI)
+! /BEGIN_CODE/
+TPK%O1D(:)=(TPK%K002(:)*PCONC(:,JP_O3))/(TPK%K020(:)*TPK%N2(:)+TPK%K021(:)*TPK%O2(:)+&
+ &TPK%K022(:)*TPK%H2O(:))
+TPK%O3P(:)=(TPK%K001(:)*PCONC(:,JP_NO2)+TPK%K003(:)*PCONC(:,JP_O3)+TPK%K008(:)*PCONC(:,JP_NO3)+&
+ &TPK%K020(:)*TPK%O1D(:)*TPK%N2(:)+TPK%K021(:)*TPK%O1D(:)*TPK%O2(:)+&
+ &0.00000*TPK%K079(:)*PCONC(:,JP_ALKE)*PCONC(:,JP_O3)+&
+ &0.09000*TPK%K080(:)*PCONC(:,JP_BIO)*PCONC(:,JP_O3))/&
+ &(TPK%K018(:)*TPK%O2(:)+TPK%K019(:)*PCONC(:,JP_O3)+TPK%K029(:)*PCONC(:,JP_NO)+&
+ &TPK%K030(:)*PCONC(:,JP_NO2)+TPK%K031(:)*PCONC(:,JP_NO2)+TPK%K054(:)*PCONC(:,JP_BIO)+&
+ &TPK%K055(:)*PCONC(:,JP_CARBO))
+! /END_CODE/
+CALL SUB0
+CALL SUB1
+CALL SUB2
+CALL SUB3
+CALL SUB4
+
+CONTAINS
+
+SUBROUTINE SUB0
!
-SUBROUTINE SUB12
+!Indices 1 a 10
!
-!Indices 121 a 130
!
+!PPROD(O3) = +K018*<O3P>*<O2>+0.17307*K0102*<CARBOP>*<HO2>
+ PPROD(:,1) = +TPK%K018(:)*TPK%O3P(:)*TPK%O2(:)+0.17307*TPK%K0102(:)*PCONC(:,39&
+&)*PCONC(:,15)
+!PLOSS(O3) = +K002+K003+K019*<O3P>+K023*<OH>+K024*<HO2>+K042*<NO>+K043*<NO2>+K0
+!79*<ALKE>+K080*<BIO>+K081*<CARBO>+K082*<PAN>+K087*<ADD>
+ PLOSS(:,1) = +TPK%K002(:)+TPK%K003(:)+TPK%K019(:)*TPK%O3P(:)+TPK%K023(:)*PCONC&
+&(:,14)+TPK%K024(:)*PCONC(:,15)+TPK%K042(:)*PCONC(:,3)+TPK%K043(:)*PCONC(:,4)+T&
+&PK%K079(:)*PCONC(:,19)+TPK%K080(:)*PCONC(:,20)+TPK%K081(:)*PCONC(:,25)+TPK%K08&
+&2(:)*PCONC(:,27)+TPK%K087(:)*PCONC(:,37)
+!
+!PPROD(H2O2) = +K027*<HO2>*<HO2>+K028*<HO2>*<HO2>*<H2O>+0.01833*K079*<ALKE>*<O3
+!>+0.00100*K080*<BIO>*<O3>
+ PPROD(:,2) = +TPK%K027(:)*PCONC(:,15)*PCONC(:,15)+TPK%K028(:)*PCONC(:,15)*PCON&
+&C(:,15)*TPK%H2O(:)+0.01833*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)+0.00100*TPK%K080&
+&(:)*PCONC(:,20)*PCONC(:,1)
+!PLOSS(H2O2) = +K009+K026*<OH>
+ PLOSS(:,2) = +TPK%K009(:)+TPK%K026(:)*PCONC(:,14)
+!
+!PPROD(NO) = +K001*<NO2>+K004*<HONO>+K007*<NO3>+K030*<O3P>*<NO2>+K046*<NO3>*<NO
+!2>
+ PPROD(:,3) = +TPK%K001(:)*PCONC(:,4)+TPK%K004(:)*PCONC(:,7)+TPK%K007(:)*PCONC(&
+&:,5)+TPK%K030(:)*TPK%O3P(:)*PCONC(:,4)+TPK%K046(:)*PCONC(:,5)*PCONC(:,4)
+!PLOSS(NO) = +K029*<O3P>+K032*<OH>+K035*<HO2>+K042*<O3>+K044*<NO>*<O2>+K044*<NO
+!>*<O2>+K045*<NO3>+K090*<MO2>+K091*<ALKAP>+K092*<ALKEP>+K093*<BIOP>+K094*<AROP>
+!+K095*<CARBOP>+K096*<OLN>+K130*<XO2>
+ PLOSS(:,3) = +TPK%K029(:)*TPK%O3P(:)+TPK%K032(:)*PCONC(:,14)+TPK%K035(:)*PCONC&
+&(:,15)+TPK%K042(:)*PCONC(:,1)+TPK%K044(:)*PCONC(:,3)*TPK%O2(:)+TPK%K044(:)*PCO&
+&NC(:,3)*TPK%O2(:)+TPK%K045(:)*PCONC(:,5)+TPK%K090(:)*PCONC(:,32)+TPK%K091(:)*P&
+&CONC(:,33)+TPK%K092(:)*PCONC(:,34)+TPK%K093(:)*PCONC(:,35)+TPK%K094(:)*PCONC(:&
+&,38)+TPK%K095(:)*PCONC(:,39)+TPK%K096(:)*PCONC(:,40)+TPK%K130(:)*PCONC(:,41)
+!
+!PPROD(NO2) = +K005*<HNO3>+0.65*K006*<HNO4>+K008*<NO3>+K017*<ONIT>+K029*<O3P>*<
+!NO>+K034*<OH>*<NO3>+K035*<HO2>*<NO>+K037*<HNO4>+0.7*K038*<HO2>*<NO3>+K039*<OH>
+!*<HONO>+K041*<OH>*<HNO4>+K042*<O3>*<NO>+K044*<NO>*<NO>*<O2>+K044*<NO>*<NO>*<O2
+!>+K045*<NO3>*<NO>+K045*<NO3>*<NO>+K046*<NO3>*<NO2>+K048*<N2O5>+K049*<NO3>*<NO3
+!>+K049*<NO3>*<NO3>+K071*<ONIT>*<OH>+0.10530*K074*<CARBO>*<NO3>+0.40*K078*<PAN>
+!*<NO3>+0.70*K082*<PAN>*<O3>+K089*<PAN>+K090*<MO2>*<NO>+0.91541*K091*<ALKAP>*<N
+!O>+K092*<ALKEP>*<NO>+0.84700*K093*<BIOP>*<NO>+0.95115*K094*<AROP>*<NO>+K095*<C
+!ARBOP>*<NO>+1.81599*K096*<OLN>*<NO>+0.32440*K110*<OLN>*<MO2>+0.00000*K116*<OLN
+!>*<CARBOP>+0.00000*K118*<OLN>*<OLN>+K119*<MO2>*<NO3>+K120*<ALKAP>*<NO3>+K121*<
+!ALKEP>*<NO3>+K122*<BIOP>*<NO3>+K123*<AROP>*<NO3>+K124*<CARBOP>*<NO3>+1.74072*K
+!125*<OLN>*<NO3>+K130*<XO2>*<NO>+K131*<XO2>*<NO3>
+ PPROD(:,4) = +TPK%K005(:)*PCONC(:,8)+0.65*TPK%K006(:)*PCONC(:,9)+TPK%K008(:)*P&
+&CONC(:,5)+TPK%K017(:)*PCONC(:,26)+TPK%K029(:)*TPK%O3P(:)*PCONC(:,3)+TPK%K034(:&
+&)*PCONC(:,14)*PCONC(:,5)+TPK%K035(:)*PCONC(:,15)*PCONC(:,3)+TPK%K037(:)*PCONC(&
+&:,9)+0.7*TPK%K038(:)*PCONC(:,15)*PCONC(:,5)+TPK%K039(:)*PCONC(:,14)*PCONC(:,7)&
+&+TPK%K041(:)*PCONC(:,14)*PCONC(:,9)+TPK%K042(:)*PCONC(:,1)*PCONC(:,3)+TPK%K044&
+&(:)*PCONC(:,3)*PCONC(:,3)*TPK%O2(:)+TPK%K044(:)*PCONC(:,3)*PCONC(:,3)*TPK%O2(:&
+&)+TPK%K045(:)*PCONC(:,5)*PCONC(:,3)+TPK%K045(:)*PCONC(:,5)*PCONC(:,3)+TPK%K046&
+&(:)*PCONC(:,5)*PCONC(:,4)+TPK%K048(:)*PCONC(:,6)+TPK%K049(:)*PCONC(:,5)*PCONC(&
+&:,5)+TPK%K049(:)*PCONC(:,5)*PCONC(:,5)+TPK%K071(:)*PCONC(:,26)*PCONC(:,14)+0.1&
+&0530*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)+0.40*TPK%K078(:)*PCONC(:,27)*PCONC(:,5&
+&)+0.70*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)+TPK%K089(:)*PCONC(:,27)+TPK%K090(:)*&
+&PCONC(:,32)*PCONC(:,3)+0.91541*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)+TPK%K092(:)*&
+&PCONC(:,34)*PCONC(:,3)+0.84700*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)+0.95115*TPK%&
+&K094(:)*PCONC(:,38)*PCONC(:,3)+TPK%K095(:)*PCONC(:,39)*PCONC(:,3)+1.81599*TPK%&
+&K096(:)*PCONC(:,40)*PCONC(:,3)+0.32440*TPK%K110(:)*PCONC(:,40)*PCONC(:,32)+0.0&
+&0000*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)+0.00000*TPK%K118(:)*PCONC(:,40)*PCONC&
+&(:,40)+TPK%K119(:)*PCONC(:,32)*PCONC(:,5)+TPK%K120(:)*PCONC(:,33)*PCONC(:,5)+T&
+&PK%K121(:)*PCONC(:,34)*PCONC(:,5)+TPK%K122(:)*PCONC(:,35)*PCONC(:,5)+TPK%K123(&
+&:)*PCONC(:,38)*PCONC(:,5)+TPK%K124(:)*PCONC(:,39)*PCONC(:,5)+1.74072*TPK%K125(&
+&:)*PCONC(:,40)*PCONC(:,5)+TPK%K130(:)*PCONC(:,41)*PCONC(:,3)+TPK%K131(:)*PCONC&
+&(:,41)*PCONC(:,5)
+!PLOSS(NO2) = +K001+K030*<O3P>+K031*<O3P>+K033*<OH>+K036*<HO2>+K043*<O3>+K046*<
+!NO3>+K047*<NO3>+K083*<PHO>+K085*<ADD>+K088*<CARBOP>
+ PLOSS(:,4) = +TPK%K001(:)+TPK%K030(:)*TPK%O3P(:)+TPK%K031(:)*TPK%O3P(:)+TPK%K0&
+&33(:)*PCONC(:,14)+TPK%K036(:)*PCONC(:,15)+TPK%K043(:)*PCONC(:,1)+TPK%K046(:)*P&
+&CONC(:,5)+TPK%K047(:)*PCONC(:,5)+TPK%K083(:)*PCONC(:,36)+TPK%K085(:)*PCONC(:,3&
+&7)+TPK%K088(:)*PCONC(:,39)
+!
+!PPROD(NO3) = +0.35*K006*<HNO4>+K031*<O3P>*<NO2>+K040*<OH>*<HNO3>+K043*<O3>*<NO
+!2>+K048*<N2O5>+0.71893*K070*<PAN>*<OH>+0.60*K078*<PAN>*<NO3>
+ PPROD(:,5) = +0.35*TPK%K006(:)*PCONC(:,9)+TPK%K031(:)*TPK%O3P(:)*PCONC(:,4)+TP&
+&K%K040(:)*PCONC(:,14)*PCONC(:,8)+TPK%K043(:)*PCONC(:,1)*PCONC(:,4)+TPK%K048(:)&
+&*PCONC(:,6)+0.71893*TPK%K070(:)*PCONC(:,27)*PCONC(:,14)+0.60*TPK%K078(:)*PCONC&
+&(:,27)*PCONC(:,5)
+!PLOSS(NO3) = +K007+K008+K034*<OH>+K038*<HO2>+K045*<NO>+K046*<NO2>+K047*<NO2>+K
+!049*<NO3>+K049*<NO3>+K072*<HCHO>+K073*<ALD>+K074*<CARBO>+K075*<ARO>+K076*<ALKE
+!>+K077*<BIO>+K078*<PAN>+K119*<MO2>+K120*<ALKAP>+K121*<ALKEP>+K122*<BIOP>+K123*
+!<AROP>+K124*<CARBOP>+K125*<OLN>+K131*<XO2>
+ PLOSS(:,5) = +TPK%K007(:)+TPK%K008(:)+TPK%K034(:)*PCONC(:,14)+TPK%K038(:)*PCON&
+&C(:,15)+TPK%K045(:)*PCONC(:,3)+TPK%K046(:)*PCONC(:,4)+TPK%K047(:)*PCONC(:,4)+T&
+&PK%K049(:)*PCONC(:,5)+TPK%K049(:)*PCONC(:,5)+TPK%K072(:)*PCONC(:,22)+TPK%K073(&
+&:)*PCONC(:,23)+TPK%K074(:)*PCONC(:,25)+TPK%K075(:)*PCONC(:,21)+TPK%K076(:)*PCO&
+&NC(:,19)+TPK%K077(:)*PCONC(:,20)+TPK%K078(:)*PCONC(:,27)+TPK%K119(:)*PCONC(:,3&
+&2)+TPK%K120(:)*PCONC(:,33)+TPK%K121(:)*PCONC(:,34)+TPK%K122(:)*PCONC(:,35)+TPK&
+&%K123(:)*PCONC(:,38)+TPK%K124(:)*PCONC(:,39)+TPK%K125(:)*PCONC(:,40)+TPK%K131(&
+&:)*PCONC(:,41)
+!
+!PPROD(N2O5) = +K047*<NO3>*<NO2>
+ PPROD(:,6) = +TPK%K047(:)*PCONC(:,5)*PCONC(:,4)
+!PLOSS(N2O5) = +K048
+ PLOSS(:,6) = +TPK%K048(:)
+!
+!PPROD(HONO) = +K032*<OH>*<NO>+K085*<ADD>*<NO2>
+ PPROD(:,7) = +TPK%K032(:)*PCONC(:,14)*PCONC(:,3)+TPK%K085(:)*PCONC(:,37)*PCONC&
+&(:,4)
+!PLOSS(HONO) = +K004+K039*<OH>
+ PLOSS(:,7) = +TPK%K004(:)+TPK%K039(:)*PCONC(:,14)
+!
+!PPROD(HNO3) = +K033*<OH>*<NO2>+0.3*K038*<HO2>*<NO3>+K072*<HCHO>*<NO3>+K073*<AL
+!D>*<NO3>+0.91567*K074*<CARBO>*<NO3>+K075*<ARO>*<NO3>
+ PPROD(:,8) = +TPK%K033(:)*PCONC(:,14)*PCONC(:,4)+0.3*TPK%K038(:)*PCONC(:,15)*P&
+&CONC(:,5)+TPK%K072(:)*PCONC(:,22)*PCONC(:,5)+TPK%K073(:)*PCONC(:,23)*PCONC(:,5&
+&)+0.91567*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)+TPK%K075(:)*PCONC(:,21)*PCONC(:,5&
+&)
+!PLOSS(HNO3) = +K005+K040*<OH>
+ PLOSS(:,8) = +TPK%K005(:)+TPK%K040(:)*PCONC(:,14)
!
-!PPROD(WC_ASO4) = +KC15*<WC_H2SO4>*<WC_NO3>+KC22*<WC_ASO5>*<WC_ASO5>+KC22*<WC_A
-!SO5>*<WC_ASO5>
- PPROD(:,121) = +TPK%KC15(:)*PCONC(:,102)*PCONC(:,92)+TPK%KC22(:)*PCONC(:,122)*&
-&PCONC(:,122)+TPK%KC22(:)*PCONC(:,122)*PCONC(:,122)
-!PLOSS(WC_ASO4) = +KC24
- PLOSS(:,121) = +TPK%KC24(:)
+!PPROD(HNO4) = +K036*<HO2>*<NO2>
+ PPROD(:,9) = +TPK%K036(:)*PCONC(:,15)*PCONC(:,4)
+!PLOSS(HNO4) = +K006+K037+K041*<OH>
+ PLOSS(:,9) = +TPK%K006(:)+TPK%K037(:)+TPK%K041(:)*PCONC(:,14)
!
-!PPROD(WC_ASO5) = +KC20*<W_O2>*<WC_ASO3>
- PPROD(:,122) = +TPK%KC20(:)*TPK%W_O2(:)*PCONC(:,120)
-!PLOSS(WC_ASO5) = +KC21*<WC_HO2>+KC22*<WC_ASO5>+KC22*<WC_ASO5>
- PLOSS(:,122) = +TPK%KC21(:)*PCONC(:,99)+TPK%KC22(:)*PCONC(:,122)+TPK%KC22(:)*P&
-&CONC(:,122)
+!PPROD(NH3) = 0.0
+ PPROD(:,10) = 0.0
+!PLOSS(NH3) = +K050*<OH>
+ PLOSS(:,10) = +TPK%K050(:)*PCONC(:,14)
!
-!PPROD(WC_AHSO5) = +KC21*<WC_HO2>*<WC_ASO5>
- PPROD(:,123) = +TPK%KC21(:)*PCONC(:,99)*PCONC(:,122)
-!PLOSS(WC_AHSO5) = +KC23*<WC_SO2>
- PLOSS(:,123) = +TPK%KC23(:)*PCONC(:,101)
+RETURN
+END SUBROUTINE SUB0
!
-!PPROD(WC_AHMS) = +KC17*<WC_HCHO>*<WC_SO2>
- PPROD(:,124) = +TPK%KC17(:)*PCONC(:,108)*PCONC(:,101)
-!PLOSS(WC_AHMS) = +KC18+KC19*<WC_OH>
- PLOSS(:,124) = +TPK%KC18(:)+TPK%KC19(:)*PCONC(:,98)
+SUBROUTINE SUB1
!
-!PPROD(WR_O3) = +KTR1*<O3>
- PPROD(:,125) = +TPK%KTR1(:)*PCONC(:,3)
-!PLOSS(WR_O3) = +KTR32+KR6*<WR_HO2>+KR25*<WR_SO2>
- PLOSS(:,125) = +TPK%KTR32(:)+TPK%KR6(:)*PCONC(:,136)+TPK%KR25(:)*PCONC(:,138)
-!
-!PPROD(WR_H2O2) = +KTR2*<H2O2>+KR2*<WR_OH>*<WR_OH>+KR5*<WR_HO2>*<WR_HO2>+KR29*<
-!WR_RO25>*<WR_RO25>+KR37*<WR_OH>*<WR_KETL>+0.5*KR39*<WR_OH>*<WR_ORA2>+0.29*KR41
-!*<WR_OH>*<WR_ACID>+0.3*KR43*<WR_OH>*<WR_UR21>+0.45*KR45*<WR_OH>*<WR_RP16>
- PPROD(:,126) = +TPK%KTR2(:)*PCONC(:,12)+TPK%KR2(:)*PCONC(:,135)*PCONC(:,135)+T&
-&PK%KR5(:)*PCONC(:,136)*PCONC(:,136)+TPK%KR29(:)*PCONC(:,141)*PCONC(:,141)+TPK%&
-&KR37(:)*PCONC(:,135)*PCONC(:,149)+0.5*TPK%KR39(:)*PCONC(:,135)*PCONC(:,151)+0.&
-&29*TPK%KR41(:)*PCONC(:,135)*PCONC(:,152)+0.3*TPK%KR43(:)*PCONC(:,135)*PCONC(:,&
-&154)+0.45*TPK%KR45(:)*PCONC(:,135)*PCONC(:,153)
-!PLOSS(WR_H2O2) = +KTR33+KR1+KR4*<WR_OH>+KR26*<WR_SO2>
- PLOSS(:,126) = +TPK%KTR33(:)+TPK%KR1(:)+TPK%KR4(:)*PCONC(:,135)+TPK%KR26(:)*PC&
-&ONC(:,138)
+!Indices 11 a 20
!
-!PPROD(WR_NO) = +KTR3*<NO>
- PPROD(:,127) = +TPK%KTR3(:)*PCONC(:,1)
-!PLOSS(WR_NO) = +KTR34
- PLOSS(:,127) = +TPK%KTR34(:)
!
-!PPROD(WR_NO2) = +KTR4*<NO2>+KR8*<WR_OH>*<WR_HONO>+KR10*<WR_HNO4>+KR13*<WR_HNO3
+!PPROD(SO2) = 0.0
+ PPROD(:,11) = 0.0
+!PLOSS(SO2) = +K052*<OH>
+ PLOSS(:,11) = +TPK%K052(:)*PCONC(:,14)
+!
+!PPROD(SULF) = +K052*<OH>*<SO2>
+ PPROD(:,12) = +TPK%K052(:)*PCONC(:,14)*PCONC(:,11)
+!PLOSS(SULF) = +K132
+ PLOSS(:,12) = +TPK%K132(:)
+!
+!PPROD(CO) = +K010*<HCHO>+K011*<HCHO>+K012*<ALD>+0.91924*K016*<CARBO>+0.01*K054
+!*<BIO>*<O3P>+0.00878*K058*<ALKA>*<OH>+K062*<HCHO>*<OH>+1.01732*K065*<CARBO>*<O
+!H>+K072*<HCHO>*<NO3>+1.33723*K074*<CARBO>*<NO3>+0.35120*K079*<ALKE>*<O3>+0.360
+!00*K080*<BIO>*<O3>+0.64728*K081*<CARBO>*<O3>+0.13*K082*<PAN>*<O3>
+ PPROD(:,13) = +TPK%K010(:)*PCONC(:,22)+TPK%K011(:)*PCONC(:,22)+TPK%K012(:)*PCO&
+&NC(:,23)+0.91924*TPK%K016(:)*PCONC(:,25)+0.01*TPK%K054(:)*PCONC(:,20)*TPK%O3P(&
+&:)+0.00878*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)+TPK%K062(:)*PCONC(:,22)*PCONC(:&
+&,14)+1.01732*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)+TPK%K072(:)*PCONC(:,22)*PCONC&
+&(:,5)+1.33723*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)+0.35120*TPK%K079(:)*PCONC(:,1&
+&9)*PCONC(:,1)+0.36000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)+0.64728*TPK%K081(:)*P&
+&CONC(:,25)*PCONC(:,1)+0.13*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)
+!PLOSS(CO) = +K053*<OH>
+ PLOSS(:,13) = +TPK%K053(:)*PCONC(:,14)
+!
+!PPROD(OH) = +K004*<HONO>+K005*<HNO3>+0.35*K006*<HNO4>+K009*<H2O2>+K009*<H2O2>+
+!K013*<OP1>+K014*<OP2>+K022*<O1D>*<H2O>+K022*<O1D>*<H2O>+K024*<O3>*<HO2>+K035*<
+!HO2>*<NO>+0.7*K038*<HO2>*<NO3>+0.02*K054*<BIO>*<O3P>+0.00878*K058*<ALKA>*<OH>+
+!0.35*K068*<OP1>*<OH>+0.44925*K069*<OP2>*<OH>+0.39435*K079*<ALKE>*<O3>+0.28000*
+!K080*<BIO>*<O3>+0.20595*K081*<CARBO>*<O3>+0.036*K082*<PAN>*<O3>+K087*<ADD>*<O3
!>
- PPROD(:,128) = +TPK%KTR4(:)*PCONC(:,2)+TPK%KR8(:)*PCONC(:,135)*PCONC(:,131)+TP&
-&K%KR10(:)*PCONC(:,133)+TPK%KR13(:)*PCONC(:,132)
-!PLOSS(WR_NO2) = +KTR35+KR9*<WR_HO2>
- PLOSS(:,128) = +TPK%KTR35(:)+TPK%KR9(:)*PCONC(:,136)
-!
-!PPROD(WR_NO3) = +KTR5*<NO3>
- PPROD(:,129) = +TPK%KTR5(:)*PCONC(:,8)
-!PLOSS(WR_NO3) = +KTR36+KR15*<WR_H2SO4>+KR16*<WR_SO2>
- PLOSS(:,129) = +TPK%KTR36(:)+TPK%KR15(:)*PCONC(:,139)+TPK%KR16(:)*PCONC(:,138)
-!
-!PPROD(WR_N2O5) = +KTR6*<N2O5>
- PPROD(:,130) = +TPK%KTR6(:)*PCONC(:,7)
-!PLOSS(WR_N2O5) = +KTR37+KR14
- PLOSS(:,130) = +TPK%KTR37(:)+TPK%KR14(:)
+ PPROD(:,14) = +TPK%K004(:)*PCONC(:,7)+TPK%K005(:)*PCONC(:,8)+0.35*TPK%K006(:)*&
+&PCONC(:,9)+TPK%K009(:)*PCONC(:,2)+TPK%K009(:)*PCONC(:,2)+TPK%K013(:)*PCONC(:,2&
+&8)+TPK%K014(:)*PCONC(:,29)+TPK%K022(:)*TPK%O1D(:)*TPK%H2O(:)+TPK%K022(:)*TPK%O&
+&1D(:)*TPK%H2O(:)+TPK%K024(:)*PCONC(:,1)*PCONC(:,15)+TPK%K035(:)*PCONC(:,15)*PC&
+&ONC(:,3)+0.7*TPK%K038(:)*PCONC(:,15)*PCONC(:,5)+0.02*TPK%K054(:)*PCONC(:,20)*T&
+&PK%O3P(:)+0.00878*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)+0.35*TPK%K068(:)*PCONC(:&
+&,28)*PCONC(:,14)+0.44925*TPK%K069(:)*PCONC(:,29)*PCONC(:,14)+0.39435*TPK%K079(&
+&:)*PCONC(:,19)*PCONC(:,1)+0.28000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)+0.20595*T&
+&PK%K081(:)*PCONC(:,25)*PCONC(:,1)+0.036*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)+TPK&
+&%K087(:)*PCONC(:,37)*PCONC(:,1)
+!PLOSS(OH) = +K023*<O3>+K025*<HO2>+K026*<H2O2>+K032*<NO>+K033*<NO2>+K034*<NO3>+
+!K039*<HONO>+K040*<HNO3>+K041*<HNO4>+K050*<NH3>+K051*<H2>+K052*<SO2>+K053*<CO>+
+!K056*<CH4>+K057*<ETH>+K058*<ALKA>+K059*<ALKE>+K060*<BIO>+K061*<ARO>+K062*<HCHO
+!>+K063*<ALD>+K064*<KET>+K065*<CARBO>+K066*<ORA1>+K067*<ORA2>+K068*<OP1>+K069*<
+!OP2>+K070*<PAN>+K071*<ONIT>
+ PLOSS(:,14) = +TPK%K023(:)*PCONC(:,1)+TPK%K025(:)*PCONC(:,15)+TPK%K026(:)*PCON&
+&C(:,2)+TPK%K032(:)*PCONC(:,3)+TPK%K033(:)*PCONC(:,4)+TPK%K034(:)*PCONC(:,5)+TP&
+&K%K039(:)*PCONC(:,7)+TPK%K040(:)*PCONC(:,8)+TPK%K041(:)*PCONC(:,9)+TPK%K050(:)&
+&*PCONC(:,10)+TPK%K051(:)*TPK%H2(:)+TPK%K052(:)*PCONC(:,11)+TPK%K053(:)*PCONC(:&
+&,13)+TPK%K056(:)*PCONC(:,16)+TPK%K057(:)*PCONC(:,17)+TPK%K058(:)*PCONC(:,18)+T&
+&PK%K059(:)*PCONC(:,19)+TPK%K060(:)*PCONC(:,20)+TPK%K061(:)*PCONC(:,21)+TPK%K06&
+&2(:)*PCONC(:,22)+TPK%K063(:)*PCONC(:,23)+TPK%K064(:)*PCONC(:,24)+TPK%K065(:)*P&
+&CONC(:,25)+TPK%K066(:)*PCONC(:,30)+TPK%K067(:)*PCONC(:,31)+TPK%K068(:)*PCONC(:&
+&,28)+TPK%K069(:)*PCONC(:,29)+TPK%K070(:)*PCONC(:,27)+TPK%K071(:)*PCONC(:,26)
+!
+!PPROD(HO2) = +0.65*K006*<HNO4>+K011*<HCHO>+K011*<HCHO>+K012*<ALD>+K013*<OP1>+0
+!.96205*K014*<OP2>+0.75830*K016*<CARBO>+K017*<ONIT>+K023*<O3>*<OH>+K026*<H2O2>*
+!<OH>+K034*<OH>*<NO3>+K037*<HNO4>+K051*<OH>*<H2>+K052*<OH>*<SO2>+K053*<CO>*<OH>
+!+0.28*K054*<BIO>*<O3P>+0.12793*K058*<ALKA>*<OH>+0.10318*K061*<ARO>*<OH>+K062*<
+!HCHO>*<OH>+0.51208*K065*<CARBO>*<OH>+K066*<ORA1>*<OH>+0.02915*K069*<OP2>*<OH>+
+!0.28107*K070*<PAN>*<OH>+K072*<HCHO>*<NO3>+0.63217*K074*<CARBO>*<NO3>+0.23451*K
+!079*<ALKE>*<O3>+0.30000*K080*<BIO>*<O3>+0.28441*K081*<CARBO>*<O3>+0.08*K082*<P
+!AN>*<O3>+0.02*K086*<ADD>*<O2>+K090*<MO2>*<NO>+0.74265*K091*<ALKAP>*<NO>+K092*<
+!ALKEP>*<NO>+0.84700*K093*<BIOP>*<NO>+0.95115*K094*<AROP>*<NO>+0.12334*K095*<CA
+!RBOP>*<NO>+0.18401*K096*<OLN>*<NO>+0.66*K104*<MO2>*<MO2>+0.98383*K105*<ALKAP>*
+!<MO2>+K106*<ALKEP>*<MO2>+1.00000*K107*<BIOP>*<MO2>+1.02767*K108*<AROP>*<MO2>+0
+!.82998*K109*<CARBOP>*<MO2>+0.67560*K110*<OLN>*<MO2>+0.48079*K111*<ALKAP>*<CARB
+!OP>+0.50078*K112*<ALKEP>*<CARBOP>+0.50600*K113*<BIOP>*<CARBOP>+K114*<AROP>*<CA
+!RBOP>+0.07566*K115*<CARBOP>*<CARBOP>+0.17599*K116*<OLN>*<CARBOP>+K117*<OLN>*<O
+!LN>+0.00000*K118*<OLN>*<OLN>+K119*<MO2>*<NO3>+0.81290*K120*<ALKAP>*<NO3>+K121*
+!<ALKEP>*<NO3>+K122*<BIOP>*<NO3>+K123*<AROP>*<NO3>+0.04915*K124*<CARBOP>*<NO3>+
+!0.25928*K125*<OLN>*<NO3>+K127*<XO2>*<MO2>
+ PPROD(:,15) = +0.65*TPK%K006(:)*PCONC(:,9)+TPK%K011(:)*PCONC(:,22)+TPK%K011(:)&
+&*PCONC(:,22)+TPK%K012(:)*PCONC(:,23)+TPK%K013(:)*PCONC(:,28)+0.96205*TPK%K014(&
+&:)*PCONC(:,29)+0.75830*TPK%K016(:)*PCONC(:,25)+TPK%K017(:)*PCONC(:,26)+TPK%K02&
+&3(:)*PCONC(:,1)*PCONC(:,14)+TPK%K026(:)*PCONC(:,2)*PCONC(:,14)+TPK%K034(:)*PCO&
+&NC(:,14)*PCONC(:,5)+TPK%K037(:)*PCONC(:,9)+TPK%K051(:)*PCONC(:,14)*TPK%H2(:)+T&
+&PK%K052(:)*PCONC(:,14)*PCONC(:,11)+TPK%K053(:)*PCONC(:,13)*PCONC(:,14)+0.28*TP&
+&K%K054(:)*PCONC(:,20)*TPK%O3P(:)+0.12793*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)+0&
+&.10318*TPK%K061(:)*PCONC(:,21)*PCONC(:,14)+TPK%K062(:)*PCONC(:,22)*PCONC(:,14)&
+&+0.51208*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)+TPK%K066(:)*PCONC(:,30)*PCONC(:,1&
+&4)+0.02915*TPK%K069(:)*PCONC(:,29)*PCONC(:,14)+0.28107*TPK%K070(:)*PCONC(:,27)&
+&*PCONC(:,14)+TPK%K072(:)*PCONC(:,22)*PCONC(:,5)+0.63217*TPK%K074(:)*PCONC(:,25&
+&)*PCONC(:,5)+0.23451*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)+0.30000*TPK%K080(:)*PC&
+&ONC(:,20)*PCONC(:,1)+0.28441*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)+0.08*TPK%K082(&
+&:)*PCONC(:,27)*PCONC(:,1)+0.02*TPK%K086(:)*PCONC(:,37)*TPK%O2(:)+TPK%K090(:)*P&
+&CONC(:,32)*PCONC(:,3)+0.74265*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)+TPK%K092(:)*P&
+&CONC(:,34)*PCONC(:,3)+0.84700*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)+0.95115*TPK%K&
+&094(:)*PCONC(:,38)*PCONC(:,3)+0.12334*TPK%K095(:)*PCONC(:,39)*PCONC(:,3)+0.184&
+&01*TPK%K096(:)*PCONC(:,40)*PCONC(:,3)+0.66*TPK%K104(:)*PCONC(:,32)*PCONC(:,32)&
+&+0.98383*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)+TPK%K106(:)*PCONC(:,34)*PCONC(:,3&
+&2)+1.00000*TPK%K107(:)*PCONC(:,35)*PCONC(:,32)+1.02767*TPK%K108(:)*PCONC(:,38)&
+&*PCONC(:,32)+0.82998*TPK%K109(:)*PCONC(:,39)*PCONC(:,32)+0.67560*TPK%K110(:)*P&
+&CONC(:,40)*PCONC(:,32)+0.48079*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)+0.50078*TPK&
+&%K112(:)*PCONC(:,34)*PCONC(:,39)+0.50600*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)+T&
+&PK%K114(:)*PCONC(:,38)*PCONC(:,39)+0.07566*TPK%K115(:)*PCONC(:,39)*PCONC(:,39)&
+&+0.17599*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)+TPK%K117(:)*PCONC(:,40)*PCONC(:,4&
+&0)+0.00000*TPK%K118(:)*PCONC(:,40)*PCONC(:,40)+TPK%K119(:)*PCONC(:,32)*PCONC(:&
+&,5)+0.81290*TPK%K120(:)*PCONC(:,33)*PCONC(:,5)+TPK%K121(:)*PCONC(:,34)*PCONC(:&
+&,5)+TPK%K122(:)*PCONC(:,35)*PCONC(:,5)+TPK%K123(:)*PCONC(:,38)*PCONC(:,5)+0.04&
+&915*TPK%K124(:)*PCONC(:,39)*PCONC(:,5)+0.25928*TPK%K125(:)*PCONC(:,40)*PCONC(:&
+&,5)+TPK%K127(:)*PCONC(:,41)*PCONC(:,32)
+!PLOSS(HO2) = +K024*<O3>+K025*<OH>+K027*<HO2>+K027*<HO2>+K028*<HO2>*<H2O>+K028*
+!<HO2>*<H2O>+K035*<NO>+K036*<NO2>+K038*<NO3>+K084*<PHO>+K097*<MO2>+K098*<ALKAP>
+!+K099*<ALKEP>+K0100*<BIOP>+K0101*<AROP>+K0102*<CARBOP>+K103*<OLN>+K126*<XO2>
+ PLOSS(:,15) = +TPK%K024(:)*PCONC(:,1)+TPK%K025(:)*PCONC(:,14)+TPK%K027(:)*PCON&
+&C(:,15)+TPK%K027(:)*PCONC(:,15)+TPK%K028(:)*PCONC(:,15)*TPK%H2O(:)+TPK%K028(:)&
+&*PCONC(:,15)*TPK%H2O(:)+TPK%K035(:)*PCONC(:,3)+TPK%K036(:)*PCONC(:,4)+TPK%K038&
+&(:)*PCONC(:,5)+TPK%K084(:)*PCONC(:,36)+TPK%K097(:)*PCONC(:,32)+TPK%K098(:)*PCO&
+&NC(:,33)+TPK%K099(:)*PCONC(:,34)+TPK%K0100(:)*PCONC(:,35)+TPK%K0101(:)*PCONC(:&
+&,38)+TPK%K0102(:)*PCONC(:,39)+TPK%K103(:)*PCONC(:,40)+TPK%K126(:)*PCONC(:,41)
+!
+!PPROD(CH4) = +0.04300*K079*<ALKE>*<O3>
+ PPROD(:,16) = +0.04300*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
+!PLOSS(CH4) = +K056*<OH>
+ PLOSS(:,16) = +TPK%K056(:)*PCONC(:,14)
+!
+!PPROD(ETH) = +0.03196*K079*<ALKE>*<O3>
+ PPROD(:,17) = +0.03196*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
+!PLOSS(ETH) = +K057*<OH>
+ PLOSS(:,17) = +TPK%K057(:)*PCONC(:,14)
+!
+!PPROD(ALKA) = 0.0
+ PPROD(:,18) = 0.0
+!PLOSS(ALKA) = +K058*<OH>
+ PLOSS(:,18) = +TPK%K058(:)*PCONC(:,14)
+!
+!PPROD(ALKE) = +0.91868*K054*<BIO>*<O3P>+0.00000*K079*<ALKE>*<O3>+0.37388*K080*
+!<BIO>*<O3>+0.37815*K093*<BIOP>*<NO>+0.48074*K107*<BIOP>*<MO2>+0.24463*K113*<BI
+!OP>*<CARBOP>+0.42729*K122*<BIOP>*<NO3>
+ PPROD(:,19) = +0.91868*TPK%K054(:)*PCONC(:,20)*TPK%O3P(:)+0.00000*TPK%K079(:)*&
+&PCONC(:,19)*PCONC(:,1)+0.37388*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)+0.37815*TPK%&
+&K093(:)*PCONC(:,35)*PCONC(:,3)+0.48074*TPK%K107(:)*PCONC(:,35)*PCONC(:,32)+0.2&
+&4463*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)+0.42729*TPK%K122(:)*PCONC(:,35)*PCONC&
+&(:,5)
+!PLOSS(ALKE) = +K059*<OH>+K076*<NO3>+K079*<O3>
+ PLOSS(:,19) = +TPK%K059(:)*PCONC(:,14)+TPK%K076(:)*PCONC(:,5)+TPK%K079(:)*PCON&
+&C(:,1)
+!
+!PPROD(BIO) = 0.0
+ PPROD(:,20) = 0.0
+!PLOSS(BIO) = +K054*<O3P>+K060*<OH>+K077*<NO3>+K080*<O3>
+ PLOSS(:,20) = +TPK%K054(:)*TPK%O3P(:)+TPK%K060(:)*PCONC(:,14)+TPK%K077(:)*PCON&
+&C(:,5)+TPK%K080(:)*PCONC(:,1)
!
RETURN
-END SUBROUTINE SUB12
+END SUBROUTINE SUB1
!
-SUBROUTINE SUB13
+SUBROUTINE SUB2
!
-!Indices 131 a 140
+!Indices 21 a 30
!
!
-!PPROD(WR_HONO) = +KTR7*<HONO>+KR11*<WR_HNO4>
- PPROD(:,131) = +TPK%KTR7(:)*PCONC(:,4)+TPK%KR11(:)*PCONC(:,133)
-!PLOSS(WR_HONO) = +KTR38+KR8*<WR_OH>
- PLOSS(:,131) = +TPK%KTR38(:)+TPK%KR8(:)*PCONC(:,135)
-!
-!PPROD(WR_HNO3) = +KTR8*<HNO3>+KR12*<WR_SO2>*<WR_HNO4>+KR14*<WR_N2O5>+KR14*<WR_
-!N2O5>+KR15*<WR_H2SO4>*<WR_NO3>+KR16*<WR_SO2>*<WR_NO3>
- PPROD(:,132) = +TPK%KTR8(:)*PCONC(:,5)+TPK%KR12(:)*PCONC(:,138)*PCONC(:,133)+T&
-&PK%KR14(:)*PCONC(:,130)+TPK%KR14(:)*PCONC(:,130)+TPK%KR15(:)*PCONC(:,139)*PCON&
-&C(:,129)+TPK%KR16(:)*PCONC(:,138)*PCONC(:,129)
-!PLOSS(WR_HNO3) = +KTR39+KR13
- PLOSS(:,132) = +TPK%KTR39(:)+TPK%KR13(:)
-!
-!PPROD(WR_HNO4) = +KTR9*<HNO4>+KR9*<WR_HO2>*<WR_NO2>
- PPROD(:,133) = +TPK%KTR9(:)*PCONC(:,6)+TPK%KR9(:)*PCONC(:,136)*PCONC(:,128)
-!PLOSS(WR_HNO4) = +KTR40+KR10+KR11+KR12*<WR_SO2>
- PLOSS(:,133) = +TPK%KTR40(:)+TPK%KR10(:)+TPK%KR11(:)+TPK%KR12(:)*PCONC(:,138)
+!PPROD(ARO) = +0.10670*K083*<PHO>*<NO2>+1.06698*K084*<PHO>*<HO2>+K085*<ADD>*<NO
+!2>+0.02*K086*<ADD>*<O2>+K087*<ADD>*<O3>
+ PPROD(:,21) = +0.10670*TPK%K083(:)*PCONC(:,36)*PCONC(:,4)+1.06698*TPK%K084(:)*&
+&PCONC(:,36)*PCONC(:,15)+TPK%K085(:)*PCONC(:,37)*PCONC(:,4)+0.02*TPK%K086(:)*PC&
+&ONC(:,37)*TPK%O2(:)+TPK%K087(:)*PCONC(:,37)*PCONC(:,1)
+!PLOSS(ARO) = +K061*<OH>+K075*<NO3>
+ PLOSS(:,21) = +TPK%K061(:)*PCONC(:,14)+TPK%K075(:)*PCONC(:,5)
+!
+!PPROD(HCHO) = +K013*<OP1>+0.06517*K016*<CARBO>+0.05*K054*<BIO>*<O3P>+0.00140*K
+!058*<ALKA>*<OH>+0.00000*K065*<CARBO>*<OH>+0.35*K068*<OP1>*<OH>+0.02915*K069*<O
+!P2>*<OH>+0.57839*K070*<PAN>*<OH>+0.40*K078*<PAN>*<NO3>+0.48290*K079*<ALKE>*<O3
+!>+0.90000*K080*<BIO>*<O3>+0.00000*K081*<CARBO>*<O3>+0.70*K082*<PAN>*<O3>+K090*
+!<MO2>*<NO>+0.03002*K091*<ALKAP>*<NO>+1.39870*K092*<ALKEP>*<NO>+0.60600*K093*<B
+!IOP>*<NO>+0.05848*K095*<CARBOP>*<NO>+0.23419*K096*<OLN>*<NO>+1.33*K104*<MO2>*<
+!MO2>+0.80556*K105*<ALKAP>*<MO2>+1.42894*K106*<ALKEP>*<MO2>+1.09000*K107*<BIOP>
+!*<MO2>+K108*<AROP>*<MO2>+0.95723*K109*<CARBOP>*<MO2>+0.88625*K110*<OLN>*<MO2>+
+!0.07600*K111*<ALKAP>*<CARBOP>+0.68192*K112*<ALKEP>*<CARBOP>+0.34000*K113*<BIOP
+!>*<CARBOP>+0.03432*K115*<CARBOP>*<CARBOP>+0.13414*K116*<OLN>*<CARBOP>+0.00000*
+!K118*<OLN>*<OLN>+K119*<MO2>*<NO3>+0.03142*K120*<ALKAP>*<NO3>+1.40909*K121*<ALK
+!EP>*<NO3>+0.68600*K122*<BIOP>*<NO3>+0.03175*K124*<CARBOP>*<NO3>+0.20740*K125*<
+!OLN>*<NO3>+K127*<XO2>*<MO2>
+ PPROD(:,22) = +TPK%K013(:)*PCONC(:,28)+0.06517*TPK%K016(:)*PCONC(:,25)+0.05*TP&
+&K%K054(:)*PCONC(:,20)*TPK%O3P(:)+0.00140*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)+0&
+&.00000*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)+0.35*TPK%K068(:)*PCONC(:,28)*PCONC(&
+&:,14)+0.02915*TPK%K069(:)*PCONC(:,29)*PCONC(:,14)+0.57839*TPK%K070(:)*PCONC(:,&
+&27)*PCONC(:,14)+0.40*TPK%K078(:)*PCONC(:,27)*PCONC(:,5)+0.48290*TPK%K079(:)*PC&
+&ONC(:,19)*PCONC(:,1)+0.90000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)+0.00000*TPK%K0&
+&81(:)*PCONC(:,25)*PCONC(:,1)+0.70*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)+TPK%K090(&
+&:)*PCONC(:,32)*PCONC(:,3)+0.03002*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)+1.39870*T&
+&PK%K092(:)*PCONC(:,34)*PCONC(:,3)+0.60600*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)+0&
+&.05848*TPK%K095(:)*PCONC(:,39)*PCONC(:,3)+0.23419*TPK%K096(:)*PCONC(:,40)*PCON&
+&C(:,3)+1.33*TPK%K104(:)*PCONC(:,32)*PCONC(:,32)+0.80556*TPK%K105(:)*PCONC(:,33&
+&)*PCONC(:,32)+1.42894*TPK%K106(:)*PCONC(:,34)*PCONC(:,32)+1.09000*TPK%K107(:)*&
+&PCONC(:,35)*PCONC(:,32)+TPK%K108(:)*PCONC(:,38)*PCONC(:,32)+0.95723*TPK%K109(:&
+&)*PCONC(:,39)*PCONC(:,32)+0.88625*TPK%K110(:)*PCONC(:,40)*PCONC(:,32)+0.07600*&
+&TPK%K111(:)*PCONC(:,33)*PCONC(:,39)+0.68192*TPK%K112(:)*PCONC(:,34)*PCONC(:,39&
+&)+0.34000*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)+0.03432*TPK%K115(:)*PCONC(:,39)*&
+&PCONC(:,39)+0.13414*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)+0.00000*TPK%K118(:)*PC&
+&ONC(:,40)*PCONC(:,40)+TPK%K119(:)*PCONC(:,32)*PCONC(:,5)+0.03142*TPK%K120(:)*P&
+&CONC(:,33)*PCONC(:,5)+1.40909*TPK%K121(:)*PCONC(:,34)*PCONC(:,5)+0.68600*TPK%K&
+&122(:)*PCONC(:,35)*PCONC(:,5)+0.03175*TPK%K124(:)*PCONC(:,39)*PCONC(:,5)+0.207&
+&40*TPK%K125(:)*PCONC(:,40)*PCONC(:,5)+TPK%K127(:)*PCONC(:,41)*PCONC(:,32)
+!PLOSS(HCHO) = +K010+K011+K062*<OH>+K072*<NO3>
+ PLOSS(:,22) = +TPK%K010(:)+TPK%K011(:)+TPK%K062(:)*PCONC(:,14)+TPK%K072(:)*PCO&
+&NC(:,5)
+!
+!PPROD(ALD) = +0.96205*K014*<OP2>+0.20*K017*<ONIT>+K055*<CARBO>*<O3P>+0.08173*K
+!058*<ALKA>*<OH>+0.06253*K065*<CARBO>*<OH>+0.07335*K069*<OP2>*<OH>+0.05265*K074
+!*<CARBO>*<NO3>+0.51468*K079*<ALKE>*<O3>+0.00000*K080*<BIO>*<O3>+0.15692*K081*<
+!CARBO>*<O3>+0.33144*K091*<ALKAP>*<NO>+0.42125*K092*<ALKEP>*<NO>+0.00000*K093*<
+!BIOP>*<NO>+0.07368*K095*<CARBOP>*<NO>+1.01182*K096*<OLN>*<NO>+0.56070*K105*<AL
+!KAP>*<MO2>+0.46413*K106*<ALKEP>*<MO2>+0.00000*K107*<BIOP>*<MO2>+0.08295*K109*<
+!CARBOP>*<MO2>+0.41524*K110*<OLN>*<MO2>+0.71461*K111*<ALKAP>*<CARBOP>+0.68374*K
+!112*<ALKEP>*<CARBOP>+0.00000*K113*<BIOP>*<CARBOP>+0.06969*K115*<CARBOP>*<CARBO
+!P>+0.42122*K116*<OLN>*<CARBOP>+0.00000*K118*<OLN>*<OLN>+0.33743*K120*<ALKAP>*<
+!NO3>+0.43039*K121*<ALKEP>*<NO3>+0.00000*K122*<BIOP>*<NO3>+0.02936*K124*<CARBOP
+!>*<NO3>+0.91850*K125*<OLN>*<NO3>
+ PPROD(:,23) = +0.96205*TPK%K014(:)*PCONC(:,29)+0.20*TPK%K017(:)*PCONC(:,26)+TP&
+&K%K055(:)*PCONC(:,25)*TPK%O3P(:)+0.08173*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)+0&
+&.06253*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)+0.07335*TPK%K069(:)*PCONC(:,29)*PCO&
+&NC(:,14)+0.05265*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)+0.51468*TPK%K079(:)*PCONC(&
+&:,19)*PCONC(:,1)+0.00000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)+0.15692*TPK%K081(:&
+&)*PCONC(:,25)*PCONC(:,1)+0.33144*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)+0.42125*TP&
+&K%K092(:)*PCONC(:,34)*PCONC(:,3)+0.00000*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)+0.&
+&07368*TPK%K095(:)*PCONC(:,39)*PCONC(:,3)+1.01182*TPK%K096(:)*PCONC(:,40)*PCONC&
+&(:,3)+0.56070*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)+0.46413*TPK%K106(:)*PCONC(:,&
+&34)*PCONC(:,32)+0.00000*TPK%K107(:)*PCONC(:,35)*PCONC(:,32)+0.08295*TPK%K109(:&
+&)*PCONC(:,39)*PCONC(:,32)+0.41524*TPK%K110(:)*PCONC(:,40)*PCONC(:,32)+0.71461*&
+&TPK%K111(:)*PCONC(:,33)*PCONC(:,39)+0.68374*TPK%K112(:)*PCONC(:,34)*PCONC(:,39&
+&)+0.00000*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)+0.06969*TPK%K115(:)*PCONC(:,39)*&
+&PCONC(:,39)+0.42122*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)+0.00000*TPK%K118(:)*PC&
+&ONC(:,40)*PCONC(:,40)+0.33743*TPK%K120(:)*PCONC(:,33)*PCONC(:,5)+0.43039*TPK%K&
+&121(:)*PCONC(:,34)*PCONC(:,5)+0.00000*TPK%K122(:)*PCONC(:,35)*PCONC(:,5)+0.029&
+&36*TPK%K124(:)*PCONC(:,39)*PCONC(:,5)+0.91850*TPK%K125(:)*PCONC(:,40)*PCONC(:,&
+&5)
+!PLOSS(ALD) = +K012+K063*<OH>+K073*<NO3>
+ PLOSS(:,23) = +TPK%K012(:)+TPK%K063(:)*PCONC(:,14)+TPK%K073(:)*PCONC(:,5)
+!
+!PPROD(KET) = +0.80*K017*<ONIT>+0.03498*K058*<ALKA>*<OH>+0.00853*K065*<CARBO>*<
+!OH>+0.37591*K069*<OP2>*<OH>+0.00632*K074*<CARBO>*<NO3>+0.07377*K079*<ALKE>*<O3
+!>+0.00000*K080*<BIO>*<O3>+0.54531*K091*<ALKAP>*<NO>+0.05220*K092*<ALKEP>*<NO>+
+!0.00000*K093*<BIOP>*<NO>+0.37862*K096*<OLN>*<NO>+0.09673*K105*<ALKAP>*<MO2>+0.
+!03814*K106*<ALKEP>*<MO2>+0.00000*K107*<BIOP>*<MO2>+0.09667*K110*<OLN>*<MO2>+0.
+!18819*K111*<ALKAP>*<CARBOP>+0.06579*K112*<ALKEP>*<CARBOP>+0.00000*K113*<BIOP>*
+!<CARBOP>+0.02190*K115*<CARBOP>*<CARBOP>+0.10822*K116*<OLN>*<CARBOP>+0.00000*K1
+!18*<OLN>*<OLN>+0.62978*K120*<ALKAP>*<NO3>+0.02051*K121*<ALKEP>*<NO3>+0.00000*K
+!122*<BIOP>*<NO3>+0.34740*K125*<OLN>*<NO3>
+ PPROD(:,24) = +0.80*TPK%K017(:)*PCONC(:,26)+0.03498*TPK%K058(:)*PCONC(:,18)*PC&
+&ONC(:,14)+0.00853*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)+0.37591*TPK%K069(:)*PCON&
+&C(:,29)*PCONC(:,14)+0.00632*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)+0.07377*TPK%K07&
+&9(:)*PCONC(:,19)*PCONC(:,1)+0.00000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)+0.54531&
+&*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)+0.05220*TPK%K092(:)*PCONC(:,34)*PCONC(:,3)&
+&+0.00000*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)+0.37862*TPK%K096(:)*PCONC(:,40)*PC&
+&ONC(:,3)+0.09673*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)+0.03814*TPK%K106(:)*PCONC&
+&(:,34)*PCONC(:,32)+0.00000*TPK%K107(:)*PCONC(:,35)*PCONC(:,32)+0.09667*TPK%K11&
+&0(:)*PCONC(:,40)*PCONC(:,32)+0.18819*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)+0.065&
+&79*TPK%K112(:)*PCONC(:,34)*PCONC(:,39)+0.00000*TPK%K113(:)*PCONC(:,35)*PCONC(:&
+&,39)+0.02190*TPK%K115(:)*PCONC(:,39)*PCONC(:,39)+0.10822*TPK%K116(:)*PCONC(:,4&
+&0)*PCONC(:,39)+0.00000*TPK%K118(:)*PCONC(:,40)*PCONC(:,40)+0.62978*TPK%K120(:)&
+&*PCONC(:,33)*PCONC(:,5)+0.02051*TPK%K121(:)*PCONC(:,34)*PCONC(:,5)+0.00000*TPK&
+&%K122(:)*PCONC(:,35)*PCONC(:,5)+0.34740*TPK%K125(:)*PCONC(:,40)*PCONC(:,5)
+!PLOSS(KET) = +K015+K064*<OH>
+ PLOSS(:,24) = +TPK%K015(:)+TPK%K064(:)*PCONC(:,14)
+!
+!PPROD(CARBO) = +0.13255*K054*<BIO>*<O3P>+0.00835*K058*<ALKA>*<OH>+0.16919*K065
+!*<CARBO>*<OH>+0.21863*K070*<PAN>*<OH>+0.10530*K074*<CARBO>*<NO3>+0.00000*K076*
+!<ALKE>*<NO3>+0.91741*K077*<BIO>*<NO3>+0.00000*K079*<ALKE>*<O3>+0.39754*K080*<B
+!IO>*<O3>+1.07583*K081*<CARBO>*<O3>+0.03407*K091*<ALKAP>*<NO>+0.45463*K093*<BIO
+!P>*<NO>+2.06993*K094*<AROP>*<NO>+0.08670*K095*<CARBOP>*<NO>+0.07976*K105*<ALKA
+!P>*<MO2>+0.56064*K107*<BIOP>*<MO2>+1.99461*K108*<AROP>*<MO2>+0.15387*K109*<CAR
+!BOP>*<MO2>+0.06954*K111*<ALKAP>*<CARBOP>+0.78591*K113*<BIOP>*<CARBOP>+1.99455*
+!K114*<AROP>*<CARBOP>+0.10777*K115*<CARBOP>*<CARBOP>+0.03531*K120*<ALKAP>*<NO3>
+!+0.61160*K122*<BIOP>*<NO3>+2.81904*K123*<AROP>*<NO3>+0.03455*K124*<CARBOP>*<NO
+!3>
+ PPROD(:,25) = +0.13255*TPK%K054(:)*PCONC(:,20)*TPK%O3P(:)+0.00835*TPK%K058(:)*&
+&PCONC(:,18)*PCONC(:,14)+0.16919*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)+0.21863*TP&
+&K%K070(:)*PCONC(:,27)*PCONC(:,14)+0.10530*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)+0&
+&.00000*TPK%K076(:)*PCONC(:,19)*PCONC(:,5)+0.91741*TPK%K077(:)*PCONC(:,20)*PCON&
+&C(:,5)+0.00000*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)+0.39754*TPK%K080(:)*PCONC(:,&
+&20)*PCONC(:,1)+1.07583*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)+0.03407*TPK%K091(:)*&
+&PCONC(:,33)*PCONC(:,3)+0.45463*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)+2.06993*TPK%&
+&K094(:)*PCONC(:,38)*PCONC(:,3)+0.08670*TPK%K095(:)*PCONC(:,39)*PCONC(:,3)+0.07&
+&976*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)+0.56064*TPK%K107(:)*PCONC(:,35)*PCONC(&
+&:,32)+1.99461*TPK%K108(:)*PCONC(:,38)*PCONC(:,32)+0.15387*TPK%K109(:)*PCONC(:,&
+&39)*PCONC(:,32)+0.06954*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)+0.78591*TPK%K113(:&
+&)*PCONC(:,35)*PCONC(:,39)+1.99455*TPK%K114(:)*PCONC(:,38)*PCONC(:,39)+0.10777*&
+&TPK%K115(:)*PCONC(:,39)*PCONC(:,39)+0.03531*TPK%K120(:)*PCONC(:,33)*PCONC(:,5)&
+&+0.61160*TPK%K122(:)*PCONC(:,35)*PCONC(:,5)+2.81904*TPK%K123(:)*PCONC(:,38)*PC&
+&ONC(:,5)+0.03455*TPK%K124(:)*PCONC(:,39)*PCONC(:,5)
+!PLOSS(CARBO) = +K016+K055*<O3P>+K065*<OH>+K074*<NO3>+K081*<O3>
+ PLOSS(:,25) = +TPK%K016(:)+TPK%K055(:)*TPK%O3P(:)+TPK%K065(:)*PCONC(:,14)+TPK%&
+&K074(:)*PCONC(:,5)+TPK%K081(:)*PCONC(:,1)
+!
+!PPROD(ONIT) = +0.60*K078*<PAN>*<NO3>+K083*<PHO>*<NO2>+0.08459*K091*<ALKAP>*<NO
+!>+0.15300*K093*<BIOP>*<NO>+0.04885*K094*<AROP>*<NO>+0.18401*K096*<OLN>*<NO>+K1
+!03*<OLN>*<HO2>+0.67560*K110*<OLN>*<MO2>+0.66562*K116*<OLN>*<CARBOP>+2.00*K117*
+!<OLN>*<OLN>+0.00000*K118*<OLN>*<OLN>+0.25928*K125*<OLN>*<NO3>
+ PPROD(:,26) = +0.60*TPK%K078(:)*PCONC(:,27)*PCONC(:,5)+TPK%K083(:)*PCONC(:,36)&
+&*PCONC(:,4)+0.08459*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)+0.15300*TPK%K093(:)*PCO&
+&NC(:,35)*PCONC(:,3)+0.04885*TPK%K094(:)*PCONC(:,38)*PCONC(:,3)+0.18401*TPK%K09&
+&6(:)*PCONC(:,40)*PCONC(:,3)+TPK%K103(:)*PCONC(:,40)*PCONC(:,15)+0.67560*TPK%K1&
+&10(:)*PCONC(:,40)*PCONC(:,32)+0.66562*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)+2.00&
+&*TPK%K117(:)*PCONC(:,40)*PCONC(:,40)+0.00000*TPK%K118(:)*PCONC(:,40)*PCONC(:,4&
+&0)+0.25928*TPK%K125(:)*PCONC(:,40)*PCONC(:,5)
+!PLOSS(ONIT) = +K017+K071*<OH>
+ PLOSS(:,26) = +TPK%K017(:)+TPK%K071(:)*PCONC(:,14)
+!
+!PPROD(PAN) = +0.28107*K070*<PAN>*<OH>+0.40000*K078*<PAN>*<NO3>+0.30000*K082*<P
+!AN>*<O3>+1.00000*K088*<CARBOP>*<NO2>
+ PPROD(:,27) = +0.28107*TPK%K070(:)*PCONC(:,27)*PCONC(:,14)+0.40000*TPK%K078(:)&
+&*PCONC(:,27)*PCONC(:,5)+0.30000*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)+1.00000*TPK&
+&%K088(:)*PCONC(:,39)*PCONC(:,4)
+!PLOSS(PAN) = +K070*<OH>+K078*<NO3>+K082*<O3>+K089
+ PLOSS(:,27) = +TPK%K070(:)*PCONC(:,14)+TPK%K078(:)*PCONC(:,5)+TPK%K082(:)*PCON&
+&C(:,1)+TPK%K089(:)
+!
+!PPROD(OP1) = +K097*<MO2>*<HO2>
+ PPROD(:,28) = +TPK%K097(:)*PCONC(:,32)*PCONC(:,15)
+!PLOSS(OP1) = +K013+K068*<OH>
+ PLOSS(:,28) = +TPK%K013(:)+TPK%K068(:)*PCONC(:,14)
+!
+!PPROD(OP2) = +0.10149*K081*<CARBO>*<O3>+1.00524*K098*<ALKAP>*<HO2>+1.00524*K09
+!9*<ALKEP>*<HO2>+1.00524*K0100*<BIOP>*<HO2>+1.00524*K0101*<AROP>*<HO2>+0.80904*
+!K0102*<CARBOP>*<HO2>+1.00524*K126*<XO2>*<HO2>
+ PPROD(:,29) = +0.10149*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)+1.00524*TPK%K098(:)*&
+&PCONC(:,33)*PCONC(:,15)+1.00524*TPK%K099(:)*PCONC(:,34)*PCONC(:,15)+1.00524*TP&
+&K%K0100(:)*PCONC(:,35)*PCONC(:,15)+1.00524*TPK%K0101(:)*PCONC(:,38)*PCONC(:,15&
+&)+0.80904*TPK%K0102(:)*PCONC(:,39)*PCONC(:,15)+1.00524*TPK%K126(:)*PCONC(:,41)&
+&*PCONC(:,15)
+!PLOSS(OP2) = +K014+K069*<OH>
+ PLOSS(:,29) = +TPK%K014(:)+TPK%K069(:)*PCONC(:,14)
!
-!PPROD(WR_NH3) = +KTR10*<NH3>
- PPROD(:,134) = +TPK%KTR10(:)*PCONC(:,9)
-!PLOSS(WR_NH3) = +KTR41
- PLOSS(:,134) = +TPK%KTR41(:)
-!
-!PPROD(WR_OH) = +KTR11*<OH>+KR1*<WR_H2O2>+KR1*<WR_H2O2>+KR6*<WR_HO2>*<WR_O3>+KR
-!13*<WR_HNO3>+KR24*<WR_ASO4>
- PPROD(:,135) = +TPK%KTR11(:)*PCONC(:,15)+TPK%KR1(:)*PCONC(:,126)+TPK%KR1(:)*PC&
-&ONC(:,126)+TPK%KR6(:)*PCONC(:,136)*PCONC(:,125)+TPK%KR13(:)*PCONC(:,132)+TPK%K&
-&R24(:)*PCONC(:,158)
-!PLOSS(WR_OH) = +KTR42+KR2*<WR_OH>+KR2*<WR_OH>+KR3*<WR_HO2>+KR4*<WR_H2O2>+KR7*<
-!WR_SO2>+KR8*<WR_HONO>+KR19*<WR_AHMS>+KR30*<WR_MEOH>+KR31*<WR_ETOH>+KR32*<WR_AL
-!CH>+KR33*<WR_HCHO>+KR34*<WR_ALD2>+KR35*<WR_GLY>+KR36*<WR_MGLY>+KR37*<WR_KETL>+
-!KR38*<WR_ORA1>+KR39*<WR_ORA2>+KR40*<WR_ACID>+KR41*<WR_ACID>+KR42*<WR_UR28>+KR4
-!3*<WR_UR21>+KR44*<WR_RP16>+KR45*<WR_RP16>+KR46*<WR_ACID2>
- PLOSS(:,135) = +TPK%KTR42(:)+TPK%KR2(:)*PCONC(:,135)+TPK%KR2(:)*PCONC(:,135)+T&
-&PK%KR3(:)*PCONC(:,136)+TPK%KR4(:)*PCONC(:,126)+TPK%KR7(:)*PCONC(:,138)+TPK%KR8&
-&(:)*PCONC(:,131)+TPK%KR19(:)*PCONC(:,161)+TPK%KR30(:)*PCONC(:,142)+TPK%KR31(:)&
-&*PCONC(:,143)+TPK%KR32(:)*PCONC(:,144)+TPK%KR33(:)*PCONC(:,145)+TPK%KR34(:)*PC&
-&ONC(:,146)+TPK%KR35(:)*PCONC(:,147)+TPK%KR36(:)*PCONC(:,148)+TPK%KR37(:)*PCONC&
-&(:,149)+TPK%KR38(:)*PCONC(:,150)+TPK%KR39(:)*PCONC(:,151)+TPK%KR40(:)*PCONC(:,&
-&152)+TPK%KR41(:)*PCONC(:,152)+TPK%KR42(:)*PCONC(:,155)+TPK%KR43(:)*PCONC(:,154&
-&)+TPK%KR44(:)*PCONC(:,153)+TPK%KR45(:)*PCONC(:,153)+TPK%KR46(:)*PCONC(:,156)
-!
-!PPROD(WR_HO2) = +KTR12*<HO2>+KR4*<WR_OH>*<WR_H2O2>+KR10*<WR_HNO4>+KR19*<WR_OH>
-!*<WR_AHMS>+2.00*KR27*<WR_RO21>*<WR_RO21>+KR29*<WR_RO25>*<WR_RO25>+KR30*<WR_OH>
-!*<WR_MEOH>+KR31*<WR_OH>*<WR_ETOH>+KR32*<WR_OH>*<WR_ALCH>+KR33*<WR_OH>*<WR_HCHO
-!>+KR35*<WR_OH>*<WR_GLY>+KR36*<WR_OH>*<WR_MGLY>+KR37*<WR_OH>*<WR_KETL>+KR38*<WR
-!_OH>*<WR_ORA1>+0.11*KR41*<WR_OH>*<WR_ACID>+KR42*<WR_OH>*<WR_UR28>+0.81*KR43*<W
-!R_OH>*<WR_UR21>+KR44*<WR_OH>*<WR_RP16>+0.71*KR45*<WR_OH>*<WR_RP16>
- PPROD(:,136) = +TPK%KTR12(:)*PCONC(:,10)+TPK%KR4(:)*PCONC(:,135)*PCONC(:,126)+&
-&TPK%KR10(:)*PCONC(:,133)+TPK%KR19(:)*PCONC(:,135)*PCONC(:,161)+2.00*TPK%KR27(:&
-&)*PCONC(:,140)*PCONC(:,140)+TPK%KR29(:)*PCONC(:,141)*PCONC(:,141)+TPK%KR30(:)*&
-&PCONC(:,135)*PCONC(:,142)+TPK%KR31(:)*PCONC(:,135)*PCONC(:,143)+TPK%KR32(:)*PC&
-&ONC(:,135)*PCONC(:,144)+TPK%KR33(:)*PCONC(:,135)*PCONC(:,145)+TPK%KR35(:)*PCON&
-&C(:,135)*PCONC(:,147)+TPK%KR36(:)*PCONC(:,135)*PCONC(:,148)+TPK%KR37(:)*PCONC(&
-&:,135)*PCONC(:,149)+TPK%KR38(:)*PCONC(:,135)*PCONC(:,150)+0.11*TPK%KR41(:)*PCO&
-&NC(:,135)*PCONC(:,152)+TPK%KR42(:)*PCONC(:,135)*PCONC(:,155)+0.81*TPK%KR43(:)*&
-&PCONC(:,135)*PCONC(:,154)+TPK%KR44(:)*PCONC(:,135)*PCONC(:,153)+0.71*TPK%KR45(&
-&:)*PCONC(:,135)*PCONC(:,153)
-!PLOSS(WR_HO2) = +KTR43+KR3*<WR_OH>+KR5*<WR_HO2>+KR5*<WR_HO2>+KR6*<WR_O3>+KR9*<
-!WR_NO2>+KR21*<WR_ASO5>
- PLOSS(:,136) = +TPK%KTR43(:)+TPK%KR3(:)*PCONC(:,135)+TPK%KR5(:)*PCONC(:,136)+T&
-&PK%KR5(:)*PCONC(:,136)+TPK%KR6(:)*PCONC(:,125)+TPK%KR9(:)*PCONC(:,128)+TPK%KR2&
-&1(:)*PCONC(:,159)
-!
-!PPROD(WR_CO2) = +KTR13*<CO2>+KR34*<WR_OH>*<WR_ALD2>+KR37*<WR_OH>*<WR_KETL>+KR3
-!8*<WR_OH>*<WR_ORA1>+KR40*<WR_OH>*<WR_ACID>+2*KR42*<WR_OH>*<WR_UR28>+0.43*KR43*
-!<WR_OH>*<WR_UR21>+2*KR45*<WR_OH>*<WR_RP16>
- PPROD(:,137) = +TPK%KTR13(:)*TPK%CO2(:)+TPK%KR34(:)*PCONC(:,135)*PCONC(:,146)+&
-&TPK%KR37(:)*PCONC(:,135)*PCONC(:,149)+TPK%KR38(:)*PCONC(:,135)*PCONC(:,150)+TP&
-&K%KR40(:)*PCONC(:,135)*PCONC(:,152)+2*TPK%KR42(:)*PCONC(:,135)*PCONC(:,155)+0.&
-&43*TPK%KR43(:)*PCONC(:,135)*PCONC(:,154)+2*TPK%KR45(:)*PCONC(:,135)*PCONC(:,15&
-&3)
-!PLOSS(WR_CO2) = +KTR44
- PLOSS(:,137) = +TPK%KTR44(:)
-!
-!PPROD(WR_SO2) = +KTR14*<SO2>+KR18*<WR_AHMS>+KR19*<WR_OH>*<WR_AHMS>
- PPROD(:,138) = +TPK%KTR14(:)*PCONC(:,13)+TPK%KR18(:)*PCONC(:,161)+TPK%KR19(:)*&
-&PCONC(:,135)*PCONC(:,161)
-!PLOSS(WR_SO2) = +KTR45+KR7*<WR_OH>+KR12*<WR_HNO4>+KR16*<WR_NO3>+KR17*<WR_HCHO>
-!+KR23*<WR_AHSO5>+KR25*<WR_O3>+KR26*<WR_H2O2>+KR28*<WR_RO21>
- PLOSS(:,138) = +TPK%KTR45(:)+TPK%KR7(:)*PCONC(:,135)+TPK%KR12(:)*PCONC(:,133)+&
-&TPK%KR16(:)*PCONC(:,129)+TPK%KR17(:)*PCONC(:,145)+TPK%KR23(:)*PCONC(:,160)+TPK&
-&%KR25(:)*PCONC(:,125)+TPK%KR26(:)*PCONC(:,126)+TPK%KR28(:)*PCONC(:,140)
-!
-!PPROD(WR_H2SO4) = +KTR15*<H2SO4>+KR12*<WR_SO2>*<WR_HNO4>+2.00*KR23*<WR_SO2>*<W
-!R_AHSO5>+KR24*<WR_ASO4>+KR25*<WR_O3>*<WR_SO2>+KR26*<WR_H2O2>*<WR_SO2>
- PPROD(:,139) = +TPK%KTR15(:)*PCONC(:,14)+TPK%KR12(:)*PCONC(:,138)*PCONC(:,133)&
-&+2.00*TPK%KR23(:)*PCONC(:,138)*PCONC(:,160)+TPK%KR24(:)*PCONC(:,158)+TPK%KR25(&
-&:)*PCONC(:,125)*PCONC(:,138)+TPK%KR26(:)*PCONC(:,126)*PCONC(:,138)
-!PLOSS(WR_H2SO4) = +KTR46+KR15*<WR_NO3>
- PLOSS(:,139) = +TPK%KTR46(:)+TPK%KR15(:)*PCONC(:,129)
-!
-!PPROD(WR_RO21) = +KTR16*<RO21>+0.50*KR34*<WR_OH>*<WR_ALD2>+KR37*<WR_OH>*<WR_KE
-!TL>
- PPROD(:,140) = +TPK%KTR16(:)*PCONC(:,86)+0.50*TPK%KR34(:)*PCONC(:,135)*PCONC(:&
-&,146)+TPK%KR37(:)*PCONC(:,135)*PCONC(:,149)
-!PLOSS(WR_RO21) = +KTR47+KR27*<WR_RO21>+KR27*<WR_RO21>+KR28*<WR_SO2>
- PLOSS(:,140) = +TPK%KTR47(:)+TPK%KR27(:)*PCONC(:,140)+TPK%KR27(:)*PCONC(:,140)&
-&+TPK%KR28(:)*PCONC(:,138)
+!PPROD(ORA1) = +0.00878*K058*<ALKA>*<OH>+0.15343*K079*<ALKE>*<O3>+0.15000*K080*
+!<BIO>*<O3>+0.10788*K081*<CARBO>*<O3>+0.11*K082*<PAN>*<O3>
+ PPROD(:,30) = +0.00878*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)+0.15343*TPK%K079(:)&
+&*PCONC(:,19)*PCONC(:,1)+0.15000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)+0.10788*TPK&
+&%K081(:)*PCONC(:,25)*PCONC(:,1)+0.11*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)
+!PLOSS(ORA1) = +K066*<OH>
+ PLOSS(:,30) = +TPK%K066(:)*PCONC(:,14)
!
RETURN
-END SUBROUTINE SUB13
-!
-SUBROUTINE SUB14
-!
-!Indices 141 a 150
-!
-!
-!PPROD(WR_RO25) = +KTR17*<RO25>+0.50*KR34*<WR_OH>*<WR_ALD2>+KR40*<WR_OH>*<WR_AC
-!ID>
- PPROD(:,141) = +TPK%KTR17(:)*PCONC(:,87)+0.50*TPK%KR34(:)*PCONC(:,135)*PCONC(:&
-&,146)+TPK%KR40(:)*PCONC(:,135)*PCONC(:,152)
-!PLOSS(WR_RO25) = +KTR48+KR29*<WR_RO25>+KR29*<WR_RO25>
- PLOSS(:,141) = +TPK%KTR48(:)+TPK%KR29(:)*PCONC(:,141)+TPK%KR29(:)*PCONC(:,141)
-!
-!PPROD(WR_MEOH) = +KTR18*<MEOH>
- PPROD(:,142) = +TPK%KTR18(:)*PCONC(:,32)
-!PLOSS(WR_MEOH) = +KTR49+KR30*<WR_OH>
- PLOSS(:,142) = +TPK%KTR49(:)+TPK%KR30(:)*PCONC(:,135)
-!
-!PPROD(WR_ETOH) = +KTR19*<ETOH>
- PPROD(:,143) = +TPK%KTR19(:)*PCONC(:,33)
-!PLOSS(WR_ETOH) = +KTR50+KR31*<WR_OH>
- PLOSS(:,143) = +TPK%KTR50(:)+TPK%KR31(:)*PCONC(:,135)
-!
-!PPROD(WR_ALCH) = +KTR20*<ALCH>
- PPROD(:,144) = +TPK%KTR20(:)*PCONC(:,34)
-!PLOSS(WR_ALCH) = +KTR51+KR32*<WR_OH>
- PLOSS(:,144) = +TPK%KTR51(:)+TPK%KR32(:)*PCONC(:,135)
-!
-!PPROD(WR_HCHO) = +KTR21*<HCHO>+KR18*<WR_AHMS>+2.00*KR27*<WR_RO21>*<WR_RO21>+KR
-!28*<WR_SO2>*<WR_RO21>+KR30*<WR_OH>*<WR_MEOH>+KR37*<WR_OH>*<WR_KETL>
- PPROD(:,145) = +TPK%KTR21(:)*PCONC(:,28)+TPK%KR18(:)*PCONC(:,161)+2.00*TPK%KR2&
-&7(:)*PCONC(:,140)*PCONC(:,140)+TPK%KR28(:)*PCONC(:,138)*PCONC(:,140)+TPK%KR30(&
-&:)*PCONC(:,135)*PCONC(:,142)+TPK%KR37(:)*PCONC(:,135)*PCONC(:,149)
-!PLOSS(WR_HCHO) = +KTR52+KR17*<WR_SO2>+KR33*<WR_OH>
- PLOSS(:,145) = +TPK%KTR52(:)+TPK%KR17(:)*PCONC(:,138)+TPK%KR33(:)*PCONC(:,135)
-!
-!PPROD(WR_ALD2) = +KTR22*<ALD2>+KR29*<WR_RO25>*<WR_RO25>+KR31*<WR_OH>*<WR_ETOH>
-!+0.50*KR32*<WR_OH>*<WR_ALCH>+KR37*<WR_OH>*<WR_KETL>+0.29*KR41*<WR_OH>*<WR_ACID
-!>+0.43*KR43*<WR_OH>*<WR_UR21>
- PPROD(:,146) = +TPK%KTR22(:)*PCONC(:,29)+TPK%KR29(:)*PCONC(:,141)*PCONC(:,141)&
-&+TPK%KR31(:)*PCONC(:,135)*PCONC(:,143)+0.50*TPK%KR32(:)*PCONC(:,135)*PCONC(:,1&
-&44)+TPK%KR37(:)*PCONC(:,135)*PCONC(:,149)+0.29*TPK%KR41(:)*PCONC(:,135)*PCONC(&
-&:,152)+0.43*TPK%KR43(:)*PCONC(:,135)*PCONC(:,154)
-!PLOSS(WR_ALD2) = +KTR53+KR34*<WR_OH>
- PLOSS(:,146) = +TPK%KTR53(:)+TPK%KR34(:)*PCONC(:,135)
-!
-!PPROD(WR_GLY) = +KTR23*<GLY>
- PPROD(:,147) = +TPK%KTR23(:)*PCONC(:,42)
-!PLOSS(WR_GLY) = +KTR54+KR35*<WR_OH>
- PLOSS(:,147) = +TPK%KTR54(:)+TPK%KR35(:)*PCONC(:,135)
-!
-!PPROD(WR_MGLY) = +KTR25*<MGLY>+KR37*<WR_OH>*<WR_KETL>
- PPROD(:,148) = +TPK%KTR25(:)*PCONC(:,41)+TPK%KR37(:)*PCONC(:,135)*PCONC(:,149)
-!PLOSS(WR_MGLY) = +KTR56+KR36*<WR_OH>
- PLOSS(:,148) = +TPK%KTR56(:)+TPK%KR36(:)*PCONC(:,135)
-!
-!PPROD(WR_KETL) = +KTR24*<KETL>+0.50*KR32*<WR_OH>*<WR_ALCH>+KR37*<WR_OH>*<WR_KE
-!TL>
- PPROD(:,149) = +TPK%KTR24(:)*PCONC(:,30)+0.50*TPK%KR32(:)*PCONC(:,135)*PCONC(:&
-&,144)+TPK%KR37(:)*PCONC(:,135)*PCONC(:,149)
-!PLOSS(WR_KETL) = +KTR55+KR37*<WR_OH>
- PLOSS(:,149) = +TPK%KTR55(:)+TPK%KR37(:)*PCONC(:,135)
-!
-!PPROD(WR_ORA1) = +KTR26*<ORA1>+KR19*<WR_OH>*<WR_AHMS>+KR33*<WR_OH>*<WR_HCHO>
- PPROD(:,150) = +TPK%KTR26(:)*PCONC(:,43)+TPK%KR19(:)*PCONC(:,135)*PCONC(:,161)&
-&+TPK%KR33(:)*PCONC(:,135)*PCONC(:,145)
-!PLOSS(WR_ORA1) = +KTR57+KR38*<WR_OH>
- PLOSS(:,150) = +TPK%KTR57(:)+TPK%KR38(:)*PCONC(:,135)
+END SUBROUTINE SUB2
!
-RETURN
-END SUBROUTINE SUB14
-!
-SUBROUTINE SUB15
-!
-!Indices 151 a 160
-!
-!
-!PPROD(WR_ORA2) = +KTR27*<ORA2>+KR29*<WR_RO25>*<WR_RO25>
- PPROD(:,151) = +TPK%KTR27(:)*PCONC(:,44)+TPK%KR29(:)*PCONC(:,141)*PCONC(:,141)
-!PLOSS(WR_ORA2) = +KTR58+KR39*<WR_OH>
- PLOSS(:,151) = +TPK%KTR58(:)+TPK%KR39(:)*PCONC(:,135)
-!
-!PPROD(WR_ACID) = +KTR28*<ACID>
- PPROD(:,152) = +TPK%KTR28(:)*PCONC(:,45)
-!PLOSS(WR_ACID) = +KTR59+KR40*<WR_OH>+KR41*<WR_OH>
- PLOSS(:,152) = +TPK%KTR59(:)+TPK%KR40(:)*PCONC(:,135)+TPK%KR41(:)*PCONC(:,135)
-!
-!PPROD(WR_RP16) = +KTR29*<RP16>+KR35*<WR_OH>*<WR_GLY>+KR39*<WR_OH>*<WR_ORA2>
- PPROD(:,153) = +TPK%KTR29(:)*PCONC(:,74)+TPK%KR35(:)*PCONC(:,135)*PCONC(:,147)&
-&+TPK%KR39(:)*PCONC(:,135)*PCONC(:,151)
-!PLOSS(WR_RP16) = +KTR60+KR44*<WR_OH>+KR45*<WR_OH>
- PLOSS(:,153) = +TPK%KTR60(:)+TPK%KR44(:)*PCONC(:,135)+TPK%KR45(:)*PCONC(:,135)
-!
-!PPROD(WR_UR21) = +KTR30*<UR21>+KR36*<WR_OH>*<WR_MGLY>+KR37*<WR_OH>*<WR_KETL>+0
-!.56*KR41*<WR_OH>*<WR_ACID>
- PPROD(:,154) = +TPK%KTR30(:)*PCONC(:,47)+TPK%KR36(:)*PCONC(:,135)*PCONC(:,148)&
-&+TPK%KR37(:)*PCONC(:,135)*PCONC(:,149)+0.56*TPK%KR41(:)*PCONC(:,135)*PCONC(:,1&
-&52)
-!PLOSS(WR_UR21) = +KTR61+KR43*<WR_OH>
- PLOSS(:,154) = +TPK%KTR61(:)+TPK%KR43(:)*PCONC(:,135)
-!
-!PPROD(WR_UR28) = +KTR31*<UR28>+KR44*<WR_OH>*<WR_RP16>
- PPROD(:,155) = +TPK%KTR31(:)*PCONC(:,46)+TPK%KR44(:)*PCONC(:,135)*PCONC(:,153)
-!PLOSS(WR_UR28) = +KTR62+KR42*<WR_OH>
- PLOSS(:,155) = +TPK%KTR62(:)+TPK%KR42(:)*PCONC(:,135)
-!
-!PPROD(WR_ACID2) = +0.15*KR41*<WR_OH>*<WR_ACID>+0.56*KR43*<WR_OH>*<WR_UR21>
- PPROD(:,156) = +0.15*TPK%KR41(:)*PCONC(:,135)*PCONC(:,152)+0.56*TPK%KR43(:)*PC&
-&ONC(:,135)*PCONC(:,154)
-!PLOSS(WR_ACID2) = +KR46*<WR_OH>
- PLOSS(:,156) = +TPK%KR46(:)*PCONC(:,135)
-!
-!PPROD(WR_ASO3) = +KR7*<WR_SO2>*<WR_OH>+KR16*<WR_SO2>*<WR_NO3>+KR28*<WR_SO2>*<W
-!R_RO21>
- PPROD(:,157) = +TPK%KR7(:)*PCONC(:,138)*PCONC(:,135)+TPK%KR16(:)*PCONC(:,138)*&
-&PCONC(:,129)+TPK%KR28(:)*PCONC(:,138)*PCONC(:,140)
-!PLOSS(WR_ASO3) = +KR20*<W_O2>
- PLOSS(:,157) = +TPK%KR20(:)*TPK%W_O2(:)
-!
-!PPROD(WR_ASO4) = +KR15*<WR_H2SO4>*<WR_NO3>+KR22*<WR_ASO5>*<WR_ASO5>+KR22*<WR_A
-!SO5>*<WR_ASO5>
- PPROD(:,158) = +TPK%KR15(:)*PCONC(:,139)*PCONC(:,129)+TPK%KR22(:)*PCONC(:,159)&
-&*PCONC(:,159)+TPK%KR22(:)*PCONC(:,159)*PCONC(:,159)
-!PLOSS(WR_ASO4) = +KR24
- PLOSS(:,158) = +TPK%KR24(:)
-!
-!PPROD(WR_ASO5) = +KR20*<W_O2>*<WR_ASO3>
- PPROD(:,159) = +TPK%KR20(:)*TPK%W_O2(:)*PCONC(:,157)
-!PLOSS(WR_ASO5) = +KR21*<WR_HO2>+KR22*<WR_ASO5>+KR22*<WR_ASO5>
- PLOSS(:,159) = +TPK%KR21(:)*PCONC(:,136)+TPK%KR22(:)*PCONC(:,159)+TPK%KR22(:)*&
-&PCONC(:,159)
-!
-!PPROD(WR_AHSO5) = +KR21*<WR_HO2>*<WR_ASO5>
- PPROD(:,160) = +TPK%KR21(:)*PCONC(:,136)*PCONC(:,159)
-!PLOSS(WR_AHSO5) = +KR23*<WR_SO2>
- PLOSS(:,160) = +TPK%KR23(:)*PCONC(:,138)
+SUBROUTINE SUB3
+!
+!Indices 31 a 40
!
-RETURN
-END SUBROUTINE SUB15
!
-SUBROUTINE SUB16
+!PPROD(ORA2) = +0.08143*K079*<ALKE>*<O3>+0.00000*K080*<BIO>*<O3>+0.20595*K081*<
+!CARBO>*<O3>+0.17307*K0102*<CARBOP>*<HO2>+0.13684*K109*<CARBOP>*<MO2>+0.49810*K
+!111*<ALKAP>*<CARBOP>+0.49922*K112*<ALKEP>*<CARBOP>+0.49400*K113*<BIOP>*<CARBOP
+!>+0.09955*K115*<CARBOP>*<CARBOP>+0.48963*K116*<OLN>*<CARBOP>
+ PPROD(:,31) = +0.08143*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)+0.00000*TPK%K080(:)*&
+&PCONC(:,20)*PCONC(:,1)+0.20595*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)+0.17307*TPK%&
+&K0102(:)*PCONC(:,39)*PCONC(:,15)+0.13684*TPK%K109(:)*PCONC(:,39)*PCONC(:,32)+0&
+&.49810*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)+0.49922*TPK%K112(:)*PCONC(:,34)*PCO&
+&NC(:,39)+0.49400*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)+0.09955*TPK%K115(:)*PCONC&
+&(:,39)*PCONC(:,39)+0.48963*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)
+!PLOSS(ORA2) = +K067*<OH>
+ PLOSS(:,31) = +TPK%K067(:)*PCONC(:,14)
+!
+!PPROD(MO2) = +K012*<ALD>+0.03795*K014*<OP2>+K056*<CH4>*<OH>+0.65*K068*<OP1>*<O
+!H>+0.13966*K079*<ALKE>*<O3>+0.03000*K080*<BIO>*<O3>+0.09016*K091*<ALKAP>*<NO>+
+!0.78134*K095*<CARBOP>*<NO>+0.01390*K105*<ALKAP>*<MO2>+0.56031*K109*<CARBOP>*<M
+!O2>+0.51480*K111*<ALKAP>*<CARBOP>+0.50078*K112*<ALKEP>*<CARBOP>+0.50600*K113*<
+!BIOP>*<CARBOP>+K114*<AROP>*<CARBOP>+1.66702*K115*<CARBOP>*<CARBOP>+0.51037*K11
+!6*<OLN>*<CARBOP>+0.09731*K120*<ALKAP>*<NO3>+0.91910*K124*<CARBOP>*<NO3>+K128*<
+!XO2>*<CARBOP>
+ PPROD(:,32) = +TPK%K012(:)*PCONC(:,23)+0.03795*TPK%K014(:)*PCONC(:,29)+TPK%K05&
+&6(:)*PCONC(:,16)*PCONC(:,14)+0.65*TPK%K068(:)*PCONC(:,28)*PCONC(:,14)+0.13966*&
+&TPK%K079(:)*PCONC(:,19)*PCONC(:,1)+0.03000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)+&
+&0.09016*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)+0.78134*TPK%K095(:)*PCONC(:,39)*PCO&
+&NC(:,3)+0.01390*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)+0.56031*TPK%K109(:)*PCONC(&
+&:,39)*PCONC(:,32)+0.51480*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)+0.50078*TPK%K112&
+&(:)*PCONC(:,34)*PCONC(:,39)+0.50600*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)+TPK%K1&
+&14(:)*PCONC(:,38)*PCONC(:,39)+1.66702*TPK%K115(:)*PCONC(:,39)*PCONC(:,39)+0.51&
+&037*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)+0.09731*TPK%K120(:)*PCONC(:,33)*PCONC(&
+&:,5)+0.91910*TPK%K124(:)*PCONC(:,39)*PCONC(:,5)+TPK%K128(:)*PCONC(:,41)*PCONC(&
+&:,39)
+!PLOSS(MO2) = +K090*<NO>+K097*<HO2>+K104*<MO2>+K104*<MO2>+K105*<ALKAP>+K106*<AL
+!KEP>+K107*<BIOP>+K108*<AROP>+K109*<CARBOP>+K110*<OLN>+K119*<NO3>+K127*<XO2>
+ PLOSS(:,32) = +TPK%K090(:)*PCONC(:,3)+TPK%K097(:)*PCONC(:,15)+TPK%K104(:)*PCON&
+&C(:,32)+TPK%K104(:)*PCONC(:,32)+TPK%K105(:)*PCONC(:,33)+TPK%K106(:)*PCONC(:,34&
+&)+TPK%K107(:)*PCONC(:,35)+TPK%K108(:)*PCONC(:,38)+TPK%K109(:)*PCONC(:,39)+TPK%&
+&K110(:)*PCONC(:,40)+TPK%K119(:)*PCONC(:,5)+TPK%K127(:)*PCONC(:,41)
+!
+!PPROD(ALKAP) = +1.00000*K015*<KET>+K057*<ETH>*<OH>+0.87811*K058*<ALKA>*<OH>+0.
+!40341*K069*<OP2>*<OH>+1.00000*K071*<ONIT>*<OH>+0.09815*K079*<ALKE>*<O3>+0.0000
+!0*K080*<BIO>*<O3>+0.08187*K091*<ALKAP>*<NO>+0.00385*K105*<ALKAP>*<MO2>+0.00828
+!*K111*<ALKAP>*<CARBOP>+0.08994*K120*<ALKAP>*<NO3>
+ PPROD(:,33) = +1.00000*TPK%K015(:)*PCONC(:,24)+TPK%K057(:)*PCONC(:,17)*PCONC(:&
+&,14)+0.87811*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)+0.40341*TPK%K069(:)*PCONC(:,2&
+&9)*PCONC(:,14)+1.00000*TPK%K071(:)*PCONC(:,26)*PCONC(:,14)+0.09815*TPK%K079(:)&
+&*PCONC(:,19)*PCONC(:,1)+0.00000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)+0.08187*TPK&
+&%K091(:)*PCONC(:,33)*PCONC(:,3)+0.00385*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)+0.&
+&00828*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)+0.08994*TPK%K120(:)*PCONC(:,33)*PCON&
+&C(:,5)
+!PLOSS(ALKAP) = +K091*<NO>+K098*<HO2>+K105*<MO2>+K111*<CARBOP>+K120*<NO3>
+ PLOSS(:,33) = +TPK%K091(:)*PCONC(:,3)+TPK%K098(:)*PCONC(:,15)+TPK%K105(:)*PCON&
+&C(:,32)+TPK%K111(:)*PCONC(:,39)+TPK%K120(:)*PCONC(:,5)
+!
+!PPROD(ALKEP) = +1.02529*K059*<ALKE>*<OH>
+ PPROD(:,34) = +1.02529*TPK%K059(:)*PCONC(:,19)*PCONC(:,14)
+!PLOSS(ALKEP) = +K092*<NO>+K099*<HO2>+K106*<MO2>+K112*<CARBOP>+K121*<NO3>
+ PLOSS(:,34) = +TPK%K092(:)*PCONC(:,3)+TPK%K099(:)*PCONC(:,15)+TPK%K106(:)*PCON&
+&C(:,32)+TPK%K112(:)*PCONC(:,39)+TPK%K121(:)*PCONC(:,5)
+!
+!PPROD(BIOP) = +0.00000*K059*<ALKE>*<OH>+1.00000*K060*<BIO>*<OH>
+ PPROD(:,35) = +0.00000*TPK%K059(:)*PCONC(:,19)*PCONC(:,14)+1.00000*TPK%K060(:)&
+&*PCONC(:,20)*PCONC(:,14)
+!PLOSS(BIOP) = +K093*<NO>+K0100*<HO2>+K107*<MO2>+K113*<CARBOP>+K122*<NO3>
+ PLOSS(:,35) = +TPK%K093(:)*PCONC(:,3)+TPK%K0100(:)*PCONC(:,15)+TPK%K107(:)*PCO&
+&NC(:,32)+TPK%K113(:)*PCONC(:,39)+TPK%K122(:)*PCONC(:,5)
+!
+!PPROD(PHO) = +0.00276*K061*<ARO>*<OH>+K075*<ARO>*<NO3>
+ PPROD(:,36) = +0.00276*TPK%K061(:)*PCONC(:,21)*PCONC(:,14)+TPK%K075(:)*PCONC(:&
+&,21)*PCONC(:,5)
+!PLOSS(PHO) = +K083*<NO2>+K084*<HO2>
+ PLOSS(:,36) = +TPK%K083(:)*PCONC(:,4)+TPK%K084(:)*PCONC(:,15)
+!
+!PPROD(ADD) = +0.93968*K061*<ARO>*<OH>
+ PPROD(:,37) = +0.93968*TPK%K061(:)*PCONC(:,21)*PCONC(:,14)
+!PLOSS(ADD) = +K085*<NO2>+K086*<O2>+K087*<O3>
+ PLOSS(:,37) = +TPK%K085(:)*PCONC(:,4)+TPK%K086(:)*TPK%O2(:)+TPK%K087(:)*PCONC(&
+&:,1)
+!
+!PPROD(AROP) = +0.98*K086*<ADD>*<O2>
+ PPROD(:,38) = +0.98*TPK%K086(:)*PCONC(:,37)*TPK%O2(:)
+!PLOSS(AROP) = +K094*<NO>+K0101*<HO2>+K108*<MO2>+K114*<CARBOP>+K123*<NO3>
+ PLOSS(:,38) = +TPK%K094(:)*PCONC(:,3)+TPK%K0101(:)*PCONC(:,15)+TPK%K108(:)*PCO&
+&NC(:,32)+TPK%K114(:)*PCONC(:,39)+TPK%K123(:)*PCONC(:,5)
+!
+!PPROD(CARBOP) = +1.00000*K015*<KET>+0.69622*K016*<CARBO>+1.00000*K063*<ALD>*<O
+!H>+1.00000*K064*<KET>*<OH>+0.51419*K065*<CARBO>*<OH>+0.05413*K069*<OP2>*<OH>+1
+!.00000*K073*<ALD>*<NO3>+0.38881*K074*<CARBO>*<NO3>+0.05705*K079*<ALKE>*<O3>+0.
+!17000*K080*<BIO>*<O3>+0.27460*K081*<CARBO>*<O3>+0.70000*K082*<PAN>*<O3>+1.0000
+!0*K089*<PAN>+0.09532*K095*<CARBOP>*<NO>+0.05954*K109*<CARBOP>*<MO2>+0.05821*K1
+!15*<CARBOP>*<CARBOP>+0.03175*K124*<CARBOP>*<NO3>
+ PPROD(:,39) = +1.00000*TPK%K015(:)*PCONC(:,24)+0.69622*TPK%K016(:)*PCONC(:,25)&
+&+1.00000*TPK%K063(:)*PCONC(:,23)*PCONC(:,14)+1.00000*TPK%K064(:)*PCONC(:,24)*P&
+&CONC(:,14)+0.51419*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)+0.05413*TPK%K069(:)*PCO&
+&NC(:,29)*PCONC(:,14)+1.00000*TPK%K073(:)*PCONC(:,23)*PCONC(:,5)+0.38881*TPK%K0&
+&74(:)*PCONC(:,25)*PCONC(:,5)+0.05705*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)+0.1700&
+&0*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)+0.27460*TPK%K081(:)*PCONC(:,25)*PCONC(:,1&
+&)+0.70000*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)+1.00000*TPK%K089(:)*PCONC(:,27)+0&
+&.09532*TPK%K095(:)*PCONC(:,39)*PCONC(:,3)+0.05954*TPK%K109(:)*PCONC(:,39)*PCON&
+&C(:,32)+0.05821*TPK%K115(:)*PCONC(:,39)*PCONC(:,39)+0.03175*TPK%K124(:)*PCONC(&
+&:,39)*PCONC(:,5)
+!PLOSS(CARBOP) = +K088*<NO2>+K095*<NO>+K0102*<HO2>+K109*<MO2>+K111*<ALKAP>+K112
+!*<ALKEP>+K113*<BIOP>+K114*<AROP>+K115*<CARBOP>+K115*<CARBOP>+K116*<OLN>+K124*<
+!NO3>+K128*<XO2>
+ PLOSS(:,39) = +TPK%K088(:)*PCONC(:,4)+TPK%K095(:)*PCONC(:,3)+TPK%K0102(:)*PCON&
+&C(:,15)+TPK%K109(:)*PCONC(:,32)+TPK%K111(:)*PCONC(:,33)+TPK%K112(:)*PCONC(:,34&
+&)+TPK%K113(:)*PCONC(:,35)+TPK%K114(:)*PCONC(:,38)+TPK%K115(:)*PCONC(:,39)+TPK%&
+&K115(:)*PCONC(:,39)+TPK%K116(:)*PCONC(:,40)+TPK%K124(:)*PCONC(:,5)+TPK%K128(:)&
+&*PCONC(:,41)
+!
+!PPROD(OLN) = +0.00000*K074*<CARBO>*<NO3>+0.93768*K076*<ALKE>*<NO3>+1.00000*K07
+!7*<BIO>*<NO3>
+ PPROD(:,40) = +0.00000*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)+0.93768*TPK%K076(:)*&
+&PCONC(:,19)*PCONC(:,5)+1.00000*TPK%K077(:)*PCONC(:,20)*PCONC(:,5)
+!PLOSS(OLN) = +K096*<NO>+K103*<HO2>+K110*<MO2>+K116*<CARBOP>+K117*<OLN>+K117*<O
+!LN>+K118*<OLN>+K118*<OLN>+K125*<NO3>
+ PLOSS(:,40) = +TPK%K096(:)*PCONC(:,3)+TPK%K103(:)*PCONC(:,15)+TPK%K110(:)*PCON&
+&C(:,32)+TPK%K116(:)*PCONC(:,39)+TPK%K117(:)*PCONC(:,40)+TPK%K117(:)*PCONC(:,40&
+&)+TPK%K118(:)*PCONC(:,40)+TPK%K118(:)*PCONC(:,40)+TPK%K125(:)*PCONC(:,5)
!
-!Indices 161 a 161
+RETURN
+END SUBROUTINE SUB3
!
+SUBROUTINE SUB4
!
-!PPROD(WR_AHMS) = +KR17*<WR_HCHO>*<WR_SO2>
- PPROD(:,161) = +TPK%KR17(:)*PCONC(:,145)*PCONC(:,138)
-!PLOSS(WR_AHMS) = +KR18+KR19*<WR_OH>
- PLOSS(:,161) = +TPK%KR18(:)+TPK%KR19(:)*PCONC(:,135)
+!Indices 41 a 41
+!
+!
+!PPROD(XO2) = +0.15*K054*<BIO>*<O3P>+0.10318*K061*<ARO>*<OH>+0.10162*K065*<CARB
+!O>*<OH>+0.09333*K069*<OP2>*<OH>+K070*<PAN>*<OH>+0.10530*K074*<CARBO>*<NO3>+K07
+!8*<PAN>*<NO3>+0.00000*K079*<ALKE>*<O3>+0.13000*K080*<BIO>*<O3>+0.13007*K091*<A
+!LKAP>*<NO>+0.02563*K095*<CARBOP>*<NO>+0.13370*K105*<ALKAP>*<MO2>+0.02212*K109*
+!<CARBOP>*<MO2>+0.11306*K111*<ALKAP>*<CARBOP>+0.01593*K115*<CARBOP>*<CARBOP>+0.
+!16271*K120*<ALKAP>*<NO3>+0.01021*K124*<CARBOP>*<NO3>
+ PPROD(:,41) = +0.15*TPK%K054(:)*PCONC(:,20)*TPK%O3P(:)+0.10318*TPK%K061(:)*PCO&
+&NC(:,21)*PCONC(:,14)+0.10162*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)+0.09333*TPK%K&
+&069(:)*PCONC(:,29)*PCONC(:,14)+TPK%K070(:)*PCONC(:,27)*PCONC(:,14)+0.10530*TPK&
+&%K074(:)*PCONC(:,25)*PCONC(:,5)+TPK%K078(:)*PCONC(:,27)*PCONC(:,5)+0.00000*TPK&
+&%K079(:)*PCONC(:,19)*PCONC(:,1)+0.13000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)+0.1&
+&3007*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)+0.02563*TPK%K095(:)*PCONC(:,39)*PCONC(&
+&:,3)+0.13370*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)+0.02212*TPK%K109(:)*PCONC(:,3&
+&9)*PCONC(:,32)+0.11306*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)+0.01593*TPK%K115(:)&
+&*PCONC(:,39)*PCONC(:,39)+0.16271*TPK%K120(:)*PCONC(:,33)*PCONC(:,5)+0.01021*TP&
+&K%K124(:)*PCONC(:,39)*PCONC(:,5)
+!PLOSS(XO2) = +K126*<HO2>+K127*<MO2>+K128*<CARBOP>+K129*<XO2>+K129*<XO2>+K130*<
+!NO>+K131*<NO3>
+ PLOSS(:,41) = +TPK%K126(:)*PCONC(:,15)+TPK%K127(:)*PCONC(:,32)+TPK%K128(:)*PCO&
+&NC(:,39)+TPK%K129(:)*PCONC(:,41)+TPK%K129(:)*PCONC(:,41)+TPK%K130(:)*PCONC(:,3&
+&)+TPK%K131(:)*PCONC(:,5)
!
RETURN
-END SUBROUTINE SUB16
+END SUBROUTINE SUB4
!
-END SUBROUTINE CH_PRODLOSS_AQ
+END SUBROUTINE CH_PRODLOSS_GAZ
!
!
!========================================================================
@@ -11635,10 +5935,10 @@ END SUBROUTINE CH_JAC
!========================================================================
!
!! ##################
- MODULE MODI_CH_JAC_GAZ
+ MODULE MODI_CH_JAC_AQ
!! ##################
INTERFACE
-SUBROUTINE CH_JAC_GAZ(PTIME,PCONC,PJAC,KMI,KVECNPT,KEQ)
+SUBROUTINE CH_JAC_AQ(PTIME,PCONC,PJAC,KMI,KVECNPT,KEQ)
IMPLICIT NONE
REAL, INTENT(IN) :: PTIME
INTEGER, INTENT(IN) :: KVECNPT
@@ -11646,14 +5946,14 @@ INTEGER, INTENT(IN) :: KEQ
REAL, INTENT(IN), DIMENSION(KVECNPT,KEQ) :: PCONC
REAL, INTENT(OUT), DIMENSION(KVECNPT,KEQ,KEQ) :: PJAC
INTEGER, INTENT(IN) :: KMI
-END SUBROUTINE CH_JAC_GAZ
+END SUBROUTINE CH_JAC_AQ
END INTERFACE
-END MODULE MODI_CH_JAC_GAZ
+END MODULE MODI_CH_JAC_AQ
!
!========================================================================
!
!! ####################
- SUBROUTINE CH_JAC_GAZ(PTIME,PCONC,PJAC,KMI,KVECNPT,KEQ)
+ SUBROUTINE CH_JAC_AQ(PTIME,PCONC,PJAC,KMI,KVECNPT,KEQ)
!! ####################
!! This code has been created automatically by preprocessor m10,
!! version: 9.7, copyright 1995-1999 by Meteo France/Universite Paul Sabatier.
@@ -11709,317 +6009,15 @@ TYPE(CCSTYPE), POINTER :: TPK
TPK=>TACCS(KMI)
!
! /BEGIN_CODE/
-TPK%OSD = ( +TPK%K016*PCONC(:,JP_O3) ) / &
- ( +TPK%K017*TPK%H2O+TPK%K018A*TPK%N2(:)+TPK%K018B*TPK%O2(:) )
-!
-TPK%O = ( +TPK%K001*PCONC(:,JP_NO2)+TPK%K014*PCONC(:,JP_NO3)+TPK%&
-&K015*PCONC(:,JP_O3)+TPK%K018A*TPK%OSD*TPK%N2(:)+TPK%K018B*TPK%OSD*TPK%O2(:) ) / &
-( +TPK%K002*TPK%O2(:)+TPK%K003*PCONC(:,JP_NO2)+TPK%K004*PCONC(:,JP_NO2)+TPK%K034*&
-PCONC(:,JP_O3)+TPK%K038*PCONC(:,JP_NO)+TPK%K052*PCONC(:,JP_ETHE)+&
-&TPK%K057*PCONC(:,JP_OLEL)+TPK%K067*PCONC(:,JP_ISOP)+TPK%K077*PCONC(:,&
-&JP_OLEH)+TPK%K087*PCONC(:,JP_BIOL)+TPK%K091*PCONC(:,JP_BIOH)+TPK%K283&
-&*PCONC(:,JP_MVK)+TPK%K284*PCONC(:,JP_MCR) )
-!
-TPK%RO225 = ( TPK%K085*PCONC(:,JP_BIOL)*PCONC(:,JP_NO3) ) / &
-( +TPK%K201*PCONC(:,JP_NO)+TPK%K202*PCONC(:,JP_RO2T)+TPK%K203*PCONC(:,JP_HO2))
-!
-TPK%RO228 = ( TPK%K089*PCONC(:,JP_BIOH)*PCONC(:,JP_NO3) ) / &
-( +TPK%K210*PCONC(:,JP_NO)+TPK%K211*PCONC(:,JP_RO2T)+TPK%K212*PCONC(:,JP_HO2))
-
-!
-TPK%RO253 = ( +0.41*TPK%K282*PCONC(:,JP_MCR)*PCONC(:,JP_O3) ) / &
-( +TPK%K297*PCONC(:,JP_NO)+TPK%K298*PCONC(:,JP_HO2)+TPK%K299*PCONC(&
-&:,JP_RO2T) )
-!
-TPK%RO254 = ( +TPK%K140*PCONC(:,JP_PAN6)+TPK%K297*TPK%RO253*&
-&PCONC(:,JP_NO)+TPK%K298*TPK%RO253*PCONC(:,JP_HO2)+TPK%K299*&
-&TPK%RO253*PCONC(:,JP_RO2T) ) / &
-( +TPK%K131*PCONC(:,JP_NO2)+TPK%K300*PCONC(:,JP_NO)+TPK%K301*PCONC(&
-&:,JP_HO2)+TPK%K302*PCONC(:,JP_RO2T) )
-!
-TPK%RO213 = ( +0.271*TPK%K066*PCONC(:,JP_ISOP)*PCONC(:,JP_O3) ) / &
-( +TPK%K162*PCONC(:,JP_NO)+TPK%K163*PCONC(:,JP_RO2T)+TPK%K164*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO239 = ( +TPK%K137*PCONC(:,JP_PAN3)+TPK%K162*TPK%RO213*&
-&PCONC(:,JP_NO)+TPK%K163*TPK%RO213*PCONC(:,JP_RO2T)+TPK%K164*TPK%RO213*PCONC(:,JP_HO2) ) / &
-( +TPK%K128*PCONC(:,JP_NO2)+TPK%K165*PCONC(:,JP_NO)+TPK%K166*PCONC(&
-&:,JP_HO2)+TPK%K167*PCONC(:,JP_RO2T) )
-!
-TPK%RO248 = ( +TPK%K141*PCONC(:,JP_PAN4)+TPK%K274*PCONC(:,JP_MGLY)*P&
-&CONC(:,JP_OH)+TPK%K278*PCONC(:,JP_MGLY)*PCONC(:,JP_NO3) ) / &
-( +TPK%K129*PCONC(:,JP_NO2)+TPK%K277*PCONC(:,JP_NO)+TPK%K279*PCONC(&
-&:,JP_HO2)+TPK%K280*PCONC(:,JP_RO2T) )
-!
-TPK%RO249 = ( +TPK%K272*PCONC(:,JP_MVK)*PCONC(:,JP_OH) ) / &
-( +TPK%K285*PCONC(:,JP_NO)+TPK%K286*PCONC(:,JP_RO2T)+TPK%K287*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO250 = ( +0.3750353*TPK%K139*PCONC(:,JP_APAN)+TPK%CF46*TPK%K2&
-&73*PCONC(:,JP_MCR)*PCONC(:,JP_OH)+TPK%CF46*TPK%K275*PCONC(:,JP_MCR)*PCONC&
-&(:,JP_NO3) ) / &
-( +TPK%K130*PCONC(:,JP_NO2)+TPK%K288*PCONC(:,JP_NO)+TPK%K289*PCONC(&
-&:,JP_HO2)+TPK%K290*PCONC(:,JP_RO2T) )
-!
-TPK%RO214 = ( +0.095*TPK%K066*PCONC(:,JP_ISOP)*PCONC(:,JP_O3)+TPK%K1&
-&65*TPK%RO239*PCONC(:,JP_NO)+TPK%K167*TPK%RO239*PCONC(:,JP_R&
-&O2T)+TPK%K288*TPK%RO250*PCONC(:,JP_NO)+TPK%K290*TPK%RO250&
-&*PCONC(:,JP_RO2T) ) / &
-( +TPK%K168*PCONC(:,JP_NO)+TPK%K169*PCONC(:,JP_RO2T)+TPK%K170*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO251 = ( +TPK%CF47*TPK%K273*PCONC(:,JP_MCR)*PCONC(:,JP_OH) ) / &
-( +TPK%K291*PCONC(:,JP_NO)+TPK%K292*PCONC(:,JP_HO2)+TPK%K293*PCONC(&
-&:,JP_RO2T) )
-!
-TPK%RO252 = ( +TPK%CF47*TPK%K275*PCONC(:,JP_MCR)*PCONC(:,JP_NO3) ) /&
-( +TPK%K294*PCONC(:,JP_NO)+TPK%K295*PCONC(:,JP_HO2)+TPK%K296*PCONC(&
-&:,JP_RO2T) )
-!
-TPK%RO258 = ( +TPK%K138*PCONC(:,JP_PN10)+TPK%K305*PCONC(:,JP_RP16)*P&
-&CONC(:,JP_OH)+TPK%K338*PCONC(:,JP_RP16)*PCONC(:,JP_NO3) ) / &
-( +TPK%K134*PCONC(:,JP_NO2)+TPK%K340*PCONC(:,JP_NO)+TPK%K341*PCONC(&
-&:,JP_HO2)+TPK%K342*PCONC(:,JP_RO2T) )
-!
-TPK%RO255 = ( +TPK%K304*PCONC(:,JP_RPR1)*PCONC(:,JP_OH)+TPK%K307*PCO&
-&NC(:,JP_RPR1)*PCONC(:,JP_NO3)+TPK%K343*PCONC(:,JP_PAN7) ) / &
-( +TPK%K132*PCONC(:,JP_NO2)+TPK%K309*PCONC(:,JP_NO)+TPK%K310*PCONC(&
-&:,JP_HO2)+TPK%K311*PCONC(:,JP_RO2T) )
-!
-TPK%RO256 = ( +TPK%K312*PCONC(:,JP_RPR3)*PCONC(:,JP_OH)+TPK%K313*PCO&
-&NC(:,JP_RPR3)*PCONC(:,JP_NO3)+TPK%K317*PCONC(:,JP_PAN8) ) / &
-( +TPK%K315*PCONC(:,JP_NO)+TPK%K316*PCONC(:,JP_NO2)+TPK%K318*PCONC(&
-&:,JP_HO2)+TPK%K319*PCONC(:,JP_RO2T) )
-!
-TPK%RO257 = ( +0.6249651*TPK%K139*PCONC(:,JP_APAN)+TPK%K324*PCONC(:,&
-&JP_RPR8)*PCONC(:,JP_OH)+TPK%K327*PCONC(:,JP_RPR8)*PCONC(:,JP_NO3)+TPK%K3&
-&30*PCONC(:,JP_RPR8) ) / &
-( +TPK%K133*PCONC(:,JP_NO2)+TPK%K331*PCONC(:,JP_NO)+TPK%K332*PCONC(&
-&:,JP_HO2)+TPK%K333*PCONC(:,JP_RO2T) )
-!
-TPK%RO29 = ( +0.66*TPK%K064*PCONC(:,JP_ISOP)*PCONC(:,JP_OH)+TPK%K329&
-&*PCONC(:,JP_RPR8)+TPK%K331*TPK%RO257*PCONC(:,JP_NO)+TPK%K333*TPK%RO257*&
-PCONC(:,JP_RO2T) ) / &
-( +TPK%K150*PCONC(:,JP_NO)+TPK%K151*PCONC(:,JP_RO2T)+TPK%K152*PCONC&
-&(:,JP_HO2) )
-!
-!avoid division by zero in prodloss
-WHERE (PCONC(:,JP_NO2)>0.)
- TPK%RAD1 = ( +TPK%K072*PCONC(:,JP_AROO)*PCONC(:,JP_NO3) ) / &
- ( +TPK%K103*PCONC(:,JP_NO2) )
-!
- TPK%RAD8 = ( +TPK%K320*PCONC(:,JP_RPR4)*PCONC(:,JP_NO3) ) / &
- ( +TPK%K321*PCONC(:,JP_NO2) )
-ELSEWHERE
- TPK%RAD1 = 0.
- TPK%RAD8 = 0.
-ENDWHERE
-!
-TPK%RAD2 = ( +0.74*TPK%K073*PCONC(:,JP_AROO)*PCONC(:,JP_OH) ) / &
-( +TPK%K097+TPK%K104*PCONC(:,JP_NO2) )
-!
-TPK%RAD3 = ( +0.74*TPK%K079*PCONC(:,JP_AROL)*PCONC(:,JP_OH) ) / &
-( +TPK%K098+TPK%K105*PCONC(:,JP_NO2) )
-!
-TPK%RAD4 = ( +0.84*TPK%K080*PCONC(:,JP_AROH)*PCONC(:,JP_OH) ) / &
-( +TPK%K099+TPK%K106*PCONC(:,JP_NO2) )
-!
-TPK%RAD5 = ( +TPK%CF40*TPK%K082*PCONC(:,JP_ARAL)*PCONC(:,JP_OH) ) / &
-( +TPK%K100+TPK%K107*PCONC(:,JP_NO2) )
-!
-TPK%RAD6 = ( +0.74*TPK%K083*PCONC(:,JP_ARAC)*PCONC(:,JP_OH) ) / &
-( +TPK%K101+TPK%K108*PCONC(:,JP_NO2) )
-!
-TPK%RAD7 = ( +0.74*TPK%K092*PCONC(:,JP_PAH)*PCONC(:,JP_OH) ) / &
-( +TPK%K102+TPK%K109*PCONC(:,JP_NO2) )
-!
-TPK%RO22 = ( +TPK%K049*PCONC(:,JP_ETHE)*PCONC(:,JP_OH)+TPK%CF2*TPK&
-&%K053*PCONC(:,JP_ETOH)*PCONC(:,JP_OH)+TPK%K054*PCONC(:,JP_OLEL)*PCONC(:,JP_&
-&OH)+TPK%K069*PCONC(:,JP_ALCH)*PCONC(:,JP_OH) ) / &
-( +TPK%K113*PCONC(:,JP_NO)+TPK%K114*PCONC(:,JP_RO2T)+TPK%K115*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO23 = ( +TPK%K050*PCONC(:,JP_ETHE)*PCONC(:,JP_NO3)+TPK%K055*PCO&
-&NC(:,JP_OLEL)*PCONC(:,JP_NO3) ) / &
-( +TPK%K116*PCONC(:,JP_NO)+TPK%K117*PCONC(:,JP_RO2T)+TPK%K118*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO24 = ( +0.4*TPK%K052*PCONC(:,JP_ETHE)*TPK%O+0.1*TPK%K0&
-&57*PCONC(:,JP_OLEL)*TPK%O+0.1*TPK%K077*PCONC(:,JP_OLEH)*&
-&TPK%O+0.15*TPK%K283*PCONC(:,JP_MVK)*TPK%O ) / &
-( +TPK%K119*PCONC(:,JP_NO)+TPK%K120*PCONC(:,JP_RO2T)+TPK%K121*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO26 = ( +TPK%K060*PCONC(:,JP_ALD2)*PCONC(:,JP_OH)+TPK%K061*PCON&
-&C(:,JP_ALD2)*PCONC(:,JP_NO3)+TPK%K135*PCONC(:,JP_PAN1) ) / &
-( +TPK%K125*PCONC(:,JP_NO)+TPK%K126*PCONC(:,JP_NO2)+TPK%K142*PCONC(&
-&:,JP_HO2)+TPK%K143*PCONC(:,JP_RO2T) )
-!
-TPK%RO27 = ( +TPK%K062*PCONC(:,JP_KETL)*PCONC(:,JP_OH)+TPK%CF8*TPK&
-&%K168*TPK%RO214*PCONC(:,JP_NO)+TPK%K169*TPK%RO214*PCONC(:,J&
-&P_RO2T)+TPK%K170*TPK%RO214*PCONC(:,JP_HO2)+0.15*TPK%K284*PCONC(:&
-&,JP_MCR)*TPK%O ) / &
-( +TPK%K144*PCONC(:,JP_NO)+TPK%K145*PCONC(:,JP_RO2T)+TPK%K146*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO210 = ( +0.34*TPK%K064*PCONC(:,JP_ISOP)*PCONC(:,JP_OH) ) / &
-( +TPK%K153*PCONC(:,JP_NO)+TPK%K154*PCONC(:,JP_RO2T)+TPK%K155*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO211 = ( +0.66*TPK%K065*PCONC(:,JP_ISOP)*PCONC(:,JP_NO3) ) / &
-( +TPK%K156*PCONC(:,JP_NO)+TPK%K157*PCONC(:,JP_RO2T)+TPK%K158*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO212 = ( +0.34*TPK%K065*PCONC(:,JP_ISOP)*PCONC(:,JP_NO3) ) / &
-( +TPK%K159*PCONC(:,JP_NO)+TPK%K160*PCONC(:,JP_RO2T)+TPK%K161*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO215 = ( +TPK%K068*PCONC(:,JP_MTBE)*PCONC(:,JP_OH) ) / &
-( +TPK%K171*PCONC(:,JP_NO)+TPK%K172*PCONC(:,JP_RO2T)+TPK%K173*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO216 = ( +TPK%K070*PCONC(:,JP_KETH)*PCONC(:,JP_OH) ) / &
-( +TPK%K174*PCONC(:,JP_NO)+TPK%K175*PCONC(:,JP_RO2T)+TPK%K176*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO217 = ( +0.1*TPK%K073*PCONC(:,JP_AROO)*PCONC(:,JP_OH) ) / &
-( +TPK%K177*PCONC(:,JP_NO)+TPK%K178*PCONC(:,JP_RO2T)+TPK%K179*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO220 = ( +0.28*TPK%K076*PCONC(:,JP_OLEH)*PCONC(:,JP_O3)+0.1*TPK&
-&%K077*PCONC(:,JP_OLEH)*TPK%O+TPK%K078*PCONC(:,JP_ALKM)*PCONC(:,JP_O&
-&H)+TPK%K308*PCONC(:,JP_RPR1)+TPK%K309*TPK%RO255*PCONC(:,JP_NO)+T&
-&PK%K311*TPK%RO255*PCONC(:,JP_RO2T) ) / &
-( +TPK%K186*PCONC(:,JP_NO)+TPK%K187*PCONC(:,JP_RO2T)+TPK%K188*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO218 = ( +TPK%K074*PCONC(:,JP_OLEH)*PCONC(:,JP_OH)+TPK%CF18*TPK%K186*&
-TPK%RO220*PCONC(:,JP_NO)+TPK%K187*TPK%RO220*PCONC(:&
-&,JP_RO2T)+TPK%K188*TPK%RO220*PCONC(:,JP_HO2) ) / &
-( +TPK%K180*PCONC(:,JP_NO)+TPK%K181*PCONC(:,JP_RO2T)+TPK%K182*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO219 = ( +TPK%K075*PCONC(:,JP_OLEH)*PCONC(:,JP_NO3) ) / &
-( +TPK%K183*PCONC(:,JP_NO)+TPK%K184*PCONC(:,JP_RO2T)+TPK%K185*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO221 = ( +0.1*TPK%K079*PCONC(:,JP_AROL)*PCONC(:,JP_OH) ) / &
-( +TPK%K189*PCONC(:,JP_NO)+TPK%K190*PCONC(:,JP_RO2T)+TPK%K191*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO222 = ( +TPK%CF45*TPK%K082*PCONC(:,JP_ARAL)*PCONC(:,JP_OH) ) /&
-& &
-( +TPK%K192*PCONC(:,JP_NO)+TPK%K193*PCONC(:,JP_RO2T)+TPK%K194*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO223 = ( +0.1*TPK%K083*PCONC(:,JP_ARAC)*PCONC(:,JP_OH) ) / &
-( +TPK%K195*PCONC(:,JP_NO)+TPK%K196*PCONC(:,JP_RO2T)+TPK%K197*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO224 = ( +TPK%K084*PCONC(:,JP_BIOL)*PCONC(:,JP_OH) ) / &
-( +TPK%K198*PCONC(:,JP_NO)+TPK%K199*PCONC(:,JP_RO2T)+TPK%K200*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO226 = ( +0.445*TPK%K086*PCONC(:,JP_BIOL)*PCONC(:,JP_O3) ) / &
-( +TPK%K204*PCONC(:,JP_NO)+TPK%K205*PCONC(:,JP_RO2T)+TPK%K206*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO227 = ( +TPK%K088*PCONC(:,JP_BIOH)*PCONC(:,JP_OH) ) / &
-( +TPK%K207*PCONC(:,JP_NO)+TPK%K208*PCONC(:,JP_RO2T)+TPK%K209*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO229 = ( +0.445*TPK%K090*PCONC(:,JP_BIOH)*PCONC(:,JP_O3) ) / &
-( +TPK%K213*PCONC(:,JP_NO)+TPK%K214*PCONC(:,JP_RO2T)+TPK%K215*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO230 = ( +0.445*TPK%K090*PCONC(:,JP_BIOH)*PCONC(:,JP_O3) ) / &
-( +TPK%K219*PCONC(:,JP_RO2T)+TPK%K220*PCONC(:,JP_HO2)+TPK%K344*PCON&
-&C(:,JP_NO) )
-!
-TPK%RO231 = ( +0.1*TPK%K092*PCONC(:,JP_PAH)*PCONC(:,JP_OH) ) / &
-( +TPK%K221*PCONC(:,JP_NO)+TPK%K222*PCONC(:,JP_RO2T)+TPK%K223*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO232 = ( +TPK%K093*PCONC(:,JP_ALKH)*PCONC(:,JP_OH) ) / &
-( +TPK%K224*PCONC(:,JP_NO)+TPK%K225*PCONC(:,JP_RO2T)+TPK%K226*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO233 = ( +TPK%K097*TPK%RAD2 ) / &
-( +TPK%K230+TPK%K231*PCONC(:,JP_NO)+TPK%K232*PCONC(:,JP_RO2T)+TPK%K233*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO234 = ( +TPK%K098*TPK%RAD3 ) / &
-( +TPK%K237+TPK%K238*PCONC(:,JP_NO)+TPK%K239*PCONC(:,JP_RO2T)+TPK%K240*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO235 = ( +TPK%K099*TPK%RAD4 ) / &
-( +TPK%K244+TPK%K245*PCONC(:,JP_NO)+TPK%K246*PCONC(:,JP_RO2T)+TPK%K247*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO236 = ( +TPK%K100*TPK%RAD5 ) / &
-( +TPK%K251+TPK%K252*PCONC(:,JP_NO)+TPK%K253*PCONC(:,JP_RO2T)+TPK%K254*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO237 = ( +TPK%K101*TPK%RAD6 ) / &
-( +TPK%K258+TPK%K259*PCONC(:,JP_NO)+TPK%K260*PCONC(:,JP_RO2T)+TPK%K261*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO238 = ( +TPK%K102*TPK%RAD7 ) / &
-( +TPK%K265+TPK%K266*PCONC(:,JP_NO)+TPK%K267*PCONC(:,JP_RO2T)+TPK%K268*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO240 = ( +TPK%CF30*TPK%K213*TPK%RO229*PCONC(:,JP_NO)+TPK%K214*&
-TPK%RO229*PCONC(:,JP_RO2T)+TPK%K215*TPK%RO229*PCON&
-&C(:,JP_HO2) ) / &
-( +TPK%K216*PCONC(:,JP_NO)+TPK%K217*PCONC(:,JP_RO2T)+TPK%K218*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO241 = ( +TPK%CF34*TPK%K224*TPK%RO232*PCONC(:,JP_NO)+TPK%K225*&
-TPK%RO232*PCONC(:,JP_RO2T)+TPK%K226*TPK%RO232*PCON&
-&C(:,JP_HO2) ) / &
-( +TPK%K227*PCONC(:,JP_NO)+TPK%K228*PCONC(:,JP_RO2T)+TPK%K229*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO242 = ( +TPK%K230*TPK%RO233 ) / &
-( +TPK%K234*PCONC(:,JP_NO)+TPK%K235*PCONC(:,JP_RO2T)+TPK%K236*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO243 = ( +TPK%K237*TPK%RO234 ) / &
-( +TPK%K241*PCONC(:,JP_NO)+TPK%K242*PCONC(:,JP_RO2T)+TPK%K243*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO244 = ( +TPK%K244*TPK%RO235 ) / &
-( +TPK%K248*PCONC(:,JP_NO)+TPK%K249*PCONC(:,JP_RO2T)+TPK%K250*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO245 = ( +TPK%K251*TPK%RO236 ) / &
-( +TPK%K255*PCONC(:,JP_NO)+TPK%K256*PCONC(:,JP_RO2T)+TPK%K257*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO246 = ( +TPK%K258*TPK%RO237 ) / &
-( +TPK%K262*PCONC(:,JP_NO)+TPK%K263*PCONC(:,JP_RO2T)+TPK%K264*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO247 = ( +TPK%K265*TPK%RO238 ) / &
-( +TPK%K269*PCONC(:,JP_NO)+TPK%K270*PCONC(:,JP_RO2T)+TPK%K271*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO28 = ( +TPK%K063*PCONC(:,JP_KETL)+TPK%K071*PCONC(:,JP_KETH)+TP&
-&K%K136*PCONC(:,JP_PAN2)+TPK%K144*TPK%RO27*PCONC(:,JP_NO)+TPK%&
-&K145*TPK%RO27*PCONC(:,JP_RO2T)+TPK%K146*TPK%RO27*PCONC(:,JP&
-&_HO2)+TPK%K174*TPK%RO216*PCONC(:,JP_NO)+TPK%K175*TPK%RO21&
-&6*PCONC(:,JP_RO2T)+TPK%K176*TPK%RO216*PCONC(:,JP_HO2)+TPK%K204*&
-&TPK%RO226*PCONC(:,JP_NO)+TPK%K205*TPK%RO226*PCONC(:,JP_RO2T)&
-&+TPK%K206*TPK%RO226*PCONC(:,JP_HO2)+TPK%K216*TPK%RO240*&
-&PCONC(:,JP_NO)+TPK%K217*TPK%RO240*PCONC(:,JP_RO2T)+TPK%K218*&
-&TPK%RO240*PCONC(:,JP_HO2)+TPK%K219*TPK%RO230*PCONC(:,JP_RO2T)+T&
-&PK%K220*TPK%RO230*PCONC(:,JP_HO2)+TPK%K276*PCONC(:,JP_MGLY)+TPK%K277*&
-TPK%RO248*PCONC(:,JP_NO)+TPK%K280*TPK%RO248*PCONC(:&
-&,JP_RO2T)+0.28*TPK%K281*PCONC(:,JP_MVK)*PCONC(:,JP_O3)+0.15*TPK%K283*PCO&
-&NC(:,JP_MVK)*TPK%O+TPK%K344*TPK%RO230*PCONC(:,JP_NO) ) / &
-( +TPK%K127*PCONC(:,JP_NO2)+TPK%K147*PCONC(:,JP_NO)+TPK%K148*PCONC(&
-&:,JP_HO2)+TPK%K149*PCONC(:,JP_RO2T) )
-!
+TPK%O1D(:)=(TPK%K002(:)*PCONC(:,JP_O3))/(TPK%K020(:)*TPK%N2(:)+TPK%K021(:)*TPK%O2(:)+&
+ &TPK%K022(:)*TPK%H2O(:))
+TPK%O3P(:)=(TPK%K001(:)*PCONC(:,JP_NO2)+TPK%K003(:)*PCONC(:,JP_O3)+TPK%K008(:)*PCONC(:,JP_NO3)+&
+ &TPK%K020(:)*TPK%O1D(:)*TPK%N2(:)+TPK%K021(:)*TPK%O1D(:)*TPK%O2(:)+&
+ &0.00000*TPK%K079(:)*PCONC(:,JP_ALKE)*PCONC(:,JP_O3)+&
+ &0.09000*TPK%K080(:)*PCONC(:,JP_BIO)*PCONC(:,JP_O3))/&
+ &(TPK%K018(:)*TPK%O2(:)+TPK%K019(:)*PCONC(:,JP_O3)+TPK%K029(:)*PCONC(:,JP_NO)+&
+ &TPK%K030(:)*PCONC(:,JP_NO2)+TPK%K031(:)*PCONC(:,JP_NO2)+TPK%K054(:)*PCONC(:,JP_BIO)+&
+ &TPK%K055(:)*PCONC(:,JP_CARBO))
! /END_CODE/
PJAC(:,:,:) = 0.0
CALL SUBJ0
@@ -12040,6 +6038,7 @@ CALL SUBJ14
CALL SUBJ15
CALL SUBJ16
CALL SUBJ17
+CALL SUBJ18
!
CONTAINS
@@ -12049,77887 +6048,23679 @@ SUBROUTINE SUBJ0
!Indices 1 a 5
!
!
-!NO/NO=-K005*<O3>-K007*<NO3>-K008*<NO>-K008*<NO>-K008*<NO>-K008*<NO>-K019*<OH>-
-!K026*<HO2>-K038*<O>+K095*<RO2T>-K095*<RO2T>-K110*<RO21>-K113*<RO22>-K116*<RO23
-!>-K119*<RO24>-K122*<RO25>-K125*<RO26>-K144*<RO27>-K147*<RO28>-K150*<RO29>-K153
-!*<RO210>-K156*<RO211>-K159*<RO212>-K162*<RO213>-K165*<RO239>-K168*<RO214>-K171
-!*<RO215>-K174*<RO216>-K177*<RO217>-K180*<RO218>-K183*<RO219>-K186*<RO220>-K189
-!*<RO221>-K192*<RO222>-K195*<RO223>-K198*<RO224>-K201*<RO225>-K204*<RO226>-K207
-!*<RO227>-K210*<RO228>-K213*<RO229>-K216*<RO240>-K221*<RO231>-K224*<RO232>-K227
-!*<RO241>-K231*<RO233>-K234*<RO242>-K238*<RO234>-K241*<RO243>-K245*<RO235>-K248
-!*<RO244>-K252*<RO236>-K255*<RO245>-K259*<RO237>-K262*<RO246>-K266*<RO238>-K269
-!*<RO247>-K277*<RO248>-K285*<RO249>-K288*<RO250>-K291*<RO251>-K294*<RO252>-K297
-!*<RO253>-K300*<RO254>-K309*<RO255>-K315*<RO256>-K331*<RO257>-K340*<RO258>-K344
-!*<RO230>
- PJAC(:,1,1)=-TPK%K005(:)*PCONC(:,3)-TPK%K007(:)*PCONC(:,8)-TPK%K008(:)*PCONC(:&
-&,1)-TPK%K008(:)*PCONC(:,1)-TPK%K008(:)*PCONC(:,1)-TPK%K008(:)*PCONC(:,1)-TPK%K&
-&019(:)*PCONC(:,15)-TPK%K026(:)*PCONC(:,10)-TPK%K038(:)*TPK%O(:)+TPK%K095(:)*PC&
-&ONC(:,85)-TPK%K095(:)*PCONC(:,85)-TPK%K110(:)*PCONC(:,86)-TPK%K113(:)*TPK%RO22&
-&(:)-TPK%K116(:)*TPK%RO23(:)-TPK%K119(:)*TPK%RO24(:)-TPK%K122(:)*PCONC(:,87)-TP&
-&K%K125(:)*TPK%RO26(:)-TPK%K144(:)*TPK%RO27(:)-TPK%K147(:)*TPK%RO28(:)-TPK%K150&
-&(:)*TPK%RO29(:)-TPK%K153(:)*TPK%RO210(:)-TPK%K156(:)*TPK%RO211(:)-TPK%K159(:)*&
-&TPK%RO212(:)-TPK%K162(:)*TPK%RO213(:)-TPK%K165(:)*TPK%RO239(:)-TPK%K168(:)*TPK&
-&%RO214(:)-TPK%K171(:)*TPK%RO215(:)-TPK%K174(:)*TPK%RO216(:)-TPK%K177(:)*TPK%RO&
-&217(:)-TPK%K180(:)*TPK%RO218(:)-TPK%K183(:)*TPK%RO219(:)-TPK%K186(:)*TPK%RO220&
-&(:)-TPK%K189(:)*TPK%RO221(:)-TPK%K192(:)*TPK%RO222(:)-TPK%K195(:)*TPK%RO223(:)&
-&-TPK%K198(:)*TPK%RO224(:)-TPK%K201(:)*TPK%RO225(:)-TPK%K204(:)*TPK%RO226(:)-TP&
-&K%K207(:)*TPK%RO227(:)-TPK%K210(:)*TPK%RO228(:)-TPK%K213(:)*TPK%RO229(:)-TPK%K&
-&216(:)*TPK%RO240(:)-TPK%K221(:)*TPK%RO231(:)-TPK%K224(:)*TPK%RO232(:)-TPK%K227&
-&(:)*TPK%RO241(:)-TPK%K231(:)*TPK%RO233(:)-TPK%K234(:)*TPK%RO242(:)-TPK%K238(:)&
-&*TPK%RO234(:)-TPK%K241(:)*TPK%RO243(:)-TPK%K245(:)*TPK%RO235(:)-TPK%K248(:)*TP&
-&K%RO244(:)-TPK%K252(:)*TPK%RO236(:)-TPK%K255(:)*TPK%RO245(:)-TPK%K259(:)*TPK%R&
-&O237(:)-TPK%K262(:)*TPK%RO246(:)-TPK%K266(:)*TPK%RO238(:)-TPK%K269(:)*TPK%RO24&
-&7(:)-TPK%K277(:)*TPK%RO248(:)-TPK%K285(:)*TPK%RO249(:)-TPK%K288(:)*TPK%RO250(:&
-&)-TPK%K291(:)*TPK%RO251(:)-TPK%K294(:)*TPK%RO252(:)-TPK%K297(:)*TPK%RO253(:)-T&
-&PK%K300(:)*TPK%RO254(:)-TPK%K309(:)*TPK%RO255(:)-TPK%K315(:)*TPK%RO256(:)-TPK%&
-&K331(:)*TPK%RO257(:)-TPK%K340(:)*TPK%RO258(:)-TPK%K344(:)*TPK%RO230(:)
-!
-!NO/NO2=+K001+K003*<O>+K012*<NO3>
- PJAC(:,1,2)=+TPK%K001(:)+TPK%K003(:)*TPK%O(:)+TPK%K012(:)*PCONC(:,8)
-!
-!NO/O3=-K005*<NO>
- PJAC(:,1,3)=-TPK%K005(:)*PCONC(:,1)
-!
-!NO/HONO=+0.9*K020
- PJAC(:,1,4)=+0.9*TPK%K020(:)
+!O3/O3=-K002-K003-K019*<O3P>-K023*<OH>-K024*<HO2>-K042*<NO>-K043*<NO2>-K079*<AL
+!KE>-K080*<BIO>-K081*<CARBO>-K082*<PAN>-K087*<ADD>-KTC1-KTR1
+ PJAC(:,1,1)=-TPK%K002(:)-TPK%K003(:)-TPK%K019(:)*TPK%O3P(:)-TPK%K023(:)*PCONC(&
+&:,14)-TPK%K024(:)*PCONC(:,15)-TPK%K042(:)*PCONC(:,3)-TPK%K043(:)*PCONC(:,4)-TP&
+&K%K079(:)*PCONC(:,19)-TPK%K080(:)*PCONC(:,20)-TPK%K081(:)*PCONC(:,25)-TPK%K082&
+&(:)*PCONC(:,27)-TPK%K087(:)*PCONC(:,37)-TPK%KTC1(:)-TPK%KTR1(:)
!
-!NO/HNO3=0.0
+!O3/H2O2=0.0
!
-!NO/HNO4=0.0
+!O3/NO=-K042*<O3>
+ PJAC(:,1,3)=-TPK%K042(:)*PCONC(:,1)
!
-!NO/N2O5=0.0
+!O3/NO2=-K043*<O3>
+ PJAC(:,1,4)=-TPK%K043(:)*PCONC(:,1)
!
-!NO/NO3=-K007*<NO>+K012*<NO2>+K013
- PJAC(:,1,8)=-TPK%K007(:)*PCONC(:,1)+TPK%K012(:)*PCONC(:,2)+TPK%K013(:)
+!O3/NO3=0.0
!
-!NO/NH3=0.0
+!O3/N2O5=0.0
!
-!NO/HO2=-K026*<NO>
- PJAC(:,1,10)=-TPK%K026(:)*PCONC(:,1)
+!O3/HONO=0.0
!
-!NO/CO=0.0
+!O3/HNO3=0.0
!
-!NO/H2O2=0.0
+!O3/HNO4=0.0
!
-!NO/SO2=0.0
+!O3/NH3=0.0
!
-!NO/H2SO4=0.0
+!O3/SO2=0.0
!
-!NO/OH=-K019*<NO>
- PJAC(:,1,15)=-TPK%K019(:)*PCONC(:,1)
+!O3/SULF=0.0
!
-!NO/ETHE=0.0
+!O3/CO=0.0
!
-!NO/OLEL=0.0
+!O3/OH=-K023*<O3>
+ PJAC(:,1,14)=-TPK%K023(:)*PCONC(:,1)
!
-!NO/OLEH=0.0
+!O3/HO2=-K024*<O3>+0.17307*K0102*<CARBOP>
+ PJAC(:,1,15)=-TPK%K024(:)*PCONC(:,1)+0.17307*TPK%K0102(:)*PCONC(:,39)
!
-!NO/ALKL=0.0
+!O3/CH4=0.0
!
-!NO/ALKM=0.0
+!O3/ETH=0.0
!
-!NO/ALKH=0.0
+!O3/ALKA=0.0
!
-!NO/AROH=0.0
+!O3/ALKE=-K079*<O3>
+ PJAC(:,1,19)=-TPK%K079(:)*PCONC(:,1)
!
-!NO/AROL=0.0
+!O3/BIO=-K080*<O3>
+ PJAC(:,1,20)=-TPK%K080(:)*PCONC(:,1)
!
-!NO/AROO=0.0
+!O3/ARO=0.0
!
-!NO/ARAL=0.0
+!O3/HCHO=0.0
!
-!NO/ARAC=0.0
+!O3/ALD=0.0
!
-!NO/PAH=0.0
+!O3/KET=0.0
!
-!NO/HCHO=0.0
+!O3/CARBO=-K081*<O3>
+ PJAC(:,1,25)=-TPK%K081(:)*PCONC(:,1)
!
-!NO/ALD2=0.0
+!O3/ONIT=0.0
!
-!NO/KETL=0.0
+!O3/PAN=-K082*<O3>
+ PJAC(:,1,27)=-TPK%K082(:)*PCONC(:,1)
!
-!NO/KETH=0.0
+!O3/OP1=0.0
!
-!NO/MEOH=0.0
+!O3/OP2=0.0
!
-!NO/ETOH=0.0
+!O3/ORA1=0.0
!
-!NO/ALCH=0.0
+!O3/ORA2=0.0
!
-!NO/ISOP=0.0
+!O3/MO2=0.0
!
-!NO/BIOL=0.0
+!O3/ALKAP=0.0
!
-!NO/BIOH=0.0
+!O3/ALKEP=0.0
!
-!NO/MTBE=0.0
+!O3/BIOP=0.0
!
-!NO/MVK=0.0
+!O3/PHO=0.0
!
-!NO/MCR=0.0
+!O3/ADD=-K087*<O3>
+ PJAC(:,1,37)=-TPK%K087(:)*PCONC(:,1)
!
-!NO/MGLY=0.0
+!O3/AROP=0.0
!
-!NO/GLY=0.0
+!O3/CARBOP=+0.17307*K0102*<HO2>
+ PJAC(:,1,39)=+0.17307*TPK%K0102(:)*PCONC(:,15)
!
-!NO/ORA1=0.0
+!O3/OLN=0.0
!
-!NO/ORA2=0.0
+!O3/XO2=0.0
!
-!NO/ACID=0.0
+!O3/WC_O3=+KTC21
+ PJAC(:,1,42)=+TPK%KTC21(:)
!
-!NO/UR28=0.0
+!O3/WC_H2O2=0.0
!
-!NO/UR21=0.0
+!O3/WC_NO=0.0
!
-!NO/URG2=0.0
+!O3/WC_NO2=0.0
!
-!NO/UR26=0.0
+!O3/WC_NO3=0.0
!
-!NO/RPG2=0.0
+!O3/WC_N2O5=0.0
!
-!NO/RP18=0.0
+!O3/WC_HONO=0.0
!
-!NO/RPG3=0.0
+!O3/WC_HNO3=0.0
!
-!NO/URG4=0.0
+!O3/WC_HNO4=0.0
!
-!NO/UR8=0.0
+!O3/WC_NH3=0.0
!
-!NO/UR17=0.0
+!O3/WC_OH=0.0
!
-!NO/UR7=0.0
+!O3/WC_HO2=0.0
!
-!NO/RPR3=0.0
+!O3/WC_CO2=0.0
!
-!NO/URG6=0.0
+!O3/WC_SO2=0.0
!
-!NO/UR22=0.0
+!O3/WC_SULF=0.0
!
-!NO/URG7=0.0
+!O3/WC_HCHO=0.0
!
-!NO/RPR4=0.0
+!O3/WC_ORA1=0.0
!
-!NO/RPR7=0.0
+!O3/WC_ORA2=0.0
!
-!NO/RPG7=0.0
+!O3/WC_MO2=0.0
!
-!NO/URG8=0.0
+!O3/WC_OP1=0.0
!
-!NO/UR19=0.0
+!O3/WC_ASO3=0.0
!
-!NO/URG9=0.0
+!O3/WC_ASO4=0.0
!
-!NO/AP7=0.0
+!O3/WC_ASO5=0.0
!
-!NO/URG10=0.0
+!O3/WC_AHSO5=0.0
!
-!NO/RPR1=0.0
+!O3/WC_AHMS=0.0
!
-!NO/RPR5=0.0
+!O3/WR_O3=+KTR21
+ PJAC(:,1,67)=+TPK%KTR21(:)
!
-!NO/RPR8=0.0
+!O3/WR_H2O2=0.0
!
-!NO/RP10=0.0
+!O3/WR_NO=0.0
!
-!NO/RP11=0.0
+!O3/WR_NO2=0.0
!
-!NO/RP16=0.0
+!O3/WR_NO3=0.0
!
-!NO/RPRL=0.0
+!O3/WR_N2O5=0.0
!
-!NO/APAN=0.0
+!O3/WR_HONO=0.0
!
-!NO/PAN1=0.0
+!O3/WR_HNO3=0.0
!
-!NO/PAN2=0.0
+!O3/WR_HNO4=0.0
!
-!NO/PAN3=0.0
+!O3/WR_NH3=0.0
!
-!NO/PAN4=0.0
+!O3/WR_OH=0.0
!
-!NO/PAN6=0.0
+!O3/WR_HO2=0.0
!
-!NO/PAN7=0.0
+!O3/WR_CO2=0.0
!
-!NO/PAN8=0.0
+!O3/WR_SO2=0.0
!
-!NO/PN10=0.0
+!O3/WR_SULF=0.0
!
-!NO/RO2T=+K095*<NO>-K095*<NO>
- PJAC(:,1,85)=+TPK%K095(:)*PCONC(:,1)-TPK%K095(:)*PCONC(:,1)
+!O3/WR_HCHO=0.0
!
-!NO/RO21=-K110*<NO>
- PJAC(:,1,86)=-TPK%K110(:)*PCONC(:,1)
+!O3/WR_ORA1=0.0
!
-!NO/RO25=-K122*<NO>
- PJAC(:,1,87)=-TPK%K122(:)*PCONC(:,1)
+!O3/WR_ORA2=0.0
!
-!NO2/NO=+K005*<O3>+2.*K007*<NO3>+2.*K008*<NO>+2.*K008*<NO>+K026*<HO2>+K038*<O>+
-!K110*<RO21>+K113*<RO22>+2.*K116*<RO23>+K119*<RO24>+TPK%CF4*K122*<RO25>+K125*<R
-!O26>+K144*<RO27>+K147*<RO28>+TPK%CF6*K150*<RO29>+K153*<RO210>+2.*K156*<RO211>+
-!2.*K159*<RO212>+K162*<RO213>+K165*<RO239>+TPK%CF8*K168*<RO214>+K171*<RO215>+K1
-!74*<RO216>+TPK%CF22*K177*<RO217>+TPK%CF20*K180*<RO218>+2.*K183*<RO219>+TPK%CF1
-!8*K186*<RO220>+TPK%CF24*K189*<RO221>+TPK%CF42*K192*<RO222>+TPK%CF44*K195*<RO22
-!3>+TPK%CF26*K198*<RO224>+2.*K201*<RO225>+K204*<RO226>+TPK%CF28*K207*<RO227>+2.
-!*K210*<RO228>+TPK%CF30*K213*<RO229>+K216*<RO240>+TPK%CF32*K221*<RO231>+TPK%CF3
-!4*K224*<RO232>+TPK%CF36*K227*<RO241>+K231*<RO233>+K234*<RO242>+K238*<RO234>+K2
-!41*<RO243>+K245*<RO235>+K248*<RO244>+K252*<RO236>+K255*<RO245>+K259*<RO237>+K2
-!62*<RO246>+K266*<RO238>+K269*<RO247>+K277*<RO248>+K285*<RO249>+K288*<RO250>+K2
-!91*<RO251>+2.*K294*<RO252>+K297*<RO253>+K300*<RO254>+K309*<RO255>+K315*<RO256>
-!+K331*<RO257>+K340*<RO258>+K344*<RO230>
- PJAC(:,2,1)=+TPK%K005(:)*PCONC(:,3)+2.*TPK%K007(:)*PCONC(:,8)+2.*TPK%K008(:)*P&
-&CONC(:,1)+2.*TPK%K008(:)*PCONC(:,1)+TPK%K026(:)*PCONC(:,10)+TPK%K038(:)*TPK%O(&
-&:)+TPK%K110(:)*PCONC(:,86)+TPK%K113(:)*TPK%RO22(:)+2.*TPK%K116(:)*TPK%RO23(:)+&
-&TPK%K119(:)*TPK%RO24(:)+TPK%CF4*TPK%K122(:)*PCONC(:,87)+TPK%K125(:)*TPK%RO26(:&
-&)+TPK%K144(:)*TPK%RO27(:)+TPK%K147(:)*TPK%RO28(:)+TPK%CF6*TPK%K150(:)*TPK%RO29&
-&(:)+TPK%K153(:)*TPK%RO210(:)+2.*TPK%K156(:)*TPK%RO211(:)+2.*TPK%K159(:)*TPK%RO&
-&212(:)+TPK%K162(:)*TPK%RO213(:)+TPK%K165(:)*TPK%RO239(:)+TPK%CF8*TPK%K168(:)*T&
-&PK%RO214(:)+TPK%K171(:)*TPK%RO215(:)+TPK%K174(:)*TPK%RO216(:)+TPK%CF22*TPK%K17&
-&7(:)*TPK%RO217(:)+TPK%CF20*TPK%K180(:)*TPK%RO218(:)+2.*TPK%K183(:)*TPK%RO219(:&
-&)+TPK%CF18*TPK%K186(:)*TPK%RO220(:)+TPK%CF24*TPK%K189(:)*TPK%RO221(:)+TPK%CF42&
-&*TPK%K192(:)*TPK%RO222(:)+TPK%CF44*TPK%K195(:)*TPK%RO223(:)+TPK%CF26*TPK%K198(&
-&:)*TPK%RO224(:)+2.*TPK%K201(:)*TPK%RO225(:)+TPK%K204(:)*TPK%RO226(:)+TPK%CF28*&
-&TPK%K207(:)*TPK%RO227(:)+2.*TPK%K210(:)*TPK%RO228(:)+TPK%CF30*TPK%K213(:)*TPK%&
-&RO229(:)+TPK%K216(:)*TPK%RO240(:)+TPK%CF32*TPK%K221(:)*TPK%RO231(:)+TPK%CF34*T&
-&PK%K224(:)*TPK%RO232(:)+TPK%CF36*TPK%K227(:)*TPK%RO241(:)+TPK%K231(:)*TPK%RO23&
-&3(:)+TPK%K234(:)*TPK%RO242(:)+TPK%K238(:)*TPK%RO234(:)+TPK%K241(:)*TPK%RO243(:&
-&)+TPK%K245(:)*TPK%RO235(:)+TPK%K248(:)*TPK%RO244(:)+TPK%K252(:)*TPK%RO236(:)+T&
-&PK%K255(:)*TPK%RO245(:)+TPK%K259(:)*TPK%RO237(:)+TPK%K262(:)*TPK%RO246(:)+TPK%&
-&K266(:)*TPK%RO238(:)+TPK%K269(:)*TPK%RO247(:)+TPK%K277(:)*TPK%RO248(:)+TPK%K28&
-&5(:)*TPK%RO249(:)+TPK%K288(:)*TPK%RO250(:)+TPK%K291(:)*TPK%RO251(:)+2.*TPK%K29&
-&4(:)*TPK%RO252(:)+TPK%K297(:)*TPK%RO253(:)+TPK%K300(:)*TPK%RO254(:)+TPK%K309(:&
-&)*TPK%RO255(:)+TPK%K315(:)*TPK%RO256(:)+TPK%K331(:)*TPK%RO257(:)+TPK%K340(:)*T&
-&PK%RO258(:)+TPK%K344(:)*TPK%RO230(:)
+!O3/WR_MO2=0.0
!
-!NO2/NO2=-K001-K003*<O>-K004*<O>-K006*<O3>-K009*<NO3>+K012*<NO3>-K012*<NO3>-K02
-!1*<H2O>-K022*<OH>-K027*<HO2>-K103*<RAD1>-K104*<RAD2>-K105*<RAD3>-K106*<RAD4>-K
-!107*<RAD5>-K108*<RAD6>-K109*<RAD7>-K126*<RO26>-K127*<RO28>-K128*<RO239>-K129*<
-!RO248>-K130*<RO250>-K131*<RO254>-K132*<RO255>-K133*<RO257>-K134*<RO258>-K316*<
-!RO256>-K321*<RAD8>
- PJAC(:,2,2)=-TPK%K001(:)-TPK%K003(:)*TPK%O(:)-TPK%K004(:)*TPK%O(:)-TPK%K006(:)&
-&*PCONC(:,3)-TPK%K009(:)*PCONC(:,8)+TPK%K012(:)*PCONC(:,8)-TPK%K012(:)*PCONC(:,&
-&8)-TPK%K021(:)*TPK%H2O(:)-TPK%K022(:)*PCONC(:,15)-TPK%K027(:)*PCONC(:,10)-TPK%&
-&K103(:)*TPK%RAD1(:)-TPK%K104(:)*TPK%RAD2(:)-TPK%K105(:)*TPK%RAD3(:)-TPK%K106(:&
-&)*TPK%RAD4(:)-TPK%K107(:)*TPK%RAD5(:)-TPK%K108(:)*TPK%RAD6(:)-TPK%K109(:)*TPK%&
-&RAD7(:)-TPK%K126(:)*TPK%RO26(:)-TPK%K127(:)*TPK%RO28(:)-TPK%K128(:)*TPK%RO239(&
-&:)-TPK%K129(:)*TPK%RO248(:)-TPK%K130(:)*TPK%RO250(:)-TPK%K131(:)*TPK%RO254(:)-&
-&TPK%K132(:)*TPK%RO255(:)-TPK%K133(:)*TPK%RO257(:)-TPK%K134(:)*TPK%RO258(:)-TPK&
-&%K316(:)*TPK%RO256(:)-TPK%K321(:)*TPK%RAD8(:)
+!O3/WR_OP1=0.0
!
-!NO2/O3=+K005*<NO>-K006*<NO2>
- PJAC(:,2,3)=+TPK%K005(:)*PCONC(:,1)-TPK%K006(:)*PCONC(:,2)
+!O3/WR_ASO3=0.0
!
-!NO2/HONO=+0.1*K020+K039*<OH>
- PJAC(:,2,4)=+0.1*TPK%K020(:)+TPK%K039(:)*PCONC(:,15)
+!O3/WR_ASO4=0.0
!
-!NO2/HNO3=0.0
-!
-!NO2/HNO4=+K028+K029*<OH>
- PJAC(:,2,6)=+TPK%K028(:)+TPK%K029(:)*PCONC(:,15)
-!
-!NO2/N2O5=+K010
- PJAC(:,2,7)=+TPK%K010(:)
-!
-!NO2/NO3=+2.*K007*<NO>-K009*<NO2>+K012*<NO2>-K012*<NO2>+K014+0.8*K033*<HO2>+K04
-!0*<OH>+2.*K041*<NO3>+2.*K041*<NO3>
- PJAC(:,2,8)=+2.*TPK%K007(:)*PCONC(:,1)-TPK%K009(:)*PCONC(:,2)+TPK%K012(:)*PCON&
-&C(:,2)-TPK%K012(:)*PCONC(:,2)+TPK%K014(:)+0.8*TPK%K033(:)*PCONC(:,10)+TPK%K040&
-&(:)*PCONC(:,15)+2.*TPK%K041(:)*PCONC(:,8)+2.*TPK%K041(:)*PCONC(:,8)
+!O3/WR_ASO5=0.0
!
-!NO2/NH3=0.0
+!O3/WR_AHSO5=0.0
!
-!NO2/HO2=+K026*<NO>-K027*<NO2>+0.8*K033*<NO3>+K118*<RO23>+K158*<RO211>+K161*<RO
-!212>+K185*<RO219>+K203*<RO225>+K212*<RO228>+K295*<RO252>
- PJAC(:,2,10)=+TPK%K026(:)*PCONC(:,1)-TPK%K027(:)*PCONC(:,2)+0.8*TPK%K033(:)*PC&
-&ONC(:,8)+TPK%K118(:)*TPK%RO23(:)+TPK%K158(:)*TPK%RO211(:)+TPK%K161(:)*TPK%RO21&
-&2(:)+TPK%K185(:)*TPK%RO219(:)+TPK%K203(:)*TPK%RO225(:)+TPK%K212(:)*TPK%RO228(:&
-&)+TPK%K295(:)*TPK%RO252(:)
+!O3/WR_AHMS=0.0
!
-!NO2/CO=0.0
+!H2O2/O3=+0.01833*K079*<ALKE>+0.00100*K080*<BIO>
+ PJAC(:,2,1)=+0.01833*TPK%K079(:)*PCONC(:,19)+0.00100*TPK%K080(:)*PCONC(:,20)
!
-!NO2/H2O2=0.0
+!H2O2/H2O2=-K009-K026*<OH>-KTC2-KTR2
+ PJAC(:,2,2)=-TPK%K009(:)-TPK%K026(:)*PCONC(:,14)-TPK%KTC2(:)-TPK%KTR2(:)
!
-!NO2/SO2=0.0
+!H2O2/NO=0.0
!
-!NO2/H2SO4=0.0
+!H2O2/NO2=0.0
!
-!NO2/OH=-K022*<NO2>+K029*<HNO4>+K039*<HONO>+K040*<NO3>
- PJAC(:,2,15)=-TPK%K022(:)*PCONC(:,2)+TPK%K029(:)*PCONC(:,6)+TPK%K039(:)*PCONC(&
-&:,4)+TPK%K040(:)*PCONC(:,8)
+!H2O2/NO3=0.0
!
-!NO2/ETHE=0.0
+!H2O2/N2O5=0.0
!
-!NO2/OLEL=0.0
+!H2O2/HONO=0.0
!
-!NO2/OLEH=0.0
+!H2O2/HNO3=0.0
!
-!NO2/ALKL=0.0
+!H2O2/HNO4=0.0
!
-!NO2/ALKM=0.0
+!H2O2/NH3=0.0
!
-!NO2/ALKH=0.0
+!H2O2/SO2=0.0
!
-!NO2/AROH=0.0
+!H2O2/SULF=0.0
!
-!NO2/AROL=0.0
+!H2O2/CO=0.0
!
-!NO2/AROO=0.0
+!H2O2/OH=-K026*<H2O2>
+ PJAC(:,2,14)=-TPK%K026(:)*PCONC(:,2)
!
-!NO2/ARAL=0.0
+!H2O2/HO2=+K027*<HO2>+K027*<HO2>+K028*<HO2>*<H2O>+K028*<HO2>*<H2O>
+ PJAC(:,2,15)=+TPK%K027(:)*PCONC(:,15)+TPK%K027(:)*PCONC(:,15)+TPK%K028(:)*PCON&
+&C(:,15)*TPK%H2O(:)+TPK%K028(:)*PCONC(:,15)*TPK%H2O(:)
!
-!NO2/ARAC=0.0
+!H2O2/CH4=0.0
!
-!NO2/PAH=0.0
+!H2O2/ETH=0.0
!
-!NO2/HCHO=0.0
+!H2O2/ALKA=0.0
!
-!NO2/ALD2=0.0
+!H2O2/ALKE=+0.01833*K079*<O3>
+ PJAC(:,2,19)=+0.01833*TPK%K079(:)*PCONC(:,1)
!
-!NO2/KETL=0.0
+!H2O2/BIO=+0.00100*K080*<O3>
+ PJAC(:,2,20)=+0.00100*TPK%K080(:)*PCONC(:,1)
!
-!NO2/KETH=0.0
+!H2O2/ARO=0.0
!
-!NO2/MEOH=0.0
+!H2O2/HCHO=0.0
!
-!NO2/ETOH=0.0
+!H2O2/ALD=0.0
!
-!NO2/ALCH=0.0
+!H2O2/KET=0.0
!
-!NO2/ISOP=0.0
+!H2O2/CARBO=0.0
!
-!NO2/BIOL=0.0
+!H2O2/ONIT=0.0
!
-!NO2/BIOH=0.0
+!H2O2/PAN=0.0
!
-!NO2/MTBE=0.0
+!H2O2/OP1=0.0
!
-!NO2/MVK=0.0
+!H2O2/OP2=0.0
!
-!NO2/MCR=0.0
+!H2O2/ORA1=0.0
!
-!NO2/MGLY=0.0
+!H2O2/ORA2=0.0
!
-!NO2/GLY=0.0
+!H2O2/MO2=0.0
!
-!NO2/ORA1=0.0
+!H2O2/ALKAP=0.0
!
-!NO2/ORA2=0.0
+!H2O2/ALKEP=0.0
!
-!NO2/ACID=0.0
+!H2O2/BIOP=0.0
!
-!NO2/UR28=0.0
+!H2O2/PHO=0.0
!
-!NO2/UR21=0.0
+!H2O2/ADD=0.0
!
-!NO2/URG2=0.0
+!H2O2/AROP=0.0
!
-!NO2/UR26=0.0
+!H2O2/CARBOP=0.0
!
-!NO2/RPG2=0.0
+!H2O2/OLN=0.0
!
-!NO2/RP18=0.0
+!H2O2/XO2=0.0
!
-!NO2/RPG3=0.0
+!H2O2/WC_O3=0.0
!
-!NO2/URG4=0.0
+!H2O2/WC_H2O2=+KTC22
+ PJAC(:,2,43)=+TPK%KTC22(:)
!
-!NO2/UR8=0.0
+!H2O2/WC_NO=0.0
!
-!NO2/UR17=0.0
+!H2O2/WC_NO2=0.0
!
-!NO2/UR7=0.0
+!H2O2/WC_NO3=0.0
!
-!NO2/RPR3=0.0
+!H2O2/WC_N2O5=0.0
!
-!NO2/URG6=0.0
+!H2O2/WC_HONO=0.0
!
-!NO2/UR22=0.0
+!H2O2/WC_HNO3=0.0
!
-!NO2/URG7=0.0
+!H2O2/WC_HNO4=0.0
!
-!NO2/RPR4=0.0
+!H2O2/WC_NH3=0.0
!
-!NO2/RPR7=0.0
+!H2O2/WC_OH=0.0
!
-!NO2/RPG7=0.0
+!H2O2/WC_HO2=0.0
!
-!NO2/URG8=0.0
+!H2O2/WC_CO2=0.0
!
-!NO2/UR19=0.0
+!H2O2/WC_SO2=0.0
!
-!NO2/URG9=0.0
+!H2O2/WC_SULF=0.0
!
-!NO2/AP7=0.0
+!H2O2/WC_HCHO=0.0
!
-!NO2/URG10=0.0
+!H2O2/WC_ORA1=0.0
!
-!NO2/RPR1=0.0
+!H2O2/WC_ORA2=0.0
!
-!NO2/RPR5=0.0
+!H2O2/WC_MO2=0.0
!
-!NO2/RPR8=0.0
+!H2O2/WC_OP1=0.0
!
-!NO2/RP10=0.0
+!H2O2/WC_ASO3=0.0
!
-!NO2/RP11=0.0
+!H2O2/WC_ASO4=0.0
!
-!NO2/RP16=0.0
+!H2O2/WC_ASO5=0.0
!
-!NO2/RPRL=0.0
+!H2O2/WC_AHSO5=0.0
!
-!NO2/APAN=+1.0000000*K139
- PJAC(:,2,76)=+1.0000000*TPK%K139(:)
+!H2O2/WC_AHMS=0.0
!
-!NO2/PAN1=+K135
- PJAC(:,2,77)=+TPK%K135(:)
+!H2O2/WR_O3=0.0
!
-!NO2/PAN2=+K136
- PJAC(:,2,78)=+TPK%K136(:)
+!H2O2/WR_H2O2=+KTR22
+ PJAC(:,2,68)=+TPK%KTR22(:)
!
-!NO2/PAN3=+K137
- PJAC(:,2,79)=+TPK%K137(:)
+!H2O2/WR_NO=0.0
!
-!NO2/PAN4=+K141
- PJAC(:,2,80)=+TPK%K141(:)
+!H2O2/WR_NO2=0.0
!
-!NO2/PAN6=+K140
- PJAC(:,2,81)=+TPK%K140(:)
+!H2O2/WR_NO3=0.0
!
-!NO2/PAN7=+K343
- PJAC(:,2,82)=+TPK%K343(:)
+!H2O2/WR_N2O5=0.0
!
-!NO2/PAN8=+K317
- PJAC(:,2,83)=+TPK%K317(:)
+!H2O2/WR_HONO=0.0
!
-!NO2/PN10=+K138
- PJAC(:,2,84)=+TPK%K138(:)
+!H2O2/WR_HNO3=0.0
!
-!NO2/RO2T=+K117*<RO23>+K157*<RO211>+K160*<RO212>+K184*<RO219>+K202*<RO225>+K211
-!*<RO228>+K296*<RO252>
- PJAC(:,2,85)=+TPK%K117(:)*TPK%RO23(:)+TPK%K157(:)*TPK%RO211(:)+TPK%K160(:)*TPK&
-&%RO212(:)+TPK%K184(:)*TPK%RO219(:)+TPK%K202(:)*TPK%RO225(:)+TPK%K211(:)*TPK%RO&
-&228(:)+TPK%K296(:)*TPK%RO252(:)
+!H2O2/WR_HNO4=0.0
!
-!NO2/RO21=+K110*<NO>
- PJAC(:,2,86)=+TPK%K110(:)*PCONC(:,1)
+!H2O2/WR_NH3=0.0
!
-!NO2/RO25=+TPK%CF4*K122*<NO>
- PJAC(:,2,87)=+TPK%CF4*TPK%K122(:)*PCONC(:,1)
+!H2O2/WR_OH=0.0
!
-!O3/NO=-K005*<O3>
- PJAC(:,3,1)=-TPK%K005(:)*PCONC(:,3)
+!H2O2/WR_HO2=0.0
!
-!O3/NO2=-K006*<O3>
- PJAC(:,3,2)=-TPK%K006(:)*PCONC(:,3)
+!H2O2/WR_CO2=0.0
!
-!O3/O3=-K005*<NO>-K006*<NO2>-K015-K016-K025*<OH>-K030*<HO2>-K034*<O>-K051*<ETHE
-!>-K056*<OLEL>-K066*<ISOP>-K076*<OLEH>-K086*<BIOL>-K090*<BIOH>-K281*<MVK>-K282*
-!<MCR>
- PJAC(:,3,3)=-TPK%K005(:)*PCONC(:,1)-TPK%K006(:)*PCONC(:,2)-TPK%K015(:)-TPK%K01&
-&6(:)-TPK%K025(:)*PCONC(:,15)-TPK%K030(:)*PCONC(:,10)-TPK%K034(:)*TPK%O(:)-TPK%&
-&K051(:)*PCONC(:,16)-TPK%K056(:)*PCONC(:,17)-TPK%K066(:)*PCONC(:,35)-TPK%K076(:&
-&)*PCONC(:,18)-TPK%K086(:)*PCONC(:,36)-TPK%K090(:)*PCONC(:,37)-TPK%K281(:)*PCON&
-&C(:,39)-TPK%K282(:)*PCONC(:,40)
+!H2O2/WR_SO2=0.0
!
-!O3/HONO=0.0
+!H2O2/WR_SULF=0.0
!
-!O3/HNO3=0.0
+!H2O2/WR_HCHO=0.0
!
-!O3/HNO4=0.0
+!H2O2/WR_ORA1=0.0
!
-!O3/N2O5=0.0
+!H2O2/WR_ORA2=0.0
!
-!O3/NO3=+K081*<ARAL>
- PJAC(:,3,8)=+TPK%K081(:)*PCONC(:,25)
+!H2O2/WR_MO2=0.0
!
-!O3/NH3=0.0
+!H2O2/WR_OP1=0.0
!
-!O3/HO2=-K030*<O3>+K142*<RO26>+K148*<RO28>+K166*<RO239>+K279*<RO248>+K289*<RO25
-!0>+K301*<RO254>+K310*<RO255>+K318*<RO256>+K332*<RO257>+K341*<RO258>
- PJAC(:,3,10)=-TPK%K030(:)*PCONC(:,3)+TPK%K142(:)*TPK%RO26(:)+TPK%K148(:)*TPK%R&
-&O28(:)+TPK%K166(:)*TPK%RO239(:)+TPK%K279(:)*TPK%RO248(:)+TPK%K289(:)*TPK%RO250&
-&(:)+TPK%K301(:)*TPK%RO254(:)+TPK%K310(:)*TPK%RO255(:)+TPK%K318(:)*TPK%RO256(:)&
-&+TPK%K332(:)*TPK%RO257(:)+TPK%K341(:)*TPK%RO258(:)
+!H2O2/WR_ASO3=0.0
!
-!O3/CO=0.0
+!H2O2/WR_ASO4=0.0
!
-!O3/H2O2=0.0
+!H2O2/WR_ASO5=0.0
!
-!O3/SO2=0.0
+!H2O2/WR_AHSO5=0.0
!
-!O3/H2SO4=0.0
+!H2O2/WR_AHMS=0.0
!
-!O3/OH=-K025*<O3>+TPK%CF39*K082*<ARAL>+K303*<RPR5>+1.0000011*K306*<RPRL>+K322*<
-!RPR7>+1.0000005*K323*<RPG7>+K326*<RP11>+1.0000000*K334*<RPG3>+1.0000000*K335*<
-!RPG2>+K337*<RP18>
- PJAC(:,3,15)=-TPK%K025(:)*PCONC(:,3)+TPK%CF39*TPK%K082(:)*PCONC(:,25)+TPK%K303&
-&(:)*PCONC(:,70)+1.0000011*TPK%K306(:)*PCONC(:,75)+TPK%K322(:)*PCONC(:,62)+1.00&
-&00005*TPK%K323(:)*PCONC(:,63)+TPK%K326(:)*PCONC(:,73)+1.0000000*TPK%K334(:)*PC&
-&ONC(:,52)+1.0000000*TPK%K335(:)*PCONC(:,50)+TPK%K337(:)*PCONC(:,51)
+!NO/O3=-K042*<NO>
+ PJAC(:,3,1)=-TPK%K042(:)*PCONC(:,3)
!
-!O3/ETHE=-K051*<O3>
- PJAC(:,3,16)=-TPK%K051(:)*PCONC(:,3)
+!NO/H2O2=0.0
!
-!O3/OLEL=-K056*<O3>
- PJAC(:,3,17)=-TPK%K056(:)*PCONC(:,3)
+!NO/NO=-K029*<O3P>-K032*<OH>-K035*<HO2>-K042*<O3>-K044*<NO>*<O2>-K044*<NO>*<O2>
+!-K044*<NO>*<O2>-K044*<NO>*<O2>-K045*<NO3>-K090*<MO2>-K091*<ALKAP>-K092*<ALKEP>
+!-K093*<BIOP>-K094*<AROP>-K095*<CARBOP>-K096*<OLN>-K130*<XO2>-KTC3-KTR3
+ PJAC(:,3,3)=-TPK%K029(:)*TPK%O3P(:)-TPK%K032(:)*PCONC(:,14)-TPK%K035(:)*PCONC(&
+&:,15)-TPK%K042(:)*PCONC(:,1)-TPK%K044(:)*PCONC(:,3)*TPK%O2(:)-TPK%K044(:)*PCON&
+&C(:,3)*TPK%O2(:)-TPK%K044(:)*PCONC(:,3)*TPK%O2(:)-TPK%K044(:)*PCONC(:,3)*TPK%O&
+&2(:)-TPK%K045(:)*PCONC(:,5)-TPK%K090(:)*PCONC(:,32)-TPK%K091(:)*PCONC(:,33)-TP&
+&K%K092(:)*PCONC(:,34)-TPK%K093(:)*PCONC(:,35)-TPK%K094(:)*PCONC(:,38)-TPK%K095&
+&(:)*PCONC(:,39)-TPK%K096(:)*PCONC(:,40)-TPK%K130(:)*PCONC(:,41)-TPK%KTC3(:)-TP&
+&K%KTR3(:)
!
-!O3/OLEH=-K076*<O3>
- PJAC(:,3,18)=-TPK%K076(:)*PCONC(:,3)
+!NO/NO2=+K001+K030*<O3P>+K046*<NO3>
+ PJAC(:,3,4)=+TPK%K001(:)+TPK%K030(:)*TPK%O3P(:)+TPK%K046(:)*PCONC(:,5)
!
-!O3/ALKL=0.0
+!NO/NO3=+K007-K045*<NO>+K046*<NO2>
+ PJAC(:,3,5)=+TPK%K007(:)-TPK%K045(:)*PCONC(:,3)+TPK%K046(:)*PCONC(:,4)
!
-!O3/ALKM=0.0
+!NO/N2O5=0.0
!
-!O3/ALKH=0.0
+!NO/HONO=+K004
+ PJAC(:,3,7)=+TPK%K004(:)
!
-!O3/AROH=0.0
+!NO/HNO3=0.0
!
-!O3/AROL=0.0
+!NO/HNO4=0.0
!
-!O3/AROO=0.0
+!NO/NH3=0.0
!
-!O3/ARAL=+K081*<NO3>+TPK%CF39*K082*<OH>
- PJAC(:,3,25)=+TPK%K081(:)*PCONC(:,8)+TPK%CF39*TPK%K082(:)*PCONC(:,15)
+!NO/SO2=0.0
!
-!O3/ARAC=0.0
+!NO/SULF=0.0
!
-!O3/PAH=0.0
+!NO/CO=0.0
!
-!O3/HCHO=0.0
+!NO/OH=-K032*<NO>
+ PJAC(:,3,14)=-TPK%K032(:)*PCONC(:,3)
!
-!O3/ALD2=0.0
+!NO/HO2=-K035*<NO>
+ PJAC(:,3,15)=-TPK%K035(:)*PCONC(:,3)
!
-!O3/KETL=0.0
+!NO/CH4=0.0
!
-!O3/KETH=0.0
+!NO/ETH=0.0
!
-!O3/MEOH=0.0
+!NO/ALKA=0.0
!
-!O3/ETOH=0.0
+!NO/ALKE=0.0
!
-!O3/ALCH=0.0
+!NO/BIO=0.0
!
-!O3/ISOP=-K066*<O3>
- PJAC(:,3,35)=-TPK%K066(:)*PCONC(:,3)
+!NO/ARO=0.0
!
-!O3/BIOL=-K086*<O3>
- PJAC(:,3,36)=-TPK%K086(:)*PCONC(:,3)
+!NO/HCHO=0.0
!
-!O3/BIOH=-K090*<O3>
- PJAC(:,3,37)=-TPK%K090(:)*PCONC(:,3)
+!NO/ALD=0.0
!
-!O3/MTBE=0.0
+!NO/KET=0.0
!
-!O3/MVK=-K281*<O3>
- PJAC(:,3,39)=-TPK%K281(:)*PCONC(:,3)
+!NO/CARBO=0.0
!
-!O3/MCR=-K282*<O3>
- PJAC(:,3,40)=-TPK%K282(:)*PCONC(:,3)
+!NO/ONIT=0.0
!
-!O3/MGLY=0.0
+!NO/PAN=0.0
!
-!O3/GLY=0.0
+!NO/OP1=0.0
!
-!O3/ORA1=0.0
+!NO/OP2=0.0
!
-!O3/ORA2=0.0
+!NO/ORA1=0.0
!
-!O3/ACID=0.0
+!NO/ORA2=0.0
!
-!O3/UR28=0.0
+!NO/MO2=-K090*<NO>
+ PJAC(:,3,32)=-TPK%K090(:)*PCONC(:,3)
!
-!O3/UR21=0.0
+!NO/ALKAP=-K091*<NO>
+ PJAC(:,3,33)=-TPK%K091(:)*PCONC(:,3)
!
-!O3/URG2=0.0
+!NO/ALKEP=-K092*<NO>
+ PJAC(:,3,34)=-TPK%K092(:)*PCONC(:,3)
!
-!O3/UR26=0.0
+!NO/BIOP=-K093*<NO>
+ PJAC(:,3,35)=-TPK%K093(:)*PCONC(:,3)
!
-!O3/RPG2=+1.0000000*K335*<OH>
- PJAC(:,3,50)=+1.0000000*TPK%K335(:)*PCONC(:,15)
+!NO/PHO=0.0
!
-!O3/RP18=+K337*<OH>
- PJAC(:,3,51)=+TPK%K337(:)*PCONC(:,15)
+!NO/ADD=0.0
!
-!O3/RPG3=+1.0000000*K334*<OH>
- PJAC(:,3,52)=+1.0000000*TPK%K334(:)*PCONC(:,15)
+!NO/AROP=-K094*<NO>
+ PJAC(:,3,38)=-TPK%K094(:)*PCONC(:,3)
!
-!O3/URG4=0.0
+!NO/CARBOP=-K095*<NO>
+ PJAC(:,3,39)=-TPK%K095(:)*PCONC(:,3)
!
-!O3/UR8=0.0
+!NO/OLN=-K096*<NO>
+ PJAC(:,3,40)=-TPK%K096(:)*PCONC(:,3)
!
-!O3/UR17=0.0
+!NO/XO2=-K130*<NO>
+ PJAC(:,3,41)=-TPK%K130(:)*PCONC(:,3)
!
-!O3/UR7=0.0
+!NO/WC_O3=0.0
!
-!O3/RPR3=0.0
+!NO/WC_H2O2=0.0
!
-!O3/URG6=0.0
+!NO/WC_NO=+KTC23
+ PJAC(:,3,44)=+TPK%KTC23(:)
!
-!O3/UR22=0.0
+!NO/WC_NO2=0.0
!
-!O3/URG7=0.0
+!NO/WC_NO3=0.0
!
-!O3/RPR4=0.0
+!NO/WC_N2O5=0.0
!
-!O3/RPR7=+K322*<OH>
- PJAC(:,3,62)=+TPK%K322(:)*PCONC(:,15)
+!NO/WC_HONO=0.0
!
-!O3/RPG7=+1.0000005*K323*<OH>
- PJAC(:,3,63)=+1.0000005*TPK%K323(:)*PCONC(:,15)
+!NO/WC_HNO3=0.0
!
-!O3/URG8=0.0
+!NO/WC_HNO4=0.0
!
-!O3/UR19=0.0
+!NO/WC_NH3=0.0
!
-!O3/URG9=0.0
+!NO/WC_OH=0.0
!
-!O3/AP7=0.0
+!NO/WC_HO2=0.0
!
-!O3/URG10=0.0
+!NO/WC_CO2=0.0
!
-!O3/RPR1=0.0
+!NO/WC_SO2=0.0
!
-!O3/RPR5=+K303*<OH>
- PJAC(:,3,70)=+TPK%K303(:)*PCONC(:,15)
+!NO/WC_SULF=0.0
!
-!O3/RPR8=0.0
+!NO/WC_HCHO=0.0
!
-!O3/RP10=0.0
+!NO/WC_ORA1=0.0
!
-!O3/RP11=+K326*<OH>
- PJAC(:,3,73)=+TPK%K326(:)*PCONC(:,15)
+!NO/WC_ORA2=0.0
!
-!O3/RP16=0.0
+!NO/WC_MO2=0.0
!
-!O3/RPRL=+1.0000011*K306*<OH>
- PJAC(:,3,75)=+1.0000011*TPK%K306(:)*PCONC(:,15)
+!NO/WC_OP1=0.0
!
-!O3/APAN=0.0
+!NO/WC_ASO3=0.0
!
-!O3/PAN1=0.0
+!NO/WC_ASO4=0.0
!
-!O3/PAN2=0.0
+!NO/WC_ASO5=0.0
!
-!O3/PAN3=0.0
+!NO/WC_AHSO5=0.0
!
-!O3/PAN4=0.0
+!NO/WC_AHMS=0.0
!
-!O3/PAN6=0.0
+!NO/WR_O3=0.0
!
-!O3/PAN7=0.0
+!NO/WR_H2O2=0.0
!
-!O3/PAN8=0.0
+!NO/WR_NO=+KTR23
+ PJAC(:,3,69)=+TPK%KTR23(:)
!
-!O3/PN10=0.0
+!NO/WR_NO2=0.0
!
-!O3/RO2T=0.0
+!NO/WR_NO3=0.0
!
-!O3/RO21=0.0
+!NO/WR_N2O5=0.0
!
-!O3/RO25=0.0
+!NO/WR_HONO=0.0
!
-!HONO/NO=+K019*<OH>
- PJAC(:,4,1)=+TPK%K019(:)*PCONC(:,15)
+!NO/WR_HNO3=0.0
!
-!HONO/NO2=+0.5*K021*<H2O>
- PJAC(:,4,2)=+0.5*TPK%K021(:)*TPK%H2O(:)
+!NO/WR_HNO4=0.0
!
-!HONO/O3=0.0
+!NO/WR_NH3=0.0
!
-!HONO/HONO=-K020-K039*<OH>
- PJAC(:,4,4)=-TPK%K020(:)-TPK%K039(:)*PCONC(:,15)
+!NO/WR_OH=0.0
!
-!HONO/HNO3=0.0
+!NO/WR_HO2=0.0
!
-!HONO/HNO4=0.0
+!NO/WR_CO2=0.0
!
-!HONO/N2O5=0.0
+!NO/WR_SO2=0.0
!
-!HONO/NO3=0.0
+!NO/WR_SULF=0.0
!
-!HONO/NH3=0.0
+!NO/WR_HCHO=0.0
!
-!HONO/HO2=0.0
+!NO/WR_ORA1=0.0
!
-!HONO/CO=0.0
+!NO/WR_ORA2=0.0
!
-!HONO/H2O2=0.0
+!NO/WR_MO2=0.0
!
-!HONO/SO2=0.0
+!NO/WR_OP1=0.0
!
-!HONO/H2SO4=0.0
+!NO/WR_ASO3=0.0
!
-!HONO/OH=+K019*<NO>-K039*<HONO>
- PJAC(:,4,15)=+TPK%K019(:)*PCONC(:,1)-TPK%K039(:)*PCONC(:,4)
+!NO/WR_ASO4=0.0
!
-!HONO/ETHE=0.0
+!NO/WR_ASO5=0.0
!
-!HONO/OLEL=0.0
+!NO/WR_AHSO5=0.0
!
-!HONO/OLEH=0.0
+!NO/WR_AHMS=0.0
!
-!HONO/ALKL=0.0
+!NO2/O3=+K042*<NO>-K043*<NO2>+0.70*K082*<PAN>
+ PJAC(:,4,1)=+TPK%K042(:)*PCONC(:,3)-TPK%K043(:)*PCONC(:,4)+0.70*TPK%K082(:)*PC&
+&ONC(:,27)
!
-!HONO/ALKM=0.0
+!NO2/H2O2=0.0
!
-!HONO/ALKH=0.0
+!NO2/NO=+K029*<O3P>+K035*<HO2>+K042*<O3>+K044*<NO>*<O2>+K044*<NO>*<O2>+K044*<NO
+!>*<O2>+K044*<NO>*<O2>+K045*<NO3>+K045*<NO3>+K090*<MO2>+0.91541*K091*<ALKAP>+K0
+!92*<ALKEP>+0.84700*K093*<BIOP>+0.95115*K094*<AROP>+K095*<CARBOP>+1.81599*K096*
+!<OLN>+K130*<XO2>
+ PJAC(:,4,3)=+TPK%K029(:)*TPK%O3P(:)+TPK%K035(:)*PCONC(:,15)+TPK%K042(:)*PCONC(&
+&:,1)+TPK%K044(:)*PCONC(:,3)*TPK%O2(:)+TPK%K044(:)*PCONC(:,3)*TPK%O2(:)+TPK%K04&
+&4(:)*PCONC(:,3)*TPK%O2(:)+TPK%K044(:)*PCONC(:,3)*TPK%O2(:)+TPK%K045(:)*PCONC(:&
+&,5)+TPK%K045(:)*PCONC(:,5)+TPK%K090(:)*PCONC(:,32)+0.91541*TPK%K091(:)*PCONC(:&
+&,33)+TPK%K092(:)*PCONC(:,34)+0.84700*TPK%K093(:)*PCONC(:,35)+0.95115*TPK%K094(&
+&:)*PCONC(:,38)+TPK%K095(:)*PCONC(:,39)+1.81599*TPK%K096(:)*PCONC(:,40)+TPK%K13&
+&0(:)*PCONC(:,41)
+!
+!NO2/NO2=-K001-K030*<O3P>-K031*<O3P>-K033*<OH>-K036*<HO2>-K043*<O3>+K046*<NO3>-
+!K046*<NO3>-K047*<NO3>-K083*<PHO>-K085*<ADD>-K088*<CARBOP>-KTC4-KTR4
+ PJAC(:,4,4)=-TPK%K001(:)-TPK%K030(:)*TPK%O3P(:)-TPK%K031(:)*TPK%O3P(:)-TPK%K03&
+&3(:)*PCONC(:,14)-TPK%K036(:)*PCONC(:,15)-TPK%K043(:)*PCONC(:,1)+TPK%K046(:)*PC&
+&ONC(:,5)-TPK%K046(:)*PCONC(:,5)-TPK%K047(:)*PCONC(:,5)-TPK%K083(:)*PCONC(:,36)&
+&-TPK%K085(:)*PCONC(:,37)-TPK%K088(:)*PCONC(:,39)-TPK%KTC4(:)-TPK%KTR4(:)
+!
+!NO2/NO3=+K008+K034*<OH>+0.7*K038*<HO2>+K045*<NO>+K045*<NO>+K046*<NO2>-K046*<NO
+!2>-K047*<NO2>+K049*<NO3>+K049*<NO3>+K049*<NO3>+K049*<NO3>+0.10530*K074*<CARBO>
+!+0.40*K078*<PAN>+K119*<MO2>+K120*<ALKAP>+K121*<ALKEP>+K122*<BIOP>+K123*<AROP>+
+!K124*<CARBOP>+1.74072*K125*<OLN>+K131*<XO2>
+ PJAC(:,4,5)=+TPK%K008(:)+TPK%K034(:)*PCONC(:,14)+0.7*TPK%K038(:)*PCONC(:,15)+T&
+&PK%K045(:)*PCONC(:,3)+TPK%K045(:)*PCONC(:,3)+TPK%K046(:)*PCONC(:,4)-TPK%K046(:&
+&)*PCONC(:,4)-TPK%K047(:)*PCONC(:,4)+TPK%K049(:)*PCONC(:,5)+TPK%K049(:)*PCONC(:&
+&,5)+TPK%K049(:)*PCONC(:,5)+TPK%K049(:)*PCONC(:,5)+0.10530*TPK%K074(:)*PCONC(:,&
+&25)+0.40*TPK%K078(:)*PCONC(:,27)+TPK%K119(:)*PCONC(:,32)+TPK%K120(:)*PCONC(:,3&
+&3)+TPK%K121(:)*PCONC(:,34)+TPK%K122(:)*PCONC(:,35)+TPK%K123(:)*PCONC(:,38)+TPK&
+&%K124(:)*PCONC(:,39)+1.74072*TPK%K125(:)*PCONC(:,40)+TPK%K131(:)*PCONC(:,41)
+!
+!NO2/N2O5=+K048
+ PJAC(:,4,6)=+TPK%K048(:)
+!
+!NO2/HONO=+K039*<OH>
+ PJAC(:,4,7)=+TPK%K039(:)*PCONC(:,14)
+!
+!NO2/HNO3=+K005
+ PJAC(:,4,8)=+TPK%K005(:)
+!
+!NO2/HNO4=+0.65*K006+K037+K041*<OH>
+ PJAC(:,4,9)=+0.65*TPK%K006(:)+TPK%K037(:)+TPK%K041(:)*PCONC(:,14)
!
-!HONO/AROH=0.0
+!NO2/NH3=0.0
!
-!HONO/AROL=0.0
+!NO2/SO2=0.0
!
-!HONO/AROO=0.0
+!NO2/SULF=0.0
!
-!HONO/ARAL=0.0
+!NO2/CO=0.0
!
-!HONO/ARAC=0.0
+!NO2/OH=-K033*<NO2>+K034*<NO3>+K039*<HONO>+K041*<HNO4>+K071*<ONIT>
+ PJAC(:,4,14)=-TPK%K033(:)*PCONC(:,4)+TPK%K034(:)*PCONC(:,5)+TPK%K039(:)*PCONC(&
+&:,7)+TPK%K041(:)*PCONC(:,9)+TPK%K071(:)*PCONC(:,26)
!
-!HONO/PAH=0.0
+!NO2/HO2=+K035*<NO>-K036*<NO2>+0.7*K038*<NO3>
+ PJAC(:,4,15)=+TPK%K035(:)*PCONC(:,3)-TPK%K036(:)*PCONC(:,4)+0.7*TPK%K038(:)*PC&
+&ONC(:,5)
!
-!HONO/HCHO=0.0
+!NO2/CH4=0.0
!
-!HONO/ALD2=0.0
+!NO2/ETH=0.0
!
-!HONO/KETL=0.0
+!NO2/ALKA=0.0
!
-!HONO/KETH=0.0
+!NO2/ALKE=0.0
!
-!HONO/MEOH=0.0
+!NO2/BIO=0.0
!
-!HONO/ETOH=0.0
+!NO2/ARO=0.0
!
-!HONO/ALCH=0.0
+!NO2/HCHO=0.0
!
-!HONO/ISOP=0.0
+!NO2/ALD=0.0
!
-!HONO/BIOL=0.0
+!NO2/KET=0.0
!
-!HONO/BIOH=0.0
+!NO2/CARBO=+0.10530*K074*<NO3>
+ PJAC(:,4,25)=+0.10530*TPK%K074(:)*PCONC(:,5)
!
-!HONO/MTBE=0.0
+!NO2/ONIT=+K017+K071*<OH>
+ PJAC(:,4,26)=+TPK%K017(:)+TPK%K071(:)*PCONC(:,14)
!
-!HONO/MVK=0.0
+!NO2/PAN=+0.40*K078*<NO3>+0.70*K082*<O3>+K089
+ PJAC(:,4,27)=+0.40*TPK%K078(:)*PCONC(:,5)+0.70*TPK%K082(:)*PCONC(:,1)+TPK%K089&
+&(:)
!
-!HONO/MCR=0.0
+!NO2/OP1=0.0
!
-!HONO/MGLY=0.0
+!NO2/OP2=0.0
!
-!HONO/GLY=0.0
+!NO2/ORA1=0.0
!
-!HONO/ORA1=0.0
+!NO2/ORA2=0.0
!
-!HONO/ORA2=0.0
+!NO2/MO2=+K090*<NO>+0.32440*K110*<OLN>+K119*<NO3>
+ PJAC(:,4,32)=+TPK%K090(:)*PCONC(:,3)+0.32440*TPK%K110(:)*PCONC(:,40)+TPK%K119(&
+&:)*PCONC(:,5)
!
-!HONO/ACID=0.0
+!NO2/ALKAP=+0.91541*K091*<NO>+K120*<NO3>
+ PJAC(:,4,33)=+0.91541*TPK%K091(:)*PCONC(:,3)+TPK%K120(:)*PCONC(:,5)
!
-!HONO/UR28=0.0
+!NO2/ALKEP=+K092*<NO>+K121*<NO3>
+ PJAC(:,4,34)=+TPK%K092(:)*PCONC(:,3)+TPK%K121(:)*PCONC(:,5)
!
-!HONO/UR21=0.0
+!NO2/BIOP=+0.84700*K093*<NO>+K122*<NO3>
+ PJAC(:,4,35)=+0.84700*TPK%K093(:)*PCONC(:,3)+TPK%K122(:)*PCONC(:,5)
!
-!HONO/URG2=0.0
+!NO2/PHO=-K083*<NO2>
+ PJAC(:,4,36)=-TPK%K083(:)*PCONC(:,4)
!
-!HONO/UR26=0.0
+!NO2/ADD=-K085*<NO2>
+ PJAC(:,4,37)=-TPK%K085(:)*PCONC(:,4)
!
-!HONO/RPG2=0.0
+!NO2/AROP=+0.95115*K094*<NO>+K123*<NO3>
+ PJAC(:,4,38)=+0.95115*TPK%K094(:)*PCONC(:,3)+TPK%K123(:)*PCONC(:,5)
!
-!HONO/RP18=0.0
+!NO2/CARBOP=-K088*<NO2>+K095*<NO>+0.00000*K116*<OLN>+K124*<NO3>
+ PJAC(:,4,39)=-TPK%K088(:)*PCONC(:,4)+TPK%K095(:)*PCONC(:,3)+0.00000*TPK%K116(:&
+&)*PCONC(:,40)+TPK%K124(:)*PCONC(:,5)
!
-!HONO/RPG3=0.0
+!NO2/OLN=+1.81599*K096*<NO>+0.32440*K110*<MO2>+0.00000*K116*<CARBOP>+0.00000*K1
+!18*<OLN>+0.00000*K118*<OLN>+1.74072*K125*<NO3>
+ PJAC(:,4,40)=+1.81599*TPK%K096(:)*PCONC(:,3)+0.32440*TPK%K110(:)*PCONC(:,32)+0&
+&.00000*TPK%K116(:)*PCONC(:,39)+0.00000*TPK%K118(:)*PCONC(:,40)+0.00000*TPK%K11&
+&8(:)*PCONC(:,40)+1.74072*TPK%K125(:)*PCONC(:,5)
!
-!HONO/URG4=0.0
+!NO2/XO2=+K130*<NO>+K131*<NO3>
+ PJAC(:,4,41)=+TPK%K130(:)*PCONC(:,3)+TPK%K131(:)*PCONC(:,5)
!
-!HONO/UR8=0.0
+!NO2/WC_O3=0.0
!
-!HONO/UR17=0.0
+!NO2/WC_H2O2=0.0
!
-!HONO/UR7=0.0
+!NO2/WC_NO=0.0
!
-!HONO/RPR3=0.0
+!NO2/WC_NO2=+KTC24
+ PJAC(:,4,45)=+TPK%KTC24(:)
!
-!HONO/URG6=0.0
+!NO2/WC_NO3=0.0
!
-!HONO/UR22=0.0
+!NO2/WC_N2O5=0.0
!
-!HONO/URG7=0.0
+!NO2/WC_HONO=0.0
!
-!HONO/RPR4=0.0
+!NO2/WC_HNO3=0.0
!
-!HONO/RPR7=0.0
+!NO2/WC_HNO4=0.0
!
-!HONO/RPG7=0.0
+!NO2/WC_NH3=0.0
!
-!HONO/URG8=0.0
+!NO2/WC_OH=0.0
!
-!HONO/UR19=0.0
+!NO2/WC_HO2=0.0
!
-!HONO/URG9=0.0
+!NO2/WC_CO2=0.0
!
-!HONO/AP7=0.0
+!NO2/WC_SO2=0.0
!
-!HONO/URG10=0.0
+!NO2/WC_SULF=0.0
!
-!HONO/RPR1=0.0
+!NO2/WC_HCHO=0.0
!
-!HONO/RPR5=0.0
+!NO2/WC_ORA1=0.0
!
-!HONO/RPR8=0.0
+!NO2/WC_ORA2=0.0
!
-!HONO/RP10=0.0
+!NO2/WC_MO2=0.0
!
-!HONO/RP11=0.0
+!NO2/WC_OP1=0.0
!
-!HONO/RP16=0.0
+!NO2/WC_ASO3=0.0
!
-!HONO/RPRL=0.0
+!NO2/WC_ASO4=0.0
!
-!HONO/APAN=0.0
+!NO2/WC_ASO5=0.0
!
-!HONO/PAN1=0.0
+!NO2/WC_AHSO5=0.0
!
-!HONO/PAN2=0.0
+!NO2/WC_AHMS=0.0
!
-!HONO/PAN3=0.0
+!NO2/WR_O3=0.0
!
-!HONO/PAN4=0.0
+!NO2/WR_H2O2=0.0
!
-!HONO/PAN6=0.0
+!NO2/WR_NO=0.0
!
-!HONO/PAN7=0.0
+!NO2/WR_NO2=+KTR24
+ PJAC(:,4,70)=+TPK%KTR24(:)
!
-!HONO/PAN8=0.0
+!NO2/WR_NO3=0.0
!
-!HONO/PN10=0.0
+!NO2/WR_N2O5=0.0
!
-!HONO/RO2T=0.0
+!NO2/WR_HONO=0.0
!
-!HONO/RO21=0.0
+!NO2/WR_HNO3=0.0
!
-!HONO/RO25=0.0
+!NO2/WR_HNO4=0.0
!
-!HNO3/NO=0.0
+!NO2/WR_NH3=0.0
!
-!HNO3/NO2=+0.5*K021*<H2O>+K022*<OH>
- PJAC(:,5,2)=+0.5*TPK%K021(:)*TPK%H2O(:)+TPK%K022(:)*PCONC(:,15)
+!NO2/WR_OH=0.0
!
-!HNO3/O3=0.0
+!NO2/WR_HO2=0.0
!
-!HNO3/HONO=0.0
+!NO2/WR_CO2=0.0
!
-!HNO3/HNO3=-K023*<OH>
- PJAC(:,5,5)=-TPK%K023(:)*PCONC(:,15)
+!NO2/WR_SO2=0.0
!
-!HNO3/HNO4=0.0
+!NO2/WR_SULF=0.0
!
-!HNO3/N2O5=+2.*K011*<H2O>
- PJAC(:,5,7)=+2.*TPK%K011(:)*TPK%H2O(:)
+!NO2/WR_HCHO=0.0
!
-!HNO3/NO3=+0.2*K033*<HO2>+K047*<HCHO>+K061*<ALD2>+K072*<AROO>+K081*<ARAL>+TPK%C
-!F46*K275*<MCR>+K278*<MGLY>+K307*<RPR1>+K313*<RPR3>+K320*<RPR4>+K327*<RPR8>+K33
-!8*<RP16>
- PJAC(:,5,8)=+0.2*TPK%K033(:)*PCONC(:,10)+TPK%K047(:)*PCONC(:,28)+TPK%K061(:)*P&
-&CONC(:,29)+TPK%K072(:)*PCONC(:,24)+TPK%K081(:)*PCONC(:,25)+TPK%CF46*TPK%K275(:&
-&)*PCONC(:,40)+TPK%K278(:)*PCONC(:,41)+TPK%K307(:)*PCONC(:,69)+TPK%K313(:)*PCON&
-&C(:,57)+TPK%K320(:)*PCONC(:,61)+TPK%K327(:)*PCONC(:,71)+TPK%K338(:)*PCONC(:,74&
-&)
+!NO2/WR_ORA1=0.0
!
-!HNO3/NH3=0.0
+!NO2/WR_ORA2=0.0
!
-!HNO3/HO2=+0.2*K033*<NO3>
- PJAC(:,5,10)=+0.2*TPK%K033(:)*PCONC(:,8)
+!NO2/WR_MO2=0.0
!
-!HNO3/CO=0.0
+!NO2/WR_OP1=0.0
!
-!HNO3/H2O2=0.0
+!NO2/WR_ASO3=0.0
!
-!HNO3/SO2=0.0
+!NO2/WR_ASO4=0.0
!
-!HNO3/H2SO4=0.0
+!NO2/WR_ASO5=0.0
!
-!HNO3/OH=+K022*<NO2>-K023*<HNO3>
- PJAC(:,5,15)=+TPK%K022(:)*PCONC(:,2)-TPK%K023(:)*PCONC(:,5)
+!NO2/WR_AHSO5=0.0
!
-!HNO3/ETHE=0.0
+!NO2/WR_AHMS=0.0
!
-!HNO3/OLEL=0.0
+!NO3/O3=+K043*<NO2>
+ PJAC(:,5,1)=+TPK%K043(:)*PCONC(:,4)
!
-!HNO3/OLEH=0.0
+!NO3/H2O2=0.0
!
-!HNO3/ALKL=0.0
+!NO3/NO=-K045*<NO3>
+ PJAC(:,5,3)=-TPK%K045(:)*PCONC(:,5)
+!
+!NO3/NO2=+K031*<O3P>+K043*<O3>-K046*<NO3>-K047*<NO3>
+ PJAC(:,5,4)=+TPK%K031(:)*TPK%O3P(:)+TPK%K043(:)*PCONC(:,1)-TPK%K046(:)*PCONC(:&
+&,5)-TPK%K047(:)*PCONC(:,5)
+!
+!NO3/NO3=-K007-K008-K034*<OH>-K038*<HO2>-K045*<NO>-K046*<NO2>-K047*<NO2>-K049*<
+!NO3>-K049*<NO3>-K049*<NO3>-K049*<NO3>-K072*<HCHO>-K073*<ALD>-K074*<CARBO>-K075
+!*<ARO>-K076*<ALKE>-K077*<BIO>+0.60*K078*<PAN>-K078*<PAN>-K119*<MO2>-K120*<ALKA
+!P>-K121*<ALKEP>-K122*<BIOP>-K123*<AROP>-K124*<CARBOP>-K125*<OLN>-K131*<XO2>-KT
+!C5-KTR5
+ PJAC(:,5,5)=-TPK%K007(:)-TPK%K008(:)-TPK%K034(:)*PCONC(:,14)-TPK%K038(:)*PCONC&
+&(:,15)-TPK%K045(:)*PCONC(:,3)-TPK%K046(:)*PCONC(:,4)-TPK%K047(:)*PCONC(:,4)-TP&
+&K%K049(:)*PCONC(:,5)-TPK%K049(:)*PCONC(:,5)-TPK%K049(:)*PCONC(:,5)-TPK%K049(:)&
+&*PCONC(:,5)-TPK%K072(:)*PCONC(:,22)-TPK%K073(:)*PCONC(:,23)-TPK%K074(:)*PCONC(&
+&:,25)-TPK%K075(:)*PCONC(:,21)-TPK%K076(:)*PCONC(:,19)-TPK%K077(:)*PCONC(:,20)+&
+&0.60*TPK%K078(:)*PCONC(:,27)-TPK%K078(:)*PCONC(:,27)-TPK%K119(:)*PCONC(:,32)-T&
+&PK%K120(:)*PCONC(:,33)-TPK%K121(:)*PCONC(:,34)-TPK%K122(:)*PCONC(:,35)-TPK%K12&
+&3(:)*PCONC(:,38)-TPK%K124(:)*PCONC(:,39)-TPK%K125(:)*PCONC(:,40)-TPK%K131(:)*P&
+&CONC(:,41)-TPK%KTC5(:)-TPK%KTR5(:)
+!
+!NO3/N2O5=+K048
+ PJAC(:,5,6)=+TPK%K048(:)
!
-!HNO3/ALKM=0.0
+!NO3/HONO=0.0
!
-!HNO3/ALKH=0.0
+!NO3/HNO3=+K040*<OH>
+ PJAC(:,5,8)=+TPK%K040(:)*PCONC(:,14)
!
-!HNO3/AROH=0.0
+!NO3/HNO4=+0.35*K006
+ PJAC(:,5,9)=+0.35*TPK%K006(:)
!
-!HNO3/AROL=0.0
+!NO3/NH3=0.0
!
-!HNO3/AROO=+K072*<NO3>
- PJAC(:,5,24)=+TPK%K072(:)*PCONC(:,8)
+!NO3/SO2=0.0
!
-!HNO3/ARAL=+K081*<NO3>
- PJAC(:,5,25)=+TPK%K081(:)*PCONC(:,8)
+!NO3/SULF=0.0
!
-!HNO3/ARAC=0.0
+!NO3/CO=0.0
!
-!HNO3/PAH=0.0
+!NO3/OH=-K034*<NO3>+K040*<HNO3>+0.71893*K070*<PAN>
+ PJAC(:,5,14)=-TPK%K034(:)*PCONC(:,5)+TPK%K040(:)*PCONC(:,8)+0.71893*TPK%K070(:&
+&)*PCONC(:,27)
!
-!HNO3/HCHO=+K047*<NO3>
- PJAC(:,5,28)=+TPK%K047(:)*PCONC(:,8)
+!NO3/HO2=-K038*<NO3>
+ PJAC(:,5,15)=-TPK%K038(:)*PCONC(:,5)
!
-!HNO3/ALD2=+K061*<NO3>
- PJAC(:,5,29)=+TPK%K061(:)*PCONC(:,8)
+!NO3/CH4=0.0
!
-!HNO3/KETL=0.0
+!NO3/ETH=0.0
!
-!HNO3/KETH=0.0
+!NO3/ALKA=0.0
!
-!HNO3/MEOH=0.0
+!NO3/ALKE=-K076*<NO3>
+ PJAC(:,5,19)=-TPK%K076(:)*PCONC(:,5)
!
-!HNO3/ETOH=0.0
+!NO3/BIO=-K077*<NO3>
+ PJAC(:,5,20)=-TPK%K077(:)*PCONC(:,5)
!
-!HNO3/ALCH=0.0
+!NO3/ARO=-K075*<NO3>
+ PJAC(:,5,21)=-TPK%K075(:)*PCONC(:,5)
!
-!HNO3/ISOP=0.0
+!NO3/HCHO=-K072*<NO3>
+ PJAC(:,5,22)=-TPK%K072(:)*PCONC(:,5)
!
-!HNO3/BIOL=0.0
+!NO3/ALD=-K073*<NO3>
+ PJAC(:,5,23)=-TPK%K073(:)*PCONC(:,5)
!
-!HNO3/BIOH=0.0
+!NO3/KET=0.0
!
-!HNO3/MTBE=0.0
+!NO3/CARBO=-K074*<NO3>
+ PJAC(:,5,25)=-TPK%K074(:)*PCONC(:,5)
!
-!HNO3/MVK=0.0
+!NO3/ONIT=0.0
!
-!HNO3/MCR=+TPK%CF46*K275*<NO3>
- PJAC(:,5,40)=+TPK%CF46*TPK%K275(:)*PCONC(:,8)
+!NO3/PAN=+0.71893*K070*<OH>+0.60*K078*<NO3>-K078*<NO3>
+ PJAC(:,5,27)=+0.71893*TPK%K070(:)*PCONC(:,14)+0.60*TPK%K078(:)*PCONC(:,5)-TPK%&
+&K078(:)*PCONC(:,5)
!
-!HNO3/MGLY=+K278*<NO3>
- PJAC(:,5,41)=+TPK%K278(:)*PCONC(:,8)
+!NO3/OP1=0.0
!
-!HNO3/GLY=0.0
+!NO3/OP2=0.0
!
-!HNO3/ORA1=0.0
+!NO3/ORA1=0.0
!
-!HNO3/ORA2=0.0
+!NO3/ORA2=0.0
!
-!HNO3/ACID=0.0
+!NO3/MO2=-K119*<NO3>
+ PJAC(:,5,32)=-TPK%K119(:)*PCONC(:,5)
!
-!HNO3/UR28=0.0
+!NO3/ALKAP=-K120*<NO3>
+ PJAC(:,5,33)=-TPK%K120(:)*PCONC(:,5)
!
-!HNO3/UR21=0.0
+!NO3/ALKEP=-K121*<NO3>
+ PJAC(:,5,34)=-TPK%K121(:)*PCONC(:,5)
!
-!HNO3/URG2=0.0
+!NO3/BIOP=-K122*<NO3>
+ PJAC(:,5,35)=-TPK%K122(:)*PCONC(:,5)
!
-!HNO3/UR26=0.0
+!NO3/PHO=0.0
!
-!HNO3/RPG2=0.0
+!NO3/ADD=0.0
!
-!HNO3/RP18=0.0
+!NO3/AROP=-K123*<NO3>
+ PJAC(:,5,38)=-TPK%K123(:)*PCONC(:,5)
!
-!HNO3/RPG3=0.0
+!NO3/CARBOP=-K124*<NO3>
+ PJAC(:,5,39)=-TPK%K124(:)*PCONC(:,5)
!
-!HNO3/URG4=0.0
+!NO3/OLN=-K125*<NO3>
+ PJAC(:,5,40)=-TPK%K125(:)*PCONC(:,5)
!
-!HNO3/UR8=0.0
+!NO3/XO2=-K131*<NO3>
+ PJAC(:,5,41)=-TPK%K131(:)*PCONC(:,5)
!
-!HNO3/UR17=0.0
+!NO3/WC_O3=0.0
!
-!HNO3/UR7=0.0
+!NO3/WC_H2O2=0.0
!
-!HNO3/RPR3=+K313*<NO3>
- PJAC(:,5,57)=+TPK%K313(:)*PCONC(:,8)
+!NO3/WC_NO=0.0
!
-!HNO3/URG6=0.0
+!NO3/WC_NO2=0.0
!
-!HNO3/UR22=0.0
+!NO3/WC_NO3=+KTC25
+ PJAC(:,5,46)=+TPK%KTC25(:)
!
-!HNO3/URG7=0.0
+!NO3/WC_N2O5=0.0
!
-!HNO3/RPR4=+K320*<NO3>
- PJAC(:,5,61)=+TPK%K320(:)*PCONC(:,8)
+!NO3/WC_HONO=0.0
!
-!HNO3/RPR7=0.0
+!NO3/WC_HNO3=0.0
!
-!HNO3/RPG7=0.0
+!NO3/WC_HNO4=0.0
!
-!HNO3/URG8=0.0
+!NO3/WC_NH3=0.0
!
-!HNO3/UR19=0.0
+!NO3/WC_OH=0.0
!
-!HNO3/URG9=0.0
+!NO3/WC_HO2=0.0
!
-!HNO3/AP7=0.0
+!NO3/WC_CO2=0.0
!
-!HNO3/URG10=0.0
+!NO3/WC_SO2=0.0
!
-!HNO3/RPR1=+K307*<NO3>
- PJAC(:,5,69)=+TPK%K307(:)*PCONC(:,8)
+!NO3/WC_SULF=0.0
!
-!HNO3/RPR5=0.0
+!NO3/WC_HCHO=0.0
!
-!HNO3/RPR8=+K327*<NO3>
- PJAC(:,5,71)=+TPK%K327(:)*PCONC(:,8)
+!NO3/WC_ORA1=0.0
!
-!HNO3/RP10=0.0
+!NO3/WC_ORA2=0.0
!
-!HNO3/RP11=0.0
+!NO3/WC_MO2=0.0
!
-!HNO3/RP16=+K338*<NO3>
- PJAC(:,5,74)=+TPK%K338(:)*PCONC(:,8)
+!NO3/WC_OP1=0.0
!
-!HNO3/RPRL=0.0
+!NO3/WC_ASO3=0.0
!
-!HNO3/APAN=0.0
+!NO3/WC_ASO4=0.0
!
-!HNO3/PAN1=0.0
+!NO3/WC_ASO5=0.0
!
-!HNO3/PAN2=0.0
+!NO3/WC_AHSO5=0.0
!
-!HNO3/PAN3=0.0
+!NO3/WC_AHMS=0.0
!
-!HNO3/PAN4=0.0
+!NO3/WR_O3=0.0
!
-!HNO3/PAN6=0.0
+!NO3/WR_H2O2=0.0
!
-!HNO3/PAN7=0.0
+!NO3/WR_NO=0.0
!
-!HNO3/PAN8=0.0
+!NO3/WR_NO2=0.0
!
-!HNO3/PN10=0.0
+!NO3/WR_NO3=+KTR25
+ PJAC(:,5,71)=+TPK%KTR25(:)
!
-!HNO3/RO2T=0.0
+!NO3/WR_N2O5=0.0
!
-!HNO3/RO21=0.0
+!NO3/WR_HONO=0.0
!
-!HNO3/RO25=0.0
+!NO3/WR_HNO3=0.0
!
-RETURN
-END SUBROUTINE SUBJ0
+!NO3/WR_HNO4=0.0
!
-SUBROUTINE SUBJ1
+!NO3/WR_NH3=0.0
!
-!Indices 6 a 10
+!NO3/WR_OH=0.0
!
+!NO3/WR_HO2=0.0
!
-!HNO4/NO=0.0
+!NO3/WR_CO2=0.0
!
-!HNO4/NO2=+K027*<HO2>
- PJAC(:,6,2)=+TPK%K027(:)*PCONC(:,10)
+!NO3/WR_SO2=0.0
!
-!HNO4/O3=0.0
+!NO3/WR_SULF=0.0
!
-!HNO4/HONO=0.0
+!NO3/WR_HCHO=0.0
!
-!HNO4/HNO3=0.0
+!NO3/WR_ORA1=0.0
!
-!HNO4/HNO4=-K028-K029*<OH>
- PJAC(:,6,6)=-TPK%K028(:)-TPK%K029(:)*PCONC(:,15)
+!NO3/WR_ORA2=0.0
!
-!HNO4/N2O5=0.0
+!NO3/WR_MO2=0.0
!
-!HNO4/NO3=0.0
+!NO3/WR_OP1=0.0
!
-!HNO4/NH3=0.0
+!NO3/WR_ASO3=0.0
!
-!HNO4/HO2=+K027*<NO2>
- PJAC(:,6,10)=+TPK%K027(:)*PCONC(:,2)
+!NO3/WR_ASO4=0.0
!
-!HNO4/CO=0.0
+!NO3/WR_ASO5=0.0
!
-!HNO4/H2O2=0.0
+!NO3/WR_AHSO5=0.0
!
-!HNO4/SO2=0.0
+!NO3/WR_AHMS=0.0
!
-!HNO4/H2SO4=0.0
+RETURN
+END SUBROUTINE SUBJ0
!
-!HNO4/OH=-K029*<HNO4>
- PJAC(:,6,15)=-TPK%K029(:)*PCONC(:,6)
+SUBROUTINE SUBJ1
!
-!HNO4/ETHE=0.0
+!Indices 6 a 10
!
-!HNO4/OLEL=0.0
!
-!HNO4/OLEH=0.0
+!N2O5/O3=0.0
!
-!HNO4/ALKL=0.0
+!N2O5/H2O2=0.0
!
-!HNO4/ALKM=0.0
+!N2O5/NO=0.0
!
-!HNO4/ALKH=0.0
+!N2O5/NO2=+K047*<NO3>
+ PJAC(:,6,4)=+TPK%K047(:)*PCONC(:,5)
!
-!HNO4/AROH=0.0
+!N2O5/NO3=+K047*<NO2>
+ PJAC(:,6,5)=+TPK%K047(:)*PCONC(:,4)
!
-!HNO4/AROL=0.0
+!N2O5/N2O5=-K048-KTC6-KTR6
+ PJAC(:,6,6)=-TPK%K048(:)-TPK%KTC6(:)-TPK%KTR6(:)
!
-!HNO4/AROO=0.0
+!N2O5/HONO=0.0
!
-!HNO4/ARAL=0.0
+!N2O5/HNO3=0.0
!
-!HNO4/ARAC=0.0
+!N2O5/HNO4=0.0
!
-!HNO4/PAH=0.0
+!N2O5/NH3=0.0
!
-!HNO4/HCHO=0.0
+!N2O5/SO2=0.0
!
-!HNO4/ALD2=0.0
+!N2O5/SULF=0.0
!
-!HNO4/KETL=0.0
+!N2O5/CO=0.0
!
-!HNO4/KETH=0.0
+!N2O5/OH=0.0
!
-!HNO4/MEOH=0.0
+!N2O5/HO2=0.0
!
-!HNO4/ETOH=0.0
+!N2O5/CH4=0.0
!
-!HNO4/ALCH=0.0
+!N2O5/ETH=0.0
!
-!HNO4/ISOP=0.0
+!N2O5/ALKA=0.0
!
-!HNO4/BIOL=0.0
+!N2O5/ALKE=0.0
!
-!HNO4/BIOH=0.0
+!N2O5/BIO=0.0
!
-!HNO4/MTBE=0.0
+!N2O5/ARO=0.0
!
-!HNO4/MVK=0.0
+!N2O5/HCHO=0.0
!
-!HNO4/MCR=0.0
+!N2O5/ALD=0.0
!
-!HNO4/MGLY=0.0
+!N2O5/KET=0.0
!
-!HNO4/GLY=0.0
+!N2O5/CARBO=0.0
!
-!HNO4/ORA1=0.0
+!N2O5/ONIT=0.0
!
-!HNO4/ORA2=0.0
+!N2O5/PAN=0.0
!
-!HNO4/ACID=0.0
+!N2O5/OP1=0.0
!
-!HNO4/UR28=0.0
+!N2O5/OP2=0.0
!
-!HNO4/UR21=0.0
+!N2O5/ORA1=0.0
!
-!HNO4/URG2=0.0
+!N2O5/ORA2=0.0
!
-!HNO4/UR26=0.0
+!N2O5/MO2=0.0
!
-!HNO4/RPG2=0.0
+!N2O5/ALKAP=0.0
!
-!HNO4/RP18=0.0
+!N2O5/ALKEP=0.0
!
-!HNO4/RPG3=0.0
+!N2O5/BIOP=0.0
!
-!HNO4/URG4=0.0
+!N2O5/PHO=0.0
!
-!HNO4/UR8=0.0
+!N2O5/ADD=0.0
!
-!HNO4/UR17=0.0
+!N2O5/AROP=0.0
!
-!HNO4/UR7=0.0
+!N2O5/CARBOP=0.0
!
-!HNO4/RPR3=0.0
+!N2O5/OLN=0.0
!
-!HNO4/URG6=0.0
+!N2O5/XO2=0.0
!
-!HNO4/UR22=0.0
+!N2O5/WC_O3=0.0
!
-!HNO4/URG7=0.0
+!N2O5/WC_H2O2=0.0
!
-!HNO4/RPR4=0.0
+!N2O5/WC_NO=0.0
!
-!HNO4/RPR7=0.0
+!N2O5/WC_NO2=0.0
!
-!HNO4/RPG7=0.0
+!N2O5/WC_NO3=0.0
!
-!HNO4/URG8=0.0
+!N2O5/WC_N2O5=+KTC26
+ PJAC(:,6,47)=+TPK%KTC26(:)
!
-!HNO4/UR19=0.0
+!N2O5/WC_HONO=0.0
!
-!HNO4/URG9=0.0
+!N2O5/WC_HNO3=0.0
!
-!HNO4/AP7=0.0
+!N2O5/WC_HNO4=0.0
!
-!HNO4/URG10=0.0
+!N2O5/WC_NH3=0.0
!
-!HNO4/RPR1=0.0
+!N2O5/WC_OH=0.0
!
-!HNO4/RPR5=0.0
+!N2O5/WC_HO2=0.0
!
-!HNO4/RPR8=0.0
+!N2O5/WC_CO2=0.0
!
-!HNO4/RP10=0.0
+!N2O5/WC_SO2=0.0
!
-!HNO4/RP11=0.0
+!N2O5/WC_SULF=0.0
!
-!HNO4/RP16=0.0
+!N2O5/WC_HCHO=0.0
!
-!HNO4/RPRL=0.0
+!N2O5/WC_ORA1=0.0
!
-!HNO4/APAN=0.0
+!N2O5/WC_ORA2=0.0
!
-!HNO4/PAN1=0.0
+!N2O5/WC_MO2=0.0
!
-!HNO4/PAN2=0.0
+!N2O5/WC_OP1=0.0
!
-!HNO4/PAN3=0.0
+!N2O5/WC_ASO3=0.0
!
-!HNO4/PAN4=0.0
+!N2O5/WC_ASO4=0.0
!
-!HNO4/PAN6=0.0
+!N2O5/WC_ASO5=0.0
!
-!HNO4/PAN7=0.0
+!N2O5/WC_AHSO5=0.0
!
-!HNO4/PAN8=0.0
+!N2O5/WC_AHMS=0.0
!
-!HNO4/PN10=0.0
+!N2O5/WR_O3=0.0
!
-!HNO4/RO2T=0.0
+!N2O5/WR_H2O2=0.0
!
-!HNO4/RO21=0.0
+!N2O5/WR_NO=0.0
!
-!HNO4/RO25=0.0
+!N2O5/WR_NO2=0.0
!
-!N2O5/NO=0.0
+!N2O5/WR_NO3=0.0
!
-!N2O5/NO2=+K009*<NO3>
- PJAC(:,7,2)=+TPK%K009(:)*PCONC(:,8)
+!N2O5/WR_N2O5=+KTR26
+ PJAC(:,6,72)=+TPK%KTR26(:)
!
-!N2O5/O3=0.0
+!N2O5/WR_HONO=0.0
!
-!N2O5/HONO=0.0
+!N2O5/WR_HNO3=0.0
!
-!N2O5/HNO3=0.0
+!N2O5/WR_HNO4=0.0
!
-!N2O5/HNO4=0.0
+!N2O5/WR_NH3=0.0
!
-!N2O5/N2O5=-K010-K011*<H2O>
- PJAC(:,7,7)=-TPK%K010(:)-TPK%K011(:)*TPK%H2O(:)
+!N2O5/WR_OH=0.0
!
-!N2O5/NO3=+K009*<NO2>
- PJAC(:,7,8)=+TPK%K009(:)*PCONC(:,2)
+!N2O5/WR_HO2=0.0
!
-!N2O5/NH3=0.0
+!N2O5/WR_CO2=0.0
!
-!N2O5/HO2=0.0
+!N2O5/WR_SO2=0.0
!
-!N2O5/CO=0.0
+!N2O5/WR_SULF=0.0
!
-!N2O5/H2O2=0.0
+!N2O5/WR_HCHO=0.0
!
-!N2O5/SO2=0.0
+!N2O5/WR_ORA1=0.0
!
-!N2O5/H2SO4=0.0
+!N2O5/WR_ORA2=0.0
!
-!N2O5/OH=0.0
+!N2O5/WR_MO2=0.0
!
-!N2O5/ETHE=0.0
+!N2O5/WR_OP1=0.0
!
-!N2O5/OLEL=0.0
+!N2O5/WR_ASO3=0.0
!
-!N2O5/OLEH=0.0
+!N2O5/WR_ASO4=0.0
!
-!N2O5/ALKL=0.0
+!N2O5/WR_ASO5=0.0
!
-!N2O5/ALKM=0.0
+!N2O5/WR_AHSO5=0.0
!
-!N2O5/ALKH=0.0
+!N2O5/WR_AHMS=0.0
!
-!N2O5/AROH=0.0
+!HONO/O3=0.0
!
-!N2O5/AROL=0.0
+!HONO/H2O2=0.0
!
-!N2O5/AROO=0.0
+!HONO/NO=+K032*<OH>
+ PJAC(:,7,3)=+TPK%K032(:)*PCONC(:,14)
!
-!N2O5/ARAL=0.0
+!HONO/NO2=+K085*<ADD>
+ PJAC(:,7,4)=+TPK%K085(:)*PCONC(:,37)
!
-!N2O5/ARAC=0.0
+!HONO/NO3=0.0
!
-!N2O5/PAH=0.0
+!HONO/N2O5=0.0
!
-!N2O5/HCHO=0.0
+!HONO/HONO=-K004-K039*<OH>-KTC7-KTR7
+ PJAC(:,7,7)=-TPK%K004(:)-TPK%K039(:)*PCONC(:,14)-TPK%KTC7(:)-TPK%KTR7(:)
!
-!N2O5/ALD2=0.0
+!HONO/HNO3=0.0
!
-!N2O5/KETL=0.0
+!HONO/HNO4=0.0
!
-!N2O5/KETH=0.0
+!HONO/NH3=0.0
!
-!N2O5/MEOH=0.0
+!HONO/SO2=0.0
!
-!N2O5/ETOH=0.0
+!HONO/SULF=0.0
!
-!N2O5/ALCH=0.0
+!HONO/CO=0.0
!
-!N2O5/ISOP=0.0
+!HONO/OH=+K032*<NO>-K039*<HONO>
+ PJAC(:,7,14)=+TPK%K032(:)*PCONC(:,3)-TPK%K039(:)*PCONC(:,7)
!
-!N2O5/BIOL=0.0
+!HONO/HO2=0.0
!
-!N2O5/BIOH=0.0
+!HONO/CH4=0.0
!
-!N2O5/MTBE=0.0
+!HONO/ETH=0.0
!
-!N2O5/MVK=0.0
+!HONO/ALKA=0.0
!
-!N2O5/MCR=0.0
+!HONO/ALKE=0.0
!
-!N2O5/MGLY=0.0
+!HONO/BIO=0.0
!
-!N2O5/GLY=0.0
+!HONO/ARO=0.0
!
-!N2O5/ORA1=0.0
+!HONO/HCHO=0.0
!
-!N2O5/ORA2=0.0
+!HONO/ALD=0.0
!
-!N2O5/ACID=0.0
+!HONO/KET=0.0
!
-!N2O5/UR28=0.0
+!HONO/CARBO=0.0
!
-!N2O5/UR21=0.0
+!HONO/ONIT=0.0
!
-!N2O5/URG2=0.0
+!HONO/PAN=0.0
!
-!N2O5/UR26=0.0
+!HONO/OP1=0.0
!
-!N2O5/RPG2=0.0
+!HONO/OP2=0.0
!
-!N2O5/RP18=0.0
+!HONO/ORA1=0.0
!
-!N2O5/RPG3=0.0
+!HONO/ORA2=0.0
!
-!N2O5/URG4=0.0
+!HONO/MO2=0.0
!
-!N2O5/UR8=0.0
+!HONO/ALKAP=0.0
!
-!N2O5/UR17=0.0
+!HONO/ALKEP=0.0
!
-!N2O5/UR7=0.0
+!HONO/BIOP=0.0
!
-!N2O5/RPR3=0.0
+!HONO/PHO=0.0
!
-!N2O5/URG6=0.0
+!HONO/ADD=+K085*<NO2>
+ PJAC(:,7,37)=+TPK%K085(:)*PCONC(:,4)
!
-!N2O5/UR22=0.0
+!HONO/AROP=0.0
!
-!N2O5/URG7=0.0
+!HONO/CARBOP=0.0
!
-!N2O5/RPR4=0.0
+!HONO/OLN=0.0
!
-!N2O5/RPR7=0.0
+!HONO/XO2=0.0
!
-!N2O5/RPG7=0.0
+!HONO/WC_O3=0.0
!
-!N2O5/URG8=0.0
+!HONO/WC_H2O2=0.0
!
-!N2O5/UR19=0.0
+!HONO/WC_NO=0.0
!
-!N2O5/URG9=0.0
+!HONO/WC_NO2=0.0
!
-!N2O5/AP7=0.0
+!HONO/WC_NO3=0.0
!
-!N2O5/URG10=0.0
+!HONO/WC_N2O5=0.0
!
-!N2O5/RPR1=0.0
+!HONO/WC_HONO=+KTC27
+ PJAC(:,7,48)=+TPK%KTC27(:)
!
-!N2O5/RPR5=0.0
+!HONO/WC_HNO3=0.0
!
-!N2O5/RPR8=0.0
+!HONO/WC_HNO4=0.0
!
-!N2O5/RP10=0.0
+!HONO/WC_NH3=0.0
!
-!N2O5/RP11=0.0
+!HONO/WC_OH=0.0
!
-!N2O5/RP16=0.0
+!HONO/WC_HO2=0.0
!
-!N2O5/RPRL=0.0
+!HONO/WC_CO2=0.0
!
-!N2O5/APAN=0.0
+!HONO/WC_SO2=0.0
!
-!N2O5/PAN1=0.0
+!HONO/WC_SULF=0.0
!
-!N2O5/PAN2=0.0
+!HONO/WC_HCHO=0.0
!
-!N2O5/PAN3=0.0
+!HONO/WC_ORA1=0.0
!
-!N2O5/PAN4=0.0
+!HONO/WC_ORA2=0.0
!
-!N2O5/PAN6=0.0
+!HONO/WC_MO2=0.0
!
-!N2O5/PAN7=0.0
+!HONO/WC_OP1=0.0
!
-!N2O5/PAN8=0.0
+!HONO/WC_ASO3=0.0
!
-!N2O5/PN10=0.0
+!HONO/WC_ASO4=0.0
!
-!N2O5/RO2T=0.0
+!HONO/WC_ASO5=0.0
!
-!N2O5/RO21=0.0
+!HONO/WC_AHSO5=0.0
!
-!N2O5/RO25=0.0
+!HONO/WC_AHMS=0.0
!
-!NO3/NO=-K007*<NO3>
- PJAC(:,8,1)=-TPK%K007(:)*PCONC(:,8)
+!HONO/WR_O3=0.0
!
-!NO3/NO2=+K004*<O>+K006*<O3>-K009*<NO3>-K012*<NO3>
- PJAC(:,8,2)=+TPK%K004(:)*TPK%O(:)+TPK%K006(:)*PCONC(:,3)-TPK%K009(:)*PCONC(:,8&
-&)-TPK%K012(:)*PCONC(:,8)
+!HONO/WR_H2O2=0.0
!
-!NO3/O3=+K006*<NO2>
- PJAC(:,8,3)=+TPK%K006(:)*PCONC(:,2)
+!HONO/WR_NO=0.0
!
-!NO3/HONO=0.0
+!HONO/WR_NO2=0.0
!
-!NO3/HNO3=+K023*<OH>
- PJAC(:,8,5)=+TPK%K023(:)*PCONC(:,15)
-!
-!NO3/HNO4=0.0
-!
-!NO3/N2O5=+K010
- PJAC(:,8,7)=+TPK%K010(:)
-!
-!NO3/NO3=-K007*<NO>-K009*<NO2>-K012*<NO2>-K013-K014-K033*<HO2>-K040*<OH>-K041*<
-!NO3>-K041*<NO3>-K041*<NO3>-K041*<NO3>-K047*<HCHO>-K050*<ETHE>-K055*<OLEL>-K061
-!*<ALD2>-K065*<ISOP>-K072*<AROO>-K075*<OLEH>-K081*<ARAL>-K085*<BIOL>-K089*<BIOH
-!>-K275*<MCR>-K278*<MGLY>-K307*<RPR1>-K313*<RPR3>-K320*<RPR4>-K327*<RPR8>-K338*
-!<RP16>
- PJAC(:,8,8)=-TPK%K007(:)*PCONC(:,1)-TPK%K009(:)*PCONC(:,2)-TPK%K012(:)*PCONC(:&
-&,2)-TPK%K013(:)-TPK%K014(:)-TPK%K033(:)*PCONC(:,10)-TPK%K040(:)*PCONC(:,15)-TP&
-&K%K041(:)*PCONC(:,8)-TPK%K041(:)*PCONC(:,8)-TPK%K041(:)*PCONC(:,8)-TPK%K041(:)&
-&*PCONC(:,8)-TPK%K047(:)*PCONC(:,28)-TPK%K050(:)*PCONC(:,16)-TPK%K055(:)*PCONC(&
-&:,17)-TPK%K061(:)*PCONC(:,29)-TPK%K065(:)*PCONC(:,35)-TPK%K072(:)*PCONC(:,24)-&
-&TPK%K075(:)*PCONC(:,18)-TPK%K081(:)*PCONC(:,25)-TPK%K085(:)*PCONC(:,36)-TPK%K0&
-&89(:)*PCONC(:,37)-TPK%K275(:)*PCONC(:,40)-TPK%K278(:)*PCONC(:,41)-TPK%K307(:)*&
-&PCONC(:,69)-TPK%K313(:)*PCONC(:,57)-TPK%K320(:)*PCONC(:,61)-TPK%K327(:)*PCONC(&
-&:,71)-TPK%K338(:)*PCONC(:,74)
+!HONO/WR_NO3=0.0
!
-!NO3/NH3=0.0
+!HONO/WR_N2O5=0.0
!
-!NO3/HO2=-K033*<NO3>
- PJAC(:,8,10)=-TPK%K033(:)*PCONC(:,8)
+!HONO/WR_HONO=+KTR27
+ PJAC(:,7,73)=+TPK%KTR27(:)
!
-!NO3/CO=0.0
+!HONO/WR_HNO3=0.0
!
-!NO3/H2O2=0.0
+!HONO/WR_HNO4=0.0
!
-!NO3/SO2=0.0
+!HONO/WR_NH3=0.0
!
-!NO3/H2SO4=0.0
+!HONO/WR_OH=0.0
!
-!NO3/OH=+K023*<HNO3>-K040*<NO3>
- PJAC(:,8,15)=+TPK%K023(:)*PCONC(:,5)-TPK%K040(:)*PCONC(:,8)
+!HONO/WR_HO2=0.0
!
-!NO3/ETHE=-K050*<NO3>
- PJAC(:,8,16)=-TPK%K050(:)*PCONC(:,8)
+!HONO/WR_CO2=0.0
!
-!NO3/OLEL=-K055*<NO3>
- PJAC(:,8,17)=-TPK%K055(:)*PCONC(:,8)
+!HONO/WR_SO2=0.0
!
-!NO3/OLEH=-K075*<NO3>
- PJAC(:,8,18)=-TPK%K075(:)*PCONC(:,8)
+!HONO/WR_SULF=0.0
!
-!NO3/ALKL=0.0
+!HONO/WR_HCHO=0.0
!
-!NO3/ALKM=0.0
+!HONO/WR_ORA1=0.0
!
-!NO3/ALKH=0.0
+!HONO/WR_ORA2=0.0
!
-!NO3/AROH=0.0
+!HONO/WR_MO2=0.0
!
-!NO3/AROL=0.0
+!HONO/WR_OP1=0.0
!
-!NO3/AROO=-K072*<NO3>
- PJAC(:,8,24)=-TPK%K072(:)*PCONC(:,8)
+!HONO/WR_ASO3=0.0
!
-!NO3/ARAL=-K081*<NO3>
- PJAC(:,8,25)=-TPK%K081(:)*PCONC(:,8)
+!HONO/WR_ASO4=0.0
!
-!NO3/ARAC=0.0
+!HONO/WR_ASO5=0.0
!
-!NO3/PAH=0.0
+!HONO/WR_AHSO5=0.0
!
-!NO3/HCHO=-K047*<NO3>
- PJAC(:,8,28)=-TPK%K047(:)*PCONC(:,8)
+!HONO/WR_AHMS=0.0
!
-!NO3/ALD2=-K061*<NO3>
- PJAC(:,8,29)=-TPK%K061(:)*PCONC(:,8)
+!HNO3/O3=0.0
!
-!NO3/KETL=0.0
+!HNO3/H2O2=0.0
!
-!NO3/KETH=0.0
+!HNO3/NO=0.0
!
-!NO3/MEOH=0.0
+!HNO3/NO2=+K033*<OH>
+ PJAC(:,8,4)=+TPK%K033(:)*PCONC(:,14)
!
-!NO3/ETOH=0.0
+!HNO3/NO3=+0.3*K038*<HO2>+K072*<HCHO>+K073*<ALD>+0.91567*K074*<CARBO>+K075*<ARO
+!>
+ PJAC(:,8,5)=+0.3*TPK%K038(:)*PCONC(:,15)+TPK%K072(:)*PCONC(:,22)+TPK%K073(:)*P&
+&CONC(:,23)+0.91567*TPK%K074(:)*PCONC(:,25)+TPK%K075(:)*PCONC(:,21)
!
-!NO3/ALCH=0.0
+!HNO3/N2O5=0.0
!
-!NO3/ISOP=-K065*<NO3>
- PJAC(:,8,35)=-TPK%K065(:)*PCONC(:,8)
+!HNO3/HONO=0.0
!
-!NO3/BIOL=-K085*<NO3>
- PJAC(:,8,36)=-TPK%K085(:)*PCONC(:,8)
+!HNO3/HNO3=-K005-K040*<OH>-KTC8-KTR8
+ PJAC(:,8,8)=-TPK%K005(:)-TPK%K040(:)*PCONC(:,14)-TPK%KTC8(:)-TPK%KTR8(:)
!
-!NO3/BIOH=-K089*<NO3>
- PJAC(:,8,37)=-TPK%K089(:)*PCONC(:,8)
+!HNO3/HNO4=0.0
!
-!NO3/MTBE=0.0
+!HNO3/NH3=0.0
!
-!NO3/MVK=0.0
+!HNO3/SO2=0.0
!
-!NO3/MCR=-K275*<NO3>
- PJAC(:,8,40)=-TPK%K275(:)*PCONC(:,8)
+!HNO3/SULF=0.0
!
-!NO3/MGLY=-K278*<NO3>
- PJAC(:,8,41)=-TPK%K278(:)*PCONC(:,8)
+!HNO3/CO=0.0
!
-!NO3/GLY=0.0
+!HNO3/OH=+K033*<NO2>-K040*<HNO3>
+ PJAC(:,8,14)=+TPK%K033(:)*PCONC(:,4)-TPK%K040(:)*PCONC(:,8)
!
-!NO3/ORA1=0.0
+!HNO3/HO2=+0.3*K038*<NO3>
+ PJAC(:,8,15)=+0.3*TPK%K038(:)*PCONC(:,5)
!
-!NO3/ORA2=0.0
+!HNO3/CH4=0.0
!
-!NO3/ACID=0.0
+!HNO3/ETH=0.0
!
-!NO3/UR28=0.0
+!HNO3/ALKA=0.0
!
-!NO3/UR21=0.0
+!HNO3/ALKE=0.0
!
-!NO3/URG2=0.0
+!HNO3/BIO=0.0
!
-!NO3/UR26=0.0
+!HNO3/ARO=+K075*<NO3>
+ PJAC(:,8,21)=+TPK%K075(:)*PCONC(:,5)
!
-!NO3/RPG2=0.0
+!HNO3/HCHO=+K072*<NO3>
+ PJAC(:,8,22)=+TPK%K072(:)*PCONC(:,5)
!
-!NO3/RP18=0.0
+!HNO3/ALD=+K073*<NO3>
+ PJAC(:,8,23)=+TPK%K073(:)*PCONC(:,5)
!
-!NO3/RPG3=0.0
+!HNO3/KET=0.0
!
-!NO3/URG4=0.0
+!HNO3/CARBO=+0.91567*K074*<NO3>
+ PJAC(:,8,25)=+0.91567*TPK%K074(:)*PCONC(:,5)
!
-!NO3/UR8=0.0
+!HNO3/ONIT=0.0
!
-!NO3/UR17=0.0
+!HNO3/PAN=0.0
!
-!NO3/UR7=0.0
+!HNO3/OP1=0.0
!
-!NO3/RPR3=-K313*<NO3>
- PJAC(:,8,57)=-TPK%K313(:)*PCONC(:,8)
+!HNO3/OP2=0.0
!
-!NO3/URG6=0.0
+!HNO3/ORA1=0.0
!
-!NO3/UR22=0.0
+!HNO3/ORA2=0.0
!
-!NO3/URG7=0.0
+!HNO3/MO2=0.0
!
-!NO3/RPR4=-K320*<NO3>
- PJAC(:,8,61)=-TPK%K320(:)*PCONC(:,8)
+!HNO3/ALKAP=0.0
!
-!NO3/RPR7=0.0
+!HNO3/ALKEP=0.0
!
-!NO3/RPG7=0.0
+!HNO3/BIOP=0.0
!
-!NO3/URG8=0.0
+!HNO3/PHO=0.0
!
-!NO3/UR19=0.0
+!HNO3/ADD=0.0
!
-!NO3/URG9=0.0
+!HNO3/AROP=0.0
!
-!NO3/AP7=0.0
+!HNO3/CARBOP=0.0
!
-!NO3/URG10=0.0
+!HNO3/OLN=0.0
!
-!NO3/RPR1=-K307*<NO3>
- PJAC(:,8,69)=-TPK%K307(:)*PCONC(:,8)
+!HNO3/XO2=0.0
!
-!NO3/RPR5=0.0
+!HNO3/WC_O3=0.0
!
-!NO3/RPR8=-K327*<NO3>
- PJAC(:,8,71)=-TPK%K327(:)*PCONC(:,8)
+!HNO3/WC_H2O2=0.0
!
-!NO3/RP10=0.0
+!HNO3/WC_NO=0.0
!
-!NO3/RP11=0.0
+!HNO3/WC_NO2=0.0
!
-!NO3/RP16=-K338*<NO3>
- PJAC(:,8,74)=-TPK%K338(:)*PCONC(:,8)
+!HNO3/WC_NO3=0.0
!
-!NO3/RPRL=0.0
+!HNO3/WC_N2O5=0.0
!
-!NO3/APAN=0.0
+!HNO3/WC_HONO=0.0
!
-!NO3/PAN1=0.0
+!HNO3/WC_HNO3=+KTC28
+ PJAC(:,8,49)=+TPK%KTC28(:)
!
-!NO3/PAN2=0.0
+!HNO3/WC_HNO4=0.0
!
-!NO3/PAN3=0.0
+!HNO3/WC_NH3=0.0
!
-!NO3/PAN4=0.0
+!HNO3/WC_OH=0.0
!
-!NO3/PAN6=0.0
+!HNO3/WC_HO2=0.0
!
-!NO3/PAN7=0.0
+!HNO3/WC_CO2=0.0
!
-!NO3/PAN8=0.0
+!HNO3/WC_SO2=0.0
!
-!NO3/PN10=0.0
+!HNO3/WC_SULF=0.0
!
-!NO3/RO2T=0.0
+!HNO3/WC_HCHO=0.0
!
-!NO3/RO21=0.0
+!HNO3/WC_ORA1=0.0
!
-!NO3/RO25=0.0
+!HNO3/WC_ORA2=0.0
!
-!NH3/NO=0.0
+!HNO3/WC_MO2=0.0
!
-!NH3/NO2=0.0
+!HNO3/WC_OP1=0.0
!
-!NH3/O3=0.0
+!HNO3/WC_ASO3=0.0
!
-!NH3/HONO=0.0
+!HNO3/WC_ASO4=0.0
!
-!NH3/HNO3=0.0
+!HNO3/WC_ASO5=0.0
!
-!NH3/HNO4=0.0
+!HNO3/WC_AHSO5=0.0
!
-!NH3/N2O5=0.0
+!HNO3/WC_AHMS=0.0
!
-!NH3/NO3=0.0
+!HNO3/WR_O3=0.0
!
-!NH3/NH3=-K345*<OH>
- PJAC(:,9,9)=-TPK%K345(:)*PCONC(:,15)
+!HNO3/WR_H2O2=0.0
!
-!NH3/HO2=0.0
+!HNO3/WR_NO=0.0
!
-!NH3/CO=0.0
+!HNO3/WR_NO2=0.0
!
-!NH3/H2O2=0.0
+!HNO3/WR_NO3=0.0
!
-!NH3/SO2=0.0
+!HNO3/WR_N2O5=0.0
!
-!NH3/H2SO4=0.0
+!HNO3/WR_HONO=0.0
!
-!NH3/OH=-K345*<NH3>
- PJAC(:,9,15)=-TPK%K345(:)*PCONC(:,9)
+!HNO3/WR_HNO3=+KTR28
+ PJAC(:,8,74)=+TPK%KTR28(:)
!
-!NH3/ETHE=0.0
+!HNO3/WR_HNO4=0.0
!
-!NH3/OLEL=0.0
+!HNO3/WR_NH3=0.0
!
-!NH3/OLEH=0.0
+!HNO3/WR_OH=0.0
!
-!NH3/ALKL=0.0
+!HNO3/WR_HO2=0.0
!
-!NH3/ALKM=0.0
+!HNO3/WR_CO2=0.0
!
-!NH3/ALKH=0.0
+!HNO3/WR_SO2=0.0
!
-!NH3/AROH=0.0
+!HNO3/WR_SULF=0.0
!
-!NH3/AROL=0.0
+!HNO3/WR_HCHO=0.0
!
-!NH3/AROO=0.0
+!HNO3/WR_ORA1=0.0
!
-!NH3/ARAL=0.0
+!HNO3/WR_ORA2=0.0
!
-!NH3/ARAC=0.0
+!HNO3/WR_MO2=0.0
!
-!NH3/PAH=0.0
+!HNO3/WR_OP1=0.0
!
-!NH3/HCHO=0.0
+!HNO3/WR_ASO3=0.0
!
-!NH3/ALD2=0.0
+!HNO3/WR_ASO4=0.0
!
-!NH3/KETL=0.0
+!HNO3/WR_ASO5=0.0
!
-!NH3/KETH=0.0
+!HNO3/WR_AHSO5=0.0
!
-!NH3/MEOH=0.0
+!HNO3/WR_AHMS=0.0
!
-!NH3/ETOH=0.0
+!HNO4/O3=0.0
!
-!NH3/ALCH=0.0
+!HNO4/H2O2=0.0
!
-!NH3/ISOP=0.0
+!HNO4/NO=0.0
!
-!NH3/BIOL=0.0
+!HNO4/NO2=+K036*<HO2>
+ PJAC(:,9,4)=+TPK%K036(:)*PCONC(:,15)
!
-!NH3/BIOH=0.0
+!HNO4/NO3=0.0
!
-!NH3/MTBE=0.0
+!HNO4/N2O5=0.0
!
-!NH3/MVK=0.0
+!HNO4/HONO=0.0
!
-!NH3/MCR=0.0
+!HNO4/HNO3=0.0
!
-!NH3/MGLY=0.0
+!HNO4/HNO4=-K006-K037-K041*<OH>-KTC9-KTR9
+ PJAC(:,9,9)=-TPK%K006(:)-TPK%K037(:)-TPK%K041(:)*PCONC(:,14)-TPK%KTC9(:)-TPK%K&
+&TR9(:)
!
-!NH3/GLY=0.0
+!HNO4/NH3=0.0
!
-!NH3/ORA1=0.0
+!HNO4/SO2=0.0
!
-!NH3/ORA2=0.0
+!HNO4/SULF=0.0
!
-!NH3/ACID=0.0
+!HNO4/CO=0.0
!
-!NH3/UR28=0.0
+!HNO4/OH=-K041*<HNO4>
+ PJAC(:,9,14)=-TPK%K041(:)*PCONC(:,9)
!
-!NH3/UR21=0.0
+!HNO4/HO2=+K036*<NO2>
+ PJAC(:,9,15)=+TPK%K036(:)*PCONC(:,4)
!
-!NH3/URG2=0.0
+!HNO4/CH4=0.0
!
-!NH3/UR26=0.0
+!HNO4/ETH=0.0
!
-!NH3/RPG2=0.0
+!HNO4/ALKA=0.0
!
-!NH3/RP18=0.0
+!HNO4/ALKE=0.0
!
-!NH3/RPG3=0.0
+!HNO4/BIO=0.0
!
-!NH3/URG4=0.0
+!HNO4/ARO=0.0
!
-!NH3/UR8=0.0
+!HNO4/HCHO=0.0
!
-!NH3/UR17=0.0
+!HNO4/ALD=0.0
!
-!NH3/UR7=0.0
+!HNO4/KET=0.0
!
-!NH3/RPR3=0.0
+!HNO4/CARBO=0.0
!
-!NH3/URG6=0.0
+!HNO4/ONIT=0.0
!
-!NH3/UR22=0.0
+!HNO4/PAN=0.0
!
-!NH3/URG7=0.0
+!HNO4/OP1=0.0
!
-!NH3/RPR4=0.0
+!HNO4/OP2=0.0
!
-!NH3/RPR7=0.0
+!HNO4/ORA1=0.0
!
-!NH3/RPG7=0.0
+!HNO4/ORA2=0.0
!
-!NH3/URG8=0.0
+!HNO4/MO2=0.0
!
-!NH3/UR19=0.0
+!HNO4/ALKAP=0.0
!
-!NH3/URG9=0.0
+!HNO4/ALKEP=0.0
!
-!NH3/AP7=0.0
+!HNO4/BIOP=0.0
!
-!NH3/URG10=0.0
+!HNO4/PHO=0.0
!
-!NH3/RPR1=0.0
+!HNO4/ADD=0.0
!
-!NH3/RPR5=0.0
+!HNO4/AROP=0.0
!
-!NH3/RPR8=0.0
+!HNO4/CARBOP=0.0
!
-!NH3/RP10=0.0
+!HNO4/OLN=0.0
!
-!NH3/RP11=0.0
+!HNO4/XO2=0.0
!
-!NH3/RP16=0.0
+!HNO4/WC_O3=0.0
!
-!NH3/RPRL=0.0
+!HNO4/WC_H2O2=0.0
!
-!NH3/APAN=0.0
+!HNO4/WC_NO=0.0
!
-!NH3/PAN1=0.0
+!HNO4/WC_NO2=0.0
!
-!NH3/PAN2=0.0
+!HNO4/WC_NO3=0.0
!
-!NH3/PAN3=0.0
+!HNO4/WC_N2O5=0.0
!
-!NH3/PAN4=0.0
+!HNO4/WC_HONO=0.0
!
-!NH3/PAN6=0.0
+!HNO4/WC_HNO3=0.0
!
-!NH3/PAN7=0.0
+!HNO4/WC_HNO4=+KTC29
+ PJAC(:,9,50)=+TPK%KTC29(:)
!
-!NH3/PAN8=0.0
+!HNO4/WC_NH3=0.0
!
-!NH3/PN10=0.0
+!HNO4/WC_OH=0.0
!
-!NH3/RO2T=0.0
+!HNO4/WC_HO2=0.0
!
-!NH3/RO21=0.0
+!HNO4/WC_CO2=0.0
!
-!NH3/RO25=0.0
+!HNO4/WC_SO2=0.0
!
-!HO2/NO=-K026*<HO2>+K110*<RO21>+K113*<RO22>+K119*<RO24>+TPK%CF4*K122*<RO25>+TPK
-!%CF6*K150*<RO29>+K153*<RO210>+K171*<RO215>+TPK%CF22*K177*<RO217>+TPK%CF20*K180
-!*<RO218>+TPK%CF24*K189*<RO221>+TPK%CF42*K192*<RO222>+TPK%CF44*K195*<RO223>+TPK
-!%CF26*K198*<RO224>+TPK%CF28*K207*<RO227>+TPK%CF32*K221*<RO231>+TPK%CF36*K227*<
-!RO241>+K231*<RO233>+K234*<RO242>+K238*<RO234>+K241*<RO243>+K245*<RO235>+K248*<
-!RO244>+K252*<RO236>+K255*<RO245>+K259*<RO237>+K262*<RO246>+K266*<RO238>+K269*<
-!RO247>+K285*<RO249>+K291*<RO251>+K300*<RO254>+K315*<RO256>
- PJAC(:,10,1)=-TPK%K026(:)*PCONC(:,10)+TPK%K110(:)*PCONC(:,86)+TPK%K113(:)*TPK%&
-&RO22(:)+TPK%K119(:)*TPK%RO24(:)+TPK%CF4*TPK%K122(:)*PCONC(:,87)+TPK%CF6*TPK%K1&
-&50(:)*TPK%RO29(:)+TPK%K153(:)*TPK%RO210(:)+TPK%K171(:)*TPK%RO215(:)+TPK%CF22*T&
-&PK%K177(:)*TPK%RO217(:)+TPK%CF20*TPK%K180(:)*TPK%RO218(:)+TPK%CF24*TPK%K189(:)&
-&*TPK%RO221(:)+TPK%CF42*TPK%K192(:)*TPK%RO222(:)+TPK%CF44*TPK%K195(:)*TPK%RO223&
-&(:)+TPK%CF26*TPK%K198(:)*TPK%RO224(:)+TPK%CF28*TPK%K207(:)*TPK%RO227(:)+TPK%CF&
-&32*TPK%K221(:)*TPK%RO231(:)+TPK%CF36*TPK%K227(:)*TPK%RO241(:)+TPK%K231(:)*TPK%&
-&RO233(:)+TPK%K234(:)*TPK%RO242(:)+TPK%K238(:)*TPK%RO234(:)+TPK%K241(:)*TPK%RO2&
-&43(:)+TPK%K245(:)*TPK%RO235(:)+TPK%K248(:)*TPK%RO244(:)+TPK%K252(:)*TPK%RO236(&
-&:)+TPK%K255(:)*TPK%RO245(:)+TPK%K259(:)*TPK%RO237(:)+TPK%K262(:)*TPK%RO246(:)+&
-&TPK%K266(:)*TPK%RO238(:)+TPK%K269(:)*TPK%RO247(:)+TPK%K285(:)*TPK%RO249(:)+TPK&
-&%K291(:)*TPK%RO251(:)+TPK%K300(:)*TPK%RO254(:)+TPK%K315(:)*TPK%RO256(:)
+!HNO4/WC_SULF=0.0
!
-!HO2/NO2=-K027*<HO2>
- PJAC(:,10,2)=-TPK%K027(:)*PCONC(:,10)
+!HNO4/WC_HCHO=0.0
!
-!HO2/O3=+K025*<OH>-K030*<HO2>+0.06*K051*<ETHE>+0.28*K056*<OLEL>+0.366*K066*<ISO
-!P>+0.28*K076*<OLEH>+0.445*K086*<BIOL>+0.28*K281*<MVK>+0.41*K282*<MCR>
- PJAC(:,10,3)=+TPK%K025(:)*PCONC(:,15)-TPK%K030(:)*PCONC(:,10)+0.06*TPK%K051(:)&
-&*PCONC(:,16)+0.28*TPK%K056(:)*PCONC(:,17)+0.366*TPK%K066(:)*PCONC(:,35)+0.28*T&
-&PK%K076(:)*PCONC(:,18)+0.445*TPK%K086(:)*PCONC(:,36)+0.28*TPK%K281(:)*PCONC(:,&
-&39)+0.41*TPK%K282(:)*PCONC(:,40)
+!HNO4/WC_ORA1=0.0
!
-!HO2/HONO=+0.1*K020
- PJAC(:,10,4)=+0.1*TPK%K020(:)
+!HNO4/WC_ORA2=0.0
!
-!HO2/HNO3=0.0
+!HNO4/WC_MO2=0.0
!
-!HO2/HNO4=+K028
- PJAC(:,10,6)=+TPK%K028(:)
+!HNO4/WC_OP1=0.0
!
-!HO2/N2O5=0.0
+!HNO4/WC_ASO3=0.0
!
-!HO2/NO3=-K033*<HO2>+K040*<OH>+K047*<HCHO>
- PJAC(:,10,8)=-TPK%K033(:)*PCONC(:,10)+TPK%K040(:)*PCONC(:,15)+TPK%K047(:)*PCON&
-&C(:,28)
+!HNO4/WC_ASO4=0.0
!
-!HO2/NH3=0.0
+!HNO4/WC_ASO5=0.0
!
-!HO2/HO2=-K026*<NO>-K027*<NO2>-K030*<O3>-K031*<HO2>-K031*<HO2>-K031*<HO2>-K031*
-!<HO2>-K032*<H2O>*<HO2>-K032*<H2O>*<HO2>-K032*<H2O>*<HO2>-K032*<H2O>*<HO2>-K033
-!*<NO3>-K042*<OH>+K094*<RO2T>-K094*<RO2T>+K112*<RO21>-K112*<RO21>+K115*<RO22>-K
-!115*<RO22>+K118*<RO23>-K118*<RO23>+K121*<RO24>-K121*<RO24>+K124*<RO25>-K124*<R
-!O25>-K142*<RO26>-K146*<RO27>-K148*<RO28>+K152*<RO29>-K152*<RO29>+K155*<RO210>-
-!K155*<RO210>-K158*<RO211>-K161*<RO212>-K164*<RO213>-K166*<RO239>-K170*<RO214>+
-!K173*<RO215>-K173*<RO215>-K176*<RO216>+K179*<RO217>-K179*<RO217>+K182*<RO218>-
-!K182*<RO218>-K185*<RO219>-K188*<RO220>+K191*<RO221>-K191*<RO221>+K194*<RO222>-
-!K194*<RO222>+K197*<RO223>-K197*<RO223>+K200*<RO224>-K200*<RO224>-K203*<RO225>-
-!K206*<RO226>+K209*<RO227>-K209*<RO227>-K212*<RO228>-K215*<RO229>-K218*<RO240>-
-!K220*<RO230>+K223*<RO231>-K223*<RO231>-K226*<RO232>+K229*<RO241>-K229*<RO241>+
-!K233*<RO233>-K233*<RO233>+K236*<RO242>-K236*<RO242>+K240*<RO234>-K240*<RO234>+
-!K243*<RO243>-K243*<RO243>+K247*<RO235>-K247*<RO235>+K250*<RO244>-K250*<RO244>+
-!K254*<RO236>-K254*<RO236>+K257*<RO245>-K257*<RO245>+K261*<RO237>-K261*<RO237>+
-!K264*<RO246>-K264*<RO246>+K268*<RO238>-K268*<RO238>+K271*<RO247>-K271*<RO247>-
-!K279*<RO248>+K287*<RO249>-K287*<RO249>-K289*<RO250>+K292*<RO251>-K292*<RO251>-
-!K295*<RO252>-K298*<RO253>-K301*<RO254>-K310*<RO255>-K318*<RO256>-K332*<RO257>-
-!K341*<RO258>
- PJAC(:,10,10)=-TPK%K026(:)*PCONC(:,1)-TPK%K027(:)*PCONC(:,2)-TPK%K030(:)*PCONC&
-&(:,3)-TPK%K031(:)*PCONC(:,10)-TPK%K031(:)*PCONC(:,10)-TPK%K031(:)*PCONC(:,10)-&
-&TPK%K031(:)*PCONC(:,10)-TPK%K032(:)*TPK%H2O(:)*PCONC(:,10)-TPK%K032(:)*TPK%H2O&
-&(:)*PCONC(:,10)-TPK%K032(:)*TPK%H2O(:)*PCONC(:,10)-TPK%K032(:)*TPK%H2O(:)*PCON&
-&C(:,10)-TPK%K033(:)*PCONC(:,8)-TPK%K042(:)*PCONC(:,15)+TPK%K094(:)*PCONC(:,85)&
-&-TPK%K094(:)*PCONC(:,85)+TPK%K112(:)*PCONC(:,86)-TPK%K112(:)*PCONC(:,86)+TPK%K&
-&115(:)*TPK%RO22(:)-TPK%K115(:)*TPK%RO22(:)+TPK%K118(:)*TPK%RO23(:)-TPK%K118(:)&
-&*TPK%RO23(:)+TPK%K121(:)*TPK%RO24(:)-TPK%K121(:)*TPK%RO24(:)+TPK%K124(:)*PCONC&
-&(:,87)-TPK%K124(:)*PCONC(:,87)-TPK%K142(:)*TPK%RO26(:)-TPK%K146(:)*TPK%RO27(:)&
-&-TPK%K148(:)*TPK%RO28(:)+TPK%K152(:)*TPK%RO29(:)-TPK%K152(:)*TPK%RO29(:)+TPK%K&
-&155(:)*TPK%RO210(:)-TPK%K155(:)*TPK%RO210(:)-TPK%K158(:)*TPK%RO211(:)-TPK%K161&
-&(:)*TPK%RO212(:)-TPK%K164(:)*TPK%RO213(:)-TPK%K166(:)*TPK%RO239(:)-TPK%K170(:)&
-&*TPK%RO214(:)+TPK%K173(:)*TPK%RO215(:)-TPK%K173(:)*TPK%RO215(:)-TPK%K176(:)*TP&
-&K%RO216(:)+TPK%K179(:)*TPK%RO217(:)-TPK%K179(:)*TPK%RO217(:)+TPK%K182(:)*TPK%R&
-&O218(:)-TPK%K182(:)*TPK%RO218(:)-TPK%K185(:)*TPK%RO219(:)-TPK%K188(:)*TPK%RO22&
-&0(:)+TPK%K191(:)*TPK%RO221(:)-TPK%K191(:)*TPK%RO221(:)+TPK%K194(:)*TPK%RO222(:&
-&)-TPK%K194(:)*TPK%RO222(:)+TPK%K197(:)*TPK%RO223(:)-TPK%K197(:)*TPK%RO223(:)+T&
-&PK%K200(:)*TPK%RO224(:)-TPK%K200(:)*TPK%RO224(:)-TPK%K203(:)*TPK%RO225(:)-TPK%&
-&K206(:)*TPK%RO226(:)+TPK%K209(:)*TPK%RO227(:)-TPK%K209(:)*TPK%RO227(:)-TPK%K21&
-&2(:)*TPK%RO228(:)-TPK%K215(:)*TPK%RO229(:)-TPK%K218(:)*TPK%RO240(:)-TPK%K220(:&
-&)*TPK%RO230(:)+TPK%K223(:)*TPK%RO231(:)-TPK%K223(:)*TPK%RO231(:)-TPK%K226(:)*T&
-&PK%RO232(:)+TPK%K229(:)*TPK%RO241(:)-TPK%K229(:)*TPK%RO241(:)+TPK%K233(:)*TPK%&
-&RO233(:)-TPK%K233(:)*TPK%RO233(:)+TPK%K236(:)*TPK%RO242(:)-TPK%K236(:)*TPK%RO2&
-&42(:)+TPK%K240(:)*TPK%RO234(:)-TPK%K240(:)*TPK%RO234(:)+TPK%K243(:)*TPK%RO243(&
-&:)-TPK%K243(:)*TPK%RO243(:)+TPK%K247(:)*TPK%RO235(:)-TPK%K247(:)*TPK%RO235(:)+&
-&TPK%K250(:)*TPK%RO244(:)-TPK%K250(:)*TPK%RO244(:)+TPK%K254(:)*TPK%RO236(:)-TPK&
-&%K254(:)*TPK%RO236(:)+TPK%K257(:)*TPK%RO245(:)-TPK%K257(:)*TPK%RO245(:)+TPK%K2&
-&61(:)*TPK%RO237(:)-TPK%K261(:)*TPK%RO237(:)+TPK%K264(:)*TPK%RO246(:)-TPK%K264(&
-&:)*TPK%RO246(:)+TPK%K268(:)*TPK%RO238(:)-TPK%K268(:)*TPK%RO238(:)+TPK%K271(:)*&
-&TPK%RO247(:)-TPK%K271(:)*TPK%RO247(:)-TPK%K279(:)*TPK%RO248(:)+TPK%K287(:)*TPK&
-&%RO249(:)-TPK%K287(:)*TPK%RO249(:)-TPK%K289(:)*TPK%RO250(:)+TPK%K292(:)*TPK%RO&
-&251(:)-TPK%K292(:)*TPK%RO251(:)-TPK%K295(:)*TPK%RO252(:)-TPK%K298(:)*TPK%RO253&
-&(:)-TPK%K301(:)*TPK%RO254(:)-TPK%K310(:)*TPK%RO255(:)-TPK%K318(:)*TPK%RO256(:)&
-&-TPK%K332(:)*TPK%RO257(:)-TPK%K341(:)*TPK%RO258(:)
-!
-!HO2/CO=+K024*<OH>
- PJAC(:,10,11)=+TPK%K024(:)*PCONC(:,15)
-!
-!HO2/H2O2=+K037*<OH>
- PJAC(:,10,12)=+TPK%K037(:)*PCONC(:,15)
-!
-!HO2/SO2=+K035*<OH>
- PJAC(:,10,13)=+TPK%K035(:)*PCONC(:,15)
-!
-!HO2/H2SO4=0.0
-!
-!HO2/OH=+K024*<CO>+K025*<O3>+K035*<SO2>+K037*<H2O2>+K040*<NO3>-K042*<HO2>+K046*
-!<HCHO>+K048*<MEOH>+TPK%CF1*K053*<ETOH>+0.16*K073*<AROO>+0.16*K079*<AROL>+0.16*
-!K080*<AROH>+TPK%CF48*K082*<ARAL>+0.16*K083*<ARAC>+0.16*K092*<PAH>+K325*<RP10>+
-!K347*<ORA1>
- PJAC(:,10,15)=+TPK%K024(:)*PCONC(:,11)+TPK%K025(:)*PCONC(:,3)+TPK%K035(:)*PCON&
-&C(:,13)+TPK%K037(:)*PCONC(:,12)+TPK%K040(:)*PCONC(:,8)-TPK%K042(:)*PCONC(:,10)&
-&+TPK%K046(:)*PCONC(:,28)+TPK%K048(:)*PCONC(:,32)+TPK%CF1*TPK%K053(:)*PCONC(:,3&
-&3)+0.16*TPK%K073(:)*PCONC(:,24)+0.16*TPK%K079(:)*PCONC(:,23)+0.16*TPK%K080(:)*&
-&PCONC(:,22)+TPK%CF48*TPK%K082(:)*PCONC(:,25)+0.16*TPK%K083(:)*PCONC(:,26)+0.16&
-&*TPK%K092(:)*PCONC(:,27)+TPK%K325(:)*PCONC(:,72)+TPK%K347(:)*PCONC(:,43)
-!
-!HO2/ETHE=+0.06*K051*<O3>+K052*<O>
- PJAC(:,10,16)=+0.06*TPK%K051(:)*PCONC(:,3)+TPK%K052(:)*TPK%O(:)
-!
-!HO2/OLEL=+0.28*K056*<O3>
- PJAC(:,10,17)=+0.28*TPK%K056(:)*PCONC(:,3)
-!
-!HO2/OLEH=+0.28*K076*<O3>
- PJAC(:,10,18)=+0.28*TPK%K076(:)*PCONC(:,3)
-!
-!HO2/ALKL=0.0
-!
-!HO2/ALKM=0.0
-!
-!HO2/ALKH=0.0
-!
-!HO2/AROH=+0.16*K080*<OH>
- PJAC(:,10,22)=+0.16*TPK%K080(:)*PCONC(:,15)
-!
-!HO2/AROL=+0.16*K079*<OH>
- PJAC(:,10,23)=+0.16*TPK%K079(:)*PCONC(:,15)
-!
-!HO2/AROO=+0.16*K073*<OH>
- PJAC(:,10,24)=+0.16*TPK%K073(:)*PCONC(:,15)
-!
-!HO2/ARAL=+TPK%CF48*K082*<OH>
- PJAC(:,10,25)=+TPK%CF48*TPK%K082(:)*PCONC(:,15)
-!
-!HO2/ARAC=+0.16*K083*<OH>
- PJAC(:,10,26)=+0.16*TPK%K083(:)*PCONC(:,15)
-!
-!HO2/PAH=+0.16*K092*<OH>
- PJAC(:,10,27)=+0.16*TPK%K092(:)*PCONC(:,15)
-!
-!HO2/HCHO=+2.0*K044+K046*<OH>+K047*<NO3>
- PJAC(:,10,28)=+2.0*TPK%K044(:)+TPK%K046(:)*PCONC(:,15)+TPK%K047(:)*PCONC(:,8)
-!
-!HO2/ALD2=+K059
- PJAC(:,10,29)=+TPK%K059(:)
+!HNO4/WC_AHSO5=0.0
!
-!HO2/KETL=0.0
+!HNO4/WC_AHMS=0.0
!
-!HO2/KETH=0.0
+!HNO4/WR_O3=0.0
!
-!HO2/MEOH=+K048*<OH>
- PJAC(:,10,32)=+TPK%K048(:)*PCONC(:,15)
+!HNO4/WR_H2O2=0.0
!
-!HO2/ETOH=+TPK%CF1*K053*<OH>
- PJAC(:,10,33)=+TPK%CF1*TPK%K053(:)*PCONC(:,15)
+!HNO4/WR_NO=0.0
!
-!HO2/ALCH=0.0
+!HNO4/WR_NO2=0.0
!
-!HO2/ISOP=+0.366*K066*<O3>
- PJAC(:,10,35)=+0.366*TPK%K066(:)*PCONC(:,3)
+!HNO4/WR_NO3=0.0
!
-!HO2/BIOL=+0.445*K086*<O3>
- PJAC(:,10,36)=+0.445*TPK%K086(:)*PCONC(:,3)
+!HNO4/WR_N2O5=0.0
!
-!HO2/BIOH=0.0
+!HNO4/WR_HONO=0.0
!
-!HO2/MTBE=0.0
+!HNO4/WR_HNO3=0.0
!
-!HO2/MVK=+0.28*K281*<O3>
- PJAC(:,10,39)=+0.28*TPK%K281(:)*PCONC(:,3)
+!HNO4/WR_HNO4=+KTR29
+ PJAC(:,9,75)=+TPK%KTR29(:)
!
-!HO2/MCR=+0.41*K282*<O3>+0.15*K284*<O>
- PJAC(:,10,40)=+0.41*TPK%K282(:)*PCONC(:,3)+0.15*TPK%K284(:)*TPK%O(:)
+!HNO4/WR_NH3=0.0
!
-!HO2/MGLY=+K276
- PJAC(:,10,41)=+TPK%K276(:)
+!HNO4/WR_OH=0.0
!
-!HO2/GLY=0.0
+!HNO4/WR_HO2=0.0
!
-!HO2/ORA1=+K347*<OH>
- PJAC(:,10,43)=+TPK%K347(:)*PCONC(:,15)
+!HNO4/WR_CO2=0.0
!
-!HO2/ORA2=0.0
+!HNO4/WR_SO2=0.0
!
-!HO2/ACID=0.0
+!HNO4/WR_SULF=0.0
!
-!HO2/UR28=0.0
+!HNO4/WR_HCHO=0.0
!
-!HO2/UR21=0.0
+!HNO4/WR_ORA1=0.0
!
-!HO2/URG2=0.0
+!HNO4/WR_ORA2=0.0
!
-!HO2/UR26=0.0
+!HNO4/WR_MO2=0.0
!
-!HO2/RPG2=0.0
+!HNO4/WR_OP1=0.0
!
-!HO2/RP18=0.0
+!HNO4/WR_ASO3=0.0
!
-!HO2/RPG3=0.0
+!HNO4/WR_ASO4=0.0
!
-!HO2/URG4=0.0
+!HNO4/WR_ASO5=0.0
!
-!HO2/UR8=0.0
+!HNO4/WR_AHSO5=0.0
!
-!HO2/UR17=0.0
+!HNO4/WR_AHMS=0.0
!
-!HO2/UR7=0.0
+!NH3/O3=0.0
!
-!HO2/RPR3=+2.*K314
- PJAC(:,10,57)=+2.*TPK%K314(:)
+!NH3/H2O2=0.0
!
-!HO2/URG6=0.0
+!NH3/NO=0.0
!
-!HO2/UR22=0.0
+!NH3/NO2=0.0
!
-!HO2/URG7=0.0
+!NH3/NO3=0.0
!
-!HO2/RPR4=0.0
+!NH3/N2O5=0.0
!
-!HO2/RPR7=0.0
+!NH3/HONO=0.0
!
-!HO2/RPG7=0.0
+!NH3/HNO3=0.0
!
-!HO2/URG8=0.0
+!NH3/HNO4=0.0
!
-!HO2/UR19=0.0
+!NH3/NH3=-K050*<OH>-KTC10-KTR10
+ PJAC(:,10,10)=-TPK%K050(:)*PCONC(:,14)-TPK%KTC10(:)-TPK%KTR10(:)
!
-!HO2/URG9=0.0
+!NH3/SO2=0.0
!
-!HO2/AP7=0.0
+!NH3/SULF=0.0
!
-!HO2/URG10=0.0
+!NH3/CO=0.0
!
-!HO2/RPR1=+K308
- PJAC(:,10,69)=+TPK%K308(:)
+!NH3/OH=-K050*<NH3>
+ PJAC(:,10,14)=-TPK%K050(:)*PCONC(:,10)
!
-!HO2/RPR5=0.0
+!NH3/HO2=0.0
!
-!HO2/RPR8=+K329+K330
- PJAC(:,10,71)=+TPK%K329(:)+TPK%K330(:)
+!NH3/CH4=0.0
!
-!HO2/RP10=+K325*<OH>
- PJAC(:,10,72)=+TPK%K325(:)*PCONC(:,15)
+!NH3/ETH=0.0
!
-!HO2/RP11=0.0
+!NH3/ALKA=0.0
!
-!HO2/RP16=+K339
- PJAC(:,10,74)=+TPK%K339(:)
+!NH3/ALKE=0.0
!
-!HO2/RPRL=0.0
+!NH3/BIO=0.0
!
-!HO2/APAN=0.0
+!NH3/ARO=0.0
!
-!HO2/PAN1=0.0
+!NH3/HCHO=0.0
!
-!HO2/PAN2=0.0
+!NH3/ALD=0.0
!
-!HO2/PAN3=0.0
+!NH3/KET=0.0
!
-!HO2/PAN4=0.0
+!NH3/CARBO=0.0
!
-!HO2/PAN6=0.0
+!NH3/ONIT=0.0
!
-!HO2/PAN7=0.0
+!NH3/PAN=0.0
!
-!HO2/PAN8=0.0
+!NH3/OP1=0.0
!
-!HO2/PN10=0.0
+!NH3/OP2=0.0
!
-!HO2/RO2T=+K094*<HO2>-K094*<HO2>+K111*<RO21>+K114*<RO22>+K117*<RO23>+K120*<RO24
-!>+K123*<RO25>+K151*<RO29>+K154*<RO210>+K172*<RO215>+K178*<RO217>+K181*<RO218>+
-!K190*<RO221>+K193*<RO222>+K196*<RO223>+K199*<RO224>+K208*<RO227>+K222*<RO231>+
-!K228*<RO241>+K232*<RO233>+K235*<RO242>+K239*<RO234>+K242*<RO243>+K246*<RO235>+
-!K249*<RO244>+K253*<RO236>+K256*<RO245>+K260*<RO237>+K263*<RO246>+K267*<RO238>+
-!K270*<RO247>+K286*<RO249>+K293*<RO251>+K302*<RO254>+K319*<RO256>
- PJAC(:,10,85)=+TPK%K094(:)*PCONC(:,10)-TPK%K094(:)*PCONC(:,10)+TPK%K111(:)*PCO&
-&NC(:,86)+TPK%K114(:)*TPK%RO22(:)+TPK%K117(:)*TPK%RO23(:)+TPK%K120(:)*TPK%RO24(&
-&:)+TPK%K123(:)*PCONC(:,87)+TPK%K151(:)*TPK%RO29(:)+TPK%K154(:)*TPK%RO210(:)+TP&
-&K%K172(:)*TPK%RO215(:)+TPK%K178(:)*TPK%RO217(:)+TPK%K181(:)*TPK%RO218(:)+TPK%K&
-&190(:)*TPK%RO221(:)+TPK%K193(:)*TPK%RO222(:)+TPK%K196(:)*TPK%RO223(:)+TPK%K199&
-&(:)*TPK%RO224(:)+TPK%K208(:)*TPK%RO227(:)+TPK%K222(:)*TPK%RO231(:)+TPK%K228(:)&
-&*TPK%RO241(:)+TPK%K232(:)*TPK%RO233(:)+TPK%K235(:)*TPK%RO242(:)+TPK%K239(:)*TP&
-&K%RO234(:)+TPK%K242(:)*TPK%RO243(:)+TPK%K246(:)*TPK%RO235(:)+TPK%K249(:)*TPK%R&
-&O244(:)+TPK%K253(:)*TPK%RO236(:)+TPK%K256(:)*TPK%RO245(:)+TPK%K260(:)*TPK%RO23&
-&7(:)+TPK%K263(:)*TPK%RO246(:)+TPK%K267(:)*TPK%RO238(:)+TPK%K270(:)*TPK%RO247(:&
-&)+TPK%K286(:)*TPK%RO249(:)+TPK%K293(:)*TPK%RO251(:)+TPK%K302(:)*TPK%RO254(:)+T&
-&PK%K319(:)*TPK%RO256(:)
+!NH3/ORA1=0.0
!
-!HO2/RO21=+K110*<NO>+K111*<RO2T>+K112*<HO2>-K112*<HO2>
- PJAC(:,10,86)=+TPK%K110(:)*PCONC(:,1)+TPK%K111(:)*PCONC(:,85)+TPK%K112(:)*PCON&
-&C(:,10)-TPK%K112(:)*PCONC(:,10)
+!NH3/ORA2=0.0
!
-!HO2/RO25=+TPK%CF4*K122*<NO>+K123*<RO2T>+K124*<HO2>-K124*<HO2>
- PJAC(:,10,87)=+TPK%CF4*TPK%K122(:)*PCONC(:,1)+TPK%K123(:)*PCONC(:,85)+TPK%K124&
-&(:)*PCONC(:,10)-TPK%K124(:)*PCONC(:,10)
+!NH3/MO2=0.0
!
-RETURN
-END SUBROUTINE SUBJ1
+!NH3/ALKAP=0.0
!
-SUBROUTINE SUBJ2
+!NH3/ALKEP=0.0
!
-!Indices 11 a 15
+!NH3/BIOP=0.0
!
+!NH3/PHO=0.0
!
-!CO/NO=+K119*<RO24>+K300*<RO254>+K340*<RO258>
- PJAC(:,11,1)=+TPK%K119(:)*TPK%RO24(:)+TPK%K300(:)*TPK%RO254(:)+TPK%K340(:)*TPK&
-&%RO258(:)
+!NH3/ADD=0.0
!
-!CO/NO2=0.0
+!NH3/AROP=0.0
!
-!CO/O3=+0.315*K051*<ETHE>+0.56*K056*<OLEL>+0.461*K066*<ISOP>+0.56*K076*<OLEH>+0
-!.445*K086*<BIOL>+0.445*K090*<BIOH>+0.56*K281*<MVK>+0.41*K282*<MCR>
- PJAC(:,11,3)=+0.315*TPK%K051(:)*PCONC(:,16)+0.56*TPK%K056(:)*PCONC(:,17)+0.461&
-&*TPK%K066(:)*PCONC(:,35)+0.56*TPK%K076(:)*PCONC(:,18)+0.445*TPK%K086(:)*PCONC(&
-&:,36)+0.445*TPK%K090(:)*PCONC(:,37)+0.56*TPK%K281(:)*PCONC(:,39)+0.41*TPK%K282&
-&(:)*PCONC(:,40)
+!NH3/CARBOP=0.0
!
-!CO/HONO=0.0
+!NH3/OLN=0.0
!
-!CO/HNO3=0.0
+!NH3/XO2=0.0
!
-!CO/HNO4=0.0
+!NH3/WC_O3=0.0
!
-!CO/N2O5=0.0
+!NH3/WC_H2O2=0.0
!
-!CO/NO3=+K047*<HCHO>
- PJAC(:,11,8)=+TPK%K047(:)*PCONC(:,28)
+!NH3/WC_NO=0.0
!
-!CO/NH3=0.0
+!NH3/WC_NO2=0.0
!
-!CO/HO2=+K121*<RO24>
- PJAC(:,11,10)=+TPK%K121(:)*TPK%RO24(:)
+!NH3/WC_NO3=0.0
!
-!CO/CO=-K024*<OH>
- PJAC(:,11,11)=-TPK%K024(:)*PCONC(:,15)
+!NH3/WC_N2O5=0.0
!
-!CO/H2O2=0.0
+!NH3/WC_HONO=0.0
!
-!CO/SO2=0.0
+!NH3/WC_HNO3=0.0
!
-!CO/H2SO4=0.0
+!NH3/WC_HNO4=0.0
!
-!CO/OH=-K024*<CO>+K046*<HCHO>
- PJAC(:,11,15)=-TPK%K024(:)*PCONC(:,11)+TPK%K046(:)*PCONC(:,28)
+!NH3/WC_NH3=+KTC30
+ PJAC(:,10,51)=+TPK%KTC30(:)
!
-!CO/ETHE=+0.315*K051*<O3>+0.6*K052*<O>
- PJAC(:,11,16)=+0.315*TPK%K051(:)*PCONC(:,3)+0.6*TPK%K052(:)*TPK%O(:)
+!NH3/WC_OH=0.0
!
-!CO/OLEL=+0.56*K056*<O3>
- PJAC(:,11,17)=+0.56*TPK%K056(:)*PCONC(:,3)
+!NH3/WC_HO2=0.0
!
-!CO/OLEH=+0.56*K076*<O3>
- PJAC(:,11,18)=+0.56*TPK%K076(:)*PCONC(:,3)
+!NH3/WC_CO2=0.0
!
-!CO/ALKL=0.0
+!NH3/WC_SO2=0.0
!
-!CO/ALKM=0.0
+!NH3/WC_SULF=0.0
!
-!CO/ALKH=0.0
+!NH3/WC_HCHO=0.0
!
-!CO/AROH=0.0
+!NH3/WC_ORA1=0.0
!
-!CO/AROL=0.0
+!NH3/WC_ORA2=0.0
!
-!CO/AROO=0.0
+!NH3/WC_MO2=0.0
!
-!CO/ARAL=0.0
+!NH3/WC_OP1=0.0
!
-!CO/ARAC=0.0
+!NH3/WC_ASO3=0.0
!
-!CO/PAH=0.0
+!NH3/WC_ASO4=0.0
!
-!CO/HCHO=+K044+K045+K046*<OH>+K047*<NO3>
- PJAC(:,11,28)=+TPK%K044(:)+TPK%K045(:)+TPK%K046(:)*PCONC(:,15)+TPK%K047(:)*PCO&
-&NC(:,8)
+!NH3/WC_ASO5=0.0
!
-!CO/ALD2=+K059
- PJAC(:,11,29)=+TPK%K059(:)
+!NH3/WC_AHSO5=0.0
!
-!CO/KETL=0.0
+!NH3/WC_AHMS=0.0
!
-!CO/KETH=0.0
+!NH3/WR_O3=0.0
!
-!CO/MEOH=0.0
+!NH3/WR_H2O2=0.0
!
-!CO/ETOH=0.0
+!NH3/WR_NO=0.0
!
-!CO/ALCH=0.0
+!NH3/WR_NO2=0.0
!
-!CO/ISOP=+0.461*K066*<O3>
- PJAC(:,11,35)=+0.461*TPK%K066(:)*PCONC(:,3)
+!NH3/WR_NO3=0.0
!
-!CO/BIOL=+0.445*K086*<O3>
- PJAC(:,11,36)=+0.445*TPK%K086(:)*PCONC(:,3)
+!NH3/WR_N2O5=0.0
!
-!CO/BIOH=+0.445*K090*<O3>
- PJAC(:,11,37)=+0.445*TPK%K090(:)*PCONC(:,3)
+!NH3/WR_HONO=0.0
!
-!CO/MTBE=0.0
+!NH3/WR_HNO3=0.0
!
-!CO/MVK=+0.56*K281*<O3>
- PJAC(:,11,39)=+0.56*TPK%K281(:)*PCONC(:,3)
+!NH3/WR_HNO4=0.0
!
-!CO/MCR=+0.41*K282*<O3>+0.15*K284*<O>
- PJAC(:,11,40)=+0.41*TPK%K282(:)*PCONC(:,3)+0.15*TPK%K284(:)*TPK%O(:)
+!NH3/WR_NH3=+KTR30
+ PJAC(:,10,76)=+TPK%KTR30(:)
!
-!CO/MGLY=+K276
- PJAC(:,11,41)=+TPK%K276(:)
+!NH3/WR_OH=0.0
!
-!CO/GLY=0.0
+!NH3/WR_HO2=0.0
!
-!CO/ORA1=0.0
+!NH3/WR_CO2=0.0
!
-!CO/ORA2=0.0
+!NH3/WR_SO2=0.0
!
-!CO/ACID=0.0
+!NH3/WR_SULF=0.0
!
-!CO/UR28=0.0
+!NH3/WR_HCHO=0.0
!
-!CO/UR21=0.0
+!NH3/WR_ORA1=0.0
!
-!CO/URG2=0.0
+!NH3/WR_ORA2=0.0
!
-!CO/UR26=0.0
+!NH3/WR_MO2=0.0
!
-!CO/RPG2=0.0
+!NH3/WR_OP1=0.0
!
-!CO/RP18=0.0
+!NH3/WR_ASO3=0.0
!
-!CO/RPG3=0.0
+!NH3/WR_ASO4=0.0
!
-!CO/URG4=0.0
+!NH3/WR_ASO5=0.0
!
-!CO/UR8=0.0
+!NH3/WR_AHSO5=0.0
!
-!CO/UR17=0.0
+!NH3/WR_AHMS=0.0
!
-!CO/UR7=0.0
+RETURN
+END SUBROUTINE SUBJ1
!
-!CO/RPR3=+K314
- PJAC(:,11,57)=+TPK%K314(:)
+SUBROUTINE SUBJ2
!
-!CO/URG6=0.0
+!Indices 11 a 15
!
-!CO/UR22=0.0
!
-!CO/URG7=0.0
+!SO2/O3=0.0
!
-!CO/RPR4=0.0
+!SO2/H2O2=0.0
!
-!CO/RPR7=0.0
+!SO2/NO=0.0
!
-!CO/RPG7=0.0
+!SO2/NO2=0.0
!
-!CO/URG8=0.0
+!SO2/NO3=0.0
!
-!CO/UR19=0.0
+!SO2/N2O5=0.0
!
-!CO/URG9=0.0
+!SO2/HONO=0.0
!
-!CO/AP7=0.0
+!SO2/HNO3=0.0
!
-!CO/URG10=0.0
+!SO2/HNO4=0.0
!
-!CO/RPR1=+K308
- PJAC(:,11,69)=+TPK%K308(:)
+!SO2/NH3=0.0
!
-!CO/RPR5=0.0
+!SO2/SO2=-K052*<OH>-KTC14-KTR14
+ PJAC(:,11,11)=-TPK%K052(:)*PCONC(:,14)-TPK%KTC14(:)-TPK%KTR14(:)
!
-!CO/RPR8=+K329
- PJAC(:,11,71)=+TPK%K329(:)
+!SO2/SULF=0.0
!
-!CO/RP10=0.0
+!SO2/CO=0.0
!
-!CO/RP11=0.0
+!SO2/OH=-K052*<SO2>
+ PJAC(:,11,14)=-TPK%K052(:)*PCONC(:,11)
!
-!CO/RP16=+2.*K339
- PJAC(:,11,74)=+2.*TPK%K339(:)
+!SO2/HO2=0.0
!
-!CO/RPRL=0.0
+!SO2/CH4=0.0
!
-!CO/APAN=0.0
+!SO2/ETH=0.0
!
-!CO/PAN1=0.0
+!SO2/ALKA=0.0
!
-!CO/PAN2=0.0
+!SO2/ALKE=0.0
!
-!CO/PAN3=0.0
+!SO2/BIO=0.0
!
-!CO/PAN4=0.0
+!SO2/ARO=0.0
!
-!CO/PAN6=0.0
+!SO2/HCHO=0.0
!
-!CO/PAN7=0.0
+!SO2/ALD=0.0
!
-!CO/PAN8=0.0
+!SO2/KET=0.0
!
-!CO/PN10=0.0
+!SO2/CARBO=0.0
!
-!CO/RO2T=+K120*<RO24>+K302*<RO254>+K342*<RO258>
- PJAC(:,11,85)=+TPK%K120(:)*TPK%RO24(:)+TPK%K302(:)*TPK%RO254(:)+TPK%K342(:)*TP&
-&K%RO258(:)
+!SO2/ONIT=0.0
!
-!CO/RO21=0.0
+!SO2/PAN=0.0
!
-!CO/RO25=0.0
+!SO2/OP1=0.0
!
-!H2O2/NO=0.0
+!SO2/OP2=0.0
!
-!H2O2/NO2=0.0
+!SO2/ORA1=0.0
!
-!H2O2/O3=+0.055*K086*<BIOL>+0.055*K090*<BIOH>
- PJAC(:,12,3)=+0.055*TPK%K086(:)*PCONC(:,36)+0.055*TPK%K090(:)*PCONC(:,37)
+!SO2/ORA2=0.0
!
-!H2O2/HONO=0.0
+!SO2/MO2=0.0
!
-!H2O2/HNO3=0.0
+!SO2/ALKAP=0.0
!
-!H2O2/HNO4=0.0
+!SO2/ALKEP=0.0
!
-!H2O2/N2O5=0.0
+!SO2/BIOP=0.0
!
-!H2O2/NO3=0.0
+!SO2/PHO=0.0
!
-!H2O2/NH3=0.0
+!SO2/ADD=0.0
!
-!H2O2/HO2=+K031*<HO2>+K031*<HO2>+K032*<H2O>*<HO2>+K032*<H2O>*<HO2>
- PJAC(:,12,10)=+TPK%K031(:)*PCONC(:,10)+TPK%K031(:)*PCONC(:,10)+TPK%K032(:)*TPK&
-&%H2O(:)*PCONC(:,10)+TPK%K032(:)*TPK%H2O(:)*PCONC(:,10)
+!SO2/AROP=0.0
!
-!H2O2/CO=0.0
+!SO2/CARBOP=0.0
!
-!H2O2/H2O2=-K036-K037*<OH>
- PJAC(:,12,12)=-TPK%K036(:)-TPK%K037(:)*PCONC(:,15)
+!SO2/OLN=0.0
!
-!H2O2/SO2=0.0
+!SO2/XO2=0.0
!
-!H2O2/H2SO4=0.0
+!SO2/WC_O3=0.0
!
-!H2O2/OH=-K037*<H2O2>
- PJAC(:,12,15)=-TPK%K037(:)*PCONC(:,12)
+!SO2/WC_H2O2=0.0
!
-!H2O2/ETHE=0.0
+!SO2/WC_NO=0.0
!
-!H2O2/OLEL=0.0
+!SO2/WC_NO2=0.0
!
-!H2O2/OLEH=0.0
+!SO2/WC_NO3=0.0
!
-!H2O2/ALKL=0.0
+!SO2/WC_N2O5=0.0
!
-!H2O2/ALKM=0.0
+!SO2/WC_HONO=0.0
!
-!H2O2/ALKH=0.0
+!SO2/WC_HNO3=0.0
!
-!H2O2/AROH=0.0
+!SO2/WC_HNO4=0.0
!
-!H2O2/AROL=0.0
+!SO2/WC_NH3=0.0
!
-!H2O2/AROO=0.0
+!SO2/WC_OH=0.0
!
-!H2O2/ARAL=0.0
+!SO2/WC_HO2=0.0
!
-!H2O2/ARAC=0.0
+!SO2/WC_CO2=0.0
!
-!H2O2/PAH=0.0
+!SO2/WC_SO2=+KTC34
+ PJAC(:,11,55)=+TPK%KTC34(:)
!
-!H2O2/HCHO=0.0
+!SO2/WC_SULF=0.0
!
-!H2O2/ALD2=0.0
+!SO2/WC_HCHO=0.0
!
-!H2O2/KETL=0.0
+!SO2/WC_ORA1=0.0
!
-!H2O2/KETH=0.0
+!SO2/WC_ORA2=0.0
!
-!H2O2/MEOH=0.0
+!SO2/WC_MO2=0.0
!
-!H2O2/ETOH=0.0
+!SO2/WC_OP1=0.0
!
-!H2O2/ALCH=0.0
+!SO2/WC_ASO3=0.0
!
-!H2O2/ISOP=0.0
+!SO2/WC_ASO4=0.0
!
-!H2O2/BIOL=+0.055*K086*<O3>
- PJAC(:,12,36)=+0.055*TPK%K086(:)*PCONC(:,3)
+!SO2/WC_ASO5=0.0
!
-!H2O2/BIOH=+0.055*K090*<O3>
- PJAC(:,12,37)=+0.055*TPK%K090(:)*PCONC(:,3)
+!SO2/WC_AHSO5=0.0
!
-!H2O2/MTBE=0.0
+!SO2/WC_AHMS=0.0
!
-!H2O2/MVK=0.0
+!SO2/WR_O3=0.0
!
-!H2O2/MCR=0.0
+!SO2/WR_H2O2=0.0
!
-!H2O2/MGLY=0.0
+!SO2/WR_NO=0.0
!
-!H2O2/GLY=0.0
+!SO2/WR_NO2=0.0
!
-!H2O2/ORA1=0.0
+!SO2/WR_NO3=0.0
!
-!H2O2/ORA2=0.0
+!SO2/WR_N2O5=0.0
!
-!H2O2/ACID=0.0
+!SO2/WR_HONO=0.0
!
-!H2O2/UR28=0.0
+!SO2/WR_HNO3=0.0
!
-!H2O2/UR21=0.0
+!SO2/WR_HNO4=0.0
!
-!H2O2/URG2=0.0
+!SO2/WR_NH3=0.0
!
-!H2O2/UR26=0.0
+!SO2/WR_OH=0.0
!
-!H2O2/RPG2=0.0
+!SO2/WR_HO2=0.0
!
-!H2O2/RP18=0.0
+!SO2/WR_CO2=0.0
!
-!H2O2/RPG3=0.0
+!SO2/WR_SO2=+KTR34
+ PJAC(:,11,80)=+TPK%KTR34(:)
!
-!H2O2/URG4=0.0
+!SO2/WR_SULF=0.0
!
-!H2O2/UR8=0.0
+!SO2/WR_HCHO=0.0
!
-!H2O2/UR17=0.0
+!SO2/WR_ORA1=0.0
!
-!H2O2/UR7=0.0
+!SO2/WR_ORA2=0.0
!
-!H2O2/RPR3=0.0
+!SO2/WR_MO2=0.0
!
-!H2O2/URG6=0.0
+!SO2/WR_OP1=0.0
!
-!H2O2/UR22=0.0
+!SO2/WR_ASO3=0.0
!
-!H2O2/URG7=0.0
+!SO2/WR_ASO4=0.0
!
-!H2O2/RPR4=0.0
+!SO2/WR_ASO5=0.0
!
-!H2O2/RPR7=0.0
+!SO2/WR_AHSO5=0.0
!
-!H2O2/RPG7=0.0
+!SO2/WR_AHMS=0.0
!
-!H2O2/URG8=0.0
+!SULF/O3=0.0
!
-!H2O2/UR19=0.0
+!SULF/H2O2=0.0
!
-!H2O2/URG9=0.0
+!SULF/NO=0.0
!
-!H2O2/AP7=0.0
+!SULF/NO2=0.0
!
-!H2O2/URG10=0.0
+!SULF/NO3=0.0
!
-!H2O2/RPR1=0.0
+!SULF/N2O5=0.0
!
-!H2O2/RPR5=0.0
+!SULF/HONO=0.0
!
-!H2O2/RPR8=0.0
+!SULF/HNO3=0.0
!
-!H2O2/RP10=0.0
+!SULF/HNO4=0.0
!
-!H2O2/RP11=0.0
+!SULF/NH3=0.0
!
-!H2O2/RP16=0.0
+!SULF/SO2=+K052*<OH>
+ PJAC(:,12,11)=+TPK%K052(:)*PCONC(:,14)
!
-!H2O2/RPRL=0.0
+!SULF/SULF=-K132-KTC15-KTR15
+ PJAC(:,12,12)=-TPK%K132(:)-TPK%KTC15(:)-TPK%KTR15(:)
!
-!H2O2/APAN=0.0
+!SULF/CO=0.0
!
-!H2O2/PAN1=0.0
+!SULF/OH=+K052*<SO2>
+ PJAC(:,12,14)=+TPK%K052(:)*PCONC(:,11)
!
-!H2O2/PAN2=0.0
+!SULF/HO2=0.0
!
-!H2O2/PAN3=0.0
+!SULF/CH4=0.0
!
-!H2O2/PAN4=0.0
+!SULF/ETH=0.0
!
-!H2O2/PAN6=0.0
+!SULF/ALKA=0.0
!
-!H2O2/PAN7=0.0
+!SULF/ALKE=0.0
!
-!H2O2/PAN8=0.0
+!SULF/BIO=0.0
!
-!H2O2/PN10=0.0
+!SULF/ARO=0.0
!
-!H2O2/RO2T=0.0
+!SULF/HCHO=0.0
!
-!H2O2/RO21=0.0
+!SULF/ALD=0.0
!
-!H2O2/RO25=0.0
+!SULF/KET=0.0
!
-!SO2/NO=0.0
+!SULF/CARBO=0.0
!
-!SO2/NO2=0.0
+!SULF/ONIT=0.0
!
-!SO2/O3=0.0
+!SULF/PAN=0.0
!
-!SO2/HONO=0.0
+!SULF/OP1=0.0
!
-!SO2/HNO3=0.0
+!SULF/OP2=0.0
!
-!SO2/HNO4=0.0
+!SULF/ORA1=0.0
!
-!SO2/N2O5=0.0
+!SULF/ORA2=0.0
!
-!SO2/NO3=0.0
+!SULF/MO2=0.0
!
-!SO2/NH3=0.0
+!SULF/ALKAP=0.0
!
-!SO2/HO2=0.0
+!SULF/ALKEP=0.0
!
-!SO2/CO=0.0
+!SULF/BIOP=0.0
!
-!SO2/H2O2=0.0
+!SULF/PHO=0.0
!
-!SO2/SO2=-K035*<OH>
- PJAC(:,13,13)=-TPK%K035(:)*PCONC(:,15)
+!SULF/ADD=0.0
!
-!SO2/H2SO4=0.0
+!SULF/AROP=0.0
!
-!SO2/OH=-K035*<SO2>
- PJAC(:,13,15)=-TPK%K035(:)*PCONC(:,13)
+!SULF/CARBOP=0.0
!
-!SO2/ETHE=0.0
+!SULF/OLN=0.0
!
-!SO2/OLEL=0.0
+!SULF/XO2=0.0
!
-!SO2/OLEH=0.0
+!SULF/WC_O3=0.0
!
-!SO2/ALKL=0.0
+!SULF/WC_H2O2=0.0
!
-!SO2/ALKM=0.0
+!SULF/WC_NO=0.0
!
-!SO2/ALKH=0.0
+!SULF/WC_NO2=0.0
!
-!SO2/AROH=0.0
+!SULF/WC_NO3=0.0
!
-!SO2/AROL=0.0
+!SULF/WC_N2O5=0.0
!
-!SO2/AROO=0.0
+!SULF/WC_HONO=0.0
!
-!SO2/ARAL=0.0
+!SULF/WC_HNO3=0.0
!
-!SO2/ARAC=0.0
+!SULF/WC_HNO4=0.0
!
-!SO2/PAH=0.0
+!SULF/WC_NH3=0.0
!
-!SO2/HCHO=0.0
+!SULF/WC_OH=0.0
!
-!SO2/ALD2=0.0
+!SULF/WC_HO2=0.0
!
-!SO2/KETL=0.0
+!SULF/WC_CO2=0.0
!
-!SO2/KETH=0.0
+!SULF/WC_SO2=0.0
!
-!SO2/MEOH=0.0
+!SULF/WC_SULF=+KTC35
+ PJAC(:,12,56)=+TPK%KTC35(:)
!
-!SO2/ETOH=0.0
+!SULF/WC_HCHO=0.0
!
-!SO2/ALCH=0.0
+!SULF/WC_ORA1=0.0
!
-!SO2/ISOP=0.0
+!SULF/WC_ORA2=0.0
!
-!SO2/BIOL=0.0
+!SULF/WC_MO2=0.0
!
-!SO2/BIOH=0.0
+!SULF/WC_OP1=0.0
!
-!SO2/MTBE=0.0
+!SULF/WC_ASO3=0.0
!
-!SO2/MVK=0.0
+!SULF/WC_ASO4=0.0
!
-!SO2/MCR=0.0
+!SULF/WC_ASO5=0.0
!
-!SO2/MGLY=0.0
+!SULF/WC_AHSO5=0.0
!
-!SO2/GLY=0.0
+!SULF/WC_AHMS=0.0
!
-!SO2/ORA1=0.0
+!SULF/WR_O3=0.0
!
-!SO2/ORA2=0.0
+!SULF/WR_H2O2=0.0
!
-!SO2/ACID=0.0
+!SULF/WR_NO=0.0
!
-!SO2/UR28=0.0
+!SULF/WR_NO2=0.0
!
-!SO2/UR21=0.0
+!SULF/WR_NO3=0.0
!
-!SO2/URG2=0.0
+!SULF/WR_N2O5=0.0
!
-!SO2/UR26=0.0
+!SULF/WR_HONO=0.0
!
-!SO2/RPG2=0.0
+!SULF/WR_HNO3=0.0
!
-!SO2/RP18=0.0
+!SULF/WR_HNO4=0.0
!
-!SO2/RPG3=0.0
+!SULF/WR_NH3=0.0
!
-!SO2/URG4=0.0
+!SULF/WR_OH=0.0
!
-!SO2/UR8=0.0
+!SULF/WR_HO2=0.0
!
-!SO2/UR17=0.0
+!SULF/WR_CO2=0.0
!
-!SO2/UR7=0.0
+!SULF/WR_SO2=0.0
!
-!SO2/RPR3=0.0
+!SULF/WR_SULF=+KTR35
+ PJAC(:,12,81)=+TPK%KTR35(:)
!
-!SO2/URG6=0.0
+!SULF/WR_HCHO=0.0
!
-!SO2/UR22=0.0
+!SULF/WR_ORA1=0.0
!
-!SO2/URG7=0.0
+!SULF/WR_ORA2=0.0
!
-!SO2/RPR4=0.0
+!SULF/WR_MO2=0.0
!
-!SO2/RPR7=0.0
+!SULF/WR_OP1=0.0
!
-!SO2/RPG7=0.0
+!SULF/WR_ASO3=0.0
!
-!SO2/URG8=0.0
+!SULF/WR_ASO4=0.0
!
-!SO2/UR19=0.0
+!SULF/WR_ASO5=0.0
!
-!SO2/URG9=0.0
+!SULF/WR_AHSO5=0.0
!
-!SO2/AP7=0.0
+!SULF/WR_AHMS=0.0
!
-!SO2/URG10=0.0
+!CO/O3=+0.35120*K079*<ALKE>+0.36000*K080*<BIO>+0.64728*K081*<CARBO>+0.13*K082*<
+!PAN>
+ PJAC(:,13,1)=+0.35120*TPK%K079(:)*PCONC(:,19)+0.36000*TPK%K080(:)*PCONC(:,20)+&
+&0.64728*TPK%K081(:)*PCONC(:,25)+0.13*TPK%K082(:)*PCONC(:,27)
!
-!SO2/RPR1=0.0
+!CO/H2O2=0.0
!
-!SO2/RPR5=0.0
+!CO/NO=0.0
!
-!SO2/RPR8=0.0
+!CO/NO2=0.0
!
-!SO2/RP10=0.0
+!CO/NO3=+K072*<HCHO>+1.33723*K074*<CARBO>
+ PJAC(:,13,5)=+TPK%K072(:)*PCONC(:,22)+1.33723*TPK%K074(:)*PCONC(:,25)
!
-!SO2/RP11=0.0
+!CO/N2O5=0.0
!
-!SO2/RP16=0.0
+!CO/HONO=0.0
!
-!SO2/RPRL=0.0
+!CO/HNO3=0.0
!
-!SO2/APAN=0.0
+!CO/HNO4=0.0
!
-!SO2/PAN1=0.0
+!CO/NH3=0.0
!
-!SO2/PAN2=0.0
+!CO/SO2=0.0
!
-!SO2/PAN3=0.0
+!CO/SULF=0.0
!
-!SO2/PAN4=0.0
+!CO/CO=-K053*<OH>
+ PJAC(:,13,13)=-TPK%K053(:)*PCONC(:,14)
!
-!SO2/PAN6=0.0
+!CO/OH=-K053*<CO>+0.00878*K058*<ALKA>+K062*<HCHO>+1.01732*K065*<CARBO>
+ PJAC(:,13,14)=-TPK%K053(:)*PCONC(:,13)+0.00878*TPK%K058(:)*PCONC(:,18)+TPK%K06&
+&2(:)*PCONC(:,22)+1.01732*TPK%K065(:)*PCONC(:,25)
!
-!SO2/PAN7=0.0
+!CO/HO2=0.0
!
-!SO2/PAN8=0.0
+!CO/CH4=0.0
!
-!SO2/PN10=0.0
+!CO/ETH=0.0
!
-!SO2/RO2T=0.0
+!CO/ALKA=+0.00878*K058*<OH>
+ PJAC(:,13,18)=+0.00878*TPK%K058(:)*PCONC(:,14)
!
-!SO2/RO21=0.0
+!CO/ALKE=+0.35120*K079*<O3>
+ PJAC(:,13,19)=+0.35120*TPK%K079(:)*PCONC(:,1)
!
-!SO2/RO25=0.0
+!CO/BIO=+0.01*K054*<O3P>+0.36000*K080*<O3>
+ PJAC(:,13,20)=+0.01*TPK%K054(:)*TPK%O3P(:)+0.36000*TPK%K080(:)*PCONC(:,1)
!
-!H2SO4/NO=0.0
+!CO/ARO=0.0
!
-!H2SO4/NO2=0.0
+!CO/HCHO=+K010+K011+K062*<OH>+K072*<NO3>
+ PJAC(:,13,22)=+TPK%K010(:)+TPK%K011(:)+TPK%K062(:)*PCONC(:,14)+TPK%K072(:)*PCO&
+&NC(:,5)
!
-!H2SO4/O3=0.0
+!CO/ALD=+K012
+ PJAC(:,13,23)=+TPK%K012(:)
!
-!H2SO4/HONO=0.0
+!CO/KET=0.0
!
-!H2SO4/HNO3=0.0
+!CO/CARBO=+0.91924*K016+1.01732*K065*<OH>+1.33723*K074*<NO3>+0.64728*K081*<O3>
+ PJAC(:,13,25)=+0.91924*TPK%K016(:)+1.01732*TPK%K065(:)*PCONC(:,14)+1.33723*TPK&
+&%K074(:)*PCONC(:,5)+0.64728*TPK%K081(:)*PCONC(:,1)
!
-!H2SO4/HNO4=0.0
+!CO/ONIT=0.0
!
-!H2SO4/N2O5=0.0
+!CO/PAN=+0.13*K082*<O3>
+ PJAC(:,13,27)=+0.13*TPK%K082(:)*PCONC(:,1)
!
-!H2SO4/NO3=0.0
+!CO/OP1=0.0
!
-!H2SO4/NH3=0.0
+!CO/OP2=0.0
!
-!H2SO4/HO2=0.0
+!CO/ORA1=0.0
!
-!H2SO4/CO=0.0
+!CO/ORA2=0.0
!
-!H2SO4/H2O2=0.0
+!CO/MO2=0.0
!
-!H2SO4/SO2=+K035*<OH>
- PJAC(:,14,13)=+TPK%K035(:)*PCONC(:,15)
+!CO/ALKAP=0.0
!
-!H2SO4/H2SO4=-K346
- PJAC(:,14,14)=-TPK%K346(:)
+!CO/ALKEP=0.0
!
-!H2SO4/OH=+K035*<SO2>
- PJAC(:,14,15)=+TPK%K035(:)*PCONC(:,13)
+!CO/BIOP=0.0
!
-!H2SO4/ETHE=0.0
+!CO/PHO=0.0
!
-!H2SO4/OLEL=0.0
+!CO/ADD=0.0
!
-!H2SO4/OLEH=0.0
+!CO/AROP=0.0
!
-!H2SO4/ALKL=0.0
+!CO/CARBOP=0.0
!
-!H2SO4/ALKM=0.0
+!CO/OLN=0.0
!
-!H2SO4/ALKH=0.0
+!CO/XO2=0.0
!
-!H2SO4/AROH=0.0
+!CO/WC_O3=0.0
!
-!H2SO4/AROL=0.0
+!CO/WC_H2O2=0.0
!
-!H2SO4/AROO=0.0
+!CO/WC_NO=0.0
!
-!H2SO4/ARAL=0.0
+!CO/WC_NO2=0.0
!
-!H2SO4/ARAC=0.0
+!CO/WC_NO3=0.0
!
-!H2SO4/PAH=0.0
+!CO/WC_N2O5=0.0
!
-!H2SO4/HCHO=0.0
+!CO/WC_HONO=0.0
!
-!H2SO4/ALD2=0.0
+!CO/WC_HNO3=0.0
!
-!H2SO4/KETL=0.0
+!CO/WC_HNO4=0.0
!
-!H2SO4/KETH=0.0
+!CO/WC_NH3=0.0
!
-!H2SO4/MEOH=0.0
+!CO/WC_OH=0.0
!
-!H2SO4/ETOH=0.0
+!CO/WC_HO2=0.0
!
-!H2SO4/ALCH=0.0
+!CO/WC_CO2=0.0
!
-!H2SO4/ISOP=0.0
+!CO/WC_SO2=0.0
!
-!H2SO4/BIOL=0.0
+!CO/WC_SULF=0.0
!
-!H2SO4/BIOH=0.0
+!CO/WC_HCHO=0.0
!
-!H2SO4/MTBE=0.0
+!CO/WC_ORA1=0.0
!
-!H2SO4/MVK=0.0
+!CO/WC_ORA2=0.0
!
-!H2SO4/MCR=0.0
+!CO/WC_MO2=0.0
!
-!H2SO4/MGLY=0.0
+!CO/WC_OP1=0.0
!
-!H2SO4/GLY=0.0
+!CO/WC_ASO3=0.0
!
-!H2SO4/ORA1=0.0
+!CO/WC_ASO4=0.0
!
-!H2SO4/ORA2=0.0
+!CO/WC_ASO5=0.0
!
-!H2SO4/ACID=0.0
+!CO/WC_AHSO5=0.0
!
-!H2SO4/UR28=0.0
+!CO/WC_AHMS=0.0
!
-!H2SO4/UR21=0.0
+!CO/WR_O3=0.0
!
-!H2SO4/URG2=0.0
+!CO/WR_H2O2=0.0
!
-!H2SO4/UR26=0.0
+!CO/WR_NO=0.0
!
-!H2SO4/RPG2=0.0
+!CO/WR_NO2=0.0
!
-!H2SO4/RP18=0.0
+!CO/WR_NO3=0.0
!
-!H2SO4/RPG3=0.0
+!CO/WR_N2O5=0.0
!
-!H2SO4/URG4=0.0
+!CO/WR_HONO=0.0
!
-!H2SO4/UR8=0.0
+!CO/WR_HNO3=0.0
!
-!H2SO4/UR17=0.0
+!CO/WR_HNO4=0.0
!
-!H2SO4/UR7=0.0
+!CO/WR_NH3=0.0
!
-!H2SO4/RPR3=0.0
+!CO/WR_OH=0.0
!
-!H2SO4/URG6=0.0
+!CO/WR_HO2=0.0
!
-!H2SO4/UR22=0.0
+!CO/WR_CO2=0.0
!
-!H2SO4/URG7=0.0
+!CO/WR_SO2=0.0
!
-!H2SO4/RPR4=0.0
+!CO/WR_SULF=0.0
!
-!H2SO4/RPR7=0.0
+!CO/WR_HCHO=0.0
!
-!H2SO4/RPG7=0.0
+!CO/WR_ORA1=0.0
!
-!H2SO4/URG8=0.0
+!CO/WR_ORA2=0.0
!
-!H2SO4/UR19=0.0
+!CO/WR_MO2=0.0
!
-!H2SO4/URG9=0.0
+!CO/WR_OP1=0.0
!
-!H2SO4/AP7=0.0
+!CO/WR_ASO3=0.0
!
-!H2SO4/URG10=0.0
+!CO/WR_ASO4=0.0
!
-!H2SO4/RPR1=0.0
+!CO/WR_ASO5=0.0
!
-!H2SO4/RPR5=0.0
+!CO/WR_AHSO5=0.0
!
-!H2SO4/RPR8=0.0
+!CO/WR_AHMS=0.0
!
-!H2SO4/RP10=0.0
+!OH/O3=-K023*<OH>+K024*<HO2>+0.39435*K079*<ALKE>+0.28000*K080*<BIO>+0.20595*K08
+!1*<CARBO>+0.036*K082*<PAN>+K087*<ADD>
+ PJAC(:,14,1)=-TPK%K023(:)*PCONC(:,14)+TPK%K024(:)*PCONC(:,15)+0.39435*TPK%K079&
+&(:)*PCONC(:,19)+0.28000*TPK%K080(:)*PCONC(:,20)+0.20595*TPK%K081(:)*PCONC(:,25&
+&)+0.036*TPK%K082(:)*PCONC(:,27)+TPK%K087(:)*PCONC(:,37)
!
-!H2SO4/RP11=0.0
+!OH/H2O2=+K009+K009-K026*<OH>
+ PJAC(:,14,2)=+TPK%K009(:)+TPK%K009(:)-TPK%K026(:)*PCONC(:,14)
!
-!H2SO4/RP16=0.0
+!OH/NO=-K032*<OH>+K035*<HO2>
+ PJAC(:,14,3)=-TPK%K032(:)*PCONC(:,14)+TPK%K035(:)*PCONC(:,15)
!
-!H2SO4/RPRL=0.0
+!OH/NO2=-K033*<OH>
+ PJAC(:,14,4)=-TPK%K033(:)*PCONC(:,14)
!
-!H2SO4/APAN=0.0
+!OH/NO3=-K034*<OH>+0.7*K038*<HO2>
+ PJAC(:,14,5)=-TPK%K034(:)*PCONC(:,14)+0.7*TPK%K038(:)*PCONC(:,15)
!
-!H2SO4/PAN1=0.0
+!OH/N2O5=0.0
!
-!H2SO4/PAN2=0.0
+!OH/HONO=+K004-K039*<OH>
+ PJAC(:,14,7)=+TPK%K004(:)-TPK%K039(:)*PCONC(:,14)
!
-!H2SO4/PAN3=0.0
+!OH/HNO3=+K005-K040*<OH>
+ PJAC(:,14,8)=+TPK%K005(:)-TPK%K040(:)*PCONC(:,14)
!
-!H2SO4/PAN4=0.0
+!OH/HNO4=+0.35*K006-K041*<OH>
+ PJAC(:,14,9)=+0.35*TPK%K006(:)-TPK%K041(:)*PCONC(:,14)
!
-!H2SO4/PAN6=0.0
+!OH/NH3=-K050*<OH>
+ PJAC(:,14,10)=-TPK%K050(:)*PCONC(:,14)
!
-!H2SO4/PAN7=0.0
+!OH/SO2=-K052*<OH>
+ PJAC(:,14,11)=-TPK%K052(:)*PCONC(:,14)
!
-!H2SO4/PAN8=0.0
+!OH/SULF=0.0
!
-!H2SO4/PN10=0.0
+!OH/CO=-K053*<OH>
+ PJAC(:,14,13)=-TPK%K053(:)*PCONC(:,14)
!
-!H2SO4/RO2T=0.0
+!OH/OH=-K023*<O3>-K025*<HO2>-K026*<H2O2>-K032*<NO>-K033*<NO2>-K034*<NO3>-K039*<
+!HONO>-K040*<HNO3>-K041*<HNO4>-K050*<NH3>-K051*<H2>-K052*<SO2>-K053*<CO>-K056*<
+!CH4>-K057*<ETH>+0.00878*K058*<ALKA>-K058*<ALKA>-K059*<ALKE>-K060*<BIO>-K061*<A
+!RO>-K062*<HCHO>-K063*<ALD>-K064*<KET>-K065*<CARBO>-K066*<ORA1>-K067*<ORA2>+0.3
+!5*K068*<OP1>-K068*<OP1>+0.44925*K069*<OP2>-K069*<OP2>-K070*<PAN>-K071*<ONIT>-K
+!TC11-KTR11
+ PJAC(:,14,14)=-TPK%K023(:)*PCONC(:,1)-TPK%K025(:)*PCONC(:,15)-TPK%K026(:)*PCON&
+&C(:,2)-TPK%K032(:)*PCONC(:,3)-TPK%K033(:)*PCONC(:,4)-TPK%K034(:)*PCONC(:,5)-TP&
+&K%K039(:)*PCONC(:,7)-TPK%K040(:)*PCONC(:,8)-TPK%K041(:)*PCONC(:,9)-TPK%K050(:)&
+&*PCONC(:,10)-TPK%K051(:)*TPK%H2(:)-TPK%K052(:)*PCONC(:,11)-TPK%K053(:)*PCONC(:&
+&,13)-TPK%K056(:)*PCONC(:,16)-TPK%K057(:)*PCONC(:,17)+0.00878*TPK%K058(:)*PCONC&
+&(:,18)-TPK%K058(:)*PCONC(:,18)-TPK%K059(:)*PCONC(:,19)-TPK%K060(:)*PCONC(:,20)&
+&-TPK%K061(:)*PCONC(:,21)-TPK%K062(:)*PCONC(:,22)-TPK%K063(:)*PCONC(:,23)-TPK%K&
+&064(:)*PCONC(:,24)-TPK%K065(:)*PCONC(:,25)-TPK%K066(:)*PCONC(:,30)-TPK%K067(:)&
+&*PCONC(:,31)+0.35*TPK%K068(:)*PCONC(:,28)-TPK%K068(:)*PCONC(:,28)+0.44925*TPK%&
+&K069(:)*PCONC(:,29)-TPK%K069(:)*PCONC(:,29)-TPK%K070(:)*PCONC(:,27)-TPK%K071(:&
+&)*PCONC(:,26)-TPK%KTC11(:)-TPK%KTR11(:)
!
-!H2SO4/RO21=0.0
+!OH/HO2=+K024*<O3>-K025*<OH>+K035*<NO>+0.7*K038*<NO3>
+ PJAC(:,14,15)=+TPK%K024(:)*PCONC(:,1)-TPK%K025(:)*PCONC(:,14)+TPK%K035(:)*PCON&
+&C(:,3)+0.7*TPK%K038(:)*PCONC(:,5)
!
-!H2SO4/RO25=0.0
+!OH/CH4=-K056*<OH>
+ PJAC(:,14,16)=-TPK%K056(:)*PCONC(:,14)
!
-!OH/NO=-K019*<OH>+K026*<HO2>+K340*<RO258>
- PJAC(:,15,1)=-TPK%K019(:)*PCONC(:,15)+TPK%K026(:)*PCONC(:,10)+TPK%K340(:)*TPK%&
-&RO258(:)
+!OH/ETH=-K057*<OH>
+ PJAC(:,14,17)=-TPK%K057(:)*PCONC(:,14)
!
-!OH/NO2=-K022*<OH>
- PJAC(:,15,2)=-TPK%K022(:)*PCONC(:,15)
+!OH/ALKA=+0.00878*K058*<OH>-K058*<OH>
+ PJAC(:,14,18)=+0.00878*TPK%K058(:)*PCONC(:,14)-TPK%K058(:)*PCONC(:,14)
!
-!OH/O3=-K025*<OH>+K030*<HO2>+0.06*K051*<ETHE>+0.36*K056*<OLEL>+0.664*K066*<ISOP
-!>+0.36*K076*<OLEH>+0.89*K086*<BIOL>+0.89*K090*<BIOH>+0.36*K281*<MVK>+0.82*K282
-!*<MCR>
- PJAC(:,15,3)=-TPK%K025(:)*PCONC(:,15)+TPK%K030(:)*PCONC(:,10)+0.06*TPK%K051(:)&
-&*PCONC(:,16)+0.36*TPK%K056(:)*PCONC(:,17)+0.664*TPK%K066(:)*PCONC(:,35)+0.36*T&
-&PK%K076(:)*PCONC(:,18)+0.89*TPK%K086(:)*PCONC(:,36)+0.89*TPK%K090(:)*PCONC(:,3&
-&7)+0.36*TPK%K281(:)*PCONC(:,39)+0.82*TPK%K282(:)*PCONC(:,40)
+!OH/ALKE=-K059*<OH>+0.39435*K079*<O3>
+ PJAC(:,14,19)=-TPK%K059(:)*PCONC(:,14)+0.39435*TPK%K079(:)*PCONC(:,1)
!
-!OH/HONO=+0.9*K020-K039*<OH>
- PJAC(:,15,4)=+0.9*TPK%K020(:)-TPK%K039(:)*PCONC(:,15)
+!OH/BIO=+0.02*K054*<O3P>-K060*<OH>+0.28000*K080*<O3>
+ PJAC(:,14,20)=+0.02*TPK%K054(:)*TPK%O3P(:)-TPK%K060(:)*PCONC(:,14)+0.28000*TPK&
+&%K080(:)*PCONC(:,1)
!
-!OH/HNO3=-K023*<OH>
- PJAC(:,15,5)=-TPK%K023(:)*PCONC(:,15)
+!OH/ARO=-K061*<OH>
+ PJAC(:,14,21)=-TPK%K061(:)*PCONC(:,14)
!
-!OH/HNO4=-K029*<OH>
- PJAC(:,15,6)=-TPK%K029(:)*PCONC(:,15)
+!OH/HCHO=-K062*<OH>
+ PJAC(:,14,22)=-TPK%K062(:)*PCONC(:,14)
!
-!OH/N2O5=0.0
+!OH/ALD=-K063*<OH>
+ PJAC(:,14,23)=-TPK%K063(:)*PCONC(:,14)
!
-!OH/NO3=+0.8*K033*<HO2>-K040*<OH>
- PJAC(:,15,8)=+0.8*TPK%K033(:)*PCONC(:,10)-TPK%K040(:)*PCONC(:,15)
-!
-!OH/NH3=-K345*<OH>
- PJAC(:,15,9)=-TPK%K345(:)*PCONC(:,15)
-!
-!OH/HO2=+K026*<NO>+K030*<O3>+0.8*K033*<NO3>-K042*<OH>+K112*<RO21>+K115*<RO22>+K
-!118*<RO23>+K121*<RO24>+K124*<RO25>+K146*<RO27>+K152*<RO29>+K155*<RO210>+K158*<
-!RO211>+K161*<RO212>+K164*<RO213>+K170*<RO214>+K173*<RO215>+K176*<RO216>+K179*<
-!RO217>+K182*<RO218>+K185*<RO219>+K188*<RO220>+K191*<RO221>+K194*<RO222>+K197*<
-!RO223>+K200*<RO224>+K203*<RO225>+K206*<RO226>+K209*<RO227>+K212*<RO228>+K215*<
-!RO229>+K218*<RO240>+K220*<RO230>+K223*<RO231>+K226*<RO232>+K229*<RO241>+K233*<
-!RO233>+K236*<RO242>+K240*<RO234>+K243*<RO243>+K247*<RO235>+K250*<RO244>+K254*<
-!RO236>+K257*<RO245>+K261*<RO237>+K264*<RO246>+K268*<RO238>+K271*<RO247>+K287*<
-!RO249>
- PJAC(:,15,10)=+TPK%K026(:)*PCONC(:,1)+TPK%K030(:)*PCONC(:,3)+0.8*TPK%K033(:)*P&
-&CONC(:,8)-TPK%K042(:)*PCONC(:,15)+TPK%K112(:)*PCONC(:,86)+TPK%K115(:)*TPK%RO22&
-&(:)+TPK%K118(:)*TPK%RO23(:)+TPK%K121(:)*TPK%RO24(:)+TPK%K124(:)*PCONC(:,87)+TP&
-&K%K146(:)*TPK%RO27(:)+TPK%K152(:)*TPK%RO29(:)+TPK%K155(:)*TPK%RO210(:)+TPK%K15&
-&8(:)*TPK%RO211(:)+TPK%K161(:)*TPK%RO212(:)+TPK%K164(:)*TPK%RO213(:)+TPK%K170(:&
-&)*TPK%RO214(:)+TPK%K173(:)*TPK%RO215(:)+TPK%K176(:)*TPK%RO216(:)+TPK%K179(:)*T&
-&PK%RO217(:)+TPK%K182(:)*TPK%RO218(:)+TPK%K185(:)*TPK%RO219(:)+TPK%K188(:)*TPK%&
-&RO220(:)+TPK%K191(:)*TPK%RO221(:)+TPK%K194(:)*TPK%RO222(:)+TPK%K197(:)*TPK%RO2&
-&23(:)+TPK%K200(:)*TPK%RO224(:)+TPK%K203(:)*TPK%RO225(:)+TPK%K206(:)*TPK%RO226(&
-&:)+TPK%K209(:)*TPK%RO227(:)+TPK%K212(:)*TPK%RO228(:)+TPK%K215(:)*TPK%RO229(:)+&
-&TPK%K218(:)*TPK%RO240(:)+TPK%K220(:)*TPK%RO230(:)+TPK%K223(:)*TPK%RO231(:)+TPK&
-&%K226(:)*TPK%RO232(:)+TPK%K229(:)*TPK%RO241(:)+TPK%K233(:)*TPK%RO233(:)+TPK%K2&
-&36(:)*TPK%RO242(:)+TPK%K240(:)*TPK%RO234(:)+TPK%K243(:)*TPK%RO243(:)+TPK%K247(&
-&:)*TPK%RO235(:)+TPK%K250(:)*TPK%RO244(:)+TPK%K254(:)*TPK%RO236(:)+TPK%K257(:)*&
-&TPK%RO245(:)+TPK%K261(:)*TPK%RO237(:)+TPK%K264(:)*TPK%RO246(:)+TPK%K268(:)*TPK&
-&%RO238(:)+TPK%K271(:)*TPK%RO247(:)+TPK%K287(:)*TPK%RO249(:)
-!
-!OH/CO=-K024*<OH>
- PJAC(:,15,11)=-TPK%K024(:)*PCONC(:,15)
-!
-!OH/H2O2=+2.*K036-K037*<OH>
- PJAC(:,15,12)=+2.*TPK%K036(:)-TPK%K037(:)*PCONC(:,15)
-!
-!OH/SO2=-K035*<OH>
- PJAC(:,15,13)=-TPK%K035(:)*PCONC(:,15)
-!
-!OH/H2SO4=0.0
-!
-!OH/OH=-K019*<NO>-K022*<NO2>-K023*<HNO3>-K024*<CO>-K025*<O3>-K029*<HNO4>-K035*<
-!SO2>-K037*<H2O2>-K039*<HONO>-K040*<NO3>-K042*<HO2>-K043*<CH4>-K046*<HCHO>-K048
-!*<MEOH>-K049*<ETHE>-K053*<ETOH>-K054*<OLEL>-K058*<ALKL>-K060*<ALD2>-K062*<KETL
-!>-K064*<ISOP>-K068*<MTBE>-K069*<ALCH>-K070*<KETH>-K073*<AROO>-K074*<OLEH>-K078
-!*<ALKM>-K079*<AROL>-K080*<AROH>-K082*<ARAL>-K083*<ARAC>-K084*<BIOL>-K088*<BIOH
-!>-K092*<PAH>-K093*<ALKH>-K272*<MVK>-K273*<MCR>-K274*<MGLY>-K303*<RPR5>-K304*<R
-!PR1>-K305*<RP16>-K306*<RPRL>-K312*<RPR3>-K322*<RPR7>-K323*<RPG7>-K324*<RPR8>-K
-!325*<RP10>-K326*<RP11>-K334*<RPG3>-K335*<RPG2>-K337*<RP18>-K345*<NH3>-K347*<OR
-!A1>-K348*<ORA2>-K349*<ACID>
- PJAC(:,15,15)=-TPK%K019(:)*PCONC(:,1)-TPK%K022(:)*PCONC(:,2)-TPK%K023(:)*PCONC&
-&(:,5)-TPK%K024(:)*PCONC(:,11)-TPK%K025(:)*PCONC(:,3)-TPK%K029(:)*PCONC(:,6)-TP&
-&K%K035(:)*PCONC(:,13)-TPK%K037(:)*PCONC(:,12)-TPK%K039(:)*PCONC(:,4)-TPK%K040(&
-&:)*PCONC(:,8)-TPK%K042(:)*PCONC(:,10)-TPK%K043(:)*TPK%CH4(:)-TPK%K046(:)*PCONC&
-&(:,28)-TPK%K048(:)*PCONC(:,32)-TPK%K049(:)*PCONC(:,16)-TPK%K053(:)*PCONC(:,33)&
-&-TPK%K054(:)*PCONC(:,17)-TPK%K058(:)*PCONC(:,19)-TPK%K060(:)*PCONC(:,29)-TPK%K&
-&062(:)*PCONC(:,30)-TPK%K064(:)*PCONC(:,35)-TPK%K068(:)*PCONC(:,38)-TPK%K069(:)&
-&*PCONC(:,34)-TPK%K070(:)*PCONC(:,31)-TPK%K073(:)*PCONC(:,24)-TPK%K074(:)*PCONC&
-&(:,18)-TPK%K078(:)*PCONC(:,20)-TPK%K079(:)*PCONC(:,23)-TPK%K080(:)*PCONC(:,22)&
-&-TPK%K082(:)*PCONC(:,25)-TPK%K083(:)*PCONC(:,26)-TPK%K084(:)*PCONC(:,36)-TPK%K&
-&088(:)*PCONC(:,37)-TPK%K092(:)*PCONC(:,27)-TPK%K093(:)*PCONC(:,21)-TPK%K272(:)&
-&*PCONC(:,39)-TPK%K273(:)*PCONC(:,40)-TPK%K274(:)*PCONC(:,41)-TPK%K303(:)*PCONC&
-&(:,70)-TPK%K304(:)*PCONC(:,69)-TPK%K305(:)*PCONC(:,74)-TPK%K306(:)*PCONC(:,75)&
-&-TPK%K312(:)*PCONC(:,57)-TPK%K322(:)*PCONC(:,62)-TPK%K323(:)*PCONC(:,63)-TPK%K&
-&324(:)*PCONC(:,71)-TPK%K325(:)*PCONC(:,72)-TPK%K326(:)*PCONC(:,73)-TPK%K334(:)&
-&*PCONC(:,52)-TPK%K335(:)*PCONC(:,50)-TPK%K337(:)*PCONC(:,51)-TPK%K345(:)*PCONC&
-&(:,9)-TPK%K347(:)*PCONC(:,43)-TPK%K348(:)*PCONC(:,44)-TPK%K349(:)*PCONC(:,45)
+!OH/KET=-K064*<OH>
+ PJAC(:,14,24)=-TPK%K064(:)*PCONC(:,14)
!
-!OH/ETHE=-K049*<OH>+0.06*K051*<O3>
- PJAC(:,15,16)=-TPK%K049(:)*PCONC(:,15)+0.06*TPK%K051(:)*PCONC(:,3)
+!OH/CARBO=-K065*<OH>+0.20595*K081*<O3>
+ PJAC(:,14,25)=-TPK%K065(:)*PCONC(:,14)+0.20595*TPK%K081(:)*PCONC(:,1)
!
-!OH/OLEL=-K054*<OH>+0.36*K056*<O3>
- PJAC(:,15,17)=-TPK%K054(:)*PCONC(:,15)+0.36*TPK%K056(:)*PCONC(:,3)
+!OH/ONIT=-K071*<OH>
+ PJAC(:,14,26)=-TPK%K071(:)*PCONC(:,14)
!
-!OH/OLEH=-K074*<OH>+0.36*K076*<O3>
- PJAC(:,15,18)=-TPK%K074(:)*PCONC(:,15)+0.36*TPK%K076(:)*PCONC(:,3)
+!OH/PAN=-K070*<OH>+0.036*K082*<O3>
+ PJAC(:,14,27)=-TPK%K070(:)*PCONC(:,14)+0.036*TPK%K082(:)*PCONC(:,1)
!
-!OH/ALKL=-K058*<OH>
- PJAC(:,15,19)=-TPK%K058(:)*PCONC(:,15)
+!OH/OP1=+K013+0.35*K068*<OH>-K068*<OH>
+ PJAC(:,14,28)=+TPK%K013(:)+0.35*TPK%K068(:)*PCONC(:,14)-TPK%K068(:)*PCONC(:,14&
+&)
!
-!OH/ALKM=-K078*<OH>
- PJAC(:,15,20)=-TPK%K078(:)*PCONC(:,15)
+!OH/OP2=+K014+0.44925*K069*<OH>-K069*<OH>
+ PJAC(:,14,29)=+TPK%K014(:)+0.44925*TPK%K069(:)*PCONC(:,14)-TPK%K069(:)*PCONC(:&
+&,14)
!
-!OH/ALKH=-K093*<OH>
- PJAC(:,15,21)=-TPK%K093(:)*PCONC(:,15)
+!OH/ORA1=-K066*<OH>
+ PJAC(:,14,30)=-TPK%K066(:)*PCONC(:,14)
!
-!OH/AROH=-K080*<OH>
- PJAC(:,15,22)=-TPK%K080(:)*PCONC(:,15)
+!OH/ORA2=-K067*<OH>
+ PJAC(:,14,31)=-TPK%K067(:)*PCONC(:,14)
!
-!OH/AROL=-K079*<OH>
- PJAC(:,15,23)=-TPK%K079(:)*PCONC(:,15)
+!OH/MO2=0.0
!
-!OH/AROO=-K073*<OH>
- PJAC(:,15,24)=-TPK%K073(:)*PCONC(:,15)
+!OH/ALKAP=0.0
!
-!OH/ARAL=-K082*<OH>
- PJAC(:,15,25)=-TPK%K082(:)*PCONC(:,15)
+!OH/ALKEP=0.0
!
-!OH/ARAC=-K083*<OH>
- PJAC(:,15,26)=-TPK%K083(:)*PCONC(:,15)
+!OH/BIOP=0.0
!
-!OH/PAH=-K092*<OH>
- PJAC(:,15,27)=-TPK%K092(:)*PCONC(:,15)
+!OH/PHO=0.0
!
-!OH/HCHO=-K046*<OH>
- PJAC(:,15,28)=-TPK%K046(:)*PCONC(:,15)
+!OH/ADD=+K087*<O3>
+ PJAC(:,14,37)=+TPK%K087(:)*PCONC(:,1)
!
-!OH/ALD2=-K060*<OH>
- PJAC(:,15,29)=-TPK%K060(:)*PCONC(:,15)
+!OH/AROP=0.0
!
-!OH/KETL=-K062*<OH>
- PJAC(:,15,30)=-TPK%K062(:)*PCONC(:,15)
+!OH/CARBOP=0.0
!
-!OH/KETH=-K070*<OH>
- PJAC(:,15,31)=-TPK%K070(:)*PCONC(:,15)
+!OH/OLN=0.0
!
-!OH/MEOH=-K048*<OH>
- PJAC(:,15,32)=-TPK%K048(:)*PCONC(:,15)
+!OH/XO2=0.0
!
-!OH/ETOH=-K053*<OH>
- PJAC(:,15,33)=-TPK%K053(:)*PCONC(:,15)
+!OH/WC_O3=0.0
!
-!OH/ALCH=-K069*<OH>
- PJAC(:,15,34)=-TPK%K069(:)*PCONC(:,15)
+!OH/WC_H2O2=0.0
!
-!OH/ISOP=-K064*<OH>+0.664*K066*<O3>
- PJAC(:,15,35)=-TPK%K064(:)*PCONC(:,15)+0.664*TPK%K066(:)*PCONC(:,3)
+!OH/WC_NO=0.0
!
-!OH/BIOL=-K084*<OH>+0.89*K086*<O3>
- PJAC(:,15,36)=-TPK%K084(:)*PCONC(:,15)+0.89*TPK%K086(:)*PCONC(:,3)
+!OH/WC_NO2=0.0
!
-!OH/BIOH=-K088*<OH>+0.89*K090*<O3>
- PJAC(:,15,37)=-TPK%K088(:)*PCONC(:,15)+0.89*TPK%K090(:)*PCONC(:,3)
+!OH/WC_NO3=0.0
!
-!OH/MTBE=-K068*<OH>
- PJAC(:,15,38)=-TPK%K068(:)*PCONC(:,15)
+!OH/WC_N2O5=0.0
!
-!OH/MVK=-K272*<OH>+0.36*K281*<O3>
- PJAC(:,15,39)=-TPK%K272(:)*PCONC(:,15)+0.36*TPK%K281(:)*PCONC(:,3)
+!OH/WC_HONO=0.0
!
-!OH/MCR=-K273*<OH>+0.82*K282*<O3>
- PJAC(:,15,40)=-TPK%K273(:)*PCONC(:,15)+0.82*TPK%K282(:)*PCONC(:,3)
+!OH/WC_HNO3=0.0
!
-!OH/MGLY=-K274*<OH>
- PJAC(:,15,41)=-TPK%K274(:)*PCONC(:,15)
+!OH/WC_HNO4=0.0
!
-!OH/GLY=0.0
+!OH/WC_NH3=0.0
!
-!OH/ORA1=-K347*<OH>
- PJAC(:,15,43)=-TPK%K347(:)*PCONC(:,15)
+!OH/WC_OH=+KTC31
+ PJAC(:,14,52)=+TPK%KTC31(:)
!
-!OH/ORA2=-K348*<OH>
- PJAC(:,15,44)=-TPK%K348(:)*PCONC(:,15)
+!OH/WC_HO2=0.0
!
-!OH/ACID=-K349*<OH>
- PJAC(:,15,45)=-TPK%K349(:)*PCONC(:,15)
+!OH/WC_CO2=0.0
!
-!OH/UR28=0.0
+!OH/WC_SO2=0.0
!
-!OH/UR21=0.0
+!OH/WC_SULF=0.0
!
-!OH/URG2=0.0
+!OH/WC_HCHO=0.0
!
-!OH/UR26=0.0
+!OH/WC_ORA1=0.0
!
-!OH/RPG2=-K335*<OH>
- PJAC(:,15,50)=-TPK%K335(:)*PCONC(:,15)
+!OH/WC_ORA2=0.0
!
-!OH/RP18=-K337*<OH>
- PJAC(:,15,51)=-TPK%K337(:)*PCONC(:,15)
+!OH/WC_MO2=0.0
!
-!OH/RPG3=-K334*<OH>
- PJAC(:,15,52)=-TPK%K334(:)*PCONC(:,15)
+!OH/WC_OP1=0.0
!
-!OH/URG4=0.0
+!OH/WC_ASO3=0.0
!
-!OH/UR8=0.0
+!OH/WC_ASO4=0.0
!
-!OH/UR17=0.0
+!OH/WC_ASO5=0.0
!
-!OH/UR7=0.0
+!OH/WC_AHSO5=0.0
!
-!OH/RPR3=-K312*<OH>
- PJAC(:,15,57)=-TPK%K312(:)*PCONC(:,15)
+!OH/WC_AHMS=0.0
!
-!OH/URG6=0.0
+!OH/WR_O3=0.0
!
-!OH/UR22=0.0
-!
-!OH/URG7=0.0
-!
-!OH/RPR4=0.0
-!
-!OH/RPR7=-K322*<OH>
- PJAC(:,15,62)=-TPK%K322(:)*PCONC(:,15)
-!
-!OH/RPG7=-K323*<OH>
- PJAC(:,15,63)=-TPK%K323(:)*PCONC(:,15)
-!
-!OH/URG8=0.0
-!
-!OH/UR19=0.0
-!
-!OH/URG9=0.0
-!
-!OH/AP7=0.0
-!
-!OH/URG10=0.0
-!
-!OH/RPR1=-K304*<OH>
- PJAC(:,15,69)=-TPK%K304(:)*PCONC(:,15)
-!
-!OH/RPR5=-K303*<OH>
- PJAC(:,15,70)=-TPK%K303(:)*PCONC(:,15)
-!
-!OH/RPR8=-K324*<OH>
- PJAC(:,15,71)=-TPK%K324(:)*PCONC(:,15)
-!
-!OH/RP10=-K325*<OH>
- PJAC(:,15,72)=-TPK%K325(:)*PCONC(:,15)
-!
-!OH/RP11=-K326*<OH>
- PJAC(:,15,73)=-TPK%K326(:)*PCONC(:,15)
-!
-!OH/RP16=-K305*<OH>+K339
- PJAC(:,15,74)=-TPK%K305(:)*PCONC(:,15)+TPK%K339(:)
-!
-!OH/RPRL=-K306*<OH>
- PJAC(:,15,75)=-TPK%K306(:)*PCONC(:,15)
-!
-!OH/APAN=0.0
-!
-!OH/PAN1=0.0
-!
-!OH/PAN2=0.0
-!
-!OH/PAN3=0.0
-!
-!OH/PAN4=0.0
-!
-!OH/PAN6=0.0
-!
-!OH/PAN7=0.0
-!
-!OH/PAN8=0.0
-!
-!OH/PN10=0.0
-!
-!OH/RO2T=+K293*<RO251>+K296*<RO252>+K299*<RO253>+K342*<RO258>
- PJAC(:,15,85)=+TPK%K293(:)*TPK%RO251(:)+TPK%K296(:)*TPK%RO252(:)+TPK%K299(:)*T&
-&PK%RO253(:)+TPK%K342(:)*TPK%RO258(:)
-!
-!OH/RO21=+K112*<HO2>
- PJAC(:,15,86)=+TPK%K112(:)*PCONC(:,10)
-!
-!OH/RO25=+K124*<HO2>
- PJAC(:,15,87)=+TPK%K124(:)*PCONC(:,10)
-!
-RETURN
-END SUBROUTINE SUBJ2
-!
-SUBROUTINE SUBJ3
-!
-!Indices 16 a 20
-!
-!
-!ETHE/NO=0.0
-!
-!ETHE/NO2=0.0
-!
-!ETHE/O3=-K051*<ETHE>
- PJAC(:,16,3)=-TPK%K051(:)*PCONC(:,16)
-!
-!ETHE/HONO=0.0
-!
-!ETHE/HNO3=0.0
-!
-!ETHE/HNO4=0.0
-!
-!ETHE/N2O5=0.0
-!
-!ETHE/NO3=-K050*<ETHE>
- PJAC(:,16,8)=-TPK%K050(:)*PCONC(:,16)
-!
-!ETHE/NH3=0.0
-!
-!ETHE/HO2=0.0
-!
-!ETHE/CO=0.0
-!
-!ETHE/H2O2=0.0
-!
-!ETHE/SO2=0.0
-!
-!ETHE/H2SO4=0.0
-!
-!ETHE/OH=-K049*<ETHE>
- PJAC(:,16,15)=-TPK%K049(:)*PCONC(:,16)
-!
-!ETHE/ETHE=-K049*<OH>-K050*<NO3>-K051*<O3>-K052*<O>
- PJAC(:,16,16)=-TPK%K049(:)*PCONC(:,15)-TPK%K050(:)*PCONC(:,8)-TPK%K051(:)*PCON&
-&C(:,3)-TPK%K052(:)*TPK%O(:)
-!
-!ETHE/OLEL=0.0
-!
-!ETHE/OLEH=0.0
-!
-!ETHE/ALKL=0.0
-!
-!ETHE/ALKM=0.0
-!
-!ETHE/ALKH=0.0
-!
-!ETHE/AROH=0.0
-!
-!ETHE/AROL=0.0
-!
-!ETHE/AROO=0.0
-!
-!ETHE/ARAL=0.0
-!
-!ETHE/ARAC=0.0
-!
-!ETHE/PAH=0.0
-!
-!ETHE/HCHO=0.0
-!
-!ETHE/ALD2=0.0
-!
-!ETHE/KETL=0.0
-!
-!ETHE/KETH=0.0
-!
-!ETHE/MEOH=0.0
-!
-!ETHE/ETOH=0.0
-!
-!ETHE/ALCH=0.0
-!
-!ETHE/ISOP=0.0
-!
-!ETHE/BIOL=0.0
-!
-!ETHE/BIOH=0.0
-!
-!ETHE/MTBE=0.0
-!
-!ETHE/MVK=0.0
-!
-!ETHE/MCR=0.0
-!
-!ETHE/MGLY=0.0
-!
-!ETHE/GLY=0.0
-!
-!ETHE/ORA1=0.0
-!
-!ETHE/ORA2=0.0
-!
-!ETHE/ACID=0.0
-!
-!ETHE/UR28=0.0
-!
-!ETHE/UR21=0.0
-!
-!ETHE/URG2=0.0
-!
-!ETHE/UR26=0.0
-!
-!ETHE/RPG2=0.0
-!
-!ETHE/RP18=0.0
-!
-!ETHE/RPG3=0.0
-!
-!ETHE/URG4=0.0
-!
-!ETHE/UR8=0.0
-!
-!ETHE/UR17=0.0
-!
-!ETHE/UR7=0.0
-!
-!ETHE/RPR3=0.0
-!
-!ETHE/URG6=0.0
-!
-!ETHE/UR22=0.0
-!
-!ETHE/URG7=0.0
-!
-!ETHE/RPR4=0.0
+!OH/WR_H2O2=0.0
!
-!ETHE/RPR7=0.0
+!OH/WR_NO=0.0
!
-!ETHE/RPG7=0.0
+!OH/WR_NO2=0.0
!
-!ETHE/URG8=0.0
+!OH/WR_NO3=0.0
!
-!ETHE/UR19=0.0
+!OH/WR_N2O5=0.0
!
-!ETHE/URG9=0.0
+!OH/WR_HONO=0.0
!
-!ETHE/AP7=0.0
+!OH/WR_HNO3=0.0
!
-!ETHE/URG10=0.0
+!OH/WR_HNO4=0.0
!
-!ETHE/RPR1=0.0
+!OH/WR_NH3=0.0
!
-!ETHE/RPR5=0.0
+!OH/WR_OH=+KTR31
+ PJAC(:,14,77)=+TPK%KTR31(:)
!
-!ETHE/RPR8=0.0
+!OH/WR_HO2=0.0
!
-!ETHE/RP10=0.0
+!OH/WR_CO2=0.0
!
-!ETHE/RP11=0.0
+!OH/WR_SO2=0.0
!
-!ETHE/RP16=0.0
+!OH/WR_SULF=0.0
!
-!ETHE/RPRL=0.0
+!OH/WR_HCHO=0.0
!
-!ETHE/APAN=0.0
+!OH/WR_ORA1=0.0
!
-!ETHE/PAN1=0.0
+!OH/WR_ORA2=0.0
!
-!ETHE/PAN2=0.0
+!OH/WR_MO2=0.0
!
-!ETHE/PAN3=0.0
+!OH/WR_OP1=0.0
!
-!ETHE/PAN4=0.0
+!OH/WR_ASO3=0.0
!
-!ETHE/PAN6=0.0
+!OH/WR_ASO4=0.0
!
-!ETHE/PAN7=0.0
+!OH/WR_ASO5=0.0
!
-!ETHE/PAN8=0.0
+!OH/WR_AHSO5=0.0
!
-!ETHE/PN10=0.0
+!OH/WR_AHMS=0.0
!
-!ETHE/RO2T=0.0
+!HO2/O3=+K023*<OH>-K024*<HO2>+0.23451*K079*<ALKE>+0.30000*K080*<BIO>+0.28441*K0
+!81*<CARBO>+0.08*K082*<PAN>
+ PJAC(:,15,1)=+TPK%K023(:)*PCONC(:,14)-TPK%K024(:)*PCONC(:,15)+0.23451*TPK%K079&
+&(:)*PCONC(:,19)+0.30000*TPK%K080(:)*PCONC(:,20)+0.28441*TPK%K081(:)*PCONC(:,25&
+&)+0.08*TPK%K082(:)*PCONC(:,27)
+!
+!HO2/H2O2=+K026*<OH>
+ PJAC(:,15,2)=+TPK%K026(:)*PCONC(:,14)
+!
+!HO2/NO=-K035*<HO2>+K090*<MO2>+0.74265*K091*<ALKAP>+K092*<ALKEP>+0.84700*K093*<
+!BIOP>+0.95115*K094*<AROP>+0.12334*K095*<CARBOP>+0.18401*K096*<OLN>
+ PJAC(:,15,3)=-TPK%K035(:)*PCONC(:,15)+TPK%K090(:)*PCONC(:,32)+0.74265*TPK%K091&
+&(:)*PCONC(:,33)+TPK%K092(:)*PCONC(:,34)+0.84700*TPK%K093(:)*PCONC(:,35)+0.9511&
+&5*TPK%K094(:)*PCONC(:,38)+0.12334*TPK%K095(:)*PCONC(:,39)+0.18401*TPK%K096(:)*&
+&PCONC(:,40)
+!
+!HO2/NO2=-K036*<HO2>
+ PJAC(:,15,4)=-TPK%K036(:)*PCONC(:,15)
+!
+!HO2/NO3=+K034*<OH>-K038*<HO2>+K072*<HCHO>+0.63217*K074*<CARBO>+K119*<MO2>+0.81
+!290*K120*<ALKAP>+K121*<ALKEP>+K122*<BIOP>+K123*<AROP>+0.04915*K124*<CARBOP>+0.
+!25928*K125*<OLN>
+ PJAC(:,15,5)=+TPK%K034(:)*PCONC(:,14)-TPK%K038(:)*PCONC(:,15)+TPK%K072(:)*PCON&
+&C(:,22)+0.63217*TPK%K074(:)*PCONC(:,25)+TPK%K119(:)*PCONC(:,32)+0.81290*TPK%K1&
+&20(:)*PCONC(:,33)+TPK%K121(:)*PCONC(:,34)+TPK%K122(:)*PCONC(:,35)+TPK%K123(:)*&
+&PCONC(:,38)+0.04915*TPK%K124(:)*PCONC(:,39)+0.25928*TPK%K125(:)*PCONC(:,40)
!
-!ETHE/RO21=0.0
+!HO2/N2O5=0.0
!
-!ETHE/RO25=0.0
+!HO2/HONO=0.0
!
-!OLEL/NO=+TPK%CF5*K150*<RO29>+TPK%CF7*K168*<RO214>
- PJAC(:,17,1)=+TPK%CF5*TPK%K150(:)*TPK%RO29(:)+TPK%CF7*TPK%K168(:)*TPK%RO214(:)
+!HO2/HNO3=0.0
!
-!OLEL/NO2=0.0
+!HO2/HNO4=+0.65*K006+K037
+ PJAC(:,15,9)=+0.65*TPK%K006(:)+TPK%K037(:)
!
-!OLEL/O3=-K056*<OLEL>+0.054*K066*<ISOP>
- PJAC(:,17,3)=-TPK%K056(:)*PCONC(:,17)+0.054*TPK%K066(:)*PCONC(:,35)
+!HO2/NH3=0.0
!
-!OLEL/HONO=0.0
+!HO2/SO2=+K052*<OH>
+ PJAC(:,15,11)=+TPK%K052(:)*PCONC(:,14)
!
-!OLEL/HNO3=0.0
+!HO2/SULF=0.0
!
-!OLEL/HNO4=0.0
+!HO2/CO=+K053*<OH>
+ PJAC(:,15,13)=+TPK%K053(:)*PCONC(:,14)
!
-!OLEL/N2O5=0.0
+!HO2/OH=+K023*<O3>-K025*<HO2>+K026*<H2O2>+K034*<NO3>+K051*<H2>+K052*<SO2>+K053*
+!<CO>+0.12793*K058*<ALKA>+0.10318*K061*<ARO>+K062*<HCHO>+0.51208*K065*<CARBO>+K
+!066*<ORA1>+0.02915*K069*<OP2>+0.28107*K070*<PAN>
+ PJAC(:,15,14)=+TPK%K023(:)*PCONC(:,1)-TPK%K025(:)*PCONC(:,15)+TPK%K026(:)*PCON&
+&C(:,2)+TPK%K034(:)*PCONC(:,5)+TPK%K051(:)*TPK%H2(:)+TPK%K052(:)*PCONC(:,11)+TP&
+&K%K053(:)*PCONC(:,13)+0.12793*TPK%K058(:)*PCONC(:,18)+0.10318*TPK%K061(:)*PCON&
+&C(:,21)+TPK%K062(:)*PCONC(:,22)+0.51208*TPK%K065(:)*PCONC(:,25)+TPK%K066(:)*PC&
+&ONC(:,30)+0.02915*TPK%K069(:)*PCONC(:,29)+0.28107*TPK%K070(:)*PCONC(:,27)
!
-!OLEL/NO3=-K055*<OLEL>
- PJAC(:,17,8)=-TPK%K055(:)*PCONC(:,17)
+!HO2/HO2=-K024*<O3>-K025*<OH>-K027*<HO2>-K027*<HO2>-K027*<HO2>-K027*<HO2>-K028*
+!<HO2>*<H2O>-K028*<HO2>*<H2O>-K028*<HO2>*<H2O>-K028*<HO2>*<H2O>-K035*<NO>-K036*
+!<NO2>-K038*<NO3>-K084*<PHO>-K097*<MO2>-K098*<ALKAP>-K099*<ALKEP>-K0100*<BIOP>-
+!K0101*<AROP>-K0102*<CARBOP>-K103*<OLN>-K126*<XO2>-KTC12-KTR12
+ PJAC(:,15,15)=-TPK%K024(:)*PCONC(:,1)-TPK%K025(:)*PCONC(:,14)-TPK%K027(:)*PCON&
+&C(:,15)-TPK%K027(:)*PCONC(:,15)-TPK%K027(:)*PCONC(:,15)-TPK%K027(:)*PCONC(:,15&
+&)-TPK%K028(:)*PCONC(:,15)*TPK%H2O(:)-TPK%K028(:)*PCONC(:,15)*TPK%H2O(:)-TPK%K0&
+&28(:)*PCONC(:,15)*TPK%H2O(:)-TPK%K028(:)*PCONC(:,15)*TPK%H2O(:)-TPK%K035(:)*PC&
+&ONC(:,3)-TPK%K036(:)*PCONC(:,4)-TPK%K038(:)*PCONC(:,5)-TPK%K084(:)*PCONC(:,36)&
+&-TPK%K097(:)*PCONC(:,32)-TPK%K098(:)*PCONC(:,33)-TPK%K099(:)*PCONC(:,34)-TPK%K&
+&0100(:)*PCONC(:,35)-TPK%K0101(:)*PCONC(:,38)-TPK%K0102(:)*PCONC(:,39)-TPK%K103&
+&(:)*PCONC(:,40)-TPK%K126(:)*PCONC(:,41)-TPK%KTC12(:)-TPK%KTR12(:)
!
-!OLEL/NH3=0.0
+!HO2/CH4=0.0
!
-!OLEL/HO2=+0.5*K166*<RO239>+0.5*K289*<RO250>
- PJAC(:,17,10)=+0.5*TPK%K166(:)*TPK%RO239(:)+0.5*TPK%K289(:)*TPK%RO250(:)
+!HO2/ETH=0.0
!
-!OLEL/CO=0.0
+!HO2/ALKA=+0.12793*K058*<OH>
+ PJAC(:,15,18)=+0.12793*TPK%K058(:)*PCONC(:,14)
!
-!OLEL/H2O2=0.0
+!HO2/ALKE=+0.23451*K079*<O3>
+ PJAC(:,15,19)=+0.23451*TPK%K079(:)*PCONC(:,1)
!
-!OLEL/SO2=0.0
+!HO2/BIO=+0.28*K054*<O3P>+0.30000*K080*<O3>
+ PJAC(:,15,20)=+0.28*TPK%K054(:)*TPK%O3P(:)+0.30000*TPK%K080(:)*PCONC(:,1)
!
-!OLEL/H2SO4=0.0
+!HO2/ARO=+0.10318*K061*<OH>
+ PJAC(:,15,21)=+0.10318*TPK%K061(:)*PCONC(:,14)
!
-!OLEL/OH=-K054*<OLEL>
- PJAC(:,17,15)=-TPK%K054(:)*PCONC(:,17)
+!HO2/HCHO=+K011+K011+K062*<OH>+K072*<NO3>
+ PJAC(:,15,22)=+TPK%K011(:)+TPK%K011(:)+TPK%K062(:)*PCONC(:,14)+TPK%K072(:)*PCO&
+&NC(:,5)
!
-!OLEL/ETHE=0.0
+!HO2/ALD=+K012
+ PJAC(:,15,23)=+TPK%K012(:)
!
-!OLEL/OLEL=-K054*<OH>-K055*<NO3>-K056*<O3>-K057*<O>
- PJAC(:,17,17)=-TPK%K054(:)*PCONC(:,15)-TPK%K055(:)*PCONC(:,8)-TPK%K056(:)*PCON&
-&C(:,3)-TPK%K057(:)*TPK%O(:)
+!HO2/KET=0.0
!
-!OLEL/OLEH=0.0
+!HO2/CARBO=+0.75830*K016+0.51208*K065*<OH>+0.63217*K074*<NO3>+0.28441*K081*<O3>
+ PJAC(:,15,25)=+0.75830*TPK%K016(:)+0.51208*TPK%K065(:)*PCONC(:,14)+0.63217*TPK&
+&%K074(:)*PCONC(:,5)+0.28441*TPK%K081(:)*PCONC(:,1)
!
-!OLEL/ALKL=0.0
+!HO2/ONIT=+K017
+ PJAC(:,15,26)=+TPK%K017(:)
!
-!OLEL/ALKM=0.0
+!HO2/PAN=+0.28107*K070*<OH>+0.08*K082*<O3>
+ PJAC(:,15,27)=+0.28107*TPK%K070(:)*PCONC(:,14)+0.08*TPK%K082(:)*PCONC(:,1)
!
-!OLEL/ALKH=0.0
+!HO2/OP1=+K013
+ PJAC(:,15,28)=+TPK%K013(:)
!
-!OLEL/AROH=0.0
+!HO2/OP2=+0.96205*K014+0.02915*K069*<OH>
+ PJAC(:,15,29)=+0.96205*TPK%K014(:)+0.02915*TPK%K069(:)*PCONC(:,14)
!
-!OLEL/AROL=0.0
+!HO2/ORA1=+K066*<OH>
+ PJAC(:,15,30)=+TPK%K066(:)*PCONC(:,14)
!
-!OLEL/AROO=0.0
+!HO2/ORA2=0.0
!
-!OLEL/ARAL=0.0
+!HO2/MO2=+K090*<NO>-K097*<HO2>+0.66*K104*<MO2>+0.66*K104*<MO2>+0.98383*K105*<AL
+!KAP>+K106*<ALKEP>+1.00000*K107*<BIOP>+1.02767*K108*<AROP>+0.82998*K109*<CARBOP
+!>+0.67560*K110*<OLN>+K119*<NO3>+K127*<XO2>
+ PJAC(:,15,32)=+TPK%K090(:)*PCONC(:,3)-TPK%K097(:)*PCONC(:,15)+0.66*TPK%K104(:)&
+&*PCONC(:,32)+0.66*TPK%K104(:)*PCONC(:,32)+0.98383*TPK%K105(:)*PCONC(:,33)+TPK%&
+&K106(:)*PCONC(:,34)+1.00000*TPK%K107(:)*PCONC(:,35)+1.02767*TPK%K108(:)*PCONC(&
+&:,38)+0.82998*TPK%K109(:)*PCONC(:,39)+0.67560*TPK%K110(:)*PCONC(:,40)+TPK%K119&
+&(:)*PCONC(:,5)+TPK%K127(:)*PCONC(:,41)
+!
+!HO2/ALKAP=+0.74265*K091*<NO>-K098*<HO2>+0.98383*K105*<MO2>+0.48079*K111*<CARBO
+!P>+0.81290*K120*<NO3>
+ PJAC(:,15,33)=+0.74265*TPK%K091(:)*PCONC(:,3)-TPK%K098(:)*PCONC(:,15)+0.98383*&
+&TPK%K105(:)*PCONC(:,32)+0.48079*TPK%K111(:)*PCONC(:,39)+0.81290*TPK%K120(:)*PC&
+&ONC(:,5)
+!
+!HO2/ALKEP=+K092*<NO>-K099*<HO2>+K106*<MO2>+0.50078*K112*<CARBOP>+K121*<NO3>
+ PJAC(:,15,34)=+TPK%K092(:)*PCONC(:,3)-TPK%K099(:)*PCONC(:,15)+TPK%K106(:)*PCON&
+&C(:,32)+0.50078*TPK%K112(:)*PCONC(:,39)+TPK%K121(:)*PCONC(:,5)
+!
+!HO2/BIOP=+0.84700*K093*<NO>-K0100*<HO2>+1.00000*K107*<MO2>+0.50600*K113*<CARBO
+!P>+K122*<NO3>
+ PJAC(:,15,35)=+0.84700*TPK%K093(:)*PCONC(:,3)-TPK%K0100(:)*PCONC(:,15)+1.00000&
+&*TPK%K107(:)*PCONC(:,32)+0.50600*TPK%K113(:)*PCONC(:,39)+TPK%K122(:)*PCONC(:,5&
+&)
!
-!OLEL/ARAC=0.0
+!HO2/PHO=-K084*<HO2>
+ PJAC(:,15,36)=-TPK%K084(:)*PCONC(:,15)
!
-!OLEL/PAH=0.0
+!HO2/ADD=+0.02*K086*<O2>
+ PJAC(:,15,37)=+0.02*TPK%K086(:)*TPK%O2(:)
!
-!OLEL/HCHO=0.0
+!HO2/AROP=+0.95115*K094*<NO>-K0101*<HO2>+1.02767*K108*<MO2>+K114*<CARBOP>+K123*
+!<NO3>
+ PJAC(:,15,38)=+0.95115*TPK%K094(:)*PCONC(:,3)-TPK%K0101(:)*PCONC(:,15)+1.02767&
+&*TPK%K108(:)*PCONC(:,32)+TPK%K114(:)*PCONC(:,39)+TPK%K123(:)*PCONC(:,5)
!
-!OLEL/ALD2=0.0
+!HO2/CARBOP=+0.12334*K095*<NO>-K0102*<HO2>+0.82998*K109*<MO2>+0.48079*K111*<ALK
+!AP>+0.50078*K112*<ALKEP>+0.50600*K113*<BIOP>+K114*<AROP>+0.07566*K115*<CARBOP>
+!+0.07566*K115*<CARBOP>+0.17599*K116*<OLN>+0.04915*K124*<NO3>
+ PJAC(:,15,39)=+0.12334*TPK%K095(:)*PCONC(:,3)-TPK%K0102(:)*PCONC(:,15)+0.82998&
+&*TPK%K109(:)*PCONC(:,32)+0.48079*TPK%K111(:)*PCONC(:,33)+0.50078*TPK%K112(:)*P&
+&CONC(:,34)+0.50600*TPK%K113(:)*PCONC(:,35)+TPK%K114(:)*PCONC(:,38)+0.07566*TPK&
+&%K115(:)*PCONC(:,39)+0.07566*TPK%K115(:)*PCONC(:,39)+0.17599*TPK%K116(:)*PCONC&
+&(:,40)+0.04915*TPK%K124(:)*PCONC(:,5)
!
-!OLEL/KETL=0.0
+!HO2/OLN=+0.18401*K096*<NO>-K103*<HO2>+0.67560*K110*<MO2>+0.17599*K116*<CARBOP>
+!+K117*<OLN>+K117*<OLN>+0.00000*K118*<OLN>+0.00000*K118*<OLN>+0.25928*K125*<NO3
+!>
+ PJAC(:,15,40)=+0.18401*TPK%K096(:)*PCONC(:,3)-TPK%K103(:)*PCONC(:,15)+0.67560*&
+&TPK%K110(:)*PCONC(:,32)+0.17599*TPK%K116(:)*PCONC(:,39)+TPK%K117(:)*PCONC(:,40&
+&)+TPK%K117(:)*PCONC(:,40)+0.00000*TPK%K118(:)*PCONC(:,40)+0.00000*TPK%K118(:)*&
+&PCONC(:,40)+0.25928*TPK%K125(:)*PCONC(:,5)
!
-!OLEL/KETH=0.0
+!HO2/XO2=-K126*<HO2>+K127*<MO2>
+ PJAC(:,15,41)=-TPK%K126(:)*PCONC(:,15)+TPK%K127(:)*PCONC(:,32)
!
-!OLEL/MEOH=0.0
+!HO2/WC_O3=0.0
!
-!OLEL/ETOH=0.0
+!HO2/WC_H2O2=0.0
!
-!OLEL/ALCH=0.0
+!HO2/WC_NO=0.0
!
-!OLEL/ISOP=+0.054*K066*<O3>+0.925*K067*<O>
- PJAC(:,17,35)=+0.054*TPK%K066(:)*PCONC(:,3)+0.925*TPK%K067(:)*TPK%O(:)
+!HO2/WC_NO2=0.0
!
-!OLEL/BIOL=0.0
+!HO2/WC_NO3=0.0
!
-!OLEL/BIOH=0.0
+!HO2/WC_N2O5=0.0
!
-!OLEL/MTBE=0.0
+!HO2/WC_HONO=0.0
!
-!OLEL/MVK=0.0
+!HO2/WC_HNO3=0.0
!
-!OLEL/MCR=0.0
+!HO2/WC_HNO4=0.0
!
-!OLEL/MGLY=0.0
+!HO2/WC_NH3=0.0
!
-!OLEL/GLY=0.0
+!HO2/WC_OH=0.0
!
-!OLEL/ORA1=0.0
+!HO2/WC_HO2=+KTC32
+ PJAC(:,15,53)=+TPK%KTC32(:)
!
-!OLEL/ORA2=0.0
+!HO2/WC_CO2=0.0
!
-!OLEL/ACID=0.0
+!HO2/WC_SO2=0.0
!
-!OLEL/UR28=0.0
+!HO2/WC_SULF=0.0
!
-!OLEL/UR21=0.0
+!HO2/WC_HCHO=0.0
!
-!OLEL/URG2=0.0
+!HO2/WC_ORA1=0.0
!
-!OLEL/UR26=0.0
+!HO2/WC_ORA2=0.0
!
-!OLEL/RPG2=0.0
+!HO2/WC_MO2=0.0
!
-!OLEL/RP18=0.0
+!HO2/WC_OP1=0.0
!
-!OLEL/RPG3=0.0
+!HO2/WC_ASO3=0.0
!
-!OLEL/URG4=0.0
+!HO2/WC_ASO4=0.0
!
-!OLEL/UR8=0.0
+!HO2/WC_ASO5=0.0
!
-!OLEL/UR17=0.0
+!HO2/WC_AHSO5=0.0
!
-!OLEL/UR7=0.0
+!HO2/WC_AHMS=0.0
!
-!OLEL/RPR3=0.0
+!HO2/WR_O3=0.0
!
-!OLEL/URG6=0.0
+!HO2/WR_H2O2=0.0
!
-!OLEL/UR22=0.0
+!HO2/WR_NO=0.0
!
-!OLEL/URG7=0.0
+!HO2/WR_NO2=0.0
!
-!OLEL/RPR4=0.0
+!HO2/WR_NO3=0.0
!
-!OLEL/RPR7=0.0
+!HO2/WR_N2O5=0.0
!
-!OLEL/RPG7=0.0
+!HO2/WR_HONO=0.0
!
-!OLEL/URG8=0.0
+!HO2/WR_HNO3=0.0
!
-!OLEL/UR19=0.0
+!HO2/WR_HNO4=0.0
!
-!OLEL/URG9=0.0
+!HO2/WR_NH3=0.0
!
-!OLEL/AP7=0.0
+!HO2/WR_OH=0.0
!
-!OLEL/URG10=0.0
+!HO2/WR_HO2=+KTR32
+ PJAC(:,15,78)=+TPK%KTR32(:)
!
-!OLEL/RPR1=0.0
+!HO2/WR_CO2=0.0
!
-!OLEL/RPR5=0.0
+!HO2/WR_SO2=0.0
!
-!OLEL/RPR8=0.0
+!HO2/WR_SULF=0.0
!
-!OLEL/RP10=0.0
+!HO2/WR_HCHO=0.0
!
-!OLEL/RP11=0.0
+!HO2/WR_ORA1=0.0
!
-!OLEL/RP16=0.0
+!HO2/WR_ORA2=0.0
!
-!OLEL/RPRL=0.0
+!HO2/WR_MO2=0.0
!
-!OLEL/APAN=0.0
+!HO2/WR_OP1=0.0
!
-!OLEL/PAN1=0.0
+!HO2/WR_ASO3=0.0
!
-!OLEL/PAN2=0.0
+!HO2/WR_ASO4=0.0
!
-!OLEL/PAN3=0.0
+!HO2/WR_ASO5=0.0
!
-!OLEL/PAN4=0.0
+!HO2/WR_AHSO5=0.0
!
-!OLEL/PAN6=0.0
+!HO2/WR_AHMS=0.0
!
-!OLEL/PAN7=0.0
+RETURN
+END SUBROUTINE SUBJ2
!
-!OLEL/PAN8=0.0
+SUBROUTINE SUBJ3
!
-!OLEL/PN10=0.0
+!Indices 16 a 20
!
-!OLEL/RO2T=0.0
!
-!OLEL/RO21=0.0
+!CH4/O3=+0.04300*K079*<ALKE>
+ PJAC(:,16,1)=+0.04300*TPK%K079(:)*PCONC(:,19)
!
-!OLEL/RO25=0.0
+!CH4/H2O2=0.0
!
-!OLEH/NO=0.0
+!CH4/NO=0.0
!
-!OLEH/NO2=0.0
+!CH4/NO2=0.0
!
-!OLEH/O3=-K076*<OLEH>
- PJAC(:,18,3)=-TPK%K076(:)*PCONC(:,18)
+!CH4/NO3=0.0
!
-!OLEH/HONO=0.0
+!CH4/N2O5=0.0
!
-!OLEH/HNO3=0.0
+!CH4/HONO=0.0
!
-!OLEH/HNO4=0.0
+!CH4/HNO3=0.0
!
-!OLEH/N2O5=0.0
+!CH4/HNO4=0.0
!
-!OLEH/NO3=-K075*<OLEH>
- PJAC(:,18,8)=-TPK%K075(:)*PCONC(:,18)
+!CH4/NH3=0.0
!
-!OLEH/NH3=0.0
+!CH4/SO2=0.0
!
-!OLEH/HO2=0.0
+!CH4/SULF=0.0
!
-!OLEH/CO=0.0
+!CH4/CO=0.0
!
-!OLEH/H2O2=0.0
+!CH4/OH=-K056*<CH4>
+ PJAC(:,16,14)=-TPK%K056(:)*PCONC(:,16)
!
-!OLEH/SO2=0.0
+!CH4/HO2=0.0
!
-!OLEH/H2SO4=0.0
+!CH4/CH4=-K056*<OH>
+ PJAC(:,16,16)=-TPK%K056(:)*PCONC(:,14)
!
-!OLEH/OH=-K074*<OLEH>
- PJAC(:,18,15)=-TPK%K074(:)*PCONC(:,18)
+!CH4/ETH=0.0
!
-!OLEH/ETHE=0.0
+!CH4/ALKA=0.0
!
-!OLEH/OLEL=0.0
+!CH4/ALKE=+0.04300*K079*<O3>
+ PJAC(:,16,19)=+0.04300*TPK%K079(:)*PCONC(:,1)
!
-!OLEH/OLEH=-K074*<OH>-K075*<NO3>-K076*<O3>-K077*<O>
- PJAC(:,18,18)=-TPK%K074(:)*PCONC(:,15)-TPK%K075(:)*PCONC(:,8)-TPK%K076(:)*PCON&
-&C(:,3)-TPK%K077(:)*TPK%O(:)
+!CH4/BIO=0.0
!
-!OLEH/ALKL=0.0
+!CH4/ARO=0.0
!
-!OLEH/ALKM=0.0
+!CH4/HCHO=0.0
!
-!OLEH/ALKH=0.0
+!CH4/ALD=0.0
!
-!OLEH/AROH=0.0
+!CH4/KET=0.0
!
-!OLEH/AROL=0.0
+!CH4/CARBO=0.0
!
-!OLEH/AROO=0.0
+!CH4/ONIT=0.0
!
-!OLEH/ARAL=0.0
+!CH4/PAN=0.0
!
-!OLEH/ARAC=0.0
+!CH4/OP1=0.0
!
-!OLEH/PAH=0.0
+!CH4/OP2=0.0
!
-!OLEH/HCHO=0.0
+!CH4/ORA1=0.0
!
-!OLEH/ALD2=0.0
+!CH4/ORA2=0.0
!
-!OLEH/KETL=0.0
+!CH4/MO2=0.0
!
-!OLEH/KETH=0.0
+!CH4/ALKAP=0.0
!
-!OLEH/MEOH=0.0
+!CH4/ALKEP=0.0
!
-!OLEH/ETOH=0.0
+!CH4/BIOP=0.0
!
-!OLEH/ALCH=0.0
+!CH4/PHO=0.0
!
-!OLEH/ISOP=0.0
+!CH4/ADD=0.0
!
-!OLEH/BIOL=0.0
+!CH4/AROP=0.0
!
-!OLEH/BIOH=0.0
+!CH4/CARBOP=0.0
!
-!OLEH/MTBE=0.0
+!CH4/OLN=0.0
!
-!OLEH/MVK=0.0
+!CH4/XO2=0.0
!
-!OLEH/MCR=0.0
+!CH4/WC_O3=0.0
!
-!OLEH/MGLY=0.0
+!CH4/WC_H2O2=0.0
!
-!OLEH/GLY=0.0
+!CH4/WC_NO=0.0
!
-!OLEH/ORA1=0.0
+!CH4/WC_NO2=0.0
!
-!OLEH/ORA2=0.0
+!CH4/WC_NO3=0.0
!
-!OLEH/ACID=0.0
+!CH4/WC_N2O5=0.0
!
-!OLEH/UR28=0.0
+!CH4/WC_HONO=0.0
!
-!OLEH/UR21=0.0
+!CH4/WC_HNO3=0.0
!
-!OLEH/URG2=0.0
+!CH4/WC_HNO4=0.0
!
-!OLEH/UR26=0.0
+!CH4/WC_NH3=0.0
!
-!OLEH/RPG2=0.0
+!CH4/WC_OH=0.0
!
-!OLEH/RP18=0.0
+!CH4/WC_HO2=0.0
!
-!OLEH/RPG3=0.0
+!CH4/WC_CO2=0.0
!
-!OLEH/URG4=0.0
+!CH4/WC_SO2=0.0
!
-!OLEH/UR8=0.0
+!CH4/WC_SULF=0.0
!
-!OLEH/UR17=0.0
+!CH4/WC_HCHO=0.0
!
-!OLEH/UR7=0.0
+!CH4/WC_ORA1=0.0
!
-!OLEH/RPR3=0.0
+!CH4/WC_ORA2=0.0
!
-!OLEH/URG6=0.0
+!CH4/WC_MO2=0.0
!
-!OLEH/UR22=0.0
+!CH4/WC_OP1=0.0
!
-!OLEH/URG7=0.0
+!CH4/WC_ASO3=0.0
!
-!OLEH/RPR4=0.0
+!CH4/WC_ASO4=0.0
!
-!OLEH/RPR7=0.0
+!CH4/WC_ASO5=0.0
!
-!OLEH/RPG7=0.0
+!CH4/WC_AHSO5=0.0
!
-!OLEH/URG8=0.0
+!CH4/WC_AHMS=0.0
!
-!OLEH/UR19=0.0
+!CH4/WR_O3=0.0
!
-!OLEH/URG9=0.0
+!CH4/WR_H2O2=0.0
!
-!OLEH/AP7=0.0
+!CH4/WR_NO=0.0
!
-!OLEH/URG10=0.0
+!CH4/WR_NO2=0.0
!
-!OLEH/RPR1=0.0
+!CH4/WR_NO3=0.0
!
-!OLEH/RPR5=0.0
+!CH4/WR_N2O5=0.0
!
-!OLEH/RPR8=0.0
+!CH4/WR_HONO=0.0
!
-!OLEH/RP10=0.0
+!CH4/WR_HNO3=0.0
!
-!OLEH/RP11=0.0
+!CH4/WR_HNO4=0.0
!
-!OLEH/RP16=0.0
+!CH4/WR_NH3=0.0
!
-!OLEH/RPRL=0.0
+!CH4/WR_OH=0.0
!
-!OLEH/APAN=0.0
+!CH4/WR_HO2=0.0
!
-!OLEH/PAN1=0.0
+!CH4/WR_CO2=0.0
!
-!OLEH/PAN2=0.0
+!CH4/WR_SO2=0.0
!
-!OLEH/PAN3=0.0
+!CH4/WR_SULF=0.0
!
-!OLEH/PAN4=0.0
+!CH4/WR_HCHO=0.0
!
-!OLEH/PAN6=0.0
+!CH4/WR_ORA1=0.0
!
-!OLEH/PAN7=0.0
+!CH4/WR_ORA2=0.0
!
-!OLEH/PAN8=0.0
+!CH4/WR_MO2=0.0
!
-!OLEH/PN10=0.0
+!CH4/WR_OP1=0.0
!
-!OLEH/RO2T=0.0
+!CH4/WR_ASO3=0.0
!
-!OLEH/RO21=0.0
+!CH4/WR_ASO4=0.0
!
-!OLEH/RO25=0.0
+!CH4/WR_ASO5=0.0
!
-!ALKL/NO=+TPK%CF3*K122*<RO25>+TPK%CF12*K171*<RO215>
- PJAC(:,19,1)=+TPK%CF3*TPK%K122(:)*PCONC(:,87)+TPK%CF12*TPK%K171(:)*TPK%RO215(:&
-&)
+!CH4/WR_AHSO5=0.0
!
-!ALKL/NO2=0.0
+!CH4/WR_AHMS=0.0
!
-!ALKL/O3=+0.1*K056*<OLEL>
- PJAC(:,19,3)=+0.1*TPK%K056(:)*PCONC(:,17)
+!ETH/O3=+0.03196*K079*<ALKE>
+ PJAC(:,17,1)=+0.03196*TPK%K079(:)*PCONC(:,19)
!
-!ALKL/HONO=0.0
+!ETH/H2O2=0.0
!
-!ALKL/HNO3=0.0
+!ETH/NO=0.0
!
-!ALKL/HNO4=0.0
+!ETH/NO2=0.0
!
-!ALKL/N2O5=0.0
+!ETH/NO3=0.0
!
-!ALKL/NO3=0.0
+!ETH/N2O5=0.0
!
-!ALKL/NH3=0.0
+!ETH/HONO=0.0
!
-!ALKL/HO2=+TPK%CF16*K173*<RO215>
- PJAC(:,19,10)=+TPK%CF16*TPK%K173(:)*TPK%RO215(:)
+!ETH/HNO3=0.0
!
-!ALKL/CO=0.0
+!ETH/HNO4=0.0
!
-!ALKL/H2O2=0.0
+!ETH/NH3=0.0
!
-!ALKL/SO2=0.0
+!ETH/SO2=0.0
!
-!ALKL/H2SO4=0.0
+!ETH/SULF=0.0
!
-!ALKL/OH=-K058*<ALKL>
- PJAC(:,19,15)=-TPK%K058(:)*PCONC(:,19)
+!ETH/CO=0.0
!
-!ALKL/ETHE=0.0
+!ETH/OH=-K057*<ETH>
+ PJAC(:,17,14)=-TPK%K057(:)*PCONC(:,17)
!
-!ALKL/OLEL=+0.1*K056*<O3>+0.5*K057*<O>
- PJAC(:,19,17)=+0.1*TPK%K056(:)*PCONC(:,3)+0.5*TPK%K057(:)*TPK%O(:)
+!ETH/HO2=0.0
!
-!ALKL/OLEH=0.0
+!ETH/CH4=0.0
!
-!ALKL/ALKL=-K058*<OH>
- PJAC(:,19,19)=-TPK%K058(:)*PCONC(:,15)
+!ETH/ETH=-K057*<OH>
+ PJAC(:,17,17)=-TPK%K057(:)*PCONC(:,14)
!
-!ALKL/ALKM=0.0
+!ETH/ALKA=0.0
!
-!ALKL/ALKH=0.0
+!ETH/ALKE=+0.03196*K079*<O3>
+ PJAC(:,17,19)=+0.03196*TPK%K079(:)*PCONC(:,1)
!
-!ALKL/AROH=0.0
+!ETH/BIO=0.0
!
-!ALKL/AROL=0.0
+!ETH/ARO=0.0
!
-!ALKL/AROO=0.0
+!ETH/HCHO=0.0
!
-!ALKL/ARAL=0.0
+!ETH/ALD=0.0
!
-!ALKL/ARAC=0.0
+!ETH/KET=0.0
!
-!ALKL/PAH=0.0
+!ETH/CARBO=0.0
!
-!ALKL/HCHO=0.0
+!ETH/ONIT=0.0
!
-!ALKL/ALD2=0.0
+!ETH/PAN=0.0
!
-!ALKL/KETL=0.0
+!ETH/OP1=0.0
!
-!ALKL/KETH=0.0
+!ETH/OP2=0.0
!
-!ALKL/MEOH=0.0
+!ETH/ORA1=0.0
!
-!ALKL/ETOH=0.0
+!ETH/ORA2=0.0
!
-!ALKL/ALCH=0.0
+!ETH/MO2=0.0
!
-!ALKL/ISOP=0.0
+!ETH/ALKAP=0.0
!
-!ALKL/BIOL=0.0
+!ETH/ALKEP=0.0
!
-!ALKL/BIOH=0.0
+!ETH/BIOP=0.0
!
-!ALKL/MTBE=0.0
+!ETH/PHO=0.0
!
-!ALKL/MVK=0.0
+!ETH/ADD=0.0
!
-!ALKL/MCR=0.0
+!ETH/AROP=0.0
!
-!ALKL/MGLY=0.0
+!ETH/CARBOP=0.0
!
-!ALKL/GLY=0.0
+!ETH/OLN=0.0
!
-!ALKL/ORA1=0.0
+!ETH/XO2=0.0
!
-!ALKL/ORA2=0.0
+!ETH/WC_O3=0.0
!
-!ALKL/ACID=0.0
+!ETH/WC_H2O2=0.0
!
-!ALKL/UR28=0.0
+!ETH/WC_NO=0.0
!
-!ALKL/UR21=0.0
+!ETH/WC_NO2=0.0
!
-!ALKL/URG2=0.0
+!ETH/WC_NO3=0.0
!
-!ALKL/UR26=0.0
+!ETH/WC_N2O5=0.0
!
-!ALKL/RPG2=0.0
+!ETH/WC_HONO=0.0
!
-!ALKL/RP18=0.0
+!ETH/WC_HNO3=0.0
!
-!ALKL/RPG3=0.0
+!ETH/WC_HNO4=0.0
!
-!ALKL/URG4=0.0
+!ETH/WC_NH3=0.0
!
-!ALKL/UR8=0.0
+!ETH/WC_OH=0.0
!
-!ALKL/UR17=0.0
+!ETH/WC_HO2=0.0
!
-!ALKL/UR7=0.0
+!ETH/WC_CO2=0.0
!
-!ALKL/RPR3=0.0
+!ETH/WC_SO2=0.0
!
-!ALKL/URG6=0.0
+!ETH/WC_SULF=0.0
!
-!ALKL/UR22=0.0
+!ETH/WC_HCHO=0.0
!
-!ALKL/URG7=0.0
+!ETH/WC_ORA1=0.0
!
-!ALKL/RPR4=0.0
+!ETH/WC_ORA2=0.0
!
-!ALKL/RPR7=0.0
+!ETH/WC_MO2=0.0
!
-!ALKL/RPG7=0.0
+!ETH/WC_OP1=0.0
!
-!ALKL/URG8=0.0
+!ETH/WC_ASO3=0.0
!
-!ALKL/UR19=0.0
+!ETH/WC_ASO4=0.0
!
-!ALKL/URG9=0.0
+!ETH/WC_ASO5=0.0
!
-!ALKL/AP7=0.0
+!ETH/WC_AHSO5=0.0
!
-!ALKL/URG10=0.0
+!ETH/WC_AHMS=0.0
!
-!ALKL/RPR1=0.0
+!ETH/WR_O3=0.0
!
-!ALKL/RPR5=0.0
+!ETH/WR_H2O2=0.0
!
-!ALKL/RPR8=0.0
+!ETH/WR_NO=0.0
!
-!ALKL/RP10=0.0
+!ETH/WR_NO2=0.0
!
-!ALKL/RP11=0.0
+!ETH/WR_NO3=0.0
!
-!ALKL/RP16=0.0
+!ETH/WR_N2O5=0.0
!
-!ALKL/RPRL=0.0
+!ETH/WR_HONO=0.0
!
-!ALKL/APAN=0.0
+!ETH/WR_HNO3=0.0
!
-!ALKL/PAN1=0.0
+!ETH/WR_HNO4=0.0
!
-!ALKL/PAN2=0.0
+!ETH/WR_NH3=0.0
!
-!ALKL/PAN3=0.0
+!ETH/WR_OH=0.0
!
-!ALKL/PAN4=0.0
+!ETH/WR_HO2=0.0
!
-!ALKL/PAN6=0.0
+!ETH/WR_CO2=0.0
!
-!ALKL/PAN7=0.0
+!ETH/WR_SO2=0.0
!
-!ALKL/PAN8=0.0
+!ETH/WR_SULF=0.0
!
-!ALKL/PN10=0.0
+!ETH/WR_HCHO=0.0
!
-!ALKL/RO2T=+TPK%CF16*K172*<RO215>
- PJAC(:,19,85)=+TPK%CF16*TPK%K172(:)*TPK%RO215(:)
+!ETH/WR_ORA1=0.0
!
-!ALKL/RO21=0.0
+!ETH/WR_ORA2=0.0
!
-!ALKL/RO25=+TPK%CF3*K122*<NO>
- PJAC(:,19,87)=+TPK%CF3*TPK%K122(:)*PCONC(:,1)
+!ETH/WR_MO2=0.0
!
-!ALKM/NO=0.0
+!ETH/WR_OP1=0.0
!
-!ALKM/NO2=0.0
+!ETH/WR_ASO3=0.0
!
-!ALKM/O3=+0.1*K076*<OLEH>
- PJAC(:,20,3)=+0.1*TPK%K076(:)*PCONC(:,18)
+!ETH/WR_ASO4=0.0
!
-!ALKM/HONO=0.0
+!ETH/WR_ASO5=0.0
!
-!ALKM/HNO3=0.0
+!ETH/WR_AHSO5=0.0
!
-!ALKM/HNO4=0.0
+!ETH/WR_AHMS=0.0
!
-!ALKM/N2O5=0.0
+!ALKA/O3=0.0
!
-!ALKM/NO3=0.0
+!ALKA/H2O2=0.0
!
-!ALKM/NH3=0.0
+!ALKA/NO=0.0
!
-!ALKM/HO2=0.0
+!ALKA/NO2=0.0
!
-!ALKM/CO=0.0
+!ALKA/NO3=0.0
!
-!ALKM/H2O2=0.0
+!ALKA/N2O5=0.0
!
-!ALKM/SO2=0.0
+!ALKA/HONO=0.0
!
-!ALKM/H2SO4=0.0
+!ALKA/HNO3=0.0
!
-!ALKM/OH=-K078*<ALKM>
- PJAC(:,20,15)=-TPK%K078(:)*PCONC(:,20)
+!ALKA/HNO4=0.0
!
-!ALKM/ETHE=0.0
+!ALKA/NH3=0.0
!
-!ALKM/OLEL=0.0
+!ALKA/SO2=0.0
!
-!ALKM/OLEH=+0.1*K076*<O3>+0.5*K077*<O>
- PJAC(:,20,18)=+0.1*TPK%K076(:)*PCONC(:,3)+0.5*TPK%K077(:)*TPK%O(:)
+!ALKA/SULF=0.0
!
-!ALKM/ALKL=0.0
+!ALKA/CO=0.0
!
-!ALKM/ALKM=-K078*<OH>
- PJAC(:,20,20)=-TPK%K078(:)*PCONC(:,15)
+!ALKA/OH=-K058*<ALKA>
+ PJAC(:,18,14)=-TPK%K058(:)*PCONC(:,18)
!
-!ALKM/ALKH=0.0
+!ALKA/HO2=0.0
!
-!ALKM/AROH=0.0
+!ALKA/CH4=0.0
!
-!ALKM/AROL=0.0
+!ALKA/ETH=0.0
!
-!ALKM/AROO=0.0
+!ALKA/ALKA=-K058*<OH>
+ PJAC(:,18,18)=-TPK%K058(:)*PCONC(:,14)
!
-!ALKM/ARAL=0.0
+!ALKA/ALKE=0.0
!
-!ALKM/ARAC=0.0
+!ALKA/BIO=0.0
!
-!ALKM/PAH=0.0
+!ALKA/ARO=0.0
!
-!ALKM/HCHO=0.0
+!ALKA/HCHO=0.0
!
-!ALKM/ALD2=0.0
+!ALKA/ALD=0.0
!
-!ALKM/KETL=0.0
+!ALKA/KET=0.0
!
-!ALKM/KETH=0.0
+!ALKA/CARBO=0.0
!
-!ALKM/MEOH=0.0
+!ALKA/ONIT=0.0
!
-!ALKM/ETOH=0.0
+!ALKA/PAN=0.0
!
-!ALKM/ALCH=0.0
+!ALKA/OP1=0.0
!
-!ALKM/ISOP=0.0
+!ALKA/OP2=0.0
!
-!ALKM/BIOL=0.0
+!ALKA/ORA1=0.0
!
-!ALKM/BIOH=0.0
+!ALKA/ORA2=0.0
!
-!ALKM/MTBE=0.0
+!ALKA/MO2=0.0
!
-!ALKM/MVK=0.0
+!ALKA/ALKAP=0.0
!
-!ALKM/MCR=0.0
+!ALKA/ALKEP=0.0
!
-!ALKM/MGLY=0.0
+!ALKA/BIOP=0.0
!
-!ALKM/GLY=0.0
+!ALKA/PHO=0.0
!
-!ALKM/ORA1=0.0
+!ALKA/ADD=0.0
!
-!ALKM/ORA2=0.0
+!ALKA/AROP=0.0
!
-!ALKM/ACID=0.0
+!ALKA/CARBOP=0.0
!
-!ALKM/UR28=0.0
+!ALKA/OLN=0.0
!
-!ALKM/UR21=0.0
+!ALKA/XO2=0.0
!
-!ALKM/URG2=0.0
+!ALKA/WC_O3=0.0
!
-!ALKM/UR26=0.0
+!ALKA/WC_H2O2=0.0
!
-!ALKM/RPG2=0.0
+!ALKA/WC_NO=0.0
!
-!ALKM/RP18=0.0
+!ALKA/WC_NO2=0.0
!
-!ALKM/RPG3=0.0
+!ALKA/WC_NO3=0.0
!
-!ALKM/URG4=0.0
+!ALKA/WC_N2O5=0.0
!
-!ALKM/UR8=0.0
+!ALKA/WC_HONO=0.0
!
-!ALKM/UR17=0.0
+!ALKA/WC_HNO3=0.0
!
-!ALKM/UR7=0.0
+!ALKA/WC_HNO4=0.0
!
-!ALKM/RPR3=0.0
+!ALKA/WC_NH3=0.0
!
-!ALKM/URG6=0.0
+!ALKA/WC_OH=0.0
!
-!ALKM/UR22=0.0
+!ALKA/WC_HO2=0.0
!
-!ALKM/URG7=0.0
+!ALKA/WC_CO2=0.0
!
-!ALKM/RPR4=0.0
+!ALKA/WC_SO2=0.0
!
-!ALKM/RPR7=0.0
+!ALKA/WC_SULF=0.0
!
-!ALKM/RPG7=0.0
+!ALKA/WC_HCHO=0.0
!
-!ALKM/URG8=0.0
+!ALKA/WC_ORA1=0.0
!
-!ALKM/UR19=0.0
+!ALKA/WC_ORA2=0.0
!
-!ALKM/URG9=0.0
+!ALKA/WC_MO2=0.0
!
-!ALKM/AP7=0.0
+!ALKA/WC_OP1=0.0
!
-!ALKM/URG10=0.0
+!ALKA/WC_ASO3=0.0
!
-!ALKM/RPR1=0.0
+!ALKA/WC_ASO4=0.0
!
-!ALKM/RPR5=0.0
+!ALKA/WC_ASO5=0.0
!
-!ALKM/RPR8=0.0
+!ALKA/WC_AHSO5=0.0
!
-!ALKM/RP10=0.0
+!ALKA/WC_AHMS=0.0
!
-!ALKM/RP11=0.0
+!ALKA/WR_O3=0.0
!
-!ALKM/RP16=0.0
+!ALKA/WR_H2O2=0.0
!
-!ALKM/RPRL=0.0
+!ALKA/WR_NO=0.0
!
-!ALKM/APAN=0.0
+!ALKA/WR_NO2=0.0
!
-!ALKM/PAN1=0.0
+!ALKA/WR_NO3=0.0
!
-!ALKM/PAN2=0.0
+!ALKA/WR_N2O5=0.0
!
-!ALKM/PAN3=0.0
+!ALKA/WR_HONO=0.0
!
-!ALKM/PAN4=0.0
+!ALKA/WR_HNO3=0.0
!
-!ALKM/PAN6=0.0
+!ALKA/WR_HNO4=0.0
!
-!ALKM/PAN7=0.0
+!ALKA/WR_NH3=0.0
!
-!ALKM/PAN8=0.0
+!ALKA/WR_OH=0.0
!
-!ALKM/PN10=0.0
+!ALKA/WR_HO2=0.0
!
-!ALKM/RO2T=0.0
+!ALKA/WR_CO2=0.0
!
-!ALKM/RO21=0.0
+!ALKA/WR_SO2=0.0
!
-!ALKM/RO25=0.0
+!ALKA/WR_SULF=0.0
!
-RETURN
-END SUBROUTINE SUBJ3
+!ALKA/WR_HCHO=0.0
!
-SUBROUTINE SUBJ4
+!ALKA/WR_ORA1=0.0
!
-!Indices 21 a 25
+!ALKA/WR_ORA2=0.0
!
+!ALKA/WR_MO2=0.0
!
-!ALKH/NO=0.0
+!ALKA/WR_OP1=0.0
!
-!ALKH/NO2=0.0
+!ALKA/WR_ASO3=0.0
!
-!ALKH/O3=0.0
+!ALKA/WR_ASO4=0.0
!
-!ALKH/HONO=0.0
+!ALKA/WR_ASO5=0.0
!
-!ALKH/HNO3=0.0
+!ALKA/WR_AHSO5=0.0
!
-!ALKH/HNO4=0.0
+!ALKA/WR_AHMS=0.0
!
-!ALKH/N2O5=0.0
+!ALKE/O3=+0.00000*K079*<ALKE>-K079*<ALKE>+0.37388*K080*<BIO>
+ PJAC(:,19,1)=+0.00000*TPK%K079(:)*PCONC(:,19)-TPK%K079(:)*PCONC(:,19)+0.37388*&
+&TPK%K080(:)*PCONC(:,20)
!
-!ALKH/NO3=0.0
+!ALKE/H2O2=0.0
!
-!ALKH/NH3=0.0
+!ALKE/NO=+0.37815*K093*<BIOP>
+ PJAC(:,19,3)=+0.37815*TPK%K093(:)*PCONC(:,35)
!
-!ALKH/HO2=0.0
+!ALKE/NO2=0.0
!
-!ALKH/CO=0.0
+!ALKE/NO3=-K076*<ALKE>+0.42729*K122*<BIOP>
+ PJAC(:,19,5)=-TPK%K076(:)*PCONC(:,19)+0.42729*TPK%K122(:)*PCONC(:,35)
!
-!ALKH/H2O2=0.0
+!ALKE/N2O5=0.0
!
-!ALKH/SO2=0.0
+!ALKE/HONO=0.0
!
-!ALKH/H2SO4=0.0
+!ALKE/HNO3=0.0
!
-!ALKH/OH=-K093*<ALKH>
- PJAC(:,21,15)=-TPK%K093(:)*PCONC(:,21)
+!ALKE/HNO4=0.0
!
-!ALKH/ETHE=0.0
+!ALKE/NH3=0.0
!
-!ALKH/OLEL=0.0
+!ALKE/SO2=0.0
!
-!ALKH/OLEH=0.0
+!ALKE/SULF=0.0
!
-!ALKH/ALKL=0.0
+!ALKE/CO=0.0
!
-!ALKH/ALKM=0.0
+!ALKE/OH=-K059*<ALKE>
+ PJAC(:,19,14)=-TPK%K059(:)*PCONC(:,19)
!
-!ALKH/ALKH=-K093*<OH>
- PJAC(:,21,21)=-TPK%K093(:)*PCONC(:,15)
+!ALKE/HO2=0.0
!
-!ALKH/AROH=0.0
+!ALKE/CH4=0.0
!
-!ALKH/AROL=0.0
+!ALKE/ETH=0.0
!
-!ALKH/AROO=0.0
+!ALKE/ALKA=0.0
!
-!ALKH/ARAL=0.0
+!ALKE/ALKE=-K059*<OH>-K076*<NO3>+0.00000*K079*<O3>-K079*<O3>
+ PJAC(:,19,19)=-TPK%K059(:)*PCONC(:,14)-TPK%K076(:)*PCONC(:,5)+0.00000*TPK%K079&
+&(:)*PCONC(:,1)-TPK%K079(:)*PCONC(:,1)
!
-!ALKH/ARAC=0.0
+!ALKE/BIO=+0.91868*K054*<O3P>+0.37388*K080*<O3>
+ PJAC(:,19,20)=+0.91868*TPK%K054(:)*TPK%O3P(:)+0.37388*TPK%K080(:)*PCONC(:,1)
!
-!ALKH/PAH=0.0
+!ALKE/ARO=0.0
!
-!ALKH/HCHO=0.0
+!ALKE/HCHO=0.0
!
-!ALKH/ALD2=0.0
+!ALKE/ALD=0.0
!
-!ALKH/KETL=0.0
+!ALKE/KET=0.0
!
-!ALKH/KETH=0.0
+!ALKE/CARBO=0.0
!
-!ALKH/MEOH=0.0
+!ALKE/ONIT=0.0
!
-!ALKH/ETOH=0.0
+!ALKE/PAN=0.0
!
-!ALKH/ALCH=0.0
+!ALKE/OP1=0.0
!
-!ALKH/ISOP=0.0
+!ALKE/OP2=0.0
!
-!ALKH/BIOL=0.0
+!ALKE/ORA1=0.0
!
-!ALKH/BIOH=0.0
+!ALKE/ORA2=0.0
!
-!ALKH/MTBE=0.0
+!ALKE/MO2=+0.48074*K107*<BIOP>
+ PJAC(:,19,32)=+0.48074*TPK%K107(:)*PCONC(:,35)
!
-!ALKH/MVK=0.0
+!ALKE/ALKAP=0.0
!
-!ALKH/MCR=0.0
+!ALKE/ALKEP=0.0
!
-!ALKH/MGLY=0.0
+!ALKE/BIOP=+0.37815*K093*<NO>+0.48074*K107*<MO2>+0.24463*K113*<CARBOP>+0.42729*
+!K122*<NO3>
+ PJAC(:,19,35)=+0.37815*TPK%K093(:)*PCONC(:,3)+0.48074*TPK%K107(:)*PCONC(:,32)+&
+&0.24463*TPK%K113(:)*PCONC(:,39)+0.42729*TPK%K122(:)*PCONC(:,5)
!
-!ALKH/GLY=0.0
+!ALKE/PHO=0.0
!
-!ALKH/ORA1=0.0
+!ALKE/ADD=0.0
!
-!ALKH/ORA2=0.0
+!ALKE/AROP=0.0
!
-!ALKH/ACID=0.0
+!ALKE/CARBOP=+0.24463*K113*<BIOP>
+ PJAC(:,19,39)=+0.24463*TPK%K113(:)*PCONC(:,35)
!
-!ALKH/UR28=0.0
+!ALKE/OLN=0.0
!
-!ALKH/UR21=0.0
+!ALKE/XO2=0.0
!
-!ALKH/URG2=0.0
+!ALKE/WC_O3=0.0
!
-!ALKH/UR26=0.0
+!ALKE/WC_H2O2=0.0
!
-!ALKH/RPG2=0.0
+!ALKE/WC_NO=0.0
!
-!ALKH/RP18=0.0
+!ALKE/WC_NO2=0.0
!
-!ALKH/RPG3=0.0
+!ALKE/WC_NO3=0.0
!
-!ALKH/URG4=0.0
+!ALKE/WC_N2O5=0.0
!
-!ALKH/UR8=0.0
+!ALKE/WC_HONO=0.0
!
-!ALKH/UR17=0.0
+!ALKE/WC_HNO3=0.0
!
-!ALKH/UR7=0.0
+!ALKE/WC_HNO4=0.0
!
-!ALKH/RPR3=0.0
+!ALKE/WC_NH3=0.0
!
-!ALKH/URG6=0.0
+!ALKE/WC_OH=0.0
!
-!ALKH/UR22=0.0
+!ALKE/WC_HO2=0.0
!
-!ALKH/URG7=0.0
+!ALKE/WC_CO2=0.0
!
-!ALKH/RPR4=0.0
+!ALKE/WC_SO2=0.0
!
-!ALKH/RPR7=0.0
+!ALKE/WC_SULF=0.0
!
-!ALKH/RPG7=0.0
+!ALKE/WC_HCHO=0.0
!
-!ALKH/URG8=0.0
+!ALKE/WC_ORA1=0.0
!
-!ALKH/UR19=0.0
+!ALKE/WC_ORA2=0.0
!
-!ALKH/URG9=0.0
+!ALKE/WC_MO2=0.0
!
-!ALKH/AP7=0.0
+!ALKE/WC_OP1=0.0
!
-!ALKH/URG10=0.0
+!ALKE/WC_ASO3=0.0
!
-!ALKH/RPR1=0.0
+!ALKE/WC_ASO4=0.0
!
-!ALKH/RPR5=0.0
+!ALKE/WC_ASO5=0.0
!
-!ALKH/RPR8=0.0
+!ALKE/WC_AHSO5=0.0
!
-!ALKH/RP10=0.0
+!ALKE/WC_AHMS=0.0
!
-!ALKH/RP11=0.0
+!ALKE/WR_O3=0.0
!
-!ALKH/RP16=0.0
+!ALKE/WR_H2O2=0.0
!
-!ALKH/RPRL=0.0
+!ALKE/WR_NO=0.0
!
-!ALKH/APAN=0.0
+!ALKE/WR_NO2=0.0
!
-!ALKH/PAN1=0.0
+!ALKE/WR_NO3=0.0
!
-!ALKH/PAN2=0.0
+!ALKE/WR_N2O5=0.0
!
-!ALKH/PAN3=0.0
+!ALKE/WR_HONO=0.0
!
-!ALKH/PAN4=0.0
+!ALKE/WR_HNO3=0.0
!
-!ALKH/PAN6=0.0
+!ALKE/WR_HNO4=0.0
!
-!ALKH/PAN7=0.0
+!ALKE/WR_NH3=0.0
!
-!ALKH/PAN8=0.0
+!ALKE/WR_OH=0.0
!
-!ALKH/PN10=0.0
+!ALKE/WR_HO2=0.0
!
-!ALKH/RO2T=0.0
+!ALKE/WR_CO2=0.0
!
-!ALKH/RO21=0.0
+!ALKE/WR_SO2=0.0
!
-!ALKH/RO25=0.0
+!ALKE/WR_SULF=0.0
!
-!AROH/NO=0.0
+!ALKE/WR_HCHO=0.0
!
-!AROH/NO2=0.0
+!ALKE/WR_ORA1=0.0
!
-!AROH/O3=0.0
+!ALKE/WR_ORA2=0.0
!
-!AROH/HONO=0.0
+!ALKE/WR_MO2=0.0
!
-!AROH/HNO3=0.0
+!ALKE/WR_OP1=0.0
!
-!AROH/HNO4=0.0
+!ALKE/WR_ASO3=0.0
!
-!AROH/N2O5=0.0
+!ALKE/WR_ASO4=0.0
!
-!AROH/NO3=0.0
+!ALKE/WR_ASO5=0.0
!
-!AROH/NH3=0.0
+!ALKE/WR_AHSO5=0.0
!
-!AROH/HO2=0.0
+!ALKE/WR_AHMS=0.0
!
-!AROH/CO=0.0
+!BIO/O3=-K080*<BIO>
+ PJAC(:,20,1)=-TPK%K080(:)*PCONC(:,20)
!
-!AROH/H2O2=0.0
+!BIO/H2O2=0.0
!
-!AROH/SO2=0.0
+!BIO/NO=0.0
!
-!AROH/H2SO4=0.0
+!BIO/NO2=0.0
!
-!AROH/OH=-K080*<AROH>
- PJAC(:,22,15)=-TPK%K080(:)*PCONC(:,22)
+!BIO/NO3=-K077*<BIO>
+ PJAC(:,20,5)=-TPK%K077(:)*PCONC(:,20)
!
-!AROH/ETHE=0.0
+!BIO/N2O5=0.0
!
-!AROH/OLEL=0.0
+!BIO/HONO=0.0
!
-!AROH/OLEH=0.0
+!BIO/HNO3=0.0
!
-!AROH/ALKL=0.0
+!BIO/HNO4=0.0
!
-!AROH/ALKM=0.0
+!BIO/NH3=0.0
!
-!AROH/ALKH=0.0
+!BIO/SO2=0.0
!
-!AROH/AROH=-K080*<OH>
- PJAC(:,22,22)=-TPK%K080(:)*PCONC(:,15)
+!BIO/SULF=0.0
!
-!AROH/AROL=0.0
+!BIO/CO=0.0
!
-!AROH/AROO=0.0
+!BIO/OH=-K060*<BIO>
+ PJAC(:,20,14)=-TPK%K060(:)*PCONC(:,20)
!
-!AROH/ARAL=0.0
+!BIO/HO2=0.0
!
-!AROH/ARAC=0.0
+!BIO/CH4=0.0
!
-!AROH/PAH=0.0
+!BIO/ETH=0.0
!
-!AROH/HCHO=0.0
+!BIO/ALKA=0.0
!
-!AROH/ALD2=0.0
+!BIO/ALKE=0.0
!
-!AROH/KETL=0.0
+!BIO/BIO=-K054*<O3P>-K060*<OH>-K077*<NO3>-K080*<O3>
+ PJAC(:,20,20)=-TPK%K054(:)*TPK%O3P(:)-TPK%K060(:)*PCONC(:,14)-TPK%K077(:)*PCON&
+&C(:,5)-TPK%K080(:)*PCONC(:,1)
!
-!AROH/KETH=0.0
+!BIO/ARO=0.0
!
-!AROH/MEOH=0.0
+!BIO/HCHO=0.0
!
-!AROH/ETOH=0.0
+!BIO/ALD=0.0
!
-!AROH/ALCH=0.0
+!BIO/KET=0.0
!
-!AROH/ISOP=0.0
+!BIO/CARBO=0.0
!
-!AROH/BIOL=0.0
+!BIO/ONIT=0.0
!
-!AROH/BIOH=0.0
+!BIO/PAN=0.0
!
-!AROH/MTBE=0.0
+!BIO/OP1=0.0
!
-!AROH/MVK=0.0
+!BIO/OP2=0.0
!
-!AROH/MCR=0.0
+!BIO/ORA1=0.0
!
-!AROH/MGLY=0.0
+!BIO/ORA2=0.0
!
-!AROH/GLY=0.0
+!BIO/MO2=0.0
!
-!AROH/ORA1=0.0
+!BIO/ALKAP=0.0
!
-!AROH/ORA2=0.0
+!BIO/ALKEP=0.0
!
-!AROH/ACID=0.0
+!BIO/BIOP=0.0
!
-!AROH/UR28=0.0
+!BIO/PHO=0.0
!
-!AROH/UR21=0.0
+!BIO/ADD=0.0
!
-!AROH/URG2=0.0
+!BIO/AROP=0.0
!
-!AROH/UR26=0.0
+!BIO/CARBOP=0.0
!
-!AROH/RPG2=0.0
+!BIO/OLN=0.0
!
-!AROH/RP18=0.0
+!BIO/XO2=0.0
!
-!AROH/RPG3=0.0
+!BIO/WC_O3=0.0
!
-!AROH/URG4=0.0
+!BIO/WC_H2O2=0.0
!
-!AROH/UR8=0.0
+!BIO/WC_NO=0.0
!
-!AROH/UR17=0.0
+!BIO/WC_NO2=0.0
!
-!AROH/UR7=0.0
+!BIO/WC_NO3=0.0
!
-!AROH/RPR3=0.0
+!BIO/WC_N2O5=0.0
!
-!AROH/URG6=0.0
+!BIO/WC_HONO=0.0
!
-!AROH/UR22=0.0
+!BIO/WC_HNO3=0.0
!
-!AROH/URG7=0.0
+!BIO/WC_HNO4=0.0
!
-!AROH/RPR4=0.0
+!BIO/WC_NH3=0.0
!
-!AROH/RPR7=0.0
+!BIO/WC_OH=0.0
!
-!AROH/RPG7=0.0
+!BIO/WC_HO2=0.0
!
-!AROH/URG8=0.0
+!BIO/WC_CO2=0.0
!
-!AROH/UR19=0.0
+!BIO/WC_SO2=0.0
!
-!AROH/URG9=0.0
+!BIO/WC_SULF=0.0
!
-!AROH/AP7=0.0
+!BIO/WC_HCHO=0.0
!
-!AROH/URG10=0.0
+!BIO/WC_ORA1=0.0
!
-!AROH/RPR1=0.0
+!BIO/WC_ORA2=0.0
!
-!AROH/RPR5=0.0
+!BIO/WC_MO2=0.0
!
-!AROH/RPR8=0.0
+!BIO/WC_OP1=0.0
!
-!AROH/RP10=0.0
+!BIO/WC_ASO3=0.0
!
-!AROH/RP11=0.0
+!BIO/WC_ASO4=0.0
!
-!AROH/RP16=0.0
+!BIO/WC_ASO5=0.0
!
-!AROH/RPRL=0.0
+!BIO/WC_AHSO5=0.0
!
-!AROH/APAN=0.0
+!BIO/WC_AHMS=0.0
!
-!AROH/PAN1=0.0
+!BIO/WR_O3=0.0
!
-!AROH/PAN2=0.0
+!BIO/WR_H2O2=0.0
!
-!AROH/PAN3=0.0
+!BIO/WR_NO=0.0
!
-!AROH/PAN4=0.0
+!BIO/WR_NO2=0.0
!
-!AROH/PAN6=0.0
+!BIO/WR_NO3=0.0
!
-!AROH/PAN7=0.0
+!BIO/WR_N2O5=0.0
!
-!AROH/PAN8=0.0
+!BIO/WR_HONO=0.0
!
-!AROH/PN10=0.0
+!BIO/WR_HNO3=0.0
!
-!AROH/RO2T=0.0
+!BIO/WR_HNO4=0.0
!
-!AROH/RO21=0.0
+!BIO/WR_NH3=0.0
!
-!AROH/RO25=0.0
+!BIO/WR_OH=0.0
!
-!AROL/NO=0.0
+!BIO/WR_HO2=0.0
!
-!AROL/NO2=0.0
+!BIO/WR_CO2=0.0
!
-!AROL/O3=0.0
+!BIO/WR_SO2=0.0
!
-!AROL/HONO=0.0
+!BIO/WR_SULF=0.0
!
-!AROL/HNO3=0.0
+!BIO/WR_HCHO=0.0
!
-!AROL/HNO4=0.0
+!BIO/WR_ORA1=0.0
!
-!AROL/N2O5=0.0
+!BIO/WR_ORA2=0.0
!
-!AROL/NO3=0.0
+!BIO/WR_MO2=0.0
!
-!AROL/NH3=0.0
+!BIO/WR_OP1=0.0
!
-!AROL/HO2=0.0
+!BIO/WR_ASO3=0.0
!
-!AROL/CO=0.0
+!BIO/WR_ASO4=0.0
!
-!AROL/H2O2=0.0
+!BIO/WR_ASO5=0.0
!
-!AROL/SO2=0.0
+!BIO/WR_AHSO5=0.0
!
-!AROL/H2SO4=0.0
+!BIO/WR_AHMS=0.0
!
-!AROL/OH=-K079*<AROL>
- PJAC(:,23,15)=-TPK%K079(:)*PCONC(:,23)
+RETURN
+END SUBROUTINE SUBJ3
!
-!AROL/ETHE=0.0
+SUBROUTINE SUBJ4
!
-!AROL/OLEL=0.0
+!Indices 21 a 25
!
-!AROL/OLEH=0.0
!
-!AROL/ALKL=0.0
+!ARO/O3=+K087*<ADD>
+ PJAC(:,21,1)=+TPK%K087(:)*PCONC(:,37)
!
-!AROL/ALKM=0.0
+!ARO/H2O2=0.0
!
-!AROL/ALKH=0.0
+!ARO/NO=0.0
!
-!AROL/AROH=0.0
+!ARO/NO2=+0.10670*K083*<PHO>+K085*<ADD>
+ PJAC(:,21,4)=+0.10670*TPK%K083(:)*PCONC(:,36)+TPK%K085(:)*PCONC(:,37)
!
-!AROL/AROL=-K079*<OH>
- PJAC(:,23,23)=-TPK%K079(:)*PCONC(:,15)
+!ARO/NO3=-K075*<ARO>
+ PJAC(:,21,5)=-TPK%K075(:)*PCONC(:,21)
!
-!AROL/AROO=0.0
+!ARO/N2O5=0.0
!
-!AROL/ARAL=0.0
+!ARO/HONO=0.0
!
-!AROL/ARAC=0.0
+!ARO/HNO3=0.0
!
-!AROL/PAH=0.0
+!ARO/HNO4=0.0
!
-!AROL/HCHO=0.0
+!ARO/NH3=0.0
!
-!AROL/ALD2=0.0
+!ARO/SO2=0.0
!
-!AROL/KETL=0.0
+!ARO/SULF=0.0
!
-!AROL/KETH=0.0
+!ARO/CO=0.0
!
-!AROL/MEOH=0.0
+!ARO/OH=-K061*<ARO>
+ PJAC(:,21,14)=-TPK%K061(:)*PCONC(:,21)
!
-!AROL/ETOH=0.0
+!ARO/HO2=+1.06698*K084*<PHO>
+ PJAC(:,21,15)=+1.06698*TPK%K084(:)*PCONC(:,36)
!
-!AROL/ALCH=0.0
+!ARO/CH4=0.0
!
-!AROL/ISOP=0.0
+!ARO/ETH=0.0
!
-!AROL/BIOL=0.0
+!ARO/ALKA=0.0
!
-!AROL/BIOH=0.0
+!ARO/ALKE=0.0
!
-!AROL/MTBE=0.0
+!ARO/BIO=0.0
!
-!AROL/MVK=0.0
+!ARO/ARO=-K061*<OH>-K075*<NO3>
+ PJAC(:,21,21)=-TPK%K061(:)*PCONC(:,14)-TPK%K075(:)*PCONC(:,5)
!
-!AROL/MCR=0.0
+!ARO/HCHO=0.0
!
-!AROL/MGLY=0.0
+!ARO/ALD=0.0
!
-!AROL/GLY=0.0
+!ARO/KET=0.0
!
-!AROL/ORA1=0.0
+!ARO/CARBO=0.0
!
-!AROL/ORA2=0.0
+!ARO/ONIT=0.0
!
-!AROL/ACID=0.0
+!ARO/PAN=0.0
!
-!AROL/UR28=0.0
+!ARO/OP1=0.0
!
-!AROL/UR21=0.0
+!ARO/OP2=0.0
!
-!AROL/URG2=0.0
+!ARO/ORA1=0.0
!
-!AROL/UR26=0.0
+!ARO/ORA2=0.0
!
-!AROL/RPG2=0.0
+!ARO/MO2=0.0
!
-!AROL/RP18=0.0
+!ARO/ALKAP=0.0
!
-!AROL/RPG3=0.0
+!ARO/ALKEP=0.0
!
-!AROL/URG4=0.0
+!ARO/BIOP=0.0
!
-!AROL/UR8=0.0
+!ARO/PHO=+0.10670*K083*<NO2>+1.06698*K084*<HO2>
+ PJAC(:,21,36)=+0.10670*TPK%K083(:)*PCONC(:,4)+1.06698*TPK%K084(:)*PCONC(:,15)
!
-!AROL/UR17=0.0
+!ARO/ADD=+K085*<NO2>+0.02*K086*<O2>+K087*<O3>
+ PJAC(:,21,37)=+TPK%K085(:)*PCONC(:,4)+0.02*TPK%K086(:)*TPK%O2(:)+TPK%K087(:)*P&
+&CONC(:,1)
!
-!AROL/UR7=0.0
+!ARO/AROP=0.0
!
-!AROL/RPR3=0.0
+!ARO/CARBOP=0.0
!
-!AROL/URG6=0.0
+!ARO/OLN=0.0
!
-!AROL/UR22=0.0
+!ARO/XO2=0.0
!
-!AROL/URG7=0.0
+!ARO/WC_O3=0.0
!
-!AROL/RPR4=0.0
+!ARO/WC_H2O2=0.0
!
-!AROL/RPR7=0.0
+!ARO/WC_NO=0.0
!
-!AROL/RPG7=0.0
+!ARO/WC_NO2=0.0
!
-!AROL/URG8=0.0
+!ARO/WC_NO3=0.0
!
-!AROL/UR19=0.0
+!ARO/WC_N2O5=0.0
!
-!AROL/URG9=0.0
+!ARO/WC_HONO=0.0
!
-!AROL/AP7=0.0
+!ARO/WC_HNO3=0.0
!
-!AROL/URG10=0.0
+!ARO/WC_HNO4=0.0
!
-!AROL/RPR1=0.0
+!ARO/WC_NH3=0.0
!
-!AROL/RPR5=0.0
+!ARO/WC_OH=0.0
!
-!AROL/RPR8=0.0
+!ARO/WC_HO2=0.0
!
-!AROL/RP10=0.0
+!ARO/WC_CO2=0.0
!
-!AROL/RP11=0.0
+!ARO/WC_SO2=0.0
!
-!AROL/RP16=0.0
+!ARO/WC_SULF=0.0
!
-!AROL/RPRL=0.0
+!ARO/WC_HCHO=0.0
!
-!AROL/APAN=0.0
+!ARO/WC_ORA1=0.0
!
-!AROL/PAN1=0.0
+!ARO/WC_ORA2=0.0
!
-!AROL/PAN2=0.0
+!ARO/WC_MO2=0.0
!
-!AROL/PAN3=0.0
+!ARO/WC_OP1=0.0
!
-!AROL/PAN4=0.0
+!ARO/WC_ASO3=0.0
!
-!AROL/PAN6=0.0
+!ARO/WC_ASO4=0.0
!
-!AROL/PAN7=0.0
+!ARO/WC_ASO5=0.0
!
-!AROL/PAN8=0.0
+!ARO/WC_AHSO5=0.0
!
-!AROL/PN10=0.0
+!ARO/WC_AHMS=0.0
!
-!AROL/RO2T=0.0
+!ARO/WR_O3=0.0
!
-!AROL/RO21=0.0
+!ARO/WR_H2O2=0.0
!
-!AROL/RO25=0.0
+!ARO/WR_NO=0.0
!
-!AROO/NO=0.0
+!ARO/WR_NO2=0.0
!
-!AROO/NO2=0.0
+!ARO/WR_NO3=0.0
!
-!AROO/O3=0.0
+!ARO/WR_N2O5=0.0
!
-!AROO/HONO=0.0
+!ARO/WR_HONO=0.0
!
-!AROO/HNO3=0.0
+!ARO/WR_HNO3=0.0
!
-!AROO/HNO4=0.0
+!ARO/WR_HNO4=0.0
!
-!AROO/N2O5=0.0
+!ARO/WR_NH3=0.0
!
-!AROO/NO3=-K072*<AROO>
- PJAC(:,24,8)=-TPK%K072(:)*PCONC(:,24)
+!ARO/WR_OH=0.0
!
-!AROO/NH3=0.0
+!ARO/WR_HO2=0.0
!
-!AROO/HO2=0.0
+!ARO/WR_CO2=0.0
!
-!AROO/CO=0.0
+!ARO/WR_SO2=0.0
!
-!AROO/H2O2=0.0
+!ARO/WR_SULF=0.0
!
-!AROO/SO2=0.0
+!ARO/WR_HCHO=0.0
!
-!AROO/H2SO4=0.0
+!ARO/WR_ORA1=0.0
!
-!AROO/OH=+0.16*K073*<AROO>-K073*<AROO>+0.16*K079*<AROL>+0.16*K080*<AROH>
- PJAC(:,24,15)=+0.16*TPK%K073(:)*PCONC(:,24)-TPK%K073(:)*PCONC(:,24)+0.16*TPK%K&
-&079(:)*PCONC(:,23)+0.16*TPK%K080(:)*PCONC(:,22)
+!ARO/WR_ORA2=0.0
!
-!AROO/ETHE=0.0
+!ARO/WR_MO2=0.0
!
-!AROO/OLEL=0.0
+!ARO/WR_OP1=0.0
!
-!AROO/OLEH=0.0
+!ARO/WR_ASO3=0.0
!
-!AROO/ALKL=0.0
+!ARO/WR_ASO4=0.0
!
-!AROO/ALKM=0.0
+!ARO/WR_ASO5=0.0
!
-!AROO/ALKH=0.0
+!ARO/WR_AHSO5=0.0
!
-!AROO/AROH=+0.16*K080*<OH>
- PJAC(:,24,22)=+0.16*TPK%K080(:)*PCONC(:,15)
+!ARO/WR_AHMS=0.0
!
-!AROO/AROL=+0.16*K079*<OH>
- PJAC(:,24,23)=+0.16*TPK%K079(:)*PCONC(:,15)
+!HCHO/O3=+0.48290*K079*<ALKE>+0.90000*K080*<BIO>+0.00000*K081*<CARBO>+0.70*K082
+!*<PAN>
+ PJAC(:,22,1)=+0.48290*TPK%K079(:)*PCONC(:,19)+0.90000*TPK%K080(:)*PCONC(:,20)+&
+&0.00000*TPK%K081(:)*PCONC(:,25)+0.70*TPK%K082(:)*PCONC(:,27)
!
-!AROO/AROO=-K072*<NO3>+0.16*K073*<OH>-K073*<OH>
- PJAC(:,24,24)=-TPK%K072(:)*PCONC(:,8)+0.16*TPK%K073(:)*PCONC(:,15)-TPK%K073(:)&
-&*PCONC(:,15)
+!HCHO/H2O2=0.0
!
-!AROO/ARAL=0.0
+!HCHO/NO=+K090*<MO2>+0.03002*K091*<ALKAP>+1.39870*K092*<ALKEP>+0.60600*K093*<BI
+!OP>+0.05848*K095*<CARBOP>+0.23419*K096*<OLN>
+ PJAC(:,22,3)=+TPK%K090(:)*PCONC(:,32)+0.03002*TPK%K091(:)*PCONC(:,33)+1.39870*&
+&TPK%K092(:)*PCONC(:,34)+0.60600*TPK%K093(:)*PCONC(:,35)+0.05848*TPK%K095(:)*PC&
+&ONC(:,39)+0.23419*TPK%K096(:)*PCONC(:,40)
!
-!AROO/ARAC=0.0
+!HCHO/NO2=0.0
!
-!AROO/PAH=0.0
+!HCHO/NO3=-K072*<HCHO>+0.40*K078*<PAN>+K119*<MO2>+0.03142*K120*<ALKAP>+1.40909*
+!K121*<ALKEP>+0.68600*K122*<BIOP>+0.03175*K124*<CARBOP>+0.20740*K125*<OLN>
+ PJAC(:,22,5)=-TPK%K072(:)*PCONC(:,22)+0.40*TPK%K078(:)*PCONC(:,27)+TPK%K119(:)&
+&*PCONC(:,32)+0.03142*TPK%K120(:)*PCONC(:,33)+1.40909*TPK%K121(:)*PCONC(:,34)+0&
+&.68600*TPK%K122(:)*PCONC(:,35)+0.03175*TPK%K124(:)*PCONC(:,39)+0.20740*TPK%K12&
+&5(:)*PCONC(:,40)
!
-!AROO/HCHO=0.0
+!HCHO/N2O5=0.0
!
-!AROO/ALD2=0.0
+!HCHO/HONO=0.0
!
-!AROO/KETL=0.0
+!HCHO/HNO3=0.0
!
-!AROO/KETH=0.0
+!HCHO/HNO4=0.0
!
-!AROO/MEOH=0.0
+!HCHO/NH3=0.0
!
-!AROO/ETOH=0.0
+!HCHO/SO2=0.0
!
-!AROO/ALCH=0.0
+!HCHO/SULF=0.0
!
-!AROO/ISOP=0.0
+!HCHO/CO=0.0
!
-!AROO/BIOL=0.0
+!HCHO/OH=+0.00140*K058*<ALKA>-K062*<HCHO>+0.00000*K065*<CARBO>+0.35*K068*<OP1>+
+!0.02915*K069*<OP2>+0.57839*K070*<PAN>
+ PJAC(:,22,14)=+0.00140*TPK%K058(:)*PCONC(:,18)-TPK%K062(:)*PCONC(:,22)+0.00000&
+&*TPK%K065(:)*PCONC(:,25)+0.35*TPK%K068(:)*PCONC(:,28)+0.02915*TPK%K069(:)*PCON&
+&C(:,29)+0.57839*TPK%K070(:)*PCONC(:,27)
!
-!AROO/BIOH=0.0
+!HCHO/HO2=0.0
!
-!AROO/MTBE=0.0
+!HCHO/CH4=0.0
!
-!AROO/MVK=0.0
+!HCHO/ETH=0.0
!
-!AROO/MCR=0.0
+!HCHO/ALKA=+0.00140*K058*<OH>
+ PJAC(:,22,18)=+0.00140*TPK%K058(:)*PCONC(:,14)
!
-!AROO/MGLY=0.0
+!HCHO/ALKE=+0.48290*K079*<O3>
+ PJAC(:,22,19)=+0.48290*TPK%K079(:)*PCONC(:,1)
!
-!AROO/GLY=0.0
+!HCHO/BIO=+0.05*K054*<O3P>+0.90000*K080*<O3>
+ PJAC(:,22,20)=+0.05*TPK%K054(:)*TPK%O3P(:)+0.90000*TPK%K080(:)*PCONC(:,1)
!
-!AROO/ORA1=0.0
+!HCHO/ARO=0.0
!
-!AROO/ORA2=0.0
+!HCHO/HCHO=-K010-K011-K062*<OH>-K072*<NO3>-KTC16-KTR16
+ PJAC(:,22,22)=-TPK%K010(:)-TPK%K011(:)-TPK%K062(:)*PCONC(:,14)-TPK%K072(:)*PCO&
+&NC(:,5)-TPK%KTC16(:)-TPK%KTR16(:)
!
-!AROO/ACID=0.0
+!HCHO/ALD=0.0
!
-!AROO/UR28=0.0
+!HCHO/KET=0.0
!
-!AROO/UR21=0.0
+!HCHO/CARBO=+0.06517*K016+0.00000*K065*<OH>+0.00000*K081*<O3>
+ PJAC(:,22,25)=+0.06517*TPK%K016(:)+0.00000*TPK%K065(:)*PCONC(:,14)+0.00000*TPK&
+&%K081(:)*PCONC(:,1)
!
-!AROO/URG2=0.0
+!HCHO/ONIT=0.0
!
-!AROO/UR26=0.0
+!HCHO/PAN=+0.57839*K070*<OH>+0.40*K078*<NO3>+0.70*K082*<O3>
+ PJAC(:,22,27)=+0.57839*TPK%K070(:)*PCONC(:,14)+0.40*TPK%K078(:)*PCONC(:,5)+0.7&
+&0*TPK%K082(:)*PCONC(:,1)
!
-!AROO/RPG2=0.0
+!HCHO/OP1=+K013+0.35*K068*<OH>
+ PJAC(:,22,28)=+TPK%K013(:)+0.35*TPK%K068(:)*PCONC(:,14)
!
-!AROO/RP18=0.0
+!HCHO/OP2=+0.02915*K069*<OH>
+ PJAC(:,22,29)=+0.02915*TPK%K069(:)*PCONC(:,14)
!
-!AROO/RPG3=0.0
+!HCHO/ORA1=0.0
!
-!AROO/URG4=0.0
+!HCHO/ORA2=0.0
!
-!AROO/UR8=0.0
+!HCHO/MO2=+K090*<NO>+1.33*K104*<MO2>+1.33*K104*<MO2>+0.80556*K105*<ALKAP>+1.428
+!94*K106*<ALKEP>+1.09000*K107*<BIOP>+K108*<AROP>+0.95723*K109*<CARBOP>+0.88625*
+!K110*<OLN>+K119*<NO3>+K127*<XO2>
+ PJAC(:,22,32)=+TPK%K090(:)*PCONC(:,3)+1.33*TPK%K104(:)*PCONC(:,32)+1.33*TPK%K1&
+&04(:)*PCONC(:,32)+0.80556*TPK%K105(:)*PCONC(:,33)+1.42894*TPK%K106(:)*PCONC(:,&
+&34)+1.09000*TPK%K107(:)*PCONC(:,35)+TPK%K108(:)*PCONC(:,38)+0.95723*TPK%K109(:&
+&)*PCONC(:,39)+0.88625*TPK%K110(:)*PCONC(:,40)+TPK%K119(:)*PCONC(:,5)+TPK%K127(&
+&:)*PCONC(:,41)
+!
+!HCHO/ALKAP=+0.03002*K091*<NO>+0.80556*K105*<MO2>+0.07600*K111*<CARBOP>+0.03142
+!*K120*<NO3>
+ PJAC(:,22,33)=+0.03002*TPK%K091(:)*PCONC(:,3)+0.80556*TPK%K105(:)*PCONC(:,32)+&
+&0.07600*TPK%K111(:)*PCONC(:,39)+0.03142*TPK%K120(:)*PCONC(:,5)
+!
+!HCHO/ALKEP=+1.39870*K092*<NO>+1.42894*K106*<MO2>+0.68192*K112*<CARBOP>+1.40909
+!*K121*<NO3>
+ PJAC(:,22,34)=+1.39870*TPK%K092(:)*PCONC(:,3)+1.42894*TPK%K106(:)*PCONC(:,32)+&
+&0.68192*TPK%K112(:)*PCONC(:,39)+1.40909*TPK%K121(:)*PCONC(:,5)
+!
+!HCHO/BIOP=+0.60600*K093*<NO>+1.09000*K107*<MO2>+0.34000*K113*<CARBOP>+0.68600*
+!K122*<NO3>
+ PJAC(:,22,35)=+0.60600*TPK%K093(:)*PCONC(:,3)+1.09000*TPK%K107(:)*PCONC(:,32)+&
+&0.34000*TPK%K113(:)*PCONC(:,39)+0.68600*TPK%K122(:)*PCONC(:,5)
+!
+!HCHO/PHO=0.0
+!
+!HCHO/ADD=0.0
+!
+!HCHO/AROP=+K108*<MO2>
+ PJAC(:,22,38)=+TPK%K108(:)*PCONC(:,32)
+!
+!HCHO/CARBOP=+0.05848*K095*<NO>+0.95723*K109*<MO2>+0.07600*K111*<ALKAP>+0.68192
+!*K112*<ALKEP>+0.34000*K113*<BIOP>+0.03432*K115*<CARBOP>+0.03432*K115*<CARBOP>+
+!0.13414*K116*<OLN>+0.03175*K124*<NO3>
+ PJAC(:,22,39)=+0.05848*TPK%K095(:)*PCONC(:,3)+0.95723*TPK%K109(:)*PCONC(:,32)+&
+&0.07600*TPK%K111(:)*PCONC(:,33)+0.68192*TPK%K112(:)*PCONC(:,34)+0.34000*TPK%K1&
+&13(:)*PCONC(:,35)+0.03432*TPK%K115(:)*PCONC(:,39)+0.03432*TPK%K115(:)*PCONC(:,&
+&39)+0.13414*TPK%K116(:)*PCONC(:,40)+0.03175*TPK%K124(:)*PCONC(:,5)
+!
+!HCHO/OLN=+0.23419*K096*<NO>+0.88625*K110*<MO2>+0.13414*K116*<CARBOP>+0.00000*K
+!118*<OLN>+0.00000*K118*<OLN>+0.20740*K125*<NO3>
+ PJAC(:,22,40)=+0.23419*TPK%K096(:)*PCONC(:,3)+0.88625*TPK%K110(:)*PCONC(:,32)+&
+&0.13414*TPK%K116(:)*PCONC(:,39)+0.00000*TPK%K118(:)*PCONC(:,40)+0.00000*TPK%K1&
+&18(:)*PCONC(:,40)+0.20740*TPK%K125(:)*PCONC(:,5)
+!
+!HCHO/XO2=+K127*<MO2>
+ PJAC(:,22,41)=+TPK%K127(:)*PCONC(:,32)
!
-!AROO/UR17=0.0
+!HCHO/WC_O3=0.0
!
-!AROO/UR7=0.0
+!HCHO/WC_H2O2=0.0
!
-!AROO/RPR3=0.0
+!HCHO/WC_NO=0.0
!
-!AROO/URG6=0.0
+!HCHO/WC_NO2=0.0
!
-!AROO/UR22=0.0
+!HCHO/WC_NO3=0.0
!
-!AROO/URG7=0.0
+!HCHO/WC_N2O5=0.0
!
-!AROO/RPR4=0.0
+!HCHO/WC_HONO=0.0
!
-!AROO/RPR7=0.0
+!HCHO/WC_HNO3=0.0
!
-!AROO/RPG7=0.0
+!HCHO/WC_HNO4=0.0
!
-!AROO/URG8=0.0
+!HCHO/WC_NH3=0.0
!
-!AROO/UR19=0.0
+!HCHO/WC_OH=0.0
!
-!AROO/URG9=0.0
+!HCHO/WC_HO2=0.0
!
-!AROO/AP7=0.0
+!HCHO/WC_CO2=0.0
!
-!AROO/URG10=0.0
+!HCHO/WC_SO2=0.0
!
-!AROO/RPR1=0.0
+!HCHO/WC_SULF=0.0
!
-!AROO/RPR5=0.0
+!HCHO/WC_HCHO=+KTC36
+ PJAC(:,22,57)=+TPK%KTC36(:)
!
-!AROO/RPR8=0.0
+!HCHO/WC_ORA1=0.0
!
-!AROO/RP10=0.0
+!HCHO/WC_ORA2=0.0
!
-!AROO/RP11=0.0
+!HCHO/WC_MO2=0.0
!
-!AROO/RP16=0.0
+!HCHO/WC_OP1=0.0
!
-!AROO/RPRL=0.0
+!HCHO/WC_ASO3=0.0
!
-!AROO/APAN=0.0
+!HCHO/WC_ASO4=0.0
!
-!AROO/PAN1=0.0
+!HCHO/WC_ASO5=0.0
!
-!AROO/PAN2=0.0
+!HCHO/WC_AHSO5=0.0
!
-!AROO/PAN3=0.0
+!HCHO/WC_AHMS=0.0
!
-!AROO/PAN4=0.0
+!HCHO/WR_O3=0.0
!
-!AROO/PAN6=0.0
+!HCHO/WR_H2O2=0.0
!
-!AROO/PAN7=0.0
+!HCHO/WR_NO=0.0
!
-!AROO/PAN8=0.0
+!HCHO/WR_NO2=0.0
!
-!AROO/PN10=0.0
+!HCHO/WR_NO3=0.0
!
-!AROO/RO2T=0.0
+!HCHO/WR_N2O5=0.0
!
-!AROO/RO21=0.0
+!HCHO/WR_HONO=0.0
!
-!AROO/RO25=0.0
+!HCHO/WR_HNO3=0.0
!
-!ARAL/NO=+TPK%CF24*K189*<RO221>
- PJAC(:,25,1)=+TPK%CF24*TPK%K189(:)*TPK%RO221(:)
+!HCHO/WR_HNO4=0.0
!
-!ARAL/NO2=0.0
+!HCHO/WR_NH3=0.0
!
-!ARAL/O3=0.0
+!HCHO/WR_OH=0.0
!
-!ARAL/HONO=0.0
+!HCHO/WR_HO2=0.0
!
-!ARAL/HNO3=0.0
+!HCHO/WR_CO2=0.0
!
-!ARAL/HNO4=0.0
+!HCHO/WR_SO2=0.0
!
-!ARAL/N2O5=0.0
+!HCHO/WR_SULF=0.0
!
-!ARAL/NO3=-K081*<ARAL>
- PJAC(:,25,8)=-TPK%K081(:)*PCONC(:,25)
+!HCHO/WR_HCHO=+KTR36
+ PJAC(:,22,82)=+TPK%KTR36(:)
!
-!ARAL/NH3=0.0
+!HCHO/WR_ORA1=0.0
!
-!ARAL/HO2=+K191*<RO221>
- PJAC(:,25,10)=+TPK%K191(:)*TPK%RO221(:)
+!HCHO/WR_ORA2=0.0
!
-!ARAL/CO=0.0
+!HCHO/WR_MO2=0.0
!
-!ARAL/H2O2=0.0
+!HCHO/WR_OP1=0.0
!
-!ARAL/SO2=0.0
+!HCHO/WR_ASO3=0.0
!
-!ARAL/H2SO4=0.0
+!HCHO/WR_ASO4=0.0
!
-!ARAL/OH=-K082*<ARAL>
- PJAC(:,25,15)=-TPK%K082(:)*PCONC(:,25)
+!HCHO/WR_ASO5=0.0
!
-!ARAL/ETHE=0.0
+!HCHO/WR_AHSO5=0.0
!
-!ARAL/OLEL=0.0
+!HCHO/WR_AHMS=0.0
!
-!ARAL/OLEH=0.0
+!ALD/O3=+0.51468*K079*<ALKE>+0.00000*K080*<BIO>+0.15692*K081*<CARBO>
+ PJAC(:,23,1)=+0.51468*TPK%K079(:)*PCONC(:,19)+0.00000*TPK%K080(:)*PCONC(:,20)+&
+&0.15692*TPK%K081(:)*PCONC(:,25)
!
-!ARAL/ALKL=0.0
+!ALD/H2O2=0.0
!
-!ARAL/ALKM=0.0
+!ALD/NO=+0.33144*K091*<ALKAP>+0.42125*K092*<ALKEP>+0.00000*K093*<BIOP>+0.07368*
+!K095*<CARBOP>+1.01182*K096*<OLN>
+ PJAC(:,23,3)=+0.33144*TPK%K091(:)*PCONC(:,33)+0.42125*TPK%K092(:)*PCONC(:,34)+&
+&0.00000*TPK%K093(:)*PCONC(:,35)+0.07368*TPK%K095(:)*PCONC(:,39)+1.01182*TPK%K0&
+&96(:)*PCONC(:,40)
!
-!ARAL/ALKH=0.0
+!ALD/NO2=0.0
!
-!ARAL/AROH=0.0
+!ALD/NO3=-K073*<ALD>+0.05265*K074*<CARBO>+0.33743*K120*<ALKAP>+0.43039*K121*<AL
+!KEP>+0.00000*K122*<BIOP>+0.02936*K124*<CARBOP>+0.91850*K125*<OLN>
+ PJAC(:,23,5)=-TPK%K073(:)*PCONC(:,23)+0.05265*TPK%K074(:)*PCONC(:,25)+0.33743*&
+&TPK%K120(:)*PCONC(:,33)+0.43039*TPK%K121(:)*PCONC(:,34)+0.00000*TPK%K122(:)*PC&
+&ONC(:,35)+0.02936*TPK%K124(:)*PCONC(:,39)+0.91850*TPK%K125(:)*PCONC(:,40)
!
-!ARAL/AROL=0.0
+!ALD/N2O5=0.0
!
-!ARAL/AROO=0.0
+!ALD/HONO=0.0
!
-!ARAL/ARAL=-K081*<NO3>-K082*<OH>
- PJAC(:,25,25)=-TPK%K081(:)*PCONC(:,8)-TPK%K082(:)*PCONC(:,15)
+!ALD/HNO3=0.0
!
-!ARAL/ARAC=0.0
+!ALD/HNO4=0.0
!
-!ARAL/PAH=0.0
+!ALD/NH3=0.0
!
-!ARAL/HCHO=0.0
+!ALD/SO2=0.0
!
-!ARAL/ALD2=0.0
+!ALD/SULF=0.0
!
-!ARAL/KETL=0.0
+!ALD/CO=0.0
!
-!ARAL/KETH=0.0
+!ALD/OH=+0.08173*K058*<ALKA>-K063*<ALD>+0.06253*K065*<CARBO>+0.07335*K069*<OP2>
+ PJAC(:,23,14)=+0.08173*TPK%K058(:)*PCONC(:,18)-TPK%K063(:)*PCONC(:,23)+0.06253&
+&*TPK%K065(:)*PCONC(:,25)+0.07335*TPK%K069(:)*PCONC(:,29)
!
-!ARAL/MEOH=0.0
+!ALD/HO2=0.0
!
-!ARAL/ETOH=0.0
+!ALD/CH4=0.0
!
-!ARAL/ALCH=0.0
+!ALD/ETH=0.0
!
-!ARAL/ISOP=0.0
+!ALD/ALKA=+0.08173*K058*<OH>
+ PJAC(:,23,18)=+0.08173*TPK%K058(:)*PCONC(:,14)
!
-!ARAL/BIOL=0.0
+!ALD/ALKE=+0.51468*K079*<O3>
+ PJAC(:,23,19)=+0.51468*TPK%K079(:)*PCONC(:,1)
!
-!ARAL/BIOH=0.0
+!ALD/BIO=+0.00000*K080*<O3>
+ PJAC(:,23,20)=+0.00000*TPK%K080(:)*PCONC(:,1)
!
-!ARAL/MTBE=0.0
+!ALD/ARO=0.0
!
-!ARAL/MVK=0.0
+!ALD/HCHO=0.0
!
-!ARAL/MCR=0.0
+!ALD/ALD=-K012-K063*<OH>-K073*<NO3>
+ PJAC(:,23,23)=-TPK%K012(:)-TPK%K063(:)*PCONC(:,14)-TPK%K073(:)*PCONC(:,5)
!
-!ARAL/MGLY=0.0
+!ALD/KET=0.0
!
-!ARAL/GLY=0.0
+!ALD/CARBO=+K055*<O3P>+0.06253*K065*<OH>+0.05265*K074*<NO3>+0.15692*K081*<O3>
+ PJAC(:,23,25)=+TPK%K055(:)*TPK%O3P(:)+0.06253*TPK%K065(:)*PCONC(:,14)+0.05265*&
+&TPK%K074(:)*PCONC(:,5)+0.15692*TPK%K081(:)*PCONC(:,1)
!
-!ARAL/ORA1=0.0
+!ALD/ONIT=+0.20*K017
+ PJAC(:,23,26)=+0.20*TPK%K017(:)
!
-!ARAL/ORA2=0.0
+!ALD/PAN=0.0
!
-!ARAL/ACID=0.0
+!ALD/OP1=0.0
!
-!ARAL/UR28=0.0
+!ALD/OP2=+0.96205*K014+0.07335*K069*<OH>
+ PJAC(:,23,29)=+0.96205*TPK%K014(:)+0.07335*TPK%K069(:)*PCONC(:,14)
!
-!ARAL/UR21=0.0
+!ALD/ORA1=0.0
!
-!ARAL/URG2=0.0
+!ALD/ORA2=0.0
!
-!ARAL/UR26=0.0
+!ALD/MO2=+0.56070*K105*<ALKAP>+0.46413*K106*<ALKEP>+0.00000*K107*<BIOP>+0.08295
+!*K109*<CARBOP>+0.41524*K110*<OLN>
+ PJAC(:,23,32)=+0.56070*TPK%K105(:)*PCONC(:,33)+0.46413*TPK%K106(:)*PCONC(:,34)&
+&+0.00000*TPK%K107(:)*PCONC(:,35)+0.08295*TPK%K109(:)*PCONC(:,39)+0.41524*TPK%K&
+&110(:)*PCONC(:,40)
!
-!ARAL/RPG2=0.0
+!ALD/ALKAP=+0.33144*K091*<NO>+0.56070*K105*<MO2>+0.71461*K111*<CARBOP>+0.33743*
+!K120*<NO3>
+ PJAC(:,23,33)=+0.33144*TPK%K091(:)*PCONC(:,3)+0.56070*TPK%K105(:)*PCONC(:,32)+&
+&0.71461*TPK%K111(:)*PCONC(:,39)+0.33743*TPK%K120(:)*PCONC(:,5)
!
-!ARAL/RP18=0.0
+!ALD/ALKEP=+0.42125*K092*<NO>+0.46413*K106*<MO2>+0.68374*K112*<CARBOP>+0.43039*
+!K121*<NO3>
+ PJAC(:,23,34)=+0.42125*TPK%K092(:)*PCONC(:,3)+0.46413*TPK%K106(:)*PCONC(:,32)+&
+&0.68374*TPK%K112(:)*PCONC(:,39)+0.43039*TPK%K121(:)*PCONC(:,5)
!
-!ARAL/RPG3=0.0
+!ALD/BIOP=+0.00000*K093*<NO>+0.00000*K107*<MO2>+0.00000*K113*<CARBOP>+0.00000*K
+!122*<NO3>
+ PJAC(:,23,35)=+0.00000*TPK%K093(:)*PCONC(:,3)+0.00000*TPK%K107(:)*PCONC(:,32)+&
+&0.00000*TPK%K113(:)*PCONC(:,39)+0.00000*TPK%K122(:)*PCONC(:,5)
!
-!ARAL/URG4=0.0
+!ALD/PHO=0.0
!
-!ARAL/UR8=0.0
+!ALD/ADD=0.0
!
-!ARAL/UR17=0.0
+!ALD/AROP=0.0
!
-!ARAL/UR7=0.0
+!ALD/CARBOP=+0.07368*K095*<NO>+0.08295*K109*<MO2>+0.71461*K111*<ALKAP>+0.68374*
+!K112*<ALKEP>+0.00000*K113*<BIOP>+0.06969*K115*<CARBOP>+0.06969*K115*<CARBOP>+0
+!.42122*K116*<OLN>+0.02936*K124*<NO3>
+ PJAC(:,23,39)=+0.07368*TPK%K095(:)*PCONC(:,3)+0.08295*TPK%K109(:)*PCONC(:,32)+&
+&0.71461*TPK%K111(:)*PCONC(:,33)+0.68374*TPK%K112(:)*PCONC(:,34)+0.00000*TPK%K1&
+&13(:)*PCONC(:,35)+0.06969*TPK%K115(:)*PCONC(:,39)+0.06969*TPK%K115(:)*PCONC(:,&
+&39)+0.42122*TPK%K116(:)*PCONC(:,40)+0.02936*TPK%K124(:)*PCONC(:,5)
!
-!ARAL/RPR3=0.0
+!ALD/OLN=+1.01182*K096*<NO>+0.41524*K110*<MO2>+0.42122*K116*<CARBOP>+0.00000*K1
+!18*<OLN>+0.00000*K118*<OLN>+0.91850*K125*<NO3>
+ PJAC(:,23,40)=+1.01182*TPK%K096(:)*PCONC(:,3)+0.41524*TPK%K110(:)*PCONC(:,32)+&
+&0.42122*TPK%K116(:)*PCONC(:,39)+0.00000*TPK%K118(:)*PCONC(:,40)+0.00000*TPK%K1&
+&18(:)*PCONC(:,40)+0.91850*TPK%K125(:)*PCONC(:,5)
!
-!ARAL/URG6=0.0
+!ALD/XO2=0.0
!
-!ARAL/UR22=0.0
+!ALD/WC_O3=0.0
!
-!ARAL/URG7=0.0
+!ALD/WC_H2O2=0.0
!
-!ARAL/RPR4=0.0
+!ALD/WC_NO=0.0
!
-!ARAL/RPR7=0.0
+!ALD/WC_NO2=0.0
!
-!ARAL/RPG7=0.0
+!ALD/WC_NO3=0.0
!
-!ARAL/URG8=0.0
+!ALD/WC_N2O5=0.0
!
-!ARAL/UR19=0.0
+!ALD/WC_HONO=0.0
!
-!ARAL/URG9=0.0
+!ALD/WC_HNO3=0.0
!
-!ARAL/AP7=0.0
+!ALD/WC_HNO4=0.0
!
-!ARAL/URG10=0.0
+!ALD/WC_NH3=0.0
!
-!ARAL/RPR1=0.0
+!ALD/WC_OH=0.0
!
-!ARAL/RPR5=0.0
+!ALD/WC_HO2=0.0
!
-!ARAL/RPR8=0.0
+!ALD/WC_CO2=0.0
!
-!ARAL/RP10=0.0
+!ALD/WC_SO2=0.0
!
-!ARAL/RP11=0.0
+!ALD/WC_SULF=0.0
!
-!ARAL/RP16=0.0
+!ALD/WC_HCHO=0.0
!
-!ARAL/RPRL=0.0
+!ALD/WC_ORA1=0.0
!
-!ARAL/APAN=0.0
+!ALD/WC_ORA2=0.0
!
-!ARAL/PAN1=0.0
+!ALD/WC_MO2=0.0
!
-!ARAL/PAN2=0.0
+!ALD/WC_OP1=0.0
!
-!ARAL/PAN3=0.0
+!ALD/WC_ASO3=0.0
!
-!ARAL/PAN4=0.0
+!ALD/WC_ASO4=0.0
!
-!ARAL/PAN6=0.0
+!ALD/WC_ASO5=0.0
!
-!ARAL/PAN7=0.0
+!ALD/WC_AHSO5=0.0
!
-!ARAL/PAN8=0.0
+!ALD/WC_AHMS=0.0
!
-!ARAL/PN10=0.0
+!ALD/WR_O3=0.0
!
-!ARAL/RO2T=+K190*<RO221>
- PJAC(:,25,85)=+TPK%K190(:)*TPK%RO221(:)
+!ALD/WR_H2O2=0.0
!
-!ARAL/RO21=0.0
+!ALD/WR_NO=0.0
!
-!ARAL/RO25=0.0
+!ALD/WR_NO2=0.0
!
-RETURN
-END SUBROUTINE SUBJ4
+!ALD/WR_NO3=0.0
!
-SUBROUTINE SUBJ5
+!ALD/WR_N2O5=0.0
!
-!Indices 26 a 30
+!ALD/WR_HONO=0.0
!
+!ALD/WR_HNO3=0.0
!
-!ARAC/NO=0.0
+!ALD/WR_HNO4=0.0
!
-!ARAC/NO2=0.0
+!ALD/WR_NH3=0.0
!
-!ARAC/O3=0.0
+!ALD/WR_OH=0.0
!
-!ARAC/HONO=0.0
+!ALD/WR_HO2=0.0
!
-!ARAC/HNO3=0.0
+!ALD/WR_CO2=0.0
!
-!ARAC/HNO4=0.0
+!ALD/WR_SO2=0.0
!
-!ARAC/N2O5=0.0
+!ALD/WR_SULF=0.0
!
-!ARAC/NO3=+K081*<ARAL>
- PJAC(:,26,8)=+TPK%K081(:)*PCONC(:,25)
+!ALD/WR_HCHO=0.0
!
-!ARAC/NH3=0.0
+!ALD/WR_ORA1=0.0
!
-!ARAC/HO2=0.0
+!ALD/WR_ORA2=0.0
!
-!ARAC/CO=0.0
+!ALD/WR_MO2=0.0
!
-!ARAC/H2O2=0.0
+!ALD/WR_OP1=0.0
!
-!ARAC/SO2=0.0
+!ALD/WR_ASO3=0.0
!
-!ARAC/H2SO4=0.0
+!ALD/WR_ASO4=0.0
!
-!ARAC/OH=+TPK%CF39*K082*<ARAL>-K083*<ARAC>
- PJAC(:,26,15)=+TPK%CF39*TPK%K082(:)*PCONC(:,25)-TPK%K083(:)*PCONC(:,26)
+!ALD/WR_ASO5=0.0
!
-!ARAC/ETHE=0.0
+!ALD/WR_AHSO5=0.0
!
-!ARAC/OLEL=0.0
+!ALD/WR_AHMS=0.0
!
-!ARAC/OLEH=0.0
+!KET/O3=+0.07377*K079*<ALKE>+0.00000*K080*<BIO>
+ PJAC(:,24,1)=+0.07377*TPK%K079(:)*PCONC(:,19)+0.00000*TPK%K080(:)*PCONC(:,20)
!
-!ARAC/ALKL=0.0
+!KET/H2O2=0.0
!
-!ARAC/ALKM=0.0
+!KET/NO=+0.54531*K091*<ALKAP>+0.05220*K092*<ALKEP>+0.00000*K093*<BIOP>+0.37862*
+!K096*<OLN>
+ PJAC(:,24,3)=+0.54531*TPK%K091(:)*PCONC(:,33)+0.05220*TPK%K092(:)*PCONC(:,34)+&
+&0.00000*TPK%K093(:)*PCONC(:,35)+0.37862*TPK%K096(:)*PCONC(:,40)
!
-!ARAC/ALKH=0.0
+!KET/NO2=0.0
!
-!ARAC/AROH=0.0
+!KET/NO3=+0.00632*K074*<CARBO>+0.62978*K120*<ALKAP>+0.02051*K121*<ALKEP>+0.0000
+!0*K122*<BIOP>+0.34740*K125*<OLN>
+ PJAC(:,24,5)=+0.00632*TPK%K074(:)*PCONC(:,25)+0.62978*TPK%K120(:)*PCONC(:,33)+&
+&0.02051*TPK%K121(:)*PCONC(:,34)+0.00000*TPK%K122(:)*PCONC(:,35)+0.34740*TPK%K1&
+&25(:)*PCONC(:,40)
!
-!ARAC/AROL=0.0
+!KET/N2O5=0.0
!
-!ARAC/AROO=0.0
+!KET/HONO=0.0
!
-!ARAC/ARAL=+K081*<NO3>+TPK%CF39*K082*<OH>
- PJAC(:,26,25)=+TPK%K081(:)*PCONC(:,8)+TPK%CF39*TPK%K082(:)*PCONC(:,15)
+!KET/HNO3=0.0
!
-!ARAC/ARAC=-K083*<OH>
- PJAC(:,26,26)=-TPK%K083(:)*PCONC(:,15)
+!KET/HNO4=0.0
!
-!ARAC/PAH=0.0
+!KET/NH3=0.0
!
-!ARAC/HCHO=0.0
+!KET/SO2=0.0
!
-!ARAC/ALD2=0.0
+!KET/SULF=0.0
!
-!ARAC/KETL=0.0
+!KET/CO=0.0
!
-!ARAC/KETH=0.0
+!KET/OH=+0.03498*K058*<ALKA>-K064*<KET>+0.00853*K065*<CARBO>+0.37591*K069*<OP2>
+ PJAC(:,24,14)=+0.03498*TPK%K058(:)*PCONC(:,18)-TPK%K064(:)*PCONC(:,24)+0.00853&
+&*TPK%K065(:)*PCONC(:,25)+0.37591*TPK%K069(:)*PCONC(:,29)
!
-!ARAC/MEOH=0.0
+!KET/HO2=0.0
!
-!ARAC/ETOH=0.0
+!KET/CH4=0.0
!
-!ARAC/ALCH=0.0
+!KET/ETH=0.0
!
-!ARAC/ISOP=0.0
+!KET/ALKA=+0.03498*K058*<OH>
+ PJAC(:,24,18)=+0.03498*TPK%K058(:)*PCONC(:,14)
!
-!ARAC/BIOL=0.0
+!KET/ALKE=+0.07377*K079*<O3>
+ PJAC(:,24,19)=+0.07377*TPK%K079(:)*PCONC(:,1)
!
-!ARAC/BIOH=0.0
+!KET/BIO=+0.00000*K080*<O3>
+ PJAC(:,24,20)=+0.00000*TPK%K080(:)*PCONC(:,1)
!
-!ARAC/MTBE=0.0
+!KET/ARO=0.0
!
-!ARAC/MVK=0.0
+!KET/HCHO=0.0
!
-!ARAC/MCR=0.0
+!KET/ALD=0.0
!
-!ARAC/MGLY=0.0
+!KET/KET=-K015-K064*<OH>
+ PJAC(:,24,24)=-TPK%K015(:)-TPK%K064(:)*PCONC(:,14)
!
-!ARAC/GLY=0.0
+!KET/CARBO=+0.00853*K065*<OH>+0.00632*K074*<NO3>
+ PJAC(:,24,25)=+0.00853*TPK%K065(:)*PCONC(:,14)+0.00632*TPK%K074(:)*PCONC(:,5)
!
-!ARAC/ORA1=0.0
+!KET/ONIT=+0.80*K017
+ PJAC(:,24,26)=+0.80*TPK%K017(:)
!
-!ARAC/ORA2=0.0
+!KET/PAN=0.0
!
-!ARAC/ACID=0.0
+!KET/OP1=0.0
!
-!ARAC/UR28=0.0
+!KET/OP2=+0.37591*K069*<OH>
+ PJAC(:,24,29)=+0.37591*TPK%K069(:)*PCONC(:,14)
!
-!ARAC/UR21=0.0
+!KET/ORA1=0.0
!
-!ARAC/URG2=0.0
+!KET/ORA2=0.0
!
-!ARAC/UR26=0.0
+!KET/MO2=+0.09673*K105*<ALKAP>+0.03814*K106*<ALKEP>+0.00000*K107*<BIOP>+0.09667
+!*K110*<OLN>
+ PJAC(:,24,32)=+0.09673*TPK%K105(:)*PCONC(:,33)+0.03814*TPK%K106(:)*PCONC(:,34)&
+&+0.00000*TPK%K107(:)*PCONC(:,35)+0.09667*TPK%K110(:)*PCONC(:,40)
!
-!ARAC/RPG2=0.0
+!KET/ALKAP=+0.54531*K091*<NO>+0.09673*K105*<MO2>+0.18819*K111*<CARBOP>+0.62978*
+!K120*<NO3>
+ PJAC(:,24,33)=+0.54531*TPK%K091(:)*PCONC(:,3)+0.09673*TPK%K105(:)*PCONC(:,32)+&
+&0.18819*TPK%K111(:)*PCONC(:,39)+0.62978*TPK%K120(:)*PCONC(:,5)
!
-!ARAC/RP18=0.0
+!KET/ALKEP=+0.05220*K092*<NO>+0.03814*K106*<MO2>+0.06579*K112*<CARBOP>+0.02051*
+!K121*<NO3>
+ PJAC(:,24,34)=+0.05220*TPK%K092(:)*PCONC(:,3)+0.03814*TPK%K106(:)*PCONC(:,32)+&
+&0.06579*TPK%K112(:)*PCONC(:,39)+0.02051*TPK%K121(:)*PCONC(:,5)
!
-!ARAC/RPG3=0.0
+!KET/BIOP=+0.00000*K093*<NO>+0.00000*K107*<MO2>+0.00000*K113*<CARBOP>+0.00000*K
+!122*<NO3>
+ PJAC(:,24,35)=+0.00000*TPK%K093(:)*PCONC(:,3)+0.00000*TPK%K107(:)*PCONC(:,32)+&
+&0.00000*TPK%K113(:)*PCONC(:,39)+0.00000*TPK%K122(:)*PCONC(:,5)
!
-!ARAC/URG4=0.0
+!KET/PHO=0.0
!
-!ARAC/UR8=0.0
+!KET/ADD=0.0
!
-!ARAC/UR17=0.0
+!KET/AROP=0.0
!
-!ARAC/UR7=0.0
+!KET/CARBOP=+0.18819*K111*<ALKAP>+0.06579*K112*<ALKEP>+0.00000*K113*<BIOP>+0.02
+!190*K115*<CARBOP>+0.02190*K115*<CARBOP>+0.10822*K116*<OLN>
+ PJAC(:,24,39)=+0.18819*TPK%K111(:)*PCONC(:,33)+0.06579*TPK%K112(:)*PCONC(:,34)&
+&+0.00000*TPK%K113(:)*PCONC(:,35)+0.02190*TPK%K115(:)*PCONC(:,39)+0.02190*TPK%K&
+&115(:)*PCONC(:,39)+0.10822*TPK%K116(:)*PCONC(:,40)
!
-!ARAC/RPR3=0.0
+!KET/OLN=+0.37862*K096*<NO>+0.09667*K110*<MO2>+0.10822*K116*<CARBOP>+0.00000*K1
+!18*<OLN>+0.00000*K118*<OLN>+0.34740*K125*<NO3>
+ PJAC(:,24,40)=+0.37862*TPK%K096(:)*PCONC(:,3)+0.09667*TPK%K110(:)*PCONC(:,32)+&
+&0.10822*TPK%K116(:)*PCONC(:,39)+0.00000*TPK%K118(:)*PCONC(:,40)+0.00000*TPK%K1&
+&18(:)*PCONC(:,40)+0.34740*TPK%K125(:)*PCONC(:,5)
!
-!ARAC/URG6=0.0
+!KET/XO2=0.0
!
-!ARAC/UR22=0.0
+!KET/WC_O3=0.0
!
-!ARAC/URG7=0.0
+!KET/WC_H2O2=0.0
!
-!ARAC/RPR4=0.0
+!KET/WC_NO=0.0
!
-!ARAC/RPR7=0.0
+!KET/WC_NO2=0.0
!
-!ARAC/RPG7=0.0
+!KET/WC_NO3=0.0
!
-!ARAC/URG8=0.0
+!KET/WC_N2O5=0.0
!
-!ARAC/UR19=0.0
+!KET/WC_HONO=0.0
!
-!ARAC/URG9=0.0
+!KET/WC_HNO3=0.0
!
-!ARAC/AP7=0.0
+!KET/WC_HNO4=0.0
!
-!ARAC/URG10=0.0
+!KET/WC_NH3=0.0
!
-!ARAC/RPR1=0.0
+!KET/WC_OH=0.0
!
-!ARAC/RPR5=0.0
+!KET/WC_HO2=0.0
!
-!ARAC/RPR8=0.0
+!KET/WC_CO2=0.0
!
-!ARAC/RP10=0.0
+!KET/WC_SO2=0.0
!
-!ARAC/RP11=0.0
+!KET/WC_SULF=0.0
!
-!ARAC/RP16=0.0
+!KET/WC_HCHO=0.0
!
-!ARAC/RPRL=0.0
+!KET/WC_ORA1=0.0
!
-!ARAC/APAN=0.0
+!KET/WC_ORA2=0.0
!
-!ARAC/PAN1=0.0
+!KET/WC_MO2=0.0
!
-!ARAC/PAN2=0.0
+!KET/WC_OP1=0.0
!
-!ARAC/PAN3=0.0
+!KET/WC_ASO3=0.0
!
-!ARAC/PAN4=0.0
+!KET/WC_ASO4=0.0
!
-!ARAC/PAN6=0.0
+!KET/WC_ASO5=0.0
!
-!ARAC/PAN7=0.0
+!KET/WC_AHSO5=0.0
!
-!ARAC/PAN8=0.0
+!KET/WC_AHMS=0.0
!
-!ARAC/PN10=0.0
+!KET/WR_O3=0.0
!
-!ARAC/RO2T=0.0
+!KET/WR_H2O2=0.0
!
-!ARAC/RO21=0.0
+!KET/WR_NO=0.0
!
-!ARAC/RO25=0.0
+!KET/WR_NO2=0.0
!
-!PAH/NO=0.0
+!KET/WR_NO3=0.0
!
-!PAH/NO2=0.0
+!KET/WR_N2O5=0.0
!
-!PAH/O3=0.0
+!KET/WR_HONO=0.0
!
-!PAH/HONO=0.0
+!KET/WR_HNO3=0.0
!
-!PAH/HNO3=0.0
+!KET/WR_HNO4=0.0
!
-!PAH/HNO4=0.0
+!KET/WR_NH3=0.0
!
-!PAH/N2O5=0.0
+!KET/WR_OH=0.0
!
-!PAH/NO3=0.0
+!KET/WR_HO2=0.0
!
-!PAH/NH3=0.0
+!KET/WR_CO2=0.0
!
-!PAH/HO2=0.0
+!KET/WR_SO2=0.0
!
-!PAH/CO=0.0
+!KET/WR_SULF=0.0
!
-!PAH/H2O2=0.0
+!KET/WR_HCHO=0.0
!
-!PAH/SO2=0.0
+!KET/WR_ORA1=0.0
!
-!PAH/H2SO4=0.0
+!KET/WR_ORA2=0.0
!
-!PAH/OH=-K092*<PAH>
- PJAC(:,27,15)=-TPK%K092(:)*PCONC(:,27)
+!KET/WR_MO2=0.0
!
-!PAH/ETHE=0.0
+!KET/WR_OP1=0.0
!
-!PAH/OLEL=0.0
+!KET/WR_ASO3=0.0
!
-!PAH/OLEH=0.0
+!KET/WR_ASO4=0.0
!
-!PAH/ALKL=0.0
+!KET/WR_ASO5=0.0
!
-!PAH/ALKM=0.0
+!KET/WR_AHSO5=0.0
!
-!PAH/ALKH=0.0
+!KET/WR_AHMS=0.0
!
-!PAH/AROH=0.0
+!CARBO/O3=+0.00000*K079*<ALKE>+0.39754*K080*<BIO>+1.07583*K081*<CARBO>-K081*<CA
+!RBO>
+ PJAC(:,25,1)=+0.00000*TPK%K079(:)*PCONC(:,19)+0.39754*TPK%K080(:)*PCONC(:,20)+&
+&1.07583*TPK%K081(:)*PCONC(:,25)-TPK%K081(:)*PCONC(:,25)
!
-!PAH/AROL=0.0
+!CARBO/H2O2=0.0
!
-!PAH/AROO=0.0
+!CARBO/NO=+0.03407*K091*<ALKAP>+0.45463*K093*<BIOP>+2.06993*K094*<AROP>+0.08670
+!*K095*<CARBOP>
+ PJAC(:,25,3)=+0.03407*TPK%K091(:)*PCONC(:,33)+0.45463*TPK%K093(:)*PCONC(:,35)+&
+&2.06993*TPK%K094(:)*PCONC(:,38)+0.08670*TPK%K095(:)*PCONC(:,39)
!
-!PAH/ARAL=0.0
+!CARBO/NO2=0.0
!
-!PAH/ARAC=0.0
+!CARBO/NO3=+0.10530*K074*<CARBO>-K074*<CARBO>+0.00000*K076*<ALKE>+0.91741*K077*
+!<BIO>+0.03531*K120*<ALKAP>+0.61160*K122*<BIOP>+2.81904*K123*<AROP>+0.03455*K12
+!4*<CARBOP>
+ PJAC(:,25,5)=+0.10530*TPK%K074(:)*PCONC(:,25)-TPK%K074(:)*PCONC(:,25)+0.00000*&
+&TPK%K076(:)*PCONC(:,19)+0.91741*TPK%K077(:)*PCONC(:,20)+0.03531*TPK%K120(:)*PC&
+&ONC(:,33)+0.61160*TPK%K122(:)*PCONC(:,35)+2.81904*TPK%K123(:)*PCONC(:,38)+0.03&
+&455*TPK%K124(:)*PCONC(:,39)
!
-!PAH/PAH=-K092*<OH>
- PJAC(:,27,27)=-TPK%K092(:)*PCONC(:,15)
+!CARBO/N2O5=0.0
!
-!PAH/HCHO=0.0
+!CARBO/HONO=0.0
!
-!PAH/ALD2=0.0
+!CARBO/HNO3=0.0
!
-!PAH/KETL=0.0
+!CARBO/HNO4=0.0
!
-!PAH/KETH=0.0
+!CARBO/NH3=0.0
!
-!PAH/MEOH=0.0
+!CARBO/SO2=0.0
!
-!PAH/ETOH=0.0
+!CARBO/SULF=0.0
!
-!PAH/ALCH=0.0
+!CARBO/CO=0.0
!
-!PAH/ISOP=0.0
+!CARBO/OH=+0.00835*K058*<ALKA>+0.16919*K065*<CARBO>-K065*<CARBO>+0.21863*K070*<
+!PAN>
+ PJAC(:,25,14)=+0.00835*TPK%K058(:)*PCONC(:,18)+0.16919*TPK%K065(:)*PCONC(:,25)&
+&-TPK%K065(:)*PCONC(:,25)+0.21863*TPK%K070(:)*PCONC(:,27)
!
-!PAH/BIOL=0.0
+!CARBO/HO2=0.0
!
-!PAH/BIOH=0.0
+!CARBO/CH4=0.0
!
-!PAH/MTBE=0.0
+!CARBO/ETH=0.0
!
-!PAH/MVK=0.0
+!CARBO/ALKA=+0.00835*K058*<OH>
+ PJAC(:,25,18)=+0.00835*TPK%K058(:)*PCONC(:,14)
!
-!PAH/MCR=0.0
+!CARBO/ALKE=+0.00000*K076*<NO3>+0.00000*K079*<O3>
+ PJAC(:,25,19)=+0.00000*TPK%K076(:)*PCONC(:,5)+0.00000*TPK%K079(:)*PCONC(:,1)
!
-!PAH/MGLY=0.0
+!CARBO/BIO=+0.13255*K054*<O3P>+0.91741*K077*<NO3>+0.39754*K080*<O3>
+ PJAC(:,25,20)=+0.13255*TPK%K054(:)*TPK%O3P(:)+0.91741*TPK%K077(:)*PCONC(:,5)+0&
+&.39754*TPK%K080(:)*PCONC(:,1)
!
-!PAH/GLY=0.0
+!CARBO/ARO=0.0
!
-!PAH/ORA1=0.0
+!CARBO/HCHO=0.0
!
-!PAH/ORA2=0.0
+!CARBO/ALD=0.0
!
-!PAH/ACID=0.0
+!CARBO/KET=0.0
!
-!PAH/UR28=0.0
+!CARBO/CARBO=-K016-K055*<O3P>+0.16919*K065*<OH>-K065*<OH>+0.10530*K074*<NO3>-K0
+!74*<NO3>+1.07583*K081*<O3>-K081*<O3>
+ PJAC(:,25,25)=-TPK%K016(:)-TPK%K055(:)*TPK%O3P(:)+0.16919*TPK%K065(:)*PCONC(:,&
+&14)-TPK%K065(:)*PCONC(:,14)+0.10530*TPK%K074(:)*PCONC(:,5)-TPK%K074(:)*PCONC(:&
+&,5)+1.07583*TPK%K081(:)*PCONC(:,1)-TPK%K081(:)*PCONC(:,1)
!
-!PAH/UR21=0.0
+!CARBO/ONIT=0.0
!
-!PAH/URG2=0.0
+!CARBO/PAN=+0.21863*K070*<OH>
+ PJAC(:,25,27)=+0.21863*TPK%K070(:)*PCONC(:,14)
!
-!PAH/UR26=0.0
+!CARBO/OP1=0.0
!
-!PAH/RPG2=0.0
+!CARBO/OP2=0.0
!
-!PAH/RP18=0.0
+!CARBO/ORA1=0.0
!
-!PAH/RPG3=0.0
+!CARBO/ORA2=0.0
!
-!PAH/URG4=0.0
+!CARBO/MO2=+0.07976*K105*<ALKAP>+0.56064*K107*<BIOP>+1.99461*K108*<AROP>+0.1538
+!7*K109*<CARBOP>
+ PJAC(:,25,32)=+0.07976*TPK%K105(:)*PCONC(:,33)+0.56064*TPK%K107(:)*PCONC(:,35)&
+&+1.99461*TPK%K108(:)*PCONC(:,38)+0.15387*TPK%K109(:)*PCONC(:,39)
!
-!PAH/UR8=0.0
+!CARBO/ALKAP=+0.03407*K091*<NO>+0.07976*K105*<MO2>+0.06954*K111*<CARBOP>+0.0353
+!1*K120*<NO3>
+ PJAC(:,25,33)=+0.03407*TPK%K091(:)*PCONC(:,3)+0.07976*TPK%K105(:)*PCONC(:,32)+&
+&0.06954*TPK%K111(:)*PCONC(:,39)+0.03531*TPK%K120(:)*PCONC(:,5)
!
-!PAH/UR17=0.0
+!CARBO/ALKEP=0.0
!
-!PAH/UR7=0.0
+!CARBO/BIOP=+0.45463*K093*<NO>+0.56064*K107*<MO2>+0.78591*K113*<CARBOP>+0.61160
+!*K122*<NO3>
+ PJAC(:,25,35)=+0.45463*TPK%K093(:)*PCONC(:,3)+0.56064*TPK%K107(:)*PCONC(:,32)+&
+&0.78591*TPK%K113(:)*PCONC(:,39)+0.61160*TPK%K122(:)*PCONC(:,5)
!
-!PAH/RPR3=0.0
+!CARBO/PHO=0.0
!
-!PAH/URG6=0.0
+!CARBO/ADD=0.0
!
-!PAH/UR22=0.0
+!CARBO/AROP=+2.06993*K094*<NO>+1.99461*K108*<MO2>+1.99455*K114*<CARBOP>+2.81904
+!*K123*<NO3>
+ PJAC(:,25,38)=+2.06993*TPK%K094(:)*PCONC(:,3)+1.99461*TPK%K108(:)*PCONC(:,32)+&
+&1.99455*TPK%K114(:)*PCONC(:,39)+2.81904*TPK%K123(:)*PCONC(:,5)
!
-!PAH/URG7=0.0
+!CARBO/CARBOP=+0.08670*K095*<NO>+0.15387*K109*<MO2>+0.06954*K111*<ALKAP>+0.7859
+!1*K113*<BIOP>+1.99455*K114*<AROP>+0.10777*K115*<CARBOP>+0.10777*K115*<CARBOP>+
+!0.03455*K124*<NO3>
+ PJAC(:,25,39)=+0.08670*TPK%K095(:)*PCONC(:,3)+0.15387*TPK%K109(:)*PCONC(:,32)+&
+&0.06954*TPK%K111(:)*PCONC(:,33)+0.78591*TPK%K113(:)*PCONC(:,35)+1.99455*TPK%K1&
+&14(:)*PCONC(:,38)+0.10777*TPK%K115(:)*PCONC(:,39)+0.10777*TPK%K115(:)*PCONC(:,&
+&39)+0.03455*TPK%K124(:)*PCONC(:,5)
!
-!PAH/RPR4=0.0
+!CARBO/OLN=0.0
!
-!PAH/RPR7=0.0
+!CARBO/XO2=0.0
!
-!PAH/RPG7=0.0
+!CARBO/WC_O3=0.0
!
-!PAH/URG8=0.0
+!CARBO/WC_H2O2=0.0
!
-!PAH/UR19=0.0
+!CARBO/WC_NO=0.0
!
-!PAH/URG9=0.0
+!CARBO/WC_NO2=0.0
!
-!PAH/AP7=0.0
+!CARBO/WC_NO3=0.0
!
-!PAH/URG10=0.0
+!CARBO/WC_N2O5=0.0
!
-!PAH/RPR1=0.0
+!CARBO/WC_HONO=0.0
!
-!PAH/RPR5=0.0
+!CARBO/WC_HNO3=0.0
!
-!PAH/RPR8=0.0
+!CARBO/WC_HNO4=0.0
!
-!PAH/RP10=0.0
+!CARBO/WC_NH3=0.0
!
-!PAH/RP11=0.0
+!CARBO/WC_OH=0.0
!
-!PAH/RP16=0.0
+!CARBO/WC_HO2=0.0
!
-!PAH/RPRL=0.0
+!CARBO/WC_CO2=0.0
!
-!PAH/APAN=0.0
+!CARBO/WC_SO2=0.0
!
-!PAH/PAN1=0.0
+!CARBO/WC_SULF=0.0
!
-!PAH/PAN2=0.0
+!CARBO/WC_HCHO=0.0
!
-!PAH/PAN3=0.0
+!CARBO/WC_ORA1=0.0
!
-!PAH/PAN4=0.0
+!CARBO/WC_ORA2=0.0
!
-!PAH/PAN6=0.0
+!CARBO/WC_MO2=0.0
!
-!PAH/PAN7=0.0
+!CARBO/WC_OP1=0.0
!
-!PAH/PAN8=0.0
+!CARBO/WC_ASO3=0.0
!
-!PAH/PN10=0.0
+!CARBO/WC_ASO4=0.0
!
-!PAH/RO2T=0.0
+!CARBO/WC_ASO5=0.0
!
-!PAH/RO21=0.0
+!CARBO/WC_AHSO5=0.0
!
-!PAH/RO25=0.0
+!CARBO/WC_AHMS=0.0
!
-!HCHO/NO=+K110*<RO21>+K113*<RO22>+K116*<RO23>+K119*<RO24>+TPK%CF6*K150*<RO29>+K
-!153*<RO210>+K156*<RO211>+K159*<RO212>+K162*<RO213>+TPK%CF10*K171*<RO215>+K183*
-!<RO219>+K285*<RO249>+K291*<RO251>+K294*<RO252>+K297*<RO253>
- PJAC(:,28,1)=+TPK%K110(:)*PCONC(:,86)+TPK%K113(:)*TPK%RO22(:)+TPK%K116(:)*TPK%&
-&RO23(:)+TPK%K119(:)*TPK%RO24(:)+TPK%CF6*TPK%K150(:)*TPK%RO29(:)+TPK%K153(:)*TP&
-&K%RO210(:)+TPK%K156(:)*TPK%RO211(:)+TPK%K159(:)*TPK%RO212(:)+TPK%K162(:)*TPK%R&
-&O213(:)+TPK%CF10*TPK%K171(:)*TPK%RO215(:)+TPK%K183(:)*TPK%RO219(:)+TPK%K285(:)&
-&*TPK%RO249(:)+TPK%K291(:)*TPK%RO251(:)+TPK%K294(:)*TPK%RO252(:)+TPK%K297(:)*TP&
-&K%RO253(:)
+!CARBO/WR_O3=0.0
!
-!HCHO/NO2=0.0
+!CARBO/WR_H2O2=0.0
!
-!HCHO/O3=+0.5*K051*<ETHE>+0.5*K056*<OLEL>+0.5*K066*<ISOP>+0.5*K076*<OLEH>+0.5*K
-!281*<MVK>+0.5*K282*<MCR>
- PJAC(:,28,3)=+0.5*TPK%K051(:)*PCONC(:,16)+0.5*TPK%K056(:)*PCONC(:,17)+0.5*TPK%&
-&K066(:)*PCONC(:,35)+0.5*TPK%K076(:)*PCONC(:,18)+0.5*TPK%K281(:)*PCONC(:,39)+0.&
-&5*TPK%K282(:)*PCONC(:,40)
+!CARBO/WR_NO=0.0
!
-!HCHO/HONO=0.0
+!CARBO/WR_NO2=0.0
!
-!HCHO/HNO3=0.0
+!CARBO/WR_NO3=0.0
!
-!HCHO/HNO4=0.0
+!CARBO/WR_N2O5=0.0
!
-!HCHO/N2O5=0.0
+!CARBO/WR_HONO=0.0
!
-!HCHO/NO3=-K047*<HCHO>
- PJAC(:,28,8)=-TPK%K047(:)*PCONC(:,28)
+!CARBO/WR_HNO3=0.0
!
-!HCHO/NH3=0.0
+!CARBO/WR_HNO4=0.0
!
-!HCHO/HO2=+K112*<RO21>+K115*<RO22>+K118*<RO23>+K121*<RO24>+K152*<RO29>+K155*<RO
-!210>+K158*<RO211>+K161*<RO212>+K164*<RO213>+TPK%CF14*K173*<RO215>+K185*<RO219>
-!+K287*<RO249>+K292*<RO251>+K295*<RO252>+K298*<RO253>
- PJAC(:,28,10)=+TPK%K112(:)*PCONC(:,86)+TPK%K115(:)*TPK%RO22(:)+TPK%K118(:)*TPK&
-&%RO23(:)+TPK%K121(:)*TPK%RO24(:)+TPK%K152(:)*TPK%RO29(:)+TPK%K155(:)*TPK%RO210&
-&(:)+TPK%K158(:)*TPK%RO211(:)+TPK%K161(:)*TPK%RO212(:)+TPK%K164(:)*TPK%RO213(:)&
-&+TPK%CF14*TPK%K173(:)*TPK%RO215(:)+TPK%K185(:)*TPK%RO219(:)+TPK%K287(:)*TPK%RO&
-&249(:)+TPK%K292(:)*TPK%RO251(:)+TPK%K295(:)*TPK%RO252(:)+TPK%K298(:)*TPK%RO253&
-&(:)
+!CARBO/WR_NH3=0.0
!
-!HCHO/CO=0.0
+!CARBO/WR_OH=0.0
!
-!HCHO/H2O2=0.0
+!CARBO/WR_HO2=0.0
!
-!HCHO/SO2=0.0
+!CARBO/WR_CO2=0.0
!
-!HCHO/H2SO4=0.0
+!CARBO/WR_SO2=0.0
!
-!HCHO/OH=-K046*<HCHO>+K048*<MEOH>
- PJAC(:,28,15)=-TPK%K046(:)*PCONC(:,28)+TPK%K048(:)*PCONC(:,32)
+!CARBO/WR_SULF=0.0
!
-!HCHO/ETHE=+0.5*K051*<O3>
- PJAC(:,28,16)=+0.5*TPK%K051(:)*PCONC(:,3)
+!CARBO/WR_HCHO=0.0
!
-!HCHO/OLEL=+0.5*K056*<O3>
- PJAC(:,28,17)=+0.5*TPK%K056(:)*PCONC(:,3)
+!CARBO/WR_ORA1=0.0
!
-!HCHO/OLEH=+0.5*K076*<O3>
- PJAC(:,28,18)=+0.5*TPK%K076(:)*PCONC(:,3)
+!CARBO/WR_ORA2=0.0
!
-!HCHO/ALKL=0.0
+!CARBO/WR_MO2=0.0
!
-!HCHO/ALKM=0.0
+!CARBO/WR_OP1=0.0
!
-!HCHO/ALKH=0.0
+!CARBO/WR_ASO3=0.0
!
-!HCHO/AROH=0.0
+!CARBO/WR_ASO4=0.0
!
-!HCHO/AROL=0.0
+!CARBO/WR_ASO5=0.0
!
-!HCHO/AROO=0.0
+!CARBO/WR_AHSO5=0.0
!
-!HCHO/ARAL=0.0
+!CARBO/WR_AHMS=0.0
!
-!HCHO/ARAC=0.0
+RETURN
+END SUBROUTINE SUBJ4
!
-!HCHO/PAH=0.0
+SUBROUTINE SUBJ5
!
-!HCHO/HCHO=-K044-K045-K046*<OH>-K047*<NO3>
- PJAC(:,28,28)=-TPK%K044(:)-TPK%K045(:)-TPK%K046(:)*PCONC(:,15)-TPK%K047(:)*PCO&
-&NC(:,8)
+!Indices 26 a 30
!
-!HCHO/ALD2=0.0
!
-!HCHO/KETL=0.0
+!ONIT/O3=0.0
!
-!HCHO/KETH=0.0
+!ONIT/H2O2=0.0
!
-!HCHO/MEOH=+K048*<OH>
- PJAC(:,28,32)=+TPK%K048(:)*PCONC(:,15)
+!ONIT/NO=+0.08459*K091*<ALKAP>+0.15300*K093*<BIOP>+0.04885*K094*<AROP>+0.18401*
+!K096*<OLN>
+ PJAC(:,26,3)=+0.08459*TPK%K091(:)*PCONC(:,33)+0.15300*TPK%K093(:)*PCONC(:,35)+&
+&0.04885*TPK%K094(:)*PCONC(:,38)+0.18401*TPK%K096(:)*PCONC(:,40)
!
-!HCHO/ETOH=0.0
+!ONIT/NO2=+K083*<PHO>
+ PJAC(:,26,4)=+TPK%K083(:)*PCONC(:,36)
!
-!HCHO/ALCH=0.0
+!ONIT/NO3=+0.60*K078*<PAN>+0.25928*K125*<OLN>
+ PJAC(:,26,5)=+0.60*TPK%K078(:)*PCONC(:,27)+0.25928*TPK%K125(:)*PCONC(:,40)
!
-!HCHO/ISOP=+0.5*K066*<O3>
- PJAC(:,28,35)=+0.5*TPK%K066(:)*PCONC(:,3)
+!ONIT/N2O5=0.0
!
-!HCHO/BIOL=0.0
+!ONIT/HONO=0.0
!
-!HCHO/BIOH=0.0
+!ONIT/HNO3=0.0
!
-!HCHO/MTBE=0.0
+!ONIT/HNO4=0.0
!
-!HCHO/MVK=+0.5*K281*<O3>
- PJAC(:,28,39)=+0.5*TPK%K281(:)*PCONC(:,3)
+!ONIT/NH3=0.0
!
-!HCHO/MCR=+0.5*K282*<O3>
- PJAC(:,28,40)=+0.5*TPK%K282(:)*PCONC(:,3)
+!ONIT/SO2=0.0
!
-!HCHO/MGLY=0.0
+!ONIT/SULF=0.0
!
-!HCHO/GLY=0.0
+!ONIT/CO=0.0
!
-!HCHO/ORA1=0.0
+!ONIT/OH=-K071*<ONIT>
+ PJAC(:,26,14)=-TPK%K071(:)*PCONC(:,26)
!
-!HCHO/ORA2=0.0
+!ONIT/HO2=+K103*<OLN>
+ PJAC(:,26,15)=+TPK%K103(:)*PCONC(:,40)
!
-!HCHO/ACID=0.0
+!ONIT/CH4=0.0
!
-!HCHO/UR28=0.0
+!ONIT/ETH=0.0
!
-!HCHO/UR21=0.0
+!ONIT/ALKA=0.0
!
-!HCHO/URG2=0.0
+!ONIT/ALKE=0.0
!
-!HCHO/UR26=0.0
+!ONIT/BIO=0.0
!
-!HCHO/RPG2=0.0
+!ONIT/ARO=0.0
!
-!HCHO/RP18=0.0
+!ONIT/HCHO=0.0
!
-!HCHO/RPG3=0.0
+!ONIT/ALD=0.0
!
-!HCHO/URG4=0.0
+!ONIT/KET=0.0
!
-!HCHO/UR8=0.0
+!ONIT/CARBO=0.0
!
-!HCHO/UR17=0.0
+!ONIT/ONIT=-K017-K071*<OH>
+ PJAC(:,26,26)=-TPK%K017(:)-TPK%K071(:)*PCONC(:,14)
!
-!HCHO/UR7=0.0
+!ONIT/PAN=+0.60*K078*<NO3>
+ PJAC(:,26,27)=+0.60*TPK%K078(:)*PCONC(:,5)
!
-!HCHO/RPR3=0.0
+!ONIT/OP1=0.0
!
-!HCHO/URG6=0.0
+!ONIT/OP2=0.0
!
-!HCHO/UR22=0.0
+!ONIT/ORA1=0.0
!
-!HCHO/URG7=0.0
+!ONIT/ORA2=0.0
!
-!HCHO/RPR4=0.0
+!ONIT/MO2=+0.67560*K110*<OLN>
+ PJAC(:,26,32)=+0.67560*TPK%K110(:)*PCONC(:,40)
!
-!HCHO/RPR7=0.0
+!ONIT/ALKAP=+0.08459*K091*<NO>
+ PJAC(:,26,33)=+0.08459*TPK%K091(:)*PCONC(:,3)
!
-!HCHO/RPG7=0.0
+!ONIT/ALKEP=0.0
!
-!HCHO/URG8=0.0
+!ONIT/BIOP=+0.15300*K093*<NO>
+ PJAC(:,26,35)=+0.15300*TPK%K093(:)*PCONC(:,3)
!
-!HCHO/UR19=0.0
+!ONIT/PHO=+K083*<NO2>
+ PJAC(:,26,36)=+TPK%K083(:)*PCONC(:,4)
!
-!HCHO/URG9=0.0
+!ONIT/ADD=0.0
!
-!HCHO/AP7=0.0
+!ONIT/AROP=+0.04885*K094*<NO>
+ PJAC(:,26,38)=+0.04885*TPK%K094(:)*PCONC(:,3)
!
-!HCHO/URG10=0.0
+!ONIT/CARBOP=+0.66562*K116*<OLN>
+ PJAC(:,26,39)=+0.66562*TPK%K116(:)*PCONC(:,40)
!
-!HCHO/RPR1=0.0
+!ONIT/OLN=+0.18401*K096*<NO>+K103*<HO2>+0.67560*K110*<MO2>+0.66562*K116*<CARBOP
+!>+2.00*K117*<OLN>+2.00*K117*<OLN>+0.00000*K118*<OLN>+0.00000*K118*<OLN>+0.2592
+!8*K125*<NO3>
+ PJAC(:,26,40)=+0.18401*TPK%K096(:)*PCONC(:,3)+TPK%K103(:)*PCONC(:,15)+0.67560*&
+&TPK%K110(:)*PCONC(:,32)+0.66562*TPK%K116(:)*PCONC(:,39)+2.00*TPK%K117(:)*PCONC&
+&(:,40)+2.00*TPK%K117(:)*PCONC(:,40)+0.00000*TPK%K118(:)*PCONC(:,40)+0.00000*TP&
+&K%K118(:)*PCONC(:,40)+0.25928*TPK%K125(:)*PCONC(:,5)
!
-!HCHO/RPR5=0.0
+!ONIT/XO2=0.0
!
-!HCHO/RPR8=0.0
+!ONIT/WC_O3=0.0
!
-!HCHO/RP10=0.0
+!ONIT/WC_H2O2=0.0
!
-!HCHO/RP11=0.0
+!ONIT/WC_NO=0.0
!
-!HCHO/RP16=0.0
+!ONIT/WC_NO2=0.0
!
-!HCHO/RPRL=0.0
+!ONIT/WC_NO3=0.0
!
-!HCHO/APAN=0.0
+!ONIT/WC_N2O5=0.0
!
-!HCHO/PAN1=0.0
+!ONIT/WC_HONO=0.0
!
-!HCHO/PAN2=0.0
+!ONIT/WC_HNO3=0.0
!
-!HCHO/PAN3=0.0
+!ONIT/WC_HNO4=0.0
!
-!HCHO/PAN4=0.0
+!ONIT/WC_NH3=0.0
!
-!HCHO/PAN6=0.0
+!ONIT/WC_OH=0.0
!
-!HCHO/PAN7=0.0
+!ONIT/WC_HO2=0.0
!
-!HCHO/PAN8=0.0
+!ONIT/WC_CO2=0.0
!
-!HCHO/PN10=0.0
+!ONIT/WC_SO2=0.0
!
-!HCHO/RO2T=+K111*<RO21>+K114*<RO22>+K117*<RO23>+K120*<RO24>+K151*<RO29>+K154*<R
-!O210>+K157*<RO211>+K160*<RO212>+K163*<RO213>+TPK%CF14*K172*<RO215>+K184*<RO219
-!>+K286*<RO249>+K293*<RO251>+K296*<RO252>+K299*<RO253>
- PJAC(:,28,85)=+TPK%K111(:)*PCONC(:,86)+TPK%K114(:)*TPK%RO22(:)+TPK%K117(:)*TPK&
-&%RO23(:)+TPK%K120(:)*TPK%RO24(:)+TPK%K151(:)*TPK%RO29(:)+TPK%K154(:)*TPK%RO210&
-&(:)+TPK%K157(:)*TPK%RO211(:)+TPK%K160(:)*TPK%RO212(:)+TPK%K163(:)*TPK%RO213(:)&
-&+TPK%CF14*TPK%K172(:)*TPK%RO215(:)+TPK%K184(:)*TPK%RO219(:)+TPK%K286(:)*TPK%RO&
-&249(:)+TPK%K293(:)*TPK%RO251(:)+TPK%K296(:)*TPK%RO252(:)+TPK%K299(:)*TPK%RO253&
-&(:)
+!ONIT/WC_SULF=0.0
!
-!HCHO/RO21=+K110*<NO>+K111*<RO2T>+K112*<HO2>
- PJAC(:,28,86)=+TPK%K110(:)*PCONC(:,1)+TPK%K111(:)*PCONC(:,85)+TPK%K112(:)*PCON&
-&C(:,10)
+!ONIT/WC_HCHO=0.0
!
-!HCHO/RO25=0.0
+!ONIT/WC_ORA1=0.0
!
-!ALD2/NO=+K113*<RO22>+K116*<RO23>+TPK%CF4*K122*<RO25>+K144*<RO27>+TPK%CF9*K171*
-!<RO215>+K174*<RO216>
- PJAC(:,29,1)=+TPK%K113(:)*TPK%RO22(:)+TPK%K116(:)*TPK%RO23(:)+TPK%CF4*TPK%K122&
-&(:)*PCONC(:,87)+TPK%K144(:)*TPK%RO27(:)+TPK%CF9*TPK%K171(:)*TPK%RO215(:)+TPK%K&
-&174(:)*TPK%RO216(:)
+!ONIT/WC_ORA2=0.0
!
-!ALD2/NO2=0.0
+!ONIT/WC_MO2=0.0
!
-!ALD2/O3=+0.5*K056*<OLEL>+0.1*K281*<MVK>
- PJAC(:,29,3)=+0.5*TPK%K056(:)*PCONC(:,17)+0.1*TPK%K281(:)*PCONC(:,39)
+!ONIT/WC_OP1=0.0
!
-!ALD2/HONO=0.0
+!ONIT/WC_ASO3=0.0
!
-!ALD2/HNO3=0.0
+!ONIT/WC_ASO4=0.0
!
-!ALD2/HNO4=0.0
+!ONIT/WC_ASO5=0.0
!
-!ALD2/N2O5=0.0
+!ONIT/WC_AHSO5=0.0
!
-!ALD2/NO3=-K061*<ALD2>
- PJAC(:,29,8)=-TPK%K061(:)*PCONC(:,29)
+!ONIT/WC_AHMS=0.0
!
-!ALD2/NH3=0.0
+!ONIT/WR_O3=0.0
!
-!ALD2/HO2=+K115*<RO22>+K118*<RO23>+K124*<RO25>+K146*<RO27>+TPK%CF13*K173*<RO215
-!>+K176*<RO216>
- PJAC(:,29,10)=+TPK%K115(:)*TPK%RO22(:)+TPK%K118(:)*TPK%RO23(:)+TPK%K124(:)*PCO&
-&NC(:,87)+TPK%K146(:)*TPK%RO27(:)+TPK%CF13*TPK%K173(:)*TPK%RO215(:)+TPK%K176(:)&
-&*TPK%RO216(:)
+!ONIT/WR_H2O2=0.0
!
-!ALD2/CO=0.0
+!ONIT/WR_NO=0.0
!
-!ALD2/H2O2=0.0
+!ONIT/WR_NO2=0.0
!
-!ALD2/SO2=0.0
+!ONIT/WR_NO3=0.0
!
-!ALD2/H2SO4=0.0
+!ONIT/WR_N2O5=0.0
!
-!ALD2/OH=+TPK%CF1*K053*<ETOH>-K060*<ALD2>
- PJAC(:,29,15)=+TPK%CF1*TPK%K053(:)*PCONC(:,33)-TPK%K060(:)*PCONC(:,29)
+!ONIT/WR_HONO=0.0
!
-!ALD2/ETHE=0.0
+!ONIT/WR_HNO3=0.0
!
-!ALD2/OLEL=+0.5*K056*<O3>+0.4*K057*<O>
- PJAC(:,29,17)=+0.5*TPK%K056(:)*PCONC(:,3)+0.4*TPK%K057(:)*TPK%O(:)
+!ONIT/WR_HNO4=0.0
!
-!ALD2/OLEH=0.0
+!ONIT/WR_NH3=0.0
!
-!ALD2/ALKL=0.0
+!ONIT/WR_OH=0.0
!
-!ALD2/ALKM=0.0
+!ONIT/WR_HO2=0.0
!
-!ALD2/ALKH=0.0
+!ONIT/WR_CO2=0.0
!
-!ALD2/AROH=0.0
+!ONIT/WR_SO2=0.0
!
-!ALD2/AROL=0.0
+!ONIT/WR_SULF=0.0
!
-!ALD2/AROO=0.0
+!ONIT/WR_HCHO=0.0
!
-!ALD2/ARAL=0.0
+!ONIT/WR_ORA1=0.0
!
-!ALD2/ARAC=0.0
+!ONIT/WR_ORA2=0.0
!
-!ALD2/PAH=0.0
+!ONIT/WR_MO2=0.0
!
-!ALD2/HCHO=0.0
+!ONIT/WR_OP1=0.0
!
-!ALD2/ALD2=-K059-K060*<OH>-K061*<NO3>
- PJAC(:,29,29)=-TPK%K059(:)-TPK%K060(:)*PCONC(:,15)-TPK%K061(:)*PCONC(:,8)
+!ONIT/WR_ASO3=0.0
!
-!ALD2/KETL=0.0
+!ONIT/WR_ASO4=0.0
!
-!ALD2/KETH=0.0
+!ONIT/WR_ASO5=0.0
!
-!ALD2/MEOH=0.0
+!ONIT/WR_AHSO5=0.0
!
-!ALD2/ETOH=+TPK%CF1*K053*<OH>
- PJAC(:,29,33)=+TPK%CF1*TPK%K053(:)*PCONC(:,15)
+!ONIT/WR_AHMS=0.0
!
-!ALD2/ALCH=0.0
+!PAN/O3=+0.30000*K082*<PAN>-K082*<PAN>
+ PJAC(:,27,1)=+0.30000*TPK%K082(:)*PCONC(:,27)-TPK%K082(:)*PCONC(:,27)
!
-!ALD2/ISOP=+0.075*K067*<O>
- PJAC(:,29,35)=+0.075*TPK%K067(:)*TPK%O(:)
+!PAN/H2O2=0.0
!
-!ALD2/BIOL=0.0
+!PAN/NO=0.0
!
-!ALD2/BIOH=0.0
+!PAN/NO2=+1.00000*K088*<CARBOP>
+ PJAC(:,27,4)=+1.00000*TPK%K088(:)*PCONC(:,39)
!
-!ALD2/MTBE=0.0
+!PAN/NO3=+0.40000*K078*<PAN>-K078*<PAN>
+ PJAC(:,27,5)=+0.40000*TPK%K078(:)*PCONC(:,27)-TPK%K078(:)*PCONC(:,27)
!
-!ALD2/MVK=+0.1*K281*<O3>
- PJAC(:,29,39)=+0.1*TPK%K281(:)*PCONC(:,3)
+!PAN/N2O5=0.0
!
-!ALD2/MCR=+0.85*K284*<O>
- PJAC(:,29,40)=+0.85*TPK%K284(:)*TPK%O(:)
+!PAN/HONO=0.0
!
-!ALD2/MGLY=0.0
+!PAN/HNO3=0.0
!
-!ALD2/GLY=0.0
+!PAN/HNO4=0.0
!
-!ALD2/ORA1=0.0
+!PAN/NH3=0.0
!
-!ALD2/ORA2=0.0
+!PAN/SO2=0.0
!
-!ALD2/ACID=0.0
+!PAN/SULF=0.0
!
-!ALD2/UR28=0.0
+!PAN/CO=0.0
!
-!ALD2/UR21=0.0
+!PAN/OH=+0.28107*K070*<PAN>-K070*<PAN>
+ PJAC(:,27,14)=+0.28107*TPK%K070(:)*PCONC(:,27)-TPK%K070(:)*PCONC(:,27)
!
-!ALD2/URG2=0.0
+!PAN/HO2=0.0
!
-!ALD2/UR26=0.0
+!PAN/CH4=0.0
!
-!ALD2/RPG2=0.0
+!PAN/ETH=0.0
!
-!ALD2/RP18=0.0
+!PAN/ALKA=0.0
!
-!ALD2/RPG3=0.0
+!PAN/ALKE=0.0
!
-!ALD2/URG4=0.0
+!PAN/BIO=0.0
!
-!ALD2/UR8=0.0
+!PAN/ARO=0.0
!
-!ALD2/UR17=0.0
+!PAN/HCHO=0.0
!
-!ALD2/UR7=0.0
+!PAN/ALD=0.0
!
-!ALD2/RPR3=0.0
+!PAN/KET=0.0
!
-!ALD2/URG6=0.0
+!PAN/CARBO=0.0
!
-!ALD2/UR22=0.0
+!PAN/ONIT=0.0
!
-!ALD2/URG7=0.0
+!PAN/PAN=+0.28107*K070*<OH>-K070*<OH>+0.40000*K078*<NO3>-K078*<NO3>+0.30000*K08
+!2*<O3>-K082*<O3>-K089
+ PJAC(:,27,27)=+0.28107*TPK%K070(:)*PCONC(:,14)-TPK%K070(:)*PCONC(:,14)+0.40000&
+&*TPK%K078(:)*PCONC(:,5)-TPK%K078(:)*PCONC(:,5)+0.30000*TPK%K082(:)*PCONC(:,1)-&
+&TPK%K082(:)*PCONC(:,1)-TPK%K089(:)
!
-!ALD2/RPR4=0.0
+!PAN/OP1=0.0
!
-!ALD2/RPR7=0.0
+!PAN/OP2=0.0
!
-!ALD2/RPG7=0.0
+!PAN/ORA1=0.0
!
-!ALD2/URG8=0.0
+!PAN/ORA2=0.0
!
-!ALD2/UR19=0.0
+!PAN/MO2=0.0
!
-!ALD2/URG9=0.0
+!PAN/ALKAP=0.0
!
-!ALD2/AP7=0.0
+!PAN/ALKEP=0.0
!
-!ALD2/URG10=0.0
+!PAN/BIOP=0.0
!
-!ALD2/RPR1=0.0
+!PAN/PHO=0.0
!
-!ALD2/RPR5=0.0
+!PAN/ADD=0.0
!
-!ALD2/RPR8=0.0
+!PAN/AROP=0.0
!
-!ALD2/RP10=0.0
+!PAN/CARBOP=+1.00000*K088*<NO2>
+ PJAC(:,27,39)=+1.00000*TPK%K088(:)*PCONC(:,4)
!
-!ALD2/RP11=0.0
+!PAN/OLN=0.0
!
-!ALD2/RP16=0.0
+!PAN/XO2=0.0
!
-!ALD2/RPRL=0.0
+!PAN/WC_O3=0.0
!
-!ALD2/APAN=0.0
+!PAN/WC_H2O2=0.0
!
-!ALD2/PAN1=0.0
+!PAN/WC_NO=0.0
!
-!ALD2/PAN2=0.0
+!PAN/WC_NO2=0.0
!
-!ALD2/PAN3=0.0
+!PAN/WC_NO3=0.0
!
-!ALD2/PAN4=0.0
+!PAN/WC_N2O5=0.0
!
-!ALD2/PAN6=0.0
+!PAN/WC_HONO=0.0
!
-!ALD2/PAN7=0.0
+!PAN/WC_HNO3=0.0
!
-!ALD2/PAN8=0.0
+!PAN/WC_HNO4=0.0
!
-!ALD2/PN10=0.0
+!PAN/WC_NH3=0.0
!
-!ALD2/RO2T=+K114*<RO22>+K117*<RO23>+K123*<RO25>+K145*<RO27>+TPK%CF13*K172*<RO21
-!5>+K175*<RO216>
- PJAC(:,29,85)=+TPK%K114(:)*TPK%RO22(:)+TPK%K117(:)*TPK%RO23(:)+TPK%K123(:)*PCO&
-&NC(:,87)+TPK%K145(:)*TPK%RO27(:)+TPK%CF13*TPK%K172(:)*TPK%RO215(:)+TPK%K175(:)&
-&*TPK%RO216(:)
+!PAN/WC_OH=0.0
!
-!ALD2/RO21=0.0
+!PAN/WC_HO2=0.0
!
-!ALD2/RO25=+TPK%CF4*K122*<NO>+K123*<RO2T>+K124*<HO2>
- PJAC(:,29,87)=+TPK%CF4*TPK%K122(:)*PCONC(:,1)+TPK%K123(:)*PCONC(:,85)+TPK%K124&
-&(:)*PCONC(:,10)
+!PAN/WC_CO2=0.0
!
-!KETL/NO=+TPK%CF11*K171*<RO215>
- PJAC(:,30,1)=+TPK%CF11*TPK%K171(:)*TPK%RO215(:)
+!PAN/WC_SO2=0.0
!
-!KETL/NO2=0.0
+!PAN/WC_SULF=0.0
!
-!KETL/O3=0.0
+!PAN/WC_HCHO=0.0
!
-!KETL/HONO=0.0
+!PAN/WC_ORA1=0.0
!
-!KETL/HNO3=0.0
+!PAN/WC_ORA2=0.0
!
-!KETL/HNO4=0.0
+!PAN/WC_MO2=0.0
!
-!KETL/N2O5=0.0
+!PAN/WC_OP1=0.0
!
-!KETL/NO3=0.0
+!PAN/WC_ASO3=0.0
!
-!KETL/NH3=0.0
+!PAN/WC_ASO4=0.0
!
-!KETL/HO2=+TPK%CF15*K173*<RO215>
- PJAC(:,30,10)=+TPK%CF15*TPK%K173(:)*TPK%RO215(:)
+!PAN/WC_ASO5=0.0
!
-!KETL/CO=0.0
+!PAN/WC_AHSO5=0.0
!
-!KETL/H2O2=0.0
+!PAN/WC_AHMS=0.0
!
-!KETL/SO2=0.0
+!PAN/WR_O3=0.0
!
-!KETL/H2SO4=0.0
+!PAN/WR_H2O2=0.0
!
-!KETL/OH=-K062*<KETL>
- PJAC(:,30,15)=-TPK%K062(:)*PCONC(:,30)
+!PAN/WR_NO=0.0
!
-!KETL/ETHE=0.0
+!PAN/WR_NO2=0.0
!
-!KETL/OLEL=0.0
+!PAN/WR_NO3=0.0
!
-!KETL/OLEH=0.0
+!PAN/WR_N2O5=0.0
!
-!KETL/ALKL=0.0
+!PAN/WR_HONO=0.0
!
-!KETL/ALKM=0.0
+!PAN/WR_HNO3=0.0
!
-!KETL/ALKH=0.0
+!PAN/WR_HNO4=0.0
!
-!KETL/AROH=0.0
+!PAN/WR_NH3=0.0
!
-!KETL/AROL=0.0
+!PAN/WR_OH=0.0
!
-!KETL/AROO=0.0
+!PAN/WR_HO2=0.0
!
-!KETL/ARAL=0.0
+!PAN/WR_CO2=0.0
!
-!KETL/ARAC=0.0
+!PAN/WR_SO2=0.0
!
-!KETL/PAH=0.0
+!PAN/WR_SULF=0.0
!
-!KETL/HCHO=0.0
+!PAN/WR_HCHO=0.0
!
-!KETL/ALD2=0.0
+!PAN/WR_ORA1=0.0
!
-!KETL/KETL=-K062*<OH>-K063
- PJAC(:,30,30)=-TPK%K062(:)*PCONC(:,15)-TPK%K063(:)
+!PAN/WR_ORA2=0.0
!
-!KETL/KETH=0.0
+!PAN/WR_MO2=0.0
!
-!KETL/MEOH=0.0
+!PAN/WR_OP1=0.0
!
-!KETL/ETOH=0.0
+!PAN/WR_ASO3=0.0
!
-!KETL/ALCH=0.0
+!PAN/WR_ASO4=0.0
!
-!KETL/ISOP=0.0
+!PAN/WR_ASO5=0.0
!
-!KETL/BIOL=0.0
+!PAN/WR_AHSO5=0.0
!
-!KETL/BIOH=0.0
+!PAN/WR_AHMS=0.0
!
-!KETL/MTBE=0.0
+!OP1/O3=0.0
!
-!KETL/MVK=+0.85*K283*<O>
- PJAC(:,30,39)=+0.85*TPK%K283(:)*TPK%O(:)
+!OP1/H2O2=0.0
!
-!KETL/MCR=0.0
+!OP1/NO=0.0
!
-!KETL/MGLY=0.0
+!OP1/NO2=0.0
!
-!KETL/GLY=0.0
+!OP1/NO3=0.0
!
-!KETL/ORA1=0.0
+!OP1/N2O5=0.0
!
-!KETL/ORA2=0.0
+!OP1/HONO=0.0
!
-!KETL/ACID=0.0
+!OP1/HNO3=0.0
!
-!KETL/UR28=0.0
+!OP1/HNO4=0.0
!
-!KETL/UR21=0.0
+!OP1/NH3=0.0
!
-!KETL/URG2=0.0
+!OP1/SO2=0.0
!
-!KETL/UR26=0.0
+!OP1/SULF=0.0
!
-!KETL/RPG2=0.0
+!OP1/CO=0.0
!
-!KETL/RP18=0.0
+!OP1/OH=-K068*<OP1>
+ PJAC(:,28,14)=-TPK%K068(:)*PCONC(:,28)
!
-!KETL/RPG3=0.0
+!OP1/HO2=+K097*<MO2>
+ PJAC(:,28,15)=+TPK%K097(:)*PCONC(:,32)
!
-!KETL/URG4=0.0
+!OP1/CH4=0.0
!
-!KETL/UR8=0.0
+!OP1/ETH=0.0
!
-!KETL/UR17=0.0
+!OP1/ALKA=0.0
!
-!KETL/UR7=0.0
+!OP1/ALKE=0.0
!
-!KETL/RPR3=0.0
+!OP1/BIO=0.0
!
-!KETL/URG6=0.0
+!OP1/ARO=0.0
!
-!KETL/UR22=0.0
+!OP1/HCHO=0.0
!
-!KETL/URG7=0.0
+!OP1/ALD=0.0
!
-!KETL/RPR4=0.0
+!OP1/KET=0.0
!
-!KETL/RPR7=0.0
+!OP1/CARBO=0.0
!
-!KETL/RPG7=0.0
+!OP1/ONIT=0.0
!
-!KETL/URG8=0.0
+!OP1/PAN=0.0
!
-!KETL/UR19=0.0
+!OP1/OP1=-K013-K068*<OH>-KTC20-KTR20
+ PJAC(:,28,28)=-TPK%K013(:)-TPK%K068(:)*PCONC(:,14)-TPK%KTC20(:)-TPK%KTR20(:)
!
-!KETL/URG9=0.0
+!OP1/OP2=0.0
!
-!KETL/AP7=0.0
+!OP1/ORA1=0.0
!
-!KETL/URG10=0.0
+!OP1/ORA2=0.0
!
-!KETL/RPR1=0.0
+!OP1/MO2=+K097*<HO2>
+ PJAC(:,28,32)=+TPK%K097(:)*PCONC(:,15)
!
-!KETL/RPR5=0.0
+!OP1/ALKAP=0.0
!
-!KETL/RPR8=0.0
+!OP1/ALKEP=0.0
!
-!KETL/RP10=0.0
+!OP1/BIOP=0.0
!
-!KETL/RP11=0.0
+!OP1/PHO=0.0
!
-!KETL/RP16=0.0
+!OP1/ADD=0.0
!
-!KETL/RPRL=0.0
+!OP1/AROP=0.0
!
-!KETL/APAN=0.0
+!OP1/CARBOP=0.0
!
-!KETL/PAN1=0.0
+!OP1/OLN=0.0
!
-!KETL/PAN2=0.0
+!OP1/XO2=0.0
!
-!KETL/PAN3=0.0
+!OP1/WC_O3=0.0
!
-!KETL/PAN4=0.0
+!OP1/WC_H2O2=0.0
!
-!KETL/PAN6=0.0
+!OP1/WC_NO=0.0
!
-!KETL/PAN7=0.0
+!OP1/WC_NO2=0.0
!
-!KETL/PAN8=0.0
+!OP1/WC_NO3=0.0
!
-!KETL/PN10=0.0
+!OP1/WC_N2O5=0.0
!
-!KETL/RO2T=+TPK%CF15*K172*<RO215>
- PJAC(:,30,85)=+TPK%CF15*TPK%K172(:)*TPK%RO215(:)
+!OP1/WC_HONO=0.0
!
-!KETL/RO21=0.0
+!OP1/WC_HNO3=0.0
!
-!KETL/RO25=0.0
+!OP1/WC_HNO4=0.0
!
-RETURN
-END SUBROUTINE SUBJ5
+!OP1/WC_NH3=0.0
!
-SUBROUTINE SUBJ6
+!OP1/WC_OH=0.0
!
-!Indices 31 a 35
+!OP1/WC_HO2=0.0
!
+!OP1/WC_CO2=0.0
!
-!KETH/NO=0.0
+!OP1/WC_SO2=0.0
!
-!KETH/NO2=0.0
+!OP1/WC_SULF=0.0
!
-!KETH/O3=0.0
+!OP1/WC_HCHO=0.0
!
-!KETH/HONO=0.0
+!OP1/WC_ORA1=0.0
!
-!KETH/HNO3=0.0
+!OP1/WC_ORA2=0.0
!
-!KETH/HNO4=0.0
+!OP1/WC_MO2=0.0
!
-!KETH/N2O5=0.0
+!OP1/WC_OP1=+KTC40
+ PJAC(:,28,61)=+TPK%KTC40(:)
!
-!KETH/NO3=0.0
+!OP1/WC_ASO3=0.0
!
-!KETH/NH3=0.0
+!OP1/WC_ASO4=0.0
!
-!KETH/HO2=0.0
+!OP1/WC_ASO5=0.0
!
-!KETH/CO=0.0
+!OP1/WC_AHSO5=0.0
!
-!KETH/H2O2=0.0
+!OP1/WC_AHMS=0.0
!
-!KETH/SO2=0.0
+!OP1/WR_O3=0.0
!
-!KETH/H2SO4=0.0
+!OP1/WR_H2O2=0.0
!
-!KETH/OH=-K070*<KETH>
- PJAC(:,31,15)=-TPK%K070(:)*PCONC(:,31)
+!OP1/WR_NO=0.0
!
-!KETH/ETHE=0.0
+!OP1/WR_NO2=0.0
!
-!KETH/OLEL=0.0
+!OP1/WR_NO3=0.0
!
-!KETH/OLEH=0.0
+!OP1/WR_N2O5=0.0
!
-!KETH/ALKL=0.0
+!OP1/WR_HONO=0.0
!
-!KETH/ALKM=0.0
+!OP1/WR_HNO3=0.0
!
-!KETH/ALKH=0.0
+!OP1/WR_HNO4=0.0
!
-!KETH/AROH=0.0
+!OP1/WR_NH3=0.0
!
-!KETH/AROL=0.0
+!OP1/WR_OH=0.0
!
-!KETH/AROO=0.0
+!OP1/WR_HO2=0.0
!
-!KETH/ARAL=0.0
+!OP1/WR_CO2=0.0
!
-!KETH/ARAC=0.0
+!OP1/WR_SO2=0.0
!
-!KETH/PAH=0.0
+!OP1/WR_SULF=0.0
!
-!KETH/HCHO=0.0
+!OP1/WR_HCHO=0.0
!
-!KETH/ALD2=0.0
+!OP1/WR_ORA1=0.0
!
-!KETH/KETL=0.0
+!OP1/WR_ORA2=0.0
!
-!KETH/KETH=-K070*<OH>-K071
- PJAC(:,31,31)=-TPK%K070(:)*PCONC(:,15)-TPK%K071(:)
+!OP1/WR_MO2=0.0
!
-!KETH/MEOH=0.0
+!OP1/WR_OP1=+KTR40
+ PJAC(:,28,86)=+TPK%KTR40(:)
!
-!KETH/ETOH=0.0
+!OP1/WR_ASO3=0.0
!
-!KETH/ALCH=0.0
+!OP1/WR_ASO4=0.0
!
-!KETH/ISOP=0.0
+!OP1/WR_ASO5=0.0
!
-!KETH/BIOL=0.0
+!OP1/WR_AHSO5=0.0
!
-!KETH/BIOH=0.0
+!OP1/WR_AHMS=0.0
!
-!KETH/MTBE=0.0
+!OP2/O3=+0.10149*K081*<CARBO>
+ PJAC(:,29,1)=+0.10149*TPK%K081(:)*PCONC(:,25)
!
-!KETH/MVK=0.0
+!OP2/H2O2=0.0
!
-!KETH/MCR=0.0
+!OP2/NO=0.0
!
-!KETH/MGLY=0.0
+!OP2/NO2=0.0
!
-!KETH/GLY=0.0
+!OP2/NO3=0.0
!
-!KETH/ORA1=0.0
+!OP2/N2O5=0.0
!
-!KETH/ORA2=0.0
+!OP2/HONO=0.0
!
-!KETH/ACID=0.0
+!OP2/HNO3=0.0
!
-!KETH/UR28=0.0
+!OP2/HNO4=0.0
!
-!KETH/UR21=0.0
+!OP2/NH3=0.0
!
-!KETH/URG2=0.0
+!OP2/SO2=0.0
!
-!KETH/UR26=0.0
+!OP2/SULF=0.0
!
-!KETH/RPG2=0.0
+!OP2/CO=0.0
!
-!KETH/RP18=0.0
+!OP2/OH=-K069*<OP2>
+ PJAC(:,29,14)=-TPK%K069(:)*PCONC(:,29)
!
-!KETH/RPG3=0.0
+!OP2/HO2=+1.00524*K098*<ALKAP>+1.00524*K099*<ALKEP>+1.00524*K0100*<BIOP>+1.0052
+!4*K0101*<AROP>+0.80904*K0102*<CARBOP>+1.00524*K126*<XO2>
+ PJAC(:,29,15)=+1.00524*TPK%K098(:)*PCONC(:,33)+1.00524*TPK%K099(:)*PCONC(:,34)&
+&+1.00524*TPK%K0100(:)*PCONC(:,35)+1.00524*TPK%K0101(:)*PCONC(:,38)+0.80904*TPK&
+&%K0102(:)*PCONC(:,39)+1.00524*TPK%K126(:)*PCONC(:,41)
!
-!KETH/URG4=0.0
+!OP2/CH4=0.0
!
-!KETH/UR8=0.0
+!OP2/ETH=0.0
!
-!KETH/UR17=0.0
+!OP2/ALKA=0.0
!
-!KETH/UR7=0.0
+!OP2/ALKE=0.0
!
-!KETH/RPR3=0.0
+!OP2/BIO=0.0
!
-!KETH/URG6=0.0
+!OP2/ARO=0.0
!
-!KETH/UR22=0.0
+!OP2/HCHO=0.0
!
-!KETH/URG7=0.0
+!OP2/ALD=0.0
!
-!KETH/RPR4=0.0
+!OP2/KET=0.0
!
-!KETH/RPR7=0.0
+!OP2/CARBO=+0.10149*K081*<O3>
+ PJAC(:,29,25)=+0.10149*TPK%K081(:)*PCONC(:,1)
!
-!KETH/RPG7=0.0
+!OP2/ONIT=0.0
!
-!KETH/URG8=0.0
+!OP2/PAN=0.0
!
-!KETH/UR19=0.0
+!OP2/OP1=0.0
!
-!KETH/URG9=0.0
+!OP2/OP2=-K014-K069*<OH>
+ PJAC(:,29,29)=-TPK%K014(:)-TPK%K069(:)*PCONC(:,14)
!
-!KETH/AP7=0.0
+!OP2/ORA1=0.0
!
-!KETH/URG10=0.0
+!OP2/ORA2=0.0
!
-!KETH/RPR1=0.0
+!OP2/MO2=0.0
!
-!KETH/RPR5=0.0
+!OP2/ALKAP=+1.00524*K098*<HO2>
+ PJAC(:,29,33)=+1.00524*TPK%K098(:)*PCONC(:,15)
!
-!KETH/RPR8=0.0
+!OP2/ALKEP=+1.00524*K099*<HO2>
+ PJAC(:,29,34)=+1.00524*TPK%K099(:)*PCONC(:,15)
!
-!KETH/RP10=0.0
+!OP2/BIOP=+1.00524*K0100*<HO2>
+ PJAC(:,29,35)=+1.00524*TPK%K0100(:)*PCONC(:,15)
!
-!KETH/RP11=0.0
+!OP2/PHO=0.0
!
-!KETH/RP16=0.0
+!OP2/ADD=0.0
!
-!KETH/RPRL=0.0
+!OP2/AROP=+1.00524*K0101*<HO2>
+ PJAC(:,29,38)=+1.00524*TPK%K0101(:)*PCONC(:,15)
!
-!KETH/APAN=0.0
+!OP2/CARBOP=+0.80904*K0102*<HO2>
+ PJAC(:,29,39)=+0.80904*TPK%K0102(:)*PCONC(:,15)
!
-!KETH/PAN1=0.0
+!OP2/OLN=0.0
!
-!KETH/PAN2=0.0
+!OP2/XO2=+1.00524*K126*<HO2>
+ PJAC(:,29,41)=+1.00524*TPK%K126(:)*PCONC(:,15)
!
-!KETH/PAN3=0.0
+!OP2/WC_O3=0.0
!
-!KETH/PAN4=0.0
+!OP2/WC_H2O2=0.0
!
-!KETH/PAN6=0.0
+!OP2/WC_NO=0.0
!
-!KETH/PAN7=0.0
+!OP2/WC_NO2=0.0
!
-!KETH/PAN8=0.0
+!OP2/WC_NO3=0.0
!
-!KETH/PN10=0.0
+!OP2/WC_N2O5=0.0
!
-!KETH/RO2T=0.0
+!OP2/WC_HONO=0.0
!
-!KETH/RO21=0.0
+!OP2/WC_HNO3=0.0
!
-!KETH/RO25=0.0
+!OP2/WC_HNO4=0.0
!
-!MEOH/NO=0.0
+!OP2/WC_NH3=0.0
!
-!MEOH/NO2=0.0
+!OP2/WC_OH=0.0
!
-!MEOH/O3=0.0
+!OP2/WC_HO2=0.0
!
-!MEOH/HONO=0.0
+!OP2/WC_CO2=0.0
!
-!MEOH/HNO3=0.0
+!OP2/WC_SO2=0.0
!
-!MEOH/HNO4=0.0
+!OP2/WC_SULF=0.0
!
-!MEOH/N2O5=0.0
+!OP2/WC_HCHO=0.0
!
-!MEOH/NO3=0.0
+!OP2/WC_ORA1=0.0
!
-!MEOH/NH3=0.0
+!OP2/WC_ORA2=0.0
!
-!MEOH/HO2=0.0
+!OP2/WC_MO2=0.0
!
-!MEOH/CO=0.0
+!OP2/WC_OP1=0.0
!
-!MEOH/H2O2=0.0
+!OP2/WC_ASO3=0.0
!
-!MEOH/SO2=0.0
+!OP2/WC_ASO4=0.0
!
-!MEOH/H2SO4=0.0
+!OP2/WC_ASO5=0.0
!
-!MEOH/OH=-K048*<MEOH>
- PJAC(:,32,15)=-TPK%K048(:)*PCONC(:,32)
+!OP2/WC_AHSO5=0.0
!
-!MEOH/ETHE=0.0
+!OP2/WC_AHMS=0.0
!
-!MEOH/OLEL=0.0
+!OP2/WR_O3=0.0
!
-!MEOH/OLEH=0.0
+!OP2/WR_H2O2=0.0
!
-!MEOH/ALKL=0.0
+!OP2/WR_NO=0.0
!
-!MEOH/ALKM=0.0
+!OP2/WR_NO2=0.0
!
-!MEOH/ALKH=0.0
+!OP2/WR_NO3=0.0
!
-!MEOH/AROH=0.0
+!OP2/WR_N2O5=0.0
!
-!MEOH/AROL=0.0
+!OP2/WR_HONO=0.0
!
-!MEOH/AROO=0.0
+!OP2/WR_HNO3=0.0
!
-!MEOH/ARAL=0.0
+!OP2/WR_HNO4=0.0
!
-!MEOH/ARAC=0.0
+!OP2/WR_NH3=0.0
!
-!MEOH/PAH=0.0
+!OP2/WR_OH=0.0
!
-!MEOH/HCHO=0.0
+!OP2/WR_HO2=0.0
!
-!MEOH/ALD2=0.0
+!OP2/WR_CO2=0.0
!
-!MEOH/KETL=0.0
+!OP2/WR_SO2=0.0
!
-!MEOH/KETH=0.0
+!OP2/WR_SULF=0.0
!
-!MEOH/MEOH=-K048*<OH>
- PJAC(:,32,32)=-TPK%K048(:)*PCONC(:,15)
+!OP2/WR_HCHO=0.0
!
-!MEOH/ETOH=0.0
+!OP2/WR_ORA1=0.0
!
-!MEOH/ALCH=0.0
+!OP2/WR_ORA2=0.0
!
-!MEOH/ISOP=0.0
+!OP2/WR_MO2=0.0
!
-!MEOH/BIOL=0.0
+!OP2/WR_OP1=0.0
!
-!MEOH/BIOH=0.0
+!OP2/WR_ASO3=0.0
!
-!MEOH/MTBE=0.0
+!OP2/WR_ASO4=0.0
!
-!MEOH/MVK=0.0
+!OP2/WR_ASO5=0.0
!
-!MEOH/MCR=0.0
+!OP2/WR_AHSO5=0.0
!
-!MEOH/MGLY=0.0
+!OP2/WR_AHMS=0.0
!
-!MEOH/GLY=0.0
+!ORA1/O3=+0.15343*K079*<ALKE>+0.15000*K080*<BIO>+0.10788*K081*<CARBO>+0.11*K082
+!*<PAN>
+ PJAC(:,30,1)=+0.15343*TPK%K079(:)*PCONC(:,19)+0.15000*TPK%K080(:)*PCONC(:,20)+&
+&0.10788*TPK%K081(:)*PCONC(:,25)+0.11*TPK%K082(:)*PCONC(:,27)
!
-!MEOH/ORA1=0.0
-!
-!MEOH/ORA2=0.0
-!
-!MEOH/ACID=0.0
-!
-!MEOH/UR28=0.0
-!
-!MEOH/UR21=0.0
-!
-!MEOH/URG2=0.0
-!
-!MEOH/UR26=0.0
-!
-!MEOH/RPG2=0.0
-!
-!MEOH/RP18=0.0
-!
-!MEOH/RPG3=0.0
-!
-!MEOH/URG4=0.0
-!
-!MEOH/UR8=0.0
-!
-!MEOH/UR17=0.0
-!
-!MEOH/UR7=0.0
-!
-!MEOH/RPR3=0.0
-!
-!MEOH/URG6=0.0
-!
-!MEOH/UR22=0.0
-!
-!MEOH/URG7=0.0
-!
-!MEOH/RPR4=0.0
-!
-!MEOH/RPR7=0.0
-!
-!MEOH/RPG7=0.0
-!
-!MEOH/URG8=0.0
-!
-!MEOH/UR19=0.0
-!
-!MEOH/URG9=0.0
-!
-!MEOH/AP7=0.0
-!
-!MEOH/URG10=0.0
-!
-!MEOH/RPR1=0.0
-!
-!MEOH/RPR5=0.0
-!
-!MEOH/RPR8=0.0
-!
-!MEOH/RP10=0.0
-!
-!MEOH/RP11=0.0
-!
-!MEOH/RP16=0.0
-!
-!MEOH/RPRL=0.0
-!
-!MEOH/APAN=0.0
-!
-!MEOH/PAN1=0.0
-!
-!MEOH/PAN2=0.0
-!
-!MEOH/PAN3=0.0
-!
-!MEOH/PAN4=0.0
-!
-!MEOH/PAN6=0.0
-!
-!MEOH/PAN7=0.0
-!
-!MEOH/PAN8=0.0
-!
-!MEOH/PN10=0.0
-!
-!MEOH/RO2T=0.0
-!
-!MEOH/RO21=0.0
-!
-!MEOH/RO25=0.0
-!
-!ETOH/NO=0.0
-!
-!ETOH/NO2=0.0
-!
-!ETOH/O3=0.0
-!
-!ETOH/HONO=0.0
-!
-!ETOH/HNO3=0.0
-!
-!ETOH/HNO4=0.0
-!
-!ETOH/N2O5=0.0
-!
-!ETOH/NO3=0.0
-!
-!ETOH/NH3=0.0
-!
-!ETOH/HO2=0.0
-!
-!ETOH/CO=0.0
-!
-!ETOH/H2O2=0.0
-!
-!ETOH/SO2=0.0
-!
-!ETOH/H2SO4=0.0
-!
-!ETOH/OH=-K053*<ETOH>
- PJAC(:,33,15)=-TPK%K053(:)*PCONC(:,33)
-!
-!ETOH/ETHE=0.0
-!
-!ETOH/OLEL=0.0
-!
-!ETOH/OLEH=0.0
-!
-!ETOH/ALKL=0.0
-!
-!ETOH/ALKM=0.0
-!
-!ETOH/ALKH=0.0
-!
-!ETOH/AROH=0.0
-!
-!ETOH/AROL=0.0
-!
-!ETOH/AROO=0.0
-!
-!ETOH/ARAL=0.0
-!
-!ETOH/ARAC=0.0
-!
-!ETOH/PAH=0.0
-!
-!ETOH/HCHO=0.0
-!
-!ETOH/ALD2=0.0
-!
-!ETOH/KETL=0.0
-!
-!ETOH/KETH=0.0
-!
-!ETOH/MEOH=0.0
-!
-!ETOH/ETOH=-K053*<OH>
- PJAC(:,33,33)=-TPK%K053(:)*PCONC(:,15)
-!
-!ETOH/ALCH=0.0
-!
-!ETOH/ISOP=0.0
-!
-!ETOH/BIOL=0.0
-!
-!ETOH/BIOH=0.0
-!
-!ETOH/MTBE=0.0
-!
-!ETOH/MVK=0.0
-!
-!ETOH/MCR=0.0
-!
-!ETOH/MGLY=0.0
-!
-!ETOH/GLY=0.0
-!
-!ETOH/ORA1=0.0
-!
-!ETOH/ORA2=0.0
-!
-!ETOH/ACID=0.0
-!
-!ETOH/UR28=0.0
-!
-!ETOH/UR21=0.0
-!
-!ETOH/URG2=0.0
-!
-!ETOH/UR26=0.0
-!
-!ETOH/RPG2=0.0
-!
-!ETOH/RP18=0.0
-!
-!ETOH/RPG3=0.0
-!
-!ETOH/URG4=0.0
-!
-!ETOH/UR8=0.0
-!
-!ETOH/UR17=0.0
+!ORA1/H2O2=0.0
!
-!ETOH/UR7=0.0
+!ORA1/NO=0.0
!
-!ETOH/RPR3=0.0
+!ORA1/NO2=0.0
!
-!ETOH/URG6=0.0
+!ORA1/NO3=0.0
!
-!ETOH/UR22=0.0
+!ORA1/N2O5=0.0
!
-!ETOH/URG7=0.0
+!ORA1/HONO=0.0
!
-!ETOH/RPR4=0.0
+!ORA1/HNO3=0.0
!
-!ETOH/RPR7=0.0
+!ORA1/HNO4=0.0
!
-!ETOH/RPG7=0.0
+!ORA1/NH3=0.0
!
-!ETOH/URG8=0.0
+!ORA1/SO2=0.0
!
-!ETOH/UR19=0.0
+!ORA1/SULF=0.0
!
-!ETOH/URG9=0.0
+!ORA1/CO=0.0
!
-!ETOH/AP7=0.0
+!ORA1/OH=+0.00878*K058*<ALKA>-K066*<ORA1>
+ PJAC(:,30,14)=+0.00878*TPK%K058(:)*PCONC(:,18)-TPK%K066(:)*PCONC(:,30)
!
-!ETOH/URG10=0.0
+!ORA1/HO2=0.0
!
-!ETOH/RPR1=0.0
+!ORA1/CH4=0.0
!
-!ETOH/RPR5=0.0
+!ORA1/ETH=0.0
!
-!ETOH/RPR8=0.0
+!ORA1/ALKA=+0.00878*K058*<OH>
+ PJAC(:,30,18)=+0.00878*TPK%K058(:)*PCONC(:,14)
!
-!ETOH/RP10=0.0
+!ORA1/ALKE=+0.15343*K079*<O3>
+ PJAC(:,30,19)=+0.15343*TPK%K079(:)*PCONC(:,1)
!
-!ETOH/RP11=0.0
+!ORA1/BIO=+0.15000*K080*<O3>
+ PJAC(:,30,20)=+0.15000*TPK%K080(:)*PCONC(:,1)
!
-!ETOH/RP16=0.0
+!ORA1/ARO=0.0
!
-!ETOH/RPRL=0.0
+!ORA1/HCHO=0.0
!
-!ETOH/APAN=0.0
+!ORA1/ALD=0.0
!
-!ETOH/PAN1=0.0
+!ORA1/KET=0.0
!
-!ETOH/PAN2=0.0
+!ORA1/CARBO=+0.10788*K081*<O3>
+ PJAC(:,30,25)=+0.10788*TPK%K081(:)*PCONC(:,1)
!
-!ETOH/PAN3=0.0
+!ORA1/ONIT=0.0
!
-!ETOH/PAN4=0.0
+!ORA1/PAN=+0.11*K082*<O3>
+ PJAC(:,30,27)=+0.11*TPK%K082(:)*PCONC(:,1)
!
-!ETOH/PAN6=0.0
+!ORA1/OP1=0.0
!
-!ETOH/PAN7=0.0
+!ORA1/OP2=0.0
!
-!ETOH/PAN8=0.0
+!ORA1/ORA1=-K066*<OH>-KTC17-KTR17
+ PJAC(:,30,30)=-TPK%K066(:)*PCONC(:,14)-TPK%KTC17(:)-TPK%KTR17(:)
!
-!ETOH/PN10=0.0
+!ORA1/ORA2=0.0
!
-!ETOH/RO2T=0.0
+!ORA1/MO2=0.0
!
-!ETOH/RO21=0.0
+!ORA1/ALKAP=0.0
!
-!ETOH/RO25=0.0
+!ORA1/ALKEP=0.0
!
-!ALCH/NO=0.0
+!ORA1/BIOP=0.0
!
-!ALCH/NO2=0.0
+!ORA1/PHO=0.0
!
-!ALCH/O3=0.0
+!ORA1/ADD=0.0
!
-!ALCH/HONO=0.0
+!ORA1/AROP=0.0
!
-!ALCH/HNO3=0.0
+!ORA1/CARBOP=0.0
!
-!ALCH/HNO4=0.0
+!ORA1/OLN=0.0
!
-!ALCH/N2O5=0.0
+!ORA1/XO2=0.0
!
-!ALCH/NO3=0.0
+!ORA1/WC_O3=0.0
!
-!ALCH/NH3=0.0
+!ORA1/WC_H2O2=0.0
!
-!ALCH/HO2=0.0
+!ORA1/WC_NO=0.0
!
-!ALCH/CO=0.0
+!ORA1/WC_NO2=0.0
!
-!ALCH/H2O2=0.0
+!ORA1/WC_NO3=0.0
!
-!ALCH/SO2=0.0
+!ORA1/WC_N2O5=0.0
!
-!ALCH/H2SO4=0.0
+!ORA1/WC_HONO=0.0
!
-!ALCH/OH=-K069*<ALCH>
- PJAC(:,34,15)=-TPK%K069(:)*PCONC(:,34)
+!ORA1/WC_HNO3=0.0
!
-!ALCH/ETHE=0.0
+!ORA1/WC_HNO4=0.0
!
-!ALCH/OLEL=0.0
+!ORA1/WC_NH3=0.0
!
-!ALCH/OLEH=0.0
+!ORA1/WC_OH=0.0
!
-!ALCH/ALKL=0.0
+!ORA1/WC_HO2=0.0
!
-!ALCH/ALKM=0.0
+!ORA1/WC_CO2=0.0
!
-!ALCH/ALKH=0.0
+!ORA1/WC_SO2=0.0
!
-!ALCH/AROH=0.0
+!ORA1/WC_SULF=0.0
!
-!ALCH/AROL=0.0
+!ORA1/WC_HCHO=0.0
!
-!ALCH/AROO=0.0
+!ORA1/WC_ORA1=+KTC37
+ PJAC(:,30,58)=+TPK%KTC37(:)
!
-!ALCH/ARAL=0.0
+!ORA1/WC_ORA2=0.0
!
-!ALCH/ARAC=0.0
+!ORA1/WC_MO2=0.0
!
-!ALCH/PAH=0.0
+!ORA1/WC_OP1=0.0
!
-!ALCH/HCHO=0.0
+!ORA1/WC_ASO3=0.0
!
-!ALCH/ALD2=0.0
+!ORA1/WC_ASO4=0.0
!
-!ALCH/KETL=0.0
+!ORA1/WC_ASO5=0.0
!
-!ALCH/KETH=0.0
+!ORA1/WC_AHSO5=0.0
!
-!ALCH/MEOH=0.0
+!ORA1/WC_AHMS=0.0
!
-!ALCH/ETOH=0.0
+!ORA1/WR_O3=0.0
!
-!ALCH/ALCH=-K069*<OH>
- PJAC(:,34,34)=-TPK%K069(:)*PCONC(:,15)
+!ORA1/WR_H2O2=0.0
!
-!ALCH/ISOP=0.0
+!ORA1/WR_NO=0.0
!
-!ALCH/BIOL=0.0
+!ORA1/WR_NO2=0.0
!
-!ALCH/BIOH=0.0
+!ORA1/WR_NO3=0.0
!
-!ALCH/MTBE=0.0
+!ORA1/WR_N2O5=0.0
!
-!ALCH/MVK=0.0
+!ORA1/WR_HONO=0.0
!
-!ALCH/MCR=0.0
+!ORA1/WR_HNO3=0.0
!
-!ALCH/MGLY=0.0
+!ORA1/WR_HNO4=0.0
!
-!ALCH/GLY=0.0
+!ORA1/WR_NH3=0.0
!
-!ALCH/ORA1=0.0
+!ORA1/WR_OH=0.0
!
-!ALCH/ORA2=0.0
+!ORA1/WR_HO2=0.0
!
-!ALCH/ACID=0.0
+!ORA1/WR_CO2=0.0
!
-!ALCH/UR28=0.0
+!ORA1/WR_SO2=0.0
!
-!ALCH/UR21=0.0
+!ORA1/WR_SULF=0.0
!
-!ALCH/URG2=0.0
+!ORA1/WR_HCHO=0.0
!
-!ALCH/UR26=0.0
+!ORA1/WR_ORA1=+KTR37
+ PJAC(:,30,83)=+TPK%KTR37(:)
!
-!ALCH/RPG2=0.0
+!ORA1/WR_ORA2=0.0
!
-!ALCH/RP18=0.0
+!ORA1/WR_MO2=0.0
!
-!ALCH/RPG3=0.0
+!ORA1/WR_OP1=0.0
!
-!ALCH/URG4=0.0
+!ORA1/WR_ASO3=0.0
!
-!ALCH/UR8=0.0
+!ORA1/WR_ASO4=0.0
!
-!ALCH/UR17=0.0
+!ORA1/WR_ASO5=0.0
!
-!ALCH/UR7=0.0
+!ORA1/WR_AHSO5=0.0
!
-!ALCH/RPR3=0.0
+!ORA1/WR_AHMS=0.0
!
-!ALCH/URG6=0.0
+RETURN
+END SUBROUTINE SUBJ5
!
-!ALCH/UR22=0.0
+SUBROUTINE SUBJ6
!
-!ALCH/URG7=0.0
+!Indices 31 a 35
!
-!ALCH/RPR4=0.0
!
-!ALCH/RPR7=0.0
+!ORA2/O3=+0.08143*K079*<ALKE>+0.00000*K080*<BIO>+0.20595*K081*<CARBO>
+ PJAC(:,31,1)=+0.08143*TPK%K079(:)*PCONC(:,19)+0.00000*TPK%K080(:)*PCONC(:,20)+&
+&0.20595*TPK%K081(:)*PCONC(:,25)
!
-!ALCH/RPG7=0.0
+!ORA2/H2O2=0.0
!
-!ALCH/URG8=0.0
+!ORA2/NO=0.0
!
-!ALCH/UR19=0.0
+!ORA2/NO2=0.0
!
-!ALCH/URG9=0.0
+!ORA2/NO3=0.0
!
-!ALCH/AP7=0.0
+!ORA2/N2O5=0.0
!
-!ALCH/URG10=0.0
+!ORA2/HONO=0.0
!
-!ALCH/RPR1=0.0
+!ORA2/HNO3=0.0
!
-!ALCH/RPR5=0.0
+!ORA2/HNO4=0.0
!
-!ALCH/RPR8=0.0
+!ORA2/NH3=0.0
!
-!ALCH/RP10=0.0
+!ORA2/SO2=0.0
!
-!ALCH/RP11=0.0
+!ORA2/SULF=0.0
!
-!ALCH/RP16=0.0
+!ORA2/CO=0.0
!
-!ALCH/RPRL=0.0
+!ORA2/OH=-K067*<ORA2>
+ PJAC(:,31,14)=-TPK%K067(:)*PCONC(:,31)
!
-!ALCH/APAN=0.0
+!ORA2/HO2=+0.17307*K0102*<CARBOP>
+ PJAC(:,31,15)=+0.17307*TPK%K0102(:)*PCONC(:,39)
!
-!ALCH/PAN1=0.0
+!ORA2/CH4=0.0
!
-!ALCH/PAN2=0.0
+!ORA2/ETH=0.0
!
-!ALCH/PAN3=0.0
+!ORA2/ALKA=0.0
!
-!ALCH/PAN4=0.0
+!ORA2/ALKE=+0.08143*K079*<O3>
+ PJAC(:,31,19)=+0.08143*TPK%K079(:)*PCONC(:,1)
!
-!ALCH/PAN6=0.0
+!ORA2/BIO=+0.00000*K080*<O3>
+ PJAC(:,31,20)=+0.00000*TPK%K080(:)*PCONC(:,1)
!
-!ALCH/PAN7=0.0
+!ORA2/ARO=0.0
!
-!ALCH/PAN8=0.0
+!ORA2/HCHO=0.0
!
-!ALCH/PN10=0.0
+!ORA2/ALD=0.0
!
-!ALCH/RO2T=0.0
+!ORA2/KET=0.0
!
-!ALCH/RO21=0.0
+!ORA2/CARBO=+0.20595*K081*<O3>
+ PJAC(:,31,25)=+0.20595*TPK%K081(:)*PCONC(:,1)
!
-!ALCH/RO25=0.0
+!ORA2/ONIT=0.0
!
-!ISOP/NO=0.0
+!ORA2/PAN=0.0
!
-!ISOP/NO2=0.0
+!ORA2/OP1=0.0
!
-!ISOP/O3=-K066*<ISOP>
- PJAC(:,35,3)=-TPK%K066(:)*PCONC(:,35)
+!ORA2/OP2=0.0
!
-!ISOP/HONO=0.0
+!ORA2/ORA1=0.0
!
-!ISOP/HNO3=0.0
+!ORA2/ORA2=-K067*<OH>-KTC18-KTR18
+ PJAC(:,31,31)=-TPK%K067(:)*PCONC(:,14)-TPK%KTC18(:)-TPK%KTR18(:)
!
-!ISOP/HNO4=0.0
+!ORA2/MO2=+0.13684*K109*<CARBOP>
+ PJAC(:,31,32)=+0.13684*TPK%K109(:)*PCONC(:,39)
!
-!ISOP/N2O5=0.0
+!ORA2/ALKAP=+0.49810*K111*<CARBOP>
+ PJAC(:,31,33)=+0.49810*TPK%K111(:)*PCONC(:,39)
!
-!ISOP/NO3=-K065*<ISOP>
- PJAC(:,35,8)=-TPK%K065(:)*PCONC(:,35)
+!ORA2/ALKEP=+0.49922*K112*<CARBOP>
+ PJAC(:,31,34)=+0.49922*TPK%K112(:)*PCONC(:,39)
!
-!ISOP/NH3=0.0
+!ORA2/BIOP=+0.49400*K113*<CARBOP>
+ PJAC(:,31,35)=+0.49400*TPK%K113(:)*PCONC(:,39)
!
-!ISOP/HO2=0.0
+!ORA2/PHO=0.0
!
-!ISOP/CO=0.0
+!ORA2/ADD=0.0
!
-!ISOP/H2O2=0.0
+!ORA2/AROP=0.0
!
-!ISOP/SO2=0.0
+!ORA2/CARBOP=+0.17307*K0102*<HO2>+0.13684*K109*<MO2>+0.49810*K111*<ALKAP>+0.499
+!22*K112*<ALKEP>+0.49400*K113*<BIOP>+0.09955*K115*<CARBOP>+0.09955*K115*<CARBOP
+!>+0.48963*K116*<OLN>
+ PJAC(:,31,39)=+0.17307*TPK%K0102(:)*PCONC(:,15)+0.13684*TPK%K109(:)*PCONC(:,32&
+&)+0.49810*TPK%K111(:)*PCONC(:,33)+0.49922*TPK%K112(:)*PCONC(:,34)+0.49400*TPK%&
+&K113(:)*PCONC(:,35)+0.09955*TPK%K115(:)*PCONC(:,39)+0.09955*TPK%K115(:)*PCONC(&
+&:,39)+0.48963*TPK%K116(:)*PCONC(:,40)
!
-!ISOP/H2SO4=0.0
+!ORA2/OLN=+0.48963*K116*<CARBOP>
+ PJAC(:,31,40)=+0.48963*TPK%K116(:)*PCONC(:,39)
!
-!ISOP/OH=-K064*<ISOP>
- PJAC(:,35,15)=-TPK%K064(:)*PCONC(:,35)
+!ORA2/XO2=0.0
!
-!ISOP/ETHE=0.0
+!ORA2/WC_O3=0.0
!
-!ISOP/OLEL=0.0
+!ORA2/WC_H2O2=0.0
!
-!ISOP/OLEH=0.0
+!ORA2/WC_NO=0.0
!
-!ISOP/ALKL=0.0
+!ORA2/WC_NO2=0.0
!
-!ISOP/ALKM=0.0
+!ORA2/WC_NO3=0.0
!
-!ISOP/ALKH=0.0
+!ORA2/WC_N2O5=0.0
!
-!ISOP/AROH=0.0
+!ORA2/WC_HONO=0.0
!
-!ISOP/AROL=0.0
+!ORA2/WC_HNO3=0.0
!
-!ISOP/AROO=0.0
+!ORA2/WC_HNO4=0.0
!
-!ISOP/ARAL=0.0
+!ORA2/WC_NH3=0.0
!
-!ISOP/ARAC=0.0
+!ORA2/WC_OH=0.0
!
-!ISOP/PAH=0.0
+!ORA2/WC_HO2=0.0
!
-!ISOP/HCHO=0.0
+!ORA2/WC_CO2=0.0
!
-!ISOP/ALD2=0.0
+!ORA2/WC_SO2=0.0
!
-!ISOP/KETL=0.0
+!ORA2/WC_SULF=0.0
!
-!ISOP/KETH=0.0
+!ORA2/WC_HCHO=0.0
!
-!ISOP/MEOH=0.0
+!ORA2/WC_ORA1=0.0
!
-!ISOP/ETOH=0.0
+!ORA2/WC_ORA2=+KTC38
+ PJAC(:,31,59)=+TPK%KTC38(:)
!
-!ISOP/ALCH=0.0
+!ORA2/WC_MO2=0.0
!
-!ISOP/ISOP=-K064*<OH>-K065*<NO3>-K066*<O3>-K067*<O>
- PJAC(:,35,35)=-TPK%K064(:)*PCONC(:,15)-TPK%K065(:)*PCONC(:,8)-TPK%K066(:)*PCON&
-&C(:,3)-TPK%K067(:)*TPK%O(:)
+!ORA2/WC_OP1=0.0
!
-!ISOP/BIOL=0.0
+!ORA2/WC_ASO3=0.0
!
-!ISOP/BIOH=0.0
+!ORA2/WC_ASO4=0.0
!
-!ISOP/MTBE=0.0
+!ORA2/WC_ASO5=0.0
!
-!ISOP/MVK=0.0
+!ORA2/WC_AHSO5=0.0
!
-!ISOP/MCR=0.0
+!ORA2/WC_AHMS=0.0
!
-!ISOP/MGLY=0.0
+!ORA2/WR_O3=0.0
!
-!ISOP/GLY=0.0
+!ORA2/WR_H2O2=0.0
!
-!ISOP/ORA1=0.0
+!ORA2/WR_NO=0.0
!
-!ISOP/ORA2=0.0
+!ORA2/WR_NO2=0.0
!
-!ISOP/ACID=0.0
+!ORA2/WR_NO3=0.0
!
-!ISOP/UR28=0.0
+!ORA2/WR_N2O5=0.0
!
-!ISOP/UR21=0.0
+!ORA2/WR_HONO=0.0
!
-!ISOP/URG2=0.0
+!ORA2/WR_HNO3=0.0
!
-!ISOP/UR26=0.0
+!ORA2/WR_HNO4=0.0
!
-!ISOP/RPG2=0.0
+!ORA2/WR_NH3=0.0
!
-!ISOP/RP18=0.0
+!ORA2/WR_OH=0.0
!
-!ISOP/RPG3=0.0
+!ORA2/WR_HO2=0.0
!
-!ISOP/URG4=0.0
+!ORA2/WR_CO2=0.0
!
-!ISOP/UR8=0.0
+!ORA2/WR_SO2=0.0
!
-!ISOP/UR17=0.0
+!ORA2/WR_SULF=0.0
!
-!ISOP/UR7=0.0
+!ORA2/WR_HCHO=0.0
!
-!ISOP/RPR3=0.0
+!ORA2/WR_ORA1=0.0
!
-!ISOP/URG6=0.0
+!ORA2/WR_ORA2=+KTR38
+ PJAC(:,31,84)=+TPK%KTR38(:)
!
-!ISOP/UR22=0.0
+!ORA2/WR_MO2=0.0
!
-!ISOP/URG7=0.0
+!ORA2/WR_OP1=0.0
!
-!ISOP/RPR4=0.0
+!ORA2/WR_ASO3=0.0
!
-!ISOP/RPR7=0.0
+!ORA2/WR_ASO4=0.0
!
-!ISOP/RPG7=0.0
+!ORA2/WR_ASO5=0.0
!
-!ISOP/URG8=0.0
+!ORA2/WR_AHSO5=0.0
!
-!ISOP/UR19=0.0
+!ORA2/WR_AHMS=0.0
!
-!ISOP/URG9=0.0
+!MO2/O3=+0.13966*K079*<ALKE>+0.03000*K080*<BIO>
+ PJAC(:,32,1)=+0.13966*TPK%K079(:)*PCONC(:,19)+0.03000*TPK%K080(:)*PCONC(:,20)
!
-!ISOP/AP7=0.0
+!MO2/H2O2=0.0
!
-!ISOP/URG10=0.0
+!MO2/NO=-K090*<MO2>+0.09016*K091*<ALKAP>+0.78134*K095*<CARBOP>
+ PJAC(:,32,3)=-TPK%K090(:)*PCONC(:,32)+0.09016*TPK%K091(:)*PCONC(:,33)+0.78134*&
+&TPK%K095(:)*PCONC(:,39)
!
-!ISOP/RPR1=0.0
+!MO2/NO2=0.0
!
-!ISOP/RPR5=0.0
+!MO2/NO3=-K119*<MO2>+0.09731*K120*<ALKAP>+0.91910*K124*<CARBOP>
+ PJAC(:,32,5)=-TPK%K119(:)*PCONC(:,32)+0.09731*TPK%K120(:)*PCONC(:,33)+0.91910*&
+&TPK%K124(:)*PCONC(:,39)
!
-!ISOP/RPR8=0.0
+!MO2/N2O5=0.0
!
-!ISOP/RP10=0.0
+!MO2/HONO=0.0
!
-!ISOP/RP11=0.0
+!MO2/HNO3=0.0
!
-!ISOP/RP16=0.0
+!MO2/HNO4=0.0
!
-!ISOP/RPRL=0.0
+!MO2/NH3=0.0
!
-!ISOP/APAN=0.0
+!MO2/SO2=0.0
!
-!ISOP/PAN1=0.0
+!MO2/SULF=0.0
!
-!ISOP/PAN2=0.0
+!MO2/CO=0.0
!
-!ISOP/PAN3=0.0
+!MO2/OH=+K056*<CH4>+0.65*K068*<OP1>
+ PJAC(:,32,14)=+TPK%K056(:)*PCONC(:,16)+0.65*TPK%K068(:)*PCONC(:,28)
!
-!ISOP/PAN4=0.0
+!MO2/HO2=-K097*<MO2>
+ PJAC(:,32,15)=-TPK%K097(:)*PCONC(:,32)
!
-!ISOP/PAN6=0.0
+!MO2/CH4=+K056*<OH>
+ PJAC(:,32,16)=+TPK%K056(:)*PCONC(:,14)
!
-!ISOP/PAN7=0.0
+!MO2/ETH=0.0
!
-!ISOP/PAN8=0.0
+!MO2/ALKA=0.0
!
-!ISOP/PN10=0.0
+!MO2/ALKE=+0.13966*K079*<O3>
+ PJAC(:,32,19)=+0.13966*TPK%K079(:)*PCONC(:,1)
!
-!ISOP/RO2T=0.0
+!MO2/BIO=+0.03000*K080*<O3>
+ PJAC(:,32,20)=+0.03000*TPK%K080(:)*PCONC(:,1)
!
-!ISOP/RO21=0.0
+!MO2/ARO=0.0
!
-!ISOP/RO25=0.0
+!MO2/HCHO=0.0
!
-RETURN
-END SUBROUTINE SUBJ6
+!MO2/ALD=+K012
+ PJAC(:,32,23)=+TPK%K012(:)
!
-SUBROUTINE SUBJ7
+!MO2/KET=0.0
!
-!Indices 36 a 40
+!MO2/CARBO=0.0
!
+!MO2/ONIT=0.0
!
-!BIOL/NO=0.0
+!MO2/PAN=0.0
!
-!BIOL/NO2=0.0
+!MO2/OP1=+0.65*K068*<OH>
+ PJAC(:,32,28)=+0.65*TPK%K068(:)*PCONC(:,14)
!
-!BIOL/O3=-K086*<BIOL>
- PJAC(:,36,3)=-TPK%K086(:)*PCONC(:,36)
+!MO2/OP2=+0.03795*K014
+ PJAC(:,32,29)=+0.03795*TPK%K014(:)
!
-!BIOL/HONO=0.0
+!MO2/ORA1=0.0
!
-!BIOL/HNO3=0.0
+!MO2/ORA2=0.0
!
-!BIOL/HNO4=0.0
+!MO2/MO2=-K090*<NO>-K097*<HO2>-K104*<MO2>-K104*<MO2>-K104*<MO2>-K104*<MO2>+0.01
+!390*K105*<ALKAP>-K105*<ALKAP>-K106*<ALKEP>-K107*<BIOP>-K108*<AROP>+0.56031*K10
+!9*<CARBOP>-K109*<CARBOP>-K110*<OLN>-K119*<NO3>-K127*<XO2>-KTC19-KTR19
+ PJAC(:,32,32)=-TPK%K090(:)*PCONC(:,3)-TPK%K097(:)*PCONC(:,15)-TPK%K104(:)*PCON&
+&C(:,32)-TPK%K104(:)*PCONC(:,32)-TPK%K104(:)*PCONC(:,32)-TPK%K104(:)*PCONC(:,32&
+&)+0.01390*TPK%K105(:)*PCONC(:,33)-TPK%K105(:)*PCONC(:,33)-TPK%K106(:)*PCONC(:,&
+&34)-TPK%K107(:)*PCONC(:,35)-TPK%K108(:)*PCONC(:,38)+0.56031*TPK%K109(:)*PCONC(&
+&:,39)-TPK%K109(:)*PCONC(:,39)-TPK%K110(:)*PCONC(:,40)-TPK%K119(:)*PCONC(:,5)-T&
+&PK%K127(:)*PCONC(:,41)-TPK%KTC19(:)-TPK%KTR19(:)
!
-!BIOL/N2O5=0.0
+!MO2/ALKAP=+0.09016*K091*<NO>+0.01390*K105*<MO2>-K105*<MO2>+0.51480*K111*<CARBO
+!P>+0.09731*K120*<NO3>
+ PJAC(:,32,33)=+0.09016*TPK%K091(:)*PCONC(:,3)+0.01390*TPK%K105(:)*PCONC(:,32)-&
+&TPK%K105(:)*PCONC(:,32)+0.51480*TPK%K111(:)*PCONC(:,39)+0.09731*TPK%K120(:)*PC&
+&ONC(:,5)
!
-!BIOL/NO3=-K085*<BIOL>
- PJAC(:,36,8)=-TPK%K085(:)*PCONC(:,36)
+!MO2/ALKEP=-K106*<MO2>+0.50078*K112*<CARBOP>
+ PJAC(:,32,34)=-TPK%K106(:)*PCONC(:,32)+0.50078*TPK%K112(:)*PCONC(:,39)
!
-!BIOL/NH3=0.0
+!MO2/BIOP=-K107*<MO2>+0.50600*K113*<CARBOP>
+ PJAC(:,32,35)=-TPK%K107(:)*PCONC(:,32)+0.50600*TPK%K113(:)*PCONC(:,39)
!
-!BIOL/HO2=0.0
+!MO2/PHO=0.0
!
-!BIOL/CO=0.0
+!MO2/ADD=0.0
!
-!BIOL/H2O2=0.0
+!MO2/AROP=-K108*<MO2>+K114*<CARBOP>
+ PJAC(:,32,38)=-TPK%K108(:)*PCONC(:,32)+TPK%K114(:)*PCONC(:,39)
!
-!BIOL/SO2=0.0
+!MO2/CARBOP=+0.78134*K095*<NO>+0.56031*K109*<MO2>-K109*<MO2>+0.51480*K111*<ALKA
+!P>+0.50078*K112*<ALKEP>+0.50600*K113*<BIOP>+K114*<AROP>+1.66702*K115*<CARBOP>+
+!1.66702*K115*<CARBOP>+0.51037*K116*<OLN>+0.91910*K124*<NO3>+K128*<XO2>
+ PJAC(:,32,39)=+0.78134*TPK%K095(:)*PCONC(:,3)+0.56031*TPK%K109(:)*PCONC(:,32)-&
+&TPK%K109(:)*PCONC(:,32)+0.51480*TPK%K111(:)*PCONC(:,33)+0.50078*TPK%K112(:)*PC&
+&ONC(:,34)+0.50600*TPK%K113(:)*PCONC(:,35)+TPK%K114(:)*PCONC(:,38)+1.66702*TPK%&
+&K115(:)*PCONC(:,39)+1.66702*TPK%K115(:)*PCONC(:,39)+0.51037*TPK%K116(:)*PCONC(&
+&:,40)+0.91910*TPK%K124(:)*PCONC(:,5)+TPK%K128(:)*PCONC(:,41)
!
-!BIOL/H2SO4=0.0
+!MO2/OLN=-K110*<MO2>+0.51037*K116*<CARBOP>
+ PJAC(:,32,40)=-TPK%K110(:)*PCONC(:,32)+0.51037*TPK%K116(:)*PCONC(:,39)
!
-!BIOL/OH=-K084*<BIOL>
- PJAC(:,36,15)=-TPK%K084(:)*PCONC(:,36)
+!MO2/XO2=-K127*<MO2>+K128*<CARBOP>
+ PJAC(:,32,41)=-TPK%K127(:)*PCONC(:,32)+TPK%K128(:)*PCONC(:,39)
!
-!BIOL/ETHE=0.0
+!MO2/WC_O3=0.0
!
-!BIOL/OLEL=0.0
+!MO2/WC_H2O2=0.0
!
-!BIOL/OLEH=0.0
+!MO2/WC_NO=0.0
!
-!BIOL/ALKL=0.0
+!MO2/WC_NO2=0.0
!
-!BIOL/ALKM=0.0
+!MO2/WC_NO3=0.0
!
-!BIOL/ALKH=0.0
+!MO2/WC_N2O5=0.0
!
-!BIOL/AROH=0.0
+!MO2/WC_HONO=0.0
!
-!BIOL/AROL=0.0
+!MO2/WC_HNO3=0.0
!
-!BIOL/AROO=0.0
+!MO2/WC_HNO4=0.0
!
-!BIOL/ARAL=0.0
+!MO2/WC_NH3=0.0
!
-!BIOL/ARAC=0.0
+!MO2/WC_OH=0.0
!
-!BIOL/PAH=0.0
+!MO2/WC_HO2=0.0
!
-!BIOL/HCHO=0.0
+!MO2/WC_CO2=0.0
!
-!BIOL/ALD2=0.0
+!MO2/WC_SO2=0.0
!
-!BIOL/KETL=0.0
+!MO2/WC_SULF=0.0
!
-!BIOL/KETH=0.0
+!MO2/WC_HCHO=0.0
!
-!BIOL/MEOH=0.0
+!MO2/WC_ORA1=0.0
!
-!BIOL/ETOH=0.0
+!MO2/WC_ORA2=0.0
!
-!BIOL/ALCH=0.0
+!MO2/WC_MO2=+KTC39
+ PJAC(:,32,60)=+TPK%KTC39(:)
!
-!BIOL/ISOP=0.0
+!MO2/WC_OP1=0.0
!
-!BIOL/BIOL=-K084*<OH>-K085*<NO3>-K086*<O3>-K087*<O>
- PJAC(:,36,36)=-TPK%K084(:)*PCONC(:,15)-TPK%K085(:)*PCONC(:,8)-TPK%K086(:)*PCON&
-&C(:,3)-TPK%K087(:)*TPK%O(:)
+!MO2/WC_ASO3=0.0
!
-!BIOL/BIOH=0.0
+!MO2/WC_ASO4=0.0
!
-!BIOL/MTBE=0.0
+!MO2/WC_ASO5=0.0
!
-!BIOL/MVK=0.0
+!MO2/WC_AHSO5=0.0
!
-!BIOL/MCR=0.0
+!MO2/WC_AHMS=0.0
!
-!BIOL/MGLY=0.0
+!MO2/WR_O3=0.0
!
-!BIOL/GLY=0.0
+!MO2/WR_H2O2=0.0
!
-!BIOL/ORA1=0.0
+!MO2/WR_NO=0.0
!
-!BIOL/ORA2=0.0
+!MO2/WR_NO2=0.0
!
-!BIOL/ACID=0.0
+!MO2/WR_NO3=0.0
!
-!BIOL/UR28=0.0
+!MO2/WR_N2O5=0.0
!
-!BIOL/UR21=0.0
+!MO2/WR_HONO=0.0
!
-!BIOL/URG2=0.0
+!MO2/WR_HNO3=0.0
!
-!BIOL/UR26=0.0
+!MO2/WR_HNO4=0.0
!
-!BIOL/RPG2=0.0
+!MO2/WR_NH3=0.0
!
-!BIOL/RP18=0.0
+!MO2/WR_OH=0.0
!
-!BIOL/RPG3=0.0
+!MO2/WR_HO2=0.0
!
-!BIOL/URG4=0.0
+!MO2/WR_CO2=0.0
!
-!BIOL/UR8=0.0
+!MO2/WR_SO2=0.0
!
-!BIOL/UR17=0.0
+!MO2/WR_SULF=0.0
!
-!BIOL/UR7=0.0
+!MO2/WR_HCHO=0.0
!
-!BIOL/RPR3=0.0
+!MO2/WR_ORA1=0.0
!
-!BIOL/URG6=0.0
+!MO2/WR_ORA2=0.0
!
-!BIOL/UR22=0.0
+!MO2/WR_MO2=+KTR39
+ PJAC(:,32,85)=+TPK%KTR39(:)
!
-!BIOL/URG7=0.0
+!MO2/WR_OP1=0.0
!
-!BIOL/RPR4=0.0
+!MO2/WR_ASO3=0.0
!
-!BIOL/RPR7=0.0
+!MO2/WR_ASO4=0.0
!
-!BIOL/RPG7=0.0
+!MO2/WR_ASO5=0.0
!
-!BIOL/URG8=0.0
+!MO2/WR_AHSO5=0.0
!
-!BIOL/UR19=0.0
+!MO2/WR_AHMS=0.0
!
-!BIOL/URG9=0.0
+!ALKAP/O3=+0.09815*K079*<ALKE>+0.00000*K080*<BIO>
+ PJAC(:,33,1)=+0.09815*TPK%K079(:)*PCONC(:,19)+0.00000*TPK%K080(:)*PCONC(:,20)
!
-!BIOL/AP7=0.0
+!ALKAP/H2O2=0.0
!
-!BIOL/URG10=0.0
+!ALKAP/NO=+0.08187*K091*<ALKAP>-K091*<ALKAP>
+ PJAC(:,33,3)=+0.08187*TPK%K091(:)*PCONC(:,33)-TPK%K091(:)*PCONC(:,33)
!
-!BIOL/RPR1=0.0
+!ALKAP/NO2=0.0
!
-!BIOL/RPR5=0.0
+!ALKAP/NO3=+0.08994*K120*<ALKAP>-K120*<ALKAP>
+ PJAC(:,33,5)=+0.08994*TPK%K120(:)*PCONC(:,33)-TPK%K120(:)*PCONC(:,33)
!
-!BIOL/RPR8=0.0
+!ALKAP/N2O5=0.0
!
-!BIOL/RP10=0.0
+!ALKAP/HONO=0.0
!
-!BIOL/RP11=0.0
+!ALKAP/HNO3=0.0
!
-!BIOL/RP16=0.0
+!ALKAP/HNO4=0.0
!
-!BIOL/RPRL=0.0
+!ALKAP/NH3=0.0
!
-!BIOL/APAN=0.0
+!ALKAP/SO2=0.0
!
-!BIOL/PAN1=0.0
+!ALKAP/SULF=0.0
!
-!BIOL/PAN2=0.0
+!ALKAP/CO=0.0
!
-!BIOL/PAN3=0.0
+!ALKAP/OH=+K057*<ETH>+0.87811*K058*<ALKA>+0.40341*K069*<OP2>+1.00000*K071*<ONIT
+!>
+ PJAC(:,33,14)=+TPK%K057(:)*PCONC(:,17)+0.87811*TPK%K058(:)*PCONC(:,18)+0.40341&
+&*TPK%K069(:)*PCONC(:,29)+1.00000*TPK%K071(:)*PCONC(:,26)
!
-!BIOL/PAN4=0.0
+!ALKAP/HO2=-K098*<ALKAP>
+ PJAC(:,33,15)=-TPK%K098(:)*PCONC(:,33)
!
-!BIOL/PAN6=0.0
+!ALKAP/CH4=0.0
!
-!BIOL/PAN7=0.0
+!ALKAP/ETH=+K057*<OH>
+ PJAC(:,33,17)=+TPK%K057(:)*PCONC(:,14)
!
-!BIOL/PAN8=0.0
+!ALKAP/ALKA=+0.87811*K058*<OH>
+ PJAC(:,33,18)=+0.87811*TPK%K058(:)*PCONC(:,14)
!
-!BIOL/PN10=0.0
+!ALKAP/ALKE=+0.09815*K079*<O3>
+ PJAC(:,33,19)=+0.09815*TPK%K079(:)*PCONC(:,1)
!
-!BIOL/RO2T=0.0
+!ALKAP/BIO=+0.00000*K080*<O3>
+ PJAC(:,33,20)=+0.00000*TPK%K080(:)*PCONC(:,1)
!
-!BIOL/RO21=0.0
+!ALKAP/ARO=0.0
!
-!BIOL/RO25=0.0
+!ALKAP/HCHO=0.0
!
-!BIOH/NO=0.0
+!ALKAP/ALD=0.0
!
-!BIOH/NO2=0.0
+!ALKAP/KET=+1.00000*K015
+ PJAC(:,33,24)=+1.00000*TPK%K015(:)
!
-!BIOH/O3=-K090*<BIOH>
- PJAC(:,37,3)=-TPK%K090(:)*PCONC(:,37)
+!ALKAP/CARBO=0.0
!
-!BIOH/HONO=0.0
+!ALKAP/ONIT=+1.00000*K071*<OH>
+ PJAC(:,33,26)=+1.00000*TPK%K071(:)*PCONC(:,14)
!
-!BIOH/HNO3=0.0
+!ALKAP/PAN=0.0
!
-!BIOH/HNO4=0.0
+!ALKAP/OP1=0.0
!
-!BIOH/N2O5=0.0
+!ALKAP/OP2=+0.40341*K069*<OH>
+ PJAC(:,33,29)=+0.40341*TPK%K069(:)*PCONC(:,14)
!
-!BIOH/NO3=-K089*<BIOH>
- PJAC(:,37,8)=-TPK%K089(:)*PCONC(:,37)
+!ALKAP/ORA1=0.0
!
-!BIOH/NH3=0.0
+!ALKAP/ORA2=0.0
!
-!BIOH/HO2=0.0
+!ALKAP/MO2=+0.00385*K105*<ALKAP>-K105*<ALKAP>
+ PJAC(:,33,32)=+0.00385*TPK%K105(:)*PCONC(:,33)-TPK%K105(:)*PCONC(:,33)
!
-!BIOH/CO=0.0
+!ALKAP/ALKAP=+0.08187*K091*<NO>-K091*<NO>-K098*<HO2>+0.00385*K105*<MO2>-K105*<M
+!O2>+0.00828*K111*<CARBOP>-K111*<CARBOP>+0.08994*K120*<NO3>-K120*<NO3>
+ PJAC(:,33,33)=+0.08187*TPK%K091(:)*PCONC(:,3)-TPK%K091(:)*PCONC(:,3)-TPK%K098(&
+&:)*PCONC(:,15)+0.00385*TPK%K105(:)*PCONC(:,32)-TPK%K105(:)*PCONC(:,32)+0.00828&
+&*TPK%K111(:)*PCONC(:,39)-TPK%K111(:)*PCONC(:,39)+0.08994*TPK%K120(:)*PCONC(:,5&
+&)-TPK%K120(:)*PCONC(:,5)
!
-!BIOH/H2O2=0.0
+!ALKAP/ALKEP=0.0
!
-!BIOH/SO2=0.0
+!ALKAP/BIOP=0.0
!
-!BIOH/H2SO4=0.0
+!ALKAP/PHO=0.0
!
-!BIOH/OH=-K088*<BIOH>
- PJAC(:,37,15)=-TPK%K088(:)*PCONC(:,37)
+!ALKAP/ADD=0.0
!
-!BIOH/ETHE=0.0
+!ALKAP/AROP=0.0
!
-!BIOH/OLEL=0.0
+!ALKAP/CARBOP=+0.00828*K111*<ALKAP>-K111*<ALKAP>
+ PJAC(:,33,39)=+0.00828*TPK%K111(:)*PCONC(:,33)-TPK%K111(:)*PCONC(:,33)
!
-!BIOH/OLEH=0.0
+!ALKAP/OLN=0.0
!
-!BIOH/ALKL=0.0
+!ALKAP/XO2=0.0
!
-!BIOH/ALKM=0.0
+!ALKAP/WC_O3=0.0
!
-!BIOH/ALKH=0.0
+!ALKAP/WC_H2O2=0.0
!
-!BIOH/AROH=0.0
+!ALKAP/WC_NO=0.0
!
-!BIOH/AROL=0.0
+!ALKAP/WC_NO2=0.0
!
-!BIOH/AROO=0.0
+!ALKAP/WC_NO3=0.0
!
-!BIOH/ARAL=0.0
+!ALKAP/WC_N2O5=0.0
!
-!BIOH/ARAC=0.0
+!ALKAP/WC_HONO=0.0
!
-!BIOH/PAH=0.0
+!ALKAP/WC_HNO3=0.0
!
-!BIOH/HCHO=0.0
+!ALKAP/WC_HNO4=0.0
!
-!BIOH/ALD2=0.0
+!ALKAP/WC_NH3=0.0
!
-!BIOH/KETL=0.0
+!ALKAP/WC_OH=0.0
!
-!BIOH/KETH=0.0
+!ALKAP/WC_HO2=0.0
!
-!BIOH/MEOH=0.0
+!ALKAP/WC_CO2=0.0
!
-!BIOH/ETOH=0.0
+!ALKAP/WC_SO2=0.0
!
-!BIOH/ALCH=0.0
+!ALKAP/WC_SULF=0.0
!
-!BIOH/ISOP=0.0
+!ALKAP/WC_HCHO=0.0
!
-!BIOH/BIOL=0.0
+!ALKAP/WC_ORA1=0.0
!
-!BIOH/BIOH=-K088*<OH>-K089*<NO3>-K090*<O3>-K091*<O>
- PJAC(:,37,37)=-TPK%K088(:)*PCONC(:,15)-TPK%K089(:)*PCONC(:,8)-TPK%K090(:)*PCON&
-&C(:,3)-TPK%K091(:)*TPK%O(:)
+!ALKAP/WC_ORA2=0.0
!
-!BIOH/MTBE=0.0
+!ALKAP/WC_MO2=0.0
!
-!BIOH/MVK=0.0
+!ALKAP/WC_OP1=0.0
!
-!BIOH/MCR=0.0
+!ALKAP/WC_ASO3=0.0
!
-!BIOH/MGLY=0.0
+!ALKAP/WC_ASO4=0.0
!
-!BIOH/GLY=0.0
+!ALKAP/WC_ASO5=0.0
!
-!BIOH/ORA1=0.0
+!ALKAP/WC_AHSO5=0.0
!
-!BIOH/ORA2=0.0
+!ALKAP/WC_AHMS=0.0
!
-!BIOH/ACID=0.0
+!ALKAP/WR_O3=0.0
!
-!BIOH/UR28=0.0
+!ALKAP/WR_H2O2=0.0
!
-!BIOH/UR21=0.0
+!ALKAP/WR_NO=0.0
!
-!BIOH/URG2=0.0
+!ALKAP/WR_NO2=0.0
!
-!BIOH/UR26=0.0
+!ALKAP/WR_NO3=0.0
!
-!BIOH/RPG2=0.0
+!ALKAP/WR_N2O5=0.0
!
-!BIOH/RP18=0.0
+!ALKAP/WR_HONO=0.0
!
-!BIOH/RPG3=0.0
+!ALKAP/WR_HNO3=0.0
!
-!BIOH/URG4=0.0
+!ALKAP/WR_HNO4=0.0
!
-!BIOH/UR8=0.0
+!ALKAP/WR_NH3=0.0
!
-!BIOH/UR17=0.0
+!ALKAP/WR_OH=0.0
!
-!BIOH/UR7=0.0
+!ALKAP/WR_HO2=0.0
!
-!BIOH/RPR3=0.0
+!ALKAP/WR_CO2=0.0
!
-!BIOH/URG6=0.0
+!ALKAP/WR_SO2=0.0
!
-!BIOH/UR22=0.0
+!ALKAP/WR_SULF=0.0
!
-!BIOH/URG7=0.0
+!ALKAP/WR_HCHO=0.0
!
-!BIOH/RPR4=0.0
+!ALKAP/WR_ORA1=0.0
!
-!BIOH/RPR7=0.0
+!ALKAP/WR_ORA2=0.0
!
-!BIOH/RPG7=0.0
+!ALKAP/WR_MO2=0.0
!
-!BIOH/URG8=0.0
+!ALKAP/WR_OP1=0.0
!
-!BIOH/UR19=0.0
+!ALKAP/WR_ASO3=0.0
!
-!BIOH/URG9=0.0
+!ALKAP/WR_ASO4=0.0
!
-!BIOH/AP7=0.0
+!ALKAP/WR_ASO5=0.0
!
-!BIOH/URG10=0.0
+!ALKAP/WR_AHSO5=0.0
!
-!BIOH/RPR1=0.0
+!ALKAP/WR_AHMS=0.0
!
-!BIOH/RPR5=0.0
+!ALKEP/O3=0.0
!
-!BIOH/RPR8=0.0
+!ALKEP/H2O2=0.0
!
-!BIOH/RP10=0.0
+!ALKEP/NO=-K092*<ALKEP>
+ PJAC(:,34,3)=-TPK%K092(:)*PCONC(:,34)
!
-!BIOH/RP11=0.0
+!ALKEP/NO2=0.0
!
-!BIOH/RP16=0.0
+!ALKEP/NO3=-K121*<ALKEP>
+ PJAC(:,34,5)=-TPK%K121(:)*PCONC(:,34)
!
-!BIOH/RPRL=0.0
+!ALKEP/N2O5=0.0
!
-!BIOH/APAN=0.0
+!ALKEP/HONO=0.0
!
-!BIOH/PAN1=0.0
+!ALKEP/HNO3=0.0
!
-!BIOH/PAN2=0.0
+!ALKEP/HNO4=0.0
!
-!BIOH/PAN3=0.0
+!ALKEP/NH3=0.0
!
-!BIOH/PAN4=0.0
+!ALKEP/SO2=0.0
!
-!BIOH/PAN6=0.0
+!ALKEP/SULF=0.0
!
-!BIOH/PAN7=0.0
+!ALKEP/CO=0.0
!
-!BIOH/PAN8=0.0
+!ALKEP/OH=+1.02529*K059*<ALKE>
+ PJAC(:,34,14)=+1.02529*TPK%K059(:)*PCONC(:,19)
!
-!BIOH/PN10=0.0
+!ALKEP/HO2=-K099*<ALKEP>
+ PJAC(:,34,15)=-TPK%K099(:)*PCONC(:,34)
!
-!BIOH/RO2T=0.0
+!ALKEP/CH4=0.0
!
-!BIOH/RO21=0.0
+!ALKEP/ETH=0.0
!
-!BIOH/RO25=0.0
+!ALKEP/ALKA=0.0
!
-!MTBE/NO=0.0
+!ALKEP/ALKE=+1.02529*K059*<OH>
+ PJAC(:,34,19)=+1.02529*TPK%K059(:)*PCONC(:,14)
!
-!MTBE/NO2=0.0
+!ALKEP/BIO=0.0
!
-!MTBE/O3=0.0
+!ALKEP/ARO=0.0
!
-!MTBE/HONO=0.0
+!ALKEP/HCHO=0.0
!
-!MTBE/HNO3=0.0
+!ALKEP/ALD=0.0
!
-!MTBE/HNO4=0.0
+!ALKEP/KET=0.0
!
-!MTBE/N2O5=0.0
+!ALKEP/CARBO=0.0
!
-!MTBE/NO3=0.0
+!ALKEP/ONIT=0.0
!
-!MTBE/NH3=0.0
+!ALKEP/PAN=0.0
!
-!MTBE/HO2=0.0
+!ALKEP/OP1=0.0
!
-!MTBE/CO=0.0
+!ALKEP/OP2=0.0
!
-!MTBE/H2O2=0.0
+!ALKEP/ORA1=0.0
!
-!MTBE/SO2=0.0
+!ALKEP/ORA2=0.0
!
-!MTBE/H2SO4=0.0
+!ALKEP/MO2=-K106*<ALKEP>
+ PJAC(:,34,32)=-TPK%K106(:)*PCONC(:,34)
!
-!MTBE/OH=-K068*<MTBE>
- PJAC(:,38,15)=-TPK%K068(:)*PCONC(:,38)
+!ALKEP/ALKAP=0.0
!
-!MTBE/ETHE=0.0
+!ALKEP/ALKEP=-K092*<NO>-K099*<HO2>-K106*<MO2>-K112*<CARBOP>-K121*<NO3>
+ PJAC(:,34,34)=-TPK%K092(:)*PCONC(:,3)-TPK%K099(:)*PCONC(:,15)-TPK%K106(:)*PCON&
+&C(:,32)-TPK%K112(:)*PCONC(:,39)-TPK%K121(:)*PCONC(:,5)
!
-!MTBE/OLEL=0.0
+!ALKEP/BIOP=0.0
!
-!MTBE/OLEH=0.0
+!ALKEP/PHO=0.0
!
-!MTBE/ALKL=0.0
+!ALKEP/ADD=0.0
!
-!MTBE/ALKM=0.0
+!ALKEP/AROP=0.0
!
-!MTBE/ALKH=0.0
+!ALKEP/CARBOP=-K112*<ALKEP>
+ PJAC(:,34,39)=-TPK%K112(:)*PCONC(:,34)
!
-!MTBE/AROH=0.0
+!ALKEP/OLN=0.0
!
-!MTBE/AROL=0.0
+!ALKEP/XO2=0.0
!
-!MTBE/AROO=0.0
+!ALKEP/WC_O3=0.0
!
-!MTBE/ARAL=0.0
+!ALKEP/WC_H2O2=0.0
!
-!MTBE/ARAC=0.0
+!ALKEP/WC_NO=0.0
!
-!MTBE/PAH=0.0
+!ALKEP/WC_NO2=0.0
!
-!MTBE/HCHO=0.0
+!ALKEP/WC_NO3=0.0
!
-!MTBE/ALD2=0.0
+!ALKEP/WC_N2O5=0.0
!
-!MTBE/KETL=0.0
+!ALKEP/WC_HONO=0.0
!
-!MTBE/KETH=0.0
+!ALKEP/WC_HNO3=0.0
!
-!MTBE/MEOH=0.0
+!ALKEP/WC_HNO4=0.0
!
-!MTBE/ETOH=0.0
+!ALKEP/WC_NH3=0.0
!
-!MTBE/ALCH=0.0
+!ALKEP/WC_OH=0.0
!
-!MTBE/ISOP=0.0
+!ALKEP/WC_HO2=0.0
!
-!MTBE/BIOL=0.0
+!ALKEP/WC_CO2=0.0
!
-!MTBE/BIOH=0.0
+!ALKEP/WC_SO2=0.0
!
-!MTBE/MTBE=-K068*<OH>
- PJAC(:,38,38)=-TPK%K068(:)*PCONC(:,15)
+!ALKEP/WC_SULF=0.0
!
-!MTBE/MVK=0.0
+!ALKEP/WC_HCHO=0.0
!
-!MTBE/MCR=0.0
+!ALKEP/WC_ORA1=0.0
!
-!MTBE/MGLY=0.0
+!ALKEP/WC_ORA2=0.0
!
-!MTBE/GLY=0.0
+!ALKEP/WC_MO2=0.0
!
-!MTBE/ORA1=0.0
+!ALKEP/WC_OP1=0.0
!
-!MTBE/ORA2=0.0
+!ALKEP/WC_ASO3=0.0
!
-!MTBE/ACID=0.0
+!ALKEP/WC_ASO4=0.0
!
-!MTBE/UR28=0.0
+!ALKEP/WC_ASO5=0.0
!
-!MTBE/UR21=0.0
+!ALKEP/WC_AHSO5=0.0
!
-!MTBE/URG2=0.0
+!ALKEP/WC_AHMS=0.0
!
-!MTBE/UR26=0.0
+!ALKEP/WR_O3=0.0
!
-!MTBE/RPG2=0.0
+!ALKEP/WR_H2O2=0.0
!
-!MTBE/RP18=0.0
+!ALKEP/WR_NO=0.0
!
-!MTBE/RPG3=0.0
+!ALKEP/WR_NO2=0.0
!
-!MTBE/URG4=0.0
+!ALKEP/WR_NO3=0.0
!
-!MTBE/UR8=0.0
+!ALKEP/WR_N2O5=0.0
!
-!MTBE/UR17=0.0
+!ALKEP/WR_HONO=0.0
!
-!MTBE/UR7=0.0
+!ALKEP/WR_HNO3=0.0
!
-!MTBE/RPR3=0.0
+!ALKEP/WR_HNO4=0.0
!
-!MTBE/URG6=0.0
+!ALKEP/WR_NH3=0.0
!
-!MTBE/UR22=0.0
+!ALKEP/WR_OH=0.0
!
-!MTBE/URG7=0.0
+!ALKEP/WR_HO2=0.0
!
-!MTBE/RPR4=0.0
+!ALKEP/WR_CO2=0.0
!
-!MTBE/RPR7=0.0
+!ALKEP/WR_SO2=0.0
!
-!MTBE/RPG7=0.0
+!ALKEP/WR_SULF=0.0
!
-!MTBE/URG8=0.0
+!ALKEP/WR_HCHO=0.0
!
-!MTBE/UR19=0.0
+!ALKEP/WR_ORA1=0.0
!
-!MTBE/URG9=0.0
+!ALKEP/WR_ORA2=0.0
!
-!MTBE/AP7=0.0
+!ALKEP/WR_MO2=0.0
!
-!MTBE/URG10=0.0
+!ALKEP/WR_OP1=0.0
!
-!MTBE/RPR1=0.0
+!ALKEP/WR_ASO3=0.0
!
-!MTBE/RPR5=0.0
+!ALKEP/WR_ASO4=0.0
!
-!MTBE/RPR8=0.0
+!ALKEP/WR_ASO5=0.0
!
-!MTBE/RP10=0.0
+!ALKEP/WR_AHSO5=0.0
!
-!MTBE/RP11=0.0
+!ALKEP/WR_AHMS=0.0
!
-!MTBE/RP16=0.0
+!BIOP/O3=0.0
!
-!MTBE/RPRL=0.0
+!BIOP/H2O2=0.0
!
-!MTBE/APAN=0.0
+!BIOP/NO=-K093*<BIOP>
+ PJAC(:,35,3)=-TPK%K093(:)*PCONC(:,35)
!
-!MTBE/PAN1=0.0
+!BIOP/NO2=0.0
!
-!MTBE/PAN2=0.0
+!BIOP/NO3=-K122*<BIOP>
+ PJAC(:,35,5)=-TPK%K122(:)*PCONC(:,35)
!
-!MTBE/PAN3=0.0
+!BIOP/N2O5=0.0
!
-!MTBE/PAN4=0.0
+!BIOP/HONO=0.0
!
-!MTBE/PAN6=0.0
+!BIOP/HNO3=0.0
!
-!MTBE/PAN7=0.0
+!BIOP/HNO4=0.0
!
-!MTBE/PAN8=0.0
+!BIOP/NH3=0.0
!
-!MTBE/PN10=0.0
+!BIOP/SO2=0.0
!
-!MTBE/RO2T=0.0
+!BIOP/SULF=0.0
!
-!MTBE/RO21=0.0
+!BIOP/CO=0.0
!
-!MTBE/RO25=0.0
+!BIOP/OH=+0.00000*K059*<ALKE>+1.00000*K060*<BIO>
+ PJAC(:,35,14)=+0.00000*TPK%K059(:)*PCONC(:,19)+1.00000*TPK%K060(:)*PCONC(:,20)
!
-!MVK/NO=+TPK%CF6*K150*<RO29>+K156*<RO211>
- PJAC(:,39,1)=+TPK%CF6*TPK%K150(:)*TPK%RO29(:)+TPK%K156(:)*TPK%RO211(:)
+!BIOP/HO2=-K0100*<BIOP>
+ PJAC(:,35,15)=-TPK%K0100(:)*PCONC(:,35)
!
-!MVK/NO2=0.0
+!BIOP/CH4=0.0
!
-!MVK/O3=+0.389*K066*<ISOP>-K281*<MVK>
- PJAC(:,39,3)=+0.389*TPK%K066(:)*PCONC(:,35)-TPK%K281(:)*PCONC(:,39)
+!BIOP/ETH=0.0
!
-!MVK/HONO=0.0
+!BIOP/ALKA=0.0
!
-!MVK/HNO3=0.0
+!BIOP/ALKE=+0.00000*K059*<OH>
+ PJAC(:,35,19)=+0.00000*TPK%K059(:)*PCONC(:,14)
!
-!MVK/HNO4=0.0
+!BIOP/BIO=+1.00000*K060*<OH>
+ PJAC(:,35,20)=+1.00000*TPK%K060(:)*PCONC(:,14)
!
-!MVK/N2O5=0.0
+!BIOP/ARO=0.0
!
-!MVK/NO3=0.0
+!BIOP/HCHO=0.0
!
-!MVK/NH3=0.0
+!BIOP/ALD=0.0
!
-!MVK/HO2=+K152*<RO29>+K158*<RO211>
- PJAC(:,39,10)=+TPK%K152(:)*TPK%RO29(:)+TPK%K158(:)*TPK%RO211(:)
+!BIOP/KET=0.0
!
-!MVK/CO=0.0
+!BIOP/CARBO=0.0
!
-!MVK/H2O2=0.0
+!BIOP/ONIT=0.0
!
-!MVK/SO2=0.0
+!BIOP/PAN=0.0
!
-!MVK/H2SO4=0.0
+!BIOP/OP1=0.0
!
-!MVK/OH=-K272*<MVK>
- PJAC(:,39,15)=-TPK%K272(:)*PCONC(:,39)
+!BIOP/OP2=0.0
!
-!MVK/ETHE=0.0
+!BIOP/ORA1=0.0
!
-!MVK/OLEL=0.0
+!BIOP/ORA2=0.0
!
-!MVK/OLEH=0.0
+!BIOP/MO2=-K107*<BIOP>
+ PJAC(:,35,32)=-TPK%K107(:)*PCONC(:,35)
!
-!MVK/ALKL=0.0
+!BIOP/ALKAP=0.0
!
-!MVK/ALKM=0.0
+!BIOP/ALKEP=0.0
!
-!MVK/ALKH=0.0
+!BIOP/BIOP=-K093*<NO>-K0100*<HO2>-K107*<MO2>-K113*<CARBOP>-K122*<NO3>
+ PJAC(:,35,35)=-TPK%K093(:)*PCONC(:,3)-TPK%K0100(:)*PCONC(:,15)-TPK%K107(:)*PCO&
+&NC(:,32)-TPK%K113(:)*PCONC(:,39)-TPK%K122(:)*PCONC(:,5)
!
-!MVK/AROH=0.0
+!BIOP/PHO=0.0
!
-!MVK/AROL=0.0
+!BIOP/ADD=0.0
!
-!MVK/AROO=0.0
+!BIOP/AROP=0.0
!
-!MVK/ARAL=0.0
+!BIOP/CARBOP=-K113*<BIOP>
+ PJAC(:,35,39)=-TPK%K113(:)*PCONC(:,35)
!
-!MVK/ARAC=0.0
+!BIOP/OLN=0.0
!
-!MVK/PAH=0.0
+!BIOP/XO2=0.0
!
-!MVK/HCHO=0.0
+!BIOP/WC_O3=0.0
!
-!MVK/ALD2=0.0
+!BIOP/WC_H2O2=0.0
!
-!MVK/KETL=0.0
+!BIOP/WC_NO=0.0
!
-!MVK/KETH=0.0
+!BIOP/WC_NO2=0.0
!
-!MVK/MEOH=0.0
+!BIOP/WC_NO3=0.0
!
-!MVK/ETOH=0.0
+!BIOP/WC_N2O5=0.0
!
-!MVK/ALCH=0.0
+!BIOP/WC_HONO=0.0
!
-!MVK/ISOP=+0.389*K066*<O3>
- PJAC(:,39,35)=+0.389*TPK%K066(:)*PCONC(:,3)
+!BIOP/WC_HNO3=0.0
!
-!MVK/BIOL=0.0
+!BIOP/WC_HNO4=0.0
!
-!MVK/BIOH=0.0
+!BIOP/WC_NH3=0.0
!
-!MVK/MTBE=0.0
+!BIOP/WC_OH=0.0
!
-!MVK/MVK=-K272*<OH>-K281*<O3>-K283*<O>
- PJAC(:,39,39)=-TPK%K272(:)*PCONC(:,15)-TPK%K281(:)*PCONC(:,3)-TPK%K283(:)*TPK%&
-&O(:)
+!BIOP/WC_HO2=0.0
!
-!MVK/MCR=0.0
+!BIOP/WC_CO2=0.0
!
-!MVK/MGLY=0.0
+!BIOP/WC_SO2=0.0
!
-!MVK/GLY=0.0
+!BIOP/WC_SULF=0.0
!
-!MVK/ORA1=0.0
+!BIOP/WC_HCHO=0.0
!
-!MVK/ORA2=0.0
+!BIOP/WC_ORA1=0.0
!
-!MVK/ACID=0.0
+!BIOP/WC_ORA2=0.0
!
-!MVK/UR28=0.0
+!BIOP/WC_MO2=0.0
!
-!MVK/UR21=0.0
+!BIOP/WC_OP1=0.0
!
-!MVK/URG2=0.0
+!BIOP/WC_ASO3=0.0
!
-!MVK/UR26=0.0
+!BIOP/WC_ASO4=0.0
!
-!MVK/RPG2=0.0
+!BIOP/WC_ASO5=0.0
!
-!MVK/RP18=0.0
+!BIOP/WC_AHSO5=0.0
!
-!MVK/RPG3=0.0
+!BIOP/WC_AHMS=0.0
!
-!MVK/URG4=0.0
+!BIOP/WR_O3=0.0
!
-!MVK/UR8=0.0
+!BIOP/WR_H2O2=0.0
!
-!MVK/UR17=0.0
+!BIOP/WR_NO=0.0
!
-!MVK/UR7=0.0
+!BIOP/WR_NO2=0.0
!
-!MVK/RPR3=0.0
+!BIOP/WR_NO3=0.0
!
-!MVK/URG6=0.0
+!BIOP/WR_N2O5=0.0
!
-!MVK/UR22=0.0
+!BIOP/WR_HONO=0.0
!
-!MVK/URG7=0.0
+!BIOP/WR_HNO3=0.0
!
-!MVK/RPR4=0.0
+!BIOP/WR_HNO4=0.0
!
-!MVK/RPR7=0.0
+!BIOP/WR_NH3=0.0
!
-!MVK/RPG7=0.0
+!BIOP/WR_OH=0.0
!
-!MVK/URG8=0.0
+!BIOP/WR_HO2=0.0
!
-!MVK/UR19=0.0
+!BIOP/WR_CO2=0.0
!
-!MVK/URG9=0.0
+!BIOP/WR_SO2=0.0
!
-!MVK/AP7=0.0
+!BIOP/WR_SULF=0.0
!
-!MVK/URG10=0.0
+!BIOP/WR_HCHO=0.0
!
-!MVK/RPR1=0.0
+!BIOP/WR_ORA1=0.0
!
-!MVK/RPR5=0.0
+!BIOP/WR_ORA2=0.0
!
-!MVK/RPR8=0.0
+!BIOP/WR_MO2=0.0
!
-!MVK/RP10=0.0
+!BIOP/WR_OP1=0.0
!
-!MVK/RP11=0.0
+!BIOP/WR_ASO3=0.0
!
-!MVK/RP16=0.0
+!BIOP/WR_ASO4=0.0
!
-!MVK/RPRL=0.0
+!BIOP/WR_ASO5=0.0
!
-!MVK/APAN=0.0
+!BIOP/WR_AHSO5=0.0
!
-!MVK/PAN1=0.0
+!BIOP/WR_AHMS=0.0
!
-!MVK/PAN2=0.0
+RETURN
+END SUBROUTINE SUBJ6
!
-!MVK/PAN3=0.0
+SUBROUTINE SUBJ7
!
-!MVK/PAN4=0.0
+!Indices 36 a 40
!
-!MVK/PAN6=0.0
!
-!MVK/PAN7=0.0
+!PHO/O3=0.0
!
-!MVK/PAN8=0.0
+!PHO/H2O2=0.0
!
-!MVK/PN10=0.0
+!PHO/NO=0.0
!
-!MVK/RO2T=+K151*<RO29>+K157*<RO211>
- PJAC(:,39,85)=+TPK%K151(:)*TPK%RO29(:)+TPK%K157(:)*TPK%RO211(:)
+!PHO/NO2=-K083*<PHO>
+ PJAC(:,36,4)=-TPK%K083(:)*PCONC(:,36)
!
-!MVK/RO21=0.0
+!PHO/NO3=+K075*<ARO>
+ PJAC(:,36,5)=+TPK%K075(:)*PCONC(:,21)
!
-!MVK/RO25=0.0
+!PHO/N2O5=0.0
!
-!MCR/NO=+K153*<RO210>+K159*<RO212>
- PJAC(:,40,1)=+TPK%K153(:)*TPK%RO210(:)+TPK%K159(:)*TPK%RO212(:)
+!PHO/HONO=0.0
!
-!MCR/NO2=0.0
+!PHO/HNO3=0.0
!
-!MCR/O3=+0.17*K066*<ISOP>-K282*<MCR>
- PJAC(:,40,3)=+0.17*TPK%K066(:)*PCONC(:,35)-TPK%K282(:)*PCONC(:,40)
+!PHO/HNO4=0.0
!
-!MCR/HONO=0.0
+!PHO/NH3=0.0
!
-!MCR/HNO3=0.0
+!PHO/SO2=0.0
!
-!MCR/HNO4=0.0
+!PHO/SULF=0.0
!
-!MCR/N2O5=0.0
+!PHO/CO=0.0
!
-!MCR/NO3=-K275*<MCR>
- PJAC(:,40,8)=-TPK%K275(:)*PCONC(:,40)
+!PHO/OH=+0.00276*K061*<ARO>
+ PJAC(:,36,14)=+0.00276*TPK%K061(:)*PCONC(:,21)
!
-!MCR/NH3=0.0
+!PHO/HO2=-K084*<PHO>
+ PJAC(:,36,15)=-TPK%K084(:)*PCONC(:,36)
!
-!MCR/HO2=+K155*<RO210>+K161*<RO212>
- PJAC(:,40,10)=+TPK%K155(:)*TPK%RO210(:)+TPK%K161(:)*TPK%RO212(:)
+!PHO/CH4=0.0
!
-!MCR/CO=0.0
+!PHO/ETH=0.0
!
-!MCR/H2O2=0.0
+!PHO/ALKA=0.0
!
-!MCR/SO2=0.0
+!PHO/ALKE=0.0
!
-!MCR/H2SO4=0.0
+!PHO/BIO=0.0
!
-!MCR/OH=-K273*<MCR>
- PJAC(:,40,15)=-TPK%K273(:)*PCONC(:,40)
+!PHO/ARO=+0.00276*K061*<OH>+K075*<NO3>
+ PJAC(:,36,21)=+0.00276*TPK%K061(:)*PCONC(:,14)+TPK%K075(:)*PCONC(:,5)
!
-!MCR/ETHE=0.0
+!PHO/HCHO=0.0
!
-!MCR/OLEL=0.0
+!PHO/ALD=0.0
!
-!MCR/OLEH=0.0
+!PHO/KET=0.0
!
-!MCR/ALKL=0.0
+!PHO/CARBO=0.0
!
-!MCR/ALKM=0.0
+!PHO/ONIT=0.0
!
-!MCR/ALKH=0.0
+!PHO/PAN=0.0
!
-!MCR/AROH=0.0
+!PHO/OP1=0.0
!
-!MCR/AROL=0.0
+!PHO/OP2=0.0
!
-!MCR/AROO=0.0
+!PHO/ORA1=0.0
!
-!MCR/ARAL=0.0
+!PHO/ORA2=0.0
!
-!MCR/ARAC=0.0
+!PHO/MO2=0.0
!
-!MCR/PAH=0.0
+!PHO/ALKAP=0.0
!
-!MCR/HCHO=0.0
+!PHO/ALKEP=0.0
!
-!MCR/ALD2=0.0
+!PHO/BIOP=0.0
!
-!MCR/KETL=0.0
+!PHO/PHO=-K083*<NO2>-K084*<HO2>
+ PJAC(:,36,36)=-TPK%K083(:)*PCONC(:,4)-TPK%K084(:)*PCONC(:,15)
!
-!MCR/KETH=0.0
+!PHO/ADD=0.0
!
-!MCR/MEOH=0.0
+!PHO/AROP=0.0
!
-!MCR/ETOH=0.0
+!PHO/CARBOP=0.0
!
-!MCR/ALCH=0.0
+!PHO/OLN=0.0
!
-!MCR/ISOP=+0.17*K066*<O3>
- PJAC(:,40,35)=+0.17*TPK%K066(:)*PCONC(:,3)
+!PHO/XO2=0.0
!
-!MCR/BIOL=0.0
+!PHO/WC_O3=0.0
!
-!MCR/BIOH=0.0
+!PHO/WC_H2O2=0.0
!
-!MCR/MTBE=0.0
+!PHO/WC_NO=0.0
!
-!MCR/MVK=0.0
+!PHO/WC_NO2=0.0
!
-!MCR/MCR=-K273*<OH>-K275*<NO3>-K282*<O3>-K284*<O>
- PJAC(:,40,40)=-TPK%K273(:)*PCONC(:,15)-TPK%K275(:)*PCONC(:,8)-TPK%K282(:)*PCON&
-&C(:,3)-TPK%K284(:)*TPK%O(:)
+!PHO/WC_NO3=0.0
!
-!MCR/MGLY=0.0
+!PHO/WC_N2O5=0.0
!
-!MCR/GLY=0.0
+!PHO/WC_HONO=0.0
!
-!MCR/ORA1=0.0
+!PHO/WC_HNO3=0.0
!
-!MCR/ORA2=0.0
+!PHO/WC_HNO4=0.0
!
-!MCR/ACID=0.0
+!PHO/WC_NH3=0.0
!
-!MCR/UR28=0.0
+!PHO/WC_OH=0.0
!
-!MCR/UR21=0.0
+!PHO/WC_HO2=0.0
!
-!MCR/URG2=0.0
+!PHO/WC_CO2=0.0
!
-!MCR/UR26=0.0
+!PHO/WC_SO2=0.0
!
-!MCR/RPG2=0.0
+!PHO/WC_SULF=0.0
!
-!MCR/RP18=0.0
+!PHO/WC_HCHO=0.0
!
-!MCR/RPG3=0.0
+!PHO/WC_ORA1=0.0
!
-!MCR/URG4=0.0
+!PHO/WC_ORA2=0.0
!
-!MCR/UR8=0.0
+!PHO/WC_MO2=0.0
!
-!MCR/UR17=0.0
+!PHO/WC_OP1=0.0
!
-!MCR/UR7=0.0
+!PHO/WC_ASO3=0.0
!
-!MCR/RPR3=0.0
+!PHO/WC_ASO4=0.0
!
-!MCR/URG6=0.0
+!PHO/WC_ASO5=0.0
!
-!MCR/UR22=0.0
+!PHO/WC_AHSO5=0.0
!
-!MCR/URG7=0.0
+!PHO/WC_AHMS=0.0
!
-!MCR/RPR4=0.0
+!PHO/WR_O3=0.0
!
-!MCR/RPR7=0.0
+!PHO/WR_H2O2=0.0
!
-!MCR/RPG7=0.0
+!PHO/WR_NO=0.0
!
-!MCR/URG8=0.0
+!PHO/WR_NO2=0.0
!
-!MCR/UR19=0.0
+!PHO/WR_NO3=0.0
!
-!MCR/URG9=0.0
+!PHO/WR_N2O5=0.0
!
-!MCR/AP7=0.0
+!PHO/WR_HONO=0.0
!
-!MCR/URG10=0.0
+!PHO/WR_HNO3=0.0
!
-!MCR/RPR1=0.0
+!PHO/WR_HNO4=0.0
!
-!MCR/RPR5=0.0
+!PHO/WR_NH3=0.0
!
-!MCR/RPR8=0.0
+!PHO/WR_OH=0.0
!
-!MCR/RP10=0.0
+!PHO/WR_HO2=0.0
!
-!MCR/RP11=0.0
+!PHO/WR_CO2=0.0
!
-!MCR/RP16=0.0
+!PHO/WR_SO2=0.0
!
-!MCR/RPRL=0.0
+!PHO/WR_SULF=0.0
!
-!MCR/APAN=0.0
+!PHO/WR_HCHO=0.0
!
-!MCR/PAN1=0.0
+!PHO/WR_ORA1=0.0
!
-!MCR/PAN2=0.0
+!PHO/WR_ORA2=0.0
!
-!MCR/PAN3=0.0
+!PHO/WR_MO2=0.0
!
-!MCR/PAN4=0.0
+!PHO/WR_OP1=0.0
!
-!MCR/PAN6=0.0
+!PHO/WR_ASO3=0.0
!
-!MCR/PAN7=0.0
+!PHO/WR_ASO4=0.0
!
-!MCR/PAN8=0.0
+!PHO/WR_ASO5=0.0
!
-!MCR/PN10=0.0
+!PHO/WR_AHSO5=0.0
!
-!MCR/RO2T=+K154*<RO210>+K160*<RO212>
- PJAC(:,40,85)=+TPK%K154(:)*TPK%RO210(:)+TPK%K160(:)*TPK%RO212(:)
+!PHO/WR_AHMS=0.0
!
-!MCR/RO21=0.0
+!ADD/O3=-K087*<ADD>
+ PJAC(:,37,1)=-TPK%K087(:)*PCONC(:,37)
!
-!MCR/RO25=0.0
+!ADD/H2O2=0.0
!
-RETURN
-END SUBROUTINE SUBJ7
+!ADD/NO=0.0
!
-SUBROUTINE SUBJ8
+!ADD/NO2=-K085*<ADD>
+ PJAC(:,37,4)=-TPK%K085(:)*PCONC(:,37)
!
-!Indices 41 a 45
+!ADD/NO3=0.0
!
+!ADD/N2O5=0.0
!
-!MGLY/NO=+K234*<RO242>+K241*<RO243>+K248*<RO244>+K255*<RO245>+K262*<RO246>+K269
-!*<RO247>+K285*<RO249>+K291*<RO251>+K294*<RO252>
- PJAC(:,41,1)=+TPK%K234(:)*TPK%RO242(:)+TPK%K241(:)*TPK%RO243(:)+TPK%K248(:)*TP&
-&K%RO244(:)+TPK%K255(:)*TPK%RO245(:)+TPK%K262(:)*TPK%RO246(:)+TPK%K269(:)*TPK%R&
-&O247(:)+TPK%K285(:)*TPK%RO249(:)+TPK%K291(:)*TPK%RO251(:)+TPK%K294(:)*TPK%RO25&
-&2(:)
+!ADD/HONO=0.0
!
-!MGLY/NO2=0.0
+!ADD/HNO3=0.0
!
-!MGLY/O3=+0.5*K281*<MVK>+0.59*K282*<MCR>
- PJAC(:,41,3)=+0.5*TPK%K281(:)*PCONC(:,39)+0.59*TPK%K282(:)*PCONC(:,40)
+!ADD/HNO4=0.0
!
-!MGLY/HONO=0.0
+!ADD/NH3=0.0
!
-!MGLY/HNO3=0.0
+!ADD/SO2=0.0
!
-!MGLY/HNO4=0.0
+!ADD/SULF=0.0
!
-!MGLY/N2O5=0.0
+!ADD/CO=0.0
!
-!MGLY/NO3=-K278*<MGLY>
- PJAC(:,41,8)=-TPK%K278(:)*PCONC(:,41)
+!ADD/OH=+0.93968*K061*<ARO>
+ PJAC(:,37,14)=+0.93968*TPK%K061(:)*PCONC(:,21)
!
-!MGLY/NH3=0.0
+!ADD/HO2=0.0
!
-!MGLY/HO2=+K236*<RO242>+K243*<RO243>+K250*<RO244>+K257*<RO245>+K264*<RO246>+K27
-!1*<RO247>+K287*<RO249>+K292*<RO251>+K295*<RO252>
- PJAC(:,41,10)=+TPK%K236(:)*TPK%RO242(:)+TPK%K243(:)*TPK%RO243(:)+TPK%K250(:)*T&
-&PK%RO244(:)+TPK%K257(:)*TPK%RO245(:)+TPK%K264(:)*TPK%RO246(:)+TPK%K271(:)*TPK%&
-&RO247(:)+TPK%K287(:)*TPK%RO249(:)+TPK%K292(:)*TPK%RO251(:)+TPK%K295(:)*TPK%RO2&
-&52(:)
+!ADD/CH4=0.0
!
-!MGLY/CO=0.0
+!ADD/ETH=0.0
!
-!MGLY/H2O2=0.0
+!ADD/ALKA=0.0
!
-!MGLY/SO2=0.0
+!ADD/ALKE=0.0
!
-!MGLY/H2SO4=0.0
+!ADD/BIO=0.0
!
-!MGLY/OH=-K274*<MGLY>
- PJAC(:,41,15)=-TPK%K274(:)*PCONC(:,41)
+!ADD/ARO=+0.93968*K061*<OH>
+ PJAC(:,37,21)=+0.93968*TPK%K061(:)*PCONC(:,14)
!
-!MGLY/ETHE=0.0
+!ADD/HCHO=0.0
!
-!MGLY/OLEL=0.0
+!ADD/ALD=0.0
!
-!MGLY/OLEH=0.0
+!ADD/KET=0.0
!
-!MGLY/ALKL=0.0
+!ADD/CARBO=0.0
!
-!MGLY/ALKM=0.0
+!ADD/ONIT=0.0
!
-!MGLY/ALKH=0.0
+!ADD/PAN=0.0
!
-!MGLY/AROH=0.0
+!ADD/OP1=0.0
!
-!MGLY/AROL=0.0
+!ADD/OP2=0.0
!
-!MGLY/AROO=0.0
+!ADD/ORA1=0.0
!
-!MGLY/ARAL=0.0
+!ADD/ORA2=0.0
!
-!MGLY/ARAC=0.0
+!ADD/MO2=0.0
!
-!MGLY/PAH=0.0
+!ADD/ALKAP=0.0
!
-!MGLY/HCHO=0.0
+!ADD/ALKEP=0.0
!
-!MGLY/ALD2=0.0
+!ADD/BIOP=0.0
!
-!MGLY/KETL=0.0
+!ADD/PHO=0.0
!
-!MGLY/KETH=0.0
+!ADD/ADD=-K085*<NO2>-K086*<O2>-K087*<O3>
+ PJAC(:,37,37)=-TPK%K085(:)*PCONC(:,4)-TPK%K086(:)*TPK%O2(:)-TPK%K087(:)*PCONC(&
+&:,1)
!
-!MGLY/MEOH=0.0
+!ADD/AROP=0.0
!
-!MGLY/ETOH=0.0
+!ADD/CARBOP=0.0
!
-!MGLY/ALCH=0.0
+!ADD/OLN=0.0
!
-!MGLY/ISOP=0.0
+!ADD/XO2=0.0
!
-!MGLY/BIOL=0.0
+!ADD/WC_O3=0.0
!
-!MGLY/BIOH=0.0
+!ADD/WC_H2O2=0.0
!
-!MGLY/MTBE=0.0
+!ADD/WC_NO=0.0
!
-!MGLY/MVK=+0.5*K281*<O3>
- PJAC(:,41,39)=+0.5*TPK%K281(:)*PCONC(:,3)
+!ADD/WC_NO2=0.0
!
-!MGLY/MCR=+0.59*K282*<O3>
- PJAC(:,41,40)=+0.59*TPK%K282(:)*PCONC(:,3)
+!ADD/WC_NO3=0.0
!
-!MGLY/MGLY=-K274*<OH>-K276-K278*<NO3>
- PJAC(:,41,41)=-TPK%K274(:)*PCONC(:,15)-TPK%K276(:)-TPK%K278(:)*PCONC(:,8)
+!ADD/WC_N2O5=0.0
!
-!MGLY/GLY=0.0
+!ADD/WC_HONO=0.0
!
-!MGLY/ORA1=0.0
+!ADD/WC_HNO3=0.0
!
-!MGLY/ORA2=0.0
+!ADD/WC_HNO4=0.0
!
-!MGLY/ACID=0.0
+!ADD/WC_NH3=0.0
!
-!MGLY/UR28=0.0
+!ADD/WC_OH=0.0
!
-!MGLY/UR21=0.0
+!ADD/WC_HO2=0.0
!
-!MGLY/URG2=0.0
+!ADD/WC_CO2=0.0
!
-!MGLY/UR26=0.0
+!ADD/WC_SO2=0.0
!
-!MGLY/RPG2=0.0
+!ADD/WC_SULF=0.0
!
-!MGLY/RP18=0.0
+!ADD/WC_HCHO=0.0
!
-!MGLY/RPG3=0.0
+!ADD/WC_ORA1=0.0
!
-!MGLY/URG4=0.0
+!ADD/WC_ORA2=0.0
!
-!MGLY/UR8=0.0
+!ADD/WC_MO2=0.0
!
-!MGLY/UR17=0.0
+!ADD/WC_OP1=0.0
!
-!MGLY/UR7=0.0
+!ADD/WC_ASO3=0.0
!
-!MGLY/RPR3=0.0
+!ADD/WC_ASO4=0.0
!
-!MGLY/URG6=0.0
+!ADD/WC_ASO5=0.0
!
-!MGLY/UR22=0.0
+!ADD/WC_AHSO5=0.0
!
-!MGLY/URG7=0.0
+!ADD/WC_AHMS=0.0
!
-!MGLY/RPR4=0.0
+!ADD/WR_O3=0.0
!
-!MGLY/RPR7=0.0
+!ADD/WR_H2O2=0.0
!
-!MGLY/RPG7=0.0
+!ADD/WR_NO=0.0
!
-!MGLY/URG8=0.0
+!ADD/WR_NO2=0.0
!
-!MGLY/UR19=0.0
+!ADD/WR_NO3=0.0
!
-!MGLY/URG9=0.0
+!ADD/WR_N2O5=0.0
!
-!MGLY/AP7=0.0
+!ADD/WR_HONO=0.0
!
-!MGLY/URG10=0.0
+!ADD/WR_HNO3=0.0
!
-!MGLY/RPR1=0.0
+!ADD/WR_HNO4=0.0
!
-!MGLY/RPR5=0.0
+!ADD/WR_NH3=0.0
!
-!MGLY/RPR8=0.0
+!ADD/WR_OH=0.0
!
-!MGLY/RP10=0.0
+!ADD/WR_HO2=0.0
!
-!MGLY/RP11=0.0
+!ADD/WR_CO2=0.0
!
-!MGLY/RP16=0.0
+!ADD/WR_SO2=0.0
!
-!MGLY/RPRL=0.0
+!ADD/WR_SULF=0.0
!
-!MGLY/APAN=0.0
+!ADD/WR_HCHO=0.0
!
-!MGLY/PAN1=0.0
+!ADD/WR_ORA1=0.0
!
-!MGLY/PAN2=0.0
+!ADD/WR_ORA2=0.0
!
-!MGLY/PAN3=0.0
+!ADD/WR_MO2=0.0
!
-!MGLY/PAN4=0.0
+!ADD/WR_OP1=0.0
!
-!MGLY/PAN6=0.0
+!ADD/WR_ASO3=0.0
!
-!MGLY/PAN7=0.0
+!ADD/WR_ASO4=0.0
!
-!MGLY/PAN8=0.0
+!ADD/WR_ASO5=0.0
!
-!MGLY/PN10=0.0
+!ADD/WR_AHSO5=0.0
!
-!MGLY/RO2T=+K235*<RO242>+K242*<RO243>+K249*<RO244>+K256*<RO245>+K263*<RO246>+K2
-!70*<RO247>+K286*<RO249>+K293*<RO251>+K296*<RO252>
- PJAC(:,41,85)=+TPK%K235(:)*TPK%RO242(:)+TPK%K242(:)*TPK%RO243(:)+TPK%K249(:)*T&
-&PK%RO244(:)+TPK%K256(:)*TPK%RO245(:)+TPK%K263(:)*TPK%RO246(:)+TPK%K270(:)*TPK%&
-&RO247(:)+TPK%K286(:)*TPK%RO249(:)+TPK%K293(:)*TPK%RO251(:)+TPK%K296(:)*TPK%RO2&
-&52(:)
+!ADD/WR_AHMS=0.0
!
-!MGLY/RO21=0.0
+!AROP/O3=0.0
!
-!MGLY/RO25=0.0
+!AROP/H2O2=0.0
!
-!GLY/NO=0.0
+!AROP/NO=-K094*<AROP>
+ PJAC(:,38,3)=-TPK%K094(:)*PCONC(:,38)
!
-!GLY/NO2=0.0
+!AROP/NO2=0.0
!
-!GLY/O3=0.0
+!AROP/NO3=-K123*<AROP>
+ PJAC(:,38,5)=-TPK%K123(:)*PCONC(:,38)
!
-!GLY/HONO=0.0
+!AROP/N2O5=0.0
!
-!GLY/HNO3=0.0
+!AROP/HONO=0.0
!
-!GLY/HNO4=0.0
+!AROP/HNO3=0.0
!
-!GLY/N2O5=0.0
+!AROP/HNO4=0.0
!
-!GLY/NO3=0.0
+!AROP/NH3=0.0
!
-!GLY/NH3=0.0
+!AROP/SO2=0.0
!
-!GLY/HO2=0.0
+!AROP/SULF=0.0
!
-!GLY/CO=0.0
+!AROP/CO=0.0
!
-!GLY/H2O2=0.0
+!AROP/OH=0.0
!
-!GLY/SO2=0.0
+!AROP/HO2=-K0101*<AROP>
+ PJAC(:,38,15)=-TPK%K0101(:)*PCONC(:,38)
!
-!GLY/H2SO4=0.0
+!AROP/CH4=0.0
!
-!GLY/OH=0.0
+!AROP/ETH=0.0
!
-!GLY/ETHE=0.0
+!AROP/ALKA=0.0
!
-!GLY/OLEL=0.0
+!AROP/ALKE=0.0
!
-!GLY/OLEH=0.0
+!AROP/BIO=0.0
!
-!GLY/ALKL=0.0
+!AROP/ARO=0.0
!
-!GLY/ALKM=0.0
+!AROP/HCHO=0.0
!
-!GLY/ALKH=0.0
+!AROP/ALD=0.0
!
-!GLY/AROH=0.0
+!AROP/KET=0.0
!
-!GLY/AROL=0.0
+!AROP/CARBO=0.0
!
-!GLY/AROO=0.0
+!AROP/ONIT=0.0
!
-!GLY/ARAL=0.0
+!AROP/PAN=0.0
!
-!GLY/ARAC=0.0
+!AROP/OP1=0.0
!
-!GLY/PAH=0.0
+!AROP/OP2=0.0
!
-!GLY/HCHO=0.0
+!AROP/ORA1=0.0
!
-!GLY/ALD2=0.0
+!AROP/ORA2=0.0
!
-!GLY/KETL=0.0
+!AROP/MO2=-K108*<AROP>
+ PJAC(:,38,32)=-TPK%K108(:)*PCONC(:,38)
!
-!GLY/KETH=0.0
+!AROP/ALKAP=0.0
!
-!GLY/MEOH=0.0
+!AROP/ALKEP=0.0
!
-!GLY/ETOH=0.0
+!AROP/BIOP=0.0
!
-!GLY/ALCH=0.0
+!AROP/PHO=0.0
!
-!GLY/ISOP=0.0
+!AROP/ADD=+0.98*K086*<O2>
+ PJAC(:,38,37)=+0.98*TPK%K086(:)*TPK%O2(:)
!
-!GLY/BIOL=0.0
+!AROP/AROP=-K094*<NO>-K0101*<HO2>-K108*<MO2>-K114*<CARBOP>-K123*<NO3>
+ PJAC(:,38,38)=-TPK%K094(:)*PCONC(:,3)-TPK%K0101(:)*PCONC(:,15)-TPK%K108(:)*PCO&
+&NC(:,32)-TPK%K114(:)*PCONC(:,39)-TPK%K123(:)*PCONC(:,5)
!
-!GLY/BIOH=0.0
+!AROP/CARBOP=-K114*<AROP>
+ PJAC(:,38,39)=-TPK%K114(:)*PCONC(:,38)
!
-!GLY/MTBE=0.0
+!AROP/OLN=0.0
!
-!GLY/MVK=0.0
+!AROP/XO2=0.0
!
-!GLY/MCR=0.0
+!AROP/WC_O3=0.0
!
-!GLY/MGLY=0.0
+!AROP/WC_H2O2=0.0
!
-!GLY/GLY=0.0
+!AROP/WC_NO=0.0
!
-!GLY/ORA1=0.0
+!AROP/WC_NO2=0.0
!
-!GLY/ORA2=0.0
+!AROP/WC_NO3=0.0
!
-!GLY/ACID=0.0
+!AROP/WC_N2O5=0.0
!
-!GLY/UR28=0.0
+!AROP/WC_HONO=0.0
!
-!GLY/UR21=0.0
+!AROP/WC_HNO3=0.0
!
-!GLY/URG2=0.0
+!AROP/WC_HNO4=0.0
!
-!GLY/UR26=0.0
+!AROP/WC_NH3=0.0
!
-!GLY/RPG2=0.0
+!AROP/WC_OH=0.0
!
-!GLY/RP18=0.0
+!AROP/WC_HO2=0.0
!
-!GLY/RPG3=0.0
+!AROP/WC_CO2=0.0
!
-!GLY/URG4=0.0
+!AROP/WC_SO2=0.0
!
-!GLY/UR8=0.0
+!AROP/WC_SULF=0.0
!
-!GLY/UR17=0.0
+!AROP/WC_HCHO=0.0
!
-!GLY/UR7=0.0
+!AROP/WC_ORA1=0.0
!
-!GLY/RPR3=0.0
+!AROP/WC_ORA2=0.0
!
-!GLY/URG6=0.0
+!AROP/WC_MO2=0.0
!
-!GLY/UR22=0.0
+!AROP/WC_OP1=0.0
!
-!GLY/URG7=0.0
+!AROP/WC_ASO3=0.0
!
-!GLY/RPR4=0.0
+!AROP/WC_ASO4=0.0
!
-!GLY/RPR7=0.0
+!AROP/WC_ASO5=0.0
!
-!GLY/RPG7=0.0
+!AROP/WC_AHSO5=0.0
!
-!GLY/URG8=0.0
+!AROP/WC_AHMS=0.0
!
-!GLY/UR19=0.0
+!AROP/WR_O3=0.0
!
-!GLY/URG9=0.0
+!AROP/WR_H2O2=0.0
!
-!GLY/AP7=0.0
+!AROP/WR_NO=0.0
!
-!GLY/URG10=0.0
+!AROP/WR_NO2=0.0
!
-!GLY/RPR1=0.0
+!AROP/WR_NO3=0.0
!
-!GLY/RPR5=0.0
+!AROP/WR_N2O5=0.0
!
-!GLY/RPR8=0.0
+!AROP/WR_HONO=0.0
!
-!GLY/RP10=0.0
+!AROP/WR_HNO3=0.0
!
-!GLY/RP11=0.0
+!AROP/WR_HNO4=0.0
!
-!GLY/RP16=0.0
+!AROP/WR_NH3=0.0
!
-!GLY/RPRL=0.0
+!AROP/WR_OH=0.0
!
-!GLY/APAN=0.0
+!AROP/WR_HO2=0.0
!
-!GLY/PAN1=0.0
+!AROP/WR_CO2=0.0
!
-!GLY/PAN2=0.0
+!AROP/WR_SO2=0.0
!
-!GLY/PAN3=0.0
+!AROP/WR_SULF=0.0
!
-!GLY/PAN4=0.0
+!AROP/WR_HCHO=0.0
!
-!GLY/PAN6=0.0
+!AROP/WR_ORA1=0.0
!
-!GLY/PAN7=0.0
+!AROP/WR_ORA2=0.0
!
-!GLY/PAN8=0.0
+!AROP/WR_MO2=0.0
!
-!GLY/PN10=0.0
+!AROP/WR_OP1=0.0
!
-!GLY/RO2T=0.0
+!AROP/WR_ASO3=0.0
!
-!GLY/RO21=0.0
+!AROP/WR_ASO4=0.0
!
-!GLY/RO25=0.0
+!AROP/WR_ASO5=0.0
!
-!ORA1/NO=0.0
+!AROP/WR_AHSO5=0.0
!
-!ORA1/NO2=0.0
+!AROP/WR_AHMS=0.0
!
-!ORA1/O3=+0.185*K051*<ETHE>+0.12*K056*<OLEL>+0.121*K066*<ISOP>+0.12*K281*<MVK>+
-!0.09*K282*<MCR>
- PJAC(:,43,3)=+0.185*TPK%K051(:)*PCONC(:,16)+0.12*TPK%K056(:)*PCONC(:,17)+0.121&
-&*TPK%K066(:)*PCONC(:,35)+0.12*TPK%K281(:)*PCONC(:,39)+0.09*TPK%K282(:)*PCONC(:&
-&,40)
+!CARBOP/O3=+0.05705*K079*<ALKE>+0.17000*K080*<BIO>+0.27460*K081*<CARBO>+0.70000
+!*K082*<PAN>
+ PJAC(:,39,1)=+0.05705*TPK%K079(:)*PCONC(:,19)+0.17000*TPK%K080(:)*PCONC(:,20)+&
+&0.27460*TPK%K081(:)*PCONC(:,25)+0.70000*TPK%K082(:)*PCONC(:,27)
!
-!ORA1/HONO=0.0
+!CARBOP/H2O2=0.0
!
-!ORA1/HNO3=0.0
+!CARBOP/NO=+0.09532*K095*<CARBOP>-K095*<CARBOP>
+ PJAC(:,39,3)=+0.09532*TPK%K095(:)*PCONC(:,39)-TPK%K095(:)*PCONC(:,39)
!
-!ORA1/HNO4=0.0
+!CARBOP/NO2=-K088*<CARBOP>
+ PJAC(:,39,4)=-TPK%K088(:)*PCONC(:,39)
!
-!ORA1/N2O5=0.0
+!CARBOP/NO3=+1.00000*K073*<ALD>+0.38881*K074*<CARBO>+0.03175*K124*<CARBOP>-K124
+!*<CARBOP>
+ PJAC(:,39,5)=+1.00000*TPK%K073(:)*PCONC(:,23)+0.38881*TPK%K074(:)*PCONC(:,25)+&
+&0.03175*TPK%K124(:)*PCONC(:,39)-TPK%K124(:)*PCONC(:,39)
!
-!ORA1/NO3=0.0
+!CARBOP/N2O5=0.0
!
-!ORA1/NH3=0.0
+!CARBOP/HONO=0.0
!
-!ORA1/HO2=0.0
+!CARBOP/HNO3=0.0
!
-!ORA1/CO=0.0
+!CARBOP/HNO4=0.0
!
-!ORA1/H2O2=0.0
+!CARBOP/NH3=0.0
!
-!ORA1/SO2=0.0
+!CARBOP/SO2=0.0
!
-!ORA1/H2SO4=0.0
+!CARBOP/SULF=0.0
!
-!ORA1/OH=-K347*<ORA1>
- PJAC(:,43,15)=-TPK%K347(:)*PCONC(:,43)
+!CARBOP/CO=0.0
!
-!ORA1/ETHE=+0.185*K051*<O3>
- PJAC(:,43,16)=+0.185*TPK%K051(:)*PCONC(:,3)
+!CARBOP/OH=+1.00000*K063*<ALD>+1.00000*K064*<KET>+0.51419*K065*<CARBO>+0.05413*
+!K069*<OP2>
+ PJAC(:,39,14)=+1.00000*TPK%K063(:)*PCONC(:,23)+1.00000*TPK%K064(:)*PCONC(:,24)&
+&+0.51419*TPK%K065(:)*PCONC(:,25)+0.05413*TPK%K069(:)*PCONC(:,29)
!
-!ORA1/OLEL=+0.12*K056*<O3>
- PJAC(:,43,17)=+0.12*TPK%K056(:)*PCONC(:,3)
+!CARBOP/HO2=-K0102*<CARBOP>
+ PJAC(:,39,15)=-TPK%K0102(:)*PCONC(:,39)
!
-!ORA1/OLEH=0.0
+!CARBOP/CH4=0.0
!
-!ORA1/ALKL=0.0
+!CARBOP/ETH=0.0
!
-!ORA1/ALKM=0.0
+!CARBOP/ALKA=0.0
!
-!ORA1/ALKH=0.0
+!CARBOP/ALKE=+0.05705*K079*<O3>
+ PJAC(:,39,19)=+0.05705*TPK%K079(:)*PCONC(:,1)
!
-!ORA1/AROH=0.0
+!CARBOP/BIO=+0.17000*K080*<O3>
+ PJAC(:,39,20)=+0.17000*TPK%K080(:)*PCONC(:,1)
!
-!ORA1/AROL=0.0
+!CARBOP/ARO=0.0
!
-!ORA1/AROO=0.0
+!CARBOP/HCHO=0.0
!
-!ORA1/ARAL=0.0
+!CARBOP/ALD=+1.00000*K063*<OH>+1.00000*K073*<NO3>
+ PJAC(:,39,23)=+1.00000*TPK%K063(:)*PCONC(:,14)+1.00000*TPK%K073(:)*PCONC(:,5)
!
-!ORA1/ARAC=0.0
+!CARBOP/KET=+1.00000*K015+1.00000*K064*<OH>
+ PJAC(:,39,24)=+1.00000*TPK%K015(:)+1.00000*TPK%K064(:)*PCONC(:,14)
!
-!ORA1/PAH=0.0
+!CARBOP/CARBO=+0.69622*K016+0.51419*K065*<OH>+0.38881*K074*<NO3>+0.27460*K081*<
+!O3>
+ PJAC(:,39,25)=+0.69622*TPK%K016(:)+0.51419*TPK%K065(:)*PCONC(:,14)+0.38881*TPK&
+&%K074(:)*PCONC(:,5)+0.27460*TPK%K081(:)*PCONC(:,1)
!
-!ORA1/HCHO=0.0
+!CARBOP/ONIT=0.0
!
-!ORA1/ALD2=0.0
+!CARBOP/PAN=+0.70000*K082*<O3>+1.00000*K089
+ PJAC(:,39,27)=+0.70000*TPK%K082(:)*PCONC(:,1)+1.00000*TPK%K089(:)
!
-!ORA1/KETL=0.0
+!CARBOP/OP1=0.0
!
-!ORA1/KETH=0.0
+!CARBOP/OP2=+0.05413*K069*<OH>
+ PJAC(:,39,29)=+0.05413*TPK%K069(:)*PCONC(:,14)
!
-!ORA1/MEOH=0.0
+!CARBOP/ORA1=0.0
!
-!ORA1/ETOH=0.0
+!CARBOP/ORA2=0.0
!
-!ORA1/ALCH=0.0
+!CARBOP/MO2=+0.05954*K109*<CARBOP>-K109*<CARBOP>
+ PJAC(:,39,32)=+0.05954*TPK%K109(:)*PCONC(:,39)-TPK%K109(:)*PCONC(:,39)
!
-!ORA1/ISOP=+0.121*K066*<O3>
- PJAC(:,43,35)=+0.121*TPK%K066(:)*PCONC(:,3)
+!CARBOP/ALKAP=-K111*<CARBOP>
+ PJAC(:,39,33)=-TPK%K111(:)*PCONC(:,39)
!
-!ORA1/BIOL=0.0
+!CARBOP/ALKEP=-K112*<CARBOP>
+ PJAC(:,39,34)=-TPK%K112(:)*PCONC(:,39)
!
-!ORA1/BIOH=0.0
+!CARBOP/BIOP=-K113*<CARBOP>
+ PJAC(:,39,35)=-TPK%K113(:)*PCONC(:,39)
!
-!ORA1/MTBE=0.0
+!CARBOP/PHO=0.0
!
-!ORA1/MVK=+0.12*K281*<O3>
- PJAC(:,43,39)=+0.12*TPK%K281(:)*PCONC(:,3)
+!CARBOP/ADD=0.0
!
-!ORA1/MCR=+0.09*K282*<O3>
- PJAC(:,43,40)=+0.09*TPK%K282(:)*PCONC(:,3)
+!CARBOP/AROP=-K114*<CARBOP>
+ PJAC(:,39,38)=-TPK%K114(:)*PCONC(:,39)
!
-!ORA1/MGLY=0.0
+!CARBOP/CARBOP=-K088*<NO2>+0.09532*K095*<NO>-K095*<NO>-K0102*<HO2>+0.05954*K109
+!*<MO2>-K109*<MO2>-K111*<ALKAP>-K112*<ALKEP>-K113*<BIOP>-K114*<AROP>+0.05821*K1
+!15*<CARBOP>+0.05821*K115*<CARBOP>-K115*<CARBOP>-K115*<CARBOP>-K115*<CARBOP>-K1
+!15*<CARBOP>-K116*<OLN>+0.03175*K124*<NO3>-K124*<NO3>-K128*<XO2>
+ PJAC(:,39,39)=-TPK%K088(:)*PCONC(:,4)+0.09532*TPK%K095(:)*PCONC(:,3)-TPK%K095(&
+&:)*PCONC(:,3)-TPK%K0102(:)*PCONC(:,15)+0.05954*TPK%K109(:)*PCONC(:,32)-TPK%K10&
+&9(:)*PCONC(:,32)-TPK%K111(:)*PCONC(:,33)-TPK%K112(:)*PCONC(:,34)-TPK%K113(:)*P&
+&CONC(:,35)-TPK%K114(:)*PCONC(:,38)+0.05821*TPK%K115(:)*PCONC(:,39)+0.05821*TPK&
+&%K115(:)*PCONC(:,39)-TPK%K115(:)*PCONC(:,39)-TPK%K115(:)*PCONC(:,39)-TPK%K115(&
+&:)*PCONC(:,39)-TPK%K115(:)*PCONC(:,39)-TPK%K116(:)*PCONC(:,40)+0.03175*TPK%K12&
+&4(:)*PCONC(:,5)-TPK%K124(:)*PCONC(:,5)-TPK%K128(:)*PCONC(:,41)
!
-!ORA1/GLY=0.0
+!CARBOP/OLN=-K116*<CARBOP>
+ PJAC(:,39,40)=-TPK%K116(:)*PCONC(:,39)
!
-!ORA1/ORA1=-K347*<OH>
- PJAC(:,43,43)=-TPK%K347(:)*PCONC(:,15)
+!CARBOP/XO2=-K128*<CARBOP>
+ PJAC(:,39,41)=-TPK%K128(:)*PCONC(:,39)
!
-!ORA1/ORA2=0.0
+!CARBOP/WC_O3=0.0
!
-!ORA1/ACID=0.0
+!CARBOP/WC_H2O2=0.0
!
-!ORA1/UR28=0.0
+!CARBOP/WC_NO=0.0
!
-!ORA1/UR21=0.0
+!CARBOP/WC_NO2=0.0
!
-!ORA1/URG2=0.0
+!CARBOP/WC_NO3=0.0
!
-!ORA1/UR26=0.0
+!CARBOP/WC_N2O5=0.0
!
-!ORA1/RPG2=0.0
+!CARBOP/WC_HONO=0.0
!
-!ORA1/RP18=0.0
+!CARBOP/WC_HNO3=0.0
!
-!ORA1/RPG3=0.0
+!CARBOP/WC_HNO4=0.0
!
-!ORA1/URG4=0.0
+!CARBOP/WC_NH3=0.0
!
-!ORA1/UR8=0.0
+!CARBOP/WC_OH=0.0
!
-!ORA1/UR17=0.0
+!CARBOP/WC_HO2=0.0
!
-!ORA1/UR7=0.0
+!CARBOP/WC_CO2=0.0
!
-!ORA1/RPR3=0.0
+!CARBOP/WC_SO2=0.0
!
-!ORA1/URG6=0.0
+!CARBOP/WC_SULF=0.0
!
-!ORA1/UR22=0.0
+!CARBOP/WC_HCHO=0.0
!
-!ORA1/URG7=0.0
+!CARBOP/WC_ORA1=0.0
!
-!ORA1/RPR4=0.0
+!CARBOP/WC_ORA2=0.0
!
-!ORA1/RPR7=0.0
+!CARBOP/WC_MO2=0.0
!
-!ORA1/RPG7=0.0
+!CARBOP/WC_OP1=0.0
!
-!ORA1/URG8=0.0
+!CARBOP/WC_ASO3=0.0
!
-!ORA1/UR19=0.0
+!CARBOP/WC_ASO4=0.0
!
-!ORA1/URG9=0.0
+!CARBOP/WC_ASO5=0.0
!
-!ORA1/AP7=0.0
+!CARBOP/WC_AHSO5=0.0
!
-!ORA1/URG10=0.0
+!CARBOP/WC_AHMS=0.0
!
-!ORA1/RPR1=0.0
+!CARBOP/WR_O3=0.0
!
-!ORA1/RPR5=0.0
+!CARBOP/WR_H2O2=0.0
!
-!ORA1/RPR8=0.0
+!CARBOP/WR_NO=0.0
!
-!ORA1/RP10=0.0
+!CARBOP/WR_NO2=0.0
!
-!ORA1/RP11=0.0
+!CARBOP/WR_NO3=0.0
!
-!ORA1/RP16=0.0
+!CARBOP/WR_N2O5=0.0
!
-!ORA1/RPRL=0.0
+!CARBOP/WR_HONO=0.0
!
-!ORA1/APAN=0.0
+!CARBOP/WR_HNO3=0.0
!
-!ORA1/PAN1=0.0
+!CARBOP/WR_HNO4=0.0
!
-!ORA1/PAN2=0.0
+!CARBOP/WR_NH3=0.0
!
-!ORA1/PAN3=0.0
+!CARBOP/WR_OH=0.0
!
-!ORA1/PAN4=0.0
+!CARBOP/WR_HO2=0.0
!
-!ORA1/PAN6=0.0
+!CARBOP/WR_CO2=0.0
!
-!ORA1/PAN7=0.0
+!CARBOP/WR_SO2=0.0
!
-!ORA1/PAN8=0.0
+!CARBOP/WR_SULF=0.0
!
-!ORA1/PN10=0.0
+!CARBOP/WR_HCHO=0.0
!
-!ORA1/RO2T=0.0
+!CARBOP/WR_ORA1=0.0
!
-!ORA1/RO21=0.0
+!CARBOP/WR_ORA2=0.0
!
-!ORA1/RO25=0.0
+!CARBOP/WR_MO2=0.0
!
-!ORA2/NO=0.0
+!CARBOP/WR_OP1=0.0
!
-!ORA2/NO2=0.0
+!CARBOP/WR_ASO3=0.0
!
-!ORA2/O3=+0.12*K056*<OLEL>
- PJAC(:,44,3)=+0.12*TPK%K056(:)*PCONC(:,17)
+!CARBOP/WR_ASO4=0.0
!
-!ORA2/HONO=0.0
+!CARBOP/WR_ASO5=0.0
!
-!ORA2/HNO3=0.0
+!CARBOP/WR_AHSO5=0.0
!
-!ORA2/HNO4=0.0
+!CARBOP/WR_AHMS=0.0
!
-!ORA2/N2O5=0.0
+!OLN/O3=0.0
!
-!ORA2/NO3=0.0
+!OLN/H2O2=0.0
!
-!ORA2/NH3=0.0
+!OLN/NO=-K096*<OLN>
+ PJAC(:,40,3)=-TPK%K096(:)*PCONC(:,40)
!
-!ORA2/HO2=+K142*<RO26>+K148*<RO28>+0.5*K166*<RO239>+0.5*K289*<RO250>
- PJAC(:,44,10)=+TPK%K142(:)*TPK%RO26(:)+TPK%K148(:)*TPK%RO28(:)+0.5*TPK%K166(:)&
-&*TPK%RO239(:)+0.5*TPK%K289(:)*TPK%RO250(:)
+!OLN/NO2=0.0
!
-!ORA2/CO=0.0
+!OLN/NO3=+0.00000*K074*<CARBO>+0.93768*K076*<ALKE>+1.00000*K077*<BIO>-K125*<OLN
+!>
+ PJAC(:,40,5)=+0.00000*TPK%K074(:)*PCONC(:,25)+0.93768*TPK%K076(:)*PCONC(:,19)+&
+&1.00000*TPK%K077(:)*PCONC(:,20)-TPK%K125(:)*PCONC(:,40)
!
-!ORA2/H2O2=0.0
+!OLN/N2O5=0.0
!
-!ORA2/SO2=0.0
+!OLN/HONO=0.0
!
-!ORA2/H2SO4=0.0
+!OLN/HNO3=0.0
!
-!ORA2/OH=-K348*<ORA2>
- PJAC(:,44,15)=-TPK%K348(:)*PCONC(:,44)
+!OLN/HNO4=0.0
!
-!ORA2/ETHE=0.0
+!OLN/NH3=0.0
!
-!ORA2/OLEL=+0.12*K056*<O3>
- PJAC(:,44,17)=+0.12*TPK%K056(:)*PCONC(:,3)
+!OLN/SO2=0.0
!
-!ORA2/OLEH=0.0
+!OLN/SULF=0.0
!
-!ORA2/ALKL=0.0
+!OLN/CO=0.0
!
-!ORA2/ALKM=0.0
+!OLN/OH=0.0
!
-!ORA2/ALKH=0.0
+!OLN/HO2=-K103*<OLN>
+ PJAC(:,40,15)=-TPK%K103(:)*PCONC(:,40)
!
-!ORA2/AROH=0.0
+!OLN/CH4=0.0
!
-!ORA2/AROL=0.0
+!OLN/ETH=0.0
!
-!ORA2/AROO=0.0
+!OLN/ALKA=0.0
!
-!ORA2/ARAL=0.0
+!OLN/ALKE=+0.93768*K076*<NO3>
+ PJAC(:,40,19)=+0.93768*TPK%K076(:)*PCONC(:,5)
!
-!ORA2/ARAC=0.0
+!OLN/BIO=+1.00000*K077*<NO3>
+ PJAC(:,40,20)=+1.00000*TPK%K077(:)*PCONC(:,5)
!
-!ORA2/PAH=0.0
+!OLN/ARO=0.0
!
-!ORA2/HCHO=0.0
+!OLN/HCHO=0.0
!
-!ORA2/ALD2=0.0
+!OLN/ALD=0.0
!
-!ORA2/KETL=0.0
+!OLN/KET=0.0
!
-!ORA2/KETH=0.0
+!OLN/CARBO=+0.00000*K074*<NO3>
+ PJAC(:,40,25)=+0.00000*TPK%K074(:)*PCONC(:,5)
!
-!ORA2/MEOH=0.0
+!OLN/ONIT=0.0
!
-!ORA2/ETOH=0.0
+!OLN/PAN=0.0
!
-!ORA2/ALCH=0.0
+!OLN/OP1=0.0
!
-!ORA2/ISOP=0.0
+!OLN/OP2=0.0
!
-!ORA2/BIOL=0.0
+!OLN/ORA1=0.0
!
-!ORA2/BIOH=0.0
+!OLN/ORA2=0.0
!
-!ORA2/MTBE=0.0
+!OLN/MO2=-K110*<OLN>
+ PJAC(:,40,32)=-TPK%K110(:)*PCONC(:,40)
!
-!ORA2/MVK=0.0
+!OLN/ALKAP=0.0
!
-!ORA2/MCR=0.0
+!OLN/ALKEP=0.0
!
-!ORA2/MGLY=0.0
+!OLN/BIOP=0.0
!
-!ORA2/GLY=0.0
+!OLN/PHO=0.0
!
-!ORA2/ORA1=0.0
+!OLN/ADD=0.0
!
-!ORA2/ORA2=-K348*<OH>
- PJAC(:,44,44)=-TPK%K348(:)*PCONC(:,15)
+!OLN/AROP=0.0
!
-!ORA2/ACID=0.0
+!OLN/CARBOP=-K116*<OLN>
+ PJAC(:,40,39)=-TPK%K116(:)*PCONC(:,40)
!
-!ORA2/UR28=0.0
+!OLN/OLN=-K096*<NO>-K103*<HO2>-K110*<MO2>-K116*<CARBOP>-K117*<OLN>-K117*<OLN>-K
+!117*<OLN>-K117*<OLN>-K118*<OLN>-K118*<OLN>-K118*<OLN>-K118*<OLN>-K125*<NO3>
+ PJAC(:,40,40)=-TPK%K096(:)*PCONC(:,3)-TPK%K103(:)*PCONC(:,15)-TPK%K110(:)*PCON&
+&C(:,32)-TPK%K116(:)*PCONC(:,39)-TPK%K117(:)*PCONC(:,40)-TPK%K117(:)*PCONC(:,40&
+&)-TPK%K117(:)*PCONC(:,40)-TPK%K117(:)*PCONC(:,40)-TPK%K118(:)*PCONC(:,40)-TPK%&
+&K118(:)*PCONC(:,40)-TPK%K118(:)*PCONC(:,40)-TPK%K118(:)*PCONC(:,40)-TPK%K125(:&
+&)*PCONC(:,5)
!
-!ORA2/UR21=0.0
+!OLN/XO2=0.0
!
-!ORA2/URG2=0.0
+!OLN/WC_O3=0.0
!
-!ORA2/UR26=0.0
+!OLN/WC_H2O2=0.0
!
-!ORA2/RPG2=0.0
+!OLN/WC_NO=0.0
!
-!ORA2/RP18=0.0
+!OLN/WC_NO2=0.0
!
-!ORA2/RPG3=0.0
+!OLN/WC_NO3=0.0
!
-!ORA2/URG4=0.0
+!OLN/WC_N2O5=0.0
!
-!ORA2/UR8=0.0
+!OLN/WC_HONO=0.0
!
-!ORA2/UR17=0.0
+!OLN/WC_HNO3=0.0
!
-!ORA2/UR7=0.0
+!OLN/WC_HNO4=0.0
!
-!ORA2/RPR3=0.0
+!OLN/WC_NH3=0.0
!
-!ORA2/URG6=0.0
+!OLN/WC_OH=0.0
!
-!ORA2/UR22=0.0
+!OLN/WC_HO2=0.0
!
-!ORA2/URG7=0.0
+!OLN/WC_CO2=0.0
!
-!ORA2/RPR4=0.0
+!OLN/WC_SO2=0.0
!
-!ORA2/RPR7=0.0
+!OLN/WC_SULF=0.0
!
-!ORA2/RPG7=0.0
+!OLN/WC_HCHO=0.0
!
-!ORA2/URG8=0.0
+!OLN/WC_ORA1=0.0
!
-!ORA2/UR19=0.0
+!OLN/WC_ORA2=0.0
!
-!ORA2/URG9=0.0
+!OLN/WC_MO2=0.0
!
-!ORA2/AP7=0.0
+!OLN/WC_OP1=0.0
!
-!ORA2/URG10=0.0
+!OLN/WC_ASO3=0.0
!
-!ORA2/RPR1=0.0
+!OLN/WC_ASO4=0.0
!
-!ORA2/RPR5=0.0
+!OLN/WC_ASO5=0.0
!
-!ORA2/RPR8=0.0
+!OLN/WC_AHSO5=0.0
!
-!ORA2/RP10=0.0
+!OLN/WC_AHMS=0.0
!
-!ORA2/RP11=0.0
+!OLN/WR_O3=0.0
!
-!ORA2/RP16=0.0
+!OLN/WR_H2O2=0.0
!
-!ORA2/RPRL=0.0
+!OLN/WR_NO=0.0
!
-!ORA2/APAN=0.0
+!OLN/WR_NO2=0.0
!
-!ORA2/PAN1=0.0
+!OLN/WR_NO3=0.0
!
-!ORA2/PAN2=0.0
+!OLN/WR_N2O5=0.0
!
-!ORA2/PAN3=0.0
+!OLN/WR_HONO=0.0
!
-!ORA2/PAN4=0.0
+!OLN/WR_HNO3=0.0
!
-!ORA2/PAN6=0.0
+!OLN/WR_HNO4=0.0
!
-!ORA2/PAN7=0.0
+!OLN/WR_NH3=0.0
!
-!ORA2/PAN8=0.0
+!OLN/WR_OH=0.0
!
-!ORA2/PN10=0.0
+!OLN/WR_HO2=0.0
!
-!ORA2/RO2T=0.0
+!OLN/WR_CO2=0.0
!
-!ORA2/RO21=0.0
+!OLN/WR_SO2=0.0
!
-!ORA2/RO25=0.0
+!OLN/WR_SULF=0.0
!
-!ACID/NO=0.0
+!OLN/WR_HCHO=0.0
!
-!ACID/NO2=0.0
+!OLN/WR_ORA1=0.0
!
-!ACID/O3=+0.12*K076*<OLEH>
- PJAC(:,45,3)=+0.12*TPK%K076(:)*PCONC(:,18)
+!OLN/WR_ORA2=0.0
!
-!ACID/HONO=0.0
+!OLN/WR_MO2=0.0
!
-!ACID/HNO3=0.0
+!OLN/WR_OP1=0.0
!
-!ACID/HNO4=0.0
+!OLN/WR_ASO3=0.0
!
-!ACID/N2O5=0.0
+!OLN/WR_ASO4=0.0
!
-!ACID/NO3=0.0
+!OLN/WR_ASO5=0.0
!
-!ACID/NH3=0.0
+!OLN/WR_AHSO5=0.0
!
-!ACID/HO2=+K142*<RO26>+K310*<RO255>
- PJAC(:,45,10)=+TPK%K142(:)*TPK%RO26(:)+TPK%K310(:)*TPK%RO255(:)
+!OLN/WR_AHMS=0.0
!
-!ACID/CO=0.0
+RETURN
+END SUBROUTINE SUBJ7
!
-!ACID/H2O2=0.0
+SUBROUTINE SUBJ8
!
-!ACID/SO2=0.0
+!Indices 41 a 45
!
-!ACID/H2SO4=0.0
!
-!ACID/OH=-K349*<ACID>
- PJAC(:,45,15)=-TPK%K349(:)*PCONC(:,45)
+!XO2/O3=+0.00000*K079*<ALKE>+0.13000*K080*<BIO>
+ PJAC(:,41,1)=+0.00000*TPK%K079(:)*PCONC(:,19)+0.13000*TPK%K080(:)*PCONC(:,20)
!
-!ACID/ETHE=0.0
+!XO2/H2O2=0.0
!
-!ACID/OLEL=0.0
+!XO2/NO=+0.13007*K091*<ALKAP>+0.02563*K095*<CARBOP>-K130*<XO2>
+ PJAC(:,41,3)=+0.13007*TPK%K091(:)*PCONC(:,33)+0.02563*TPK%K095(:)*PCONC(:,39)-&
+&TPK%K130(:)*PCONC(:,41)
!
-!ACID/OLEH=+0.12*K076*<O3>
- PJAC(:,45,18)=+0.12*TPK%K076(:)*PCONC(:,3)
+!XO2/NO2=0.0
!
-!ACID/ALKL=0.0
+!XO2/NO3=+0.10530*K074*<CARBO>+K078*<PAN>+0.16271*K120*<ALKAP>+0.01021*K124*<CA
+!RBOP>-K131*<XO2>
+ PJAC(:,41,5)=+0.10530*TPK%K074(:)*PCONC(:,25)+TPK%K078(:)*PCONC(:,27)+0.16271*&
+&TPK%K120(:)*PCONC(:,33)+0.01021*TPK%K124(:)*PCONC(:,39)-TPK%K131(:)*PCONC(:,41&
+&)
!
-!ACID/ALKM=0.0
+!XO2/N2O5=0.0
!
-!ACID/ALKH=0.0
+!XO2/HONO=0.0
!
-!ACID/AROH=0.0
+!XO2/HNO3=0.0
!
-!ACID/AROL=0.0
+!XO2/HNO4=0.0
!
-!ACID/AROO=0.0
+!XO2/NH3=0.0
!
-!ACID/ARAL=0.0
+!XO2/SO2=0.0
!
-!ACID/ARAC=0.0
+!XO2/SULF=0.0
!
-!ACID/PAH=0.0
+!XO2/CO=0.0
!
-!ACID/HCHO=0.0
+!XO2/OH=+0.10318*K061*<ARO>+0.10162*K065*<CARBO>+0.09333*K069*<OP2>+K070*<PAN>
+ PJAC(:,41,14)=+0.10318*TPK%K061(:)*PCONC(:,21)+0.10162*TPK%K065(:)*PCONC(:,25)&
+&+0.09333*TPK%K069(:)*PCONC(:,29)+TPK%K070(:)*PCONC(:,27)
!
-!ACID/ALD2=0.0
+!XO2/HO2=-K126*<XO2>
+ PJAC(:,41,15)=-TPK%K126(:)*PCONC(:,41)
!
-!ACID/KETL=0.0
+!XO2/CH4=0.0
!
-!ACID/KETH=0.0
+!XO2/ETH=0.0
!
-!ACID/MEOH=0.0
+!XO2/ALKA=0.0
!
-!ACID/ETOH=0.0
+!XO2/ALKE=+0.00000*K079*<O3>
+ PJAC(:,41,19)=+0.00000*TPK%K079(:)*PCONC(:,1)
!
-!ACID/ALCH=0.0
+!XO2/BIO=+0.15*K054*<O3P>+0.13000*K080*<O3>
+ PJAC(:,41,20)=+0.15*TPK%K054(:)*TPK%O3P(:)+0.13000*TPK%K080(:)*PCONC(:,1)
!
-!ACID/ISOP=0.0
+!XO2/ARO=+0.10318*K061*<OH>
+ PJAC(:,41,21)=+0.10318*TPK%K061(:)*PCONC(:,14)
!
-!ACID/BIOL=0.0
+!XO2/HCHO=0.0
!
-!ACID/BIOH=0.0
+!XO2/ALD=0.0
!
-!ACID/MTBE=0.0
+!XO2/KET=0.0
!
-!ACID/MVK=0.0
+!XO2/CARBO=+0.10162*K065*<OH>+0.10530*K074*<NO3>
+ PJAC(:,41,25)=+0.10162*TPK%K065(:)*PCONC(:,14)+0.10530*TPK%K074(:)*PCONC(:,5)
!
-!ACID/MCR=0.0
+!XO2/ONIT=0.0
!
-!ACID/MGLY=0.0
+!XO2/PAN=+K070*<OH>+K078*<NO3>
+ PJAC(:,41,27)=+TPK%K070(:)*PCONC(:,14)+TPK%K078(:)*PCONC(:,5)
!
-!ACID/GLY=0.0
+!XO2/OP1=0.0
!
-!ACID/ORA1=0.0
+!XO2/OP2=+0.09333*K069*<OH>
+ PJAC(:,41,29)=+0.09333*TPK%K069(:)*PCONC(:,14)
!
-!ACID/ORA2=0.0
+!XO2/ORA1=0.0
!
-!ACID/ACID=-K349*<OH>
- PJAC(:,45,45)=-TPK%K349(:)*PCONC(:,15)
+!XO2/ORA2=0.0
!
-!ACID/UR28=0.0
+!XO2/MO2=+0.13370*K105*<ALKAP>+0.02212*K109*<CARBOP>-K127*<XO2>
+ PJAC(:,41,32)=+0.13370*TPK%K105(:)*PCONC(:,33)+0.02212*TPK%K109(:)*PCONC(:,39)&
+&-TPK%K127(:)*PCONC(:,41)
!
-!ACID/UR21=0.0
+!XO2/ALKAP=+0.13007*K091*<NO>+0.13370*K105*<MO2>+0.11306*K111*<CARBOP>+0.16271*
+!K120*<NO3>
+ PJAC(:,41,33)=+0.13007*TPK%K091(:)*PCONC(:,3)+0.13370*TPK%K105(:)*PCONC(:,32)+&
+&0.11306*TPK%K111(:)*PCONC(:,39)+0.16271*TPK%K120(:)*PCONC(:,5)
!
-!ACID/URG2=0.0
+!XO2/ALKEP=0.0
!
-!ACID/UR26=0.0
+!XO2/BIOP=0.0
!
-!ACID/RPG2=0.0
+!XO2/PHO=0.0
!
-!ACID/RP18=0.0
+!XO2/ADD=0.0
!
-!ACID/RPG3=0.0
+!XO2/AROP=0.0
!
-!ACID/URG4=0.0
+!XO2/CARBOP=+0.02563*K095*<NO>+0.02212*K109*<MO2>+0.11306*K111*<ALKAP>+0.01593*
+!K115*<CARBOP>+0.01593*K115*<CARBOP>+0.01021*K124*<NO3>-K128*<XO2>
+ PJAC(:,41,39)=+0.02563*TPK%K095(:)*PCONC(:,3)+0.02212*TPK%K109(:)*PCONC(:,32)+&
+&0.11306*TPK%K111(:)*PCONC(:,33)+0.01593*TPK%K115(:)*PCONC(:,39)+0.01593*TPK%K1&
+&15(:)*PCONC(:,39)+0.01021*TPK%K124(:)*PCONC(:,5)-TPK%K128(:)*PCONC(:,41)
!
-!ACID/UR8=0.0
+!XO2/OLN=0.0
!
-!ACID/UR17=0.0
+!XO2/XO2=-K126*<HO2>-K127*<MO2>-K128*<CARBOP>-K129*<XO2>-K129*<XO2>-K129*<XO2>-
+!K129*<XO2>-K130*<NO>-K131*<NO3>
+ PJAC(:,41,41)=-TPK%K126(:)*PCONC(:,15)-TPK%K127(:)*PCONC(:,32)-TPK%K128(:)*PCO&
+&NC(:,39)-TPK%K129(:)*PCONC(:,41)-TPK%K129(:)*PCONC(:,41)-TPK%K129(:)*PCONC(:,4&
+&1)-TPK%K129(:)*PCONC(:,41)-TPK%K130(:)*PCONC(:,3)-TPK%K131(:)*PCONC(:,5)
!
-!ACID/UR7=0.0
+!XO2/WC_O3=0.0
!
-!ACID/RPR3=0.0
+!XO2/WC_H2O2=0.0
!
-!ACID/URG6=0.0
+!XO2/WC_NO=0.0
!
-!ACID/UR22=0.0
+!XO2/WC_NO2=0.0
!
-!ACID/URG7=0.0
+!XO2/WC_NO3=0.0
!
-!ACID/RPR4=0.0
+!XO2/WC_N2O5=0.0
!
-!ACID/RPR7=0.0
+!XO2/WC_HONO=0.0
!
-!ACID/RPG7=0.0
+!XO2/WC_HNO3=0.0
!
-!ACID/URG8=0.0
+!XO2/WC_HNO4=0.0
!
-!ACID/UR19=0.0
+!XO2/WC_NH3=0.0
!
-!ACID/URG9=0.0
+!XO2/WC_OH=0.0
!
-!ACID/AP7=0.0
+!XO2/WC_HO2=0.0
!
-!ACID/URG10=0.0
+!XO2/WC_CO2=0.0
!
-!ACID/RPR1=0.0
+!XO2/WC_SO2=0.0
!
-!ACID/RPR5=0.0
+!XO2/WC_SULF=0.0
!
-!ACID/RPR8=0.0
+!XO2/WC_HCHO=0.0
!
-!ACID/RP10=0.0
+!XO2/WC_ORA1=0.0
!
-!ACID/RP11=0.0
+!XO2/WC_ORA2=0.0
!
-!ACID/RP16=0.0
+!XO2/WC_MO2=0.0
!
-!ACID/RPRL=0.0
+!XO2/WC_OP1=0.0
!
-!ACID/APAN=0.0
+!XO2/WC_ASO3=0.0
!
-!ACID/PAN1=0.0
+!XO2/WC_ASO4=0.0
!
-!ACID/PAN2=0.0
+!XO2/WC_ASO5=0.0
!
-!ACID/PAN3=0.0
+!XO2/WC_AHSO5=0.0
!
-!ACID/PAN4=0.0
+!XO2/WC_AHMS=0.0
!
-!ACID/PAN6=0.0
+!XO2/WR_O3=0.0
!
-!ACID/PAN7=0.0
+!XO2/WR_H2O2=0.0
!
-!ACID/PAN8=0.0
+!XO2/WR_NO=0.0
!
-!ACID/PN10=0.0
+!XO2/WR_NO2=0.0
!
-!ACID/RO2T=0.0
+!XO2/WR_NO3=0.0
!
-!ACID/RO21=0.0
+!XO2/WR_N2O5=0.0
!
-!ACID/RO25=0.0
+!XO2/WR_HONO=0.0
!
-RETURN
-END SUBROUTINE SUBJ8
+!XO2/WR_HNO3=0.0
!
-SUBROUTINE SUBJ9
+!XO2/WR_HNO4=0.0
!
-!Indices 46 a 50
+!XO2/WR_NH3=0.0
!
+!XO2/WR_OH=0.0
!
-!UR28/NO=0.0
+!XO2/WR_HO2=0.0
!
-!UR28/NO2=0.0
+!XO2/WR_CO2=0.0
!
-!UR28/O3=0.0
+!XO2/WR_SO2=0.0
!
-!UR28/HONO=0.0
+!XO2/WR_SULF=0.0
!
-!UR28/HNO3=0.0
+!XO2/WR_HCHO=0.0
!
-!UR28/HNO4=0.0
+!XO2/WR_ORA1=0.0
!
-!UR28/N2O5=0.0
+!XO2/WR_ORA2=0.0
!
-!UR28/NO3=0.0
+!XO2/WR_MO2=0.0
!
-!UR28/NH3=0.0
+!XO2/WR_OP1=0.0
!
-!UR28/HO2=+K341*<RO258>
- PJAC(:,46,10)=+TPK%K341(:)*TPK%RO258(:)
+!XO2/WR_ASO3=0.0
!
-!UR28/CO=0.0
+!XO2/WR_ASO4=0.0
!
-!UR28/H2O2=0.0
+!XO2/WR_ASO5=0.0
!
-!UR28/SO2=0.0
+!XO2/WR_AHSO5=0.0
!
-!UR28/H2SO4=0.0
+!XO2/WR_AHMS=0.0
!
-!UR28/OH=0.0
+!WC_O3/O3=+KTC1
+ PJAC(:,42,1)=+TPK%KTC1(:)
!
-!UR28/ETHE=0.0
+!WC_O3/H2O2=0.0
!
-!UR28/OLEL=0.0
+!WC_O3/NO=0.0
!
-!UR28/OLEH=0.0
+!WC_O3/NO2=0.0
!
-!UR28/ALKL=0.0
+!WC_O3/NO3=0.0
!
-!UR28/ALKM=0.0
+!WC_O3/N2O5=0.0
!
-!UR28/ALKH=0.0
+!WC_O3/HONO=0.0
!
-!UR28/AROH=0.0
+!WC_O3/HNO3=0.0
!
-!UR28/AROL=0.0
+!WC_O3/HNO4=0.0
!
-!UR28/AROO=0.0
+!WC_O3/NH3=0.0
!
-!UR28/ARAL=0.0
+!WC_O3/SO2=0.0
!
-!UR28/ARAC=0.0
+!WC_O3/SULF=0.0
!
-!UR28/PAH=0.0
+!WC_O3/CO=0.0
!
-!UR28/HCHO=0.0
+!WC_O3/OH=0.0
!
-!UR28/ALD2=0.0
+!WC_O3/HO2=0.0
!
-!UR28/KETL=0.0
+!WC_O3/CH4=0.0
!
-!UR28/KETH=0.0
+!WC_O3/ETH=0.0
!
-!UR28/MEOH=0.0
+!WC_O3/ALKA=0.0
!
-!UR28/ETOH=0.0
+!WC_O3/ALKE=0.0
!
-!UR28/ALCH=0.0
+!WC_O3/BIO=0.0
!
-!UR28/ISOP=0.0
+!WC_O3/ARO=0.0
!
-!UR28/BIOL=0.0
+!WC_O3/HCHO=0.0
!
-!UR28/BIOH=0.0
+!WC_O3/ALD=0.0
!
-!UR28/MTBE=0.0
+!WC_O3/KET=0.0
!
-!UR28/MVK=0.0
+!WC_O3/CARBO=0.0
!
-!UR28/MCR=0.0
+!WC_O3/ONIT=0.0
!
-!UR28/MGLY=0.0
+!WC_O3/PAN=0.0
!
-!UR28/GLY=0.0
+!WC_O3/OP1=0.0
!
-!UR28/ORA1=0.0
+!WC_O3/OP2=0.0
!
-!UR28/ORA2=0.0
+!WC_O3/ORA1=0.0
!
-!UR28/ACID=0.0
+!WC_O3/ORA2=0.0
!
-!UR28/UR28=-K364
- PJAC(:,46,46)=-TPK%K364(:)
+!WC_O3/MO2=0.0
!
-!UR28/UR21=0.0
+!WC_O3/ALKAP=0.0
!
-!UR28/URG2=0.0
+!WC_O3/ALKEP=0.0
!
-!UR28/UR26=0.0
+!WC_O3/BIOP=0.0
!
-!UR28/RPG2=0.0
+!WC_O3/PHO=0.0
!
-!UR28/RP18=0.0
+!WC_O3/ADD=0.0
!
-!UR28/RPG3=0.0
+!WC_O3/AROP=0.0
!
-!UR28/URG4=0.0
+!WC_O3/CARBOP=0.0
!
-!UR28/UR8=0.0
+!WC_O3/OLN=0.0
!
-!UR28/UR17=0.0
+!WC_O3/XO2=0.0
!
-!UR28/UR7=0.0
+!WC_O3/WC_O3=-KTC21-KC6*<WC_HO2>-KC29*<WC_SO2>
+ PJAC(:,42,42)=-TPK%KTC21(:)-TPK%KC6(:)*PCONC(:,53)-TPK%KC29(:)*PCONC(:,55)
!
-!UR28/RPR3=0.0
+!WC_O3/WC_H2O2=0.0
!
-!UR28/URG6=0.0
+!WC_O3/WC_NO=0.0
!
-!UR28/UR22=0.0
+!WC_O3/WC_NO2=0.0
!
-!UR28/URG7=0.0
+!WC_O3/WC_NO3=0.0
!
-!UR28/RPR4=0.0
+!WC_O3/WC_N2O5=0.0
!
-!UR28/RPR7=0.0
+!WC_O3/WC_HONO=0.0
!
-!UR28/RPG7=0.0
+!WC_O3/WC_HNO3=0.0
!
-!UR28/URG8=0.0
+!WC_O3/WC_HNO4=0.0
!
-!UR28/UR19=0.0
+!WC_O3/WC_NH3=0.0
!
-!UR28/URG9=0.0
+!WC_O3/WC_OH=0.0
!
-!UR28/AP7=0.0
+!WC_O3/WC_HO2=-KC6*<WC_O3>
+ PJAC(:,42,53)=-TPK%KC6(:)*PCONC(:,42)
!
-!UR28/URG10=0.0
+!WC_O3/WC_CO2=0.0
!
-!UR28/RPR1=0.0
+!WC_O3/WC_SO2=-KC29*<WC_O3>
+ PJAC(:,42,55)=-TPK%KC29(:)*PCONC(:,42)
!
-!UR28/RPR5=0.0
+!WC_O3/WC_SULF=0.0
!
-!UR28/RPR8=0.0
+!WC_O3/WC_HCHO=0.0
!
-!UR28/RP10=0.0
+!WC_O3/WC_ORA1=0.0
!
-!UR28/RP11=0.0
+!WC_O3/WC_ORA2=0.0
!
-!UR28/RP16=0.0
+!WC_O3/WC_MO2=0.0
!
-!UR28/RPRL=0.0
+!WC_O3/WC_OP1=0.0
!
-!UR28/APAN=0.0
+!WC_O3/WC_ASO3=0.0
!
-!UR28/PAN1=0.0
+!WC_O3/WC_ASO4=0.0
!
-!UR28/PAN2=0.0
+!WC_O3/WC_ASO5=0.0
!
-!UR28/PAN3=0.0
+!WC_O3/WC_AHSO5=0.0
!
-!UR28/PAN4=0.0
+!WC_O3/WC_AHMS=0.0
!
-!UR28/PAN6=0.0
+!WC_O3/WR_O3=0.0
!
-!UR28/PAN7=0.0
+!WC_O3/WR_H2O2=0.0
!
-!UR28/PAN8=0.0
+!WC_O3/WR_NO=0.0
!
-!UR28/PN10=0.0
+!WC_O3/WR_NO2=0.0
!
-!UR28/RO2T=0.0
+!WC_O3/WR_NO3=0.0
!
-!UR28/RO21=0.0
+!WC_O3/WR_N2O5=0.0
!
-!UR28/RO25=0.0
+!WC_O3/WR_HONO=0.0
!
-!UR21/NO=0.0
+!WC_O3/WR_HNO3=0.0
!
-!UR21/NO2=0.0
+!WC_O3/WR_HNO4=0.0
!
-!UR21/O3=+0.12*K281*<MVK>
- PJAC(:,47,3)=+0.12*TPK%K281(:)*PCONC(:,39)
+!WC_O3/WR_NH3=0.0
!
-!UR21/HONO=0.0
+!WC_O3/WR_OH=0.0
!
-!UR21/HNO3=0.0
+!WC_O3/WR_HO2=0.0
!
-!UR21/HNO4=0.0
+!WC_O3/WR_CO2=0.0
!
-!UR21/N2O5=0.0
+!WC_O3/WR_SO2=0.0
!
-!UR21/NO3=0.0
+!WC_O3/WR_SULF=0.0
!
-!UR21/NH3=0.0
+!WC_O3/WR_HCHO=0.0
!
-!UR21/HO2=+K279*<RO248>
- PJAC(:,47,10)=+TPK%K279(:)*TPK%RO248(:)
+!WC_O3/WR_ORA1=0.0
!
-!UR21/CO=0.0
+!WC_O3/WR_ORA2=0.0
!
-!UR21/H2O2=0.0
+!WC_O3/WR_MO2=0.0
!
-!UR21/SO2=0.0
+!WC_O3/WR_OP1=0.0
!
-!UR21/H2SO4=0.0
+!WC_O3/WR_ASO3=0.0
!
-!UR21/OH=0.0
+!WC_O3/WR_ASO4=0.0
!
-!UR21/ETHE=0.0
+!WC_O3/WR_ASO5=0.0
!
-!UR21/OLEL=0.0
+!WC_O3/WR_AHSO5=0.0
!
-!UR21/OLEH=0.0
+!WC_O3/WR_AHMS=0.0
!
-!UR21/ALKL=0.0
+!WC_H2O2/O3=0.0
!
-!UR21/ALKM=0.0
+!WC_H2O2/H2O2=+KTC2
+ PJAC(:,43,2)=+TPK%KTC2(:)
!
-!UR21/ALKH=0.0
+!WC_H2O2/NO=0.0
!
-!UR21/AROH=0.0
+!WC_H2O2/NO2=0.0
!
-!UR21/AROL=0.0
+!WC_H2O2/NO3=0.0
!
-!UR21/AROO=0.0
+!WC_H2O2/N2O5=0.0
!
-!UR21/ARAL=0.0
+!WC_H2O2/HONO=0.0
!
-!UR21/ARAC=0.0
+!WC_H2O2/HNO3=0.0
!
-!UR21/PAH=0.0
+!WC_H2O2/HNO4=0.0
!
-!UR21/HCHO=0.0
+!WC_H2O2/NH3=0.0
!
-!UR21/ALD2=0.0
+!WC_H2O2/SO2=0.0
!
-!UR21/KETL=0.0
+!WC_H2O2/SULF=0.0
!
-!UR21/KETH=0.0
+!WC_H2O2/CO=0.0
!
-!UR21/MEOH=0.0
+!WC_H2O2/OH=0.0
!
-!UR21/ETOH=0.0
+!WC_H2O2/HO2=0.0
!
-!UR21/ALCH=0.0
+!WC_H2O2/CH4=0.0
!
-!UR21/ISOP=0.0
+!WC_H2O2/ETH=0.0
!
-!UR21/BIOL=0.0
+!WC_H2O2/ALKA=0.0
!
-!UR21/BIOH=0.0
+!WC_H2O2/ALKE=0.0
!
-!UR21/MTBE=0.0
+!WC_H2O2/BIO=0.0
!
-!UR21/MVK=+0.12*K281*<O3>
- PJAC(:,47,39)=+0.12*TPK%K281(:)*PCONC(:,3)
+!WC_H2O2/ARO=0.0
!
-!UR21/MCR=0.0
+!WC_H2O2/HCHO=0.0
!
-!UR21/MGLY=0.0
+!WC_H2O2/ALD=0.0
!
-!UR21/GLY=0.0
+!WC_H2O2/KET=0.0
!
-!UR21/ORA1=0.0
+!WC_H2O2/CARBO=0.0
!
-!UR21/ORA2=0.0
+!WC_H2O2/ONIT=0.0
!
-!UR21/ACID=0.0
+!WC_H2O2/PAN=0.0
!
-!UR21/UR28=0.0
+!WC_H2O2/OP1=0.0
!
-!UR21/UR21=-K361
- PJAC(:,47,47)=-TPK%K361(:)
+!WC_H2O2/OP2=0.0
!
-!UR21/URG2=0.0
+!WC_H2O2/ORA1=0.0
!
-!UR21/UR26=0.0
+!WC_H2O2/ORA2=0.0
!
-!UR21/RPG2=0.0
+!WC_H2O2/MO2=0.0
!
-!UR21/RP18=0.0
+!WC_H2O2/ALKAP=0.0
!
-!UR21/RPG3=0.0
+!WC_H2O2/ALKEP=0.0
!
-!UR21/URG4=0.0
+!WC_H2O2/BIOP=0.0
!
-!UR21/UR8=0.0
+!WC_H2O2/PHO=0.0
!
-!UR21/UR17=0.0
+!WC_H2O2/ADD=0.0
!
-!UR21/UR7=0.0
+!WC_H2O2/AROP=0.0
!
-!UR21/RPR3=0.0
+!WC_H2O2/CARBOP=0.0
!
-!UR21/URG6=0.0
+!WC_H2O2/OLN=0.0
!
-!UR21/UR22=0.0
+!WC_H2O2/XO2=0.0
!
-!UR21/URG7=0.0
+!WC_H2O2/WC_O3=0.0
!
-!UR21/RPR4=0.0
+!WC_H2O2/WC_H2O2=-KTC22-KC1-KC4*<WC_OH>-KC30*<WC_SO2>
+ PJAC(:,43,43)=-TPK%KTC22(:)-TPK%KC1(:)-TPK%KC4(:)*PCONC(:,52)-TPK%KC30(:)*PCON&
+&C(:,55)
!
-!UR21/RPR7=0.0
+!WC_H2O2/WC_NO=0.0
!
-!UR21/RPG7=0.0
+!WC_H2O2/WC_NO2=0.0
!
-!UR21/URG8=0.0
+!WC_H2O2/WC_NO3=0.0
!
-!UR21/UR19=0.0
+!WC_H2O2/WC_N2O5=0.0
!
-!UR21/URG9=0.0
+!WC_H2O2/WC_HONO=0.0
!
-!UR21/AP7=0.0
+!WC_H2O2/WC_HNO3=0.0
!
-!UR21/URG10=0.0
+!WC_H2O2/WC_HNO4=0.0
!
-!UR21/RPR1=0.0
+!WC_H2O2/WC_NH3=0.0
!
-!UR21/RPR5=0.0
+!WC_H2O2/WC_OH=+KC2*<WC_OH>+KC2*<WC_OH>-KC4*<WC_H2O2>
+ PJAC(:,43,52)=+TPK%KC2(:)*PCONC(:,52)+TPK%KC2(:)*PCONC(:,52)-TPK%KC4(:)*PCONC(&
+&:,43)
!
-!UR21/RPR8=0.0
+!WC_H2O2/WC_HO2=+KC5*<WC_HO2>+KC5*<WC_HO2>
+ PJAC(:,43,53)=+TPK%KC5(:)*PCONC(:,53)+TPK%KC5(:)*PCONC(:,53)
!
-!UR21/RP10=0.0
+!WC_H2O2/WC_CO2=0.0
!
-!UR21/RP11=0.0
+!WC_H2O2/WC_SO2=-KC30*<WC_H2O2>
+ PJAC(:,43,55)=-TPK%KC30(:)*PCONC(:,43)
!
-!UR21/RP16=0.0
+!WC_H2O2/WC_SULF=0.0
!
-!UR21/RPRL=0.0
+!WC_H2O2/WC_HCHO=0.0
!
-!UR21/APAN=0.0
+!WC_H2O2/WC_ORA1=0.0
!
-!UR21/PAN1=0.0
+!WC_H2O2/WC_ORA2=0.0
!
-!UR21/PAN2=0.0
+!WC_H2O2/WC_MO2=0.0
!
-!UR21/PAN3=0.0
+!WC_H2O2/WC_OP1=0.0
!
-!UR21/PAN4=0.0
+!WC_H2O2/WC_ASO3=0.0
!
-!UR21/PAN6=0.0
+!WC_H2O2/WC_ASO4=0.0
!
-!UR21/PAN7=0.0
+!WC_H2O2/WC_ASO5=0.0
!
-!UR21/PAN8=0.0
+!WC_H2O2/WC_AHSO5=0.0
!
-!UR21/PN10=0.0
+!WC_H2O2/WC_AHMS=0.0
!
-!UR21/RO2T=0.0
+!WC_H2O2/WR_O3=0.0
!
-!UR21/RO21=0.0
+!WC_H2O2/WR_H2O2=0.0
!
-!UR21/RO25=0.0
+!WC_H2O2/WR_NO=0.0
!
-!URG2/NO=0.0
+!WC_H2O2/WR_NO2=0.0
!
-!URG2/NO2=0.0
+!WC_H2O2/WR_NO3=0.0
!
-!URG2/O3=0.0
+!WC_H2O2/WR_N2O5=0.0
!
-!URG2/HONO=0.0
+!WC_H2O2/WR_HONO=0.0
!
-!URG2/HNO3=0.0
+!WC_H2O2/WR_HNO3=0.0
!
-!URG2/HNO4=0.0
+!WC_H2O2/WR_HNO4=0.0
!
-!URG2/N2O5=0.0
+!WC_H2O2/WR_NH3=0.0
!
-!URG2/NO3=0.0
+!WC_H2O2/WR_OH=0.0
!
-!URG2/NH3=0.0
+!WC_H2O2/WR_HO2=0.0
!
-!URG2/HO2=0.0
+!WC_H2O2/WR_CO2=0.0
!
-!URG2/CO=0.0
+!WC_H2O2/WR_SO2=0.0
!
-!URG2/H2O2=0.0
+!WC_H2O2/WR_SULF=0.0
!
-!URG2/SO2=0.0
+!WC_H2O2/WR_HCHO=0.0
!
-!URG2/H2SO4=0.0
+!WC_H2O2/WR_ORA1=0.0
!
-!URG2/OH=+0.5562513*K335*<RPG2>+K337*<RP18>
- PJAC(:,48,15)=+0.5562513*TPK%K335(:)*PCONC(:,50)+TPK%K337(:)*PCONC(:,51)
+!WC_H2O2/WR_ORA2=0.0
!
-!URG2/ETHE=0.0
+!WC_H2O2/WR_MO2=0.0
!
-!URG2/OLEL=0.0
+!WC_H2O2/WR_OP1=0.0
!
-!URG2/OLEH=0.0
+!WC_H2O2/WR_ASO3=0.0
!
-!URG2/ALKL=0.0
+!WC_H2O2/WR_ASO4=0.0
!
-!URG2/ALKM=0.0
+!WC_H2O2/WR_ASO5=0.0
!
-!URG2/ALKH=0.0
+!WC_H2O2/WR_AHSO5=0.0
!
-!URG2/AROH=0.0
+!WC_H2O2/WR_AHMS=0.0
!
-!URG2/AROL=0.0
+!WC_NO/O3=0.0
!
-!URG2/AROO=0.0
+!WC_NO/H2O2=0.0
!
-!URG2/ARAL=0.0
+!WC_NO/NO=+KTC3
+ PJAC(:,44,3)=+TPK%KTC3(:)
!
-!URG2/ARAC=0.0
+!WC_NO/NO2=0.0
!
-!URG2/PAH=0.0
+!WC_NO/NO3=0.0
!
-!URG2/HCHO=0.0
+!WC_NO/N2O5=0.0
!
-!URG2/ALD2=0.0
+!WC_NO/HONO=0.0
!
-!URG2/KETL=0.0
+!WC_NO/HNO3=0.0
!
-!URG2/KETH=0.0
+!WC_NO/HNO4=0.0
!
-!URG2/MEOH=0.0
+!WC_NO/NH3=0.0
!
-!URG2/ETOH=0.0
+!WC_NO/SO2=0.0
!
-!URG2/ALCH=0.0
+!WC_NO/SULF=0.0
!
-!URG2/ISOP=0.0
+!WC_NO/CO=0.0
!
-!URG2/BIOL=0.0
+!WC_NO/OH=0.0
!
-!URG2/BIOH=0.0
+!WC_NO/HO2=0.0
!
-!URG2/MTBE=0.0
+!WC_NO/CH4=0.0
!
-!URG2/MVK=0.0
+!WC_NO/ETH=0.0
!
-!URG2/MCR=0.0
+!WC_NO/ALKA=0.0
!
-!URG2/MGLY=0.0
+!WC_NO/ALKE=0.0
!
-!URG2/GLY=0.0
+!WC_NO/BIO=0.0
!
-!URG2/ORA1=0.0
+!WC_NO/ARO=0.0
!
-!URG2/ORA2=0.0
+!WC_NO/HCHO=0.0
!
-!URG2/ACID=0.0
+!WC_NO/ALD=0.0
!
-!URG2/UR28=0.0
+!WC_NO/KET=0.0
!
-!URG2/UR21=0.0
+!WC_NO/CARBO=0.0
!
-!URG2/URG2=-K350
- PJAC(:,48,48)=-TPK%K350(:)
+!WC_NO/ONIT=0.0
!
-!URG2/UR26=0.0
+!WC_NO/PAN=0.0
!
-!URG2/RPG2=+0.5562513*K335*<OH>
- PJAC(:,48,50)=+0.5562513*TPK%K335(:)*PCONC(:,15)
+!WC_NO/OP1=0.0
!
-!URG2/RP18=+K337*<OH>
- PJAC(:,48,51)=+TPK%K337(:)*PCONC(:,15)
+!WC_NO/OP2=0.0
!
-!URG2/RPG3=0.0
+!WC_NO/ORA1=0.0
!
-!URG2/URG4=0.0
+!WC_NO/ORA2=0.0
!
-!URG2/UR8=0.0
+!WC_NO/MO2=0.0
!
-!URG2/UR17=0.0
+!WC_NO/ALKAP=0.0
!
-!URG2/UR7=0.0
+!WC_NO/ALKEP=0.0
!
-!URG2/RPR3=0.0
+!WC_NO/BIOP=0.0
!
-!URG2/URG6=0.0
+!WC_NO/PHO=0.0
!
-!URG2/UR22=0.0
+!WC_NO/ADD=0.0
!
-!URG2/URG7=0.0
+!WC_NO/AROP=0.0
!
-!URG2/RPR4=0.0
+!WC_NO/CARBOP=0.0
!
-!URG2/RPR7=0.0
+!WC_NO/OLN=0.0
!
-!URG2/RPG7=0.0
+!WC_NO/XO2=0.0
!
-!URG2/URG8=0.0
+!WC_NO/WC_O3=0.0
!
-!URG2/UR19=0.0
+!WC_NO/WC_H2O2=0.0
!
-!URG2/URG9=0.0
+!WC_NO/WC_NO=-KTC23
+ PJAC(:,44,44)=-TPK%KTC23(:)
!
-!URG2/AP7=0.0
+!WC_NO/WC_NO2=0.0
!
-!URG2/URG10=0.0
+!WC_NO/WC_NO3=0.0
!
-!URG2/RPR1=0.0
+!WC_NO/WC_N2O5=0.0
!
-!URG2/RPR5=0.0
+!WC_NO/WC_HONO=0.0
!
-!URG2/RPR8=0.0
+!WC_NO/WC_HNO3=0.0
!
-!URG2/RP10=0.0
+!WC_NO/WC_HNO4=0.0
!
-!URG2/RP11=0.0
+!WC_NO/WC_NH3=0.0
!
-!URG2/RP16=0.0
+!WC_NO/WC_OH=0.0
!
-!URG2/RPRL=0.0
+!WC_NO/WC_HO2=0.0
!
-!URG2/APAN=0.0
+!WC_NO/WC_CO2=0.0
!
-!URG2/PAN1=0.0
+!WC_NO/WC_SO2=0.0
!
-!URG2/PAN2=0.0
+!WC_NO/WC_SULF=0.0
!
-!URG2/PAN3=0.0
+!WC_NO/WC_HCHO=0.0
!
-!URG2/PAN4=0.0
+!WC_NO/WC_ORA1=0.0
!
-!URG2/PAN6=0.0
+!WC_NO/WC_ORA2=0.0
!
-!URG2/PAN7=0.0
+!WC_NO/WC_MO2=0.0
!
-!URG2/PAN8=0.0
+!WC_NO/WC_OP1=0.0
!
-!URG2/PN10=0.0
+!WC_NO/WC_ASO3=0.0
!
-!URG2/RO2T=0.0
+!WC_NO/WC_ASO4=0.0
!
-!URG2/RO21=0.0
+!WC_NO/WC_ASO5=0.0
!
-!URG2/RO25=0.0
+!WC_NO/WC_AHSO5=0.0
!
-!UR26/NO=0.0
+!WC_NO/WC_AHMS=0.0
!
-!UR26/NO2=0.0
+!WC_NO/WR_O3=0.0
!
-!UR26/O3=0.0
+!WC_NO/WR_H2O2=0.0
!
-!UR26/HONO=0.0
+!WC_NO/WR_NO=0.0
!
-!UR26/HNO3=0.0
+!WC_NO/WR_NO2=0.0
!
-!UR26/HNO4=0.0
+!WC_NO/WR_NO3=0.0
!
-!UR26/N2O5=0.0
+!WC_NO/WR_N2O5=0.0
!
-!UR26/NO3=0.0
+!WC_NO/WR_HONO=0.0
!
-!UR26/NH3=0.0
+!WC_NO/WR_HNO3=0.0
!
-!UR26/HO2=0.0
+!WC_NO/WR_HNO4=0.0
!
-!UR26/CO=0.0
+!WC_NO/WR_NH3=0.0
!
-!UR26/H2O2=0.0
+!WC_NO/WR_OH=0.0
!
-!UR26/SO2=0.0
+!WC_NO/WR_HO2=0.0
!
-!UR26/H2SO4=0.0
+!WC_NO/WR_CO2=0.0
!
-!UR26/OH=+0.67*K326*<RP11>
- PJAC(:,49,15)=+0.67*TPK%K326(:)*PCONC(:,73)
+!WC_NO/WR_SO2=0.0
!
-!UR26/ETHE=0.0
+!WC_NO/WR_SULF=0.0
!
-!UR26/OLEL=0.0
+!WC_NO/WR_HCHO=0.0
!
-!UR26/OLEH=0.0
+!WC_NO/WR_ORA1=0.0
!
-!UR26/ALKL=0.0
+!WC_NO/WR_ORA2=0.0
!
-!UR26/ALKM=0.0
+!WC_NO/WR_MO2=0.0
!
-!UR26/ALKH=0.0
+!WC_NO/WR_OP1=0.0
!
-!UR26/AROH=0.0
+!WC_NO/WR_ASO3=0.0
!
-!UR26/AROL=0.0
+!WC_NO/WR_ASO4=0.0
!
-!UR26/AROO=0.0
+!WC_NO/WR_ASO5=0.0
!
-!UR26/ARAL=0.0
+!WC_NO/WR_AHSO5=0.0
!
-!UR26/ARAC=0.0
+!WC_NO/WR_AHMS=0.0
!
-!UR26/PAH=0.0
+!WC_NO2/O3=0.0
!
-!UR26/HCHO=0.0
+!WC_NO2/H2O2=0.0
!
-!UR26/ALD2=0.0
+!WC_NO2/NO=0.0
!
-!UR26/KETL=0.0
+!WC_NO2/NO2=+KTC4
+ PJAC(:,45,4)=+TPK%KTC4(:)
!
-!UR26/KETH=0.0
+!WC_NO2/NO3=0.0
!
-!UR26/MEOH=0.0
+!WC_NO2/N2O5=0.0
!
-!UR26/ETOH=0.0
+!WC_NO2/HONO=0.0
!
-!UR26/ALCH=0.0
+!WC_NO2/HNO3=0.0
!
-!UR26/ISOP=0.0
+!WC_NO2/HNO4=0.0
!
-!UR26/BIOL=0.0
+!WC_NO2/NH3=0.0
!
-!UR26/BIOH=0.0
+!WC_NO2/SO2=0.0
!
-!UR26/MTBE=0.0
+!WC_NO2/SULF=0.0
!
-!UR26/MVK=0.0
+!WC_NO2/CO=0.0
!
-!UR26/MCR=0.0
+!WC_NO2/OH=0.0
!
-!UR26/MGLY=0.0
+!WC_NO2/HO2=0.0
!
-!UR26/GLY=0.0
+!WC_NO2/CH4=0.0
!
-!UR26/ORA1=0.0
+!WC_NO2/ETH=0.0
!
-!UR26/ORA2=0.0
+!WC_NO2/ALKA=0.0
!
-!UR26/ACID=0.0
+!WC_NO2/ALKE=0.0
!
-!UR26/UR28=0.0
+!WC_NO2/BIO=0.0
!
-!UR26/UR21=0.0
+!WC_NO2/ARO=0.0
!
-!UR26/URG2=0.0
+!WC_NO2/HCHO=0.0
!
-!UR26/UR26=-K363
- PJAC(:,49,49)=-TPK%K363(:)
+!WC_NO2/ALD=0.0
!
-!UR26/RPG2=0.0
+!WC_NO2/KET=0.0
!
-!UR26/RP18=0.0
+!WC_NO2/CARBO=0.0
!
-!UR26/RPG3=0.0
+!WC_NO2/ONIT=0.0
!
-!UR26/URG4=0.0
+!WC_NO2/PAN=0.0
!
-!UR26/UR8=0.0
+!WC_NO2/OP1=0.0
!
-!UR26/UR17=0.0
+!WC_NO2/OP2=0.0
!
-!UR26/UR7=0.0
+!WC_NO2/ORA1=0.0
!
-!UR26/RPR3=0.0
+!WC_NO2/ORA2=0.0
!
-!UR26/URG6=0.0
+!WC_NO2/MO2=0.0
!
-!UR26/UR22=0.0
+!WC_NO2/ALKAP=0.0
!
-!UR26/URG7=0.0
+!WC_NO2/ALKEP=0.0
!
-!UR26/RPR4=0.0
+!WC_NO2/BIOP=0.0
!
-!UR26/RPR7=0.0
+!WC_NO2/PHO=0.0
!
-!UR26/RPG7=0.0
+!WC_NO2/ADD=0.0
!
-!UR26/URG8=0.0
+!WC_NO2/AROP=0.0
!
-!UR26/UR19=0.0
+!WC_NO2/CARBOP=0.0
!
-!UR26/URG9=0.0
+!WC_NO2/OLN=0.0
!
-!UR26/AP7=0.0
+!WC_NO2/XO2=0.0
!
-!UR26/URG10=0.0
+!WC_NO2/WC_O3=0.0
!
-!UR26/RPR1=0.0
+!WC_NO2/WC_H2O2=0.0
!
-!UR26/RPR5=0.0
+!WC_NO2/WC_NO=0.0
!
-!UR26/RPR8=0.0
+!WC_NO2/WC_NO2=-KTC24-KC9*<WC_HO2>
+ PJAC(:,45,45)=-TPK%KTC24(:)-TPK%KC9(:)*PCONC(:,53)
!
-!UR26/RP10=0.0
+!WC_NO2/WC_NO3=0.0
!
-!UR26/RP11=+0.67*K326*<OH>
- PJAC(:,49,73)=+0.67*TPK%K326(:)*PCONC(:,15)
+!WC_NO2/WC_N2O5=0.0
!
-!UR26/RP16=0.0
+!WC_NO2/WC_HONO=+KC8*<WC_OH>
+ PJAC(:,45,48)=+TPK%KC8(:)*PCONC(:,52)
!
-!UR26/RPRL=0.0
+!WC_NO2/WC_HNO3=+KC13
+ PJAC(:,45,49)=+TPK%KC13(:)
!
-!UR26/APAN=0.0
+!WC_NO2/WC_HNO4=+KC10
+ PJAC(:,45,50)=+TPK%KC10(:)
!
-!UR26/PAN1=0.0
+!WC_NO2/WC_NH3=0.0
!
-!UR26/PAN2=0.0
+!WC_NO2/WC_OH=+KC8*<WC_HONO>
+ PJAC(:,45,52)=+TPK%KC8(:)*PCONC(:,48)
!
-!UR26/PAN3=0.0
+!WC_NO2/WC_HO2=-KC9*<WC_NO2>
+ PJAC(:,45,53)=-TPK%KC9(:)*PCONC(:,45)
!
-!UR26/PAN4=0.0
+!WC_NO2/WC_CO2=0.0
!
-!UR26/PAN6=0.0
+!WC_NO2/WC_SO2=0.0
!
-!UR26/PAN7=0.0
+!WC_NO2/WC_SULF=0.0
!
-!UR26/PAN8=0.0
+!WC_NO2/WC_HCHO=0.0
!
-!UR26/PN10=0.0
+!WC_NO2/WC_ORA1=0.0
!
-!UR26/RO2T=0.0
+!WC_NO2/WC_ORA2=0.0
!
-!UR26/RO21=0.0
+!WC_NO2/WC_MO2=0.0
!
-!UR26/RO25=0.0
+!WC_NO2/WC_OP1=0.0
!
-!RPG2/NO=+0.3000000*K259*<RO237>
- PJAC(:,50,1)=+0.3000000*TPK%K259(:)*TPK%RO237(:)
+!WC_NO2/WC_ASO3=0.0
!
-!RPG2/NO2=0.0
+!WC_NO2/WC_ASO4=0.0
!
-!RPG2/O3=0.0
+!WC_NO2/WC_ASO5=0.0
!
-!RPG2/HONO=0.0
+!WC_NO2/WC_AHSO5=0.0
!
-!RPG2/HNO3=0.0
+!WC_NO2/WC_AHMS=0.0
!
-!RPG2/HNO4=0.0
+!WC_NO2/WR_O3=0.0
!
-!RPG2/N2O5=0.0
+!WC_NO2/WR_H2O2=0.0
!
-!RPG2/NO3=0.0
+!WC_NO2/WR_NO=0.0
!
-!RPG2/NH3=0.0
+!WC_NO2/WR_NO2=0.0
!
-!RPG2/HO2=+0.3000000*K261*<RO237>
- PJAC(:,50,10)=+0.3000000*TPK%K261(:)*TPK%RO237(:)
+!WC_NO2/WR_NO3=0.0
!
-!RPG2/CO=0.0
+!WC_NO2/WR_N2O5=0.0
!
-!RPG2/H2O2=0.0
+!WC_NO2/WR_HONO=0.0
!
-!RPG2/SO2=0.0
+!WC_NO2/WR_HNO3=0.0
!
-!RPG2/H2SO4=0.0
+!WC_NO2/WR_HNO4=0.0
!
-!RPG2/OH=+0.1191897*K334*<RPG3>+0.8808107*K334*<RPG3>-K335*<RPG2>
- PJAC(:,50,15)=+0.1191897*TPK%K334(:)*PCONC(:,52)+0.8808107*TPK%K334(:)*PCONC(:&
-&,52)-TPK%K335(:)*PCONC(:,50)
+!WC_NO2/WR_NH3=0.0
!
-!RPG2/ETHE=0.0
+!WC_NO2/WR_OH=0.0
!
-!RPG2/OLEL=0.0
+!WC_NO2/WR_HO2=0.0
!
-!RPG2/OLEH=0.0
+!WC_NO2/WR_CO2=0.0
!
-!RPG2/ALKL=0.0
+!WC_NO2/WR_SO2=0.0
!
-!RPG2/ALKM=0.0
+!WC_NO2/WR_SULF=0.0
!
-!RPG2/ALKH=0.0
+!WC_NO2/WR_HCHO=0.0
!
-!RPG2/AROH=0.0
+!WC_NO2/WR_ORA1=0.0
!
-!RPG2/AROL=0.0
+!WC_NO2/WR_ORA2=0.0
!
-!RPG2/AROO=0.0
+!WC_NO2/WR_MO2=0.0
!
-!RPG2/ARAL=0.0
+!WC_NO2/WR_OP1=0.0
!
-!RPG2/ARAC=0.0
+!WC_NO2/WR_ASO3=0.0
!
-!RPG2/PAH=0.0
+!WC_NO2/WR_ASO4=0.0
!
-!RPG2/HCHO=0.0
+!WC_NO2/WR_ASO5=0.0
!
-!RPG2/ALD2=0.0
+!WC_NO2/WR_AHSO5=0.0
!
-!RPG2/KETL=0.0
+!WC_NO2/WR_AHMS=0.0
!
-!RPG2/KETH=0.0
+RETURN
+END SUBROUTINE SUBJ8
!
-!RPG2/MEOH=0.0
+SUBROUTINE SUBJ9
!
-!RPG2/ETOH=0.0
+!Indices 46 a 50
!
-!RPG2/ALCH=0.0
!
-!RPG2/ISOP=0.0
+!WC_NO3/O3=0.0
!
-!RPG2/BIOL=0.0
+!WC_NO3/H2O2=0.0
!
-!RPG2/BIOH=0.0
+!WC_NO3/NO=0.0
!
-!RPG2/MTBE=0.0
+!WC_NO3/NO2=0.0
!
-!RPG2/MVK=0.0
+!WC_NO3/NO3=+KTC5
+ PJAC(:,46,5)=+TPK%KTC5(:)
!
-!RPG2/MCR=0.0
+!WC_NO3/N2O5=0.0
!
-!RPG2/MGLY=0.0
+!WC_NO3/HONO=0.0
!
-!RPG2/GLY=0.0
+!WC_NO3/HNO3=0.0
!
-!RPG2/ORA1=0.0
+!WC_NO3/HNO4=0.0
!
-!RPG2/ORA2=0.0
+!WC_NO3/NH3=0.0
!
-!RPG2/ACID=0.0
+!WC_NO3/SO2=0.0
!
-!RPG2/UR28=0.0
+!WC_NO3/SULF=0.0
!
-!RPG2/UR21=0.0
+!WC_NO3/CO=0.0
!
-!RPG2/URG2=0.0
+!WC_NO3/OH=0.0
!
-!RPG2/UR26=0.0
+!WC_NO3/HO2=0.0
!
-!RPG2/RPG2=-K335*<OH>
- PJAC(:,50,50)=-TPK%K335(:)*PCONC(:,15)
+!WC_NO3/CH4=0.0
!
-!RPG2/RP18=0.0
+!WC_NO3/ETH=0.0
!
-!RPG2/RPG3=+0.1191897*K334*<OH>+0.8808107*K334*<OH>
- PJAC(:,50,52)=+0.1191897*TPK%K334(:)*PCONC(:,15)+0.8808107*TPK%K334(:)*PCONC(:&
-&,15)
+!WC_NO3/ALKA=0.0
!
-!RPG2/URG4=0.0
+!WC_NO3/ALKE=0.0
!
-!RPG2/UR8=0.0
+!WC_NO3/BIO=0.0
!
-!RPG2/UR17=0.0
+!WC_NO3/ARO=0.0
!
-!RPG2/UR7=0.0
+!WC_NO3/HCHO=0.0
!
-!RPG2/RPR3=0.0
+!WC_NO3/ALD=0.0
!
-!RPG2/URG6=0.0
+!WC_NO3/KET=0.0
!
-!RPG2/UR22=0.0
+!WC_NO3/CARBO=0.0
!
-!RPG2/URG7=0.0
+!WC_NO3/ONIT=0.0
!
-!RPG2/RPR4=0.0
+!WC_NO3/PAN=0.0
!
-!RPG2/RPR7=0.0
+!WC_NO3/OP1=0.0
!
-!RPG2/RPG7=0.0
+!WC_NO3/OP2=0.0
!
-!RPG2/URG8=0.0
+!WC_NO3/ORA1=0.0
!
-!RPG2/UR19=0.0
+!WC_NO3/ORA2=0.0
!
-!RPG2/URG9=0.0
+!WC_NO3/MO2=0.0
!
-!RPG2/AP7=0.0
+!WC_NO3/ALKAP=0.0
!
-!RPG2/URG10=0.0
+!WC_NO3/ALKEP=0.0
!
-!RPG2/RPR1=0.0
+!WC_NO3/BIOP=0.0
!
-!RPG2/RPR5=0.0
+!WC_NO3/PHO=0.0
!
-!RPG2/RPR8=0.0
+!WC_NO3/ADD=0.0
!
-!RPG2/RP10=0.0
+!WC_NO3/AROP=0.0
!
-!RPG2/RP11=0.0
+!WC_NO3/CARBOP=0.0
!
-!RPG2/RP16=0.0
+!WC_NO3/OLN=0.0
!
-!RPG2/RPRL=0.0
+!WC_NO3/XO2=0.0
!
-!RPG2/APAN=0.0
+!WC_NO3/WC_O3=0.0
!
-!RPG2/PAN1=0.0
+!WC_NO3/WC_H2O2=0.0
!
-!RPG2/PAN2=0.0
+!WC_NO3/WC_NO=0.0
!
-!RPG2/PAN3=0.0
+!WC_NO3/WC_NO2=0.0
!
-!RPG2/PAN4=0.0
+!WC_NO3/WC_NO3=-KTC25-KC15*<WC_SULF>-KC16*<WC_SO2>
+ PJAC(:,46,46)=-TPK%KTC25(:)-TPK%KC15(:)*PCONC(:,56)-TPK%KC16(:)*PCONC(:,55)
!
-!RPG2/PAN6=0.0
+!WC_NO3/WC_N2O5=0.0
!
-!RPG2/PAN7=0.0
+!WC_NO3/WC_HONO=0.0
!
-!RPG2/PAN8=0.0
+!WC_NO3/WC_HNO3=0.0
!
-!RPG2/PN10=0.0
+!WC_NO3/WC_HNO4=0.0
!
-!RPG2/RO2T=+1.0000000*K260*<RO237>
- PJAC(:,50,85)=+1.0000000*TPK%K260(:)*TPK%RO237(:)
+!WC_NO3/WC_NH3=0.0
!
-!RPG2/RO21=0.0
+!WC_NO3/WC_OH=0.0
!
-!RPG2/RO25=0.0
+!WC_NO3/WC_HO2=0.0
!
-RETURN
-END SUBROUTINE SUBJ9
+!WC_NO3/WC_CO2=0.0
!
-SUBROUTINE SUBJ10
+!WC_NO3/WC_SO2=-KC16*<WC_NO3>
+ PJAC(:,46,55)=-TPK%KC16(:)*PCONC(:,46)
!
-!Indices 51 a 55
+!WC_NO3/WC_SULF=-KC15*<WC_NO3>
+ PJAC(:,46,56)=-TPK%KC15(:)*PCONC(:,46)
!
+!WC_NO3/WC_HCHO=0.0
!
-!RP18/NO=0.0
+!WC_NO3/WC_ORA1=0.0
!
-!RP18/NO2=0.0
+!WC_NO3/WC_ORA2=0.0
!
-!RP18/O3=0.0
+!WC_NO3/WC_MO2=0.0
!
-!RP18/HONO=0.0
+!WC_NO3/WC_OP1=0.0
!
-!RP18/HNO3=0.0
+!WC_NO3/WC_ASO3=0.0
!
-!RP18/HNO4=0.0
+!WC_NO3/WC_ASO4=0.0
!
-!RP18/N2O5=0.0
+!WC_NO3/WC_ASO5=0.0
!
-!RP18/NO3=0.0
+!WC_NO3/WC_AHSO5=0.0
!
-!RP18/NH3=0.0
+!WC_NO3/WC_AHMS=0.0
!
-!RP18/HO2=0.0
+!WC_NO3/WR_O3=0.0
!
-!RP18/CO=0.0
+!WC_NO3/WR_H2O2=0.0
!
-!RP18/H2O2=0.0
+!WC_NO3/WR_NO=0.0
!
-!RP18/SO2=0.0
+!WC_NO3/WR_NO2=0.0
!
-!RP18/H2SO4=0.0
+!WC_NO3/WR_NO3=0.0
!
-!RP18/OH=+0.4437492*K335*<RPG2>-K337*<RP18>
- PJAC(:,51,15)=+0.4437492*TPK%K335(:)*PCONC(:,50)-TPK%K337(:)*PCONC(:,51)
+!WC_NO3/WR_N2O5=0.0
!
-!RP18/ETHE=0.0
+!WC_NO3/WR_HONO=0.0
!
-!RP18/OLEL=0.0
+!WC_NO3/WR_HNO3=0.0
!
-!RP18/OLEH=0.0
+!WC_NO3/WR_HNO4=0.0
!
-!RP18/ALKL=0.0
+!WC_NO3/WR_NH3=0.0
!
-!RP18/ALKM=0.0
+!WC_NO3/WR_OH=0.0
!
-!RP18/ALKH=0.0
+!WC_NO3/WR_HO2=0.0
!
-!RP18/AROH=0.0
+!WC_NO3/WR_CO2=0.0
!
-!RP18/AROL=0.0
+!WC_NO3/WR_SO2=0.0
!
-!RP18/AROO=0.0
+!WC_NO3/WR_SULF=0.0
!
-!RP18/ARAL=0.0
+!WC_NO3/WR_HCHO=0.0
!
-!RP18/ARAC=0.0
+!WC_NO3/WR_ORA1=0.0
!
-!RP18/PAH=0.0
+!WC_NO3/WR_ORA2=0.0
!
-!RP18/HCHO=0.0
+!WC_NO3/WR_MO2=0.0
!
-!RP18/ALD2=0.0
+!WC_NO3/WR_OP1=0.0
!
-!RP18/KETL=0.0
+!WC_NO3/WR_ASO3=0.0
!
-!RP18/KETH=0.0
+!WC_NO3/WR_ASO4=0.0
!
-!RP18/MEOH=0.0
+!WC_NO3/WR_ASO5=0.0
!
-!RP18/ETOH=0.0
+!WC_NO3/WR_AHSO5=0.0
!
-!RP18/ALCH=0.0
+!WC_NO3/WR_AHMS=0.0
!
-!RP18/ISOP=0.0
+!WC_N2O5/O3=0.0
!
-!RP18/BIOL=0.0
+!WC_N2O5/H2O2=0.0
!
-!RP18/BIOH=0.0
+!WC_N2O5/NO=0.0
!
-!RP18/MTBE=0.0
+!WC_N2O5/NO2=0.0
!
-!RP18/MVK=0.0
+!WC_N2O5/NO3=0.0
!
-!RP18/MCR=0.0
+!WC_N2O5/N2O5=+KTC6
+ PJAC(:,47,6)=+TPK%KTC6(:)
!
-!RP18/MGLY=0.0
+!WC_N2O5/HONO=0.0
!
-!RP18/GLY=0.0
+!WC_N2O5/HNO3=0.0
!
-!RP18/ORA1=0.0
+!WC_N2O5/HNO4=0.0
!
-!RP18/ORA2=0.0
+!WC_N2O5/NH3=0.0
!
-!RP18/ACID=0.0
+!WC_N2O5/SO2=0.0
!
-!RP18/UR28=0.0
+!WC_N2O5/SULF=0.0
!
-!RP18/UR21=0.0
+!WC_N2O5/CO=0.0
!
-!RP18/URG2=0.0
+!WC_N2O5/OH=0.0
!
-!RP18/UR26=0.0
+!WC_N2O5/HO2=0.0
!
-!RP18/RPG2=+0.4437492*K335*<OH>
- PJAC(:,51,50)=+0.4437492*TPK%K335(:)*PCONC(:,15)
+!WC_N2O5/CH4=0.0
!
-!RP18/RP18=-K337*<OH>
- PJAC(:,51,51)=-TPK%K337(:)*PCONC(:,15)
+!WC_N2O5/ETH=0.0
!
-!RP18/RPG3=0.0
+!WC_N2O5/ALKA=0.0
!
-!RP18/URG4=0.0
+!WC_N2O5/ALKE=0.0
!
-!RP18/UR8=0.0
+!WC_N2O5/BIO=0.0
!
-!RP18/UR17=0.0
+!WC_N2O5/ARO=0.0
!
-!RP18/UR7=0.0
+!WC_N2O5/HCHO=0.0
!
-!RP18/RPR3=0.0
+!WC_N2O5/ALD=0.0
!
-!RP18/URG6=0.0
+!WC_N2O5/KET=0.0
!
-!RP18/UR22=0.0
+!WC_N2O5/CARBO=0.0
!
-!RP18/URG7=0.0
+!WC_N2O5/ONIT=0.0
!
-!RP18/RPR4=0.0
+!WC_N2O5/PAN=0.0
!
-!RP18/RPR7=0.0
+!WC_N2O5/OP1=0.0
!
-!RP18/RPG7=0.0
+!WC_N2O5/OP2=0.0
!
-!RP18/URG8=0.0
+!WC_N2O5/ORA1=0.0
!
-!RP18/UR19=0.0
+!WC_N2O5/ORA2=0.0
!
-!RP18/URG9=0.0
+!WC_N2O5/MO2=0.0
!
-!RP18/AP7=0.0
+!WC_N2O5/ALKAP=0.0
!
-!RP18/URG10=0.0
+!WC_N2O5/ALKEP=0.0
!
-!RP18/RPR1=0.0
+!WC_N2O5/BIOP=0.0
!
-!RP18/RPR5=0.0
+!WC_N2O5/PHO=0.0
!
-!RP18/RPR8=0.0
+!WC_N2O5/ADD=0.0
!
-!RP18/RP10=0.0
+!WC_N2O5/AROP=0.0
!
-!RP18/RP11=0.0
+!WC_N2O5/CARBOP=0.0
!
-!RP18/RP16=0.0
+!WC_N2O5/OLN=0.0
!
-!RP18/RPRL=0.0
+!WC_N2O5/XO2=0.0
!
-!RP18/APAN=0.0
+!WC_N2O5/WC_O3=0.0
!
-!RP18/PAN1=0.0
+!WC_N2O5/WC_H2O2=0.0
!
-!RP18/PAN2=0.0
+!WC_N2O5/WC_NO=0.0
!
-!RP18/PAN3=0.0
+!WC_N2O5/WC_NO2=0.0
!
-!RP18/PAN4=0.0
+!WC_N2O5/WC_NO3=0.0
!
-!RP18/PAN6=0.0
+!WC_N2O5/WC_N2O5=-KTC26-KC14
+ PJAC(:,47,47)=-TPK%KTC26(:)-TPK%KC14(:)
!
-!RP18/PAN7=0.0
+!WC_N2O5/WC_HONO=0.0
!
-!RP18/PAN8=0.0
+!WC_N2O5/WC_HNO3=0.0
!
-!RP18/PN10=0.0
+!WC_N2O5/WC_HNO4=0.0
!
-!RP18/RO2T=0.0
+!WC_N2O5/WC_NH3=0.0
!
-!RP18/RO21=0.0
+!WC_N2O5/WC_OH=0.0
!
-!RP18/RO25=0.0
+!WC_N2O5/WC_HO2=0.0
!
-!RPG3/NO=+0.3000000*K231*<RO233>+0.3000000*K252*<RO236>
- PJAC(:,52,1)=+0.3000000*TPK%K231(:)*TPK%RO233(:)+0.3000000*TPK%K252(:)*TPK%RO2&
-&36(:)
+!WC_N2O5/WC_CO2=0.0
!
-!RPG3/NO2=0.0
+!WC_N2O5/WC_SO2=0.0
!
-!RPG3/O3=0.0
+!WC_N2O5/WC_SULF=0.0
!
-!RPG3/HONO=0.0
+!WC_N2O5/WC_HCHO=0.0
!
-!RPG3/HNO3=0.0
+!WC_N2O5/WC_ORA1=0.0
!
-!RPG3/HNO4=0.0
+!WC_N2O5/WC_ORA2=0.0
!
-!RPG3/N2O5=0.0
+!WC_N2O5/WC_MO2=0.0
!
-!RPG3/NO3=0.0
+!WC_N2O5/WC_OP1=0.0
!
-!RPG3/NH3=0.0
+!WC_N2O5/WC_ASO3=0.0
!
-!RPG3/HO2=+0.3000000*K233*<RO233>+0.3000000*K254*<RO236>
- PJAC(:,52,10)=+0.3000000*TPK%K233(:)*TPK%RO233(:)+0.3000000*TPK%K254(:)*TPK%RO&
-&236(:)
+!WC_N2O5/WC_ASO4=0.0
!
-!RPG3/CO=0.0
+!WC_N2O5/WC_ASO5=0.0
!
-!RPG3/H2O2=0.0
+!WC_N2O5/WC_AHSO5=0.0
!
-!RPG3/SO2=0.0
+!WC_N2O5/WC_AHMS=0.0
!
-!RPG3/H2SO4=0.0
+!WC_N2O5/WR_O3=0.0
!
-!RPG3/OH=-K334*<RPG3>
- PJAC(:,52,15)=-TPK%K334(:)*PCONC(:,52)
+!WC_N2O5/WR_H2O2=0.0
!
-!RPG3/ETHE=0.0
+!WC_N2O5/WR_NO=0.0
!
-!RPG3/OLEL=0.0
+!WC_N2O5/WR_NO2=0.0
!
-!RPG3/OLEH=0.0
+!WC_N2O5/WR_NO3=0.0
!
-!RPG3/ALKL=0.0
+!WC_N2O5/WR_N2O5=0.0
!
-!RPG3/ALKM=0.0
+!WC_N2O5/WR_HONO=0.0
!
-!RPG3/ALKH=0.0
+!WC_N2O5/WR_HNO3=0.0
!
-!RPG3/AROH=0.0
+!WC_N2O5/WR_HNO4=0.0
!
-!RPG3/AROL=0.0
+!WC_N2O5/WR_NH3=0.0
!
-!RPG3/AROO=0.0
+!WC_N2O5/WR_OH=0.0
!
-!RPG3/ARAL=0.0
+!WC_N2O5/WR_HO2=0.0
!
-!RPG3/ARAC=0.0
+!WC_N2O5/WR_CO2=0.0
!
-!RPG3/PAH=0.0
+!WC_N2O5/WR_SO2=0.0
!
-!RPG3/HCHO=0.0
+!WC_N2O5/WR_SULF=0.0
!
-!RPG3/ALD2=0.0
+!WC_N2O5/WR_HCHO=0.0
!
-!RPG3/KETL=0.0
+!WC_N2O5/WR_ORA1=0.0
!
-!RPG3/KETH=0.0
+!WC_N2O5/WR_ORA2=0.0
!
-!RPG3/MEOH=0.0
+!WC_N2O5/WR_MO2=0.0
!
-!RPG3/ETOH=0.0
+!WC_N2O5/WR_OP1=0.0
!
-!RPG3/ALCH=0.0
+!WC_N2O5/WR_ASO3=0.0
!
-!RPG3/ISOP=0.0
+!WC_N2O5/WR_ASO4=0.0
!
-!RPG3/BIOL=0.0
+!WC_N2O5/WR_ASO5=0.0
!
-!RPG3/BIOH=0.0
+!WC_N2O5/WR_AHSO5=0.0
!
-!RPG3/MTBE=0.0
+!WC_N2O5/WR_AHMS=0.0
!
-!RPG3/MVK=0.0
+!WC_HONO/O3=0.0
!
-!RPG3/MCR=0.0
+!WC_HONO/H2O2=0.0
!
-!RPG3/MGLY=0.0
+!WC_HONO/NO=0.0
!
-!RPG3/GLY=0.0
+!WC_HONO/NO2=0.0
!
-!RPG3/ORA1=0.0
+!WC_HONO/NO3=0.0
!
-!RPG3/ORA2=0.0
+!WC_HONO/N2O5=0.0
!
-!RPG3/ACID=0.0
+!WC_HONO/HONO=+KTC7
+ PJAC(:,48,7)=+TPK%KTC7(:)
!
-!RPG3/UR28=0.0
+!WC_HONO/HNO3=0.0
!
-!RPG3/UR21=0.0
+!WC_HONO/HNO4=0.0
!
-!RPG3/URG2=0.0
+!WC_HONO/NH3=0.0
!
-!RPG3/UR26=0.0
+!WC_HONO/SO2=0.0
!
-!RPG3/RPG2=0.0
+!WC_HONO/SULF=0.0
!
-!RPG3/RP18=0.0
+!WC_HONO/CO=0.0
!
-!RPG3/RPG3=-K334*<OH>
- PJAC(:,52,52)=-TPK%K334(:)*PCONC(:,15)
+!WC_HONO/OH=0.0
!
-!RPG3/URG4=0.0
+!WC_HONO/HO2=0.0
!
-!RPG3/UR8=0.0
+!WC_HONO/CH4=0.0
!
-!RPG3/UR17=0.0
+!WC_HONO/ETH=0.0
!
-!RPG3/UR7=0.0
+!WC_HONO/ALKA=0.0
!
-!RPG3/RPR3=0.0
+!WC_HONO/ALKE=0.0
!
-!RPG3/URG6=0.0
+!WC_HONO/BIO=0.0
!
-!RPG3/UR22=0.0
+!WC_HONO/ARO=0.0
!
-!RPG3/URG7=0.0
+!WC_HONO/HCHO=0.0
!
-!RPG3/RPR4=0.0
+!WC_HONO/ALD=0.0
!
-!RPG3/RPR7=0.0
+!WC_HONO/KET=0.0
!
-!RPG3/RPG7=0.0
+!WC_HONO/CARBO=0.0
!
-!RPG3/URG8=0.0
+!WC_HONO/ONIT=0.0
!
-!RPG3/UR19=0.0
+!WC_HONO/PAN=0.0
!
-!RPG3/URG9=0.0
+!WC_HONO/OP1=0.0
!
-!RPG3/AP7=0.0
+!WC_HONO/OP2=0.0
!
-!RPG3/URG10=0.0
+!WC_HONO/ORA1=0.0
!
-!RPG3/RPR1=0.0
+!WC_HONO/ORA2=0.0
!
-!RPG3/RPR5=0.0
+!WC_HONO/MO2=0.0
!
-!RPG3/RPR8=0.0
+!WC_HONO/ALKAP=0.0
!
-!RPG3/RP10=0.0
+!WC_HONO/ALKEP=0.0
!
-!RPG3/RP11=0.0
+!WC_HONO/BIOP=0.0
!
-!RPG3/RP16=0.0
+!WC_HONO/PHO=0.0
!
-!RPG3/RPRL=0.0
+!WC_HONO/ADD=0.0
!
-!RPG3/APAN=0.0
+!WC_HONO/AROP=0.0
!
-!RPG3/PAN1=0.0
+!WC_HONO/CARBOP=0.0
!
-!RPG3/PAN2=0.0
+!WC_HONO/OLN=0.0
!
-!RPG3/PAN3=0.0
+!WC_HONO/XO2=0.0
!
-!RPG3/PAN4=0.0
+!WC_HONO/WC_O3=0.0
!
-!RPG3/PAN6=0.0
+!WC_HONO/WC_H2O2=0.0
!
-!RPG3/PAN7=0.0
+!WC_HONO/WC_NO=0.0
!
-!RPG3/PAN8=0.0
+!WC_HONO/WC_NO2=0.0
!
-!RPG3/PN10=0.0
+!WC_HONO/WC_NO3=0.0
!
-!RPG3/RO2T=+1.0000000*K232*<RO233>+1.0000000*K253*<RO236>
- PJAC(:,52,85)=+1.0000000*TPK%K232(:)*TPK%RO233(:)+1.0000000*TPK%K253(:)*TPK%RO&
-&236(:)
+!WC_HONO/WC_N2O5=0.0
!
-!RPG3/RO21=0.0
+!WC_HONO/WC_HONO=-KTC27-KC8*<WC_OH>
+ PJAC(:,48,48)=-TPK%KTC27(:)-TPK%KC8(:)*PCONC(:,52)
!
-!RPG3/RO25=0.0
+!WC_HONO/WC_HNO3=0.0
!
-!URG4/NO=0.0
+!WC_HONO/WC_HNO4=+KC11
+ PJAC(:,48,50)=+TPK%KC11(:)
!
-!URG4/NO2=0.0
+!WC_HONO/WC_NH3=0.0
!
-!URG4/O3=-02*K086*<BIOL>
- PJAC(:,53,3)=-02*TPK%K086(:)*PCONC(:,36)
+!WC_HONO/WC_OH=-KC8*<WC_HONO>
+ PJAC(:,48,52)=-TPK%KC8(:)*PCONC(:,48)
!
-!URG4/HONO=0.0
+!WC_HONO/WC_HO2=0.0
!
-!URG4/HNO3=0.0
+!WC_HONO/WC_CO2=0.0
!
-!URG4/HNO4=0.0
+!WC_HONO/WC_SO2=0.0
!
-!URG4/N2O5=0.0
+!WC_HONO/WC_SULF=0.0
!
-!URG4/NO3=0.0
+!WC_HONO/WC_HCHO=0.0
!
-!URG4/NH3=0.0
+!WC_HONO/WC_ORA1=0.0
!
-!URG4/HO2=+1.0000000*K318*<RO256>+1.0000000*K332*<RO257>
- PJAC(:,53,10)=+1.0000000*TPK%K318(:)*TPK%RO256(:)+1.0000000*TPK%K332(:)*TPK%RO&
-&257(:)
+!WC_HONO/WC_ORA2=0.0
!
-!URG4/CO=0.0
+!WC_HONO/WC_MO2=0.0
!
-!URG4/H2O2=0.0
+!WC_HONO/WC_OP1=0.0
!
-!URG4/SO2=0.0
+!WC_HONO/WC_ASO3=0.0
!
-!URG4/H2SO4=0.0
+!WC_HONO/WC_ASO4=0.0
!
-!URG4/OH=0.0
+!WC_HONO/WC_ASO5=0.0
!
-!URG4/ETHE=0.0
+!WC_HONO/WC_AHSO5=0.0
!
-!URG4/OLEL=0.0
+!WC_HONO/WC_AHMS=0.0
!
-!URG4/OLEH=0.0
+!WC_HONO/WR_O3=0.0
!
-!URG4/ALKL=0.0
+!WC_HONO/WR_H2O2=0.0
!
-!URG4/ALKM=0.0
+!WC_HONO/WR_NO=0.0
!
-!URG4/ALKH=0.0
+!WC_HONO/WR_NO2=0.0
!
-!URG4/AROH=0.0
+!WC_HONO/WR_NO3=0.0
!
-!URG4/AROL=0.0
+!WC_HONO/WR_N2O5=0.0
!
-!URG4/AROO=0.0
+!WC_HONO/WR_HONO=0.0
!
-!URG4/ARAL=0.0
+!WC_HONO/WR_HNO3=0.0
!
-!URG4/ARAC=0.0
+!WC_HONO/WR_HNO4=0.0
!
-!URG4/PAH=0.0
+!WC_HONO/WR_NH3=0.0
!
-!URG4/HCHO=0.0
+!WC_HONO/WR_OH=0.0
!
-!URG4/ALD2=0.0
+!WC_HONO/WR_HO2=0.0
!
-!URG4/KETL=0.0
+!WC_HONO/WR_CO2=0.0
!
-!URG4/KETH=0.0
+!WC_HONO/WR_SO2=0.0
!
-!URG4/MEOH=0.0
+!WC_HONO/WR_SULF=0.0
!
-!URG4/ETOH=0.0
+!WC_HONO/WR_HCHO=0.0
!
-!URG4/ALCH=0.0
+!WC_HONO/WR_ORA1=0.0
!
-!URG4/ISOP=0.0
+!WC_HONO/WR_ORA2=0.0
!
-!URG4/BIOL=-02*K086*<O3>
- PJAC(:,53,36)=-02*TPK%K086(:)*PCONC(:,3)
+!WC_HONO/WR_MO2=0.0
!
-!URG4/BIOH=0.0
+!WC_HONO/WR_OP1=0.0
!
-!URG4/MTBE=0.0
+!WC_HONO/WR_ASO3=0.0
!
-!URG4/MVK=0.0
+!WC_HONO/WR_ASO4=0.0
!
-!URG4/MCR=0.0
+!WC_HONO/WR_ASO5=0.0
!
-!URG4/MGLY=0.0
+!WC_HONO/WR_AHSO5=0.0
!
-!URG4/GLY=0.0
+!WC_HONO/WR_AHMS=0.0
!
-!URG4/ORA1=0.0
+!WC_HNO3/O3=0.0
!
-!URG4/ORA2=0.0
+!WC_HNO3/H2O2=0.0
!
-!URG4/ACID=0.0
+!WC_HNO3/NO=0.0
!
-!URG4/UR28=0.0
+!WC_HNO3/NO2=0.0
!
-!URG4/UR21=0.0
+!WC_HNO3/NO3=0.0
!
-!URG4/URG2=0.0
+!WC_HNO3/N2O5=0.0
!
-!URG4/UR26=0.0
+!WC_HNO3/HONO=0.0
!
-!URG4/RPG2=0.0
+!WC_HNO3/HNO3=+KTC8
+ PJAC(:,49,8)=+TPK%KTC8(:)
!
-!URG4/RP18=0.0
+!WC_HNO3/HNO4=0.0
!
-!URG4/RPG3=0.0
+!WC_HNO3/NH3=0.0
!
-!URG4/URG4=-K351
- PJAC(:,53,53)=-TPK%K351(:)
+!WC_HNO3/SO2=0.0
!
-!URG4/UR8=0.0
+!WC_HNO3/SULF=0.0
!
-!URG4/UR17=0.0
+!WC_HNO3/CO=0.0
!
-!URG4/UR7=0.0
+!WC_HNO3/OH=0.0
!
-!URG4/RPR3=0.0
+!WC_HNO3/HO2=0.0
!
-!URG4/URG6=0.0
+!WC_HNO3/CH4=0.0
!
-!URG4/UR22=0.0
+!WC_HNO3/ETH=0.0
!
-!URG4/URG7=0.0
+!WC_HNO3/ALKA=0.0
!
-!URG4/RPR4=0.0
+!WC_HNO3/ALKE=0.0
!
-!URG4/RPR7=0.0
+!WC_HNO3/BIO=0.0
!
-!URG4/RPG7=0.0
+!WC_HNO3/ARO=0.0
!
-!URG4/URG8=0.0
+!WC_HNO3/HCHO=0.0
!
-!URG4/UR19=0.0
+!WC_HNO3/ALD=0.0
!
-!URG4/URG9=0.0
+!WC_HNO3/KET=0.0
!
-!URG4/AP7=0.0
+!WC_HNO3/CARBO=0.0
!
-!URG4/URG10=0.0
+!WC_HNO3/ONIT=0.0
!
-!URG4/RPR1=0.0
+!WC_HNO3/PAN=0.0
!
-!URG4/RPR5=0.0
+!WC_HNO3/OP1=0.0
!
-!URG4/RPR8=0.0
+!WC_HNO3/OP2=0.0
!
-!URG4/RP10=0.0
+!WC_HNO3/ORA1=0.0
!
-!URG4/RP11=0.0
+!WC_HNO3/ORA2=0.0
!
-!URG4/RP16=0.0
+!WC_HNO3/MO2=0.0
!
-!URG4/RPRL=0.0
+!WC_HNO3/ALKAP=0.0
!
-!URG4/APAN=0.0
+!WC_HNO3/ALKEP=0.0
!
-!URG4/PAN1=0.0
+!WC_HNO3/BIOP=0.0
!
-!URG4/PAN2=0.0
+!WC_HNO3/PHO=0.0
!
-!URG4/PAN3=0.0
+!WC_HNO3/ADD=0.0
!
-!URG4/PAN4=0.0
+!WC_HNO3/AROP=0.0
!
-!URG4/PAN6=0.0
+!WC_HNO3/CARBOP=0.0
!
-!URG4/PAN7=0.0
+!WC_HNO3/OLN=0.0
!
-!URG4/PAN8=0.0
+!WC_HNO3/XO2=0.0
!
-!URG4/PN10=0.0
+!WC_HNO3/WC_O3=0.0
!
-!URG4/RO2T=0.0
+!WC_HNO3/WC_H2O2=0.0
!
-!URG4/RO21=0.0
+!WC_HNO3/WC_NO=0.0
!
-!URG4/RO25=0.0
+!WC_HNO3/WC_NO2=0.0
!
-!UR8/NO=0.0
+!WC_HNO3/WC_NO3=+KC15*<WC_SULF>+KC16*<WC_SO2>
+ PJAC(:,49,46)=+TPK%KC15(:)*PCONC(:,56)+TPK%KC16(:)*PCONC(:,55)
!
-!UR8/NO2=0.0
+!WC_HNO3/WC_N2O5=+KC14+KC14
+ PJAC(:,49,47)=+TPK%KC14(:)+TPK%KC14(:)
!
-!UR8/O3=+0.055*K090*<BIOH>
- PJAC(:,54,3)=+0.055*TPK%K090(:)*PCONC(:,37)
+!WC_HNO3/WC_HONO=0.0
!
-!UR8/HONO=0.0
+!WC_HNO3/WC_HNO3=-KTC28-KC13
+ PJAC(:,49,49)=-TPK%KTC28(:)-TPK%KC13(:)
!
-!UR8/HNO3=0.0
+!WC_HNO3/WC_HNO4=+KC12*<WC_SO2>
+ PJAC(:,49,50)=+TPK%KC12(:)*PCONC(:,55)
!
-!UR8/HNO4=0.0
+!WC_HNO3/WC_NH3=0.0
!
-!UR8/N2O5=0.0
+!WC_HNO3/WC_OH=0.0
!
-!UR8/NO3=0.0
+!WC_HNO3/WC_HO2=0.0
!
-!UR8/NH3=0.0
+!WC_HNO3/WC_CO2=0.0
!
-!UR8/HO2=0.0
+!WC_HNO3/WC_SO2=+KC12*<WC_HNO4>+KC16*<WC_NO3>
+ PJAC(:,49,55)=+TPK%KC12(:)*PCONC(:,50)+TPK%KC16(:)*PCONC(:,46)
!
-!UR8/CO=0.0
+!WC_HNO3/WC_SULF=+KC15*<WC_NO3>
+ PJAC(:,49,56)=+TPK%KC15(:)*PCONC(:,46)
!
-!UR8/H2O2=0.0
+!WC_HNO3/WC_HCHO=0.0
!
-!UR8/SO2=0.0
+!WC_HNO3/WC_ORA1=0.0
!
-!UR8/H2SO4=0.0
+!WC_HNO3/WC_ORA2=0.0
!
-!UR8/OH=0.0
+!WC_HNO3/WC_MO2=0.0
!
-!UR8/ETHE=0.0
+!WC_HNO3/WC_OP1=0.0
!
-!UR8/OLEL=0.0
+!WC_HNO3/WC_ASO3=0.0
!
-!UR8/OLEH=0.0
+!WC_HNO3/WC_ASO4=0.0
!
-!UR8/ALKL=0.0
+!WC_HNO3/WC_ASO5=0.0
!
-!UR8/ALKM=0.0
+!WC_HNO3/WC_AHSO5=0.0
!
-!UR8/ALKH=0.0
+!WC_HNO3/WC_AHMS=0.0
!
-!UR8/AROH=0.0
+!WC_HNO3/WR_O3=0.0
!
-!UR8/AROL=0.0
+!WC_HNO3/WR_H2O2=0.0
!
-!UR8/AROO=0.0
+!WC_HNO3/WR_NO=0.0
!
-!UR8/ARAL=0.0
+!WC_HNO3/WR_NO2=0.0
!
-!UR8/ARAC=0.0
+!WC_HNO3/WR_NO3=0.0
!
-!UR8/PAH=0.0
+!WC_HNO3/WR_N2O5=0.0
!
-!UR8/HCHO=0.0
+!WC_HNO3/WR_HONO=0.0
!
-!UR8/ALD2=0.0
+!WC_HNO3/WR_HNO3=0.0
!
-!UR8/KETL=0.0
+!WC_HNO3/WR_HNO4=0.0
!
-!UR8/KETH=0.0
+!WC_HNO3/WR_NH3=0.0
!
-!UR8/MEOH=0.0
+!WC_HNO3/WR_OH=0.0
!
-!UR8/ETOH=0.0
+!WC_HNO3/WR_HO2=0.0
!
-!UR8/ALCH=0.0
+!WC_HNO3/WR_CO2=0.0
!
-!UR8/ISOP=0.0
+!WC_HNO3/WR_SO2=0.0
!
-!UR8/BIOL=0.0
+!WC_HNO3/WR_SULF=0.0
!
-!UR8/BIOH=+0.055*K090*<O3>
- PJAC(:,54,37)=+0.055*TPK%K090(:)*PCONC(:,3)
+!WC_HNO3/WR_HCHO=0.0
!
-!UR8/MTBE=0.0
+!WC_HNO3/WR_ORA1=0.0
!
-!UR8/MVK=0.0
+!WC_HNO3/WR_ORA2=0.0
!
-!UR8/MCR=0.0
+!WC_HNO3/WR_MO2=0.0
!
-!UR8/MGLY=0.0
+!WC_HNO3/WR_OP1=0.0
!
-!UR8/GLY=0.0
+!WC_HNO3/WR_ASO3=0.0
!
-!UR8/ORA1=0.0
+!WC_HNO3/WR_ASO4=0.0
!
-!UR8/ORA2=0.0
+!WC_HNO3/WR_ASO5=0.0
!
-!UR8/ACID=0.0
+!WC_HNO3/WR_AHSO5=0.0
!
-!UR8/UR28=0.0
+!WC_HNO3/WR_AHMS=0.0
!
-!UR8/UR21=0.0
+!WC_HNO4/O3=0.0
!
-!UR8/URG2=0.0
+!WC_HNO4/H2O2=0.0
!
-!UR8/UR26=0.0
+!WC_HNO4/NO=0.0
!
-!UR8/RPG2=0.0
+!WC_HNO4/NO2=0.0
!
-!UR8/RP18=0.0
+!WC_HNO4/NO3=0.0
!
-!UR8/RPG3=0.0
+!WC_HNO4/N2O5=0.0
!
-!UR8/URG4=0.0
+!WC_HNO4/HONO=0.0
!
-!UR8/UR8=-K358
- PJAC(:,54,54)=-TPK%K358(:)
+!WC_HNO4/HNO3=0.0
!
-!UR8/UR17=0.0
+!WC_HNO4/HNO4=+KTC9
+ PJAC(:,50,9)=+TPK%KTC9(:)
!
-!UR8/UR7=0.0
+!WC_HNO4/NH3=0.0
!
-!UR8/RPR3=0.0
+!WC_HNO4/SO2=0.0
!
-!UR8/URG6=0.0
+!WC_HNO4/SULF=0.0
!
-!UR8/UR22=0.0
+!WC_HNO4/CO=0.0
!
-!UR8/URG7=0.0
+!WC_HNO4/OH=0.0
!
-!UR8/RPR4=0.0
+!WC_HNO4/HO2=0.0
!
-!UR8/RPR7=0.0
+!WC_HNO4/CH4=0.0
!
-!UR8/RPG7=0.0
+!WC_HNO4/ETH=0.0
!
-!UR8/URG8=0.0
+!WC_HNO4/ALKA=0.0
!
-!UR8/UR19=0.0
+!WC_HNO4/ALKE=0.0
!
-!UR8/URG9=0.0
+!WC_HNO4/BIO=0.0
!
-!UR8/AP7=0.0
+!WC_HNO4/ARO=0.0
!
-!UR8/URG10=0.0
+!WC_HNO4/HCHO=0.0
!
-!UR8/RPR1=0.0
+!WC_HNO4/ALD=0.0
!
-!UR8/RPR5=0.0
+!WC_HNO4/KET=0.0
!
-!UR8/RPR8=0.0
+!WC_HNO4/CARBO=0.0
!
-!UR8/RP10=0.0
+!WC_HNO4/ONIT=0.0
!
-!UR8/RP11=0.0
+!WC_HNO4/PAN=0.0
!
-!UR8/RP16=0.0
+!WC_HNO4/OP1=0.0
!
-!UR8/RPRL=0.0
+!WC_HNO4/OP2=0.0
!
-!UR8/APAN=0.0
+!WC_HNO4/ORA1=0.0
!
-!UR8/PAN1=0.0
+!WC_HNO4/ORA2=0.0
!
-!UR8/PAN2=0.0
+!WC_HNO4/MO2=0.0
!
-!UR8/PAN3=0.0
+!WC_HNO4/ALKAP=0.0
!
-!UR8/PAN4=0.0
+!WC_HNO4/ALKEP=0.0
!
-!UR8/PAN6=0.0
+!WC_HNO4/BIOP=0.0
!
-!UR8/PAN7=0.0
+!WC_HNO4/PHO=0.0
!
-!UR8/PAN8=0.0
+!WC_HNO4/ADD=0.0
!
-!UR8/PN10=0.0
+!WC_HNO4/AROP=0.0
!
-!UR8/RO2T=0.0
+!WC_HNO4/CARBOP=0.0
!
-!UR8/RO21=0.0
+!WC_HNO4/OLN=0.0
!
-!UR8/RO25=0.0
+!WC_HNO4/XO2=0.0
!
-!UR17/NO=+1.0000000*K204*<RO226>
- PJAC(:,55,1)=+1.0000000*TPK%K204(:)*TPK%RO226(:)
+!WC_HNO4/WC_O3=0.0
!
-!UR17/NO2=0.0
+!WC_HNO4/WC_H2O2=0.0
!
-!UR17/O3=0.0
+!WC_HNO4/WC_NO=0.0
!
-!UR17/HONO=0.0
+!WC_HNO4/WC_NO2=+KC9*<WC_HO2>
+ PJAC(:,50,45)=+TPK%KC9(:)*PCONC(:,53)
!
-!UR17/HNO3=0.0
+!WC_HNO4/WC_NO3=0.0
!
-!UR17/HNO4=0.0
+!WC_HNO4/WC_N2O5=0.0
!
-!UR17/N2O5=0.0
+!WC_HNO4/WC_HONO=0.0
!
-!UR17/NO3=0.0
+!WC_HNO4/WC_HNO3=0.0
!
-!UR17/NH3=0.0
+!WC_HNO4/WC_HNO4=-KTC29-KC10-KC11-KC12*<WC_SO2>
+ PJAC(:,50,50)=-TPK%KTC29(:)-TPK%KC10(:)-TPK%KC11(:)-TPK%KC12(:)*PCONC(:,55)
!
-!UR17/HO2=+1.0000000*K206*<RO226>
- PJAC(:,55,10)=+1.0000000*TPK%K206(:)*TPK%RO226(:)
+!WC_HNO4/WC_NH3=0.0
!
-!UR17/CO=0.0
+!WC_HNO4/WC_OH=0.0
!
-!UR17/H2O2=0.0
+!WC_HNO4/WC_HO2=+KC9*<WC_NO2>
+ PJAC(:,50,53)=+TPK%KC9(:)*PCONC(:,45)
!
-!UR17/SO2=0.0
+!WC_HNO4/WC_CO2=0.0
!
-!UR17/H2SO4=0.0
+!WC_HNO4/WC_SO2=-KC12*<WC_HNO4>
+ PJAC(:,50,55)=-TPK%KC12(:)*PCONC(:,50)
!
-!UR17/OH=0.0
+!WC_HNO4/WC_SULF=0.0
!
-!UR17/ETHE=0.0
+!WC_HNO4/WC_HCHO=0.0
!
-!UR17/OLEL=0.0
+!WC_HNO4/WC_ORA1=0.0
!
-!UR17/OLEH=0.0
+!WC_HNO4/WC_ORA2=0.0
!
-!UR17/ALKL=0.0
+!WC_HNO4/WC_MO2=0.0
!
-!UR17/ALKM=0.0
+!WC_HNO4/WC_OP1=0.0
!
-!UR17/ALKH=0.0
+!WC_HNO4/WC_ASO3=0.0
!
-!UR17/AROH=0.0
+!WC_HNO4/WC_ASO4=0.0
!
-!UR17/AROL=0.0
+!WC_HNO4/WC_ASO5=0.0
!
-!UR17/AROO=0.0
+!WC_HNO4/WC_AHSO5=0.0
!
-!UR17/ARAL=0.0
+!WC_HNO4/WC_AHMS=0.0
!
-!UR17/ARAC=0.0
+!WC_HNO4/WR_O3=0.0
!
-!UR17/PAH=0.0
+!WC_HNO4/WR_H2O2=0.0
!
-!UR17/HCHO=0.0
+!WC_HNO4/WR_NO=0.0
!
-!UR17/ALD2=0.0
+!WC_HNO4/WR_NO2=0.0
!
-!UR17/KETL=0.0
+!WC_HNO4/WR_NO3=0.0
!
-!UR17/KETH=0.0
+!WC_HNO4/WR_N2O5=0.0
!
-!UR17/MEOH=0.0
+!WC_HNO4/WR_HONO=0.0
!
-!UR17/ETOH=0.0
+!WC_HNO4/WR_HNO3=0.0
!
-!UR17/ALCH=0.0
+!WC_HNO4/WR_HNO4=0.0
!
-!UR17/ISOP=0.0
+!WC_HNO4/WR_NH3=0.0
!
-!UR17/BIOL=0.0
+!WC_HNO4/WR_OH=0.0
!
-!UR17/BIOH=0.0
+!WC_HNO4/WR_HO2=0.0
!
-!UR17/MTBE=0.0
+!WC_HNO4/WR_CO2=0.0
!
-!UR17/MVK=0.0
+!WC_HNO4/WR_SO2=0.0
!
-!UR17/MCR=0.0
+!WC_HNO4/WR_SULF=0.0
!
-!UR17/MGLY=0.0
+!WC_HNO4/WR_HCHO=0.0
!
-!UR17/GLY=0.0
+!WC_HNO4/WR_ORA1=0.0
!
-!UR17/ORA1=0.0
+!WC_HNO4/WR_ORA2=0.0
!
-!UR17/ORA2=0.0
+!WC_HNO4/WR_MO2=0.0
!
-!UR17/ACID=0.0
+!WC_HNO4/WR_OP1=0.0
!
-!UR17/UR28=0.0
+!WC_HNO4/WR_ASO3=0.0
!
-!UR17/UR21=0.0
+!WC_HNO4/WR_ASO4=0.0
!
-!UR17/URG2=0.0
+!WC_HNO4/WR_ASO5=0.0
!
-!UR17/UR26=0.0
+!WC_HNO4/WR_AHSO5=0.0
!
-!UR17/RPG2=0.0
+!WC_HNO4/WR_AHMS=0.0
!
-!UR17/RP18=0.0
+RETURN
+END SUBROUTINE SUBJ9
!
-!UR17/RPG3=0.0
+SUBROUTINE SUBJ10
!
-!UR17/URG4=0.0
+!Indices 51 a 55
!
-!UR17/UR8=0.0
!
-!UR17/UR17=-K359
- PJAC(:,55,55)=-TPK%K359(:)
+!WC_NH3/O3=0.0
!
-!UR17/UR7=0.0
+!WC_NH3/H2O2=0.0
!
-!UR17/RPR3=0.0
+!WC_NH3/NO=0.0
!
-!UR17/URG6=0.0
+!WC_NH3/NO2=0.0
!
-!UR17/UR22=0.0
+!WC_NH3/NO3=0.0
!
-!UR17/URG7=0.0
+!WC_NH3/N2O5=0.0
!
-!UR17/RPR4=0.0
+!WC_NH3/HONO=0.0
!
-!UR17/RPR7=0.0
+!WC_NH3/HNO3=0.0
!
-!UR17/RPG7=0.0
+!WC_NH3/HNO4=0.0
!
-!UR17/URG8=0.0
+!WC_NH3/NH3=+KTC10
+ PJAC(:,51,10)=+TPK%KTC10(:)
!
-!UR17/UR19=0.0
+!WC_NH3/SO2=0.0
!
-!UR17/URG9=0.0
+!WC_NH3/SULF=0.0
!
-!UR17/AP7=0.0
+!WC_NH3/CO=0.0
!
-!UR17/URG10=0.0
+!WC_NH3/OH=0.0
!
-!UR17/RPR1=0.0
+!WC_NH3/HO2=0.0
!
-!UR17/RPR5=0.0
+!WC_NH3/CH4=0.0
!
-!UR17/RPR8=0.0
+!WC_NH3/ETH=0.0
!
-!UR17/RP10=0.0
+!WC_NH3/ALKA=0.0
!
-!UR17/RP11=0.0
+!WC_NH3/ALKE=0.0
!
-!UR17/RP16=0.0
+!WC_NH3/BIO=0.0
!
-!UR17/RPRL=0.0
+!WC_NH3/ARO=0.0
!
-!UR17/APAN=0.0
+!WC_NH3/HCHO=0.0
!
-!UR17/PAN1=0.0
+!WC_NH3/ALD=0.0
!
-!UR17/PAN2=0.0
+!WC_NH3/KET=0.0
!
-!UR17/PAN3=0.0
+!WC_NH3/CARBO=0.0
!
-!UR17/PAN4=0.0
+!WC_NH3/ONIT=0.0
!
-!UR17/PAN6=0.0
+!WC_NH3/PAN=0.0
!
-!UR17/PAN7=0.0
+!WC_NH3/OP1=0.0
!
-!UR17/PAN8=0.0
+!WC_NH3/OP2=0.0
!
-!UR17/PN10=0.0
+!WC_NH3/ORA1=0.0
!
-!UR17/RO2T=+1.0000000*K205*<RO226>
- PJAC(:,55,85)=+1.0000000*TPK%K205(:)*TPK%RO226(:)
+!WC_NH3/ORA2=0.0
!
-!UR17/RO21=0.0
+!WC_NH3/MO2=0.0
!
-!UR17/RO25=0.0
+!WC_NH3/ALKAP=0.0
!
-RETURN
-END SUBROUTINE SUBJ10
+!WC_NH3/ALKEP=0.0
!
-SUBROUTINE SUBJ11
+!WC_NH3/BIOP=0.0
!
-!Indices 56 a 60
+!WC_NH3/PHO=0.0
!
+!WC_NH3/ADD=0.0
!
-!UR7/NO=+TPK%CFA12*K207*<RO227>+0.3*K210*<RO228>
- PJAC(:,56,1)=+TPK%CFA12*TPK%K207(:)*TPK%RO227(:)+0.3*TPK%K210(:)*TPK%RO228(:)
+!WC_NH3/AROP=0.0
!
-!UR7/NO2=0.0
+!WC_NH3/CARBOP=0.0
!
-!UR7/O3=+0.055*K090*<BIOH>
- PJAC(:,56,3)=+0.055*TPK%K090(:)*PCONC(:,37)
+!WC_NH3/OLN=0.0
!
-!UR7/HONO=0.0
+!WC_NH3/XO2=0.0
!
-!UR7/HNO3=0.0
+!WC_NH3/WC_O3=0.0
!
-!UR7/HNO4=0.0
+!WC_NH3/WC_H2O2=0.0
!
-!UR7/N2O5=0.0
+!WC_NH3/WC_NO=0.0
!
-!UR7/NO3=0.0
+!WC_NH3/WC_NO2=0.0
!
-!UR7/NH3=0.0
+!WC_NH3/WC_NO3=0.0
!
-!UR7/HO2=+0.3*K209*<RO227>+0.3*K212*<RO228>
- PJAC(:,56,10)=+0.3*TPK%K209(:)*TPK%RO227(:)+0.3*TPK%K212(:)*TPK%RO228(:)
+!WC_NH3/WC_N2O5=0.0
!
-!UR7/CO=0.0
+!WC_NH3/WC_HONO=0.0
!
-!UR7/H2O2=0.0
+!WC_NH3/WC_HNO3=0.0
!
-!UR7/SO2=0.0
+!WC_NH3/WC_HNO4=0.0
!
-!UR7/H2SO4=0.0
+!WC_NH3/WC_NH3=-KTC30
+ PJAC(:,51,51)=-TPK%KTC30(:)
!
-!UR7/OH=0.0
+!WC_NH3/WC_OH=0.0
!
-!UR7/ETHE=0.0
+!WC_NH3/WC_HO2=0.0
!
-!UR7/OLEL=0.0
+!WC_NH3/WC_CO2=0.0
!
-!UR7/OLEH=0.0
+!WC_NH3/WC_SO2=0.0
!
-!UR7/ALKL=0.0
+!WC_NH3/WC_SULF=0.0
!
-!UR7/ALKM=0.0
+!WC_NH3/WC_HCHO=0.0
!
-!UR7/ALKH=0.0
+!WC_NH3/WC_ORA1=0.0
!
-!UR7/AROH=0.0
+!WC_NH3/WC_ORA2=0.0
!
-!UR7/AROL=0.0
+!WC_NH3/WC_MO2=0.0
!
-!UR7/AROO=0.0
+!WC_NH3/WC_OP1=0.0
!
-!UR7/ARAL=0.0
+!WC_NH3/WC_ASO3=0.0
!
-!UR7/ARAC=0.0
+!WC_NH3/WC_ASO4=0.0
!
-!UR7/PAH=0.0
+!WC_NH3/WC_ASO5=0.0
!
-!UR7/HCHO=0.0
+!WC_NH3/WC_AHSO5=0.0
!
-!UR7/ALD2=0.0
+!WC_NH3/WC_AHMS=0.0
!
-!UR7/KETL=0.0
+!WC_NH3/WR_O3=0.0
!
-!UR7/KETH=0.0
+!WC_NH3/WR_H2O2=0.0
!
-!UR7/MEOH=0.0
+!WC_NH3/WR_NO=0.0
!
-!UR7/ETOH=0.0
+!WC_NH3/WR_NO2=0.0
!
-!UR7/ALCH=0.0
+!WC_NH3/WR_NO3=0.0
!
-!UR7/ISOP=0.0
+!WC_NH3/WR_N2O5=0.0
!
-!UR7/BIOL=0.0
+!WC_NH3/WR_HONO=0.0
!
-!UR7/BIOH=+0.055*K090*<O3>
- PJAC(:,56,37)=+0.055*TPK%K090(:)*PCONC(:,3)
+!WC_NH3/WR_HNO3=0.0
!
-!UR7/MTBE=0.0
+!WC_NH3/WR_HNO4=0.0
!
-!UR7/MVK=0.0
+!WC_NH3/WR_NH3=0.0
!
-!UR7/MCR=0.0
+!WC_NH3/WR_OH=0.0
!
-!UR7/MGLY=0.0
+!WC_NH3/WR_HO2=0.0
!
-!UR7/GLY=0.0
+!WC_NH3/WR_CO2=0.0
!
-!UR7/ORA1=0.0
+!WC_NH3/WR_SO2=0.0
!
-!UR7/ORA2=0.0
+!WC_NH3/WR_SULF=0.0
!
-!UR7/ACID=0.0
+!WC_NH3/WR_HCHO=0.0
!
-!UR7/UR28=0.0
+!WC_NH3/WR_ORA1=0.0
!
-!UR7/UR21=0.0
+!WC_NH3/WR_ORA2=0.0
!
-!UR7/URG2=0.0
+!WC_NH3/WR_MO2=0.0
!
-!UR7/UR26=0.0
+!WC_NH3/WR_OP1=0.0
!
-!UR7/RPG2=0.0
+!WC_NH3/WR_ASO3=0.0
!
-!UR7/RP18=0.0
+!WC_NH3/WR_ASO4=0.0
!
-!UR7/RPG3=0.0
+!WC_NH3/WR_ASO5=0.0
!
-!UR7/URG4=0.0
+!WC_NH3/WR_AHSO5=0.0
!
-!UR7/UR8=0.0
+!WC_NH3/WR_AHMS=0.0
!
-!UR7/UR17=0.0
+!WC_OH/O3=0.0
!
-!UR7/UR7=-K357
- PJAC(:,56,56)=-TPK%K357(:)
+!WC_OH/H2O2=0.0
!
-!UR7/RPR3=0.0
+!WC_OH/NO=0.0
!
-!UR7/URG6=0.0
+!WC_OH/NO2=0.0
!
-!UR7/UR22=0.0
+!WC_OH/NO3=0.0
!
-!UR7/URG7=0.0
+!WC_OH/N2O5=0.0
!
-!UR7/RPR4=0.0
+!WC_OH/HONO=0.0
!
-!UR7/RPR7=0.0
+!WC_OH/HNO3=0.0
!
-!UR7/RPG7=0.0
+!WC_OH/HNO4=0.0
!
-!UR7/URG8=0.0
+!WC_OH/NH3=0.0
!
-!UR7/UR19=0.0
+!WC_OH/SO2=0.0
!
-!UR7/URG9=0.0
+!WC_OH/SULF=0.0
!
-!UR7/AP7=0.0
+!WC_OH/CO=0.0
!
-!UR7/URG10=0.0
+!WC_OH/OH=+KTC11
+ PJAC(:,52,14)=+TPK%KTC11(:)
!
-!UR7/RPR1=0.0
+!WC_OH/HO2=0.0
!
-!UR7/RPR5=0.0
+!WC_OH/CH4=0.0
!
-!UR7/RPR8=0.0
+!WC_OH/ETH=0.0
!
-!UR7/RP10=0.0
+!WC_OH/ALKA=0.0
!
-!UR7/RP11=0.0
+!WC_OH/ALKE=0.0
!
-!UR7/RP16=0.0
+!WC_OH/BIO=0.0
!
-!UR7/RPRL=0.0
+!WC_OH/ARO=0.0
!
-!UR7/APAN=0.0
+!WC_OH/HCHO=0.0
!
-!UR7/PAN1=0.0
+!WC_OH/ALD=0.0
!
-!UR7/PAN2=0.0
+!WC_OH/KET=0.0
!
-!UR7/PAN3=0.0
+!WC_OH/CARBO=0.0
!
-!UR7/PAN4=0.0
+!WC_OH/ONIT=0.0
!
-!UR7/PAN6=0.0
+!WC_OH/PAN=0.0
!
-!UR7/PAN7=0.0
+!WC_OH/OP1=0.0
!
-!UR7/PAN8=0.0
+!WC_OH/OP2=0.0
!
-!UR7/PN10=0.0
+!WC_OH/ORA1=0.0
!
-!UR7/RO2T=+K208*<RO227>+0.3*K211*<RO228>
- PJAC(:,56,85)=+TPK%K208(:)*TPK%RO227(:)+0.3*TPK%K211(:)*TPK%RO228(:)
+!WC_OH/ORA2=0.0
!
-!UR7/RO21=0.0
+!WC_OH/MO2=0.0
!
-!UR7/RO25=0.0
+!WC_OH/ALKAP=0.0
!
-!RPR3/NO=+TPK%CFA10*K198*<RO224>+K201*<RO225>
- PJAC(:,57,1)=+TPK%CFA10*TPK%K198(:)*TPK%RO224(:)+TPK%K201(:)*TPK%RO225(:)
+!WC_OH/ALKEP=0.0
!
-!RPR3/NO2=0.0
+!WC_OH/BIOP=0.0
!
-!RPR3/O3=+0.055*K086*<BIOL>
- PJAC(:,57,3)=+0.055*TPK%K086(:)*PCONC(:,36)
+!WC_OH/PHO=0.0
!
-!RPR3/HONO=0.0
+!WC_OH/ADD=0.0
!
-!RPR3/HNO3=0.0
+!WC_OH/AROP=0.0
!
-!RPR3/HNO4=0.0
+!WC_OH/CARBOP=0.0
!
-!RPR3/N2O5=0.0
+!WC_OH/OLN=0.0
!
-!RPR3/NO3=-K313*<RPR3>
- PJAC(:,57,8)=-TPK%K313(:)*PCONC(:,57)
+!WC_OH/XO2=0.0
!
-!RPR3/NH3=0.0
+!WC_OH/WC_O3=+KC6*<WC_HO2>
+ PJAC(:,52,42)=+TPK%KC6(:)*PCONC(:,53)
!
-!RPR3/HO2=+K200*<RO224>+K203*<RO225>
- PJAC(:,57,10)=+TPK%K200(:)*TPK%RO224(:)+TPK%K203(:)*TPK%RO225(:)
+!WC_OH/WC_H2O2=+KC1+KC1-KC4*<WC_OH>
+ PJAC(:,52,43)=+TPK%KC1(:)+TPK%KC1(:)-TPK%KC4(:)*PCONC(:,52)
!
-!RPR3/CO=0.0
+!WC_OH/WC_NO=0.0
!
-!RPR3/H2O2=0.0
+!WC_OH/WC_NO2=0.0
!
-!RPR3/SO2=0.0
+!WC_OH/WC_NO3=0.0
!
-!RPR3/H2SO4=0.0
+!WC_OH/WC_N2O5=0.0
!
-!RPR3/OH=-K312*<RPR3>
- PJAC(:,57,15)=-TPK%K312(:)*PCONC(:,57)
+!WC_OH/WC_HONO=-KC8*<WC_OH>
+ PJAC(:,52,48)=-TPK%KC8(:)*PCONC(:,52)
!
-!RPR3/ETHE=0.0
+!WC_OH/WC_HNO3=+KC13
+ PJAC(:,52,49)=+TPK%KC13(:)
!
-!RPR3/OLEL=0.0
+!WC_OH/WC_HNO4=0.0
!
-!RPR3/OLEH=0.0
+!WC_OH/WC_NH3=0.0
!
-!RPR3/ALKL=0.0
+!WC_OH/WC_OH=-KTC31-KC2*<WC_OH>-KC2*<WC_OH>-KC2*<WC_OH>-KC2*<WC_OH>-KC3*<WC_HO2
+!>-KC4*<WC_H2O2>-KC7*<WC_SO2>-KC8*<WC_HONO>-KC19*<WC_HCHO>-KC20*<WC_ORA1>-KC23*
+!<WC_AHMS>
+ PJAC(:,52,52)=-TPK%KTC31(:)-TPK%KC2(:)*PCONC(:,52)-TPK%KC2(:)*PCONC(:,52)-TPK%&
+&KC2(:)*PCONC(:,52)-TPK%KC2(:)*PCONC(:,52)-TPK%KC3(:)*PCONC(:,53)-TPK%KC4(:)*PC&
+&ONC(:,43)-TPK%KC7(:)*PCONC(:,55)-TPK%KC8(:)*PCONC(:,48)-TPK%KC19(:)*PCONC(:,57&
+&)-TPK%KC20(:)*PCONC(:,58)-TPK%KC23(:)*PCONC(:,66)
!
-!RPR3/ALKM=0.0
+!WC_OH/WC_HO2=-KC3*<WC_OH>+KC6*<WC_O3>
+ PJAC(:,52,53)=-TPK%KC3(:)*PCONC(:,52)+TPK%KC6(:)*PCONC(:,42)
!
-!RPR3/ALKH=0.0
+!WC_OH/WC_CO2=0.0
!
-!RPR3/AROH=0.0
+!WC_OH/WC_SO2=-KC7*<WC_OH>
+ PJAC(:,52,55)=-TPK%KC7(:)*PCONC(:,52)
!
-!RPR3/AROL=0.0
+!WC_OH/WC_SULF=0.0
!
-!RPR3/AROO=0.0
+!WC_OH/WC_HCHO=-KC19*<WC_OH>
+ PJAC(:,52,57)=-TPK%KC19(:)*PCONC(:,52)
!
-!RPR3/ARAL=0.0
+!WC_OH/WC_ORA1=-KC20*<WC_OH>
+ PJAC(:,52,58)=-TPK%KC20(:)*PCONC(:,52)
!
-!RPR3/ARAC=0.0
+!WC_OH/WC_ORA2=0.0
!
-!RPR3/PAH=0.0
+!WC_OH/WC_MO2=0.0
!
-!RPR3/HCHO=0.0
+!WC_OH/WC_OP1=0.0
!
-!RPR3/ALD2=0.0
+!WC_OH/WC_ASO3=0.0
!
-!RPR3/KETL=0.0
+!WC_OH/WC_ASO4=+KC28
+ PJAC(:,52,63)=+TPK%KC28(:)
!
-!RPR3/KETH=0.0
+!WC_OH/WC_ASO5=0.0
!
-!RPR3/MEOH=0.0
+!WC_OH/WC_AHSO5=0.0
!
-!RPR3/ETOH=0.0
+!WC_OH/WC_AHMS=-KC23*<WC_OH>
+ PJAC(:,52,66)=-TPK%KC23(:)*PCONC(:,52)
!
-!RPR3/ALCH=0.0
+!WC_OH/WR_O3=0.0
!
-!RPR3/ISOP=0.0
+!WC_OH/WR_H2O2=0.0
!
-!RPR3/BIOL=+0.055*K086*<O3>
- PJAC(:,57,36)=+0.055*TPK%K086(:)*PCONC(:,3)
+!WC_OH/WR_NO=0.0
!
-!RPR3/BIOH=0.0
+!WC_OH/WR_NO2=0.0
!
-!RPR3/MTBE=0.0
+!WC_OH/WR_NO3=0.0
!
-!RPR3/MVK=0.0
+!WC_OH/WR_N2O5=0.0
!
-!RPR3/MCR=0.0
+!WC_OH/WR_HONO=0.0
!
-!RPR3/MGLY=0.0
+!WC_OH/WR_HNO3=0.0
!
-!RPR3/GLY=0.0
+!WC_OH/WR_HNO4=0.0
!
-!RPR3/ORA1=0.0
+!WC_OH/WR_NH3=0.0
!
-!RPR3/ORA2=0.0
+!WC_OH/WR_OH=0.0
!
-!RPR3/ACID=0.0
+!WC_OH/WR_HO2=0.0
!
-!RPR3/UR28=0.0
+!WC_OH/WR_CO2=0.0
!
-!RPR3/UR21=0.0
+!WC_OH/WR_SO2=0.0
!
-!RPR3/URG2=0.0
+!WC_OH/WR_SULF=0.0
!
-!RPR3/UR26=0.0
+!WC_OH/WR_HCHO=0.0
!
-!RPR3/RPG2=0.0
+!WC_OH/WR_ORA1=0.0
!
-!RPR3/RP18=0.0
+!WC_OH/WR_ORA2=0.0
!
-!RPR3/RPG3=0.0
+!WC_OH/WR_MO2=0.0
!
-!RPR3/URG4=0.0
+!WC_OH/WR_OP1=0.0
!
-!RPR3/UR8=0.0
+!WC_OH/WR_ASO3=0.0
!
-!RPR3/UR17=0.0
+!WC_OH/WR_ASO4=0.0
!
-!RPR3/UR7=0.0
+!WC_OH/WR_ASO5=0.0
!
-!RPR3/RPR3=-K312*<OH>-K313*<NO3>-K314
- PJAC(:,57,57)=-TPK%K312(:)*PCONC(:,15)-TPK%K313(:)*PCONC(:,8)-TPK%K314(:)
+!WC_OH/WR_AHSO5=0.0
!
-!RPR3/URG6=0.0
+!WC_OH/WR_AHMS=0.0
!
-!RPR3/UR22=0.0
+!WC_HO2/O3=0.0
!
-!RPR3/URG7=0.0
+!WC_HO2/H2O2=0.0
!
-!RPR3/RPR4=0.0
+!WC_HO2/NO=0.0
!
-!RPR3/RPR7=0.0
+!WC_HO2/NO2=0.0
!
-!RPR3/RPG7=0.0
+!WC_HO2/NO3=0.0
!
-!RPR3/URG8=0.0
+!WC_HO2/N2O5=0.0
!
-!RPR3/UR19=0.0
+!WC_HO2/HONO=0.0
!
-!RPR3/URG9=0.0
+!WC_HO2/HNO3=0.0
!
-!RPR3/AP7=0.0
+!WC_HO2/HNO4=0.0
!
-!RPR3/URG10=0.0
+!WC_HO2/NH3=0.0
!
-!RPR3/RPR1=0.0
+!WC_HO2/SO2=0.0
!
-!RPR3/RPR5=0.0
+!WC_HO2/SULF=0.0
!
-!RPR3/RPR8=0.0
+!WC_HO2/CO=0.0
!
-!RPR3/RP10=0.0
+!WC_HO2/OH=0.0
!
-!RPR3/RP11=0.0
+!WC_HO2/HO2=+KTC12
+ PJAC(:,53,15)=+TPK%KTC12(:)
!
-!RPR3/RP16=0.0
+!WC_HO2/CH4=0.0
!
-!RPR3/RPRL=0.0
+!WC_HO2/ETH=0.0
!
-!RPR3/APAN=0.0
+!WC_HO2/ALKA=0.0
!
-!RPR3/PAN1=0.0
+!WC_HO2/ALKE=0.0
!
-!RPR3/PAN2=0.0
+!WC_HO2/BIO=0.0
!
-!RPR3/PAN3=0.0
+!WC_HO2/ARO=0.0
!
-!RPR3/PAN4=0.0
+!WC_HO2/HCHO=0.0
!
-!RPR3/PAN6=0.0
+!WC_HO2/ALD=0.0
!
-!RPR3/PAN7=0.0
+!WC_HO2/KET=0.0
!
-!RPR3/PAN8=0.0
+!WC_HO2/CARBO=0.0
!
-!RPR3/PN10=0.0
+!WC_HO2/ONIT=0.0
!
-!RPR3/RO2T=+K199*<RO224>+K202*<RO225>
- PJAC(:,57,85)=+TPK%K199(:)*TPK%RO224(:)+TPK%K202(:)*TPK%RO225(:)
+!WC_HO2/PAN=0.0
!
-!RPR3/RO21=0.0
+!WC_HO2/OP1=0.0
!
-!RPR3/RO25=0.0
+!WC_HO2/OP2=0.0
!
-!URG6/NO=+TPK%CF21*K177*<RO217>+TPK%CF43*K195*<RO223>
- PJAC(:,58,1)=+TPK%CF21*TPK%K177(:)*TPK%RO217(:)+TPK%CF43*TPK%K195(:)*TPK%RO223&
-&(:)
+!WC_HO2/ORA1=0.0
!
-!URG6/NO2=0.0
+!WC_HO2/ORA2=0.0
!
-!URG6/O3=0.0
+!WC_HO2/MO2=0.0
!
-!URG6/HONO=0.0
+!WC_HO2/ALKAP=0.0
!
-!URG6/HNO3=0.0
+!WC_HO2/ALKEP=0.0
!
-!URG6/HNO4=0.0
+!WC_HO2/BIOP=0.0
!
-!URG6/N2O5=0.0
+!WC_HO2/PHO=0.0
!
-!URG6/NO3=0.0
+!WC_HO2/ADD=0.0
!
-!URG6/NH3=0.0
+!WC_HO2/AROP=0.0
!
-!URG6/HO2=0.0
+!WC_HO2/CARBOP=0.0
!
-!URG6/CO=0.0
+!WC_HO2/OLN=0.0
!
-!URG6/H2O2=0.0
+!WC_HO2/XO2=0.0
!
-!URG6/SO2=0.0
+!WC_HO2/WC_O3=-KC6*<WC_HO2>
+ PJAC(:,53,42)=-TPK%KC6(:)*PCONC(:,53)
!
-!URG6/H2SO4=0.0
+!WC_HO2/WC_H2O2=+KC4*<WC_OH>
+ PJAC(:,53,43)=+TPK%KC4(:)*PCONC(:,52)
!
-!URG6/OH=+0.4978440*K323*<RPG7>
- PJAC(:,58,15)=+0.4978440*TPK%K323(:)*PCONC(:,63)
+!WC_HO2/WC_NO=0.0
!
-!URG6/ETHE=0.0
+!WC_HO2/WC_NO2=-KC9*<WC_HO2>
+ PJAC(:,53,45)=-TPK%KC9(:)*PCONC(:,53)
!
-!URG6/OLEL=0.0
+!WC_HO2/WC_NO3=0.0
!
-!URG6/OLEH=0.0
+!WC_HO2/WC_N2O5=0.0
!
-!URG6/ALKL=0.0
+!WC_HO2/WC_HONO=0.0
!
-!URG6/ALKM=0.0
+!WC_HO2/WC_HNO3=0.0
!
-!URG6/ALKH=0.0
+!WC_HO2/WC_HNO4=+KC10
+ PJAC(:,53,50)=+TPK%KC10(:)
!
-!URG6/AROH=0.0
+!WC_HO2/WC_NH3=0.0
!
-!URG6/AROL=0.0
+!WC_HO2/WC_OH=-KC3*<WC_HO2>+KC4*<WC_H2O2>+KC19*<WC_HCHO>+KC20*<WC_ORA1>+KC23*<W
+!C_AHMS>
+ PJAC(:,53,52)=-TPK%KC3(:)*PCONC(:,53)+TPK%KC4(:)*PCONC(:,43)+TPK%KC19(:)*PCONC&
+&(:,57)+TPK%KC20(:)*PCONC(:,58)+TPK%KC23(:)*PCONC(:,66)
!
-!URG6/AROO=0.0
+!WC_HO2/WC_HO2=-KTC32-KC3*<WC_OH>-KC5*<WC_HO2>-KC5*<WC_HO2>-KC5*<WC_HO2>-KC5*<W
+!C_HO2>-KC6*<WC_O3>-KC9*<WC_NO2>-KC25*<WC_ASO5>
+ PJAC(:,53,53)=-TPK%KTC32(:)-TPK%KC3(:)*PCONC(:,52)-TPK%KC5(:)*PCONC(:,53)-TPK%&
+&KC5(:)*PCONC(:,53)-TPK%KC5(:)*PCONC(:,53)-TPK%KC5(:)*PCONC(:,53)-TPK%KC6(:)*PC&
+&ONC(:,42)-TPK%KC9(:)*PCONC(:,45)-TPK%KC25(:)*PCONC(:,64)
!
-!URG6/ARAL=0.0
+!WC_HO2/WC_CO2=0.0
!
-!URG6/ARAC=0.0
+!WC_HO2/WC_SO2=0.0
!
-!URG6/PAH=0.0
+!WC_HO2/WC_SULF=0.0
!
-!URG6/HCHO=0.0
+!WC_HO2/WC_HCHO=+KC19*<WC_OH>
+ PJAC(:,53,57)=+TPK%KC19(:)*PCONC(:,52)
!
-!URG6/ALD2=0.0
+!WC_HO2/WC_ORA1=+KC20*<WC_OH>
+ PJAC(:,53,58)=+TPK%KC20(:)*PCONC(:,52)
!
-!URG6/KETL=0.0
+!WC_HO2/WC_ORA2=0.0
!
-!URG6/KETH=0.0
+!WC_HO2/WC_MO2=+2.00*KC17*<WC_MO2>+2.00*KC17*<WC_MO2>
+ PJAC(:,53,60)=+2.00*TPK%KC17(:)*PCONC(:,60)+2.00*TPK%KC17(:)*PCONC(:,60)
!
-!URG6/MEOH=0.0
+!WC_HO2/WC_OP1=0.0
!
-!URG6/ETOH=0.0
+!WC_HO2/WC_ASO3=0.0
!
-!URG6/ALCH=0.0
+!WC_HO2/WC_ASO4=0.0
!
-!URG6/ISOP=0.0
+!WC_HO2/WC_ASO5=-KC25*<WC_HO2>
+ PJAC(:,53,64)=-TPK%KC25(:)*PCONC(:,53)
!
-!URG6/BIOL=0.0
+!WC_HO2/WC_AHSO5=0.0
!
-!URG6/BIOH=0.0
+!WC_HO2/WC_AHMS=+KC23*<WC_OH>
+ PJAC(:,53,66)=+TPK%KC23(:)*PCONC(:,52)
!
-!URG6/MTBE=0.0
+!WC_HO2/WR_O3=0.0
!
-!URG6/MVK=0.0
+!WC_HO2/WR_H2O2=0.0
!
-!URG6/MCR=0.0
+!WC_HO2/WR_NO=0.0
!
-!URG6/MGLY=0.0
+!WC_HO2/WR_NO2=0.0
!
-!URG6/GLY=0.0
+!WC_HO2/WR_NO3=0.0
!
-!URG6/ORA1=0.0
+!WC_HO2/WR_N2O5=0.0
!
-!URG6/ORA2=0.0
+!WC_HO2/WR_HONO=0.0
!
-!URG6/ACID=0.0
+!WC_HO2/WR_HNO3=0.0
!
-!URG6/UR28=0.0
+!WC_HO2/WR_HNO4=0.0
!
-!URG6/UR21=0.0
+!WC_HO2/WR_NH3=0.0
!
-!URG6/URG2=0.0
+!WC_HO2/WR_OH=0.0
!
-!URG6/UR26=0.0
+!WC_HO2/WR_HO2=0.0
!
-!URG6/RPG2=0.0
+!WC_HO2/WR_CO2=0.0
!
-!URG6/RP18=0.0
+!WC_HO2/WR_SO2=0.0
!
-!URG6/RPG3=0.0
+!WC_HO2/WR_SULF=0.0
!
-!URG6/URG4=0.0
+!WC_HO2/WR_HCHO=0.0
!
-!URG6/UR8=0.0
+!WC_HO2/WR_ORA1=0.0
!
-!URG6/UR17=0.0
+!WC_HO2/WR_ORA2=0.0
!
-!URG6/UR7=0.0
+!WC_HO2/WR_MO2=0.0
!
-!URG6/RPR3=0.0
+!WC_HO2/WR_OP1=0.0
!
-!URG6/URG6=-K352
- PJAC(:,58,58)=-TPK%K352(:)
+!WC_HO2/WR_ASO3=0.0
!
-!URG6/UR22=0.0
+!WC_HO2/WR_ASO4=0.0
!
-!URG6/URG7=0.0
+!WC_HO2/WR_ASO5=0.0
!
-!URG6/RPR4=0.0
+!WC_HO2/WR_AHSO5=0.0
!
-!URG6/RPR7=0.0
+!WC_HO2/WR_AHMS=0.0
!
-!URG6/RPG7=+0.4978440*K323*<OH>
- PJAC(:,58,63)=+0.4978440*TPK%K323(:)*PCONC(:,15)
+!WC_CO2/O3=0.0
!
-!URG6/URG8=0.0
+!WC_CO2/H2O2=0.0
!
-!URG6/UR19=0.0
+!WC_CO2/NO=0.0
!
-!URG6/URG9=0.0
+!WC_CO2/NO2=0.0
!
-!URG6/AP7=0.0
+!WC_CO2/NO3=0.0
!
-!URG6/URG10=0.0
+!WC_CO2/N2O5=0.0
!
-!URG6/RPR1=0.0
+!WC_CO2/HONO=0.0
!
-!URG6/RPR5=0.0
+!WC_CO2/HNO3=0.0
!
-!URG6/RPR8=0.0
+!WC_CO2/HNO4=0.0
!
-!URG6/RP10=0.0
+!WC_CO2/NH3=0.0
!
-!URG6/RP11=0.0
+!WC_CO2/SO2=0.0
!
-!URG6/RP16=0.0
+!WC_CO2/SULF=0.0
!
-!URG6/RPRL=0.0
+!WC_CO2/CO=0.0
!
-!URG6/APAN=0.0
+!WC_CO2/OH=0.0
!
-!URG6/PAN1=0.0
+!WC_CO2/HO2=0.0
!
-!URG6/PAN2=0.0
+!WC_CO2/CH4=0.0
!
-!URG6/PAN3=0.0
+!WC_CO2/ETH=0.0
!
-!URG6/PAN4=0.0
+!WC_CO2/ALKA=0.0
!
-!URG6/PAN6=0.0
+!WC_CO2/ALKE=0.0
!
-!URG6/PAN7=0.0
+!WC_CO2/BIO=0.0
!
-!URG6/PAN8=0.0
+!WC_CO2/ARO=0.0
!
-!URG6/PN10=0.0
+!WC_CO2/HCHO=0.0
!
-!URG6/RO2T=0.0
+!WC_CO2/ALD=0.0
!
-!URG6/RO21=0.0
+!WC_CO2/KET=0.0
!
-!URG6/RO25=0.0
+!WC_CO2/CARBO=0.0
!
-!UR22/NO=0.0
+!WC_CO2/ONIT=0.0
!
-!UR22/NO2=+K321*<RAD8>
- PJAC(:,59,2)=+TPK%K321(:)*TPK%RAD8(:)
+!WC_CO2/PAN=0.0
!
-!UR22/O3=0.0
+!WC_CO2/OP1=0.0
!
-!UR22/HONO=0.0
+!WC_CO2/OP2=0.0
!
-!UR22/HNO3=0.0
+!WC_CO2/ORA1=0.0
!
-!UR22/HNO4=0.0
+!WC_CO2/ORA2=0.0
!
-!UR22/N2O5=0.0
+!WC_CO2/MO2=0.0
!
-!UR22/NO3=0.0
+!WC_CO2/ALKAP=0.0
!
-!UR22/NH3=0.0
+!WC_CO2/ALKEP=0.0
!
-!UR22/HO2=0.0
+!WC_CO2/BIOP=0.0
!
-!UR22/CO=0.0
+!WC_CO2/PHO=0.0
!
-!UR22/H2O2=0.0
+!WC_CO2/ADD=0.0
!
-!UR22/SO2=0.0
+!WC_CO2/AROP=0.0
!
-!UR22/H2SO4=0.0
+!WC_CO2/CARBOP=0.0
!
-!UR22/OH=0.0
+!WC_CO2/OLN=0.0
!
-!UR22/ETHE=0.0
+!WC_CO2/XO2=0.0
!
-!UR22/OLEL=0.0
+!WC_CO2/WC_O3=0.0
!
-!UR22/OLEH=0.0
+!WC_CO2/WC_H2O2=0.0
!
-!UR22/ALKL=0.0
+!WC_CO2/WC_NO=0.0
!
-!UR22/ALKM=0.0
+!WC_CO2/WC_NO2=0.0
!
-!UR22/ALKH=0.0
+!WC_CO2/WC_NO3=0.0
!
-!UR22/AROH=0.0
+!WC_CO2/WC_N2O5=0.0
!
-!UR22/AROL=0.0
+!WC_CO2/WC_HONO=0.0
!
-!UR22/AROO=0.0
+!WC_CO2/WC_HNO3=0.0
!
-!UR22/ARAL=0.0
+!WC_CO2/WC_HNO4=0.0
!
-!UR22/ARAC=0.0
+!WC_CO2/WC_NH3=0.0
!
-!UR22/PAH=0.0
+!WC_CO2/WC_OH=+KC20*<WC_ORA1>
+ PJAC(:,54,52)=+TPK%KC20(:)*PCONC(:,58)
!
-!UR22/HCHO=0.0
+!WC_CO2/WC_HO2=0.0
!
-!UR22/ALD2=0.0
+!WC_CO2/WC_CO2=-KTC33
+ PJAC(:,54,54)=-TPK%KTC33(:)
!
-!UR22/KETL=0.0
+!WC_CO2/WC_SO2=0.0
!
-!UR22/KETH=0.0
+!WC_CO2/WC_SULF=0.0
!
-!UR22/MEOH=0.0
+!WC_CO2/WC_HCHO=0.0
!
-!UR22/ETOH=0.0
+!WC_CO2/WC_ORA1=+KC20*<WC_OH>
+ PJAC(:,54,58)=+TPK%KC20(:)*PCONC(:,52)
!
-!UR22/ALCH=0.0
+!WC_CO2/WC_ORA2=0.0
!
-!UR22/ISOP=0.0
+!WC_CO2/WC_MO2=0.0
!
-!UR22/BIOL=0.0
+!WC_CO2/WC_OP1=0.0
!
-!UR22/BIOH=0.0
+!WC_CO2/WC_ASO3=0.0
!
-!UR22/MTBE=0.0
+!WC_CO2/WC_ASO4=0.0
!
-!UR22/MVK=0.0
+!WC_CO2/WC_ASO5=0.0
!
-!UR22/MCR=0.0
+!WC_CO2/WC_AHSO5=0.0
!
-!UR22/MGLY=0.0
+!WC_CO2/WC_AHMS=0.0
!
-!UR22/GLY=0.0
+!WC_CO2/WR_O3=0.0
!
-!UR22/ORA1=0.0
+!WC_CO2/WR_H2O2=0.0
!
-!UR22/ORA2=0.0
+!WC_CO2/WR_NO=0.0
!
-!UR22/ACID=0.0
+!WC_CO2/WR_NO2=0.0
!
-!UR22/UR28=0.0
+!WC_CO2/WR_NO3=0.0
!
-!UR22/UR21=0.0
+!WC_CO2/WR_N2O5=0.0
!
-!UR22/URG2=0.0
+!WC_CO2/WR_HONO=0.0
!
-!UR22/UR26=0.0
+!WC_CO2/WR_HNO3=0.0
!
-!UR22/RPG2=0.0
+!WC_CO2/WR_HNO4=0.0
!
-!UR22/RP18=0.0
+!WC_CO2/WR_NH3=0.0
!
-!UR22/RPG3=0.0
+!WC_CO2/WR_OH=0.0
!
-!UR22/URG4=0.0
+!WC_CO2/WR_HO2=0.0
!
-!UR22/UR8=0.0
+!WC_CO2/WR_CO2=0.0
!
-!UR22/UR17=0.0
+!WC_CO2/WR_SO2=0.0
!
-!UR22/UR7=0.0
+!WC_CO2/WR_SULF=0.0
!
-!UR22/RPR3=0.0
+!WC_CO2/WR_HCHO=0.0
!
-!UR22/URG6=0.0
+!WC_CO2/WR_ORA1=0.0
!
-!UR22/UR22=-K362
- PJAC(:,59,59)=-TPK%K362(:)
+!WC_CO2/WR_ORA2=0.0
!
-!UR22/URG7=0.0
+!WC_CO2/WR_MO2=0.0
!
-!UR22/RPR4=0.0
+!WC_CO2/WR_OP1=0.0
!
-!UR22/RPR7=0.0
+!WC_CO2/WR_ASO3=0.0
!
-!UR22/RPG7=0.0
+!WC_CO2/WR_ASO4=0.0
!
-!UR22/URG8=0.0
+!WC_CO2/WR_ASO5=0.0
!
-!UR22/UR19=0.0
+!WC_CO2/WR_AHSO5=0.0
!
-!UR22/URG9=0.0
+!WC_CO2/WR_AHMS=0.0
!
-!UR22/AP7=0.0
+!WC_SO2/O3=0.0
!
-!UR22/URG10=0.0
+!WC_SO2/H2O2=0.0
!
-!UR22/RPR1=0.0
+!WC_SO2/NO=0.0
!
-!UR22/RPR5=0.0
+!WC_SO2/NO2=0.0
!
-!UR22/RPR8=0.0
+!WC_SO2/NO3=0.0
!
-!UR22/RP10=0.0
+!WC_SO2/N2O5=0.0
!
-!UR22/RP11=0.0
+!WC_SO2/HONO=0.0
!
-!UR22/RP16=0.0
+!WC_SO2/HNO3=0.0
!
-!UR22/RPRL=0.0
+!WC_SO2/HNO4=0.0
!
-!UR22/APAN=0.0
+!WC_SO2/NH3=0.0
!
-!UR22/PAN1=0.0
+!WC_SO2/SO2=+KTC14
+ PJAC(:,55,11)=+TPK%KTC14(:)
!
-!UR22/PAN2=0.0
+!WC_SO2/SULF=0.0
!
-!UR22/PAN3=0.0
+!WC_SO2/CO=0.0
!
-!UR22/PAN4=0.0
+!WC_SO2/OH=0.0
!
-!UR22/PAN6=0.0
+!WC_SO2/HO2=0.0
!
-!UR22/PAN7=0.0
+!WC_SO2/CH4=0.0
!
-!UR22/PAN8=0.0
+!WC_SO2/ETH=0.0
!
-!UR22/PN10=0.0
+!WC_SO2/ALKA=0.0
!
-!UR22/RO2T=0.0
+!WC_SO2/ALKE=0.0
!
-!UR22/RO21=0.0
+!WC_SO2/BIO=0.0
!
-!UR22/RO25=0.0
+!WC_SO2/ARO=0.0
!
-!URG7/NO=0.0
+!WC_SO2/HCHO=0.0
!
-!URG7/NO2=+0.9999993*K108*<RAD6>
- PJAC(:,60,2)=+0.9999993*TPK%K108(:)*TPK%RAD6(:)
+!WC_SO2/ALD=0.0
!
-!URG7/O3=0.0
+!WC_SO2/KET=0.0
!
-!URG7/HONO=0.0
+!WC_SO2/CARBO=0.0
!
-!URG7/HNO3=0.0
+!WC_SO2/ONIT=0.0
!
-!URG7/HNO4=0.0
+!WC_SO2/PAN=0.0
!
-!URG7/N2O5=0.0
+!WC_SO2/OP1=0.0
!
-!URG7/NO3=0.0
+!WC_SO2/OP2=0.0
!
-!URG7/NH3=0.0
+!WC_SO2/ORA1=0.0
!
-!URG7/HO2=0.0
+!WC_SO2/ORA2=0.0
!
-!URG7/CO=0.0
+!WC_SO2/MO2=0.0
!
-!URG7/H2O2=0.0
+!WC_SO2/ALKAP=0.0
!
-!URG7/SO2=0.0
+!WC_SO2/ALKEP=0.0
!
-!URG7/H2SO4=0.0
+!WC_SO2/BIOP=0.0
!
-!URG7/OH=+0.1599999*K083*<ARAC>+0.9999993*K303*<RPR5>+0.9979297*K306*<RPRL>+0.9
-!999993*K322*<RPR7>
- PJAC(:,60,15)=+0.1599999*TPK%K083(:)*PCONC(:,26)+0.9999993*TPK%K303(:)*PCONC(:&
-&,70)+0.9979297*TPK%K306(:)*PCONC(:,75)+0.9999993*TPK%K322(:)*PCONC(:,62)
+!WC_SO2/PHO=0.0
!
-!URG7/ETHE=0.0
+!WC_SO2/ADD=0.0
!
-!URG7/OLEL=0.0
+!WC_SO2/AROP=0.0
!
-!URG7/OLEH=0.0
+!WC_SO2/CARBOP=0.0
!
-!URG7/ALKL=0.0
+!WC_SO2/OLN=0.0
!
-!URG7/ALKM=0.0
+!WC_SO2/XO2=0.0
!
-!URG7/ALKH=0.0
+!WC_SO2/WC_O3=-KC29*<WC_SO2>
+ PJAC(:,55,42)=-TPK%KC29(:)*PCONC(:,55)
!
-!URG7/AROH=0.0
+!WC_SO2/WC_H2O2=-KC30*<WC_SO2>
+ PJAC(:,55,43)=-TPK%KC30(:)*PCONC(:,55)
!
-!URG7/AROL=0.0
+!WC_SO2/WC_NO=0.0
!
-!URG7/AROO=0.0
+!WC_SO2/WC_NO2=0.0
!
-!URG7/ARAL=0.0
+!WC_SO2/WC_NO3=-KC16*<WC_SO2>
+ PJAC(:,55,46)=-TPK%KC16(:)*PCONC(:,55)
!
-!URG7/ARAC=+0.1599999*K083*<OH>
- PJAC(:,60,26)=+0.1599999*TPK%K083(:)*PCONC(:,15)
+!WC_SO2/WC_N2O5=0.0
!
-!URG7/PAH=0.0
+!WC_SO2/WC_HONO=0.0
!
-!URG7/HCHO=0.0
+!WC_SO2/WC_HNO3=0.0
!
-!URG7/ALD2=0.0
+!WC_SO2/WC_HNO4=-KC12*<WC_SO2>
+ PJAC(:,55,50)=-TPK%KC12(:)*PCONC(:,55)
!
-!URG7/KETL=0.0
+!WC_SO2/WC_NH3=0.0
!
-!URG7/KETH=0.0
+!WC_SO2/WC_OH=-KC7*<WC_SO2>+KC23*<WC_AHMS>
+ PJAC(:,55,52)=-TPK%KC7(:)*PCONC(:,55)+TPK%KC23(:)*PCONC(:,66)
!
-!URG7/MEOH=0.0
+!WC_SO2/WC_HO2=0.0
!
-!URG7/ETOH=0.0
+!WC_SO2/WC_CO2=0.0
!
-!URG7/ALCH=0.0
+!WC_SO2/WC_SO2=-KTC34-KC7*<WC_OH>-KC12*<WC_HNO4>-KC16*<WC_NO3>-KC18*<WC_MO2>-KC
+!21*<WC_HCHO>-KC27*<WC_AHSO5>-KC29*<WC_O3>-KC30*<WC_H2O2>
+ PJAC(:,55,55)=-TPK%KTC34(:)-TPK%KC7(:)*PCONC(:,52)-TPK%KC12(:)*PCONC(:,50)-TPK&
+&%KC16(:)*PCONC(:,46)-TPK%KC18(:)*PCONC(:,60)-TPK%KC21(:)*PCONC(:,57)-TPK%KC27(&
+&:)*PCONC(:,65)-TPK%KC29(:)*PCONC(:,42)-TPK%KC30(:)*PCONC(:,43)
!
-!URG7/ISOP=0.0
+!WC_SO2/WC_SULF=0.0
!
-!URG7/BIOL=0.0
+!WC_SO2/WC_HCHO=-KC21*<WC_SO2>
+ PJAC(:,55,57)=-TPK%KC21(:)*PCONC(:,55)
!
-!URG7/BIOH=0.0
+!WC_SO2/WC_ORA1=0.0
!
-!URG7/MTBE=0.0
+!WC_SO2/WC_ORA2=0.0
!
-!URG7/MVK=0.0
+!WC_SO2/WC_MO2=-KC18*<WC_SO2>
+ PJAC(:,55,60)=-TPK%KC18(:)*PCONC(:,55)
!
-!URG7/MCR=0.0
+!WC_SO2/WC_OP1=0.0
!
-!URG7/MGLY=0.0
+!WC_SO2/WC_ASO3=0.0
!
-!URG7/GLY=0.0
+!WC_SO2/WC_ASO4=0.0
!
-!URG7/ORA1=0.0
+!WC_SO2/WC_ASO5=0.0
!
-!URG7/ORA2=0.0
+!WC_SO2/WC_AHSO5=-KC27*<WC_SO2>
+ PJAC(:,55,65)=-TPK%KC27(:)*PCONC(:,55)
!
-!URG7/ACID=0.0
+!WC_SO2/WC_AHMS=+KC22+KC23*<WC_OH>
+ PJAC(:,55,66)=+TPK%KC22(:)+TPK%KC23(:)*PCONC(:,52)
!
-!URG7/UR28=0.0
+!WC_SO2/WR_O3=0.0
!
-!URG7/UR21=0.0
+!WC_SO2/WR_H2O2=0.0
!
-!URG7/URG2=0.0
+!WC_SO2/WR_NO=0.0
!
-!URG7/UR26=0.0
+!WC_SO2/WR_NO2=0.0
!
-!URG7/RPG2=0.0
+!WC_SO2/WR_NO3=0.0
!
-!URG7/RP18=0.0
+!WC_SO2/WR_N2O5=0.0
!
-!URG7/RPG3=0.0
+!WC_SO2/WR_HONO=0.0
!
-!URG7/URG4=0.0
+!WC_SO2/WR_HNO3=0.0
!
-!URG7/UR8=0.0
+!WC_SO2/WR_HNO4=0.0
!
-!URG7/UR17=0.0
+!WC_SO2/WR_NH3=0.0
!
-!URG7/UR7=0.0
+!WC_SO2/WR_OH=0.0
!
-!URG7/RPR3=0.0
+!WC_SO2/WR_HO2=0.0
!
-!URG7/URG6=0.0
+!WC_SO2/WR_CO2=0.0
!
-!URG7/UR22=0.0
+!WC_SO2/WR_SO2=0.0
!
-!URG7/URG7=-K353
- PJAC(:,60,60)=-TPK%K353(:)
+!WC_SO2/WR_SULF=0.0
!
-!URG7/RPR4=0.0
+!WC_SO2/WR_HCHO=0.0
!
-!URG7/RPR7=+0.9999993*K322*<OH>
- PJAC(:,60,62)=+0.9999993*TPK%K322(:)*PCONC(:,15)
+!WC_SO2/WR_ORA1=0.0
!
-!URG7/RPG7=0.0
+!WC_SO2/WR_ORA2=0.0
!
-!URG7/URG8=0.0
+!WC_SO2/WR_MO2=0.0
!
-!URG7/UR19=0.0
+!WC_SO2/WR_OP1=0.0
!
-!URG7/URG9=0.0
+!WC_SO2/WR_ASO3=0.0
!
-!URG7/AP7=0.0
+!WC_SO2/WR_ASO4=0.0
!
-!URG7/URG10=0.0
+!WC_SO2/WR_ASO5=0.0
!
-!URG7/RPR1=0.0
+!WC_SO2/WR_AHSO5=0.0
!
-!URG7/RPR5=+0.9999993*K303*<OH>
- PJAC(:,60,70)=+0.9999993*TPK%K303(:)*PCONC(:,15)
+!WC_SO2/WR_AHMS=0.0
!
-!URG7/RPR8=0.0
+RETURN
+END SUBROUTINE SUBJ10
!
-!URG7/RP10=0.0
+SUBROUTINE SUBJ11
!
-!URG7/RP11=0.0
+!Indices 56 a 60
!
-!URG7/RP16=0.0
!
-!URG7/RPRL=+0.9979297*K306*<OH>
- PJAC(:,60,75)=+0.9979297*TPK%K306(:)*PCONC(:,15)
+!WC_SULF/O3=0.0
!
-!URG7/APAN=0.0
+!WC_SULF/H2O2=0.0
!
-!URG7/PAN1=0.0
+!WC_SULF/NO=0.0
!
-!URG7/PAN2=0.0
+!WC_SULF/NO2=0.0
!
-!URG7/PAN3=0.0
+!WC_SULF/NO3=0.0
!
-!URG7/PAN4=0.0
+!WC_SULF/N2O5=0.0
!
-!URG7/PAN6=0.0
+!WC_SULF/HONO=0.0
!
-!URG7/PAN7=0.0
+!WC_SULF/HNO3=0.0
!
-!URG7/PAN8=0.0
+!WC_SULF/HNO4=0.0
!
-!URG7/PN10=0.0
+!WC_SULF/NH3=0.0
!
-!URG7/RO2T=0.0
+!WC_SULF/SO2=0.0
!
-!URG7/RO21=0.0
+!WC_SULF/SULF=+KTC15
+ PJAC(:,56,12)=+TPK%KTC15(:)
!
-!URG7/RO25=0.0
+!WC_SULF/CO=0.0
!
-RETURN
-END SUBROUTINE SUBJ11
+!WC_SULF/OH=0.0
!
-SUBROUTINE SUBJ12
+!WC_SULF/HO2=0.0
!
-!Indices 61 a 65
+!WC_SULF/CH4=0.0
!
+!WC_SULF/ETH=0.0
!
-!RPR4/NO=0.0
+!WC_SULF/ALKA=0.0
!
-!RPR4/NO2=+K103*<RAD1>+K104*<RAD2>
- PJAC(:,61,2)=+TPK%K103(:)*TPK%RAD1(:)+TPK%K104(:)*TPK%RAD2(:)
+!WC_SULF/ALKE=0.0
!
-!RPR4/O3=0.0
+!WC_SULF/BIO=0.0
!
-!RPR4/HONO=0.0
+!WC_SULF/ARO=0.0
!
-!RPR4/HNO3=0.0
+!WC_SULF/HCHO=0.0
!
-!RPR4/HNO4=0.0
+!WC_SULF/ALD=0.0
!
-!RPR4/N2O5=0.0
+!WC_SULF/KET=0.0
!
-!RPR4/NO3=-K320*<RPR4>
- PJAC(:,61,8)=-TPK%K320(:)*PCONC(:,61)
+!WC_SULF/CARBO=0.0
!
-!RPR4/NH3=0.0
+!WC_SULF/ONIT=0.0
!
-!RPR4/HO2=0.0
+!WC_SULF/PAN=0.0
!
-!RPR4/CO=0.0
+!WC_SULF/OP1=0.0
!
-!RPR4/H2O2=0.0
+!WC_SULF/OP2=0.0
!
-!RPR4/SO2=0.0
+!WC_SULF/ORA1=0.0
!
-!RPR4/H2SO4=0.0
+!WC_SULF/ORA2=0.0
!
-!RPR4/OH=0.0
+!WC_SULF/MO2=0.0
!
-!RPR4/ETHE=0.0
+!WC_SULF/ALKAP=0.0
!
-!RPR4/OLEL=0.0
+!WC_SULF/ALKEP=0.0
!
-!RPR4/OLEH=0.0
+!WC_SULF/BIOP=0.0
!
-!RPR4/ALKL=0.0
+!WC_SULF/PHO=0.0
!
-!RPR4/ALKM=0.0
+!WC_SULF/ADD=0.0
!
-!RPR4/ALKH=0.0
+!WC_SULF/AROP=0.0
!
-!RPR4/AROH=0.0
+!WC_SULF/CARBOP=0.0
!
-!RPR4/AROL=0.0
+!WC_SULF/OLN=0.0
!
-!RPR4/AROO=0.0
+!WC_SULF/XO2=0.0
!
-!RPR4/ARAL=0.0
+!WC_SULF/WC_O3=+KC29*<WC_SO2>
+ PJAC(:,56,42)=+TPK%KC29(:)*PCONC(:,55)
!
-!RPR4/ARAC=0.0
+!WC_SULF/WC_H2O2=+KC30*<WC_SO2>
+ PJAC(:,56,43)=+TPK%KC30(:)*PCONC(:,55)
!
-!RPR4/PAH=0.0
+!WC_SULF/WC_NO=0.0
!
-!RPR4/HCHO=0.0
+!WC_SULF/WC_NO2=0.0
!
-!RPR4/ALD2=0.0
+!WC_SULF/WC_NO3=-KC15*<WC_SULF>
+ PJAC(:,56,46)=-TPK%KC15(:)*PCONC(:,56)
!
-!RPR4/KETL=0.0
+!WC_SULF/WC_N2O5=0.0
!
-!RPR4/KETH=0.0
+!WC_SULF/WC_HONO=0.0
!
-!RPR4/MEOH=0.0
+!WC_SULF/WC_HNO3=0.0
!
-!RPR4/ETOH=0.0
+!WC_SULF/WC_HNO4=+KC12*<WC_SO2>
+ PJAC(:,56,50)=+TPK%KC12(:)*PCONC(:,55)
!
-!RPR4/ALCH=0.0
+!WC_SULF/WC_NH3=0.0
!
-!RPR4/ISOP=0.0
+!WC_SULF/WC_OH=0.0
!
-!RPR4/BIOL=0.0
+!WC_SULF/WC_HO2=0.0
!
-!RPR4/BIOH=0.0
+!WC_SULF/WC_CO2=0.0
!
-!RPR4/MTBE=0.0
+!WC_SULF/WC_SO2=+KC12*<WC_HNO4>+2.00*KC27*<WC_AHSO5>+KC29*<WC_O3>+KC30*<WC_H2O2
+!>
+ PJAC(:,56,55)=+TPK%KC12(:)*PCONC(:,50)+2.00*TPK%KC27(:)*PCONC(:,65)+TPK%KC29(:&
+&)*PCONC(:,42)+TPK%KC30(:)*PCONC(:,43)
!
-!RPR4/MVK=0.0
+!WC_SULF/WC_SULF=-KTC35-KC15*<WC_NO3>
+ PJAC(:,56,56)=-TPK%KTC35(:)-TPK%KC15(:)*PCONC(:,46)
!
-!RPR4/MCR=0.0
+!WC_SULF/WC_HCHO=0.0
!
-!RPR4/MGLY=0.0
+!WC_SULF/WC_ORA1=0.0
!
-!RPR4/GLY=0.0
+!WC_SULF/WC_ORA2=0.0
!
-!RPR4/ORA1=0.0
+!WC_SULF/WC_MO2=0.0
!
-!RPR4/ORA2=0.0
+!WC_SULF/WC_OP1=0.0
!
-!RPR4/ACID=0.0
+!WC_SULF/WC_ASO3=0.0
!
-!RPR4/UR28=0.0
+!WC_SULF/WC_ASO4=+KC28
+ PJAC(:,56,63)=+TPK%KC28(:)
!
-!RPR4/UR21=0.0
+!WC_SULF/WC_ASO5=0.0
!
-!RPR4/URG2=0.0
+!WC_SULF/WC_AHSO5=+2.00*KC27*<WC_SO2>
+ PJAC(:,56,65)=+2.00*TPK%KC27(:)*PCONC(:,55)
!
-!RPR4/UR26=0.0
+!WC_SULF/WC_AHMS=0.0
!
-!RPR4/RPG2=0.0
+!WC_SULF/WR_O3=0.0
!
-!RPR4/RP18=0.0
+!WC_SULF/WR_H2O2=0.0
!
-!RPR4/RPG3=0.0
+!WC_SULF/WR_NO=0.0
!
-!RPR4/URG4=0.0
+!WC_SULF/WR_NO2=0.0
!
-!RPR4/UR8=0.0
+!WC_SULF/WR_NO3=0.0
!
-!RPR4/UR17=0.0
+!WC_SULF/WR_N2O5=0.0
!
-!RPR4/UR7=0.0
+!WC_SULF/WR_HONO=0.0
!
-!RPR4/RPR3=0.0
+!WC_SULF/WR_HNO3=0.0
!
-!RPR4/URG6=0.0
+!WC_SULF/WR_HNO4=0.0
!
-!RPR4/UR22=0.0
+!WC_SULF/WR_NH3=0.0
!
-!RPR4/URG7=0.0
+!WC_SULF/WR_OH=0.0
!
-!RPR4/RPR4=-K320*<NO3>
- PJAC(:,61,61)=-TPK%K320(:)*PCONC(:,8)
+!WC_SULF/WR_HO2=0.0
!
-!RPR4/RPR7=0.0
+!WC_SULF/WR_CO2=0.0
!
-!RPR4/RPG7=0.0
+!WC_SULF/WR_SO2=0.0
!
-!RPR4/URG8=0.0
+!WC_SULF/WR_SULF=0.0
!
-!RPR4/UR19=0.0
+!WC_SULF/WR_HCHO=0.0
!
-!RPR4/URG9=0.0
+!WC_SULF/WR_ORA1=0.0
!
-!RPR4/AP7=0.0
+!WC_SULF/WR_ORA2=0.0
!
-!RPR4/URG10=0.0
+!WC_SULF/WR_MO2=0.0
!
-!RPR4/RPR1=0.0
+!WC_SULF/WR_OP1=0.0
!
-!RPR4/RPR5=0.0
+!WC_SULF/WR_ASO3=0.0
!
-!RPR4/RPR8=0.0
+!WC_SULF/WR_ASO4=0.0
!
-!RPR4/RP10=0.0
+!WC_SULF/WR_ASO5=0.0
!
-!RPR4/RP11=0.0
+!WC_SULF/WR_AHSO5=0.0
!
-!RPR4/RP16=0.0
+!WC_SULF/WR_AHMS=0.0
!
-!RPR4/RPRL=0.0
+!WC_HCHO/O3=0.0
!
-!RPR4/APAN=0.0
+!WC_HCHO/H2O2=0.0
!
-!RPR4/PAN1=0.0
+!WC_HCHO/NO=0.0
!
-!RPR4/PAN2=0.0
+!WC_HCHO/NO2=0.0
!
-!RPR4/PAN3=0.0
+!WC_HCHO/NO3=0.0
!
-!RPR4/PAN4=0.0
+!WC_HCHO/N2O5=0.0
!
-!RPR4/PAN6=0.0
+!WC_HCHO/HONO=0.0
!
-!RPR4/PAN7=0.0
+!WC_HCHO/HNO3=0.0
!
-!RPR4/PAN8=0.0
+!WC_HCHO/HNO4=0.0
!
-!RPR4/PN10=0.0
+!WC_HCHO/NH3=0.0
!
-!RPR4/RO2T=0.0
+!WC_HCHO/SO2=0.0
!
-!RPR4/RO21=0.0
+!WC_HCHO/SULF=0.0
!
-!RPR4/RO25=0.0
+!WC_HCHO/CO=0.0
!
-!RPR7/NO=+TPK%CF44*K195*<RO223>
- PJAC(:,62,1)=+TPK%CF44*TPK%K195(:)*TPK%RO223(:)
+!WC_HCHO/OH=0.0
!
-!RPR7/NO2=0.0
+!WC_HCHO/HO2=0.0
!
-!RPR7/O3=0.0
+!WC_HCHO/CH4=0.0
!
-!RPR7/HONO=0.0
+!WC_HCHO/ETH=0.0
!
-!RPR7/HNO3=0.0
+!WC_HCHO/ALKA=0.0
!
-!RPR7/HNO4=0.0
+!WC_HCHO/ALKE=0.0
!
-!RPR7/N2O5=0.0
+!WC_HCHO/BIO=0.0
!
-!RPR7/NO3=0.0
+!WC_HCHO/ARO=0.0
!
-!RPR7/NH3=0.0
+!WC_HCHO/HCHO=+KTC16
+ PJAC(:,57,22)=+TPK%KTC16(:)
!
-!RPR7/HO2=+K197*<RO223>
- PJAC(:,62,10)=+TPK%K197(:)*TPK%RO223(:)
+!WC_HCHO/ALD=0.0
!
-!RPR7/CO=0.0
+!WC_HCHO/KET=0.0
!
-!RPR7/H2O2=0.0
+!WC_HCHO/CARBO=0.0
!
-!RPR7/SO2=0.0
+!WC_HCHO/ONIT=0.0
!
-!RPR7/H2SO4=0.0
+!WC_HCHO/PAN=0.0
!
-!RPR7/OH=-03*K306*<RPRL>-K322*<RPR7>
- PJAC(:,62,15)=-03*TPK%K306(:)*PCONC(:,75)-TPK%K322(:)*PCONC(:,62)
+!WC_HCHO/OP1=0.0
!
-!RPR7/ETHE=0.0
+!WC_HCHO/OP2=0.0
!
-!RPR7/OLEL=0.0
+!WC_HCHO/ORA1=0.0
!
-!RPR7/OLEH=0.0
+!WC_HCHO/ORA2=0.0
!
-!RPR7/ALKL=0.0
+!WC_HCHO/MO2=0.0
!
-!RPR7/ALKM=0.0
+!WC_HCHO/ALKAP=0.0
!
-!RPR7/ALKH=0.0
+!WC_HCHO/ALKEP=0.0
!
-!RPR7/AROH=0.0
+!WC_HCHO/BIOP=0.0
!
-!RPR7/AROL=0.0
+!WC_HCHO/PHO=0.0
!
-!RPR7/AROO=0.0
+!WC_HCHO/ADD=0.0
!
-!RPR7/ARAL=0.0
+!WC_HCHO/AROP=0.0
!
-!RPR7/ARAC=0.0
+!WC_HCHO/CARBOP=0.0
!
-!RPR7/PAH=0.0
+!WC_HCHO/OLN=0.0
!
-!RPR7/HCHO=0.0
+!WC_HCHO/XO2=0.0
!
-!RPR7/ALD2=0.0
+!WC_HCHO/WC_O3=0.0
!
-!RPR7/KETL=0.0
+!WC_HCHO/WC_H2O2=0.0
!
-!RPR7/KETH=0.0
+!WC_HCHO/WC_NO=0.0
!
-!RPR7/MEOH=0.0
+!WC_HCHO/WC_NO2=0.0
!
-!RPR7/ETOH=0.0
+!WC_HCHO/WC_NO3=0.0
!
-!RPR7/ALCH=0.0
+!WC_HCHO/WC_N2O5=0.0
!
-!RPR7/ISOP=0.0
+!WC_HCHO/WC_HONO=0.0
!
-!RPR7/BIOL=0.0
+!WC_HCHO/WC_HNO3=0.0
!
-!RPR7/BIOH=0.0
+!WC_HCHO/WC_HNO4=0.0
!
-!RPR7/MTBE=0.0
+!WC_HCHO/WC_NH3=0.0
!
-!RPR7/MVK=0.0
+!WC_HCHO/WC_OH=-KC19*<WC_HCHO>
+ PJAC(:,57,52)=-TPK%KC19(:)*PCONC(:,57)
!
-!RPR7/MCR=0.0
+!WC_HCHO/WC_HO2=0.0
!
-!RPR7/MGLY=0.0
+!WC_HCHO/WC_CO2=0.0
!
-!RPR7/GLY=0.0
+!WC_HCHO/WC_SO2=-KC21*<WC_HCHO>
+ PJAC(:,57,55)=-TPK%KC21(:)*PCONC(:,57)
!
-!RPR7/ORA1=0.0
+!WC_HCHO/WC_SULF=0.0
!
-!RPR7/ORA2=0.0
+!WC_HCHO/WC_HCHO=-KTC36-KC19*<WC_OH>-KC21*<WC_SO2>
+ PJAC(:,57,57)=-TPK%KTC36(:)-TPK%KC19(:)*PCONC(:,52)-TPK%KC21(:)*PCONC(:,55)
!
-!RPR7/ACID=0.0
+!WC_HCHO/WC_ORA1=0.0
!
-!RPR7/UR28=0.0
+!WC_HCHO/WC_ORA2=0.0
!
-!RPR7/UR21=0.0
+!WC_HCHO/WC_MO2=+2.00*KC17*<WC_MO2>+2.00*KC17*<WC_MO2>
+ PJAC(:,57,60)=+2.00*TPK%KC17(:)*PCONC(:,60)+2.00*TPK%KC17(:)*PCONC(:,60)
!
-!RPR7/URG2=0.0
+!WC_HCHO/WC_OP1=0.0
!
-!RPR7/UR26=0.0
+!WC_HCHO/WC_ASO3=0.0
!
-!RPR7/RPG2=0.0
+!WC_HCHO/WC_ASO4=0.0
!
-!RPR7/RP18=0.0
+!WC_HCHO/WC_ASO5=0.0
!
-!RPR7/RPG3=0.0
+!WC_HCHO/WC_AHSO5=0.0
!
-!RPR7/URG4=0.0
+!WC_HCHO/WC_AHMS=+KC22
+ PJAC(:,57,66)=+TPK%KC22(:)
!
-!RPR7/UR8=0.0
+!WC_HCHO/WR_O3=0.0
!
-!RPR7/UR17=0.0
+!WC_HCHO/WR_H2O2=0.0
!
-!RPR7/UR7=0.0
+!WC_HCHO/WR_NO=0.0
!
-!RPR7/RPR3=0.0
+!WC_HCHO/WR_NO2=0.0
!
-!RPR7/URG6=0.0
+!WC_HCHO/WR_NO3=0.0
!
-!RPR7/UR22=0.0
+!WC_HCHO/WR_N2O5=0.0
!
-!RPR7/URG7=0.0
+!WC_HCHO/WR_HONO=0.0
!
-!RPR7/RPR4=0.0
+!WC_HCHO/WR_HNO3=0.0
!
-!RPR7/RPR7=-K322*<OH>
- PJAC(:,62,62)=-TPK%K322(:)*PCONC(:,15)
+!WC_HCHO/WR_HNO4=0.0
!
-!RPR7/RPG7=0.0
+!WC_HCHO/WR_NH3=0.0
!
-!RPR7/URG8=0.0
+!WC_HCHO/WR_OH=0.0
!
-!RPR7/UR19=0.0
+!WC_HCHO/WR_HO2=0.0
!
-!RPR7/URG9=0.0
+!WC_HCHO/WR_CO2=0.0
!
-!RPR7/AP7=0.0
+!WC_HCHO/WR_SO2=0.0
!
-!RPR7/URG10=0.0
+!WC_HCHO/WR_SULF=0.0
!
-!RPR7/RPR1=0.0
+!WC_HCHO/WR_HCHO=0.0
!
-!RPR7/RPR5=0.0
+!WC_HCHO/WR_ORA1=0.0
!
-!RPR7/RPR8=0.0
+!WC_HCHO/WR_ORA2=0.0
!
-!RPR7/RP10=0.0
+!WC_HCHO/WR_MO2=0.0
!
-!RPR7/RP11=0.0
+!WC_HCHO/WR_OP1=0.0
!
-!RPR7/RP16=0.0
+!WC_HCHO/WR_ASO3=0.0
!
-!RPR7/RPRL=-03*K306*<OH>
- PJAC(:,62,75)=-03*TPK%K306(:)*PCONC(:,15)
+!WC_HCHO/WR_ASO4=0.0
!
-!RPR7/APAN=0.0
+!WC_HCHO/WR_ASO5=0.0
!
-!RPR7/PAN1=0.0
+!WC_HCHO/WR_AHSO5=0.0
!
-!RPR7/PAN2=0.0
+!WC_HCHO/WR_AHMS=0.0
!
-!RPR7/PAN3=0.0
+!WC_ORA1/O3=0.0
!
-!RPR7/PAN4=0.0
+!WC_ORA1/H2O2=0.0
!
-!RPR7/PAN6=0.0
+!WC_ORA1/NO=0.0
!
-!RPR7/PAN7=0.0
+!WC_ORA1/NO2=0.0
!
-!RPR7/PAN8=0.0
+!WC_ORA1/NO3=0.0
!
-!RPR7/PN10=0.0
+!WC_ORA1/N2O5=0.0
!
-!RPR7/RO2T=+K196*<RO223>
- PJAC(:,62,85)=+TPK%K196(:)*TPK%RO223(:)
+!WC_ORA1/HONO=0.0
!
-!RPR7/RO21=0.0
+!WC_ORA1/HNO3=0.0
!
-!RPR7/RO25=0.0
+!WC_ORA1/HNO4=0.0
!
-!RPG7/NO=+1.0000013*K266*<RO238>
- PJAC(:,63,1)=+1.0000013*TPK%K266(:)*TPK%RO238(:)
+!WC_ORA1/NH3=0.0
!
-!RPG7/NO2=0.0
+!WC_ORA1/SO2=0.0
!
-!RPG7/O3=0.0
+!WC_ORA1/SULF=0.0
!
-!RPG7/HONO=0.0
+!WC_ORA1/CO=0.0
!
-!RPG7/HNO3=0.0
+!WC_ORA1/OH=0.0
!
-!RPG7/HNO4=0.0
+!WC_ORA1/HO2=0.0
!
-!RPG7/N2O5=0.0
+!WC_ORA1/CH4=0.0
!
-!RPG7/NO3=0.0
+!WC_ORA1/ETH=0.0
!
-!RPG7/NH3=0.0
+!WC_ORA1/ALKA=0.0
!
-!RPG7/HO2=+1.0000013*K268*<RO238>
- PJAC(:,63,10)=+1.0000013*TPK%K268(:)*TPK%RO238(:)
+!WC_ORA1/ALKE=0.0
!
-!RPG7/CO=0.0
+!WC_ORA1/BIO=0.0
!
-!RPG7/H2O2=0.0
+!WC_ORA1/ARO=0.0
!
-!RPG7/SO2=0.0
+!WC_ORA1/HCHO=0.0
!
-!RPG7/H2SO4=0.0
+!WC_ORA1/ALD=0.0
!
-!RPG7/OH=+0.5021558*K323*<RPG7>-K323*<RPG7>
- PJAC(:,63,15)=+0.5021558*TPK%K323(:)*PCONC(:,63)-TPK%K323(:)*PCONC(:,63)
+!WC_ORA1/KET=0.0
!
-!RPG7/ETHE=0.0
+!WC_ORA1/CARBO=0.0
!
-!RPG7/OLEL=0.0
+!WC_ORA1/ONIT=0.0
!
-!RPG7/OLEH=0.0
+!WC_ORA1/PAN=0.0
!
-!RPG7/ALKL=0.0
+!WC_ORA1/OP1=0.0
!
-!RPG7/ALKM=0.0
+!WC_ORA1/OP2=0.0
!
-!RPG7/ALKH=0.0
+!WC_ORA1/ORA1=+KTC17
+ PJAC(:,58,30)=+TPK%KTC17(:)
!
-!RPG7/AROH=0.0
+!WC_ORA1/ORA2=0.0
!
-!RPG7/AROL=0.0
+!WC_ORA1/MO2=0.0
!
-!RPG7/AROO=0.0
+!WC_ORA1/ALKAP=0.0
!
-!RPG7/ARAL=0.0
+!WC_ORA1/ALKEP=0.0
!
-!RPG7/ARAC=0.0
+!WC_ORA1/BIOP=0.0
!
-!RPG7/PAH=0.0
+!WC_ORA1/PHO=0.0
!
-!RPG7/HCHO=0.0
+!WC_ORA1/ADD=0.0
!
-!RPG7/ALD2=0.0
+!WC_ORA1/AROP=0.0
!
-!RPG7/KETL=0.0
+!WC_ORA1/CARBOP=0.0
!
-!RPG7/KETH=0.0
+!WC_ORA1/OLN=0.0
!
-!RPG7/MEOH=0.0
+!WC_ORA1/XO2=0.0
!
-!RPG7/ETOH=0.0
+!WC_ORA1/WC_O3=0.0
!
-!RPG7/ALCH=0.0
+!WC_ORA1/WC_H2O2=0.0
!
-!RPG7/ISOP=0.0
+!WC_ORA1/WC_NO=0.0
!
-!RPG7/BIOL=0.0
+!WC_ORA1/WC_NO2=0.0
!
-!RPG7/BIOH=0.0
+!WC_ORA1/WC_NO3=0.0
!
-!RPG7/MTBE=0.0
+!WC_ORA1/WC_N2O5=0.0
!
-!RPG7/MVK=0.0
+!WC_ORA1/WC_HONO=0.0
!
-!RPG7/MCR=0.0
+!WC_ORA1/WC_HNO3=0.0
!
-!RPG7/MGLY=0.0
+!WC_ORA1/WC_HNO4=0.0
!
-!RPG7/GLY=0.0
+!WC_ORA1/WC_NH3=0.0
!
-!RPG7/ORA1=0.0
+!WC_ORA1/WC_OH=+KC19*<WC_HCHO>-KC20*<WC_ORA1>+KC23*<WC_AHMS>
+ PJAC(:,58,52)=+TPK%KC19(:)*PCONC(:,57)-TPK%KC20(:)*PCONC(:,58)+TPK%KC23(:)*PCO&
+&NC(:,66)
!
-!RPG7/ORA2=0.0
+!WC_ORA1/WC_HO2=0.0
!
-!RPG7/ACID=0.0
+!WC_ORA1/WC_CO2=0.0
!
-!RPG7/UR28=0.0
+!WC_ORA1/WC_SO2=0.0
!
-!RPG7/UR21=0.0
+!WC_ORA1/WC_SULF=0.0
!
-!RPG7/URG2=0.0
+!WC_ORA1/WC_HCHO=+KC19*<WC_OH>
+ PJAC(:,58,57)=+TPK%KC19(:)*PCONC(:,52)
!
-!RPG7/UR26=0.0
+!WC_ORA1/WC_ORA1=-KTC37-KC20*<WC_OH>
+ PJAC(:,58,58)=-TPK%KTC37(:)-TPK%KC20(:)*PCONC(:,52)
!
-!RPG7/RPG2=0.0
+!WC_ORA1/WC_ORA2=0.0
!
-!RPG7/RP18=0.0
+!WC_ORA1/WC_MO2=0.0
!
-!RPG7/RPG3=0.0
+!WC_ORA1/WC_OP1=0.0
!
-!RPG7/URG4=0.0
+!WC_ORA1/WC_ASO3=0.0
!
-!RPG7/UR8=0.0
+!WC_ORA1/WC_ASO4=0.0
!
-!RPG7/UR17=0.0
+!WC_ORA1/WC_ASO5=0.0
!
-!RPG7/UR7=0.0
+!WC_ORA1/WC_AHSO5=0.0
!
-!RPG7/RPR3=0.0
+!WC_ORA1/WC_AHMS=+KC23*<WC_OH>
+ PJAC(:,58,66)=+TPK%KC23(:)*PCONC(:,52)
!
-!RPG7/URG6=0.0
+!WC_ORA1/WR_O3=0.0
!
-!RPG7/UR22=0.0
+!WC_ORA1/WR_H2O2=0.0
!
-!RPG7/URG7=0.0
+!WC_ORA1/WR_NO=0.0
!
-!RPG7/RPR4=0.0
+!WC_ORA1/WR_NO2=0.0
!
-!RPG7/RPR7=0.0
+!WC_ORA1/WR_NO3=0.0
!
-!RPG7/RPG7=+0.5021558*K323*<OH>-K323*<OH>
- PJAC(:,63,63)=+0.5021558*TPK%K323(:)*PCONC(:,15)-TPK%K323(:)*PCONC(:,15)
+!WC_ORA1/WR_N2O5=0.0
!
-!RPG7/URG8=0.0
+!WC_ORA1/WR_HONO=0.0
!
-!RPG7/UR19=0.0
+!WC_ORA1/WR_HNO3=0.0
!
-!RPG7/URG9=0.0
+!WC_ORA1/WR_HNO4=0.0
!
-!RPG7/AP7=0.0
+!WC_ORA1/WR_NH3=0.0
!
-!RPG7/URG10=0.0
+!WC_ORA1/WR_OH=0.0
!
-!RPG7/RPR1=0.0
+!WC_ORA1/WR_HO2=0.0
!
-!RPG7/RPR5=0.0
+!WC_ORA1/WR_CO2=0.0
!
-!RPG7/RPR8=0.0
+!WC_ORA1/WR_SO2=0.0
!
-!RPG7/RP10=0.0
+!WC_ORA1/WR_SULF=0.0
!
-!RPG7/RP11=0.0
+!WC_ORA1/WR_HCHO=0.0
!
-!RPG7/RP16=0.0
+!WC_ORA1/WR_ORA1=0.0
!
-!RPG7/RPRL=0.0
+!WC_ORA1/WR_ORA2=0.0
!
-!RPG7/APAN=0.0
+!WC_ORA1/WR_MO2=0.0
!
-!RPG7/PAN1=0.0
+!WC_ORA1/WR_OP1=0.0
!
-!RPG7/PAN2=0.0
+!WC_ORA1/WR_ASO3=0.0
!
-!RPG7/PAN3=0.0
+!WC_ORA1/WR_ASO4=0.0
!
-!RPG7/PAN4=0.0
+!WC_ORA1/WR_ASO5=0.0
!
-!RPG7/PAN6=0.0
+!WC_ORA1/WR_AHSO5=0.0
!
-!RPG7/PAN7=0.0
+!WC_ORA1/WR_AHMS=0.0
!
-!RPG7/PAN8=0.0
+!WC_ORA2/O3=0.0
!
-!RPG7/PN10=0.0
+!WC_ORA2/H2O2=0.0
!
-!RPG7/RO2T=+1.0000013*K267*<RO238>
- PJAC(:,63,85)=+1.0000013*TPK%K267(:)*TPK%RO238(:)
+!WC_ORA2/NO=0.0
!
-!RPG7/RO21=0.0
+!WC_ORA2/NO2=0.0
!
-!RPG7/RO25=0.0
+!WC_ORA2/NO3=0.0
!
-!URG8/NO=+TPK%CF31*K221*<RO231>
- PJAC(:,64,1)=+TPK%CF31*TPK%K221(:)*TPK%RO231(:)
+!WC_ORA2/N2O5=0.0
!
-!URG8/NO2=+1.0000000*K109*<RAD7>
- PJAC(:,64,2)=+1.0000000*TPK%K109(:)*TPK%RAD7(:)
+!WC_ORA2/HONO=0.0
!
-!URG8/O3=0.0
+!WC_ORA2/HNO3=0.0
!
-!URG8/HONO=0.0
+!WC_ORA2/HNO4=0.0
!
-!URG8/HNO3=0.0
+!WC_ORA2/NH3=0.0
!
-!URG8/HNO4=0.0
+!WC_ORA2/SO2=0.0
!
-!URG8/N2O5=0.0
+!WC_ORA2/SULF=0.0
!
-!URG8/NO3=0.0
+!WC_ORA2/CO=0.0
!
-!URG8/NH3=0.0
+!WC_ORA2/OH=0.0
!
-!URG8/HO2=0.0
+!WC_ORA2/HO2=0.0
!
-!URG8/CO=0.0
+!WC_ORA2/CH4=0.0
!
-!URG8/H2O2=0.0
+!WC_ORA2/ETH=0.0
!
-!URG8/SO2=0.0
+!WC_ORA2/ALKA=0.0
!
-!URG8/H2SO4=0.0
+!WC_ORA2/ALKE=0.0
!
-!URG8/OH=+0.1600000*K092*<PAH>
- PJAC(:,64,15)=+0.1600000*TPK%K092(:)*PCONC(:,27)
+!WC_ORA2/BIO=0.0
!
-!URG8/ETHE=0.0
+!WC_ORA2/ARO=0.0
!
-!URG8/OLEL=0.0
+!WC_ORA2/HCHO=0.0
!
-!URG8/OLEH=0.0
+!WC_ORA2/ALD=0.0
!
-!URG8/ALKL=0.0
+!WC_ORA2/KET=0.0
!
-!URG8/ALKM=0.0
+!WC_ORA2/CARBO=0.0
!
-!URG8/ALKH=0.0
+!WC_ORA2/ONIT=0.0
!
-!URG8/AROH=0.0
+!WC_ORA2/PAN=0.0
!
-!URG8/AROL=0.0
+!WC_ORA2/OP1=0.0
!
-!URG8/AROO=0.0
+!WC_ORA2/OP2=0.0
!
-!URG8/ARAL=0.0
+!WC_ORA2/ORA1=0.0
!
-!URG8/ARAC=0.0
+!WC_ORA2/ORA2=+KTC18
+ PJAC(:,59,31)=+TPK%KTC18(:)
!
-!URG8/PAH=+0.1600000*K092*<OH>
- PJAC(:,64,27)=+0.1600000*TPK%K092(:)*PCONC(:,15)
+!WC_ORA2/MO2=0.0
!
-!URG8/HCHO=0.0
+!WC_ORA2/ALKAP=0.0
!
-!URG8/ALD2=0.0
+!WC_ORA2/ALKEP=0.0
!
-!URG8/KETL=0.0
+!WC_ORA2/BIOP=0.0
!
-!URG8/KETH=0.0
+!WC_ORA2/PHO=0.0
!
-!URG8/MEOH=0.0
+!WC_ORA2/ADD=0.0
!
-!URG8/ETOH=0.0
+!WC_ORA2/AROP=0.0
!
-!URG8/ALCH=0.0
+!WC_ORA2/CARBOP=0.0
!
-!URG8/ISOP=0.0
+!WC_ORA2/OLN=0.0
!
-!URG8/BIOL=0.0
+!WC_ORA2/XO2=0.0
!
-!URG8/BIOH=0.0
+!WC_ORA2/WC_O3=0.0
!
-!URG8/MTBE=0.0
+!WC_ORA2/WC_H2O2=0.0
!
-!URG8/MVK=0.0
+!WC_ORA2/WC_NO=0.0
!
-!URG8/MCR=0.0
+!WC_ORA2/WC_NO2=0.0
!
-!URG8/MGLY=0.0
+!WC_ORA2/WC_NO3=0.0
!
-!URG8/GLY=0.0
+!WC_ORA2/WC_N2O5=0.0
!
-!URG8/ORA1=0.0
+!WC_ORA2/WC_HONO=0.0
!
-!URG8/ORA2=0.0
+!WC_ORA2/WC_HNO3=0.0
!
-!URG8/ACID=0.0
+!WC_ORA2/WC_HNO4=0.0
!
-!URG8/UR28=0.0
+!WC_ORA2/WC_NH3=0.0
!
-!URG8/UR21=0.0
+!WC_ORA2/WC_OH=0.0
!
-!URG8/URG2=0.0
+!WC_ORA2/WC_HO2=0.0
!
-!URG8/UR26=0.0
+!WC_ORA2/WC_CO2=0.0
!
-!URG8/RPG2=0.0
+!WC_ORA2/WC_SO2=0.0
!
-!URG8/RP18=0.0
+!WC_ORA2/WC_SULF=0.0
!
-!URG8/RPG3=0.0
+!WC_ORA2/WC_HCHO=0.0
!
-!URG8/URG4=0.0
+!WC_ORA2/WC_ORA1=0.0
!
-!URG8/UR8=0.0
+!WC_ORA2/WC_ORA2=-KTC38
+ PJAC(:,59,59)=-TPK%KTC38(:)
!
-!URG8/UR17=0.0
+!WC_ORA2/WC_MO2=0.0
!
-!URG8/UR7=0.0
+!WC_ORA2/WC_OP1=0.0
!
-!URG8/RPR3=0.0
+!WC_ORA2/WC_ASO3=0.0
!
-!URG8/URG6=0.0
+!WC_ORA2/WC_ASO4=0.0
!
-!URG8/UR22=0.0
+!WC_ORA2/WC_ASO5=0.0
!
-!URG8/URG7=0.0
+!WC_ORA2/WC_AHSO5=0.0
!
-!URG8/RPR4=0.0
+!WC_ORA2/WC_AHMS=0.0
!
-!URG8/RPR7=0.0
+!WC_ORA2/WR_O3=0.0
!
-!URG8/RPG7=0.0
+!WC_ORA2/WR_H2O2=0.0
!
-!URG8/URG8=-K354
- PJAC(:,64,64)=-TPK%K354(:)
+!WC_ORA2/WR_NO=0.0
!
-!URG8/UR19=0.0
+!WC_ORA2/WR_NO2=0.0
!
-!URG8/URG9=0.0
+!WC_ORA2/WR_NO3=0.0
!
-!URG8/AP7=0.0
+!WC_ORA2/WR_N2O5=0.0
!
-!URG8/URG10=0.0
+!WC_ORA2/WR_HONO=0.0
!
-!URG8/RPR1=0.0
+!WC_ORA2/WR_HNO3=0.0
!
-!URG8/RPR5=0.0
+!WC_ORA2/WR_HNO4=0.0
!
-!URG8/RPR8=0.0
+!WC_ORA2/WR_NH3=0.0
!
-!URG8/RP10=0.0
+!WC_ORA2/WR_OH=0.0
!
-!URG8/RP11=0.0
+!WC_ORA2/WR_HO2=0.0
!
-!URG8/RP16=0.0
+!WC_ORA2/WR_CO2=0.0
!
-!URG8/RPRL=0.0
+!WC_ORA2/WR_SO2=0.0
!
-!URG8/APAN=0.0
+!WC_ORA2/WR_SULF=0.0
!
-!URG8/PAN1=0.0
+!WC_ORA2/WR_HCHO=0.0
!
-!URG8/PAN2=0.0
+!WC_ORA2/WR_ORA1=0.0
!
-!URG8/PAN3=0.0
+!WC_ORA2/WR_ORA2=0.0
!
-!URG8/PAN4=0.0
+!WC_ORA2/WR_MO2=0.0
!
-!URG8/PAN6=0.0
+!WC_ORA2/WR_OP1=0.0
!
-!URG8/PAN7=0.0
+!WC_ORA2/WR_ASO3=0.0
!
-!URG8/PAN8=0.0
+!WC_ORA2/WR_ASO4=0.0
!
-!URG8/PN10=0.0
+!WC_ORA2/WR_ASO5=0.0
!
-!URG8/RO2T=0.0
+!WC_ORA2/WR_AHSO5=0.0
!
-!URG8/RO21=0.0
+!WC_ORA2/WR_AHMS=0.0
!
-!URG8/RO25=0.0
+!WC_MO2/O3=0.0
!
-!UR19/NO=+TPK%CF32*K221*<RO231>
- PJAC(:,65,1)=+TPK%CF32*TPK%K221(:)*TPK%RO231(:)
+!WC_MO2/H2O2=0.0
!
-!UR19/NO2=0.0
+!WC_MO2/NO=0.0
!
-!UR19/O3=0.0
+!WC_MO2/NO2=0.0
!
-!UR19/HONO=0.0
+!WC_MO2/NO3=0.0
!
-!UR19/HNO3=0.0
+!WC_MO2/N2O5=0.0
!
-!UR19/HNO4=0.0
+!WC_MO2/HONO=0.0
!
-!UR19/N2O5=0.0
+!WC_MO2/HNO3=0.0
!
-!UR19/NO3=0.0
+!WC_MO2/HNO4=0.0
!
-!UR19/NH3=0.0
+!WC_MO2/NH3=0.0
!
-!UR19/HO2=+K223*<RO231>
- PJAC(:,65,10)=+TPK%K223(:)*TPK%RO231(:)
+!WC_MO2/SO2=0.0
!
-!UR19/CO=0.0
+!WC_MO2/SULF=0.0
!
-!UR19/H2O2=0.0
+!WC_MO2/CO=0.0
!
-!UR19/SO2=0.0
+!WC_MO2/OH=0.0
!
-!UR19/H2SO4=0.0
+!WC_MO2/HO2=0.0
!
-!UR19/OH=0.0
+!WC_MO2/CH4=0.0
!
-!UR19/ETHE=0.0
+!WC_MO2/ETH=0.0
!
-!UR19/OLEL=0.0
+!WC_MO2/ALKA=0.0
!
-!UR19/OLEH=0.0
+!WC_MO2/ALKE=0.0
!
-!UR19/ALKL=0.0
+!WC_MO2/BIO=0.0
!
-!UR19/ALKM=0.0
+!WC_MO2/ARO=0.0
!
-!UR19/ALKH=0.0
+!WC_MO2/HCHO=0.0
!
-!UR19/AROH=0.0
+!WC_MO2/ALD=0.0
!
-!UR19/AROL=0.0
+!WC_MO2/KET=0.0
!
-!UR19/AROO=0.0
+!WC_MO2/CARBO=0.0
!
-!UR19/ARAL=0.0
+!WC_MO2/ONIT=0.0
!
-!UR19/ARAC=0.0
+!WC_MO2/PAN=0.0
!
-!UR19/PAH=0.0
+!WC_MO2/OP1=0.0
!
-!UR19/HCHO=0.0
+!WC_MO2/OP2=0.0
!
-!UR19/ALD2=0.0
+!WC_MO2/ORA1=0.0
!
-!UR19/KETL=0.0
+!WC_MO2/ORA2=0.0
!
-!UR19/KETH=0.0
+!WC_MO2/MO2=+KTC19
+ PJAC(:,60,32)=+TPK%KTC19(:)
!
-!UR19/MEOH=0.0
+!WC_MO2/ALKAP=0.0
!
-!UR19/ETOH=0.0
+!WC_MO2/ALKEP=0.0
!
-!UR19/ALCH=0.0
+!WC_MO2/BIOP=0.0
!
-!UR19/ISOP=0.0
+!WC_MO2/PHO=0.0
!
-!UR19/BIOL=0.0
+!WC_MO2/ADD=0.0
!
-!UR19/BIOH=0.0
+!WC_MO2/AROP=0.0
!
-!UR19/MTBE=0.0
+!WC_MO2/CARBOP=0.0
!
-!UR19/MVK=0.0
+!WC_MO2/OLN=0.0
!
-!UR19/MCR=0.0
+!WC_MO2/XO2=0.0
!
-!UR19/MGLY=0.0
+!WC_MO2/WC_O3=0.0
!
-!UR19/GLY=0.0
+!WC_MO2/WC_H2O2=0.0
!
-!UR19/ORA1=0.0
+!WC_MO2/WC_NO=0.0
!
-!UR19/ORA2=0.0
+!WC_MO2/WC_NO2=0.0
!
-!UR19/ACID=0.0
+!WC_MO2/WC_NO3=0.0
!
-!UR19/UR28=0.0
+!WC_MO2/WC_N2O5=0.0
!
-!UR19/UR21=0.0
+!WC_MO2/WC_HONO=0.0
!
-!UR19/URG2=0.0
+!WC_MO2/WC_HNO3=0.0
!
-!UR19/UR26=0.0
+!WC_MO2/WC_HNO4=0.0
!
-!UR19/RPG2=0.0
+!WC_MO2/WC_NH3=0.0
!
-!UR19/RP18=0.0
+!WC_MO2/WC_OH=0.0
!
-!UR19/RPG3=0.0
+!WC_MO2/WC_HO2=0.0
!
-!UR19/URG4=0.0
+!WC_MO2/WC_CO2=0.0
!
-!UR19/UR8=0.0
+!WC_MO2/WC_SO2=-KC18*<WC_MO2>
+ PJAC(:,60,55)=-TPK%KC18(:)*PCONC(:,60)
!
-!UR19/UR17=0.0
+!WC_MO2/WC_SULF=0.0
!
-!UR19/UR7=0.0
+!WC_MO2/WC_HCHO=0.0
!
-!UR19/RPR3=0.0
+!WC_MO2/WC_ORA1=0.0
!
-!UR19/URG6=0.0
+!WC_MO2/WC_ORA2=0.0
!
-!UR19/UR22=0.0
+!WC_MO2/WC_MO2=-KTC39-KC17*<WC_MO2>-KC17*<WC_MO2>-KC17*<WC_MO2>-KC17*<WC_MO2>-K
+!C18*<WC_SO2>
+ PJAC(:,60,60)=-TPK%KTC39(:)-TPK%KC17(:)*PCONC(:,60)-TPK%KC17(:)*PCONC(:,60)-TP&
+&K%KC17(:)*PCONC(:,60)-TPK%KC17(:)*PCONC(:,60)-TPK%KC18(:)*PCONC(:,55)
!
-!UR19/URG7=0.0
+!WC_MO2/WC_OP1=0.0
!
-!UR19/RPR4=0.0
+!WC_MO2/WC_ASO3=0.0
!
-!UR19/RPR7=0.0
+!WC_MO2/WC_ASO4=0.0
!
-!UR19/RPG7=0.0
+!WC_MO2/WC_ASO5=0.0
!
-!UR19/URG8=0.0
+!WC_MO2/WC_AHSO5=0.0
!
-!UR19/UR19=-K360
- PJAC(:,65,65)=-TPK%K360(:)
+!WC_MO2/WC_AHMS=0.0
!
-!UR19/URG9=0.0
+!WC_MO2/WR_O3=0.0
!
-!UR19/AP7=0.0
+!WC_MO2/WR_H2O2=0.0
!
-!UR19/URG10=0.0
+!WC_MO2/WR_NO=0.0
!
-!UR19/RPR1=0.0
+!WC_MO2/WR_NO2=0.0
!
-!UR19/RPR5=0.0
+!WC_MO2/WR_NO3=0.0
!
-!UR19/RPR8=0.0
+!WC_MO2/WR_N2O5=0.0
!
-!UR19/RP10=0.0
+!WC_MO2/WR_HONO=0.0
!
-!UR19/RP11=0.0
+!WC_MO2/WR_HNO3=0.0
!
-!UR19/RP16=0.0
+!WC_MO2/WR_HNO4=0.0
!
-!UR19/RPRL=0.0
+!WC_MO2/WR_NH3=0.0
!
-!UR19/APAN=0.0
+!WC_MO2/WR_OH=0.0
!
-!UR19/PAN1=0.0
+!WC_MO2/WR_HO2=0.0
!
-!UR19/PAN2=0.0
+!WC_MO2/WR_CO2=0.0
!
-!UR19/PAN3=0.0
+!WC_MO2/WR_SO2=0.0
!
-!UR19/PAN4=0.0
+!WC_MO2/WR_SULF=0.0
!
-!UR19/PAN6=0.0
+!WC_MO2/WR_HCHO=0.0
!
-!UR19/PAN7=0.0
+!WC_MO2/WR_ORA1=0.0
!
-!UR19/PAN8=0.0
+!WC_MO2/WR_ORA2=0.0
!
-!UR19/PN10=0.0
+!WC_MO2/WR_MO2=0.0
!
-!UR19/RO2T=+K222*<RO231>
- PJAC(:,65,85)=+TPK%K222(:)*TPK%RO231(:)
+!WC_MO2/WR_OP1=0.0
!
-!UR19/RO21=0.0
+!WC_MO2/WR_ASO3=0.0
!
-!UR19/RO25=0.0
+!WC_MO2/WR_ASO4=0.0
!
-RETURN
-END SUBROUTINE SUBJ12
+!WC_MO2/WR_ASO5=0.0
!
-SUBROUTINE SUBJ13
+!WC_MO2/WR_AHSO5=0.0
!
-!Indices 66 a 70
+!WC_MO2/WR_AHMS=0.0
!
+RETURN
+END SUBROUTINE SUBJ11
!
-!URG9/NO=+TPK%CFA14*K224*<RO232>+TPK%CFA16*K227*<RO241>+TPK%CFA15*K227*<RO241>
- PJAC(:,66,1)=+TPK%CFA14*TPK%K224(:)*TPK%RO232(:)+TPK%CFA16*TPK%K227(:)*TPK%RO2&
-&41(:)+TPK%CFA15*TPK%K227(:)*TPK%RO241(:)
+SUBROUTINE SUBJ12
!
-!URG9/NO2=0.0
+!Indices 61 a 65
!
-!URG9/O3=0.0
!
-!URG9/HONO=0.0
+!WC_OP1/O3=0.0
!
-!URG9/HNO3=0.0
+!WC_OP1/H2O2=0.0
!
-!URG9/HNO4=0.0
+!WC_OP1/NO=0.0
!
-!URG9/N2O5=0.0
+!WC_OP1/NO2=0.0
!
-!URG9/NO3=0.0
+!WC_OP1/NO3=0.0
!
-!URG9/NH3=0.0
+!WC_OP1/N2O5=0.0
!
-!URG9/HO2=+0.9999996*K229*<RO241>
- PJAC(:,66,10)=+0.9999996*TPK%K229(:)*TPK%RO241(:)
+!WC_OP1/HONO=0.0
!
-!URG9/CO=0.0
+!WC_OP1/HNO3=0.0
!
-!URG9/H2O2=0.0
+!WC_OP1/HNO4=0.0
!
-!URG9/SO2=0.0
+!WC_OP1/NH3=0.0
!
-!URG9/H2SO4=0.0
+!WC_OP1/SO2=0.0
!
-!URG9/OH=0.0
+!WC_OP1/SULF=0.0
!
-!URG9/ETHE=0.0
+!WC_OP1/CO=0.0
!
-!URG9/OLEL=0.0
+!WC_OP1/OH=0.0
!
-!URG9/OLEH=0.0
+!WC_OP1/HO2=0.0
!
-!URG9/ALKL=0.0
+!WC_OP1/CH4=0.0
!
-!URG9/ALKM=0.0
+!WC_OP1/ETH=0.0
!
-!URG9/ALKH=0.0
+!WC_OP1/ALKA=0.0
!
-!URG9/AROH=0.0
+!WC_OP1/ALKE=0.0
!
-!URG9/AROL=0.0
+!WC_OP1/BIO=0.0
!
-!URG9/AROO=0.0
+!WC_OP1/ARO=0.0
!
-!URG9/ARAL=0.0
+!WC_OP1/HCHO=0.0
!
-!URG9/ARAC=0.0
+!WC_OP1/ALD=0.0
!
-!URG9/PAH=0.0
+!WC_OP1/KET=0.0
!
-!URG9/HCHO=0.0
+!WC_OP1/CARBO=0.0
!
-!URG9/ALD2=0.0
+!WC_OP1/ONIT=0.0
!
-!URG9/KETL=0.0
+!WC_OP1/PAN=0.0
!
-!URG9/KETH=0.0
+!WC_OP1/OP1=+KTC20
+ PJAC(:,61,28)=+TPK%KTC20(:)
!
-!URG9/MEOH=0.0
+!WC_OP1/OP2=0.0
!
-!URG9/ETOH=0.0
+!WC_OP1/ORA1=0.0
!
-!URG9/ALCH=0.0
+!WC_OP1/ORA2=0.0
!
-!URG9/ISOP=0.0
+!WC_OP1/MO2=0.0
!
-!URG9/BIOL=0.0
+!WC_OP1/ALKAP=0.0
!
-!URG9/BIOH=0.0
+!WC_OP1/ALKEP=0.0
!
-!URG9/MTBE=0.0
+!WC_OP1/BIOP=0.0
!
-!URG9/MVK=0.0
+!WC_OP1/PHO=0.0
!
-!URG9/MCR=0.0
+!WC_OP1/ADD=0.0
!
-!URG9/MGLY=0.0
+!WC_OP1/AROP=0.0
!
-!URG9/GLY=0.0
+!WC_OP1/CARBOP=0.0
!
-!URG9/ORA1=0.0
+!WC_OP1/OLN=0.0
!
-!URG9/ORA2=0.0
+!WC_OP1/XO2=0.0
!
-!URG9/ACID=0.0
+!WC_OP1/WC_O3=0.0
!
-!URG9/UR28=0.0
+!WC_OP1/WC_H2O2=0.0
!
-!URG9/UR21=0.0
+!WC_OP1/WC_NO=0.0
!
-!URG9/URG2=0.0
+!WC_OP1/WC_NO2=0.0
!
-!URG9/UR26=0.0
+!WC_OP1/WC_NO3=0.0
!
-!URG9/RPG2=0.0
+!WC_OP1/WC_N2O5=0.0
!
-!URG9/RP18=0.0
+!WC_OP1/WC_HONO=0.0
!
-!URG9/RPG3=0.0
+!WC_OP1/WC_HNO3=0.0
!
-!URG9/URG4=0.0
+!WC_OP1/WC_HNO4=0.0
!
-!URG9/UR8=0.0
+!WC_OP1/WC_NH3=0.0
!
-!URG9/UR17=0.0
+!WC_OP1/WC_OH=0.0
!
-!URG9/UR7=0.0
+!WC_OP1/WC_HO2=0.0
!
-!URG9/RPR3=0.0
+!WC_OP1/WC_CO2=0.0
!
-!URG9/URG6=0.0
+!WC_OP1/WC_SO2=+KC18*<WC_MO2>
+ PJAC(:,61,55)=+TPK%KC18(:)*PCONC(:,60)
!
-!URG9/UR22=0.0
+!WC_OP1/WC_SULF=0.0
!
-!URG9/URG7=0.0
+!WC_OP1/WC_HCHO=0.0
!
-!URG9/RPR4=0.0
+!WC_OP1/WC_ORA1=0.0
!
-!URG9/RPR7=0.0
+!WC_OP1/WC_ORA2=0.0
!
-!URG9/RPG7=0.0
+!WC_OP1/WC_MO2=+KC18*<WC_SO2>
+ PJAC(:,61,60)=+TPK%KC18(:)*PCONC(:,55)
!
-!URG9/URG8=0.0
+!WC_OP1/WC_OP1=-KTC40
+ PJAC(:,61,61)=-TPK%KTC40(:)
!
-!URG9/UR19=0.0
+!WC_OP1/WC_ASO3=0.0
!
-!URG9/URG9=-K355
- PJAC(:,66,66)=-TPK%K355(:)
+!WC_OP1/WC_ASO4=0.0
!
-!URG9/AP7=0.0
+!WC_OP1/WC_ASO5=0.0
!
-!URG9/URG10=0.0
+!WC_OP1/WC_AHSO5=0.0
!
-!URG9/RPR1=0.0
+!WC_OP1/WC_AHMS=0.0
!
-!URG9/RPR5=0.0
+!WC_OP1/WR_O3=0.0
!
-!URG9/RPR8=0.0
+!WC_OP1/WR_H2O2=0.0
!
-!URG9/RP10=0.0
+!WC_OP1/WR_NO=0.0
!
-!URG9/RP11=0.0
+!WC_OP1/WR_NO2=0.0
!
-!URG9/RP16=0.0
+!WC_OP1/WR_NO3=0.0
!
-!URG9/RPRL=0.0
+!WC_OP1/WR_N2O5=0.0
!
-!URG9/APAN=0.0
+!WC_OP1/WR_HONO=0.0
!
-!URG9/PAN1=0.0
+!WC_OP1/WR_HNO3=0.0
!
-!URG9/PAN2=0.0
+!WC_OP1/WR_HNO4=0.0
!
-!URG9/PAN3=0.0
+!WC_OP1/WR_NH3=0.0
!
-!URG9/PAN4=0.0
+!WC_OP1/WR_OH=0.0
!
-!URG9/PAN6=0.0
+!WC_OP1/WR_HO2=0.0
!
-!URG9/PAN7=0.0
+!WC_OP1/WR_CO2=0.0
!
-!URG9/PAN8=0.0
+!WC_OP1/WR_SO2=0.0
!
-!URG9/PN10=0.0
+!WC_OP1/WR_SULF=0.0
!
-!URG9/RO2T=+0.9999996*K228*<RO241>
- PJAC(:,66,85)=+0.9999996*TPK%K228(:)*TPK%RO241(:)
+!WC_OP1/WR_HCHO=0.0
!
-!URG9/RO21=0.0
+!WC_OP1/WR_ORA1=0.0
!
-!URG9/RO25=0.0
+!WC_OP1/WR_ORA2=0.0
!
-!AP7/NO=+TPK%CFA23*K198*<RO224>
- PJAC(:,67,1)=+TPK%CFA23*TPK%K198(:)*TPK%RO224(:)
+!WC_OP1/WR_MO2=0.0
!
-!AP7/NO2=0.0
+!WC_OP1/WR_OP1=0.0
!
-!AP7/O3=0.0
+!WC_OP1/WR_ASO3=0.0
!
-!AP7/HONO=0.0
+!WC_OP1/WR_ASO4=0.0
!
-!AP7/HNO3=0.0
+!WC_OP1/WR_ASO5=0.0
!
-!AP7/HNO4=0.0
+!WC_OP1/WR_AHSO5=0.0
!
-!AP7/N2O5=0.0
+!WC_OP1/WR_AHMS=0.0
!
-!AP7/NO3=0.0
+!WC_ASO3/O3=0.0
!
-!AP7/NH3=0.0
+!WC_ASO3/H2O2=0.0
!
-!AP7/HO2=0.0
+!WC_ASO3/NO=0.0
!
-!AP7/CO=0.0
+!WC_ASO3/NO2=0.0
!
-!AP7/H2O2=0.0
+!WC_ASO3/NO3=0.0
!
-!AP7/SO2=0.0
+!WC_ASO3/N2O5=0.0
!
-!AP7/H2SO4=0.0
+!WC_ASO3/HONO=0.0
!
-!AP7/OH=0.0
+!WC_ASO3/HNO3=0.0
!
-!AP7/ETHE=0.0
+!WC_ASO3/HNO4=0.0
!
-!AP7/OLEL=0.0
+!WC_ASO3/NH3=0.0
!
-!AP7/OLEH=0.0
+!WC_ASO3/SO2=0.0
!
-!AP7/ALKL=0.0
+!WC_ASO3/SULF=0.0
!
-!AP7/ALKM=0.0
+!WC_ASO3/CO=0.0
!
-!AP7/ALKH=0.0
+!WC_ASO3/OH=0.0
!
-!AP7/AROH=0.0
+!WC_ASO3/HO2=0.0
!
-!AP7/AROL=0.0
+!WC_ASO3/CH4=0.0
!
-!AP7/AROO=0.0
+!WC_ASO3/ETH=0.0
!
-!AP7/ARAL=0.0
+!WC_ASO3/ALKA=0.0
!
-!AP7/ARAC=0.0
+!WC_ASO3/ALKE=0.0
!
-!AP7/PAH=0.0
+!WC_ASO3/BIO=0.0
!
-!AP7/HCHO=0.0
+!WC_ASO3/ARO=0.0
!
-!AP7/ALD2=0.0
+!WC_ASO3/HCHO=0.0
!
-!AP7/KETL=0.0
+!WC_ASO3/ALD=0.0
!
-!AP7/KETH=0.0
+!WC_ASO3/KET=0.0
!
-!AP7/MEOH=0.0
+!WC_ASO3/CARBO=0.0
!
-!AP7/ETOH=0.0
+!WC_ASO3/ONIT=0.0
!
-!AP7/ALCH=0.0
+!WC_ASO3/PAN=0.0
!
-!AP7/ISOP=0.0
+!WC_ASO3/OP1=0.0
!
-!AP7/BIOL=0.0
+!WC_ASO3/OP2=0.0
!
-!AP7/BIOH=0.0
+!WC_ASO3/ORA1=0.0
!
-!AP7/MTBE=0.0
+!WC_ASO3/ORA2=0.0
!
-!AP7/MVK=0.0
+!WC_ASO3/MO2=0.0
!
-!AP7/MCR=0.0
+!WC_ASO3/ALKAP=0.0
!
-!AP7/MGLY=0.0
+!WC_ASO3/ALKEP=0.0
!
-!AP7/GLY=0.0
+!WC_ASO3/BIOP=0.0
!
-!AP7/ORA1=0.0
+!WC_ASO3/PHO=0.0
!
-!AP7/ORA2=0.0
+!WC_ASO3/ADD=0.0
!
-!AP7/ACID=0.0
+!WC_ASO3/AROP=0.0
!
-!AP7/UR28=0.0
+!WC_ASO3/CARBOP=0.0
!
-!AP7/UR21=0.0
+!WC_ASO3/OLN=0.0
!
-!AP7/URG2=0.0
+!WC_ASO3/XO2=0.0
!
-!AP7/UR26=0.0
+!WC_ASO3/WC_O3=0.0
!
-!AP7/RPG2=0.0
+!WC_ASO3/WC_H2O2=0.0
!
-!AP7/RP18=0.0
+!WC_ASO3/WC_NO=0.0
!
-!AP7/RPG3=0.0
+!WC_ASO3/WC_NO2=0.0
!
-!AP7/URG4=0.0
+!WC_ASO3/WC_NO3=+KC16*<WC_SO2>
+ PJAC(:,62,46)=+TPK%KC16(:)*PCONC(:,55)
!
-!AP7/UR8=0.0
+!WC_ASO3/WC_N2O5=0.0
!
-!AP7/UR17=0.0
+!WC_ASO3/WC_HONO=0.0
!
-!AP7/UR7=0.0
+!WC_ASO3/WC_HNO3=0.0
!
-!AP7/RPR3=0.0
+!WC_ASO3/WC_HNO4=0.0
!
-!AP7/URG6=0.0
+!WC_ASO3/WC_NH3=0.0
!
-!AP7/UR22=0.0
+!WC_ASO3/WC_OH=+KC7*<WC_SO2>
+ PJAC(:,62,52)=+TPK%KC7(:)*PCONC(:,55)
!
-!AP7/URG7=0.0
+!WC_ASO3/WC_HO2=0.0
!
-!AP7/RPR4=0.0
+!WC_ASO3/WC_CO2=0.0
!
-!AP7/RPR7=0.0
+!WC_ASO3/WC_SO2=+KC7*<WC_OH>+KC16*<WC_NO3>+KC18*<WC_MO2>
+ PJAC(:,62,55)=+TPK%KC7(:)*PCONC(:,52)+TPK%KC16(:)*PCONC(:,46)+TPK%KC18(:)*PCON&
+&C(:,60)
!
-!AP7/RPG7=0.0
+!WC_ASO3/WC_SULF=0.0
!
-!AP7/URG8=0.0
+!WC_ASO3/WC_HCHO=0.0
!
-!AP7/UR19=0.0
+!WC_ASO3/WC_ORA1=0.0
!
-!AP7/URG9=0.0
+!WC_ASO3/WC_ORA2=0.0
!
-!AP7/AP7=-K365
- PJAC(:,67,67)=-TPK%K365(:)
+!WC_ASO3/WC_MO2=+KC18*<WC_SO2>
+ PJAC(:,62,60)=+TPK%KC18(:)*PCONC(:,55)
!
-!AP7/URG10=0.0
+!WC_ASO3/WC_OP1=0.0
!
-!AP7/RPR1=0.0
+!WC_ASO3/WC_ASO3=-KC24*<W_O2>
+ PJAC(:,62,62)=-TPK%KC24(:)*TPK%W_O2(:)
!
-!AP7/RPR5=0.0
+!WC_ASO3/WC_ASO4=0.0
!
-!AP7/RPR8=0.0
+!WC_ASO3/WC_ASO5=0.0
!
-!AP7/RP10=0.0
+!WC_ASO3/WC_AHSO5=0.0
!
-!AP7/RP11=0.0
+!WC_ASO3/WC_AHMS=0.0
!
-!AP7/RP16=0.0
+!WC_ASO3/WR_O3=0.0
!
-!AP7/RPRL=0.0
+!WC_ASO3/WR_H2O2=0.0
!
-!AP7/APAN=0.0
+!WC_ASO3/WR_NO=0.0
!
-!AP7/PAN1=0.0
+!WC_ASO3/WR_NO2=0.0
!
-!AP7/PAN2=0.0
+!WC_ASO3/WR_NO3=0.0
!
-!AP7/PAN3=0.0
+!WC_ASO3/WR_N2O5=0.0
!
-!AP7/PAN4=0.0
+!WC_ASO3/WR_HONO=0.0
!
-!AP7/PAN6=0.0
+!WC_ASO3/WR_HNO3=0.0
!
-!AP7/PAN7=0.0
+!WC_ASO3/WR_HNO4=0.0
!
-!AP7/PAN8=0.0
+!WC_ASO3/WR_NH3=0.0
!
-!AP7/PN10=0.0
+!WC_ASO3/WR_OH=0.0
!
-!AP7/RO2T=0.0
+!WC_ASO3/WR_HO2=0.0
!
-!AP7/RO21=0.0
+!WC_ASO3/WR_CO2=0.0
!
-!AP7/RO25=0.0
+!WC_ASO3/WR_SO2=0.0
!
-!URG10/NO=+TPK%CF27*K207*<RO227>
- PJAC(:,68,1)=+TPK%CF27*TPK%K207(:)*TPK%RO227(:)
+!WC_ASO3/WR_SULF=0.0
!
-!URG10/NO2=0.0
+!WC_ASO3/WR_HCHO=0.0
!
-!URG10/O3=0.0
+!WC_ASO3/WR_ORA1=0.0
!
-!URG10/HONO=0.0
+!WC_ASO3/WR_ORA2=0.0
!
-!URG10/HNO3=0.0
+!WC_ASO3/WR_MO2=0.0
!
-!URG10/HNO4=0.0
+!WC_ASO3/WR_OP1=0.0
!
-!URG10/N2O5=0.0
+!WC_ASO3/WR_ASO3=0.0
!
-!URG10/NO3=0.0
+!WC_ASO3/WR_ASO4=0.0
!
-!URG10/NH3=0.0
+!WC_ASO3/WR_ASO5=0.0
!
-!URG10/HO2=0.0
+!WC_ASO3/WR_AHSO5=0.0
!
-!URG10/CO=0.0
+!WC_ASO3/WR_AHMS=0.0
!
-!URG10/H2O2=0.0
+!WC_ASO4/O3=0.0
!
-!URG10/SO2=0.0
+!WC_ASO4/H2O2=0.0
!
-!URG10/H2SO4=0.0
+!WC_ASO4/NO=0.0
!
-!URG10/OH=0.0
+!WC_ASO4/NO2=0.0
!
-!URG10/ETHE=0.0
+!WC_ASO4/NO3=0.0
!
-!URG10/OLEL=0.0
+!WC_ASO4/N2O5=0.0
!
-!URG10/OLEH=0.0
+!WC_ASO4/HONO=0.0
!
-!URG10/ALKL=0.0
+!WC_ASO4/HNO3=0.0
!
-!URG10/ALKM=0.0
+!WC_ASO4/HNO4=0.0
!
-!URG10/ALKH=0.0
+!WC_ASO4/NH3=0.0
!
-!URG10/AROH=0.0
+!WC_ASO4/SO2=0.0
!
-!URG10/AROL=0.0
+!WC_ASO4/SULF=0.0
!
-!URG10/AROO=0.0
+!WC_ASO4/CO=0.0
!
-!URG10/ARAL=0.0
+!WC_ASO4/OH=0.0
!
-!URG10/ARAC=0.0
+!WC_ASO4/HO2=0.0
!
-!URG10/PAH=0.0
+!WC_ASO4/CH4=0.0
!
-!URG10/HCHO=0.0
+!WC_ASO4/ETH=0.0
!
-!URG10/ALD2=0.0
+!WC_ASO4/ALKA=0.0
!
-!URG10/KETL=0.0
+!WC_ASO4/ALKE=0.0
!
-!URG10/KETH=0.0
+!WC_ASO4/BIO=0.0
!
-!URG10/MEOH=0.0
+!WC_ASO4/ARO=0.0
!
-!URG10/ETOH=0.0
+!WC_ASO4/HCHO=0.0
!
-!URG10/ALCH=0.0
+!WC_ASO4/ALD=0.0
!
-!URG10/ISOP=0.0
+!WC_ASO4/KET=0.0
!
-!URG10/BIOL=+0.2500000*K087*<O>+0.7500000*K087*<O>
- PJAC(:,68,36)=+0.2500000*TPK%K087(:)*TPK%O(:)+0.7500000*TPK%K087(:)*TPK%O(:)
+!WC_ASO4/CARBO=0.0
!
-!URG10/BIOH=0.0
+!WC_ASO4/ONIT=0.0
!
-!URG10/MTBE=0.0
+!WC_ASO4/PAN=0.0
!
-!URG10/MVK=0.0
+!WC_ASO4/OP1=0.0
!
-!URG10/MCR=0.0
+!WC_ASO4/OP2=0.0
!
-!URG10/MGLY=0.0
+!WC_ASO4/ORA1=0.0
!
-!URG10/GLY=0.0
+!WC_ASO4/ORA2=0.0
!
-!URG10/ORA1=0.0
+!WC_ASO4/MO2=0.0
!
-!URG10/ORA2=0.0
+!WC_ASO4/ALKAP=0.0
!
-!URG10/ACID=0.0
+!WC_ASO4/ALKEP=0.0
!
-!URG10/UR28=0.0
+!WC_ASO4/BIOP=0.0
!
-!URG10/UR21=0.0
+!WC_ASO4/PHO=0.0
!
-!URG10/URG2=0.0
+!WC_ASO4/ADD=0.0
!
-!URG10/UR26=0.0
+!WC_ASO4/AROP=0.0
!
-!URG10/RPG2=0.0
+!WC_ASO4/CARBOP=0.0
!
-!URG10/RP18=0.0
+!WC_ASO4/OLN=0.0
!
-!URG10/RPG3=0.0
+!WC_ASO4/XO2=0.0
!
-!URG10/URG4=0.0
+!WC_ASO4/WC_O3=0.0
!
-!URG10/UR8=0.0
+!WC_ASO4/WC_H2O2=0.0
!
-!URG10/UR17=0.0
+!WC_ASO4/WC_NO=0.0
!
-!URG10/UR7=0.0
+!WC_ASO4/WC_NO2=0.0
!
-!URG10/RPR3=0.0
+!WC_ASO4/WC_NO3=+KC15*<WC_SULF>
+ PJAC(:,63,46)=+TPK%KC15(:)*PCONC(:,56)
!
-!URG10/URG6=0.0
+!WC_ASO4/WC_N2O5=0.0
!
-!URG10/UR22=0.0
+!WC_ASO4/WC_HONO=0.0
!
-!URG10/URG7=0.0
+!WC_ASO4/WC_HNO3=0.0
!
-!URG10/RPR4=0.0
+!WC_ASO4/WC_HNO4=0.0
!
-!URG10/RPR7=0.0
+!WC_ASO4/WC_NH3=0.0
!
-!URG10/RPG7=0.0
+!WC_ASO4/WC_OH=0.0
!
-!URG10/URG8=0.0
+!WC_ASO4/WC_HO2=0.0
!
-!URG10/UR19=0.0
+!WC_ASO4/WC_CO2=0.0
!
-!URG10/URG9=0.0
+!WC_ASO4/WC_SO2=0.0
!
-!URG10/AP7=0.0
+!WC_ASO4/WC_SULF=+KC15*<WC_NO3>
+ PJAC(:,63,56)=+TPK%KC15(:)*PCONC(:,46)
!
-!URG10/URG10=-K356
- PJAC(:,68,68)=-TPK%K356(:)
+!WC_ASO4/WC_HCHO=0.0
!
-!URG10/RPR1=0.0
+!WC_ASO4/WC_ORA1=0.0
!
-!URG10/RPR5=0.0
+!WC_ASO4/WC_ORA2=0.0
!
-!URG10/RPR8=0.0
+!WC_ASO4/WC_MO2=0.0
!
-!URG10/RP10=0.0
+!WC_ASO4/WC_OP1=0.0
!
-!URG10/RP11=0.0
+!WC_ASO4/WC_ASO3=0.0
!
-!URG10/RP16=0.0
+!WC_ASO4/WC_ASO4=-KC28
+ PJAC(:,63,63)=-TPK%KC28(:)
!
-!URG10/RPRL=0.0
+!WC_ASO4/WC_ASO5=+KC26*<WC_ASO5>+KC26*<WC_ASO5>+KC26*<WC_ASO5>+KC26*<WC_ASO5>
+ PJAC(:,63,64)=+TPK%KC26(:)*PCONC(:,64)+TPK%KC26(:)*PCONC(:,64)+TPK%KC26(:)*PCO&
+&NC(:,64)+TPK%KC26(:)*PCONC(:,64)
!
-!URG10/APAN=0.0
+!WC_ASO4/WC_AHSO5=0.0
!
-!URG10/PAN1=0.0
+!WC_ASO4/WC_AHMS=0.0
!
-!URG10/PAN2=0.0
+!WC_ASO4/WR_O3=0.0
!
-!URG10/PAN3=0.0
+!WC_ASO4/WR_H2O2=0.0
!
-!URG10/PAN4=0.0
+!WC_ASO4/WR_NO=0.0
!
-!URG10/PAN6=0.0
+!WC_ASO4/WR_NO2=0.0
!
-!URG10/PAN7=0.0
+!WC_ASO4/WR_NO3=0.0
!
-!URG10/PAN8=0.0
+!WC_ASO4/WR_N2O5=0.0
!
-!URG10/PN10=0.0
+!WC_ASO4/WR_HONO=0.0
!
-!URG10/RO2T=0.0
+!WC_ASO4/WR_HNO3=0.0
!
-!URG10/RO21=0.0
+!WC_ASO4/WR_HNO4=0.0
!
-!URG10/RO25=0.0
+!WC_ASO4/WR_NH3=0.0
!
-!RPR1/NO=+K183*<RO219>
- PJAC(:,69,1)=+TPK%K183(:)*TPK%RO219(:)
+!WC_ASO4/WR_OH=0.0
!
-!RPR1/NO2=0.0
+!WC_ASO4/WR_HO2=0.0
!
-!RPR1/O3=+0.5*K076*<OLEH>
- PJAC(:,69,3)=+0.5*TPK%K076(:)*PCONC(:,18)
+!WC_ASO4/WR_CO2=0.0
!
-!RPR1/HONO=0.0
+!WC_ASO4/WR_SO2=0.0
!
-!RPR1/HNO3=0.0
+!WC_ASO4/WR_SULF=0.0
!
-!RPR1/HNO4=0.0
+!WC_ASO4/WR_HCHO=0.0
!
-!RPR1/N2O5=0.0
+!WC_ASO4/WR_ORA1=0.0
!
-!RPR1/NO3=-K307*<RPR1>
- PJAC(:,69,8)=-TPK%K307(:)*PCONC(:,69)
+!WC_ASO4/WR_ORA2=0.0
!
-!RPR1/NH3=0.0
+!WC_ASO4/WR_MO2=0.0
!
-!RPR1/HO2=+K185*<RO219>
- PJAC(:,69,10)=+TPK%K185(:)*TPK%RO219(:)
+!WC_ASO4/WR_OP1=0.0
!
-!RPR1/CO=0.0
+!WC_ASO4/WR_ASO3=0.0
!
-!RPR1/H2O2=0.0
+!WC_ASO4/WR_ASO4=0.0
!
-!RPR1/SO2=0.0
+!WC_ASO4/WR_ASO5=0.0
!
-!RPR1/H2SO4=0.0
+!WC_ASO4/WR_AHSO5=0.0
!
-!RPR1/OH=-K304*<RPR1>
- PJAC(:,69,15)=-TPK%K304(:)*PCONC(:,69)
+!WC_ASO4/WR_AHMS=0.0
!
-!RPR1/ETHE=0.0
+!WC_ASO5/O3=0.0
!
-!RPR1/OLEL=0.0
+!WC_ASO5/H2O2=0.0
!
-!RPR1/OLEH=+0.5*K076*<O3>+0.4*K077*<O>
- PJAC(:,69,18)=+0.5*TPK%K076(:)*PCONC(:,3)+0.4*TPK%K077(:)*TPK%O(:)
+!WC_ASO5/NO=0.0
!
-!RPR1/ALKL=0.0
+!WC_ASO5/NO2=0.0
!
-!RPR1/ALKM=0.0
+!WC_ASO5/NO3=0.0
!
-!RPR1/ALKH=0.0
+!WC_ASO5/N2O5=0.0
!
-!RPR1/AROH=0.0
+!WC_ASO5/HONO=0.0
!
-!RPR1/AROL=0.0
+!WC_ASO5/HNO3=0.0
!
-!RPR1/AROO=0.0
+!WC_ASO5/HNO4=0.0
!
-!RPR1/ARAL=0.0
+!WC_ASO5/NH3=0.0
!
-!RPR1/ARAC=0.0
+!WC_ASO5/SO2=0.0
!
-!RPR1/PAH=0.0
+!WC_ASO5/SULF=0.0
!
-!RPR1/HCHO=0.0
+!WC_ASO5/CO=0.0
!
-!RPR1/ALD2=0.0
+!WC_ASO5/OH=0.0
!
-!RPR1/KETL=0.0
+!WC_ASO5/HO2=0.0
!
-!RPR1/KETH=0.0
+!WC_ASO5/CH4=0.0
!
-!RPR1/MEOH=0.0
+!WC_ASO5/ETH=0.0
!
-!RPR1/ETOH=0.0
+!WC_ASO5/ALKA=0.0
!
-!RPR1/ALCH=0.0
+!WC_ASO5/ALKE=0.0
!
-!RPR1/ISOP=0.0
+!WC_ASO5/BIO=0.0
!
-!RPR1/BIOL=0.0
+!WC_ASO5/ARO=0.0
!
-!RPR1/BIOH=0.0
+!WC_ASO5/HCHO=0.0
!
-!RPR1/MTBE=0.0
+!WC_ASO5/ALD=0.0
!
-!RPR1/MVK=0.0
+!WC_ASO5/KET=0.0
!
-!RPR1/MCR=0.0
+!WC_ASO5/CARBO=0.0
!
-!RPR1/MGLY=0.0
+!WC_ASO5/ONIT=0.0
!
-!RPR1/GLY=0.0
+!WC_ASO5/PAN=0.0
!
-!RPR1/ORA1=0.0
+!WC_ASO5/OP1=0.0
!
-!RPR1/ORA2=0.0
+!WC_ASO5/OP2=0.0
!
-!RPR1/ACID=0.0
+!WC_ASO5/ORA1=0.0
!
-!RPR1/UR28=0.0
+!WC_ASO5/ORA2=0.0
!
-!RPR1/UR21=0.0
+!WC_ASO5/MO2=0.0
!
-!RPR1/URG2=0.0
+!WC_ASO5/ALKAP=0.0
!
-!RPR1/UR26=0.0
+!WC_ASO5/ALKEP=0.0
!
-!RPR1/RPG2=0.0
+!WC_ASO5/BIOP=0.0
!
-!RPR1/RP18=0.0
+!WC_ASO5/PHO=0.0
!
-!RPR1/RPG3=0.0
+!WC_ASO5/ADD=0.0
!
-!RPR1/URG4=0.0
+!WC_ASO5/AROP=0.0
!
-!RPR1/UR8=0.0
+!WC_ASO5/CARBOP=0.0
!
-!RPR1/UR17=0.0
+!WC_ASO5/OLN=0.0
!
-!RPR1/UR7=0.0
+!WC_ASO5/XO2=0.0
!
-!RPR1/RPR3=0.0
+!WC_ASO5/WC_O3=0.0
!
-!RPR1/URG6=0.0
+!WC_ASO5/WC_H2O2=0.0
!
-!RPR1/UR22=0.0
+!WC_ASO5/WC_NO=0.0
!
-!RPR1/URG7=0.0
+!WC_ASO5/WC_NO2=0.0
!
-!RPR1/RPR4=0.0
+!WC_ASO5/WC_NO3=0.0
!
-!RPR1/RPR7=0.0
+!WC_ASO5/WC_N2O5=0.0
!
-!RPR1/RPG7=0.0
+!WC_ASO5/WC_HONO=0.0
!
-!RPR1/URG8=0.0
+!WC_ASO5/WC_HNO3=0.0
!
-!RPR1/UR19=0.0
+!WC_ASO5/WC_HNO4=0.0
!
-!RPR1/URG9=0.0
+!WC_ASO5/WC_NH3=0.0
!
-!RPR1/AP7=0.0
+!WC_ASO5/WC_OH=0.0
!
-!RPR1/URG10=0.0
+!WC_ASO5/WC_HO2=-KC25*<WC_ASO5>
+ PJAC(:,64,53)=-TPK%KC25(:)*PCONC(:,64)
!
-!RPR1/RPR1=-K304*<OH>-K307*<NO3>-K308
- PJAC(:,69,69)=-TPK%K304(:)*PCONC(:,15)-TPK%K307(:)*PCONC(:,8)-TPK%K308(:)
+!WC_ASO5/WC_CO2=0.0
!
-!RPR1/RPR5=0.0
+!WC_ASO5/WC_SO2=0.0
!
-!RPR1/RPR8=0.0
+!WC_ASO5/WC_SULF=0.0
!
-!RPR1/RP10=0.0
+!WC_ASO5/WC_HCHO=0.0
!
-!RPR1/RP11=0.0
+!WC_ASO5/WC_ORA1=0.0
!
-!RPR1/RP16=0.0
+!WC_ASO5/WC_ORA2=0.0
!
-!RPR1/RPRL=0.0
+!WC_ASO5/WC_MO2=0.0
!
-!RPR1/APAN=0.0
+!WC_ASO5/WC_OP1=0.0
!
-!RPR1/PAN1=0.0
+!WC_ASO5/WC_ASO3=+KC24*<W_O2>
+ PJAC(:,64,62)=+TPK%KC24(:)*TPK%W_O2(:)
!
-!RPR1/PAN2=0.0
+!WC_ASO5/WC_ASO4=0.0
!
-!RPR1/PAN3=0.0
+!WC_ASO5/WC_ASO5=-KC25*<WC_HO2>-KC26*<WC_ASO5>-KC26*<WC_ASO5>-KC26*<WC_ASO5>-KC
+!26*<WC_ASO5>
+ PJAC(:,64,64)=-TPK%KC25(:)*PCONC(:,53)-TPK%KC26(:)*PCONC(:,64)-TPK%KC26(:)*PCO&
+&NC(:,64)-TPK%KC26(:)*PCONC(:,64)-TPK%KC26(:)*PCONC(:,64)
!
-!RPR1/PAN4=0.0
+!WC_ASO5/WC_AHSO5=0.0
!
-!RPR1/PAN6=0.0
+!WC_ASO5/WC_AHMS=0.0
!
-!RPR1/PAN7=0.0
+!WC_ASO5/WR_O3=0.0
!
-!RPR1/PAN8=0.0
+!WC_ASO5/WR_H2O2=0.0
!
-!RPR1/PN10=0.0
+!WC_ASO5/WR_NO=0.0
!
-!RPR1/RO2T=+K184*<RO219>
- PJAC(:,69,85)=+TPK%K184(:)*TPK%RO219(:)
+!WC_ASO5/WR_NO2=0.0
!
-!RPR1/RO21=0.0
+!WC_ASO5/WR_NO3=0.0
!
-!RPR1/RO25=0.0
+!WC_ASO5/WR_N2O5=0.0
!
-!RPR5/NO=0.0
+!WC_ASO5/WR_HONO=0.0
!
-!RPR5/NO2=+K107*<RAD5>
- PJAC(:,70,2)=+TPK%K107(:)*TPK%RAD5(:)
+!WC_ASO5/WR_HNO3=0.0
!
-!RPR5/O3=0.0
+!WC_ASO5/WR_HNO4=0.0
!
-!RPR5/HONO=0.0
+!WC_ASO5/WR_NH3=0.0
!
-!RPR5/HNO3=0.0
+!WC_ASO5/WR_OH=0.0
!
-!RPR5/HNO4=0.0
+!WC_ASO5/WR_HO2=0.0
!
-!RPR5/N2O5=0.0
+!WC_ASO5/WR_CO2=0.0
!
-!RPR5/NO3=0.0
+!WC_ASO5/WR_SO2=0.0
!
-!RPR5/NH3=0.0
+!WC_ASO5/WR_SULF=0.0
!
-!RPR5/HO2=0.0
+!WC_ASO5/WR_HCHO=0.0
!
-!RPR5/CO=0.0
+!WC_ASO5/WR_ORA1=0.0
!
-!RPR5/H2O2=0.0
+!WC_ASO5/WR_ORA2=0.0
!
-!RPR5/SO2=0.0
+!WC_ASO5/WR_MO2=0.0
!
-!RPR5/H2SO4=0.0
+!WC_ASO5/WR_OP1=0.0
!
-!RPR5/OH=-K303*<RPR5>
- PJAC(:,70,15)=-TPK%K303(:)*PCONC(:,70)
+!WC_ASO5/WR_ASO3=0.0
!
-!RPR5/ETHE=0.0
+!WC_ASO5/WR_ASO4=0.0
!
-!RPR5/OLEL=0.0
+!WC_ASO5/WR_ASO5=0.0
!
-!RPR5/OLEH=0.0
+!WC_ASO5/WR_AHSO5=0.0
!
-!RPR5/ALKL=0.0
+!WC_ASO5/WR_AHMS=0.0
!
-!RPR5/ALKM=0.0
+!WC_AHSO5/O3=0.0
!
-!RPR5/ALKH=0.0
+!WC_AHSO5/H2O2=0.0
!
-!RPR5/AROH=0.0
+!WC_AHSO5/NO=0.0
!
-!RPR5/AROL=0.0
+!WC_AHSO5/NO2=0.0
!
-!RPR5/AROO=0.0
+!WC_AHSO5/NO3=0.0
!
-!RPR5/ARAL=0.0
+!WC_AHSO5/N2O5=0.0
!
-!RPR5/ARAC=0.0
+!WC_AHSO5/HONO=0.0
!
-!RPR5/PAH=0.0
+!WC_AHSO5/HNO3=0.0
!
-!RPR5/HCHO=0.0
+!WC_AHSO5/HNO4=0.0
!
-!RPR5/ALD2=0.0
+!WC_AHSO5/NH3=0.0
!
-!RPR5/KETL=0.0
+!WC_AHSO5/SO2=0.0
!
-!RPR5/KETH=0.0
+!WC_AHSO5/SULF=0.0
!
-!RPR5/MEOH=0.0
+!WC_AHSO5/CO=0.0
!
-!RPR5/ETOH=0.0
+!WC_AHSO5/OH=0.0
!
-!RPR5/ALCH=0.0
+!WC_AHSO5/HO2=0.0
!
-!RPR5/ISOP=0.0
+!WC_AHSO5/CH4=0.0
!
-!RPR5/BIOL=0.0
+!WC_AHSO5/ETH=0.0
!
-!RPR5/BIOH=0.0
+!WC_AHSO5/ALKA=0.0
!
-!RPR5/MTBE=0.0
+!WC_AHSO5/ALKE=0.0
!
-!RPR5/MVK=0.0
+!WC_AHSO5/BIO=0.0
!
-!RPR5/MCR=0.0
+!WC_AHSO5/ARO=0.0
!
-!RPR5/MGLY=0.0
+!WC_AHSO5/HCHO=0.0
!
-!RPR5/GLY=0.0
+!WC_AHSO5/ALD=0.0
!
-!RPR5/ORA1=0.0
+!WC_AHSO5/KET=0.0
!
-!RPR5/ORA2=0.0
+!WC_AHSO5/CARBO=0.0
!
-!RPR5/ACID=0.0
+!WC_AHSO5/ONIT=0.0
!
-!RPR5/UR28=0.0
+!WC_AHSO5/PAN=0.0
!
-!RPR5/UR21=0.0
+!WC_AHSO5/OP1=0.0
!
-!RPR5/URG2=0.0
+!WC_AHSO5/OP2=0.0
!
-!RPR5/UR26=0.0
+!WC_AHSO5/ORA1=0.0
!
-!RPR5/RPG2=0.0
+!WC_AHSO5/ORA2=0.0
!
-!RPR5/RP18=0.0
+!WC_AHSO5/MO2=0.0
!
-!RPR5/RPG3=0.0
+!WC_AHSO5/ALKAP=0.0
!
-!RPR5/URG4=0.0
+!WC_AHSO5/ALKEP=0.0
!
-!RPR5/UR8=0.0
+!WC_AHSO5/BIOP=0.0
!
-!RPR5/UR17=0.0
+!WC_AHSO5/PHO=0.0
!
-!RPR5/UR7=0.0
+!WC_AHSO5/ADD=0.0
!
-!RPR5/RPR3=0.0
+!WC_AHSO5/AROP=0.0
!
-!RPR5/URG6=0.0
+!WC_AHSO5/CARBOP=0.0
!
-!RPR5/UR22=0.0
+!WC_AHSO5/OLN=0.0
!
-!RPR5/URG7=0.0
+!WC_AHSO5/XO2=0.0
!
-!RPR5/RPR4=0.0
+!WC_AHSO5/WC_O3=0.0
!
-!RPR5/RPR7=0.0
+!WC_AHSO5/WC_H2O2=0.0
!
-!RPR5/RPG7=0.0
+!WC_AHSO5/WC_NO=0.0
!
-!RPR5/URG8=0.0
+!WC_AHSO5/WC_NO2=0.0
!
-!RPR5/UR19=0.0
+!WC_AHSO5/WC_NO3=0.0
!
-!RPR5/URG9=0.0
+!WC_AHSO5/WC_N2O5=0.0
!
-!RPR5/AP7=0.0
+!WC_AHSO5/WC_HONO=0.0
!
-!RPR5/URG10=0.0
+!WC_AHSO5/WC_HNO3=0.0
!
-!RPR5/RPR1=0.0
+!WC_AHSO5/WC_HNO4=0.0
!
-!RPR5/RPR5=-K303*<OH>
- PJAC(:,70,70)=-TPK%K303(:)*PCONC(:,15)
+!WC_AHSO5/WC_NH3=0.0
!
-!RPR5/RPR8=0.0
+!WC_AHSO5/WC_OH=0.0
!
-!RPR5/RP10=0.0
+!WC_AHSO5/WC_HO2=+KC25*<WC_ASO5>
+ PJAC(:,65,53)=+TPK%KC25(:)*PCONC(:,64)
!
-!RPR5/RP11=0.0
+!WC_AHSO5/WC_CO2=0.0
!
-!RPR5/RP16=0.0
+!WC_AHSO5/WC_SO2=-KC27*<WC_AHSO5>
+ PJAC(:,65,55)=-TPK%KC27(:)*PCONC(:,65)
!
-!RPR5/RPRL=0.0
+!WC_AHSO5/WC_SULF=0.0
!
-!RPR5/APAN=0.0
+!WC_AHSO5/WC_HCHO=0.0
!
-!RPR5/PAN1=0.0
+!WC_AHSO5/WC_ORA1=0.0
!
-!RPR5/PAN2=0.0
+!WC_AHSO5/WC_ORA2=0.0
!
-!RPR5/PAN3=0.0
+!WC_AHSO5/WC_MO2=0.0
!
-!RPR5/PAN4=0.0
+!WC_AHSO5/WC_OP1=0.0
!
-!RPR5/PAN6=0.0
+!WC_AHSO5/WC_ASO3=0.0
!
-!RPR5/PAN7=0.0
+!WC_AHSO5/WC_ASO4=0.0
!
-!RPR5/PAN8=0.0
+!WC_AHSO5/WC_ASO5=+KC25*<WC_HO2>
+ PJAC(:,65,64)=+TPK%KC25(:)*PCONC(:,53)
!
-!RPR5/PN10=0.0
+!WC_AHSO5/WC_AHSO5=-KC27*<WC_SO2>
+ PJAC(:,65,65)=-TPK%KC27(:)*PCONC(:,55)
!
-!RPR5/RO2T=0.0
+!WC_AHSO5/WC_AHMS=0.0
!
-!RPR5/RO21=0.0
+!WC_AHSO5/WR_O3=0.0
!
-!RPR5/RO25=0.0
+!WC_AHSO5/WR_H2O2=0.0
!
-RETURN
-END SUBROUTINE SUBJ13
+!WC_AHSO5/WR_NO=0.0
!
-SUBROUTINE SUBJ14
+!WC_AHSO5/WR_NO2=0.0
!
-!Indices 71 a 75
+!WC_AHSO5/WR_NO3=0.0
!
+!WC_AHSO5/WR_N2O5=0.0
!
-!RPR8/NO=+K216*<RO240>
- PJAC(:,71,1)=+TPK%K216(:)*TPK%RO240(:)
+!WC_AHSO5/WR_HONO=0.0
!
-!RPR8/NO2=0.0
+!WC_AHSO5/WR_HNO3=0.0
!
-!RPR8/O3=0.0
+!WC_AHSO5/WR_HNO4=0.0
!
-!RPR8/HONO=0.0
+!WC_AHSO5/WR_NH3=0.0
!
-!RPR8/HNO3=0.0
+!WC_AHSO5/WR_OH=0.0
!
-!RPR8/HNO4=0.0
+!WC_AHSO5/WR_HO2=0.0
!
-!RPR8/N2O5=0.0
+!WC_AHSO5/WR_CO2=0.0
!
-!RPR8/NO3=-K327*<RPR8>
- PJAC(:,71,8)=-TPK%K327(:)*PCONC(:,71)
+!WC_AHSO5/WR_SO2=0.0
!
-!RPR8/NH3=0.0
+!WC_AHSO5/WR_SULF=0.0
!
-!RPR8/HO2=+K218*<RO240>
- PJAC(:,71,10)=+TPK%K218(:)*TPK%RO240(:)
+!WC_AHSO5/WR_HCHO=0.0
!
-!RPR8/CO=0.0
+!WC_AHSO5/WR_ORA1=0.0
!
-!RPR8/H2O2=0.0
+!WC_AHSO5/WR_ORA2=0.0
!
-!RPR8/SO2=0.0
+!WC_AHSO5/WR_MO2=0.0
!
-!RPR8/H2SO4=0.0
+!WC_AHSO5/WR_OP1=0.0
!
-!RPR8/OH=-K324*<RPR8>
- PJAC(:,71,15)=-TPK%K324(:)*PCONC(:,71)
+!WC_AHSO5/WR_ASO3=0.0
!
-!RPR8/ETHE=0.0
+!WC_AHSO5/WR_ASO4=0.0
!
-!RPR8/OLEL=0.0
+!WC_AHSO5/WR_ASO5=0.0
!
-!RPR8/OLEH=0.0
+!WC_AHSO5/WR_AHSO5=0.0
!
-!RPR8/ALKL=0.0
+!WC_AHSO5/WR_AHMS=0.0
!
-!RPR8/ALKM=0.0
+RETURN
+END SUBROUTINE SUBJ12
!
-!RPR8/ALKH=0.0
+SUBROUTINE SUBJ13
!
-!RPR8/AROH=0.0
+!Indices 66 a 70
!
-!RPR8/AROL=0.0
!
-!RPR8/AROO=0.0
+!WC_AHMS/O3=0.0
!
-!RPR8/ARAL=0.0
+!WC_AHMS/H2O2=0.0
!
-!RPR8/ARAC=0.0
+!WC_AHMS/NO=0.0
!
-!RPR8/PAH=0.0
+!WC_AHMS/NO2=0.0
!
-!RPR8/HCHO=0.0
+!WC_AHMS/NO3=0.0
!
-!RPR8/ALD2=0.0
+!WC_AHMS/N2O5=0.0
!
-!RPR8/KETL=0.0
+!WC_AHMS/HONO=0.0
!
-!RPR8/KETH=0.0
+!WC_AHMS/HNO3=0.0
!
-!RPR8/MEOH=0.0
+!WC_AHMS/HNO4=0.0
!
-!RPR8/ETOH=0.0
+!WC_AHMS/NH3=0.0
!
-!RPR8/ALCH=0.0
+!WC_AHMS/SO2=0.0
!
-!RPR8/ISOP=0.0
+!WC_AHMS/SULF=0.0
!
-!RPR8/BIOL=0.0
+!WC_AHMS/CO=0.0
!
-!RPR8/BIOH=0.0
+!WC_AHMS/OH=0.0
!
-!RPR8/MTBE=0.0
+!WC_AHMS/HO2=0.0
!
-!RPR8/MVK=0.0
+!WC_AHMS/CH4=0.0
!
-!RPR8/MCR=0.0
+!WC_AHMS/ETH=0.0
!
-!RPR8/MGLY=0.0
+!WC_AHMS/ALKA=0.0
!
-!RPR8/GLY=0.0
+!WC_AHMS/ALKE=0.0
!
-!RPR8/ORA1=0.0
+!WC_AHMS/BIO=0.0
!
-!RPR8/ORA2=0.0
+!WC_AHMS/ARO=0.0
!
-!RPR8/ACID=0.0
+!WC_AHMS/HCHO=0.0
!
-!RPR8/UR28=0.0
+!WC_AHMS/ALD=0.0
!
-!RPR8/UR21=0.0
+!WC_AHMS/KET=0.0
!
-!RPR8/URG2=0.0
+!WC_AHMS/CARBO=0.0
!
-!RPR8/UR26=0.0
+!WC_AHMS/ONIT=0.0
!
-!RPR8/RPG2=0.0
+!WC_AHMS/PAN=0.0
!
-!RPR8/RP18=0.0
+!WC_AHMS/OP1=0.0
!
-!RPR8/RPG3=0.0
+!WC_AHMS/OP2=0.0
!
-!RPR8/URG4=0.0
+!WC_AHMS/ORA1=0.0
!
-!RPR8/UR8=0.0
+!WC_AHMS/ORA2=0.0
!
-!RPR8/UR17=0.0
+!WC_AHMS/MO2=0.0
!
-!RPR8/UR7=0.0
+!WC_AHMS/ALKAP=0.0
!
-!RPR8/RPR3=0.0
+!WC_AHMS/ALKEP=0.0
!
-!RPR8/URG6=0.0
+!WC_AHMS/BIOP=0.0
!
-!RPR8/UR22=0.0
+!WC_AHMS/PHO=0.0
!
-!RPR8/URG7=0.0
+!WC_AHMS/ADD=0.0
!
-!RPR8/RPR4=0.0
+!WC_AHMS/AROP=0.0
!
-!RPR8/RPR7=0.0
+!WC_AHMS/CARBOP=0.0
!
-!RPR8/RPG7=0.0
+!WC_AHMS/OLN=0.0
!
-!RPR8/URG8=0.0
+!WC_AHMS/XO2=0.0
!
-!RPR8/UR19=0.0
+!WC_AHMS/WC_O3=0.0
!
-!RPR8/URG9=0.0
+!WC_AHMS/WC_H2O2=0.0
!
-!RPR8/AP7=0.0
+!WC_AHMS/WC_NO=0.0
!
-!RPR8/URG10=0.0
+!WC_AHMS/WC_NO2=0.0
!
-!RPR8/RPR1=0.0
+!WC_AHMS/WC_NO3=0.0
!
-!RPR8/RPR5=0.0
+!WC_AHMS/WC_N2O5=0.0
!
-!RPR8/RPR8=-K324*<OH>-K327*<NO3>-K329-K330
- PJAC(:,71,71)=-TPK%K324(:)*PCONC(:,15)-TPK%K327(:)*PCONC(:,8)-TPK%K329(:)-TPK%&
-&K330(:)
+!WC_AHMS/WC_HONO=0.0
!
-!RPR8/RP10=0.0
+!WC_AHMS/WC_HNO3=0.0
!
-!RPR8/RP11=0.0
+!WC_AHMS/WC_HNO4=0.0
!
-!RPR8/RP16=0.0
+!WC_AHMS/WC_NH3=0.0
!
-!RPR8/RPRL=0.0
+!WC_AHMS/WC_OH=-KC23*<WC_AHMS>
+ PJAC(:,66,52)=-TPK%KC23(:)*PCONC(:,66)
!
-!RPR8/APAN=0.0
+!WC_AHMS/WC_HO2=0.0
!
-!RPR8/PAN1=0.0
+!WC_AHMS/WC_CO2=0.0
!
-!RPR8/PAN2=0.0
+!WC_AHMS/WC_SO2=+KC21*<WC_HCHO>
+ PJAC(:,66,55)=+TPK%KC21(:)*PCONC(:,57)
!
-!RPR8/PAN3=0.0
+!WC_AHMS/WC_SULF=0.0
!
-!RPR8/PAN4=0.0
+!WC_AHMS/WC_HCHO=+KC21*<WC_SO2>
+ PJAC(:,66,57)=+TPK%KC21(:)*PCONC(:,55)
!
-!RPR8/PAN6=0.0
+!WC_AHMS/WC_ORA1=0.0
!
-!RPR8/PAN7=0.0
+!WC_AHMS/WC_ORA2=0.0
!
-!RPR8/PAN8=0.0
+!WC_AHMS/WC_MO2=0.0
!
-!RPR8/PN10=0.0
+!WC_AHMS/WC_OP1=0.0
!
-!RPR8/RO2T=+K217*<RO240>
- PJAC(:,71,85)=+TPK%K217(:)*TPK%RO240(:)
+!WC_AHMS/WC_ASO3=0.0
!
-!RPR8/RO21=0.0
+!WC_AHMS/WC_ASO4=0.0
!
-!RPR8/RO25=0.0
+!WC_AHMS/WC_ASO5=0.0
!
-!RP10/NO=+K234*<RO242>+K241*<RO243>+K248*<RO244>+K255*<RO245>+K262*<RO246>
- PJAC(:,72,1)=+TPK%K234(:)*TPK%RO242(:)+TPK%K241(:)*TPK%RO243(:)+TPK%K248(:)*TP&
-&K%RO244(:)+TPK%K255(:)*TPK%RO245(:)+TPK%K262(:)*TPK%RO246(:)
+!WC_AHMS/WC_AHSO5=0.0
!
-!RP10/NO2=0.0
+!WC_AHMS/WC_AHMS=-KC22-KC23*<WC_OH>
+ PJAC(:,66,66)=-TPK%KC22(:)-TPK%KC23(:)*PCONC(:,52)
!
-!RP10/O3=0.0
+!WC_AHMS/WR_O3=0.0
!
-!RP10/HONO=0.0
+!WC_AHMS/WR_H2O2=0.0
!
-!RP10/HNO3=0.0
+!WC_AHMS/WR_NO=0.0
!
-!RP10/HNO4=0.0
+!WC_AHMS/WR_NO2=0.0
!
-!RP10/N2O5=0.0
+!WC_AHMS/WR_NO3=0.0
!
-!RP10/NO3=0.0
+!WC_AHMS/WR_N2O5=0.0
!
-!RP10/NH3=0.0
+!WC_AHMS/WR_HONO=0.0
!
-!RP10/HO2=+K236*<RO242>+K243*<RO243>+K250*<RO244>+K257*<RO245>+K264*<RO246>
- PJAC(:,72,10)=+TPK%K236(:)*TPK%RO242(:)+TPK%K243(:)*TPK%RO243(:)+TPK%K250(:)*T&
-&PK%RO244(:)+TPK%K257(:)*TPK%RO245(:)+TPK%K264(:)*TPK%RO246(:)
+!WC_AHMS/WR_HNO3=0.0
!
-!RP10/CO=0.0
+!WC_AHMS/WR_HNO4=0.0
!
-!RP10/H2O2=0.0
+!WC_AHMS/WR_NH3=0.0
!
-!RP10/SO2=0.0
+!WC_AHMS/WR_OH=0.0
!
-!RP10/H2SO4=0.0
+!WC_AHMS/WR_HO2=0.0
!
-!RP10/OH=-K325*<RP10>
- PJAC(:,72,15)=-TPK%K325(:)*PCONC(:,72)
+!WC_AHMS/WR_CO2=0.0
!
-!RP10/ETHE=0.0
+!WC_AHMS/WR_SO2=0.0
!
-!RP10/OLEL=0.0
+!WC_AHMS/WR_SULF=0.0
!
-!RP10/OLEH=0.0
+!WC_AHMS/WR_HCHO=0.0
!
-!RP10/ALKL=0.0
+!WC_AHMS/WR_ORA1=0.0
!
-!RP10/ALKM=0.0
+!WC_AHMS/WR_ORA2=0.0
!
-!RP10/ALKH=0.0
+!WC_AHMS/WR_MO2=0.0
!
-!RP10/AROH=0.0
+!WC_AHMS/WR_OP1=0.0
!
-!RP10/AROL=0.0
+!WC_AHMS/WR_ASO3=0.0
!
-!RP10/AROO=0.0
+!WC_AHMS/WR_ASO4=0.0
!
-!RP10/ARAL=0.0
+!WC_AHMS/WR_ASO5=0.0
!
-!RP10/ARAC=0.0
+!WC_AHMS/WR_AHSO5=0.0
!
-!RP10/PAH=0.0
+!WC_AHMS/WR_AHMS=0.0
!
-!RP10/HCHO=0.0
+!WR_O3/O3=+KTR1
+ PJAC(:,67,1)=+TPK%KTR1(:)
!
-!RP10/ALD2=0.0
+!WR_O3/H2O2=0.0
!
-!RP10/KETL=0.0
+!WR_O3/NO=0.0
!
-!RP10/KETH=0.0
+!WR_O3/NO2=0.0
!
-!RP10/MEOH=0.0
+!WR_O3/NO3=0.0
!
-!RP10/ETOH=0.0
+!WR_O3/N2O5=0.0
!
-!RP10/ALCH=0.0
+!WR_O3/HONO=0.0
!
-!RP10/ISOP=0.0
+!WR_O3/HNO3=0.0
!
-!RP10/BIOL=0.0
+!WR_O3/HNO4=0.0
!
-!RP10/BIOH=0.0
+!WR_O3/NH3=0.0
!
-!RP10/MTBE=0.0
+!WR_O3/SO2=0.0
!
-!RP10/MVK=0.0
+!WR_O3/SULF=0.0
!
-!RP10/MCR=0.0
+!WR_O3/CO=0.0
!
-!RP10/MGLY=0.0
+!WR_O3/OH=0.0
!
-!RP10/GLY=0.0
+!WR_O3/HO2=0.0
!
-!RP10/ORA1=0.0
+!WR_O3/CH4=0.0
!
-!RP10/ORA2=0.0
+!WR_O3/ETH=0.0
!
-!RP10/ACID=0.0
+!WR_O3/ALKA=0.0
!
-!RP10/UR28=0.0
+!WR_O3/ALKE=0.0
!
-!RP10/UR21=0.0
+!WR_O3/BIO=0.0
!
-!RP10/URG2=0.0
+!WR_O3/ARO=0.0
!
-!RP10/UR26=0.0
+!WR_O3/HCHO=0.0
!
-!RP10/RPG2=0.0
+!WR_O3/ALD=0.0
!
-!RP10/RP18=0.0
+!WR_O3/KET=0.0
!
-!RP10/RPG3=0.0
+!WR_O3/CARBO=0.0
!
-!RP10/URG4=0.0
+!WR_O3/ONIT=0.0
!
-!RP10/UR8=0.0
+!WR_O3/PAN=0.0
!
-!RP10/UR17=0.0
+!WR_O3/OP1=0.0
!
-!RP10/UR7=0.0
+!WR_O3/OP2=0.0
!
-!RP10/RPR3=0.0
+!WR_O3/ORA1=0.0
!
-!RP10/URG6=0.0
+!WR_O3/ORA2=0.0
!
-!RP10/UR22=0.0
+!WR_O3/MO2=0.0
!
-!RP10/URG7=0.0
+!WR_O3/ALKAP=0.0
!
-!RP10/RPR4=0.0
+!WR_O3/ALKEP=0.0
!
-!RP10/RPR7=0.0
+!WR_O3/BIOP=0.0
!
-!RP10/RPG7=0.0
+!WR_O3/PHO=0.0
!
-!RP10/URG8=0.0
+!WR_O3/ADD=0.0
!
-!RP10/UR19=0.0
+!WR_O3/AROP=0.0
!
-!RP10/URG9=0.0
+!WR_O3/CARBOP=0.0
!
-!RP10/AP7=0.0
+!WR_O3/OLN=0.0
!
-!RP10/URG10=0.0
+!WR_O3/XO2=0.0
!
-!RP10/RPR1=0.0
+!WR_O3/WC_O3=0.0
!
-!RP10/RPR5=0.0
+!WR_O3/WC_H2O2=0.0
!
-!RP10/RPR8=0.0
+!WR_O3/WC_NO=0.0
!
-!RP10/RP10=-K325*<OH>-K328
- PJAC(:,72,72)=-TPK%K325(:)*PCONC(:,15)-TPK%K328(:)
+!WR_O3/WC_NO2=0.0
!
-!RP10/RP11=0.0
+!WR_O3/WC_NO3=0.0
!
-!RP10/RP16=0.0
+!WR_O3/WC_N2O5=0.0
!
-!RP10/RPRL=0.0
+!WR_O3/WC_HONO=0.0
!
-!RP10/APAN=0.0
+!WR_O3/WC_HNO3=0.0
!
-!RP10/PAN1=0.0
+!WR_O3/WC_HNO4=0.0
!
-!RP10/PAN2=0.0
+!WR_O3/WC_NH3=0.0
!
-!RP10/PAN3=0.0
+!WR_O3/WC_OH=0.0
!
-!RP10/PAN4=0.0
+!WR_O3/WC_HO2=0.0
!
-!RP10/PAN6=0.0
+!WR_O3/WC_CO2=0.0
!
-!RP10/PAN7=0.0
+!WR_O3/WC_SO2=0.0
!
-!RP10/PAN8=0.0
+!WR_O3/WC_SULF=0.0
!
-!RP10/PN10=0.0
+!WR_O3/WC_HCHO=0.0
!
-!RP10/RO2T=+K235*<RO242>+K242*<RO243>+K249*<RO244>+K256*<RO245>+K263*<RO246>
- PJAC(:,72,85)=+TPK%K235(:)*TPK%RO242(:)+TPK%K242(:)*TPK%RO243(:)+TPK%K249(:)*T&
-&PK%RO244(:)+TPK%K256(:)*TPK%RO245(:)+TPK%K263(:)*TPK%RO246(:)
+!WR_O3/WC_ORA1=0.0
!
-!RP10/RO21=0.0
+!WR_O3/WC_ORA2=0.0
!
-!RP10/RO25=0.0
+!WR_O3/WC_MO2=0.0
!
-!RP11/NO=+0.3*K238*<RO234>+0.5*K245*<RO235>
- PJAC(:,73,1)=+0.3*TPK%K238(:)*TPK%RO234(:)+0.5*TPK%K245(:)*TPK%RO235(:)
+!WR_O3/WC_OP1=0.0
!
-!RP11/NO2=0.0
+!WR_O3/WC_ASO3=0.0
!
-!RP11/O3=0.0
+!WR_O3/WC_ASO4=0.0
!
-!RP11/HONO=0.0
+!WR_O3/WC_ASO5=0.0
!
-!RP11/HNO3=0.0
+!WR_O3/WC_AHSO5=0.0
!
-!RP11/HNO4=0.0
+!WR_O3/WC_AHMS=0.0
!
-!RP11/N2O5=0.0
+!WR_O3/WR_O3=-KTR21-KR6*<WR_HO2>-KR29*<WR_SO2>
+ PJAC(:,67,67)=-TPK%KTR21(:)-TPK%KR6(:)*PCONC(:,78)-TPK%KR29(:)*PCONC(:,80)
!
-!RP11/NO3=0.0
+!WR_O3/WR_H2O2=0.0
!
-!RP11/NH3=0.0
+!WR_O3/WR_NO=0.0
!
-!RP11/HO2=+0.3*K240*<RO234>+K247*<RO235>
- PJAC(:,73,10)=+0.3*TPK%K240(:)*TPK%RO234(:)+TPK%K247(:)*TPK%RO235(:)
+!WR_O3/WR_NO2=0.0
!
-!RP11/CO=0.0
+!WR_O3/WR_NO3=0.0
!
-!RP11/H2O2=0.0
+!WR_O3/WR_N2O5=0.0
!
-!RP11/SO2=0.0
+!WR_O3/WR_HONO=0.0
!
-!RP11/H2SO4=0.0
+!WR_O3/WR_HNO3=0.0
!
-!RP11/OH=-K326*<RP11>
- PJAC(:,73,15)=-TPK%K326(:)*PCONC(:,73)
+!WR_O3/WR_HNO4=0.0
!
-!RP11/ETHE=0.0
+!WR_O3/WR_NH3=0.0
!
-!RP11/OLEL=0.0
+!WR_O3/WR_OH=0.0
!
-!RP11/OLEH=0.0
+!WR_O3/WR_HO2=-KR6*<WR_O3>
+ PJAC(:,67,78)=-TPK%KR6(:)*PCONC(:,67)
!
-!RP11/ALKL=0.0
+!WR_O3/WR_CO2=0.0
!
-!RP11/ALKM=0.0
+!WR_O3/WR_SO2=-KR29*<WR_O3>
+ PJAC(:,67,80)=-TPK%KR29(:)*PCONC(:,67)
!
-!RP11/ALKH=0.0
+!WR_O3/WR_SULF=0.0
!
-!RP11/AROH=0.0
+!WR_O3/WR_HCHO=0.0
!
-!RP11/AROL=0.0
+!WR_O3/WR_ORA1=0.0
!
-!RP11/AROO=0.0
+!WR_O3/WR_ORA2=0.0
!
-!RP11/ARAL=0.0
+!WR_O3/WR_MO2=0.0
!
-!RP11/ARAC=0.0
+!WR_O3/WR_OP1=0.0
!
-!RP11/PAH=0.0
+!WR_O3/WR_ASO3=0.0
!
-!RP11/HCHO=0.0
+!WR_O3/WR_ASO4=0.0
!
-!RP11/ALD2=0.0
+!WR_O3/WR_ASO5=0.0
!
-!RP11/KETL=0.0
+!WR_O3/WR_AHSO5=0.0
!
-!RP11/KETH=0.0
+!WR_O3/WR_AHMS=0.0
!
-!RP11/MEOH=0.0
+!WR_H2O2/O3=0.0
!
-!RP11/ETOH=0.0
+!WR_H2O2/H2O2=+KTR2
+ PJAC(:,68,2)=+TPK%KTR2(:)
!
-!RP11/ALCH=0.0
+!WR_H2O2/NO=0.0
!
-!RP11/ISOP=0.0
+!WR_H2O2/NO2=0.0
!
-!RP11/BIOL=0.0
+!WR_H2O2/NO3=0.0
!
-!RP11/BIOH=0.0
+!WR_H2O2/N2O5=0.0
!
-!RP11/MTBE=0.0
+!WR_H2O2/HONO=0.0
!
-!RP11/MVK=0.0
+!WR_H2O2/HNO3=0.0
!
-!RP11/MCR=0.0
+!WR_H2O2/HNO4=0.0
!
-!RP11/MGLY=0.0
+!WR_H2O2/NH3=0.0
!
-!RP11/GLY=0.0
+!WR_H2O2/SO2=0.0
!
-!RP11/ORA1=0.0
+!WR_H2O2/SULF=0.0
!
-!RP11/ORA2=0.0
+!WR_H2O2/CO=0.0
!
-!RP11/ACID=0.0
+!WR_H2O2/OH=0.0
!
-!RP11/UR28=0.0
+!WR_H2O2/HO2=0.0
!
-!RP11/UR21=0.0
+!WR_H2O2/CH4=0.0
!
-!RP11/URG2=0.0
+!WR_H2O2/ETH=0.0
!
-!RP11/UR26=0.0
+!WR_H2O2/ALKA=0.0
!
-!RP11/RPG2=0.0
+!WR_H2O2/ALKE=0.0
!
-!RP11/RP18=0.0
+!WR_H2O2/BIO=0.0
!
-!RP11/RPG3=0.0
+!WR_H2O2/ARO=0.0
!
-!RP11/URG4=0.0
+!WR_H2O2/HCHO=0.0
!
-!RP11/UR8=0.0
+!WR_H2O2/ALD=0.0
!
-!RP11/UR17=0.0
+!WR_H2O2/KET=0.0
!
-!RP11/UR7=0.0
+!WR_H2O2/CARBO=0.0
!
-!RP11/RPR3=0.0
+!WR_H2O2/ONIT=0.0
!
-!RP11/URG6=0.0
+!WR_H2O2/PAN=0.0
!
-!RP11/UR22=0.0
+!WR_H2O2/OP1=0.0
!
-!RP11/URG7=0.0
+!WR_H2O2/OP2=0.0
!
-!RP11/RPR4=0.0
+!WR_H2O2/ORA1=0.0
!
-!RP11/RPR7=0.0
+!WR_H2O2/ORA2=0.0
!
-!RP11/RPG7=0.0
+!WR_H2O2/MO2=0.0
!
-!RP11/URG8=0.0
+!WR_H2O2/ALKAP=0.0
!
-!RP11/UR19=0.0
+!WR_H2O2/ALKEP=0.0
!
-!RP11/URG9=0.0
+!WR_H2O2/BIOP=0.0
!
-!RP11/AP7=0.0
+!WR_H2O2/PHO=0.0
!
-!RP11/URG10=0.0
+!WR_H2O2/ADD=0.0
!
-!RP11/RPR1=0.0
+!WR_H2O2/AROP=0.0
!
-!RP11/RPR5=0.0
+!WR_H2O2/CARBOP=0.0
!
-!RP11/RPR8=0.0
+!WR_H2O2/OLN=0.0
!
-!RP11/RP10=0.0
+!WR_H2O2/XO2=0.0
!
-!RP11/RP11=-K326*<OH>
- PJAC(:,73,73)=-TPK%K326(:)*PCONC(:,15)
+!WR_H2O2/WC_O3=0.0
!
-!RP11/RP16=0.0
+!WR_H2O2/WC_H2O2=0.0
!
-!RP11/RPRL=0.0
+!WR_H2O2/WC_NO=0.0
!
-!RP11/APAN=0.0
+!WR_H2O2/WC_NO2=0.0
!
-!RP11/PAN1=0.0
+!WR_H2O2/WC_NO3=0.0
!
-!RP11/PAN2=0.0
+!WR_H2O2/WC_N2O5=0.0
!
-!RP11/PAN3=0.0
+!WR_H2O2/WC_HONO=0.0
!
-!RP11/PAN4=0.0
+!WR_H2O2/WC_HNO3=0.0
!
-!RP11/PAN6=0.0
+!WR_H2O2/WC_HNO4=0.0
!
-!RP11/PAN7=0.0
+!WR_H2O2/WC_NH3=0.0
!
-!RP11/PAN8=0.0
+!WR_H2O2/WC_OH=0.0
!
-!RP11/PN10=0.0
+!WR_H2O2/WC_HO2=0.0
!
-!RP11/RO2T=+K239*<RO234>+K246*<RO235>
- PJAC(:,73,85)=+TPK%K239(:)*TPK%RO234(:)+TPK%K246(:)*TPK%RO235(:)
+!WR_H2O2/WC_CO2=0.0
!
-!RP11/RO21=0.0
+!WR_H2O2/WC_SO2=0.0
!
-!RP11/RO25=0.0
+!WR_H2O2/WC_SULF=0.0
!
-!RP16/NO=0.0
+!WR_H2O2/WC_HCHO=0.0
!
-!RP16/NO2=0.0
+!WR_H2O2/WC_ORA1=0.0
!
-!RP16/O3=0.0
+!WR_H2O2/WC_ORA2=0.0
!
-!RP16/HONO=0.0
+!WR_H2O2/WC_MO2=0.0
!
-!RP16/HNO3=0.0
+!WR_H2O2/WC_OP1=0.0
!
-!RP16/HNO4=0.0
+!WR_H2O2/WC_ASO3=0.0
!
-!RP16/N2O5=0.0
+!WR_H2O2/WC_ASO4=0.0
!
-!RP16/NO3=-K338*<RP16>
- PJAC(:,74,8)=-TPK%K338(:)*PCONC(:,74)
+!WR_H2O2/WC_ASO5=0.0
!
-!RP16/NH3=0.0
+!WR_H2O2/WC_AHSO5=0.0
!
-!RP16/HO2=+K301*<RO254>
- PJAC(:,74,10)=+TPK%K301(:)*TPK%RO254(:)
+!WR_H2O2/WC_AHMS=0.0
!
-!RP16/CO=0.0
+!WR_H2O2/WR_O3=0.0
!
-!RP16/H2O2=0.0
+!WR_H2O2/WR_H2O2=-KTR22-KR1-KR4*<WR_OH>-KR30*<WR_SO2>
+ PJAC(:,68,68)=-TPK%KTR22(:)-TPK%KR1(:)-TPK%KR4(:)*PCONC(:,77)-TPK%KR30(:)*PCON&
+&C(:,80)
!
-!RP16/SO2=0.0
+!WR_H2O2/WR_NO=0.0
!
-!RP16/H2SO4=0.0
+!WR_H2O2/WR_NO2=0.0
!
-!RP16/OH=-K305*<RP16>
- PJAC(:,74,15)=-TPK%K305(:)*PCONC(:,74)
+!WR_H2O2/WR_NO3=0.0
!
-!RP16/ETHE=0.0
+!WR_H2O2/WR_N2O5=0.0
!
-!RP16/OLEL=0.0
+!WR_H2O2/WR_HONO=0.0
!
-!RP16/OLEH=0.0
+!WR_H2O2/WR_HNO3=0.0
!
-!RP16/ALKL=0.0
+!WR_H2O2/WR_HNO4=0.0
!
-!RP16/ALKM=0.0
+!WR_H2O2/WR_NH3=0.0
!
-!RP16/ALKH=0.0
+!WR_H2O2/WR_OH=+KR2*<WR_OH>+KR2*<WR_OH>-KR4*<WR_H2O2>
+ PJAC(:,68,77)=+TPK%KR2(:)*PCONC(:,77)+TPK%KR2(:)*PCONC(:,77)-TPK%KR4(:)*PCONC(&
+&:,68)
!
-!RP16/AROH=0.0
+!WR_H2O2/WR_HO2=+KR5*<WR_HO2>+KR5*<WR_HO2>
+ PJAC(:,68,78)=+TPK%KR5(:)*PCONC(:,78)+TPK%KR5(:)*PCONC(:,78)
!
-!RP16/AROL=0.0
+!WR_H2O2/WR_CO2=0.0
!
-!RP16/AROO=0.0
+!WR_H2O2/WR_SO2=-KR30*<WR_H2O2>
+ PJAC(:,68,80)=-TPK%KR30(:)*PCONC(:,68)
!
-!RP16/ARAL=0.0
+!WR_H2O2/WR_SULF=0.0
!
-!RP16/ARAC=0.0
+!WR_H2O2/WR_HCHO=0.0
!
-!RP16/PAH=0.0
+!WR_H2O2/WR_ORA1=0.0
!
-!RP16/HCHO=0.0
+!WR_H2O2/WR_ORA2=0.0
!
-!RP16/ALD2=0.0
+!WR_H2O2/WR_MO2=0.0
!
-!RP16/KETL=0.0
+!WR_H2O2/WR_OP1=0.0
!
-!RP16/KETH=0.0
+!WR_H2O2/WR_ASO3=0.0
!
-!RP16/MEOH=0.0
+!WR_H2O2/WR_ASO4=0.0
!
-!RP16/ETOH=0.0
+!WR_H2O2/WR_ASO5=0.0
!
-!RP16/ALCH=0.0
+!WR_H2O2/WR_AHSO5=0.0
!
-!RP16/ISOP=0.0
+!WR_H2O2/WR_AHMS=0.0
!
-!RP16/BIOL=0.0
+!WR_NO/O3=0.0
!
-!RP16/BIOH=0.0
+!WR_NO/H2O2=0.0
!
-!RP16/MTBE=0.0
+!WR_NO/NO=+KTR3
+ PJAC(:,69,3)=+TPK%KTR3(:)
!
-!RP16/MVK=0.0
+!WR_NO/NO2=0.0
!
-!RP16/MCR=0.0
+!WR_NO/NO3=0.0
!
-!RP16/MGLY=0.0
+!WR_NO/N2O5=0.0
!
-!RP16/GLY=0.0
+!WR_NO/HONO=0.0
!
-!RP16/ORA1=0.0
+!WR_NO/HNO3=0.0
!
-!RP16/ORA2=0.0
+!WR_NO/HNO4=0.0
!
-!RP16/ACID=0.0
+!WR_NO/NH3=0.0
!
-!RP16/UR28=0.0
+!WR_NO/SO2=0.0
!
-!RP16/UR21=0.0
+!WR_NO/SULF=0.0
!
-!RP16/URG2=0.0
+!WR_NO/CO=0.0
!
-!RP16/UR26=0.0
+!WR_NO/OH=0.0
!
-!RP16/RPG2=0.0
+!WR_NO/HO2=0.0
!
-!RP16/RP18=0.0
+!WR_NO/CH4=0.0
!
-!RP16/RPG3=0.0
+!WR_NO/ETH=0.0
!
-!RP16/URG4=0.0
+!WR_NO/ALKA=0.0
!
-!RP16/UR8=0.0
+!WR_NO/ALKE=0.0
!
-!RP16/UR17=0.0
+!WR_NO/BIO=0.0
!
-!RP16/UR7=0.0
+!WR_NO/ARO=0.0
!
-!RP16/RPR3=0.0
+!WR_NO/HCHO=0.0
!
-!RP16/URG6=0.0
+!WR_NO/ALD=0.0
!
-!RP16/UR22=0.0
+!WR_NO/KET=0.0
!
-!RP16/URG7=0.0
+!WR_NO/CARBO=0.0
!
-!RP16/RPR4=0.0
+!WR_NO/ONIT=0.0
!
-!RP16/RPR7=0.0
+!WR_NO/PAN=0.0
!
-!RP16/RPG7=0.0
+!WR_NO/OP1=0.0
!
-!RP16/URG8=0.0
+!WR_NO/OP2=0.0
!
-!RP16/UR19=0.0
+!WR_NO/ORA1=0.0
!
-!RP16/URG9=0.0
+!WR_NO/ORA2=0.0
!
-!RP16/AP7=0.0
+!WR_NO/MO2=0.0
!
-!RP16/URG10=0.0
+!WR_NO/ALKAP=0.0
!
-!RP16/RPR1=0.0
+!WR_NO/ALKEP=0.0
!
-!RP16/RPR5=0.0
+!WR_NO/BIOP=0.0
!
-!RP16/RPR8=0.0
+!WR_NO/PHO=0.0
!
-!RP16/RP10=0.0
+!WR_NO/ADD=0.0
!
-!RP16/RP11=0.0
+!WR_NO/AROP=0.0
!
-!RP16/RP16=-K305*<OH>-K338*<NO3>-K339
- PJAC(:,74,74)=-TPK%K305(:)*PCONC(:,15)-TPK%K338(:)*PCONC(:,8)-TPK%K339(:)
+!WR_NO/CARBOP=0.0
!
-!RP16/RPRL=0.0
+!WR_NO/OLN=0.0
!
-!RP16/APAN=0.0
+!WR_NO/XO2=0.0
!
-!RP16/PAN1=0.0
+!WR_NO/WC_O3=0.0
!
-!RP16/PAN2=0.0
+!WR_NO/WC_H2O2=0.0
!
-!RP16/PAN3=0.0
+!WR_NO/WC_NO=0.0
!
-!RP16/PAN4=0.0
+!WR_NO/WC_NO2=0.0
!
-!RP16/PAN6=0.0
+!WR_NO/WC_NO3=0.0
!
-!RP16/PAN7=0.0
+!WR_NO/WC_N2O5=0.0
!
-!RP16/PAN8=0.0
+!WR_NO/WC_HONO=0.0
!
-!RP16/PN10=0.0
+!WR_NO/WC_HNO3=0.0
!
-!RP16/RO2T=0.0
+!WR_NO/WC_HNO4=0.0
!
-!RP16/RO21=0.0
+!WR_NO/WC_NH3=0.0
!
-!RP16/RO25=0.0
+!WR_NO/WC_OH=0.0
!
-!RPRL/NO=+TPK%CFA2*K177*<RO217>+TPK%CFA7*K192*<RO222>+1.0023998*K269*<RO247>
- PJAC(:,75,1)=+TPK%CFA2*TPK%K177(:)*TPK%RO217(:)+TPK%CFA7*TPK%K192(:)*TPK%RO222&
-&(:)+1.0023998*TPK%K269(:)*TPK%RO247(:)
+!WR_NO/WC_HO2=0.0
!
-!RPRL/NO2=0.0
+!WR_NO/WC_CO2=0.0
!
-!RPRL/O3=0.0
+!WR_NO/WC_SO2=0.0
!
-!RPRL/HONO=0.0
+!WR_NO/WC_SULF=0.0
!
-!RPRL/HNO3=0.0
+!WR_NO/WC_HCHO=0.0
!
-!RPRL/HNO4=0.0
+!WR_NO/WC_ORA1=0.0
!
-!RPRL/N2O5=0.0
+!WR_NO/WC_ORA2=0.0
!
-!RPRL/NO3=0.0
+!WR_NO/WC_MO2=0.0
!
-!RPRL/NH3=0.0
+!WR_NO/WC_OP1=0.0
!
-!RPRL/HO2=+0.9983609*K179*<RO217>+0.9983609*K194*<RO222>+1.0023998*K271*<RO247>
- PJAC(:,75,10)=+0.9983609*TPK%K179(:)*TPK%RO217(:)+0.9983609*TPK%K194(:)*TPK%RO&
-&222(:)+1.0023998*TPK%K271(:)*TPK%RO247(:)
+!WR_NO/WC_ASO3=0.0
!
-!RPRL/CO=0.0
+!WR_NO/WC_ASO4=0.0
!
-!RPRL/H2O2=0.0
+!WR_NO/WC_ASO5=0.0
!
-!RPRL/SO2=0.0
+!WR_NO/WC_AHSO5=0.0
!
-!RPRL/H2SO4=0.0
+!WR_NO/WC_AHMS=0.0
!
-!RPRL/OH=+0.9983609*K082*<ARAL>-K306*<RPRL>
- PJAC(:,75,15)=+0.9983609*TPK%K082(:)*PCONC(:,25)-TPK%K306(:)*PCONC(:,75)
+!WR_NO/WR_O3=0.0
!
-!RPRL/ETHE=0.0
+!WR_NO/WR_H2O2=0.0
!
-!RPRL/OLEL=0.0
+!WR_NO/WR_NO=-KTR23
+ PJAC(:,69,69)=-TPK%KTR23(:)
!
-!RPRL/OLEH=0.0
+!WR_NO/WR_NO2=0.0
!
-!RPRL/ALKL=0.0
+!WR_NO/WR_NO3=0.0
!
-!RPRL/ALKM=0.0
+!WR_NO/WR_N2O5=0.0
!
-!RPRL/ALKH=0.0
+!WR_NO/WR_HONO=0.0
!
-!RPRL/AROH=0.0
+!WR_NO/WR_HNO3=0.0
!
-!RPRL/AROL=0.0
+!WR_NO/WR_HNO4=0.0
!
-!RPRL/AROO=0.0
+!WR_NO/WR_NH3=0.0
!
-!RPRL/ARAL=+0.9983609*K082*<OH>
- PJAC(:,75,25)=+0.9983609*TPK%K082(:)*PCONC(:,15)
+!WR_NO/WR_OH=0.0
!
-!RPRL/ARAC=0.0
+!WR_NO/WR_HO2=0.0
!
-!RPRL/PAH=0.0
+!WR_NO/WR_CO2=0.0
!
-!RPRL/HCHO=0.0
+!WR_NO/WR_SO2=0.0
!
-!RPRL/ALD2=0.0
+!WR_NO/WR_SULF=0.0
!
-!RPRL/KETL=0.0
+!WR_NO/WR_HCHO=0.0
!
-!RPRL/KETH=0.0
+!WR_NO/WR_ORA1=0.0
!
-!RPRL/MEOH=0.0
+!WR_NO/WR_ORA2=0.0
!
-!RPRL/ETOH=0.0
+!WR_NO/WR_MO2=0.0
!
-!RPRL/ALCH=0.0
+!WR_NO/WR_OP1=0.0
!
-!RPRL/ISOP=0.0
+!WR_NO/WR_ASO3=0.0
!
-!RPRL/BIOL=0.0
+!WR_NO/WR_ASO4=0.0
!
-!RPRL/BIOH=0.0
+!WR_NO/WR_ASO5=0.0
!
-!RPRL/MTBE=0.0
+!WR_NO/WR_AHSO5=0.0
!
-!RPRL/MVK=0.0
+!WR_NO/WR_AHMS=0.0
!
-!RPRL/MCR=0.0
+!WR_NO2/O3=0.0
!
-!RPRL/MGLY=0.0
+!WR_NO2/H2O2=0.0
!
-!RPRL/GLY=0.0
+!WR_NO2/NO=0.0
!
-!RPRL/ORA1=0.0
+!WR_NO2/NO2=+KTR4
+ PJAC(:,70,4)=+TPK%KTR4(:)
!
-!RPRL/ORA2=0.0
+!WR_NO2/NO3=0.0
!
-!RPRL/ACID=0.0
+!WR_NO2/N2O5=0.0
!
-!RPRL/UR28=0.0
+!WR_NO2/HONO=0.0
!
-!RPRL/UR21=0.0
+!WR_NO2/HNO3=0.0
!
-!RPRL/URG2=0.0
+!WR_NO2/HNO4=0.0
!
-!RPRL/UR26=0.0
+!WR_NO2/NH3=0.0
!
-!RPRL/RPG2=0.0
+!WR_NO2/SO2=0.0
!
-!RPRL/RP18=0.0
+!WR_NO2/SULF=0.0
!
-!RPRL/RPG3=0.0
+!WR_NO2/CO=0.0
!
-!RPRL/URG4=0.0
+!WR_NO2/OH=0.0
!
-!RPRL/UR8=0.0
+!WR_NO2/HO2=0.0
!
-!RPRL/UR17=0.0
+!WR_NO2/CH4=0.0
!
-!RPRL/UR7=0.0
+!WR_NO2/ETH=0.0
!
-!RPRL/RPR3=0.0
+!WR_NO2/ALKA=0.0
!
-!RPRL/URG6=0.0
+!WR_NO2/ALKE=0.0
!
-!RPRL/UR22=0.0
+!WR_NO2/BIO=0.0
!
-!RPRL/URG7=0.0
+!WR_NO2/ARO=0.0
!
-!RPRL/RPR4=0.0
+!WR_NO2/HCHO=0.0
!
-!RPRL/RPR7=0.0
+!WR_NO2/ALD=0.0
!
-!RPRL/RPG7=0.0
+!WR_NO2/KET=0.0
!
-!RPRL/URG8=0.0
+!WR_NO2/CARBO=0.0
!
-!RPRL/UR19=0.0
+!WR_NO2/ONIT=0.0
!
-!RPRL/URG9=0.0
+!WR_NO2/PAN=0.0
!
-!RPRL/AP7=0.0
+!WR_NO2/OP1=0.0
!
-!RPRL/URG10=0.0
+!WR_NO2/OP2=0.0
!
-!RPRL/RPR1=0.0
+!WR_NO2/ORA1=0.0
!
-!RPRL/RPR5=0.0
+!WR_NO2/ORA2=0.0
!
-!RPRL/RPR8=0.0
+!WR_NO2/MO2=0.0
!
-!RPRL/RP10=0.0
+!WR_NO2/ALKAP=0.0
!
-!RPRL/RP11=0.0
+!WR_NO2/ALKEP=0.0
!
-!RPRL/RP16=0.0
+!WR_NO2/BIOP=0.0
!
-!RPRL/RPRL=-K306*<OH>
- PJAC(:,75,75)=-TPK%K306(:)*PCONC(:,15)
+!WR_NO2/PHO=0.0
!
-!RPRL/APAN=0.0
+!WR_NO2/ADD=0.0
!
-!RPRL/PAN1=0.0
+!WR_NO2/AROP=0.0
!
-!RPRL/PAN2=0.0
+!WR_NO2/CARBOP=0.0
!
-!RPRL/PAN3=0.0
+!WR_NO2/OLN=0.0
!
-!RPRL/PAN4=0.0
+!WR_NO2/XO2=0.0
!
-!RPRL/PAN6=0.0
+!WR_NO2/WC_O3=0.0
!
-!RPRL/PAN7=0.0
+!WR_NO2/WC_H2O2=0.0
!
-!RPRL/PAN8=0.0
+!WR_NO2/WC_NO=0.0
!
-!RPRL/PN10=0.0
+!WR_NO2/WC_NO2=0.0
!
-!RPRL/RO2T=+0.9983609*K178*<RO217>+0.9983609*K193*<RO222>+1.0023998*K270*<RO247
-!>
- PJAC(:,75,85)=+0.9983609*TPK%K178(:)*TPK%RO217(:)+0.9983609*TPK%K193(:)*TPK%RO&
-&222(:)+1.0023998*TPK%K270(:)*TPK%RO247(:)
+!WR_NO2/WC_NO3=0.0
!
-!RPRL/RO21=0.0
+!WR_NO2/WC_N2O5=0.0
!
-!RPRL/RO25=0.0
+!WR_NO2/WC_HONO=0.0
!
-RETURN
-END SUBROUTINE SUBJ14
+!WR_NO2/WC_HNO3=0.0
!
-SUBROUTINE SUBJ15
+!WR_NO2/WC_HNO4=0.0
!
-!Indices 76 a 80
+!WR_NO2/WC_NH3=0.0
!
+!WR_NO2/WC_OH=0.0
!
-!APAN/NO=0.0
+!WR_NO2/WC_HO2=0.0
!
-!APAN/NO2=+K130*<RO250>+K133*<RO257>
- PJAC(:,76,2)=+TPK%K130(:)*TPK%RO250(:)+TPK%K133(:)*TPK%RO257(:)
+!WR_NO2/WC_CO2=0.0
!
-!APAN/O3=0.0
+!WR_NO2/WC_SO2=0.0
!
-!APAN/HONO=0.0
+!WR_NO2/WC_SULF=0.0
!
-!APAN/HNO3=0.0
+!WR_NO2/WC_HCHO=0.0
!
-!APAN/HNO4=0.0
+!WR_NO2/WC_ORA1=0.0
!
-!APAN/N2O5=0.0
+!WR_NO2/WC_ORA2=0.0
!
-!APAN/NO3=0.0
+!WR_NO2/WC_MO2=0.0
!
-!APAN/NH3=0.0
+!WR_NO2/WC_OP1=0.0
!
-!APAN/HO2=0.0
+!WR_NO2/WC_ASO3=0.0
!
-!APAN/CO=0.0
+!WR_NO2/WC_ASO4=0.0
!
-!APAN/H2O2=0.0
+!WR_NO2/WC_ASO5=0.0
!
-!APAN/SO2=0.0
+!WR_NO2/WC_AHSO5=0.0
!
-!APAN/H2SO4=0.0
+!WR_NO2/WC_AHMS=0.0
!
-!APAN/OH=0.0
+!WR_NO2/WR_O3=0.0
!
-!APAN/ETHE=0.0
+!WR_NO2/WR_H2O2=0.0
!
-!APAN/OLEL=0.0
+!WR_NO2/WR_NO=0.0
!
-!APAN/OLEH=0.0
+!WR_NO2/WR_NO2=-KTR24-KR9*<WR_HO2>
+ PJAC(:,70,70)=-TPK%KTR24(:)-TPK%KR9(:)*PCONC(:,78)
!
-!APAN/ALKL=0.0
+!WR_NO2/WR_NO3=0.0
!
-!APAN/ALKM=0.0
+!WR_NO2/WR_N2O5=0.0
!
-!APAN/ALKH=0.0
+!WR_NO2/WR_HONO=+KR8*<WR_OH>
+ PJAC(:,70,73)=+TPK%KR8(:)*PCONC(:,77)
!
-!APAN/AROH=0.0
+!WR_NO2/WR_HNO3=+KR13
+ PJAC(:,70,74)=+TPK%KR13(:)
!
-!APAN/AROL=0.0
+!WR_NO2/WR_HNO4=+KR10
+ PJAC(:,70,75)=+TPK%KR10(:)
!
-!APAN/AROO=0.0
+!WR_NO2/WR_NH3=0.0
!
-!APAN/ARAL=0.0
+!WR_NO2/WR_OH=+KR8*<WR_HONO>
+ PJAC(:,70,77)=+TPK%KR8(:)*PCONC(:,73)
!
-!APAN/ARAC=0.0
+!WR_NO2/WR_HO2=-KR9*<WR_NO2>
+ PJAC(:,70,78)=-TPK%KR9(:)*PCONC(:,70)
!
-!APAN/PAH=0.0
+!WR_NO2/WR_CO2=0.0
!
-!APAN/HCHO=0.0
+!WR_NO2/WR_SO2=0.0
!
-!APAN/ALD2=0.0
+!WR_NO2/WR_SULF=0.0
!
-!APAN/KETL=0.0
+!WR_NO2/WR_HCHO=0.0
!
-!APAN/KETH=0.0
+!WR_NO2/WR_ORA1=0.0
!
-!APAN/MEOH=0.0
+!WR_NO2/WR_ORA2=0.0
!
-!APAN/ETOH=0.0
+!WR_NO2/WR_MO2=0.0
!
-!APAN/ALCH=0.0
+!WR_NO2/WR_OP1=0.0
!
-!APAN/ISOP=0.0
+!WR_NO2/WR_ASO3=0.0
!
-!APAN/BIOL=0.0
+!WR_NO2/WR_ASO4=0.0
!
-!APAN/BIOH=0.0
+!WR_NO2/WR_ASO5=0.0
!
-!APAN/MTBE=0.0
+!WR_NO2/WR_AHSO5=0.0
!
-!APAN/MVK=0.0
+!WR_NO2/WR_AHMS=0.0
!
-!APAN/MCR=0.0
+RETURN
+END SUBROUTINE SUBJ13
!
-!APAN/MGLY=0.0
+SUBROUTINE SUBJ14
!
-!APAN/GLY=0.0
+!Indices 71 a 75
!
-!APAN/ORA1=0.0
!
-!APAN/ORA2=0.0
+!WR_NO3/O3=0.0
!
-!APAN/ACID=0.0
+!WR_NO3/H2O2=0.0
!
-!APAN/UR28=0.0
+!WR_NO3/NO=0.0
!
-!APAN/UR21=0.0
+!WR_NO3/NO2=0.0
!
-!APAN/URG2=0.0
+!WR_NO3/NO3=+KTR5
+ PJAC(:,71,5)=+TPK%KTR5(:)
!
-!APAN/UR26=0.0
+!WR_NO3/N2O5=0.0
!
-!APAN/RPG2=0.0
+!WR_NO3/HONO=0.0
!
-!APAN/RP18=0.0
+!WR_NO3/HNO3=0.0
!
-!APAN/RPG3=0.0
+!WR_NO3/HNO4=0.0
!
-!APAN/URG4=0.0
+!WR_NO3/NH3=0.0
!
-!APAN/UR8=0.0
+!WR_NO3/SO2=0.0
!
-!APAN/UR17=0.0
+!WR_NO3/SULF=0.0
!
-!APAN/UR7=0.0
+!WR_NO3/CO=0.0
!
-!APAN/RPR3=0.0
+!WR_NO3/OH=0.0
!
-!APAN/URG6=0.0
+!WR_NO3/HO2=0.0
!
-!APAN/UR22=0.0
+!WR_NO3/CH4=0.0
!
-!APAN/URG7=0.0
+!WR_NO3/ETH=0.0
!
-!APAN/RPR4=0.0
+!WR_NO3/ALKA=0.0
!
-!APAN/RPR7=0.0
+!WR_NO3/ALKE=0.0
!
-!APAN/RPG7=0.0
+!WR_NO3/BIO=0.0
!
-!APAN/URG8=0.0
+!WR_NO3/ARO=0.0
!
-!APAN/UR19=0.0
+!WR_NO3/HCHO=0.0
!
-!APAN/URG9=0.0
+!WR_NO3/ALD=0.0
!
-!APAN/AP7=0.0
+!WR_NO3/KET=0.0
!
-!APAN/URG10=0.0
+!WR_NO3/CARBO=0.0
!
-!APAN/RPR1=0.0
+!WR_NO3/ONIT=0.0
!
-!APAN/RPR5=0.0
+!WR_NO3/PAN=0.0
!
-!APAN/RPR8=0.0
+!WR_NO3/OP1=0.0
!
-!APAN/RP10=0.0
+!WR_NO3/OP2=0.0
!
-!APAN/RP11=0.0
+!WR_NO3/ORA1=0.0
!
-!APAN/RP16=0.0
+!WR_NO3/ORA2=0.0
!
-!APAN/RPRL=0.0
+!WR_NO3/MO2=0.0
!
-!APAN/APAN=-K139
- PJAC(:,76,76)=-TPK%K139(:)
+!WR_NO3/ALKAP=0.0
!
-!APAN/PAN1=0.0
+!WR_NO3/ALKEP=0.0
!
-!APAN/PAN2=0.0
+!WR_NO3/BIOP=0.0
!
-!APAN/PAN3=0.0
+!WR_NO3/PHO=0.0
!
-!APAN/PAN4=0.0
+!WR_NO3/ADD=0.0
!
-!APAN/PAN6=0.0
+!WR_NO3/AROP=0.0
!
-!APAN/PAN7=0.0
+!WR_NO3/CARBOP=0.0
!
-!APAN/PAN8=0.0
+!WR_NO3/OLN=0.0
!
-!APAN/PN10=0.0
+!WR_NO3/XO2=0.0
!
-!APAN/RO2T=0.0
+!WR_NO3/WC_O3=0.0
!
-!APAN/RO21=0.0
+!WR_NO3/WC_H2O2=0.0
!
-!APAN/RO25=0.0
+!WR_NO3/WC_NO=0.0
!
-!PAN1/NO=0.0
+!WR_NO3/WC_NO2=0.0
!
-!PAN1/NO2=+K126*<RO26>
- PJAC(:,77,2)=+TPK%K126(:)*TPK%RO26(:)
+!WR_NO3/WC_NO3=0.0
!
-!PAN1/O3=0.0
+!WR_NO3/WC_N2O5=0.0
!
-!PAN1/HONO=0.0
+!WR_NO3/WC_HONO=0.0
!
-!PAN1/HNO3=0.0
+!WR_NO3/WC_HNO3=0.0
!
-!PAN1/HNO4=0.0
+!WR_NO3/WC_HNO4=0.0
!
-!PAN1/N2O5=0.0
+!WR_NO3/WC_NH3=0.0
!
-!PAN1/NO3=0.0
+!WR_NO3/WC_OH=0.0
!
-!PAN1/NH3=0.0
+!WR_NO3/WC_HO2=0.0
!
-!PAN1/HO2=0.0
+!WR_NO3/WC_CO2=0.0
!
-!PAN1/CO=0.0
+!WR_NO3/WC_SO2=0.0
!
-!PAN1/H2O2=0.0
+!WR_NO3/WC_SULF=0.0
!
-!PAN1/SO2=0.0
+!WR_NO3/WC_HCHO=0.0
!
-!PAN1/H2SO4=0.0
+!WR_NO3/WC_ORA1=0.0
!
-!PAN1/OH=0.0
+!WR_NO3/WC_ORA2=0.0
!
-!PAN1/ETHE=0.0
+!WR_NO3/WC_MO2=0.0
!
-!PAN1/OLEL=0.0
+!WR_NO3/WC_OP1=0.0
!
-!PAN1/OLEH=0.0
+!WR_NO3/WC_ASO3=0.0
!
-!PAN1/ALKL=0.0
+!WR_NO3/WC_ASO4=0.0
!
-!PAN1/ALKM=0.0
+!WR_NO3/WC_ASO5=0.0
!
-!PAN1/ALKH=0.0
+!WR_NO3/WC_AHSO5=0.0
!
-!PAN1/AROH=0.0
+!WR_NO3/WC_AHMS=0.0
!
-!PAN1/AROL=0.0
+!WR_NO3/WR_O3=0.0
!
-!PAN1/AROO=0.0
+!WR_NO3/WR_H2O2=0.0
!
-!PAN1/ARAL=0.0
+!WR_NO3/WR_NO=0.0
!
-!PAN1/ARAC=0.0
+!WR_NO3/WR_NO2=0.0
!
-!PAN1/PAH=0.0
+!WR_NO3/WR_NO3=-KTR25-KR15*<WR_SULF>-KR16*<WR_SO2>
+ PJAC(:,71,71)=-TPK%KTR25(:)-TPK%KR15(:)*PCONC(:,81)-TPK%KR16(:)*PCONC(:,80)
!
-!PAN1/HCHO=0.0
+!WR_NO3/WR_N2O5=0.0
!
-!PAN1/ALD2=0.0
+!WR_NO3/WR_HONO=0.0
!
-!PAN1/KETL=0.0
+!WR_NO3/WR_HNO3=0.0
!
-!PAN1/KETH=0.0
+!WR_NO3/WR_HNO4=0.0
!
-!PAN1/MEOH=0.0
+!WR_NO3/WR_NH3=0.0
!
-!PAN1/ETOH=0.0
+!WR_NO3/WR_OH=0.0
!
-!PAN1/ALCH=0.0
+!WR_NO3/WR_HO2=0.0
!
-!PAN1/ISOP=0.0
+!WR_NO3/WR_CO2=0.0
!
-!PAN1/BIOL=0.0
+!WR_NO3/WR_SO2=-KR16*<WR_NO3>
+ PJAC(:,71,80)=-TPK%KR16(:)*PCONC(:,71)
!
-!PAN1/BIOH=0.0
+!WR_NO3/WR_SULF=-KR15*<WR_NO3>
+ PJAC(:,71,81)=-TPK%KR15(:)*PCONC(:,71)
!
-!PAN1/MTBE=0.0
+!WR_NO3/WR_HCHO=0.0
!
-!PAN1/MVK=0.0
+!WR_NO3/WR_ORA1=0.0
!
-!PAN1/MCR=0.0
+!WR_NO3/WR_ORA2=0.0
!
-!PAN1/MGLY=0.0
+!WR_NO3/WR_MO2=0.0
!
-!PAN1/GLY=0.0
+!WR_NO3/WR_OP1=0.0
!
-!PAN1/ORA1=0.0
+!WR_NO3/WR_ASO3=0.0
!
-!PAN1/ORA2=0.0
+!WR_NO3/WR_ASO4=0.0
!
-!PAN1/ACID=0.0
+!WR_NO3/WR_ASO5=0.0
!
-!PAN1/UR28=0.0
+!WR_NO3/WR_AHSO5=0.0
!
-!PAN1/UR21=0.0
+!WR_NO3/WR_AHMS=0.0
!
-!PAN1/URG2=0.0
+!WR_N2O5/O3=0.0
!
-!PAN1/UR26=0.0
+!WR_N2O5/H2O2=0.0
!
-!PAN1/RPG2=0.0
+!WR_N2O5/NO=0.0
!
-!PAN1/RP18=0.0
+!WR_N2O5/NO2=0.0
!
-!PAN1/RPG3=0.0
+!WR_N2O5/NO3=0.0
!
-!PAN1/URG4=0.0
+!WR_N2O5/N2O5=+KTR6
+ PJAC(:,72,6)=+TPK%KTR6(:)
!
-!PAN1/UR8=0.0
+!WR_N2O5/HONO=0.0
!
-!PAN1/UR17=0.0
+!WR_N2O5/HNO3=0.0
!
-!PAN1/UR7=0.0
+!WR_N2O5/HNO4=0.0
!
-!PAN1/RPR3=0.0
+!WR_N2O5/NH3=0.0
!
-!PAN1/URG6=0.0
+!WR_N2O5/SO2=0.0
!
-!PAN1/UR22=0.0
+!WR_N2O5/SULF=0.0
!
-!PAN1/URG7=0.0
+!WR_N2O5/CO=0.0
!
-!PAN1/RPR4=0.0
+!WR_N2O5/OH=0.0
!
-!PAN1/RPR7=0.0
+!WR_N2O5/HO2=0.0
!
-!PAN1/RPG7=0.0
+!WR_N2O5/CH4=0.0
!
-!PAN1/URG8=0.0
+!WR_N2O5/ETH=0.0
!
-!PAN1/UR19=0.0
+!WR_N2O5/ALKA=0.0
!
-!PAN1/URG9=0.0
+!WR_N2O5/ALKE=0.0
!
-!PAN1/AP7=0.0
+!WR_N2O5/BIO=0.0
!
-!PAN1/URG10=0.0
+!WR_N2O5/ARO=0.0
!
-!PAN1/RPR1=0.0
+!WR_N2O5/HCHO=0.0
!
-!PAN1/RPR5=0.0
+!WR_N2O5/ALD=0.0
!
-!PAN1/RPR8=0.0
+!WR_N2O5/KET=0.0
!
-!PAN1/RP10=0.0
+!WR_N2O5/CARBO=0.0
!
-!PAN1/RP11=0.0
+!WR_N2O5/ONIT=0.0
!
-!PAN1/RP16=0.0
+!WR_N2O5/PAN=0.0
!
-!PAN1/RPRL=0.0
+!WR_N2O5/OP1=0.0
!
-!PAN1/APAN=0.0
+!WR_N2O5/OP2=0.0
!
-!PAN1/PAN1=-K135
- PJAC(:,77,77)=-TPK%K135(:)
+!WR_N2O5/ORA1=0.0
!
-!PAN1/PAN2=0.0
+!WR_N2O5/ORA2=0.0
!
-!PAN1/PAN3=0.0
+!WR_N2O5/MO2=0.0
!
-!PAN1/PAN4=0.0
+!WR_N2O5/ALKAP=0.0
!
-!PAN1/PAN6=0.0
+!WR_N2O5/ALKEP=0.0
!
-!PAN1/PAN7=0.0
+!WR_N2O5/BIOP=0.0
!
-!PAN1/PAN8=0.0
+!WR_N2O5/PHO=0.0
!
-!PAN1/PN10=0.0
+!WR_N2O5/ADD=0.0
!
-!PAN1/RO2T=0.0
+!WR_N2O5/AROP=0.0
!
-!PAN1/RO21=0.0
+!WR_N2O5/CARBOP=0.0
!
-!PAN1/RO25=0.0
+!WR_N2O5/OLN=0.0
!
-!PAN2/NO=0.0
+!WR_N2O5/XO2=0.0
!
-!PAN2/NO2=+K127*<RO28>
- PJAC(:,78,2)=+TPK%K127(:)*TPK%RO28(:)
+!WR_N2O5/WC_O3=0.0
!
-!PAN2/O3=0.0
+!WR_N2O5/WC_H2O2=0.0
!
-!PAN2/HONO=0.0
+!WR_N2O5/WC_NO=0.0
!
-!PAN2/HNO3=0.0
+!WR_N2O5/WC_NO2=0.0
!
-!PAN2/HNO4=0.0
+!WR_N2O5/WC_NO3=0.0
!
-!PAN2/N2O5=0.0
+!WR_N2O5/WC_N2O5=0.0
!
-!PAN2/NO3=0.0
+!WR_N2O5/WC_HONO=0.0
!
-!PAN2/NH3=0.0
+!WR_N2O5/WC_HNO3=0.0
!
-!PAN2/HO2=0.0
+!WR_N2O5/WC_HNO4=0.0
!
-!PAN2/CO=0.0
+!WR_N2O5/WC_NH3=0.0
!
-!PAN2/H2O2=0.0
+!WR_N2O5/WC_OH=0.0
!
-!PAN2/SO2=0.0
+!WR_N2O5/WC_HO2=0.0
!
-!PAN2/H2SO4=0.0
+!WR_N2O5/WC_CO2=0.0
!
-!PAN2/OH=0.0
+!WR_N2O5/WC_SO2=0.0
!
-!PAN2/ETHE=0.0
+!WR_N2O5/WC_SULF=0.0
!
-!PAN2/OLEL=0.0
+!WR_N2O5/WC_HCHO=0.0
!
-!PAN2/OLEH=0.0
+!WR_N2O5/WC_ORA1=0.0
!
-!PAN2/ALKL=0.0
+!WR_N2O5/WC_ORA2=0.0
!
-!PAN2/ALKM=0.0
+!WR_N2O5/WC_MO2=0.0
!
-!PAN2/ALKH=0.0
+!WR_N2O5/WC_OP1=0.0
!
-!PAN2/AROH=0.0
+!WR_N2O5/WC_ASO3=0.0
!
-!PAN2/AROL=0.0
+!WR_N2O5/WC_ASO4=0.0
!
-!PAN2/AROO=0.0
+!WR_N2O5/WC_ASO5=0.0
!
-!PAN2/ARAL=0.0
+!WR_N2O5/WC_AHSO5=0.0
!
-!PAN2/ARAC=0.0
+!WR_N2O5/WC_AHMS=0.0
!
-!PAN2/PAH=0.0
+!WR_N2O5/WR_O3=0.0
!
-!PAN2/HCHO=0.0
+!WR_N2O5/WR_H2O2=0.0
!
-!PAN2/ALD2=0.0
+!WR_N2O5/WR_NO=0.0
!
-!PAN2/KETL=0.0
+!WR_N2O5/WR_NO2=0.0
!
-!PAN2/KETH=0.0
+!WR_N2O5/WR_NO3=0.0
!
-!PAN2/MEOH=0.0
+!WR_N2O5/WR_N2O5=-KTR26-KR14
+ PJAC(:,72,72)=-TPK%KTR26(:)-TPK%KR14(:)
!
-!PAN2/ETOH=0.0
+!WR_N2O5/WR_HONO=0.0
!
-!PAN2/ALCH=0.0
+!WR_N2O5/WR_HNO3=0.0
!
-!PAN2/ISOP=0.0
+!WR_N2O5/WR_HNO4=0.0
!
-!PAN2/BIOL=0.0
+!WR_N2O5/WR_NH3=0.0
!
-!PAN2/BIOH=0.0
+!WR_N2O5/WR_OH=0.0
!
-!PAN2/MTBE=0.0
+!WR_N2O5/WR_HO2=0.0
!
-!PAN2/MVK=0.0
+!WR_N2O5/WR_CO2=0.0
!
-!PAN2/MCR=0.0
+!WR_N2O5/WR_SO2=0.0
!
-!PAN2/MGLY=0.0
+!WR_N2O5/WR_SULF=0.0
!
-!PAN2/GLY=0.0
+!WR_N2O5/WR_HCHO=0.0
!
-!PAN2/ORA1=0.0
+!WR_N2O5/WR_ORA1=0.0
!
-!PAN2/ORA2=0.0
+!WR_N2O5/WR_ORA2=0.0
!
-!PAN2/ACID=0.0
+!WR_N2O5/WR_MO2=0.0
!
-!PAN2/UR28=0.0
+!WR_N2O5/WR_OP1=0.0
!
-!PAN2/UR21=0.0
+!WR_N2O5/WR_ASO3=0.0
!
-!PAN2/URG2=0.0
+!WR_N2O5/WR_ASO4=0.0
!
-!PAN2/UR26=0.0
+!WR_N2O5/WR_ASO5=0.0
!
-!PAN2/RPG2=0.0
+!WR_N2O5/WR_AHSO5=0.0
!
-!PAN2/RP18=0.0
+!WR_N2O5/WR_AHMS=0.0
!
-!PAN2/RPG3=0.0
+!WR_HONO/O3=0.0
!
-!PAN2/URG4=0.0
+!WR_HONO/H2O2=0.0
!
-!PAN2/UR8=0.0
+!WR_HONO/NO=0.0
!
-!PAN2/UR17=0.0
+!WR_HONO/NO2=0.0
!
-!PAN2/UR7=0.0
+!WR_HONO/NO3=0.0
!
-!PAN2/RPR3=0.0
+!WR_HONO/N2O5=0.0
!
-!PAN2/URG6=0.0
+!WR_HONO/HONO=+KTR7
+ PJAC(:,73,7)=+TPK%KTR7(:)
!
-!PAN2/UR22=0.0
+!WR_HONO/HNO3=0.0
!
-!PAN2/URG7=0.0
+!WR_HONO/HNO4=0.0
!
-!PAN2/RPR4=0.0
+!WR_HONO/NH3=0.0
!
-!PAN2/RPR7=0.0
+!WR_HONO/SO2=0.0
!
-!PAN2/RPG7=0.0
+!WR_HONO/SULF=0.0
!
-!PAN2/URG8=0.0
+!WR_HONO/CO=0.0
!
-!PAN2/UR19=0.0
+!WR_HONO/OH=0.0
!
-!PAN2/URG9=0.0
+!WR_HONO/HO2=0.0
!
-!PAN2/AP7=0.0
+!WR_HONO/CH4=0.0
!
-!PAN2/URG10=0.0
+!WR_HONO/ETH=0.0
!
-!PAN2/RPR1=0.0
+!WR_HONO/ALKA=0.0
!
-!PAN2/RPR5=0.0
+!WR_HONO/ALKE=0.0
!
-!PAN2/RPR8=0.0
+!WR_HONO/BIO=0.0
!
-!PAN2/RP10=0.0
+!WR_HONO/ARO=0.0
!
-!PAN2/RP11=0.0
+!WR_HONO/HCHO=0.0
!
-!PAN2/RP16=0.0
+!WR_HONO/ALD=0.0
!
-!PAN2/RPRL=0.0
+!WR_HONO/KET=0.0
!
-!PAN2/APAN=0.0
+!WR_HONO/CARBO=0.0
!
-!PAN2/PAN1=0.0
+!WR_HONO/ONIT=0.0
!
-!PAN2/PAN2=-K136
- PJAC(:,78,78)=-TPK%K136(:)
+!WR_HONO/PAN=0.0
!
-!PAN2/PAN3=0.0
+!WR_HONO/OP1=0.0
!
-!PAN2/PAN4=0.0
+!WR_HONO/OP2=0.0
!
-!PAN2/PAN6=0.0
+!WR_HONO/ORA1=0.0
!
-!PAN2/PAN7=0.0
+!WR_HONO/ORA2=0.0
!
-!PAN2/PAN8=0.0
+!WR_HONO/MO2=0.0
!
-!PAN2/PN10=0.0
+!WR_HONO/ALKAP=0.0
!
-!PAN2/RO2T=0.0
+!WR_HONO/ALKEP=0.0
!
-!PAN2/RO21=0.0
+!WR_HONO/BIOP=0.0
!
-!PAN2/RO25=0.0
+!WR_HONO/PHO=0.0
!
-!PAN3/NO=0.0
+!WR_HONO/ADD=0.0
!
-!PAN3/NO2=+K128*<RO239>
- PJAC(:,79,2)=+TPK%K128(:)*TPK%RO239(:)
+!WR_HONO/AROP=0.0
!
-!PAN3/O3=0.0
+!WR_HONO/CARBOP=0.0
!
-!PAN3/HONO=0.0
+!WR_HONO/OLN=0.0
!
-!PAN3/HNO3=0.0
+!WR_HONO/XO2=0.0
!
-!PAN3/HNO4=0.0
+!WR_HONO/WC_O3=0.0
!
-!PAN3/N2O5=0.0
+!WR_HONO/WC_H2O2=0.0
!
-!PAN3/NO3=0.0
+!WR_HONO/WC_NO=0.0
!
-!PAN3/NH3=0.0
+!WR_HONO/WC_NO2=0.0
!
-!PAN3/HO2=0.0
+!WR_HONO/WC_NO3=0.0
!
-!PAN3/CO=0.0
+!WR_HONO/WC_N2O5=0.0
!
-!PAN3/H2O2=0.0
+!WR_HONO/WC_HONO=0.0
!
-!PAN3/SO2=0.0
+!WR_HONO/WC_HNO3=0.0
!
-!PAN3/H2SO4=0.0
+!WR_HONO/WC_HNO4=0.0
!
-!PAN3/OH=0.0
+!WR_HONO/WC_NH3=0.0
!
-!PAN3/ETHE=0.0
+!WR_HONO/WC_OH=0.0
!
-!PAN3/OLEL=0.0
+!WR_HONO/WC_HO2=0.0
!
-!PAN3/OLEH=0.0
+!WR_HONO/WC_CO2=0.0
!
-!PAN3/ALKL=0.0
+!WR_HONO/WC_SO2=0.0
!
-!PAN3/ALKM=0.0
+!WR_HONO/WC_SULF=0.0
!
-!PAN3/ALKH=0.0
+!WR_HONO/WC_HCHO=0.0
!
-!PAN3/AROH=0.0
+!WR_HONO/WC_ORA1=0.0
!
-!PAN3/AROL=0.0
+!WR_HONO/WC_ORA2=0.0
!
-!PAN3/AROO=0.0
+!WR_HONO/WC_MO2=0.0
!
-!PAN3/ARAL=0.0
+!WR_HONO/WC_OP1=0.0
!
-!PAN3/ARAC=0.0
+!WR_HONO/WC_ASO3=0.0
!
-!PAN3/PAH=0.0
+!WR_HONO/WC_ASO4=0.0
!
-!PAN3/HCHO=0.0
+!WR_HONO/WC_ASO5=0.0
!
-!PAN3/ALD2=0.0
+!WR_HONO/WC_AHSO5=0.0
!
-!PAN3/KETL=0.0
+!WR_HONO/WC_AHMS=0.0
!
-!PAN3/KETH=0.0
+!WR_HONO/WR_O3=0.0
!
-!PAN3/MEOH=0.0
+!WR_HONO/WR_H2O2=0.0
!
-!PAN3/ETOH=0.0
+!WR_HONO/WR_NO=0.0
!
-!PAN3/ALCH=0.0
+!WR_HONO/WR_NO2=0.0
!
-!PAN3/ISOP=0.0
+!WR_HONO/WR_NO3=0.0
!
-!PAN3/BIOL=0.0
+!WR_HONO/WR_N2O5=0.0
!
-!PAN3/BIOH=0.0
+!WR_HONO/WR_HONO=-KTR27-KR8*<WR_OH>
+ PJAC(:,73,73)=-TPK%KTR27(:)-TPK%KR8(:)*PCONC(:,77)
!
-!PAN3/MTBE=0.0
+!WR_HONO/WR_HNO3=0.0
!
-!PAN3/MVK=0.0
+!WR_HONO/WR_HNO4=+KR11
+ PJAC(:,73,75)=+TPK%KR11(:)
!
-!PAN3/MCR=0.0
+!WR_HONO/WR_NH3=0.0
!
-!PAN3/MGLY=0.0
+!WR_HONO/WR_OH=-KR8*<WR_HONO>
+ PJAC(:,73,77)=-TPK%KR8(:)*PCONC(:,73)
!
-!PAN3/GLY=0.0
+!WR_HONO/WR_HO2=0.0
!
-!PAN3/ORA1=0.0
+!WR_HONO/WR_CO2=0.0
!
-!PAN3/ORA2=0.0
+!WR_HONO/WR_SO2=0.0
!
-!PAN3/ACID=0.0
+!WR_HONO/WR_SULF=0.0
!
-!PAN3/UR28=0.0
+!WR_HONO/WR_HCHO=0.0
!
-!PAN3/UR21=0.0
+!WR_HONO/WR_ORA1=0.0
!
-!PAN3/URG2=0.0
+!WR_HONO/WR_ORA2=0.0
!
-!PAN3/UR26=0.0
+!WR_HONO/WR_MO2=0.0
!
-!PAN3/RPG2=0.0
+!WR_HONO/WR_OP1=0.0
!
-!PAN3/RP18=0.0
+!WR_HONO/WR_ASO3=0.0
!
-!PAN3/RPG3=0.0
+!WR_HONO/WR_ASO4=0.0
!
-!PAN3/URG4=0.0
+!WR_HONO/WR_ASO5=0.0
!
-!PAN3/UR8=0.0
+!WR_HONO/WR_AHSO5=0.0
!
-!PAN3/UR17=0.0
+!WR_HONO/WR_AHMS=0.0
!
-!PAN3/UR7=0.0
+!WR_HNO3/O3=0.0
!
-!PAN3/RPR3=0.0
+!WR_HNO3/H2O2=0.0
!
-!PAN3/URG6=0.0
+!WR_HNO3/NO=0.0
!
-!PAN3/UR22=0.0
+!WR_HNO3/NO2=0.0
!
-!PAN3/URG7=0.0
+!WR_HNO3/NO3=0.0
!
-!PAN3/RPR4=0.0
+!WR_HNO3/N2O5=0.0
!
-!PAN3/RPR7=0.0
+!WR_HNO3/HONO=0.0
!
-!PAN3/RPG7=0.0
+!WR_HNO3/HNO3=+KTR8
+ PJAC(:,74,8)=+TPK%KTR8(:)
!
-!PAN3/URG8=0.0
+!WR_HNO3/HNO4=0.0
!
-!PAN3/UR19=0.0
+!WR_HNO3/NH3=0.0
!
-!PAN3/URG9=0.0
+!WR_HNO3/SO2=0.0
!
-!PAN3/AP7=0.0
+!WR_HNO3/SULF=0.0
!
-!PAN3/URG10=0.0
+!WR_HNO3/CO=0.0
!
-!PAN3/RPR1=0.0
+!WR_HNO3/OH=0.0
!
-!PAN3/RPR5=0.0
+!WR_HNO3/HO2=0.0
!
-!PAN3/RPR8=0.0
+!WR_HNO3/CH4=0.0
!
-!PAN3/RP10=0.0
+!WR_HNO3/ETH=0.0
!
-!PAN3/RP11=0.0
+!WR_HNO3/ALKA=0.0
!
-!PAN3/RP16=0.0
+!WR_HNO3/ALKE=0.0
!
-!PAN3/RPRL=0.0
+!WR_HNO3/BIO=0.0
!
-!PAN3/APAN=0.0
+!WR_HNO3/ARO=0.0
!
-!PAN3/PAN1=0.0
+!WR_HNO3/HCHO=0.0
!
-!PAN3/PAN2=0.0
+!WR_HNO3/ALD=0.0
!
-!PAN3/PAN3=-K137
- PJAC(:,79,79)=-TPK%K137(:)
+!WR_HNO3/KET=0.0
!
-!PAN3/PAN4=0.0
+!WR_HNO3/CARBO=0.0
!
-!PAN3/PAN6=0.0
+!WR_HNO3/ONIT=0.0
!
-!PAN3/PAN7=0.0
+!WR_HNO3/PAN=0.0
!
-!PAN3/PAN8=0.0
+!WR_HNO3/OP1=0.0
!
-!PAN3/PN10=0.0
+!WR_HNO3/OP2=0.0
!
-!PAN3/RO2T=0.0
+!WR_HNO3/ORA1=0.0
!
-!PAN3/RO21=0.0
+!WR_HNO3/ORA2=0.0
!
-!PAN3/RO25=0.0
+!WR_HNO3/MO2=0.0
!
-!PAN4/NO=0.0
+!WR_HNO3/ALKAP=0.0
!
-!PAN4/NO2=+K129*<RO248>
- PJAC(:,80,2)=+TPK%K129(:)*TPK%RO248(:)
+!WR_HNO3/ALKEP=0.0
!
-!PAN4/O3=0.0
+!WR_HNO3/BIOP=0.0
!
-!PAN4/HONO=0.0
+!WR_HNO3/PHO=0.0
!
-!PAN4/HNO3=0.0
+!WR_HNO3/ADD=0.0
!
-!PAN4/HNO4=0.0
+!WR_HNO3/AROP=0.0
!
-!PAN4/N2O5=0.0
+!WR_HNO3/CARBOP=0.0
!
-!PAN4/NO3=0.0
+!WR_HNO3/OLN=0.0
!
-!PAN4/NH3=0.0
+!WR_HNO3/XO2=0.0
!
-!PAN4/HO2=0.0
+!WR_HNO3/WC_O3=0.0
!
-!PAN4/CO=0.0
+!WR_HNO3/WC_H2O2=0.0
!
-!PAN4/H2O2=0.0
+!WR_HNO3/WC_NO=0.0
!
-!PAN4/SO2=0.0
+!WR_HNO3/WC_NO2=0.0
!
-!PAN4/H2SO4=0.0
+!WR_HNO3/WC_NO3=0.0
!
-!PAN4/OH=0.0
+!WR_HNO3/WC_N2O5=0.0
!
-!PAN4/ETHE=0.0
+!WR_HNO3/WC_HONO=0.0
!
-!PAN4/OLEL=0.0
+!WR_HNO3/WC_HNO3=0.0
!
-!PAN4/OLEH=0.0
+!WR_HNO3/WC_HNO4=0.0
!
-!PAN4/ALKL=0.0
+!WR_HNO3/WC_NH3=0.0
!
-!PAN4/ALKM=0.0
+!WR_HNO3/WC_OH=0.0
!
-!PAN4/ALKH=0.0
+!WR_HNO3/WC_HO2=0.0
!
-!PAN4/AROH=0.0
+!WR_HNO3/WC_CO2=0.0
!
-!PAN4/AROL=0.0
+!WR_HNO3/WC_SO2=0.0
!
-!PAN4/AROO=0.0
+!WR_HNO3/WC_SULF=0.0
!
-!PAN4/ARAL=0.0
+!WR_HNO3/WC_HCHO=0.0
!
-!PAN4/ARAC=0.0
+!WR_HNO3/WC_ORA1=0.0
!
-!PAN4/PAH=0.0
+!WR_HNO3/WC_ORA2=0.0
!
-!PAN4/HCHO=0.0
+!WR_HNO3/WC_MO2=0.0
!
-!PAN4/ALD2=0.0
+!WR_HNO3/WC_OP1=0.0
!
-!PAN4/KETL=0.0
+!WR_HNO3/WC_ASO3=0.0
!
-!PAN4/KETH=0.0
+!WR_HNO3/WC_ASO4=0.0
!
-!PAN4/MEOH=0.0
+!WR_HNO3/WC_ASO5=0.0
!
-!PAN4/ETOH=0.0
+!WR_HNO3/WC_AHSO5=0.0
!
-!PAN4/ALCH=0.0
+!WR_HNO3/WC_AHMS=0.0
!
-!PAN4/ISOP=0.0
+!WR_HNO3/WR_O3=0.0
!
-!PAN4/BIOL=0.0
+!WR_HNO3/WR_H2O2=0.0
!
-!PAN4/BIOH=0.0
+!WR_HNO3/WR_NO=0.0
!
-!PAN4/MTBE=0.0
+!WR_HNO3/WR_NO2=0.0
!
-!PAN4/MVK=0.0
+!WR_HNO3/WR_NO3=+KR15*<WR_SULF>+KR16*<WR_SO2>
+ PJAC(:,74,71)=+TPK%KR15(:)*PCONC(:,81)+TPK%KR16(:)*PCONC(:,80)
!
-!PAN4/MCR=0.0
+!WR_HNO3/WR_N2O5=+KR14+KR14
+ PJAC(:,74,72)=+TPK%KR14(:)+TPK%KR14(:)
!
-!PAN4/MGLY=0.0
+!WR_HNO3/WR_HONO=0.0
!
-!PAN4/GLY=0.0
+!WR_HNO3/WR_HNO3=-KTR28-KR13
+ PJAC(:,74,74)=-TPK%KTR28(:)-TPK%KR13(:)
!
-!PAN4/ORA1=0.0
+!WR_HNO3/WR_HNO4=+KR12*<WR_SO2>
+ PJAC(:,74,75)=+TPK%KR12(:)*PCONC(:,80)
!
-!PAN4/ORA2=0.0
+!WR_HNO3/WR_NH3=0.0
!
-!PAN4/ACID=0.0
+!WR_HNO3/WR_OH=0.0
!
-!PAN4/UR28=0.0
+!WR_HNO3/WR_HO2=0.0
!
-!PAN4/UR21=0.0
+!WR_HNO3/WR_CO2=0.0
!
-!PAN4/URG2=0.0
+!WR_HNO3/WR_SO2=+KR12*<WR_HNO4>+KR16*<WR_NO3>
+ PJAC(:,74,80)=+TPK%KR12(:)*PCONC(:,75)+TPK%KR16(:)*PCONC(:,71)
!
-!PAN4/UR26=0.0
+!WR_HNO3/WR_SULF=+KR15*<WR_NO3>
+ PJAC(:,74,81)=+TPK%KR15(:)*PCONC(:,71)
!
-!PAN4/RPG2=0.0
+!WR_HNO3/WR_HCHO=0.0
!
-!PAN4/RP18=0.0
+!WR_HNO3/WR_ORA1=0.0
!
-!PAN4/RPG3=0.0
+!WR_HNO3/WR_ORA2=0.0
!
-!PAN4/URG4=0.0
+!WR_HNO3/WR_MO2=0.0
!
-!PAN4/UR8=0.0
+!WR_HNO3/WR_OP1=0.0
!
-!PAN4/UR17=0.0
+!WR_HNO3/WR_ASO3=0.0
!
-!PAN4/UR7=0.0
+!WR_HNO3/WR_ASO4=0.0
!
-!PAN4/RPR3=0.0
+!WR_HNO3/WR_ASO5=0.0
!
-!PAN4/URG6=0.0
+!WR_HNO3/WR_AHSO5=0.0
!
-!PAN4/UR22=0.0
+!WR_HNO3/WR_AHMS=0.0
!
-!PAN4/URG7=0.0
+!WR_HNO4/O3=0.0
!
-!PAN4/RPR4=0.0
+!WR_HNO4/H2O2=0.0
!
-!PAN4/RPR7=0.0
+!WR_HNO4/NO=0.0
!
-!PAN4/RPG7=0.0
+!WR_HNO4/NO2=0.0
!
-!PAN4/URG8=0.0
+!WR_HNO4/NO3=0.0
!
-!PAN4/UR19=0.0
+!WR_HNO4/N2O5=0.0
!
-!PAN4/URG9=0.0
+!WR_HNO4/HONO=0.0
!
-!PAN4/AP7=0.0
+!WR_HNO4/HNO3=0.0
!
-!PAN4/URG10=0.0
+!WR_HNO4/HNO4=+KTR9
+ PJAC(:,75,9)=+TPK%KTR9(:)
!
-!PAN4/RPR1=0.0
+!WR_HNO4/NH3=0.0
!
-!PAN4/RPR5=0.0
+!WR_HNO4/SO2=0.0
!
-!PAN4/RPR8=0.0
+!WR_HNO4/SULF=0.0
!
-!PAN4/RP10=0.0
+!WR_HNO4/CO=0.0
!
-!PAN4/RP11=0.0
+!WR_HNO4/OH=0.0
!
-!PAN4/RP16=0.0
+!WR_HNO4/HO2=0.0
!
-!PAN4/RPRL=0.0
+!WR_HNO4/CH4=0.0
!
-!PAN4/APAN=0.0
+!WR_HNO4/ETH=0.0
!
-!PAN4/PAN1=0.0
+!WR_HNO4/ALKA=0.0
!
-!PAN4/PAN2=0.0
+!WR_HNO4/ALKE=0.0
!
-!PAN4/PAN3=0.0
+!WR_HNO4/BIO=0.0
!
-!PAN4/PAN4=-K141
- PJAC(:,80,80)=-TPK%K141(:)
+!WR_HNO4/ARO=0.0
!
-!PAN4/PAN6=0.0
+!WR_HNO4/HCHO=0.0
!
-!PAN4/PAN7=0.0
+!WR_HNO4/ALD=0.0
!
-!PAN4/PAN8=0.0
+!WR_HNO4/KET=0.0
!
-!PAN4/PN10=0.0
+!WR_HNO4/CARBO=0.0
!
-!PAN4/RO2T=0.0
+!WR_HNO4/ONIT=0.0
!
-!PAN4/RO21=0.0
+!WR_HNO4/PAN=0.0
!
-!PAN4/RO25=0.0
+!WR_HNO4/OP1=0.0
!
-RETURN
-END SUBROUTINE SUBJ15
+!WR_HNO4/OP2=0.0
!
-SUBROUTINE SUBJ16
+!WR_HNO4/ORA1=0.0
!
-!Indices 81 a 85
+!WR_HNO4/ORA2=0.0
!
+!WR_HNO4/MO2=0.0
!
-!PAN6/NO=0.0
+!WR_HNO4/ALKAP=0.0
!
-!PAN6/NO2=+K131*<RO254>
- PJAC(:,81,2)=+TPK%K131(:)*TPK%RO254(:)
+!WR_HNO4/ALKEP=0.0
!
-!PAN6/O3=0.0
+!WR_HNO4/BIOP=0.0
!
-!PAN6/HONO=0.0
+!WR_HNO4/PHO=0.0
!
-!PAN6/HNO3=0.0
+!WR_HNO4/ADD=0.0
!
-!PAN6/HNO4=0.0
+!WR_HNO4/AROP=0.0
!
-!PAN6/N2O5=0.0
+!WR_HNO4/CARBOP=0.0
!
-!PAN6/NO3=0.0
+!WR_HNO4/OLN=0.0
!
-!PAN6/NH3=0.0
+!WR_HNO4/XO2=0.0
!
-!PAN6/HO2=0.0
+!WR_HNO4/WC_O3=0.0
!
-!PAN6/CO=0.0
+!WR_HNO4/WC_H2O2=0.0
!
-!PAN6/H2O2=0.0
+!WR_HNO4/WC_NO=0.0
!
-!PAN6/SO2=0.0
+!WR_HNO4/WC_NO2=0.0
!
-!PAN6/H2SO4=0.0
+!WR_HNO4/WC_NO3=0.0
!
-!PAN6/OH=0.0
+!WR_HNO4/WC_N2O5=0.0
!
-!PAN6/ETHE=0.0
+!WR_HNO4/WC_HONO=0.0
!
-!PAN6/OLEL=0.0
+!WR_HNO4/WC_HNO3=0.0
!
-!PAN6/OLEH=0.0
+!WR_HNO4/WC_HNO4=0.0
!
-!PAN6/ALKL=0.0
+!WR_HNO4/WC_NH3=0.0
!
-!PAN6/ALKM=0.0
+!WR_HNO4/WC_OH=0.0
!
-!PAN6/ALKH=0.0
+!WR_HNO4/WC_HO2=0.0
!
-!PAN6/AROH=0.0
+!WR_HNO4/WC_CO2=0.0
!
-!PAN6/AROL=0.0
+!WR_HNO4/WC_SO2=0.0
!
-!PAN6/AROO=0.0
+!WR_HNO4/WC_SULF=0.0
!
-!PAN6/ARAL=0.0
+!WR_HNO4/WC_HCHO=0.0
!
-!PAN6/ARAC=0.0
+!WR_HNO4/WC_ORA1=0.0
!
-!PAN6/PAH=0.0
+!WR_HNO4/WC_ORA2=0.0
!
-!PAN6/HCHO=0.0
+!WR_HNO4/WC_MO2=0.0
!
-!PAN6/ALD2=0.0
+!WR_HNO4/WC_OP1=0.0
!
-!PAN6/KETL=0.0
+!WR_HNO4/WC_ASO3=0.0
!
-!PAN6/KETH=0.0
+!WR_HNO4/WC_ASO4=0.0
!
-!PAN6/MEOH=0.0
+!WR_HNO4/WC_ASO5=0.0
!
-!PAN6/ETOH=0.0
+!WR_HNO4/WC_AHSO5=0.0
!
-!PAN6/ALCH=0.0
+!WR_HNO4/WC_AHMS=0.0
!
-!PAN6/ISOP=0.0
+!WR_HNO4/WR_O3=0.0
!
-!PAN6/BIOL=0.0
+!WR_HNO4/WR_H2O2=0.0
!
-!PAN6/BIOH=0.0
+!WR_HNO4/WR_NO=0.0
!
-!PAN6/MTBE=0.0
+!WR_HNO4/WR_NO2=+KR9*<WR_HO2>
+ PJAC(:,75,70)=+TPK%KR9(:)*PCONC(:,78)
!
-!PAN6/MVK=0.0
+!WR_HNO4/WR_NO3=0.0
!
-!PAN6/MCR=0.0
+!WR_HNO4/WR_N2O5=0.0
!
-!PAN6/MGLY=0.0
+!WR_HNO4/WR_HONO=0.0
!
-!PAN6/GLY=0.0
+!WR_HNO4/WR_HNO3=0.0
!
-!PAN6/ORA1=0.0
+!WR_HNO4/WR_HNO4=-KTR29-KR10-KR11-KR12*<WR_SO2>
+ PJAC(:,75,75)=-TPK%KTR29(:)-TPK%KR10(:)-TPK%KR11(:)-TPK%KR12(:)*PCONC(:,80)
!
-!PAN6/ORA2=0.0
+!WR_HNO4/WR_NH3=0.0
!
-!PAN6/ACID=0.0
+!WR_HNO4/WR_OH=0.0
!
-!PAN6/UR28=0.0
+!WR_HNO4/WR_HO2=+KR9*<WR_NO2>
+ PJAC(:,75,78)=+TPK%KR9(:)*PCONC(:,70)
!
-!PAN6/UR21=0.0
+!WR_HNO4/WR_CO2=0.0
!
-!PAN6/URG2=0.0
+!WR_HNO4/WR_SO2=-KR12*<WR_HNO4>
+ PJAC(:,75,80)=-TPK%KR12(:)*PCONC(:,75)
!
-!PAN6/UR26=0.0
+!WR_HNO4/WR_SULF=0.0
!
-!PAN6/RPG2=0.0
+!WR_HNO4/WR_HCHO=0.0
!
-!PAN6/RP18=0.0
+!WR_HNO4/WR_ORA1=0.0
!
-!PAN6/RPG3=0.0
+!WR_HNO4/WR_ORA2=0.0
!
-!PAN6/URG4=0.0
+!WR_HNO4/WR_MO2=0.0
!
-!PAN6/UR8=0.0
+!WR_HNO4/WR_OP1=0.0
!
-!PAN6/UR17=0.0
+!WR_HNO4/WR_ASO3=0.0
!
-!PAN6/UR7=0.0
+!WR_HNO4/WR_ASO4=0.0
!
-!PAN6/RPR3=0.0
+!WR_HNO4/WR_ASO5=0.0
!
-!PAN6/URG6=0.0
+!WR_HNO4/WR_AHSO5=0.0
!
-!PAN6/UR22=0.0
+!WR_HNO4/WR_AHMS=0.0
!
-!PAN6/URG7=0.0
+RETURN
+END SUBROUTINE SUBJ14
!
-!PAN6/RPR4=0.0
+SUBROUTINE SUBJ15
!
-!PAN6/RPR7=0.0
+!Indices 76 a 80
!
-!PAN6/RPG7=0.0
!
-!PAN6/URG8=0.0
+!WR_NH3/O3=0.0
!
-!PAN6/UR19=0.0
+!WR_NH3/H2O2=0.0
!
-!PAN6/URG9=0.0
+!WR_NH3/NO=0.0
!
-!PAN6/AP7=0.0
+!WR_NH3/NO2=0.0
!
-!PAN6/URG10=0.0
+!WR_NH3/NO3=0.0
!
-!PAN6/RPR1=0.0
+!WR_NH3/N2O5=0.0
!
-!PAN6/RPR5=0.0
+!WR_NH3/HONO=0.0
!
-!PAN6/RPR8=0.0
+!WR_NH3/HNO3=0.0
!
-!PAN6/RP10=0.0
+!WR_NH3/HNO4=0.0
!
-!PAN6/RP11=0.0
+!WR_NH3/NH3=+KTR10
+ PJAC(:,76,10)=+TPK%KTR10(:)
!
-!PAN6/RP16=0.0
+!WR_NH3/SO2=0.0
!
-!PAN6/RPRL=0.0
+!WR_NH3/SULF=0.0
!
-!PAN6/APAN=0.0
+!WR_NH3/CO=0.0
!
-!PAN6/PAN1=0.0
+!WR_NH3/OH=0.0
!
-!PAN6/PAN2=0.0
+!WR_NH3/HO2=0.0
!
-!PAN6/PAN3=0.0
+!WR_NH3/CH4=0.0
!
-!PAN6/PAN4=0.0
+!WR_NH3/ETH=0.0
!
-!PAN6/PAN6=-K140
- PJAC(:,81,81)=-TPK%K140(:)
+!WR_NH3/ALKA=0.0
!
-!PAN6/PAN7=0.0
+!WR_NH3/ALKE=0.0
!
-!PAN6/PAN8=0.0
+!WR_NH3/BIO=0.0
!
-!PAN6/PN10=0.0
+!WR_NH3/ARO=0.0
!
-!PAN6/RO2T=0.0
+!WR_NH3/HCHO=0.0
!
-!PAN6/RO21=0.0
+!WR_NH3/ALD=0.0
!
-!PAN6/RO25=0.0
+!WR_NH3/KET=0.0
!
-!PAN7/NO=0.0
+!WR_NH3/CARBO=0.0
!
-!PAN7/NO2=+K132*<RO255>
- PJAC(:,82,2)=+TPK%K132(:)*TPK%RO255(:)
+!WR_NH3/ONIT=0.0
!
-!PAN7/O3=0.0
+!WR_NH3/PAN=0.0
!
-!PAN7/HONO=0.0
+!WR_NH3/OP1=0.0
!
-!PAN7/HNO3=0.0
+!WR_NH3/OP2=0.0
!
-!PAN7/HNO4=0.0
+!WR_NH3/ORA1=0.0
!
-!PAN7/N2O5=0.0
+!WR_NH3/ORA2=0.0
!
-!PAN7/NO3=0.0
+!WR_NH3/MO2=0.0
!
-!PAN7/NH3=0.0
+!WR_NH3/ALKAP=0.0
!
-!PAN7/HO2=0.0
+!WR_NH3/ALKEP=0.0
!
-!PAN7/CO=0.0
+!WR_NH3/BIOP=0.0
!
-!PAN7/H2O2=0.0
+!WR_NH3/PHO=0.0
!
-!PAN7/SO2=0.0
+!WR_NH3/ADD=0.0
!
-!PAN7/H2SO4=0.0
+!WR_NH3/AROP=0.0
!
-!PAN7/OH=0.0
+!WR_NH3/CARBOP=0.0
!
-!PAN7/ETHE=0.0
+!WR_NH3/OLN=0.0
!
-!PAN7/OLEL=0.0
+!WR_NH3/XO2=0.0
!
-!PAN7/OLEH=0.0
+!WR_NH3/WC_O3=0.0
!
-!PAN7/ALKL=0.0
+!WR_NH3/WC_H2O2=0.0
!
-!PAN7/ALKM=0.0
+!WR_NH3/WC_NO=0.0
!
-!PAN7/ALKH=0.0
+!WR_NH3/WC_NO2=0.0
!
-!PAN7/AROH=0.0
+!WR_NH3/WC_NO3=0.0
!
-!PAN7/AROL=0.0
+!WR_NH3/WC_N2O5=0.0
!
-!PAN7/AROO=0.0
+!WR_NH3/WC_HONO=0.0
!
-!PAN7/ARAL=0.0
+!WR_NH3/WC_HNO3=0.0
!
-!PAN7/ARAC=0.0
+!WR_NH3/WC_HNO4=0.0
!
-!PAN7/PAH=0.0
+!WR_NH3/WC_NH3=0.0
!
-!PAN7/HCHO=0.0
+!WR_NH3/WC_OH=0.0
!
-!PAN7/ALD2=0.0
+!WR_NH3/WC_HO2=0.0
!
-!PAN7/KETL=0.0
+!WR_NH3/WC_CO2=0.0
!
-!PAN7/KETH=0.0
+!WR_NH3/WC_SO2=0.0
!
-!PAN7/MEOH=0.0
+!WR_NH3/WC_SULF=0.0
!
-!PAN7/ETOH=0.0
+!WR_NH3/WC_HCHO=0.0
!
-!PAN7/ALCH=0.0
+!WR_NH3/WC_ORA1=0.0
!
-!PAN7/ISOP=0.0
+!WR_NH3/WC_ORA2=0.0
!
-!PAN7/BIOL=0.0
+!WR_NH3/WC_MO2=0.0
!
-!PAN7/BIOH=0.0
+!WR_NH3/WC_OP1=0.0
!
-!PAN7/MTBE=0.0
+!WR_NH3/WC_ASO3=0.0
!
-!PAN7/MVK=0.0
+!WR_NH3/WC_ASO4=0.0
!
-!PAN7/MCR=0.0
+!WR_NH3/WC_ASO5=0.0
!
-!PAN7/MGLY=0.0
+!WR_NH3/WC_AHSO5=0.0
!
-!PAN7/GLY=0.0
+!WR_NH3/WC_AHMS=0.0
!
-!PAN7/ORA1=0.0
+!WR_NH3/WR_O3=0.0
!
-!PAN7/ORA2=0.0
+!WR_NH3/WR_H2O2=0.0
!
-!PAN7/ACID=0.0
+!WR_NH3/WR_NO=0.0
!
-!PAN7/UR28=0.0
+!WR_NH3/WR_NO2=0.0
!
-!PAN7/UR21=0.0
+!WR_NH3/WR_NO3=0.0
!
-!PAN7/URG2=0.0
+!WR_NH3/WR_N2O5=0.0
!
-!PAN7/UR26=0.0
+!WR_NH3/WR_HONO=0.0
!
-!PAN7/RPG2=0.0
+!WR_NH3/WR_HNO3=0.0
!
-!PAN7/RP18=0.0
+!WR_NH3/WR_HNO4=0.0
!
-!PAN7/RPG3=0.0
+!WR_NH3/WR_NH3=-KTR30
+ PJAC(:,76,76)=-TPK%KTR30(:)
!
-!PAN7/URG4=0.0
+!WR_NH3/WR_OH=0.0
!
-!PAN7/UR8=0.0
+!WR_NH3/WR_HO2=0.0
!
-!PAN7/UR17=0.0
+!WR_NH3/WR_CO2=0.0
!
-!PAN7/UR7=0.0
+!WR_NH3/WR_SO2=0.0
!
-!PAN7/RPR3=0.0
+!WR_NH3/WR_SULF=0.0
!
-!PAN7/URG6=0.0
+!WR_NH3/WR_HCHO=0.0
!
-!PAN7/UR22=0.0
+!WR_NH3/WR_ORA1=0.0
!
-!PAN7/URG7=0.0
+!WR_NH3/WR_ORA2=0.0
!
-!PAN7/RPR4=0.0
+!WR_NH3/WR_MO2=0.0
!
-!PAN7/RPR7=0.0
+!WR_NH3/WR_OP1=0.0
!
-!PAN7/RPG7=0.0
+!WR_NH3/WR_ASO3=0.0
!
-!PAN7/URG8=0.0
+!WR_NH3/WR_ASO4=0.0
!
-!PAN7/UR19=0.0
+!WR_NH3/WR_ASO5=0.0
!
-!PAN7/URG9=0.0
+!WR_NH3/WR_AHSO5=0.0
!
-!PAN7/AP7=0.0
+!WR_NH3/WR_AHMS=0.0
!
-!PAN7/URG10=0.0
+!WR_OH/O3=0.0
!
-!PAN7/RPR1=0.0
+!WR_OH/H2O2=0.0
!
-!PAN7/RPR5=0.0
+!WR_OH/NO=0.0
!
-!PAN7/RPR8=0.0
+!WR_OH/NO2=0.0
!
-!PAN7/RP10=0.0
+!WR_OH/NO3=0.0
!
-!PAN7/RP11=0.0
+!WR_OH/N2O5=0.0
!
-!PAN7/RP16=0.0
+!WR_OH/HONO=0.0
!
-!PAN7/RPRL=0.0
+!WR_OH/HNO3=0.0
!
-!PAN7/APAN=0.0
+!WR_OH/HNO4=0.0
!
-!PAN7/PAN1=0.0
+!WR_OH/NH3=0.0
!
-!PAN7/PAN2=0.0
+!WR_OH/SO2=0.0
!
-!PAN7/PAN3=0.0
+!WR_OH/SULF=0.0
!
-!PAN7/PAN4=0.0
+!WR_OH/CO=0.0
!
-!PAN7/PAN6=0.0
+!WR_OH/OH=+KTR11
+ PJAC(:,77,14)=+TPK%KTR11(:)
!
-!PAN7/PAN7=-K343
- PJAC(:,82,82)=-TPK%K343(:)
+!WR_OH/HO2=0.0
!
-!PAN7/PAN8=0.0
+!WR_OH/CH4=0.0
!
-!PAN7/PN10=0.0
+!WR_OH/ETH=0.0
!
-!PAN7/RO2T=0.0
+!WR_OH/ALKA=0.0
!
-!PAN7/RO21=0.0
+!WR_OH/ALKE=0.0
!
-!PAN7/RO25=0.0
+!WR_OH/BIO=0.0
!
-!PAN8/NO=0.0
+!WR_OH/ARO=0.0
!
-!PAN8/NO2=+K316*<RO256>
- PJAC(:,83,2)=+TPK%K316(:)*TPK%RO256(:)
+!WR_OH/HCHO=0.0
!
-!PAN8/O3=0.0
+!WR_OH/ALD=0.0
!
-!PAN8/HONO=0.0
+!WR_OH/KET=0.0
!
-!PAN8/HNO3=0.0
+!WR_OH/CARBO=0.0
!
-!PAN8/HNO4=0.0
+!WR_OH/ONIT=0.0
!
-!PAN8/N2O5=0.0
+!WR_OH/PAN=0.0
!
-!PAN8/NO3=0.0
+!WR_OH/OP1=0.0
!
-!PAN8/NH3=0.0
+!WR_OH/OP2=0.0
!
-!PAN8/HO2=0.0
+!WR_OH/ORA1=0.0
!
-!PAN8/CO=0.0
+!WR_OH/ORA2=0.0
!
-!PAN8/H2O2=0.0
+!WR_OH/MO2=0.0
!
-!PAN8/SO2=0.0
+!WR_OH/ALKAP=0.0
!
-!PAN8/H2SO4=0.0
+!WR_OH/ALKEP=0.0
!
-!PAN8/OH=0.0
+!WR_OH/BIOP=0.0
!
-!PAN8/ETHE=0.0
+!WR_OH/PHO=0.0
!
-!PAN8/OLEL=0.0
+!WR_OH/ADD=0.0
!
-!PAN8/OLEH=0.0
+!WR_OH/AROP=0.0
!
-!PAN8/ALKL=0.0
+!WR_OH/CARBOP=0.0
!
-!PAN8/ALKM=0.0
+!WR_OH/OLN=0.0
!
-!PAN8/ALKH=0.0
+!WR_OH/XO2=0.0
!
-!PAN8/AROH=0.0
+!WR_OH/WC_O3=0.0
!
-!PAN8/AROL=0.0
+!WR_OH/WC_H2O2=0.0
!
-!PAN8/AROO=0.0
+!WR_OH/WC_NO=0.0
!
-!PAN8/ARAL=0.0
+!WR_OH/WC_NO2=0.0
!
-!PAN8/ARAC=0.0
+!WR_OH/WC_NO3=0.0
!
-!PAN8/PAH=0.0
+!WR_OH/WC_N2O5=0.0
!
-!PAN8/HCHO=0.0
+!WR_OH/WC_HONO=0.0
!
-!PAN8/ALD2=0.0
+!WR_OH/WC_HNO3=0.0
!
-!PAN8/KETL=0.0
+!WR_OH/WC_HNO4=0.0
!
-!PAN8/KETH=0.0
+!WR_OH/WC_NH3=0.0
!
-!PAN8/MEOH=0.0
+!WR_OH/WC_OH=0.0
!
-!PAN8/ETOH=0.0
+!WR_OH/WC_HO2=0.0
!
-!PAN8/ALCH=0.0
+!WR_OH/WC_CO2=0.0
!
-!PAN8/ISOP=0.0
+!WR_OH/WC_SO2=0.0
!
-!PAN8/BIOL=0.0
+!WR_OH/WC_SULF=0.0
!
-!PAN8/BIOH=0.0
+!WR_OH/WC_HCHO=0.0
!
-!PAN8/MTBE=0.0
+!WR_OH/WC_ORA1=0.0
!
-!PAN8/MVK=0.0
+!WR_OH/WC_ORA2=0.0
!
-!PAN8/MCR=0.0
+!WR_OH/WC_MO2=0.0
!
-!PAN8/MGLY=0.0
+!WR_OH/WC_OP1=0.0
!
-!PAN8/GLY=0.0
+!WR_OH/WC_ASO3=0.0
!
-!PAN8/ORA1=0.0
+!WR_OH/WC_ASO4=0.0
!
-!PAN8/ORA2=0.0
+!WR_OH/WC_ASO5=0.0
!
-!PAN8/ACID=0.0
+!WR_OH/WC_AHSO5=0.0
!
-!PAN8/UR28=0.0
+!WR_OH/WC_AHMS=0.0
!
-!PAN8/UR21=0.0
+!WR_OH/WR_O3=+KR6*<WR_HO2>
+ PJAC(:,77,67)=+TPK%KR6(:)*PCONC(:,78)
!
-!PAN8/URG2=0.0
+!WR_OH/WR_H2O2=+KR1+KR1-KR4*<WR_OH>
+ PJAC(:,77,68)=+TPK%KR1(:)+TPK%KR1(:)-TPK%KR4(:)*PCONC(:,77)
!
-!PAN8/UR26=0.0
+!WR_OH/WR_NO=0.0
!
-!PAN8/RPG2=0.0
+!WR_OH/WR_NO2=0.0
!
-!PAN8/RP18=0.0
+!WR_OH/WR_NO3=0.0
!
-!PAN8/RPG3=0.0
+!WR_OH/WR_N2O5=0.0
!
-!PAN8/URG4=0.0
+!WR_OH/WR_HONO=-KR8*<WR_OH>
+ PJAC(:,77,73)=-TPK%KR8(:)*PCONC(:,77)
!
-!PAN8/UR8=0.0
+!WR_OH/WR_HNO3=+KR13
+ PJAC(:,77,74)=+TPK%KR13(:)
!
-!PAN8/UR17=0.0
+!WR_OH/WR_HNO4=0.0
!
-!PAN8/UR7=0.0
+!WR_OH/WR_NH3=0.0
!
-!PAN8/RPR3=0.0
+!WR_OH/WR_OH=-KTR31-KR2*<WR_OH>-KR2*<WR_OH>-KR2*<WR_OH>-KR2*<WR_OH>-KR3*<WR_HO2
+!>-KR4*<WR_H2O2>-KR7*<WR_SO2>-KR8*<WR_HONO>-KR19*<WR_HCHO>-KR20*<WR_ORA1>-KR23*
+!<WR_AHMS>
+ PJAC(:,77,77)=-TPK%KTR31(:)-TPK%KR2(:)*PCONC(:,77)-TPK%KR2(:)*PCONC(:,77)-TPK%&
+&KR2(:)*PCONC(:,77)-TPK%KR2(:)*PCONC(:,77)-TPK%KR3(:)*PCONC(:,78)-TPK%KR4(:)*PC&
+&ONC(:,68)-TPK%KR7(:)*PCONC(:,80)-TPK%KR8(:)*PCONC(:,73)-TPK%KR19(:)*PCONC(:,82&
+&)-TPK%KR20(:)*PCONC(:,83)-TPK%KR23(:)*PCONC(:,91)
!
-!PAN8/URG6=0.0
+!WR_OH/WR_HO2=-KR3*<WR_OH>+KR6*<WR_O3>
+ PJAC(:,77,78)=-TPK%KR3(:)*PCONC(:,77)+TPK%KR6(:)*PCONC(:,67)
!
-!PAN8/UR22=0.0
+!WR_OH/WR_CO2=0.0
!
-!PAN8/URG7=0.0
+!WR_OH/WR_SO2=-KR7*<WR_OH>
+ PJAC(:,77,80)=-TPK%KR7(:)*PCONC(:,77)
!
-!PAN8/RPR4=0.0
+!WR_OH/WR_SULF=0.0
!
-!PAN8/RPR7=0.0
+!WR_OH/WR_HCHO=-KR19*<WR_OH>
+ PJAC(:,77,82)=-TPK%KR19(:)*PCONC(:,77)
!
-!PAN8/RPG7=0.0
+!WR_OH/WR_ORA1=-KR20*<WR_OH>
+ PJAC(:,77,83)=-TPK%KR20(:)*PCONC(:,77)
!
-!PAN8/URG8=0.0
+!WR_OH/WR_ORA2=0.0
!
-!PAN8/UR19=0.0
+!WR_OH/WR_MO2=0.0
!
-!PAN8/URG9=0.0
+!WR_OH/WR_OP1=0.0
!
-!PAN8/AP7=0.0
+!WR_OH/WR_ASO3=0.0
!
-!PAN8/URG10=0.0
+!WR_OH/WR_ASO4=+KR28
+ PJAC(:,77,88)=+TPK%KR28(:)
!
-!PAN8/RPR1=0.0
+!WR_OH/WR_ASO5=0.0
!
-!PAN8/RPR5=0.0
+!WR_OH/WR_AHSO5=0.0
!
-!PAN8/RPR8=0.0
+!WR_OH/WR_AHMS=-KR23*<WR_OH>
+ PJAC(:,77,91)=-TPK%KR23(:)*PCONC(:,77)
!
-!PAN8/RP10=0.0
+!WR_HO2/O3=0.0
!
-!PAN8/RP11=0.0
+!WR_HO2/H2O2=0.0
!
-!PAN8/RP16=0.0
+!WR_HO2/NO=0.0
!
-!PAN8/RPRL=0.0
+!WR_HO2/NO2=0.0
!
-!PAN8/APAN=0.0
+!WR_HO2/NO3=0.0
!
-!PAN8/PAN1=0.0
+!WR_HO2/N2O5=0.0
!
-!PAN8/PAN2=0.0
+!WR_HO2/HONO=0.0
!
-!PAN8/PAN3=0.0
+!WR_HO2/HNO3=0.0
!
-!PAN8/PAN4=0.0
+!WR_HO2/HNO4=0.0
!
-!PAN8/PAN6=0.0
+!WR_HO2/NH3=0.0
!
-!PAN8/PAN7=0.0
+!WR_HO2/SO2=0.0
!
-!PAN8/PAN8=-K317
- PJAC(:,83,83)=-TPK%K317(:)
+!WR_HO2/SULF=0.0
!
-!PAN8/PN10=0.0
+!WR_HO2/CO=0.0
!
-!PAN8/RO2T=0.0
+!WR_HO2/OH=0.0
!
-!PAN8/RO21=0.0
+!WR_HO2/HO2=+KTR12
+ PJAC(:,78,15)=+TPK%KTR12(:)
!
-!PAN8/RO25=0.0
+!WR_HO2/CH4=0.0
!
-!PN10/NO=0.0
+!WR_HO2/ETH=0.0
!
-!PN10/NO2=+K134*<RO258>
- PJAC(:,84,2)=+TPK%K134(:)*TPK%RO258(:)
+!WR_HO2/ALKA=0.0
!
-!PN10/O3=0.0
+!WR_HO2/ALKE=0.0
!
-!PN10/HONO=0.0
+!WR_HO2/BIO=0.0
!
-!PN10/HNO3=0.0
+!WR_HO2/ARO=0.0
!
-!PN10/HNO4=0.0
+!WR_HO2/HCHO=0.0
!
-!PN10/N2O5=0.0
+!WR_HO2/ALD=0.0
!
-!PN10/NO3=0.0
+!WR_HO2/KET=0.0
!
-!PN10/NH3=0.0
+!WR_HO2/CARBO=0.0
!
-!PN10/HO2=0.0
+!WR_HO2/ONIT=0.0
!
-!PN10/CO=0.0
+!WR_HO2/PAN=0.0
!
-!PN10/H2O2=0.0
+!WR_HO2/OP1=0.0
!
-!PN10/SO2=0.0
+!WR_HO2/OP2=0.0
!
-!PN10/H2SO4=0.0
+!WR_HO2/ORA1=0.0
!
-!PN10/OH=0.0
+!WR_HO2/ORA2=0.0
!
-!PN10/ETHE=0.0
+!WR_HO2/MO2=0.0
!
-!PN10/OLEL=0.0
+!WR_HO2/ALKAP=0.0
!
-!PN10/OLEH=0.0
+!WR_HO2/ALKEP=0.0
!
-!PN10/ALKL=0.0
+!WR_HO2/BIOP=0.0
!
-!PN10/ALKM=0.0
+!WR_HO2/PHO=0.0
!
-!PN10/ALKH=0.0
+!WR_HO2/ADD=0.0
!
-!PN10/AROH=0.0
+!WR_HO2/AROP=0.0
!
-!PN10/AROL=0.0
+!WR_HO2/CARBOP=0.0
!
-!PN10/AROO=0.0
+!WR_HO2/OLN=0.0
!
-!PN10/ARAL=0.0
+!WR_HO2/XO2=0.0
!
-!PN10/ARAC=0.0
+!WR_HO2/WC_O3=0.0
!
-!PN10/PAH=0.0
+!WR_HO2/WC_H2O2=0.0
!
-!PN10/HCHO=0.0
+!WR_HO2/WC_NO=0.0
!
-!PN10/ALD2=0.0
+!WR_HO2/WC_NO2=0.0
!
-!PN10/KETL=0.0
+!WR_HO2/WC_NO3=0.0
!
-!PN10/KETH=0.0
+!WR_HO2/WC_N2O5=0.0
!
-!PN10/MEOH=0.0
+!WR_HO2/WC_HONO=0.0
!
-!PN10/ETOH=0.0
+!WR_HO2/WC_HNO3=0.0
!
-!PN10/ALCH=0.0
+!WR_HO2/WC_HNO4=0.0
!
-!PN10/ISOP=0.0
+!WR_HO2/WC_NH3=0.0
!
-!PN10/BIOL=0.0
+!WR_HO2/WC_OH=0.0
!
-!PN10/BIOH=0.0
+!WR_HO2/WC_HO2=0.0
!
-!PN10/MTBE=0.0
+!WR_HO2/WC_CO2=0.0
!
-!PN10/MVK=0.0
+!WR_HO2/WC_SO2=0.0
!
-!PN10/MCR=0.0
+!WR_HO2/WC_SULF=0.0
!
-!PN10/MGLY=0.0
+!WR_HO2/WC_HCHO=0.0
!
-!PN10/GLY=0.0
+!WR_HO2/WC_ORA1=0.0
!
-!PN10/ORA1=0.0
+!WR_HO2/WC_ORA2=0.0
!
-!PN10/ORA2=0.0
+!WR_HO2/WC_MO2=0.0
!
-!PN10/ACID=0.0
+!WR_HO2/WC_OP1=0.0
!
-!PN10/UR28=0.0
+!WR_HO2/WC_ASO3=0.0
!
-!PN10/UR21=0.0
+!WR_HO2/WC_ASO4=0.0
!
-!PN10/URG2=0.0
+!WR_HO2/WC_ASO5=0.0
!
-!PN10/UR26=0.0
+!WR_HO2/WC_AHSO5=0.0
!
-!PN10/RPG2=0.0
+!WR_HO2/WC_AHMS=0.0
!
-!PN10/RP18=0.0
+!WR_HO2/WR_O3=-KR6*<WR_HO2>
+ PJAC(:,78,67)=-TPK%KR6(:)*PCONC(:,78)
!
-!PN10/RPG3=0.0
+!WR_HO2/WR_H2O2=+KR4*<WR_OH>
+ PJAC(:,78,68)=+TPK%KR4(:)*PCONC(:,77)
!
-!PN10/URG4=0.0
+!WR_HO2/WR_NO=0.0
!
-!PN10/UR8=0.0
+!WR_HO2/WR_NO2=-KR9*<WR_HO2>
+ PJAC(:,78,70)=-TPK%KR9(:)*PCONC(:,78)
!
-!PN10/UR17=0.0
+!WR_HO2/WR_NO3=0.0
!
-!PN10/UR7=0.0
+!WR_HO2/WR_N2O5=0.0
!
-!PN10/RPR3=0.0
+!WR_HO2/WR_HONO=0.0
!
-!PN10/URG6=0.0
+!WR_HO2/WR_HNO3=0.0
!
-!PN10/UR22=0.0
+!WR_HO2/WR_HNO4=+KR10
+ PJAC(:,78,75)=+TPK%KR10(:)
!
-!PN10/URG7=0.0
+!WR_HO2/WR_NH3=0.0
!
-!PN10/RPR4=0.0
+!WR_HO2/WR_OH=-KR3*<WR_HO2>+KR4*<WR_H2O2>+KR19*<WR_HCHO>+KR20*<WR_ORA1>+KR23*<W
+!R_AHMS>
+ PJAC(:,78,77)=-TPK%KR3(:)*PCONC(:,78)+TPK%KR4(:)*PCONC(:,68)+TPK%KR19(:)*PCONC&
+&(:,82)+TPK%KR20(:)*PCONC(:,83)+TPK%KR23(:)*PCONC(:,91)
!
-!PN10/RPR7=0.0
+!WR_HO2/WR_HO2=-KTR32-KR3*<WR_OH>-KR5*<WR_HO2>-KR5*<WR_HO2>-KR5*<WR_HO2>-KR5*<W
+!R_HO2>-KR6*<WR_O3>-KR9*<WR_NO2>-KR25*<WR_ASO5>
+ PJAC(:,78,78)=-TPK%KTR32(:)-TPK%KR3(:)*PCONC(:,77)-TPK%KR5(:)*PCONC(:,78)-TPK%&
+&KR5(:)*PCONC(:,78)-TPK%KR5(:)*PCONC(:,78)-TPK%KR5(:)*PCONC(:,78)-TPK%KR6(:)*PC&
+&ONC(:,67)-TPK%KR9(:)*PCONC(:,70)-TPK%KR25(:)*PCONC(:,89)
!
-!PN10/RPG7=0.0
+!WR_HO2/WR_CO2=0.0
!
-!PN10/URG8=0.0
+!WR_HO2/WR_SO2=0.0
!
-!PN10/UR19=0.0
+!WR_HO2/WR_SULF=0.0
!
-!PN10/URG9=0.0
+!WR_HO2/WR_HCHO=+KR19*<WR_OH>
+ PJAC(:,78,82)=+TPK%KR19(:)*PCONC(:,77)
!
-!PN10/AP7=0.0
+!WR_HO2/WR_ORA1=+KR20*<WR_OH>
+ PJAC(:,78,83)=+TPK%KR20(:)*PCONC(:,77)
!
-!PN10/URG10=0.0
+!WR_HO2/WR_ORA2=0.0
!
-!PN10/RPR1=0.0
+!WR_HO2/WR_MO2=+2.00*KR17*<WR_MO2>+2.00*KR17*<WR_MO2>
+ PJAC(:,78,85)=+2.00*TPK%KR17(:)*PCONC(:,85)+2.00*TPK%KR17(:)*PCONC(:,85)
!
-!PN10/RPR5=0.0
+!WR_HO2/WR_OP1=0.0
!
-!PN10/RPR8=0.0
+!WR_HO2/WR_ASO3=0.0
!
-!PN10/RP10=0.0
+!WR_HO2/WR_ASO4=0.0
!
-!PN10/RP11=0.0
+!WR_HO2/WR_ASO5=-KR25*<WR_HO2>
+ PJAC(:,78,89)=-TPK%KR25(:)*PCONC(:,78)
!
-!PN10/RP16=0.0
+!WR_HO2/WR_AHSO5=0.0
!
-!PN10/RPRL=0.0
+!WR_HO2/WR_AHMS=+KR23*<WR_OH>
+ PJAC(:,78,91)=+TPK%KR23(:)*PCONC(:,77)
!
-!PN10/APAN=0.0
+!WR_CO2/O3=0.0
!
-!PN10/PAN1=0.0
+!WR_CO2/H2O2=0.0
!
-!PN10/PAN2=0.0
+!WR_CO2/NO=0.0
!
-!PN10/PAN3=0.0
+!WR_CO2/NO2=0.0
!
-!PN10/PAN4=0.0
+!WR_CO2/NO3=0.0
!
-!PN10/PAN6=0.0
+!WR_CO2/N2O5=0.0
!
-!PN10/PAN7=0.0
+!WR_CO2/HONO=0.0
!
-!PN10/PAN8=0.0
+!WR_CO2/HNO3=0.0
!
-!PN10/PN10=-K138
- PJAC(:,84,84)=-TPK%K138(:)
+!WR_CO2/HNO4=0.0
!
-!PN10/RO2T=0.0
+!WR_CO2/NH3=0.0
!
-!PN10/RO21=0.0
+!WR_CO2/SO2=0.0
!
-!PN10/RO25=0.0
+!WR_CO2/SULF=0.0
!
-!RO2T/NO=-K095*<RO2T>+K125*<RO26>+K144*<RO27>+K147*<RO28>+K162*<RO213>+K165*<RO
-!239>+TPK%CF8*K168*<RO214>+K174*<RO216>+TPK%CF18*K186*<RO220>+K204*<RO226>+TPK%
-!CF30*K213*<RO229>+K216*<RO240>+TPK%CF34*K224*<RO232>+K277*<RO248>+K288*<RO250>
-!+K297*<RO253>+K309*<RO255>+K331*<RO257>+K344*<RO230>
- PJAC(:,85,1)=-TPK%K095(:)*PCONC(:,85)+TPK%K125(:)*TPK%RO26(:)+TPK%K144(:)*TPK%&
-&RO27(:)+TPK%K147(:)*TPK%RO28(:)+TPK%K162(:)*TPK%RO213(:)+TPK%K165(:)*TPK%RO239&
-&(:)+TPK%CF8*TPK%K168(:)*TPK%RO214(:)+TPK%K174(:)*TPK%RO216(:)+TPK%CF18*TPK%K18&
-&6(:)*TPK%RO220(:)+TPK%K204(:)*TPK%RO226(:)+TPK%CF30*TPK%K213(:)*TPK%RO229(:)+T&
-&PK%K216(:)*TPK%RO240(:)+TPK%CF34*TPK%K224(:)*TPK%RO232(:)+TPK%K277(:)*TPK%RO24&
-&8(:)+TPK%K288(:)*TPK%RO250(:)+TPK%K297(:)*TPK%RO253(:)+TPK%K309(:)*TPK%RO255(:&
-&)+TPK%K331(:)*TPK%RO257(:)+TPK%K344(:)*TPK%RO230(:)
+!WR_CO2/CO=0.0
!
-!RO2T/NO2=0.0
+!WR_CO2/OH=0.0
!
-!RO2T/O3=+0.28*K056*<OLEL>+0.366*K066*<ISOP>+0.28*K076*<OLEH>+0.445*K086*<BIOL>
-!+0.89*K090*<BIOH>+0.28*K281*<MVK>+0.41*K282*<MCR>
- PJAC(:,85,3)=+0.28*TPK%K056(:)*PCONC(:,17)+0.366*TPK%K066(:)*PCONC(:,35)+0.28*&
-&TPK%K076(:)*PCONC(:,18)+0.445*TPK%K086(:)*PCONC(:,36)+0.89*TPK%K090(:)*PCONC(:&
-&,37)+0.28*TPK%K281(:)*PCONC(:,39)+0.41*TPK%K282(:)*PCONC(:,40)
+!WR_CO2/HO2=0.0
!
-!RO2T/HONO=0.0
+!WR_CO2/CH4=0.0
!
-!RO2T/HNO3=0.0
+!WR_CO2/ETH=0.0
!
-!RO2T/HNO4=0.0
+!WR_CO2/ALKA=0.0
!
-!RO2T/N2O5=0.0
+!WR_CO2/ALKE=0.0
!
-!RO2T/NO3=+K050*<ETHE>+K055*<OLEL>+K061*<ALD2>+K065*<ISOP>+K075*<OLEH>+K085*<BI
-!OL>+K089*<BIOH>+K275*<MCR>+K278*<MGLY>+K307*<RPR1>+K313*<RPR3>+K327*<RPR8>+K33
-!8*<RP16>
- PJAC(:,85,8)=+TPK%K050(:)*PCONC(:,16)+TPK%K055(:)*PCONC(:,17)+TPK%K061(:)*PCON&
-&C(:,29)+TPK%K065(:)*PCONC(:,35)+TPK%K075(:)*PCONC(:,18)+TPK%K085(:)*PCONC(:,36&
-&)+TPK%K089(:)*PCONC(:,37)+TPK%K275(:)*PCONC(:,40)+TPK%K278(:)*PCONC(:,41)+TPK%&
-&K307(:)*PCONC(:,69)+TPK%K313(:)*PCONC(:,57)+TPK%K327(:)*PCONC(:,71)+TPK%K338(:&
-&)*PCONC(:,74)
+!WR_CO2/BIO=0.0
!
-!RO2T/NH3=0.0
+!WR_CO2/ARO=0.0
!
-!RO2T/HO2=-K094*<RO2T>+K146*<RO27>+K164*<RO213>+K170*<RO214>+K176*<RO216>+K188*
-!<RO220>+K206*<RO226>+K215*<RO229>+K218*<RO240>+K220*<RO230>+K226*<RO232>+K292*
-!<RO251>+K295*<RO252>+2.*K298*<RO253>
- PJAC(:,85,10)=-TPK%K094(:)*PCONC(:,85)+TPK%K146(:)*TPK%RO27(:)+TPK%K164(:)*TPK&
-&%RO213(:)+TPK%K170(:)*TPK%RO214(:)+TPK%K176(:)*TPK%RO216(:)+TPK%K188(:)*TPK%RO&
-&220(:)+TPK%K206(:)*TPK%RO226(:)+TPK%K215(:)*TPK%RO229(:)+TPK%K218(:)*TPK%RO240&
-&(:)+TPK%K220(:)*TPK%RO230(:)+TPK%K226(:)*TPK%RO232(:)+TPK%K292(:)*TPK%RO251(:)&
-&+TPK%K295(:)*TPK%RO252(:)+2.*TPK%K298(:)*TPK%RO253(:)
+!WR_CO2/HCHO=0.0
!
-!RO2T/CO=0.0
+!WR_CO2/ALD=0.0
!
-!RO2T/H2O2=0.0
+!WR_CO2/KET=0.0
!
-!RO2T/SO2=0.0
+!WR_CO2/CARBO=0.0
!
-!RO2T/H2SO4=0.0
+!WR_CO2/ONIT=0.0
!
-!RO2T/OH=+K043*<CH4>+K049*<ETHE>+TPK%CF2*K053*<ETOH>+K054*<OLEL>+K058*<ALKL>+K0
-!60*<ALD2>+K062*<KETL>+K064*<ISOP>+K068*<MTBE>+K069*<ALCH>+K070*<KETH>+0.1*K073
-!*<AROO>+K074*<OLEH>+K078*<ALKM>+0.06*K079*<AROL>+TPK%CF45*K082*<ARAL>+0.1*K083
-!*<ARAC>+K084*<BIOL>+K088*<BIOH>+0.1*K092*<PAH>+K093*<ALKH>+K272*<MVK>+K273*<MC
-!R>+K274*<MGLY>+K304*<RPR1>+K305*<RP16>+K312*<RPR3>+K324*<RPR8>
- PJAC(:,85,15)=+TPK%K043(:)*TPK%CH4(:)+TPK%K049(:)*PCONC(:,16)+TPK%CF2*TPK%K053&
-&(:)*PCONC(:,33)+TPK%K054(:)*PCONC(:,17)+TPK%K058(:)*PCONC(:,19)+TPK%K060(:)*PC&
-&ONC(:,29)+TPK%K062(:)*PCONC(:,30)+TPK%K064(:)*PCONC(:,35)+TPK%K068(:)*PCONC(:,&
-&38)+TPK%K069(:)*PCONC(:,34)+TPK%K070(:)*PCONC(:,31)+0.1*TPK%K073(:)*PCONC(:,24&
-&)+TPK%K074(:)*PCONC(:,18)+TPK%K078(:)*PCONC(:,20)+0.06*TPK%K079(:)*PCONC(:,23)&
-&+TPK%CF45*TPK%K082(:)*PCONC(:,25)+0.1*TPK%K083(:)*PCONC(:,26)+TPK%K084(:)*PCON&
-&C(:,36)+TPK%K088(:)*PCONC(:,37)+0.1*TPK%K092(:)*PCONC(:,27)+TPK%K093(:)*PCONC(&
-&:,21)+TPK%K272(:)*PCONC(:,39)+TPK%K273(:)*PCONC(:,40)+TPK%K274(:)*PCONC(:,41)+&
-&TPK%K304(:)*PCONC(:,69)+TPK%K305(:)*PCONC(:,74)+TPK%K312(:)*PCONC(:,57)+TPK%K3&
-&24(:)*PCONC(:,71)
+!WR_CO2/PAN=0.0
!
-!RO2T/ETHE=+K049*<OH>+K050*<NO3>+K052*<O>
- PJAC(:,85,16)=+TPK%K049(:)*PCONC(:,15)+TPK%K050(:)*PCONC(:,8)+TPK%K052(:)*TPK%&
-&O(:)
+!WR_CO2/OP1=0.0
!
-!RO2T/OLEL=+K054*<OH>+K055*<NO3>+0.28*K056*<O3>+0.2*K057*<O>
- PJAC(:,85,17)=+TPK%K054(:)*PCONC(:,15)+TPK%K055(:)*PCONC(:,8)+0.28*TPK%K056(:)&
-&*PCONC(:,3)+0.2*TPK%K057(:)*TPK%O(:)
+!WR_CO2/OP2=0.0
!
-!RO2T/OLEH=+K074*<OH>+K075*<NO3>+0.28*K076*<O3>+0.2*K077*<O>
- PJAC(:,85,18)=+TPK%K074(:)*PCONC(:,15)+TPK%K075(:)*PCONC(:,8)+0.28*TPK%K076(:)&
-&*PCONC(:,3)+0.2*TPK%K077(:)*TPK%O(:)
+!WR_CO2/ORA1=0.0
!
-!RO2T/ALKL=+K058*<OH>
- PJAC(:,85,19)=+TPK%K058(:)*PCONC(:,15)
+!WR_CO2/ORA2=0.0
!
-!RO2T/ALKM=+K078*<OH>
- PJAC(:,85,20)=+TPK%K078(:)*PCONC(:,15)
+!WR_CO2/MO2=0.0
!
-!RO2T/ALKH=+K093*<OH>
- PJAC(:,85,21)=+TPK%K093(:)*PCONC(:,15)
+!WR_CO2/ALKAP=0.0
!
-!RO2T/AROH=0.0
+!WR_CO2/ALKEP=0.0
!
-!RO2T/AROL=+0.06*K079*<OH>
- PJAC(:,85,23)=+0.06*TPK%K079(:)*PCONC(:,15)
+!WR_CO2/BIOP=0.0
!
-!RO2T/AROO=+0.1*K073*<OH>
- PJAC(:,85,24)=+0.1*TPK%K073(:)*PCONC(:,15)
+!WR_CO2/PHO=0.0
!
-!RO2T/ARAL=+TPK%CF45*K082*<OH>
- PJAC(:,85,25)=+TPK%CF45*TPK%K082(:)*PCONC(:,15)
+!WR_CO2/ADD=0.0
!
-!RO2T/ARAC=+0.1*K083*<OH>
- PJAC(:,85,26)=+0.1*TPK%K083(:)*PCONC(:,15)
+!WR_CO2/AROP=0.0
!
-!RO2T/PAH=+0.1*K092*<OH>
- PJAC(:,85,27)=+0.1*TPK%K092(:)*PCONC(:,15)
+!WR_CO2/CARBOP=0.0
!
-!RO2T/HCHO=0.0
+!WR_CO2/OLN=0.0
!
-!RO2T/ALD2=+K059+K060*<OH>+K061*<NO3>
- PJAC(:,85,29)=+TPK%K059(:)+TPK%K060(:)*PCONC(:,15)+TPK%K061(:)*PCONC(:,8)
+!WR_CO2/XO2=0.0
!
-!RO2T/KETL=+K062*<OH>+2.*K063
- PJAC(:,85,30)=+TPK%K062(:)*PCONC(:,15)+2.*TPK%K063(:)
+!WR_CO2/WC_O3=0.0
!
-!RO2T/KETH=+K070*<OH>+2.*K071
- PJAC(:,85,31)=+TPK%K070(:)*PCONC(:,15)+2.*TPK%K071(:)
+!WR_CO2/WC_H2O2=0.0
!
-!RO2T/MEOH=0.0
+!WR_CO2/WC_NO=0.0
!
-!RO2T/ETOH=+TPK%CF2*K053*<OH>
- PJAC(:,85,33)=+TPK%CF2*TPK%K053(:)*PCONC(:,15)
+!WR_CO2/WC_NO2=0.0
!
-!RO2T/ALCH=+K069*<OH>
- PJAC(:,85,34)=+TPK%K069(:)*PCONC(:,15)
+!WR_CO2/WC_NO3=0.0
!
-!RO2T/ISOP=+K064*<OH>+K065*<NO3>+0.366*K066*<O3>
- PJAC(:,85,35)=+TPK%K064(:)*PCONC(:,15)+TPK%K065(:)*PCONC(:,8)+0.366*TPK%K066(:&
-&)*PCONC(:,3)
+!WR_CO2/WC_N2O5=0.0
!
-!RO2T/BIOL=+K084*<OH>+K085*<NO3>+0.445*K086*<O3>
- PJAC(:,85,36)=+TPK%K084(:)*PCONC(:,15)+TPK%K085(:)*PCONC(:,8)+0.445*TPK%K086(:&
-&)*PCONC(:,3)
+!WR_CO2/WC_HONO=0.0
!
-!RO2T/BIOH=+K088*<OH>+K089*<NO3>+0.89*K090*<O3>
- PJAC(:,85,37)=+TPK%K088(:)*PCONC(:,15)+TPK%K089(:)*PCONC(:,8)+0.89*TPK%K090(:)&
-&*PCONC(:,3)
+!WR_CO2/WC_HNO3=0.0
!
-!RO2T/MTBE=+K068*<OH>
- PJAC(:,85,38)=+TPK%K068(:)*PCONC(:,15)
+!WR_CO2/WC_HNO4=0.0
!
-!RO2T/MVK=+K272*<OH>+0.28*K281*<O3>+0.3*K283*<O>
- PJAC(:,85,39)=+TPK%K272(:)*PCONC(:,15)+0.28*TPK%K281(:)*PCONC(:,3)+0.3*TPK%K28&
-&3(:)*TPK%O(:)
+!WR_CO2/WC_NH3=0.0
!
-!RO2T/MCR=+K273*<OH>+K275*<NO3>+0.41*K282*<O3>+0.15*K284*<O>
- PJAC(:,85,40)=+TPK%K273(:)*PCONC(:,15)+TPK%K275(:)*PCONC(:,8)+0.41*TPK%K282(:)&
-&*PCONC(:,3)+0.15*TPK%K284(:)*TPK%O(:)
+!WR_CO2/WC_OH=0.0
!
-!RO2T/MGLY=+K274*<OH>+K276+K278*<NO3>
- PJAC(:,85,41)=+TPK%K274(:)*PCONC(:,15)+TPK%K276(:)+TPK%K278(:)*PCONC(:,8)
+!WR_CO2/WC_HO2=0.0
!
-!RO2T/GLY=0.0
+!WR_CO2/WC_CO2=0.0
!
-!RO2T/ORA1=0.0
+!WR_CO2/WC_SO2=0.0
!
-!RO2T/ORA2=0.0
+!WR_CO2/WC_SULF=0.0
!
-!RO2T/ACID=0.0
+!WR_CO2/WC_HCHO=0.0
!
-!RO2T/UR28=0.0
+!WR_CO2/WC_ORA1=0.0
!
-!RO2T/UR21=0.0
+!WR_CO2/WC_ORA2=0.0
!
-!RO2T/URG2=0.0
+!WR_CO2/WC_MO2=0.0
!
-!RO2T/UR26=0.0
+!WR_CO2/WC_OP1=0.0
!
-!RO2T/RPG2=0.0
+!WR_CO2/WC_ASO3=0.0
!
-!RO2T/RP18=0.0
+!WR_CO2/WC_ASO4=0.0
!
-!RO2T/RPG3=0.0
+!WR_CO2/WC_ASO5=0.0
!
-!RO2T/URG4=0.0
+!WR_CO2/WC_AHSO5=0.0
!
-!RO2T/UR8=0.0
+!WR_CO2/WC_AHMS=0.0
!
-!RO2T/UR17=0.0
+!WR_CO2/WR_O3=0.0
!
-!RO2T/UR7=0.0
+!WR_CO2/WR_H2O2=0.0
!
-!RO2T/RPR3=+K312*<OH>+K313*<NO3>
- PJAC(:,85,57)=+TPK%K312(:)*PCONC(:,15)+TPK%K313(:)*PCONC(:,8)
+!WR_CO2/WR_NO=0.0
!
-!RO2T/URG6=0.0
+!WR_CO2/WR_NO2=0.0
!
-!RO2T/UR22=0.0
+!WR_CO2/WR_NO3=0.0
!
-!RO2T/URG7=0.0
+!WR_CO2/WR_N2O5=0.0
!
-!RO2T/RPR4=0.0
+!WR_CO2/WR_HONO=0.0
!
-!RO2T/RPR7=0.0
+!WR_CO2/WR_HNO3=0.0
!
-!RO2T/RPG7=0.0
+!WR_CO2/WR_HNO4=0.0
!
-!RO2T/URG8=0.0
+!WR_CO2/WR_NH3=0.0
!
-!RO2T/UR19=0.0
+!WR_CO2/WR_OH=+KR20*<WR_ORA1>
+ PJAC(:,79,77)=+TPK%KR20(:)*PCONC(:,83)
!
-!RO2T/URG9=0.0
+!WR_CO2/WR_HO2=0.0
!
-!RO2T/AP7=0.0
+!WR_CO2/WR_CO2=-KTR33
+ PJAC(:,79,79)=-TPK%KTR33(:)
!
-!RO2T/URG10=0.0
+!WR_CO2/WR_SO2=0.0
!
-!RO2T/RPR1=+K304*<OH>+K307*<NO3>+K308
- PJAC(:,85,69)=+TPK%K304(:)*PCONC(:,15)+TPK%K307(:)*PCONC(:,8)+TPK%K308(:)
+!WR_CO2/WR_SULF=0.0
!
-!RO2T/RPR5=0.0
+!WR_CO2/WR_HCHO=0.0
!
-!RO2T/RPR8=+K324*<OH>+K327*<NO3>+K329+K330
- PJAC(:,85,71)=+TPK%K324(:)*PCONC(:,15)+TPK%K327(:)*PCONC(:,8)+TPK%K329(:)+TPK%&
-&K330(:)
+!WR_CO2/WR_ORA1=+KR20*<WR_OH>
+ PJAC(:,79,83)=+TPK%KR20(:)*PCONC(:,77)
!
-!RO2T/RP10=0.0
+!WR_CO2/WR_ORA2=0.0
!
-!RO2T/RP11=0.0
+!WR_CO2/WR_MO2=0.0
!
-!RO2T/RP16=+K305*<OH>+K338*<NO3>
- PJAC(:,85,74)=+TPK%K305(:)*PCONC(:,15)+TPK%K338(:)*PCONC(:,8)
+!WR_CO2/WR_OP1=0.0
!
-!RO2T/RPRL=0.0
+!WR_CO2/WR_ASO3=0.0
!
-!RO2T/APAN=+1.0000000*K139
- PJAC(:,85,76)=+1.0000000*TPK%K139(:)
+!WR_CO2/WR_ASO4=0.0
!
-!RO2T/PAN1=+K135
- PJAC(:,85,77)=+TPK%K135(:)
+!WR_CO2/WR_ASO5=0.0
!
-!RO2T/PAN2=+K136
- PJAC(:,85,78)=+TPK%K136(:)
+!WR_CO2/WR_AHSO5=0.0
!
-!RO2T/PAN3=+K137
- PJAC(:,85,79)=+TPK%K137(:)
+!WR_CO2/WR_AHMS=0.0
!
-!RO2T/PAN4=+K141
- PJAC(:,85,80)=+TPK%K141(:)
+!WR_SO2/O3=0.0
!
-!RO2T/PAN6=+K140
- PJAC(:,85,81)=+TPK%K140(:)
+!WR_SO2/H2O2=0.0
!
-!RO2T/PAN7=+K343
- PJAC(:,85,82)=+TPK%K343(:)
+!WR_SO2/NO=0.0
!
-!RO2T/PAN8=+K317
- PJAC(:,85,83)=+TPK%K317(:)
+!WR_SO2/NO2=0.0
!
-!RO2T/PN10=+K138
- PJAC(:,85,84)=+TPK%K138(:)
+!WR_SO2/NO3=0.0
!
-!RO2T/RO2T=-K094*<HO2>-K095*<NO>+K096*<RO2T>+K096*<RO2T>-K096*<RO2T>-K096*<RO2T
-!>-K096*<RO2T>-K096*<RO2T>+K111*<RO21>-K111*<RO21>+K114*<RO22>-K114*<RO22>+K117
-!*<RO23>-K117*<RO23>+K120*<RO24>-K120*<RO24>+K123*<RO25>-K123*<RO25>+2.*K143*<R
-!O26>-K143*<RO26>+2.*K145*<RO27>-K145*<RO27>+2.*K149*<RO28>-K149*<RO28>+K151*<R
-!O29>-K151*<RO29>+K154*<RO210>-K154*<RO210>+K157*<RO211>-K157*<RO211>+K160*<RO2
-!12>-K160*<RO212>+2.*K163*<RO213>-K163*<RO213>+2.*K167*<RO239>-K167*<RO239>+2.*
-!K169*<RO214>-K169*<RO214>+K172*<RO215>-K172*<RO215>+2.*K175*<RO216>-K175*<RO21
-!6>+K178*<RO217>-K178*<RO217>+K181*<RO218>-K181*<RO218>+K184*<RO219>-K184*<RO21
-!9>+2.*K187*<RO220>-K187*<RO220>+K190*<RO221>-K190*<RO221>+K193*<RO222>-K193*<R
-!O222>+K196*<RO223>-K196*<RO223>+K199*<RO224>-K199*<RO224>+K202*<RO225>-K202*<R
-!O225>+2.*K205*<RO226>-K205*<RO226>+K208*<RO227>-K208*<RO227>+K211*<RO228>-K211
-!*<RO228>+2.*K214*<RO229>-K214*<RO229>+2.*K217*<RO240>-K217*<RO240>+2.*K219*<RO
-!230>-K219*<RO230>+K222*<RO231>-K222*<RO231>+2.*K225*<RO232>-K225*<RO232>+K228*
-!<RO241>-K228*<RO241>+K232*<RO233>-K232*<RO233>+K235*<RO242>-K235*<RO242>+K239*
-!<RO234>-K239*<RO234>+K242*<RO243>-K242*<RO243>+K246*<RO235>-K246*<RO235>+K249*
-!<RO244>-K249*<RO244>+K253*<RO236>-K253*<RO236>+K256*<RO245>-K256*<RO245>+K260*
-!<RO237>-K260*<RO237>+K263*<RO246>-K263*<RO246>+K267*<RO238>-K267*<RO238>+K270*
-!<RO247>-K270*<RO247>+2.*K280*<RO248>-K280*<RO248>+K286*<RO249>-K286*<RO249>+2.
-!*K290*<RO250>-K290*<RO250>-K293*<RO251>-K296*<RO252>+K299*<RO253>-K299*<RO253>
-!+K302*<RO254>-K302*<RO254>+2.*K311*<RO255>-K311*<RO255>+K319*<RO256>-K319*<RO2
-!56>+2.*K333*<RO257>-K333*<RO257>+K342*<RO258>-K342*<RO258>
- PJAC(:,85,85)=-TPK%K094(:)*PCONC(:,10)-TPK%K095(:)*PCONC(:,1)+TPK%K096(:)*PCON&
-&C(:,85)+TPK%K096(:)*PCONC(:,85)-TPK%K096(:)*PCONC(:,85)-TPK%K096(:)*PCONC(:,85&
-&)-TPK%K096(:)*PCONC(:,85)-TPK%K096(:)*PCONC(:,85)+TPK%K111(:)*PCONC(:,86)-TPK%&
-&K111(:)*PCONC(:,86)+TPK%K114(:)*TPK%RO22(:)-TPK%K114(:)*TPK%RO22(:)+TPK%K117(:&
-&)*TPK%RO23(:)-TPK%K117(:)*TPK%RO23(:)+TPK%K120(:)*TPK%RO24(:)-TPK%K120(:)*TPK%&
-&RO24(:)+TPK%K123(:)*PCONC(:,87)-TPK%K123(:)*PCONC(:,87)+2.*TPK%K143(:)*TPK%RO2&
-&6(:)-TPK%K143(:)*TPK%RO26(:)+2.*TPK%K145(:)*TPK%RO27(:)-TPK%K145(:)*TPK%RO27(:&
-&)+2.*TPK%K149(:)*TPK%RO28(:)-TPK%K149(:)*TPK%RO28(:)+TPK%K151(:)*TPK%RO29(:)-T&
-&PK%K151(:)*TPK%RO29(:)+TPK%K154(:)*TPK%RO210(:)-TPK%K154(:)*TPK%RO210(:)+TPK%K&
-&157(:)*TPK%RO211(:)-TPK%K157(:)*TPK%RO211(:)+TPK%K160(:)*TPK%RO212(:)-TPK%K160&
-&(:)*TPK%RO212(:)+2.*TPK%K163(:)*TPK%RO213(:)-TPK%K163(:)*TPK%RO213(:)+2.*TPK%K&
-&167(:)*TPK%RO239(:)-TPK%K167(:)*TPK%RO239(:)+2.*TPK%K169(:)*TPK%RO214(:)-TPK%K&
-&169(:)*TPK%RO214(:)+TPK%K172(:)*TPK%RO215(:)-TPK%K172(:)*TPK%RO215(:)+2.*TPK%K&
-&175(:)*TPK%RO216(:)-TPK%K175(:)*TPK%RO216(:)+TPK%K178(:)*TPK%RO217(:)-TPK%K178&
-&(:)*TPK%RO217(:)+TPK%K181(:)*TPK%RO218(:)-TPK%K181(:)*TPK%RO218(:)+TPK%K184(:)&
-&*TPK%RO219(:)-TPK%K184(:)*TPK%RO219(:)+2.*TPK%K187(:)*TPK%RO220(:)-TPK%K187(:)&
-&*TPK%RO220(:)+TPK%K190(:)*TPK%RO221(:)-TPK%K190(:)*TPK%RO221(:)+TPK%K193(:)*TP&
-&K%RO222(:)-TPK%K193(:)*TPK%RO222(:)+TPK%K196(:)*TPK%RO223(:)-TPK%K196(:)*TPK%R&
-&O223(:)+TPK%K199(:)*TPK%RO224(:)-TPK%K199(:)*TPK%RO224(:)+TPK%K202(:)*TPK%RO22&
-&5(:)-TPK%K202(:)*TPK%RO225(:)+2.*TPK%K205(:)*TPK%RO226(:)-TPK%K205(:)*TPK%RO22&
-&6(:)+TPK%K208(:)*TPK%RO227(:)-TPK%K208(:)*TPK%RO227(:)+TPK%K211(:)*TPK%RO228(:&
-&)-TPK%K211(:)*TPK%RO228(:)+2.*TPK%K214(:)*TPK%RO229(:)-TPK%K214(:)*TPK%RO229(:&
-&)+2.*TPK%K217(:)*TPK%RO240(:)-TPK%K217(:)*TPK%RO240(:)+2.*TPK%K219(:)*TPK%RO23&
-&0(:)-TPK%K219(:)*TPK%RO230(:)+TPK%K222(:)*TPK%RO231(:)-TPK%K222(:)*TPK%RO231(:&
-&)+2.*TPK%K225(:)*TPK%RO232(:)-TPK%K225(:)*TPK%RO232(:)+TPK%K228(:)*TPK%RO241(:&
-&)-TPK%K228(:)*TPK%RO241(:)+TPK%K232(:)*TPK%RO233(:)-TPK%K232(:)*TPK%RO233(:)+T&
-&PK%K235(:)*TPK%RO242(:)-TPK%K235(:)*TPK%RO242(:)+TPK%K239(:)*TPK%RO234(:)-TPK%&
-&K239(:)*TPK%RO234(:)+TPK%K242(:)*TPK%RO243(:)-TPK%K242(:)*TPK%RO243(:)+TPK%K24&
-&6(:)*TPK%RO235(:)-TPK%K246(:)*TPK%RO235(:)+TPK%K249(:)*TPK%RO244(:)-TPK%K249(:&
-&)*TPK%RO244(:)+TPK%K253(:)*TPK%RO236(:)-TPK%K253(:)*TPK%RO236(:)+TPK%K256(:)*T&
-&PK%RO245(:)-TPK%K256(:)*TPK%RO245(:)+TPK%K260(:)*TPK%RO237(:)-TPK%K260(:)*TPK%&
-&RO237(:)+TPK%K263(:)*TPK%RO246(:)-TPK%K263(:)*TPK%RO246(:)+TPK%K267(:)*TPK%RO2&
-&38(:)-TPK%K267(:)*TPK%RO238(:)+TPK%K270(:)*TPK%RO247(:)-TPK%K270(:)*TPK%RO247(&
-&:)+2.*TPK%K280(:)*TPK%RO248(:)-TPK%K280(:)*TPK%RO248(:)+TPK%K286(:)*TPK%RO249(&
-&:)-TPK%K286(:)*TPK%RO249(:)+2.*TPK%K290(:)*TPK%RO250(:)-TPK%K290(:)*TPK%RO250(&
-&:)-TPK%K293(:)*TPK%RO251(:)-TPK%K296(:)*TPK%RO252(:)+TPK%K299(:)*TPK%RO253(:)-&
-&TPK%K299(:)*TPK%RO253(:)+TPK%K302(:)*TPK%RO254(:)-TPK%K302(:)*TPK%RO254(:)+2.*&
-&TPK%K311(:)*TPK%RO255(:)-TPK%K311(:)*TPK%RO255(:)+TPK%K319(:)*TPK%RO256(:)-TPK&
-&%K319(:)*TPK%RO256(:)+2.*TPK%K333(:)*TPK%RO257(:)-TPK%K333(:)*TPK%RO257(:)+TPK&
-&%K342(:)*TPK%RO258(:)-TPK%K342(:)*TPK%RO258(:)
-!
-!RO2T/RO21=+K111*<RO2T>-K111*<RO2T>
- PJAC(:,85,86)=+TPK%K111(:)*PCONC(:,85)-TPK%K111(:)*PCONC(:,85)
-!
-!RO2T/RO25=+K123*<RO2T>-K123*<RO2T>
- PJAC(:,85,87)=+TPK%K123(:)*PCONC(:,85)-TPK%K123(:)*PCONC(:,85)
+!WR_SO2/N2O5=0.0
!
-RETURN
-END SUBROUTINE SUBJ16
+!WR_SO2/HONO=0.0
!
-SUBROUTINE SUBJ17
+!WR_SO2/HNO3=0.0
!
-!Indices 86 a 87
+!WR_SO2/HNO4=0.0
!
+!WR_SO2/NH3=0.0
!
-!RO21/NO=-K110*<RO21>+K147*<RO28>
- PJAC(:,86,1)=-TPK%K110(:)*PCONC(:,86)+TPK%K147(:)*TPK%RO28(:)
+!WR_SO2/SO2=+KTR14
+ PJAC(:,80,11)=+TPK%KTR14(:)
!
-!RO21/NO2=0.0
+!WR_SO2/SULF=0.0
!
-!RO21/O3=0.0
+!WR_SO2/CO=0.0
!
-!RO21/HONO=0.0
+!WR_SO2/OH=0.0
!
-!RO21/HNO3=0.0
+!WR_SO2/HO2=0.0
!
-!RO21/HNO4=0.0
+!WR_SO2/CH4=0.0
!
-!RO21/N2O5=0.0
+!WR_SO2/ETH=0.0
!
-!RO21/NO3=0.0
+!WR_SO2/ALKA=0.0
!
-!RO21/NH3=0.0
+!WR_SO2/ALKE=0.0
!
-!RO21/HO2=-K112*<RO21>
- PJAC(:,86,10)=-TPK%K112(:)*PCONC(:,86)
+!WR_SO2/BIO=0.0
!
-!RO21/CO=0.0
+!WR_SO2/ARO=0.0
!
-!RO21/H2O2=0.0
+!WR_SO2/HCHO=0.0
!
-!RO21/SO2=0.0
+!WR_SO2/ALD=0.0
!
-!RO21/H2SO4=0.0
+!WR_SO2/KET=0.0
!
-!RO21/OH=+K043*<CH4>
- PJAC(:,86,15)=+TPK%K043(:)*TPK%CH4(:)
+!WR_SO2/CARBO=0.0
!
-!RO21/ETHE=+0.6*K052*<O>
- PJAC(:,86,16)=+0.6*TPK%K052(:)*TPK%O(:)
+!WR_SO2/ONIT=0.0
!
-!RO21/OLEL=0.0
+!WR_SO2/PAN=0.0
!
-!RO21/OLEH=0.0
+!WR_SO2/OP1=0.0
!
-!RO21/ALKL=0.0
+!WR_SO2/OP2=0.0
!
-!RO21/ALKM=0.0
+!WR_SO2/ORA1=0.0
!
-!RO21/ALKH=0.0
+!WR_SO2/ORA2=0.0
!
-!RO21/AROH=0.0
+!WR_SO2/MO2=0.0
!
-!RO21/AROL=0.0
+!WR_SO2/ALKAP=0.0
!
-!RO21/AROO=0.0
+!WR_SO2/ALKEP=0.0
!
-!RO21/ARAL=0.0
+!WR_SO2/BIOP=0.0
!
-!RO21/ARAC=0.0
+!WR_SO2/PHO=0.0
!
-!RO21/PAH=0.0
+!WR_SO2/ADD=0.0
!
-!RO21/HCHO=0.0
+!WR_SO2/AROP=0.0
!
-!RO21/ALD2=0.0
+!WR_SO2/CARBOP=0.0
!
-!RO21/KETL=0.0
+!WR_SO2/OLN=0.0
!
-!RO21/KETH=0.0
+!WR_SO2/XO2=0.0
!
-!RO21/MEOH=0.0
+!WR_SO2/WC_O3=0.0
!
-!RO21/ETOH=0.0
+!WR_SO2/WC_H2O2=0.0
!
-!RO21/ALCH=0.0
+!WR_SO2/WC_NO=0.0
!
-!RO21/ISOP=0.0
+!WR_SO2/WC_NO2=0.0
!
-!RO21/BIOL=0.0
+!WR_SO2/WC_NO3=0.0
!
-!RO21/BIOH=0.0
+!WR_SO2/WC_N2O5=0.0
!
-!RO21/MTBE=0.0
+!WR_SO2/WC_HONO=0.0
!
-!RO21/MVK=0.0
+!WR_SO2/WC_HNO3=0.0
!
-!RO21/MCR=0.0
+!WR_SO2/WC_HNO4=0.0
!
-!RO21/MGLY=0.0
+!WR_SO2/WC_NH3=0.0
!
-!RO21/GLY=0.0
+!WR_SO2/WC_OH=0.0
!
-!RO21/ORA1=0.0
+!WR_SO2/WC_HO2=0.0
!
-!RO21/ORA2=0.0
+!WR_SO2/WC_CO2=0.0
!
-!RO21/ACID=0.0
+!WR_SO2/WC_SO2=0.0
!
-!RO21/UR28=0.0
+!WR_SO2/WC_SULF=0.0
!
-!RO21/UR21=0.0
+!WR_SO2/WC_HCHO=0.0
!
-!RO21/URG2=0.0
+!WR_SO2/WC_ORA1=0.0
!
-!RO21/UR26=0.0
+!WR_SO2/WC_ORA2=0.0
!
-!RO21/RPG2=0.0
+!WR_SO2/WC_MO2=0.0
!
-!RO21/RP18=0.0
+!WR_SO2/WC_OP1=0.0
!
-!RO21/RPG3=0.0
+!WR_SO2/WC_ASO3=0.0
!
-!RO21/URG4=0.0
+!WR_SO2/WC_ASO4=0.0
!
-!RO21/UR8=0.0
+!WR_SO2/WC_ASO5=0.0
!
-!RO21/UR17=0.0
+!WR_SO2/WC_AHSO5=0.0
!
-!RO21/UR7=0.0
+!WR_SO2/WC_AHMS=0.0
!
-!RO21/RPR3=0.0
+!WR_SO2/WR_O3=-KR29*<WR_SO2>
+ PJAC(:,80,67)=-TPK%KR29(:)*PCONC(:,80)
!
-!RO21/URG6=0.0
+!WR_SO2/WR_H2O2=-KR30*<WR_SO2>
+ PJAC(:,80,68)=-TPK%KR30(:)*PCONC(:,80)
!
-!RO21/UR22=0.0
+!WR_SO2/WR_NO=0.0
!
-!RO21/URG7=0.0
+!WR_SO2/WR_NO2=0.0
!
-!RO21/RPR4=0.0
+!WR_SO2/WR_NO3=-KR16*<WR_SO2>
+ PJAC(:,80,71)=-TPK%KR16(:)*PCONC(:,80)
!
-!RO21/RPR7=0.0
+!WR_SO2/WR_N2O5=0.0
!
-!RO21/RPG7=0.0
+!WR_SO2/WR_HONO=0.0
!
-!RO21/URG8=0.0
+!WR_SO2/WR_HNO3=0.0
!
-!RO21/UR19=0.0
+!WR_SO2/WR_HNO4=-KR12*<WR_SO2>
+ PJAC(:,80,75)=-TPK%KR12(:)*PCONC(:,80)
!
-!RO21/URG9=0.0
+!WR_SO2/WR_NH3=0.0
!
-!RO21/AP7=0.0
+!WR_SO2/WR_OH=-KR7*<WR_SO2>+KR23*<WR_AHMS>
+ PJAC(:,80,77)=-TPK%KR7(:)*PCONC(:,80)+TPK%KR23(:)*PCONC(:,91)
!
-!RO21/URG10=0.0
+!WR_SO2/WR_HO2=0.0
!
-!RO21/RPR1=0.0
+!WR_SO2/WR_CO2=0.0
!
-!RO21/RPR5=0.0
+!WR_SO2/WR_SO2=-KTR34-KR7*<WR_OH>-KR12*<WR_HNO4>-KR16*<WR_NO3>-KR18*<WR_MO2>-KR
+!21*<WR_HCHO>-KR27*<WR_AHSO5>-KR29*<WR_O3>-KR30*<WR_H2O2>
+ PJAC(:,80,80)=-TPK%KTR34(:)-TPK%KR7(:)*PCONC(:,77)-TPK%KR12(:)*PCONC(:,75)-TPK&
+&%KR16(:)*PCONC(:,71)-TPK%KR18(:)*PCONC(:,85)-TPK%KR21(:)*PCONC(:,82)-TPK%KR27(&
+&:)*PCONC(:,90)-TPK%KR29(:)*PCONC(:,67)-TPK%KR30(:)*PCONC(:,68)
!
-!RO21/RPR8=0.0
+!WR_SO2/WR_SULF=0.0
!
-!RO21/RP10=0.0
+!WR_SO2/WR_HCHO=-KR21*<WR_SO2>
+ PJAC(:,80,82)=-TPK%KR21(:)*PCONC(:,80)
!
-!RO21/RP11=0.0
+!WR_SO2/WR_ORA1=0.0
!
-!RO21/RP16=0.0
+!WR_SO2/WR_ORA2=0.0
!
-!RO21/RPRL=0.0
+!WR_SO2/WR_MO2=-KR18*<WR_SO2>
+ PJAC(:,80,85)=-TPK%KR18(:)*PCONC(:,80)
!
-!RO21/APAN=0.0
+!WR_SO2/WR_OP1=0.0
!
-!RO21/PAN1=0.0
+!WR_SO2/WR_ASO3=0.0
!
-!RO21/PAN2=0.0
+!WR_SO2/WR_ASO4=0.0
!
-!RO21/PAN3=0.0
+!WR_SO2/WR_ASO5=0.0
!
-!RO21/PAN4=0.0
+!WR_SO2/WR_AHSO5=-KR27*<WR_SO2>
+ PJAC(:,80,90)=-TPK%KR27(:)*PCONC(:,80)
!
-!RO21/PAN6=0.0
+!WR_SO2/WR_AHMS=+KR22+KR23*<WR_OH>
+ PJAC(:,80,91)=+TPK%KR22(:)+TPK%KR23(:)*PCONC(:,77)
!
-!RO21/PAN7=0.0
+RETURN
+END SUBROUTINE SUBJ15
!
-!RO21/PAN8=0.0
+SUBROUTINE SUBJ16
!
-!RO21/PN10=0.0
+!Indices 81 a 85
!
-!RO21/RO2T=-K111*<RO21>+K149*<RO28>
- PJAC(:,86,85)=-TPK%K111(:)*PCONC(:,86)+TPK%K149(:)*TPK%RO28(:)
!
-!RO21/RO21=-K110*<NO>-K111*<RO2T>-K112*<HO2>
- PJAC(:,86,86)=-TPK%K110(:)*PCONC(:,1)-TPK%K111(:)*PCONC(:,85)-TPK%K112(:)*PCON&
-&C(:,10)
+!WR_SULF/O3=0.0
!
-!RO21/RO25=0.0
+!WR_SULF/H2O2=0.0
!
-!RO25/NO=-K122*<RO25>+K125*<RO26>
- PJAC(:,87,1)=-TPK%K122(:)*PCONC(:,87)+TPK%K125(:)*TPK%RO26(:)
+!WR_SULF/NO=0.0
!
-!RO25/NO2=0.0
+!WR_SULF/NO2=0.0
!
-!RO25/O3=+0.28*K056*<OLEL>
- PJAC(:,87,3)=+0.28*TPK%K056(:)*PCONC(:,17)
+!WR_SULF/NO3=0.0
!
-!RO25/HONO=0.0
+!WR_SULF/N2O5=0.0
!
-!RO25/HNO3=0.0
+!WR_SULF/HONO=0.0
!
-!RO25/HNO4=0.0
+!WR_SULF/HNO3=0.0
!
-!RO25/N2O5=0.0
+!WR_SULF/HNO4=0.0
!
-!RO25/NO3=0.0
+!WR_SULF/NH3=0.0
!
-!RO25/NH3=0.0
+!WR_SULF/SO2=0.0
!
-!RO25/HO2=-K124*<RO25>
- PJAC(:,87,10)=-TPK%K124(:)*PCONC(:,87)
+!WR_SULF/SULF=+KTR15
+ PJAC(:,81,12)=+TPK%KTR15(:)
!
-!RO25/CO=0.0
+!WR_SULF/CO=0.0
!
-!RO25/H2O2=0.0
+!WR_SULF/OH=0.0
!
-!RO25/SO2=0.0
+!WR_SULF/HO2=0.0
!
-!RO25/H2SO4=0.0
+!WR_SULF/CH4=0.0
!
-!RO25/OH=+K058*<ALKL>
- PJAC(:,87,15)=+TPK%K058(:)*PCONC(:,19)
+!WR_SULF/ETH=0.0
!
-!RO25/ETHE=0.0
+!WR_SULF/ALKA=0.0
!
-!RO25/OLEL=+0.28*K056*<O3>+0.1*K057*<O>
- PJAC(:,87,17)=+0.28*TPK%K056(:)*PCONC(:,3)+0.1*TPK%K057(:)*TPK%O(:)
+!WR_SULF/ALKE=0.0
!
-!RO25/OLEH=0.0
+!WR_SULF/BIO=0.0
!
-!RO25/ALKL=+K058*<OH>
- PJAC(:,87,19)=+TPK%K058(:)*PCONC(:,15)
+!WR_SULF/ARO=0.0
!
-!RO25/ALKM=0.0
+!WR_SULF/HCHO=0.0
!
-!RO25/ALKH=0.0
+!WR_SULF/ALD=0.0
!
-!RO25/AROH=0.0
+!WR_SULF/KET=0.0
!
-!RO25/AROL=0.0
+!WR_SULF/CARBO=0.0
!
-!RO25/AROO=0.0
+!WR_SULF/ONIT=0.0
!
-!RO25/ARAL=0.0
+!WR_SULF/PAN=0.0
!
-!RO25/ARAC=0.0
+!WR_SULF/OP1=0.0
!
-!RO25/PAH=0.0
+!WR_SULF/OP2=0.0
!
-!RO25/HCHO=0.0
+!WR_SULF/ORA1=0.0
!
-!RO25/ALD2=+K059
- PJAC(:,87,29)=+TPK%K059(:)
+!WR_SULF/ORA2=0.0
!
-!RO25/KETL=+K063
- PJAC(:,87,30)=+TPK%K063(:)
+!WR_SULF/MO2=0.0
!
-!RO25/KETH=+K071
- PJAC(:,87,31)=+TPK%K071(:)
+!WR_SULF/ALKAP=0.0
!
-!RO25/MEOH=0.0
+!WR_SULF/ALKEP=0.0
!
-!RO25/ETOH=0.0
+!WR_SULF/BIOP=0.0
!
-!RO25/ALCH=0.0
+!WR_SULF/PHO=0.0
!
-!RO25/ISOP=0.0
+!WR_SULF/ADD=0.0
!
-!RO25/BIOL=0.0
+!WR_SULF/AROP=0.0
!
-!RO25/BIOH=0.0
+!WR_SULF/CARBOP=0.0
!
-!RO25/MTBE=0.0
+!WR_SULF/OLN=0.0
!
-!RO25/MVK=0.0
+!WR_SULF/XO2=0.0
!
-!RO25/MCR=0.0
+!WR_SULF/WC_O3=0.0
!
-!RO25/MGLY=0.0
+!WR_SULF/WC_H2O2=0.0
!
-!RO25/GLY=0.0
+!WR_SULF/WC_NO=0.0
!
-!RO25/ORA1=0.0
+!WR_SULF/WC_NO2=0.0
!
-!RO25/ORA2=0.0
+!WR_SULF/WC_NO3=0.0
!
-!RO25/ACID=0.0
+!WR_SULF/WC_N2O5=0.0
!
-!RO25/UR28=0.0
+!WR_SULF/WC_HONO=0.0
!
-!RO25/UR21=0.0
+!WR_SULF/WC_HNO3=0.0
!
-!RO25/URG2=0.0
+!WR_SULF/WC_HNO4=0.0
!
-!RO25/UR26=0.0
+!WR_SULF/WC_NH3=0.0
!
-!RO25/RPG2=0.0
+!WR_SULF/WC_OH=0.0
!
-!RO25/RP18=0.0
+!WR_SULF/WC_HO2=0.0
!
-!RO25/RPG3=0.0
+!WR_SULF/WC_CO2=0.0
!
-!RO25/URG4=0.0
+!WR_SULF/WC_SO2=0.0
!
-!RO25/UR8=0.0
+!WR_SULF/WC_SULF=0.0
!
-!RO25/UR17=0.0
+!WR_SULF/WC_HCHO=0.0
!
-!RO25/UR7=0.0
+!WR_SULF/WC_ORA1=0.0
!
-!RO25/RPR3=0.0
+!WR_SULF/WC_ORA2=0.0
!
-!RO25/URG6=0.0
+!WR_SULF/WC_MO2=0.0
!
-!RO25/UR22=0.0
+!WR_SULF/WC_OP1=0.0
!
-!RO25/URG7=0.0
+!WR_SULF/WC_ASO3=0.0
!
-!RO25/RPR4=0.0
+!WR_SULF/WC_ASO4=0.0
!
-!RO25/RPR7=0.0
+!WR_SULF/WC_ASO5=0.0
!
-!RO25/RPG7=0.0
+!WR_SULF/WC_AHSO5=0.0
!
-!RO25/URG8=0.0
+!WR_SULF/WC_AHMS=0.0
!
-!RO25/UR19=0.0
+!WR_SULF/WR_O3=+KR29*<WR_SO2>
+ PJAC(:,81,67)=+TPK%KR29(:)*PCONC(:,80)
!
-!RO25/URG9=0.0
+!WR_SULF/WR_H2O2=+KR30*<WR_SO2>
+ PJAC(:,81,68)=+TPK%KR30(:)*PCONC(:,80)
!
-!RO25/AP7=0.0
+!WR_SULF/WR_NO=0.0
!
-!RO25/URG10=0.0
+!WR_SULF/WR_NO2=0.0
!
-!RO25/RPR1=0.0
+!WR_SULF/WR_NO3=-KR15*<WR_SULF>
+ PJAC(:,81,71)=-TPK%KR15(:)*PCONC(:,81)
!
-!RO25/RPR5=0.0
+!WR_SULF/WR_N2O5=0.0
!
-!RO25/RPR8=0.0
+!WR_SULF/WR_HONO=0.0
!
-!RO25/RP10=0.0
+!WR_SULF/WR_HNO3=0.0
!
-!RO25/RP11=0.0
+!WR_SULF/WR_HNO4=+KR12*<WR_SO2>
+ PJAC(:,81,75)=+TPK%KR12(:)*PCONC(:,80)
!
-!RO25/RP16=0.0
+!WR_SULF/WR_NH3=0.0
!
-!RO25/RPRL=0.0
+!WR_SULF/WR_OH=0.0
!
-!RO25/APAN=0.0
+!WR_SULF/WR_HO2=0.0
!
-!RO25/PAN1=0.0
+!WR_SULF/WR_CO2=0.0
!
-!RO25/PAN2=0.0
+!WR_SULF/WR_SO2=+KR12*<WR_HNO4>+2.00*KR27*<WR_AHSO5>+KR29*<WR_O3>+KR30*<WR_H2O2
+!>
+ PJAC(:,81,80)=+TPK%KR12(:)*PCONC(:,75)+2.00*TPK%KR27(:)*PCONC(:,90)+TPK%KR29(:&
+&)*PCONC(:,67)+TPK%KR30(:)*PCONC(:,68)
!
-!RO25/PAN3=0.0
+!WR_SULF/WR_SULF=-KTR35-KR15*<WR_NO3>
+ PJAC(:,81,81)=-TPK%KTR35(:)-TPK%KR15(:)*PCONC(:,71)
!
-!RO25/PAN4=0.0
+!WR_SULF/WR_HCHO=0.0
!
-!RO25/PAN6=0.0
+!WR_SULF/WR_ORA1=0.0
!
-!RO25/PAN7=0.0
+!WR_SULF/WR_ORA2=0.0
!
-!RO25/PAN8=0.0
+!WR_SULF/WR_MO2=0.0
!
-!RO25/PN10=0.0
+!WR_SULF/WR_OP1=0.0
!
-!RO25/RO2T=-K123*<RO25>+K143*<RO26>
- PJAC(:,87,85)=-TPK%K123(:)*PCONC(:,87)+TPK%K143(:)*TPK%RO26(:)
+!WR_SULF/WR_ASO3=0.0
!
-!RO25/RO21=0.0
+!WR_SULF/WR_ASO4=+KR28
+ PJAC(:,81,88)=+TPK%KR28(:)
!
-!RO25/RO25=-K122*<NO>-K123*<RO2T>-K124*<HO2>
- PJAC(:,87,87)=-TPK%K122(:)*PCONC(:,1)-TPK%K123(:)*PCONC(:,85)-TPK%K124(:)*PCON&
-&C(:,10)
+!WR_SULF/WR_ASO5=0.0
!
-RETURN
-END SUBROUTINE SUBJ17
+!WR_SULF/WR_AHSO5=+2.00*KR27*<WR_SO2>
+ PJAC(:,81,90)=+2.00*TPK%KR27(:)*PCONC(:,80)
!
-END SUBROUTINE CH_JAC_GAZ
+!WR_SULF/WR_AHMS=0.0
!
+!WR_HCHO/O3=0.0
!
-!========================================================================
+!WR_HCHO/H2O2=0.0
!
-!! ##################
- MODULE MODI_CH_JAC_AQ
-!! ##################
-INTERFACE
-SUBROUTINE CH_JAC_AQ(PTIME,PCONC,PJAC,KMI,KVECNPT,KEQ)
-IMPLICIT NONE
-REAL, INTENT(IN) :: PTIME
-INTEGER, INTENT(IN) :: KVECNPT
-INTEGER, INTENT(IN) :: KEQ
-REAL, INTENT(IN), DIMENSION(KVECNPT,KEQ) :: PCONC
-REAL, INTENT(OUT), DIMENSION(KVECNPT,KEQ,KEQ) :: PJAC
-INTEGER, INTENT(IN) :: KMI
-END SUBROUTINE CH_JAC_AQ
-END INTERFACE
-END MODULE MODI_CH_JAC_AQ
+!WR_HCHO/NO=0.0
!
-!========================================================================
+!WR_HCHO/NO2=0.0
!
-!! ####################
- SUBROUTINE CH_JAC_AQ(PTIME,PCONC,PJAC,KMI,KVECNPT,KEQ)
-!! ####################
-!! This code has been created automatically by preprocessor m10,
-!! version: 9.7, copyright 1995-1999 by Meteo France/Universite Paul Sabatier.
-!! Please report all bugs to K. Suhre (Lab. d'Aerologie UPS/CNRS).
-!!*** *CH_JAC*
-!!
-!! PURPOSE
-!! -------
-! calculation of the JACOBIAN matrix
-!!
-!!** METHOD
-!! ------
-!! The Jacobian matrix J is calculated as defined by the chemical
-!! reaction mechanism.
-!! The reaction rates and other user-defined auxiliary variables are
-!! transfered in the TYPE(CCSTYPE) variable TPK%.
-!!
-!! REFERENCE
-!! ---------
-!! none
-!!
-!! AUTHOR
-!! ------
-!! Karsten Suhre (LA)
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 26/07/96
-!! Modified 05/05/98: Vectorization (Vincent Crassier & KS)
-!! Modified 31/10/03: New interface for better MesoNH compilation (D. Gazen)
-!!
-!!----------------------------------------------------------------------
-!!
-!! EXTERNAL
-!! --------
-!! none
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-USE MODD_CH_M9_SCHEME
-!!
-!! EXPLICIT ARGUMENTS
-!! ------------------
-IMPLICIT NONE
-REAL, INTENT(IN) :: PTIME
-INTEGER, INTENT(IN) :: KVECNPT
-INTEGER, INTENT(IN) :: KEQ
-REAL, INTENT(IN), DIMENSION(KVECNPT,KEQ) :: PCONC
-REAL, INTENT(OUT), DIMENSION(KVECNPT,KEQ,KEQ) :: PJAC
-INTEGER, INTENT(IN) :: KMI
+!WR_HCHO/NO3=0.0
!
-TYPE(CCSTYPE), POINTER :: TPK
-TPK=>TACCS(KMI)
+!WR_HCHO/N2O5=0.0
!
-! /BEGIN_CODE/
-TPK%OSD = ( +TPK%K016*PCONC(:,JP_O3) ) / &
- ( +TPK%K017*TPK%H2O+TPK%K018A*TPK%N2(:)+TPK%K018B*TPK%O2(:) )
-!
-TPK%O = ( +TPK%K001*PCONC(:,JP_NO2)+TPK%K014*PCONC(:,JP_NO3)+TPK%&
-&K015*PCONC(:,JP_O3)+TPK%K018A*TPK%OSD*TPK%N2(:)+TPK%K018B*TPK%OSD*TPK%O2(:) ) / &
-( +TPK%K002*TPK%O2(:)+TPK%K003*PCONC(:,JP_NO2)+TPK%K004*PCONC(:,JP_NO2)+TPK%K034*&
-PCONC(:,JP_O3)+TPK%K038*PCONC(:,JP_NO)+TPK%K052*PCONC(:,JP_ETHE)+&
-&TPK%K057*PCONC(:,JP_OLEL)+TPK%K067*PCONC(:,JP_ISOP)+TPK%K077*PCONC(:,&
-&JP_OLEH)+TPK%K087*PCONC(:,JP_BIOL)+TPK%K091*PCONC(:,JP_BIOH)+TPK%K283&
-&*PCONC(:,JP_MVK)+TPK%K284*PCONC(:,JP_MCR) )
-!
-TPK%RO225 = ( TPK%K085*PCONC(:,JP_BIOL)*PCONC(:,JP_NO3) ) / &
-( +TPK%K201*PCONC(:,JP_NO)+TPK%K202*PCONC(:,JP_RO2T)+TPK%K203*PCONC(:,JP_HO2))
-!
-TPK%RO228 = ( TPK%K089*PCONC(:,JP_BIOH)*PCONC(:,JP_NO3) ) / &
-( +TPK%K210*PCONC(:,JP_NO)+TPK%K211*PCONC(:,JP_RO2T)+TPK%K212*PCONC(:,JP_HO2))
-
+!WR_HCHO/HONO=0.0
!
-TPK%RO253 = ( +0.41*TPK%K282*PCONC(:,JP_MCR)*PCONC(:,JP_O3) ) / &
-( +TPK%K297*PCONC(:,JP_NO)+TPK%K298*PCONC(:,JP_HO2)+TPK%K299*PCONC(&
-&:,JP_RO2T) )
-!
-TPK%RO254 = ( +TPK%K140*PCONC(:,JP_PAN6)+TPK%K297*TPK%RO253*&
-&PCONC(:,JP_NO)+TPK%K298*TPK%RO253*PCONC(:,JP_HO2)+TPK%K299*&
-&TPK%RO253*PCONC(:,JP_RO2T) ) / &
-( +TPK%K131*PCONC(:,JP_NO2)+TPK%K300*PCONC(:,JP_NO)+TPK%K301*PCONC(&
-&:,JP_HO2)+TPK%K302*PCONC(:,JP_RO2T) )
-!
-TPK%RO213 = ( +0.271*TPK%K066*PCONC(:,JP_ISOP)*PCONC(:,JP_O3) ) / &
-( +TPK%K162*PCONC(:,JP_NO)+TPK%K163*PCONC(:,JP_RO2T)+TPK%K164*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO239 = ( +TPK%K137*PCONC(:,JP_PAN3)+TPK%K162*TPK%RO213*&
-&PCONC(:,JP_NO)+TPK%K163*TPK%RO213*PCONC(:,JP_RO2T)+TPK%K164*TPK%RO213*PCONC(:,JP_HO2) ) / &
-( +TPK%K128*PCONC(:,JP_NO2)+TPK%K165*PCONC(:,JP_NO)+TPK%K166*PCONC(&
-&:,JP_HO2)+TPK%K167*PCONC(:,JP_RO2T) )
-!
-TPK%RO248 = ( +TPK%K141*PCONC(:,JP_PAN4)+TPK%K274*PCONC(:,JP_MGLY)*P&
-&CONC(:,JP_OH)+TPK%K278*PCONC(:,JP_MGLY)*PCONC(:,JP_NO3) ) / &
-( +TPK%K129*PCONC(:,JP_NO2)+TPK%K277*PCONC(:,JP_NO)+TPK%K279*PCONC(&
-&:,JP_HO2)+TPK%K280*PCONC(:,JP_RO2T) )
-!
-TPK%RO249 = ( +TPK%K272*PCONC(:,JP_MVK)*PCONC(:,JP_OH) ) / &
-( +TPK%K285*PCONC(:,JP_NO)+TPK%K286*PCONC(:,JP_RO2T)+TPK%K287*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO250 = ( +0.3750353*TPK%K139*PCONC(:,JP_APAN)+TPK%CF46*TPK%K2&
-&73*PCONC(:,JP_MCR)*PCONC(:,JP_OH)+TPK%CF46*TPK%K275*PCONC(:,JP_MCR)*PCONC&
-&(:,JP_NO3) ) / &
-( +TPK%K130*PCONC(:,JP_NO2)+TPK%K288*PCONC(:,JP_NO)+TPK%K289*PCONC(&
-&:,JP_HO2)+TPK%K290*PCONC(:,JP_RO2T) )
-!
-TPK%RO214 = ( +0.095*TPK%K066*PCONC(:,JP_ISOP)*PCONC(:,JP_O3)+TPK%K1&
-&65*TPK%RO239*PCONC(:,JP_NO)+TPK%K167*TPK%RO239*PCONC(:,JP_R&
-&O2T)+TPK%K288*TPK%RO250*PCONC(:,JP_NO)+TPK%K290*TPK%RO250&
-&*PCONC(:,JP_RO2T) ) / &
-( +TPK%K168*PCONC(:,JP_NO)+TPK%K169*PCONC(:,JP_RO2T)+TPK%K170*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO251 = ( +TPK%CF47*TPK%K273*PCONC(:,JP_MCR)*PCONC(:,JP_OH) ) / &
-( +TPK%K291*PCONC(:,JP_NO)+TPK%K292*PCONC(:,JP_HO2)+TPK%K293*PCONC(&
-&:,JP_RO2T) )
-!
-TPK%RO252 = ( +TPK%CF47*TPK%K275*PCONC(:,JP_MCR)*PCONC(:,JP_NO3) ) /&
-( +TPK%K294*PCONC(:,JP_NO)+TPK%K295*PCONC(:,JP_HO2)+TPK%K296*PCONC(&
-&:,JP_RO2T) )
-!
-TPK%RO258 = ( +TPK%K138*PCONC(:,JP_PN10)+TPK%K305*PCONC(:,JP_RP16)*P&
-&CONC(:,JP_OH)+TPK%K338*PCONC(:,JP_RP16)*PCONC(:,JP_NO3) ) / &
-( +TPK%K134*PCONC(:,JP_NO2)+TPK%K340*PCONC(:,JP_NO)+TPK%K341*PCONC(&
-&:,JP_HO2)+TPK%K342*PCONC(:,JP_RO2T) )
-!
-TPK%RO255 = ( +TPK%K304*PCONC(:,JP_RPR1)*PCONC(:,JP_OH)+TPK%K307*PCO&
-&NC(:,JP_RPR1)*PCONC(:,JP_NO3)+TPK%K343*PCONC(:,JP_PAN7) ) / &
-( +TPK%K132*PCONC(:,JP_NO2)+TPK%K309*PCONC(:,JP_NO)+TPK%K310*PCONC(&
-&:,JP_HO2)+TPK%K311*PCONC(:,JP_RO2T) )
-!
-TPK%RO256 = ( +TPK%K312*PCONC(:,JP_RPR3)*PCONC(:,JP_OH)+TPK%K313*PCO&
-&NC(:,JP_RPR3)*PCONC(:,JP_NO3)+TPK%K317*PCONC(:,JP_PAN8) ) / &
-( +TPK%K315*PCONC(:,JP_NO)+TPK%K316*PCONC(:,JP_NO2)+TPK%K318*PCONC(&
-&:,JP_HO2)+TPK%K319*PCONC(:,JP_RO2T) )
-!
-TPK%RO257 = ( +0.6249651*TPK%K139*PCONC(:,JP_APAN)+TPK%K324*PCONC(:,&
-&JP_RPR8)*PCONC(:,JP_OH)+TPK%K327*PCONC(:,JP_RPR8)*PCONC(:,JP_NO3)+TPK%K3&
-&30*PCONC(:,JP_RPR8) ) / &
-( +TPK%K133*PCONC(:,JP_NO2)+TPK%K331*PCONC(:,JP_NO)+TPK%K332*PCONC(&
-&:,JP_HO2)+TPK%K333*PCONC(:,JP_RO2T) )
-!
-TPK%RO29 = ( +0.66*TPK%K064*PCONC(:,JP_ISOP)*PCONC(:,JP_OH)+TPK%K329&
-&*PCONC(:,JP_RPR8)+TPK%K331*TPK%RO257*PCONC(:,JP_NO)+TPK%K333*TPK%RO257*&
-PCONC(:,JP_RO2T) ) / &
-( +TPK%K150*PCONC(:,JP_NO)+TPK%K151*PCONC(:,JP_RO2T)+TPK%K152*PCONC&
-&(:,JP_HO2) )
-!
-!avoid division by zero in prodloss
-WHERE (PCONC(:,JP_NO2)>0.)
- TPK%RAD1 = ( +TPK%K072*PCONC(:,JP_AROO)*PCONC(:,JP_NO3) ) / &
- ( +TPK%K103*PCONC(:,JP_NO2) )
-!
- TPK%RAD8 = ( +TPK%K320*PCONC(:,JP_RPR4)*PCONC(:,JP_NO3) ) / &
- ( +TPK%K321*PCONC(:,JP_NO2) )
-ELSEWHERE
- TPK%RAD1 = 0.
- TPK%RAD8 = 0.
-ENDWHERE
+!WR_HCHO/HNO3=0.0
!
-TPK%RAD2 = ( +0.74*TPK%K073*PCONC(:,JP_AROO)*PCONC(:,JP_OH) ) / &
-( +TPK%K097+TPK%K104*PCONC(:,JP_NO2) )
-!
-TPK%RAD3 = ( +0.74*TPK%K079*PCONC(:,JP_AROL)*PCONC(:,JP_OH) ) / &
-( +TPK%K098+TPK%K105*PCONC(:,JP_NO2) )
-!
-TPK%RAD4 = ( +0.84*TPK%K080*PCONC(:,JP_AROH)*PCONC(:,JP_OH) ) / &
-( +TPK%K099+TPK%K106*PCONC(:,JP_NO2) )
-!
-TPK%RAD5 = ( +TPK%CF40*TPK%K082*PCONC(:,JP_ARAL)*PCONC(:,JP_OH) ) / &
-( +TPK%K100+TPK%K107*PCONC(:,JP_NO2) )
-!
-TPK%RAD6 = ( +0.74*TPK%K083*PCONC(:,JP_ARAC)*PCONC(:,JP_OH) ) / &
-( +TPK%K101+TPK%K108*PCONC(:,JP_NO2) )
-!
-TPK%RAD7 = ( +0.74*TPK%K092*PCONC(:,JP_PAH)*PCONC(:,JP_OH) ) / &
-( +TPK%K102+TPK%K109*PCONC(:,JP_NO2) )
-!
-TPK%RO22 = ( +TPK%K049*PCONC(:,JP_ETHE)*PCONC(:,JP_OH)+TPK%CF2*TPK&
-&%K053*PCONC(:,JP_ETOH)*PCONC(:,JP_OH)+TPK%K054*PCONC(:,JP_OLEL)*PCONC(:,JP_&
-&OH)+TPK%K069*PCONC(:,JP_ALCH)*PCONC(:,JP_OH) ) / &
-( +TPK%K113*PCONC(:,JP_NO)+TPK%K114*PCONC(:,JP_RO2T)+TPK%K115*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO23 = ( +TPK%K050*PCONC(:,JP_ETHE)*PCONC(:,JP_NO3)+TPK%K055*PCO&
-&NC(:,JP_OLEL)*PCONC(:,JP_NO3) ) / &
-( +TPK%K116*PCONC(:,JP_NO)+TPK%K117*PCONC(:,JP_RO2T)+TPK%K118*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO24 = ( +0.4*TPK%K052*PCONC(:,JP_ETHE)*TPK%O+0.1*TPK%K0&
-&57*PCONC(:,JP_OLEL)*TPK%O+0.1*TPK%K077*PCONC(:,JP_OLEH)*&
-&TPK%O+0.15*TPK%K283*PCONC(:,JP_MVK)*TPK%O ) / &
-( +TPK%K119*PCONC(:,JP_NO)+TPK%K120*PCONC(:,JP_RO2T)+TPK%K121*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO26 = ( +TPK%K060*PCONC(:,JP_ALD2)*PCONC(:,JP_OH)+TPK%K061*PCON&
-&C(:,JP_ALD2)*PCONC(:,JP_NO3)+TPK%K135*PCONC(:,JP_PAN1) ) / &
-( +TPK%K125*PCONC(:,JP_NO)+TPK%K126*PCONC(:,JP_NO2)+TPK%K142*PCONC(&
-&:,JP_HO2)+TPK%K143*PCONC(:,JP_RO2T) )
-!
-TPK%RO27 = ( +TPK%K062*PCONC(:,JP_KETL)*PCONC(:,JP_OH)+TPK%CF8*TPK&
-&%K168*TPK%RO214*PCONC(:,JP_NO)+TPK%K169*TPK%RO214*PCONC(:,J&
-&P_RO2T)+TPK%K170*TPK%RO214*PCONC(:,JP_HO2)+0.15*TPK%K284*PCONC(:&
-&,JP_MCR)*TPK%O ) / &
-( +TPK%K144*PCONC(:,JP_NO)+TPK%K145*PCONC(:,JP_RO2T)+TPK%K146*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO210 = ( +0.34*TPK%K064*PCONC(:,JP_ISOP)*PCONC(:,JP_OH) ) / &
-( +TPK%K153*PCONC(:,JP_NO)+TPK%K154*PCONC(:,JP_RO2T)+TPK%K155*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO211 = ( +0.66*TPK%K065*PCONC(:,JP_ISOP)*PCONC(:,JP_NO3) ) / &
-( +TPK%K156*PCONC(:,JP_NO)+TPK%K157*PCONC(:,JP_RO2T)+TPK%K158*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO212 = ( +0.34*TPK%K065*PCONC(:,JP_ISOP)*PCONC(:,JP_NO3) ) / &
-( +TPK%K159*PCONC(:,JP_NO)+TPK%K160*PCONC(:,JP_RO2T)+TPK%K161*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO215 = ( +TPK%K068*PCONC(:,JP_MTBE)*PCONC(:,JP_OH) ) / &
-( +TPK%K171*PCONC(:,JP_NO)+TPK%K172*PCONC(:,JP_RO2T)+TPK%K173*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO216 = ( +TPK%K070*PCONC(:,JP_KETH)*PCONC(:,JP_OH) ) / &
-( +TPK%K174*PCONC(:,JP_NO)+TPK%K175*PCONC(:,JP_RO2T)+TPK%K176*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO217 = ( +0.1*TPK%K073*PCONC(:,JP_AROO)*PCONC(:,JP_OH) ) / &
-( +TPK%K177*PCONC(:,JP_NO)+TPK%K178*PCONC(:,JP_RO2T)+TPK%K179*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO220 = ( +0.28*TPK%K076*PCONC(:,JP_OLEH)*PCONC(:,JP_O3)+0.1*TPK&
-&%K077*PCONC(:,JP_OLEH)*TPK%O+TPK%K078*PCONC(:,JP_ALKM)*PCONC(:,JP_O&
-&H)+TPK%K308*PCONC(:,JP_RPR1)+TPK%K309*TPK%RO255*PCONC(:,JP_NO)+T&
-&PK%K311*TPK%RO255*PCONC(:,JP_RO2T) ) / &
-( +TPK%K186*PCONC(:,JP_NO)+TPK%K187*PCONC(:,JP_RO2T)+TPK%K188*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO218 = ( +TPK%K074*PCONC(:,JP_OLEH)*PCONC(:,JP_OH)+TPK%CF18*TPK%K186*&
-TPK%RO220*PCONC(:,JP_NO)+TPK%K187*TPK%RO220*PCONC(:&
-&,JP_RO2T)+TPK%K188*TPK%RO220*PCONC(:,JP_HO2) ) / &
-( +TPK%K180*PCONC(:,JP_NO)+TPK%K181*PCONC(:,JP_RO2T)+TPK%K182*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO219 = ( +TPK%K075*PCONC(:,JP_OLEH)*PCONC(:,JP_NO3) ) / &
-( +TPK%K183*PCONC(:,JP_NO)+TPK%K184*PCONC(:,JP_RO2T)+TPK%K185*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO221 = ( +0.1*TPK%K079*PCONC(:,JP_AROL)*PCONC(:,JP_OH) ) / &
-( +TPK%K189*PCONC(:,JP_NO)+TPK%K190*PCONC(:,JP_RO2T)+TPK%K191*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO222 = ( +TPK%CF45*TPK%K082*PCONC(:,JP_ARAL)*PCONC(:,JP_OH) ) /&
-& &
-( +TPK%K192*PCONC(:,JP_NO)+TPK%K193*PCONC(:,JP_RO2T)+TPK%K194*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO223 = ( +0.1*TPK%K083*PCONC(:,JP_ARAC)*PCONC(:,JP_OH) ) / &
-( +TPK%K195*PCONC(:,JP_NO)+TPK%K196*PCONC(:,JP_RO2T)+TPK%K197*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO224 = ( +TPK%K084*PCONC(:,JP_BIOL)*PCONC(:,JP_OH) ) / &
-( +TPK%K198*PCONC(:,JP_NO)+TPK%K199*PCONC(:,JP_RO2T)+TPK%K200*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO226 = ( +0.445*TPK%K086*PCONC(:,JP_BIOL)*PCONC(:,JP_O3) ) / &
-( +TPK%K204*PCONC(:,JP_NO)+TPK%K205*PCONC(:,JP_RO2T)+TPK%K206*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO227 = ( +TPK%K088*PCONC(:,JP_BIOH)*PCONC(:,JP_OH) ) / &
-( +TPK%K207*PCONC(:,JP_NO)+TPK%K208*PCONC(:,JP_RO2T)+TPK%K209*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO229 = ( +0.445*TPK%K090*PCONC(:,JP_BIOH)*PCONC(:,JP_O3) ) / &
-( +TPK%K213*PCONC(:,JP_NO)+TPK%K214*PCONC(:,JP_RO2T)+TPK%K215*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO230 = ( +0.445*TPK%K090*PCONC(:,JP_BIOH)*PCONC(:,JP_O3) ) / &
-( +TPK%K219*PCONC(:,JP_RO2T)+TPK%K220*PCONC(:,JP_HO2)+TPK%K344*PCON&
-&C(:,JP_NO) )
-!
-TPK%RO231 = ( +0.1*TPK%K092*PCONC(:,JP_PAH)*PCONC(:,JP_OH) ) / &
-( +TPK%K221*PCONC(:,JP_NO)+TPK%K222*PCONC(:,JP_RO2T)+TPK%K223*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO232 = ( +TPK%K093*PCONC(:,JP_ALKH)*PCONC(:,JP_OH) ) / &
-( +TPK%K224*PCONC(:,JP_NO)+TPK%K225*PCONC(:,JP_RO2T)+TPK%K226*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO233 = ( +TPK%K097*TPK%RAD2 ) / &
-( +TPK%K230+TPK%K231*PCONC(:,JP_NO)+TPK%K232*PCONC(:,JP_RO2T)+TPK%K233*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO234 = ( +TPK%K098*TPK%RAD3 ) / &
-( +TPK%K237+TPK%K238*PCONC(:,JP_NO)+TPK%K239*PCONC(:,JP_RO2T)+TPK%K240*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO235 = ( +TPK%K099*TPK%RAD4 ) / &
-( +TPK%K244+TPK%K245*PCONC(:,JP_NO)+TPK%K246*PCONC(:,JP_RO2T)+TPK%K247*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO236 = ( +TPK%K100*TPK%RAD5 ) / &
-( +TPK%K251+TPK%K252*PCONC(:,JP_NO)+TPK%K253*PCONC(:,JP_RO2T)+TPK%K254*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO237 = ( +TPK%K101*TPK%RAD6 ) / &
-( +TPK%K258+TPK%K259*PCONC(:,JP_NO)+TPK%K260*PCONC(:,JP_RO2T)+TPK%K261*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO238 = ( +TPK%K102*TPK%RAD7 ) / &
-( +TPK%K265+TPK%K266*PCONC(:,JP_NO)+TPK%K267*PCONC(:,JP_RO2T)+TPK%K268*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO240 = ( +TPK%CF30*TPK%K213*TPK%RO229*PCONC(:,JP_NO)+TPK%K214*&
-TPK%RO229*PCONC(:,JP_RO2T)+TPK%K215*TPK%RO229*PCON&
-&C(:,JP_HO2) ) / &
-( +TPK%K216*PCONC(:,JP_NO)+TPK%K217*PCONC(:,JP_RO2T)+TPK%K218*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO241 = ( +TPK%CF34*TPK%K224*TPK%RO232*PCONC(:,JP_NO)+TPK%K225*&
-TPK%RO232*PCONC(:,JP_RO2T)+TPK%K226*TPK%RO232*PCON&
-&C(:,JP_HO2) ) / &
-( +TPK%K227*PCONC(:,JP_NO)+TPK%K228*PCONC(:,JP_RO2T)+TPK%K229*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO242 = ( +TPK%K230*TPK%RO233 ) / &
-( +TPK%K234*PCONC(:,JP_NO)+TPK%K235*PCONC(:,JP_RO2T)+TPK%K236*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO243 = ( +TPK%K237*TPK%RO234 ) / &
-( +TPK%K241*PCONC(:,JP_NO)+TPK%K242*PCONC(:,JP_RO2T)+TPK%K243*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO244 = ( +TPK%K244*TPK%RO235 ) / &
-( +TPK%K248*PCONC(:,JP_NO)+TPK%K249*PCONC(:,JP_RO2T)+TPK%K250*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO245 = ( +TPK%K251*TPK%RO236 ) / &
-( +TPK%K255*PCONC(:,JP_NO)+TPK%K256*PCONC(:,JP_RO2T)+TPK%K257*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO246 = ( +TPK%K258*TPK%RO237 ) / &
-( +TPK%K262*PCONC(:,JP_NO)+TPK%K263*PCONC(:,JP_RO2T)+TPK%K264*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO247 = ( +TPK%K265*TPK%RO238 ) / &
-( +TPK%K269*PCONC(:,JP_NO)+TPK%K270*PCONC(:,JP_RO2T)+TPK%K271*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO28 = ( +TPK%K063*PCONC(:,JP_KETL)+TPK%K071*PCONC(:,JP_KETH)+TP&
-&K%K136*PCONC(:,JP_PAN2)+TPK%K144*TPK%RO27*PCONC(:,JP_NO)+TPK%&
-&K145*TPK%RO27*PCONC(:,JP_RO2T)+TPK%K146*TPK%RO27*PCONC(:,JP&
-&_HO2)+TPK%K174*TPK%RO216*PCONC(:,JP_NO)+TPK%K175*TPK%RO21&
-&6*PCONC(:,JP_RO2T)+TPK%K176*TPK%RO216*PCONC(:,JP_HO2)+TPK%K204*&
-&TPK%RO226*PCONC(:,JP_NO)+TPK%K205*TPK%RO226*PCONC(:,JP_RO2T)&
-&+TPK%K206*TPK%RO226*PCONC(:,JP_HO2)+TPK%K216*TPK%RO240*&
-&PCONC(:,JP_NO)+TPK%K217*TPK%RO240*PCONC(:,JP_RO2T)+TPK%K218*&
-&TPK%RO240*PCONC(:,JP_HO2)+TPK%K219*TPK%RO230*PCONC(:,JP_RO2T)+T&
-&PK%K220*TPK%RO230*PCONC(:,JP_HO2)+TPK%K276*PCONC(:,JP_MGLY)+TPK%K277*&
-TPK%RO248*PCONC(:,JP_NO)+TPK%K280*TPK%RO248*PCONC(:&
-&,JP_RO2T)+0.28*TPK%K281*PCONC(:,JP_MVK)*PCONC(:,JP_O3)+0.15*TPK%K283*PCO&
-&NC(:,JP_MVK)*TPK%O+TPK%K344*TPK%RO230*PCONC(:,JP_NO) ) / &
-( +TPK%K127*PCONC(:,JP_NO2)+TPK%K147*PCONC(:,JP_NO)+TPK%K148*PCONC(&
-&:,JP_HO2)+TPK%K149*PCONC(:,JP_RO2T) )
+!WR_HCHO/HNO4=0.0
!
-! /END_CODE/
-PJAC(:,:,:) = 0.0
-CALL SUBJ0
-CALL SUBJ1
-CALL SUBJ2
-CALL SUBJ3
-CALL SUBJ4
-CALL SUBJ5
-CALL SUBJ6
-CALL SUBJ7
-CALL SUBJ8
-CALL SUBJ9
-CALL SUBJ10
-CALL SUBJ11
-CALL SUBJ12
-CALL SUBJ13
-CALL SUBJ14
-CALL SUBJ15
-CALL SUBJ16
-CALL SUBJ17
-CALL SUBJ18
-CALL SUBJ19
-CALL SUBJ20
-CALL SUBJ21
-CALL SUBJ22
-CALL SUBJ23
-CALL SUBJ24
-CALL SUBJ25
-CALL SUBJ26
-CALL SUBJ27
-CALL SUBJ28
-CALL SUBJ29
-CALL SUBJ30
-CALL SUBJ31
-CALL SUBJ32
+!WR_HCHO/NH3=0.0
!
-
-CONTAINS
-
-SUBROUTINE SUBJ0
+!WR_HCHO/SO2=0.0
!
-!Indices 1 a 5
+!WR_HCHO/SULF=0.0
!
+!WR_HCHO/CO=0.0
!
-!NO/NO=-K005*<O3>-K007*<NO3>-K008*<NO>-K008*<NO>-K008*<NO>-K008*<NO>-K019*<OH>-
-!K026*<HO2>-K038*<O>+K095*<RO2T>-K095*<RO2T>-K110*<RO21>-K113*<RO22>-K116*<RO23
-!>-K119*<RO24>-K122*<RO25>-K125*<RO26>-K144*<RO27>-K147*<RO28>-K150*<RO29>-K153
-!*<RO210>-K156*<RO211>-K159*<RO212>-K162*<RO213>-K165*<RO239>-K168*<RO214>-K171
-!*<RO215>-K174*<RO216>-K177*<RO217>-K180*<RO218>-K183*<RO219>-K186*<RO220>-K189
-!*<RO221>-K192*<RO222>-K195*<RO223>-K198*<RO224>-K201*<RO225>-K204*<RO226>-K207
-!*<RO227>-K210*<RO228>-K213*<RO229>-K216*<RO240>-K221*<RO231>-K224*<RO232>-K227
-!*<RO241>-K231*<RO233>-K234*<RO242>-K238*<RO234>-K241*<RO243>-K245*<RO235>-K248
-!*<RO244>-K252*<RO236>-K255*<RO245>-K259*<RO237>-K262*<RO246>-K266*<RO238>-K269
-!*<RO247>-K277*<RO248>-K285*<RO249>-K288*<RO250>-K291*<RO251>-K294*<RO252>-K297
-!*<RO253>-K300*<RO254>-K309*<RO255>-K315*<RO256>-K331*<RO257>-K340*<RO258>-K344
-!*<RO230>-KTC3-KTR3
- PJAC(:,1,1)=-TPK%K005(:)*PCONC(:,3)-TPK%K007(:)*PCONC(:,8)-TPK%K008(:)*PCONC(:&
-&,1)-TPK%K008(:)*PCONC(:,1)-TPK%K008(:)*PCONC(:,1)-TPK%K008(:)*PCONC(:,1)-TPK%K&
-&019(:)*PCONC(:,15)-TPK%K026(:)*PCONC(:,10)-TPK%K038(:)*TPK%O(:)+TPK%K095(:)*PC&
-&ONC(:,85)-TPK%K095(:)*PCONC(:,85)-TPK%K110(:)*PCONC(:,86)-TPK%K113(:)*TPK%RO22&
-&(:)-TPK%K116(:)*TPK%RO23(:)-TPK%K119(:)*TPK%RO24(:)-TPK%K122(:)*PCONC(:,87)-TP&
-&K%K125(:)*TPK%RO26(:)-TPK%K144(:)*TPK%RO27(:)-TPK%K147(:)*TPK%RO28(:)-TPK%K150&
-&(:)*TPK%RO29(:)-TPK%K153(:)*TPK%RO210(:)-TPK%K156(:)*TPK%RO211(:)-TPK%K159(:)*&
-&TPK%RO212(:)-TPK%K162(:)*TPK%RO213(:)-TPK%K165(:)*TPK%RO239(:)-TPK%K168(:)*TPK&
-&%RO214(:)-TPK%K171(:)*TPK%RO215(:)-TPK%K174(:)*TPK%RO216(:)-TPK%K177(:)*TPK%RO&
-&217(:)-TPK%K180(:)*TPK%RO218(:)-TPK%K183(:)*TPK%RO219(:)-TPK%K186(:)*TPK%RO220&
-&(:)-TPK%K189(:)*TPK%RO221(:)-TPK%K192(:)*TPK%RO222(:)-TPK%K195(:)*TPK%RO223(:)&
-&-TPK%K198(:)*TPK%RO224(:)-TPK%K201(:)*TPK%RO225(:)-TPK%K204(:)*TPK%RO226(:)-TP&
-&K%K207(:)*TPK%RO227(:)-TPK%K210(:)*TPK%RO228(:)-TPK%K213(:)*TPK%RO229(:)-TPK%K&
-&216(:)*TPK%RO240(:)-TPK%K221(:)*TPK%RO231(:)-TPK%K224(:)*TPK%RO232(:)-TPK%K227&
-&(:)*TPK%RO241(:)-TPK%K231(:)*TPK%RO233(:)-TPK%K234(:)*TPK%RO242(:)-TPK%K238(:)&
-&*TPK%RO234(:)-TPK%K241(:)*TPK%RO243(:)-TPK%K245(:)*TPK%RO235(:)-TPK%K248(:)*TP&
-&K%RO244(:)-TPK%K252(:)*TPK%RO236(:)-TPK%K255(:)*TPK%RO245(:)-TPK%K259(:)*TPK%R&
-&O237(:)-TPK%K262(:)*TPK%RO246(:)-TPK%K266(:)*TPK%RO238(:)-TPK%K269(:)*TPK%RO24&
-&7(:)-TPK%K277(:)*TPK%RO248(:)-TPK%K285(:)*TPK%RO249(:)-TPK%K288(:)*TPK%RO250(:&
-&)-TPK%K291(:)*TPK%RO251(:)-TPK%K294(:)*TPK%RO252(:)-TPK%K297(:)*TPK%RO253(:)-T&
-&PK%K300(:)*TPK%RO254(:)-TPK%K309(:)*TPK%RO255(:)-TPK%K315(:)*TPK%RO256(:)-TPK%&
-&K331(:)*TPK%RO257(:)-TPK%K340(:)*TPK%RO258(:)-TPK%K344(:)*TPK%RO230(:)-TPK%KTC&
-&3(:)-TPK%KTR3(:)
-!
-!NO/NO2=+K001+K003*<O>+K012*<NO3>
- PJAC(:,1,2)=+TPK%K001(:)+TPK%K003(:)*TPK%O(:)+TPK%K012(:)*PCONC(:,8)
-!
-!NO/O3=-K005*<NO>
- PJAC(:,1,3)=-TPK%K005(:)*PCONC(:,1)
-!
-!NO/HONO=+0.9*K020
- PJAC(:,1,4)=+0.9*TPK%K020(:)
+!WR_HCHO/OH=0.0
!
-!NO/HNO3=0.0
+!WR_HCHO/HO2=0.0
!
-!NO/HNO4=0.0
+!WR_HCHO/CH4=0.0
!
-!NO/N2O5=0.0
+!WR_HCHO/ETH=0.0
!
-!NO/NO3=-K007*<NO>+K012*<NO2>+K013
- PJAC(:,1,8)=-TPK%K007(:)*PCONC(:,1)+TPK%K012(:)*PCONC(:,2)+TPK%K013(:)
+!WR_HCHO/ALKA=0.0
!
-!NO/NH3=0.0
+!WR_HCHO/ALKE=0.0
!
-!NO/HO2=-K026*<NO>
- PJAC(:,1,10)=-TPK%K026(:)*PCONC(:,1)
+!WR_HCHO/BIO=0.0
!
-!NO/CO=0.0
+!WR_HCHO/ARO=0.0
!
-!NO/H2O2=0.0
+!WR_HCHO/HCHO=+KTR16
+ PJAC(:,82,22)=+TPK%KTR16(:)
!
-!NO/SO2=0.0
+!WR_HCHO/ALD=0.0
!
-!NO/H2SO4=0.0
+!WR_HCHO/KET=0.0
!
-!NO/OH=-K019*<NO>
- PJAC(:,1,15)=-TPK%K019(:)*PCONC(:,1)
+!WR_HCHO/CARBO=0.0
!
-!NO/ETHE=0.0
+!WR_HCHO/ONIT=0.0
!
-!NO/OLEL=0.0
+!WR_HCHO/PAN=0.0
!
-!NO/OLEH=0.0
+!WR_HCHO/OP1=0.0
!
-!NO/ALKL=0.0
+!WR_HCHO/OP2=0.0
!
-!NO/ALKM=0.0
+!WR_HCHO/ORA1=0.0
!
-!NO/ALKH=0.0
+!WR_HCHO/ORA2=0.0
!
-!NO/AROH=0.0
+!WR_HCHO/MO2=0.0
!
-!NO/AROL=0.0
+!WR_HCHO/ALKAP=0.0
!
-!NO/AROO=0.0
+!WR_HCHO/ALKEP=0.0
!
-!NO/ARAL=0.0
+!WR_HCHO/BIOP=0.0
!
-!NO/ARAC=0.0
+!WR_HCHO/PHO=0.0
!
-!NO/PAH=0.0
+!WR_HCHO/ADD=0.0
!
-!NO/HCHO=0.0
+!WR_HCHO/AROP=0.0
!
-!NO/ALD2=0.0
+!WR_HCHO/CARBOP=0.0
!
-!NO/KETL=0.0
+!WR_HCHO/OLN=0.0
!
-!NO/KETH=0.0
+!WR_HCHO/XO2=0.0
!
-!NO/MEOH=0.0
+!WR_HCHO/WC_O3=0.0
!
-!NO/ETOH=0.0
+!WR_HCHO/WC_H2O2=0.0
!
-!NO/ALCH=0.0
+!WR_HCHO/WC_NO=0.0
!
-!NO/ISOP=0.0
+!WR_HCHO/WC_NO2=0.0
!
-!NO/BIOL=0.0
+!WR_HCHO/WC_NO3=0.0
!
-!NO/BIOH=0.0
+!WR_HCHO/WC_N2O5=0.0
!
-!NO/MTBE=0.0
+!WR_HCHO/WC_HONO=0.0
!
-!NO/MVK=0.0
+!WR_HCHO/WC_HNO3=0.0
!
-!NO/MCR=0.0
+!WR_HCHO/WC_HNO4=0.0
!
-!NO/MGLY=0.0
+!WR_HCHO/WC_NH3=0.0
!
-!NO/GLY=0.0
+!WR_HCHO/WC_OH=0.0
!
-!NO/ORA1=0.0
+!WR_HCHO/WC_HO2=0.0
!
-!NO/ORA2=0.0
+!WR_HCHO/WC_CO2=0.0
!
-!NO/ACID=0.0
+!WR_HCHO/WC_SO2=0.0
!
-!NO/UR28=0.0
+!WR_HCHO/WC_SULF=0.0
!
-!NO/UR21=0.0
+!WR_HCHO/WC_HCHO=0.0
!
-!NO/URG2=0.0
+!WR_HCHO/WC_ORA1=0.0
!
-!NO/UR26=0.0
+!WR_HCHO/WC_ORA2=0.0
!
-!NO/RPG2=0.0
+!WR_HCHO/WC_MO2=0.0
!
-!NO/RP18=0.0
+!WR_HCHO/WC_OP1=0.0
!
-!NO/RPG3=0.0
+!WR_HCHO/WC_ASO3=0.0
!
-!NO/URG4=0.0
+!WR_HCHO/WC_ASO4=0.0
!
-!NO/UR8=0.0
+!WR_HCHO/WC_ASO5=0.0
!
-!NO/UR17=0.0
+!WR_HCHO/WC_AHSO5=0.0
!
-!NO/UR7=0.0
+!WR_HCHO/WC_AHMS=0.0
!
-!NO/RPR3=0.0
+!WR_HCHO/WR_O3=0.0
!
-!NO/URG6=0.0
+!WR_HCHO/WR_H2O2=0.0
!
-!NO/UR22=0.0
+!WR_HCHO/WR_NO=0.0
!
-!NO/URG7=0.0
+!WR_HCHO/WR_NO2=0.0
!
-!NO/RPR4=0.0
+!WR_HCHO/WR_NO3=0.0
!
-!NO/RPR7=0.0
+!WR_HCHO/WR_N2O5=0.0
!
-!NO/RPG7=0.0
+!WR_HCHO/WR_HONO=0.0
!
-!NO/URG8=0.0
+!WR_HCHO/WR_HNO3=0.0
!
-!NO/UR19=0.0
+!WR_HCHO/WR_HNO4=0.0
!
-!NO/URG9=0.0
+!WR_HCHO/WR_NH3=0.0
!
-!NO/AP7=0.0
+!WR_HCHO/WR_OH=-KR19*<WR_HCHO>
+ PJAC(:,82,77)=-TPK%KR19(:)*PCONC(:,82)
!
-!NO/URG10=0.0
+!WR_HCHO/WR_HO2=0.0
!
-!NO/RPR1=0.0
+!WR_HCHO/WR_CO2=0.0
!
-!NO/RPR5=0.0
+!WR_HCHO/WR_SO2=-KR21*<WR_HCHO>
+ PJAC(:,82,80)=-TPK%KR21(:)*PCONC(:,82)
!
-!NO/RPR8=0.0
+!WR_HCHO/WR_SULF=0.0
!
-!NO/RP10=0.0
+!WR_HCHO/WR_HCHO=-KTR36-KR19*<WR_OH>-KR21*<WR_SO2>
+ PJAC(:,82,82)=-TPK%KTR36(:)-TPK%KR19(:)*PCONC(:,77)-TPK%KR21(:)*PCONC(:,80)
!
-!NO/RP11=0.0
+!WR_HCHO/WR_ORA1=0.0
!
-!NO/RP16=0.0
+!WR_HCHO/WR_ORA2=0.0
!
-!NO/RPRL=0.0
+!WR_HCHO/WR_MO2=+2.00*KR17*<WR_MO2>+2.00*KR17*<WR_MO2>
+ PJAC(:,82,85)=+2.00*TPK%KR17(:)*PCONC(:,85)+2.00*TPK%KR17(:)*PCONC(:,85)
!
-!NO/APAN=0.0
+!WR_HCHO/WR_OP1=0.0
!
-!NO/PAN1=0.0
+!WR_HCHO/WR_ASO3=0.0
!
-!NO/PAN2=0.0
+!WR_HCHO/WR_ASO4=0.0
!
-!NO/PAN3=0.0
+!WR_HCHO/WR_ASO5=0.0
!
-!NO/PAN4=0.0
+!WR_HCHO/WR_AHSO5=0.0
!
-!NO/PAN6=0.0
+!WR_HCHO/WR_AHMS=+KR22
+ PJAC(:,82,91)=+TPK%KR22(:)
!
-!NO/PAN7=0.0
+!WR_ORA1/O3=0.0
!
-!NO/PAN8=0.0
+!WR_ORA1/H2O2=0.0
!
-!NO/PN10=0.0
+!WR_ORA1/NO=0.0
!
-!NO/RO2T=+K095*<NO>-K095*<NO>
- PJAC(:,1,85)=+TPK%K095(:)*PCONC(:,1)-TPK%K095(:)*PCONC(:,1)
+!WR_ORA1/NO2=0.0
!
-!NO/RO21=-K110*<NO>
- PJAC(:,1,86)=-TPK%K110(:)*PCONC(:,1)
+!WR_ORA1/NO3=0.0
!
-!NO/RO25=-K122*<NO>
- PJAC(:,1,87)=-TPK%K122(:)*PCONC(:,1)
+!WR_ORA1/N2O5=0.0
!
-!NO/WC_O3=0.0
+!WR_ORA1/HONO=0.0
!
-!NO/WC_H2O2=0.0
+!WR_ORA1/HNO3=0.0
!
-!NO/WC_NO=+KTC34
- PJAC(:,1,90)=+TPK%KTC34(:)
+!WR_ORA1/HNO4=0.0
!
-!NO/WC_NO2=0.0
+!WR_ORA1/NH3=0.0
!
-!NO/WC_NO3=0.0
+!WR_ORA1/SO2=0.0
!
-!NO/WC_N2O5=0.0
+!WR_ORA1/SULF=0.0
!
-!NO/WC_HONO=0.0
+!WR_ORA1/CO=0.0
!
-!NO/WC_HNO3=0.0
+!WR_ORA1/OH=0.0
!
-!NO/WC_HNO4=0.0
+!WR_ORA1/HO2=0.0
!
-!NO/WC_NH3=0.0
+!WR_ORA1/CH4=0.0
!
-!NO/WC_OH=0.0
+!WR_ORA1/ETH=0.0
!
-!NO/WC_HO2=0.0
+!WR_ORA1/ALKA=0.0
!
-!NO/WC_CO2=0.0
+!WR_ORA1/ALKE=0.0
!
-!NO/WC_SO2=0.0
+!WR_ORA1/BIO=0.0
!
-!NO/WC_H2SO4=0.0
+!WR_ORA1/ARO=0.0
!
-!NO/WC_RO21=0.0
+!WR_ORA1/HCHO=0.0
!
-!NO/WC_RO25=0.0
+!WR_ORA1/ALD=0.0
!
-!NO/WC_MEOH=0.0
+!WR_ORA1/KET=0.0
!
-!NO/WC_ETOH=0.0
+!WR_ORA1/CARBO=0.0
!
-!NO/WC_ALCH=0.0
+!WR_ORA1/ONIT=0.0
!
-!NO/WC_HCHO=0.0
+!WR_ORA1/PAN=0.0
!
-!NO/WC_ALD2=0.0
+!WR_ORA1/OP1=0.0
!
-!NO/WC_GLY=0.0
+!WR_ORA1/OP2=0.0
!
-!NO/WC_MGLY=0.0
+!WR_ORA1/ORA1=+KTR17
+ PJAC(:,83,30)=+TPK%KTR17(:)
!
-!NO/WC_KETL=0.0
+!WR_ORA1/ORA2=0.0
!
-!NO/WC_ORA1=0.0
+!WR_ORA1/MO2=0.0
!
-!NO/WC_ORA2=0.0
+!WR_ORA1/ALKAP=0.0
!
-!NO/WC_ACID=0.0
+!WR_ORA1/ALKEP=0.0
!
-!NO/WC_RP16=0.0
+!WR_ORA1/BIOP=0.0
!
-!NO/WC_UR21=0.0
+!WR_ORA1/PHO=0.0
!
-!NO/WC_UR28=0.0
+!WR_ORA1/ADD=0.0
!
-!NO/WC_ACID2=0.0
+!WR_ORA1/AROP=0.0
!
-!NO/WC_ASO3=0.0
+!WR_ORA1/CARBOP=0.0
!
-!NO/WC_ASO4=0.0
+!WR_ORA1/OLN=0.0
!
-!NO/WC_ASO5=0.0
+!WR_ORA1/XO2=0.0
!
-!NO/WC_AHSO5=0.0
+!WR_ORA1/WC_O3=0.0
!
-!NO/WC_AHMS=0.0
+!WR_ORA1/WC_H2O2=0.0
!
-!NO/WR_O3=0.0
+!WR_ORA1/WC_NO=0.0
!
-!NO/WR_H2O2=0.0
+!WR_ORA1/WC_NO2=0.0
!
-!NO/WR_NO=+KTR34
- PJAC(:,1,127)=+TPK%KTR34(:)
+!WR_ORA1/WC_NO3=0.0
!
-!NO/WR_NO2=0.0
+!WR_ORA1/WC_N2O5=0.0
!
-!NO/WR_NO3=0.0
+!WR_ORA1/WC_HONO=0.0
!
-!NO/WR_N2O5=0.0
+!WR_ORA1/WC_HNO3=0.0
!
-!NO/WR_HONO=0.0
+!WR_ORA1/WC_HNO4=0.0
!
-!NO/WR_HNO3=0.0
+!WR_ORA1/WC_NH3=0.0
!
-!NO/WR_HNO4=0.0
+!WR_ORA1/WC_OH=0.0
!
-!NO/WR_NH3=0.0
+!WR_ORA1/WC_HO2=0.0
!
-!NO/WR_OH=0.0
+!WR_ORA1/WC_CO2=0.0
!
-!NO/WR_HO2=0.0
+!WR_ORA1/WC_SO2=0.0
!
-!NO/WR_CO2=0.0
+!WR_ORA1/WC_SULF=0.0
!
-!NO/WR_SO2=0.0
+!WR_ORA1/WC_HCHO=0.0
!
-!NO/WR_H2SO4=0.0
+!WR_ORA1/WC_ORA1=0.0
!
-!NO/WR_RO21=0.0
+!WR_ORA1/WC_ORA2=0.0
!
-!NO/WR_RO25=0.0
+!WR_ORA1/WC_MO2=0.0
!
-!NO/WR_MEOH=0.0
+!WR_ORA1/WC_OP1=0.0
!
-!NO/WR_ETOH=0.0
+!WR_ORA1/WC_ASO3=0.0
!
-!NO/WR_ALCH=0.0
+!WR_ORA1/WC_ASO4=0.0
!
-!NO/WR_HCHO=0.0
+!WR_ORA1/WC_ASO5=0.0
!
-!NO/WR_ALD2=0.0
+!WR_ORA1/WC_AHSO5=0.0
!
-!NO/WR_GLY=0.0
+!WR_ORA1/WC_AHMS=0.0
!
-!NO/WR_MGLY=0.0
+!WR_ORA1/WR_O3=0.0
!
-!NO/WR_KETL=0.0
+!WR_ORA1/WR_H2O2=0.0
!
-!NO/WR_ORA1=0.0
+!WR_ORA1/WR_NO=0.0
!
-!NO/WR_ORA2=0.0
+!WR_ORA1/WR_NO2=0.0
!
-!NO/WR_ACID=0.0
+!WR_ORA1/WR_NO3=0.0
!
-!NO/WR_RP16=0.0
+!WR_ORA1/WR_N2O5=0.0
!
-!NO/WR_UR21=0.0
+!WR_ORA1/WR_HONO=0.0
!
-!NO/WR_UR28=0.0
+!WR_ORA1/WR_HNO3=0.0
!
-!NO/WR_ACID2=0.0
+!WR_ORA1/WR_HNO4=0.0
!
-!NO/WR_ASO3=0.0
+!WR_ORA1/WR_NH3=0.0
!
-!NO/WR_ASO4=0.0
+!WR_ORA1/WR_OH=+KR19*<WR_HCHO>-KR20*<WR_ORA1>+KR23*<WR_AHMS>
+ PJAC(:,83,77)=+TPK%KR19(:)*PCONC(:,82)-TPK%KR20(:)*PCONC(:,83)+TPK%KR23(:)*PCO&
+&NC(:,91)
!
-!NO/WR_ASO5=0.0
+!WR_ORA1/WR_HO2=0.0
!
-!NO/WR_AHSO5=0.0
+!WR_ORA1/WR_CO2=0.0
!
-!NO/WR_AHMS=0.0
+!WR_ORA1/WR_SO2=0.0
!
-!NO2/NO=+K005*<O3>+2.*K007*<NO3>+2.*K008*<NO>+2.*K008*<NO>+K026*<HO2>+K038*<O>+
-!K110*<RO21>+K113*<RO22>+2.*K116*<RO23>+K119*<RO24>+TPK%CF4*K122*<RO25>+K125*<R
-!O26>+K144*<RO27>+K147*<RO28>+TPK%CF6*K150*<RO29>+K153*<RO210>+2.*K156*<RO211>+
-!2.*K159*<RO212>+K162*<RO213>+K165*<RO239>+TPK%CF8*K168*<RO214>+K171*<RO215>+K1
-!74*<RO216>+TPK%CF22*K177*<RO217>+TPK%CF20*K180*<RO218>+2.*K183*<RO219>+TPK%CF1
-!8*K186*<RO220>+TPK%CF24*K189*<RO221>+TPK%CF42*K192*<RO222>+TPK%CF44*K195*<RO22
-!3>+TPK%CF26*K198*<RO224>+2.*K201*<RO225>+K204*<RO226>+TPK%CF28*K207*<RO227>+2.
-!*K210*<RO228>+TPK%CF30*K213*<RO229>+K216*<RO240>+TPK%CF32*K221*<RO231>+TPK%CF3
-!4*K224*<RO232>+TPK%CF36*K227*<RO241>+K231*<RO233>+K234*<RO242>+K238*<RO234>+K2
-!41*<RO243>+K245*<RO235>+K248*<RO244>+K252*<RO236>+K255*<RO245>+K259*<RO237>+K2
-!62*<RO246>+K266*<RO238>+K269*<RO247>+K277*<RO248>+K285*<RO249>+K288*<RO250>+K2
-!91*<RO251>+2.*K294*<RO252>+K297*<RO253>+K300*<RO254>+K309*<RO255>+K315*<RO256>
-!+K331*<RO257>+K340*<RO258>+K344*<RO230>
- PJAC(:,2,1)=+TPK%K005(:)*PCONC(:,3)+2.*TPK%K007(:)*PCONC(:,8)+2.*TPK%K008(:)*P&
-&CONC(:,1)+2.*TPK%K008(:)*PCONC(:,1)+TPK%K026(:)*PCONC(:,10)+TPK%K038(:)*TPK%O(&
-&:)+TPK%K110(:)*PCONC(:,86)+TPK%K113(:)*TPK%RO22(:)+2.*TPK%K116(:)*TPK%RO23(:)+&
-&TPK%K119(:)*TPK%RO24(:)+TPK%CF4*TPK%K122(:)*PCONC(:,87)+TPK%K125(:)*TPK%RO26(:&
-&)+TPK%K144(:)*TPK%RO27(:)+TPK%K147(:)*TPK%RO28(:)+TPK%CF6*TPK%K150(:)*TPK%RO29&
-&(:)+TPK%K153(:)*TPK%RO210(:)+2.*TPK%K156(:)*TPK%RO211(:)+2.*TPK%K159(:)*TPK%RO&
-&212(:)+TPK%K162(:)*TPK%RO213(:)+TPK%K165(:)*TPK%RO239(:)+TPK%CF8*TPK%K168(:)*T&
-&PK%RO214(:)+TPK%K171(:)*TPK%RO215(:)+TPK%K174(:)*TPK%RO216(:)+TPK%CF22*TPK%K17&
-&7(:)*TPK%RO217(:)+TPK%CF20*TPK%K180(:)*TPK%RO218(:)+2.*TPK%K183(:)*TPK%RO219(:&
-&)+TPK%CF18*TPK%K186(:)*TPK%RO220(:)+TPK%CF24*TPK%K189(:)*TPK%RO221(:)+TPK%CF42&
-&*TPK%K192(:)*TPK%RO222(:)+TPK%CF44*TPK%K195(:)*TPK%RO223(:)+TPK%CF26*TPK%K198(&
-&:)*TPK%RO224(:)+2.*TPK%K201(:)*TPK%RO225(:)+TPK%K204(:)*TPK%RO226(:)+TPK%CF28*&
-&TPK%K207(:)*TPK%RO227(:)+2.*TPK%K210(:)*TPK%RO228(:)+TPK%CF30*TPK%K213(:)*TPK%&
-&RO229(:)+TPK%K216(:)*TPK%RO240(:)+TPK%CF32*TPK%K221(:)*TPK%RO231(:)+TPK%CF34*T&
-&PK%K224(:)*TPK%RO232(:)+TPK%CF36*TPK%K227(:)*TPK%RO241(:)+TPK%K231(:)*TPK%RO23&
-&3(:)+TPK%K234(:)*TPK%RO242(:)+TPK%K238(:)*TPK%RO234(:)+TPK%K241(:)*TPK%RO243(:&
-&)+TPK%K245(:)*TPK%RO235(:)+TPK%K248(:)*TPK%RO244(:)+TPK%K252(:)*TPK%RO236(:)+T&
-&PK%K255(:)*TPK%RO245(:)+TPK%K259(:)*TPK%RO237(:)+TPK%K262(:)*TPK%RO246(:)+TPK%&
-&K266(:)*TPK%RO238(:)+TPK%K269(:)*TPK%RO247(:)+TPK%K277(:)*TPK%RO248(:)+TPK%K28&
-&5(:)*TPK%RO249(:)+TPK%K288(:)*TPK%RO250(:)+TPK%K291(:)*TPK%RO251(:)+2.*TPK%K29&
-&4(:)*TPK%RO252(:)+TPK%K297(:)*TPK%RO253(:)+TPK%K300(:)*TPK%RO254(:)+TPK%K309(:&
-&)*TPK%RO255(:)+TPK%K315(:)*TPK%RO256(:)+TPK%K331(:)*TPK%RO257(:)+TPK%K340(:)*T&
-&PK%RO258(:)+TPK%K344(:)*TPK%RO230(:)
-!
-!NO2/NO2=-K001-K003*<O>-K004*<O>-K006*<O3>-K009*<NO3>+K012*<NO3>-K012*<NO3>-K02
-!1*<H2O>-K022*<OH>-K027*<HO2>-K103*<RAD1>-K104*<RAD2>-K105*<RAD3>-K106*<RAD4>-K
-!107*<RAD5>-K108*<RAD6>-K109*<RAD7>-K126*<RO26>-K127*<RO28>-K128*<RO239>-K129*<
-!RO248>-K130*<RO250>-K131*<RO254>-K132*<RO255>-K133*<RO257>-K134*<RO258>-K316*<
-!RO256>-K321*<RAD8>-KTC4-KTR4
- PJAC(:,2,2)=-TPK%K001(:)-TPK%K003(:)*TPK%O(:)-TPK%K004(:)*TPK%O(:)-TPK%K006(:)&
-&*PCONC(:,3)-TPK%K009(:)*PCONC(:,8)+TPK%K012(:)*PCONC(:,8)-TPK%K012(:)*PCONC(:,&
-&8)-TPK%K021(:)*TPK%H2O(:)-TPK%K022(:)*PCONC(:,15)-TPK%K027(:)*PCONC(:,10)-TPK%&
-&K103(:)*TPK%RAD1(:)-TPK%K104(:)*TPK%RAD2(:)-TPK%K105(:)*TPK%RAD3(:)-TPK%K106(:&
-&)*TPK%RAD4(:)-TPK%K107(:)*TPK%RAD5(:)-TPK%K108(:)*TPK%RAD6(:)-TPK%K109(:)*TPK%&
-&RAD7(:)-TPK%K126(:)*TPK%RO26(:)-TPK%K127(:)*TPK%RO28(:)-TPK%K128(:)*TPK%RO239(&
-&:)-TPK%K129(:)*TPK%RO248(:)-TPK%K130(:)*TPK%RO250(:)-TPK%K131(:)*TPK%RO254(:)-&
-&TPK%K132(:)*TPK%RO255(:)-TPK%K133(:)*TPK%RO257(:)-TPK%K134(:)*TPK%RO258(:)-TPK&
-&%K316(:)*TPK%RO256(:)-TPK%K321(:)*TPK%RAD8(:)-TPK%KTC4(:)-TPK%KTR4(:)
-!
-!NO2/O3=+K005*<NO>-K006*<NO2>
- PJAC(:,2,3)=+TPK%K005(:)*PCONC(:,1)-TPK%K006(:)*PCONC(:,2)
-!
-!NO2/HONO=+0.1*K020+K039*<OH>
- PJAC(:,2,4)=+0.1*TPK%K020(:)+TPK%K039(:)*PCONC(:,15)
-!
-!NO2/HNO3=0.0
-!
-!NO2/HNO4=+K028+K029*<OH>
- PJAC(:,2,6)=+TPK%K028(:)+TPK%K029(:)*PCONC(:,15)
-!
-!NO2/N2O5=+K010
- PJAC(:,2,7)=+TPK%K010(:)
-!
-!NO2/NO3=+2.*K007*<NO>-K009*<NO2>+K012*<NO2>-K012*<NO2>+K014+0.8*K033*<HO2>+K04
-!0*<OH>+2.*K041*<NO3>+2.*K041*<NO3>
- PJAC(:,2,8)=+2.*TPK%K007(:)*PCONC(:,1)-TPK%K009(:)*PCONC(:,2)+TPK%K012(:)*PCON&
-&C(:,2)-TPK%K012(:)*PCONC(:,2)+TPK%K014(:)+0.8*TPK%K033(:)*PCONC(:,10)+TPK%K040&
-&(:)*PCONC(:,15)+2.*TPK%K041(:)*PCONC(:,8)+2.*TPK%K041(:)*PCONC(:,8)
+!WR_ORA1/WR_SULF=0.0
!
-!NO2/NH3=0.0
+!WR_ORA1/WR_HCHO=+KR19*<WR_OH>
+ PJAC(:,83,82)=+TPK%KR19(:)*PCONC(:,77)
!
-!NO2/HO2=+K026*<NO>-K027*<NO2>+0.8*K033*<NO3>+K118*<RO23>+K158*<RO211>+K161*<RO
-!212>+K185*<RO219>+K203*<RO225>+K212*<RO228>+K295*<RO252>
- PJAC(:,2,10)=+TPK%K026(:)*PCONC(:,1)-TPK%K027(:)*PCONC(:,2)+0.8*TPK%K033(:)*PC&
-&ONC(:,8)+TPK%K118(:)*TPK%RO23(:)+TPK%K158(:)*TPK%RO211(:)+TPK%K161(:)*TPK%RO21&
-&2(:)+TPK%K185(:)*TPK%RO219(:)+TPK%K203(:)*TPK%RO225(:)+TPK%K212(:)*TPK%RO228(:&
-&)+TPK%K295(:)*TPK%RO252(:)
+!WR_ORA1/WR_ORA1=-KTR37-KR20*<WR_OH>
+ PJAC(:,83,83)=-TPK%KTR37(:)-TPK%KR20(:)*PCONC(:,77)
!
-!NO2/CO=0.0
+!WR_ORA1/WR_ORA2=0.0
!
-!NO2/H2O2=0.0
+!WR_ORA1/WR_MO2=0.0
!
-!NO2/SO2=0.0
+!WR_ORA1/WR_OP1=0.0
!
-!NO2/H2SO4=0.0
+!WR_ORA1/WR_ASO3=0.0
!
-!NO2/OH=-K022*<NO2>+K029*<HNO4>+K039*<HONO>+K040*<NO3>
- PJAC(:,2,15)=-TPK%K022(:)*PCONC(:,2)+TPK%K029(:)*PCONC(:,6)+TPK%K039(:)*PCONC(&
-&:,4)+TPK%K040(:)*PCONC(:,8)
+!WR_ORA1/WR_ASO4=0.0
!
-!NO2/ETHE=0.0
+!WR_ORA1/WR_ASO5=0.0
!
-!NO2/OLEL=0.0
+!WR_ORA1/WR_AHSO5=0.0
!
-!NO2/OLEH=0.0
+!WR_ORA1/WR_AHMS=+KR23*<WR_OH>
+ PJAC(:,83,91)=+TPK%KR23(:)*PCONC(:,77)
!
-!NO2/ALKL=0.0
+!WR_ORA2/O3=0.0
!
-!NO2/ALKM=0.0
+!WR_ORA2/H2O2=0.0
!
-!NO2/ALKH=0.0
+!WR_ORA2/NO=0.0
!
-!NO2/AROH=0.0
+!WR_ORA2/NO2=0.0
!
-!NO2/AROL=0.0
+!WR_ORA2/NO3=0.0
!
-!NO2/AROO=0.0
+!WR_ORA2/N2O5=0.0
!
-!NO2/ARAL=0.0
+!WR_ORA2/HONO=0.0
!
-!NO2/ARAC=0.0
+!WR_ORA2/HNO3=0.0
!
-!NO2/PAH=0.0
+!WR_ORA2/HNO4=0.0
!
-!NO2/HCHO=0.0
+!WR_ORA2/NH3=0.0
!
-!NO2/ALD2=0.0
+!WR_ORA2/SO2=0.0
!
-!NO2/KETL=0.0
+!WR_ORA2/SULF=0.0
!
-!NO2/KETH=0.0
+!WR_ORA2/CO=0.0
!
-!NO2/MEOH=0.0
+!WR_ORA2/OH=0.0
!
-!NO2/ETOH=0.0
+!WR_ORA2/HO2=0.0
!
-!NO2/ALCH=0.0
+!WR_ORA2/CH4=0.0
!
-!NO2/ISOP=0.0
+!WR_ORA2/ETH=0.0
!
-!NO2/BIOL=0.0
+!WR_ORA2/ALKA=0.0
!
-!NO2/BIOH=0.0
+!WR_ORA2/ALKE=0.0
!
-!NO2/MTBE=0.0
+!WR_ORA2/BIO=0.0
!
-!NO2/MVK=0.0
+!WR_ORA2/ARO=0.0
!
-!NO2/MCR=0.0
+!WR_ORA2/HCHO=0.0
!
-!NO2/MGLY=0.0
+!WR_ORA2/ALD=0.0
!
-!NO2/GLY=0.0
+!WR_ORA2/KET=0.0
!
-!NO2/ORA1=0.0
+!WR_ORA2/CARBO=0.0
!
-!NO2/ORA2=0.0
+!WR_ORA2/ONIT=0.0
!
-!NO2/ACID=0.0
+!WR_ORA2/PAN=0.0
!
-!NO2/UR28=0.0
+!WR_ORA2/OP1=0.0
!
-!NO2/UR21=0.0
+!WR_ORA2/OP2=0.0
!
-!NO2/URG2=0.0
+!WR_ORA2/ORA1=0.0
!
-!NO2/UR26=0.0
+!WR_ORA2/ORA2=+KTR18
+ PJAC(:,84,31)=+TPK%KTR18(:)
!
-!NO2/RPG2=0.0
+!WR_ORA2/MO2=0.0
!
-!NO2/RP18=0.0
+!WR_ORA2/ALKAP=0.0
!
-!NO2/RPG3=0.0
+!WR_ORA2/ALKEP=0.0
!
-!NO2/URG4=0.0
+!WR_ORA2/BIOP=0.0
!
-!NO2/UR8=0.0
+!WR_ORA2/PHO=0.0
!
-!NO2/UR17=0.0
+!WR_ORA2/ADD=0.0
!
-!NO2/UR7=0.0
+!WR_ORA2/AROP=0.0
!
-!NO2/RPR3=0.0
+!WR_ORA2/CARBOP=0.0
!
-!NO2/URG6=0.0
+!WR_ORA2/OLN=0.0
!
-!NO2/UR22=0.0
+!WR_ORA2/XO2=0.0
!
-!NO2/URG7=0.0
+!WR_ORA2/WC_O3=0.0
!
-!NO2/RPR4=0.0
+!WR_ORA2/WC_H2O2=0.0
!
-!NO2/RPR7=0.0
+!WR_ORA2/WC_NO=0.0
!
-!NO2/RPG7=0.0
+!WR_ORA2/WC_NO2=0.0
!
-!NO2/URG8=0.0
+!WR_ORA2/WC_NO3=0.0
!
-!NO2/UR19=0.0
+!WR_ORA2/WC_N2O5=0.0
!
-!NO2/URG9=0.0
+!WR_ORA2/WC_HONO=0.0
!
-!NO2/AP7=0.0
+!WR_ORA2/WC_HNO3=0.0
!
-!NO2/URG10=0.0
+!WR_ORA2/WC_HNO4=0.0
!
-!NO2/RPR1=0.0
+!WR_ORA2/WC_NH3=0.0
!
-!NO2/RPR5=0.0
+!WR_ORA2/WC_OH=0.0
!
-!NO2/RPR8=0.0
+!WR_ORA2/WC_HO2=0.0
!
-!NO2/RP10=0.0
+!WR_ORA2/WC_CO2=0.0
!
-!NO2/RP11=0.0
+!WR_ORA2/WC_SO2=0.0
!
-!NO2/RP16=0.0
+!WR_ORA2/WC_SULF=0.0
!
-!NO2/RPRL=0.0
+!WR_ORA2/WC_HCHO=0.0
!
-!NO2/APAN=+1.0000000*K139
- PJAC(:,2,76)=+1.0000000*TPK%K139(:)
+!WR_ORA2/WC_ORA1=0.0
!
-!NO2/PAN1=+K135
- PJAC(:,2,77)=+TPK%K135(:)
+!WR_ORA2/WC_ORA2=0.0
!
-!NO2/PAN2=+K136
- PJAC(:,2,78)=+TPK%K136(:)
+!WR_ORA2/WC_MO2=0.0
!
-!NO2/PAN3=+K137
- PJAC(:,2,79)=+TPK%K137(:)
+!WR_ORA2/WC_OP1=0.0
!
-!NO2/PAN4=+K141
- PJAC(:,2,80)=+TPK%K141(:)
+!WR_ORA2/WC_ASO3=0.0
!
-!NO2/PAN6=+K140
- PJAC(:,2,81)=+TPK%K140(:)
+!WR_ORA2/WC_ASO4=0.0
!
-!NO2/PAN7=+K343
- PJAC(:,2,82)=+TPK%K343(:)
+!WR_ORA2/WC_ASO5=0.0
!
-!NO2/PAN8=+K317
- PJAC(:,2,83)=+TPK%K317(:)
+!WR_ORA2/WC_AHSO5=0.0
!
-!NO2/PN10=+K138
- PJAC(:,2,84)=+TPK%K138(:)
+!WR_ORA2/WC_AHMS=0.0
!
-!NO2/RO2T=+K117*<RO23>+K157*<RO211>+K160*<RO212>+K184*<RO219>+K202*<RO225>+K211
-!*<RO228>+K296*<RO252>
- PJAC(:,2,85)=+TPK%K117(:)*TPK%RO23(:)+TPK%K157(:)*TPK%RO211(:)+TPK%K160(:)*TPK&
-&%RO212(:)+TPK%K184(:)*TPK%RO219(:)+TPK%K202(:)*TPK%RO225(:)+TPK%K211(:)*TPK%RO&
-&228(:)+TPK%K296(:)*TPK%RO252(:)
+!WR_ORA2/WR_O3=0.0
!
-!NO2/RO21=+K110*<NO>
- PJAC(:,2,86)=+TPK%K110(:)*PCONC(:,1)
+!WR_ORA2/WR_H2O2=0.0
!
-!NO2/RO25=+TPK%CF4*K122*<NO>
- PJAC(:,2,87)=+TPK%CF4*TPK%K122(:)*PCONC(:,1)
+!WR_ORA2/WR_NO=0.0
!
-!NO2/WC_O3=0.0
+!WR_ORA2/WR_NO2=0.0
!
-!NO2/WC_H2O2=0.0
+!WR_ORA2/WR_NO3=0.0
!
-!NO2/WC_NO=0.0
+!WR_ORA2/WR_N2O5=0.0
!
-!NO2/WC_NO2=+KTC35
- PJAC(:,2,91)=+TPK%KTC35(:)
+!WR_ORA2/WR_HONO=0.0
!
-!NO2/WC_NO3=0.0
+!WR_ORA2/WR_HNO3=0.0
!
-!NO2/WC_N2O5=0.0
+!WR_ORA2/WR_HNO4=0.0
!
-!NO2/WC_HONO=0.0
+!WR_ORA2/WR_NH3=0.0
!
-!NO2/WC_HNO3=0.0
+!WR_ORA2/WR_OH=0.0
!
-!NO2/WC_HNO4=0.0
+!WR_ORA2/WR_HO2=0.0
!
-!NO2/WC_NH3=0.0
+!WR_ORA2/WR_CO2=0.0
!
-!NO2/WC_OH=0.0
+!WR_ORA2/WR_SO2=0.0
!
-!NO2/WC_HO2=0.0
+!WR_ORA2/WR_SULF=0.0
!
-!NO2/WC_CO2=0.0
+!WR_ORA2/WR_HCHO=0.0
!
-!NO2/WC_SO2=0.0
+!WR_ORA2/WR_ORA1=0.0
!
-!NO2/WC_H2SO4=0.0
+!WR_ORA2/WR_ORA2=-KTR38
+ PJAC(:,84,84)=-TPK%KTR38(:)
!
-!NO2/WC_RO21=0.0
+!WR_ORA2/WR_MO2=0.0
!
-!NO2/WC_RO25=0.0
+!WR_ORA2/WR_OP1=0.0
!
-!NO2/WC_MEOH=0.0
+!WR_ORA2/WR_ASO3=0.0
!
-!NO2/WC_ETOH=0.0
+!WR_ORA2/WR_ASO4=0.0
!
-!NO2/WC_ALCH=0.0
+!WR_ORA2/WR_ASO5=0.0
!
-!NO2/WC_HCHO=0.0
+!WR_ORA2/WR_AHSO5=0.0
!
-!NO2/WC_ALD2=0.0
+!WR_ORA2/WR_AHMS=0.0
!
-!NO2/WC_GLY=0.0
+!WR_MO2/O3=0.0
!
-!NO2/WC_MGLY=0.0
+!WR_MO2/H2O2=0.0
!
-!NO2/WC_KETL=0.0
+!WR_MO2/NO=0.0
!
-!NO2/WC_ORA1=0.0
+!WR_MO2/NO2=0.0
!
-!NO2/WC_ORA2=0.0
+!WR_MO2/NO3=0.0
!
-!NO2/WC_ACID=0.0
+!WR_MO2/N2O5=0.0
!
-!NO2/WC_RP16=0.0
+!WR_MO2/HONO=0.0
!
-!NO2/WC_UR21=0.0
+!WR_MO2/HNO3=0.0
!
-!NO2/WC_UR28=0.0
+!WR_MO2/HNO4=0.0
!
-!NO2/WC_ACID2=0.0
+!WR_MO2/NH3=0.0
!
-!NO2/WC_ASO3=0.0
+!WR_MO2/SO2=0.0
!
-!NO2/WC_ASO4=0.0
+!WR_MO2/SULF=0.0
!
-!NO2/WC_ASO5=0.0
+!WR_MO2/CO=0.0
!
-!NO2/WC_AHSO5=0.0
+!WR_MO2/OH=0.0
!
-!NO2/WC_AHMS=0.0
+!WR_MO2/HO2=0.0
!
-!NO2/WR_O3=0.0
+!WR_MO2/CH4=0.0
!
-!NO2/WR_H2O2=0.0
+!WR_MO2/ETH=0.0
!
-!NO2/WR_NO=0.0
+!WR_MO2/ALKA=0.0
!
-!NO2/WR_NO2=+KTR35
- PJAC(:,2,128)=+TPK%KTR35(:)
+!WR_MO2/ALKE=0.0
!
-!NO2/WR_NO3=0.0
+!WR_MO2/BIO=0.0
!
-!NO2/WR_N2O5=0.0
+!WR_MO2/ARO=0.0
!
-!NO2/WR_HONO=0.0
+!WR_MO2/HCHO=0.0
!
-!NO2/WR_HNO3=0.0
+!WR_MO2/ALD=0.0
!
-!NO2/WR_HNO4=0.0
+!WR_MO2/KET=0.0
!
-!NO2/WR_NH3=0.0
+!WR_MO2/CARBO=0.0
!
-!NO2/WR_OH=0.0
+!WR_MO2/ONIT=0.0
!
-!NO2/WR_HO2=0.0
+!WR_MO2/PAN=0.0
!
-!NO2/WR_CO2=0.0
+!WR_MO2/OP1=0.0
!
-!NO2/WR_SO2=0.0
+!WR_MO2/OP2=0.0
!
-!NO2/WR_H2SO4=0.0
+!WR_MO2/ORA1=0.0
!
-!NO2/WR_RO21=0.0
+!WR_MO2/ORA2=0.0
!
-!NO2/WR_RO25=0.0
+!WR_MO2/MO2=+KTR19
+ PJAC(:,85,32)=+TPK%KTR19(:)
!
-!NO2/WR_MEOH=0.0
+!WR_MO2/ALKAP=0.0
!
-!NO2/WR_ETOH=0.0
+!WR_MO2/ALKEP=0.0
!
-!NO2/WR_ALCH=0.0
+!WR_MO2/BIOP=0.0
!
-!NO2/WR_HCHO=0.0
+!WR_MO2/PHO=0.0
!
-!NO2/WR_ALD2=0.0
+!WR_MO2/ADD=0.0
!
-!NO2/WR_GLY=0.0
+!WR_MO2/AROP=0.0
!
-!NO2/WR_MGLY=0.0
+!WR_MO2/CARBOP=0.0
!
-!NO2/WR_KETL=0.0
+!WR_MO2/OLN=0.0
!
-!NO2/WR_ORA1=0.0
+!WR_MO2/XO2=0.0
!
-!NO2/WR_ORA2=0.0
+!WR_MO2/WC_O3=0.0
!
-!NO2/WR_ACID=0.0
+!WR_MO2/WC_H2O2=0.0
!
-!NO2/WR_RP16=0.0
+!WR_MO2/WC_NO=0.0
!
-!NO2/WR_UR21=0.0
+!WR_MO2/WC_NO2=0.0
!
-!NO2/WR_UR28=0.0
+!WR_MO2/WC_NO3=0.0
!
-!NO2/WR_ACID2=0.0
+!WR_MO2/WC_N2O5=0.0
!
-!NO2/WR_ASO3=0.0
+!WR_MO2/WC_HONO=0.0
!
-!NO2/WR_ASO4=0.0
+!WR_MO2/WC_HNO3=0.0
!
-!NO2/WR_ASO5=0.0
+!WR_MO2/WC_HNO4=0.0
!
-!NO2/WR_AHSO5=0.0
+!WR_MO2/WC_NH3=0.0
!
-!NO2/WR_AHMS=0.0
+!WR_MO2/WC_OH=0.0
!
-!O3/NO=-K005*<O3>
- PJAC(:,3,1)=-TPK%K005(:)*PCONC(:,3)
+!WR_MO2/WC_HO2=0.0
!
-!O3/NO2=-K006*<O3>
- PJAC(:,3,2)=-TPK%K006(:)*PCONC(:,3)
+!WR_MO2/WC_CO2=0.0
!
-!O3/O3=-K005*<NO>-K006*<NO2>-K015-K016-K025*<OH>-K030*<HO2>-K034*<O>-K051*<ETHE
-!>-K056*<OLEL>-K066*<ISOP>-K076*<OLEH>-K086*<BIOL>-K090*<BIOH>-K281*<MVK>-K282*
-!<MCR>-KTC1-KTR1
- PJAC(:,3,3)=-TPK%K005(:)*PCONC(:,1)-TPK%K006(:)*PCONC(:,2)-TPK%K015(:)-TPK%K01&
-&6(:)-TPK%K025(:)*PCONC(:,15)-TPK%K030(:)*PCONC(:,10)-TPK%K034(:)*TPK%O(:)-TPK%&
-&K051(:)*PCONC(:,16)-TPK%K056(:)*PCONC(:,17)-TPK%K066(:)*PCONC(:,35)-TPK%K076(:&
-&)*PCONC(:,18)-TPK%K086(:)*PCONC(:,36)-TPK%K090(:)*PCONC(:,37)-TPK%K281(:)*PCON&
-&C(:,39)-TPK%K282(:)*PCONC(:,40)-TPK%KTC1(:)-TPK%KTR1(:)
+!WR_MO2/WC_SO2=0.0
!
-!O3/HONO=0.0
+!WR_MO2/WC_SULF=0.0
!
-!O3/HNO3=0.0
+!WR_MO2/WC_HCHO=0.0
!
-!O3/HNO4=0.0
+!WR_MO2/WC_ORA1=0.0
!
-!O3/N2O5=0.0
+!WR_MO2/WC_ORA2=0.0
!
-!O3/NO3=+K081*<ARAL>
- PJAC(:,3,8)=+TPK%K081(:)*PCONC(:,25)
+!WR_MO2/WC_MO2=0.0
!
-!O3/NH3=0.0
+!WR_MO2/WC_OP1=0.0
!
-!O3/HO2=-K030*<O3>+K142*<RO26>+K148*<RO28>+K166*<RO239>+K279*<RO248>+K289*<RO25
-!0>+K301*<RO254>+K310*<RO255>+K318*<RO256>+K332*<RO257>+K341*<RO258>
- PJAC(:,3,10)=-TPK%K030(:)*PCONC(:,3)+TPK%K142(:)*TPK%RO26(:)+TPK%K148(:)*TPK%R&
-&O28(:)+TPK%K166(:)*TPK%RO239(:)+TPK%K279(:)*TPK%RO248(:)+TPK%K289(:)*TPK%RO250&
-&(:)+TPK%K301(:)*TPK%RO254(:)+TPK%K310(:)*TPK%RO255(:)+TPK%K318(:)*TPK%RO256(:)&
-&+TPK%K332(:)*TPK%RO257(:)+TPK%K341(:)*TPK%RO258(:)
+!WR_MO2/WC_ASO3=0.0
!
-!O3/CO=0.0
+!WR_MO2/WC_ASO4=0.0
!
-!O3/H2O2=0.0
+!WR_MO2/WC_ASO5=0.0
!
-!O3/SO2=0.0
+!WR_MO2/WC_AHSO5=0.0
!
-!O3/H2SO4=0.0
+!WR_MO2/WC_AHMS=0.0
!
-!O3/OH=-K025*<O3>+TPK%CF39*K082*<ARAL>+K303*<RPR5>+1.0000011*K306*<RPRL>+K322*<
-!RPR7>+1.0000005*K323*<RPG7>+K326*<RP11>+1.0000000*K334*<RPG3>+1.0000000*K335*<
-!RPG2>+K337*<RP18>
- PJAC(:,3,15)=-TPK%K025(:)*PCONC(:,3)+TPK%CF39*TPK%K082(:)*PCONC(:,25)+TPK%K303&
-&(:)*PCONC(:,70)+1.0000011*TPK%K306(:)*PCONC(:,75)+TPK%K322(:)*PCONC(:,62)+1.00&
-&00005*TPK%K323(:)*PCONC(:,63)+TPK%K326(:)*PCONC(:,73)+1.0000000*TPK%K334(:)*PC&
-&ONC(:,52)+1.0000000*TPK%K335(:)*PCONC(:,50)+TPK%K337(:)*PCONC(:,51)
+!WR_MO2/WR_O3=0.0
!
-!O3/ETHE=-K051*<O3>
- PJAC(:,3,16)=-TPK%K051(:)*PCONC(:,3)
+!WR_MO2/WR_H2O2=0.0
!
-!O3/OLEL=-K056*<O3>
- PJAC(:,3,17)=-TPK%K056(:)*PCONC(:,3)
+!WR_MO2/WR_NO=0.0
!
-!O3/OLEH=-K076*<O3>
- PJAC(:,3,18)=-TPK%K076(:)*PCONC(:,3)
+!WR_MO2/WR_NO2=0.0
!
-!O3/ALKL=0.0
+!WR_MO2/WR_NO3=0.0
!
-!O3/ALKM=0.0
+!WR_MO2/WR_N2O5=0.0
!
-!O3/ALKH=0.0
+!WR_MO2/WR_HONO=0.0
!
-!O3/AROH=0.0
+!WR_MO2/WR_HNO3=0.0
!
-!O3/AROL=0.0
+!WR_MO2/WR_HNO4=0.0
!
-!O3/AROO=0.0
+!WR_MO2/WR_NH3=0.0
!
-!O3/ARAL=+K081*<NO3>+TPK%CF39*K082*<OH>
- PJAC(:,3,25)=+TPK%K081(:)*PCONC(:,8)+TPK%CF39*TPK%K082(:)*PCONC(:,15)
+!WR_MO2/WR_OH=0.0
!
-!O3/ARAC=0.0
+!WR_MO2/WR_HO2=0.0
!
-!O3/PAH=0.0
+!WR_MO2/WR_CO2=0.0
!
-!O3/HCHO=0.0
+!WR_MO2/WR_SO2=-KR18*<WR_MO2>
+ PJAC(:,85,80)=-TPK%KR18(:)*PCONC(:,85)
!
-!O3/ALD2=0.0
+!WR_MO2/WR_SULF=0.0
!
-!O3/KETL=0.0
+!WR_MO2/WR_HCHO=0.0
!
-!O3/KETH=0.0
+!WR_MO2/WR_ORA1=0.0
!
-!O3/MEOH=0.0
+!WR_MO2/WR_ORA2=0.0
!
-!O3/ETOH=0.0
+!WR_MO2/WR_MO2=-KTR39-KR17*<WR_MO2>-KR17*<WR_MO2>-KR17*<WR_MO2>-KR17*<WR_MO2>-K
+!R18*<WR_SO2>
+ PJAC(:,85,85)=-TPK%KTR39(:)-TPK%KR17(:)*PCONC(:,85)-TPK%KR17(:)*PCONC(:,85)-TP&
+&K%KR17(:)*PCONC(:,85)-TPK%KR17(:)*PCONC(:,85)-TPK%KR18(:)*PCONC(:,80)
!
-!O3/ALCH=0.0
+!WR_MO2/WR_OP1=0.0
!
-!O3/ISOP=-K066*<O3>
- PJAC(:,3,35)=-TPK%K066(:)*PCONC(:,3)
+!WR_MO2/WR_ASO3=0.0
!
-!O3/BIOL=-K086*<O3>
- PJAC(:,3,36)=-TPK%K086(:)*PCONC(:,3)
+!WR_MO2/WR_ASO4=0.0
!
-!O3/BIOH=-K090*<O3>
- PJAC(:,3,37)=-TPK%K090(:)*PCONC(:,3)
+!WR_MO2/WR_ASO5=0.0
!
-!O3/MTBE=0.0
+!WR_MO2/WR_AHSO5=0.0
!
-!O3/MVK=-K281*<O3>
- PJAC(:,3,39)=-TPK%K281(:)*PCONC(:,3)
+!WR_MO2/WR_AHMS=0.0
!
-!O3/MCR=-K282*<O3>
- PJAC(:,3,40)=-TPK%K282(:)*PCONC(:,3)
+RETURN
+END SUBROUTINE SUBJ16
!
-!O3/MGLY=0.0
+SUBROUTINE SUBJ17
!
-!O3/GLY=0.0
+!Indices 86 a 90
!
-!O3/ORA1=0.0
!
-!O3/ORA2=0.0
+!WR_OP1/O3=0.0
!
-!O3/ACID=0.0
+!WR_OP1/H2O2=0.0
!
-!O3/UR28=0.0
+!WR_OP1/NO=0.0
!
-!O3/UR21=0.0
+!WR_OP1/NO2=0.0
!
-!O3/URG2=0.0
+!WR_OP1/NO3=0.0
!
-!O3/UR26=0.0
+!WR_OP1/N2O5=0.0
!
-!O3/RPG2=+1.0000000*K335*<OH>
- PJAC(:,3,50)=+1.0000000*TPK%K335(:)*PCONC(:,15)
+!WR_OP1/HONO=0.0
!
-!O3/RP18=+K337*<OH>
- PJAC(:,3,51)=+TPK%K337(:)*PCONC(:,15)
+!WR_OP1/HNO3=0.0
!
-!O3/RPG3=+1.0000000*K334*<OH>
- PJAC(:,3,52)=+1.0000000*TPK%K334(:)*PCONC(:,15)
+!WR_OP1/HNO4=0.0
!
-!O3/URG4=0.0
+!WR_OP1/NH3=0.0
!
-!O3/UR8=0.0
+!WR_OP1/SO2=0.0
!
-!O3/UR17=0.0
+!WR_OP1/SULF=0.0
!
-!O3/UR7=0.0
+!WR_OP1/CO=0.0
!
-!O3/RPR3=0.0
+!WR_OP1/OH=0.0
!
-!O3/URG6=0.0
+!WR_OP1/HO2=0.0
!
-!O3/UR22=0.0
+!WR_OP1/CH4=0.0
!
-!O3/URG7=0.0
+!WR_OP1/ETH=0.0
!
-!O3/RPR4=0.0
+!WR_OP1/ALKA=0.0
!
-!O3/RPR7=+K322*<OH>
- PJAC(:,3,62)=+TPK%K322(:)*PCONC(:,15)
+!WR_OP1/ALKE=0.0
!
-!O3/RPG7=+1.0000005*K323*<OH>
- PJAC(:,3,63)=+1.0000005*TPK%K323(:)*PCONC(:,15)
+!WR_OP1/BIO=0.0
!
-!O3/URG8=0.0
+!WR_OP1/ARO=0.0
!
-!O3/UR19=0.0
+!WR_OP1/HCHO=0.0
!
-!O3/URG9=0.0
+!WR_OP1/ALD=0.0
!
-!O3/AP7=0.0
+!WR_OP1/KET=0.0
!
-!O3/URG10=0.0
+!WR_OP1/CARBO=0.0
!
-!O3/RPR1=0.0
+!WR_OP1/ONIT=0.0
!
-!O3/RPR5=+K303*<OH>
- PJAC(:,3,70)=+TPK%K303(:)*PCONC(:,15)
+!WR_OP1/PAN=0.0
!
-!O3/RPR8=0.0
+!WR_OP1/OP1=+KTR20
+ PJAC(:,86,28)=+TPK%KTR20(:)
!
-!O3/RP10=0.0
+!WR_OP1/OP2=0.0
!
-!O3/RP11=+K326*<OH>
- PJAC(:,3,73)=+TPK%K326(:)*PCONC(:,15)
+!WR_OP1/ORA1=0.0
!
-!O3/RP16=0.0
+!WR_OP1/ORA2=0.0
!
-!O3/RPRL=+1.0000011*K306*<OH>
- PJAC(:,3,75)=+1.0000011*TPK%K306(:)*PCONC(:,15)
+!WR_OP1/MO2=0.0
!
-!O3/APAN=0.0
+!WR_OP1/ALKAP=0.0
!
-!O3/PAN1=0.0
+!WR_OP1/ALKEP=0.0
!
-!O3/PAN2=0.0
+!WR_OP1/BIOP=0.0
!
-!O3/PAN3=0.0
+!WR_OP1/PHO=0.0
!
-!O3/PAN4=0.0
+!WR_OP1/ADD=0.0
!
-!O3/PAN6=0.0
+!WR_OP1/AROP=0.0
!
-!O3/PAN7=0.0
+!WR_OP1/CARBOP=0.0
!
-!O3/PAN8=0.0
+!WR_OP1/OLN=0.0
!
-!O3/PN10=0.0
+!WR_OP1/XO2=0.0
!
-!O3/RO2T=0.0
+!WR_OP1/WC_O3=0.0
!
-!O3/RO21=0.0
+!WR_OP1/WC_H2O2=0.0
!
-!O3/RO25=0.0
+!WR_OP1/WC_NO=0.0
!
-!O3/WC_O3=+KTC32
- PJAC(:,3,88)=+TPK%KTC32(:)
+!WR_OP1/WC_NO2=0.0
!
-!O3/WC_H2O2=0.0
+!WR_OP1/WC_NO3=0.0
!
-!O3/WC_NO=0.0
+!WR_OP1/WC_N2O5=0.0
!
-!O3/WC_NO2=0.0
-!
-!O3/WC_NO3=0.0
-!
-!O3/WC_N2O5=0.0
-!
-!O3/WC_HONO=0.0
-!
-!O3/WC_HNO3=0.0
-!
-!O3/WC_HNO4=0.0
-!
-!O3/WC_NH3=0.0
-!
-!O3/WC_OH=0.0
-!
-!O3/WC_HO2=0.0
-!
-!O3/WC_CO2=0.0
-!
-!O3/WC_SO2=0.0
-!
-!O3/WC_H2SO4=0.0
-!
-!O3/WC_RO21=0.0
-!
-!O3/WC_RO25=0.0
+!WR_OP1/WC_HONO=0.0
!
-!O3/WC_MEOH=0.0
+!WR_OP1/WC_HNO3=0.0
!
-!O3/WC_ETOH=0.0
+!WR_OP1/WC_HNO4=0.0
!
-!O3/WC_ALCH=0.0
+!WR_OP1/WC_NH3=0.0
!
-!O3/WC_HCHO=0.0
+!WR_OP1/WC_OH=0.0
!
-!O3/WC_ALD2=0.0
+!WR_OP1/WC_HO2=0.0
!
-!O3/WC_GLY=0.0
+!WR_OP1/WC_CO2=0.0
!
-!O3/WC_MGLY=0.0
+!WR_OP1/WC_SO2=0.0
!
-!O3/WC_KETL=0.0
+!WR_OP1/WC_SULF=0.0
!
-!O3/WC_ORA1=0.0
+!WR_OP1/WC_HCHO=0.0
!
-!O3/WC_ORA2=0.0
+!WR_OP1/WC_ORA1=0.0
!
-!O3/WC_ACID=0.0
+!WR_OP1/WC_ORA2=0.0
!
-!O3/WC_RP16=0.0
+!WR_OP1/WC_MO2=0.0
!
-!O3/WC_UR21=0.0
+!WR_OP1/WC_OP1=0.0
!
-!O3/WC_UR28=0.0
+!WR_OP1/WC_ASO3=0.0
!
-!O3/WC_ACID2=0.0
+!WR_OP1/WC_ASO4=0.0
!
-!O3/WC_ASO3=0.0
+!WR_OP1/WC_ASO5=0.0
!
-!O3/WC_ASO4=0.0
+!WR_OP1/WC_AHSO5=0.0
!
-!O3/WC_ASO5=0.0
+!WR_OP1/WC_AHMS=0.0
!
-!O3/WC_AHSO5=0.0
+!WR_OP1/WR_O3=0.0
!
-!O3/WC_AHMS=0.0
+!WR_OP1/WR_H2O2=0.0
!
-!O3/WR_O3=+KTR32
- PJAC(:,3,125)=+TPK%KTR32(:)
+!WR_OP1/WR_NO=0.0
!
-!O3/WR_H2O2=0.0
+!WR_OP1/WR_NO2=0.0
!
-!O3/WR_NO=0.0
+!WR_OP1/WR_NO3=0.0
!
-!O3/WR_NO2=0.0
+!WR_OP1/WR_N2O5=0.0
!
-!O3/WR_NO3=0.0
+!WR_OP1/WR_HONO=0.0
!
-!O3/WR_N2O5=0.0
+!WR_OP1/WR_HNO3=0.0
!
-!O3/WR_HONO=0.0
+!WR_OP1/WR_HNO4=0.0
!
-!O3/WR_HNO3=0.0
+!WR_OP1/WR_NH3=0.0
!
-!O3/WR_HNO4=0.0
+!WR_OP1/WR_OH=0.0
!
-!O3/WR_NH3=0.0
+!WR_OP1/WR_HO2=0.0
!
-!O3/WR_OH=0.0
+!WR_OP1/WR_CO2=0.0
!
-!O3/WR_HO2=0.0
+!WR_OP1/WR_SO2=+KR18*<WR_MO2>
+ PJAC(:,86,80)=+TPK%KR18(:)*PCONC(:,85)
!
-!O3/WR_CO2=0.0
+!WR_OP1/WR_SULF=0.0
!
-!O3/WR_SO2=0.0
+!WR_OP1/WR_HCHO=0.0
!
-!O3/WR_H2SO4=0.0
+!WR_OP1/WR_ORA1=0.0
!
-!O3/WR_RO21=0.0
+!WR_OP1/WR_ORA2=0.0
!
-!O3/WR_RO25=0.0
+!WR_OP1/WR_MO2=+KR18*<WR_SO2>
+ PJAC(:,86,85)=+TPK%KR18(:)*PCONC(:,80)
!
-!O3/WR_MEOH=0.0
+!WR_OP1/WR_OP1=-KTR40
+ PJAC(:,86,86)=-TPK%KTR40(:)
!
-!O3/WR_ETOH=0.0
+!WR_OP1/WR_ASO3=0.0
!
-!O3/WR_ALCH=0.0
+!WR_OP1/WR_ASO4=0.0
!
-!O3/WR_HCHO=0.0
+!WR_OP1/WR_ASO5=0.0
!
-!O3/WR_ALD2=0.0
+!WR_OP1/WR_AHSO5=0.0
!
-!O3/WR_GLY=0.0
+!WR_OP1/WR_AHMS=0.0
!
-!O3/WR_MGLY=0.0
+!WR_ASO3/O3=0.0
!
-!O3/WR_KETL=0.0
+!WR_ASO3/H2O2=0.0
!
-!O3/WR_ORA1=0.0
+!WR_ASO3/NO=0.0
!
-!O3/WR_ORA2=0.0
+!WR_ASO3/NO2=0.0
!
-!O3/WR_ACID=0.0
+!WR_ASO3/NO3=0.0
!
-!O3/WR_RP16=0.0
+!WR_ASO3/N2O5=0.0
!
-!O3/WR_UR21=0.0
+!WR_ASO3/HONO=0.0
!
-!O3/WR_UR28=0.0
+!WR_ASO3/HNO3=0.0
!
-!O3/WR_ACID2=0.0
+!WR_ASO3/HNO4=0.0
!
-!O3/WR_ASO3=0.0
+!WR_ASO3/NH3=0.0
!
-!O3/WR_ASO4=0.0
+!WR_ASO3/SO2=0.0
!
-!O3/WR_ASO5=0.0
+!WR_ASO3/SULF=0.0
!
-!O3/WR_AHSO5=0.0
+!WR_ASO3/CO=0.0
!
-!O3/WR_AHMS=0.0
+!WR_ASO3/OH=0.0
!
-!HONO/NO=+K019*<OH>
- PJAC(:,4,1)=+TPK%K019(:)*PCONC(:,15)
+!WR_ASO3/HO2=0.0
!
-!HONO/NO2=+0.5*K021*<H2O>
- PJAC(:,4,2)=+0.5*TPK%K021(:)*TPK%H2O(:)
+!WR_ASO3/CH4=0.0
!
-!HONO/O3=0.0
+!WR_ASO3/ETH=0.0
!
-!HONO/HONO=-K020-K039*<OH>-KTC7-KTR7
- PJAC(:,4,4)=-TPK%K020(:)-TPK%K039(:)*PCONC(:,15)-TPK%KTC7(:)-TPK%KTR7(:)
+!WR_ASO3/ALKA=0.0
!
-!HONO/HNO3=0.0
+!WR_ASO3/ALKE=0.0
!
-!HONO/HNO4=0.0
+!WR_ASO3/BIO=0.0
!
-!HONO/N2O5=0.0
+!WR_ASO3/ARO=0.0
!
-!HONO/NO3=0.0
+!WR_ASO3/HCHO=0.0
!
-!HONO/NH3=0.0
+!WR_ASO3/ALD=0.0
!
-!HONO/HO2=0.0
+!WR_ASO3/KET=0.0
!
-!HONO/CO=0.0
+!WR_ASO3/CARBO=0.0
!
-!HONO/H2O2=0.0
+!WR_ASO3/ONIT=0.0
!
-!HONO/SO2=0.0
+!WR_ASO3/PAN=0.0
!
-!HONO/H2SO4=0.0
+!WR_ASO3/OP1=0.0
!
-!HONO/OH=+K019*<NO>-K039*<HONO>
- PJAC(:,4,15)=+TPK%K019(:)*PCONC(:,1)-TPK%K039(:)*PCONC(:,4)
+!WR_ASO3/OP2=0.0
!
-!HONO/ETHE=0.0
+!WR_ASO3/ORA1=0.0
!
-!HONO/OLEL=0.0
+!WR_ASO3/ORA2=0.0
!
-!HONO/OLEH=0.0
+!WR_ASO3/MO2=0.0
!
-!HONO/ALKL=0.0
+!WR_ASO3/ALKAP=0.0
!
-!HONO/ALKM=0.0
+!WR_ASO3/ALKEP=0.0
!
-!HONO/ALKH=0.0
+!WR_ASO3/BIOP=0.0
!
-!HONO/AROH=0.0
+!WR_ASO3/PHO=0.0
!
-!HONO/AROL=0.0
+!WR_ASO3/ADD=0.0
!
-!HONO/AROO=0.0
+!WR_ASO3/AROP=0.0
!
-!HONO/ARAL=0.0
+!WR_ASO3/CARBOP=0.0
!
-!HONO/ARAC=0.0
+!WR_ASO3/OLN=0.0
!
-!HONO/PAH=0.0
+!WR_ASO3/XO2=0.0
!
-!HONO/HCHO=0.0
+!WR_ASO3/WC_O3=0.0
!
-!HONO/ALD2=0.0
+!WR_ASO3/WC_H2O2=0.0
!
-!HONO/KETL=0.0
+!WR_ASO3/WC_NO=0.0
!
-!HONO/KETH=0.0
+!WR_ASO3/WC_NO2=0.0
!
-!HONO/MEOH=0.0
+!WR_ASO3/WC_NO3=0.0
!
-!HONO/ETOH=0.0
+!WR_ASO3/WC_N2O5=0.0
!
-!HONO/ALCH=0.0
+!WR_ASO3/WC_HONO=0.0
!
-!HONO/ISOP=0.0
+!WR_ASO3/WC_HNO3=0.0
!
-!HONO/BIOL=0.0
+!WR_ASO3/WC_HNO4=0.0
!
-!HONO/BIOH=0.0
+!WR_ASO3/WC_NH3=0.0
!
-!HONO/MTBE=0.0
+!WR_ASO3/WC_OH=0.0
!
-!HONO/MVK=0.0
+!WR_ASO3/WC_HO2=0.0
!
-!HONO/MCR=0.0
+!WR_ASO3/WC_CO2=0.0
!
-!HONO/MGLY=0.0
+!WR_ASO3/WC_SO2=0.0
!
-!HONO/GLY=0.0
+!WR_ASO3/WC_SULF=0.0
!
-!HONO/ORA1=0.0
+!WR_ASO3/WC_HCHO=0.0
!
-!HONO/ORA2=0.0
+!WR_ASO3/WC_ORA1=0.0
!
-!HONO/ACID=0.0
+!WR_ASO3/WC_ORA2=0.0
!
-!HONO/UR28=0.0
+!WR_ASO3/WC_MO2=0.0
!
-!HONO/UR21=0.0
+!WR_ASO3/WC_OP1=0.0
!
-!HONO/URG2=0.0
+!WR_ASO3/WC_ASO3=0.0
!
-!HONO/UR26=0.0
+!WR_ASO3/WC_ASO4=0.0
!
-!HONO/RPG2=0.0
+!WR_ASO3/WC_ASO5=0.0
!
-!HONO/RP18=0.0
+!WR_ASO3/WC_AHSO5=0.0
!
-!HONO/RPG3=0.0
+!WR_ASO3/WC_AHMS=0.0
!
-!HONO/URG4=0.0
+!WR_ASO3/WR_O3=0.0
!
-!HONO/UR8=0.0
+!WR_ASO3/WR_H2O2=0.0
!
-!HONO/UR17=0.0
+!WR_ASO3/WR_NO=0.0
!
-!HONO/UR7=0.0
+!WR_ASO3/WR_NO2=0.0
!
-!HONO/RPR3=0.0
+!WR_ASO3/WR_NO3=+KR16*<WR_SO2>
+ PJAC(:,87,71)=+TPK%KR16(:)*PCONC(:,80)
!
-!HONO/URG6=0.0
+!WR_ASO3/WR_N2O5=0.0
!
-!HONO/UR22=0.0
+!WR_ASO3/WR_HONO=0.0
!
-!HONO/URG7=0.0
+!WR_ASO3/WR_HNO3=0.0
!
-!HONO/RPR4=0.0
+!WR_ASO3/WR_HNO4=0.0
!
-!HONO/RPR7=0.0
+!WR_ASO3/WR_NH3=0.0
!
-!HONO/RPG7=0.0
+!WR_ASO3/WR_OH=+KR7*<WR_SO2>
+ PJAC(:,87,77)=+TPK%KR7(:)*PCONC(:,80)
!
-!HONO/URG8=0.0
+!WR_ASO3/WR_HO2=0.0
!
-!HONO/UR19=0.0
+!WR_ASO3/WR_CO2=0.0
!
-!HONO/URG9=0.0
+!WR_ASO3/WR_SO2=+KR7*<WR_OH>+KR16*<WR_NO3>+KR18*<WR_MO2>
+ PJAC(:,87,80)=+TPK%KR7(:)*PCONC(:,77)+TPK%KR16(:)*PCONC(:,71)+TPK%KR18(:)*PCON&
+&C(:,85)
!
-!HONO/AP7=0.0
+!WR_ASO3/WR_SULF=0.0
!
-!HONO/URG10=0.0
+!WR_ASO3/WR_HCHO=0.0
!
-!HONO/RPR1=0.0
+!WR_ASO3/WR_ORA1=0.0
!
-!HONO/RPR5=0.0
+!WR_ASO3/WR_ORA2=0.0
!
-!HONO/RPR8=0.0
+!WR_ASO3/WR_MO2=+KR18*<WR_SO2>
+ PJAC(:,87,85)=+TPK%KR18(:)*PCONC(:,80)
!
-!HONO/RP10=0.0
+!WR_ASO3/WR_OP1=0.0
!
-!HONO/RP11=0.0
+!WR_ASO3/WR_ASO3=-KR24*<W_O2>
+ PJAC(:,87,87)=-TPK%KR24(:)*TPK%W_O2(:)
!
-!HONO/RP16=0.0
+!WR_ASO3/WR_ASO4=0.0
!
-!HONO/RPRL=0.0
+!WR_ASO3/WR_ASO5=0.0
!
-!HONO/APAN=0.0
+!WR_ASO3/WR_AHSO5=0.0
!
-!HONO/PAN1=0.0
+!WR_ASO3/WR_AHMS=0.0
!
-!HONO/PAN2=0.0
+!WR_ASO4/O3=0.0
!
-!HONO/PAN3=0.0
+!WR_ASO4/H2O2=0.0
!
-!HONO/PAN4=0.0
+!WR_ASO4/NO=0.0
!
-!HONO/PAN6=0.0
+!WR_ASO4/NO2=0.0
!
-!HONO/PAN7=0.0
+!WR_ASO4/NO3=0.0
!
-!HONO/PAN8=0.0
+!WR_ASO4/N2O5=0.0
!
-!HONO/PN10=0.0
+!WR_ASO4/HONO=0.0
!
-!HONO/RO2T=0.0
+!WR_ASO4/HNO3=0.0
!
-!HONO/RO21=0.0
+!WR_ASO4/HNO4=0.0
!
-!HONO/RO25=0.0
+!WR_ASO4/NH3=0.0
!
-!HONO/WC_O3=0.0
+!WR_ASO4/SO2=0.0
!
-!HONO/WC_H2O2=0.0
+!WR_ASO4/SULF=0.0
!
-!HONO/WC_NO=0.0
+!WR_ASO4/CO=0.0
!
-!HONO/WC_NO2=0.0
+!WR_ASO4/OH=0.0
!
-!HONO/WC_NO3=0.0
+!WR_ASO4/HO2=0.0
!
-!HONO/WC_N2O5=0.0
+!WR_ASO4/CH4=0.0
!
-!HONO/WC_HONO=+KTC38
- PJAC(:,4,94)=+TPK%KTC38(:)
+!WR_ASO4/ETH=0.0
!
-!HONO/WC_HNO3=0.0
+!WR_ASO4/ALKA=0.0
!
-!HONO/WC_HNO4=0.0
+!WR_ASO4/ALKE=0.0
!
-!HONO/WC_NH3=0.0
+!WR_ASO4/BIO=0.0
!
-!HONO/WC_OH=0.0
+!WR_ASO4/ARO=0.0
!
-!HONO/WC_HO2=0.0
+!WR_ASO4/HCHO=0.0
!
-!HONO/WC_CO2=0.0
+!WR_ASO4/ALD=0.0
!
-!HONO/WC_SO2=0.0
+!WR_ASO4/KET=0.0
!
-!HONO/WC_H2SO4=0.0
+!WR_ASO4/CARBO=0.0
!
-!HONO/WC_RO21=0.0
+!WR_ASO4/ONIT=0.0
!
-!HONO/WC_RO25=0.0
+!WR_ASO4/PAN=0.0
!
-!HONO/WC_MEOH=0.0
+!WR_ASO4/OP1=0.0
!
-!HONO/WC_ETOH=0.0
+!WR_ASO4/OP2=0.0
!
-!HONO/WC_ALCH=0.0
+!WR_ASO4/ORA1=0.0
!
-!HONO/WC_HCHO=0.0
+!WR_ASO4/ORA2=0.0
!
-!HONO/WC_ALD2=0.0
+!WR_ASO4/MO2=0.0
!
-!HONO/WC_GLY=0.0
+!WR_ASO4/ALKAP=0.0
!
-!HONO/WC_MGLY=0.0
+!WR_ASO4/ALKEP=0.0
!
-!HONO/WC_KETL=0.0
+!WR_ASO4/BIOP=0.0
!
-!HONO/WC_ORA1=0.0
+!WR_ASO4/PHO=0.0
!
-!HONO/WC_ORA2=0.0
+!WR_ASO4/ADD=0.0
!
-!HONO/WC_ACID=0.0
+!WR_ASO4/AROP=0.0
!
-!HONO/WC_RP16=0.0
+!WR_ASO4/CARBOP=0.0
!
-!HONO/WC_UR21=0.0
+!WR_ASO4/OLN=0.0
!
-!HONO/WC_UR28=0.0
+!WR_ASO4/XO2=0.0
!
-!HONO/WC_ACID2=0.0
+!WR_ASO4/WC_O3=0.0
!
-!HONO/WC_ASO3=0.0
+!WR_ASO4/WC_H2O2=0.0
!
-!HONO/WC_ASO4=0.0
+!WR_ASO4/WC_NO=0.0
!
-!HONO/WC_ASO5=0.0
+!WR_ASO4/WC_NO2=0.0
!
-!HONO/WC_AHSO5=0.0
+!WR_ASO4/WC_NO3=0.0
!
-!HONO/WC_AHMS=0.0
+!WR_ASO4/WC_N2O5=0.0
!
-!HONO/WR_O3=0.0
+!WR_ASO4/WC_HONO=0.0
!
-!HONO/WR_H2O2=0.0
+!WR_ASO4/WC_HNO3=0.0
!
-!HONO/WR_NO=0.0
+!WR_ASO4/WC_HNO4=0.0
!
-!HONO/WR_NO2=0.0
+!WR_ASO4/WC_NH3=0.0
!
-!HONO/WR_NO3=0.0
+!WR_ASO4/WC_OH=0.0
!
-!HONO/WR_N2O5=0.0
+!WR_ASO4/WC_HO2=0.0
!
-!HONO/WR_HONO=+KTR38
- PJAC(:,4,131)=+TPK%KTR38(:)
+!WR_ASO4/WC_CO2=0.0
!
-!HONO/WR_HNO3=0.0
+!WR_ASO4/WC_SO2=0.0
!
-!HONO/WR_HNO4=0.0
+!WR_ASO4/WC_SULF=0.0
!
-!HONO/WR_NH3=0.0
+!WR_ASO4/WC_HCHO=0.0
!
-!HONO/WR_OH=0.0
+!WR_ASO4/WC_ORA1=0.0
!
-!HONO/WR_HO2=0.0
+!WR_ASO4/WC_ORA2=0.0
!
-!HONO/WR_CO2=0.0
+!WR_ASO4/WC_MO2=0.0
!
-!HONO/WR_SO2=0.0
+!WR_ASO4/WC_OP1=0.0
!
-!HONO/WR_H2SO4=0.0
+!WR_ASO4/WC_ASO3=0.0
!
-!HONO/WR_RO21=0.0
+!WR_ASO4/WC_ASO4=0.0
!
-!HONO/WR_RO25=0.0
+!WR_ASO4/WC_ASO5=0.0
!
-!HONO/WR_MEOH=0.0
+!WR_ASO4/WC_AHSO5=0.0
!
-!HONO/WR_ETOH=0.0
+!WR_ASO4/WC_AHMS=0.0
!
-!HONO/WR_ALCH=0.0
+!WR_ASO4/WR_O3=0.0
!
-!HONO/WR_HCHO=0.0
+!WR_ASO4/WR_H2O2=0.0
!
-!HONO/WR_ALD2=0.0
+!WR_ASO4/WR_NO=0.0
!
-!HONO/WR_GLY=0.0
+!WR_ASO4/WR_NO2=0.0
!
-!HONO/WR_MGLY=0.0
+!WR_ASO4/WR_NO3=+KR15*<WR_SULF>
+ PJAC(:,88,71)=+TPK%KR15(:)*PCONC(:,81)
!
-!HONO/WR_KETL=0.0
+!WR_ASO4/WR_N2O5=0.0
!
-!HONO/WR_ORA1=0.0
+!WR_ASO4/WR_HONO=0.0
!
-!HONO/WR_ORA2=0.0
+!WR_ASO4/WR_HNO3=0.0
!
-!HONO/WR_ACID=0.0
+!WR_ASO4/WR_HNO4=0.0
!
-!HONO/WR_RP16=0.0
+!WR_ASO4/WR_NH3=0.0
!
-!HONO/WR_UR21=0.0
+!WR_ASO4/WR_OH=0.0
!
-!HONO/WR_UR28=0.0
+!WR_ASO4/WR_HO2=0.0
!
-!HONO/WR_ACID2=0.0
+!WR_ASO4/WR_CO2=0.0
!
-!HONO/WR_ASO3=0.0
+!WR_ASO4/WR_SO2=0.0
!
-!HONO/WR_ASO4=0.0
+!WR_ASO4/WR_SULF=+KR15*<WR_NO3>
+ PJAC(:,88,81)=+TPK%KR15(:)*PCONC(:,71)
!
-!HONO/WR_ASO5=0.0
+!WR_ASO4/WR_HCHO=0.0
!
-!HONO/WR_AHSO5=0.0
+!WR_ASO4/WR_ORA1=0.0
!
-!HONO/WR_AHMS=0.0
+!WR_ASO4/WR_ORA2=0.0
!
-!HNO3/NO=0.0
+!WR_ASO4/WR_MO2=0.0
!
-!HNO3/NO2=+0.5*K021*<H2O>+K022*<OH>
- PJAC(:,5,2)=+0.5*TPK%K021(:)*TPK%H2O(:)+TPK%K022(:)*PCONC(:,15)
+!WR_ASO4/WR_OP1=0.0
!
-!HNO3/O3=0.0
+!WR_ASO4/WR_ASO3=0.0
!
-!HNO3/HONO=0.0
+!WR_ASO4/WR_ASO4=-KR28
+ PJAC(:,88,88)=-TPK%KR28(:)
!
-!HNO3/HNO3=-K023*<OH>-KTC8-KTR8
- PJAC(:,5,5)=-TPK%K023(:)*PCONC(:,15)-TPK%KTC8(:)-TPK%KTR8(:)
+!WR_ASO4/WR_ASO5=+KR26*<WR_ASO5>+KR26*<WR_ASO5>+KR26*<WR_ASO5>+KR26*<WR_ASO5>
+ PJAC(:,88,89)=+TPK%KR26(:)*PCONC(:,89)+TPK%KR26(:)*PCONC(:,89)+TPK%KR26(:)*PCO&
+&NC(:,89)+TPK%KR26(:)*PCONC(:,89)
!
-!HNO3/HNO4=0.0
+!WR_ASO4/WR_AHSO5=0.0
!
-!HNO3/N2O5=+2.*K011*<H2O>
- PJAC(:,5,7)=+2.*TPK%K011(:)*TPK%H2O(:)
+!WR_ASO4/WR_AHMS=0.0
!
-!HNO3/NO3=+0.2*K033*<HO2>+K047*<HCHO>+K061*<ALD2>+K072*<AROO>+K081*<ARAL>+TPK%C
-!F46*K275*<MCR>+K278*<MGLY>+K307*<RPR1>+K313*<RPR3>+K320*<RPR4>+K327*<RPR8>+K33
-!8*<RP16>
- PJAC(:,5,8)=+0.2*TPK%K033(:)*PCONC(:,10)+TPK%K047(:)*PCONC(:,28)+TPK%K061(:)*P&
-&CONC(:,29)+TPK%K072(:)*PCONC(:,24)+TPK%K081(:)*PCONC(:,25)+TPK%CF46*TPK%K275(:&
-&)*PCONC(:,40)+TPK%K278(:)*PCONC(:,41)+TPK%K307(:)*PCONC(:,69)+TPK%K313(:)*PCON&
-&C(:,57)+TPK%K320(:)*PCONC(:,61)+TPK%K327(:)*PCONC(:,71)+TPK%K338(:)*PCONC(:,74&
-&)
+!WR_ASO5/O3=0.0
!
-!HNO3/NH3=0.0
+!WR_ASO5/H2O2=0.0
!
-!HNO3/HO2=+0.2*K033*<NO3>
- PJAC(:,5,10)=+0.2*TPK%K033(:)*PCONC(:,8)
+!WR_ASO5/NO=0.0
!
-!HNO3/CO=0.0
+!WR_ASO5/NO2=0.0
!
-!HNO3/H2O2=0.0
+!WR_ASO5/NO3=0.0
!
-!HNO3/SO2=0.0
+!WR_ASO5/N2O5=0.0
!
-!HNO3/H2SO4=0.0
+!WR_ASO5/HONO=0.0
!
-!HNO3/OH=+K022*<NO2>-K023*<HNO3>
- PJAC(:,5,15)=+TPK%K022(:)*PCONC(:,2)-TPK%K023(:)*PCONC(:,5)
+!WR_ASO5/HNO3=0.0
!
-!HNO3/ETHE=0.0
+!WR_ASO5/HNO4=0.0
!
-!HNO3/OLEL=0.0
+!WR_ASO5/NH3=0.0
!
-!HNO3/OLEH=0.0
+!WR_ASO5/SO2=0.0
!
-!HNO3/ALKL=0.0
+!WR_ASO5/SULF=0.0
!
-!HNO3/ALKM=0.0
+!WR_ASO5/CO=0.0
!
-!HNO3/ALKH=0.0
+!WR_ASO5/OH=0.0
!
-!HNO3/AROH=0.0
+!WR_ASO5/HO2=0.0
!
-!HNO3/AROL=0.0
+!WR_ASO5/CH4=0.0
!
-!HNO3/AROO=+K072*<NO3>
- PJAC(:,5,24)=+TPK%K072(:)*PCONC(:,8)
+!WR_ASO5/ETH=0.0
!
-!HNO3/ARAL=+K081*<NO3>
- PJAC(:,5,25)=+TPK%K081(:)*PCONC(:,8)
+!WR_ASO5/ALKA=0.0
!
-!HNO3/ARAC=0.0
+!WR_ASO5/ALKE=0.0
!
-!HNO3/PAH=0.0
+!WR_ASO5/BIO=0.0
!
-!HNO3/HCHO=+K047*<NO3>
- PJAC(:,5,28)=+TPK%K047(:)*PCONC(:,8)
+!WR_ASO5/ARO=0.0
!
-!HNO3/ALD2=+K061*<NO3>
- PJAC(:,5,29)=+TPK%K061(:)*PCONC(:,8)
+!WR_ASO5/HCHO=0.0
!
-!HNO3/KETL=0.0
+!WR_ASO5/ALD=0.0
!
-!HNO3/KETH=0.0
+!WR_ASO5/KET=0.0
!
-!HNO3/MEOH=0.0
+!WR_ASO5/CARBO=0.0
!
-!HNO3/ETOH=0.0
+!WR_ASO5/ONIT=0.0
!
-!HNO3/ALCH=0.0
+!WR_ASO5/PAN=0.0
!
-!HNO3/ISOP=0.0
+!WR_ASO5/OP1=0.0
!
-!HNO3/BIOL=0.0
+!WR_ASO5/OP2=0.0
!
-!HNO3/BIOH=0.0
+!WR_ASO5/ORA1=0.0
!
-!HNO3/MTBE=0.0
+!WR_ASO5/ORA2=0.0
!
-!HNO3/MVK=0.0
+!WR_ASO5/MO2=0.0
!
-!HNO3/MCR=+TPK%CF46*K275*<NO3>
- PJAC(:,5,40)=+TPK%CF46*TPK%K275(:)*PCONC(:,8)
+!WR_ASO5/ALKAP=0.0
!
-!HNO3/MGLY=+K278*<NO3>
- PJAC(:,5,41)=+TPK%K278(:)*PCONC(:,8)
+!WR_ASO5/ALKEP=0.0
!
-!HNO3/GLY=0.0
+!WR_ASO5/BIOP=0.0
!
-!HNO3/ORA1=0.0
+!WR_ASO5/PHO=0.0
!
-!HNO3/ORA2=0.0
+!WR_ASO5/ADD=0.0
!
-!HNO3/ACID=0.0
+!WR_ASO5/AROP=0.0
!
-!HNO3/UR28=0.0
+!WR_ASO5/CARBOP=0.0
!
-!HNO3/UR21=0.0
+!WR_ASO5/OLN=0.0
!
-!HNO3/URG2=0.0
+!WR_ASO5/XO2=0.0
!
-!HNO3/UR26=0.0
+!WR_ASO5/WC_O3=0.0
!
-!HNO3/RPG2=0.0
+!WR_ASO5/WC_H2O2=0.0
!
-!HNO3/RP18=0.0
+!WR_ASO5/WC_NO=0.0
!
-!HNO3/RPG3=0.0
+!WR_ASO5/WC_NO2=0.0
!
-!HNO3/URG4=0.0
+!WR_ASO5/WC_NO3=0.0
!
-!HNO3/UR8=0.0
+!WR_ASO5/WC_N2O5=0.0
!
-!HNO3/UR17=0.0
+!WR_ASO5/WC_HONO=0.0
!
-!HNO3/UR7=0.0
+!WR_ASO5/WC_HNO3=0.0
!
-!HNO3/RPR3=+K313*<NO3>
- PJAC(:,5,57)=+TPK%K313(:)*PCONC(:,8)
+!WR_ASO5/WC_HNO4=0.0
!
-!HNO3/URG6=0.0
+!WR_ASO5/WC_NH3=0.0
!
-!HNO3/UR22=0.0
+!WR_ASO5/WC_OH=0.0
!
-!HNO3/URG7=0.0
+!WR_ASO5/WC_HO2=0.0
!
-!HNO3/RPR4=+K320*<NO3>
- PJAC(:,5,61)=+TPK%K320(:)*PCONC(:,8)
+!WR_ASO5/WC_CO2=0.0
!
-!HNO3/RPR7=0.0
+!WR_ASO5/WC_SO2=0.0
!
-!HNO3/RPG7=0.0
+!WR_ASO5/WC_SULF=0.0
!
-!HNO3/URG8=0.0
+!WR_ASO5/WC_HCHO=0.0
!
-!HNO3/UR19=0.0
+!WR_ASO5/WC_ORA1=0.0
!
-!HNO3/URG9=0.0
+!WR_ASO5/WC_ORA2=0.0
!
-!HNO3/AP7=0.0
+!WR_ASO5/WC_MO2=0.0
!
-!HNO3/URG10=0.0
+!WR_ASO5/WC_OP1=0.0
!
-!HNO3/RPR1=+K307*<NO3>
- PJAC(:,5,69)=+TPK%K307(:)*PCONC(:,8)
+!WR_ASO5/WC_ASO3=0.0
!
-!HNO3/RPR5=0.0
+!WR_ASO5/WC_ASO4=0.0
!
-!HNO3/RPR8=+K327*<NO3>
- PJAC(:,5,71)=+TPK%K327(:)*PCONC(:,8)
+!WR_ASO5/WC_ASO5=0.0
!
-!HNO3/RP10=0.0
+!WR_ASO5/WC_AHSO5=0.0
!
-!HNO3/RP11=0.0
+!WR_ASO5/WC_AHMS=0.0
!
-!HNO3/RP16=+K338*<NO3>
- PJAC(:,5,74)=+TPK%K338(:)*PCONC(:,8)
+!WR_ASO5/WR_O3=0.0
!
-!HNO3/RPRL=0.0
+!WR_ASO5/WR_H2O2=0.0
!
-!HNO3/APAN=0.0
+!WR_ASO5/WR_NO=0.0
!
-!HNO3/PAN1=0.0
+!WR_ASO5/WR_NO2=0.0
!
-!HNO3/PAN2=0.0
+!WR_ASO5/WR_NO3=0.0
!
-!HNO3/PAN3=0.0
+!WR_ASO5/WR_N2O5=0.0
!
-!HNO3/PAN4=0.0
+!WR_ASO5/WR_HONO=0.0
!
-!HNO3/PAN6=0.0
+!WR_ASO5/WR_HNO3=0.0
!
-!HNO3/PAN7=0.0
+!WR_ASO5/WR_HNO4=0.0
!
-!HNO3/PAN8=0.0
+!WR_ASO5/WR_NH3=0.0
!
-!HNO3/PN10=0.0
+!WR_ASO5/WR_OH=0.0
!
-!HNO3/RO2T=0.0
+!WR_ASO5/WR_HO2=-KR25*<WR_ASO5>
+ PJAC(:,89,78)=-TPK%KR25(:)*PCONC(:,89)
!
-!HNO3/RO21=0.0
+!WR_ASO5/WR_CO2=0.0
!
-!HNO3/RO25=0.0
+!WR_ASO5/WR_SO2=0.0
!
-!HNO3/WC_O3=0.0
+!WR_ASO5/WR_SULF=0.0
!
-!HNO3/WC_H2O2=0.0
+!WR_ASO5/WR_HCHO=0.0
!
-!HNO3/WC_NO=0.0
+!WR_ASO5/WR_ORA1=0.0
!
-!HNO3/WC_NO2=0.0
+!WR_ASO5/WR_ORA2=0.0
!
-!HNO3/WC_NO3=0.0
+!WR_ASO5/WR_MO2=0.0
!
-!HNO3/WC_N2O5=0.0
+!WR_ASO5/WR_OP1=0.0
!
-!HNO3/WC_HONO=0.0
+!WR_ASO5/WR_ASO3=+KR24*<W_O2>
+ PJAC(:,89,87)=+TPK%KR24(:)*TPK%W_O2(:)
!
-!HNO3/WC_HNO3=+KTC39
- PJAC(:,5,95)=+TPK%KTC39(:)
+!WR_ASO5/WR_ASO4=0.0
!
-!HNO3/WC_HNO4=0.0
+!WR_ASO5/WR_ASO5=-KR25*<WR_HO2>-KR26*<WR_ASO5>-KR26*<WR_ASO5>-KR26*<WR_ASO5>-KR
+!26*<WR_ASO5>
+ PJAC(:,89,89)=-TPK%KR25(:)*PCONC(:,78)-TPK%KR26(:)*PCONC(:,89)-TPK%KR26(:)*PCO&
+&NC(:,89)-TPK%KR26(:)*PCONC(:,89)-TPK%KR26(:)*PCONC(:,89)
!
-!HNO3/WC_NH3=0.0
+!WR_ASO5/WR_AHSO5=0.0
!
-!HNO3/WC_OH=0.0
+!WR_ASO5/WR_AHMS=0.0
!
-!HNO3/WC_HO2=0.0
+!WR_AHSO5/O3=0.0
!
-!HNO3/WC_CO2=0.0
+!WR_AHSO5/H2O2=0.0
!
-!HNO3/WC_SO2=0.0
+!WR_AHSO5/NO=0.0
!
-!HNO3/WC_H2SO4=0.0
+!WR_AHSO5/NO2=0.0
!
-!HNO3/WC_RO21=0.0
+!WR_AHSO5/NO3=0.0
!
-!HNO3/WC_RO25=0.0
+!WR_AHSO5/N2O5=0.0
!
-!HNO3/WC_MEOH=0.0
+!WR_AHSO5/HONO=0.0
!
-!HNO3/WC_ETOH=0.0
+!WR_AHSO5/HNO3=0.0
!
-!HNO3/WC_ALCH=0.0
+!WR_AHSO5/HNO4=0.0
!
-!HNO3/WC_HCHO=0.0
+!WR_AHSO5/NH3=0.0
!
-!HNO3/WC_ALD2=0.0
+!WR_AHSO5/SO2=0.0
!
-!HNO3/WC_GLY=0.0
+!WR_AHSO5/SULF=0.0
!
-!HNO3/WC_MGLY=0.0
+!WR_AHSO5/CO=0.0
!
-!HNO3/WC_KETL=0.0
+!WR_AHSO5/OH=0.0
!
-!HNO3/WC_ORA1=0.0
+!WR_AHSO5/HO2=0.0
!
-!HNO3/WC_ORA2=0.0
+!WR_AHSO5/CH4=0.0
!
-!HNO3/WC_ACID=0.0
+!WR_AHSO5/ETH=0.0
!
-!HNO3/WC_RP16=0.0
+!WR_AHSO5/ALKA=0.0
!
-!HNO3/WC_UR21=0.0
+!WR_AHSO5/ALKE=0.0
!
-!HNO3/WC_UR28=0.0
+!WR_AHSO5/BIO=0.0
!
-!HNO3/WC_ACID2=0.0
+!WR_AHSO5/ARO=0.0
!
-!HNO3/WC_ASO3=0.0
+!WR_AHSO5/HCHO=0.0
!
-!HNO3/WC_ASO4=0.0
+!WR_AHSO5/ALD=0.0
!
-!HNO3/WC_ASO5=0.0
+!WR_AHSO5/KET=0.0
!
-!HNO3/WC_AHSO5=0.0
+!WR_AHSO5/CARBO=0.0
!
-!HNO3/WC_AHMS=0.0
+!WR_AHSO5/ONIT=0.0
!
-!HNO3/WR_O3=0.0
+!WR_AHSO5/PAN=0.0
!
-!HNO3/WR_H2O2=0.0
+!WR_AHSO5/OP1=0.0
!
-!HNO3/WR_NO=0.0
+!WR_AHSO5/OP2=0.0
!
-!HNO3/WR_NO2=0.0
+!WR_AHSO5/ORA1=0.0
!
-!HNO3/WR_NO3=0.0
+!WR_AHSO5/ORA2=0.0
!
-!HNO3/WR_N2O5=0.0
+!WR_AHSO5/MO2=0.0
!
-!HNO3/WR_HONO=0.0
+!WR_AHSO5/ALKAP=0.0
!
-!HNO3/WR_HNO3=+KTR39
- PJAC(:,5,132)=+TPK%KTR39(:)
+!WR_AHSO5/ALKEP=0.0
!
-!HNO3/WR_HNO4=0.0
+!WR_AHSO5/BIOP=0.0
!
-!HNO3/WR_NH3=0.0
+!WR_AHSO5/PHO=0.0
!
-!HNO3/WR_OH=0.0
+!WR_AHSO5/ADD=0.0
!
-!HNO3/WR_HO2=0.0
+!WR_AHSO5/AROP=0.0
!
-!HNO3/WR_CO2=0.0
+!WR_AHSO5/CARBOP=0.0
!
-!HNO3/WR_SO2=0.0
+!WR_AHSO5/OLN=0.0
!
-!HNO3/WR_H2SO4=0.0
+!WR_AHSO5/XO2=0.0
!
-!HNO3/WR_RO21=0.0
+!WR_AHSO5/WC_O3=0.0
!
-!HNO3/WR_RO25=0.0
+!WR_AHSO5/WC_H2O2=0.0
!
-!HNO3/WR_MEOH=0.0
+!WR_AHSO5/WC_NO=0.0
!
-!HNO3/WR_ETOH=0.0
+!WR_AHSO5/WC_NO2=0.0
!
-!HNO3/WR_ALCH=0.0
+!WR_AHSO5/WC_NO3=0.0
!
-!HNO3/WR_HCHO=0.0
+!WR_AHSO5/WC_N2O5=0.0
!
-!HNO3/WR_ALD2=0.0
+!WR_AHSO5/WC_HONO=0.0
!
-!HNO3/WR_GLY=0.0
+!WR_AHSO5/WC_HNO3=0.0
!
-!HNO3/WR_MGLY=0.0
+!WR_AHSO5/WC_HNO4=0.0
!
-!HNO3/WR_KETL=0.0
+!WR_AHSO5/WC_NH3=0.0
!
-!HNO3/WR_ORA1=0.0
+!WR_AHSO5/WC_OH=0.0
!
-!HNO3/WR_ORA2=0.0
+!WR_AHSO5/WC_HO2=0.0
!
-!HNO3/WR_ACID=0.0
+!WR_AHSO5/WC_CO2=0.0
!
-!HNO3/WR_RP16=0.0
+!WR_AHSO5/WC_SO2=0.0
!
-!HNO3/WR_UR21=0.0
+!WR_AHSO5/WC_SULF=0.0
!
-!HNO3/WR_UR28=0.0
+!WR_AHSO5/WC_HCHO=0.0
!
-!HNO3/WR_ACID2=0.0
+!WR_AHSO5/WC_ORA1=0.0
!
-!HNO3/WR_ASO3=0.0
+!WR_AHSO5/WC_ORA2=0.0
!
-!HNO3/WR_ASO4=0.0
+!WR_AHSO5/WC_MO2=0.0
!
-!HNO3/WR_ASO5=0.0
+!WR_AHSO5/WC_OP1=0.0
!
-!HNO3/WR_AHSO5=0.0
+!WR_AHSO5/WC_ASO3=0.0
!
-!HNO3/WR_AHMS=0.0
+!WR_AHSO5/WC_ASO4=0.0
!
-RETURN
-END SUBROUTINE SUBJ0
+!WR_AHSO5/WC_ASO5=0.0
!
-SUBROUTINE SUBJ1
+!WR_AHSO5/WC_AHSO5=0.0
!
-!Indices 6 a 10
+!WR_AHSO5/WC_AHMS=0.0
!
+!WR_AHSO5/WR_O3=0.0
!
-!HNO4/NO=0.0
+!WR_AHSO5/WR_H2O2=0.0
!
-!HNO4/NO2=+K027*<HO2>
- PJAC(:,6,2)=+TPK%K027(:)*PCONC(:,10)
+!WR_AHSO5/WR_NO=0.0
!
-!HNO4/O3=0.0
+!WR_AHSO5/WR_NO2=0.0
!
-!HNO4/HONO=0.0
+!WR_AHSO5/WR_NO3=0.0
!
-!HNO4/HNO3=0.0
+!WR_AHSO5/WR_N2O5=0.0
!
-!HNO4/HNO4=-K028-K029*<OH>-KTC9-KTR9
- PJAC(:,6,6)=-TPK%K028(:)-TPK%K029(:)*PCONC(:,15)-TPK%KTC9(:)-TPK%KTR9(:)
+!WR_AHSO5/WR_HONO=0.0
!
-!HNO4/N2O5=0.0
+!WR_AHSO5/WR_HNO3=0.0
!
-!HNO4/NO3=0.0
+!WR_AHSO5/WR_HNO4=0.0
!
-!HNO4/NH3=0.0
+!WR_AHSO5/WR_NH3=0.0
!
-!HNO4/HO2=+K027*<NO2>
- PJAC(:,6,10)=+TPK%K027(:)*PCONC(:,2)
+!WR_AHSO5/WR_OH=0.0
!
-!HNO4/CO=0.0
+!WR_AHSO5/WR_HO2=+KR25*<WR_ASO5>
+ PJAC(:,90,78)=+TPK%KR25(:)*PCONC(:,89)
!
-!HNO4/H2O2=0.0
+!WR_AHSO5/WR_CO2=0.0
!
-!HNO4/SO2=0.0
+!WR_AHSO5/WR_SO2=-KR27*<WR_AHSO5>
+ PJAC(:,90,80)=-TPK%KR27(:)*PCONC(:,90)
!
-!HNO4/H2SO4=0.0
+!WR_AHSO5/WR_SULF=0.0
!
-!HNO4/OH=-K029*<HNO4>
- PJAC(:,6,15)=-TPK%K029(:)*PCONC(:,6)
+!WR_AHSO5/WR_HCHO=0.0
!
-!HNO4/ETHE=0.0
+!WR_AHSO5/WR_ORA1=0.0
!
-!HNO4/OLEL=0.0
+!WR_AHSO5/WR_ORA2=0.0
!
-!HNO4/OLEH=0.0
+!WR_AHSO5/WR_MO2=0.0
!
-!HNO4/ALKL=0.0
+!WR_AHSO5/WR_OP1=0.0
!
-!HNO4/ALKM=0.0
+!WR_AHSO5/WR_ASO3=0.0
!
-!HNO4/ALKH=0.0
+!WR_AHSO5/WR_ASO4=0.0
!
-!HNO4/AROH=0.0
+!WR_AHSO5/WR_ASO5=+KR25*<WR_HO2>
+ PJAC(:,90,89)=+TPK%KR25(:)*PCONC(:,78)
!
-!HNO4/AROL=0.0
+!WR_AHSO5/WR_AHSO5=-KR27*<WR_SO2>
+ PJAC(:,90,90)=-TPK%KR27(:)*PCONC(:,80)
!
-!HNO4/AROO=0.0
+!WR_AHSO5/WR_AHMS=0.0
!
-!HNO4/ARAL=0.0
+RETURN
+END SUBROUTINE SUBJ17
!
-!HNO4/ARAC=0.0
+SUBROUTINE SUBJ18
!
-!HNO4/PAH=0.0
+!Indices 91 a 91
!
-!HNO4/HCHO=0.0
!
-!HNO4/ALD2=0.0
+!WR_AHMS/O3=0.0
!
-!HNO4/KETL=0.0
+!WR_AHMS/H2O2=0.0
!
-!HNO4/KETH=0.0
+!WR_AHMS/NO=0.0
!
-!HNO4/MEOH=0.0
+!WR_AHMS/NO2=0.0
!
-!HNO4/ETOH=0.0
+!WR_AHMS/NO3=0.0
!
-!HNO4/ALCH=0.0
+!WR_AHMS/N2O5=0.0
!
-!HNO4/ISOP=0.0
+!WR_AHMS/HONO=0.0
!
-!HNO4/BIOL=0.0
+!WR_AHMS/HNO3=0.0
!
-!HNO4/BIOH=0.0
+!WR_AHMS/HNO4=0.0
!
-!HNO4/MTBE=0.0
+!WR_AHMS/NH3=0.0
!
-!HNO4/MVK=0.0
+!WR_AHMS/SO2=0.0
!
-!HNO4/MCR=0.0
+!WR_AHMS/SULF=0.0
!
-!HNO4/MGLY=0.0
+!WR_AHMS/CO=0.0
!
-!HNO4/GLY=0.0
+!WR_AHMS/OH=0.0
!
-!HNO4/ORA1=0.0
+!WR_AHMS/HO2=0.0
!
-!HNO4/ORA2=0.0
+!WR_AHMS/CH4=0.0
!
-!HNO4/ACID=0.0
+!WR_AHMS/ETH=0.0
!
-!HNO4/UR28=0.0
+!WR_AHMS/ALKA=0.0
!
-!HNO4/UR21=0.0
+!WR_AHMS/ALKE=0.0
!
-!HNO4/URG2=0.0
+!WR_AHMS/BIO=0.0
!
-!HNO4/UR26=0.0
+!WR_AHMS/ARO=0.0
!
-!HNO4/RPG2=0.0
+!WR_AHMS/HCHO=0.0
!
-!HNO4/RP18=0.0
+!WR_AHMS/ALD=0.0
!
-!HNO4/RPG3=0.0
+!WR_AHMS/KET=0.0
!
-!HNO4/URG4=0.0
+!WR_AHMS/CARBO=0.0
!
-!HNO4/UR8=0.0
+!WR_AHMS/ONIT=0.0
!
-!HNO4/UR17=0.0
+!WR_AHMS/PAN=0.0
!
-!HNO4/UR7=0.0
+!WR_AHMS/OP1=0.0
!
-!HNO4/RPR3=0.0
+!WR_AHMS/OP2=0.0
!
-!HNO4/URG6=0.0
+!WR_AHMS/ORA1=0.0
!
-!HNO4/UR22=0.0
+!WR_AHMS/ORA2=0.0
!
-!HNO4/URG7=0.0
+!WR_AHMS/MO2=0.0
!
-!HNO4/RPR4=0.0
+!WR_AHMS/ALKAP=0.0
!
-!HNO4/RPR7=0.0
+!WR_AHMS/ALKEP=0.0
!
-!HNO4/RPG7=0.0
+!WR_AHMS/BIOP=0.0
!
-!HNO4/URG8=0.0
+!WR_AHMS/PHO=0.0
!
-!HNO4/UR19=0.0
+!WR_AHMS/ADD=0.0
!
-!HNO4/URG9=0.0
+!WR_AHMS/AROP=0.0
!
-!HNO4/AP7=0.0
+!WR_AHMS/CARBOP=0.0
!
-!HNO4/URG10=0.0
+!WR_AHMS/OLN=0.0
!
-!HNO4/RPR1=0.0
+!WR_AHMS/XO2=0.0
!
-!HNO4/RPR5=0.0
+!WR_AHMS/WC_O3=0.0
!
-!HNO4/RPR8=0.0
+!WR_AHMS/WC_H2O2=0.0
!
-!HNO4/RP10=0.0
+!WR_AHMS/WC_NO=0.0
!
-!HNO4/RP11=0.0
+!WR_AHMS/WC_NO2=0.0
!
-!HNO4/RP16=0.0
+!WR_AHMS/WC_NO3=0.0
!
-!HNO4/RPRL=0.0
+!WR_AHMS/WC_N2O5=0.0
!
-!HNO4/APAN=0.0
+!WR_AHMS/WC_HONO=0.0
!
-!HNO4/PAN1=0.0
+!WR_AHMS/WC_HNO3=0.0
!
-!HNO4/PAN2=0.0
+!WR_AHMS/WC_HNO4=0.0
!
-!HNO4/PAN3=0.0
+!WR_AHMS/WC_NH3=0.0
!
-!HNO4/PAN4=0.0
+!WR_AHMS/WC_OH=0.0
!
-!HNO4/PAN6=0.0
+!WR_AHMS/WC_HO2=0.0
!
-!HNO4/PAN7=0.0
+!WR_AHMS/WC_CO2=0.0
!
-!HNO4/PAN8=0.0
+!WR_AHMS/WC_SO2=0.0
!
-!HNO4/PN10=0.0
+!WR_AHMS/WC_SULF=0.0
!
-!HNO4/RO2T=0.0
+!WR_AHMS/WC_HCHO=0.0
!
-!HNO4/RO21=0.0
+!WR_AHMS/WC_ORA1=0.0
!
-!HNO4/RO25=0.0
+!WR_AHMS/WC_ORA2=0.0
!
-!HNO4/WC_O3=0.0
+!WR_AHMS/WC_MO2=0.0
!
-!HNO4/WC_H2O2=0.0
+!WR_AHMS/WC_OP1=0.0
!
-!HNO4/WC_NO=0.0
+!WR_AHMS/WC_ASO3=0.0
!
-!HNO4/WC_NO2=0.0
+!WR_AHMS/WC_ASO4=0.0
!
-!HNO4/WC_NO3=0.0
+!WR_AHMS/WC_ASO5=0.0
!
-!HNO4/WC_N2O5=0.0
+!WR_AHMS/WC_AHSO5=0.0
!
-!HNO4/WC_HONO=0.0
+!WR_AHMS/WC_AHMS=0.0
!
-!HNO4/WC_HNO3=0.0
+!WR_AHMS/WR_O3=0.0
!
-!HNO4/WC_HNO4=+KTC40
- PJAC(:,6,96)=+TPK%KTC40(:)
+!WR_AHMS/WR_H2O2=0.0
!
-!HNO4/WC_NH3=0.0
+!WR_AHMS/WR_NO=0.0
!
-!HNO4/WC_OH=0.0
+!WR_AHMS/WR_NO2=0.0
!
-!HNO4/WC_HO2=0.0
+!WR_AHMS/WR_NO3=0.0
!
-!HNO4/WC_CO2=0.0
+!WR_AHMS/WR_N2O5=0.0
!
-!HNO4/WC_SO2=0.0
+!WR_AHMS/WR_HONO=0.0
!
-!HNO4/WC_H2SO4=0.0
+!WR_AHMS/WR_HNO3=0.0
!
-!HNO4/WC_RO21=0.0
+!WR_AHMS/WR_HNO4=0.0
!
-!HNO4/WC_RO25=0.0
+!WR_AHMS/WR_NH3=0.0
!
-!HNO4/WC_MEOH=0.0
+!WR_AHMS/WR_OH=-KR23*<WR_AHMS>
+ PJAC(:,91,77)=-TPK%KR23(:)*PCONC(:,91)
!
-!HNO4/WC_ETOH=0.0
+!WR_AHMS/WR_HO2=0.0
!
-!HNO4/WC_ALCH=0.0
+!WR_AHMS/WR_CO2=0.0
!
-!HNO4/WC_HCHO=0.0
+!WR_AHMS/WR_SO2=+KR21*<WR_HCHO>
+ PJAC(:,91,80)=+TPK%KR21(:)*PCONC(:,82)
!
-!HNO4/WC_ALD2=0.0
+!WR_AHMS/WR_SULF=0.0
!
-!HNO4/WC_GLY=0.0
+!WR_AHMS/WR_HCHO=+KR21*<WR_SO2>
+ PJAC(:,91,82)=+TPK%KR21(:)*PCONC(:,80)
!
-!HNO4/WC_MGLY=0.0
+!WR_AHMS/WR_ORA1=0.0
!
-!HNO4/WC_KETL=0.0
+!WR_AHMS/WR_ORA2=0.0
!
-!HNO4/WC_ORA1=0.0
+!WR_AHMS/WR_MO2=0.0
!
-!HNO4/WC_ORA2=0.0
+!WR_AHMS/WR_OP1=0.0
!
-!HNO4/WC_ACID=0.0
+!WR_AHMS/WR_ASO3=0.0
!
-!HNO4/WC_RP16=0.0
+!WR_AHMS/WR_ASO4=0.0
!
-!HNO4/WC_UR21=0.0
+!WR_AHMS/WR_ASO5=0.0
!
-!HNO4/WC_UR28=0.0
+!WR_AHMS/WR_AHSO5=0.0
!
-!HNO4/WC_ACID2=0.0
+!WR_AHMS/WR_AHMS=-KR22-KR23*<WR_OH>
+ PJAC(:,91,91)=-TPK%KR22(:)-TPK%KR23(:)*PCONC(:,77)
!
-!HNO4/WC_ASO3=0.0
+RETURN
+END SUBROUTINE SUBJ18
!
-!HNO4/WC_ASO4=0.0
+END SUBROUTINE CH_JAC_AQ
!
-!HNO4/WC_ASO5=0.0
!
-!HNO4/WC_AHSO5=0.0
+!========================================================================
!
-!HNO4/WC_AHMS=0.0
+!! ##################
+ MODULE MODI_CH_JAC_GAZ
+!! ##################
+INTERFACE
+SUBROUTINE CH_JAC_GAZ(PTIME,PCONC,PJAC,KMI,KVECNPT,KEQ)
+IMPLICIT NONE
+REAL, INTENT(IN) :: PTIME
+INTEGER, INTENT(IN) :: KVECNPT
+INTEGER, INTENT(IN) :: KEQ
+REAL, INTENT(IN), DIMENSION(KVECNPT,KEQ) :: PCONC
+REAL, INTENT(OUT), DIMENSION(KVECNPT,KEQ,KEQ) :: PJAC
+INTEGER, INTENT(IN) :: KMI
+END SUBROUTINE CH_JAC_GAZ
+END INTERFACE
+END MODULE MODI_CH_JAC_GAZ
!
-!HNO4/WR_O3=0.0
+!========================================================================
!
-!HNO4/WR_H2O2=0.0
+!! ####################
+ SUBROUTINE CH_JAC_GAZ(PTIME,PCONC,PJAC,KMI,KVECNPT,KEQ)
+!! ####################
+!! This code has been created automatically by preprocessor m10,
+!! version: 9.7, copyright 1995-1999 by Meteo France/Universite Paul Sabatier.
+!! Please report all bugs to K. Suhre (Lab. d'Aerologie UPS/CNRS).
+!!*** *CH_JAC*
+!!
+!! PURPOSE
+!! -------
+! calculation of the JACOBIAN matrix
+!!
+!!** METHOD
+!! ------
+!! The Jacobian matrix J is calculated as defined by the chemical
+!! reaction mechanism.
+!! The reaction rates and other user-defined auxiliary variables are
+!! transfered in the TYPE(CCSTYPE) variable TPK%.
+!!
+!! REFERENCE
+!! ---------
+!! none
+!!
+!! AUTHOR
+!! ------
+!! Karsten Suhre (LA)
+!!
+!! MODIFICATIONS
+!! -------------
+!! Original 26/07/96
+!! Modified 05/05/98: Vectorization (Vincent Crassier & KS)
+!! Modified 31/10/03: New interface for better MesoNH compilation (D. Gazen)
+!!
+!!----------------------------------------------------------------------
+!!
+!! EXTERNAL
+!! --------
+!! none
+!!
+!! IMPLICIT ARGUMENTS
+!! ------------------
+USE MODD_CH_M9_SCHEME
+!!
+!! EXPLICIT ARGUMENTS
+!! ------------------
+IMPLICIT NONE
+REAL, INTENT(IN) :: PTIME
+INTEGER, INTENT(IN) :: KVECNPT
+INTEGER, INTENT(IN) :: KEQ
+REAL, INTENT(IN), DIMENSION(KVECNPT,KEQ) :: PCONC
+REAL, INTENT(OUT), DIMENSION(KVECNPT,KEQ,KEQ) :: PJAC
+INTEGER, INTENT(IN) :: KMI
!
-!HNO4/WR_NO=0.0
+TYPE(CCSTYPE), POINTER :: TPK
+TPK=>TACCS(KMI)
!
-!HNO4/WR_NO2=0.0
+! /BEGIN_CODE/
+TPK%O1D(:)=(TPK%K002(:)*PCONC(:,JP_O3))/(TPK%K020(:)*TPK%N2(:)+TPK%K021(:)*TPK%O2(:)+&
+ &TPK%K022(:)*TPK%H2O(:))
+TPK%O3P(:)=(TPK%K001(:)*PCONC(:,JP_NO2)+TPK%K003(:)*PCONC(:,JP_O3)+TPK%K008(:)*PCONC(:,JP_NO3)+&
+ &TPK%K020(:)*TPK%O1D(:)*TPK%N2(:)+TPK%K021(:)*TPK%O1D(:)*TPK%O2(:)+&
+ &0.00000*TPK%K079(:)*PCONC(:,JP_ALKE)*PCONC(:,JP_O3)+&
+ &0.09000*TPK%K080(:)*PCONC(:,JP_BIO)*PCONC(:,JP_O3))/&
+ &(TPK%K018(:)*TPK%O2(:)+TPK%K019(:)*PCONC(:,JP_O3)+TPK%K029(:)*PCONC(:,JP_NO)+&
+ &TPK%K030(:)*PCONC(:,JP_NO2)+TPK%K031(:)*PCONC(:,JP_NO2)+TPK%K054(:)*PCONC(:,JP_BIO)+&
+ &TPK%K055(:)*PCONC(:,JP_CARBO))
+! /END_CODE/
+PJAC(:,:,:) = 0.0
+CALL SUBJ0
+CALL SUBJ1
+CALL SUBJ2
+CALL SUBJ3
+CALL SUBJ4
+CALL SUBJ5
+CALL SUBJ6
+CALL SUBJ7
+CALL SUBJ8
!
-!HNO4/WR_NO3=0.0
+
+CONTAINS
+
+SUBROUTINE SUBJ0
!
-!HNO4/WR_N2O5=0.0
+!Indices 1 a 5
!
-!HNO4/WR_HONO=0.0
!
-!HNO4/WR_HNO3=0.0
+!O3/O3=-K002-K003-K019*<O3P>-K023*<OH>-K024*<HO2>-K042*<NO>-K043*<NO2>-K079*<AL
+!KE>-K080*<BIO>-K081*<CARBO>-K082*<PAN>-K087*<ADD>
+ PJAC(:,1,1)=-TPK%K002(:)-TPK%K003(:)-TPK%K019(:)*TPK%O3P(:)-TPK%K023(:)*PCONC(&
+&:,14)-TPK%K024(:)*PCONC(:,15)-TPK%K042(:)*PCONC(:,3)-TPK%K043(:)*PCONC(:,4)-TP&
+&K%K079(:)*PCONC(:,19)-TPK%K080(:)*PCONC(:,20)-TPK%K081(:)*PCONC(:,25)-TPK%K082&
+&(:)*PCONC(:,27)-TPK%K087(:)*PCONC(:,37)
!
-!HNO4/WR_HNO4=+KTR40
- PJAC(:,6,133)=+TPK%KTR40(:)
+!O3/H2O2=0.0
!
-!HNO4/WR_NH3=0.0
+!O3/NO=-K042*<O3>
+ PJAC(:,1,3)=-TPK%K042(:)*PCONC(:,1)
!
-!HNO4/WR_OH=0.0
+!O3/NO2=-K043*<O3>
+ PJAC(:,1,4)=-TPK%K043(:)*PCONC(:,1)
!
-!HNO4/WR_HO2=0.0
+!O3/NO3=0.0
!
-!HNO4/WR_CO2=0.0
+!O3/N2O5=0.0
!
-!HNO4/WR_SO2=0.0
+!O3/HONO=0.0
!
-!HNO4/WR_H2SO4=0.0
+!O3/HNO3=0.0
!
-!HNO4/WR_RO21=0.0
+!O3/HNO4=0.0
!
-!HNO4/WR_RO25=0.0
+!O3/NH3=0.0
!
-!HNO4/WR_MEOH=0.0
+!O3/SO2=0.0
!
-!HNO4/WR_ETOH=0.0
+!O3/SULF=0.0
!
-!HNO4/WR_ALCH=0.0
+!O3/CO=0.0
!
-!HNO4/WR_HCHO=0.0
+!O3/OH=-K023*<O3>
+ PJAC(:,1,14)=-TPK%K023(:)*PCONC(:,1)
!
-!HNO4/WR_ALD2=0.0
+!O3/HO2=-K024*<O3>+0.17307*K0102*<CARBOP>
+ PJAC(:,1,15)=-TPK%K024(:)*PCONC(:,1)+0.17307*TPK%K0102(:)*PCONC(:,39)
!
-!HNO4/WR_GLY=0.0
+!O3/CH4=0.0
!
-!HNO4/WR_MGLY=0.0
+!O3/ETH=0.0
!
-!HNO4/WR_KETL=0.0
+!O3/ALKA=0.0
!
-!HNO4/WR_ORA1=0.0
+!O3/ALKE=-K079*<O3>
+ PJAC(:,1,19)=-TPK%K079(:)*PCONC(:,1)
!
-!HNO4/WR_ORA2=0.0
+!O3/BIO=-K080*<O3>
+ PJAC(:,1,20)=-TPK%K080(:)*PCONC(:,1)
!
-!HNO4/WR_ACID=0.0
+!O3/ARO=0.0
!
-!HNO4/WR_RP16=0.0
+!O3/HCHO=0.0
!
-!HNO4/WR_UR21=0.0
+!O3/ALD=0.0
!
-!HNO4/WR_UR28=0.0
+!O3/KET=0.0
!
-!HNO4/WR_ACID2=0.0
+!O3/CARBO=-K081*<O3>
+ PJAC(:,1,25)=-TPK%K081(:)*PCONC(:,1)
!
-!HNO4/WR_ASO3=0.0
+!O3/ONIT=0.0
!
-!HNO4/WR_ASO4=0.0
+!O3/PAN=-K082*<O3>
+ PJAC(:,1,27)=-TPK%K082(:)*PCONC(:,1)
!
-!HNO4/WR_ASO5=0.0
+!O3/OP1=0.0
!
-!HNO4/WR_AHSO5=0.0
+!O3/OP2=0.0
!
-!HNO4/WR_AHMS=0.0
+!O3/ORA1=0.0
!
-!N2O5/NO=0.0
+!O3/ORA2=0.0
!
-!N2O5/NO2=+K009*<NO3>
- PJAC(:,7,2)=+TPK%K009(:)*PCONC(:,8)
+!O3/MO2=0.0
!
-!N2O5/O3=0.0
+!O3/ALKAP=0.0
!
-!N2O5/HONO=0.0
+!O3/ALKEP=0.0
!
-!N2O5/HNO3=0.0
+!O3/BIOP=0.0
!
-!N2O5/HNO4=0.0
+!O3/PHO=0.0
!
-!N2O5/N2O5=-K010-K011*<H2O>-KTC6-KTR6
- PJAC(:,7,7)=-TPK%K010(:)-TPK%K011(:)*TPK%H2O(:)-TPK%KTC6(:)-TPK%KTR6(:)
+!O3/ADD=-K087*<O3>
+ PJAC(:,1,37)=-TPK%K087(:)*PCONC(:,1)
!
-!N2O5/NO3=+K009*<NO2>
- PJAC(:,7,8)=+TPK%K009(:)*PCONC(:,2)
+!O3/AROP=0.0
!
-!N2O5/NH3=0.0
+!O3/CARBOP=+0.17307*K0102*<HO2>
+ PJAC(:,1,39)=+0.17307*TPK%K0102(:)*PCONC(:,15)
!
-!N2O5/HO2=0.0
+!O3/OLN=0.0
!
-!N2O5/CO=0.0
+!O3/XO2=0.0
!
-!N2O5/H2O2=0.0
+!H2O2/O3=+0.01833*K079*<ALKE>+0.00100*K080*<BIO>
+ PJAC(:,2,1)=+0.01833*TPK%K079(:)*PCONC(:,19)+0.00100*TPK%K080(:)*PCONC(:,20)
!
-!N2O5/SO2=0.0
+!H2O2/H2O2=-K009-K026*<OH>
+ PJAC(:,2,2)=-TPK%K009(:)-TPK%K026(:)*PCONC(:,14)
!
-!N2O5/H2SO4=0.0
+!H2O2/NO=0.0
!
-!N2O5/OH=0.0
+!H2O2/NO2=0.0
!
-!N2O5/ETHE=0.0
+!H2O2/NO3=0.0
!
-!N2O5/OLEL=0.0
+!H2O2/N2O5=0.0
!
-!N2O5/OLEH=0.0
+!H2O2/HONO=0.0
!
-!N2O5/ALKL=0.0
+!H2O2/HNO3=0.0
!
-!N2O5/ALKM=0.0
+!H2O2/HNO4=0.0
!
-!N2O5/ALKH=0.0
+!H2O2/NH3=0.0
!
-!N2O5/AROH=0.0
+!H2O2/SO2=0.0
!
-!N2O5/AROL=0.0
+!H2O2/SULF=0.0
!
-!N2O5/AROO=0.0
+!H2O2/CO=0.0
!
-!N2O5/ARAL=0.0
+!H2O2/OH=-K026*<H2O2>
+ PJAC(:,2,14)=-TPK%K026(:)*PCONC(:,2)
!
-!N2O5/ARAC=0.0
+!H2O2/HO2=+K027*<HO2>+K027*<HO2>+K028*<HO2>*<H2O>+K028*<HO2>*<H2O>
+ PJAC(:,2,15)=+TPK%K027(:)*PCONC(:,15)+TPK%K027(:)*PCONC(:,15)+TPK%K028(:)*PCON&
+&C(:,15)*TPK%H2O(:)+TPK%K028(:)*PCONC(:,15)*TPK%H2O(:)
!
-!N2O5/PAH=0.0
+!H2O2/CH4=0.0
!
-!N2O5/HCHO=0.0
+!H2O2/ETH=0.0
!
-!N2O5/ALD2=0.0
+!H2O2/ALKA=0.0
!
-!N2O5/KETL=0.0
+!H2O2/ALKE=+0.01833*K079*<O3>
+ PJAC(:,2,19)=+0.01833*TPK%K079(:)*PCONC(:,1)
!
-!N2O5/KETH=0.0
+!H2O2/BIO=+0.00100*K080*<O3>
+ PJAC(:,2,20)=+0.00100*TPK%K080(:)*PCONC(:,1)
!
-!N2O5/MEOH=0.0
+!H2O2/ARO=0.0
!
-!N2O5/ETOH=0.0
+!H2O2/HCHO=0.0
!
-!N2O5/ALCH=0.0
+!H2O2/ALD=0.0
!
-!N2O5/ISOP=0.0
+!H2O2/KET=0.0
!
-!N2O5/BIOL=0.0
+!H2O2/CARBO=0.0
!
-!N2O5/BIOH=0.0
+!H2O2/ONIT=0.0
!
-!N2O5/MTBE=0.0
+!H2O2/PAN=0.0
!
-!N2O5/MVK=0.0
+!H2O2/OP1=0.0
!
-!N2O5/MCR=0.0
+!H2O2/OP2=0.0
!
-!N2O5/MGLY=0.0
+!H2O2/ORA1=0.0
!
-!N2O5/GLY=0.0
+!H2O2/ORA2=0.0
!
-!N2O5/ORA1=0.0
+!H2O2/MO2=0.0
!
-!N2O5/ORA2=0.0
+!H2O2/ALKAP=0.0
!
-!N2O5/ACID=0.0
+!H2O2/ALKEP=0.0
!
-!N2O5/UR28=0.0
+!H2O2/BIOP=0.0
!
-!N2O5/UR21=0.0
+!H2O2/PHO=0.0
!
-!N2O5/URG2=0.0
+!H2O2/ADD=0.0
!
-!N2O5/UR26=0.0
+!H2O2/AROP=0.0
!
-!N2O5/RPG2=0.0
+!H2O2/CARBOP=0.0
!
-!N2O5/RP18=0.0
+!H2O2/OLN=0.0
!
-!N2O5/RPG3=0.0
+!H2O2/XO2=0.0
!
-!N2O5/URG4=0.0
+!NO/O3=-K042*<NO>
+ PJAC(:,3,1)=-TPK%K042(:)*PCONC(:,3)
!
-!N2O5/UR8=0.0
+!NO/H2O2=0.0
!
-!N2O5/UR17=0.0
+!NO/NO=-K029*<O3P>-K032*<OH>-K035*<HO2>-K042*<O3>-K044*<NO>*<O2>-K044*<NO>*<O2>
+!-K044*<NO>*<O2>-K044*<NO>*<O2>-K045*<NO3>-K090*<MO2>-K091*<ALKAP>-K092*<ALKEP>
+!-K093*<BIOP>-K094*<AROP>-K095*<CARBOP>-K096*<OLN>-K130*<XO2>
+ PJAC(:,3,3)=-TPK%K029(:)*TPK%O3P(:)-TPK%K032(:)*PCONC(:,14)-TPK%K035(:)*PCONC(&
+&:,15)-TPK%K042(:)*PCONC(:,1)-TPK%K044(:)*PCONC(:,3)*TPK%O2(:)-TPK%K044(:)*PCON&
+&C(:,3)*TPK%O2(:)-TPK%K044(:)*PCONC(:,3)*TPK%O2(:)-TPK%K044(:)*PCONC(:,3)*TPK%O&
+&2(:)-TPK%K045(:)*PCONC(:,5)-TPK%K090(:)*PCONC(:,32)-TPK%K091(:)*PCONC(:,33)-TP&
+&K%K092(:)*PCONC(:,34)-TPK%K093(:)*PCONC(:,35)-TPK%K094(:)*PCONC(:,38)-TPK%K095&
+&(:)*PCONC(:,39)-TPK%K096(:)*PCONC(:,40)-TPK%K130(:)*PCONC(:,41)
!
-!N2O5/UR7=0.0
+!NO/NO2=+K001+K030*<O3P>+K046*<NO3>
+ PJAC(:,3,4)=+TPK%K001(:)+TPK%K030(:)*TPK%O3P(:)+TPK%K046(:)*PCONC(:,5)
!
-!N2O5/RPR3=0.0
+!NO/NO3=+K007-K045*<NO>+K046*<NO2>
+ PJAC(:,3,5)=+TPK%K007(:)-TPK%K045(:)*PCONC(:,3)+TPK%K046(:)*PCONC(:,4)
!
-!N2O5/URG6=0.0
+!NO/N2O5=0.0
!
-!N2O5/UR22=0.0
+!NO/HONO=+K004
+ PJAC(:,3,7)=+TPK%K004(:)
!
-!N2O5/URG7=0.0
+!NO/HNO3=0.0
!
-!N2O5/RPR4=0.0
+!NO/HNO4=0.0
!
-!N2O5/RPR7=0.0
+!NO/NH3=0.0
!
-!N2O5/RPG7=0.0
+!NO/SO2=0.0
!
-!N2O5/URG8=0.0
+!NO/SULF=0.0
!
-!N2O5/UR19=0.0
+!NO/CO=0.0
!
-!N2O5/URG9=0.0
+!NO/OH=-K032*<NO>
+ PJAC(:,3,14)=-TPK%K032(:)*PCONC(:,3)
!
-!N2O5/AP7=0.0
+!NO/HO2=-K035*<NO>
+ PJAC(:,3,15)=-TPK%K035(:)*PCONC(:,3)
!
-!N2O5/URG10=0.0
+!NO/CH4=0.0
!
-!N2O5/RPR1=0.0
+!NO/ETH=0.0
!
-!N2O5/RPR5=0.0
+!NO/ALKA=0.0
!
-!N2O5/RPR8=0.0
+!NO/ALKE=0.0
!
-!N2O5/RP10=0.0
+!NO/BIO=0.0
!
-!N2O5/RP11=0.0
+!NO/ARO=0.0
!
-!N2O5/RP16=0.0
+!NO/HCHO=0.0
!
-!N2O5/RPRL=0.0
+!NO/ALD=0.0
!
-!N2O5/APAN=0.0
+!NO/KET=0.0
!
-!N2O5/PAN1=0.0
+!NO/CARBO=0.0
!
-!N2O5/PAN2=0.0
+!NO/ONIT=0.0
!
-!N2O5/PAN3=0.0
+!NO/PAN=0.0
!
-!N2O5/PAN4=0.0
+!NO/OP1=0.0
!
-!N2O5/PAN6=0.0
+!NO/OP2=0.0
!
-!N2O5/PAN7=0.0
+!NO/ORA1=0.0
!
-!N2O5/PAN8=0.0
+!NO/ORA2=0.0
!
-!N2O5/PN10=0.0
+!NO/MO2=-K090*<NO>
+ PJAC(:,3,32)=-TPK%K090(:)*PCONC(:,3)
!
-!N2O5/RO2T=0.0
+!NO/ALKAP=-K091*<NO>
+ PJAC(:,3,33)=-TPK%K091(:)*PCONC(:,3)
!
-!N2O5/RO21=0.0
+!NO/ALKEP=-K092*<NO>
+ PJAC(:,3,34)=-TPK%K092(:)*PCONC(:,3)
!
-!N2O5/RO25=0.0
+!NO/BIOP=-K093*<NO>
+ PJAC(:,3,35)=-TPK%K093(:)*PCONC(:,3)
!
-!N2O5/WC_O3=0.0
+!NO/PHO=0.0
!
-!N2O5/WC_H2O2=0.0
+!NO/ADD=0.0
!
-!N2O5/WC_NO=0.0
+!NO/AROP=-K094*<NO>
+ PJAC(:,3,38)=-TPK%K094(:)*PCONC(:,3)
!
-!N2O5/WC_NO2=0.0
+!NO/CARBOP=-K095*<NO>
+ PJAC(:,3,39)=-TPK%K095(:)*PCONC(:,3)
!
-!N2O5/WC_NO3=0.0
+!NO/OLN=-K096*<NO>
+ PJAC(:,3,40)=-TPK%K096(:)*PCONC(:,3)
!
-!N2O5/WC_N2O5=+KTC37
- PJAC(:,7,93)=+TPK%KTC37(:)
+!NO/XO2=-K130*<NO>
+ PJAC(:,3,41)=-TPK%K130(:)*PCONC(:,3)
!
-!N2O5/WC_HONO=0.0
+!NO2/O3=+K042*<NO>-K043*<NO2>+0.70*K082*<PAN>
+ PJAC(:,4,1)=+TPK%K042(:)*PCONC(:,3)-TPK%K043(:)*PCONC(:,4)+0.70*TPK%K082(:)*PC&
+&ONC(:,27)
!
-!N2O5/WC_HNO3=0.0
+!NO2/H2O2=0.0
!
-!N2O5/WC_HNO4=0.0
+!NO2/NO=+K029*<O3P>+K035*<HO2>+K042*<O3>+K044*<NO>*<O2>+K044*<NO>*<O2>+K044*<NO
+!>*<O2>+K044*<NO>*<O2>+K045*<NO3>+K045*<NO3>+K090*<MO2>+0.91541*K091*<ALKAP>+K0
+!92*<ALKEP>+0.84700*K093*<BIOP>+0.95115*K094*<AROP>+K095*<CARBOP>+1.81599*K096*
+!<OLN>+K130*<XO2>
+ PJAC(:,4,3)=+TPK%K029(:)*TPK%O3P(:)+TPK%K035(:)*PCONC(:,15)+TPK%K042(:)*PCONC(&
+&:,1)+TPK%K044(:)*PCONC(:,3)*TPK%O2(:)+TPK%K044(:)*PCONC(:,3)*TPK%O2(:)+TPK%K04&
+&4(:)*PCONC(:,3)*TPK%O2(:)+TPK%K044(:)*PCONC(:,3)*TPK%O2(:)+TPK%K045(:)*PCONC(:&
+&,5)+TPK%K045(:)*PCONC(:,5)+TPK%K090(:)*PCONC(:,32)+0.91541*TPK%K091(:)*PCONC(:&
+&,33)+TPK%K092(:)*PCONC(:,34)+0.84700*TPK%K093(:)*PCONC(:,35)+0.95115*TPK%K094(&
+&:)*PCONC(:,38)+TPK%K095(:)*PCONC(:,39)+1.81599*TPK%K096(:)*PCONC(:,40)+TPK%K13&
+&0(:)*PCONC(:,41)
+!
+!NO2/NO2=-K001-K030*<O3P>-K031*<O3P>-K033*<OH>-K036*<HO2>-K043*<O3>+K046*<NO3>-
+!K046*<NO3>-K047*<NO3>-K083*<PHO>-K085*<ADD>-K088*<CARBOP>
+ PJAC(:,4,4)=-TPK%K001(:)-TPK%K030(:)*TPK%O3P(:)-TPK%K031(:)*TPK%O3P(:)-TPK%K03&
+&3(:)*PCONC(:,14)-TPK%K036(:)*PCONC(:,15)-TPK%K043(:)*PCONC(:,1)+TPK%K046(:)*PC&
+&ONC(:,5)-TPK%K046(:)*PCONC(:,5)-TPK%K047(:)*PCONC(:,5)-TPK%K083(:)*PCONC(:,36)&
+&-TPK%K085(:)*PCONC(:,37)-TPK%K088(:)*PCONC(:,39)
+!
+!NO2/NO3=+K008+K034*<OH>+0.7*K038*<HO2>+K045*<NO>+K045*<NO>+K046*<NO2>-K046*<NO
+!2>-K047*<NO2>+K049*<NO3>+K049*<NO3>+K049*<NO3>+K049*<NO3>+0.10530*K074*<CARBO>
+!+0.40*K078*<PAN>+K119*<MO2>+K120*<ALKAP>+K121*<ALKEP>+K122*<BIOP>+K123*<AROP>+
+!K124*<CARBOP>+1.74072*K125*<OLN>+K131*<XO2>
+ PJAC(:,4,5)=+TPK%K008(:)+TPK%K034(:)*PCONC(:,14)+0.7*TPK%K038(:)*PCONC(:,15)+T&
+&PK%K045(:)*PCONC(:,3)+TPK%K045(:)*PCONC(:,3)+TPK%K046(:)*PCONC(:,4)-TPK%K046(:&
+&)*PCONC(:,4)-TPK%K047(:)*PCONC(:,4)+TPK%K049(:)*PCONC(:,5)+TPK%K049(:)*PCONC(:&
+&,5)+TPK%K049(:)*PCONC(:,5)+TPK%K049(:)*PCONC(:,5)+0.10530*TPK%K074(:)*PCONC(:,&
+&25)+0.40*TPK%K078(:)*PCONC(:,27)+TPK%K119(:)*PCONC(:,32)+TPK%K120(:)*PCONC(:,3&
+&3)+TPK%K121(:)*PCONC(:,34)+TPK%K122(:)*PCONC(:,35)+TPK%K123(:)*PCONC(:,38)+TPK&
+&%K124(:)*PCONC(:,39)+1.74072*TPK%K125(:)*PCONC(:,40)+TPK%K131(:)*PCONC(:,41)
+!
+!NO2/N2O5=+K048
+ PJAC(:,4,6)=+TPK%K048(:)
+!
+!NO2/HONO=+K039*<OH>
+ PJAC(:,4,7)=+TPK%K039(:)*PCONC(:,14)
+!
+!NO2/HNO3=+K005
+ PJAC(:,4,8)=+TPK%K005(:)
+!
+!NO2/HNO4=+0.65*K006+K037+K041*<OH>
+ PJAC(:,4,9)=+0.65*TPK%K006(:)+TPK%K037(:)+TPK%K041(:)*PCONC(:,14)
!
-!N2O5/WC_NH3=0.0
+!NO2/NH3=0.0
!
-!N2O5/WC_OH=0.0
+!NO2/SO2=0.0
!
-!N2O5/WC_HO2=0.0
+!NO2/SULF=0.0
!
-!N2O5/WC_CO2=0.0
+!NO2/CO=0.0
!
-!N2O5/WC_SO2=0.0
+!NO2/OH=-K033*<NO2>+K034*<NO3>+K039*<HONO>+K041*<HNO4>+K071*<ONIT>
+ PJAC(:,4,14)=-TPK%K033(:)*PCONC(:,4)+TPK%K034(:)*PCONC(:,5)+TPK%K039(:)*PCONC(&
+&:,7)+TPK%K041(:)*PCONC(:,9)+TPK%K071(:)*PCONC(:,26)
!
-!N2O5/WC_H2SO4=0.0
+!NO2/HO2=+K035*<NO>-K036*<NO2>+0.7*K038*<NO3>
+ PJAC(:,4,15)=+TPK%K035(:)*PCONC(:,3)-TPK%K036(:)*PCONC(:,4)+0.7*TPK%K038(:)*PC&
+&ONC(:,5)
!
-!N2O5/WC_RO21=0.0
+!NO2/CH4=0.0
!
-!N2O5/WC_RO25=0.0
+!NO2/ETH=0.0
!
-!N2O5/WC_MEOH=0.0
+!NO2/ALKA=0.0
!
-!N2O5/WC_ETOH=0.0
+!NO2/ALKE=0.0
!
-!N2O5/WC_ALCH=0.0
+!NO2/BIO=0.0
!
-!N2O5/WC_HCHO=0.0
+!NO2/ARO=0.0
!
-!N2O5/WC_ALD2=0.0
+!NO2/HCHO=0.0
!
-!N2O5/WC_GLY=0.0
+!NO2/ALD=0.0
!
-!N2O5/WC_MGLY=0.0
+!NO2/KET=0.0
!
-!N2O5/WC_KETL=0.0
+!NO2/CARBO=+0.10530*K074*<NO3>
+ PJAC(:,4,25)=+0.10530*TPK%K074(:)*PCONC(:,5)
!
-!N2O5/WC_ORA1=0.0
+!NO2/ONIT=+K017+K071*<OH>
+ PJAC(:,4,26)=+TPK%K017(:)+TPK%K071(:)*PCONC(:,14)
!
-!N2O5/WC_ORA2=0.0
+!NO2/PAN=+0.40*K078*<NO3>+0.70*K082*<O3>+K089
+ PJAC(:,4,27)=+0.40*TPK%K078(:)*PCONC(:,5)+0.70*TPK%K082(:)*PCONC(:,1)+TPK%K089&
+&(:)
!
-!N2O5/WC_ACID=0.0
+!NO2/OP1=0.0
!
-!N2O5/WC_RP16=0.0
+!NO2/OP2=0.0
!
-!N2O5/WC_UR21=0.0
+!NO2/ORA1=0.0
!
-!N2O5/WC_UR28=0.0
+!NO2/ORA2=0.0
!
-!N2O5/WC_ACID2=0.0
+!NO2/MO2=+K090*<NO>+0.32440*K110*<OLN>+K119*<NO3>
+ PJAC(:,4,32)=+TPK%K090(:)*PCONC(:,3)+0.32440*TPK%K110(:)*PCONC(:,40)+TPK%K119(&
+&:)*PCONC(:,5)
!
-!N2O5/WC_ASO3=0.0
+!NO2/ALKAP=+0.91541*K091*<NO>+K120*<NO3>
+ PJAC(:,4,33)=+0.91541*TPK%K091(:)*PCONC(:,3)+TPK%K120(:)*PCONC(:,5)
!
-!N2O5/WC_ASO4=0.0
+!NO2/ALKEP=+K092*<NO>+K121*<NO3>
+ PJAC(:,4,34)=+TPK%K092(:)*PCONC(:,3)+TPK%K121(:)*PCONC(:,5)
!
-!N2O5/WC_ASO5=0.0
+!NO2/BIOP=+0.84700*K093*<NO>+K122*<NO3>
+ PJAC(:,4,35)=+0.84700*TPK%K093(:)*PCONC(:,3)+TPK%K122(:)*PCONC(:,5)
!
-!N2O5/WC_AHSO5=0.0
+!NO2/PHO=-K083*<NO2>
+ PJAC(:,4,36)=-TPK%K083(:)*PCONC(:,4)
!
-!N2O5/WC_AHMS=0.0
+!NO2/ADD=-K085*<NO2>
+ PJAC(:,4,37)=-TPK%K085(:)*PCONC(:,4)
!
-!N2O5/WR_O3=0.0
+!NO2/AROP=+0.95115*K094*<NO>+K123*<NO3>
+ PJAC(:,4,38)=+0.95115*TPK%K094(:)*PCONC(:,3)+TPK%K123(:)*PCONC(:,5)
!
-!N2O5/WR_H2O2=0.0
+!NO2/CARBOP=-K088*<NO2>+K095*<NO>+0.00000*K116*<OLN>+K124*<NO3>
+ PJAC(:,4,39)=-TPK%K088(:)*PCONC(:,4)+TPK%K095(:)*PCONC(:,3)+0.00000*TPK%K116(:&
+&)*PCONC(:,40)+TPK%K124(:)*PCONC(:,5)
!
-!N2O5/WR_NO=0.0
+!NO2/OLN=+1.81599*K096*<NO>+0.32440*K110*<MO2>+0.00000*K116*<CARBOP>+0.00000*K1
+!18*<OLN>+0.00000*K118*<OLN>+1.74072*K125*<NO3>
+ PJAC(:,4,40)=+1.81599*TPK%K096(:)*PCONC(:,3)+0.32440*TPK%K110(:)*PCONC(:,32)+0&
+&.00000*TPK%K116(:)*PCONC(:,39)+0.00000*TPK%K118(:)*PCONC(:,40)+0.00000*TPK%K11&
+&8(:)*PCONC(:,40)+1.74072*TPK%K125(:)*PCONC(:,5)
!
-!N2O5/WR_NO2=0.0
+!NO2/XO2=+K130*<NO>+K131*<NO3>
+ PJAC(:,4,41)=+TPK%K130(:)*PCONC(:,3)+TPK%K131(:)*PCONC(:,5)
!
-!N2O5/WR_NO3=0.0
+!NO3/O3=+K043*<NO2>
+ PJAC(:,5,1)=+TPK%K043(:)*PCONC(:,4)
!
-!N2O5/WR_N2O5=+KTR37
- PJAC(:,7,130)=+TPK%KTR37(:)
+!NO3/H2O2=0.0
!
-!N2O5/WR_HONO=0.0
+!NO3/NO=-K045*<NO3>
+ PJAC(:,5,3)=-TPK%K045(:)*PCONC(:,5)
+!
+!NO3/NO2=+K031*<O3P>+K043*<O3>-K046*<NO3>-K047*<NO3>
+ PJAC(:,5,4)=+TPK%K031(:)*TPK%O3P(:)+TPK%K043(:)*PCONC(:,1)-TPK%K046(:)*PCONC(:&
+&,5)-TPK%K047(:)*PCONC(:,5)
+!
+!NO3/NO3=-K007-K008-K034*<OH>-K038*<HO2>-K045*<NO>-K046*<NO2>-K047*<NO2>-K049*<
+!NO3>-K049*<NO3>-K049*<NO3>-K049*<NO3>-K072*<HCHO>-K073*<ALD>-K074*<CARBO>-K075
+!*<ARO>-K076*<ALKE>-K077*<BIO>+0.60*K078*<PAN>-K078*<PAN>-K119*<MO2>-K120*<ALKA
+!P>-K121*<ALKEP>-K122*<BIOP>-K123*<AROP>-K124*<CARBOP>-K125*<OLN>-K131*<XO2>
+ PJAC(:,5,5)=-TPK%K007(:)-TPK%K008(:)-TPK%K034(:)*PCONC(:,14)-TPK%K038(:)*PCONC&
+&(:,15)-TPK%K045(:)*PCONC(:,3)-TPK%K046(:)*PCONC(:,4)-TPK%K047(:)*PCONC(:,4)-TP&
+&K%K049(:)*PCONC(:,5)-TPK%K049(:)*PCONC(:,5)-TPK%K049(:)*PCONC(:,5)-TPK%K049(:)&
+&*PCONC(:,5)-TPK%K072(:)*PCONC(:,22)-TPK%K073(:)*PCONC(:,23)-TPK%K074(:)*PCONC(&
+&:,25)-TPK%K075(:)*PCONC(:,21)-TPK%K076(:)*PCONC(:,19)-TPK%K077(:)*PCONC(:,20)+&
+&0.60*TPK%K078(:)*PCONC(:,27)-TPK%K078(:)*PCONC(:,27)-TPK%K119(:)*PCONC(:,32)-T&
+&PK%K120(:)*PCONC(:,33)-TPK%K121(:)*PCONC(:,34)-TPK%K122(:)*PCONC(:,35)-TPK%K12&
+&3(:)*PCONC(:,38)-TPK%K124(:)*PCONC(:,39)-TPK%K125(:)*PCONC(:,40)-TPK%K131(:)*P&
+&CONC(:,41)
+!
+!NO3/N2O5=+K048
+ PJAC(:,5,6)=+TPK%K048(:)
!
-!N2O5/WR_HNO3=0.0
+!NO3/HONO=0.0
!
-!N2O5/WR_HNO4=0.0
+!NO3/HNO3=+K040*<OH>
+ PJAC(:,5,8)=+TPK%K040(:)*PCONC(:,14)
!
-!N2O5/WR_NH3=0.0
+!NO3/HNO4=+0.35*K006
+ PJAC(:,5,9)=+0.35*TPK%K006(:)
!
-!N2O5/WR_OH=0.0
+!NO3/NH3=0.0
!
-!N2O5/WR_HO2=0.0
+!NO3/SO2=0.0
!
-!N2O5/WR_CO2=0.0
+!NO3/SULF=0.0
!
-!N2O5/WR_SO2=0.0
+!NO3/CO=0.0
!
-!N2O5/WR_H2SO4=0.0
+!NO3/OH=-K034*<NO3>+K040*<HNO3>+0.71893*K070*<PAN>
+ PJAC(:,5,14)=-TPK%K034(:)*PCONC(:,5)+TPK%K040(:)*PCONC(:,8)+0.71893*TPK%K070(:&
+&)*PCONC(:,27)
!
-!N2O5/WR_RO21=0.0
+!NO3/HO2=-K038*<NO3>
+ PJAC(:,5,15)=-TPK%K038(:)*PCONC(:,5)
!
-!N2O5/WR_RO25=0.0
+!NO3/CH4=0.0
!
-!N2O5/WR_MEOH=0.0
+!NO3/ETH=0.0
!
-!N2O5/WR_ETOH=0.0
+!NO3/ALKA=0.0
!
-!N2O5/WR_ALCH=0.0
+!NO3/ALKE=-K076*<NO3>
+ PJAC(:,5,19)=-TPK%K076(:)*PCONC(:,5)
!
-!N2O5/WR_HCHO=0.0
+!NO3/BIO=-K077*<NO3>
+ PJAC(:,5,20)=-TPK%K077(:)*PCONC(:,5)
!
-!N2O5/WR_ALD2=0.0
+!NO3/ARO=-K075*<NO3>
+ PJAC(:,5,21)=-TPK%K075(:)*PCONC(:,5)
!
-!N2O5/WR_GLY=0.0
+!NO3/HCHO=-K072*<NO3>
+ PJAC(:,5,22)=-TPK%K072(:)*PCONC(:,5)
!
-!N2O5/WR_MGLY=0.0
+!NO3/ALD=-K073*<NO3>
+ PJAC(:,5,23)=-TPK%K073(:)*PCONC(:,5)
!
-!N2O5/WR_KETL=0.0
+!NO3/KET=0.0
!
-!N2O5/WR_ORA1=0.0
+!NO3/CARBO=-K074*<NO3>
+ PJAC(:,5,25)=-TPK%K074(:)*PCONC(:,5)
!
-!N2O5/WR_ORA2=0.0
+!NO3/ONIT=0.0
!
-!N2O5/WR_ACID=0.0
+!NO3/PAN=+0.71893*K070*<OH>+0.60*K078*<NO3>-K078*<NO3>
+ PJAC(:,5,27)=+0.71893*TPK%K070(:)*PCONC(:,14)+0.60*TPK%K078(:)*PCONC(:,5)-TPK%&
+&K078(:)*PCONC(:,5)
!
-!N2O5/WR_RP16=0.0
+!NO3/OP1=0.0
!
-!N2O5/WR_UR21=0.0
+!NO3/OP2=0.0
!
-!N2O5/WR_UR28=0.0
+!NO3/ORA1=0.0
!
-!N2O5/WR_ACID2=0.0
+!NO3/ORA2=0.0
!
-!N2O5/WR_ASO3=0.0
+!NO3/MO2=-K119*<NO3>
+ PJAC(:,5,32)=-TPK%K119(:)*PCONC(:,5)
!
-!N2O5/WR_ASO4=0.0
+!NO3/ALKAP=-K120*<NO3>
+ PJAC(:,5,33)=-TPK%K120(:)*PCONC(:,5)
!
-!N2O5/WR_ASO5=0.0
+!NO3/ALKEP=-K121*<NO3>
+ PJAC(:,5,34)=-TPK%K121(:)*PCONC(:,5)
!
-!N2O5/WR_AHSO5=0.0
+!NO3/BIOP=-K122*<NO3>
+ PJAC(:,5,35)=-TPK%K122(:)*PCONC(:,5)
!
-!N2O5/WR_AHMS=0.0
+!NO3/PHO=0.0
!
-!NO3/NO=-K007*<NO3>
- PJAC(:,8,1)=-TPK%K007(:)*PCONC(:,8)
+!NO3/ADD=0.0
!
-!NO3/NO2=+K004*<O>+K006*<O3>-K009*<NO3>-K012*<NO3>
- PJAC(:,8,2)=+TPK%K004(:)*TPK%O(:)+TPK%K006(:)*PCONC(:,3)-TPK%K009(:)*PCONC(:,8&
-&)-TPK%K012(:)*PCONC(:,8)
+!NO3/AROP=-K123*<NO3>
+ PJAC(:,5,38)=-TPK%K123(:)*PCONC(:,5)
!
-!NO3/O3=+K006*<NO2>
- PJAC(:,8,3)=+TPK%K006(:)*PCONC(:,2)
+!NO3/CARBOP=-K124*<NO3>
+ PJAC(:,5,39)=-TPK%K124(:)*PCONC(:,5)
!
-!NO3/HONO=0.0
+!NO3/OLN=-K125*<NO3>
+ PJAC(:,5,40)=-TPK%K125(:)*PCONC(:,5)
!
-!NO3/HNO3=+K023*<OH>
- PJAC(:,8,5)=+TPK%K023(:)*PCONC(:,15)
-!
-!NO3/HNO4=0.0
-!
-!NO3/N2O5=+K010
- PJAC(:,8,7)=+TPK%K010(:)
-!
-!NO3/NO3=-K007*<NO>-K009*<NO2>-K012*<NO2>-K013-K014-K033*<HO2>-K040*<OH>-K041*<
-!NO3>-K041*<NO3>-K041*<NO3>-K041*<NO3>-K047*<HCHO>-K050*<ETHE>-K055*<OLEL>-K061
-!*<ALD2>-K065*<ISOP>-K072*<AROO>-K075*<OLEH>-K081*<ARAL>-K085*<BIOL>-K089*<BIOH
-!>-K275*<MCR>-K278*<MGLY>-K307*<RPR1>-K313*<RPR3>-K320*<RPR4>-K327*<RPR8>-K338*
-!<RP16>-KTC5-KTR5
- PJAC(:,8,8)=-TPK%K007(:)*PCONC(:,1)-TPK%K009(:)*PCONC(:,2)-TPK%K012(:)*PCONC(:&
-&,2)-TPK%K013(:)-TPK%K014(:)-TPK%K033(:)*PCONC(:,10)-TPK%K040(:)*PCONC(:,15)-TP&
-&K%K041(:)*PCONC(:,8)-TPK%K041(:)*PCONC(:,8)-TPK%K041(:)*PCONC(:,8)-TPK%K041(:)&
-&*PCONC(:,8)-TPK%K047(:)*PCONC(:,28)-TPK%K050(:)*PCONC(:,16)-TPK%K055(:)*PCONC(&
-&:,17)-TPK%K061(:)*PCONC(:,29)-TPK%K065(:)*PCONC(:,35)-TPK%K072(:)*PCONC(:,24)-&
-&TPK%K075(:)*PCONC(:,18)-TPK%K081(:)*PCONC(:,25)-TPK%K085(:)*PCONC(:,36)-TPK%K0&
-&89(:)*PCONC(:,37)-TPK%K275(:)*PCONC(:,40)-TPK%K278(:)*PCONC(:,41)-TPK%K307(:)*&
-&PCONC(:,69)-TPK%K313(:)*PCONC(:,57)-TPK%K320(:)*PCONC(:,61)-TPK%K327(:)*PCONC(&
-&:,71)-TPK%K338(:)*PCONC(:,74)-TPK%KTC5(:)-TPK%KTR5(:)
+!NO3/XO2=-K131*<NO3>
+ PJAC(:,5,41)=-TPK%K131(:)*PCONC(:,5)
!
-!NO3/NH3=0.0
+RETURN
+END SUBROUTINE SUBJ0
!
-!NO3/HO2=-K033*<NO3>
- PJAC(:,8,10)=-TPK%K033(:)*PCONC(:,8)
+SUBROUTINE SUBJ1
!
-!NO3/CO=0.0
+!Indices 6 a 10
!
-!NO3/H2O2=0.0
!
-!NO3/SO2=0.0
+!N2O5/O3=0.0
!
-!NO3/H2SO4=0.0
+!N2O5/H2O2=0.0
!
-!NO3/OH=+K023*<HNO3>-K040*<NO3>
- PJAC(:,8,15)=+TPK%K023(:)*PCONC(:,5)-TPK%K040(:)*PCONC(:,8)
+!N2O5/NO=0.0
!
-!NO3/ETHE=-K050*<NO3>
- PJAC(:,8,16)=-TPK%K050(:)*PCONC(:,8)
+!N2O5/NO2=+K047*<NO3>
+ PJAC(:,6,4)=+TPK%K047(:)*PCONC(:,5)
!
-!NO3/OLEL=-K055*<NO3>
- PJAC(:,8,17)=-TPK%K055(:)*PCONC(:,8)
+!N2O5/NO3=+K047*<NO2>
+ PJAC(:,6,5)=+TPK%K047(:)*PCONC(:,4)
!
-!NO3/OLEH=-K075*<NO3>
- PJAC(:,8,18)=-TPK%K075(:)*PCONC(:,8)
+!N2O5/N2O5=-K048
+ PJAC(:,6,6)=-TPK%K048(:)
!
-!NO3/ALKL=0.0
+!N2O5/HONO=0.0
!
-!NO3/ALKM=0.0
+!N2O5/HNO3=0.0
!
-!NO3/ALKH=0.0
+!N2O5/HNO4=0.0
!
-!NO3/AROH=0.0
+!N2O5/NH3=0.0
!
-!NO3/AROL=0.0
+!N2O5/SO2=0.0
!
-!NO3/AROO=-K072*<NO3>
- PJAC(:,8,24)=-TPK%K072(:)*PCONC(:,8)
+!N2O5/SULF=0.0
!
-!NO3/ARAL=-K081*<NO3>
- PJAC(:,8,25)=-TPK%K081(:)*PCONC(:,8)
+!N2O5/CO=0.0
!
-!NO3/ARAC=0.0
+!N2O5/OH=0.0
!
-!NO3/PAH=0.0
+!N2O5/HO2=0.0
!
-!NO3/HCHO=-K047*<NO3>
- PJAC(:,8,28)=-TPK%K047(:)*PCONC(:,8)
+!N2O5/CH4=0.0
!
-!NO3/ALD2=-K061*<NO3>
- PJAC(:,8,29)=-TPK%K061(:)*PCONC(:,8)
+!N2O5/ETH=0.0
!
-!NO3/KETL=0.0
+!N2O5/ALKA=0.0
!
-!NO3/KETH=0.0
+!N2O5/ALKE=0.0
!
-!NO3/MEOH=0.0
+!N2O5/BIO=0.0
!
-!NO3/ETOH=0.0
+!N2O5/ARO=0.0
!
-!NO3/ALCH=0.0
+!N2O5/HCHO=0.0
!
-!NO3/ISOP=-K065*<NO3>
- PJAC(:,8,35)=-TPK%K065(:)*PCONC(:,8)
+!N2O5/ALD=0.0
!
-!NO3/BIOL=-K085*<NO3>
- PJAC(:,8,36)=-TPK%K085(:)*PCONC(:,8)
+!N2O5/KET=0.0
!
-!NO3/BIOH=-K089*<NO3>
- PJAC(:,8,37)=-TPK%K089(:)*PCONC(:,8)
+!N2O5/CARBO=0.0
!
-!NO3/MTBE=0.0
+!N2O5/ONIT=0.0
!
-!NO3/MVK=0.0
+!N2O5/PAN=0.0
!
-!NO3/MCR=-K275*<NO3>
- PJAC(:,8,40)=-TPK%K275(:)*PCONC(:,8)
+!N2O5/OP1=0.0
!
-!NO3/MGLY=-K278*<NO3>
- PJAC(:,8,41)=-TPK%K278(:)*PCONC(:,8)
+!N2O5/OP2=0.0
!
-!NO3/GLY=0.0
+!N2O5/ORA1=0.0
!
-!NO3/ORA1=0.0
+!N2O5/ORA2=0.0
!
-!NO3/ORA2=0.0
+!N2O5/MO2=0.0
!
-!NO3/ACID=0.0
+!N2O5/ALKAP=0.0
!
-!NO3/UR28=0.0
+!N2O5/ALKEP=0.0
!
-!NO3/UR21=0.0
+!N2O5/BIOP=0.0
!
-!NO3/URG2=0.0
+!N2O5/PHO=0.0
!
-!NO3/UR26=0.0
+!N2O5/ADD=0.0
!
-!NO3/RPG2=0.0
+!N2O5/AROP=0.0
!
-!NO3/RP18=0.0
+!N2O5/CARBOP=0.0
!
-!NO3/RPG3=0.0
+!N2O5/OLN=0.0
!
-!NO3/URG4=0.0
+!N2O5/XO2=0.0
!
-!NO3/UR8=0.0
+!HONO/O3=0.0
!
-!NO3/UR17=0.0
+!HONO/H2O2=0.0
!
-!NO3/UR7=0.0
+!HONO/NO=+K032*<OH>
+ PJAC(:,7,3)=+TPK%K032(:)*PCONC(:,14)
!
-!NO3/RPR3=-K313*<NO3>
- PJAC(:,8,57)=-TPK%K313(:)*PCONC(:,8)
+!HONO/NO2=+K085*<ADD>
+ PJAC(:,7,4)=+TPK%K085(:)*PCONC(:,37)
!
-!NO3/URG6=0.0
+!HONO/NO3=0.0
!
-!NO3/UR22=0.0
+!HONO/N2O5=0.0
!
-!NO3/URG7=0.0
+!HONO/HONO=-K004-K039*<OH>
+ PJAC(:,7,7)=-TPK%K004(:)-TPK%K039(:)*PCONC(:,14)
!
-!NO3/RPR4=-K320*<NO3>
- PJAC(:,8,61)=-TPK%K320(:)*PCONC(:,8)
+!HONO/HNO3=0.0
!
-!NO3/RPR7=0.0
+!HONO/HNO4=0.0
!
-!NO3/RPG7=0.0
+!HONO/NH3=0.0
!
-!NO3/URG8=0.0
+!HONO/SO2=0.0
!
-!NO3/UR19=0.0
+!HONO/SULF=0.0
!
-!NO3/URG9=0.0
+!HONO/CO=0.0
!
-!NO3/AP7=0.0
+!HONO/OH=+K032*<NO>-K039*<HONO>
+ PJAC(:,7,14)=+TPK%K032(:)*PCONC(:,3)-TPK%K039(:)*PCONC(:,7)
!
-!NO3/URG10=0.0
+!HONO/HO2=0.0
!
-!NO3/RPR1=-K307*<NO3>
- PJAC(:,8,69)=-TPK%K307(:)*PCONC(:,8)
+!HONO/CH4=0.0
!
-!NO3/RPR5=0.0
+!HONO/ETH=0.0
!
-!NO3/RPR8=-K327*<NO3>
- PJAC(:,8,71)=-TPK%K327(:)*PCONC(:,8)
+!HONO/ALKA=0.0
!
-!NO3/RP10=0.0
+!HONO/ALKE=0.0
!
-!NO3/RP11=0.0
+!HONO/BIO=0.0
!
-!NO3/RP16=-K338*<NO3>
- PJAC(:,8,74)=-TPK%K338(:)*PCONC(:,8)
+!HONO/ARO=0.0
!
-!NO3/RPRL=0.0
+!HONO/HCHO=0.0
!
-!NO3/APAN=0.0
+!HONO/ALD=0.0
!
-!NO3/PAN1=0.0
+!HONO/KET=0.0
!
-!NO3/PAN2=0.0
+!HONO/CARBO=0.0
!
-!NO3/PAN3=0.0
+!HONO/ONIT=0.0
!
-!NO3/PAN4=0.0
+!HONO/PAN=0.0
!
-!NO3/PAN6=0.0
+!HONO/OP1=0.0
!
-!NO3/PAN7=0.0
+!HONO/OP2=0.0
!
-!NO3/PAN8=0.0
+!HONO/ORA1=0.0
!
-!NO3/PN10=0.0
+!HONO/ORA2=0.0
!
-!NO3/RO2T=0.0
+!HONO/MO2=0.0
!
-!NO3/RO21=0.0
+!HONO/ALKAP=0.0
!
-!NO3/RO25=0.0
+!HONO/ALKEP=0.0
!
-!NO3/WC_O3=0.0
+!HONO/BIOP=0.0
!
-!NO3/WC_H2O2=0.0
+!HONO/PHO=0.0
!
-!NO3/WC_NO=0.0
+!HONO/ADD=+K085*<NO2>
+ PJAC(:,7,37)=+TPK%K085(:)*PCONC(:,4)
!
-!NO3/WC_NO2=0.0
+!HONO/AROP=0.0
!
-!NO3/WC_NO3=+KTC36
- PJAC(:,8,92)=+TPK%KTC36(:)
+!HONO/CARBOP=0.0
!
-!NO3/WC_N2O5=0.0
+!HONO/OLN=0.0
!
-!NO3/WC_HONO=0.0
+!HONO/XO2=0.0
!
-!NO3/WC_HNO3=0.0
+!HNO3/O3=0.0
!
-!NO3/WC_HNO4=0.0
+!HNO3/H2O2=0.0
!
-!NO3/WC_NH3=0.0
+!HNO3/NO=0.0
!
-!NO3/WC_OH=0.0
+!HNO3/NO2=+K033*<OH>
+ PJAC(:,8,4)=+TPK%K033(:)*PCONC(:,14)
!
-!NO3/WC_HO2=0.0
+!HNO3/NO3=+0.3*K038*<HO2>+K072*<HCHO>+K073*<ALD>+0.91567*K074*<CARBO>+K075*<ARO
+!>
+ PJAC(:,8,5)=+0.3*TPK%K038(:)*PCONC(:,15)+TPK%K072(:)*PCONC(:,22)+TPK%K073(:)*P&
+&CONC(:,23)+0.91567*TPK%K074(:)*PCONC(:,25)+TPK%K075(:)*PCONC(:,21)
!
-!NO3/WC_CO2=0.0
+!HNO3/N2O5=0.0
!
-!NO3/WC_SO2=0.0
+!HNO3/HONO=0.0
!
-!NO3/WC_H2SO4=0.0
+!HNO3/HNO3=-K005-K040*<OH>
+ PJAC(:,8,8)=-TPK%K005(:)-TPK%K040(:)*PCONC(:,14)
!
-!NO3/WC_RO21=0.0
+!HNO3/HNO4=0.0
!
-!NO3/WC_RO25=0.0
+!HNO3/NH3=0.0
!
-!NO3/WC_MEOH=0.0
+!HNO3/SO2=0.0
!
-!NO3/WC_ETOH=0.0
+!HNO3/SULF=0.0
!
-!NO3/WC_ALCH=0.0
+!HNO3/CO=0.0
!
-!NO3/WC_HCHO=0.0
+!HNO3/OH=+K033*<NO2>-K040*<HNO3>
+ PJAC(:,8,14)=+TPK%K033(:)*PCONC(:,4)-TPK%K040(:)*PCONC(:,8)
!
-!NO3/WC_ALD2=0.0
+!HNO3/HO2=+0.3*K038*<NO3>
+ PJAC(:,8,15)=+0.3*TPK%K038(:)*PCONC(:,5)
!
-!NO3/WC_GLY=0.0
+!HNO3/CH4=0.0
!
-!NO3/WC_MGLY=0.0
+!HNO3/ETH=0.0
!
-!NO3/WC_KETL=0.0
+!HNO3/ALKA=0.0
!
-!NO3/WC_ORA1=0.0
+!HNO3/ALKE=0.0
!
-!NO3/WC_ORA2=0.0
+!HNO3/BIO=0.0
!
-!NO3/WC_ACID=0.0
+!HNO3/ARO=+K075*<NO3>
+ PJAC(:,8,21)=+TPK%K075(:)*PCONC(:,5)
!
-!NO3/WC_RP16=0.0
+!HNO3/HCHO=+K072*<NO3>
+ PJAC(:,8,22)=+TPK%K072(:)*PCONC(:,5)
!
-!NO3/WC_UR21=0.0
+!HNO3/ALD=+K073*<NO3>
+ PJAC(:,8,23)=+TPK%K073(:)*PCONC(:,5)
!
-!NO3/WC_UR28=0.0
+!HNO3/KET=0.0
!
-!NO3/WC_ACID2=0.0
+!HNO3/CARBO=+0.91567*K074*<NO3>
+ PJAC(:,8,25)=+0.91567*TPK%K074(:)*PCONC(:,5)
!
-!NO3/WC_ASO3=0.0
+!HNO3/ONIT=0.0
!
-!NO3/WC_ASO4=0.0
+!HNO3/PAN=0.0
!
-!NO3/WC_ASO5=0.0
+!HNO3/OP1=0.0
!
-!NO3/WC_AHSO5=0.0
+!HNO3/OP2=0.0
!
-!NO3/WC_AHMS=0.0
+!HNO3/ORA1=0.0
!
-!NO3/WR_O3=0.0
+!HNO3/ORA2=0.0
!
-!NO3/WR_H2O2=0.0
+!HNO3/MO2=0.0
!
-!NO3/WR_NO=0.0
+!HNO3/ALKAP=0.0
!
-!NO3/WR_NO2=0.0
+!HNO3/ALKEP=0.0
!
-!NO3/WR_NO3=+KTR36
- PJAC(:,8,129)=+TPK%KTR36(:)
+!HNO3/BIOP=0.0
!
-!NO3/WR_N2O5=0.0
+!HNO3/PHO=0.0
!
-!NO3/WR_HONO=0.0
+!HNO3/ADD=0.0
!
-!NO3/WR_HNO3=0.0
+!HNO3/AROP=0.0
!
-!NO3/WR_HNO4=0.0
+!HNO3/CARBOP=0.0
!
-!NO3/WR_NH3=0.0
+!HNO3/OLN=0.0
!
-!NO3/WR_OH=0.0
+!HNO3/XO2=0.0
!
-!NO3/WR_HO2=0.0
+!HNO4/O3=0.0
!
-!NO3/WR_CO2=0.0
+!HNO4/H2O2=0.0
!
-!NO3/WR_SO2=0.0
+!HNO4/NO=0.0
!
-!NO3/WR_H2SO4=0.0
+!HNO4/NO2=+K036*<HO2>
+ PJAC(:,9,4)=+TPK%K036(:)*PCONC(:,15)
!
-!NO3/WR_RO21=0.0
+!HNO4/NO3=0.0
!
-!NO3/WR_RO25=0.0
+!HNO4/N2O5=0.0
!
-!NO3/WR_MEOH=0.0
+!HNO4/HONO=0.0
!
-!NO3/WR_ETOH=0.0
+!HNO4/HNO3=0.0
!
-!NO3/WR_ALCH=0.0
+!HNO4/HNO4=-K006-K037-K041*<OH>
+ PJAC(:,9,9)=-TPK%K006(:)-TPK%K037(:)-TPK%K041(:)*PCONC(:,14)
!
-!NO3/WR_HCHO=0.0
+!HNO4/NH3=0.0
!
-!NO3/WR_ALD2=0.0
+!HNO4/SO2=0.0
!
-!NO3/WR_GLY=0.0
+!HNO4/SULF=0.0
!
-!NO3/WR_MGLY=0.0
+!HNO4/CO=0.0
!
-!NO3/WR_KETL=0.0
+!HNO4/OH=-K041*<HNO4>
+ PJAC(:,9,14)=-TPK%K041(:)*PCONC(:,9)
!
-!NO3/WR_ORA1=0.0
+!HNO4/HO2=+K036*<NO2>
+ PJAC(:,9,15)=+TPK%K036(:)*PCONC(:,4)
!
-!NO3/WR_ORA2=0.0
+!HNO4/CH4=0.0
!
-!NO3/WR_ACID=0.0
+!HNO4/ETH=0.0
!
-!NO3/WR_RP16=0.0
+!HNO4/ALKA=0.0
!
-!NO3/WR_UR21=0.0
+!HNO4/ALKE=0.0
!
-!NO3/WR_UR28=0.0
+!HNO4/BIO=0.0
!
-!NO3/WR_ACID2=0.0
+!HNO4/ARO=0.0
!
-!NO3/WR_ASO3=0.0
+!HNO4/HCHO=0.0
!
-!NO3/WR_ASO4=0.0
+!HNO4/ALD=0.0
!
-!NO3/WR_ASO5=0.0
+!HNO4/KET=0.0
!
-!NO3/WR_AHSO5=0.0
+!HNO4/CARBO=0.0
!
-!NO3/WR_AHMS=0.0
+!HNO4/ONIT=0.0
!
-!NH3/NO=0.0
+!HNO4/PAN=0.0
!
-!NH3/NO2=0.0
+!HNO4/OP1=0.0
!
-!NH3/O3=0.0
+!HNO4/OP2=0.0
!
-!NH3/HONO=0.0
+!HNO4/ORA1=0.0
!
-!NH3/HNO3=0.0
+!HNO4/ORA2=0.0
!
-!NH3/HNO4=0.0
+!HNO4/MO2=0.0
!
-!NH3/N2O5=0.0
+!HNO4/ALKAP=0.0
!
-!NH3/NO3=0.0
+!HNO4/ALKEP=0.0
!
-!NH3/NH3=-K345*<OH>-KTC10-KTR10
- PJAC(:,9,9)=-TPK%K345(:)*PCONC(:,15)-TPK%KTC10(:)-TPK%KTR10(:)
+!HNO4/BIOP=0.0
!
-!NH3/HO2=0.0
+!HNO4/PHO=0.0
!
-!NH3/CO=0.0
+!HNO4/ADD=0.0
!
-!NH3/H2O2=0.0
+!HNO4/AROP=0.0
!
-!NH3/SO2=0.0
+!HNO4/CARBOP=0.0
!
-!NH3/H2SO4=0.0
+!HNO4/OLN=0.0
!
-!NH3/OH=-K345*<NH3>
- PJAC(:,9,15)=-TPK%K345(:)*PCONC(:,9)
+!HNO4/XO2=0.0
!
-!NH3/ETHE=0.0
+!NH3/O3=0.0
!
-!NH3/OLEL=0.0
+!NH3/H2O2=0.0
!
-!NH3/OLEH=0.0
+!NH3/NO=0.0
!
-!NH3/ALKL=0.0
+!NH3/NO2=0.0
!
-!NH3/ALKM=0.0
+!NH3/NO3=0.0
!
-!NH3/ALKH=0.0
+!NH3/N2O5=0.0
!
-!NH3/AROH=0.0
+!NH3/HONO=0.0
!
-!NH3/AROL=0.0
+!NH3/HNO3=0.0
!
-!NH3/AROO=0.0
+!NH3/HNO4=0.0
!
-!NH3/ARAL=0.0
+!NH3/NH3=-K050*<OH>
+ PJAC(:,10,10)=-TPK%K050(:)*PCONC(:,14)
!
-!NH3/ARAC=0.0
+!NH3/SO2=0.0
!
-!NH3/PAH=0.0
+!NH3/SULF=0.0
!
-!NH3/HCHO=0.0
+!NH3/CO=0.0
!
-!NH3/ALD2=0.0
+!NH3/OH=-K050*<NH3>
+ PJAC(:,10,14)=-TPK%K050(:)*PCONC(:,10)
!
-!NH3/KETL=0.0
+!NH3/HO2=0.0
!
-!NH3/KETH=0.0
+!NH3/CH4=0.0
!
-!NH3/MEOH=0.0
+!NH3/ETH=0.0
!
-!NH3/ETOH=0.0
+!NH3/ALKA=0.0
!
-!NH3/ALCH=0.0
+!NH3/ALKE=0.0
!
-!NH3/ISOP=0.0
+!NH3/BIO=0.0
!
-!NH3/BIOL=0.0
+!NH3/ARO=0.0
!
-!NH3/BIOH=0.0
+!NH3/HCHO=0.0
+!
+!NH3/ALD=0.0
!
-!NH3/MTBE=0.0
+!NH3/KET=0.0
!
-!NH3/MVK=0.0
+!NH3/CARBO=0.0
!
-!NH3/MCR=0.0
+!NH3/ONIT=0.0
!
-!NH3/MGLY=0.0
+!NH3/PAN=0.0
!
-!NH3/GLY=0.0
+!NH3/OP1=0.0
+!
+!NH3/OP2=0.0
!
!NH3/ORA1=0.0
!
!NH3/ORA2=0.0
!
-!NH3/ACID=0.0
+!NH3/MO2=0.0
!
-!NH3/UR28=0.0
+!NH3/ALKAP=0.0
!
-!NH3/UR21=0.0
+!NH3/ALKEP=0.0
!
-!NH3/URG2=0.0
+!NH3/BIOP=0.0
!
-!NH3/UR26=0.0
+!NH3/PHO=0.0
!
-!NH3/RPG2=0.0
+!NH3/ADD=0.0
!
-!NH3/RP18=0.0
+!NH3/AROP=0.0
!
-!NH3/RPG3=0.0
+!NH3/CARBOP=0.0
!
-!NH3/URG4=0.0
+!NH3/OLN=0.0
!
-!NH3/UR8=0.0
+!NH3/XO2=0.0
!
-!NH3/UR17=0.0
+RETURN
+END SUBROUTINE SUBJ1
!
-!NH3/UR7=0.0
+SUBROUTINE SUBJ2
!
-!NH3/RPR3=0.0
+!Indices 11 a 15
!
-!NH3/URG6=0.0
!
-!NH3/UR22=0.0
+!SO2/O3=0.0
!
-!NH3/URG7=0.0
+!SO2/H2O2=0.0
!
-!NH3/RPR4=0.0
+!SO2/NO=0.0
!
-!NH3/RPR7=0.0
+!SO2/NO2=0.0
!
-!NH3/RPG7=0.0
+!SO2/NO3=0.0
!
-!NH3/URG8=0.0
+!SO2/N2O5=0.0
!
-!NH3/UR19=0.0
+!SO2/HONO=0.0
!
-!NH3/URG9=0.0
+!SO2/HNO3=0.0
!
-!NH3/AP7=0.0
+!SO2/HNO4=0.0
!
-!NH3/URG10=0.0
+!SO2/NH3=0.0
!
-!NH3/RPR1=0.0
+!SO2/SO2=-K052*<OH>
+ PJAC(:,11,11)=-TPK%K052(:)*PCONC(:,14)
!
-!NH3/RPR5=0.0
+!SO2/SULF=0.0
!
-!NH3/RPR8=0.0
+!SO2/CO=0.0
!
-!NH3/RP10=0.0
+!SO2/OH=-K052*<SO2>
+ PJAC(:,11,14)=-TPK%K052(:)*PCONC(:,11)
!
-!NH3/RP11=0.0
+!SO2/HO2=0.0
!
-!NH3/RP16=0.0
+!SO2/CH4=0.0
!
-!NH3/RPRL=0.0
+!SO2/ETH=0.0
!
-!NH3/APAN=0.0
+!SO2/ALKA=0.0
!
-!NH3/PAN1=0.0
+!SO2/ALKE=0.0
!
-!NH3/PAN2=0.0
+!SO2/BIO=0.0
!
-!NH3/PAN3=0.0
+!SO2/ARO=0.0
!
-!NH3/PAN4=0.0
+!SO2/HCHO=0.0
!
-!NH3/PAN6=0.0
+!SO2/ALD=0.0
!
-!NH3/PAN7=0.0
+!SO2/KET=0.0
!
-!NH3/PAN8=0.0
+!SO2/CARBO=0.0
!
-!NH3/PN10=0.0
+!SO2/ONIT=0.0
!
-!NH3/RO2T=0.0
+!SO2/PAN=0.0
!
-!NH3/RO21=0.0
+!SO2/OP1=0.0
!
-!NH3/RO25=0.0
+!SO2/OP2=0.0
!
-!NH3/WC_O3=0.0
+!SO2/ORA1=0.0
!
-!NH3/WC_H2O2=0.0
+!SO2/ORA2=0.0
!
-!NH3/WC_NO=0.0
+!SO2/MO2=0.0
!
-!NH3/WC_NO2=0.0
+!SO2/ALKAP=0.0
!
-!NH3/WC_NO3=0.0
+!SO2/ALKEP=0.0
!
-!NH3/WC_N2O5=0.0
+!SO2/BIOP=0.0
!
-!NH3/WC_HONO=0.0
+!SO2/PHO=0.0
!
-!NH3/WC_HNO3=0.0
+!SO2/ADD=0.0
!
-!NH3/WC_HNO4=0.0
+!SO2/AROP=0.0
!
-!NH3/WC_NH3=+KTC41
- PJAC(:,9,97)=+TPK%KTC41(:)
+!SO2/CARBOP=0.0
!
-!NH3/WC_OH=0.0
+!SO2/OLN=0.0
!
-!NH3/WC_HO2=0.0
+!SO2/XO2=0.0
!
-!NH3/WC_CO2=0.0
+!SULF/O3=0.0
!
-!NH3/WC_SO2=0.0
+!SULF/H2O2=0.0
!
-!NH3/WC_H2SO4=0.0
+!SULF/NO=0.0
!
-!NH3/WC_RO21=0.0
+!SULF/NO2=0.0
!
-!NH3/WC_RO25=0.0
+!SULF/NO3=0.0
!
-!NH3/WC_MEOH=0.0
+!SULF/N2O5=0.0
!
-!NH3/WC_ETOH=0.0
+!SULF/HONO=0.0
!
-!NH3/WC_ALCH=0.0
+!SULF/HNO3=0.0
!
-!NH3/WC_HCHO=0.0
+!SULF/HNO4=0.0
!
-!NH3/WC_ALD2=0.0
+!SULF/NH3=0.0
!
-!NH3/WC_GLY=0.0
+!SULF/SO2=+K052*<OH>
+ PJAC(:,12,11)=+TPK%K052(:)*PCONC(:,14)
!
-!NH3/WC_MGLY=0.0
+!SULF/SULF=-K132
+ PJAC(:,12,12)=-TPK%K132(:)
!
-!NH3/WC_KETL=0.0
+!SULF/CO=0.0
!
-!NH3/WC_ORA1=0.0
+!SULF/OH=+K052*<SO2>
+ PJAC(:,12,14)=+TPK%K052(:)*PCONC(:,11)
!
-!NH3/WC_ORA2=0.0
+!SULF/HO2=0.0
!
-!NH3/WC_ACID=0.0
+!SULF/CH4=0.0
!
-!NH3/WC_RP16=0.0
+!SULF/ETH=0.0
!
-!NH3/WC_UR21=0.0
+!SULF/ALKA=0.0
!
-!NH3/WC_UR28=0.0
+!SULF/ALKE=0.0
!
-!NH3/WC_ACID2=0.0
+!SULF/BIO=0.0
!
-!NH3/WC_ASO3=0.0
+!SULF/ARO=0.0
!
-!NH3/WC_ASO4=0.0
+!SULF/HCHO=0.0
!
-!NH3/WC_ASO5=0.0
+!SULF/ALD=0.0
!
-!NH3/WC_AHSO5=0.0
+!SULF/KET=0.0
!
-!NH3/WC_AHMS=0.0
+!SULF/CARBO=0.0
!
-!NH3/WR_O3=0.0
+!SULF/ONIT=0.0
!
-!NH3/WR_H2O2=0.0
+!SULF/PAN=0.0
!
-!NH3/WR_NO=0.0
+!SULF/OP1=0.0
!
-!NH3/WR_NO2=0.0
+!SULF/OP2=0.0
!
-!NH3/WR_NO3=0.0
+!SULF/ORA1=0.0
!
-!NH3/WR_N2O5=0.0
+!SULF/ORA2=0.0
!
-!NH3/WR_HONO=0.0
+!SULF/MO2=0.0
!
-!NH3/WR_HNO3=0.0
+!SULF/ALKAP=0.0
!
-!NH3/WR_HNO4=0.0
+!SULF/ALKEP=0.0
!
-!NH3/WR_NH3=+KTR41
- PJAC(:,9,134)=+TPK%KTR41(:)
+!SULF/BIOP=0.0
!
-!NH3/WR_OH=0.0
+!SULF/PHO=0.0
!
-!NH3/WR_HO2=0.0
+!SULF/ADD=0.0
!
-!NH3/WR_CO2=0.0
+!SULF/AROP=0.0
!
-!NH3/WR_SO2=0.0
+!SULF/CARBOP=0.0
!
-!NH3/WR_H2SO4=0.0
+!SULF/OLN=0.0
!
-!NH3/WR_RO21=0.0
+!SULF/XO2=0.0
!
-!NH3/WR_RO25=0.0
+!CO/O3=+0.35120*K079*<ALKE>+0.36000*K080*<BIO>+0.64728*K081*<CARBO>+0.13*K082*<
+!PAN>
+ PJAC(:,13,1)=+0.35120*TPK%K079(:)*PCONC(:,19)+0.36000*TPK%K080(:)*PCONC(:,20)+&
+&0.64728*TPK%K081(:)*PCONC(:,25)+0.13*TPK%K082(:)*PCONC(:,27)
!
-!NH3/WR_MEOH=0.0
+!CO/H2O2=0.0
!
-!NH3/WR_ETOH=0.0
+!CO/NO=0.0
!
-!NH3/WR_ALCH=0.0
+!CO/NO2=0.0
!
-!NH3/WR_HCHO=0.0
+!CO/NO3=+K072*<HCHO>+1.33723*K074*<CARBO>
+ PJAC(:,13,5)=+TPK%K072(:)*PCONC(:,22)+1.33723*TPK%K074(:)*PCONC(:,25)
!
-!NH3/WR_ALD2=0.0
+!CO/N2O5=0.0
!
-!NH3/WR_GLY=0.0
+!CO/HONO=0.0
!
-!NH3/WR_MGLY=0.0
+!CO/HNO3=0.0
!
-!NH3/WR_KETL=0.0
+!CO/HNO4=0.0
!
-!NH3/WR_ORA1=0.0
+!CO/NH3=0.0
!
-!NH3/WR_ORA2=0.0
+!CO/SO2=0.0
!
-!NH3/WR_ACID=0.0
+!CO/SULF=0.0
!
-!NH3/WR_RP16=0.0
+!CO/CO=-K053*<OH>
+ PJAC(:,13,13)=-TPK%K053(:)*PCONC(:,14)
!
-!NH3/WR_UR21=0.0
+!CO/OH=-K053*<CO>+0.00878*K058*<ALKA>+K062*<HCHO>+1.01732*K065*<CARBO>
+ PJAC(:,13,14)=-TPK%K053(:)*PCONC(:,13)+0.00878*TPK%K058(:)*PCONC(:,18)+TPK%K06&
+&2(:)*PCONC(:,22)+1.01732*TPK%K065(:)*PCONC(:,25)
!
-!NH3/WR_UR28=0.0
+!CO/HO2=0.0
!
-!NH3/WR_ACID2=0.0
+!CO/CH4=0.0
!
-!NH3/WR_ASO3=0.0
+!CO/ETH=0.0
!
-!NH3/WR_ASO4=0.0
+!CO/ALKA=+0.00878*K058*<OH>
+ PJAC(:,13,18)=+0.00878*TPK%K058(:)*PCONC(:,14)
!
-!NH3/WR_ASO5=0.0
+!CO/ALKE=+0.35120*K079*<O3>
+ PJAC(:,13,19)=+0.35120*TPK%K079(:)*PCONC(:,1)
!
-!NH3/WR_AHSO5=0.0
+!CO/BIO=+0.01*K054*<O3P>+0.36000*K080*<O3>
+ PJAC(:,13,20)=+0.01*TPK%K054(:)*TPK%O3P(:)+0.36000*TPK%K080(:)*PCONC(:,1)
!
-!NH3/WR_AHMS=0.0
+!CO/ARO=0.0
!
-!HO2/NO=-K026*<HO2>+K110*<RO21>+K113*<RO22>+K119*<RO24>+TPK%CF4*K122*<RO25>+TPK
-!%CF6*K150*<RO29>+K153*<RO210>+K171*<RO215>+TPK%CF22*K177*<RO217>+TPK%CF20*K180
-!*<RO218>+TPK%CF24*K189*<RO221>+TPK%CF42*K192*<RO222>+TPK%CF44*K195*<RO223>+TPK
-!%CF26*K198*<RO224>+TPK%CF28*K207*<RO227>+TPK%CF32*K221*<RO231>+TPK%CF36*K227*<
-!RO241>+K231*<RO233>+K234*<RO242>+K238*<RO234>+K241*<RO243>+K245*<RO235>+K248*<
-!RO244>+K252*<RO236>+K255*<RO245>+K259*<RO237>+K262*<RO246>+K266*<RO238>+K269*<
-!RO247>+K285*<RO249>+K291*<RO251>+K300*<RO254>+K315*<RO256>
- PJAC(:,10,1)=-TPK%K026(:)*PCONC(:,10)+TPK%K110(:)*PCONC(:,86)+TPK%K113(:)*TPK%&
-&RO22(:)+TPK%K119(:)*TPK%RO24(:)+TPK%CF4*TPK%K122(:)*PCONC(:,87)+TPK%CF6*TPK%K1&
-&50(:)*TPK%RO29(:)+TPK%K153(:)*TPK%RO210(:)+TPK%K171(:)*TPK%RO215(:)+TPK%CF22*T&
-&PK%K177(:)*TPK%RO217(:)+TPK%CF20*TPK%K180(:)*TPK%RO218(:)+TPK%CF24*TPK%K189(:)&
-&*TPK%RO221(:)+TPK%CF42*TPK%K192(:)*TPK%RO222(:)+TPK%CF44*TPK%K195(:)*TPK%RO223&
-&(:)+TPK%CF26*TPK%K198(:)*TPK%RO224(:)+TPK%CF28*TPK%K207(:)*TPK%RO227(:)+TPK%CF&
-&32*TPK%K221(:)*TPK%RO231(:)+TPK%CF36*TPK%K227(:)*TPK%RO241(:)+TPK%K231(:)*TPK%&
-&RO233(:)+TPK%K234(:)*TPK%RO242(:)+TPK%K238(:)*TPK%RO234(:)+TPK%K241(:)*TPK%RO2&
-&43(:)+TPK%K245(:)*TPK%RO235(:)+TPK%K248(:)*TPK%RO244(:)+TPK%K252(:)*TPK%RO236(&
-&:)+TPK%K255(:)*TPK%RO245(:)+TPK%K259(:)*TPK%RO237(:)+TPK%K262(:)*TPK%RO246(:)+&
-&TPK%K266(:)*TPK%RO238(:)+TPK%K269(:)*TPK%RO247(:)+TPK%K285(:)*TPK%RO249(:)+TPK&
-&%K291(:)*TPK%RO251(:)+TPK%K300(:)*TPK%RO254(:)+TPK%K315(:)*TPK%RO256(:)
-!
-!HO2/NO2=-K027*<HO2>
- PJAC(:,10,2)=-TPK%K027(:)*PCONC(:,10)
-!
-!HO2/O3=+K025*<OH>-K030*<HO2>+0.06*K051*<ETHE>+0.28*K056*<OLEL>+0.366*K066*<ISO
-!P>+0.28*K076*<OLEH>+0.445*K086*<BIOL>+0.28*K281*<MVK>+0.41*K282*<MCR>
- PJAC(:,10,3)=+TPK%K025(:)*PCONC(:,15)-TPK%K030(:)*PCONC(:,10)+0.06*TPK%K051(:)&
-&*PCONC(:,16)+0.28*TPK%K056(:)*PCONC(:,17)+0.366*TPK%K066(:)*PCONC(:,35)+0.28*T&
-&PK%K076(:)*PCONC(:,18)+0.445*TPK%K086(:)*PCONC(:,36)+0.28*TPK%K281(:)*PCONC(:,&
-&39)+0.41*TPK%K282(:)*PCONC(:,40)
-!
-!HO2/HONO=+0.1*K020
- PJAC(:,10,4)=+0.1*TPK%K020(:)
+!CO/HCHO=+K010+K011+K062*<OH>+K072*<NO3>
+ PJAC(:,13,22)=+TPK%K010(:)+TPK%K011(:)+TPK%K062(:)*PCONC(:,14)+TPK%K072(:)*PCO&
+&NC(:,5)
!
-!HO2/HNO3=0.0
+!CO/ALD=+K012
+ PJAC(:,13,23)=+TPK%K012(:)
!
-!HO2/HNO4=+K028
- PJAC(:,10,6)=+TPK%K028(:)
+!CO/KET=0.0
!
-!HO2/N2O5=0.0
+!CO/CARBO=+0.91924*K016+1.01732*K065*<OH>+1.33723*K074*<NO3>+0.64728*K081*<O3>
+ PJAC(:,13,25)=+0.91924*TPK%K016(:)+1.01732*TPK%K065(:)*PCONC(:,14)+1.33723*TPK&
+&%K074(:)*PCONC(:,5)+0.64728*TPK%K081(:)*PCONC(:,1)
!
-!HO2/NO3=-K033*<HO2>+K040*<OH>+K047*<HCHO>
- PJAC(:,10,8)=-TPK%K033(:)*PCONC(:,10)+TPK%K040(:)*PCONC(:,15)+TPK%K047(:)*PCON&
-&C(:,28)
+!CO/ONIT=0.0
!
-!HO2/NH3=0.0
+!CO/PAN=+0.13*K082*<O3>
+ PJAC(:,13,27)=+0.13*TPK%K082(:)*PCONC(:,1)
!
-!HO2/HO2=-K026*<NO>-K027*<NO2>-K030*<O3>-K031*<HO2>-K031*<HO2>-K031*<HO2>-K031*
-!<HO2>-K032*<H2O>*<HO2>-K032*<H2O>*<HO2>-K032*<H2O>*<HO2>-K032*<H2O>*<HO2>-K033
-!*<NO3>-K042*<OH>+K094*<RO2T>-K094*<RO2T>+K112*<RO21>-K112*<RO21>+K115*<RO22>-K
-!115*<RO22>+K118*<RO23>-K118*<RO23>+K121*<RO24>-K121*<RO24>+K124*<RO25>-K124*<R
-!O25>-K142*<RO26>-K146*<RO27>-K148*<RO28>+K152*<RO29>-K152*<RO29>+K155*<RO210>-
-!K155*<RO210>-K158*<RO211>-K161*<RO212>-K164*<RO213>-K166*<RO239>-K170*<RO214>+
-!K173*<RO215>-K173*<RO215>-K176*<RO216>+K179*<RO217>-K179*<RO217>+K182*<RO218>-
-!K182*<RO218>-K185*<RO219>-K188*<RO220>+K191*<RO221>-K191*<RO221>+K194*<RO222>-
-!K194*<RO222>+K197*<RO223>-K197*<RO223>+K200*<RO224>-K200*<RO224>-K203*<RO225>-
-!K206*<RO226>+K209*<RO227>-K209*<RO227>-K212*<RO228>-K215*<RO229>-K218*<RO240>-
-!K220*<RO230>+K223*<RO231>-K223*<RO231>-K226*<RO232>+K229*<RO241>-K229*<RO241>+
-!K233*<RO233>-K233*<RO233>+K236*<RO242>-K236*<RO242>+K240*<RO234>-K240*<RO234>+
-!K243*<RO243>-K243*<RO243>+K247*<RO235>-K247*<RO235>+K250*<RO244>-K250*<RO244>+
-!K254*<RO236>-K254*<RO236>+K257*<RO245>-K257*<RO245>+K261*<RO237>-K261*<RO237>+
-!K264*<RO246>-K264*<RO246>+K268*<RO238>-K268*<RO238>+K271*<RO247>-K271*<RO247>-
-!K279*<RO248>+K287*<RO249>-K287*<RO249>-K289*<RO250>+K292*<RO251>-K292*<RO251>-
-!K295*<RO252>-K298*<RO253>-K301*<RO254>-K310*<RO255>-K318*<RO256>-K332*<RO257>-
-!K341*<RO258>-KTC12-KTR12
- PJAC(:,10,10)=-TPK%K026(:)*PCONC(:,1)-TPK%K027(:)*PCONC(:,2)-TPK%K030(:)*PCONC&
-&(:,3)-TPK%K031(:)*PCONC(:,10)-TPK%K031(:)*PCONC(:,10)-TPK%K031(:)*PCONC(:,10)-&
-&TPK%K031(:)*PCONC(:,10)-TPK%K032(:)*TPK%H2O(:)*PCONC(:,10)-TPK%K032(:)*TPK%H2O&
-&(:)*PCONC(:,10)-TPK%K032(:)*TPK%H2O(:)*PCONC(:,10)-TPK%K032(:)*TPK%H2O(:)*PCON&
-&C(:,10)-TPK%K033(:)*PCONC(:,8)-TPK%K042(:)*PCONC(:,15)+TPK%K094(:)*PCONC(:,85)&
-&-TPK%K094(:)*PCONC(:,85)+TPK%K112(:)*PCONC(:,86)-TPK%K112(:)*PCONC(:,86)+TPK%K&
-&115(:)*TPK%RO22(:)-TPK%K115(:)*TPK%RO22(:)+TPK%K118(:)*TPK%RO23(:)-TPK%K118(:)&
-&*TPK%RO23(:)+TPK%K121(:)*TPK%RO24(:)-TPK%K121(:)*TPK%RO24(:)+TPK%K124(:)*PCONC&
-&(:,87)-TPK%K124(:)*PCONC(:,87)-TPK%K142(:)*TPK%RO26(:)-TPK%K146(:)*TPK%RO27(:)&
-&-TPK%K148(:)*TPK%RO28(:)+TPK%K152(:)*TPK%RO29(:)-TPK%K152(:)*TPK%RO29(:)+TPK%K&
-&155(:)*TPK%RO210(:)-TPK%K155(:)*TPK%RO210(:)-TPK%K158(:)*TPK%RO211(:)-TPK%K161&
-&(:)*TPK%RO212(:)-TPK%K164(:)*TPK%RO213(:)-TPK%K166(:)*TPK%RO239(:)-TPK%K170(:)&
-&*TPK%RO214(:)+TPK%K173(:)*TPK%RO215(:)-TPK%K173(:)*TPK%RO215(:)-TPK%K176(:)*TP&
-&K%RO216(:)+TPK%K179(:)*TPK%RO217(:)-TPK%K179(:)*TPK%RO217(:)+TPK%K182(:)*TPK%R&
-&O218(:)-TPK%K182(:)*TPK%RO218(:)-TPK%K185(:)*TPK%RO219(:)-TPK%K188(:)*TPK%RO22&
-&0(:)+TPK%K191(:)*TPK%RO221(:)-TPK%K191(:)*TPK%RO221(:)+TPK%K194(:)*TPK%RO222(:&
-&)-TPK%K194(:)*TPK%RO222(:)+TPK%K197(:)*TPK%RO223(:)-TPK%K197(:)*TPK%RO223(:)+T&
-&PK%K200(:)*TPK%RO224(:)-TPK%K200(:)*TPK%RO224(:)-TPK%K203(:)*TPK%RO225(:)-TPK%&
-&K206(:)*TPK%RO226(:)+TPK%K209(:)*TPK%RO227(:)-TPK%K209(:)*TPK%RO227(:)-TPK%K21&
-&2(:)*TPK%RO228(:)-TPK%K215(:)*TPK%RO229(:)-TPK%K218(:)*TPK%RO240(:)-TPK%K220(:&
-&)*TPK%RO230(:)+TPK%K223(:)*TPK%RO231(:)-TPK%K223(:)*TPK%RO231(:)-TPK%K226(:)*T&
-&PK%RO232(:)+TPK%K229(:)*TPK%RO241(:)-TPK%K229(:)*TPK%RO241(:)+TPK%K233(:)*TPK%&
-&RO233(:)-TPK%K233(:)*TPK%RO233(:)+TPK%K236(:)*TPK%RO242(:)-TPK%K236(:)*TPK%RO2&
-&42(:)+TPK%K240(:)*TPK%RO234(:)-TPK%K240(:)*TPK%RO234(:)+TPK%K243(:)*TPK%RO243(&
-&:)-TPK%K243(:)*TPK%RO243(:)+TPK%K247(:)*TPK%RO235(:)-TPK%K247(:)*TPK%RO235(:)+&
-&TPK%K250(:)*TPK%RO244(:)-TPK%K250(:)*TPK%RO244(:)+TPK%K254(:)*TPK%RO236(:)-TPK&
-&%K254(:)*TPK%RO236(:)+TPK%K257(:)*TPK%RO245(:)-TPK%K257(:)*TPK%RO245(:)+TPK%K2&
-&61(:)*TPK%RO237(:)-TPK%K261(:)*TPK%RO237(:)+TPK%K264(:)*TPK%RO246(:)-TPK%K264(&
-&:)*TPK%RO246(:)+TPK%K268(:)*TPK%RO238(:)-TPK%K268(:)*TPK%RO238(:)+TPK%K271(:)*&
-&TPK%RO247(:)-TPK%K271(:)*TPK%RO247(:)-TPK%K279(:)*TPK%RO248(:)+TPK%K287(:)*TPK&
-&%RO249(:)-TPK%K287(:)*TPK%RO249(:)-TPK%K289(:)*TPK%RO250(:)+TPK%K292(:)*TPK%RO&
-&251(:)-TPK%K292(:)*TPK%RO251(:)-TPK%K295(:)*TPK%RO252(:)-TPK%K298(:)*TPK%RO253&
-&(:)-TPK%K301(:)*TPK%RO254(:)-TPK%K310(:)*TPK%RO255(:)-TPK%K318(:)*TPK%RO256(:)&
-&-TPK%K332(:)*TPK%RO257(:)-TPK%K341(:)*TPK%RO258(:)-TPK%KTC12(:)-TPK%KTR12(:)
-!
-!HO2/CO=+K024*<OH>
- PJAC(:,10,11)=+TPK%K024(:)*PCONC(:,15)
-!
-!HO2/H2O2=+K037*<OH>
- PJAC(:,10,12)=+TPK%K037(:)*PCONC(:,15)
-!
-!HO2/SO2=+K035*<OH>
- PJAC(:,10,13)=+TPK%K035(:)*PCONC(:,15)
-!
-!HO2/H2SO4=0.0
-!
-!HO2/OH=+K024*<CO>+K025*<O3>+K035*<SO2>+K037*<H2O2>+K040*<NO3>-K042*<HO2>+K046*
-!<HCHO>+K048*<MEOH>+TPK%CF1*K053*<ETOH>+0.16*K073*<AROO>+0.16*K079*<AROL>+0.16*
-!K080*<AROH>+TPK%CF48*K082*<ARAL>+0.16*K083*<ARAC>+0.16*K092*<PAH>+K325*<RP10>+
-!K347*<ORA1>
- PJAC(:,10,15)=+TPK%K024(:)*PCONC(:,11)+TPK%K025(:)*PCONC(:,3)+TPK%K035(:)*PCON&
-&C(:,13)+TPK%K037(:)*PCONC(:,12)+TPK%K040(:)*PCONC(:,8)-TPK%K042(:)*PCONC(:,10)&
-&+TPK%K046(:)*PCONC(:,28)+TPK%K048(:)*PCONC(:,32)+TPK%CF1*TPK%K053(:)*PCONC(:,3&
-&3)+0.16*TPK%K073(:)*PCONC(:,24)+0.16*TPK%K079(:)*PCONC(:,23)+0.16*TPK%K080(:)*&
-&PCONC(:,22)+TPK%CF48*TPK%K082(:)*PCONC(:,25)+0.16*TPK%K083(:)*PCONC(:,26)+0.16&
-&*TPK%K092(:)*PCONC(:,27)+TPK%K325(:)*PCONC(:,72)+TPK%K347(:)*PCONC(:,43)
-!
-!HO2/ETHE=+0.06*K051*<O3>+K052*<O>
- PJAC(:,10,16)=+0.06*TPK%K051(:)*PCONC(:,3)+TPK%K052(:)*TPK%O(:)
-!
-!HO2/OLEL=+0.28*K056*<O3>
- PJAC(:,10,17)=+0.28*TPK%K056(:)*PCONC(:,3)
-!
-!HO2/OLEH=+0.28*K076*<O3>
- PJAC(:,10,18)=+0.28*TPK%K076(:)*PCONC(:,3)
-!
-!HO2/ALKL=0.0
-!
-!HO2/ALKM=0.0
-!
-!HO2/ALKH=0.0
-!
-!HO2/AROH=+0.16*K080*<OH>
- PJAC(:,10,22)=+0.16*TPK%K080(:)*PCONC(:,15)
-!
-!HO2/AROL=+0.16*K079*<OH>
- PJAC(:,10,23)=+0.16*TPK%K079(:)*PCONC(:,15)
-!
-!HO2/AROO=+0.16*K073*<OH>
- PJAC(:,10,24)=+0.16*TPK%K073(:)*PCONC(:,15)
-!
-!HO2/ARAL=+TPK%CF48*K082*<OH>
- PJAC(:,10,25)=+TPK%CF48*TPK%K082(:)*PCONC(:,15)
-!
-!HO2/ARAC=+0.16*K083*<OH>
- PJAC(:,10,26)=+0.16*TPK%K083(:)*PCONC(:,15)
-!
-!HO2/PAH=+0.16*K092*<OH>
- PJAC(:,10,27)=+0.16*TPK%K092(:)*PCONC(:,15)
-!
-!HO2/HCHO=+2.0*K044+K046*<OH>+K047*<NO3>
- PJAC(:,10,28)=+2.0*TPK%K044(:)+TPK%K046(:)*PCONC(:,15)+TPK%K047(:)*PCONC(:,8)
-!
-!HO2/ALD2=+K059
- PJAC(:,10,29)=+TPK%K059(:)
+!CO/OP1=0.0
!
-!HO2/KETL=0.0
+!CO/OP2=0.0
!
-!HO2/KETH=0.0
+!CO/ORA1=0.0
!
-!HO2/MEOH=+K048*<OH>
- PJAC(:,10,32)=+TPK%K048(:)*PCONC(:,15)
+!CO/ORA2=0.0
!
-!HO2/ETOH=+TPK%CF1*K053*<OH>
- PJAC(:,10,33)=+TPK%CF1*TPK%K053(:)*PCONC(:,15)
+!CO/MO2=0.0
!
-!HO2/ALCH=0.0
+!CO/ALKAP=0.0
!
-!HO2/ISOP=+0.366*K066*<O3>
- PJAC(:,10,35)=+0.366*TPK%K066(:)*PCONC(:,3)
+!CO/ALKEP=0.0
!
-!HO2/BIOL=+0.445*K086*<O3>
- PJAC(:,10,36)=+0.445*TPK%K086(:)*PCONC(:,3)
+!CO/BIOP=0.0
!
-!HO2/BIOH=0.0
+!CO/PHO=0.0
!
-!HO2/MTBE=0.0
+!CO/ADD=0.0
!
-!HO2/MVK=+0.28*K281*<O3>
- PJAC(:,10,39)=+0.28*TPK%K281(:)*PCONC(:,3)
+!CO/AROP=0.0
!
-!HO2/MCR=+0.41*K282*<O3>+0.15*K284*<O>
- PJAC(:,10,40)=+0.41*TPK%K282(:)*PCONC(:,3)+0.15*TPK%K284(:)*TPK%O(:)
+!CO/CARBOP=0.0
!
-!HO2/MGLY=+K276
- PJAC(:,10,41)=+TPK%K276(:)
+!CO/OLN=0.0
!
-!HO2/GLY=0.0
+!CO/XO2=0.0
!
-!HO2/ORA1=+K347*<OH>
- PJAC(:,10,43)=+TPK%K347(:)*PCONC(:,15)
+!OH/O3=-K023*<OH>+K024*<HO2>+0.39435*K079*<ALKE>+0.28000*K080*<BIO>+0.20595*K08
+!1*<CARBO>+0.036*K082*<PAN>+K087*<ADD>
+ PJAC(:,14,1)=-TPK%K023(:)*PCONC(:,14)+TPK%K024(:)*PCONC(:,15)+0.39435*TPK%K079&
+&(:)*PCONC(:,19)+0.28000*TPK%K080(:)*PCONC(:,20)+0.20595*TPK%K081(:)*PCONC(:,25&
+&)+0.036*TPK%K082(:)*PCONC(:,27)+TPK%K087(:)*PCONC(:,37)
!
-!HO2/ORA2=0.0
+!OH/H2O2=+K009+K009-K026*<OH>
+ PJAC(:,14,2)=+TPK%K009(:)+TPK%K009(:)-TPK%K026(:)*PCONC(:,14)
!
-!HO2/ACID=0.0
+!OH/NO=-K032*<OH>+K035*<HO2>
+ PJAC(:,14,3)=-TPK%K032(:)*PCONC(:,14)+TPK%K035(:)*PCONC(:,15)
!
-!HO2/UR28=0.0
+!OH/NO2=-K033*<OH>
+ PJAC(:,14,4)=-TPK%K033(:)*PCONC(:,14)
!
-!HO2/UR21=0.0
+!OH/NO3=-K034*<OH>+0.7*K038*<HO2>
+ PJAC(:,14,5)=-TPK%K034(:)*PCONC(:,14)+0.7*TPK%K038(:)*PCONC(:,15)
!
-!HO2/URG2=0.0
+!OH/N2O5=0.0
!
-!HO2/UR26=0.0
+!OH/HONO=+K004-K039*<OH>
+ PJAC(:,14,7)=+TPK%K004(:)-TPK%K039(:)*PCONC(:,14)
!
-!HO2/RPG2=0.0
+!OH/HNO3=+K005-K040*<OH>
+ PJAC(:,14,8)=+TPK%K005(:)-TPK%K040(:)*PCONC(:,14)
!
-!HO2/RP18=0.0
+!OH/HNO4=+0.35*K006-K041*<OH>
+ PJAC(:,14,9)=+0.35*TPK%K006(:)-TPK%K041(:)*PCONC(:,14)
!
-!HO2/RPG3=0.0
+!OH/NH3=-K050*<OH>
+ PJAC(:,14,10)=-TPK%K050(:)*PCONC(:,14)
!
-!HO2/URG4=0.0
+!OH/SO2=-K052*<OH>
+ PJAC(:,14,11)=-TPK%K052(:)*PCONC(:,14)
!
-!HO2/UR8=0.0
+!OH/SULF=0.0
!
-!HO2/UR17=0.0
+!OH/CO=-K053*<OH>
+ PJAC(:,14,13)=-TPK%K053(:)*PCONC(:,14)
!
-!HO2/UR7=0.0
+!OH/OH=-K023*<O3>-K025*<HO2>-K026*<H2O2>-K032*<NO>-K033*<NO2>-K034*<NO3>-K039*<
+!HONO>-K040*<HNO3>-K041*<HNO4>-K050*<NH3>-K051*<H2>-K052*<SO2>-K053*<CO>-K056*<
+!CH4>-K057*<ETH>+0.00878*K058*<ALKA>-K058*<ALKA>-K059*<ALKE>-K060*<BIO>-K061*<A
+!RO>-K062*<HCHO>-K063*<ALD>-K064*<KET>-K065*<CARBO>-K066*<ORA1>-K067*<ORA2>+0.3
+!5*K068*<OP1>-K068*<OP1>+0.44925*K069*<OP2>-K069*<OP2>-K070*<PAN>-K071*<ONIT>
+ PJAC(:,14,14)=-TPK%K023(:)*PCONC(:,1)-TPK%K025(:)*PCONC(:,15)-TPK%K026(:)*PCON&
+&C(:,2)-TPK%K032(:)*PCONC(:,3)-TPK%K033(:)*PCONC(:,4)-TPK%K034(:)*PCONC(:,5)-TP&
+&K%K039(:)*PCONC(:,7)-TPK%K040(:)*PCONC(:,8)-TPK%K041(:)*PCONC(:,9)-TPK%K050(:)&
+&*PCONC(:,10)-TPK%K051(:)*TPK%H2(:)-TPK%K052(:)*PCONC(:,11)-TPK%K053(:)*PCONC(:&
+&,13)-TPK%K056(:)*PCONC(:,16)-TPK%K057(:)*PCONC(:,17)+0.00878*TPK%K058(:)*PCONC&
+&(:,18)-TPK%K058(:)*PCONC(:,18)-TPK%K059(:)*PCONC(:,19)-TPK%K060(:)*PCONC(:,20)&
+&-TPK%K061(:)*PCONC(:,21)-TPK%K062(:)*PCONC(:,22)-TPK%K063(:)*PCONC(:,23)-TPK%K&
+&064(:)*PCONC(:,24)-TPK%K065(:)*PCONC(:,25)-TPK%K066(:)*PCONC(:,30)-TPK%K067(:)&
+&*PCONC(:,31)+0.35*TPK%K068(:)*PCONC(:,28)-TPK%K068(:)*PCONC(:,28)+0.44925*TPK%&
+&K069(:)*PCONC(:,29)-TPK%K069(:)*PCONC(:,29)-TPK%K070(:)*PCONC(:,27)-TPK%K071(:&
+&)*PCONC(:,26)
!
-!HO2/RPR3=+2.*K314
- PJAC(:,10,57)=+2.*TPK%K314(:)
+!OH/HO2=+K024*<O3>-K025*<OH>+K035*<NO>+0.7*K038*<NO3>
+ PJAC(:,14,15)=+TPK%K024(:)*PCONC(:,1)-TPK%K025(:)*PCONC(:,14)+TPK%K035(:)*PCON&
+&C(:,3)+0.7*TPK%K038(:)*PCONC(:,5)
!
-!HO2/URG6=0.0
+!OH/CH4=-K056*<OH>
+ PJAC(:,14,16)=-TPK%K056(:)*PCONC(:,14)
!
-!HO2/UR22=0.0
+!OH/ETH=-K057*<OH>
+ PJAC(:,14,17)=-TPK%K057(:)*PCONC(:,14)
!
-!HO2/URG7=0.0
+!OH/ALKA=+0.00878*K058*<OH>-K058*<OH>
+ PJAC(:,14,18)=+0.00878*TPK%K058(:)*PCONC(:,14)-TPK%K058(:)*PCONC(:,14)
!
-!HO2/RPR4=0.0
+!OH/ALKE=-K059*<OH>+0.39435*K079*<O3>
+ PJAC(:,14,19)=-TPK%K059(:)*PCONC(:,14)+0.39435*TPK%K079(:)*PCONC(:,1)
!
-!HO2/RPR7=0.0
+!OH/BIO=+0.02*K054*<O3P>-K060*<OH>+0.28000*K080*<O3>
+ PJAC(:,14,20)=+0.02*TPK%K054(:)*TPK%O3P(:)-TPK%K060(:)*PCONC(:,14)+0.28000*TPK&
+&%K080(:)*PCONC(:,1)
!
-!HO2/RPG7=0.0
+!OH/ARO=-K061*<OH>
+ PJAC(:,14,21)=-TPK%K061(:)*PCONC(:,14)
!
-!HO2/URG8=0.0
+!OH/HCHO=-K062*<OH>
+ PJAC(:,14,22)=-TPK%K062(:)*PCONC(:,14)
!
-!HO2/UR19=0.0
+!OH/ALD=-K063*<OH>
+ PJAC(:,14,23)=-TPK%K063(:)*PCONC(:,14)
!
-!HO2/URG9=0.0
+!OH/KET=-K064*<OH>
+ PJAC(:,14,24)=-TPK%K064(:)*PCONC(:,14)
!
-!HO2/AP7=0.0
+!OH/CARBO=-K065*<OH>+0.20595*K081*<O3>
+ PJAC(:,14,25)=-TPK%K065(:)*PCONC(:,14)+0.20595*TPK%K081(:)*PCONC(:,1)
!
-!HO2/URG10=0.0
+!OH/ONIT=-K071*<OH>
+ PJAC(:,14,26)=-TPK%K071(:)*PCONC(:,14)
!
-!HO2/RPR1=+K308
- PJAC(:,10,69)=+TPK%K308(:)
+!OH/PAN=-K070*<OH>+0.036*K082*<O3>
+ PJAC(:,14,27)=-TPK%K070(:)*PCONC(:,14)+0.036*TPK%K082(:)*PCONC(:,1)
!
-!HO2/RPR5=0.0
+!OH/OP1=+K013+0.35*K068*<OH>-K068*<OH>
+ PJAC(:,14,28)=+TPK%K013(:)+0.35*TPK%K068(:)*PCONC(:,14)-TPK%K068(:)*PCONC(:,14&
+&)
!
-!HO2/RPR8=+K329+K330
- PJAC(:,10,71)=+TPK%K329(:)+TPK%K330(:)
+!OH/OP2=+K014+0.44925*K069*<OH>-K069*<OH>
+ PJAC(:,14,29)=+TPK%K014(:)+0.44925*TPK%K069(:)*PCONC(:,14)-TPK%K069(:)*PCONC(:&
+&,14)
!
-!HO2/RP10=+K325*<OH>
- PJAC(:,10,72)=+TPK%K325(:)*PCONC(:,15)
+!OH/ORA1=-K066*<OH>
+ PJAC(:,14,30)=-TPK%K066(:)*PCONC(:,14)
!
-!HO2/RP11=0.0
+!OH/ORA2=-K067*<OH>
+ PJAC(:,14,31)=-TPK%K067(:)*PCONC(:,14)
!
-!HO2/RP16=+K339
- PJAC(:,10,74)=+TPK%K339(:)
+!OH/MO2=0.0
!
-!HO2/RPRL=0.0
+!OH/ALKAP=0.0
!
-!HO2/APAN=0.0
+!OH/ALKEP=0.0
!
-!HO2/PAN1=0.0
+!OH/BIOP=0.0
!
-!HO2/PAN2=0.0
+!OH/PHO=0.0
!
-!HO2/PAN3=0.0
+!OH/ADD=+K087*<O3>
+ PJAC(:,14,37)=+TPK%K087(:)*PCONC(:,1)
!
-!HO2/PAN4=0.0
+!OH/AROP=0.0
!
-!HO2/PAN6=0.0
+!OH/CARBOP=0.0
!
-!HO2/PAN7=0.0
+!OH/OLN=0.0
!
-!HO2/PAN8=0.0
+!OH/XO2=0.0
!
-!HO2/PN10=0.0
+!HO2/O3=+K023*<OH>-K024*<HO2>+0.23451*K079*<ALKE>+0.30000*K080*<BIO>+0.28441*K0
+!81*<CARBO>+0.08*K082*<PAN>
+ PJAC(:,15,1)=+TPK%K023(:)*PCONC(:,14)-TPK%K024(:)*PCONC(:,15)+0.23451*TPK%K079&
+&(:)*PCONC(:,19)+0.30000*TPK%K080(:)*PCONC(:,20)+0.28441*TPK%K081(:)*PCONC(:,25&
+&)+0.08*TPK%K082(:)*PCONC(:,27)
!
-!HO2/RO2T=+K094*<HO2>-K094*<HO2>+K111*<RO21>+K114*<RO22>+K117*<RO23>+K120*<RO24
-!>+K123*<RO25>+K151*<RO29>+K154*<RO210>+K172*<RO215>+K178*<RO217>+K181*<RO218>+
-!K190*<RO221>+K193*<RO222>+K196*<RO223>+K199*<RO224>+K208*<RO227>+K222*<RO231>+
-!K228*<RO241>+K232*<RO233>+K235*<RO242>+K239*<RO234>+K242*<RO243>+K246*<RO235>+
-!K249*<RO244>+K253*<RO236>+K256*<RO245>+K260*<RO237>+K263*<RO246>+K267*<RO238>+
-!K270*<RO247>+K286*<RO249>+K293*<RO251>+K302*<RO254>+K319*<RO256>
- PJAC(:,10,85)=+TPK%K094(:)*PCONC(:,10)-TPK%K094(:)*PCONC(:,10)+TPK%K111(:)*PCO&
-&NC(:,86)+TPK%K114(:)*TPK%RO22(:)+TPK%K117(:)*TPK%RO23(:)+TPK%K120(:)*TPK%RO24(&
-&:)+TPK%K123(:)*PCONC(:,87)+TPK%K151(:)*TPK%RO29(:)+TPK%K154(:)*TPK%RO210(:)+TP&
-&K%K172(:)*TPK%RO215(:)+TPK%K178(:)*TPK%RO217(:)+TPK%K181(:)*TPK%RO218(:)+TPK%K&
-&190(:)*TPK%RO221(:)+TPK%K193(:)*TPK%RO222(:)+TPK%K196(:)*TPK%RO223(:)+TPK%K199&
-&(:)*TPK%RO224(:)+TPK%K208(:)*TPK%RO227(:)+TPK%K222(:)*TPK%RO231(:)+TPK%K228(:)&
-&*TPK%RO241(:)+TPK%K232(:)*TPK%RO233(:)+TPK%K235(:)*TPK%RO242(:)+TPK%K239(:)*TP&
-&K%RO234(:)+TPK%K242(:)*TPK%RO243(:)+TPK%K246(:)*TPK%RO235(:)+TPK%K249(:)*TPK%R&
-&O244(:)+TPK%K253(:)*TPK%RO236(:)+TPK%K256(:)*TPK%RO245(:)+TPK%K260(:)*TPK%RO23&
-&7(:)+TPK%K263(:)*TPK%RO246(:)+TPK%K267(:)*TPK%RO238(:)+TPK%K270(:)*TPK%RO247(:&
-&)+TPK%K286(:)*TPK%RO249(:)+TPK%K293(:)*TPK%RO251(:)+TPK%K302(:)*TPK%RO254(:)+T&
-&PK%K319(:)*TPK%RO256(:)
+!HO2/H2O2=+K026*<OH>
+ PJAC(:,15,2)=+TPK%K026(:)*PCONC(:,14)
!
-!HO2/RO21=+K110*<NO>+K111*<RO2T>+K112*<HO2>-K112*<HO2>
- PJAC(:,10,86)=+TPK%K110(:)*PCONC(:,1)+TPK%K111(:)*PCONC(:,85)+TPK%K112(:)*PCON&
-&C(:,10)-TPK%K112(:)*PCONC(:,10)
+!HO2/NO=-K035*<HO2>+K090*<MO2>+0.74265*K091*<ALKAP>+K092*<ALKEP>+0.84700*K093*<
+!BIOP>+0.95115*K094*<AROP>+0.12334*K095*<CARBOP>+0.18401*K096*<OLN>
+ PJAC(:,15,3)=-TPK%K035(:)*PCONC(:,15)+TPK%K090(:)*PCONC(:,32)+0.74265*TPK%K091&
+&(:)*PCONC(:,33)+TPK%K092(:)*PCONC(:,34)+0.84700*TPK%K093(:)*PCONC(:,35)+0.9511&
+&5*TPK%K094(:)*PCONC(:,38)+0.12334*TPK%K095(:)*PCONC(:,39)+0.18401*TPK%K096(:)*&
+&PCONC(:,40)
!
-!HO2/RO25=+TPK%CF4*K122*<NO>+K123*<RO2T>+K124*<HO2>-K124*<HO2>
- PJAC(:,10,87)=+TPK%CF4*TPK%K122(:)*PCONC(:,1)+TPK%K123(:)*PCONC(:,85)+TPK%K124&
-&(:)*PCONC(:,10)-TPK%K124(:)*PCONC(:,10)
+!HO2/NO2=-K036*<HO2>
+ PJAC(:,15,4)=-TPK%K036(:)*PCONC(:,15)
!
-!HO2/WC_O3=0.0
+!HO2/NO3=+K034*<OH>-K038*<HO2>+K072*<HCHO>+0.63217*K074*<CARBO>+K119*<MO2>+0.81
+!290*K120*<ALKAP>+K121*<ALKEP>+K122*<BIOP>+K123*<AROP>+0.04915*K124*<CARBOP>+0.
+!25928*K125*<OLN>
+ PJAC(:,15,5)=+TPK%K034(:)*PCONC(:,14)-TPK%K038(:)*PCONC(:,15)+TPK%K072(:)*PCON&
+&C(:,22)+0.63217*TPK%K074(:)*PCONC(:,25)+TPK%K119(:)*PCONC(:,32)+0.81290*TPK%K1&
+&20(:)*PCONC(:,33)+TPK%K121(:)*PCONC(:,34)+TPK%K122(:)*PCONC(:,35)+TPK%K123(:)*&
+&PCONC(:,38)+0.04915*TPK%K124(:)*PCONC(:,39)+0.25928*TPK%K125(:)*PCONC(:,40)
!
-!HO2/WC_H2O2=0.0
+!HO2/N2O5=0.0
!
-!HO2/WC_NO=0.0
+!HO2/HONO=0.0
!
-!HO2/WC_NO2=0.0
+!HO2/HNO3=0.0
!
-!HO2/WC_NO3=0.0
+!HO2/HNO4=+0.65*K006+K037
+ PJAC(:,15,9)=+0.65*TPK%K006(:)+TPK%K037(:)
!
-!HO2/WC_N2O5=0.0
+!HO2/NH3=0.0
!
-!HO2/WC_HONO=0.0
+!HO2/SO2=+K052*<OH>
+ PJAC(:,15,11)=+TPK%K052(:)*PCONC(:,14)
!
-!HO2/WC_HNO3=0.0
+!HO2/SULF=0.0
!
-!HO2/WC_HNO4=0.0
+!HO2/CO=+K053*<OH>
+ PJAC(:,15,13)=+TPK%K053(:)*PCONC(:,14)
!
-!HO2/WC_NH3=0.0
+!HO2/OH=+K023*<O3>-K025*<HO2>+K026*<H2O2>+K034*<NO3>+K051*<H2>+K052*<SO2>+K053*
+!<CO>+0.12793*K058*<ALKA>+0.10318*K061*<ARO>+K062*<HCHO>+0.51208*K065*<CARBO>+K
+!066*<ORA1>+0.02915*K069*<OP2>+0.28107*K070*<PAN>
+ PJAC(:,15,14)=+TPK%K023(:)*PCONC(:,1)-TPK%K025(:)*PCONC(:,15)+TPK%K026(:)*PCON&
+&C(:,2)+TPK%K034(:)*PCONC(:,5)+TPK%K051(:)*TPK%H2(:)+TPK%K052(:)*PCONC(:,11)+TP&
+&K%K053(:)*PCONC(:,13)+0.12793*TPK%K058(:)*PCONC(:,18)+0.10318*TPK%K061(:)*PCON&
+&C(:,21)+TPK%K062(:)*PCONC(:,22)+0.51208*TPK%K065(:)*PCONC(:,25)+TPK%K066(:)*PC&
+&ONC(:,30)+0.02915*TPK%K069(:)*PCONC(:,29)+0.28107*TPK%K070(:)*PCONC(:,27)
!
-!HO2/WC_OH=0.0
+!HO2/HO2=-K024*<O3>-K025*<OH>-K027*<HO2>-K027*<HO2>-K027*<HO2>-K027*<HO2>-K028*
+!<HO2>*<H2O>-K028*<HO2>*<H2O>-K028*<HO2>*<H2O>-K028*<HO2>*<H2O>-K035*<NO>-K036*
+!<NO2>-K038*<NO3>-K084*<PHO>-K097*<MO2>-K098*<ALKAP>-K099*<ALKEP>-K0100*<BIOP>-
+!K0101*<AROP>-K0102*<CARBOP>-K103*<OLN>-K126*<XO2>
+ PJAC(:,15,15)=-TPK%K024(:)*PCONC(:,1)-TPK%K025(:)*PCONC(:,14)-TPK%K027(:)*PCON&
+&C(:,15)-TPK%K027(:)*PCONC(:,15)-TPK%K027(:)*PCONC(:,15)-TPK%K027(:)*PCONC(:,15&
+&)-TPK%K028(:)*PCONC(:,15)*TPK%H2O(:)-TPK%K028(:)*PCONC(:,15)*TPK%H2O(:)-TPK%K0&
+&28(:)*PCONC(:,15)*TPK%H2O(:)-TPK%K028(:)*PCONC(:,15)*TPK%H2O(:)-TPK%K035(:)*PC&
+&ONC(:,3)-TPK%K036(:)*PCONC(:,4)-TPK%K038(:)*PCONC(:,5)-TPK%K084(:)*PCONC(:,36)&
+&-TPK%K097(:)*PCONC(:,32)-TPK%K098(:)*PCONC(:,33)-TPK%K099(:)*PCONC(:,34)-TPK%K&
+&0100(:)*PCONC(:,35)-TPK%K0101(:)*PCONC(:,38)-TPK%K0102(:)*PCONC(:,39)-TPK%K103&
+&(:)*PCONC(:,40)-TPK%K126(:)*PCONC(:,41)
!
-!HO2/WC_HO2=+KTC43
- PJAC(:,10,99)=+TPK%KTC43(:)
+!HO2/CH4=0.0
!
-!HO2/WC_CO2=0.0
+!HO2/ETH=0.0
!
-!HO2/WC_SO2=0.0
+!HO2/ALKA=+0.12793*K058*<OH>
+ PJAC(:,15,18)=+0.12793*TPK%K058(:)*PCONC(:,14)
!
-!HO2/WC_H2SO4=0.0
+!HO2/ALKE=+0.23451*K079*<O3>
+ PJAC(:,15,19)=+0.23451*TPK%K079(:)*PCONC(:,1)
!
-!HO2/WC_RO21=0.0
+!HO2/BIO=+0.28*K054*<O3P>+0.30000*K080*<O3>
+ PJAC(:,15,20)=+0.28*TPK%K054(:)*TPK%O3P(:)+0.30000*TPK%K080(:)*PCONC(:,1)
!
-!HO2/WC_RO25=0.0
+!HO2/ARO=+0.10318*K061*<OH>
+ PJAC(:,15,21)=+0.10318*TPK%K061(:)*PCONC(:,14)
!
-!HO2/WC_MEOH=0.0
+!HO2/HCHO=+K011+K011+K062*<OH>+K072*<NO3>
+ PJAC(:,15,22)=+TPK%K011(:)+TPK%K011(:)+TPK%K062(:)*PCONC(:,14)+TPK%K072(:)*PCO&
+&NC(:,5)
!
-!HO2/WC_ETOH=0.0
+!HO2/ALD=+K012
+ PJAC(:,15,23)=+TPK%K012(:)
!
-!HO2/WC_ALCH=0.0
+!HO2/KET=0.0
!
-!HO2/WC_HCHO=0.0
+!HO2/CARBO=+0.75830*K016+0.51208*K065*<OH>+0.63217*K074*<NO3>+0.28441*K081*<O3>
+ PJAC(:,15,25)=+0.75830*TPK%K016(:)+0.51208*TPK%K065(:)*PCONC(:,14)+0.63217*TPK&
+&%K074(:)*PCONC(:,5)+0.28441*TPK%K081(:)*PCONC(:,1)
!
-!HO2/WC_ALD2=0.0
+!HO2/ONIT=+K017
+ PJAC(:,15,26)=+TPK%K017(:)
!
-!HO2/WC_GLY=0.0
+!HO2/PAN=+0.28107*K070*<OH>+0.08*K082*<O3>
+ PJAC(:,15,27)=+0.28107*TPK%K070(:)*PCONC(:,14)+0.08*TPK%K082(:)*PCONC(:,1)
!
-!HO2/WC_MGLY=0.0
+!HO2/OP1=+K013
+ PJAC(:,15,28)=+TPK%K013(:)
!
-!HO2/WC_KETL=0.0
+!HO2/OP2=+0.96205*K014+0.02915*K069*<OH>
+ PJAC(:,15,29)=+0.96205*TPK%K014(:)+0.02915*TPK%K069(:)*PCONC(:,14)
!
-!HO2/WC_ORA1=0.0
+!HO2/ORA1=+K066*<OH>
+ PJAC(:,15,30)=+TPK%K066(:)*PCONC(:,14)
!
-!HO2/WC_ORA2=0.0
+!HO2/ORA2=0.0
!
-!HO2/WC_ACID=0.0
+!HO2/MO2=+K090*<NO>-K097*<HO2>+0.66*K104*<MO2>+0.66*K104*<MO2>+0.98383*K105*<AL
+!KAP>+K106*<ALKEP>+1.00000*K107*<BIOP>+1.02767*K108*<AROP>+0.82998*K109*<CARBOP
+!>+0.67560*K110*<OLN>+K119*<NO3>+K127*<XO2>
+ PJAC(:,15,32)=+TPK%K090(:)*PCONC(:,3)-TPK%K097(:)*PCONC(:,15)+0.66*TPK%K104(:)&
+&*PCONC(:,32)+0.66*TPK%K104(:)*PCONC(:,32)+0.98383*TPK%K105(:)*PCONC(:,33)+TPK%&
+&K106(:)*PCONC(:,34)+1.00000*TPK%K107(:)*PCONC(:,35)+1.02767*TPK%K108(:)*PCONC(&
+&:,38)+0.82998*TPK%K109(:)*PCONC(:,39)+0.67560*TPK%K110(:)*PCONC(:,40)+TPK%K119&
+&(:)*PCONC(:,5)+TPK%K127(:)*PCONC(:,41)
+!
+!HO2/ALKAP=+0.74265*K091*<NO>-K098*<HO2>+0.98383*K105*<MO2>+0.48079*K111*<CARBO
+!P>+0.81290*K120*<NO3>
+ PJAC(:,15,33)=+0.74265*TPK%K091(:)*PCONC(:,3)-TPK%K098(:)*PCONC(:,15)+0.98383*&
+&TPK%K105(:)*PCONC(:,32)+0.48079*TPK%K111(:)*PCONC(:,39)+0.81290*TPK%K120(:)*PC&
+&ONC(:,5)
+!
+!HO2/ALKEP=+K092*<NO>-K099*<HO2>+K106*<MO2>+0.50078*K112*<CARBOP>+K121*<NO3>
+ PJAC(:,15,34)=+TPK%K092(:)*PCONC(:,3)-TPK%K099(:)*PCONC(:,15)+TPK%K106(:)*PCON&
+&C(:,32)+0.50078*TPK%K112(:)*PCONC(:,39)+TPK%K121(:)*PCONC(:,5)
+!
+!HO2/BIOP=+0.84700*K093*<NO>-K0100*<HO2>+1.00000*K107*<MO2>+0.50600*K113*<CARBO
+!P>+K122*<NO3>
+ PJAC(:,15,35)=+0.84700*TPK%K093(:)*PCONC(:,3)-TPK%K0100(:)*PCONC(:,15)+1.00000&
+&*TPK%K107(:)*PCONC(:,32)+0.50600*TPK%K113(:)*PCONC(:,39)+TPK%K122(:)*PCONC(:,5&
+&)
!
-!HO2/WC_RP16=0.0
+!HO2/PHO=-K084*<HO2>
+ PJAC(:,15,36)=-TPK%K084(:)*PCONC(:,15)
!
-!HO2/WC_UR21=0.0
+!HO2/ADD=+0.02*K086*<O2>
+ PJAC(:,15,37)=+0.02*TPK%K086(:)*TPK%O2(:)
!
-!HO2/WC_UR28=0.0
+!HO2/AROP=+0.95115*K094*<NO>-K0101*<HO2>+1.02767*K108*<MO2>+K114*<CARBOP>+K123*
+!<NO3>
+ PJAC(:,15,38)=+0.95115*TPK%K094(:)*PCONC(:,3)-TPK%K0101(:)*PCONC(:,15)+1.02767&
+&*TPK%K108(:)*PCONC(:,32)+TPK%K114(:)*PCONC(:,39)+TPK%K123(:)*PCONC(:,5)
!
-!HO2/WC_ACID2=0.0
+!HO2/CARBOP=+0.12334*K095*<NO>-K0102*<HO2>+0.82998*K109*<MO2>+0.48079*K111*<ALK
+!AP>+0.50078*K112*<ALKEP>+0.50600*K113*<BIOP>+K114*<AROP>+0.07566*K115*<CARBOP>
+!+0.07566*K115*<CARBOP>+0.17599*K116*<OLN>+0.04915*K124*<NO3>
+ PJAC(:,15,39)=+0.12334*TPK%K095(:)*PCONC(:,3)-TPK%K0102(:)*PCONC(:,15)+0.82998&
+&*TPK%K109(:)*PCONC(:,32)+0.48079*TPK%K111(:)*PCONC(:,33)+0.50078*TPK%K112(:)*P&
+&CONC(:,34)+0.50600*TPK%K113(:)*PCONC(:,35)+TPK%K114(:)*PCONC(:,38)+0.07566*TPK&
+&%K115(:)*PCONC(:,39)+0.07566*TPK%K115(:)*PCONC(:,39)+0.17599*TPK%K116(:)*PCONC&
+&(:,40)+0.04915*TPK%K124(:)*PCONC(:,5)
!
-!HO2/WC_ASO3=0.0
+!HO2/OLN=+0.18401*K096*<NO>-K103*<HO2>+0.67560*K110*<MO2>+0.17599*K116*<CARBOP>
+!+K117*<OLN>+K117*<OLN>+0.00000*K118*<OLN>+0.00000*K118*<OLN>+0.25928*K125*<NO3
+!>
+ PJAC(:,15,40)=+0.18401*TPK%K096(:)*PCONC(:,3)-TPK%K103(:)*PCONC(:,15)+0.67560*&
+&TPK%K110(:)*PCONC(:,32)+0.17599*TPK%K116(:)*PCONC(:,39)+TPK%K117(:)*PCONC(:,40&
+&)+TPK%K117(:)*PCONC(:,40)+0.00000*TPK%K118(:)*PCONC(:,40)+0.00000*TPK%K118(:)*&
+&PCONC(:,40)+0.25928*TPK%K125(:)*PCONC(:,5)
!
-!HO2/WC_ASO4=0.0
+!HO2/XO2=-K126*<HO2>+K127*<MO2>
+ PJAC(:,15,41)=-TPK%K126(:)*PCONC(:,15)+TPK%K127(:)*PCONC(:,32)
!
-!HO2/WC_ASO5=0.0
+RETURN
+END SUBROUTINE SUBJ2
!
-!HO2/WC_AHSO5=0.0
+SUBROUTINE SUBJ3
!
-!HO2/WC_AHMS=0.0
+!Indices 16 a 20
!
-!HO2/WR_O3=0.0
!
-!HO2/WR_H2O2=0.0
+!CH4/O3=+0.04300*K079*<ALKE>
+ PJAC(:,16,1)=+0.04300*TPK%K079(:)*PCONC(:,19)
!
-!HO2/WR_NO=0.0
+!CH4/H2O2=0.0
!
-!HO2/WR_NO2=0.0
+!CH4/NO=0.0
!
-!HO2/WR_NO3=0.0
+!CH4/NO2=0.0
!
-!HO2/WR_N2O5=0.0
+!CH4/NO3=0.0
!
-!HO2/WR_HONO=0.0
+!CH4/N2O5=0.0
!
-!HO2/WR_HNO3=0.0
+!CH4/HONO=0.0
!
-!HO2/WR_HNO4=0.0
+!CH4/HNO3=0.0
!
-!HO2/WR_NH3=0.0
+!CH4/HNO4=0.0
!
-!HO2/WR_OH=0.0
+!CH4/NH3=0.0
!
-!HO2/WR_HO2=+KTR43
- PJAC(:,10,136)=+TPK%KTR43(:)
+!CH4/SO2=0.0
!
-!HO2/WR_CO2=0.0
+!CH4/SULF=0.0
!
-!HO2/WR_SO2=0.0
+!CH4/CO=0.0
!
-!HO2/WR_H2SO4=0.0
+!CH4/OH=-K056*<CH4>
+ PJAC(:,16,14)=-TPK%K056(:)*PCONC(:,16)
!
-!HO2/WR_RO21=0.0
+!CH4/HO2=0.0
!
-!HO2/WR_RO25=0.0
+!CH4/CH4=-K056*<OH>
+ PJAC(:,16,16)=-TPK%K056(:)*PCONC(:,14)
!
-!HO2/WR_MEOH=0.0
+!CH4/ETH=0.0
!
-!HO2/WR_ETOH=0.0
+!CH4/ALKA=0.0
!
-!HO2/WR_ALCH=0.0
+!CH4/ALKE=+0.04300*K079*<O3>
+ PJAC(:,16,19)=+0.04300*TPK%K079(:)*PCONC(:,1)
!
-!HO2/WR_HCHO=0.0
+!CH4/BIO=0.0
!
-!HO2/WR_ALD2=0.0
+!CH4/ARO=0.0
!
-!HO2/WR_GLY=0.0
+!CH4/HCHO=0.0
!
-!HO2/WR_MGLY=0.0
+!CH4/ALD=0.0
!
-!HO2/WR_KETL=0.0
+!CH4/KET=0.0
!
-!HO2/WR_ORA1=0.0
+!CH4/CARBO=0.0
!
-!HO2/WR_ORA2=0.0
+!CH4/ONIT=0.0
!
-!HO2/WR_ACID=0.0
+!CH4/PAN=0.0
!
-!HO2/WR_RP16=0.0
+!CH4/OP1=0.0
!
-!HO2/WR_UR21=0.0
+!CH4/OP2=0.0
!
-!HO2/WR_UR28=0.0
+!CH4/ORA1=0.0
!
-!HO2/WR_ACID2=0.0
+!CH4/ORA2=0.0
!
-!HO2/WR_ASO3=0.0
+!CH4/MO2=0.0
!
-!HO2/WR_ASO4=0.0
+!CH4/ALKAP=0.0
!
-!HO2/WR_ASO5=0.0
+!CH4/ALKEP=0.0
!
-!HO2/WR_AHSO5=0.0
+!CH4/BIOP=0.0
!
-!HO2/WR_AHMS=0.0
+!CH4/PHO=0.0
!
-RETURN
-END SUBROUTINE SUBJ1
+!CH4/ADD=0.0
!
-SUBROUTINE SUBJ2
+!CH4/AROP=0.0
!
-!Indices 11 a 15
+!CH4/CARBOP=0.0
!
+!CH4/OLN=0.0
!
-!CO/NO=+K119*<RO24>+K300*<RO254>+K340*<RO258>
- PJAC(:,11,1)=+TPK%K119(:)*TPK%RO24(:)+TPK%K300(:)*TPK%RO254(:)+TPK%K340(:)*TPK&
-&%RO258(:)
+!CH4/XO2=0.0
!
-!CO/NO2=0.0
+!ETH/O3=+0.03196*K079*<ALKE>
+ PJAC(:,17,1)=+0.03196*TPK%K079(:)*PCONC(:,19)
!
-!CO/O3=+0.315*K051*<ETHE>+0.56*K056*<OLEL>+0.461*K066*<ISOP>+0.56*K076*<OLEH>+0
-!.445*K086*<BIOL>+0.445*K090*<BIOH>+0.56*K281*<MVK>+0.41*K282*<MCR>
- PJAC(:,11,3)=+0.315*TPK%K051(:)*PCONC(:,16)+0.56*TPK%K056(:)*PCONC(:,17)+0.461&
-&*TPK%K066(:)*PCONC(:,35)+0.56*TPK%K076(:)*PCONC(:,18)+0.445*TPK%K086(:)*PCONC(&
-&:,36)+0.445*TPK%K090(:)*PCONC(:,37)+0.56*TPK%K281(:)*PCONC(:,39)+0.41*TPK%K282&
-&(:)*PCONC(:,40)
+!ETH/H2O2=0.0
!
-!CO/HONO=0.0
+!ETH/NO=0.0
!
-!CO/HNO3=0.0
+!ETH/NO2=0.0
!
-!CO/HNO4=0.0
+!ETH/NO3=0.0
!
-!CO/N2O5=0.0
+!ETH/N2O5=0.0
!
-!CO/NO3=+K047*<HCHO>
- PJAC(:,11,8)=+TPK%K047(:)*PCONC(:,28)
+!ETH/HONO=0.0
!
-!CO/NH3=0.0
+!ETH/HNO3=0.0
!
-!CO/HO2=+K121*<RO24>
- PJAC(:,11,10)=+TPK%K121(:)*TPK%RO24(:)
+!ETH/HNO4=0.0
!
-!CO/CO=-K024*<OH>
- PJAC(:,11,11)=-TPK%K024(:)*PCONC(:,15)
+!ETH/NH3=0.0
!
-!CO/H2O2=0.0
+!ETH/SO2=0.0
!
-!CO/SO2=0.0
+!ETH/SULF=0.0
!
-!CO/H2SO4=0.0
+!ETH/CO=0.0
!
-!CO/OH=-K024*<CO>+K046*<HCHO>
- PJAC(:,11,15)=-TPK%K024(:)*PCONC(:,11)+TPK%K046(:)*PCONC(:,28)
+!ETH/OH=-K057*<ETH>
+ PJAC(:,17,14)=-TPK%K057(:)*PCONC(:,17)
!
-!CO/ETHE=+0.315*K051*<O3>+0.6*K052*<O>
- PJAC(:,11,16)=+0.315*TPK%K051(:)*PCONC(:,3)+0.6*TPK%K052(:)*TPK%O(:)
+!ETH/HO2=0.0
!
-!CO/OLEL=+0.56*K056*<O3>
- PJAC(:,11,17)=+0.56*TPK%K056(:)*PCONC(:,3)
+!ETH/CH4=0.0
!
-!CO/OLEH=+0.56*K076*<O3>
- PJAC(:,11,18)=+0.56*TPK%K076(:)*PCONC(:,3)
+!ETH/ETH=-K057*<OH>
+ PJAC(:,17,17)=-TPK%K057(:)*PCONC(:,14)
!
-!CO/ALKL=0.0
+!ETH/ALKA=0.0
!
-!CO/ALKM=0.0
+!ETH/ALKE=+0.03196*K079*<O3>
+ PJAC(:,17,19)=+0.03196*TPK%K079(:)*PCONC(:,1)
!
-!CO/ALKH=0.0
+!ETH/BIO=0.0
!
-!CO/AROH=0.0
+!ETH/ARO=0.0
!
-!CO/AROL=0.0
+!ETH/HCHO=0.0
!
-!CO/AROO=0.0
+!ETH/ALD=0.0
!
-!CO/ARAL=0.0
+!ETH/KET=0.0
!
-!CO/ARAC=0.0
+!ETH/CARBO=0.0
!
-!CO/PAH=0.0
+!ETH/ONIT=0.0
!
-!CO/HCHO=+K044+K045+K046*<OH>+K047*<NO3>
- PJAC(:,11,28)=+TPK%K044(:)+TPK%K045(:)+TPK%K046(:)*PCONC(:,15)+TPK%K047(:)*PCO&
-&NC(:,8)
+!ETH/PAN=0.0
!
-!CO/ALD2=+K059
- PJAC(:,11,29)=+TPK%K059(:)
+!ETH/OP1=0.0
!
-!CO/KETL=0.0
+!ETH/OP2=0.0
!
-!CO/KETH=0.0
+!ETH/ORA1=0.0
!
-!CO/MEOH=0.0
+!ETH/ORA2=0.0
!
-!CO/ETOH=0.0
+!ETH/MO2=0.0
!
-!CO/ALCH=0.0
+!ETH/ALKAP=0.0
!
-!CO/ISOP=+0.461*K066*<O3>
- PJAC(:,11,35)=+0.461*TPK%K066(:)*PCONC(:,3)
+!ETH/ALKEP=0.0
!
-!CO/BIOL=+0.445*K086*<O3>
- PJAC(:,11,36)=+0.445*TPK%K086(:)*PCONC(:,3)
+!ETH/BIOP=0.0
!
-!CO/BIOH=+0.445*K090*<O3>
- PJAC(:,11,37)=+0.445*TPK%K090(:)*PCONC(:,3)
+!ETH/PHO=0.0
!
-!CO/MTBE=0.0
+!ETH/ADD=0.0
!
-!CO/MVK=+0.56*K281*<O3>
- PJAC(:,11,39)=+0.56*TPK%K281(:)*PCONC(:,3)
+!ETH/AROP=0.0
!
-!CO/MCR=+0.41*K282*<O3>+0.15*K284*<O>
- PJAC(:,11,40)=+0.41*TPK%K282(:)*PCONC(:,3)+0.15*TPK%K284(:)*TPK%O(:)
+!ETH/CARBOP=0.0
!
-!CO/MGLY=+K276
- PJAC(:,11,41)=+TPK%K276(:)
+!ETH/OLN=0.0
!
-!CO/GLY=0.0
+!ETH/XO2=0.0
!
-!CO/ORA1=0.0
+!ALKA/O3=0.0
!
-!CO/ORA2=0.0
+!ALKA/H2O2=0.0
!
-!CO/ACID=0.0
+!ALKA/NO=0.0
!
-!CO/UR28=0.0
+!ALKA/NO2=0.0
!
-!CO/UR21=0.0
+!ALKA/NO3=0.0
!
-!CO/URG2=0.0
+!ALKA/N2O5=0.0
!
-!CO/UR26=0.0
+!ALKA/HONO=0.0
!
-!CO/RPG2=0.0
+!ALKA/HNO3=0.0
!
-!CO/RP18=0.0
+!ALKA/HNO4=0.0
!
-!CO/RPG3=0.0
+!ALKA/NH3=0.0
!
-!CO/URG4=0.0
+!ALKA/SO2=0.0
!
-!CO/UR8=0.0
+!ALKA/SULF=0.0
!
-!CO/UR17=0.0
+!ALKA/CO=0.0
!
-!CO/UR7=0.0
+!ALKA/OH=-K058*<ALKA>
+ PJAC(:,18,14)=-TPK%K058(:)*PCONC(:,18)
!
-!CO/RPR3=+K314
- PJAC(:,11,57)=+TPK%K314(:)
+!ALKA/HO2=0.0
!
-!CO/URG6=0.0
+!ALKA/CH4=0.0
!
-!CO/UR22=0.0
+!ALKA/ETH=0.0
!
-!CO/URG7=0.0
+!ALKA/ALKA=-K058*<OH>
+ PJAC(:,18,18)=-TPK%K058(:)*PCONC(:,14)
!
-!CO/RPR4=0.0
+!ALKA/ALKE=0.0
!
-!CO/RPR7=0.0
+!ALKA/BIO=0.0
!
-!CO/RPG7=0.0
+!ALKA/ARO=0.0
!
-!CO/URG8=0.0
+!ALKA/HCHO=0.0
!
-!CO/UR19=0.0
+!ALKA/ALD=0.0
!
-!CO/URG9=0.0
+!ALKA/KET=0.0
!
-!CO/AP7=0.0
+!ALKA/CARBO=0.0
!
-!CO/URG10=0.0
+!ALKA/ONIT=0.0
!
-!CO/RPR1=+K308
- PJAC(:,11,69)=+TPK%K308(:)
+!ALKA/PAN=0.0
!
-!CO/RPR5=0.0
+!ALKA/OP1=0.0
!
-!CO/RPR8=+K329
- PJAC(:,11,71)=+TPK%K329(:)
+!ALKA/OP2=0.0
!
-!CO/RP10=0.0
+!ALKA/ORA1=0.0
!
-!CO/RP11=0.0
+!ALKA/ORA2=0.0
!
-!CO/RP16=+2.*K339
- PJAC(:,11,74)=+2.*TPK%K339(:)
+!ALKA/MO2=0.0
!
-!CO/RPRL=0.0
+!ALKA/ALKAP=0.0
!
-!CO/APAN=0.0
+!ALKA/ALKEP=0.0
!
-!CO/PAN1=0.0
+!ALKA/BIOP=0.0
!
-!CO/PAN2=0.0
+!ALKA/PHO=0.0
!
-!CO/PAN3=0.0
+!ALKA/ADD=0.0
!
-!CO/PAN4=0.0
+!ALKA/AROP=0.0
!
-!CO/PAN6=0.0
+!ALKA/CARBOP=0.0
!
-!CO/PAN7=0.0
+!ALKA/OLN=0.0
!
-!CO/PAN8=0.0
+!ALKA/XO2=0.0
!
-!CO/PN10=0.0
+!ALKE/O3=+0.00000*K079*<ALKE>-K079*<ALKE>+0.37388*K080*<BIO>
+ PJAC(:,19,1)=+0.00000*TPK%K079(:)*PCONC(:,19)-TPK%K079(:)*PCONC(:,19)+0.37388*&
+&TPK%K080(:)*PCONC(:,20)
!
-!CO/RO2T=+K120*<RO24>+K302*<RO254>+K342*<RO258>
- PJAC(:,11,85)=+TPK%K120(:)*TPK%RO24(:)+TPK%K302(:)*TPK%RO254(:)+TPK%K342(:)*TP&
-&K%RO258(:)
+!ALKE/H2O2=0.0
!
-!CO/RO21=0.0
+!ALKE/NO=+0.37815*K093*<BIOP>
+ PJAC(:,19,3)=+0.37815*TPK%K093(:)*PCONC(:,35)
!
-!CO/RO25=0.0
+!ALKE/NO2=0.0
!
-!CO/WC_O3=0.0
+!ALKE/NO3=-K076*<ALKE>+0.42729*K122*<BIOP>
+ PJAC(:,19,5)=-TPK%K076(:)*PCONC(:,19)+0.42729*TPK%K122(:)*PCONC(:,35)
!
-!CO/WC_H2O2=0.0
+!ALKE/N2O5=0.0
!
-!CO/WC_NO=0.0
+!ALKE/HONO=0.0
!
-!CO/WC_NO2=0.0
+!ALKE/HNO3=0.0
!
-!CO/WC_NO3=0.0
+!ALKE/HNO4=0.0
!
-!CO/WC_N2O5=0.0
+!ALKE/NH3=0.0
!
-!CO/WC_HONO=0.0
+!ALKE/SO2=0.0
!
-!CO/WC_HNO3=0.0
+!ALKE/SULF=0.0
!
-!CO/WC_HNO4=0.0
+!ALKE/CO=0.0
!
-!CO/WC_NH3=0.0
+!ALKE/OH=-K059*<ALKE>
+ PJAC(:,19,14)=-TPK%K059(:)*PCONC(:,19)
!
-!CO/WC_OH=0.0
+!ALKE/HO2=0.0
!
-!CO/WC_HO2=0.0
+!ALKE/CH4=0.0
!
-!CO/WC_CO2=0.0
+!ALKE/ETH=0.0
!
-!CO/WC_SO2=0.0
+!ALKE/ALKA=0.0
!
-!CO/WC_H2SO4=0.0
+!ALKE/ALKE=-K059*<OH>-K076*<NO3>+0.00000*K079*<O3>-K079*<O3>
+ PJAC(:,19,19)=-TPK%K059(:)*PCONC(:,14)-TPK%K076(:)*PCONC(:,5)+0.00000*TPK%K079&
+&(:)*PCONC(:,1)-TPK%K079(:)*PCONC(:,1)
!
-!CO/WC_RO21=0.0
+!ALKE/BIO=+0.91868*K054*<O3P>+0.37388*K080*<O3>
+ PJAC(:,19,20)=+0.91868*TPK%K054(:)*TPK%O3P(:)+0.37388*TPK%K080(:)*PCONC(:,1)
!
-!CO/WC_RO25=0.0
+!ALKE/ARO=0.0
!
-!CO/WC_MEOH=0.0
+!ALKE/HCHO=0.0
!
-!CO/WC_ETOH=0.0
+!ALKE/ALD=0.0
!
-!CO/WC_ALCH=0.0
+!ALKE/KET=0.0
!
-!CO/WC_HCHO=0.0
+!ALKE/CARBO=0.0
!
-!CO/WC_ALD2=0.0
+!ALKE/ONIT=0.0
!
-!CO/WC_GLY=0.0
+!ALKE/PAN=0.0
!
-!CO/WC_MGLY=0.0
+!ALKE/OP1=0.0
!
-!CO/WC_KETL=0.0
+!ALKE/OP2=0.0
!
-!CO/WC_ORA1=0.0
+!ALKE/ORA1=0.0
!
-!CO/WC_ORA2=0.0
+!ALKE/ORA2=0.0
!
-!CO/WC_ACID=0.0
+!ALKE/MO2=+0.48074*K107*<BIOP>
+ PJAC(:,19,32)=+0.48074*TPK%K107(:)*PCONC(:,35)
!
-!CO/WC_RP16=0.0
+!ALKE/ALKAP=0.0
!
-!CO/WC_UR21=0.0
+!ALKE/ALKEP=0.0
!
-!CO/WC_UR28=0.0
+!ALKE/BIOP=+0.37815*K093*<NO>+0.48074*K107*<MO2>+0.24463*K113*<CARBOP>+0.42729*
+!K122*<NO3>
+ PJAC(:,19,35)=+0.37815*TPK%K093(:)*PCONC(:,3)+0.48074*TPK%K107(:)*PCONC(:,32)+&
+&0.24463*TPK%K113(:)*PCONC(:,39)+0.42729*TPK%K122(:)*PCONC(:,5)
!
-!CO/WC_ACID2=0.0
+!ALKE/PHO=0.0
!
-!CO/WC_ASO3=0.0
+!ALKE/ADD=0.0
!
-!CO/WC_ASO4=0.0
+!ALKE/AROP=0.0
!
-!CO/WC_ASO5=0.0
+!ALKE/CARBOP=+0.24463*K113*<BIOP>
+ PJAC(:,19,39)=+0.24463*TPK%K113(:)*PCONC(:,35)
!
-!CO/WC_AHSO5=0.0
+!ALKE/OLN=0.0
!
-!CO/WC_AHMS=0.0
+!ALKE/XO2=0.0
!
-!CO/WR_O3=0.0
+!BIO/O3=-K080*<BIO>
+ PJAC(:,20,1)=-TPK%K080(:)*PCONC(:,20)
!
-!CO/WR_H2O2=0.0
+!BIO/H2O2=0.0
!
-!CO/WR_NO=0.0
+!BIO/NO=0.0
!
-!CO/WR_NO2=0.0
+!BIO/NO2=0.0
!
-!CO/WR_NO3=0.0
+!BIO/NO3=-K077*<BIO>
+ PJAC(:,20,5)=-TPK%K077(:)*PCONC(:,20)
!
-!CO/WR_N2O5=0.0
+!BIO/N2O5=0.0
!
-!CO/WR_HONO=0.0
+!BIO/HONO=0.0
!
-!CO/WR_HNO3=0.0
+!BIO/HNO3=0.0
!
-!CO/WR_HNO4=0.0
+!BIO/HNO4=0.0
!
-!CO/WR_NH3=0.0
+!BIO/NH3=0.0
!
-!CO/WR_OH=0.0
+!BIO/SO2=0.0
!
-!CO/WR_HO2=0.0
+!BIO/SULF=0.0
!
-!CO/WR_CO2=0.0
+!BIO/CO=0.0
!
-!CO/WR_SO2=0.0
+!BIO/OH=-K060*<BIO>
+ PJAC(:,20,14)=-TPK%K060(:)*PCONC(:,20)
!
-!CO/WR_H2SO4=0.0
+!BIO/HO2=0.0
!
-!CO/WR_RO21=0.0
+!BIO/CH4=0.0
!
-!CO/WR_RO25=0.0
+!BIO/ETH=0.0
!
-!CO/WR_MEOH=0.0
+!BIO/ALKA=0.0
!
-!CO/WR_ETOH=0.0
+!BIO/ALKE=0.0
!
-!CO/WR_ALCH=0.0
+!BIO/BIO=-K054*<O3P>-K060*<OH>-K077*<NO3>-K080*<O3>
+ PJAC(:,20,20)=-TPK%K054(:)*TPK%O3P(:)-TPK%K060(:)*PCONC(:,14)-TPK%K077(:)*PCON&
+&C(:,5)-TPK%K080(:)*PCONC(:,1)
!
-!CO/WR_HCHO=0.0
+!BIO/ARO=0.0
!
-!CO/WR_ALD2=0.0
+!BIO/HCHO=0.0
!
-!CO/WR_GLY=0.0
+!BIO/ALD=0.0
!
-!CO/WR_MGLY=0.0
+!BIO/KET=0.0
!
-!CO/WR_KETL=0.0
+!BIO/CARBO=0.0
!
-!CO/WR_ORA1=0.0
+!BIO/ONIT=0.0
!
-!CO/WR_ORA2=0.0
+!BIO/PAN=0.0
!
-!CO/WR_ACID=0.0
+!BIO/OP1=0.0
!
-!CO/WR_RP16=0.0
+!BIO/OP2=0.0
!
-!CO/WR_UR21=0.0
+!BIO/ORA1=0.0
!
-!CO/WR_UR28=0.0
+!BIO/ORA2=0.0
!
-!CO/WR_ACID2=0.0
+!BIO/MO2=0.0
!
-!CO/WR_ASO3=0.0
+!BIO/ALKAP=0.0
!
-!CO/WR_ASO4=0.0
+!BIO/ALKEP=0.0
!
-!CO/WR_ASO5=0.0
+!BIO/BIOP=0.0
!
-!CO/WR_AHSO5=0.0
+!BIO/PHO=0.0
!
-!CO/WR_AHMS=0.0
+!BIO/ADD=0.0
!
-!H2O2/NO=0.0
+!BIO/AROP=0.0
!
-!H2O2/NO2=0.0
+!BIO/CARBOP=0.0
!
-!H2O2/O3=+0.055*K086*<BIOL>+0.055*K090*<BIOH>
- PJAC(:,12,3)=+0.055*TPK%K086(:)*PCONC(:,36)+0.055*TPK%K090(:)*PCONC(:,37)
+!BIO/OLN=0.0
!
-!H2O2/HONO=0.0
+!BIO/XO2=0.0
!
-!H2O2/HNO3=0.0
+RETURN
+END SUBROUTINE SUBJ3
!
-!H2O2/HNO4=0.0
+SUBROUTINE SUBJ4
!
-!H2O2/N2O5=0.0
+!Indices 21 a 25
!
-!H2O2/NO3=0.0
!
-!H2O2/NH3=0.0
+!ARO/O3=+K087*<ADD>
+ PJAC(:,21,1)=+TPK%K087(:)*PCONC(:,37)
!
-!H2O2/HO2=+K031*<HO2>+K031*<HO2>+K032*<H2O>*<HO2>+K032*<H2O>*<HO2>
- PJAC(:,12,10)=+TPK%K031(:)*PCONC(:,10)+TPK%K031(:)*PCONC(:,10)+TPK%K032(:)*TPK&
-&%H2O(:)*PCONC(:,10)+TPK%K032(:)*TPK%H2O(:)*PCONC(:,10)
+!ARO/H2O2=0.0
!
-!H2O2/CO=0.0
+!ARO/NO=0.0
!
-!H2O2/H2O2=-K036-K037*<OH>-KTC2-KTR2
- PJAC(:,12,12)=-TPK%K036(:)-TPK%K037(:)*PCONC(:,15)-TPK%KTC2(:)-TPK%KTR2(:)
+!ARO/NO2=+0.10670*K083*<PHO>+K085*<ADD>
+ PJAC(:,21,4)=+0.10670*TPK%K083(:)*PCONC(:,36)+TPK%K085(:)*PCONC(:,37)
!
-!H2O2/SO2=0.0
+!ARO/NO3=-K075*<ARO>
+ PJAC(:,21,5)=-TPK%K075(:)*PCONC(:,21)
!
-!H2O2/H2SO4=0.0
+!ARO/N2O5=0.0
!
-!H2O2/OH=-K037*<H2O2>
- PJAC(:,12,15)=-TPK%K037(:)*PCONC(:,12)
+!ARO/HONO=0.0
!
-!H2O2/ETHE=0.0
+!ARO/HNO3=0.0
!
-!H2O2/OLEL=0.0
+!ARO/HNO4=0.0
!
-!H2O2/OLEH=0.0
+!ARO/NH3=0.0
!
-!H2O2/ALKL=0.0
+!ARO/SO2=0.0
!
-!H2O2/ALKM=0.0
+!ARO/SULF=0.0
!
-!H2O2/ALKH=0.0
+!ARO/CO=0.0
!
-!H2O2/AROH=0.0
+!ARO/OH=-K061*<ARO>
+ PJAC(:,21,14)=-TPK%K061(:)*PCONC(:,21)
!
-!H2O2/AROL=0.0
+!ARO/HO2=+1.06698*K084*<PHO>
+ PJAC(:,21,15)=+1.06698*TPK%K084(:)*PCONC(:,36)
!
-!H2O2/AROO=0.0
+!ARO/CH4=0.0
!
-!H2O2/ARAL=0.0
+!ARO/ETH=0.0
!
-!H2O2/ARAC=0.0
+!ARO/ALKA=0.0
!
-!H2O2/PAH=0.0
+!ARO/ALKE=0.0
!
-!H2O2/HCHO=0.0
+!ARO/BIO=0.0
!
-!H2O2/ALD2=0.0
+!ARO/ARO=-K061*<OH>-K075*<NO3>
+ PJAC(:,21,21)=-TPK%K061(:)*PCONC(:,14)-TPK%K075(:)*PCONC(:,5)
!
-!H2O2/KETL=0.0
+!ARO/HCHO=0.0
!
-!H2O2/KETH=0.0
+!ARO/ALD=0.0
!
-!H2O2/MEOH=0.0
+!ARO/KET=0.0
!
-!H2O2/ETOH=0.0
+!ARO/CARBO=0.0
!
-!H2O2/ALCH=0.0
+!ARO/ONIT=0.0
!
-!H2O2/ISOP=0.0
+!ARO/PAN=0.0
!
-!H2O2/BIOL=+0.055*K086*<O3>
- PJAC(:,12,36)=+0.055*TPK%K086(:)*PCONC(:,3)
+!ARO/OP1=0.0
!
-!H2O2/BIOH=+0.055*K090*<O3>
- PJAC(:,12,37)=+0.055*TPK%K090(:)*PCONC(:,3)
+!ARO/OP2=0.0
!
-!H2O2/MTBE=0.0
+!ARO/ORA1=0.0
!
-!H2O2/MVK=0.0
+!ARO/ORA2=0.0
!
-!H2O2/MCR=0.0
+!ARO/MO2=0.0
!
-!H2O2/MGLY=0.0
+!ARO/ALKAP=0.0
!
-!H2O2/GLY=0.0
+!ARO/ALKEP=0.0
!
-!H2O2/ORA1=0.0
+!ARO/BIOP=0.0
!
-!H2O2/ORA2=0.0
+!ARO/PHO=+0.10670*K083*<NO2>+1.06698*K084*<HO2>
+ PJAC(:,21,36)=+0.10670*TPK%K083(:)*PCONC(:,4)+1.06698*TPK%K084(:)*PCONC(:,15)
!
-!H2O2/ACID=0.0
+!ARO/ADD=+K085*<NO2>+0.02*K086*<O2>+K087*<O3>
+ PJAC(:,21,37)=+TPK%K085(:)*PCONC(:,4)+0.02*TPK%K086(:)*TPK%O2(:)+TPK%K087(:)*P&
+&CONC(:,1)
!
-!H2O2/UR28=0.0
+!ARO/AROP=0.0
!
-!H2O2/UR21=0.0
+!ARO/CARBOP=0.0
!
-!H2O2/URG2=0.0
+!ARO/OLN=0.0
!
-!H2O2/UR26=0.0
+!ARO/XO2=0.0
!
-!H2O2/RPG2=0.0
+!HCHO/O3=+0.48290*K079*<ALKE>+0.90000*K080*<BIO>+0.00000*K081*<CARBO>+0.70*K082
+!*<PAN>
+ PJAC(:,22,1)=+0.48290*TPK%K079(:)*PCONC(:,19)+0.90000*TPK%K080(:)*PCONC(:,20)+&
+&0.00000*TPK%K081(:)*PCONC(:,25)+0.70*TPK%K082(:)*PCONC(:,27)
!
-!H2O2/RP18=0.0
+!HCHO/H2O2=0.0
!
-!H2O2/RPG3=0.0
+!HCHO/NO=+K090*<MO2>+0.03002*K091*<ALKAP>+1.39870*K092*<ALKEP>+0.60600*K093*<BI
+!OP>+0.05848*K095*<CARBOP>+0.23419*K096*<OLN>
+ PJAC(:,22,3)=+TPK%K090(:)*PCONC(:,32)+0.03002*TPK%K091(:)*PCONC(:,33)+1.39870*&
+&TPK%K092(:)*PCONC(:,34)+0.60600*TPK%K093(:)*PCONC(:,35)+0.05848*TPK%K095(:)*PC&
+&ONC(:,39)+0.23419*TPK%K096(:)*PCONC(:,40)
!
-!H2O2/URG4=0.0
+!HCHO/NO2=0.0
!
-!H2O2/UR8=0.0
+!HCHO/NO3=-K072*<HCHO>+0.40*K078*<PAN>+K119*<MO2>+0.03142*K120*<ALKAP>+1.40909*
+!K121*<ALKEP>+0.68600*K122*<BIOP>+0.03175*K124*<CARBOP>+0.20740*K125*<OLN>
+ PJAC(:,22,5)=-TPK%K072(:)*PCONC(:,22)+0.40*TPK%K078(:)*PCONC(:,27)+TPK%K119(:)&
+&*PCONC(:,32)+0.03142*TPK%K120(:)*PCONC(:,33)+1.40909*TPK%K121(:)*PCONC(:,34)+0&
+&.68600*TPK%K122(:)*PCONC(:,35)+0.03175*TPK%K124(:)*PCONC(:,39)+0.20740*TPK%K12&
+&5(:)*PCONC(:,40)
!
-!H2O2/UR17=0.0
+!HCHO/N2O5=0.0
!
-!H2O2/UR7=0.0
+!HCHO/HONO=0.0
!
-!H2O2/RPR3=0.0
+!HCHO/HNO3=0.0
!
-!H2O2/URG6=0.0
+!HCHO/HNO4=0.0
!
-!H2O2/UR22=0.0
+!HCHO/NH3=0.0
!
-!H2O2/URG7=0.0
+!HCHO/SO2=0.0
!
-!H2O2/RPR4=0.0
+!HCHO/SULF=0.0
!
-!H2O2/RPR7=0.0
+!HCHO/CO=0.0
!
-!H2O2/RPG7=0.0
+!HCHO/OH=+0.00140*K058*<ALKA>-K062*<HCHO>+0.00000*K065*<CARBO>+0.35*K068*<OP1>+
+!0.02915*K069*<OP2>+0.57839*K070*<PAN>
+ PJAC(:,22,14)=+0.00140*TPK%K058(:)*PCONC(:,18)-TPK%K062(:)*PCONC(:,22)+0.00000&
+&*TPK%K065(:)*PCONC(:,25)+0.35*TPK%K068(:)*PCONC(:,28)+0.02915*TPK%K069(:)*PCON&
+&C(:,29)+0.57839*TPK%K070(:)*PCONC(:,27)
!
-!H2O2/URG8=0.0
+!HCHO/HO2=0.0
!
-!H2O2/UR19=0.0
+!HCHO/CH4=0.0
!
-!H2O2/URG9=0.0
+!HCHO/ETH=0.0
!
-!H2O2/AP7=0.0
+!HCHO/ALKA=+0.00140*K058*<OH>
+ PJAC(:,22,18)=+0.00140*TPK%K058(:)*PCONC(:,14)
!
-!H2O2/URG10=0.0
+!HCHO/ALKE=+0.48290*K079*<O3>
+ PJAC(:,22,19)=+0.48290*TPK%K079(:)*PCONC(:,1)
!
-!H2O2/RPR1=0.0
+!HCHO/BIO=+0.05*K054*<O3P>+0.90000*K080*<O3>
+ PJAC(:,22,20)=+0.05*TPK%K054(:)*TPK%O3P(:)+0.90000*TPK%K080(:)*PCONC(:,1)
!
-!H2O2/RPR5=0.0
+!HCHO/ARO=0.0
!
-!H2O2/RPR8=0.0
+!HCHO/HCHO=-K010-K011-K062*<OH>-K072*<NO3>
+ PJAC(:,22,22)=-TPK%K010(:)-TPK%K011(:)-TPK%K062(:)*PCONC(:,14)-TPK%K072(:)*PCO&
+&NC(:,5)
!
-!H2O2/RP10=0.0
+!HCHO/ALD=0.0
!
-!H2O2/RP11=0.0
+!HCHO/KET=0.0
!
-!H2O2/RP16=0.0
+!HCHO/CARBO=+0.06517*K016+0.00000*K065*<OH>+0.00000*K081*<O3>
+ PJAC(:,22,25)=+0.06517*TPK%K016(:)+0.00000*TPK%K065(:)*PCONC(:,14)+0.00000*TPK&
+&%K081(:)*PCONC(:,1)
!
-!H2O2/RPRL=0.0
+!HCHO/ONIT=0.0
!
-!H2O2/APAN=0.0
+!HCHO/PAN=+0.57839*K070*<OH>+0.40*K078*<NO3>+0.70*K082*<O3>
+ PJAC(:,22,27)=+0.57839*TPK%K070(:)*PCONC(:,14)+0.40*TPK%K078(:)*PCONC(:,5)+0.7&
+&0*TPK%K082(:)*PCONC(:,1)
!
-!H2O2/PAN1=0.0
+!HCHO/OP1=+K013+0.35*K068*<OH>
+ PJAC(:,22,28)=+TPK%K013(:)+0.35*TPK%K068(:)*PCONC(:,14)
!
-!H2O2/PAN2=0.0
+!HCHO/OP2=+0.02915*K069*<OH>
+ PJAC(:,22,29)=+0.02915*TPK%K069(:)*PCONC(:,14)
!
-!H2O2/PAN3=0.0
+!HCHO/ORA1=0.0
!
-!H2O2/PAN4=0.0
+!HCHO/ORA2=0.0
!
-!H2O2/PAN6=0.0
+!HCHO/MO2=+K090*<NO>+1.33*K104*<MO2>+1.33*K104*<MO2>+0.80556*K105*<ALKAP>+1.428
+!94*K106*<ALKEP>+1.09000*K107*<BIOP>+K108*<AROP>+0.95723*K109*<CARBOP>+0.88625*
+!K110*<OLN>+K119*<NO3>+K127*<XO2>
+ PJAC(:,22,32)=+TPK%K090(:)*PCONC(:,3)+1.33*TPK%K104(:)*PCONC(:,32)+1.33*TPK%K1&
+&04(:)*PCONC(:,32)+0.80556*TPK%K105(:)*PCONC(:,33)+1.42894*TPK%K106(:)*PCONC(:,&
+&34)+1.09000*TPK%K107(:)*PCONC(:,35)+TPK%K108(:)*PCONC(:,38)+0.95723*TPK%K109(:&
+&)*PCONC(:,39)+0.88625*TPK%K110(:)*PCONC(:,40)+TPK%K119(:)*PCONC(:,5)+TPK%K127(&
+&:)*PCONC(:,41)
!
-!H2O2/PAN7=0.0
+!HCHO/ALKAP=+0.03002*K091*<NO>+0.80556*K105*<MO2>+0.07600*K111*<CARBOP>+0.03142
+!*K120*<NO3>
+ PJAC(:,22,33)=+0.03002*TPK%K091(:)*PCONC(:,3)+0.80556*TPK%K105(:)*PCONC(:,32)+&
+&0.07600*TPK%K111(:)*PCONC(:,39)+0.03142*TPK%K120(:)*PCONC(:,5)
!
-!H2O2/PAN8=0.0
+!HCHO/ALKEP=+1.39870*K092*<NO>+1.42894*K106*<MO2>+0.68192*K112*<CARBOP>+1.40909
+!*K121*<NO3>
+ PJAC(:,22,34)=+1.39870*TPK%K092(:)*PCONC(:,3)+1.42894*TPK%K106(:)*PCONC(:,32)+&
+&0.68192*TPK%K112(:)*PCONC(:,39)+1.40909*TPK%K121(:)*PCONC(:,5)
!
-!H2O2/PN10=0.0
+!HCHO/BIOP=+0.60600*K093*<NO>+1.09000*K107*<MO2>+0.34000*K113*<CARBOP>+0.68600*
+!K122*<NO3>
+ PJAC(:,22,35)=+0.60600*TPK%K093(:)*PCONC(:,3)+1.09000*TPK%K107(:)*PCONC(:,32)+&
+&0.34000*TPK%K113(:)*PCONC(:,39)+0.68600*TPK%K122(:)*PCONC(:,5)
!
-!H2O2/RO2T=0.0
+!HCHO/PHO=0.0
!
-!H2O2/RO21=0.0
+!HCHO/ADD=0.0
!
-!H2O2/RO25=0.0
+!HCHO/AROP=+K108*<MO2>
+ PJAC(:,22,38)=+TPK%K108(:)*PCONC(:,32)
!
-!H2O2/WC_O3=0.0
+!HCHO/CARBOP=+0.05848*K095*<NO>+0.95723*K109*<MO2>+0.07600*K111*<ALKAP>+0.68192
+!*K112*<ALKEP>+0.34000*K113*<BIOP>+0.03432*K115*<CARBOP>+0.03432*K115*<CARBOP>+
+!0.13414*K116*<OLN>+0.03175*K124*<NO3>
+ PJAC(:,22,39)=+0.05848*TPK%K095(:)*PCONC(:,3)+0.95723*TPK%K109(:)*PCONC(:,32)+&
+&0.07600*TPK%K111(:)*PCONC(:,33)+0.68192*TPK%K112(:)*PCONC(:,34)+0.34000*TPK%K1&
+&13(:)*PCONC(:,35)+0.03432*TPK%K115(:)*PCONC(:,39)+0.03432*TPK%K115(:)*PCONC(:,&
+&39)+0.13414*TPK%K116(:)*PCONC(:,40)+0.03175*TPK%K124(:)*PCONC(:,5)
!
-!H2O2/WC_H2O2=+KTC33
- PJAC(:,12,89)=+TPK%KTC33(:)
+!HCHO/OLN=+0.23419*K096*<NO>+0.88625*K110*<MO2>+0.13414*K116*<CARBOP>+0.00000*K
+!118*<OLN>+0.00000*K118*<OLN>+0.20740*K125*<NO3>
+ PJAC(:,22,40)=+0.23419*TPK%K096(:)*PCONC(:,3)+0.88625*TPK%K110(:)*PCONC(:,32)+&
+&0.13414*TPK%K116(:)*PCONC(:,39)+0.00000*TPK%K118(:)*PCONC(:,40)+0.00000*TPK%K1&
+&18(:)*PCONC(:,40)+0.20740*TPK%K125(:)*PCONC(:,5)
!
-!H2O2/WC_NO=0.0
+!HCHO/XO2=+K127*<MO2>
+ PJAC(:,22,41)=+TPK%K127(:)*PCONC(:,32)
!
-!H2O2/WC_NO2=0.0
+!ALD/O3=+0.51468*K079*<ALKE>+0.00000*K080*<BIO>+0.15692*K081*<CARBO>
+ PJAC(:,23,1)=+0.51468*TPK%K079(:)*PCONC(:,19)+0.00000*TPK%K080(:)*PCONC(:,20)+&
+&0.15692*TPK%K081(:)*PCONC(:,25)
!
-!H2O2/WC_NO3=0.0
+!ALD/H2O2=0.0
!
-!H2O2/WC_N2O5=0.0
+!ALD/NO=+0.33144*K091*<ALKAP>+0.42125*K092*<ALKEP>+0.00000*K093*<BIOP>+0.07368*
+!K095*<CARBOP>+1.01182*K096*<OLN>
+ PJAC(:,23,3)=+0.33144*TPK%K091(:)*PCONC(:,33)+0.42125*TPK%K092(:)*PCONC(:,34)+&
+&0.00000*TPK%K093(:)*PCONC(:,35)+0.07368*TPK%K095(:)*PCONC(:,39)+1.01182*TPK%K0&
+&96(:)*PCONC(:,40)
!
-!H2O2/WC_HONO=0.0
+!ALD/NO2=0.0
!
-!H2O2/WC_HNO3=0.0
+!ALD/NO3=-K073*<ALD>+0.05265*K074*<CARBO>+0.33743*K120*<ALKAP>+0.43039*K121*<AL
+!KEP>+0.00000*K122*<BIOP>+0.02936*K124*<CARBOP>+0.91850*K125*<OLN>
+ PJAC(:,23,5)=-TPK%K073(:)*PCONC(:,23)+0.05265*TPK%K074(:)*PCONC(:,25)+0.33743*&
+&TPK%K120(:)*PCONC(:,33)+0.43039*TPK%K121(:)*PCONC(:,34)+0.00000*TPK%K122(:)*PC&
+&ONC(:,35)+0.02936*TPK%K124(:)*PCONC(:,39)+0.91850*TPK%K125(:)*PCONC(:,40)
!
-!H2O2/WC_HNO4=0.0
+!ALD/N2O5=0.0
!
-!H2O2/WC_NH3=0.0
+!ALD/HONO=0.0
!
-!H2O2/WC_OH=0.0
+!ALD/HNO3=0.0
!
-!H2O2/WC_HO2=0.0
+!ALD/HNO4=0.0
!
-!H2O2/WC_CO2=0.0
+!ALD/NH3=0.0
!
-!H2O2/WC_SO2=0.0
+!ALD/SO2=0.0
!
-!H2O2/WC_H2SO4=0.0
+!ALD/SULF=0.0
!
-!H2O2/WC_RO21=0.0
+!ALD/CO=0.0
!
-!H2O2/WC_RO25=0.0
+!ALD/OH=+0.08173*K058*<ALKA>-K063*<ALD>+0.06253*K065*<CARBO>+0.07335*K069*<OP2>
+ PJAC(:,23,14)=+0.08173*TPK%K058(:)*PCONC(:,18)-TPK%K063(:)*PCONC(:,23)+0.06253&
+&*TPK%K065(:)*PCONC(:,25)+0.07335*TPK%K069(:)*PCONC(:,29)
!
-!H2O2/WC_MEOH=0.0
+!ALD/HO2=0.0
!
-!H2O2/WC_ETOH=0.0
+!ALD/CH4=0.0
!
-!H2O2/WC_ALCH=0.0
+!ALD/ETH=0.0
!
-!H2O2/WC_HCHO=0.0
+!ALD/ALKA=+0.08173*K058*<OH>
+ PJAC(:,23,18)=+0.08173*TPK%K058(:)*PCONC(:,14)
!
-!H2O2/WC_ALD2=0.0
+!ALD/ALKE=+0.51468*K079*<O3>
+ PJAC(:,23,19)=+0.51468*TPK%K079(:)*PCONC(:,1)
!
-!H2O2/WC_GLY=0.0
+!ALD/BIO=+0.00000*K080*<O3>
+ PJAC(:,23,20)=+0.00000*TPK%K080(:)*PCONC(:,1)
!
-!H2O2/WC_MGLY=0.0
+!ALD/ARO=0.0
!
-!H2O2/WC_KETL=0.0
+!ALD/HCHO=0.0
!
-!H2O2/WC_ORA1=0.0
+!ALD/ALD=-K012-K063*<OH>-K073*<NO3>
+ PJAC(:,23,23)=-TPK%K012(:)-TPK%K063(:)*PCONC(:,14)-TPK%K073(:)*PCONC(:,5)
!
-!H2O2/WC_ORA2=0.0
+!ALD/KET=0.0
!
-!H2O2/WC_ACID=0.0
+!ALD/CARBO=+K055*<O3P>+0.06253*K065*<OH>+0.05265*K074*<NO3>+0.15692*K081*<O3>
+ PJAC(:,23,25)=+TPK%K055(:)*TPK%O3P(:)+0.06253*TPK%K065(:)*PCONC(:,14)+0.05265*&
+&TPK%K074(:)*PCONC(:,5)+0.15692*TPK%K081(:)*PCONC(:,1)
!
-!H2O2/WC_RP16=0.0
+!ALD/ONIT=+0.20*K017
+ PJAC(:,23,26)=+0.20*TPK%K017(:)
!
-!H2O2/WC_UR21=0.0
+!ALD/PAN=0.0
!
-!H2O2/WC_UR28=0.0
+!ALD/OP1=0.0
!
-!H2O2/WC_ACID2=0.0
+!ALD/OP2=+0.96205*K014+0.07335*K069*<OH>
+ PJAC(:,23,29)=+0.96205*TPK%K014(:)+0.07335*TPK%K069(:)*PCONC(:,14)
!
-!H2O2/WC_ASO3=0.0
+!ALD/ORA1=0.0
!
-!H2O2/WC_ASO4=0.0
+!ALD/ORA2=0.0
!
-!H2O2/WC_ASO5=0.0
+!ALD/MO2=+0.56070*K105*<ALKAP>+0.46413*K106*<ALKEP>+0.00000*K107*<BIOP>+0.08295
+!*K109*<CARBOP>+0.41524*K110*<OLN>
+ PJAC(:,23,32)=+0.56070*TPK%K105(:)*PCONC(:,33)+0.46413*TPK%K106(:)*PCONC(:,34)&
+&+0.00000*TPK%K107(:)*PCONC(:,35)+0.08295*TPK%K109(:)*PCONC(:,39)+0.41524*TPK%K&
+&110(:)*PCONC(:,40)
!
-!H2O2/WC_AHSO5=0.0
+!ALD/ALKAP=+0.33144*K091*<NO>+0.56070*K105*<MO2>+0.71461*K111*<CARBOP>+0.33743*
+!K120*<NO3>
+ PJAC(:,23,33)=+0.33144*TPK%K091(:)*PCONC(:,3)+0.56070*TPK%K105(:)*PCONC(:,32)+&
+&0.71461*TPK%K111(:)*PCONC(:,39)+0.33743*TPK%K120(:)*PCONC(:,5)
!
-!H2O2/WC_AHMS=0.0
+!ALD/ALKEP=+0.42125*K092*<NO>+0.46413*K106*<MO2>+0.68374*K112*<CARBOP>+0.43039*
+!K121*<NO3>
+ PJAC(:,23,34)=+0.42125*TPK%K092(:)*PCONC(:,3)+0.46413*TPK%K106(:)*PCONC(:,32)+&
+&0.68374*TPK%K112(:)*PCONC(:,39)+0.43039*TPK%K121(:)*PCONC(:,5)
!
-!H2O2/WR_O3=0.0
+!ALD/BIOP=+0.00000*K093*<NO>+0.00000*K107*<MO2>+0.00000*K113*<CARBOP>+0.00000*K
+!122*<NO3>
+ PJAC(:,23,35)=+0.00000*TPK%K093(:)*PCONC(:,3)+0.00000*TPK%K107(:)*PCONC(:,32)+&
+&0.00000*TPK%K113(:)*PCONC(:,39)+0.00000*TPK%K122(:)*PCONC(:,5)
!
-!H2O2/WR_H2O2=+KTR33
- PJAC(:,12,126)=+TPK%KTR33(:)
+!ALD/PHO=0.0
!
-!H2O2/WR_NO=0.0
+!ALD/ADD=0.0
!
-!H2O2/WR_NO2=0.0
+!ALD/AROP=0.0
!
-!H2O2/WR_NO3=0.0
+!ALD/CARBOP=+0.07368*K095*<NO>+0.08295*K109*<MO2>+0.71461*K111*<ALKAP>+0.68374*
+!K112*<ALKEP>+0.00000*K113*<BIOP>+0.06969*K115*<CARBOP>+0.06969*K115*<CARBOP>+0
+!.42122*K116*<OLN>+0.02936*K124*<NO3>
+ PJAC(:,23,39)=+0.07368*TPK%K095(:)*PCONC(:,3)+0.08295*TPK%K109(:)*PCONC(:,32)+&
+&0.71461*TPK%K111(:)*PCONC(:,33)+0.68374*TPK%K112(:)*PCONC(:,34)+0.00000*TPK%K1&
+&13(:)*PCONC(:,35)+0.06969*TPK%K115(:)*PCONC(:,39)+0.06969*TPK%K115(:)*PCONC(:,&
+&39)+0.42122*TPK%K116(:)*PCONC(:,40)+0.02936*TPK%K124(:)*PCONC(:,5)
!
-!H2O2/WR_N2O5=0.0
+!ALD/OLN=+1.01182*K096*<NO>+0.41524*K110*<MO2>+0.42122*K116*<CARBOP>+0.00000*K1
+!18*<OLN>+0.00000*K118*<OLN>+0.91850*K125*<NO3>
+ PJAC(:,23,40)=+1.01182*TPK%K096(:)*PCONC(:,3)+0.41524*TPK%K110(:)*PCONC(:,32)+&
+&0.42122*TPK%K116(:)*PCONC(:,39)+0.00000*TPK%K118(:)*PCONC(:,40)+0.00000*TPK%K1&
+&18(:)*PCONC(:,40)+0.91850*TPK%K125(:)*PCONC(:,5)
!
-!H2O2/WR_HONO=0.0
+!ALD/XO2=0.0
!
-!H2O2/WR_HNO3=0.0
+!KET/O3=+0.07377*K079*<ALKE>+0.00000*K080*<BIO>
+ PJAC(:,24,1)=+0.07377*TPK%K079(:)*PCONC(:,19)+0.00000*TPK%K080(:)*PCONC(:,20)
!
-!H2O2/WR_HNO4=0.0
+!KET/H2O2=0.0
!
-!H2O2/WR_NH3=0.0
+!KET/NO=+0.54531*K091*<ALKAP>+0.05220*K092*<ALKEP>+0.00000*K093*<BIOP>+0.37862*
+!K096*<OLN>
+ PJAC(:,24,3)=+0.54531*TPK%K091(:)*PCONC(:,33)+0.05220*TPK%K092(:)*PCONC(:,34)+&
+&0.00000*TPK%K093(:)*PCONC(:,35)+0.37862*TPK%K096(:)*PCONC(:,40)
!
-!H2O2/WR_OH=0.0
+!KET/NO2=0.0
!
-!H2O2/WR_HO2=0.0
+!KET/NO3=+0.00632*K074*<CARBO>+0.62978*K120*<ALKAP>+0.02051*K121*<ALKEP>+0.0000
+!0*K122*<BIOP>+0.34740*K125*<OLN>
+ PJAC(:,24,5)=+0.00632*TPK%K074(:)*PCONC(:,25)+0.62978*TPK%K120(:)*PCONC(:,33)+&
+&0.02051*TPK%K121(:)*PCONC(:,34)+0.00000*TPK%K122(:)*PCONC(:,35)+0.34740*TPK%K1&
+&25(:)*PCONC(:,40)
!
-!H2O2/WR_CO2=0.0
+!KET/N2O5=0.0
!
-!H2O2/WR_SO2=0.0
+!KET/HONO=0.0
!
-!H2O2/WR_H2SO4=0.0
+!KET/HNO3=0.0
!
-!H2O2/WR_RO21=0.0
+!KET/HNO4=0.0
!
-!H2O2/WR_RO25=0.0
+!KET/NH3=0.0
!
-!H2O2/WR_MEOH=0.0
+!KET/SO2=0.0
!
-!H2O2/WR_ETOH=0.0
+!KET/SULF=0.0
!
-!H2O2/WR_ALCH=0.0
+!KET/CO=0.0
!
-!H2O2/WR_HCHO=0.0
+!KET/OH=+0.03498*K058*<ALKA>-K064*<KET>+0.00853*K065*<CARBO>+0.37591*K069*<OP2>
+ PJAC(:,24,14)=+0.03498*TPK%K058(:)*PCONC(:,18)-TPK%K064(:)*PCONC(:,24)+0.00853&
+&*TPK%K065(:)*PCONC(:,25)+0.37591*TPK%K069(:)*PCONC(:,29)
!
-!H2O2/WR_ALD2=0.0
+!KET/HO2=0.0
!
-!H2O2/WR_GLY=0.0
+!KET/CH4=0.0
!
-!H2O2/WR_MGLY=0.0
+!KET/ETH=0.0
!
-!H2O2/WR_KETL=0.0
+!KET/ALKA=+0.03498*K058*<OH>
+ PJAC(:,24,18)=+0.03498*TPK%K058(:)*PCONC(:,14)
!
-!H2O2/WR_ORA1=0.0
+!KET/ALKE=+0.07377*K079*<O3>
+ PJAC(:,24,19)=+0.07377*TPK%K079(:)*PCONC(:,1)
!
-!H2O2/WR_ORA2=0.0
+!KET/BIO=+0.00000*K080*<O3>
+ PJAC(:,24,20)=+0.00000*TPK%K080(:)*PCONC(:,1)
!
-!H2O2/WR_ACID=0.0
+!KET/ARO=0.0
!
-!H2O2/WR_RP16=0.0
+!KET/HCHO=0.0
!
-!H2O2/WR_UR21=0.0
+!KET/ALD=0.0
!
-!H2O2/WR_UR28=0.0
+!KET/KET=-K015-K064*<OH>
+ PJAC(:,24,24)=-TPK%K015(:)-TPK%K064(:)*PCONC(:,14)
!
-!H2O2/WR_ACID2=0.0
+!KET/CARBO=+0.00853*K065*<OH>+0.00632*K074*<NO3>
+ PJAC(:,24,25)=+0.00853*TPK%K065(:)*PCONC(:,14)+0.00632*TPK%K074(:)*PCONC(:,5)
!
-!H2O2/WR_ASO3=0.0
+!KET/ONIT=+0.80*K017
+ PJAC(:,24,26)=+0.80*TPK%K017(:)
!
-!H2O2/WR_ASO4=0.0
+!KET/PAN=0.0
!
-!H2O2/WR_ASO5=0.0
+!KET/OP1=0.0
!
-!H2O2/WR_AHSO5=0.0
+!KET/OP2=+0.37591*K069*<OH>
+ PJAC(:,24,29)=+0.37591*TPK%K069(:)*PCONC(:,14)
!
-!H2O2/WR_AHMS=0.0
+!KET/ORA1=0.0
!
-!SO2/NO=0.0
+!KET/ORA2=0.0
!
-!SO2/NO2=0.0
+!KET/MO2=+0.09673*K105*<ALKAP>+0.03814*K106*<ALKEP>+0.00000*K107*<BIOP>+0.09667
+!*K110*<OLN>
+ PJAC(:,24,32)=+0.09673*TPK%K105(:)*PCONC(:,33)+0.03814*TPK%K106(:)*PCONC(:,34)&
+&+0.00000*TPK%K107(:)*PCONC(:,35)+0.09667*TPK%K110(:)*PCONC(:,40)
!
-!SO2/O3=0.0
+!KET/ALKAP=+0.54531*K091*<NO>+0.09673*K105*<MO2>+0.18819*K111*<CARBOP>+0.62978*
+!K120*<NO3>
+ PJAC(:,24,33)=+0.54531*TPK%K091(:)*PCONC(:,3)+0.09673*TPK%K105(:)*PCONC(:,32)+&
+&0.18819*TPK%K111(:)*PCONC(:,39)+0.62978*TPK%K120(:)*PCONC(:,5)
!
-!SO2/HONO=0.0
+!KET/ALKEP=+0.05220*K092*<NO>+0.03814*K106*<MO2>+0.06579*K112*<CARBOP>+0.02051*
+!K121*<NO3>
+ PJAC(:,24,34)=+0.05220*TPK%K092(:)*PCONC(:,3)+0.03814*TPK%K106(:)*PCONC(:,32)+&
+&0.06579*TPK%K112(:)*PCONC(:,39)+0.02051*TPK%K121(:)*PCONC(:,5)
!
-!SO2/HNO3=0.0
+!KET/BIOP=+0.00000*K093*<NO>+0.00000*K107*<MO2>+0.00000*K113*<CARBOP>+0.00000*K
+!122*<NO3>
+ PJAC(:,24,35)=+0.00000*TPK%K093(:)*PCONC(:,3)+0.00000*TPK%K107(:)*PCONC(:,32)+&
+&0.00000*TPK%K113(:)*PCONC(:,39)+0.00000*TPK%K122(:)*PCONC(:,5)
!
-!SO2/HNO4=0.0
+!KET/PHO=0.0
!
-!SO2/N2O5=0.0
+!KET/ADD=0.0
!
-!SO2/NO3=0.0
+!KET/AROP=0.0
!
-!SO2/NH3=0.0
+!KET/CARBOP=+0.18819*K111*<ALKAP>+0.06579*K112*<ALKEP>+0.00000*K113*<BIOP>+0.02
+!190*K115*<CARBOP>+0.02190*K115*<CARBOP>+0.10822*K116*<OLN>
+ PJAC(:,24,39)=+0.18819*TPK%K111(:)*PCONC(:,33)+0.06579*TPK%K112(:)*PCONC(:,34)&
+&+0.00000*TPK%K113(:)*PCONC(:,35)+0.02190*TPK%K115(:)*PCONC(:,39)+0.02190*TPK%K&
+&115(:)*PCONC(:,39)+0.10822*TPK%K116(:)*PCONC(:,40)
!
-!SO2/HO2=0.0
+!KET/OLN=+0.37862*K096*<NO>+0.09667*K110*<MO2>+0.10822*K116*<CARBOP>+0.00000*K1
+!18*<OLN>+0.00000*K118*<OLN>+0.34740*K125*<NO3>
+ PJAC(:,24,40)=+0.37862*TPK%K096(:)*PCONC(:,3)+0.09667*TPK%K110(:)*PCONC(:,32)+&
+&0.10822*TPK%K116(:)*PCONC(:,39)+0.00000*TPK%K118(:)*PCONC(:,40)+0.00000*TPK%K1&
+&18(:)*PCONC(:,40)+0.34740*TPK%K125(:)*PCONC(:,5)
!
-!SO2/CO=0.0
+!KET/XO2=0.0
!
-!SO2/H2O2=0.0
+!CARBO/O3=+0.00000*K079*<ALKE>+0.39754*K080*<BIO>+1.07583*K081*<CARBO>-K081*<CA
+!RBO>
+ PJAC(:,25,1)=+0.00000*TPK%K079(:)*PCONC(:,19)+0.39754*TPK%K080(:)*PCONC(:,20)+&
+&1.07583*TPK%K081(:)*PCONC(:,25)-TPK%K081(:)*PCONC(:,25)
!
-!SO2/SO2=-K035*<OH>-KTC14-KTR14
- PJAC(:,13,13)=-TPK%K035(:)*PCONC(:,15)-TPK%KTC14(:)-TPK%KTR14(:)
+!CARBO/H2O2=0.0
!
-!SO2/H2SO4=0.0
+!CARBO/NO=+0.03407*K091*<ALKAP>+0.45463*K093*<BIOP>+2.06993*K094*<AROP>+0.08670
+!*K095*<CARBOP>
+ PJAC(:,25,3)=+0.03407*TPK%K091(:)*PCONC(:,33)+0.45463*TPK%K093(:)*PCONC(:,35)+&
+&2.06993*TPK%K094(:)*PCONC(:,38)+0.08670*TPK%K095(:)*PCONC(:,39)
!
-!SO2/OH=-K035*<SO2>
- PJAC(:,13,15)=-TPK%K035(:)*PCONC(:,13)
+!CARBO/NO2=0.0
!
-!SO2/ETHE=0.0
+!CARBO/NO3=+0.10530*K074*<CARBO>-K074*<CARBO>+0.00000*K076*<ALKE>+0.91741*K077*
+!<BIO>+0.03531*K120*<ALKAP>+0.61160*K122*<BIOP>+2.81904*K123*<AROP>+0.03455*K12
+!4*<CARBOP>
+ PJAC(:,25,5)=+0.10530*TPK%K074(:)*PCONC(:,25)-TPK%K074(:)*PCONC(:,25)+0.00000*&
+&TPK%K076(:)*PCONC(:,19)+0.91741*TPK%K077(:)*PCONC(:,20)+0.03531*TPK%K120(:)*PC&
+&ONC(:,33)+0.61160*TPK%K122(:)*PCONC(:,35)+2.81904*TPK%K123(:)*PCONC(:,38)+0.03&
+&455*TPK%K124(:)*PCONC(:,39)
!
-!SO2/OLEL=0.0
+!CARBO/N2O5=0.0
!
-!SO2/OLEH=0.0
+!CARBO/HONO=0.0
!
-!SO2/ALKL=0.0
+!CARBO/HNO3=0.0
!
-!SO2/ALKM=0.0
+!CARBO/HNO4=0.0
!
-!SO2/ALKH=0.0
+!CARBO/NH3=0.0
!
-!SO2/AROH=0.0
+!CARBO/SO2=0.0
!
-!SO2/AROL=0.0
+!CARBO/SULF=0.0
!
-!SO2/AROO=0.0
+!CARBO/CO=0.0
!
-!SO2/ARAL=0.0
+!CARBO/OH=+0.00835*K058*<ALKA>+0.16919*K065*<CARBO>-K065*<CARBO>+0.21863*K070*<
+!PAN>
+ PJAC(:,25,14)=+0.00835*TPK%K058(:)*PCONC(:,18)+0.16919*TPK%K065(:)*PCONC(:,25)&
+&-TPK%K065(:)*PCONC(:,25)+0.21863*TPK%K070(:)*PCONC(:,27)
!
-!SO2/ARAC=0.0
+!CARBO/HO2=0.0
!
-!SO2/PAH=0.0
+!CARBO/CH4=0.0
!
-!SO2/HCHO=0.0
+!CARBO/ETH=0.0
!
-!SO2/ALD2=0.0
+!CARBO/ALKA=+0.00835*K058*<OH>
+ PJAC(:,25,18)=+0.00835*TPK%K058(:)*PCONC(:,14)
!
-!SO2/KETL=0.0
+!CARBO/ALKE=+0.00000*K076*<NO3>+0.00000*K079*<O3>
+ PJAC(:,25,19)=+0.00000*TPK%K076(:)*PCONC(:,5)+0.00000*TPK%K079(:)*PCONC(:,1)
!
-!SO2/KETH=0.0
+!CARBO/BIO=+0.13255*K054*<O3P>+0.91741*K077*<NO3>+0.39754*K080*<O3>
+ PJAC(:,25,20)=+0.13255*TPK%K054(:)*TPK%O3P(:)+0.91741*TPK%K077(:)*PCONC(:,5)+0&
+&.39754*TPK%K080(:)*PCONC(:,1)
!
-!SO2/MEOH=0.0
+!CARBO/ARO=0.0
!
-!SO2/ETOH=0.0
+!CARBO/HCHO=0.0
!
-!SO2/ALCH=0.0
+!CARBO/ALD=0.0
!
-!SO2/ISOP=0.0
+!CARBO/KET=0.0
!
-!SO2/BIOL=0.0
+!CARBO/CARBO=-K016-K055*<O3P>+0.16919*K065*<OH>-K065*<OH>+0.10530*K074*<NO3>-K0
+!74*<NO3>+1.07583*K081*<O3>-K081*<O3>
+ PJAC(:,25,25)=-TPK%K016(:)-TPK%K055(:)*TPK%O3P(:)+0.16919*TPK%K065(:)*PCONC(:,&
+&14)-TPK%K065(:)*PCONC(:,14)+0.10530*TPK%K074(:)*PCONC(:,5)-TPK%K074(:)*PCONC(:&
+&,5)+1.07583*TPK%K081(:)*PCONC(:,1)-TPK%K081(:)*PCONC(:,1)
!
-!SO2/BIOH=0.0
+!CARBO/ONIT=0.0
!
-!SO2/MTBE=0.0
+!CARBO/PAN=+0.21863*K070*<OH>
+ PJAC(:,25,27)=+0.21863*TPK%K070(:)*PCONC(:,14)
!
-!SO2/MVK=0.0
+!CARBO/OP1=0.0
!
-!SO2/MCR=0.0
+!CARBO/OP2=0.0
!
-!SO2/MGLY=0.0
+!CARBO/ORA1=0.0
!
-!SO2/GLY=0.0
+!CARBO/ORA2=0.0
!
-!SO2/ORA1=0.0
+!CARBO/MO2=+0.07976*K105*<ALKAP>+0.56064*K107*<BIOP>+1.99461*K108*<AROP>+0.1538
+!7*K109*<CARBOP>
+ PJAC(:,25,32)=+0.07976*TPK%K105(:)*PCONC(:,33)+0.56064*TPK%K107(:)*PCONC(:,35)&
+&+1.99461*TPK%K108(:)*PCONC(:,38)+0.15387*TPK%K109(:)*PCONC(:,39)
!
-!SO2/ORA2=0.0
+!CARBO/ALKAP=+0.03407*K091*<NO>+0.07976*K105*<MO2>+0.06954*K111*<CARBOP>+0.0353
+!1*K120*<NO3>
+ PJAC(:,25,33)=+0.03407*TPK%K091(:)*PCONC(:,3)+0.07976*TPK%K105(:)*PCONC(:,32)+&
+&0.06954*TPK%K111(:)*PCONC(:,39)+0.03531*TPK%K120(:)*PCONC(:,5)
!
-!SO2/ACID=0.0
+!CARBO/ALKEP=0.0
!
-!SO2/UR28=0.0
+!CARBO/BIOP=+0.45463*K093*<NO>+0.56064*K107*<MO2>+0.78591*K113*<CARBOP>+0.61160
+!*K122*<NO3>
+ PJAC(:,25,35)=+0.45463*TPK%K093(:)*PCONC(:,3)+0.56064*TPK%K107(:)*PCONC(:,32)+&
+&0.78591*TPK%K113(:)*PCONC(:,39)+0.61160*TPK%K122(:)*PCONC(:,5)
!
-!SO2/UR21=0.0
+!CARBO/PHO=0.0
!
-!SO2/URG2=0.0
+!CARBO/ADD=0.0
!
-!SO2/UR26=0.0
+!CARBO/AROP=+2.06993*K094*<NO>+1.99461*K108*<MO2>+1.99455*K114*<CARBOP>+2.81904
+!*K123*<NO3>
+ PJAC(:,25,38)=+2.06993*TPK%K094(:)*PCONC(:,3)+1.99461*TPK%K108(:)*PCONC(:,32)+&
+&1.99455*TPK%K114(:)*PCONC(:,39)+2.81904*TPK%K123(:)*PCONC(:,5)
!
-!SO2/RPG2=0.0
+!CARBO/CARBOP=+0.08670*K095*<NO>+0.15387*K109*<MO2>+0.06954*K111*<ALKAP>+0.7859
+!1*K113*<BIOP>+1.99455*K114*<AROP>+0.10777*K115*<CARBOP>+0.10777*K115*<CARBOP>+
+!0.03455*K124*<NO3>
+ PJAC(:,25,39)=+0.08670*TPK%K095(:)*PCONC(:,3)+0.15387*TPK%K109(:)*PCONC(:,32)+&
+&0.06954*TPK%K111(:)*PCONC(:,33)+0.78591*TPK%K113(:)*PCONC(:,35)+1.99455*TPK%K1&
+&14(:)*PCONC(:,38)+0.10777*TPK%K115(:)*PCONC(:,39)+0.10777*TPK%K115(:)*PCONC(:,&
+&39)+0.03455*TPK%K124(:)*PCONC(:,5)
!
-!SO2/RP18=0.0
+!CARBO/OLN=0.0
!
-!SO2/RPG3=0.0
+!CARBO/XO2=0.0
!
-!SO2/URG4=0.0
+RETURN
+END SUBROUTINE SUBJ4
!
-!SO2/UR8=0.0
+SUBROUTINE SUBJ5
!
-!SO2/UR17=0.0
+!Indices 26 a 30
!
-!SO2/UR7=0.0
!
-!SO2/RPR3=0.0
+!ONIT/O3=0.0
!
-!SO2/URG6=0.0
+!ONIT/H2O2=0.0
!
-!SO2/UR22=0.0
+!ONIT/NO=+0.08459*K091*<ALKAP>+0.15300*K093*<BIOP>+0.04885*K094*<AROP>+0.18401*
+!K096*<OLN>
+ PJAC(:,26,3)=+0.08459*TPK%K091(:)*PCONC(:,33)+0.15300*TPK%K093(:)*PCONC(:,35)+&
+&0.04885*TPK%K094(:)*PCONC(:,38)+0.18401*TPK%K096(:)*PCONC(:,40)
!
-!SO2/URG7=0.0
+!ONIT/NO2=+K083*<PHO>
+ PJAC(:,26,4)=+TPK%K083(:)*PCONC(:,36)
!
-!SO2/RPR4=0.0
+!ONIT/NO3=+0.60*K078*<PAN>+0.25928*K125*<OLN>
+ PJAC(:,26,5)=+0.60*TPK%K078(:)*PCONC(:,27)+0.25928*TPK%K125(:)*PCONC(:,40)
!
-!SO2/RPR7=0.0
+!ONIT/N2O5=0.0
!
-!SO2/RPG7=0.0
+!ONIT/HONO=0.0
!
-!SO2/URG8=0.0
+!ONIT/HNO3=0.0
!
-!SO2/UR19=0.0
+!ONIT/HNO4=0.0
!
-!SO2/URG9=0.0
+!ONIT/NH3=0.0
!
-!SO2/AP7=0.0
+!ONIT/SO2=0.0
!
-!SO2/URG10=0.0
+!ONIT/SULF=0.0
!
-!SO2/RPR1=0.0
+!ONIT/CO=0.0
!
-!SO2/RPR5=0.0
+!ONIT/OH=-K071*<ONIT>
+ PJAC(:,26,14)=-TPK%K071(:)*PCONC(:,26)
!
-!SO2/RPR8=0.0
+!ONIT/HO2=+K103*<OLN>
+ PJAC(:,26,15)=+TPK%K103(:)*PCONC(:,40)
!
-!SO2/RP10=0.0
+!ONIT/CH4=0.0
!
-!SO2/RP11=0.0
+!ONIT/ETH=0.0
!
-!SO2/RP16=0.0
+!ONIT/ALKA=0.0
!
-!SO2/RPRL=0.0
+!ONIT/ALKE=0.0
!
-!SO2/APAN=0.0
+!ONIT/BIO=0.0
!
-!SO2/PAN1=0.0
+!ONIT/ARO=0.0
!
-!SO2/PAN2=0.0
+!ONIT/HCHO=0.0
!
-!SO2/PAN3=0.0
+!ONIT/ALD=0.0
!
-!SO2/PAN4=0.0
+!ONIT/KET=0.0
!
-!SO2/PAN6=0.0
+!ONIT/CARBO=0.0
!
-!SO2/PAN7=0.0
+!ONIT/ONIT=-K017-K071*<OH>
+ PJAC(:,26,26)=-TPK%K017(:)-TPK%K071(:)*PCONC(:,14)
!
-!SO2/PAN8=0.0
+!ONIT/PAN=+0.60*K078*<NO3>
+ PJAC(:,26,27)=+0.60*TPK%K078(:)*PCONC(:,5)
!
-!SO2/PN10=0.0
+!ONIT/OP1=0.0
!
-!SO2/RO2T=0.0
+!ONIT/OP2=0.0
!
-!SO2/RO21=0.0
+!ONIT/ORA1=0.0
!
-!SO2/RO25=0.0
+!ONIT/ORA2=0.0
!
-!SO2/WC_O3=0.0
+!ONIT/MO2=+0.67560*K110*<OLN>
+ PJAC(:,26,32)=+0.67560*TPK%K110(:)*PCONC(:,40)
!
-!SO2/WC_H2O2=0.0
+!ONIT/ALKAP=+0.08459*K091*<NO>
+ PJAC(:,26,33)=+0.08459*TPK%K091(:)*PCONC(:,3)
!
-!SO2/WC_NO=0.0
+!ONIT/ALKEP=0.0
!
-!SO2/WC_NO2=0.0
+!ONIT/BIOP=+0.15300*K093*<NO>
+ PJAC(:,26,35)=+0.15300*TPK%K093(:)*PCONC(:,3)
!
-!SO2/WC_NO3=0.0
+!ONIT/PHO=+K083*<NO2>
+ PJAC(:,26,36)=+TPK%K083(:)*PCONC(:,4)
!
-!SO2/WC_N2O5=0.0
+!ONIT/ADD=0.0
!
-!SO2/WC_HONO=0.0
+!ONIT/AROP=+0.04885*K094*<NO>
+ PJAC(:,26,38)=+0.04885*TPK%K094(:)*PCONC(:,3)
!
-!SO2/WC_HNO3=0.0
+!ONIT/CARBOP=+0.66562*K116*<OLN>
+ PJAC(:,26,39)=+0.66562*TPK%K116(:)*PCONC(:,40)
!
-!SO2/WC_HNO4=0.0
+!ONIT/OLN=+0.18401*K096*<NO>+K103*<HO2>+0.67560*K110*<MO2>+0.66562*K116*<CARBOP
+!>+2.00*K117*<OLN>+2.00*K117*<OLN>+0.00000*K118*<OLN>+0.00000*K118*<OLN>+0.2592
+!8*K125*<NO3>
+ PJAC(:,26,40)=+0.18401*TPK%K096(:)*PCONC(:,3)+TPK%K103(:)*PCONC(:,15)+0.67560*&
+&TPK%K110(:)*PCONC(:,32)+0.66562*TPK%K116(:)*PCONC(:,39)+2.00*TPK%K117(:)*PCONC&
+&(:,40)+2.00*TPK%K117(:)*PCONC(:,40)+0.00000*TPK%K118(:)*PCONC(:,40)+0.00000*TP&
+&K%K118(:)*PCONC(:,40)+0.25928*TPK%K125(:)*PCONC(:,5)
!
-!SO2/WC_NH3=0.0
+!ONIT/XO2=0.0
!
-!SO2/WC_OH=0.0
+!PAN/O3=+0.30000*K082*<PAN>-K082*<PAN>
+ PJAC(:,27,1)=+0.30000*TPK%K082(:)*PCONC(:,27)-TPK%K082(:)*PCONC(:,27)
!
-!SO2/WC_HO2=0.0
+!PAN/H2O2=0.0
!
-!SO2/WC_CO2=0.0
+!PAN/NO=0.0
!
-!SO2/WC_SO2=+KTC45
- PJAC(:,13,101)=+TPK%KTC45(:)
+!PAN/NO2=+1.00000*K088*<CARBOP>
+ PJAC(:,27,4)=+1.00000*TPK%K088(:)*PCONC(:,39)
!
-!SO2/WC_H2SO4=0.0
+!PAN/NO3=+0.40000*K078*<PAN>-K078*<PAN>
+ PJAC(:,27,5)=+0.40000*TPK%K078(:)*PCONC(:,27)-TPK%K078(:)*PCONC(:,27)
!
-!SO2/WC_RO21=0.0
+!PAN/N2O5=0.0
!
-!SO2/WC_RO25=0.0
+!PAN/HONO=0.0
!
-!SO2/WC_MEOH=0.0
+!PAN/HNO3=0.0
!
-!SO2/WC_ETOH=0.0
+!PAN/HNO4=0.0
!
-!SO2/WC_ALCH=0.0
+!PAN/NH3=0.0
!
-!SO2/WC_HCHO=0.0
+!PAN/SO2=0.0
!
-!SO2/WC_ALD2=0.0
+!PAN/SULF=0.0
!
-!SO2/WC_GLY=0.0
+!PAN/CO=0.0
!
-!SO2/WC_MGLY=0.0
+!PAN/OH=+0.28107*K070*<PAN>-K070*<PAN>
+ PJAC(:,27,14)=+0.28107*TPK%K070(:)*PCONC(:,27)-TPK%K070(:)*PCONC(:,27)
!
-!SO2/WC_KETL=0.0
+!PAN/HO2=0.0
!
-!SO2/WC_ORA1=0.0
+!PAN/CH4=0.0
!
-!SO2/WC_ORA2=0.0
+!PAN/ETH=0.0
!
-!SO2/WC_ACID=0.0
+!PAN/ALKA=0.0
!
-!SO2/WC_RP16=0.0
+!PAN/ALKE=0.0
!
-!SO2/WC_UR21=0.0
+!PAN/BIO=0.0
!
-!SO2/WC_UR28=0.0
+!PAN/ARO=0.0
!
-!SO2/WC_ACID2=0.0
+!PAN/HCHO=0.0
!
-!SO2/WC_ASO3=0.0
+!PAN/ALD=0.0
!
-!SO2/WC_ASO4=0.0
+!PAN/KET=0.0
!
-!SO2/WC_ASO5=0.0
+!PAN/CARBO=0.0
!
-!SO2/WC_AHSO5=0.0
+!PAN/ONIT=0.0
!
-!SO2/WC_AHMS=0.0
+!PAN/PAN=+0.28107*K070*<OH>-K070*<OH>+0.40000*K078*<NO3>-K078*<NO3>+0.30000*K08
+!2*<O3>-K082*<O3>-K089
+ PJAC(:,27,27)=+0.28107*TPK%K070(:)*PCONC(:,14)-TPK%K070(:)*PCONC(:,14)+0.40000&
+&*TPK%K078(:)*PCONC(:,5)-TPK%K078(:)*PCONC(:,5)+0.30000*TPK%K082(:)*PCONC(:,1)-&
+&TPK%K082(:)*PCONC(:,1)-TPK%K089(:)
!
-!SO2/WR_O3=0.0
+!PAN/OP1=0.0
!
-!SO2/WR_H2O2=0.0
+!PAN/OP2=0.0
!
-!SO2/WR_NO=0.0
+!PAN/ORA1=0.0
!
-!SO2/WR_NO2=0.0
+!PAN/ORA2=0.0
!
-!SO2/WR_NO3=0.0
+!PAN/MO2=0.0
!
-!SO2/WR_N2O5=0.0
+!PAN/ALKAP=0.0
!
-!SO2/WR_HONO=0.0
+!PAN/ALKEP=0.0
!
-!SO2/WR_HNO3=0.0
+!PAN/BIOP=0.0
!
-!SO2/WR_HNO4=0.0
+!PAN/PHO=0.0
!
-!SO2/WR_NH3=0.0
+!PAN/ADD=0.0
!
-!SO2/WR_OH=0.0
+!PAN/AROP=0.0
!
-!SO2/WR_HO2=0.0
+!PAN/CARBOP=+1.00000*K088*<NO2>
+ PJAC(:,27,39)=+1.00000*TPK%K088(:)*PCONC(:,4)
!
-!SO2/WR_CO2=0.0
+!PAN/OLN=0.0
!
-!SO2/WR_SO2=+KTR45
- PJAC(:,13,138)=+TPK%KTR45(:)
+!PAN/XO2=0.0
!
-!SO2/WR_H2SO4=0.0
+!OP1/O3=0.0
!
-!SO2/WR_RO21=0.0
+!OP1/H2O2=0.0
!
-!SO2/WR_RO25=0.0
+!OP1/NO=0.0
!
-!SO2/WR_MEOH=0.0
+!OP1/NO2=0.0
!
-!SO2/WR_ETOH=0.0
+!OP1/NO3=0.0
!
-!SO2/WR_ALCH=0.0
+!OP1/N2O5=0.0
!
-!SO2/WR_HCHO=0.0
+!OP1/HONO=0.0
!
-!SO2/WR_ALD2=0.0
+!OP1/HNO3=0.0
!
-!SO2/WR_GLY=0.0
+!OP1/HNO4=0.0
!
-!SO2/WR_MGLY=0.0
+!OP1/NH3=0.0
!
-!SO2/WR_KETL=0.0
+!OP1/SO2=0.0
!
-!SO2/WR_ORA1=0.0
+!OP1/SULF=0.0
!
-!SO2/WR_ORA2=0.0
+!OP1/CO=0.0
!
-!SO2/WR_ACID=0.0
+!OP1/OH=-K068*<OP1>
+ PJAC(:,28,14)=-TPK%K068(:)*PCONC(:,28)
!
-!SO2/WR_RP16=0.0
+!OP1/HO2=+K097*<MO2>
+ PJAC(:,28,15)=+TPK%K097(:)*PCONC(:,32)
!
-!SO2/WR_UR21=0.0
+!OP1/CH4=0.0
!
-!SO2/WR_UR28=0.0
+!OP1/ETH=0.0
!
-!SO2/WR_ACID2=0.0
+!OP1/ALKA=0.0
!
-!SO2/WR_ASO3=0.0
+!OP1/ALKE=0.0
!
-!SO2/WR_ASO4=0.0
+!OP1/BIO=0.0
!
-!SO2/WR_ASO5=0.0
+!OP1/ARO=0.0
!
-!SO2/WR_AHSO5=0.0
+!OP1/HCHO=0.0
!
-!SO2/WR_AHMS=0.0
+!OP1/ALD=0.0
+!
+!OP1/KET=0.0
+!
+!OP1/CARBO=0.0
+!
+!OP1/ONIT=0.0
+!
+!OP1/PAN=0.0
+!
+!OP1/OP1=-K013-K068*<OH>
+ PJAC(:,28,28)=-TPK%K013(:)-TPK%K068(:)*PCONC(:,14)
+!
+!OP1/OP2=0.0
+!
+!OP1/ORA1=0.0
+!
+!OP1/ORA2=0.0
+!
+!OP1/MO2=+K097*<HO2>
+ PJAC(:,28,32)=+TPK%K097(:)*PCONC(:,15)
+!
+!OP1/ALKAP=0.0
+!
+!OP1/ALKEP=0.0
+!
+!OP1/BIOP=0.0
+!
+!OP1/PHO=0.0
+!
+!OP1/ADD=0.0
+!
+!OP1/AROP=0.0
+!
+!OP1/CARBOP=0.0
+!
+!OP1/OLN=0.0
+!
+!OP1/XO2=0.0
!
-!H2SO4/NO=0.0
+!OP2/O3=+0.10149*K081*<CARBO>
+ PJAC(:,29,1)=+0.10149*TPK%K081(:)*PCONC(:,25)
!
-!H2SO4/NO2=0.0
+!OP2/H2O2=0.0
!
-!H2SO4/O3=0.0
+!OP2/NO=0.0
!
-!H2SO4/HONO=0.0
+!OP2/NO2=0.0
!
-!H2SO4/HNO3=0.0
+!OP2/NO3=0.0
!
-!H2SO4/HNO4=0.0
+!OP2/N2O5=0.0
!
-!H2SO4/N2O5=0.0
+!OP2/HONO=0.0
!
-!H2SO4/NO3=0.0
+!OP2/HNO3=0.0
!
-!H2SO4/NH3=0.0
+!OP2/HNO4=0.0
!
-!H2SO4/HO2=0.0
+!OP2/NH3=0.0
!
-!H2SO4/CO=0.0
+!OP2/SO2=0.0
!
-!H2SO4/H2O2=0.0
+!OP2/SULF=0.0
!
-!H2SO4/SO2=+K035*<OH>
- PJAC(:,14,13)=+TPK%K035(:)*PCONC(:,15)
+!OP2/CO=0.0
!
-!H2SO4/H2SO4=-K346-KTC15-KTR15
- PJAC(:,14,14)=-TPK%K346(:)-TPK%KTC15(:)-TPK%KTR15(:)
+!OP2/OH=-K069*<OP2>
+ PJAC(:,29,14)=-TPK%K069(:)*PCONC(:,29)
!
-!H2SO4/OH=+K035*<SO2>
- PJAC(:,14,15)=+TPK%K035(:)*PCONC(:,13)
+!OP2/HO2=+1.00524*K098*<ALKAP>+1.00524*K099*<ALKEP>+1.00524*K0100*<BIOP>+1.0052
+!4*K0101*<AROP>+0.80904*K0102*<CARBOP>+1.00524*K126*<XO2>
+ PJAC(:,29,15)=+1.00524*TPK%K098(:)*PCONC(:,33)+1.00524*TPK%K099(:)*PCONC(:,34)&
+&+1.00524*TPK%K0100(:)*PCONC(:,35)+1.00524*TPK%K0101(:)*PCONC(:,38)+0.80904*TPK&
+&%K0102(:)*PCONC(:,39)+1.00524*TPK%K126(:)*PCONC(:,41)
!
-!H2SO4/ETHE=0.0
+!OP2/CH4=0.0
!
-!H2SO4/OLEL=0.0
+!OP2/ETH=0.0
!
-!H2SO4/OLEH=0.0
+!OP2/ALKA=0.0
!
-!H2SO4/ALKL=0.0
+!OP2/ALKE=0.0
!
-!H2SO4/ALKM=0.0
+!OP2/BIO=0.0
!
-!H2SO4/ALKH=0.0
+!OP2/ARO=0.0
!
-!H2SO4/AROH=0.0
+!OP2/HCHO=0.0
!
-!H2SO4/AROL=0.0
+!OP2/ALD=0.0
!
-!H2SO4/AROO=0.0
+!OP2/KET=0.0
!
-!H2SO4/ARAL=0.0
+!OP2/CARBO=+0.10149*K081*<O3>
+ PJAC(:,29,25)=+0.10149*TPK%K081(:)*PCONC(:,1)
!
-!H2SO4/ARAC=0.0
+!OP2/ONIT=0.0
!
-!H2SO4/PAH=0.0
+!OP2/PAN=0.0
!
-!H2SO4/HCHO=0.0
+!OP2/OP1=0.0
!
-!H2SO4/ALD2=0.0
+!OP2/OP2=-K014-K069*<OH>
+ PJAC(:,29,29)=-TPK%K014(:)-TPK%K069(:)*PCONC(:,14)
!
-!H2SO4/KETL=0.0
+!OP2/ORA1=0.0
!
-!H2SO4/KETH=0.0
+!OP2/ORA2=0.0
!
-!H2SO4/MEOH=0.0
+!OP2/MO2=0.0
!
-!H2SO4/ETOH=0.0
+!OP2/ALKAP=+1.00524*K098*<HO2>
+ PJAC(:,29,33)=+1.00524*TPK%K098(:)*PCONC(:,15)
!
-!H2SO4/ALCH=0.0
+!OP2/ALKEP=+1.00524*K099*<HO2>
+ PJAC(:,29,34)=+1.00524*TPK%K099(:)*PCONC(:,15)
!
-!H2SO4/ISOP=0.0
+!OP2/BIOP=+1.00524*K0100*<HO2>
+ PJAC(:,29,35)=+1.00524*TPK%K0100(:)*PCONC(:,15)
!
-!H2SO4/BIOL=0.0
+!OP2/PHO=0.0
!
-!H2SO4/BIOH=0.0
+!OP2/ADD=0.0
!
-!H2SO4/MTBE=0.0
+!OP2/AROP=+1.00524*K0101*<HO2>
+ PJAC(:,29,38)=+1.00524*TPK%K0101(:)*PCONC(:,15)
!
-!H2SO4/MVK=0.0
+!OP2/CARBOP=+0.80904*K0102*<HO2>
+ PJAC(:,29,39)=+0.80904*TPK%K0102(:)*PCONC(:,15)
!
-!H2SO4/MCR=0.0
+!OP2/OLN=0.0
!
-!H2SO4/MGLY=0.0
+!OP2/XO2=+1.00524*K126*<HO2>
+ PJAC(:,29,41)=+1.00524*TPK%K126(:)*PCONC(:,15)
!
-!H2SO4/GLY=0.0
+!ORA1/O3=+0.15343*K079*<ALKE>+0.15000*K080*<BIO>+0.10788*K081*<CARBO>+0.11*K082
+!*<PAN>
+ PJAC(:,30,1)=+0.15343*TPK%K079(:)*PCONC(:,19)+0.15000*TPK%K080(:)*PCONC(:,20)+&
+&0.10788*TPK%K081(:)*PCONC(:,25)+0.11*TPK%K082(:)*PCONC(:,27)
!
-!H2SO4/ORA1=0.0
+!ORA1/H2O2=0.0
!
-!H2SO4/ORA2=0.0
+!ORA1/NO=0.0
!
-!H2SO4/ACID=0.0
+!ORA1/NO2=0.0
!
-!H2SO4/UR28=0.0
+!ORA1/NO3=0.0
!
-!H2SO4/UR21=0.0
+!ORA1/N2O5=0.0
!
-!H2SO4/URG2=0.0
+!ORA1/HONO=0.0
!
-!H2SO4/UR26=0.0
+!ORA1/HNO3=0.0
!
-!H2SO4/RPG2=0.0
+!ORA1/HNO4=0.0
!
-!H2SO4/RP18=0.0
+!ORA1/NH3=0.0
!
-!H2SO4/RPG3=0.0
+!ORA1/SO2=0.0
!
-!H2SO4/URG4=0.0
+!ORA1/SULF=0.0
!
-!H2SO4/UR8=0.0
+!ORA1/CO=0.0
!
-!H2SO4/UR17=0.0
+!ORA1/OH=+0.00878*K058*<ALKA>-K066*<ORA1>
+ PJAC(:,30,14)=+0.00878*TPK%K058(:)*PCONC(:,18)-TPK%K066(:)*PCONC(:,30)
!
-!H2SO4/UR7=0.0
+!ORA1/HO2=0.0
!
-!H2SO4/RPR3=0.0
+!ORA1/CH4=0.0
!
-!H2SO4/URG6=0.0
+!ORA1/ETH=0.0
!
-!H2SO4/UR22=0.0
+!ORA1/ALKA=+0.00878*K058*<OH>
+ PJAC(:,30,18)=+0.00878*TPK%K058(:)*PCONC(:,14)
!
-!H2SO4/URG7=0.0
+!ORA1/ALKE=+0.15343*K079*<O3>
+ PJAC(:,30,19)=+0.15343*TPK%K079(:)*PCONC(:,1)
!
-!H2SO4/RPR4=0.0
+!ORA1/BIO=+0.15000*K080*<O3>
+ PJAC(:,30,20)=+0.15000*TPK%K080(:)*PCONC(:,1)
!
-!H2SO4/RPR7=0.0
+!ORA1/ARO=0.0
!
-!H2SO4/RPG7=0.0
+!ORA1/HCHO=0.0
!
-!H2SO4/URG8=0.0
+!ORA1/ALD=0.0
!
-!H2SO4/UR19=0.0
+!ORA1/KET=0.0
!
-!H2SO4/URG9=0.0
+!ORA1/CARBO=+0.10788*K081*<O3>
+ PJAC(:,30,25)=+0.10788*TPK%K081(:)*PCONC(:,1)
!
-!H2SO4/AP7=0.0
+!ORA1/ONIT=0.0
!
-!H2SO4/URG10=0.0
+!ORA1/PAN=+0.11*K082*<O3>
+ PJAC(:,30,27)=+0.11*TPK%K082(:)*PCONC(:,1)
!
-!H2SO4/RPR1=0.0
+!ORA1/OP1=0.0
!
-!H2SO4/RPR5=0.0
+!ORA1/OP2=0.0
!
-!H2SO4/RPR8=0.0
+!ORA1/ORA1=-K066*<OH>
+ PJAC(:,30,30)=-TPK%K066(:)*PCONC(:,14)
!
-!H2SO4/RP10=0.0
+!ORA1/ORA2=0.0
!
-!H2SO4/RP11=0.0
+!ORA1/MO2=0.0
!
-!H2SO4/RP16=0.0
+!ORA1/ALKAP=0.0
!
-!H2SO4/RPRL=0.0
+!ORA1/ALKEP=0.0
!
-!H2SO4/APAN=0.0
+!ORA1/BIOP=0.0
!
-!H2SO4/PAN1=0.0
+!ORA1/PHO=0.0
!
-!H2SO4/PAN2=0.0
+!ORA1/ADD=0.0
!
-!H2SO4/PAN3=0.0
+!ORA1/AROP=0.0
!
-!H2SO4/PAN4=0.0
+!ORA1/CARBOP=0.0
!
-!H2SO4/PAN6=0.0
+!ORA1/OLN=0.0
!
-!H2SO4/PAN7=0.0
+!ORA1/XO2=0.0
!
-!H2SO4/PAN8=0.0
+RETURN
+END SUBROUTINE SUBJ5
!
-!H2SO4/PN10=0.0
+SUBROUTINE SUBJ6
!
-!H2SO4/RO2T=0.0
+!Indices 31 a 35
!
-!H2SO4/RO21=0.0
!
-!H2SO4/RO25=0.0
+!ORA2/O3=+0.08143*K079*<ALKE>+0.00000*K080*<BIO>+0.20595*K081*<CARBO>
+ PJAC(:,31,1)=+0.08143*TPK%K079(:)*PCONC(:,19)+0.00000*TPK%K080(:)*PCONC(:,20)+&
+&0.20595*TPK%K081(:)*PCONC(:,25)
!
-!H2SO4/WC_O3=0.0
+!ORA2/H2O2=0.0
!
-!H2SO4/WC_H2O2=0.0
+!ORA2/NO=0.0
!
-!H2SO4/WC_NO=0.0
+!ORA2/NO2=0.0
!
-!H2SO4/WC_NO2=0.0
+!ORA2/NO3=0.0
!
-!H2SO4/WC_NO3=0.0
+!ORA2/N2O5=0.0
!
-!H2SO4/WC_N2O5=0.0
+!ORA2/HONO=0.0
!
-!H2SO4/WC_HONO=0.0
+!ORA2/HNO3=0.0
!
-!H2SO4/WC_HNO3=0.0
+!ORA2/HNO4=0.0
!
-!H2SO4/WC_HNO4=0.0
+!ORA2/NH3=0.0
!
-!H2SO4/WC_NH3=0.0
+!ORA2/SO2=0.0
!
-!H2SO4/WC_OH=0.0
+!ORA2/SULF=0.0
!
-!H2SO4/WC_HO2=0.0
+!ORA2/CO=0.0
!
-!H2SO4/WC_CO2=0.0
+!ORA2/OH=-K067*<ORA2>
+ PJAC(:,31,14)=-TPK%K067(:)*PCONC(:,31)
!
-!H2SO4/WC_SO2=0.0
+!ORA2/HO2=+0.17307*K0102*<CARBOP>
+ PJAC(:,31,15)=+0.17307*TPK%K0102(:)*PCONC(:,39)
!
-!H2SO4/WC_H2SO4=+KTC46
- PJAC(:,14,102)=+TPK%KTC46(:)
+!ORA2/CH4=0.0
!
-!H2SO4/WC_RO21=0.0
+!ORA2/ETH=0.0
!
-!H2SO4/WC_RO25=0.0
+!ORA2/ALKA=0.0
!
-!H2SO4/WC_MEOH=0.0
+!ORA2/ALKE=+0.08143*K079*<O3>
+ PJAC(:,31,19)=+0.08143*TPK%K079(:)*PCONC(:,1)
!
-!H2SO4/WC_ETOH=0.0
+!ORA2/BIO=+0.00000*K080*<O3>
+ PJAC(:,31,20)=+0.00000*TPK%K080(:)*PCONC(:,1)
!
-!H2SO4/WC_ALCH=0.0
+!ORA2/ARO=0.0
!
-!H2SO4/WC_HCHO=0.0
+!ORA2/HCHO=0.0
!
-!H2SO4/WC_ALD2=0.0
+!ORA2/ALD=0.0
!
-!H2SO4/WC_GLY=0.0
+!ORA2/KET=0.0
!
-!H2SO4/WC_MGLY=0.0
+!ORA2/CARBO=+0.20595*K081*<O3>
+ PJAC(:,31,25)=+0.20595*TPK%K081(:)*PCONC(:,1)
!
-!H2SO4/WC_KETL=0.0
+!ORA2/ONIT=0.0
!
-!H2SO4/WC_ORA1=0.0
+!ORA2/PAN=0.0
!
-!H2SO4/WC_ORA2=0.0
+!ORA2/OP1=0.0
!
-!H2SO4/WC_ACID=0.0
+!ORA2/OP2=0.0
!
-!H2SO4/WC_RP16=0.0
+!ORA2/ORA1=0.0
!
-!H2SO4/WC_UR21=0.0
+!ORA2/ORA2=-K067*<OH>
+ PJAC(:,31,31)=-TPK%K067(:)*PCONC(:,14)
!
-!H2SO4/WC_UR28=0.0
+!ORA2/MO2=+0.13684*K109*<CARBOP>
+ PJAC(:,31,32)=+0.13684*TPK%K109(:)*PCONC(:,39)
!
-!H2SO4/WC_ACID2=0.0
+!ORA2/ALKAP=+0.49810*K111*<CARBOP>
+ PJAC(:,31,33)=+0.49810*TPK%K111(:)*PCONC(:,39)
!
-!H2SO4/WC_ASO3=0.0
+!ORA2/ALKEP=+0.49922*K112*<CARBOP>
+ PJAC(:,31,34)=+0.49922*TPK%K112(:)*PCONC(:,39)
!
-!H2SO4/WC_ASO4=0.0
+!ORA2/BIOP=+0.49400*K113*<CARBOP>
+ PJAC(:,31,35)=+0.49400*TPK%K113(:)*PCONC(:,39)
!
-!H2SO4/WC_ASO5=0.0
+!ORA2/PHO=0.0
!
-!H2SO4/WC_AHSO5=0.0
+!ORA2/ADD=0.0
!
-!H2SO4/WC_AHMS=0.0
+!ORA2/AROP=0.0
!
-!H2SO4/WR_O3=0.0
+!ORA2/CARBOP=+0.17307*K0102*<HO2>+0.13684*K109*<MO2>+0.49810*K111*<ALKAP>+0.499
+!22*K112*<ALKEP>+0.49400*K113*<BIOP>+0.09955*K115*<CARBOP>+0.09955*K115*<CARBOP
+!>+0.48963*K116*<OLN>
+ PJAC(:,31,39)=+0.17307*TPK%K0102(:)*PCONC(:,15)+0.13684*TPK%K109(:)*PCONC(:,32&
+&)+0.49810*TPK%K111(:)*PCONC(:,33)+0.49922*TPK%K112(:)*PCONC(:,34)+0.49400*TPK%&
+&K113(:)*PCONC(:,35)+0.09955*TPK%K115(:)*PCONC(:,39)+0.09955*TPK%K115(:)*PCONC(&
+&:,39)+0.48963*TPK%K116(:)*PCONC(:,40)
!
-!H2SO4/WR_H2O2=0.0
+!ORA2/OLN=+0.48963*K116*<CARBOP>
+ PJAC(:,31,40)=+0.48963*TPK%K116(:)*PCONC(:,39)
!
-!H2SO4/WR_NO=0.0
+!ORA2/XO2=0.0
!
-!H2SO4/WR_NO2=0.0
+!MO2/O3=+0.13966*K079*<ALKE>+0.03000*K080*<BIO>
+ PJAC(:,32,1)=+0.13966*TPK%K079(:)*PCONC(:,19)+0.03000*TPK%K080(:)*PCONC(:,20)
!
-!H2SO4/WR_NO3=0.0
+!MO2/H2O2=0.0
!
-!H2SO4/WR_N2O5=0.0
+!MO2/NO=-K090*<MO2>+0.09016*K091*<ALKAP>+0.78134*K095*<CARBOP>
+ PJAC(:,32,3)=-TPK%K090(:)*PCONC(:,32)+0.09016*TPK%K091(:)*PCONC(:,33)+0.78134*&
+&TPK%K095(:)*PCONC(:,39)
!
-!H2SO4/WR_HONO=0.0
+!MO2/NO2=0.0
!
-!H2SO4/WR_HNO3=0.0
+!MO2/NO3=-K119*<MO2>+0.09731*K120*<ALKAP>+0.91910*K124*<CARBOP>
+ PJAC(:,32,5)=-TPK%K119(:)*PCONC(:,32)+0.09731*TPK%K120(:)*PCONC(:,33)+0.91910*&
+&TPK%K124(:)*PCONC(:,39)
!
-!H2SO4/WR_HNO4=0.0
+!MO2/N2O5=0.0
!
-!H2SO4/WR_NH3=0.0
+!MO2/HONO=0.0
!
-!H2SO4/WR_OH=0.0
+!MO2/HNO3=0.0
!
-!H2SO4/WR_HO2=0.0
+!MO2/HNO4=0.0
!
-!H2SO4/WR_CO2=0.0
+!MO2/NH3=0.0
!
-!H2SO4/WR_SO2=0.0
+!MO2/SO2=0.0
!
-!H2SO4/WR_H2SO4=+KTR46
- PJAC(:,14,139)=+TPK%KTR46(:)
+!MO2/SULF=0.0
!
-!H2SO4/WR_RO21=0.0
+!MO2/CO=0.0
!
-!H2SO4/WR_RO25=0.0
+!MO2/OH=+K056*<CH4>+0.65*K068*<OP1>
+ PJAC(:,32,14)=+TPK%K056(:)*PCONC(:,16)+0.65*TPK%K068(:)*PCONC(:,28)
!
-!H2SO4/WR_MEOH=0.0
+!MO2/HO2=-K097*<MO2>
+ PJAC(:,32,15)=-TPK%K097(:)*PCONC(:,32)
!
-!H2SO4/WR_ETOH=0.0
+!MO2/CH4=+K056*<OH>
+ PJAC(:,32,16)=+TPK%K056(:)*PCONC(:,14)
!
-!H2SO4/WR_ALCH=0.0
+!MO2/ETH=0.0
!
-!H2SO4/WR_HCHO=0.0
+!MO2/ALKA=0.0
!
-!H2SO4/WR_ALD2=0.0
+!MO2/ALKE=+0.13966*K079*<O3>
+ PJAC(:,32,19)=+0.13966*TPK%K079(:)*PCONC(:,1)
!
-!H2SO4/WR_GLY=0.0
+!MO2/BIO=+0.03000*K080*<O3>
+ PJAC(:,32,20)=+0.03000*TPK%K080(:)*PCONC(:,1)
!
-!H2SO4/WR_MGLY=0.0
+!MO2/ARO=0.0
!
-!H2SO4/WR_KETL=0.0
+!MO2/HCHO=0.0
!
-!H2SO4/WR_ORA1=0.0
+!MO2/ALD=+K012
+ PJAC(:,32,23)=+TPK%K012(:)
!
-!H2SO4/WR_ORA2=0.0
+!MO2/KET=0.0
!
-!H2SO4/WR_ACID=0.0
+!MO2/CARBO=0.0
!
-!H2SO4/WR_RP16=0.0
+!MO2/ONIT=0.0
!
-!H2SO4/WR_UR21=0.0
+!MO2/PAN=0.0
!
-!H2SO4/WR_UR28=0.0
+!MO2/OP1=+0.65*K068*<OH>
+ PJAC(:,32,28)=+0.65*TPK%K068(:)*PCONC(:,14)
!
-!H2SO4/WR_ACID2=0.0
+!MO2/OP2=+0.03795*K014
+ PJAC(:,32,29)=+0.03795*TPK%K014(:)
!
-!H2SO4/WR_ASO3=0.0
+!MO2/ORA1=0.0
!
-!H2SO4/WR_ASO4=0.0
+!MO2/ORA2=0.0
!
-!H2SO4/WR_ASO5=0.0
+!MO2/MO2=-K090*<NO>-K097*<HO2>-K104*<MO2>-K104*<MO2>-K104*<MO2>-K104*<MO2>+0.01
+!390*K105*<ALKAP>-K105*<ALKAP>-K106*<ALKEP>-K107*<BIOP>-K108*<AROP>+0.56031*K10
+!9*<CARBOP>-K109*<CARBOP>-K110*<OLN>-K119*<NO3>-K127*<XO2>
+ PJAC(:,32,32)=-TPK%K090(:)*PCONC(:,3)-TPK%K097(:)*PCONC(:,15)-TPK%K104(:)*PCON&
+&C(:,32)-TPK%K104(:)*PCONC(:,32)-TPK%K104(:)*PCONC(:,32)-TPK%K104(:)*PCONC(:,32&
+&)+0.01390*TPK%K105(:)*PCONC(:,33)-TPK%K105(:)*PCONC(:,33)-TPK%K106(:)*PCONC(:,&
+&34)-TPK%K107(:)*PCONC(:,35)-TPK%K108(:)*PCONC(:,38)+0.56031*TPK%K109(:)*PCONC(&
+&:,39)-TPK%K109(:)*PCONC(:,39)-TPK%K110(:)*PCONC(:,40)-TPK%K119(:)*PCONC(:,5)-T&
+&PK%K127(:)*PCONC(:,41)
!
-!H2SO4/WR_AHSO5=0.0
+!MO2/ALKAP=+0.09016*K091*<NO>+0.01390*K105*<MO2>-K105*<MO2>+0.51480*K111*<CARBO
+!P>+0.09731*K120*<NO3>
+ PJAC(:,32,33)=+0.09016*TPK%K091(:)*PCONC(:,3)+0.01390*TPK%K105(:)*PCONC(:,32)-&
+&TPK%K105(:)*PCONC(:,32)+0.51480*TPK%K111(:)*PCONC(:,39)+0.09731*TPK%K120(:)*PC&
+&ONC(:,5)
!
-!H2SO4/WR_AHMS=0.0
+!MO2/ALKEP=-K106*<MO2>+0.50078*K112*<CARBOP>
+ PJAC(:,32,34)=-TPK%K106(:)*PCONC(:,32)+0.50078*TPK%K112(:)*PCONC(:,39)
!
-!OH/NO=-K019*<OH>+K026*<HO2>+K340*<RO258>
- PJAC(:,15,1)=-TPK%K019(:)*PCONC(:,15)+TPK%K026(:)*PCONC(:,10)+TPK%K340(:)*TPK%&
-&RO258(:)
+!MO2/BIOP=-K107*<MO2>+0.50600*K113*<CARBOP>
+ PJAC(:,32,35)=-TPK%K107(:)*PCONC(:,32)+0.50600*TPK%K113(:)*PCONC(:,39)
!
-!OH/NO2=-K022*<OH>
- PJAC(:,15,2)=-TPK%K022(:)*PCONC(:,15)
+!MO2/PHO=0.0
!
-!OH/O3=-K025*<OH>+K030*<HO2>+0.06*K051*<ETHE>+0.36*K056*<OLEL>+0.664*K066*<ISOP
-!>+0.36*K076*<OLEH>+0.89*K086*<BIOL>+0.89*K090*<BIOH>+0.36*K281*<MVK>+0.82*K282
-!*<MCR>
- PJAC(:,15,3)=-TPK%K025(:)*PCONC(:,15)+TPK%K030(:)*PCONC(:,10)+0.06*TPK%K051(:)&
-&*PCONC(:,16)+0.36*TPK%K056(:)*PCONC(:,17)+0.664*TPK%K066(:)*PCONC(:,35)+0.36*T&
-&PK%K076(:)*PCONC(:,18)+0.89*TPK%K086(:)*PCONC(:,36)+0.89*TPK%K090(:)*PCONC(:,3&
-&7)+0.36*TPK%K281(:)*PCONC(:,39)+0.82*TPK%K282(:)*PCONC(:,40)
+!MO2/ADD=0.0
!
-!OH/HONO=+0.9*K020-K039*<OH>
- PJAC(:,15,4)=+0.9*TPK%K020(:)-TPK%K039(:)*PCONC(:,15)
+!MO2/AROP=-K108*<MO2>+K114*<CARBOP>
+ PJAC(:,32,38)=-TPK%K108(:)*PCONC(:,32)+TPK%K114(:)*PCONC(:,39)
!
-!OH/HNO3=-K023*<OH>
- PJAC(:,15,5)=-TPK%K023(:)*PCONC(:,15)
+!MO2/CARBOP=+0.78134*K095*<NO>+0.56031*K109*<MO2>-K109*<MO2>+0.51480*K111*<ALKA
+!P>+0.50078*K112*<ALKEP>+0.50600*K113*<BIOP>+K114*<AROP>+1.66702*K115*<CARBOP>+
+!1.66702*K115*<CARBOP>+0.51037*K116*<OLN>+0.91910*K124*<NO3>+K128*<XO2>
+ PJAC(:,32,39)=+0.78134*TPK%K095(:)*PCONC(:,3)+0.56031*TPK%K109(:)*PCONC(:,32)-&
+&TPK%K109(:)*PCONC(:,32)+0.51480*TPK%K111(:)*PCONC(:,33)+0.50078*TPK%K112(:)*PC&
+&ONC(:,34)+0.50600*TPK%K113(:)*PCONC(:,35)+TPK%K114(:)*PCONC(:,38)+1.66702*TPK%&
+&K115(:)*PCONC(:,39)+1.66702*TPK%K115(:)*PCONC(:,39)+0.51037*TPK%K116(:)*PCONC(&
+&:,40)+0.91910*TPK%K124(:)*PCONC(:,5)+TPK%K128(:)*PCONC(:,41)
!
-!OH/HNO4=-K029*<OH>
- PJAC(:,15,6)=-TPK%K029(:)*PCONC(:,15)
+!MO2/OLN=-K110*<MO2>+0.51037*K116*<CARBOP>
+ PJAC(:,32,40)=-TPK%K110(:)*PCONC(:,32)+0.51037*TPK%K116(:)*PCONC(:,39)
!
-!OH/N2O5=0.0
+!MO2/XO2=-K127*<MO2>+K128*<CARBOP>
+ PJAC(:,32,41)=-TPK%K127(:)*PCONC(:,32)+TPK%K128(:)*PCONC(:,39)
+!
+!ALKAP/O3=+0.09815*K079*<ALKE>+0.00000*K080*<BIO>
+ PJAC(:,33,1)=+0.09815*TPK%K079(:)*PCONC(:,19)+0.00000*TPK%K080(:)*PCONC(:,20)
+!
+!ALKAP/H2O2=0.0
+!
+!ALKAP/NO=+0.08187*K091*<ALKAP>-K091*<ALKAP>
+ PJAC(:,33,3)=+0.08187*TPK%K091(:)*PCONC(:,33)-TPK%K091(:)*PCONC(:,33)
+!
+!ALKAP/NO2=0.0
+!
+!ALKAP/NO3=+0.08994*K120*<ALKAP>-K120*<ALKAP>
+ PJAC(:,33,5)=+0.08994*TPK%K120(:)*PCONC(:,33)-TPK%K120(:)*PCONC(:,33)
+!
+!ALKAP/N2O5=0.0
+!
+!ALKAP/HONO=0.0
+!
+!ALKAP/HNO3=0.0
+!
+!ALKAP/HNO4=0.0
+!
+!ALKAP/NH3=0.0
+!
+!ALKAP/SO2=0.0
+!
+!ALKAP/SULF=0.0
+!
+!ALKAP/CO=0.0
+!
+!ALKAP/OH=+K057*<ETH>+0.87811*K058*<ALKA>+0.40341*K069*<OP2>+1.00000*K071*<ONIT
+!>
+ PJAC(:,33,14)=+TPK%K057(:)*PCONC(:,17)+0.87811*TPK%K058(:)*PCONC(:,18)+0.40341&
+&*TPK%K069(:)*PCONC(:,29)+1.00000*TPK%K071(:)*PCONC(:,26)
+!
+!ALKAP/HO2=-K098*<ALKAP>
+ PJAC(:,33,15)=-TPK%K098(:)*PCONC(:,33)
+!
+!ALKAP/CH4=0.0
+!
+!ALKAP/ETH=+K057*<OH>
+ PJAC(:,33,17)=+TPK%K057(:)*PCONC(:,14)
+!
+!ALKAP/ALKA=+0.87811*K058*<OH>
+ PJAC(:,33,18)=+0.87811*TPK%K058(:)*PCONC(:,14)
+!
+!ALKAP/ALKE=+0.09815*K079*<O3>
+ PJAC(:,33,19)=+0.09815*TPK%K079(:)*PCONC(:,1)
+!
+!ALKAP/BIO=+0.00000*K080*<O3>
+ PJAC(:,33,20)=+0.00000*TPK%K080(:)*PCONC(:,1)
+!
+!ALKAP/ARO=0.0
+!
+!ALKAP/HCHO=0.0
+!
+!ALKAP/ALD=0.0
+!
+!ALKAP/KET=+1.00000*K015
+ PJAC(:,33,24)=+1.00000*TPK%K015(:)
+!
+!ALKAP/CARBO=0.0
+!
+!ALKAP/ONIT=+1.00000*K071*<OH>
+ PJAC(:,33,26)=+1.00000*TPK%K071(:)*PCONC(:,14)
+!
+!ALKAP/PAN=0.0
+!
+!ALKAP/OP1=0.0
+!
+!ALKAP/OP2=+0.40341*K069*<OH>
+ PJAC(:,33,29)=+0.40341*TPK%K069(:)*PCONC(:,14)
+!
+!ALKAP/ORA1=0.0
+!
+!ALKAP/ORA2=0.0
!
-!OH/NO3=+0.8*K033*<HO2>-K040*<OH>
- PJAC(:,15,8)=+0.8*TPK%K033(:)*PCONC(:,10)-TPK%K040(:)*PCONC(:,15)
-!
-!OH/NH3=-K345*<OH>
- PJAC(:,15,9)=-TPK%K345(:)*PCONC(:,15)
-!
-!OH/HO2=+K026*<NO>+K030*<O3>+0.8*K033*<NO3>-K042*<OH>+K112*<RO21>+K115*<RO22>+K
-!118*<RO23>+K121*<RO24>+K124*<RO25>+K146*<RO27>+K152*<RO29>+K155*<RO210>+K158*<
-!RO211>+K161*<RO212>+K164*<RO213>+K170*<RO214>+K173*<RO215>+K176*<RO216>+K179*<
-!RO217>+K182*<RO218>+K185*<RO219>+K188*<RO220>+K191*<RO221>+K194*<RO222>+K197*<
-!RO223>+K200*<RO224>+K203*<RO225>+K206*<RO226>+K209*<RO227>+K212*<RO228>+K215*<
-!RO229>+K218*<RO240>+K220*<RO230>+K223*<RO231>+K226*<RO232>+K229*<RO241>+K233*<
-!RO233>+K236*<RO242>+K240*<RO234>+K243*<RO243>+K247*<RO235>+K250*<RO244>+K254*<
-!RO236>+K257*<RO245>+K261*<RO237>+K264*<RO246>+K268*<RO238>+K271*<RO247>+K287*<
-!RO249>
- PJAC(:,15,10)=+TPK%K026(:)*PCONC(:,1)+TPK%K030(:)*PCONC(:,3)+0.8*TPK%K033(:)*P&
-&CONC(:,8)-TPK%K042(:)*PCONC(:,15)+TPK%K112(:)*PCONC(:,86)+TPK%K115(:)*TPK%RO22&
-&(:)+TPK%K118(:)*TPK%RO23(:)+TPK%K121(:)*TPK%RO24(:)+TPK%K124(:)*PCONC(:,87)+TP&
-&K%K146(:)*TPK%RO27(:)+TPK%K152(:)*TPK%RO29(:)+TPK%K155(:)*TPK%RO210(:)+TPK%K15&
-&8(:)*TPK%RO211(:)+TPK%K161(:)*TPK%RO212(:)+TPK%K164(:)*TPK%RO213(:)+TPK%K170(:&
-&)*TPK%RO214(:)+TPK%K173(:)*TPK%RO215(:)+TPK%K176(:)*TPK%RO216(:)+TPK%K179(:)*T&
-&PK%RO217(:)+TPK%K182(:)*TPK%RO218(:)+TPK%K185(:)*TPK%RO219(:)+TPK%K188(:)*TPK%&
-&RO220(:)+TPK%K191(:)*TPK%RO221(:)+TPK%K194(:)*TPK%RO222(:)+TPK%K197(:)*TPK%RO2&
-&23(:)+TPK%K200(:)*TPK%RO224(:)+TPK%K203(:)*TPK%RO225(:)+TPK%K206(:)*TPK%RO226(&
-&:)+TPK%K209(:)*TPK%RO227(:)+TPK%K212(:)*TPK%RO228(:)+TPK%K215(:)*TPK%RO229(:)+&
-&TPK%K218(:)*TPK%RO240(:)+TPK%K220(:)*TPK%RO230(:)+TPK%K223(:)*TPK%RO231(:)+TPK&
-&%K226(:)*TPK%RO232(:)+TPK%K229(:)*TPK%RO241(:)+TPK%K233(:)*TPK%RO233(:)+TPK%K2&
-&36(:)*TPK%RO242(:)+TPK%K240(:)*TPK%RO234(:)+TPK%K243(:)*TPK%RO243(:)+TPK%K247(&
-&:)*TPK%RO235(:)+TPK%K250(:)*TPK%RO244(:)+TPK%K254(:)*TPK%RO236(:)+TPK%K257(:)*&
-&TPK%RO245(:)+TPK%K261(:)*TPK%RO237(:)+TPK%K264(:)*TPK%RO246(:)+TPK%K268(:)*TPK&
-&%RO238(:)+TPK%K271(:)*TPK%RO247(:)+TPK%K287(:)*TPK%RO249(:)
-!
-!OH/CO=-K024*<OH>
- PJAC(:,15,11)=-TPK%K024(:)*PCONC(:,15)
-!
-!OH/H2O2=+2.*K036-K037*<OH>
- PJAC(:,15,12)=+2.*TPK%K036(:)-TPK%K037(:)*PCONC(:,15)
-!
-!OH/SO2=-K035*<OH>
- PJAC(:,15,13)=-TPK%K035(:)*PCONC(:,15)
-!
-!OH/H2SO4=0.0
-!
-!OH/OH=-K019*<NO>-K022*<NO2>-K023*<HNO3>-K024*<CO>-K025*<O3>-K029*<HNO4>-K035*<
-!SO2>-K037*<H2O2>-K039*<HONO>-K040*<NO3>-K042*<HO2>-K043*<CH4>-K046*<HCHO>-K048
-!*<MEOH>-K049*<ETHE>-K053*<ETOH>-K054*<OLEL>-K058*<ALKL>-K060*<ALD2>-K062*<KETL
-!>-K064*<ISOP>-K068*<MTBE>-K069*<ALCH>-K070*<KETH>-K073*<AROO>-K074*<OLEH>-K078
-!*<ALKM>-K079*<AROL>-K080*<AROH>-K082*<ARAL>-K083*<ARAC>-K084*<BIOL>-K088*<BIOH
-!>-K092*<PAH>-K093*<ALKH>-K272*<MVK>-K273*<MCR>-K274*<MGLY>-K303*<RPR5>-K304*<R
-!PR1>-K305*<RP16>-K306*<RPRL>-K312*<RPR3>-K322*<RPR7>-K323*<RPG7>-K324*<RPR8>-K
-!325*<RP10>-K326*<RP11>-K334*<RPG3>-K335*<RPG2>-K337*<RP18>-K345*<NH3>-K347*<OR
-!A1>-K348*<ORA2>-K349*<ACID>-KTC11-KTR11
- PJAC(:,15,15)=-TPK%K019(:)*PCONC(:,1)-TPK%K022(:)*PCONC(:,2)-TPK%K023(:)*PCONC&
-&(:,5)-TPK%K024(:)*PCONC(:,11)-TPK%K025(:)*PCONC(:,3)-TPK%K029(:)*PCONC(:,6)-TP&
-&K%K035(:)*PCONC(:,13)-TPK%K037(:)*PCONC(:,12)-TPK%K039(:)*PCONC(:,4)-TPK%K040(&
-&:)*PCONC(:,8)-TPK%K042(:)*PCONC(:,10)-TPK%K043(:)*TPK%CH4(:)-TPK%K046(:)*PCONC&
-&(:,28)-TPK%K048(:)*PCONC(:,32)-TPK%K049(:)*PCONC(:,16)-TPK%K053(:)*PCONC(:,33)&
-&-TPK%K054(:)*PCONC(:,17)-TPK%K058(:)*PCONC(:,19)-TPK%K060(:)*PCONC(:,29)-TPK%K&
-&062(:)*PCONC(:,30)-TPK%K064(:)*PCONC(:,35)-TPK%K068(:)*PCONC(:,38)-TPK%K069(:)&
-&*PCONC(:,34)-TPK%K070(:)*PCONC(:,31)-TPK%K073(:)*PCONC(:,24)-TPK%K074(:)*PCONC&
-&(:,18)-TPK%K078(:)*PCONC(:,20)-TPK%K079(:)*PCONC(:,23)-TPK%K080(:)*PCONC(:,22)&
-&-TPK%K082(:)*PCONC(:,25)-TPK%K083(:)*PCONC(:,26)-TPK%K084(:)*PCONC(:,36)-TPK%K&
-&088(:)*PCONC(:,37)-TPK%K092(:)*PCONC(:,27)-TPK%K093(:)*PCONC(:,21)-TPK%K272(:)&
-&*PCONC(:,39)-TPK%K273(:)*PCONC(:,40)-TPK%K274(:)*PCONC(:,41)-TPK%K303(:)*PCONC&
-&(:,70)-TPK%K304(:)*PCONC(:,69)-TPK%K305(:)*PCONC(:,74)-TPK%K306(:)*PCONC(:,75)&
-&-TPK%K312(:)*PCONC(:,57)-TPK%K322(:)*PCONC(:,62)-TPK%K323(:)*PCONC(:,63)-TPK%K&
-&324(:)*PCONC(:,71)-TPK%K325(:)*PCONC(:,72)-TPK%K326(:)*PCONC(:,73)-TPK%K334(:)&
-&*PCONC(:,52)-TPK%K335(:)*PCONC(:,50)-TPK%K337(:)*PCONC(:,51)-TPK%K345(:)*PCONC&
-&(:,9)-TPK%K347(:)*PCONC(:,43)-TPK%K348(:)*PCONC(:,44)-TPK%K349(:)*PCONC(:,45)-&
-&TPK%KTC11(:)-TPK%KTR11(:)
+!ALKAP/MO2=+0.00385*K105*<ALKAP>-K105*<ALKAP>
+ PJAC(:,33,32)=+0.00385*TPK%K105(:)*PCONC(:,33)-TPK%K105(:)*PCONC(:,33)
!
-!OH/ETHE=-K049*<OH>+0.06*K051*<O3>
- PJAC(:,15,16)=-TPK%K049(:)*PCONC(:,15)+0.06*TPK%K051(:)*PCONC(:,3)
+!ALKAP/ALKAP=+0.08187*K091*<NO>-K091*<NO>-K098*<HO2>+0.00385*K105*<MO2>-K105*<M
+!O2>+0.00828*K111*<CARBOP>-K111*<CARBOP>+0.08994*K120*<NO3>-K120*<NO3>
+ PJAC(:,33,33)=+0.08187*TPK%K091(:)*PCONC(:,3)-TPK%K091(:)*PCONC(:,3)-TPK%K098(&
+&:)*PCONC(:,15)+0.00385*TPK%K105(:)*PCONC(:,32)-TPK%K105(:)*PCONC(:,32)+0.00828&
+&*TPK%K111(:)*PCONC(:,39)-TPK%K111(:)*PCONC(:,39)+0.08994*TPK%K120(:)*PCONC(:,5&
+&)-TPK%K120(:)*PCONC(:,5)
!
-!OH/OLEL=-K054*<OH>+0.36*K056*<O3>
- PJAC(:,15,17)=-TPK%K054(:)*PCONC(:,15)+0.36*TPK%K056(:)*PCONC(:,3)
+!ALKAP/ALKEP=0.0
!
-!OH/OLEH=-K074*<OH>+0.36*K076*<O3>
- PJAC(:,15,18)=-TPK%K074(:)*PCONC(:,15)+0.36*TPK%K076(:)*PCONC(:,3)
+!ALKAP/BIOP=0.0
!
-!OH/ALKL=-K058*<OH>
- PJAC(:,15,19)=-TPK%K058(:)*PCONC(:,15)
+!ALKAP/PHO=0.0
!
-!OH/ALKM=-K078*<OH>
- PJAC(:,15,20)=-TPK%K078(:)*PCONC(:,15)
+!ALKAP/ADD=0.0
!
-!OH/ALKH=-K093*<OH>
- PJAC(:,15,21)=-TPK%K093(:)*PCONC(:,15)
+!ALKAP/AROP=0.0
!
-!OH/AROH=-K080*<OH>
- PJAC(:,15,22)=-TPK%K080(:)*PCONC(:,15)
+!ALKAP/CARBOP=+0.00828*K111*<ALKAP>-K111*<ALKAP>
+ PJAC(:,33,39)=+0.00828*TPK%K111(:)*PCONC(:,33)-TPK%K111(:)*PCONC(:,33)
!
-!OH/AROL=-K079*<OH>
- PJAC(:,15,23)=-TPK%K079(:)*PCONC(:,15)
+!ALKAP/OLN=0.0
!
-!OH/AROO=-K073*<OH>
- PJAC(:,15,24)=-TPK%K073(:)*PCONC(:,15)
+!ALKAP/XO2=0.0
!
-!OH/ARAL=-K082*<OH>
- PJAC(:,15,25)=-TPK%K082(:)*PCONC(:,15)
+!ALKEP/O3=0.0
!
-!OH/ARAC=-K083*<OH>
- PJAC(:,15,26)=-TPK%K083(:)*PCONC(:,15)
+!ALKEP/H2O2=0.0
!
-!OH/PAH=-K092*<OH>
- PJAC(:,15,27)=-TPK%K092(:)*PCONC(:,15)
+!ALKEP/NO=-K092*<ALKEP>
+ PJAC(:,34,3)=-TPK%K092(:)*PCONC(:,34)
!
-!OH/HCHO=-K046*<OH>
- PJAC(:,15,28)=-TPK%K046(:)*PCONC(:,15)
+!ALKEP/NO2=0.0
!
-!OH/ALD2=-K060*<OH>
- PJAC(:,15,29)=-TPK%K060(:)*PCONC(:,15)
+!ALKEP/NO3=-K121*<ALKEP>
+ PJAC(:,34,5)=-TPK%K121(:)*PCONC(:,34)
!
-!OH/KETL=-K062*<OH>
- PJAC(:,15,30)=-TPK%K062(:)*PCONC(:,15)
+!ALKEP/N2O5=0.0
!
-!OH/KETH=-K070*<OH>
- PJAC(:,15,31)=-TPK%K070(:)*PCONC(:,15)
+!ALKEP/HONO=0.0
!
-!OH/MEOH=-K048*<OH>
- PJAC(:,15,32)=-TPK%K048(:)*PCONC(:,15)
+!ALKEP/HNO3=0.0
!
-!OH/ETOH=-K053*<OH>
- PJAC(:,15,33)=-TPK%K053(:)*PCONC(:,15)
+!ALKEP/HNO4=0.0
!
-!OH/ALCH=-K069*<OH>
- PJAC(:,15,34)=-TPK%K069(:)*PCONC(:,15)
+!ALKEP/NH3=0.0
!
-!OH/ISOP=-K064*<OH>+0.664*K066*<O3>
- PJAC(:,15,35)=-TPK%K064(:)*PCONC(:,15)+0.664*TPK%K066(:)*PCONC(:,3)
+!ALKEP/SO2=0.0
!
-!OH/BIOL=-K084*<OH>+0.89*K086*<O3>
- PJAC(:,15,36)=-TPK%K084(:)*PCONC(:,15)+0.89*TPK%K086(:)*PCONC(:,3)
+!ALKEP/SULF=0.0
!
-!OH/BIOH=-K088*<OH>+0.89*K090*<O3>
- PJAC(:,15,37)=-TPK%K088(:)*PCONC(:,15)+0.89*TPK%K090(:)*PCONC(:,3)
+!ALKEP/CO=0.0
!
-!OH/MTBE=-K068*<OH>
- PJAC(:,15,38)=-TPK%K068(:)*PCONC(:,15)
+!ALKEP/OH=+1.02529*K059*<ALKE>
+ PJAC(:,34,14)=+1.02529*TPK%K059(:)*PCONC(:,19)
!
-!OH/MVK=-K272*<OH>+0.36*K281*<O3>
- PJAC(:,15,39)=-TPK%K272(:)*PCONC(:,15)+0.36*TPK%K281(:)*PCONC(:,3)
+!ALKEP/HO2=-K099*<ALKEP>
+ PJAC(:,34,15)=-TPK%K099(:)*PCONC(:,34)
!
-!OH/MCR=-K273*<OH>+0.82*K282*<O3>
- PJAC(:,15,40)=-TPK%K273(:)*PCONC(:,15)+0.82*TPK%K282(:)*PCONC(:,3)
+!ALKEP/CH4=0.0
!
-!OH/MGLY=-K274*<OH>
- PJAC(:,15,41)=-TPK%K274(:)*PCONC(:,15)
+!ALKEP/ETH=0.0
!
-!OH/GLY=0.0
+!ALKEP/ALKA=0.0
!
-!OH/ORA1=-K347*<OH>
- PJAC(:,15,43)=-TPK%K347(:)*PCONC(:,15)
+!ALKEP/ALKE=+1.02529*K059*<OH>
+ PJAC(:,34,19)=+1.02529*TPK%K059(:)*PCONC(:,14)
!
-!OH/ORA2=-K348*<OH>
- PJAC(:,15,44)=-TPK%K348(:)*PCONC(:,15)
+!ALKEP/BIO=0.0
!
-!OH/ACID=-K349*<OH>
- PJAC(:,15,45)=-TPK%K349(:)*PCONC(:,15)
+!ALKEP/ARO=0.0
!
-!OH/UR28=0.0
+!ALKEP/HCHO=0.0
!
-!OH/UR21=0.0
+!ALKEP/ALD=0.0
!
-!OH/URG2=0.0
+!ALKEP/KET=0.0
!
-!OH/UR26=0.0
+!ALKEP/CARBO=0.0
!
-!OH/RPG2=-K335*<OH>
- PJAC(:,15,50)=-TPK%K335(:)*PCONC(:,15)
+!ALKEP/ONIT=0.0
!
-!OH/RP18=-K337*<OH>
- PJAC(:,15,51)=-TPK%K337(:)*PCONC(:,15)
+!ALKEP/PAN=0.0
!
-!OH/RPG3=-K334*<OH>
- PJAC(:,15,52)=-TPK%K334(:)*PCONC(:,15)
+!ALKEP/OP1=0.0
!
-!OH/URG4=0.0
+!ALKEP/OP2=0.0
!
-!OH/UR8=0.0
+!ALKEP/ORA1=0.0
!
-!OH/UR17=0.0
+!ALKEP/ORA2=0.0
!
-!OH/UR7=0.0
+!ALKEP/MO2=-K106*<ALKEP>
+ PJAC(:,34,32)=-TPK%K106(:)*PCONC(:,34)
!
-!OH/RPR3=-K312*<OH>
- PJAC(:,15,57)=-TPK%K312(:)*PCONC(:,15)
+!ALKEP/ALKAP=0.0
!
-!OH/URG6=0.0
+!ALKEP/ALKEP=-K092*<NO>-K099*<HO2>-K106*<MO2>-K112*<CARBOP>-K121*<NO3>
+ PJAC(:,34,34)=-TPK%K092(:)*PCONC(:,3)-TPK%K099(:)*PCONC(:,15)-TPK%K106(:)*PCON&
+&C(:,32)-TPK%K112(:)*PCONC(:,39)-TPK%K121(:)*PCONC(:,5)
!
-!OH/UR22=0.0
+!ALKEP/BIOP=0.0
!
-!OH/URG7=0.0
+!ALKEP/PHO=0.0
!
-!OH/RPR4=0.0
+!ALKEP/ADD=0.0
!
-!OH/RPR7=-K322*<OH>
- PJAC(:,15,62)=-TPK%K322(:)*PCONC(:,15)
+!ALKEP/AROP=0.0
!
-!OH/RPG7=-K323*<OH>
- PJAC(:,15,63)=-TPK%K323(:)*PCONC(:,15)
+!ALKEP/CARBOP=-K112*<ALKEP>
+ PJAC(:,34,39)=-TPK%K112(:)*PCONC(:,34)
!
-!OH/URG8=0.0
+!ALKEP/OLN=0.0
!
-!OH/UR19=0.0
+!ALKEP/XO2=0.0
!
-!OH/URG9=0.0
+!BIOP/O3=0.0
!
-!OH/AP7=0.0
+!BIOP/H2O2=0.0
!
-!OH/URG10=0.0
+!BIOP/NO=-K093*<BIOP>
+ PJAC(:,35,3)=-TPK%K093(:)*PCONC(:,35)
!
-!OH/RPR1=-K304*<OH>
- PJAC(:,15,69)=-TPK%K304(:)*PCONC(:,15)
+!BIOP/NO2=0.0
!
-!OH/RPR5=-K303*<OH>
- PJAC(:,15,70)=-TPK%K303(:)*PCONC(:,15)
+!BIOP/NO3=-K122*<BIOP>
+ PJAC(:,35,5)=-TPK%K122(:)*PCONC(:,35)
!
-!OH/RPR8=-K324*<OH>
- PJAC(:,15,71)=-TPK%K324(:)*PCONC(:,15)
+!BIOP/N2O5=0.0
!
-!OH/RP10=-K325*<OH>
- PJAC(:,15,72)=-TPK%K325(:)*PCONC(:,15)
+!BIOP/HONO=0.0
!
-!OH/RP11=-K326*<OH>
- PJAC(:,15,73)=-TPK%K326(:)*PCONC(:,15)
+!BIOP/HNO3=0.0
!
-!OH/RP16=-K305*<OH>+K339
- PJAC(:,15,74)=-TPK%K305(:)*PCONC(:,15)+TPK%K339(:)
+!BIOP/HNO4=0.0
!
-!OH/RPRL=-K306*<OH>
- PJAC(:,15,75)=-TPK%K306(:)*PCONC(:,15)
+!BIOP/NH3=0.0
!
-!OH/APAN=0.0
+!BIOP/SO2=0.0
!
-!OH/PAN1=0.0
+!BIOP/SULF=0.0
!
-!OH/PAN2=0.0
+!BIOP/CO=0.0
!
-!OH/PAN3=0.0
+!BIOP/OH=+0.00000*K059*<ALKE>+1.00000*K060*<BIO>
+ PJAC(:,35,14)=+0.00000*TPK%K059(:)*PCONC(:,19)+1.00000*TPK%K060(:)*PCONC(:,20)
!
-!OH/PAN4=0.0
+!BIOP/HO2=-K0100*<BIOP>
+ PJAC(:,35,15)=-TPK%K0100(:)*PCONC(:,35)
!
-!OH/PAN6=0.0
+!BIOP/CH4=0.0
!
-!OH/PAN7=0.0
+!BIOP/ETH=0.0
!
-!OH/PAN8=0.0
+!BIOP/ALKA=0.0
!
-!OH/PN10=0.0
+!BIOP/ALKE=+0.00000*K059*<OH>
+ PJAC(:,35,19)=+0.00000*TPK%K059(:)*PCONC(:,14)
!
-!OH/RO2T=+K293*<RO251>+K296*<RO252>+K299*<RO253>+K342*<RO258>
- PJAC(:,15,85)=+TPK%K293(:)*TPK%RO251(:)+TPK%K296(:)*TPK%RO252(:)+TPK%K299(:)*T&
-&PK%RO253(:)+TPK%K342(:)*TPK%RO258(:)
+!BIOP/BIO=+1.00000*K060*<OH>
+ PJAC(:,35,20)=+1.00000*TPK%K060(:)*PCONC(:,14)
!
-!OH/RO21=+K112*<HO2>
- PJAC(:,15,86)=+TPK%K112(:)*PCONC(:,10)
+!BIOP/ARO=0.0
!
-!OH/RO25=+K124*<HO2>
- PJAC(:,15,87)=+TPK%K124(:)*PCONC(:,10)
+!BIOP/HCHO=0.0
!
-!OH/WC_O3=0.0
-!
-!OH/WC_H2O2=0.0
-!
-!OH/WC_NO=0.0
-!
-!OH/WC_NO2=0.0
-!
-!OH/WC_NO3=0.0
-!
-!OH/WC_N2O5=0.0
-!
-!OH/WC_HONO=0.0
-!
-!OH/WC_HNO3=0.0
-!
-!OH/WC_HNO4=0.0
+!BIOP/ALD=0.0
!
-!OH/WC_NH3=0.0
+!BIOP/KET=0.0
!
-!OH/WC_OH=+KTC42
- PJAC(:,15,98)=+TPK%KTC42(:)
+!BIOP/CARBO=0.0
!
-!OH/WC_HO2=0.0
+!BIOP/ONIT=0.0
!
-!OH/WC_CO2=0.0
+!BIOP/PAN=0.0
!
-!OH/WC_SO2=0.0
+!BIOP/OP1=0.0
!
-!OH/WC_H2SO4=0.0
+!BIOP/OP2=0.0
!
-!OH/WC_RO21=0.0
+!BIOP/ORA1=0.0
!
-!OH/WC_RO25=0.0
+!BIOP/ORA2=0.0
!
-!OH/WC_MEOH=0.0
+!BIOP/MO2=-K107*<BIOP>
+ PJAC(:,35,32)=-TPK%K107(:)*PCONC(:,35)
!
-!OH/WC_ETOH=0.0
+!BIOP/ALKAP=0.0
!
-!OH/WC_ALCH=0.0
+!BIOP/ALKEP=0.0
!
-!OH/WC_HCHO=0.0
+!BIOP/BIOP=-K093*<NO>-K0100*<HO2>-K107*<MO2>-K113*<CARBOP>-K122*<NO3>
+ PJAC(:,35,35)=-TPK%K093(:)*PCONC(:,3)-TPK%K0100(:)*PCONC(:,15)-TPK%K107(:)*PCO&
+&NC(:,32)-TPK%K113(:)*PCONC(:,39)-TPK%K122(:)*PCONC(:,5)
!
-!OH/WC_ALD2=0.0
+!BIOP/PHO=0.0
!
-!OH/WC_GLY=0.0
+!BIOP/ADD=0.0
!
-!OH/WC_MGLY=0.0
+!BIOP/AROP=0.0
!
-!OH/WC_KETL=0.0
+!BIOP/CARBOP=-K113*<BIOP>
+ PJAC(:,35,39)=-TPK%K113(:)*PCONC(:,35)
!
-!OH/WC_ORA1=0.0
+!BIOP/OLN=0.0
!
-!OH/WC_ORA2=0.0
+!BIOP/XO2=0.0
!
-!OH/WC_ACID=0.0
+RETURN
+END SUBROUTINE SUBJ6
!
-!OH/WC_RP16=0.0
+SUBROUTINE SUBJ7
!
-!OH/WC_UR21=0.0
+!Indices 36 a 40
!
-!OH/WC_UR28=0.0
!
-!OH/WC_ACID2=0.0
+!PHO/O3=0.0
!
-!OH/WC_ASO3=0.0
+!PHO/H2O2=0.0
!
-!OH/WC_ASO4=0.0
+!PHO/NO=0.0
!
-!OH/WC_ASO5=0.0
+!PHO/NO2=-K083*<PHO>
+ PJAC(:,36,4)=-TPK%K083(:)*PCONC(:,36)
!
-!OH/WC_AHSO5=0.0
+!PHO/NO3=+K075*<ARO>
+ PJAC(:,36,5)=+TPK%K075(:)*PCONC(:,21)
!
-!OH/WC_AHMS=0.0
+!PHO/N2O5=0.0
!
-!OH/WR_O3=0.0
+!PHO/HONO=0.0
!
-!OH/WR_H2O2=0.0
+!PHO/HNO3=0.0
!
-!OH/WR_NO=0.0
+!PHO/HNO4=0.0
!
-!OH/WR_NO2=0.0
+!PHO/NH3=0.0
!
-!OH/WR_NO3=0.0
+!PHO/SO2=0.0
!
-!OH/WR_N2O5=0.0
+!PHO/SULF=0.0
!
-!OH/WR_HONO=0.0
+!PHO/CO=0.0
!
-!OH/WR_HNO3=0.0
+!PHO/OH=+0.00276*K061*<ARO>
+ PJAC(:,36,14)=+0.00276*TPK%K061(:)*PCONC(:,21)
!
-!OH/WR_HNO4=0.0
+!PHO/HO2=-K084*<PHO>
+ PJAC(:,36,15)=-TPK%K084(:)*PCONC(:,36)
!
-!OH/WR_NH3=0.0
+!PHO/CH4=0.0
!
-!OH/WR_OH=+KTR42
- PJAC(:,15,135)=+TPK%KTR42(:)
+!PHO/ETH=0.0
!
-!OH/WR_HO2=0.0
+!PHO/ALKA=0.0
!
-!OH/WR_CO2=0.0
+!PHO/ALKE=0.0
!
-!OH/WR_SO2=0.0
+!PHO/BIO=0.0
!
-!OH/WR_H2SO4=0.0
+!PHO/ARO=+0.00276*K061*<OH>+K075*<NO3>
+ PJAC(:,36,21)=+0.00276*TPK%K061(:)*PCONC(:,14)+TPK%K075(:)*PCONC(:,5)
!
-!OH/WR_RO21=0.0
+!PHO/HCHO=0.0
!
-!OH/WR_RO25=0.0
+!PHO/ALD=0.0
!
-!OH/WR_MEOH=0.0
+!PHO/KET=0.0
!
-!OH/WR_ETOH=0.0
+!PHO/CARBO=0.0
!
-!OH/WR_ALCH=0.0
+!PHO/ONIT=0.0
!
-!OH/WR_HCHO=0.0
+!PHO/PAN=0.0
!
-!OH/WR_ALD2=0.0
+!PHO/OP1=0.0
!
-!OH/WR_GLY=0.0
+!PHO/OP2=0.0
!
-!OH/WR_MGLY=0.0
+!PHO/ORA1=0.0
!
-!OH/WR_KETL=0.0
+!PHO/ORA2=0.0
!
-!OH/WR_ORA1=0.0
+!PHO/MO2=0.0
!
-!OH/WR_ORA2=0.0
+!PHO/ALKAP=0.0
!
-!OH/WR_ACID=0.0
+!PHO/ALKEP=0.0
!
-!OH/WR_RP16=0.0
+!PHO/BIOP=0.0
!
-!OH/WR_UR21=0.0
+!PHO/PHO=-K083*<NO2>-K084*<HO2>
+ PJAC(:,36,36)=-TPK%K083(:)*PCONC(:,4)-TPK%K084(:)*PCONC(:,15)
!
-!OH/WR_UR28=0.0
+!PHO/ADD=0.0
!
-!OH/WR_ACID2=0.0
+!PHO/AROP=0.0
!
-!OH/WR_ASO3=0.0
+!PHO/CARBOP=0.0
!
-!OH/WR_ASO4=0.0
+!PHO/OLN=0.0
!
-!OH/WR_ASO5=0.0
+!PHO/XO2=0.0
!
-!OH/WR_AHSO5=0.0
+!ADD/O3=-K087*<ADD>
+ PJAC(:,37,1)=-TPK%K087(:)*PCONC(:,37)
!
-!OH/WR_AHMS=0.0
+!ADD/H2O2=0.0
!
-RETURN
-END SUBROUTINE SUBJ2
+!ADD/NO=0.0
!
-SUBROUTINE SUBJ3
+!ADD/NO2=-K085*<ADD>
+ PJAC(:,37,4)=-TPK%K085(:)*PCONC(:,37)
!
-!Indices 16 a 20
+!ADD/NO3=0.0
!
+!ADD/N2O5=0.0
!
-!ETHE/NO=0.0
+!ADD/HONO=0.0
!
-!ETHE/NO2=0.0
+!ADD/HNO3=0.0
!
-!ETHE/O3=-K051*<ETHE>
- PJAC(:,16,3)=-TPK%K051(:)*PCONC(:,16)
+!ADD/HNO4=0.0
!
-!ETHE/HONO=0.0
+!ADD/NH3=0.0
!
-!ETHE/HNO3=0.0
+!ADD/SO2=0.0
!
-!ETHE/HNO4=0.0
+!ADD/SULF=0.0
!
-!ETHE/N2O5=0.0
+!ADD/CO=0.0
!
-!ETHE/NO3=-K050*<ETHE>
- PJAC(:,16,8)=-TPK%K050(:)*PCONC(:,16)
+!ADD/OH=+0.93968*K061*<ARO>
+ PJAC(:,37,14)=+0.93968*TPK%K061(:)*PCONC(:,21)
!
-!ETHE/NH3=0.0
+!ADD/HO2=0.0
!
-!ETHE/HO2=0.0
+!ADD/CH4=0.0
!
-!ETHE/CO=0.0
+!ADD/ETH=0.0
!
-!ETHE/H2O2=0.0
+!ADD/ALKA=0.0
!
-!ETHE/SO2=0.0
+!ADD/ALKE=0.0
!
-!ETHE/H2SO4=0.0
+!ADD/BIO=0.0
!
-!ETHE/OH=-K049*<ETHE>
- PJAC(:,16,15)=-TPK%K049(:)*PCONC(:,16)
+!ADD/ARO=+0.93968*K061*<OH>
+ PJAC(:,37,21)=+0.93968*TPK%K061(:)*PCONC(:,14)
!
-!ETHE/ETHE=-K049*<OH>-K050*<NO3>-K051*<O3>-K052*<O>
- PJAC(:,16,16)=-TPK%K049(:)*PCONC(:,15)-TPK%K050(:)*PCONC(:,8)-TPK%K051(:)*PCON&
-&C(:,3)-TPK%K052(:)*TPK%O(:)
+!ADD/HCHO=0.0
!
-!ETHE/OLEL=0.0
+!ADD/ALD=0.0
!
-!ETHE/OLEH=0.0
+!ADD/KET=0.0
!
-!ETHE/ALKL=0.0
+!ADD/CARBO=0.0
!
-!ETHE/ALKM=0.0
+!ADD/ONIT=0.0
!
-!ETHE/ALKH=0.0
+!ADD/PAN=0.0
!
-!ETHE/AROH=0.0
+!ADD/OP1=0.0
!
-!ETHE/AROL=0.0
+!ADD/OP2=0.0
!
-!ETHE/AROO=0.0
+!ADD/ORA1=0.0
!
-!ETHE/ARAL=0.0
+!ADD/ORA2=0.0
!
-!ETHE/ARAC=0.0
+!ADD/MO2=0.0
!
-!ETHE/PAH=0.0
+!ADD/ALKAP=0.0
!
-!ETHE/HCHO=0.0
+!ADD/ALKEP=0.0
!
-!ETHE/ALD2=0.0
+!ADD/BIOP=0.0
!
-!ETHE/KETL=0.0
+!ADD/PHO=0.0
!
-!ETHE/KETH=0.0
+!ADD/ADD=-K085*<NO2>-K086*<O2>-K087*<O3>
+ PJAC(:,37,37)=-TPK%K085(:)*PCONC(:,4)-TPK%K086(:)*TPK%O2(:)-TPK%K087(:)*PCONC(&
+&:,1)
!
-!ETHE/MEOH=0.0
+!ADD/AROP=0.0
!
-!ETHE/ETOH=0.0
+!ADD/CARBOP=0.0
!
-!ETHE/ALCH=0.0
+!ADD/OLN=0.0
!
-!ETHE/ISOP=0.0
+!ADD/XO2=0.0
!
-!ETHE/BIOL=0.0
+!AROP/O3=0.0
!
-!ETHE/BIOH=0.0
+!AROP/H2O2=0.0
!
-!ETHE/MTBE=0.0
+!AROP/NO=-K094*<AROP>
+ PJAC(:,38,3)=-TPK%K094(:)*PCONC(:,38)
!
-!ETHE/MVK=0.0
+!AROP/NO2=0.0
!
-!ETHE/MCR=0.0
+!AROP/NO3=-K123*<AROP>
+ PJAC(:,38,5)=-TPK%K123(:)*PCONC(:,38)
!
-!ETHE/MGLY=0.0
+!AROP/N2O5=0.0
!
-!ETHE/GLY=0.0
+!AROP/HONO=0.0
!
-!ETHE/ORA1=0.0
+!AROP/HNO3=0.0
!
-!ETHE/ORA2=0.0
+!AROP/HNO4=0.0
!
-!ETHE/ACID=0.0
+!AROP/NH3=0.0
!
-!ETHE/UR28=0.0
+!AROP/SO2=0.0
!
-!ETHE/UR21=0.0
+!AROP/SULF=0.0
!
-!ETHE/URG2=0.0
+!AROP/CO=0.0
!
-!ETHE/UR26=0.0
+!AROP/OH=0.0
!
-!ETHE/RPG2=0.0
+!AROP/HO2=-K0101*<AROP>
+ PJAC(:,38,15)=-TPK%K0101(:)*PCONC(:,38)
!
-!ETHE/RP18=0.0
+!AROP/CH4=0.0
!
-!ETHE/RPG3=0.0
+!AROP/ETH=0.0
!
-!ETHE/URG4=0.0
+!AROP/ALKA=0.0
!
-!ETHE/UR8=0.0
+!AROP/ALKE=0.0
!
-!ETHE/UR17=0.0
+!AROP/BIO=0.0
!
-!ETHE/UR7=0.0
+!AROP/ARO=0.0
!
-!ETHE/RPR3=0.0
+!AROP/HCHO=0.0
!
-!ETHE/URG6=0.0
+!AROP/ALD=0.0
!
-!ETHE/UR22=0.0
+!AROP/KET=0.0
!
-!ETHE/URG7=0.0
+!AROP/CARBO=0.0
!
-!ETHE/RPR4=0.0
+!AROP/ONIT=0.0
!
-!ETHE/RPR7=0.0
+!AROP/PAN=0.0
!
-!ETHE/RPG7=0.0
+!AROP/OP1=0.0
!
-!ETHE/URG8=0.0
+!AROP/OP2=0.0
!
-!ETHE/UR19=0.0
+!AROP/ORA1=0.0
!
-!ETHE/URG9=0.0
+!AROP/ORA2=0.0
!
-!ETHE/AP7=0.0
+!AROP/MO2=-K108*<AROP>
+ PJAC(:,38,32)=-TPK%K108(:)*PCONC(:,38)
!
-!ETHE/URG10=0.0
+!AROP/ALKAP=0.0
!
-!ETHE/RPR1=0.0
+!AROP/ALKEP=0.0
!
-!ETHE/RPR5=0.0
+!AROP/BIOP=0.0
!
-!ETHE/RPR8=0.0
+!AROP/PHO=0.0
!
-!ETHE/RP10=0.0
+!AROP/ADD=+0.98*K086*<O2>
+ PJAC(:,38,37)=+0.98*TPK%K086(:)*TPK%O2(:)
!
-!ETHE/RP11=0.0
+!AROP/AROP=-K094*<NO>-K0101*<HO2>-K108*<MO2>-K114*<CARBOP>-K123*<NO3>
+ PJAC(:,38,38)=-TPK%K094(:)*PCONC(:,3)-TPK%K0101(:)*PCONC(:,15)-TPK%K108(:)*PCO&
+&NC(:,32)-TPK%K114(:)*PCONC(:,39)-TPK%K123(:)*PCONC(:,5)
!
-!ETHE/RP16=0.0
+!AROP/CARBOP=-K114*<AROP>
+ PJAC(:,38,39)=-TPK%K114(:)*PCONC(:,38)
!
-!ETHE/RPRL=0.0
+!AROP/OLN=0.0
!
-!ETHE/APAN=0.0
+!AROP/XO2=0.0
!
-!ETHE/PAN1=0.0
+!CARBOP/O3=+0.05705*K079*<ALKE>+0.17000*K080*<BIO>+0.27460*K081*<CARBO>+0.70000
+!*K082*<PAN>
+ PJAC(:,39,1)=+0.05705*TPK%K079(:)*PCONC(:,19)+0.17000*TPK%K080(:)*PCONC(:,20)+&
+&0.27460*TPK%K081(:)*PCONC(:,25)+0.70000*TPK%K082(:)*PCONC(:,27)
!
-!ETHE/PAN2=0.0
+!CARBOP/H2O2=0.0
!
-!ETHE/PAN3=0.0
+!CARBOP/NO=+0.09532*K095*<CARBOP>-K095*<CARBOP>
+ PJAC(:,39,3)=+0.09532*TPK%K095(:)*PCONC(:,39)-TPK%K095(:)*PCONC(:,39)
!
-!ETHE/PAN4=0.0
+!CARBOP/NO2=-K088*<CARBOP>
+ PJAC(:,39,4)=-TPK%K088(:)*PCONC(:,39)
!
-!ETHE/PAN6=0.0
+!CARBOP/NO3=+1.00000*K073*<ALD>+0.38881*K074*<CARBO>+0.03175*K124*<CARBOP>-K124
+!*<CARBOP>
+ PJAC(:,39,5)=+1.00000*TPK%K073(:)*PCONC(:,23)+0.38881*TPK%K074(:)*PCONC(:,25)+&
+&0.03175*TPK%K124(:)*PCONC(:,39)-TPK%K124(:)*PCONC(:,39)
!
-!ETHE/PAN7=0.0
+!CARBOP/N2O5=0.0
!
-!ETHE/PAN8=0.0
+!CARBOP/HONO=0.0
!
-!ETHE/PN10=0.0
+!CARBOP/HNO3=0.0
!
-!ETHE/RO2T=0.0
+!CARBOP/HNO4=0.0
!
-!ETHE/RO21=0.0
+!CARBOP/NH3=0.0
!
-!ETHE/RO25=0.0
+!CARBOP/SO2=0.0
!
-!ETHE/WC_O3=0.0
+!CARBOP/SULF=0.0
!
-!ETHE/WC_H2O2=0.0
+!CARBOP/CO=0.0
!
-!ETHE/WC_NO=0.0
+!CARBOP/OH=+1.00000*K063*<ALD>+1.00000*K064*<KET>+0.51419*K065*<CARBO>+0.05413*
+!K069*<OP2>
+ PJAC(:,39,14)=+1.00000*TPK%K063(:)*PCONC(:,23)+1.00000*TPK%K064(:)*PCONC(:,24)&
+&+0.51419*TPK%K065(:)*PCONC(:,25)+0.05413*TPK%K069(:)*PCONC(:,29)
!
-!ETHE/WC_NO2=0.0
+!CARBOP/HO2=-K0102*<CARBOP>
+ PJAC(:,39,15)=-TPK%K0102(:)*PCONC(:,39)
!
-!ETHE/WC_NO3=0.0
+!CARBOP/CH4=0.0
!
-!ETHE/WC_N2O5=0.0
+!CARBOP/ETH=0.0
!
-!ETHE/WC_HONO=0.0
+!CARBOP/ALKA=0.0
!
-!ETHE/WC_HNO3=0.0
+!CARBOP/ALKE=+0.05705*K079*<O3>
+ PJAC(:,39,19)=+0.05705*TPK%K079(:)*PCONC(:,1)
!
-!ETHE/WC_HNO4=0.0
+!CARBOP/BIO=+0.17000*K080*<O3>
+ PJAC(:,39,20)=+0.17000*TPK%K080(:)*PCONC(:,1)
!
-!ETHE/WC_NH3=0.0
+!CARBOP/ARO=0.0
!
-!ETHE/WC_OH=0.0
+!CARBOP/HCHO=0.0
!
-!ETHE/WC_HO2=0.0
+!CARBOP/ALD=+1.00000*K063*<OH>+1.00000*K073*<NO3>
+ PJAC(:,39,23)=+1.00000*TPK%K063(:)*PCONC(:,14)+1.00000*TPK%K073(:)*PCONC(:,5)
!
-!ETHE/WC_CO2=0.0
+!CARBOP/KET=+1.00000*K015+1.00000*K064*<OH>
+ PJAC(:,39,24)=+1.00000*TPK%K015(:)+1.00000*TPK%K064(:)*PCONC(:,14)
!
-!ETHE/WC_SO2=0.0
+!CARBOP/CARBO=+0.69622*K016+0.51419*K065*<OH>+0.38881*K074*<NO3>+0.27460*K081*<
+!O3>
+ PJAC(:,39,25)=+0.69622*TPK%K016(:)+0.51419*TPK%K065(:)*PCONC(:,14)+0.38881*TPK&
+&%K074(:)*PCONC(:,5)+0.27460*TPK%K081(:)*PCONC(:,1)
!
-!ETHE/WC_H2SO4=0.0
+!CARBOP/ONIT=0.0
!
-!ETHE/WC_RO21=0.0
+!CARBOP/PAN=+0.70000*K082*<O3>+1.00000*K089
+ PJAC(:,39,27)=+0.70000*TPK%K082(:)*PCONC(:,1)+1.00000*TPK%K089(:)
!
-!ETHE/WC_RO25=0.0
+!CARBOP/OP1=0.0
!
-!ETHE/WC_MEOH=0.0
+!CARBOP/OP2=+0.05413*K069*<OH>
+ PJAC(:,39,29)=+0.05413*TPK%K069(:)*PCONC(:,14)
!
-!ETHE/WC_ETOH=0.0
+!CARBOP/ORA1=0.0
!
-!ETHE/WC_ALCH=0.0
+!CARBOP/ORA2=0.0
!
-!ETHE/WC_HCHO=0.0
+!CARBOP/MO2=+0.05954*K109*<CARBOP>-K109*<CARBOP>
+ PJAC(:,39,32)=+0.05954*TPK%K109(:)*PCONC(:,39)-TPK%K109(:)*PCONC(:,39)
!
-!ETHE/WC_ALD2=0.0
+!CARBOP/ALKAP=-K111*<CARBOP>
+ PJAC(:,39,33)=-TPK%K111(:)*PCONC(:,39)
!
-!ETHE/WC_GLY=0.0
+!CARBOP/ALKEP=-K112*<CARBOP>
+ PJAC(:,39,34)=-TPK%K112(:)*PCONC(:,39)
!
-!ETHE/WC_MGLY=0.0
+!CARBOP/BIOP=-K113*<CARBOP>
+ PJAC(:,39,35)=-TPK%K113(:)*PCONC(:,39)
!
-!ETHE/WC_KETL=0.0
+!CARBOP/PHO=0.0
!
-!ETHE/WC_ORA1=0.0
+!CARBOP/ADD=0.0
!
-!ETHE/WC_ORA2=0.0
+!CARBOP/AROP=-K114*<CARBOP>
+ PJAC(:,39,38)=-TPK%K114(:)*PCONC(:,39)
!
-!ETHE/WC_ACID=0.0
+!CARBOP/CARBOP=-K088*<NO2>+0.09532*K095*<NO>-K095*<NO>-K0102*<HO2>+0.05954*K109
+!*<MO2>-K109*<MO2>-K111*<ALKAP>-K112*<ALKEP>-K113*<BIOP>-K114*<AROP>+0.05821*K1
+!15*<CARBOP>+0.05821*K115*<CARBOP>-K115*<CARBOP>-K115*<CARBOP>-K115*<CARBOP>-K1
+!15*<CARBOP>-K116*<OLN>+0.03175*K124*<NO3>-K124*<NO3>-K128*<XO2>
+ PJAC(:,39,39)=-TPK%K088(:)*PCONC(:,4)+0.09532*TPK%K095(:)*PCONC(:,3)-TPK%K095(&
+&:)*PCONC(:,3)-TPK%K0102(:)*PCONC(:,15)+0.05954*TPK%K109(:)*PCONC(:,32)-TPK%K10&
+&9(:)*PCONC(:,32)-TPK%K111(:)*PCONC(:,33)-TPK%K112(:)*PCONC(:,34)-TPK%K113(:)*P&
+&CONC(:,35)-TPK%K114(:)*PCONC(:,38)+0.05821*TPK%K115(:)*PCONC(:,39)+0.05821*TPK&
+&%K115(:)*PCONC(:,39)-TPK%K115(:)*PCONC(:,39)-TPK%K115(:)*PCONC(:,39)-TPK%K115(&
+&:)*PCONC(:,39)-TPK%K115(:)*PCONC(:,39)-TPK%K116(:)*PCONC(:,40)+0.03175*TPK%K12&
+&4(:)*PCONC(:,5)-TPK%K124(:)*PCONC(:,5)-TPK%K128(:)*PCONC(:,41)
!
-!ETHE/WC_RP16=0.0
+!CARBOP/OLN=-K116*<CARBOP>
+ PJAC(:,39,40)=-TPK%K116(:)*PCONC(:,39)
!
-!ETHE/WC_UR21=0.0
+!CARBOP/XO2=-K128*<CARBOP>
+ PJAC(:,39,41)=-TPK%K128(:)*PCONC(:,39)
!
-!ETHE/WC_UR28=0.0
+!OLN/O3=0.0
!
-!ETHE/WC_ACID2=0.0
+!OLN/H2O2=0.0
!
-!ETHE/WC_ASO3=0.0
+!OLN/NO=-K096*<OLN>
+ PJAC(:,40,3)=-TPK%K096(:)*PCONC(:,40)
!
-!ETHE/WC_ASO4=0.0
+!OLN/NO2=0.0
!
-!ETHE/WC_ASO5=0.0
+!OLN/NO3=+0.00000*K074*<CARBO>+0.93768*K076*<ALKE>+1.00000*K077*<BIO>-K125*<OLN
+!>
+ PJAC(:,40,5)=+0.00000*TPK%K074(:)*PCONC(:,25)+0.93768*TPK%K076(:)*PCONC(:,19)+&
+&1.00000*TPK%K077(:)*PCONC(:,20)-TPK%K125(:)*PCONC(:,40)
!
-!ETHE/WC_AHSO5=0.0
+!OLN/N2O5=0.0
!
-!ETHE/WC_AHMS=0.0
+!OLN/HONO=0.0
!
-!ETHE/WR_O3=0.0
+!OLN/HNO3=0.0
!
-!ETHE/WR_H2O2=0.0
+!OLN/HNO4=0.0
!
-!ETHE/WR_NO=0.0
+!OLN/NH3=0.0
!
-!ETHE/WR_NO2=0.0
+!OLN/SO2=0.0
!
-!ETHE/WR_NO3=0.0
+!OLN/SULF=0.0
!
-!ETHE/WR_N2O5=0.0
+!OLN/CO=0.0
!
-!ETHE/WR_HONO=0.0
+!OLN/OH=0.0
!
-!ETHE/WR_HNO3=0.0
+!OLN/HO2=-K103*<OLN>
+ PJAC(:,40,15)=-TPK%K103(:)*PCONC(:,40)
!
-!ETHE/WR_HNO4=0.0
+!OLN/CH4=0.0
!
-!ETHE/WR_NH3=0.0
+!OLN/ETH=0.0
!
-!ETHE/WR_OH=0.0
+!OLN/ALKA=0.0
!
-!ETHE/WR_HO2=0.0
+!OLN/ALKE=+0.93768*K076*<NO3>
+ PJAC(:,40,19)=+0.93768*TPK%K076(:)*PCONC(:,5)
!
-!ETHE/WR_CO2=0.0
+!OLN/BIO=+1.00000*K077*<NO3>
+ PJAC(:,40,20)=+1.00000*TPK%K077(:)*PCONC(:,5)
!
-!ETHE/WR_SO2=0.0
+!OLN/ARO=0.0
!
-!ETHE/WR_H2SO4=0.0
+!OLN/HCHO=0.0
!
-!ETHE/WR_RO21=0.0
+!OLN/ALD=0.0
!
-!ETHE/WR_RO25=0.0
+!OLN/KET=0.0
!
-!ETHE/WR_MEOH=0.0
+!OLN/CARBO=+0.00000*K074*<NO3>
+ PJAC(:,40,25)=+0.00000*TPK%K074(:)*PCONC(:,5)
!
-!ETHE/WR_ETOH=0.0
+!OLN/ONIT=0.0
!
-!ETHE/WR_ALCH=0.0
+!OLN/PAN=0.0
!
-!ETHE/WR_HCHO=0.0
+!OLN/OP1=0.0
!
-!ETHE/WR_ALD2=0.0
+!OLN/OP2=0.0
!
-!ETHE/WR_GLY=0.0
+!OLN/ORA1=0.0
!
-!ETHE/WR_MGLY=0.0
+!OLN/ORA2=0.0
!
-!ETHE/WR_KETL=0.0
+!OLN/MO2=-K110*<OLN>
+ PJAC(:,40,32)=-TPK%K110(:)*PCONC(:,40)
!
-!ETHE/WR_ORA1=0.0
+!OLN/ALKAP=0.0
!
-!ETHE/WR_ORA2=0.0
+!OLN/ALKEP=0.0
!
-!ETHE/WR_ACID=0.0
+!OLN/BIOP=0.0
!
-!ETHE/WR_RP16=0.0
+!OLN/PHO=0.0
!
-!ETHE/WR_UR21=0.0
+!OLN/ADD=0.0
!
-!ETHE/WR_UR28=0.0
+!OLN/AROP=0.0
!
-!ETHE/WR_ACID2=0.0
+!OLN/CARBOP=-K116*<OLN>
+ PJAC(:,40,39)=-TPK%K116(:)*PCONC(:,40)
!
-!ETHE/WR_ASO3=0.0
+!OLN/OLN=-K096*<NO>-K103*<HO2>-K110*<MO2>-K116*<CARBOP>-K117*<OLN>-K117*<OLN>-K
+!117*<OLN>-K117*<OLN>-K118*<OLN>-K118*<OLN>-K118*<OLN>-K118*<OLN>-K125*<NO3>
+ PJAC(:,40,40)=-TPK%K096(:)*PCONC(:,3)-TPK%K103(:)*PCONC(:,15)-TPK%K110(:)*PCON&
+&C(:,32)-TPK%K116(:)*PCONC(:,39)-TPK%K117(:)*PCONC(:,40)-TPK%K117(:)*PCONC(:,40&
+&)-TPK%K117(:)*PCONC(:,40)-TPK%K117(:)*PCONC(:,40)-TPK%K118(:)*PCONC(:,40)-TPK%&
+&K118(:)*PCONC(:,40)-TPK%K118(:)*PCONC(:,40)-TPK%K118(:)*PCONC(:,40)-TPK%K125(:&
+&)*PCONC(:,5)
!
-!ETHE/WR_ASO4=0.0
+!OLN/XO2=0.0
!
-!ETHE/WR_ASO5=0.0
+RETURN
+END SUBROUTINE SUBJ7
!
-!ETHE/WR_AHSO5=0.0
+SUBROUTINE SUBJ8
!
-!ETHE/WR_AHMS=0.0
+!Indices 41 a 41
!
-!OLEL/NO=+TPK%CF5*K150*<RO29>+TPK%CF7*K168*<RO214>
- PJAC(:,17,1)=+TPK%CF5*TPK%K150(:)*TPK%RO29(:)+TPK%CF7*TPK%K168(:)*TPK%RO214(:)
!
-!OLEL/NO2=0.0
+!XO2/O3=+0.00000*K079*<ALKE>+0.13000*K080*<BIO>
+ PJAC(:,41,1)=+0.00000*TPK%K079(:)*PCONC(:,19)+0.13000*TPK%K080(:)*PCONC(:,20)
!
-!OLEL/O3=-K056*<OLEL>+0.054*K066*<ISOP>
- PJAC(:,17,3)=-TPK%K056(:)*PCONC(:,17)+0.054*TPK%K066(:)*PCONC(:,35)
+!XO2/H2O2=0.0
!
-!OLEL/HONO=0.0
+!XO2/NO=+0.13007*K091*<ALKAP>+0.02563*K095*<CARBOP>-K130*<XO2>
+ PJAC(:,41,3)=+0.13007*TPK%K091(:)*PCONC(:,33)+0.02563*TPK%K095(:)*PCONC(:,39)-&
+&TPK%K130(:)*PCONC(:,41)
!
-!OLEL/HNO3=0.0
+!XO2/NO2=0.0
!
-!OLEL/HNO4=0.0
+!XO2/NO3=+0.10530*K074*<CARBO>+K078*<PAN>+0.16271*K120*<ALKAP>+0.01021*K124*<CA
+!RBOP>-K131*<XO2>
+ PJAC(:,41,5)=+0.10530*TPK%K074(:)*PCONC(:,25)+TPK%K078(:)*PCONC(:,27)+0.16271*&
+&TPK%K120(:)*PCONC(:,33)+0.01021*TPK%K124(:)*PCONC(:,39)-TPK%K131(:)*PCONC(:,41&
+&)
!
-!OLEL/N2O5=0.0
+!XO2/N2O5=0.0
!
-!OLEL/NO3=-K055*<OLEL>
- PJAC(:,17,8)=-TPK%K055(:)*PCONC(:,17)
+!XO2/HONO=0.0
!
-!OLEL/NH3=0.0
+!XO2/HNO3=0.0
!
-!OLEL/HO2=+0.5*K166*<RO239>+0.5*K289*<RO250>
- PJAC(:,17,10)=+0.5*TPK%K166(:)*TPK%RO239(:)+0.5*TPK%K289(:)*TPK%RO250(:)
+!XO2/HNO4=0.0
!
-!OLEL/CO=0.0
+!XO2/NH3=0.0
!
-!OLEL/H2O2=0.0
+!XO2/SO2=0.0
!
-!OLEL/SO2=0.0
+!XO2/SULF=0.0
!
-!OLEL/H2SO4=0.0
+!XO2/CO=0.0
!
-!OLEL/OH=-K054*<OLEL>
- PJAC(:,17,15)=-TPK%K054(:)*PCONC(:,17)
+!XO2/OH=+0.10318*K061*<ARO>+0.10162*K065*<CARBO>+0.09333*K069*<OP2>+K070*<PAN>
+ PJAC(:,41,14)=+0.10318*TPK%K061(:)*PCONC(:,21)+0.10162*TPK%K065(:)*PCONC(:,25)&
+&+0.09333*TPK%K069(:)*PCONC(:,29)+TPK%K070(:)*PCONC(:,27)
!
-!OLEL/ETHE=0.0
+!XO2/HO2=-K126*<XO2>
+ PJAC(:,41,15)=-TPK%K126(:)*PCONC(:,41)
!
-!OLEL/OLEL=-K054*<OH>-K055*<NO3>-K056*<O3>-K057*<O>
- PJAC(:,17,17)=-TPK%K054(:)*PCONC(:,15)-TPK%K055(:)*PCONC(:,8)-TPK%K056(:)*PCON&
-&C(:,3)-TPK%K057(:)*TPK%O(:)
+!XO2/CH4=0.0
!
-!OLEL/OLEH=0.0
+!XO2/ETH=0.0
!
-!OLEL/ALKL=0.0
+!XO2/ALKA=0.0
!
-!OLEL/ALKM=0.0
+!XO2/ALKE=+0.00000*K079*<O3>
+ PJAC(:,41,19)=+0.00000*TPK%K079(:)*PCONC(:,1)
!
-!OLEL/ALKH=0.0
+!XO2/BIO=+0.15*K054*<O3P>+0.13000*K080*<O3>
+ PJAC(:,41,20)=+0.15*TPK%K054(:)*TPK%O3P(:)+0.13000*TPK%K080(:)*PCONC(:,1)
!
-!OLEL/AROH=0.0
+!XO2/ARO=+0.10318*K061*<OH>
+ PJAC(:,41,21)=+0.10318*TPK%K061(:)*PCONC(:,14)
!
-!OLEL/AROL=0.0
+!XO2/HCHO=0.0
!
-!OLEL/AROO=0.0
+!XO2/ALD=0.0
!
-!OLEL/ARAL=0.0
+!XO2/KET=0.0
!
-!OLEL/ARAC=0.0
+!XO2/CARBO=+0.10162*K065*<OH>+0.10530*K074*<NO3>
+ PJAC(:,41,25)=+0.10162*TPK%K065(:)*PCONC(:,14)+0.10530*TPK%K074(:)*PCONC(:,5)
!
-!OLEL/PAH=0.0
+!XO2/ONIT=0.0
!
-!OLEL/HCHO=0.0
+!XO2/PAN=+K070*<OH>+K078*<NO3>
+ PJAC(:,41,27)=+TPK%K070(:)*PCONC(:,14)+TPK%K078(:)*PCONC(:,5)
!
-!OLEL/ALD2=0.0
+!XO2/OP1=0.0
!
-!OLEL/KETL=0.0
+!XO2/OP2=+0.09333*K069*<OH>
+ PJAC(:,41,29)=+0.09333*TPK%K069(:)*PCONC(:,14)
!
-!OLEL/KETH=0.0
+!XO2/ORA1=0.0
!
-!OLEL/MEOH=0.0
+!XO2/ORA2=0.0
!
-!OLEL/ETOH=0.0
+!XO2/MO2=+0.13370*K105*<ALKAP>+0.02212*K109*<CARBOP>-K127*<XO2>
+ PJAC(:,41,32)=+0.13370*TPK%K105(:)*PCONC(:,33)+0.02212*TPK%K109(:)*PCONC(:,39)&
+&-TPK%K127(:)*PCONC(:,41)
!
-!OLEL/ALCH=0.0
+!XO2/ALKAP=+0.13007*K091*<NO>+0.13370*K105*<MO2>+0.11306*K111*<CARBOP>+0.16271*
+!K120*<NO3>
+ PJAC(:,41,33)=+0.13007*TPK%K091(:)*PCONC(:,3)+0.13370*TPK%K105(:)*PCONC(:,32)+&
+&0.11306*TPK%K111(:)*PCONC(:,39)+0.16271*TPK%K120(:)*PCONC(:,5)
!
-!OLEL/ISOP=+0.054*K066*<O3>+0.925*K067*<O>
- PJAC(:,17,35)=+0.054*TPK%K066(:)*PCONC(:,3)+0.925*TPK%K067(:)*TPK%O(:)
+!XO2/ALKEP=0.0
!
-!OLEL/BIOL=0.0
+!XO2/BIOP=0.0
!
-!OLEL/BIOH=0.0
+!XO2/PHO=0.0
!
-!OLEL/MTBE=0.0
+!XO2/ADD=0.0
!
-!OLEL/MVK=0.0
+!XO2/AROP=0.0
!
-!OLEL/MCR=0.0
+!XO2/CARBOP=+0.02563*K095*<NO>+0.02212*K109*<MO2>+0.11306*K111*<ALKAP>+0.01593*
+!K115*<CARBOP>+0.01593*K115*<CARBOP>+0.01021*K124*<NO3>-K128*<XO2>
+ PJAC(:,41,39)=+0.02563*TPK%K095(:)*PCONC(:,3)+0.02212*TPK%K109(:)*PCONC(:,32)+&
+&0.11306*TPK%K111(:)*PCONC(:,33)+0.01593*TPK%K115(:)*PCONC(:,39)+0.01593*TPK%K1&
+&15(:)*PCONC(:,39)+0.01021*TPK%K124(:)*PCONC(:,5)-TPK%K128(:)*PCONC(:,41)
!
-!OLEL/MGLY=0.0
+!XO2/OLN=0.0
!
-!OLEL/GLY=0.0
+!XO2/XO2=-K126*<HO2>-K127*<MO2>-K128*<CARBOP>-K129*<XO2>-K129*<XO2>-K129*<XO2>-
+!K129*<XO2>-K130*<NO>-K131*<NO3>
+ PJAC(:,41,41)=-TPK%K126(:)*PCONC(:,15)-TPK%K127(:)*PCONC(:,32)-TPK%K128(:)*PCO&
+&NC(:,39)-TPK%K129(:)*PCONC(:,41)-TPK%K129(:)*PCONC(:,41)-TPK%K129(:)*PCONC(:,4&
+&1)-TPK%K129(:)*PCONC(:,41)-TPK%K130(:)*PCONC(:,3)-TPK%K131(:)*PCONC(:,5)
!
-!OLEL/ORA1=0.0
+RETURN
+END SUBROUTINE SUBJ8
!
-!OLEL/ORA2=0.0
+END SUBROUTINE CH_JAC_GAZ
!
-!OLEL/ACID=0.0
!
-!OLEL/UR28=0.0
+!========================================================================
!
-!OLEL/UR21=0.0
+!! ########################
+ MODULE MODI_CH_SET_RATES
+!! ########################
+!! This code has been created automatically by preprocessor m10,
+!! version: 9.7, copyright 1995-1999 by Meteo France/Universite Paul Sabatier.
+!! Please report all bugs to K. Suhre (Lab. d'Aerologie UPS/CNRS).
+INTERFACE
+SUBROUTINE CH_SET_RATES(PTIME,PCONC,TPM,KMI,KOUT,KVERB,KVECNPT,KEQ,KRRL,PPH)
+USE MODD_CH_M9_n, ONLY: METEOTRANSTYPE
+IMPLICIT NONE
+REAL, INTENT(IN) :: PTIME
+INTEGER, INTENT(IN) :: KVECNPT
+INTEGER, INTENT(IN) :: KEQ
+REAL, INTENT(IN), DIMENSION(KVECNPT,KEQ) :: PCONC
+TYPE(METEOTRANSTYPE), DIMENSION(KVECNPT), INTENT(IN):: TPM
+INTEGER, INTENT(IN) :: KMI
+INTEGER, INTENT(IN) :: KOUT,KVERB
+INTEGER, INTENT(INOUT) :: KRRL
+REAL, INTENT(INOUT), DIMENSION(:,:), OPTIONAL :: PPH
+END SUBROUTINE CH_SET_RATES
+END INTERFACE
+END MODULE MODI_CH_SET_RATES
!
-!OLEL/URG2=0.0
+!========================================================================
!
-!OLEL/UR26=0.0
+!! ############################################################################
+ SUBROUTINE CH_SET_RATES(PTIME,PCONC,TPM,KMI,KOUT,KVERB,KVECNPT,KEQ,KRRL,PPH)
+!! ############################################################################
+!! This code has been created automatically by preprocessor m10,
+!! version: 9.7, copyright 1995-1999 by Meteo France/Universite Paul Sabatier.
+!! Please report all bugs to K. Suhre (Lab. d'Aerologie UPS/CNRS).
+!!*** *MODD_CH_SET_RATES*
+!!
+!! PURPOSE
+!! -------
+! set or calculate reaction rates
+!!
+!!** METHOD
+!! ------
+!! simple
+!!
+!! REFERENCE
+!! ---------
+!! none
+!!
+!! AUTHOR
+!! ------
+!! Karsten Suhre (LA)
+!!
+!! MODIFICATIONS
+!! -------------
+!! Original 26/07/96
+!! Modified 05/05/98: Vectorization (Vincent Crassier & KS)
+!! Modified 01/06/07: Add pH calculation (M. Leriche & JP Pinty)
+!! Modified 01/06/08: Add reaction constant in cloud/rain (M. Leriche)
+!! Modified 14/11/08: Put LWC and LWR to zero where <XRTMIN_AQ
+!!
+!!----------------------------------------------------------------------
+!!
+!! EXTERNAL
+!! --------
+!!
+USE MODI_CH_ALLOCATE_TACCS
+USE MODI_CH_DEALLOCATE_TACCS
+USE MODI_CH_SET_PH
+!!
+!! IMPLICIT ARGUMENTS
+!! ------------------
+!!
+USE MODD_CH_M9_SCHEME
+USE MODD_CH_M9_n, ONLY : METEOTRANSTYPE
+USE MODD_CH_MNHC_n, ONLY : XRTMIN_AQ, XCH_PHINIT
+! USER DEFINED FUNCTIONS
+USE MODI_KT
+USE MODI_TROE
+USE MODI_HENRY
+USE MODI_HEFFA
+USE MODI_TROE_EQUIL
+USE MODI_HEFFB
+!!
+!! EXPLICIT ARGUMENTS
+!! ------------------
+IMPLICIT NONE
+REAL, INTENT(IN) :: PTIME
+INTEGER, INTENT(IN) :: KVECNPT
+INTEGER, INTENT(IN) :: KEQ
+REAL, INTENT(IN), DIMENSION(KVECNPT,KEQ) :: PCONC
+TYPE(METEOTRANSTYPE), DIMENSION(KVECNPT), INTENT(IN):: TPM
+INTEGER, INTENT(IN) :: KMI
+INTEGER, INTENT(IN) :: KOUT,KVERB
+INTEGER, INTENT(INOUT) :: KRRL
+REAL, INTENT(INOUT), DIMENSION(:,:), OPTIONAL :: PPH
+!!
+!!----------------------------------------------------------------------
+! /BEGIN_SET_RATES/
!
-!OLEL/RPG2=0.0
+! transfer of meteo-variables into variables used by the
+! chemical core system (and some unit conversion):
!
-!OLEL/RP18=0.0
+! molecular weight of air: m_mol^air = 28.8 g/mol
+! molecular weight of H2O: m_mol^H2O = 18.0 g/mol
+! ==> m_mol^air / m_mol^H2O = 1.6
+! density conversion factor: 1 g/cm3 = 1E+3 kg/m3
+! n_molec (moelc./cm3): M = 1E-3*RHO(kg/m3) * Navo / m_mol
+! n_water: H2O = M * 1.6 * Rv
+! pressure = RHO * T * R * 1E-5 (in atm)
+! assuming 20.95 vol% O2
!
-!OLEL/RPG3=0.0
+TYPE(CCSTYPE), POINTER :: TPK
!
-!OLEL/URG4=0.0
+!----------------------------------------------------------------------
!
-!OLEL/UR8=0.0
+IF (.NOT. ASSOCIATED(TACCS(KMI)%NVERB)) THEN
+ CALL CH_ALLOCATE_TACCS(KMI,KVECNPT)
+END IF
!
-!OLEL/UR17=0.0
+IF (SIZE(TACCS(KMI)%NVERB) .NE. KVECNPT) THEN
+ CALL CH_DEALLOCATE_TACCS(KMI)
+ CALL CH_ALLOCATE_TACCS(KMI,KVECNPT)
+END IF
!
-!OLEL/UR7=0.0
+TPK=>TACCS(KMI)
!
-!OLEL/RPR3=0.0
+TPK%MODELLEVEL = TPM%XMETEOVAR(1)
+TPK%M = 1E-3*TPM%XMETEOVAR(2) * 6.0221367E+23 / 28.9644
+TPK%T = TPM%XMETEOVAR(3)
+TPK%H2O = TPK%M*1.6077*TPM%XMETEOVAR(4)
+TPK%CLOUDWATER = TPM%XMETEOVAR(5)
+TPK%LAT = TPM%XMETEOVAR(6)
+TPK%LON = TPM%XMETEOVAR(7)
+TPK%YEAR = INT(TPM%XMETEOVAR(8))
+TPK%MONTH = INT(TPM%XMETEOVAR(9))
+TPK%DAY = INT(TPM%XMETEOVAR(10))
+TPK%RAINWATER = TPM%XMETEOVAR(11)
+TPK%RHODREF = TPM%XMETEOVAR(2)
+! derived variables
+TPK%PRESSURE = TPM%XMETEOVAR(2) * TPK%T * 288.290947 * 1E-5
+TPK%O2 = 0.2095 * TPK%M
+TPK%N2 = TPK%M - TPK%O2
+TPK%H2 = 1.23e13
+! fixed concentration of CO2
+TPK%CO2 = 330. * 1.E-6 * TPK%M
+! for chemistry in aqueous phase, kinetic mass transfer
+! cloud lwc (vol/vol) = cloud m.r.(kg/kg) * rho_air(kg/m3) / rho_eau(kg/m3)
+TPK%LWC = TPM%XMETEOVAR(5)*TPM%XMETEOVAR(2) / 1.E3
+WHERE ( TPK%LWC < XRTMIN_AQ ) !to get reaction rate for mass transfer = 0
+ TPK%LWC = 0.
+ENDWHERE
+TPK%RADC = TPM%XMETEOVAR(12)
+! conversion factor for reaction constant in cloud
+! give minimum value to avoir division by zero
+TPK%MOL2MOLECCLOUD = 6.023e+23*1.e-3*XRTMIN_AQ
+WHERE (TPK%LWC >= XRTMIN_AQ)
+ TPK%MOL2MOLECCLOUD = 6.023e+23*1.e-3*TPK%LWC
+END WHERE
!
-!OLEL/URG6=0.0
+TPK%LWR = TPM%XMETEOVAR(11)*TPM%XMETEOVAR(2) / 1.E3
+WHERE ( TPK%LWR < XRTMIN_AQ ) !to get reaction rate for mass transfer = 0
+ TPK%LWR = 0.
+ENDWHERE
+TPK%RADR = TPM%XMETEOVAR(13)
+! conversion factor for reaction constant in rain
+! give minimum value to avoir division by zero
+TPK%MOL2MOLECRAIN = 6.023e+23*1.e-3*XRTMIN_AQ
+WHERE (TPK%LWR >= XRTMIN_AQ)
+ TPK%MOL2MOLECRAIN = 6.023e+23*1.e-3*TPK%LWR
+END WHERE
+!pH calculation if required
+IF (PRESENT(PPH)) THEN
+ TPK%PHC(:)=PPH(:,1)
+ CALL CH_SET_PH(KOUT,KMI,KVECNPT,PCONC,TPK%PHC(:),KVERB,2) ! pH cloud water
+! TPK%PHC(:) = 0.01*TPK%PHC(:) + 0.99*PPH(:,1) ! apply a strong filter
+ PPH(:,1) = TPK%PHC(:)
+ IF (KRRL>=2) THEN
+ TPK%PHR(:)=PPH(:,2)
+ CALL CH_SET_PH(KOUT,KMI,KVECNPT,PCONC,TPK%PHR(:),KVERB,3) ! pH rain water
+! TPK%PHR(:) = 0.01*TPK%PHR(:) + 0.99*PPH(:,2) ! apply a strong filter
+ PPH(:,2) = TPK%PHR(:)
+ ENDIF
+ELSE
+ IF (.NOT.TPK%LCH_PH) TPK%PHC = XCH_PHINIT
+ IF (KRRL>=2) THEN
+ IF (.NOT.TPK%LCH_PH) TPK%PHR = XCH_PHINIT
+ ENDIF
+ENDIF
!
-!OLEL/UR22=0.0
+TPK%RCH = 0.08206 ! R in atm M-1 K-1
+TPK%W_O2 = 1.3E-3*exp(-1500.*(1./TPK%T-1./298.15))*TPK%RCH*TPK%T*TPK%O2*1.e3/6.023e+23
!
-!OLEL/URG7=0.0
+! the following prints will be erased
+IF (KVERB >= 15) THEN
+ WRITE(KOUT,*) "CH_SET_RATES: the following variables have been updated"
+ WRITE(KOUT,*) "MODELLEVEL: ", TPK%MODELLEVEL(1)
+ WRITE(KOUT,*) "M: ", TPK%M(1) , "molec/cm3"
+ WRITE(KOUT,*) "T: ", TPK%T(1) , "K"
+ WRITE(KOUT,*) "H2O ", TPK%H2O(1) , "molec/cm3"
+ WRITE(KOUT,*) "CLOUDWATER: ", TPK%CLOUDWATER(1) , "kg/kg"
+ WRITE(KOUT,*) "LATITUDE: ", TPK%LAT(1) , "degree"
+ WRITE(KOUT,*) "LONGITUDE: ", TPK%LON(1) , "degree"
+ WRITE(KOUT,*) "YEAR: ", TPK%YEAR(1)
+ WRITE(KOUT,*) "MONTH: ", TPK%MONTH(1)
+ WRITE(KOUT,*) "DAY: ", TPK%DAY(1)
+ WRITE(KOUT,*) "RAINWATER: ", TPK%RAINWATER(1) , "kg/kg"
+ WRITE(KOUT,*) "RHODREF: ", TPK%RHODREF(1) , "kg/m3"
+ WRITE(KOUT,*) "PRESSURE: ", TPK%PRESSURE(1) , "atm"
+ WRITE(KOUT,*) "O2: ", TPK%O2(1) , "molec/cm3"
+ WRITE(KOUT,*) "N2: ", TPK%N2(1) , "molec/cm3"
+ WRITE(KOUT,*) "H2: ", TPK%H2(1) , "molec/cm3"
+ WRITE(KOUT,*) "CO2: ", TPK%CO2(1) , "molec/cm3"
+ WRITE(KOUT,*) "LWC: ", TPK%LWC(1) , "m3/m3"
+ WRITE(KOUT,*) "RADC: ", TPK%RADC(1) , "m"
+ WRITE(KOUT,*) "PHC: ", TPK%PHC(1)
+ WRITE(KOUT,*) "LWR: ", TPK%LWR(1) , "m3/m3"
+ WRITE(KOUT,*) "RADR: ", TPK%RADR(1) , "m"
+ WRITE(KOUT,*) "PHR: ", TPK%PHR(1)
+ WRITE(KOUT,*) "W_O2: ", TPK%W_O2(1) , "M"
+END IF
!
-!OLEL/RPR4=0.0
+! /END_SET_RATES/
+CALL SUBSRG0
+CALL SUBSRG1
+CALL SUBSRG2
+CALL SUBSRG3
+CALL SUBSRG4
+CALL SUBSRG5
+CALL SUBSRG6
+CALL SUBSRG7
+CALL SUBSRG8
+CALL SUBSRG9
+CALL SUBSRG10
+CALL SUBSRG11
+CALL SUBSRG12
+CALL SUBSRG13
+IF (TPK%LUSECHAQ) THEN
+ CALL SUBSRW0
+ CALL SUBSRW1
+ CALL SUBSRW2
+ CALL SUBSRW3
+ CALL SUBSRW4
+ CALL SUBSRW5
+ CALL SUBSRW6
+ CALL SUBSRW7
+ CALL SUBSRW8
+ CALL SUBSRW9
+ CALL SUBSRW10
+ CALL SUBSRW11
+ CALL SUBSRW12
+ CALL SUBSRW13
+END IF
+TPK%NOUT = KOUT
+TPK%NVERB(:) = KVERB
+RETURN
+
+CONTAINS
+
+SUBROUTINE SUBSRG0
!
-!OLEL/RPR7=0.0
+!Indices 1 a 10
!
-!OLEL/RPG7=0.0
!
-!OLEL/URG8=0.0
+RETURN
+END SUBROUTINE SUBSRG0
!
-!OLEL/UR19=0.0
+SUBROUTINE SUBSRG1
!
-!OLEL/URG9=0.0
+!Indices 11 a 20
!
-!OLEL/AP7=0.0
+ TPK%K018=TPK%M*6.00E-34*(TPK%T/300)**(-2.3)
+ TPK%K019=8.00E-12*exp(-(2060.0/TPK%T))
+ TPK%K020=1.80E-11*exp(-(-110.0/TPK%T))
!
-!OLEL/URG10=0.0
+RETURN
+END SUBROUTINE SUBSRG1
!
-!OLEL/RPR1=0.0
+SUBROUTINE SUBSRG2
!
-!OLEL/RPR5=0.0
+!Indices 21 a 30
!
-!OLEL/RPR8=0.0
+ TPK%K021=3.20E-11*exp(-(-70.0/TPK%T))
+ TPK%K022=2.20E-10
+ TPK%K023=1.60E-12*exp(-(940.0/TPK%T))
+ TPK%K024=1.10E-14*exp(-(500.0/TPK%T))
+ TPK%K025=4.80E-11*exp(-(-250.0/TPK%T))
+ TPK%K026=2.90E-12*exp(-(160.0/TPK%T))
+ TPK%K027=2.3E-13*EXP(600./TPK%T)+1.7E-33*TPK%M*EXP(1000./TPK%T)
+ TPK%K028=3.22E-34*EXP(2800./TPK%T)+2.38E-54*TPK%M*EXP(3200./TPK%T)
+ TPK%K029=TROE(1.,9.00E-32,1.5,3.00E-11,0.0,TPK%M,TPK%T,KVECNPT)
+ TPK%K030=6.50E-12*exp(-(-120.0/TPK%T))
!
-!OLEL/RP10=0.0
+RETURN
+END SUBROUTINE SUBSRG2
!
-!OLEL/RP11=0.0
+SUBROUTINE SUBSRG3
!
-!OLEL/RP16=0.0
+!Indices 31 a 40
!
-!OLEL/RPRL=0.0
+ TPK%K031=TROE(1.,9.00E-32,2.0,2.20E-11,0.0,TPK%M,TPK%T,KVECNPT)
+ TPK%K032=TROE(1.,7.00E-31,2.6,1.50E-11,0.5,TPK%M,TPK%T,KVECNPT)
+ TPK%K033=TROE(1.,2.60E-30,3.2,2.40E-11,1.3,TPK%M,TPK%T,KVECNPT)
+ TPK%K034=2.20E-11
+ TPK%K035=3.70E-12*exp(-(-250.0/TPK%T))
+ TPK%K036=TROE(1.,1.80E-31,3.2,4.70E-12,1.4,TPK%M,TPK%T,KVECNPT)
+ TPK%K037=TROE_EQUIL(1.80E-31,3.2,4.70E-12,1.4,4.76E+26,10900.,TPK%M,TPK%T,KVEC&
+&NPT)
+ TPK%K038=3.50E-12
+ TPK%K039=1.80E-11*exp(-(390.0/TPK%T))
+ TPK%K040=(7.2E-15*EXP(785/TPK%T))+(1.9E-33*EXP(725/TPK%T)*TPK%M)/(1+(1.9E-33*E&
+&XP(725/TPK%T)*TPK%M)/(4.1E-16*EXP(1440/TPK%T)))
!
-!OLEL/APAN=0.0
+RETURN
+END SUBROUTINE SUBSRG3
!
-!OLEL/PAN1=0.0
+SUBROUTINE SUBSRG4
!
-!OLEL/PAN2=0.0
+!Indices 41 a 50
!
-!OLEL/PAN3=0.0
+ TPK%K041=1.30E-12*exp(-(-380.0/TPK%T))
+ TPK%K042=2.00E-12*exp(-(1400.0/TPK%T))
+ TPK%K043=1.20E-13*exp(-(2450.0/TPK%T))
+ TPK%K044=3.30E-39*exp(-(-530.0/TPK%T))
+ TPK%K045=1.50E-11*exp(-(-170.0/TPK%T))
+ TPK%K046=4.50E-14*exp(-(1260.0/TPK%T))
+ TPK%K047=TROE(1.,2.20E-30,3.9,1.50E-12,0.7,TPK%M,TPK%T,KVECNPT)
+ TPK%K048=TROE_EQUIL(2.20E-30,3.9,1.50E-12,0.7,3.70E+26,11000.0,TPK%M,TPK%T,KVE&
+&CNPT)
+ TPK%K049=8.50E-13*exp(-(2450.0/TPK%T))
+ TPK%K050=3.30E-12*exp(-(900.0/TPK%T))
!
-!OLEL/PAN4=0.0
+RETURN
+END SUBROUTINE SUBSRG4
!
-!OLEL/PAN6=0.0
+SUBROUTINE SUBSRG5
!
-!OLEL/PAN7=0.0
+!Indices 51 a 60
!
-!OLEL/PAN8=0.0
+ TPK%K051=5.50E-12*exp(-(2000.0/TPK%T))
+ TPK%K052=TROE(1.,3.00E-31,3.3,1.50E-12,0.0,TPK%M,TPK%T,KVECNPT)
+ TPK%K053=1.5E-13*(1.+2.439E-20*TPK%M)
+ TPK%K054=6.00E-11
+ TPK%K055=0.00E-01*exp(-(-13.0/TPK%T))
+ TPK%K056=TPK%T*TPK%T*7.44E-18*exp(-(1361./TPK%T))
+ TPK%K057=1.51E-17*TPK%T*TPK%T*exp(-(492./TPK%T))
+ TPK%K058=3.76E-12*exp(-(260.0/TPK%T))+1.70E-12*exp(-(155.0/TPK%T))+1.21E-12*ex&
+&p(-(125.0/TPK%T))
+ TPK%K059=1.78E-12*exp(-(-438.0/TPK%T))+6.07E-13*exp(-(-500.0/TPK%T))+0.00E-01*&
+&exp(-(-448.0/TPK%T))
+ TPK%K060=2.54E-11*exp(-(-410.0/TPK%T))+0.00E-01*exp(-(-444.0/TPK%T))+0.00E-01
!
-!OLEL/PN10=0.0
+RETURN
+END SUBROUTINE SUBSRG5
!
-!OLEL/RO2T=0.0
+SUBROUTINE SUBSRG6
!
-!OLEL/RO21=0.0
+!Indices 61 a 70
!
-!OLEL/RO25=0.0
+ TPK%K061=3.31E-12*exp(-(-355.0/TPK%T))+3.45E-13
+ TPK%K062=1.00E-11
+ TPK%K063=5.55E-12*exp(-(-331.0/TPK%T))
+ TPK%K064=TPK%T*TPK%T*5.68E-18*exp(-(-92.0/TPK%T))
+ TPK%K065=1.32E-11+1.88E-12*exp(-(-175.0/TPK%T))
+ TPK%K066=4.50E-13
+ TPK%K067=6.00E-13
+ TPK%K068=2.93E-12*exp(-(-190.0/TPK%T))
+ TPK%K069=3.36E-12*exp(-(-190.0/TPK%T))
+ TPK%K070=3.80E-14+1.59E-14*exp(-(-500.0/TPK%T))
!
-!OLEL/WC_O3=0.0
+RETURN
+END SUBROUTINE SUBSRG6
!
-!OLEL/WC_H2O2=0.0
+SUBROUTINE SUBSRG7
!
-!OLEL/WC_NO=0.0
+!Indices 71 a 80
!
-!OLEL/WC_NO2=0.0
+ TPK%K071=5.31E-12*exp(-(260.0/TPK%T))
+ TPK%K072=3.40E-13*exp(-(1900.0/TPK%T))
+ TPK%K073=1.40E-12*exp(-(1900.0/TPK%T))
+ TPK%K074=1.62E-12*exp(-(1900.0/TPK%T))+0.00E-01*exp(-(150.0/TPK%T))+1.94E-14*e&
+&xp(-(1000.0/TPK%T))
+ TPK%K075=4.92E-16
+ TPK%K076=4.35E-18*TPK%T*TPK%T*exp(-(2282.0/TPK%T))+1.91E-14*exp(-(450.0/TPK%T)&
+&)+1.08E-15*exp(-(-450.0/TPK%T))+0.00E-01
+ TPK%K077=4.00E-12*exp(-(446.0/TPK%T))+0.00E-01*exp(-(-490.0/TPK%T))+0.00E-01
+ TPK%K078=3.76E-16*exp(-(500.0/TPK%T))
+ TPK%K079=8.17E-15*exp(-(2580.0/TPK%T))+4.32E-16*exp(-(1800.0/TPK%T))+2.87E-17*&
+&exp(-(845.0/TPK%T))+0.00E-01*exp(-(2283.0/TPK%T))
+ TPK%K080=7.86E-15*exp(-(1913.0/TPK%T))+0.00E-01*exp(-(732.0/TPK%T))+0.00E-01
!
-!OLEL/WC_NO3=0.0
+RETURN
+END SUBROUTINE SUBSRG7
!
-!OLEL/WC_N2O5=0.0
+SUBROUTINE SUBSRG8
!
-!OLEL/WC_HONO=0.0
+!Indices 81 a 90
!
-!OLEL/WC_HNO3=0.0
+ TPK%K081=0.00E-01*exp(-(2112.0/TPK%T))+1.38E-19
+ TPK%K082=7.20E-17*exp(-(1700.0/TPK%T))
+ TPK%K083=2.00E-11
+ TPK%K084=1.00E-11
+ TPK%K085=3.60E-11
+ TPK%K086=1.66E-17*exp(-(-1044.0/TPK%T))
+ TPK%K087=2.80E-11
+ TPK%K088=TROE(5.86E-01,9.70E-29,5.6,9.30E-12,1.5,TPK%M,TPK%T,KVECNPT)
+ TPK%K089=TROE_EQUIL(9.70E-29,5.6,9.30E-12,1.5,1.16E+28,13954.,TPK%M,TPK%T,KVEC&
+&NPT)
+ TPK%K090=4.20E-12*exp(-(-180.0/TPK%T))
!
-!OLEL/WC_HNO4=0.0
+RETURN
+END SUBROUTINE SUBSRG8
!
-!OLEL/WC_NH3=0.0
+SUBROUTINE SUBSRG9
!
-!OLEL/WC_OH=0.0
+!Indices 91 a 100
!
-!OLEL/WC_HO2=0.0
+ TPK%K091=4.36E-12
+ TPK%K092=6.93E-12
+ TPK%K093=4.00E-12
+ TPK%K094=4.00E-12
+ TPK%K095=1.22E-11
+ TPK%K096=4.00E-12
+ TPK%K097=3.80E-13*exp(-(-800.0/TPK%T))
+ TPK%K098=6.16E-14*exp(-(-700.0/TPK%T))+1.52E-13*exp(-(-1300.0/TPK%T))
+ TPK%K099=1.81E-13*exp(-(-1300.0/TPK%T))
+ TPK%K0100=1.28E-13*exp(-(-1300.0/TPK%T))+0.00E-01
!
-!OLEL/WC_CO2=0.0
+RETURN
+END SUBROUTINE SUBSRG9
!
-!OLEL/WC_SO2=0.0
+SUBROUTINE SUBSRG10
!
-!OLEL/WC_H2SO4=0.0
+!Indices 101 a 110
!
-!OLEL/WC_RO21=0.0
+ TPK%K0101=3.75E-13*exp(-(-980.0/TPK%T))
+ TPK%K0102=5.94E-13*exp(-(-550.0/TPK%T))+1.99E-16*exp(-(-2640.0/TPK%T))+5.56E-1&
+&4*exp(-(-1300.0/TPK%T))
+ TPK%K103=1.66E-13*exp(-(-1300.0/TPK%T))
+ TPK%K104=9.10E-14*exp(-(-416.0/TPK%T))
+ TPK%K105=1.03E-14*exp(-(-158.0/TPK%T))+6.24E-14*exp(-(-431.0/TPK%T))+1.53E-14*&
+&exp(-(-467.0/TPK%T))+4.34E-15*exp(-(-633.0/TPK%T))
+ TPK%K106=1.57E-13*exp(-(-708.0/TPK%T))
+ TPK%K107=1.36E-13*exp(-(-708.0/TPK%T))
+ TPK%K108=3.56E-14*exp(-(-708.0/TPK%T))
+ TPK%K109=1.77E-11*exp(-(440.0/TPK%T))+1.48E-16*exp(-(-2510.0/TPK%T))+3.10E-13*&
+&exp(-(-508.0/TPK%T))
+ TPK%K110=1.12E-13*exp(-(-708.0/TPK%T))
!
-!OLEL/WC_RO25=0.0
+RETURN
+END SUBROUTINE SUBSRG10
!
-!OLEL/WC_MEOH=0.0
+SUBROUTINE SUBSRG11
!
-!OLEL/WC_ETOH=0.0
+!Indices 111 a 120
!
-!OLEL/WC_ALCH=0.0
+ TPK%K111=4.44E-14*exp(-(-211.0/TPK%T))+2.23E-13*exp(-(-460.0/TPK%T))+4.10E-14*&
+&exp(-(-522.0/TPK%T))+1.17E-14*exp(-(-683.0/TPK%T))
+ TPK%K112=4.36E-13*exp(-(-765.0/TPK%T))
+ TPK%K113=7.60E-13*exp(-(-765.0/TPK%T))
+ TPK%K114=3.63E-13*exp(-(-765.0/TPK%T))
+ TPK%K115=7.73E-13*exp(-(-530.0/TPK%T))+1.70E-13*exp(-(-565.0/TPK%T))
+ TPK%K116=4.85E-13*exp(-(-765.0/TPK%T))
+ TPK%K117=4.19E-15*exp(-(-1000.0/TPK%T))
+ TPK%K118=2.48E-14*exp(-(-1000.0/TPK%T))
+ TPK%K119=1.20E-12
+ TPK%K120=1.20E-12
!
-!OLEL/WC_HCHO=0.0
+RETURN
+END SUBROUTINE SUBSRG11
!
-!OLEL/WC_ALD2=0.0
+SUBROUTINE SUBSRG12
!
-!OLEL/WC_GLY=0.0
+!Indices 121 a 130
!
-!OLEL/WC_MGLY=0.0
+ TPK%K121=1.20E-12
+ TPK%K122=1.20E-12
+ TPK%K123=1.20E-12
+ TPK%K124=3.48E-12
+ TPK%K125=1.20E-12
+ TPK%K126=1.66E-13*exp(-(-1300.0/TPK%T))
+ TPK%K127=5.99E-15*exp(-(-1510.0/TPK%T))
+ TPK%K128=1.69E-14*exp(-(-1560.0/TPK%T))
+ TPK%K129=7.13E-17*exp(-(-2950.0/TPK%T))
+ TPK%K130=4.00E-12
!
-!OLEL/WC_KETL=0.0
+RETURN
+END SUBROUTINE SUBSRG12
!
-!OLEL/WC_ORA1=0.0
+SUBROUTINE SUBSRG13
!
-!OLEL/WC_ORA2=0.0
+!Indices 131 a 132
!
-!OLEL/WC_ACID=0.0
+ TPK%K131=1.20E-12
+ TPK%K132=1.00E-40
!
-!OLEL/WC_RP16=0.0
+RETURN
+END SUBROUTINE SUBSRG13
!
-!OLEL/WC_UR21=0.0
+SUBROUTINE SUBSRW0
!
-!OLEL/WC_UR28=0.0
+!Indices 133 a 142
!
-!OLEL/WC_ACID2=0.0
+ TPK%KTC1=KT(0.05,48.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
+ TPK%KTC2=KT(0.11,34.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
+ TPK%KTC3=KT(0.0001,30.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
+ TPK%KTC4=KT(0.0015,46.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
+ TPK%KTC5=KT(0.05,62.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
+ TPK%KTC6=KT(0.0037,108.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
+ TPK%KTC7=KT(0.05,47.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
+ TPK%KTC8=KT(0.054,63.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
+ TPK%KTC9=KT(0.05,79.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
+ TPK%KTC10=KT(0.04,17.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
!
-!OLEL/WC_ASO3=0.0
+RETURN
+END SUBROUTINE SUBSRW0
!
-!OLEL/WC_ASO4=0.0
+SUBROUTINE SUBSRW1
!
-!OLEL/WC_ASO5=0.0
+!Indices 143 a 152
!
-!OLEL/WC_AHSO5=0.0
+ TPK%KTC11=KT(0.05,17.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
+ TPK%KTC12=KT(0.2,30.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
+ TPK%KTC13=KT(0.0002,44.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
+ TPK%KTC14=KT(0.11,64.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
+ TPK%KTC15=KT(0.07,98.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
+ TPK%KTC16=KT(0.04,30.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
+ TPK%KTC17=KT(0.012,46.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
+ TPK%KTC18=KT(0.03,60.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
+ TPK%KTC19=KT(0.05,47.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
+ TPK%KTC20=KT(0.007,48.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
!
-!OLEL/WC_AHMS=0.0
+RETURN
+END SUBROUTINE SUBSRW1
!
-!OLEL/WR_O3=0.0
+SUBROUTINE SUBSRW2
!
-!OLEL/WR_H2O2=0.0
+!Indices 153 a 162
!
-!OLEL/WR_NO=0.0
+ TPK%KTC21=KT(0.05,48.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(1.1e-2,-2830.,TPK%T,KVECN&
+&PT)*TPK%RCH*TPK%T)
+ TPK%KTC22=KT(0.11,34.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(7.73e4,-7310.,TPK%T,KVECN&
+&PT)*TPK%RCH*TPK%T)
+ TPK%KTC23=KT(0.0001,30.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(1.92e-3,-1790.,TPK%T,KV&
+&ECNPT)*TPK%RCH*TPK%T)
+ TPK%KTC24=KT(0.0015,46.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(1.4e-2,0.,TPK%T,KVECNPT&
+&)*TPK%RCH*TPK%T)
+ TPK%KTC25=KT(0.05,62.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(3.8e-2,0.,TPK%T,KVECNPT)*&
+&TPK%RCH*TPK%T)
+ TPK%KTC26=KT(0.0037,108.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(2.1,-3400.,TPK%T,KVECN&
+&PT)*TPK%RCH*TPK%T)
+ TPK%KTC27=KT(0.05,47.,TPK%T,TPK%RADC,KVECNPT)/(HEFFA(5.0e1,-4880.,1.6e-3,1760.&
+&,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
+ TPK%KTC28=KT(0.054,63.,TPK%T,TPK%RADC,KVECNPT)/(HEFFA(2.1e5,-8700.,2.2e1,0.,0.&
+&,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
+ TPK%KTC29=KT(0.05,79.,TPK%T,TPK%RADC,KVECNPT)/(HEFFA(1.2e4,-6900.,1.26e-6,0.,0&
+&.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
+ TPK%KTC30=KT(0.04,17.,TPK%T,TPK%RADC,KVECNPT)/(HEFFB(6.02e1,-4160.,1.7e-5,4350&
+&.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
!
-!OLEL/WR_NO2=0.0
+RETURN
+END SUBROUTINE SUBSRW2
!
-!OLEL/WR_NO3=0.0
+SUBROUTINE SUBSRW3
!
-!OLEL/WR_N2O5=0.0
+!Indices 163 a 172
!
-!OLEL/WR_HONO=0.0
+ TPK%KTC31=KT(0.05,17.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(3.9e1,0.,TPK%T,KVECNPT)*T&
+&PK%RCH*TPK%T)
+ TPK%KTC32=KT(0.2,30.,TPK%T,TPK%RADC,KVECNPT)/(HEFFA(6.9e2,0.,1.6e-5,0.,0.,0.,T&
+&PK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
+ TPK%KTC33=KT(0.0002,44.,TPK%T,TPK%RADC,KVECNPT)/(HEFFA(3.4e-2,-2710.,4.3e-7,92&
+&0.,4.7e-11,1780.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
+ TPK%KTC34=KT(0.11,64.,TPK%T,TPK%RADC,KVECNPT)/(HEFFA(1.36,-2930.,1.3e-2,-1965.&
+&,6.4e-8,-1430.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
+ TPK%KTC35=KT(0.07,98.,TPK%T,TPK%RADC,KVECNPT)/(HEFFA(2.1e5,-8700.,1.0e3,0.,1.0&
+&e-2,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
+ TPK%KTC36=KT(0.04,30.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(3.23e3,-7100.,TPK%T,KVECN&
+&PT)*TPK%RCH*TPK%T)
+ TPK%KTC37=KT(0.012,46.,TPK%T,TPK%RADC,KVECNPT)/(HEFFA(8.9e3,-6100.,1.8e-4,150.&
+&,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
+ TPK%KTC38=KT(0.03,60.,TPK%T,TPK%RADC,KVECNPT)/(HEFFA(4.1e3,-6200.,1.74e-5,0.,0&
+&.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
+ TPK%KTC39=KT(0.05,47.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(2.7e0,-2030.,TPK%T,KVECNP&
+&T)*TPK%RCH*TPK%T)
+ TPK%KTC40=KT(0.007,48.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(3.e2,-5280.,TPK%T,KVECNP&
+&T)*TPK%RCH*TPK%T)
!
-!OLEL/WR_HNO3=0.0
+RETURN
+END SUBROUTINE SUBSRW3
!
-!OLEL/WR_HNO4=0.0
+SUBROUTINE SUBSRW4
!
-!OLEL/WR_NH3=0.0
+!Indices 173 a 182
!
-!OLEL/WR_OH=0.0
+ TPK%KTR1=KT(0.05,48.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
+ TPK%KTR2=KT(0.11,34.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
+ TPK%KTR3=KT(0.0001,30.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
+ TPK%KTR4=KT(0.0015,46.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
+ TPK%KTR5=KT(0.05,62.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
+ TPK%KTR6=KT(0.0037,108.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
+ TPK%KTR7=KT(0.05,47.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
+ TPK%KTR8=KT(0.054,63.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
+ TPK%KTR9=KT(0.05,79.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
+ TPK%KTR10=KT(0.04,17.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
!
-!OLEL/WR_HO2=0.0
+RETURN
+END SUBROUTINE SUBSRW4
!
-!OLEL/WR_CO2=0.0
+SUBROUTINE SUBSRW5
!
-!OLEL/WR_SO2=0.0
+!Indices 183 a 192
!
-!OLEL/WR_H2SO4=0.0
+ TPK%KTR11=KT(0.05,17.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
+ TPK%KTR12=KT(0.2,30.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
+ TPK%KTR13=KT(0.0002,44.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
+ TPK%KTR14=KT(0.11,64.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
+ TPK%KTR15=KT(0.07,98.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
+ TPK%KTR16=KT(0.04,30.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
+ TPK%KTR17=KT(0.012,46.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
+ TPK%KTR18=KT(0.03,60.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
+ TPK%KTR19=KT(0.05,47.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
+ TPK%KTR20=KT(0.007,48.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
!
-!OLEL/WR_RO21=0.0
+RETURN
+END SUBROUTINE SUBSRW5
!
-!OLEL/WR_RO25=0.0
+SUBROUTINE SUBSRW6
!
-!OLEL/WR_MEOH=0.0
+!Indices 193 a 202
!
-!OLEL/WR_ETOH=0.0
+ TPK%KTR21=KT(0.05,48.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(1.1e-2,-2830.,TPK%T,KVECN&
+&PT)*TPK%RCH*TPK%T)
+ TPK%KTR22=KT(0.11,34.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(7.73e4,-7310.,TPK%T,KVECN&
+&PT)*TPK%RCH*TPK%T)
+ TPK%KTR23=KT(0.0001,30.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(1.92e-3,-1790.,TPK%T,KV&
+&ECNPT)*TPK%RCH*TPK%T)
+ TPK%KTR24=KT(0.0015,46.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(1.4e-2,0.,TPK%T,KVECNPT&
+&)*TPK%RCH*TPK%T)
+ TPK%KTR25=KT(0.05,62.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(3.8e-2,0.,TPK%T,KVECNPT)*&
+&TPK%RCH*TPK%T)
+ TPK%KTR26=KT(0.0037,108.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(2.1,-3400.,TPK%T,KVECN&
+&PT)*TPK%RCH*TPK%T)
+ TPK%KTR27=KT(0.05,47.,TPK%T,TPK%RADR,KVECNPT)/(HEFFA(5.0e1,-4880.,1.6e-3,1760.&
+&,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
+ TPK%KTR28=KT(0.054,63.,TPK%T,TPK%RADR,KVECNPT)/(HEFFA(2.1e5,-8700.,2.2e1,0.,0.&
+&,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
+ TPK%KTR29=KT(0.05,79.,TPK%T,TPK%RADR,KVECNPT)/(HEFFA(1.2e4,-6900.,1.26e-6,0.,0&
+&.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
+ TPK%KTR30=KT(0.04,17.,TPK%T,TPK%RADR,KVECNPT)/(HEFFB(6.02e1,-4160.,1.7e-5,4350&
+&.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
!
-!OLEL/WR_ALCH=0.0
+RETURN
+END SUBROUTINE SUBSRW6
!
-!OLEL/WR_HCHO=0.0
+SUBROUTINE SUBSRW7
!
-!OLEL/WR_ALD2=0.0
+!Indices 203 a 212
!
-!OLEL/WR_GLY=0.0
+ TPK%KTR31=KT(0.05,17.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(3.9e1,0.,TPK%T,KVECNPT)*T&
+&PK%RCH*TPK%T)
+ TPK%KTR32=KT(0.2,30.,TPK%T,TPK%RADR,KVECNPT)/(HEFFA(6.9e2,0.,1.6e-5,0.,0.,0.,T&
+&PK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
+ TPK%KTR33=KT(0.0002,44.,TPK%T,TPK%RADR,KVECNPT)/(HEFFA(3.4e-2,-2710.,4.3e-7,92&
+&0.,4.7e-11,1780.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
+ TPK%KTR34=KT(0.11,64.,TPK%T,TPK%RADR,KVECNPT)/(HEFFA(1.36,-2930.,1.3e-2,-1965.&
+&,6.4e-8,-1430.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
+ TPK%KTR35=KT(0.07,98.,TPK%T,TPK%RADR,KVECNPT)/(HEFFA(2.1e5,-8700.,1.0e3,0.,1.0&
+&e-2,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
+ TPK%KTR36=KT(0.04,30.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(3.23e3,-7100.,TPK%T,KVECN&
+&PT)*TPK%RCH*TPK%T)
+ TPK%KTR37=KT(0.012,46.,TPK%T,TPK%RADR,KVECNPT)/(HEFFA(8.9e3,-6100.,1.8e-4,150.&
+&,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
+ TPK%KTR38=KT(0.03,60.,TPK%T,TPK%RADR,KVECNPT)/(HEFFA(4.1e3,-6200.,1.74e-5,0.,0&
+&.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
+ TPK%KTR39=KT(0.05,47.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(2.7e0,-2030.,TPK%T,KVECNP&
+&T)*TPK%RCH*TPK%T)
+ TPK%KTR40=KT(0.007,48.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(3.e2,-5280.,TPK%T,KVECNP&
+&T)*TPK%RCH*TPK%T)
!
-!OLEL/WR_MGLY=0.0
+RETURN
+END SUBROUTINE SUBSRW7
!
-!OLEL/WR_KETL=0.0
+SUBROUTINE SUBSRW8
!
-!OLEL/WR_ORA1=0.0
+!Indices 213 a 222
!
-!OLEL/WR_ORA2=0.0
+ TPK%KC2=(3.6E+9*exp(-930.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECCLOUD
+ TPK%KC3=((2.8E+10*10.**(-TPK%PHC)+3.5E+10*exp(-720.*(1./TPK%T-1./298.15))*1.6e&
+&-5)/(1.6e-5+10.**(-TPK%PHC)))/TPK%MOL2MOLECCLOUD
+ TPK%KC4=(3.2E+7*exp(-1700.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECCLOUD
+ TPK%KC5=((8.3E+5*exp(-2700.*(1./TPK%T-1./298.15))*(10.**(-TPK%PHC))**2.+9.6E+7&
+&*exp(-910.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)*1.6e-5)/(1.6e-5+10.**(-TPK%PH&
+&C))**2.)/TPK%MOL2MOLECCLOUD
+ TPK%KC6=(1.5E+9*exp(-1500.*(1./TPK%T-1./298.15))*1.6e-5/(1.6e-5+10.**(-TPK%PHC&
+&)))/TPK%MOL2MOLECCLOUD
+ TPK%KC7=(2.7E+9*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)/(1.3e-2&
+&*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2&
+&*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.))/TPK%M&
+&OL2MOLECCLOUD
+ TPK%KC8=(1.0E+10*10.**(-TPK%PHC)/(1.6e-3*exp(-1760.*(1./TPK%T-1./298.15))+10.*&
+&*(-TPK%PHC)))/TPK%MOL2MOLECCLOUD
+ TPK%KC9=((1.8E+9*10.**(-TPK%PHC)+4.5E+9*1.6e-5)/(1.6e-5+10.**(-TPK%PHC)))/TPK%&
+&MOL2MOLECCLOUD
+ TPK%KC10=2.6E-2*10.**(-TPK%PHC)/(1.26e-6+10.**(-TPK%PHC))
!
-!OLEL/WR_ACID=0.0
+RETURN
+END SUBROUTINE SUBSRW8
!
-!OLEL/WR_RP16=0.0
+SUBROUTINE SUBSRW9
!
-!OLEL/WR_UR21=0.0
+!Indices 223 a 232
!
-!OLEL/WR_UR28=0.0
+ TPK%KC11=1.1E0*1.26e-6/(1.26e-6+10.**(-TPK%PHC))
+ TPK%KC12=(3.3E+5*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*(10.**(-TPK%PHC))**2./&
+&((1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15)&
+&)+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.&
+&)*(1.26e-6+10.**(-TPK%PHC))))/TPK%MOL2MOLECCLOUD
+ TPK%KC14=1.0E+10
+ TPK%KC15=(1.0E+5*1.0e+3*1.0e-2/(1.0e+3*1.0e-2+1.0e+3*10.**(-TPK%PHC)+(10.**(-T&
+&PK%PHC))**2.))/TPK%MOL2MOLECCLOUD
+ TPK%KC16=(1.3E+9*exp(-2200.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1&
+&./298.15))*10.**(-TPK%PHC)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(&
+&1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%&
+&PHC)+(10.**(-TPK%PHC))**2.))/TPK%MOL2MOLECCLOUD
+ TPK%KC17=(1.7E+8*exp(-2200.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECCLOUD
+ TPK%KC18=(5.0E+5*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)/(1.3e-&
+&2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-&
+&2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.))/TPK%&
+&MOL2MOLECCLOUD
+ TPK%KC19=(7.8E+8*exp(-1000.*(1./TPK%T-1./298.15))*2.5e3*exp(4030.*(1./TPK%T-1.&
+&/298.15))/(1.+2.5e3*exp(4030.*(1./TPK%T-1./298.15))))/TPK%MOL2MOLECCLOUD
+ TPK%KC20=((1.0E+8*exp(-1000.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+3.4E+9*exp(&
+&-1200.*(1./TPK%T-1./298.15))*1.8e-4*exp(150.*(1./TPK%T-1./298.15)))/(1.8e-4*ex&
+&p(150.*(1./TPK%T-1./298.15))+10.**(-TPK%PHC)))/TPK%MOL2MOLECCLOUD
!
-!OLEL/WR_ACID2=0.0
+RETURN
+END SUBROUTINE SUBSRW9
!
-!OLEL/WR_ASO3=0.0
+SUBROUTINE SUBSRW10
!
-!OLEL/WR_ASO4=0.0
+!Indices 233 a 242
!
-!OLEL/WR_ASO5=0.0
+ TPK%KC21=((7.9E+2*exp(-2900.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-&
+&1./298.15))*10.**(-TPK%PHC)+2.5E+7*exp(-2450.*(1./TPK%T-1./298.15))*1.3e-2*exp&
+&(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15)))/((1.3e-2*&
+&exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*&
+&exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.)*(1.+2.5&
+&e3*exp(4030.*(1./TPK%T-1./298.15)))))/TPK%MOL2MOLECCLOUD
+ TPK%KC22=7.7E-3*exp(-9200.*(1./TPK%T-1./298.15))+3.7E+3*1.e-14*EXP(-6716*(1./T&
+&PK%T-1./298.15))/10.**(-TPK%PHC)
+ TPK%KC23=3.0E+8/TPK%MOL2MOLECCLOUD
+ TPK%KC24=1.1E+9
+ TPK%KC25=(1.7E+9*10.**(-TPK%PHC)/(1.6e-5+10.**(-TPK%PHC)))/TPK%MOL2MOLECCLOUD
+ TPK%KC26=(2.2E+8*exp(-2600.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECCLOUD
+ TPK%KC27=(7.1E+6*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)*10.**(&
+&-TPK%PHC)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1&
+&./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%&
+&PHC))**2.))/TPK%MOL2MOLECCLOUD
+ TPK%KC28=4.6E+2*exp(-1100.*(1./TPK%T-1./298.15))
+ TPK%KC29=((3.7E+5*exp(-5500.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-&
+&1./298.15))*10.**(-TPK%PHC)+1.5E+9*exp(-5300.*(1./TPK%T-1./298.15))*1.3e-2*exp&
+&(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15)))/(1.3e-2*e&
+&xp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*e&
+&xp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.))/TPK%MOL&
+&2MOLECCLOUD
+ TPK%KC30=(9.1E+7*exp(-3600.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1&
+&./298.15))*10.**(-TPK%PHC)*10.**(-TPK%PHC)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.&
+&15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.&
+&15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.))/TPK%MOL2MOLECCLOUD
!
-!OLEL/WR_AHSO5=0.0
+RETURN
+END SUBROUTINE SUBSRW10
!
-!OLEL/WR_AHMS=0.0
+SUBROUTINE SUBSRW11
!
-!OLEH/NO=0.0
-!
-!OLEH/NO2=0.0
-!
-!OLEH/O3=-K076*<OLEH>
- PJAC(:,18,3)=-TPK%K076(:)*PCONC(:,18)
-!
-!OLEH/HONO=0.0
-!
-!OLEH/HNO3=0.0
-!
-!OLEH/HNO4=0.0
-!
-!OLEH/N2O5=0.0
-!
-!OLEH/NO3=-K075*<OLEH>
- PJAC(:,18,8)=-TPK%K075(:)*PCONC(:,18)
-!
-!OLEH/NH3=0.0
-!
-!OLEH/HO2=0.0
-!
-!OLEH/CO=0.0
-!
-!OLEH/H2O2=0.0
-!
-!OLEH/SO2=0.0
-!
-!OLEH/H2SO4=0.0
-!
-!OLEH/OH=-K074*<OLEH>
- PJAC(:,18,15)=-TPK%K074(:)*PCONC(:,18)
-!
-!OLEH/ETHE=0.0
-!
-!OLEH/OLEL=0.0
-!
-!OLEH/OLEH=-K074*<OH>-K075*<NO3>-K076*<O3>-K077*<O>
- PJAC(:,18,18)=-TPK%K074(:)*PCONC(:,15)-TPK%K075(:)*PCONC(:,8)-TPK%K076(:)*PCON&
-&C(:,3)-TPK%K077(:)*TPK%O(:)
-!
-!OLEH/ALKL=0.0
-!
-!OLEH/ALKM=0.0
-!
-!OLEH/ALKH=0.0
-!
-!OLEH/AROH=0.0
-!
-!OLEH/AROL=0.0
-!
-!OLEH/AROO=0.0
-!
-!OLEH/ARAL=0.0
-!
-!OLEH/ARAC=0.0
-!
-!OLEH/PAH=0.0
-!
-!OLEH/HCHO=0.0
-!
-!OLEH/ALD2=0.0
-!
-!OLEH/KETL=0.0
-!
-!OLEH/KETH=0.0
-!
-!OLEH/MEOH=0.0
-!
-!OLEH/ETOH=0.0
-!
-!OLEH/ALCH=0.0
-!
-!OLEH/ISOP=0.0
-!
-!OLEH/BIOL=0.0
-!
-!OLEH/BIOH=0.0
-!
-!OLEH/MTBE=0.0
-!
-!OLEH/MVK=0.0
-!
-!OLEH/MCR=0.0
-!
-!OLEH/MGLY=0.0
-!
-!OLEH/GLY=0.0
-!
-!OLEH/ORA1=0.0
-!
-!OLEH/ORA2=0.0
-!
-!OLEH/ACID=0.0
-!
-!OLEH/UR28=0.0
-!
-!OLEH/UR21=0.0
-!
-!OLEH/URG2=0.0
-!
-!OLEH/UR26=0.0
-!
-!OLEH/RPG2=0.0
-!
-!OLEH/RP18=0.0
-!
-!OLEH/RPG3=0.0
-!
-!OLEH/URG4=0.0
-!
-!OLEH/UR8=0.0
-!
-!OLEH/UR17=0.0
-!
-!OLEH/UR7=0.0
-!
-!OLEH/RPR3=0.0
-!
-!OLEH/URG6=0.0
-!
-!OLEH/UR22=0.0
-!
-!OLEH/URG7=0.0
-!
-!OLEH/RPR4=0.0
-!
-!OLEH/RPR7=0.0
-!
-!OLEH/RPG7=0.0
-!
-!OLEH/URG8=0.0
-!
-!OLEH/UR19=0.0
-!
-!OLEH/URG9=0.0
-!
-!OLEH/AP7=0.0
-!
-!OLEH/URG10=0.0
-!
-!OLEH/RPR1=0.0
-!
-!OLEH/RPR5=0.0
-!
-!OLEH/RPR8=0.0
-!
-!OLEH/RP10=0.0
-!
-!OLEH/RP11=0.0
-!
-!OLEH/RP16=0.0
-!
-!OLEH/RPRL=0.0
-!
-!OLEH/APAN=0.0
-!
-!OLEH/PAN1=0.0
-!
-!OLEH/PAN2=0.0
-!
-!OLEH/PAN3=0.0
-!
-!OLEH/PAN4=0.0
-!
-!OLEH/PAN6=0.0
-!
-!OLEH/PAN7=0.0
-!
-!OLEH/PAN8=0.0
-!
-!OLEH/PN10=0.0
-!
-!OLEH/RO2T=0.0
-!
-!OLEH/RO21=0.0
-!
-!OLEH/RO25=0.0
-!
-!OLEH/WC_O3=0.0
-!
-!OLEH/WC_H2O2=0.0
-!
-!OLEH/WC_NO=0.0
-!
-!OLEH/WC_NO2=0.0
-!
-!OLEH/WC_NO3=0.0
-!
-!OLEH/WC_N2O5=0.0
-!
-!OLEH/WC_HONO=0.0
-!
-!OLEH/WC_HNO3=0.0
-!
-!OLEH/WC_HNO4=0.0
-!
-!OLEH/WC_NH3=0.0
-!
-!OLEH/WC_OH=0.0
-!
-!OLEH/WC_HO2=0.0
-!
-!OLEH/WC_CO2=0.0
-!
-!OLEH/WC_SO2=0.0
-!
-!OLEH/WC_H2SO4=0.0
-!
-!OLEH/WC_RO21=0.0
-!
-!OLEH/WC_RO25=0.0
-!
-!OLEH/WC_MEOH=0.0
-!
-!OLEH/WC_ETOH=0.0
-!
-!OLEH/WC_ALCH=0.0
-!
-!OLEH/WC_HCHO=0.0
-!
-!OLEH/WC_ALD2=0.0
-!
-!OLEH/WC_GLY=0.0
-!
-!OLEH/WC_MGLY=0.0
-!
-!OLEH/WC_KETL=0.0
-!
-!OLEH/WC_ORA1=0.0
-!
-!OLEH/WC_ORA2=0.0
-!
-!OLEH/WC_ACID=0.0
-!
-!OLEH/WC_RP16=0.0
-!
-!OLEH/WC_UR21=0.0
-!
-!OLEH/WC_UR28=0.0
-!
-!OLEH/WC_ACID2=0.0
-!
-!OLEH/WC_ASO3=0.0
-!
-!OLEH/WC_ASO4=0.0
-!
-!OLEH/WC_ASO5=0.0
-!
-!OLEH/WC_AHSO5=0.0
-!
-!OLEH/WC_AHMS=0.0
-!
-!OLEH/WR_O3=0.0
-!
-!OLEH/WR_H2O2=0.0
-!
-!OLEH/WR_NO=0.0
-!
-!OLEH/WR_NO2=0.0
-!
-!OLEH/WR_NO3=0.0
-!
-!OLEH/WR_N2O5=0.0
-!
-!OLEH/WR_HONO=0.0
-!
-!OLEH/WR_HNO3=0.0
-!
-!OLEH/WR_HNO4=0.0
-!
-!OLEH/WR_NH3=0.0
-!
-!OLEH/WR_OH=0.0
-!
-!OLEH/WR_HO2=0.0
-!
-!OLEH/WR_CO2=0.0
-!
-!OLEH/WR_SO2=0.0
-!
-!OLEH/WR_H2SO4=0.0
-!
-!OLEH/WR_RO21=0.0
-!
-!OLEH/WR_RO25=0.0
-!
-!OLEH/WR_MEOH=0.0
-!
-!OLEH/WR_ETOH=0.0
-!
-!OLEH/WR_ALCH=0.0
-!
-!OLEH/WR_HCHO=0.0
-!
-!OLEH/WR_ALD2=0.0
-!
-!OLEH/WR_GLY=0.0
-!
-!OLEH/WR_MGLY=0.0
-!
-!OLEH/WR_KETL=0.0
-!
-!OLEH/WR_ORA1=0.0
-!
-!OLEH/WR_ORA2=0.0
-!
-!OLEH/WR_ACID=0.0
-!
-!OLEH/WR_RP16=0.0
-!
-!OLEH/WR_UR21=0.0
-!
-!OLEH/WR_UR28=0.0
-!
-!OLEH/WR_ACID2=0.0
-!
-!OLEH/WR_ASO3=0.0
-!
-!OLEH/WR_ASO4=0.0
-!
-!OLEH/WR_ASO5=0.0
-!
-!OLEH/WR_AHSO5=0.0
-!
-!OLEH/WR_AHMS=0.0
-!
-!ALKL/NO=+TPK%CF3*K122*<RO25>+TPK%CF12*K171*<RO215>
- PJAC(:,19,1)=+TPK%CF3*TPK%K122(:)*PCONC(:,87)+TPK%CF12*TPK%K171(:)*TPK%RO215(:&
-&)
-!
-!ALKL/NO2=0.0
-!
-!ALKL/O3=+0.1*K056*<OLEL>
- PJAC(:,19,3)=+0.1*TPK%K056(:)*PCONC(:,17)
-!
-!ALKL/HONO=0.0
-!
-!ALKL/HNO3=0.0
-!
-!ALKL/HNO4=0.0
-!
-!ALKL/N2O5=0.0
-!
-!ALKL/NO3=0.0
-!
-!ALKL/NH3=0.0
-!
-!ALKL/HO2=+TPK%CF16*K173*<RO215>
- PJAC(:,19,10)=+TPK%CF16*TPK%K173(:)*TPK%RO215(:)
-!
-!ALKL/CO=0.0
-!
-!ALKL/H2O2=0.0
-!
-!ALKL/SO2=0.0
-!
-!ALKL/H2SO4=0.0
-!
-!ALKL/OH=-K058*<ALKL>
- PJAC(:,19,15)=-TPK%K058(:)*PCONC(:,19)
-!
-!ALKL/ETHE=0.0
-!
-!ALKL/OLEL=+0.1*K056*<O3>+0.5*K057*<O>
- PJAC(:,19,17)=+0.1*TPK%K056(:)*PCONC(:,3)+0.5*TPK%K057(:)*TPK%O(:)
-!
-!ALKL/OLEH=0.0
-!
-!ALKL/ALKL=-K058*<OH>
- PJAC(:,19,19)=-TPK%K058(:)*PCONC(:,15)
-!
-!ALKL/ALKM=0.0
-!
-!ALKL/ALKH=0.0
-!
-!ALKL/AROH=0.0
-!
-!ALKL/AROL=0.0
-!
-!ALKL/AROO=0.0
-!
-!ALKL/ARAL=0.0
-!
-!ALKL/ARAC=0.0
-!
-!ALKL/PAH=0.0
-!
-!ALKL/HCHO=0.0
-!
-!ALKL/ALD2=0.0
-!
-!ALKL/KETL=0.0
-!
-!ALKL/KETH=0.0
-!
-!ALKL/MEOH=0.0
-!
-!ALKL/ETOH=0.0
-!
-!ALKL/ALCH=0.0
-!
-!ALKL/ISOP=0.0
-!
-!ALKL/BIOL=0.0
-!
-!ALKL/BIOH=0.0
-!
-!ALKL/MTBE=0.0
-!
-!ALKL/MVK=0.0
-!
-!ALKL/MCR=0.0
-!
-!ALKL/MGLY=0.0
-!
-!ALKL/GLY=0.0
-!
-!ALKL/ORA1=0.0
-!
-!ALKL/ORA2=0.0
-!
-!ALKL/ACID=0.0
-!
-!ALKL/UR28=0.0
-!
-!ALKL/UR21=0.0
-!
-!ALKL/URG2=0.0
-!
-!ALKL/UR26=0.0
-!
-!ALKL/RPG2=0.0
-!
-!ALKL/RP18=0.0
-!
-!ALKL/RPG3=0.0
-!
-!ALKL/URG4=0.0
-!
-!ALKL/UR8=0.0
-!
-!ALKL/UR17=0.0
-!
-!ALKL/UR7=0.0
-!
-!ALKL/RPR3=0.0
-!
-!ALKL/URG6=0.0
-!
-!ALKL/UR22=0.0
-!
-!ALKL/URG7=0.0
-!
-!ALKL/RPR4=0.0
-!
-!ALKL/RPR7=0.0
-!
-!ALKL/RPG7=0.0
-!
-!ALKL/URG8=0.0
-!
-!ALKL/UR19=0.0
-!
-!ALKL/URG9=0.0
-!
-!ALKL/AP7=0.0
-!
-!ALKL/URG10=0.0
-!
-!ALKL/RPR1=0.0
-!
-!ALKL/RPR5=0.0
-!
-!ALKL/RPR8=0.0
-!
-!ALKL/RP10=0.0
-!
-!ALKL/RP11=0.0
-!
-!ALKL/RP16=0.0
-!
-!ALKL/RPRL=0.0
-!
-!ALKL/APAN=0.0
-!
-!ALKL/PAN1=0.0
-!
-!ALKL/PAN2=0.0
-!
-!ALKL/PAN3=0.0
-!
-!ALKL/PAN4=0.0
-!
-!ALKL/PAN6=0.0
-!
-!ALKL/PAN7=0.0
-!
-!ALKL/PAN8=0.0
-!
-!ALKL/PN10=0.0
-!
-!ALKL/RO2T=+TPK%CF16*K172*<RO215>
- PJAC(:,19,85)=+TPK%CF16*TPK%K172(:)*TPK%RO215(:)
-!
-!ALKL/RO21=0.0
-!
-!ALKL/RO25=+TPK%CF3*K122*<NO>
- PJAC(:,19,87)=+TPK%CF3*TPK%K122(:)*PCONC(:,1)
-!
-!ALKL/WC_O3=0.0
-!
-!ALKL/WC_H2O2=0.0
-!
-!ALKL/WC_NO=0.0
-!
-!ALKL/WC_NO2=0.0
-!
-!ALKL/WC_NO3=0.0
-!
-!ALKL/WC_N2O5=0.0
-!
-!ALKL/WC_HONO=0.0
-!
-!ALKL/WC_HNO3=0.0
-!
-!ALKL/WC_HNO4=0.0
-!
-!ALKL/WC_NH3=0.0
-!
-!ALKL/WC_OH=0.0
-!
-!ALKL/WC_HO2=0.0
-!
-!ALKL/WC_CO2=0.0
-!
-!ALKL/WC_SO2=0.0
-!
-!ALKL/WC_H2SO4=0.0
-!
-!ALKL/WC_RO21=0.0
-!
-!ALKL/WC_RO25=0.0
-!
-!ALKL/WC_MEOH=0.0
-!
-!ALKL/WC_ETOH=0.0
-!
-!ALKL/WC_ALCH=0.0
-!
-!ALKL/WC_HCHO=0.0
-!
-!ALKL/WC_ALD2=0.0
-!
-!ALKL/WC_GLY=0.0
-!
-!ALKL/WC_MGLY=0.0
-!
-!ALKL/WC_KETL=0.0
-!
-!ALKL/WC_ORA1=0.0
-!
-!ALKL/WC_ORA2=0.0
-!
-!ALKL/WC_ACID=0.0
-!
-!ALKL/WC_RP16=0.0
-!
-!ALKL/WC_UR21=0.0
-!
-!ALKL/WC_UR28=0.0
-!
-!ALKL/WC_ACID2=0.0
-!
-!ALKL/WC_ASO3=0.0
-!
-!ALKL/WC_ASO4=0.0
-!
-!ALKL/WC_ASO5=0.0
-!
-!ALKL/WC_AHSO5=0.0
-!
-!ALKL/WC_AHMS=0.0
-!
-!ALKL/WR_O3=0.0
-!
-!ALKL/WR_H2O2=0.0
-!
-!ALKL/WR_NO=0.0
-!
-!ALKL/WR_NO2=0.0
-!
-!ALKL/WR_NO3=0.0
-!
-!ALKL/WR_N2O5=0.0
-!
-!ALKL/WR_HONO=0.0
-!
-!ALKL/WR_HNO3=0.0
-!
-!ALKL/WR_HNO4=0.0
-!
-!ALKL/WR_NH3=0.0
-!
-!ALKL/WR_OH=0.0
-!
-!ALKL/WR_HO2=0.0
-!
-!ALKL/WR_CO2=0.0
-!
-!ALKL/WR_SO2=0.0
-!
-!ALKL/WR_H2SO4=0.0
-!
-!ALKL/WR_RO21=0.0
-!
-!ALKL/WR_RO25=0.0
-!
-!ALKL/WR_MEOH=0.0
-!
-!ALKL/WR_ETOH=0.0
-!
-!ALKL/WR_ALCH=0.0
-!
-!ALKL/WR_HCHO=0.0
-!
-!ALKL/WR_ALD2=0.0
-!
-!ALKL/WR_GLY=0.0
-!
-!ALKL/WR_MGLY=0.0
-!
-!ALKL/WR_KETL=0.0
-!
-!ALKL/WR_ORA1=0.0
-!
-!ALKL/WR_ORA2=0.0
-!
-!ALKL/WR_ACID=0.0
-!
-!ALKL/WR_RP16=0.0
-!
-!ALKL/WR_UR21=0.0
-!
-!ALKL/WR_UR28=0.0
-!
-!ALKL/WR_ACID2=0.0
-!
-!ALKL/WR_ASO3=0.0
-!
-!ALKL/WR_ASO4=0.0
-!
-!ALKL/WR_ASO5=0.0
-!
-!ALKL/WR_AHSO5=0.0
-!
-!ALKL/WR_AHMS=0.0
-!
-!ALKM/NO=0.0
-!
-!ALKM/NO2=0.0
-!
-!ALKM/O3=+0.1*K076*<OLEH>
- PJAC(:,20,3)=+0.1*TPK%K076(:)*PCONC(:,18)
-!
-!ALKM/HONO=0.0
-!
-!ALKM/HNO3=0.0
-!
-!ALKM/HNO4=0.0
-!
-!ALKM/N2O5=0.0
-!
-!ALKM/NO3=0.0
-!
-!ALKM/NH3=0.0
-!
-!ALKM/HO2=0.0
-!
-!ALKM/CO=0.0
-!
-!ALKM/H2O2=0.0
-!
-!ALKM/SO2=0.0
-!
-!ALKM/H2SO4=0.0
-!
-!ALKM/OH=-K078*<ALKM>
- PJAC(:,20,15)=-TPK%K078(:)*PCONC(:,20)
-!
-!ALKM/ETHE=0.0
-!
-!ALKM/OLEL=0.0
-!
-!ALKM/OLEH=+0.1*K076*<O3>+0.5*K077*<O>
- PJAC(:,20,18)=+0.1*TPK%K076(:)*PCONC(:,3)+0.5*TPK%K077(:)*TPK%O(:)
-!
-!ALKM/ALKL=0.0
-!
-!ALKM/ALKM=-K078*<OH>
- PJAC(:,20,20)=-TPK%K078(:)*PCONC(:,15)
-!
-!ALKM/ALKH=0.0
-!
-!ALKM/AROH=0.0
-!
-!ALKM/AROL=0.0
-!
-!ALKM/AROO=0.0
-!
-!ALKM/ARAL=0.0
-!
-!ALKM/ARAC=0.0
-!
-!ALKM/PAH=0.0
-!
-!ALKM/HCHO=0.0
-!
-!ALKM/ALD2=0.0
-!
-!ALKM/KETL=0.0
-!
-!ALKM/KETH=0.0
-!
-!ALKM/MEOH=0.0
-!
-!ALKM/ETOH=0.0
-!
-!ALKM/ALCH=0.0
-!
-!ALKM/ISOP=0.0
-!
-!ALKM/BIOL=0.0
-!
-!ALKM/BIOH=0.0
-!
-!ALKM/MTBE=0.0
-!
-!ALKM/MVK=0.0
-!
-!ALKM/MCR=0.0
-!
-!ALKM/MGLY=0.0
-!
-!ALKM/GLY=0.0
-!
-!ALKM/ORA1=0.0
-!
-!ALKM/ORA2=0.0
-!
-!ALKM/ACID=0.0
-!
-!ALKM/UR28=0.0
-!
-!ALKM/UR21=0.0
-!
-!ALKM/URG2=0.0
-!
-!ALKM/UR26=0.0
-!
-!ALKM/RPG2=0.0
-!
-!ALKM/RP18=0.0
-!
-!ALKM/RPG3=0.0
-!
-!ALKM/URG4=0.0
-!
-!ALKM/UR8=0.0
-!
-!ALKM/UR17=0.0
-!
-!ALKM/UR7=0.0
-!
-!ALKM/RPR3=0.0
-!
-!ALKM/URG6=0.0
-!
-!ALKM/UR22=0.0
-!
-!ALKM/URG7=0.0
-!
-!ALKM/RPR4=0.0
-!
-!ALKM/RPR7=0.0
-!
-!ALKM/RPG7=0.0
-!
-!ALKM/URG8=0.0
-!
-!ALKM/UR19=0.0
-!
-!ALKM/URG9=0.0
-!
-!ALKM/AP7=0.0
-!
-!ALKM/URG10=0.0
-!
-!ALKM/RPR1=0.0
-!
-!ALKM/RPR5=0.0
-!
-!ALKM/RPR8=0.0
-!
-!ALKM/RP10=0.0
-!
-!ALKM/RP11=0.0
-!
-!ALKM/RP16=0.0
-!
-!ALKM/RPRL=0.0
-!
-!ALKM/APAN=0.0
-!
-!ALKM/PAN1=0.0
-!
-!ALKM/PAN2=0.0
-!
-!ALKM/PAN3=0.0
-!
-!ALKM/PAN4=0.0
-!
-!ALKM/PAN6=0.0
-!
-!ALKM/PAN7=0.0
-!
-!ALKM/PAN8=0.0
-!
-!ALKM/PN10=0.0
-!
-!ALKM/RO2T=0.0
-!
-!ALKM/RO21=0.0
-!
-!ALKM/RO25=0.0
-!
-!ALKM/WC_O3=0.0
-!
-!ALKM/WC_H2O2=0.0
-!
-!ALKM/WC_NO=0.0
-!
-!ALKM/WC_NO2=0.0
-!
-!ALKM/WC_NO3=0.0
-!
-!ALKM/WC_N2O5=0.0
-!
-!ALKM/WC_HONO=0.0
-!
-!ALKM/WC_HNO3=0.0
-!
-!ALKM/WC_HNO4=0.0
-!
-!ALKM/WC_NH3=0.0
-!
-!ALKM/WC_OH=0.0
-!
-!ALKM/WC_HO2=0.0
-!
-!ALKM/WC_CO2=0.0
-!
-!ALKM/WC_SO2=0.0
-!
-!ALKM/WC_H2SO4=0.0
-!
-!ALKM/WC_RO21=0.0
-!
-!ALKM/WC_RO25=0.0
-!
-!ALKM/WC_MEOH=0.0
-!
-!ALKM/WC_ETOH=0.0
-!
-!ALKM/WC_ALCH=0.0
-!
-!ALKM/WC_HCHO=0.0
-!
-!ALKM/WC_ALD2=0.0
-!
-!ALKM/WC_GLY=0.0
-!
-!ALKM/WC_MGLY=0.0
-!
-!ALKM/WC_KETL=0.0
-!
-!ALKM/WC_ORA1=0.0
-!
-!ALKM/WC_ORA2=0.0
-!
-!ALKM/WC_ACID=0.0
-!
-!ALKM/WC_RP16=0.0
-!
-!ALKM/WC_UR21=0.0
-!
-!ALKM/WC_UR28=0.0
-!
-!ALKM/WC_ACID2=0.0
-!
-!ALKM/WC_ASO3=0.0
-!
-!ALKM/WC_ASO4=0.0
-!
-!ALKM/WC_ASO5=0.0
-!
-!ALKM/WC_AHSO5=0.0
-!
-!ALKM/WC_AHMS=0.0
-!
-!ALKM/WR_O3=0.0
-!
-!ALKM/WR_H2O2=0.0
-!
-!ALKM/WR_NO=0.0
-!
-!ALKM/WR_NO2=0.0
-!
-!ALKM/WR_NO3=0.0
-!
-!ALKM/WR_N2O5=0.0
-!
-!ALKM/WR_HONO=0.0
-!
-!ALKM/WR_HNO3=0.0
-!
-!ALKM/WR_HNO4=0.0
-!
-!ALKM/WR_NH3=0.0
-!
-!ALKM/WR_OH=0.0
-!
-!ALKM/WR_HO2=0.0
-!
-!ALKM/WR_CO2=0.0
-!
-!ALKM/WR_SO2=0.0
-!
-!ALKM/WR_H2SO4=0.0
-!
-!ALKM/WR_RO21=0.0
-!
-!ALKM/WR_RO25=0.0
-!
-!ALKM/WR_MEOH=0.0
-!
-!ALKM/WR_ETOH=0.0
-!
-!ALKM/WR_ALCH=0.0
-!
-!ALKM/WR_HCHO=0.0
-!
-!ALKM/WR_ALD2=0.0
-!
-!ALKM/WR_GLY=0.0
-!
-!ALKM/WR_MGLY=0.0
-!
-!ALKM/WR_KETL=0.0
-!
-!ALKM/WR_ORA1=0.0
-!
-!ALKM/WR_ORA2=0.0
-!
-!ALKM/WR_ACID=0.0
-!
-!ALKM/WR_RP16=0.0
-!
-!ALKM/WR_UR21=0.0
-!
-!ALKM/WR_UR28=0.0
-!
-!ALKM/WR_ACID2=0.0
-!
-!ALKM/WR_ASO3=0.0
-!
-!ALKM/WR_ASO4=0.0
-!
-!ALKM/WR_ASO5=0.0
-!
-!ALKM/WR_AHSO5=0.0
-!
-!ALKM/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ3
-!
-SUBROUTINE SUBJ4
-!
-!Indices 21 a 25
-!
-!
-!ALKH/NO=0.0
-!
-!ALKH/NO2=0.0
-!
-!ALKH/O3=0.0
-!
-!ALKH/HONO=0.0
-!
-!ALKH/HNO3=0.0
-!
-!ALKH/HNO4=0.0
-!
-!ALKH/N2O5=0.0
-!
-!ALKH/NO3=0.0
-!
-!ALKH/NH3=0.0
-!
-!ALKH/HO2=0.0
-!
-!ALKH/CO=0.0
-!
-!ALKH/H2O2=0.0
-!
-!ALKH/SO2=0.0
-!
-!ALKH/H2SO4=0.0
-!
-!ALKH/OH=-K093*<ALKH>
- PJAC(:,21,15)=-TPK%K093(:)*PCONC(:,21)
-!
-!ALKH/ETHE=0.0
-!
-!ALKH/OLEL=0.0
-!
-!ALKH/OLEH=0.0
-!
-!ALKH/ALKL=0.0
-!
-!ALKH/ALKM=0.0
-!
-!ALKH/ALKH=-K093*<OH>
- PJAC(:,21,21)=-TPK%K093(:)*PCONC(:,15)
-!
-!ALKH/AROH=0.0
-!
-!ALKH/AROL=0.0
-!
-!ALKH/AROO=0.0
-!
-!ALKH/ARAL=0.0
-!
-!ALKH/ARAC=0.0
-!
-!ALKH/PAH=0.0
-!
-!ALKH/HCHO=0.0
-!
-!ALKH/ALD2=0.0
-!
-!ALKH/KETL=0.0
-!
-!ALKH/KETH=0.0
-!
-!ALKH/MEOH=0.0
-!
-!ALKH/ETOH=0.0
-!
-!ALKH/ALCH=0.0
-!
-!ALKH/ISOP=0.0
-!
-!ALKH/BIOL=0.0
-!
-!ALKH/BIOH=0.0
-!
-!ALKH/MTBE=0.0
-!
-!ALKH/MVK=0.0
-!
-!ALKH/MCR=0.0
-!
-!ALKH/MGLY=0.0
-!
-!ALKH/GLY=0.0
-!
-!ALKH/ORA1=0.0
-!
-!ALKH/ORA2=0.0
-!
-!ALKH/ACID=0.0
-!
-!ALKH/UR28=0.0
-!
-!ALKH/UR21=0.0
-!
-!ALKH/URG2=0.0
-!
-!ALKH/UR26=0.0
-!
-!ALKH/RPG2=0.0
-!
-!ALKH/RP18=0.0
-!
-!ALKH/RPG3=0.0
-!
-!ALKH/URG4=0.0
-!
-!ALKH/UR8=0.0
-!
-!ALKH/UR17=0.0
-!
-!ALKH/UR7=0.0
-!
-!ALKH/RPR3=0.0
-!
-!ALKH/URG6=0.0
-!
-!ALKH/UR22=0.0
-!
-!ALKH/URG7=0.0
-!
-!ALKH/RPR4=0.0
-!
-!ALKH/RPR7=0.0
-!
-!ALKH/RPG7=0.0
-!
-!ALKH/URG8=0.0
-!
-!ALKH/UR19=0.0
-!
-!ALKH/URG9=0.0
-!
-!ALKH/AP7=0.0
-!
-!ALKH/URG10=0.0
-!
-!ALKH/RPR1=0.0
-!
-!ALKH/RPR5=0.0
-!
-!ALKH/RPR8=0.0
-!
-!ALKH/RP10=0.0
-!
-!ALKH/RP11=0.0
-!
-!ALKH/RP16=0.0
-!
-!ALKH/RPRL=0.0
-!
-!ALKH/APAN=0.0
-!
-!ALKH/PAN1=0.0
-!
-!ALKH/PAN2=0.0
-!
-!ALKH/PAN3=0.0
-!
-!ALKH/PAN4=0.0
-!
-!ALKH/PAN6=0.0
-!
-!ALKH/PAN7=0.0
-!
-!ALKH/PAN8=0.0
-!
-!ALKH/PN10=0.0
-!
-!ALKH/RO2T=0.0
-!
-!ALKH/RO21=0.0
-!
-!ALKH/RO25=0.0
-!
-!ALKH/WC_O3=0.0
-!
-!ALKH/WC_H2O2=0.0
-!
-!ALKH/WC_NO=0.0
-!
-!ALKH/WC_NO2=0.0
-!
-!ALKH/WC_NO3=0.0
-!
-!ALKH/WC_N2O5=0.0
-!
-!ALKH/WC_HONO=0.0
-!
-!ALKH/WC_HNO3=0.0
-!
-!ALKH/WC_HNO4=0.0
-!
-!ALKH/WC_NH3=0.0
-!
-!ALKH/WC_OH=0.0
-!
-!ALKH/WC_HO2=0.0
-!
-!ALKH/WC_CO2=0.0
-!
-!ALKH/WC_SO2=0.0
-!
-!ALKH/WC_H2SO4=0.0
-!
-!ALKH/WC_RO21=0.0
-!
-!ALKH/WC_RO25=0.0
-!
-!ALKH/WC_MEOH=0.0
-!
-!ALKH/WC_ETOH=0.0
-!
-!ALKH/WC_ALCH=0.0
-!
-!ALKH/WC_HCHO=0.0
-!
-!ALKH/WC_ALD2=0.0
-!
-!ALKH/WC_GLY=0.0
-!
-!ALKH/WC_MGLY=0.0
-!
-!ALKH/WC_KETL=0.0
-!
-!ALKH/WC_ORA1=0.0
-!
-!ALKH/WC_ORA2=0.0
-!
-!ALKH/WC_ACID=0.0
-!
-!ALKH/WC_RP16=0.0
-!
-!ALKH/WC_UR21=0.0
-!
-!ALKH/WC_UR28=0.0
-!
-!ALKH/WC_ACID2=0.0
-!
-!ALKH/WC_ASO3=0.0
-!
-!ALKH/WC_ASO4=0.0
-!
-!ALKH/WC_ASO5=0.0
-!
-!ALKH/WC_AHSO5=0.0
-!
-!ALKH/WC_AHMS=0.0
-!
-!ALKH/WR_O3=0.0
-!
-!ALKH/WR_H2O2=0.0
-!
-!ALKH/WR_NO=0.0
-!
-!ALKH/WR_NO2=0.0
-!
-!ALKH/WR_NO3=0.0
-!
-!ALKH/WR_N2O5=0.0
-!
-!ALKH/WR_HONO=0.0
-!
-!ALKH/WR_HNO3=0.0
-!
-!ALKH/WR_HNO4=0.0
-!
-!ALKH/WR_NH3=0.0
-!
-!ALKH/WR_OH=0.0
-!
-!ALKH/WR_HO2=0.0
-!
-!ALKH/WR_CO2=0.0
-!
-!ALKH/WR_SO2=0.0
-!
-!ALKH/WR_H2SO4=0.0
-!
-!ALKH/WR_RO21=0.0
-!
-!ALKH/WR_RO25=0.0
-!
-!ALKH/WR_MEOH=0.0
-!
-!ALKH/WR_ETOH=0.0
-!
-!ALKH/WR_ALCH=0.0
-!
-!ALKH/WR_HCHO=0.0
-!
-!ALKH/WR_ALD2=0.0
-!
-!ALKH/WR_GLY=0.0
-!
-!ALKH/WR_MGLY=0.0
-!
-!ALKH/WR_KETL=0.0
-!
-!ALKH/WR_ORA1=0.0
-!
-!ALKH/WR_ORA2=0.0
-!
-!ALKH/WR_ACID=0.0
-!
-!ALKH/WR_RP16=0.0
-!
-!ALKH/WR_UR21=0.0
-!
-!ALKH/WR_UR28=0.0
-!
-!ALKH/WR_ACID2=0.0
-!
-!ALKH/WR_ASO3=0.0
-!
-!ALKH/WR_ASO4=0.0
-!
-!ALKH/WR_ASO5=0.0
-!
-!ALKH/WR_AHSO5=0.0
-!
-!ALKH/WR_AHMS=0.0
-!
-!AROH/NO=0.0
-!
-!AROH/NO2=0.0
-!
-!AROH/O3=0.0
-!
-!AROH/HONO=0.0
-!
-!AROH/HNO3=0.0
-!
-!AROH/HNO4=0.0
-!
-!AROH/N2O5=0.0
-!
-!AROH/NO3=0.0
-!
-!AROH/NH3=0.0
-!
-!AROH/HO2=0.0
-!
-!AROH/CO=0.0
-!
-!AROH/H2O2=0.0
-!
-!AROH/SO2=0.0
-!
-!AROH/H2SO4=0.0
-!
-!AROH/OH=-K080*<AROH>
- PJAC(:,22,15)=-TPK%K080(:)*PCONC(:,22)
-!
-!AROH/ETHE=0.0
-!
-!AROH/OLEL=0.0
-!
-!AROH/OLEH=0.0
-!
-!AROH/ALKL=0.0
-!
-!AROH/ALKM=0.0
-!
-!AROH/ALKH=0.0
-!
-!AROH/AROH=-K080*<OH>
- PJAC(:,22,22)=-TPK%K080(:)*PCONC(:,15)
-!
-!AROH/AROL=0.0
-!
-!AROH/AROO=0.0
-!
-!AROH/ARAL=0.0
-!
-!AROH/ARAC=0.0
-!
-!AROH/PAH=0.0
-!
-!AROH/HCHO=0.0
-!
-!AROH/ALD2=0.0
-!
-!AROH/KETL=0.0
-!
-!AROH/KETH=0.0
-!
-!AROH/MEOH=0.0
-!
-!AROH/ETOH=0.0
-!
-!AROH/ALCH=0.0
-!
-!AROH/ISOP=0.0
-!
-!AROH/BIOL=0.0
-!
-!AROH/BIOH=0.0
-!
-!AROH/MTBE=0.0
-!
-!AROH/MVK=0.0
-!
-!AROH/MCR=0.0
-!
-!AROH/MGLY=0.0
-!
-!AROH/GLY=0.0
-!
-!AROH/ORA1=0.0
-!
-!AROH/ORA2=0.0
-!
-!AROH/ACID=0.0
-!
-!AROH/UR28=0.0
-!
-!AROH/UR21=0.0
-!
-!AROH/URG2=0.0
-!
-!AROH/UR26=0.0
-!
-!AROH/RPG2=0.0
-!
-!AROH/RP18=0.0
-!
-!AROH/RPG3=0.0
-!
-!AROH/URG4=0.0
-!
-!AROH/UR8=0.0
-!
-!AROH/UR17=0.0
-!
-!AROH/UR7=0.0
-!
-!AROH/RPR3=0.0
-!
-!AROH/URG6=0.0
-!
-!AROH/UR22=0.0
-!
-!AROH/URG7=0.0
-!
-!AROH/RPR4=0.0
-!
-!AROH/RPR7=0.0
-!
-!AROH/RPG7=0.0
-!
-!AROH/URG8=0.0
-!
-!AROH/UR19=0.0
-!
-!AROH/URG9=0.0
-!
-!AROH/AP7=0.0
-!
-!AROH/URG10=0.0
-!
-!AROH/RPR1=0.0
-!
-!AROH/RPR5=0.0
-!
-!AROH/RPR8=0.0
-!
-!AROH/RP10=0.0
-!
-!AROH/RP11=0.0
-!
-!AROH/RP16=0.0
-!
-!AROH/RPRL=0.0
-!
-!AROH/APAN=0.0
-!
-!AROH/PAN1=0.0
-!
-!AROH/PAN2=0.0
-!
-!AROH/PAN3=0.0
-!
-!AROH/PAN4=0.0
-!
-!AROH/PAN6=0.0
-!
-!AROH/PAN7=0.0
-!
-!AROH/PAN8=0.0
-!
-!AROH/PN10=0.0
-!
-!AROH/RO2T=0.0
-!
-!AROH/RO21=0.0
-!
-!AROH/RO25=0.0
-!
-!AROH/WC_O3=0.0
-!
-!AROH/WC_H2O2=0.0
-!
-!AROH/WC_NO=0.0
-!
-!AROH/WC_NO2=0.0
-!
-!AROH/WC_NO3=0.0
-!
-!AROH/WC_N2O5=0.0
-!
-!AROH/WC_HONO=0.0
-!
-!AROH/WC_HNO3=0.0
-!
-!AROH/WC_HNO4=0.0
-!
-!AROH/WC_NH3=0.0
-!
-!AROH/WC_OH=0.0
-!
-!AROH/WC_HO2=0.0
-!
-!AROH/WC_CO2=0.0
-!
-!AROH/WC_SO2=0.0
-!
-!AROH/WC_H2SO4=0.0
-!
-!AROH/WC_RO21=0.0
-!
-!AROH/WC_RO25=0.0
-!
-!AROH/WC_MEOH=0.0
-!
-!AROH/WC_ETOH=0.0
-!
-!AROH/WC_ALCH=0.0
-!
-!AROH/WC_HCHO=0.0
-!
-!AROH/WC_ALD2=0.0
-!
-!AROH/WC_GLY=0.0
-!
-!AROH/WC_MGLY=0.0
-!
-!AROH/WC_KETL=0.0
-!
-!AROH/WC_ORA1=0.0
-!
-!AROH/WC_ORA2=0.0
-!
-!AROH/WC_ACID=0.0
-!
-!AROH/WC_RP16=0.0
-!
-!AROH/WC_UR21=0.0
-!
-!AROH/WC_UR28=0.0
-!
-!AROH/WC_ACID2=0.0
-!
-!AROH/WC_ASO3=0.0
-!
-!AROH/WC_ASO4=0.0
-!
-!AROH/WC_ASO5=0.0
-!
-!AROH/WC_AHSO5=0.0
-!
-!AROH/WC_AHMS=0.0
-!
-!AROH/WR_O3=0.0
-!
-!AROH/WR_H2O2=0.0
-!
-!AROH/WR_NO=0.0
-!
-!AROH/WR_NO2=0.0
-!
-!AROH/WR_NO3=0.0
-!
-!AROH/WR_N2O5=0.0
-!
-!AROH/WR_HONO=0.0
-!
-!AROH/WR_HNO3=0.0
-!
-!AROH/WR_HNO4=0.0
-!
-!AROH/WR_NH3=0.0
-!
-!AROH/WR_OH=0.0
-!
-!AROH/WR_HO2=0.0
-!
-!AROH/WR_CO2=0.0
-!
-!AROH/WR_SO2=0.0
-!
-!AROH/WR_H2SO4=0.0
-!
-!AROH/WR_RO21=0.0
-!
-!AROH/WR_RO25=0.0
-!
-!AROH/WR_MEOH=0.0
-!
-!AROH/WR_ETOH=0.0
-!
-!AROH/WR_ALCH=0.0
-!
-!AROH/WR_HCHO=0.0
-!
-!AROH/WR_ALD2=0.0
-!
-!AROH/WR_GLY=0.0
-!
-!AROH/WR_MGLY=0.0
-!
-!AROH/WR_KETL=0.0
-!
-!AROH/WR_ORA1=0.0
-!
-!AROH/WR_ORA2=0.0
-!
-!AROH/WR_ACID=0.0
-!
-!AROH/WR_RP16=0.0
-!
-!AROH/WR_UR21=0.0
-!
-!AROH/WR_UR28=0.0
-!
-!AROH/WR_ACID2=0.0
-!
-!AROH/WR_ASO3=0.0
-!
-!AROH/WR_ASO4=0.0
-!
-!AROH/WR_ASO5=0.0
-!
-!AROH/WR_AHSO5=0.0
-!
-!AROH/WR_AHMS=0.0
-!
-!AROL/NO=0.0
-!
-!AROL/NO2=0.0
-!
-!AROL/O3=0.0
-!
-!AROL/HONO=0.0
-!
-!AROL/HNO3=0.0
-!
-!AROL/HNO4=0.0
-!
-!AROL/N2O5=0.0
-!
-!AROL/NO3=0.0
-!
-!AROL/NH3=0.0
-!
-!AROL/HO2=0.0
-!
-!AROL/CO=0.0
-!
-!AROL/H2O2=0.0
-!
-!AROL/SO2=0.0
-!
-!AROL/H2SO4=0.0
-!
-!AROL/OH=-K079*<AROL>
- PJAC(:,23,15)=-TPK%K079(:)*PCONC(:,23)
-!
-!AROL/ETHE=0.0
-!
-!AROL/OLEL=0.0
-!
-!AROL/OLEH=0.0
-!
-!AROL/ALKL=0.0
-!
-!AROL/ALKM=0.0
-!
-!AROL/ALKH=0.0
-!
-!AROL/AROH=0.0
-!
-!AROL/AROL=-K079*<OH>
- PJAC(:,23,23)=-TPK%K079(:)*PCONC(:,15)
-!
-!AROL/AROO=0.0
-!
-!AROL/ARAL=0.0
-!
-!AROL/ARAC=0.0
-!
-!AROL/PAH=0.0
-!
-!AROL/HCHO=0.0
-!
-!AROL/ALD2=0.0
-!
-!AROL/KETL=0.0
-!
-!AROL/KETH=0.0
-!
-!AROL/MEOH=0.0
-!
-!AROL/ETOH=0.0
-!
-!AROL/ALCH=0.0
-!
-!AROL/ISOP=0.0
-!
-!AROL/BIOL=0.0
-!
-!AROL/BIOH=0.0
-!
-!AROL/MTBE=0.0
-!
-!AROL/MVK=0.0
-!
-!AROL/MCR=0.0
-!
-!AROL/MGLY=0.0
-!
-!AROL/GLY=0.0
-!
-!AROL/ORA1=0.0
-!
-!AROL/ORA2=0.0
-!
-!AROL/ACID=0.0
-!
-!AROL/UR28=0.0
-!
-!AROL/UR21=0.0
-!
-!AROL/URG2=0.0
-!
-!AROL/UR26=0.0
-!
-!AROL/RPG2=0.0
-!
-!AROL/RP18=0.0
-!
-!AROL/RPG3=0.0
-!
-!AROL/URG4=0.0
-!
-!AROL/UR8=0.0
-!
-!AROL/UR17=0.0
-!
-!AROL/UR7=0.0
-!
-!AROL/RPR3=0.0
-!
-!AROL/URG6=0.0
-!
-!AROL/UR22=0.0
-!
-!AROL/URG7=0.0
-!
-!AROL/RPR4=0.0
-!
-!AROL/RPR7=0.0
-!
-!AROL/RPG7=0.0
-!
-!AROL/URG8=0.0
-!
-!AROL/UR19=0.0
-!
-!AROL/URG9=0.0
-!
-!AROL/AP7=0.0
-!
-!AROL/URG10=0.0
-!
-!AROL/RPR1=0.0
-!
-!AROL/RPR5=0.0
-!
-!AROL/RPR8=0.0
-!
-!AROL/RP10=0.0
-!
-!AROL/RP11=0.0
-!
-!AROL/RP16=0.0
-!
-!AROL/RPRL=0.0
-!
-!AROL/APAN=0.0
-!
-!AROL/PAN1=0.0
-!
-!AROL/PAN2=0.0
-!
-!AROL/PAN3=0.0
-!
-!AROL/PAN4=0.0
-!
-!AROL/PAN6=0.0
-!
-!AROL/PAN7=0.0
-!
-!AROL/PAN8=0.0
-!
-!AROL/PN10=0.0
-!
-!AROL/RO2T=0.0
-!
-!AROL/RO21=0.0
-!
-!AROL/RO25=0.0
-!
-!AROL/WC_O3=0.0
-!
-!AROL/WC_H2O2=0.0
-!
-!AROL/WC_NO=0.0
-!
-!AROL/WC_NO2=0.0
-!
-!AROL/WC_NO3=0.0
-!
-!AROL/WC_N2O5=0.0
-!
-!AROL/WC_HONO=0.0
-!
-!AROL/WC_HNO3=0.0
-!
-!AROL/WC_HNO4=0.0
-!
-!AROL/WC_NH3=0.0
-!
-!AROL/WC_OH=0.0
-!
-!AROL/WC_HO2=0.0
-!
-!AROL/WC_CO2=0.0
-!
-!AROL/WC_SO2=0.0
-!
-!AROL/WC_H2SO4=0.0
-!
-!AROL/WC_RO21=0.0
-!
-!AROL/WC_RO25=0.0
-!
-!AROL/WC_MEOH=0.0
-!
-!AROL/WC_ETOH=0.0
-!
-!AROL/WC_ALCH=0.0
-!
-!AROL/WC_HCHO=0.0
-!
-!AROL/WC_ALD2=0.0
-!
-!AROL/WC_GLY=0.0
-!
-!AROL/WC_MGLY=0.0
-!
-!AROL/WC_KETL=0.0
-!
-!AROL/WC_ORA1=0.0
-!
-!AROL/WC_ORA2=0.0
-!
-!AROL/WC_ACID=0.0
-!
-!AROL/WC_RP16=0.0
-!
-!AROL/WC_UR21=0.0
-!
-!AROL/WC_UR28=0.0
-!
-!AROL/WC_ACID2=0.0
-!
-!AROL/WC_ASO3=0.0
-!
-!AROL/WC_ASO4=0.0
-!
-!AROL/WC_ASO5=0.0
-!
-!AROL/WC_AHSO5=0.0
-!
-!AROL/WC_AHMS=0.0
-!
-!AROL/WR_O3=0.0
-!
-!AROL/WR_H2O2=0.0
-!
-!AROL/WR_NO=0.0
-!
-!AROL/WR_NO2=0.0
-!
-!AROL/WR_NO3=0.0
-!
-!AROL/WR_N2O5=0.0
-!
-!AROL/WR_HONO=0.0
-!
-!AROL/WR_HNO3=0.0
-!
-!AROL/WR_HNO4=0.0
-!
-!AROL/WR_NH3=0.0
-!
-!AROL/WR_OH=0.0
-!
-!AROL/WR_HO2=0.0
-!
-!AROL/WR_CO2=0.0
-!
-!AROL/WR_SO2=0.0
-!
-!AROL/WR_H2SO4=0.0
-!
-!AROL/WR_RO21=0.0
-!
-!AROL/WR_RO25=0.0
-!
-!AROL/WR_MEOH=0.0
-!
-!AROL/WR_ETOH=0.0
-!
-!AROL/WR_ALCH=0.0
-!
-!AROL/WR_HCHO=0.0
-!
-!AROL/WR_ALD2=0.0
-!
-!AROL/WR_GLY=0.0
-!
-!AROL/WR_MGLY=0.0
-!
-!AROL/WR_KETL=0.0
-!
-!AROL/WR_ORA1=0.0
-!
-!AROL/WR_ORA2=0.0
-!
-!AROL/WR_ACID=0.0
-!
-!AROL/WR_RP16=0.0
-!
-!AROL/WR_UR21=0.0
-!
-!AROL/WR_UR28=0.0
-!
-!AROL/WR_ACID2=0.0
-!
-!AROL/WR_ASO3=0.0
-!
-!AROL/WR_ASO4=0.0
-!
-!AROL/WR_ASO5=0.0
-!
-!AROL/WR_AHSO5=0.0
-!
-!AROL/WR_AHMS=0.0
-!
-!AROO/NO=0.0
-!
-!AROO/NO2=0.0
-!
-!AROO/O3=0.0
-!
-!AROO/HONO=0.0
-!
-!AROO/HNO3=0.0
-!
-!AROO/HNO4=0.0
-!
-!AROO/N2O5=0.0
-!
-!AROO/NO3=-K072*<AROO>
- PJAC(:,24,8)=-TPK%K072(:)*PCONC(:,24)
-!
-!AROO/NH3=0.0
-!
-!AROO/HO2=0.0
-!
-!AROO/CO=0.0
-!
-!AROO/H2O2=0.0
-!
-!AROO/SO2=0.0
-!
-!AROO/H2SO4=0.0
-!
-!AROO/OH=+0.16*K073*<AROO>-K073*<AROO>+0.16*K079*<AROL>+0.16*K080*<AROH>
- PJAC(:,24,15)=+0.16*TPK%K073(:)*PCONC(:,24)-TPK%K073(:)*PCONC(:,24)+0.16*TPK%K&
-&079(:)*PCONC(:,23)+0.16*TPK%K080(:)*PCONC(:,22)
-!
-!AROO/ETHE=0.0
-!
-!AROO/OLEL=0.0
-!
-!AROO/OLEH=0.0
-!
-!AROO/ALKL=0.0
-!
-!AROO/ALKM=0.0
-!
-!AROO/ALKH=0.0
-!
-!AROO/AROH=+0.16*K080*<OH>
- PJAC(:,24,22)=+0.16*TPK%K080(:)*PCONC(:,15)
-!
-!AROO/AROL=+0.16*K079*<OH>
- PJAC(:,24,23)=+0.16*TPK%K079(:)*PCONC(:,15)
-!
-!AROO/AROO=-K072*<NO3>+0.16*K073*<OH>-K073*<OH>
- PJAC(:,24,24)=-TPK%K072(:)*PCONC(:,8)+0.16*TPK%K073(:)*PCONC(:,15)-TPK%K073(:)&
-&*PCONC(:,15)
-!
-!AROO/ARAL=0.0
-!
-!AROO/ARAC=0.0
-!
-!AROO/PAH=0.0
-!
-!AROO/HCHO=0.0
-!
-!AROO/ALD2=0.0
-!
-!AROO/KETL=0.0
-!
-!AROO/KETH=0.0
-!
-!AROO/MEOH=0.0
-!
-!AROO/ETOH=0.0
-!
-!AROO/ALCH=0.0
-!
-!AROO/ISOP=0.0
-!
-!AROO/BIOL=0.0
-!
-!AROO/BIOH=0.0
-!
-!AROO/MTBE=0.0
-!
-!AROO/MVK=0.0
-!
-!AROO/MCR=0.0
-!
-!AROO/MGLY=0.0
-!
-!AROO/GLY=0.0
-!
-!AROO/ORA1=0.0
-!
-!AROO/ORA2=0.0
-!
-!AROO/ACID=0.0
-!
-!AROO/UR28=0.0
-!
-!AROO/UR21=0.0
-!
-!AROO/URG2=0.0
-!
-!AROO/UR26=0.0
-!
-!AROO/RPG2=0.0
-!
-!AROO/RP18=0.0
-!
-!AROO/RPG3=0.0
-!
-!AROO/URG4=0.0
-!
-!AROO/UR8=0.0
-!
-!AROO/UR17=0.0
-!
-!AROO/UR7=0.0
-!
-!AROO/RPR3=0.0
-!
-!AROO/URG6=0.0
-!
-!AROO/UR22=0.0
-!
-!AROO/URG7=0.0
-!
-!AROO/RPR4=0.0
-!
-!AROO/RPR7=0.0
-!
-!AROO/RPG7=0.0
-!
-!AROO/URG8=0.0
-!
-!AROO/UR19=0.0
-!
-!AROO/URG9=0.0
-!
-!AROO/AP7=0.0
-!
-!AROO/URG10=0.0
-!
-!AROO/RPR1=0.0
-!
-!AROO/RPR5=0.0
-!
-!AROO/RPR8=0.0
-!
-!AROO/RP10=0.0
-!
-!AROO/RP11=0.0
-!
-!AROO/RP16=0.0
-!
-!AROO/RPRL=0.0
-!
-!AROO/APAN=0.0
-!
-!AROO/PAN1=0.0
-!
-!AROO/PAN2=0.0
-!
-!AROO/PAN3=0.0
-!
-!AROO/PAN4=0.0
-!
-!AROO/PAN6=0.0
-!
-!AROO/PAN7=0.0
-!
-!AROO/PAN8=0.0
-!
-!AROO/PN10=0.0
-!
-!AROO/RO2T=0.0
-!
-!AROO/RO21=0.0
-!
-!AROO/RO25=0.0
-!
-!AROO/WC_O3=0.0
-!
-!AROO/WC_H2O2=0.0
-!
-!AROO/WC_NO=0.0
-!
-!AROO/WC_NO2=0.0
-!
-!AROO/WC_NO3=0.0
-!
-!AROO/WC_N2O5=0.0
-!
-!AROO/WC_HONO=0.0
-!
-!AROO/WC_HNO3=0.0
-!
-!AROO/WC_HNO4=0.0
-!
-!AROO/WC_NH3=0.0
-!
-!AROO/WC_OH=0.0
-!
-!AROO/WC_HO2=0.0
-!
-!AROO/WC_CO2=0.0
-!
-!AROO/WC_SO2=0.0
-!
-!AROO/WC_H2SO4=0.0
-!
-!AROO/WC_RO21=0.0
-!
-!AROO/WC_RO25=0.0
-!
-!AROO/WC_MEOH=0.0
-!
-!AROO/WC_ETOH=0.0
-!
-!AROO/WC_ALCH=0.0
-!
-!AROO/WC_HCHO=0.0
-!
-!AROO/WC_ALD2=0.0
-!
-!AROO/WC_GLY=0.0
-!
-!AROO/WC_MGLY=0.0
-!
-!AROO/WC_KETL=0.0
-!
-!AROO/WC_ORA1=0.0
-!
-!AROO/WC_ORA2=0.0
-!
-!AROO/WC_ACID=0.0
-!
-!AROO/WC_RP16=0.0
-!
-!AROO/WC_UR21=0.0
-!
-!AROO/WC_UR28=0.0
-!
-!AROO/WC_ACID2=0.0
-!
-!AROO/WC_ASO3=0.0
-!
-!AROO/WC_ASO4=0.0
-!
-!AROO/WC_ASO5=0.0
-!
-!AROO/WC_AHSO5=0.0
-!
-!AROO/WC_AHMS=0.0
-!
-!AROO/WR_O3=0.0
-!
-!AROO/WR_H2O2=0.0
-!
-!AROO/WR_NO=0.0
-!
-!AROO/WR_NO2=0.0
-!
-!AROO/WR_NO3=0.0
-!
-!AROO/WR_N2O5=0.0
-!
-!AROO/WR_HONO=0.0
-!
-!AROO/WR_HNO3=0.0
-!
-!AROO/WR_HNO4=0.0
-!
-!AROO/WR_NH3=0.0
-!
-!AROO/WR_OH=0.0
-!
-!AROO/WR_HO2=0.0
-!
-!AROO/WR_CO2=0.0
-!
-!AROO/WR_SO2=0.0
-!
-!AROO/WR_H2SO4=0.0
-!
-!AROO/WR_RO21=0.0
-!
-!AROO/WR_RO25=0.0
-!
-!AROO/WR_MEOH=0.0
-!
-!AROO/WR_ETOH=0.0
-!
-!AROO/WR_ALCH=0.0
-!
-!AROO/WR_HCHO=0.0
-!
-!AROO/WR_ALD2=0.0
-!
-!AROO/WR_GLY=0.0
-!
-!AROO/WR_MGLY=0.0
-!
-!AROO/WR_KETL=0.0
-!
-!AROO/WR_ORA1=0.0
-!
-!AROO/WR_ORA2=0.0
-!
-!AROO/WR_ACID=0.0
-!
-!AROO/WR_RP16=0.0
-!
-!AROO/WR_UR21=0.0
-!
-!AROO/WR_UR28=0.0
-!
-!AROO/WR_ACID2=0.0
-!
-!AROO/WR_ASO3=0.0
-!
-!AROO/WR_ASO4=0.0
-!
-!AROO/WR_ASO5=0.0
-!
-!AROO/WR_AHSO5=0.0
-!
-!AROO/WR_AHMS=0.0
-!
-!ARAL/NO=+TPK%CF24*K189*<RO221>
- PJAC(:,25,1)=+TPK%CF24*TPK%K189(:)*TPK%RO221(:)
-!
-!ARAL/NO2=0.0
-!
-!ARAL/O3=0.0
-!
-!ARAL/HONO=0.0
-!
-!ARAL/HNO3=0.0
-!
-!ARAL/HNO4=0.0
-!
-!ARAL/N2O5=0.0
-!
-!ARAL/NO3=-K081*<ARAL>
- PJAC(:,25,8)=-TPK%K081(:)*PCONC(:,25)
-!
-!ARAL/NH3=0.0
-!
-!ARAL/HO2=+K191*<RO221>
- PJAC(:,25,10)=+TPK%K191(:)*TPK%RO221(:)
-!
-!ARAL/CO=0.0
-!
-!ARAL/H2O2=0.0
-!
-!ARAL/SO2=0.0
-!
-!ARAL/H2SO4=0.0
-!
-!ARAL/OH=-K082*<ARAL>
- PJAC(:,25,15)=-TPK%K082(:)*PCONC(:,25)
-!
-!ARAL/ETHE=0.0
-!
-!ARAL/OLEL=0.0
-!
-!ARAL/OLEH=0.0
-!
-!ARAL/ALKL=0.0
-!
-!ARAL/ALKM=0.0
-!
-!ARAL/ALKH=0.0
-!
-!ARAL/AROH=0.0
-!
-!ARAL/AROL=0.0
-!
-!ARAL/AROO=0.0
-!
-!ARAL/ARAL=-K081*<NO3>-K082*<OH>
- PJAC(:,25,25)=-TPK%K081(:)*PCONC(:,8)-TPK%K082(:)*PCONC(:,15)
-!
-!ARAL/ARAC=0.0
-!
-!ARAL/PAH=0.0
-!
-!ARAL/HCHO=0.0
-!
-!ARAL/ALD2=0.0
-!
-!ARAL/KETL=0.0
-!
-!ARAL/KETH=0.0
-!
-!ARAL/MEOH=0.0
-!
-!ARAL/ETOH=0.0
-!
-!ARAL/ALCH=0.0
-!
-!ARAL/ISOP=0.0
-!
-!ARAL/BIOL=0.0
-!
-!ARAL/BIOH=0.0
-!
-!ARAL/MTBE=0.0
-!
-!ARAL/MVK=0.0
-!
-!ARAL/MCR=0.0
-!
-!ARAL/MGLY=0.0
-!
-!ARAL/GLY=0.0
-!
-!ARAL/ORA1=0.0
-!
-!ARAL/ORA2=0.0
-!
-!ARAL/ACID=0.0
-!
-!ARAL/UR28=0.0
-!
-!ARAL/UR21=0.0
-!
-!ARAL/URG2=0.0
-!
-!ARAL/UR26=0.0
-!
-!ARAL/RPG2=0.0
-!
-!ARAL/RP18=0.0
-!
-!ARAL/RPG3=0.0
-!
-!ARAL/URG4=0.0
-!
-!ARAL/UR8=0.0
-!
-!ARAL/UR17=0.0
-!
-!ARAL/UR7=0.0
-!
-!ARAL/RPR3=0.0
-!
-!ARAL/URG6=0.0
-!
-!ARAL/UR22=0.0
-!
-!ARAL/URG7=0.0
-!
-!ARAL/RPR4=0.0
-!
-!ARAL/RPR7=0.0
-!
-!ARAL/RPG7=0.0
-!
-!ARAL/URG8=0.0
-!
-!ARAL/UR19=0.0
-!
-!ARAL/URG9=0.0
-!
-!ARAL/AP7=0.0
-!
-!ARAL/URG10=0.0
-!
-!ARAL/RPR1=0.0
-!
-!ARAL/RPR5=0.0
-!
-!ARAL/RPR8=0.0
-!
-!ARAL/RP10=0.0
-!
-!ARAL/RP11=0.0
-!
-!ARAL/RP16=0.0
-!
-!ARAL/RPRL=0.0
-!
-!ARAL/APAN=0.0
-!
-!ARAL/PAN1=0.0
-!
-!ARAL/PAN2=0.0
-!
-!ARAL/PAN3=0.0
-!
-!ARAL/PAN4=0.0
-!
-!ARAL/PAN6=0.0
-!
-!ARAL/PAN7=0.0
-!
-!ARAL/PAN8=0.0
-!
-!ARAL/PN10=0.0
-!
-!ARAL/RO2T=+K190*<RO221>
- PJAC(:,25,85)=+TPK%K190(:)*TPK%RO221(:)
-!
-!ARAL/RO21=0.0
-!
-!ARAL/RO25=0.0
-!
-!ARAL/WC_O3=0.0
-!
-!ARAL/WC_H2O2=0.0
-!
-!ARAL/WC_NO=0.0
-!
-!ARAL/WC_NO2=0.0
-!
-!ARAL/WC_NO3=0.0
-!
-!ARAL/WC_N2O5=0.0
-!
-!ARAL/WC_HONO=0.0
-!
-!ARAL/WC_HNO3=0.0
-!
-!ARAL/WC_HNO4=0.0
-!
-!ARAL/WC_NH3=0.0
-!
-!ARAL/WC_OH=0.0
-!
-!ARAL/WC_HO2=0.0
-!
-!ARAL/WC_CO2=0.0
-!
-!ARAL/WC_SO2=0.0
-!
-!ARAL/WC_H2SO4=0.0
-!
-!ARAL/WC_RO21=0.0
-!
-!ARAL/WC_RO25=0.0
-!
-!ARAL/WC_MEOH=0.0
-!
-!ARAL/WC_ETOH=0.0
-!
-!ARAL/WC_ALCH=0.0
-!
-!ARAL/WC_HCHO=0.0
-!
-!ARAL/WC_ALD2=0.0
-!
-!ARAL/WC_GLY=0.0
-!
-!ARAL/WC_MGLY=0.0
-!
-!ARAL/WC_KETL=0.0
-!
-!ARAL/WC_ORA1=0.0
-!
-!ARAL/WC_ORA2=0.0
-!
-!ARAL/WC_ACID=0.0
-!
-!ARAL/WC_RP16=0.0
-!
-!ARAL/WC_UR21=0.0
-!
-!ARAL/WC_UR28=0.0
-!
-!ARAL/WC_ACID2=0.0
-!
-!ARAL/WC_ASO3=0.0
-!
-!ARAL/WC_ASO4=0.0
-!
-!ARAL/WC_ASO5=0.0
-!
-!ARAL/WC_AHSO5=0.0
-!
-!ARAL/WC_AHMS=0.0
-!
-!ARAL/WR_O3=0.0
-!
-!ARAL/WR_H2O2=0.0
-!
-!ARAL/WR_NO=0.0
-!
-!ARAL/WR_NO2=0.0
-!
-!ARAL/WR_NO3=0.0
-!
-!ARAL/WR_N2O5=0.0
-!
-!ARAL/WR_HONO=0.0
-!
-!ARAL/WR_HNO3=0.0
-!
-!ARAL/WR_HNO4=0.0
-!
-!ARAL/WR_NH3=0.0
-!
-!ARAL/WR_OH=0.0
-!
-!ARAL/WR_HO2=0.0
-!
-!ARAL/WR_CO2=0.0
-!
-!ARAL/WR_SO2=0.0
-!
-!ARAL/WR_H2SO4=0.0
-!
-!ARAL/WR_RO21=0.0
-!
-!ARAL/WR_RO25=0.0
-!
-!ARAL/WR_MEOH=0.0
-!
-!ARAL/WR_ETOH=0.0
-!
-!ARAL/WR_ALCH=0.0
-!
-!ARAL/WR_HCHO=0.0
-!
-!ARAL/WR_ALD2=0.0
-!
-!ARAL/WR_GLY=0.0
-!
-!ARAL/WR_MGLY=0.0
-!
-!ARAL/WR_KETL=0.0
-!
-!ARAL/WR_ORA1=0.0
-!
-!ARAL/WR_ORA2=0.0
-!
-!ARAL/WR_ACID=0.0
-!
-!ARAL/WR_RP16=0.0
-!
-!ARAL/WR_UR21=0.0
-!
-!ARAL/WR_UR28=0.0
-!
-!ARAL/WR_ACID2=0.0
-!
-!ARAL/WR_ASO3=0.0
-!
-!ARAL/WR_ASO4=0.0
-!
-!ARAL/WR_ASO5=0.0
-!
-!ARAL/WR_AHSO5=0.0
-!
-!ARAL/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ4
-!
-SUBROUTINE SUBJ5
-!
-!Indices 26 a 30
-!
-!
-!ARAC/NO=0.0
-!
-!ARAC/NO2=0.0
-!
-!ARAC/O3=0.0
-!
-!ARAC/HONO=0.0
-!
-!ARAC/HNO3=0.0
-!
-!ARAC/HNO4=0.0
-!
-!ARAC/N2O5=0.0
-!
-!ARAC/NO3=+K081*<ARAL>
- PJAC(:,26,8)=+TPK%K081(:)*PCONC(:,25)
-!
-!ARAC/NH3=0.0
-!
-!ARAC/HO2=0.0
-!
-!ARAC/CO=0.0
-!
-!ARAC/H2O2=0.0
-!
-!ARAC/SO2=0.0
-!
-!ARAC/H2SO4=0.0
-!
-!ARAC/OH=+TPK%CF39*K082*<ARAL>-K083*<ARAC>
- PJAC(:,26,15)=+TPK%CF39*TPK%K082(:)*PCONC(:,25)-TPK%K083(:)*PCONC(:,26)
-!
-!ARAC/ETHE=0.0
-!
-!ARAC/OLEL=0.0
-!
-!ARAC/OLEH=0.0
-!
-!ARAC/ALKL=0.0
-!
-!ARAC/ALKM=0.0
-!
-!ARAC/ALKH=0.0
-!
-!ARAC/AROH=0.0
-!
-!ARAC/AROL=0.0
-!
-!ARAC/AROO=0.0
-!
-!ARAC/ARAL=+K081*<NO3>+TPK%CF39*K082*<OH>
- PJAC(:,26,25)=+TPK%K081(:)*PCONC(:,8)+TPK%CF39*TPK%K082(:)*PCONC(:,15)
-!
-!ARAC/ARAC=-K083*<OH>
- PJAC(:,26,26)=-TPK%K083(:)*PCONC(:,15)
-!
-!ARAC/PAH=0.0
-!
-!ARAC/HCHO=0.0
-!
-!ARAC/ALD2=0.0
-!
-!ARAC/KETL=0.0
-!
-!ARAC/KETH=0.0
-!
-!ARAC/MEOH=0.0
-!
-!ARAC/ETOH=0.0
-!
-!ARAC/ALCH=0.0
-!
-!ARAC/ISOP=0.0
-!
-!ARAC/BIOL=0.0
-!
-!ARAC/BIOH=0.0
-!
-!ARAC/MTBE=0.0
-!
-!ARAC/MVK=0.0
-!
-!ARAC/MCR=0.0
-!
-!ARAC/MGLY=0.0
-!
-!ARAC/GLY=0.0
-!
-!ARAC/ORA1=0.0
-!
-!ARAC/ORA2=0.0
-!
-!ARAC/ACID=0.0
-!
-!ARAC/UR28=0.0
-!
-!ARAC/UR21=0.0
-!
-!ARAC/URG2=0.0
-!
-!ARAC/UR26=0.0
-!
-!ARAC/RPG2=0.0
-!
-!ARAC/RP18=0.0
-!
-!ARAC/RPG3=0.0
-!
-!ARAC/URG4=0.0
-!
-!ARAC/UR8=0.0
-!
-!ARAC/UR17=0.0
-!
-!ARAC/UR7=0.0
-!
-!ARAC/RPR3=0.0
-!
-!ARAC/URG6=0.0
-!
-!ARAC/UR22=0.0
-!
-!ARAC/URG7=0.0
-!
-!ARAC/RPR4=0.0
-!
-!ARAC/RPR7=0.0
-!
-!ARAC/RPG7=0.0
-!
-!ARAC/URG8=0.0
-!
-!ARAC/UR19=0.0
-!
-!ARAC/URG9=0.0
-!
-!ARAC/AP7=0.0
-!
-!ARAC/URG10=0.0
-!
-!ARAC/RPR1=0.0
-!
-!ARAC/RPR5=0.0
-!
-!ARAC/RPR8=0.0
-!
-!ARAC/RP10=0.0
-!
-!ARAC/RP11=0.0
-!
-!ARAC/RP16=0.0
-!
-!ARAC/RPRL=0.0
-!
-!ARAC/APAN=0.0
-!
-!ARAC/PAN1=0.0
-!
-!ARAC/PAN2=0.0
-!
-!ARAC/PAN3=0.0
-!
-!ARAC/PAN4=0.0
-!
-!ARAC/PAN6=0.0
-!
-!ARAC/PAN7=0.0
-!
-!ARAC/PAN8=0.0
-!
-!ARAC/PN10=0.0
-!
-!ARAC/RO2T=0.0
-!
-!ARAC/RO21=0.0
-!
-!ARAC/RO25=0.0
-!
-!ARAC/WC_O3=0.0
-!
-!ARAC/WC_H2O2=0.0
-!
-!ARAC/WC_NO=0.0
-!
-!ARAC/WC_NO2=0.0
-!
-!ARAC/WC_NO3=0.0
-!
-!ARAC/WC_N2O5=0.0
-!
-!ARAC/WC_HONO=0.0
-!
-!ARAC/WC_HNO3=0.0
-!
-!ARAC/WC_HNO4=0.0
-!
-!ARAC/WC_NH3=0.0
-!
-!ARAC/WC_OH=0.0
-!
-!ARAC/WC_HO2=0.0
-!
-!ARAC/WC_CO2=0.0
-!
-!ARAC/WC_SO2=0.0
-!
-!ARAC/WC_H2SO4=0.0
-!
-!ARAC/WC_RO21=0.0
-!
-!ARAC/WC_RO25=0.0
-!
-!ARAC/WC_MEOH=0.0
-!
-!ARAC/WC_ETOH=0.0
-!
-!ARAC/WC_ALCH=0.0
-!
-!ARAC/WC_HCHO=0.0
-!
-!ARAC/WC_ALD2=0.0
-!
-!ARAC/WC_GLY=0.0
-!
-!ARAC/WC_MGLY=0.0
-!
-!ARAC/WC_KETL=0.0
-!
-!ARAC/WC_ORA1=0.0
-!
-!ARAC/WC_ORA2=0.0
-!
-!ARAC/WC_ACID=0.0
-!
-!ARAC/WC_RP16=0.0
-!
-!ARAC/WC_UR21=0.0
-!
-!ARAC/WC_UR28=0.0
-!
-!ARAC/WC_ACID2=0.0
-!
-!ARAC/WC_ASO3=0.0
-!
-!ARAC/WC_ASO4=0.0
-!
-!ARAC/WC_ASO5=0.0
-!
-!ARAC/WC_AHSO5=0.0
-!
-!ARAC/WC_AHMS=0.0
-!
-!ARAC/WR_O3=0.0
-!
-!ARAC/WR_H2O2=0.0
-!
-!ARAC/WR_NO=0.0
-!
-!ARAC/WR_NO2=0.0
-!
-!ARAC/WR_NO3=0.0
-!
-!ARAC/WR_N2O5=0.0
-!
-!ARAC/WR_HONO=0.0
-!
-!ARAC/WR_HNO3=0.0
-!
-!ARAC/WR_HNO4=0.0
-!
-!ARAC/WR_NH3=0.0
-!
-!ARAC/WR_OH=0.0
-!
-!ARAC/WR_HO2=0.0
-!
-!ARAC/WR_CO2=0.0
-!
-!ARAC/WR_SO2=0.0
-!
-!ARAC/WR_H2SO4=0.0
-!
-!ARAC/WR_RO21=0.0
-!
-!ARAC/WR_RO25=0.0
-!
-!ARAC/WR_MEOH=0.0
-!
-!ARAC/WR_ETOH=0.0
-!
-!ARAC/WR_ALCH=0.0
-!
-!ARAC/WR_HCHO=0.0
-!
-!ARAC/WR_ALD2=0.0
-!
-!ARAC/WR_GLY=0.0
-!
-!ARAC/WR_MGLY=0.0
-!
-!ARAC/WR_KETL=0.0
-!
-!ARAC/WR_ORA1=0.0
-!
-!ARAC/WR_ORA2=0.0
-!
-!ARAC/WR_ACID=0.0
-!
-!ARAC/WR_RP16=0.0
-!
-!ARAC/WR_UR21=0.0
-!
-!ARAC/WR_UR28=0.0
-!
-!ARAC/WR_ACID2=0.0
-!
-!ARAC/WR_ASO3=0.0
-!
-!ARAC/WR_ASO4=0.0
-!
-!ARAC/WR_ASO5=0.0
-!
-!ARAC/WR_AHSO5=0.0
-!
-!ARAC/WR_AHMS=0.0
-!
-!PAH/NO=0.0
-!
-!PAH/NO2=0.0
-!
-!PAH/O3=0.0
-!
-!PAH/HONO=0.0
-!
-!PAH/HNO3=0.0
-!
-!PAH/HNO4=0.0
-!
-!PAH/N2O5=0.0
-!
-!PAH/NO3=0.0
-!
-!PAH/NH3=0.0
-!
-!PAH/HO2=0.0
-!
-!PAH/CO=0.0
-!
-!PAH/H2O2=0.0
-!
-!PAH/SO2=0.0
-!
-!PAH/H2SO4=0.0
-!
-!PAH/OH=-K092*<PAH>
- PJAC(:,27,15)=-TPK%K092(:)*PCONC(:,27)
-!
-!PAH/ETHE=0.0
-!
-!PAH/OLEL=0.0
-!
-!PAH/OLEH=0.0
-!
-!PAH/ALKL=0.0
-!
-!PAH/ALKM=0.0
-!
-!PAH/ALKH=0.0
-!
-!PAH/AROH=0.0
-!
-!PAH/AROL=0.0
-!
-!PAH/AROO=0.0
-!
-!PAH/ARAL=0.0
-!
-!PAH/ARAC=0.0
-!
-!PAH/PAH=-K092*<OH>
- PJAC(:,27,27)=-TPK%K092(:)*PCONC(:,15)
-!
-!PAH/HCHO=0.0
-!
-!PAH/ALD2=0.0
-!
-!PAH/KETL=0.0
-!
-!PAH/KETH=0.0
-!
-!PAH/MEOH=0.0
-!
-!PAH/ETOH=0.0
-!
-!PAH/ALCH=0.0
-!
-!PAH/ISOP=0.0
-!
-!PAH/BIOL=0.0
-!
-!PAH/BIOH=0.0
-!
-!PAH/MTBE=0.0
-!
-!PAH/MVK=0.0
-!
-!PAH/MCR=0.0
-!
-!PAH/MGLY=0.0
-!
-!PAH/GLY=0.0
-!
-!PAH/ORA1=0.0
-!
-!PAH/ORA2=0.0
-!
-!PAH/ACID=0.0
-!
-!PAH/UR28=0.0
-!
-!PAH/UR21=0.0
-!
-!PAH/URG2=0.0
-!
-!PAH/UR26=0.0
-!
-!PAH/RPG2=0.0
-!
-!PAH/RP18=0.0
-!
-!PAH/RPG3=0.0
-!
-!PAH/URG4=0.0
-!
-!PAH/UR8=0.0
-!
-!PAH/UR17=0.0
-!
-!PAH/UR7=0.0
-!
-!PAH/RPR3=0.0
-!
-!PAH/URG6=0.0
-!
-!PAH/UR22=0.0
-!
-!PAH/URG7=0.0
-!
-!PAH/RPR4=0.0
-!
-!PAH/RPR7=0.0
-!
-!PAH/RPG7=0.0
-!
-!PAH/URG8=0.0
-!
-!PAH/UR19=0.0
-!
-!PAH/URG9=0.0
-!
-!PAH/AP7=0.0
-!
-!PAH/URG10=0.0
-!
-!PAH/RPR1=0.0
-!
-!PAH/RPR5=0.0
-!
-!PAH/RPR8=0.0
-!
-!PAH/RP10=0.0
-!
-!PAH/RP11=0.0
-!
-!PAH/RP16=0.0
-!
-!PAH/RPRL=0.0
-!
-!PAH/APAN=0.0
-!
-!PAH/PAN1=0.0
-!
-!PAH/PAN2=0.0
-!
-!PAH/PAN3=0.0
-!
-!PAH/PAN4=0.0
-!
-!PAH/PAN6=0.0
-!
-!PAH/PAN7=0.0
-!
-!PAH/PAN8=0.0
-!
-!PAH/PN10=0.0
-!
-!PAH/RO2T=0.0
-!
-!PAH/RO21=0.0
-!
-!PAH/RO25=0.0
-!
-!PAH/WC_O3=0.0
-!
-!PAH/WC_H2O2=0.0
-!
-!PAH/WC_NO=0.0
-!
-!PAH/WC_NO2=0.0
-!
-!PAH/WC_NO3=0.0
-!
-!PAH/WC_N2O5=0.0
-!
-!PAH/WC_HONO=0.0
-!
-!PAH/WC_HNO3=0.0
-!
-!PAH/WC_HNO4=0.0
-!
-!PAH/WC_NH3=0.0
-!
-!PAH/WC_OH=0.0
-!
-!PAH/WC_HO2=0.0
-!
-!PAH/WC_CO2=0.0
-!
-!PAH/WC_SO2=0.0
-!
-!PAH/WC_H2SO4=0.0
-!
-!PAH/WC_RO21=0.0
-!
-!PAH/WC_RO25=0.0
-!
-!PAH/WC_MEOH=0.0
-!
-!PAH/WC_ETOH=0.0
-!
-!PAH/WC_ALCH=0.0
-!
-!PAH/WC_HCHO=0.0
-!
-!PAH/WC_ALD2=0.0
-!
-!PAH/WC_GLY=0.0
-!
-!PAH/WC_MGLY=0.0
-!
-!PAH/WC_KETL=0.0
-!
-!PAH/WC_ORA1=0.0
-!
-!PAH/WC_ORA2=0.0
-!
-!PAH/WC_ACID=0.0
-!
-!PAH/WC_RP16=0.0
-!
-!PAH/WC_UR21=0.0
-!
-!PAH/WC_UR28=0.0
-!
-!PAH/WC_ACID2=0.0
-!
-!PAH/WC_ASO3=0.0
-!
-!PAH/WC_ASO4=0.0
-!
-!PAH/WC_ASO5=0.0
-!
-!PAH/WC_AHSO5=0.0
-!
-!PAH/WC_AHMS=0.0
-!
-!PAH/WR_O3=0.0
-!
-!PAH/WR_H2O2=0.0
-!
-!PAH/WR_NO=0.0
-!
-!PAH/WR_NO2=0.0
-!
-!PAH/WR_NO3=0.0
-!
-!PAH/WR_N2O5=0.0
-!
-!PAH/WR_HONO=0.0
-!
-!PAH/WR_HNO3=0.0
-!
-!PAH/WR_HNO4=0.0
-!
-!PAH/WR_NH3=0.0
-!
-!PAH/WR_OH=0.0
-!
-!PAH/WR_HO2=0.0
-!
-!PAH/WR_CO2=0.0
-!
-!PAH/WR_SO2=0.0
-!
-!PAH/WR_H2SO4=0.0
-!
-!PAH/WR_RO21=0.0
-!
-!PAH/WR_RO25=0.0
-!
-!PAH/WR_MEOH=0.0
-!
-!PAH/WR_ETOH=0.0
-!
-!PAH/WR_ALCH=0.0
-!
-!PAH/WR_HCHO=0.0
-!
-!PAH/WR_ALD2=0.0
-!
-!PAH/WR_GLY=0.0
-!
-!PAH/WR_MGLY=0.0
-!
-!PAH/WR_KETL=0.0
-!
-!PAH/WR_ORA1=0.0
-!
-!PAH/WR_ORA2=0.0
-!
-!PAH/WR_ACID=0.0
-!
-!PAH/WR_RP16=0.0
-!
-!PAH/WR_UR21=0.0
-!
-!PAH/WR_UR28=0.0
-!
-!PAH/WR_ACID2=0.0
-!
-!PAH/WR_ASO3=0.0
-!
-!PAH/WR_ASO4=0.0
-!
-!PAH/WR_ASO5=0.0
-!
-!PAH/WR_AHSO5=0.0
-!
-!PAH/WR_AHMS=0.0
-!
-!HCHO/NO=+K110*<RO21>+K113*<RO22>+K116*<RO23>+K119*<RO24>+TPK%CF6*K150*<RO29>+K
-!153*<RO210>+K156*<RO211>+K159*<RO212>+K162*<RO213>+TPK%CF10*K171*<RO215>+K183*
-!<RO219>+K285*<RO249>+K291*<RO251>+K294*<RO252>+K297*<RO253>
- PJAC(:,28,1)=+TPK%K110(:)*PCONC(:,86)+TPK%K113(:)*TPK%RO22(:)+TPK%K116(:)*TPK%&
-&RO23(:)+TPK%K119(:)*TPK%RO24(:)+TPK%CF6*TPK%K150(:)*TPK%RO29(:)+TPK%K153(:)*TP&
-&K%RO210(:)+TPK%K156(:)*TPK%RO211(:)+TPK%K159(:)*TPK%RO212(:)+TPK%K162(:)*TPK%R&
-&O213(:)+TPK%CF10*TPK%K171(:)*TPK%RO215(:)+TPK%K183(:)*TPK%RO219(:)+TPK%K285(:)&
-&*TPK%RO249(:)+TPK%K291(:)*TPK%RO251(:)+TPK%K294(:)*TPK%RO252(:)+TPK%K297(:)*TP&
-&K%RO253(:)
-!
-!HCHO/NO2=0.0
-!
-!HCHO/O3=+0.5*K051*<ETHE>+0.5*K056*<OLEL>+0.5*K066*<ISOP>+0.5*K076*<OLEH>+0.5*K
-!281*<MVK>+0.5*K282*<MCR>
- PJAC(:,28,3)=+0.5*TPK%K051(:)*PCONC(:,16)+0.5*TPK%K056(:)*PCONC(:,17)+0.5*TPK%&
-&K066(:)*PCONC(:,35)+0.5*TPK%K076(:)*PCONC(:,18)+0.5*TPK%K281(:)*PCONC(:,39)+0.&
-&5*TPK%K282(:)*PCONC(:,40)
-!
-!HCHO/HONO=0.0
-!
-!HCHO/HNO3=0.0
-!
-!HCHO/HNO4=0.0
-!
-!HCHO/N2O5=0.0
-!
-!HCHO/NO3=-K047*<HCHO>
- PJAC(:,28,8)=-TPK%K047(:)*PCONC(:,28)
-!
-!HCHO/NH3=0.0
-!
-!HCHO/HO2=+K112*<RO21>+K115*<RO22>+K118*<RO23>+K121*<RO24>+K152*<RO29>+K155*<RO
-!210>+K158*<RO211>+K161*<RO212>+K164*<RO213>+TPK%CF14*K173*<RO215>+K185*<RO219>
-!+K287*<RO249>+K292*<RO251>+K295*<RO252>+K298*<RO253>
- PJAC(:,28,10)=+TPK%K112(:)*PCONC(:,86)+TPK%K115(:)*TPK%RO22(:)+TPK%K118(:)*TPK&
-&%RO23(:)+TPK%K121(:)*TPK%RO24(:)+TPK%K152(:)*TPK%RO29(:)+TPK%K155(:)*TPK%RO210&
-&(:)+TPK%K158(:)*TPK%RO211(:)+TPK%K161(:)*TPK%RO212(:)+TPK%K164(:)*TPK%RO213(:)&
-&+TPK%CF14*TPK%K173(:)*TPK%RO215(:)+TPK%K185(:)*TPK%RO219(:)+TPK%K287(:)*TPK%RO&
-&249(:)+TPK%K292(:)*TPK%RO251(:)+TPK%K295(:)*TPK%RO252(:)+TPK%K298(:)*TPK%RO253&
-&(:)
-!
-!HCHO/CO=0.0
-!
-!HCHO/H2O2=0.0
-!
-!HCHO/SO2=0.0
-!
-!HCHO/H2SO4=0.0
-!
-!HCHO/OH=-K046*<HCHO>+K048*<MEOH>
- PJAC(:,28,15)=-TPK%K046(:)*PCONC(:,28)+TPK%K048(:)*PCONC(:,32)
-!
-!HCHO/ETHE=+0.5*K051*<O3>
- PJAC(:,28,16)=+0.5*TPK%K051(:)*PCONC(:,3)
-!
-!HCHO/OLEL=+0.5*K056*<O3>
- PJAC(:,28,17)=+0.5*TPK%K056(:)*PCONC(:,3)
-!
-!HCHO/OLEH=+0.5*K076*<O3>
- PJAC(:,28,18)=+0.5*TPK%K076(:)*PCONC(:,3)
-!
-!HCHO/ALKL=0.0
-!
-!HCHO/ALKM=0.0
-!
-!HCHO/ALKH=0.0
-!
-!HCHO/AROH=0.0
-!
-!HCHO/AROL=0.0
-!
-!HCHO/AROO=0.0
-!
-!HCHO/ARAL=0.0
-!
-!HCHO/ARAC=0.0
-!
-!HCHO/PAH=0.0
-!
-!HCHO/HCHO=-K044-K045-K046*<OH>-K047*<NO3>-KTC21-KTR21
- PJAC(:,28,28)=-TPK%K044(:)-TPK%K045(:)-TPK%K046(:)*PCONC(:,15)-TPK%K047(:)*PCO&
-&NC(:,8)-TPK%KTC21(:)-TPK%KTR21(:)
-!
-!HCHO/ALD2=0.0
-!
-!HCHO/KETL=0.0
-!
-!HCHO/KETH=0.0
-!
-!HCHO/MEOH=+K048*<OH>
- PJAC(:,28,32)=+TPK%K048(:)*PCONC(:,15)
-!
-!HCHO/ETOH=0.0
-!
-!HCHO/ALCH=0.0
-!
-!HCHO/ISOP=+0.5*K066*<O3>
- PJAC(:,28,35)=+0.5*TPK%K066(:)*PCONC(:,3)
-!
-!HCHO/BIOL=0.0
-!
-!HCHO/BIOH=0.0
-!
-!HCHO/MTBE=0.0
-!
-!HCHO/MVK=+0.5*K281*<O3>
- PJAC(:,28,39)=+0.5*TPK%K281(:)*PCONC(:,3)
-!
-!HCHO/MCR=+0.5*K282*<O3>
- PJAC(:,28,40)=+0.5*TPK%K282(:)*PCONC(:,3)
-!
-!HCHO/MGLY=0.0
-!
-!HCHO/GLY=0.0
-!
-!HCHO/ORA1=0.0
-!
-!HCHO/ORA2=0.0
-!
-!HCHO/ACID=0.0
-!
-!HCHO/UR28=0.0
-!
-!HCHO/UR21=0.0
-!
-!HCHO/URG2=0.0
-!
-!HCHO/UR26=0.0
-!
-!HCHO/RPG2=0.0
-!
-!HCHO/RP18=0.0
-!
-!HCHO/RPG3=0.0
-!
-!HCHO/URG4=0.0
-!
-!HCHO/UR8=0.0
-!
-!HCHO/UR17=0.0
-!
-!HCHO/UR7=0.0
-!
-!HCHO/RPR3=0.0
-!
-!HCHO/URG6=0.0
-!
-!HCHO/UR22=0.0
-!
-!HCHO/URG7=0.0
-!
-!HCHO/RPR4=0.0
-!
-!HCHO/RPR7=0.0
-!
-!HCHO/RPG7=0.0
-!
-!HCHO/URG8=0.0
-!
-!HCHO/UR19=0.0
-!
-!HCHO/URG9=0.0
-!
-!HCHO/AP7=0.0
-!
-!HCHO/URG10=0.0
-!
-!HCHO/RPR1=0.0
-!
-!HCHO/RPR5=0.0
-!
-!HCHO/RPR8=0.0
-!
-!HCHO/RP10=0.0
-!
-!HCHO/RP11=0.0
-!
-!HCHO/RP16=0.0
-!
-!HCHO/RPRL=0.0
-!
-!HCHO/APAN=0.0
-!
-!HCHO/PAN1=0.0
-!
-!HCHO/PAN2=0.0
-!
-!HCHO/PAN3=0.0
-!
-!HCHO/PAN4=0.0
-!
-!HCHO/PAN6=0.0
-!
-!HCHO/PAN7=0.0
-!
-!HCHO/PAN8=0.0
-!
-!HCHO/PN10=0.0
-!
-!HCHO/RO2T=+K111*<RO21>+K114*<RO22>+K117*<RO23>+K120*<RO24>+K151*<RO29>+K154*<R
-!O210>+K157*<RO211>+K160*<RO212>+K163*<RO213>+TPK%CF14*K172*<RO215>+K184*<RO219
-!>+K286*<RO249>+K293*<RO251>+K296*<RO252>+K299*<RO253>
- PJAC(:,28,85)=+TPK%K111(:)*PCONC(:,86)+TPK%K114(:)*TPK%RO22(:)+TPK%K117(:)*TPK&
-&%RO23(:)+TPK%K120(:)*TPK%RO24(:)+TPK%K151(:)*TPK%RO29(:)+TPK%K154(:)*TPK%RO210&
-&(:)+TPK%K157(:)*TPK%RO211(:)+TPK%K160(:)*TPK%RO212(:)+TPK%K163(:)*TPK%RO213(:)&
-&+TPK%CF14*TPK%K172(:)*TPK%RO215(:)+TPK%K184(:)*TPK%RO219(:)+TPK%K286(:)*TPK%RO&
-&249(:)+TPK%K293(:)*TPK%RO251(:)+TPK%K296(:)*TPK%RO252(:)+TPK%K299(:)*TPK%RO253&
-&(:)
-!
-!HCHO/RO21=+K110*<NO>+K111*<RO2T>+K112*<HO2>
- PJAC(:,28,86)=+TPK%K110(:)*PCONC(:,1)+TPK%K111(:)*PCONC(:,85)+TPK%K112(:)*PCON&
-&C(:,10)
-!
-!HCHO/RO25=0.0
-!
-!HCHO/WC_O3=0.0
-!
-!HCHO/WC_H2O2=0.0
-!
-!HCHO/WC_NO=0.0
-!
-!HCHO/WC_NO2=0.0
-!
-!HCHO/WC_NO3=0.0
-!
-!HCHO/WC_N2O5=0.0
-!
-!HCHO/WC_HONO=0.0
-!
-!HCHO/WC_HNO3=0.0
-!
-!HCHO/WC_HNO4=0.0
-!
-!HCHO/WC_NH3=0.0
-!
-!HCHO/WC_OH=0.0
-!
-!HCHO/WC_HO2=0.0
-!
-!HCHO/WC_CO2=0.0
-!
-!HCHO/WC_SO2=0.0
-!
-!HCHO/WC_H2SO4=0.0
-!
-!HCHO/WC_RO21=0.0
-!
-!HCHO/WC_RO25=0.0
-!
-!HCHO/WC_MEOH=0.0
-!
-!HCHO/WC_ETOH=0.0
-!
-!HCHO/WC_ALCH=0.0
-!
-!HCHO/WC_HCHO=+KTC52
- PJAC(:,28,108)=+TPK%KTC52(:)
-!
-!HCHO/WC_ALD2=0.0
-!
-!HCHO/WC_GLY=0.0
-!
-!HCHO/WC_MGLY=0.0
-!
-!HCHO/WC_KETL=0.0
-!
-!HCHO/WC_ORA1=0.0
-!
-!HCHO/WC_ORA2=0.0
-!
-!HCHO/WC_ACID=0.0
-!
-!HCHO/WC_RP16=0.0
-!
-!HCHO/WC_UR21=0.0
-!
-!HCHO/WC_UR28=0.0
-!
-!HCHO/WC_ACID2=0.0
-!
-!HCHO/WC_ASO3=0.0
-!
-!HCHO/WC_ASO4=0.0
-!
-!HCHO/WC_ASO5=0.0
-!
-!HCHO/WC_AHSO5=0.0
-!
-!HCHO/WC_AHMS=0.0
-!
-!HCHO/WR_O3=0.0
-!
-!HCHO/WR_H2O2=0.0
-!
-!HCHO/WR_NO=0.0
-!
-!HCHO/WR_NO2=0.0
-!
-!HCHO/WR_NO3=0.0
-!
-!HCHO/WR_N2O5=0.0
-!
-!HCHO/WR_HONO=0.0
-!
-!HCHO/WR_HNO3=0.0
-!
-!HCHO/WR_HNO4=0.0
-!
-!HCHO/WR_NH3=0.0
-!
-!HCHO/WR_OH=0.0
-!
-!HCHO/WR_HO2=0.0
-!
-!HCHO/WR_CO2=0.0
-!
-!HCHO/WR_SO2=0.0
-!
-!HCHO/WR_H2SO4=0.0
-!
-!HCHO/WR_RO21=0.0
-!
-!HCHO/WR_RO25=0.0
-!
-!HCHO/WR_MEOH=0.0
-!
-!HCHO/WR_ETOH=0.0
-!
-!HCHO/WR_ALCH=0.0
-!
-!HCHO/WR_HCHO=+KTR52
- PJAC(:,28,145)=+TPK%KTR52(:)
-!
-!HCHO/WR_ALD2=0.0
-!
-!HCHO/WR_GLY=0.0
-!
-!HCHO/WR_MGLY=0.0
-!
-!HCHO/WR_KETL=0.0
-!
-!HCHO/WR_ORA1=0.0
-!
-!HCHO/WR_ORA2=0.0
-!
-!HCHO/WR_ACID=0.0
-!
-!HCHO/WR_RP16=0.0
-!
-!HCHO/WR_UR21=0.0
-!
-!HCHO/WR_UR28=0.0
-!
-!HCHO/WR_ACID2=0.0
-!
-!HCHO/WR_ASO3=0.0
-!
-!HCHO/WR_ASO4=0.0
-!
-!HCHO/WR_ASO5=0.0
-!
-!HCHO/WR_AHSO5=0.0
-!
-!HCHO/WR_AHMS=0.0
-!
-!ALD2/NO=+K113*<RO22>+K116*<RO23>+TPK%CF4*K122*<RO25>+K144*<RO27>+TPK%CF9*K171*
-!<RO215>+K174*<RO216>
- PJAC(:,29,1)=+TPK%K113(:)*TPK%RO22(:)+TPK%K116(:)*TPK%RO23(:)+TPK%CF4*TPK%K122&
-&(:)*PCONC(:,87)+TPK%K144(:)*TPK%RO27(:)+TPK%CF9*TPK%K171(:)*TPK%RO215(:)+TPK%K&
-&174(:)*TPK%RO216(:)
-!
-!ALD2/NO2=0.0
-!
-!ALD2/O3=+0.5*K056*<OLEL>+0.1*K281*<MVK>
- PJAC(:,29,3)=+0.5*TPK%K056(:)*PCONC(:,17)+0.1*TPK%K281(:)*PCONC(:,39)
-!
-!ALD2/HONO=0.0
-!
-!ALD2/HNO3=0.0
-!
-!ALD2/HNO4=0.0
-!
-!ALD2/N2O5=0.0
-!
-!ALD2/NO3=-K061*<ALD2>
- PJAC(:,29,8)=-TPK%K061(:)*PCONC(:,29)
-!
-!ALD2/NH3=0.0
-!
-!ALD2/HO2=+K115*<RO22>+K118*<RO23>+K124*<RO25>+K146*<RO27>+TPK%CF13*K173*<RO215
-!>+K176*<RO216>
- PJAC(:,29,10)=+TPK%K115(:)*TPK%RO22(:)+TPK%K118(:)*TPK%RO23(:)+TPK%K124(:)*PCO&
-&NC(:,87)+TPK%K146(:)*TPK%RO27(:)+TPK%CF13*TPK%K173(:)*TPK%RO215(:)+TPK%K176(:)&
-&*TPK%RO216(:)
-!
-!ALD2/CO=0.0
-!
-!ALD2/H2O2=0.0
-!
-!ALD2/SO2=0.0
-!
-!ALD2/H2SO4=0.0
-!
-!ALD2/OH=+TPK%CF1*K053*<ETOH>-K060*<ALD2>
- PJAC(:,29,15)=+TPK%CF1*TPK%K053(:)*PCONC(:,33)-TPK%K060(:)*PCONC(:,29)
-!
-!ALD2/ETHE=0.0
-!
-!ALD2/OLEL=+0.5*K056*<O3>+0.4*K057*<O>
- PJAC(:,29,17)=+0.5*TPK%K056(:)*PCONC(:,3)+0.4*TPK%K057(:)*TPK%O(:)
-!
-!ALD2/OLEH=0.0
-!
-!ALD2/ALKL=0.0
-!
-!ALD2/ALKM=0.0
-!
-!ALD2/ALKH=0.0
-!
-!ALD2/AROH=0.0
-!
-!ALD2/AROL=0.0
-!
-!ALD2/AROO=0.0
-!
-!ALD2/ARAL=0.0
-!
-!ALD2/ARAC=0.0
-!
-!ALD2/PAH=0.0
-!
-!ALD2/HCHO=0.0
-!
-!ALD2/ALD2=-K059-K060*<OH>-K061*<NO3>-KTC22-KTR22
- PJAC(:,29,29)=-TPK%K059(:)-TPK%K060(:)*PCONC(:,15)-TPK%K061(:)*PCONC(:,8)-TPK%&
-&KTC22(:)-TPK%KTR22(:)
-!
-!ALD2/KETL=0.0
-!
-!ALD2/KETH=0.0
-!
-!ALD2/MEOH=0.0
-!
-!ALD2/ETOH=+TPK%CF1*K053*<OH>
- PJAC(:,29,33)=+TPK%CF1*TPK%K053(:)*PCONC(:,15)
-!
-!ALD2/ALCH=0.0
-!
-!ALD2/ISOP=+0.075*K067*<O>
- PJAC(:,29,35)=+0.075*TPK%K067(:)*TPK%O(:)
-!
-!ALD2/BIOL=0.0
-!
-!ALD2/BIOH=0.0
-!
-!ALD2/MTBE=0.0
-!
-!ALD2/MVK=+0.1*K281*<O3>
- PJAC(:,29,39)=+0.1*TPK%K281(:)*PCONC(:,3)
-!
-!ALD2/MCR=+0.85*K284*<O>
- PJAC(:,29,40)=+0.85*TPK%K284(:)*TPK%O(:)
-!
-!ALD2/MGLY=0.0
-!
-!ALD2/GLY=0.0
-!
-!ALD2/ORA1=0.0
-!
-!ALD2/ORA2=0.0
-!
-!ALD2/ACID=0.0
-!
-!ALD2/UR28=0.0
-!
-!ALD2/UR21=0.0
-!
-!ALD2/URG2=0.0
-!
-!ALD2/UR26=0.0
-!
-!ALD2/RPG2=0.0
-!
-!ALD2/RP18=0.0
-!
-!ALD2/RPG3=0.0
-!
-!ALD2/URG4=0.0
-!
-!ALD2/UR8=0.0
-!
-!ALD2/UR17=0.0
-!
-!ALD2/UR7=0.0
-!
-!ALD2/RPR3=0.0
-!
-!ALD2/URG6=0.0
-!
-!ALD2/UR22=0.0
-!
-!ALD2/URG7=0.0
-!
-!ALD2/RPR4=0.0
-!
-!ALD2/RPR7=0.0
-!
-!ALD2/RPG7=0.0
-!
-!ALD2/URG8=0.0
-!
-!ALD2/UR19=0.0
-!
-!ALD2/URG9=0.0
-!
-!ALD2/AP7=0.0
-!
-!ALD2/URG10=0.0
-!
-!ALD2/RPR1=0.0
-!
-!ALD2/RPR5=0.0
-!
-!ALD2/RPR8=0.0
-!
-!ALD2/RP10=0.0
-!
-!ALD2/RP11=0.0
-!
-!ALD2/RP16=0.0
-!
-!ALD2/RPRL=0.0
-!
-!ALD2/APAN=0.0
-!
-!ALD2/PAN1=0.0
-!
-!ALD2/PAN2=0.0
-!
-!ALD2/PAN3=0.0
-!
-!ALD2/PAN4=0.0
-!
-!ALD2/PAN6=0.0
-!
-!ALD2/PAN7=0.0
-!
-!ALD2/PAN8=0.0
-!
-!ALD2/PN10=0.0
-!
-!ALD2/RO2T=+K114*<RO22>+K117*<RO23>+K123*<RO25>+K145*<RO27>+TPK%CF13*K172*<RO21
-!5>+K175*<RO216>
- PJAC(:,29,85)=+TPK%K114(:)*TPK%RO22(:)+TPK%K117(:)*TPK%RO23(:)+TPK%K123(:)*PCO&
-&NC(:,87)+TPK%K145(:)*TPK%RO27(:)+TPK%CF13*TPK%K172(:)*TPK%RO215(:)+TPK%K175(:)&
-&*TPK%RO216(:)
-!
-!ALD2/RO21=0.0
-!
-!ALD2/RO25=+TPK%CF4*K122*<NO>+K123*<RO2T>+K124*<HO2>
- PJAC(:,29,87)=+TPK%CF4*TPK%K122(:)*PCONC(:,1)+TPK%K123(:)*PCONC(:,85)+TPK%K124&
-&(:)*PCONC(:,10)
-!
-!ALD2/WC_O3=0.0
-!
-!ALD2/WC_H2O2=0.0
-!
-!ALD2/WC_NO=0.0
-!
-!ALD2/WC_NO2=0.0
-!
-!ALD2/WC_NO3=0.0
-!
-!ALD2/WC_N2O5=0.0
-!
-!ALD2/WC_HONO=0.0
-!
-!ALD2/WC_HNO3=0.0
-!
-!ALD2/WC_HNO4=0.0
-!
-!ALD2/WC_NH3=0.0
-!
-!ALD2/WC_OH=0.0
-!
-!ALD2/WC_HO2=0.0
-!
-!ALD2/WC_CO2=0.0
-!
-!ALD2/WC_SO2=0.0
-!
-!ALD2/WC_H2SO4=0.0
-!
-!ALD2/WC_RO21=0.0
-!
-!ALD2/WC_RO25=0.0
-!
-!ALD2/WC_MEOH=0.0
-!
-!ALD2/WC_ETOH=0.0
-!
-!ALD2/WC_ALCH=0.0
-!
-!ALD2/WC_HCHO=0.0
-!
-!ALD2/WC_ALD2=+KTC53
- PJAC(:,29,109)=+TPK%KTC53(:)
-!
-!ALD2/WC_GLY=0.0
-!
-!ALD2/WC_MGLY=0.0
-!
-!ALD2/WC_KETL=0.0
-!
-!ALD2/WC_ORA1=0.0
-!
-!ALD2/WC_ORA2=0.0
-!
-!ALD2/WC_ACID=0.0
-!
-!ALD2/WC_RP16=0.0
-!
-!ALD2/WC_UR21=0.0
-!
-!ALD2/WC_UR28=0.0
-!
-!ALD2/WC_ACID2=0.0
-!
-!ALD2/WC_ASO3=0.0
-!
-!ALD2/WC_ASO4=0.0
-!
-!ALD2/WC_ASO5=0.0
-!
-!ALD2/WC_AHSO5=0.0
-!
-!ALD2/WC_AHMS=0.0
-!
-!ALD2/WR_O3=0.0
-!
-!ALD2/WR_H2O2=0.0
-!
-!ALD2/WR_NO=0.0
-!
-!ALD2/WR_NO2=0.0
-!
-!ALD2/WR_NO3=0.0
-!
-!ALD2/WR_N2O5=0.0
-!
-!ALD2/WR_HONO=0.0
-!
-!ALD2/WR_HNO3=0.0
-!
-!ALD2/WR_HNO4=0.0
-!
-!ALD2/WR_NH3=0.0
-!
-!ALD2/WR_OH=0.0
-!
-!ALD2/WR_HO2=0.0
-!
-!ALD2/WR_CO2=0.0
-!
-!ALD2/WR_SO2=0.0
-!
-!ALD2/WR_H2SO4=0.0
-!
-!ALD2/WR_RO21=0.0
-!
-!ALD2/WR_RO25=0.0
-!
-!ALD2/WR_MEOH=0.0
-!
-!ALD2/WR_ETOH=0.0
-!
-!ALD2/WR_ALCH=0.0
-!
-!ALD2/WR_HCHO=0.0
-!
-!ALD2/WR_ALD2=+KTR53
- PJAC(:,29,146)=+TPK%KTR53(:)
-!
-!ALD2/WR_GLY=0.0
-!
-!ALD2/WR_MGLY=0.0
-!
-!ALD2/WR_KETL=0.0
-!
-!ALD2/WR_ORA1=0.0
-!
-!ALD2/WR_ORA2=0.0
-!
-!ALD2/WR_ACID=0.0
-!
-!ALD2/WR_RP16=0.0
-!
-!ALD2/WR_UR21=0.0
-!
-!ALD2/WR_UR28=0.0
-!
-!ALD2/WR_ACID2=0.0
-!
-!ALD2/WR_ASO3=0.0
-!
-!ALD2/WR_ASO4=0.0
-!
-!ALD2/WR_ASO5=0.0
-!
-!ALD2/WR_AHSO5=0.0
-!
-!ALD2/WR_AHMS=0.0
-!
-!KETL/NO=+TPK%CF11*K171*<RO215>
- PJAC(:,30,1)=+TPK%CF11*TPK%K171(:)*TPK%RO215(:)
-!
-!KETL/NO2=0.0
-!
-!KETL/O3=0.0
-!
-!KETL/HONO=0.0
-!
-!KETL/HNO3=0.0
-!
-!KETL/HNO4=0.0
-!
-!KETL/N2O5=0.0
-!
-!KETL/NO3=0.0
-!
-!KETL/NH3=0.0
-!
-!KETL/HO2=+TPK%CF15*K173*<RO215>
- PJAC(:,30,10)=+TPK%CF15*TPK%K173(:)*TPK%RO215(:)
-!
-!KETL/CO=0.0
-!
-!KETL/H2O2=0.0
-!
-!KETL/SO2=0.0
-!
-!KETL/H2SO4=0.0
-!
-!KETL/OH=-K062*<KETL>
- PJAC(:,30,15)=-TPK%K062(:)*PCONC(:,30)
-!
-!KETL/ETHE=0.0
-!
-!KETL/OLEL=0.0
-!
-!KETL/OLEH=0.0
-!
-!KETL/ALKL=0.0
-!
-!KETL/ALKM=0.0
-!
-!KETL/ALKH=0.0
-!
-!KETL/AROH=0.0
-!
-!KETL/AROL=0.0
-!
-!KETL/AROO=0.0
-!
-!KETL/ARAL=0.0
-!
-!KETL/ARAC=0.0
-!
-!KETL/PAH=0.0
-!
-!KETL/HCHO=0.0
-!
-!KETL/ALD2=0.0
-!
-!KETL/KETL=-K062*<OH>-K063-KTC24-KTR24
- PJAC(:,30,30)=-TPK%K062(:)*PCONC(:,15)-TPK%K063(:)-TPK%KTC24(:)-TPK%KTR24(:)
-!
-!KETL/KETH=0.0
-!
-!KETL/MEOH=0.0
-!
-!KETL/ETOH=0.0
-!
-!KETL/ALCH=0.0
-!
-!KETL/ISOP=0.0
-!
-!KETL/BIOL=0.0
-!
-!KETL/BIOH=0.0
-!
-!KETL/MTBE=0.0
-!
-!KETL/MVK=+0.85*K283*<O>
- PJAC(:,30,39)=+0.85*TPK%K283(:)*TPK%O(:)
-!
-!KETL/MCR=0.0
-!
-!KETL/MGLY=0.0
-!
-!KETL/GLY=0.0
-!
-!KETL/ORA1=0.0
-!
-!KETL/ORA2=0.0
-!
-!KETL/ACID=0.0
-!
-!KETL/UR28=0.0
-!
-!KETL/UR21=0.0
-!
-!KETL/URG2=0.0
-!
-!KETL/UR26=0.0
-!
-!KETL/RPG2=0.0
-!
-!KETL/RP18=0.0
-!
-!KETL/RPG3=0.0
-!
-!KETL/URG4=0.0
-!
-!KETL/UR8=0.0
-!
-!KETL/UR17=0.0
-!
-!KETL/UR7=0.0
-!
-!KETL/RPR3=0.0
-!
-!KETL/URG6=0.0
-!
-!KETL/UR22=0.0
-!
-!KETL/URG7=0.0
-!
-!KETL/RPR4=0.0
-!
-!KETL/RPR7=0.0
-!
-!KETL/RPG7=0.0
-!
-!KETL/URG8=0.0
-!
-!KETL/UR19=0.0
-!
-!KETL/URG9=0.0
-!
-!KETL/AP7=0.0
-!
-!KETL/URG10=0.0
-!
-!KETL/RPR1=0.0
-!
-!KETL/RPR5=0.0
-!
-!KETL/RPR8=0.0
-!
-!KETL/RP10=0.0
-!
-!KETL/RP11=0.0
-!
-!KETL/RP16=0.0
-!
-!KETL/RPRL=0.0
-!
-!KETL/APAN=0.0
-!
-!KETL/PAN1=0.0
-!
-!KETL/PAN2=0.0
-!
-!KETL/PAN3=0.0
-!
-!KETL/PAN4=0.0
-!
-!KETL/PAN6=0.0
-!
-!KETL/PAN7=0.0
-!
-!KETL/PAN8=0.0
-!
-!KETL/PN10=0.0
-!
-!KETL/RO2T=+TPK%CF15*K172*<RO215>
- PJAC(:,30,85)=+TPK%CF15*TPK%K172(:)*TPK%RO215(:)
-!
-!KETL/RO21=0.0
-!
-!KETL/RO25=0.0
-!
-!KETL/WC_O3=0.0
-!
-!KETL/WC_H2O2=0.0
-!
-!KETL/WC_NO=0.0
-!
-!KETL/WC_NO2=0.0
-!
-!KETL/WC_NO3=0.0
-!
-!KETL/WC_N2O5=0.0
-!
-!KETL/WC_HONO=0.0
-!
-!KETL/WC_HNO3=0.0
-!
-!KETL/WC_HNO4=0.0
-!
-!KETL/WC_NH3=0.0
-!
-!KETL/WC_OH=0.0
-!
-!KETL/WC_HO2=0.0
-!
-!KETL/WC_CO2=0.0
-!
-!KETL/WC_SO2=0.0
-!
-!KETL/WC_H2SO4=0.0
-!
-!KETL/WC_RO21=0.0
-!
-!KETL/WC_RO25=0.0
-!
-!KETL/WC_MEOH=0.0
-!
-!KETL/WC_ETOH=0.0
-!
-!KETL/WC_ALCH=0.0
-!
-!KETL/WC_HCHO=0.0
-!
-!KETL/WC_ALD2=0.0
-!
-!KETL/WC_GLY=0.0
-!
-!KETL/WC_MGLY=0.0
-!
-!KETL/WC_KETL=+KTC55
- PJAC(:,30,112)=+TPK%KTC55(:)
-!
-!KETL/WC_ORA1=0.0
-!
-!KETL/WC_ORA2=0.0
-!
-!KETL/WC_ACID=0.0
-!
-!KETL/WC_RP16=0.0
-!
-!KETL/WC_UR21=0.0
-!
-!KETL/WC_UR28=0.0
-!
-!KETL/WC_ACID2=0.0
-!
-!KETL/WC_ASO3=0.0
-!
-!KETL/WC_ASO4=0.0
-!
-!KETL/WC_ASO5=0.0
-!
-!KETL/WC_AHSO5=0.0
-!
-!KETL/WC_AHMS=0.0
-!
-!KETL/WR_O3=0.0
-!
-!KETL/WR_H2O2=0.0
-!
-!KETL/WR_NO=0.0
-!
-!KETL/WR_NO2=0.0
-!
-!KETL/WR_NO3=0.0
-!
-!KETL/WR_N2O5=0.0
-!
-!KETL/WR_HONO=0.0
-!
-!KETL/WR_HNO3=0.0
-!
-!KETL/WR_HNO4=0.0
-!
-!KETL/WR_NH3=0.0
-!
-!KETL/WR_OH=0.0
-!
-!KETL/WR_HO2=0.0
-!
-!KETL/WR_CO2=0.0
-!
-!KETL/WR_SO2=0.0
-!
-!KETL/WR_H2SO4=0.0
-!
-!KETL/WR_RO21=0.0
-!
-!KETL/WR_RO25=0.0
-!
-!KETL/WR_MEOH=0.0
-!
-!KETL/WR_ETOH=0.0
-!
-!KETL/WR_ALCH=0.0
-!
-!KETL/WR_HCHO=0.0
-!
-!KETL/WR_ALD2=0.0
-!
-!KETL/WR_GLY=0.0
-!
-!KETL/WR_MGLY=0.0
-!
-!KETL/WR_KETL=+KTR55
- PJAC(:,30,149)=+TPK%KTR55(:)
-!
-!KETL/WR_ORA1=0.0
-!
-!KETL/WR_ORA2=0.0
-!
-!KETL/WR_ACID=0.0
-!
-!KETL/WR_RP16=0.0
-!
-!KETL/WR_UR21=0.0
-!
-!KETL/WR_UR28=0.0
-!
-!KETL/WR_ACID2=0.0
-!
-!KETL/WR_ASO3=0.0
-!
-!KETL/WR_ASO4=0.0
-!
-!KETL/WR_ASO5=0.0
-!
-!KETL/WR_AHSO5=0.0
-!
-!KETL/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ5
-!
-SUBROUTINE SUBJ6
-!
-!Indices 31 a 35
-!
-!
-!KETH/NO=0.0
-!
-!KETH/NO2=0.0
-!
-!KETH/O3=0.0
-!
-!KETH/HONO=0.0
-!
-!KETH/HNO3=0.0
-!
-!KETH/HNO4=0.0
-!
-!KETH/N2O5=0.0
-!
-!KETH/NO3=0.0
-!
-!KETH/NH3=0.0
-!
-!KETH/HO2=0.0
-!
-!KETH/CO=0.0
-!
-!KETH/H2O2=0.0
-!
-!KETH/SO2=0.0
-!
-!KETH/H2SO4=0.0
-!
-!KETH/OH=-K070*<KETH>
- PJAC(:,31,15)=-TPK%K070(:)*PCONC(:,31)
-!
-!KETH/ETHE=0.0
-!
-!KETH/OLEL=0.0
-!
-!KETH/OLEH=0.0
-!
-!KETH/ALKL=0.0
-!
-!KETH/ALKM=0.0
-!
-!KETH/ALKH=0.0
-!
-!KETH/AROH=0.0
-!
-!KETH/AROL=0.0
-!
-!KETH/AROO=0.0
-!
-!KETH/ARAL=0.0
-!
-!KETH/ARAC=0.0
-!
-!KETH/PAH=0.0
-!
-!KETH/HCHO=0.0
-!
-!KETH/ALD2=0.0
-!
-!KETH/KETL=0.0
-!
-!KETH/KETH=-K070*<OH>-K071
- PJAC(:,31,31)=-TPK%K070(:)*PCONC(:,15)-TPK%K071(:)
-!
-!KETH/MEOH=0.0
-!
-!KETH/ETOH=0.0
-!
-!KETH/ALCH=0.0
-!
-!KETH/ISOP=0.0
-!
-!KETH/BIOL=0.0
-!
-!KETH/BIOH=0.0
-!
-!KETH/MTBE=0.0
-!
-!KETH/MVK=0.0
-!
-!KETH/MCR=0.0
-!
-!KETH/MGLY=0.0
-!
-!KETH/GLY=0.0
-!
-!KETH/ORA1=0.0
-!
-!KETH/ORA2=0.0
-!
-!KETH/ACID=0.0
-!
-!KETH/UR28=0.0
-!
-!KETH/UR21=0.0
-!
-!KETH/URG2=0.0
-!
-!KETH/UR26=0.0
-!
-!KETH/RPG2=0.0
-!
-!KETH/RP18=0.0
-!
-!KETH/RPG3=0.0
-!
-!KETH/URG4=0.0
-!
-!KETH/UR8=0.0
-!
-!KETH/UR17=0.0
-!
-!KETH/UR7=0.0
-!
-!KETH/RPR3=0.0
-!
-!KETH/URG6=0.0
-!
-!KETH/UR22=0.0
-!
-!KETH/URG7=0.0
-!
-!KETH/RPR4=0.0
-!
-!KETH/RPR7=0.0
-!
-!KETH/RPG7=0.0
-!
-!KETH/URG8=0.0
-!
-!KETH/UR19=0.0
-!
-!KETH/URG9=0.0
-!
-!KETH/AP7=0.0
-!
-!KETH/URG10=0.0
-!
-!KETH/RPR1=0.0
-!
-!KETH/RPR5=0.0
-!
-!KETH/RPR8=0.0
-!
-!KETH/RP10=0.0
-!
-!KETH/RP11=0.0
-!
-!KETH/RP16=0.0
-!
-!KETH/RPRL=0.0
-!
-!KETH/APAN=0.0
-!
-!KETH/PAN1=0.0
-!
-!KETH/PAN2=0.0
-!
-!KETH/PAN3=0.0
-!
-!KETH/PAN4=0.0
-!
-!KETH/PAN6=0.0
-!
-!KETH/PAN7=0.0
-!
-!KETH/PAN8=0.0
-!
-!KETH/PN10=0.0
-!
-!KETH/RO2T=0.0
-!
-!KETH/RO21=0.0
-!
-!KETH/RO25=0.0
-!
-!KETH/WC_O3=0.0
-!
-!KETH/WC_H2O2=0.0
-!
-!KETH/WC_NO=0.0
-!
-!KETH/WC_NO2=0.0
-!
-!KETH/WC_NO3=0.0
-!
-!KETH/WC_N2O5=0.0
-!
-!KETH/WC_HONO=0.0
-!
-!KETH/WC_HNO3=0.0
-!
-!KETH/WC_HNO4=0.0
-!
-!KETH/WC_NH3=0.0
-!
-!KETH/WC_OH=0.0
-!
-!KETH/WC_HO2=0.0
-!
-!KETH/WC_CO2=0.0
-!
-!KETH/WC_SO2=0.0
-!
-!KETH/WC_H2SO4=0.0
-!
-!KETH/WC_RO21=0.0
-!
-!KETH/WC_RO25=0.0
-!
-!KETH/WC_MEOH=0.0
-!
-!KETH/WC_ETOH=0.0
-!
-!KETH/WC_ALCH=0.0
-!
-!KETH/WC_HCHO=0.0
-!
-!KETH/WC_ALD2=0.0
-!
-!KETH/WC_GLY=0.0
-!
-!KETH/WC_MGLY=0.0
-!
-!KETH/WC_KETL=0.0
-!
-!KETH/WC_ORA1=0.0
-!
-!KETH/WC_ORA2=0.0
-!
-!KETH/WC_ACID=0.0
-!
-!KETH/WC_RP16=0.0
-!
-!KETH/WC_UR21=0.0
-!
-!KETH/WC_UR28=0.0
-!
-!KETH/WC_ACID2=0.0
-!
-!KETH/WC_ASO3=0.0
-!
-!KETH/WC_ASO4=0.0
-!
-!KETH/WC_ASO5=0.0
-!
-!KETH/WC_AHSO5=0.0
-!
-!KETH/WC_AHMS=0.0
-!
-!KETH/WR_O3=0.0
-!
-!KETH/WR_H2O2=0.0
-!
-!KETH/WR_NO=0.0
-!
-!KETH/WR_NO2=0.0
-!
-!KETH/WR_NO3=0.0
-!
-!KETH/WR_N2O5=0.0
-!
-!KETH/WR_HONO=0.0
-!
-!KETH/WR_HNO3=0.0
-!
-!KETH/WR_HNO4=0.0
-!
-!KETH/WR_NH3=0.0
-!
-!KETH/WR_OH=0.0
-!
-!KETH/WR_HO2=0.0
-!
-!KETH/WR_CO2=0.0
-!
-!KETH/WR_SO2=0.0
-!
-!KETH/WR_H2SO4=0.0
-!
-!KETH/WR_RO21=0.0
-!
-!KETH/WR_RO25=0.0
-!
-!KETH/WR_MEOH=0.0
-!
-!KETH/WR_ETOH=0.0
-!
-!KETH/WR_ALCH=0.0
-!
-!KETH/WR_HCHO=0.0
-!
-!KETH/WR_ALD2=0.0
-!
-!KETH/WR_GLY=0.0
-!
-!KETH/WR_MGLY=0.0
-!
-!KETH/WR_KETL=0.0
-!
-!KETH/WR_ORA1=0.0
-!
-!KETH/WR_ORA2=0.0
-!
-!KETH/WR_ACID=0.0
-!
-!KETH/WR_RP16=0.0
-!
-!KETH/WR_UR21=0.0
-!
-!KETH/WR_UR28=0.0
-!
-!KETH/WR_ACID2=0.0
-!
-!KETH/WR_ASO3=0.0
-!
-!KETH/WR_ASO4=0.0
-!
-!KETH/WR_ASO5=0.0
-!
-!KETH/WR_AHSO5=0.0
-!
-!KETH/WR_AHMS=0.0
-!
-!MEOH/NO=0.0
-!
-!MEOH/NO2=0.0
-!
-!MEOH/O3=0.0
-!
-!MEOH/HONO=0.0
-!
-!MEOH/HNO3=0.0
-!
-!MEOH/HNO4=0.0
-!
-!MEOH/N2O5=0.0
-!
-!MEOH/NO3=0.0
-!
-!MEOH/NH3=0.0
-!
-!MEOH/HO2=0.0
-!
-!MEOH/CO=0.0
-!
-!MEOH/H2O2=0.0
-!
-!MEOH/SO2=0.0
-!
-!MEOH/H2SO4=0.0
-!
-!MEOH/OH=-K048*<MEOH>
- PJAC(:,32,15)=-TPK%K048(:)*PCONC(:,32)
-!
-!MEOH/ETHE=0.0
-!
-!MEOH/OLEL=0.0
-!
-!MEOH/OLEH=0.0
-!
-!MEOH/ALKL=0.0
-!
-!MEOH/ALKM=0.0
-!
-!MEOH/ALKH=0.0
-!
-!MEOH/AROH=0.0
-!
-!MEOH/AROL=0.0
-!
-!MEOH/AROO=0.0
-!
-!MEOH/ARAL=0.0
-!
-!MEOH/ARAC=0.0
-!
-!MEOH/PAH=0.0
-!
-!MEOH/HCHO=0.0
-!
-!MEOH/ALD2=0.0
-!
-!MEOH/KETL=0.0
-!
-!MEOH/KETH=0.0
-!
-!MEOH/MEOH=-K048*<OH>-KTC18-KTR18
- PJAC(:,32,32)=-TPK%K048(:)*PCONC(:,15)-TPK%KTC18(:)-TPK%KTR18(:)
-!
-!MEOH/ETOH=0.0
-!
-!MEOH/ALCH=0.0
-!
-!MEOH/ISOP=0.0
-!
-!MEOH/BIOL=0.0
-!
-!MEOH/BIOH=0.0
-!
-!MEOH/MTBE=0.0
-!
-!MEOH/MVK=0.0
-!
-!MEOH/MCR=0.0
-!
-!MEOH/MGLY=0.0
-!
-!MEOH/GLY=0.0
-!
-!MEOH/ORA1=0.0
-!
-!MEOH/ORA2=0.0
-!
-!MEOH/ACID=0.0
-!
-!MEOH/UR28=0.0
-!
-!MEOH/UR21=0.0
-!
-!MEOH/URG2=0.0
-!
-!MEOH/UR26=0.0
-!
-!MEOH/RPG2=0.0
-!
-!MEOH/RP18=0.0
-!
-!MEOH/RPG3=0.0
-!
-!MEOH/URG4=0.0
-!
-!MEOH/UR8=0.0
-!
-!MEOH/UR17=0.0
-!
-!MEOH/UR7=0.0
-!
-!MEOH/RPR3=0.0
-!
-!MEOH/URG6=0.0
-!
-!MEOH/UR22=0.0
-!
-!MEOH/URG7=0.0
-!
-!MEOH/RPR4=0.0
-!
-!MEOH/RPR7=0.0
-!
-!MEOH/RPG7=0.0
-!
-!MEOH/URG8=0.0
-!
-!MEOH/UR19=0.0
-!
-!MEOH/URG9=0.0
-!
-!MEOH/AP7=0.0
-!
-!MEOH/URG10=0.0
-!
-!MEOH/RPR1=0.0
-!
-!MEOH/RPR5=0.0
-!
-!MEOH/RPR8=0.0
-!
-!MEOH/RP10=0.0
-!
-!MEOH/RP11=0.0
-!
-!MEOH/RP16=0.0
-!
-!MEOH/RPRL=0.0
-!
-!MEOH/APAN=0.0
-!
-!MEOH/PAN1=0.0
-!
-!MEOH/PAN2=0.0
-!
-!MEOH/PAN3=0.0
-!
-!MEOH/PAN4=0.0
-!
-!MEOH/PAN6=0.0
-!
-!MEOH/PAN7=0.0
-!
-!MEOH/PAN8=0.0
-!
-!MEOH/PN10=0.0
-!
-!MEOH/RO2T=0.0
-!
-!MEOH/RO21=0.0
-!
-!MEOH/RO25=0.0
-!
-!MEOH/WC_O3=0.0
-!
-!MEOH/WC_H2O2=0.0
-!
-!MEOH/WC_NO=0.0
-!
-!MEOH/WC_NO2=0.0
-!
-!MEOH/WC_NO3=0.0
-!
-!MEOH/WC_N2O5=0.0
-!
-!MEOH/WC_HONO=0.0
-!
-!MEOH/WC_HNO3=0.0
-!
-!MEOH/WC_HNO4=0.0
-!
-!MEOH/WC_NH3=0.0
-!
-!MEOH/WC_OH=0.0
-!
-!MEOH/WC_HO2=0.0
-!
-!MEOH/WC_CO2=0.0
-!
-!MEOH/WC_SO2=0.0
-!
-!MEOH/WC_H2SO4=0.0
-!
-!MEOH/WC_RO21=0.0
-!
-!MEOH/WC_RO25=0.0
-!
-!MEOH/WC_MEOH=+KTC49
- PJAC(:,32,105)=+TPK%KTC49(:)
-!
-!MEOH/WC_ETOH=0.0
-!
-!MEOH/WC_ALCH=0.0
-!
-!MEOH/WC_HCHO=0.0
-!
-!MEOH/WC_ALD2=0.0
-!
-!MEOH/WC_GLY=0.0
-!
-!MEOH/WC_MGLY=0.0
-!
-!MEOH/WC_KETL=0.0
-!
-!MEOH/WC_ORA1=0.0
-!
-!MEOH/WC_ORA2=0.0
-!
-!MEOH/WC_ACID=0.0
-!
-!MEOH/WC_RP16=0.0
-!
-!MEOH/WC_UR21=0.0
-!
-!MEOH/WC_UR28=0.0
-!
-!MEOH/WC_ACID2=0.0
-!
-!MEOH/WC_ASO3=0.0
-!
-!MEOH/WC_ASO4=0.0
-!
-!MEOH/WC_ASO5=0.0
-!
-!MEOH/WC_AHSO5=0.0
-!
-!MEOH/WC_AHMS=0.0
-!
-!MEOH/WR_O3=0.0
-!
-!MEOH/WR_H2O2=0.0
-!
-!MEOH/WR_NO=0.0
-!
-!MEOH/WR_NO2=0.0
-!
-!MEOH/WR_NO3=0.0
-!
-!MEOH/WR_N2O5=0.0
-!
-!MEOH/WR_HONO=0.0
-!
-!MEOH/WR_HNO3=0.0
-!
-!MEOH/WR_HNO4=0.0
-!
-!MEOH/WR_NH3=0.0
-!
-!MEOH/WR_OH=0.0
-!
-!MEOH/WR_HO2=0.0
-!
-!MEOH/WR_CO2=0.0
-!
-!MEOH/WR_SO2=0.0
-!
-!MEOH/WR_H2SO4=0.0
-!
-!MEOH/WR_RO21=0.0
-!
-!MEOH/WR_RO25=0.0
-!
-!MEOH/WR_MEOH=+KTR49
- PJAC(:,32,142)=+TPK%KTR49(:)
-!
-!MEOH/WR_ETOH=0.0
-!
-!MEOH/WR_ALCH=0.0
-!
-!MEOH/WR_HCHO=0.0
-!
-!MEOH/WR_ALD2=0.0
-!
-!MEOH/WR_GLY=0.0
-!
-!MEOH/WR_MGLY=0.0
-!
-!MEOH/WR_KETL=0.0
-!
-!MEOH/WR_ORA1=0.0
-!
-!MEOH/WR_ORA2=0.0
-!
-!MEOH/WR_ACID=0.0
-!
-!MEOH/WR_RP16=0.0
-!
-!MEOH/WR_UR21=0.0
-!
-!MEOH/WR_UR28=0.0
-!
-!MEOH/WR_ACID2=0.0
-!
-!MEOH/WR_ASO3=0.0
-!
-!MEOH/WR_ASO4=0.0
-!
-!MEOH/WR_ASO5=0.0
-!
-!MEOH/WR_AHSO5=0.0
-!
-!MEOH/WR_AHMS=0.0
-!
-!ETOH/NO=0.0
-!
-!ETOH/NO2=0.0
-!
-!ETOH/O3=0.0
-!
-!ETOH/HONO=0.0
-!
-!ETOH/HNO3=0.0
-!
-!ETOH/HNO4=0.0
-!
-!ETOH/N2O5=0.0
-!
-!ETOH/NO3=0.0
-!
-!ETOH/NH3=0.0
-!
-!ETOH/HO2=0.0
-!
-!ETOH/CO=0.0
-!
-!ETOH/H2O2=0.0
-!
-!ETOH/SO2=0.0
-!
-!ETOH/H2SO4=0.0
-!
-!ETOH/OH=-K053*<ETOH>
- PJAC(:,33,15)=-TPK%K053(:)*PCONC(:,33)
-!
-!ETOH/ETHE=0.0
-!
-!ETOH/OLEL=0.0
-!
-!ETOH/OLEH=0.0
-!
-!ETOH/ALKL=0.0
-!
-!ETOH/ALKM=0.0
-!
-!ETOH/ALKH=0.0
-!
-!ETOH/AROH=0.0
-!
-!ETOH/AROL=0.0
-!
-!ETOH/AROO=0.0
-!
-!ETOH/ARAL=0.0
-!
-!ETOH/ARAC=0.0
-!
-!ETOH/PAH=0.0
-!
-!ETOH/HCHO=0.0
-!
-!ETOH/ALD2=0.0
-!
-!ETOH/KETL=0.0
-!
-!ETOH/KETH=0.0
-!
-!ETOH/MEOH=0.0
-!
-!ETOH/ETOH=-K053*<OH>-KTC19-KTR19
- PJAC(:,33,33)=-TPK%K053(:)*PCONC(:,15)-TPK%KTC19(:)-TPK%KTR19(:)
-!
-!ETOH/ALCH=0.0
-!
-!ETOH/ISOP=0.0
-!
-!ETOH/BIOL=0.0
-!
-!ETOH/BIOH=0.0
-!
-!ETOH/MTBE=0.0
-!
-!ETOH/MVK=0.0
-!
-!ETOH/MCR=0.0
-!
-!ETOH/MGLY=0.0
-!
-!ETOH/GLY=0.0
-!
-!ETOH/ORA1=0.0
-!
-!ETOH/ORA2=0.0
-!
-!ETOH/ACID=0.0
-!
-!ETOH/UR28=0.0
-!
-!ETOH/UR21=0.0
-!
-!ETOH/URG2=0.0
-!
-!ETOH/UR26=0.0
-!
-!ETOH/RPG2=0.0
-!
-!ETOH/RP18=0.0
-!
-!ETOH/RPG3=0.0
-!
-!ETOH/URG4=0.0
-!
-!ETOH/UR8=0.0
-!
-!ETOH/UR17=0.0
-!
-!ETOH/UR7=0.0
-!
-!ETOH/RPR3=0.0
-!
-!ETOH/URG6=0.0
-!
-!ETOH/UR22=0.0
-!
-!ETOH/URG7=0.0
-!
-!ETOH/RPR4=0.0
-!
-!ETOH/RPR7=0.0
-!
-!ETOH/RPG7=0.0
-!
-!ETOH/URG8=0.0
-!
-!ETOH/UR19=0.0
-!
-!ETOH/URG9=0.0
-!
-!ETOH/AP7=0.0
-!
-!ETOH/URG10=0.0
-!
-!ETOH/RPR1=0.0
-!
-!ETOH/RPR5=0.0
-!
-!ETOH/RPR8=0.0
-!
-!ETOH/RP10=0.0
-!
-!ETOH/RP11=0.0
-!
-!ETOH/RP16=0.0
-!
-!ETOH/RPRL=0.0
-!
-!ETOH/APAN=0.0
-!
-!ETOH/PAN1=0.0
-!
-!ETOH/PAN2=0.0
-!
-!ETOH/PAN3=0.0
-!
-!ETOH/PAN4=0.0
-!
-!ETOH/PAN6=0.0
-!
-!ETOH/PAN7=0.0
-!
-!ETOH/PAN8=0.0
-!
-!ETOH/PN10=0.0
-!
-!ETOH/RO2T=0.0
-!
-!ETOH/RO21=0.0
-!
-!ETOH/RO25=0.0
-!
-!ETOH/WC_O3=0.0
-!
-!ETOH/WC_H2O2=0.0
-!
-!ETOH/WC_NO=0.0
-!
-!ETOH/WC_NO2=0.0
-!
-!ETOH/WC_NO3=0.0
-!
-!ETOH/WC_N2O5=0.0
-!
-!ETOH/WC_HONO=0.0
-!
-!ETOH/WC_HNO3=0.0
-!
-!ETOH/WC_HNO4=0.0
-!
-!ETOH/WC_NH3=0.0
-!
-!ETOH/WC_OH=0.0
-!
-!ETOH/WC_HO2=0.0
-!
-!ETOH/WC_CO2=0.0
-!
-!ETOH/WC_SO2=0.0
-!
-!ETOH/WC_H2SO4=0.0
-!
-!ETOH/WC_RO21=0.0
-!
-!ETOH/WC_RO25=0.0
-!
-!ETOH/WC_MEOH=0.0
-!
-!ETOH/WC_ETOH=+KTC50
- PJAC(:,33,106)=+TPK%KTC50(:)
-!
-!ETOH/WC_ALCH=0.0
-!
-!ETOH/WC_HCHO=0.0
-!
-!ETOH/WC_ALD2=0.0
-!
-!ETOH/WC_GLY=0.0
-!
-!ETOH/WC_MGLY=0.0
-!
-!ETOH/WC_KETL=0.0
-!
-!ETOH/WC_ORA1=0.0
-!
-!ETOH/WC_ORA2=0.0
-!
-!ETOH/WC_ACID=0.0
-!
-!ETOH/WC_RP16=0.0
-!
-!ETOH/WC_UR21=0.0
-!
-!ETOH/WC_UR28=0.0
-!
-!ETOH/WC_ACID2=0.0
-!
-!ETOH/WC_ASO3=0.0
-!
-!ETOH/WC_ASO4=0.0
-!
-!ETOH/WC_ASO5=0.0
-!
-!ETOH/WC_AHSO5=0.0
-!
-!ETOH/WC_AHMS=0.0
-!
-!ETOH/WR_O3=0.0
-!
-!ETOH/WR_H2O2=0.0
-!
-!ETOH/WR_NO=0.0
-!
-!ETOH/WR_NO2=0.0
-!
-!ETOH/WR_NO3=0.0
-!
-!ETOH/WR_N2O5=0.0
-!
-!ETOH/WR_HONO=0.0
-!
-!ETOH/WR_HNO3=0.0
-!
-!ETOH/WR_HNO4=0.0
-!
-!ETOH/WR_NH3=0.0
-!
-!ETOH/WR_OH=0.0
-!
-!ETOH/WR_HO2=0.0
-!
-!ETOH/WR_CO2=0.0
-!
-!ETOH/WR_SO2=0.0
-!
-!ETOH/WR_H2SO4=0.0
-!
-!ETOH/WR_RO21=0.0
-!
-!ETOH/WR_RO25=0.0
-!
-!ETOH/WR_MEOH=0.0
-!
-!ETOH/WR_ETOH=+KTR50
- PJAC(:,33,143)=+TPK%KTR50(:)
-!
-!ETOH/WR_ALCH=0.0
-!
-!ETOH/WR_HCHO=0.0
-!
-!ETOH/WR_ALD2=0.0
-!
-!ETOH/WR_GLY=0.0
-!
-!ETOH/WR_MGLY=0.0
-!
-!ETOH/WR_KETL=0.0
-!
-!ETOH/WR_ORA1=0.0
-!
-!ETOH/WR_ORA2=0.0
-!
-!ETOH/WR_ACID=0.0
-!
-!ETOH/WR_RP16=0.0
-!
-!ETOH/WR_UR21=0.0
-!
-!ETOH/WR_UR28=0.0
-!
-!ETOH/WR_ACID2=0.0
-!
-!ETOH/WR_ASO3=0.0
-!
-!ETOH/WR_ASO4=0.0
-!
-!ETOH/WR_ASO5=0.0
-!
-!ETOH/WR_AHSO5=0.0
-!
-!ETOH/WR_AHMS=0.0
-!
-!ALCH/NO=0.0
-!
-!ALCH/NO2=0.0
-!
-!ALCH/O3=0.0
-!
-!ALCH/HONO=0.0
-!
-!ALCH/HNO3=0.0
-!
-!ALCH/HNO4=0.0
-!
-!ALCH/N2O5=0.0
-!
-!ALCH/NO3=0.0
-!
-!ALCH/NH3=0.0
-!
-!ALCH/HO2=0.0
-!
-!ALCH/CO=0.0
-!
-!ALCH/H2O2=0.0
-!
-!ALCH/SO2=0.0
-!
-!ALCH/H2SO4=0.0
-!
-!ALCH/OH=-K069*<ALCH>
- PJAC(:,34,15)=-TPK%K069(:)*PCONC(:,34)
-!
-!ALCH/ETHE=0.0
-!
-!ALCH/OLEL=0.0
-!
-!ALCH/OLEH=0.0
-!
-!ALCH/ALKL=0.0
-!
-!ALCH/ALKM=0.0
-!
-!ALCH/ALKH=0.0
-!
-!ALCH/AROH=0.0
-!
-!ALCH/AROL=0.0
-!
-!ALCH/AROO=0.0
-!
-!ALCH/ARAL=0.0
-!
-!ALCH/ARAC=0.0
-!
-!ALCH/PAH=0.0
-!
-!ALCH/HCHO=0.0
-!
-!ALCH/ALD2=0.0
-!
-!ALCH/KETL=0.0
-!
-!ALCH/KETH=0.0
-!
-!ALCH/MEOH=0.0
-!
-!ALCH/ETOH=0.0
-!
-!ALCH/ALCH=-K069*<OH>-KTC20-KTR20
- PJAC(:,34,34)=-TPK%K069(:)*PCONC(:,15)-TPK%KTC20(:)-TPK%KTR20(:)
-!
-!ALCH/ISOP=0.0
-!
-!ALCH/BIOL=0.0
-!
-!ALCH/BIOH=0.0
-!
-!ALCH/MTBE=0.0
-!
-!ALCH/MVK=0.0
-!
-!ALCH/MCR=0.0
-!
-!ALCH/MGLY=0.0
-!
-!ALCH/GLY=0.0
-!
-!ALCH/ORA1=0.0
-!
-!ALCH/ORA2=0.0
-!
-!ALCH/ACID=0.0
-!
-!ALCH/UR28=0.0
-!
-!ALCH/UR21=0.0
-!
-!ALCH/URG2=0.0
-!
-!ALCH/UR26=0.0
-!
-!ALCH/RPG2=0.0
-!
-!ALCH/RP18=0.0
-!
-!ALCH/RPG3=0.0
-!
-!ALCH/URG4=0.0
-!
-!ALCH/UR8=0.0
-!
-!ALCH/UR17=0.0
-!
-!ALCH/UR7=0.0
-!
-!ALCH/RPR3=0.0
-!
-!ALCH/URG6=0.0
-!
-!ALCH/UR22=0.0
-!
-!ALCH/URG7=0.0
-!
-!ALCH/RPR4=0.0
-!
-!ALCH/RPR7=0.0
-!
-!ALCH/RPG7=0.0
-!
-!ALCH/URG8=0.0
-!
-!ALCH/UR19=0.0
-!
-!ALCH/URG9=0.0
-!
-!ALCH/AP7=0.0
-!
-!ALCH/URG10=0.0
-!
-!ALCH/RPR1=0.0
-!
-!ALCH/RPR5=0.0
-!
-!ALCH/RPR8=0.0
-!
-!ALCH/RP10=0.0
-!
-!ALCH/RP11=0.0
-!
-!ALCH/RP16=0.0
-!
-!ALCH/RPRL=0.0
-!
-!ALCH/APAN=0.0
-!
-!ALCH/PAN1=0.0
-!
-!ALCH/PAN2=0.0
-!
-!ALCH/PAN3=0.0
-!
-!ALCH/PAN4=0.0
-!
-!ALCH/PAN6=0.0
-!
-!ALCH/PAN7=0.0
-!
-!ALCH/PAN8=0.0
-!
-!ALCH/PN10=0.0
-!
-!ALCH/RO2T=0.0
-!
-!ALCH/RO21=0.0
-!
-!ALCH/RO25=0.0
-!
-!ALCH/WC_O3=0.0
-!
-!ALCH/WC_H2O2=0.0
-!
-!ALCH/WC_NO=0.0
-!
-!ALCH/WC_NO2=0.0
-!
-!ALCH/WC_NO3=0.0
-!
-!ALCH/WC_N2O5=0.0
-!
-!ALCH/WC_HONO=0.0
-!
-!ALCH/WC_HNO3=0.0
-!
-!ALCH/WC_HNO4=0.0
-!
-!ALCH/WC_NH3=0.0
-!
-!ALCH/WC_OH=0.0
-!
-!ALCH/WC_HO2=0.0
-!
-!ALCH/WC_CO2=0.0
-!
-!ALCH/WC_SO2=0.0
-!
-!ALCH/WC_H2SO4=0.0
-!
-!ALCH/WC_RO21=0.0
-!
-!ALCH/WC_RO25=0.0
-!
-!ALCH/WC_MEOH=0.0
-!
-!ALCH/WC_ETOH=0.0
-!
-!ALCH/WC_ALCH=+KTC51
- PJAC(:,34,107)=+TPK%KTC51(:)
-!
-!ALCH/WC_HCHO=0.0
-!
-!ALCH/WC_ALD2=0.0
-!
-!ALCH/WC_GLY=0.0
-!
-!ALCH/WC_MGLY=0.0
-!
-!ALCH/WC_KETL=0.0
-!
-!ALCH/WC_ORA1=0.0
-!
-!ALCH/WC_ORA2=0.0
-!
-!ALCH/WC_ACID=0.0
-!
-!ALCH/WC_RP16=0.0
-!
-!ALCH/WC_UR21=0.0
-!
-!ALCH/WC_UR28=0.0
-!
-!ALCH/WC_ACID2=0.0
-!
-!ALCH/WC_ASO3=0.0
-!
-!ALCH/WC_ASO4=0.0
-!
-!ALCH/WC_ASO5=0.0
-!
-!ALCH/WC_AHSO5=0.0
-!
-!ALCH/WC_AHMS=0.0
-!
-!ALCH/WR_O3=0.0
-!
-!ALCH/WR_H2O2=0.0
-!
-!ALCH/WR_NO=0.0
-!
-!ALCH/WR_NO2=0.0
-!
-!ALCH/WR_NO3=0.0
-!
-!ALCH/WR_N2O5=0.0
-!
-!ALCH/WR_HONO=0.0
-!
-!ALCH/WR_HNO3=0.0
-!
-!ALCH/WR_HNO4=0.0
-!
-!ALCH/WR_NH3=0.0
-!
-!ALCH/WR_OH=0.0
-!
-!ALCH/WR_HO2=0.0
-!
-!ALCH/WR_CO2=0.0
-!
-!ALCH/WR_SO2=0.0
-!
-!ALCH/WR_H2SO4=0.0
-!
-!ALCH/WR_RO21=0.0
-!
-!ALCH/WR_RO25=0.0
-!
-!ALCH/WR_MEOH=0.0
-!
-!ALCH/WR_ETOH=0.0
-!
-!ALCH/WR_ALCH=+KTR51
- PJAC(:,34,144)=+TPK%KTR51(:)
-!
-!ALCH/WR_HCHO=0.0
-!
-!ALCH/WR_ALD2=0.0
-!
-!ALCH/WR_GLY=0.0
-!
-!ALCH/WR_MGLY=0.0
-!
-!ALCH/WR_KETL=0.0
-!
-!ALCH/WR_ORA1=0.0
-!
-!ALCH/WR_ORA2=0.0
-!
-!ALCH/WR_ACID=0.0
-!
-!ALCH/WR_RP16=0.0
-!
-!ALCH/WR_UR21=0.0
-!
-!ALCH/WR_UR28=0.0
-!
-!ALCH/WR_ACID2=0.0
-!
-!ALCH/WR_ASO3=0.0
-!
-!ALCH/WR_ASO4=0.0
-!
-!ALCH/WR_ASO5=0.0
-!
-!ALCH/WR_AHSO5=0.0
-!
-!ALCH/WR_AHMS=0.0
-!
-!ISOP/NO=0.0
-!
-!ISOP/NO2=0.0
-!
-!ISOP/O3=-K066*<ISOP>
- PJAC(:,35,3)=-TPK%K066(:)*PCONC(:,35)
-!
-!ISOP/HONO=0.0
-!
-!ISOP/HNO3=0.0
-!
-!ISOP/HNO4=0.0
-!
-!ISOP/N2O5=0.0
-!
-!ISOP/NO3=-K065*<ISOP>
- PJAC(:,35,8)=-TPK%K065(:)*PCONC(:,35)
-!
-!ISOP/NH3=0.0
-!
-!ISOP/HO2=0.0
-!
-!ISOP/CO=0.0
-!
-!ISOP/H2O2=0.0
-!
-!ISOP/SO2=0.0
-!
-!ISOP/H2SO4=0.0
-!
-!ISOP/OH=-K064*<ISOP>
- PJAC(:,35,15)=-TPK%K064(:)*PCONC(:,35)
-!
-!ISOP/ETHE=0.0
-!
-!ISOP/OLEL=0.0
-!
-!ISOP/OLEH=0.0
-!
-!ISOP/ALKL=0.0
-!
-!ISOP/ALKM=0.0
-!
-!ISOP/ALKH=0.0
-!
-!ISOP/AROH=0.0
-!
-!ISOP/AROL=0.0
-!
-!ISOP/AROO=0.0
-!
-!ISOP/ARAL=0.0
-!
-!ISOP/ARAC=0.0
-!
-!ISOP/PAH=0.0
-!
-!ISOP/HCHO=0.0
-!
-!ISOP/ALD2=0.0
-!
-!ISOP/KETL=0.0
-!
-!ISOP/KETH=0.0
-!
-!ISOP/MEOH=0.0
-!
-!ISOP/ETOH=0.0
-!
-!ISOP/ALCH=0.0
-!
-!ISOP/ISOP=-K064*<OH>-K065*<NO3>-K066*<O3>-K067*<O>
- PJAC(:,35,35)=-TPK%K064(:)*PCONC(:,15)-TPK%K065(:)*PCONC(:,8)-TPK%K066(:)*PCON&
-&C(:,3)-TPK%K067(:)*TPK%O(:)
-!
-!ISOP/BIOL=0.0
-!
-!ISOP/BIOH=0.0
-!
-!ISOP/MTBE=0.0
-!
-!ISOP/MVK=0.0
-!
-!ISOP/MCR=0.0
-!
-!ISOP/MGLY=0.0
-!
-!ISOP/GLY=0.0
-!
-!ISOP/ORA1=0.0
-!
-!ISOP/ORA2=0.0
-!
-!ISOP/ACID=0.0
-!
-!ISOP/UR28=0.0
-!
-!ISOP/UR21=0.0
-!
-!ISOP/URG2=0.0
-!
-!ISOP/UR26=0.0
-!
-!ISOP/RPG2=0.0
-!
-!ISOP/RP18=0.0
-!
-!ISOP/RPG3=0.0
-!
-!ISOP/URG4=0.0
-!
-!ISOP/UR8=0.0
-!
-!ISOP/UR17=0.0
-!
-!ISOP/UR7=0.0
-!
-!ISOP/RPR3=0.0
-!
-!ISOP/URG6=0.0
-!
-!ISOP/UR22=0.0
-!
-!ISOP/URG7=0.0
-!
-!ISOP/RPR4=0.0
-!
-!ISOP/RPR7=0.0
-!
-!ISOP/RPG7=0.0
-!
-!ISOP/URG8=0.0
-!
-!ISOP/UR19=0.0
-!
-!ISOP/URG9=0.0
-!
-!ISOP/AP7=0.0
-!
-!ISOP/URG10=0.0
-!
-!ISOP/RPR1=0.0
-!
-!ISOP/RPR5=0.0
-!
-!ISOP/RPR8=0.0
-!
-!ISOP/RP10=0.0
-!
-!ISOP/RP11=0.0
-!
-!ISOP/RP16=0.0
-!
-!ISOP/RPRL=0.0
-!
-!ISOP/APAN=0.0
-!
-!ISOP/PAN1=0.0
-!
-!ISOP/PAN2=0.0
-!
-!ISOP/PAN3=0.0
-!
-!ISOP/PAN4=0.0
-!
-!ISOP/PAN6=0.0
-!
-!ISOP/PAN7=0.0
-!
-!ISOP/PAN8=0.0
-!
-!ISOP/PN10=0.0
-!
-!ISOP/RO2T=0.0
-!
-!ISOP/RO21=0.0
-!
-!ISOP/RO25=0.0
-!
-!ISOP/WC_O3=0.0
-!
-!ISOP/WC_H2O2=0.0
-!
-!ISOP/WC_NO=0.0
-!
-!ISOP/WC_NO2=0.0
-!
-!ISOP/WC_NO3=0.0
-!
-!ISOP/WC_N2O5=0.0
-!
-!ISOP/WC_HONO=0.0
-!
-!ISOP/WC_HNO3=0.0
-!
-!ISOP/WC_HNO4=0.0
-!
-!ISOP/WC_NH3=0.0
-!
-!ISOP/WC_OH=0.0
-!
-!ISOP/WC_HO2=0.0
-!
-!ISOP/WC_CO2=0.0
-!
-!ISOP/WC_SO2=0.0
-!
-!ISOP/WC_H2SO4=0.0
-!
-!ISOP/WC_RO21=0.0
-!
-!ISOP/WC_RO25=0.0
-!
-!ISOP/WC_MEOH=0.0
-!
-!ISOP/WC_ETOH=0.0
-!
-!ISOP/WC_ALCH=0.0
-!
-!ISOP/WC_HCHO=0.0
-!
-!ISOP/WC_ALD2=0.0
-!
-!ISOP/WC_GLY=0.0
-!
-!ISOP/WC_MGLY=0.0
-!
-!ISOP/WC_KETL=0.0
-!
-!ISOP/WC_ORA1=0.0
-!
-!ISOP/WC_ORA2=0.0
-!
-!ISOP/WC_ACID=0.0
-!
-!ISOP/WC_RP16=0.0
-!
-!ISOP/WC_UR21=0.0
-!
-!ISOP/WC_UR28=0.0
-!
-!ISOP/WC_ACID2=0.0
-!
-!ISOP/WC_ASO3=0.0
-!
-!ISOP/WC_ASO4=0.0
-!
-!ISOP/WC_ASO5=0.0
-!
-!ISOP/WC_AHSO5=0.0
-!
-!ISOP/WC_AHMS=0.0
-!
-!ISOP/WR_O3=0.0
-!
-!ISOP/WR_H2O2=0.0
-!
-!ISOP/WR_NO=0.0
-!
-!ISOP/WR_NO2=0.0
-!
-!ISOP/WR_NO3=0.0
-!
-!ISOP/WR_N2O5=0.0
-!
-!ISOP/WR_HONO=0.0
-!
-!ISOP/WR_HNO3=0.0
-!
-!ISOP/WR_HNO4=0.0
-!
-!ISOP/WR_NH3=0.0
-!
-!ISOP/WR_OH=0.0
-!
-!ISOP/WR_HO2=0.0
-!
-!ISOP/WR_CO2=0.0
-!
-!ISOP/WR_SO2=0.0
-!
-!ISOP/WR_H2SO4=0.0
-!
-!ISOP/WR_RO21=0.0
-!
-!ISOP/WR_RO25=0.0
-!
-!ISOP/WR_MEOH=0.0
-!
-!ISOP/WR_ETOH=0.0
-!
-!ISOP/WR_ALCH=0.0
-!
-!ISOP/WR_HCHO=0.0
-!
-!ISOP/WR_ALD2=0.0
-!
-!ISOP/WR_GLY=0.0
-!
-!ISOP/WR_MGLY=0.0
-!
-!ISOP/WR_KETL=0.0
-!
-!ISOP/WR_ORA1=0.0
-!
-!ISOP/WR_ORA2=0.0
-!
-!ISOP/WR_ACID=0.0
-!
-!ISOP/WR_RP16=0.0
-!
-!ISOP/WR_UR21=0.0
-!
-!ISOP/WR_UR28=0.0
-!
-!ISOP/WR_ACID2=0.0
-!
-!ISOP/WR_ASO3=0.0
-!
-!ISOP/WR_ASO4=0.0
-!
-!ISOP/WR_ASO5=0.0
-!
-!ISOP/WR_AHSO5=0.0
-!
-!ISOP/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ6
-!
-SUBROUTINE SUBJ7
-!
-!Indices 36 a 40
-!
-!
-!BIOL/NO=0.0
-!
-!BIOL/NO2=0.0
-!
-!BIOL/O3=-K086*<BIOL>
- PJAC(:,36,3)=-TPK%K086(:)*PCONC(:,36)
-!
-!BIOL/HONO=0.0
-!
-!BIOL/HNO3=0.0
-!
-!BIOL/HNO4=0.0
-!
-!BIOL/N2O5=0.0
-!
-!BIOL/NO3=-K085*<BIOL>
- PJAC(:,36,8)=-TPK%K085(:)*PCONC(:,36)
-!
-!BIOL/NH3=0.0
-!
-!BIOL/HO2=0.0
-!
-!BIOL/CO=0.0
-!
-!BIOL/H2O2=0.0
-!
-!BIOL/SO2=0.0
-!
-!BIOL/H2SO4=0.0
-!
-!BIOL/OH=-K084*<BIOL>
- PJAC(:,36,15)=-TPK%K084(:)*PCONC(:,36)
-!
-!BIOL/ETHE=0.0
-!
-!BIOL/OLEL=0.0
-!
-!BIOL/OLEH=0.0
-!
-!BIOL/ALKL=0.0
-!
-!BIOL/ALKM=0.0
-!
-!BIOL/ALKH=0.0
-!
-!BIOL/AROH=0.0
-!
-!BIOL/AROL=0.0
-!
-!BIOL/AROO=0.0
-!
-!BIOL/ARAL=0.0
-!
-!BIOL/ARAC=0.0
-!
-!BIOL/PAH=0.0
-!
-!BIOL/HCHO=0.0
-!
-!BIOL/ALD2=0.0
-!
-!BIOL/KETL=0.0
-!
-!BIOL/KETH=0.0
-!
-!BIOL/MEOH=0.0
-!
-!BIOL/ETOH=0.0
-!
-!BIOL/ALCH=0.0
-!
-!BIOL/ISOP=0.0
-!
-!BIOL/BIOL=-K084*<OH>-K085*<NO3>-K086*<O3>-K087*<O>
- PJAC(:,36,36)=-TPK%K084(:)*PCONC(:,15)-TPK%K085(:)*PCONC(:,8)-TPK%K086(:)*PCON&
-&C(:,3)-TPK%K087(:)*TPK%O(:)
-!
-!BIOL/BIOH=0.0
-!
-!BIOL/MTBE=0.0
-!
-!BIOL/MVK=0.0
-!
-!BIOL/MCR=0.0
-!
-!BIOL/MGLY=0.0
-!
-!BIOL/GLY=0.0
-!
-!BIOL/ORA1=0.0
-!
-!BIOL/ORA2=0.0
-!
-!BIOL/ACID=0.0
-!
-!BIOL/UR28=0.0
-!
-!BIOL/UR21=0.0
-!
-!BIOL/URG2=0.0
-!
-!BIOL/UR26=0.0
-!
-!BIOL/RPG2=0.0
-!
-!BIOL/RP18=0.0
-!
-!BIOL/RPG3=0.0
-!
-!BIOL/URG4=0.0
-!
-!BIOL/UR8=0.0
-!
-!BIOL/UR17=0.0
-!
-!BIOL/UR7=0.0
-!
-!BIOL/RPR3=0.0
-!
-!BIOL/URG6=0.0
-!
-!BIOL/UR22=0.0
-!
-!BIOL/URG7=0.0
-!
-!BIOL/RPR4=0.0
-!
-!BIOL/RPR7=0.0
-!
-!BIOL/RPG7=0.0
-!
-!BIOL/URG8=0.0
-!
-!BIOL/UR19=0.0
-!
-!BIOL/URG9=0.0
-!
-!BIOL/AP7=0.0
-!
-!BIOL/URG10=0.0
-!
-!BIOL/RPR1=0.0
-!
-!BIOL/RPR5=0.0
-!
-!BIOL/RPR8=0.0
-!
-!BIOL/RP10=0.0
-!
-!BIOL/RP11=0.0
-!
-!BIOL/RP16=0.0
-!
-!BIOL/RPRL=0.0
-!
-!BIOL/APAN=0.0
-!
-!BIOL/PAN1=0.0
-!
-!BIOL/PAN2=0.0
-!
-!BIOL/PAN3=0.0
-!
-!BIOL/PAN4=0.0
-!
-!BIOL/PAN6=0.0
-!
-!BIOL/PAN7=0.0
-!
-!BIOL/PAN8=0.0
-!
-!BIOL/PN10=0.0
-!
-!BIOL/RO2T=0.0
-!
-!BIOL/RO21=0.0
-!
-!BIOL/RO25=0.0
-!
-!BIOL/WC_O3=0.0
-!
-!BIOL/WC_H2O2=0.0
-!
-!BIOL/WC_NO=0.0
-!
-!BIOL/WC_NO2=0.0
-!
-!BIOL/WC_NO3=0.0
-!
-!BIOL/WC_N2O5=0.0
-!
-!BIOL/WC_HONO=0.0
-!
-!BIOL/WC_HNO3=0.0
-!
-!BIOL/WC_HNO4=0.0
-!
-!BIOL/WC_NH3=0.0
-!
-!BIOL/WC_OH=0.0
-!
-!BIOL/WC_HO2=0.0
-!
-!BIOL/WC_CO2=0.0
-!
-!BIOL/WC_SO2=0.0
-!
-!BIOL/WC_H2SO4=0.0
-!
-!BIOL/WC_RO21=0.0
-!
-!BIOL/WC_RO25=0.0
-!
-!BIOL/WC_MEOH=0.0
-!
-!BIOL/WC_ETOH=0.0
-!
-!BIOL/WC_ALCH=0.0
-!
-!BIOL/WC_HCHO=0.0
-!
-!BIOL/WC_ALD2=0.0
-!
-!BIOL/WC_GLY=0.0
-!
-!BIOL/WC_MGLY=0.0
-!
-!BIOL/WC_KETL=0.0
-!
-!BIOL/WC_ORA1=0.0
-!
-!BIOL/WC_ORA2=0.0
-!
-!BIOL/WC_ACID=0.0
-!
-!BIOL/WC_RP16=0.0
-!
-!BIOL/WC_UR21=0.0
-!
-!BIOL/WC_UR28=0.0
-!
-!BIOL/WC_ACID2=0.0
-!
-!BIOL/WC_ASO3=0.0
-!
-!BIOL/WC_ASO4=0.0
-!
-!BIOL/WC_ASO5=0.0
-!
-!BIOL/WC_AHSO5=0.0
-!
-!BIOL/WC_AHMS=0.0
-!
-!BIOL/WR_O3=0.0
-!
-!BIOL/WR_H2O2=0.0
-!
-!BIOL/WR_NO=0.0
-!
-!BIOL/WR_NO2=0.0
-!
-!BIOL/WR_NO3=0.0
-!
-!BIOL/WR_N2O5=0.0
-!
-!BIOL/WR_HONO=0.0
-!
-!BIOL/WR_HNO3=0.0
-!
-!BIOL/WR_HNO4=0.0
-!
-!BIOL/WR_NH3=0.0
-!
-!BIOL/WR_OH=0.0
-!
-!BIOL/WR_HO2=0.0
-!
-!BIOL/WR_CO2=0.0
-!
-!BIOL/WR_SO2=0.0
-!
-!BIOL/WR_H2SO4=0.0
-!
-!BIOL/WR_RO21=0.0
-!
-!BIOL/WR_RO25=0.0
-!
-!BIOL/WR_MEOH=0.0
-!
-!BIOL/WR_ETOH=0.0
-!
-!BIOL/WR_ALCH=0.0
-!
-!BIOL/WR_HCHO=0.0
-!
-!BIOL/WR_ALD2=0.0
-!
-!BIOL/WR_GLY=0.0
-!
-!BIOL/WR_MGLY=0.0
-!
-!BIOL/WR_KETL=0.0
-!
-!BIOL/WR_ORA1=0.0
-!
-!BIOL/WR_ORA2=0.0
-!
-!BIOL/WR_ACID=0.0
-!
-!BIOL/WR_RP16=0.0
-!
-!BIOL/WR_UR21=0.0
-!
-!BIOL/WR_UR28=0.0
-!
-!BIOL/WR_ACID2=0.0
-!
-!BIOL/WR_ASO3=0.0
-!
-!BIOL/WR_ASO4=0.0
-!
-!BIOL/WR_ASO5=0.0
-!
-!BIOL/WR_AHSO5=0.0
-!
-!BIOL/WR_AHMS=0.0
-!
-!BIOH/NO=0.0
-!
-!BIOH/NO2=0.0
-!
-!BIOH/O3=-K090*<BIOH>
- PJAC(:,37,3)=-TPK%K090(:)*PCONC(:,37)
-!
-!BIOH/HONO=0.0
-!
-!BIOH/HNO3=0.0
-!
-!BIOH/HNO4=0.0
-!
-!BIOH/N2O5=0.0
-!
-!BIOH/NO3=-K089*<BIOH>
- PJAC(:,37,8)=-TPK%K089(:)*PCONC(:,37)
-!
-!BIOH/NH3=0.0
-!
-!BIOH/HO2=0.0
-!
-!BIOH/CO=0.0
-!
-!BIOH/H2O2=0.0
-!
-!BIOH/SO2=0.0
-!
-!BIOH/H2SO4=0.0
-!
-!BIOH/OH=-K088*<BIOH>
- PJAC(:,37,15)=-TPK%K088(:)*PCONC(:,37)
-!
-!BIOH/ETHE=0.0
-!
-!BIOH/OLEL=0.0
-!
-!BIOH/OLEH=0.0
-!
-!BIOH/ALKL=0.0
-!
-!BIOH/ALKM=0.0
-!
-!BIOH/ALKH=0.0
-!
-!BIOH/AROH=0.0
-!
-!BIOH/AROL=0.0
-!
-!BIOH/AROO=0.0
-!
-!BIOH/ARAL=0.0
-!
-!BIOH/ARAC=0.0
-!
-!BIOH/PAH=0.0
-!
-!BIOH/HCHO=0.0
-!
-!BIOH/ALD2=0.0
-!
-!BIOH/KETL=0.0
-!
-!BIOH/KETH=0.0
-!
-!BIOH/MEOH=0.0
-!
-!BIOH/ETOH=0.0
-!
-!BIOH/ALCH=0.0
-!
-!BIOH/ISOP=0.0
-!
-!BIOH/BIOL=0.0
-!
-!BIOH/BIOH=-K088*<OH>-K089*<NO3>-K090*<O3>-K091*<O>
- PJAC(:,37,37)=-TPK%K088(:)*PCONC(:,15)-TPK%K089(:)*PCONC(:,8)-TPK%K090(:)*PCON&
-&C(:,3)-TPK%K091(:)*TPK%O(:)
-!
-!BIOH/MTBE=0.0
-!
-!BIOH/MVK=0.0
-!
-!BIOH/MCR=0.0
-!
-!BIOH/MGLY=0.0
-!
-!BIOH/GLY=0.0
-!
-!BIOH/ORA1=0.0
-!
-!BIOH/ORA2=0.0
-!
-!BIOH/ACID=0.0
-!
-!BIOH/UR28=0.0
-!
-!BIOH/UR21=0.0
-!
-!BIOH/URG2=0.0
-!
-!BIOH/UR26=0.0
-!
-!BIOH/RPG2=0.0
-!
-!BIOH/RP18=0.0
-!
-!BIOH/RPG3=0.0
-!
-!BIOH/URG4=0.0
-!
-!BIOH/UR8=0.0
-!
-!BIOH/UR17=0.0
-!
-!BIOH/UR7=0.0
-!
-!BIOH/RPR3=0.0
-!
-!BIOH/URG6=0.0
-!
-!BIOH/UR22=0.0
-!
-!BIOH/URG7=0.0
-!
-!BIOH/RPR4=0.0
-!
-!BIOH/RPR7=0.0
-!
-!BIOH/RPG7=0.0
-!
-!BIOH/URG8=0.0
-!
-!BIOH/UR19=0.0
-!
-!BIOH/URG9=0.0
-!
-!BIOH/AP7=0.0
-!
-!BIOH/URG10=0.0
-!
-!BIOH/RPR1=0.0
-!
-!BIOH/RPR5=0.0
-!
-!BIOH/RPR8=0.0
-!
-!BIOH/RP10=0.0
-!
-!BIOH/RP11=0.0
-!
-!BIOH/RP16=0.0
-!
-!BIOH/RPRL=0.0
-!
-!BIOH/APAN=0.0
-!
-!BIOH/PAN1=0.0
-!
-!BIOH/PAN2=0.0
-!
-!BIOH/PAN3=0.0
-!
-!BIOH/PAN4=0.0
-!
-!BIOH/PAN6=0.0
-!
-!BIOH/PAN7=0.0
-!
-!BIOH/PAN8=0.0
-!
-!BIOH/PN10=0.0
-!
-!BIOH/RO2T=0.0
-!
-!BIOH/RO21=0.0
-!
-!BIOH/RO25=0.0
-!
-!BIOH/WC_O3=0.0
-!
-!BIOH/WC_H2O2=0.0
-!
-!BIOH/WC_NO=0.0
-!
-!BIOH/WC_NO2=0.0
-!
-!BIOH/WC_NO3=0.0
-!
-!BIOH/WC_N2O5=0.0
-!
-!BIOH/WC_HONO=0.0
-!
-!BIOH/WC_HNO3=0.0
-!
-!BIOH/WC_HNO4=0.0
-!
-!BIOH/WC_NH3=0.0
-!
-!BIOH/WC_OH=0.0
-!
-!BIOH/WC_HO2=0.0
-!
-!BIOH/WC_CO2=0.0
-!
-!BIOH/WC_SO2=0.0
-!
-!BIOH/WC_H2SO4=0.0
-!
-!BIOH/WC_RO21=0.0
-!
-!BIOH/WC_RO25=0.0
-!
-!BIOH/WC_MEOH=0.0
-!
-!BIOH/WC_ETOH=0.0
-!
-!BIOH/WC_ALCH=0.0
-!
-!BIOH/WC_HCHO=0.0
-!
-!BIOH/WC_ALD2=0.0
-!
-!BIOH/WC_GLY=0.0
-!
-!BIOH/WC_MGLY=0.0
-!
-!BIOH/WC_KETL=0.0
-!
-!BIOH/WC_ORA1=0.0
-!
-!BIOH/WC_ORA2=0.0
-!
-!BIOH/WC_ACID=0.0
-!
-!BIOH/WC_RP16=0.0
-!
-!BIOH/WC_UR21=0.0
-!
-!BIOH/WC_UR28=0.0
-!
-!BIOH/WC_ACID2=0.0
-!
-!BIOH/WC_ASO3=0.0
-!
-!BIOH/WC_ASO4=0.0
-!
-!BIOH/WC_ASO5=0.0
-!
-!BIOH/WC_AHSO5=0.0
-!
-!BIOH/WC_AHMS=0.0
-!
-!BIOH/WR_O3=0.0
-!
-!BIOH/WR_H2O2=0.0
-!
-!BIOH/WR_NO=0.0
-!
-!BIOH/WR_NO2=0.0
-!
-!BIOH/WR_NO3=0.0
-!
-!BIOH/WR_N2O5=0.0
-!
-!BIOH/WR_HONO=0.0
-!
-!BIOH/WR_HNO3=0.0
-!
-!BIOH/WR_HNO4=0.0
-!
-!BIOH/WR_NH3=0.0
-!
-!BIOH/WR_OH=0.0
-!
-!BIOH/WR_HO2=0.0
-!
-!BIOH/WR_CO2=0.0
-!
-!BIOH/WR_SO2=0.0
-!
-!BIOH/WR_H2SO4=0.0
-!
-!BIOH/WR_RO21=0.0
-!
-!BIOH/WR_RO25=0.0
-!
-!BIOH/WR_MEOH=0.0
-!
-!BIOH/WR_ETOH=0.0
-!
-!BIOH/WR_ALCH=0.0
-!
-!BIOH/WR_HCHO=0.0
-!
-!BIOH/WR_ALD2=0.0
-!
-!BIOH/WR_GLY=0.0
-!
-!BIOH/WR_MGLY=0.0
-!
-!BIOH/WR_KETL=0.0
-!
-!BIOH/WR_ORA1=0.0
-!
-!BIOH/WR_ORA2=0.0
-!
-!BIOH/WR_ACID=0.0
-!
-!BIOH/WR_RP16=0.0
-!
-!BIOH/WR_UR21=0.0
-!
-!BIOH/WR_UR28=0.0
-!
-!BIOH/WR_ACID2=0.0
-!
-!BIOH/WR_ASO3=0.0
-!
-!BIOH/WR_ASO4=0.0
-!
-!BIOH/WR_ASO5=0.0
-!
-!BIOH/WR_AHSO5=0.0
-!
-!BIOH/WR_AHMS=0.0
-!
-!MTBE/NO=0.0
-!
-!MTBE/NO2=0.0
-!
-!MTBE/O3=0.0
-!
-!MTBE/HONO=0.0
-!
-!MTBE/HNO3=0.0
-!
-!MTBE/HNO4=0.0
-!
-!MTBE/N2O5=0.0
-!
-!MTBE/NO3=0.0
-!
-!MTBE/NH3=0.0
-!
-!MTBE/HO2=0.0
-!
-!MTBE/CO=0.0
-!
-!MTBE/H2O2=0.0
-!
-!MTBE/SO2=0.0
-!
-!MTBE/H2SO4=0.0
-!
-!MTBE/OH=-K068*<MTBE>
- PJAC(:,38,15)=-TPK%K068(:)*PCONC(:,38)
-!
-!MTBE/ETHE=0.0
-!
-!MTBE/OLEL=0.0
-!
-!MTBE/OLEH=0.0
-!
-!MTBE/ALKL=0.0
-!
-!MTBE/ALKM=0.0
-!
-!MTBE/ALKH=0.0
-!
-!MTBE/AROH=0.0
-!
-!MTBE/AROL=0.0
-!
-!MTBE/AROO=0.0
-!
-!MTBE/ARAL=0.0
-!
-!MTBE/ARAC=0.0
-!
-!MTBE/PAH=0.0
-!
-!MTBE/HCHO=0.0
-!
-!MTBE/ALD2=0.0
-!
-!MTBE/KETL=0.0
-!
-!MTBE/KETH=0.0
-!
-!MTBE/MEOH=0.0
-!
-!MTBE/ETOH=0.0
-!
-!MTBE/ALCH=0.0
-!
-!MTBE/ISOP=0.0
-!
-!MTBE/BIOL=0.0
-!
-!MTBE/BIOH=0.0
-!
-!MTBE/MTBE=-K068*<OH>
- PJAC(:,38,38)=-TPK%K068(:)*PCONC(:,15)
-!
-!MTBE/MVK=0.0
-!
-!MTBE/MCR=0.0
-!
-!MTBE/MGLY=0.0
-!
-!MTBE/GLY=0.0
-!
-!MTBE/ORA1=0.0
-!
-!MTBE/ORA2=0.0
-!
-!MTBE/ACID=0.0
-!
-!MTBE/UR28=0.0
-!
-!MTBE/UR21=0.0
-!
-!MTBE/URG2=0.0
-!
-!MTBE/UR26=0.0
-!
-!MTBE/RPG2=0.0
-!
-!MTBE/RP18=0.0
-!
-!MTBE/RPG3=0.0
-!
-!MTBE/URG4=0.0
-!
-!MTBE/UR8=0.0
-!
-!MTBE/UR17=0.0
-!
-!MTBE/UR7=0.0
-!
-!MTBE/RPR3=0.0
-!
-!MTBE/URG6=0.0
-!
-!MTBE/UR22=0.0
-!
-!MTBE/URG7=0.0
-!
-!MTBE/RPR4=0.0
-!
-!MTBE/RPR7=0.0
-!
-!MTBE/RPG7=0.0
-!
-!MTBE/URG8=0.0
-!
-!MTBE/UR19=0.0
-!
-!MTBE/URG9=0.0
-!
-!MTBE/AP7=0.0
-!
-!MTBE/URG10=0.0
-!
-!MTBE/RPR1=0.0
-!
-!MTBE/RPR5=0.0
-!
-!MTBE/RPR8=0.0
-!
-!MTBE/RP10=0.0
-!
-!MTBE/RP11=0.0
-!
-!MTBE/RP16=0.0
-!
-!MTBE/RPRL=0.0
-!
-!MTBE/APAN=0.0
-!
-!MTBE/PAN1=0.0
-!
-!MTBE/PAN2=0.0
-!
-!MTBE/PAN3=0.0
-!
-!MTBE/PAN4=0.0
-!
-!MTBE/PAN6=0.0
-!
-!MTBE/PAN7=0.0
-!
-!MTBE/PAN8=0.0
-!
-!MTBE/PN10=0.0
-!
-!MTBE/RO2T=0.0
-!
-!MTBE/RO21=0.0
-!
-!MTBE/RO25=0.0
-!
-!MTBE/WC_O3=0.0
-!
-!MTBE/WC_H2O2=0.0
-!
-!MTBE/WC_NO=0.0
-!
-!MTBE/WC_NO2=0.0
-!
-!MTBE/WC_NO3=0.0
-!
-!MTBE/WC_N2O5=0.0
-!
-!MTBE/WC_HONO=0.0
-!
-!MTBE/WC_HNO3=0.0
-!
-!MTBE/WC_HNO4=0.0
-!
-!MTBE/WC_NH3=0.0
-!
-!MTBE/WC_OH=0.0
-!
-!MTBE/WC_HO2=0.0
-!
-!MTBE/WC_CO2=0.0
-!
-!MTBE/WC_SO2=0.0
-!
-!MTBE/WC_H2SO4=0.0
-!
-!MTBE/WC_RO21=0.0
-!
-!MTBE/WC_RO25=0.0
-!
-!MTBE/WC_MEOH=0.0
-!
-!MTBE/WC_ETOH=0.0
-!
-!MTBE/WC_ALCH=0.0
-!
-!MTBE/WC_HCHO=0.0
-!
-!MTBE/WC_ALD2=0.0
-!
-!MTBE/WC_GLY=0.0
-!
-!MTBE/WC_MGLY=0.0
-!
-!MTBE/WC_KETL=0.0
-!
-!MTBE/WC_ORA1=0.0
-!
-!MTBE/WC_ORA2=0.0
-!
-!MTBE/WC_ACID=0.0
-!
-!MTBE/WC_RP16=0.0
-!
-!MTBE/WC_UR21=0.0
-!
-!MTBE/WC_UR28=0.0
-!
-!MTBE/WC_ACID2=0.0
-!
-!MTBE/WC_ASO3=0.0
-!
-!MTBE/WC_ASO4=0.0
-!
-!MTBE/WC_ASO5=0.0
-!
-!MTBE/WC_AHSO5=0.0
-!
-!MTBE/WC_AHMS=0.0
-!
-!MTBE/WR_O3=0.0
-!
-!MTBE/WR_H2O2=0.0
-!
-!MTBE/WR_NO=0.0
-!
-!MTBE/WR_NO2=0.0
-!
-!MTBE/WR_NO3=0.0
-!
-!MTBE/WR_N2O5=0.0
-!
-!MTBE/WR_HONO=0.0
-!
-!MTBE/WR_HNO3=0.0
-!
-!MTBE/WR_HNO4=0.0
-!
-!MTBE/WR_NH3=0.0
-!
-!MTBE/WR_OH=0.0
-!
-!MTBE/WR_HO2=0.0
-!
-!MTBE/WR_CO2=0.0
-!
-!MTBE/WR_SO2=0.0
-!
-!MTBE/WR_H2SO4=0.0
-!
-!MTBE/WR_RO21=0.0
-!
-!MTBE/WR_RO25=0.0
-!
-!MTBE/WR_MEOH=0.0
-!
-!MTBE/WR_ETOH=0.0
-!
-!MTBE/WR_ALCH=0.0
-!
-!MTBE/WR_HCHO=0.0
-!
-!MTBE/WR_ALD2=0.0
-!
-!MTBE/WR_GLY=0.0
-!
-!MTBE/WR_MGLY=0.0
-!
-!MTBE/WR_KETL=0.0
-!
-!MTBE/WR_ORA1=0.0
-!
-!MTBE/WR_ORA2=0.0
-!
-!MTBE/WR_ACID=0.0
-!
-!MTBE/WR_RP16=0.0
-!
-!MTBE/WR_UR21=0.0
-!
-!MTBE/WR_UR28=0.0
-!
-!MTBE/WR_ACID2=0.0
-!
-!MTBE/WR_ASO3=0.0
-!
-!MTBE/WR_ASO4=0.0
-!
-!MTBE/WR_ASO5=0.0
-!
-!MTBE/WR_AHSO5=0.0
-!
-!MTBE/WR_AHMS=0.0
-!
-!MVK/NO=+TPK%CF6*K150*<RO29>+K156*<RO211>
- PJAC(:,39,1)=+TPK%CF6*TPK%K150(:)*TPK%RO29(:)+TPK%K156(:)*TPK%RO211(:)
-!
-!MVK/NO2=0.0
-!
-!MVK/O3=+0.389*K066*<ISOP>-K281*<MVK>
- PJAC(:,39,3)=+0.389*TPK%K066(:)*PCONC(:,35)-TPK%K281(:)*PCONC(:,39)
-!
-!MVK/HONO=0.0
-!
-!MVK/HNO3=0.0
-!
-!MVK/HNO4=0.0
-!
-!MVK/N2O5=0.0
-!
-!MVK/NO3=0.0
-!
-!MVK/NH3=0.0
-!
-!MVK/HO2=+K152*<RO29>+K158*<RO211>
- PJAC(:,39,10)=+TPK%K152(:)*TPK%RO29(:)+TPK%K158(:)*TPK%RO211(:)
-!
-!MVK/CO=0.0
-!
-!MVK/H2O2=0.0
-!
-!MVK/SO2=0.0
-!
-!MVK/H2SO4=0.0
-!
-!MVK/OH=-K272*<MVK>
- PJAC(:,39,15)=-TPK%K272(:)*PCONC(:,39)
-!
-!MVK/ETHE=0.0
-!
-!MVK/OLEL=0.0
-!
-!MVK/OLEH=0.0
-!
-!MVK/ALKL=0.0
-!
-!MVK/ALKM=0.0
-!
-!MVK/ALKH=0.0
-!
-!MVK/AROH=0.0
-!
-!MVK/AROL=0.0
-!
-!MVK/AROO=0.0
-!
-!MVK/ARAL=0.0
-!
-!MVK/ARAC=0.0
-!
-!MVK/PAH=0.0
-!
-!MVK/HCHO=0.0
-!
-!MVK/ALD2=0.0
-!
-!MVK/KETL=0.0
-!
-!MVK/KETH=0.0
-!
-!MVK/MEOH=0.0
-!
-!MVK/ETOH=0.0
-!
-!MVK/ALCH=0.0
-!
-!MVK/ISOP=+0.389*K066*<O3>
- PJAC(:,39,35)=+0.389*TPK%K066(:)*PCONC(:,3)
-!
-!MVK/BIOL=0.0
-!
-!MVK/BIOH=0.0
-!
-!MVK/MTBE=0.0
-!
-!MVK/MVK=-K272*<OH>-K281*<O3>-K283*<O>
- PJAC(:,39,39)=-TPK%K272(:)*PCONC(:,15)-TPK%K281(:)*PCONC(:,3)-TPK%K283(:)*TPK%&
-&O(:)
-!
-!MVK/MCR=0.0
-!
-!MVK/MGLY=0.0
-!
-!MVK/GLY=0.0
-!
-!MVK/ORA1=0.0
-!
-!MVK/ORA2=0.0
-!
-!MVK/ACID=0.0
-!
-!MVK/UR28=0.0
-!
-!MVK/UR21=0.0
-!
-!MVK/URG2=0.0
-!
-!MVK/UR26=0.0
-!
-!MVK/RPG2=0.0
-!
-!MVK/RP18=0.0
-!
-!MVK/RPG3=0.0
-!
-!MVK/URG4=0.0
-!
-!MVK/UR8=0.0
-!
-!MVK/UR17=0.0
-!
-!MVK/UR7=0.0
-!
-!MVK/RPR3=0.0
-!
-!MVK/URG6=0.0
-!
-!MVK/UR22=0.0
-!
-!MVK/URG7=0.0
-!
-!MVK/RPR4=0.0
-!
-!MVK/RPR7=0.0
-!
-!MVK/RPG7=0.0
-!
-!MVK/URG8=0.0
-!
-!MVK/UR19=0.0
-!
-!MVK/URG9=0.0
-!
-!MVK/AP7=0.0
-!
-!MVK/URG10=0.0
-!
-!MVK/RPR1=0.0
-!
-!MVK/RPR5=0.0
-!
-!MVK/RPR8=0.0
-!
-!MVK/RP10=0.0
-!
-!MVK/RP11=0.0
-!
-!MVK/RP16=0.0
-!
-!MVK/RPRL=0.0
-!
-!MVK/APAN=0.0
-!
-!MVK/PAN1=0.0
-!
-!MVK/PAN2=0.0
-!
-!MVK/PAN3=0.0
-!
-!MVK/PAN4=0.0
-!
-!MVK/PAN6=0.0
-!
-!MVK/PAN7=0.0
-!
-!MVK/PAN8=0.0
-!
-!MVK/PN10=0.0
-!
-!MVK/RO2T=+K151*<RO29>+K157*<RO211>
- PJAC(:,39,85)=+TPK%K151(:)*TPK%RO29(:)+TPK%K157(:)*TPK%RO211(:)
-!
-!MVK/RO21=0.0
-!
-!MVK/RO25=0.0
-!
-!MVK/WC_O3=0.0
-!
-!MVK/WC_H2O2=0.0
-!
-!MVK/WC_NO=0.0
-!
-!MVK/WC_NO2=0.0
-!
-!MVK/WC_NO3=0.0
-!
-!MVK/WC_N2O5=0.0
-!
-!MVK/WC_HONO=0.0
-!
-!MVK/WC_HNO3=0.0
-!
-!MVK/WC_HNO4=0.0
-!
-!MVK/WC_NH3=0.0
-!
-!MVK/WC_OH=0.0
-!
-!MVK/WC_HO2=0.0
-!
-!MVK/WC_CO2=0.0
-!
-!MVK/WC_SO2=0.0
-!
-!MVK/WC_H2SO4=0.0
-!
-!MVK/WC_RO21=0.0
-!
-!MVK/WC_RO25=0.0
-!
-!MVK/WC_MEOH=0.0
-!
-!MVK/WC_ETOH=0.0
-!
-!MVK/WC_ALCH=0.0
-!
-!MVK/WC_HCHO=0.0
-!
-!MVK/WC_ALD2=0.0
-!
-!MVK/WC_GLY=0.0
-!
-!MVK/WC_MGLY=0.0
-!
-!MVK/WC_KETL=0.0
-!
-!MVK/WC_ORA1=0.0
-!
-!MVK/WC_ORA2=0.0
-!
-!MVK/WC_ACID=0.0
-!
-!MVK/WC_RP16=0.0
-!
-!MVK/WC_UR21=0.0
-!
-!MVK/WC_UR28=0.0
-!
-!MVK/WC_ACID2=0.0
-!
-!MVK/WC_ASO3=0.0
-!
-!MVK/WC_ASO4=0.0
-!
-!MVK/WC_ASO5=0.0
-!
-!MVK/WC_AHSO5=0.0
-!
-!MVK/WC_AHMS=0.0
-!
-!MVK/WR_O3=0.0
-!
-!MVK/WR_H2O2=0.0
-!
-!MVK/WR_NO=0.0
-!
-!MVK/WR_NO2=0.0
-!
-!MVK/WR_NO3=0.0
-!
-!MVK/WR_N2O5=0.0
-!
-!MVK/WR_HONO=0.0
-!
-!MVK/WR_HNO3=0.0
-!
-!MVK/WR_HNO4=0.0
-!
-!MVK/WR_NH3=0.0
-!
-!MVK/WR_OH=0.0
-!
-!MVK/WR_HO2=0.0
-!
-!MVK/WR_CO2=0.0
-!
-!MVK/WR_SO2=0.0
-!
-!MVK/WR_H2SO4=0.0
-!
-!MVK/WR_RO21=0.0
-!
-!MVK/WR_RO25=0.0
-!
-!MVK/WR_MEOH=0.0
-!
-!MVK/WR_ETOH=0.0
-!
-!MVK/WR_ALCH=0.0
-!
-!MVK/WR_HCHO=0.0
-!
-!MVK/WR_ALD2=0.0
-!
-!MVK/WR_GLY=0.0
-!
-!MVK/WR_MGLY=0.0
-!
-!MVK/WR_KETL=0.0
-!
-!MVK/WR_ORA1=0.0
-!
-!MVK/WR_ORA2=0.0
-!
-!MVK/WR_ACID=0.0
-!
-!MVK/WR_RP16=0.0
-!
-!MVK/WR_UR21=0.0
-!
-!MVK/WR_UR28=0.0
-!
-!MVK/WR_ACID2=0.0
-!
-!MVK/WR_ASO3=0.0
-!
-!MVK/WR_ASO4=0.0
-!
-!MVK/WR_ASO5=0.0
-!
-!MVK/WR_AHSO5=0.0
-!
-!MVK/WR_AHMS=0.0
-!
-!MCR/NO=+K153*<RO210>+K159*<RO212>
- PJAC(:,40,1)=+TPK%K153(:)*TPK%RO210(:)+TPK%K159(:)*TPK%RO212(:)
-!
-!MCR/NO2=0.0
-!
-!MCR/O3=+0.17*K066*<ISOP>-K282*<MCR>
- PJAC(:,40,3)=+0.17*TPK%K066(:)*PCONC(:,35)-TPK%K282(:)*PCONC(:,40)
-!
-!MCR/HONO=0.0
-!
-!MCR/HNO3=0.0
-!
-!MCR/HNO4=0.0
-!
-!MCR/N2O5=0.0
-!
-!MCR/NO3=-K275*<MCR>
- PJAC(:,40,8)=-TPK%K275(:)*PCONC(:,40)
-!
-!MCR/NH3=0.0
-!
-!MCR/HO2=+K155*<RO210>+K161*<RO212>
- PJAC(:,40,10)=+TPK%K155(:)*TPK%RO210(:)+TPK%K161(:)*TPK%RO212(:)
-!
-!MCR/CO=0.0
-!
-!MCR/H2O2=0.0
-!
-!MCR/SO2=0.0
-!
-!MCR/H2SO4=0.0
-!
-!MCR/OH=-K273*<MCR>
- PJAC(:,40,15)=-TPK%K273(:)*PCONC(:,40)
-!
-!MCR/ETHE=0.0
-!
-!MCR/OLEL=0.0
-!
-!MCR/OLEH=0.0
-!
-!MCR/ALKL=0.0
-!
-!MCR/ALKM=0.0
-!
-!MCR/ALKH=0.0
-!
-!MCR/AROH=0.0
-!
-!MCR/AROL=0.0
-!
-!MCR/AROO=0.0
-!
-!MCR/ARAL=0.0
-!
-!MCR/ARAC=0.0
-!
-!MCR/PAH=0.0
-!
-!MCR/HCHO=0.0
-!
-!MCR/ALD2=0.0
-!
-!MCR/KETL=0.0
-!
-!MCR/KETH=0.0
-!
-!MCR/MEOH=0.0
-!
-!MCR/ETOH=0.0
-!
-!MCR/ALCH=0.0
-!
-!MCR/ISOP=+0.17*K066*<O3>
- PJAC(:,40,35)=+0.17*TPK%K066(:)*PCONC(:,3)
-!
-!MCR/BIOL=0.0
-!
-!MCR/BIOH=0.0
-!
-!MCR/MTBE=0.0
-!
-!MCR/MVK=0.0
-!
-!MCR/MCR=-K273*<OH>-K275*<NO3>-K282*<O3>-K284*<O>
- PJAC(:,40,40)=-TPK%K273(:)*PCONC(:,15)-TPK%K275(:)*PCONC(:,8)-TPK%K282(:)*PCON&
-&C(:,3)-TPK%K284(:)*TPK%O(:)
-!
-!MCR/MGLY=0.0
-!
-!MCR/GLY=0.0
-!
-!MCR/ORA1=0.0
-!
-!MCR/ORA2=0.0
-!
-!MCR/ACID=0.0
-!
-!MCR/UR28=0.0
-!
-!MCR/UR21=0.0
-!
-!MCR/URG2=0.0
-!
-!MCR/UR26=0.0
-!
-!MCR/RPG2=0.0
-!
-!MCR/RP18=0.0
-!
-!MCR/RPG3=0.0
-!
-!MCR/URG4=0.0
-!
-!MCR/UR8=0.0
-!
-!MCR/UR17=0.0
-!
-!MCR/UR7=0.0
-!
-!MCR/RPR3=0.0
-!
-!MCR/URG6=0.0
-!
-!MCR/UR22=0.0
-!
-!MCR/URG7=0.0
-!
-!MCR/RPR4=0.0
-!
-!MCR/RPR7=0.0
-!
-!MCR/RPG7=0.0
-!
-!MCR/URG8=0.0
-!
-!MCR/UR19=0.0
-!
-!MCR/URG9=0.0
-!
-!MCR/AP7=0.0
-!
-!MCR/URG10=0.0
-!
-!MCR/RPR1=0.0
-!
-!MCR/RPR5=0.0
-!
-!MCR/RPR8=0.0
-!
-!MCR/RP10=0.0
-!
-!MCR/RP11=0.0
-!
-!MCR/RP16=0.0
-!
-!MCR/RPRL=0.0
-!
-!MCR/APAN=0.0
-!
-!MCR/PAN1=0.0
-!
-!MCR/PAN2=0.0
-!
-!MCR/PAN3=0.0
-!
-!MCR/PAN4=0.0
-!
-!MCR/PAN6=0.0
-!
-!MCR/PAN7=0.0
-!
-!MCR/PAN8=0.0
-!
-!MCR/PN10=0.0
-!
-!MCR/RO2T=+K154*<RO210>+K160*<RO212>
- PJAC(:,40,85)=+TPK%K154(:)*TPK%RO210(:)+TPK%K160(:)*TPK%RO212(:)
-!
-!MCR/RO21=0.0
-!
-!MCR/RO25=0.0
-!
-!MCR/WC_O3=0.0
-!
-!MCR/WC_H2O2=0.0
-!
-!MCR/WC_NO=0.0
-!
-!MCR/WC_NO2=0.0
-!
-!MCR/WC_NO3=0.0
-!
-!MCR/WC_N2O5=0.0
-!
-!MCR/WC_HONO=0.0
-!
-!MCR/WC_HNO3=0.0
-!
-!MCR/WC_HNO4=0.0
-!
-!MCR/WC_NH3=0.0
-!
-!MCR/WC_OH=0.0
-!
-!MCR/WC_HO2=0.0
-!
-!MCR/WC_CO2=0.0
-!
-!MCR/WC_SO2=0.0
-!
-!MCR/WC_H2SO4=0.0
-!
-!MCR/WC_RO21=0.0
-!
-!MCR/WC_RO25=0.0
-!
-!MCR/WC_MEOH=0.0
-!
-!MCR/WC_ETOH=0.0
-!
-!MCR/WC_ALCH=0.0
-!
-!MCR/WC_HCHO=0.0
-!
-!MCR/WC_ALD2=0.0
-!
-!MCR/WC_GLY=0.0
-!
-!MCR/WC_MGLY=0.0
-!
-!MCR/WC_KETL=0.0
-!
-!MCR/WC_ORA1=0.0
-!
-!MCR/WC_ORA2=0.0
-!
-!MCR/WC_ACID=0.0
-!
-!MCR/WC_RP16=0.0
-!
-!MCR/WC_UR21=0.0
-!
-!MCR/WC_UR28=0.0
-!
-!MCR/WC_ACID2=0.0
-!
-!MCR/WC_ASO3=0.0
-!
-!MCR/WC_ASO4=0.0
-!
-!MCR/WC_ASO5=0.0
-!
-!MCR/WC_AHSO5=0.0
-!
-!MCR/WC_AHMS=0.0
-!
-!MCR/WR_O3=0.0
-!
-!MCR/WR_H2O2=0.0
-!
-!MCR/WR_NO=0.0
-!
-!MCR/WR_NO2=0.0
-!
-!MCR/WR_NO3=0.0
-!
-!MCR/WR_N2O5=0.0
-!
-!MCR/WR_HONO=0.0
-!
-!MCR/WR_HNO3=0.0
-!
-!MCR/WR_HNO4=0.0
-!
-!MCR/WR_NH3=0.0
-!
-!MCR/WR_OH=0.0
-!
-!MCR/WR_HO2=0.0
-!
-!MCR/WR_CO2=0.0
-!
-!MCR/WR_SO2=0.0
-!
-!MCR/WR_H2SO4=0.0
-!
-!MCR/WR_RO21=0.0
-!
-!MCR/WR_RO25=0.0
-!
-!MCR/WR_MEOH=0.0
-!
-!MCR/WR_ETOH=0.0
-!
-!MCR/WR_ALCH=0.0
-!
-!MCR/WR_HCHO=0.0
-!
-!MCR/WR_ALD2=0.0
-!
-!MCR/WR_GLY=0.0
-!
-!MCR/WR_MGLY=0.0
-!
-!MCR/WR_KETL=0.0
-!
-!MCR/WR_ORA1=0.0
-!
-!MCR/WR_ORA2=0.0
-!
-!MCR/WR_ACID=0.0
-!
-!MCR/WR_RP16=0.0
-!
-!MCR/WR_UR21=0.0
-!
-!MCR/WR_UR28=0.0
-!
-!MCR/WR_ACID2=0.0
-!
-!MCR/WR_ASO3=0.0
-!
-!MCR/WR_ASO4=0.0
-!
-!MCR/WR_ASO5=0.0
-!
-!MCR/WR_AHSO5=0.0
-!
-!MCR/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ7
-!
-SUBROUTINE SUBJ8
-!
-!Indices 41 a 45
-!
-!
-!MGLY/NO=+K234*<RO242>+K241*<RO243>+K248*<RO244>+K255*<RO245>+K262*<RO246>+K269
-!*<RO247>+K285*<RO249>+K291*<RO251>+K294*<RO252>
- PJAC(:,41,1)=+TPK%K234(:)*TPK%RO242(:)+TPK%K241(:)*TPK%RO243(:)+TPK%K248(:)*TP&
-&K%RO244(:)+TPK%K255(:)*TPK%RO245(:)+TPK%K262(:)*TPK%RO246(:)+TPK%K269(:)*TPK%R&
-&O247(:)+TPK%K285(:)*TPK%RO249(:)+TPK%K291(:)*TPK%RO251(:)+TPK%K294(:)*TPK%RO25&
-&2(:)
-!
-!MGLY/NO2=0.0
-!
-!MGLY/O3=+0.5*K281*<MVK>+0.59*K282*<MCR>
- PJAC(:,41,3)=+0.5*TPK%K281(:)*PCONC(:,39)+0.59*TPK%K282(:)*PCONC(:,40)
-!
-!MGLY/HONO=0.0
-!
-!MGLY/HNO3=0.0
-!
-!MGLY/HNO4=0.0
-!
-!MGLY/N2O5=0.0
-!
-!MGLY/NO3=-K278*<MGLY>
- PJAC(:,41,8)=-TPK%K278(:)*PCONC(:,41)
-!
-!MGLY/NH3=0.0
-!
-!MGLY/HO2=+K236*<RO242>+K243*<RO243>+K250*<RO244>+K257*<RO245>+K264*<RO246>+K27
-!1*<RO247>+K287*<RO249>+K292*<RO251>+K295*<RO252>
- PJAC(:,41,10)=+TPK%K236(:)*TPK%RO242(:)+TPK%K243(:)*TPK%RO243(:)+TPK%K250(:)*T&
-&PK%RO244(:)+TPK%K257(:)*TPK%RO245(:)+TPK%K264(:)*TPK%RO246(:)+TPK%K271(:)*TPK%&
-&RO247(:)+TPK%K287(:)*TPK%RO249(:)+TPK%K292(:)*TPK%RO251(:)+TPK%K295(:)*TPK%RO2&
-&52(:)
-!
-!MGLY/CO=0.0
-!
-!MGLY/H2O2=0.0
-!
-!MGLY/SO2=0.0
-!
-!MGLY/H2SO4=0.0
-!
-!MGLY/OH=-K274*<MGLY>
- PJAC(:,41,15)=-TPK%K274(:)*PCONC(:,41)
-!
-!MGLY/ETHE=0.0
-!
-!MGLY/OLEL=0.0
-!
-!MGLY/OLEH=0.0
-!
-!MGLY/ALKL=0.0
-!
-!MGLY/ALKM=0.0
-!
-!MGLY/ALKH=0.0
-!
-!MGLY/AROH=0.0
-!
-!MGLY/AROL=0.0
-!
-!MGLY/AROO=0.0
-!
-!MGLY/ARAL=0.0
-!
-!MGLY/ARAC=0.0
-!
-!MGLY/PAH=0.0
-!
-!MGLY/HCHO=0.0
-!
-!MGLY/ALD2=0.0
-!
-!MGLY/KETL=0.0
-!
-!MGLY/KETH=0.0
-!
-!MGLY/MEOH=0.0
-!
-!MGLY/ETOH=0.0
-!
-!MGLY/ALCH=0.0
-!
-!MGLY/ISOP=0.0
-!
-!MGLY/BIOL=0.0
-!
-!MGLY/BIOH=0.0
-!
-!MGLY/MTBE=0.0
-!
-!MGLY/MVK=+0.5*K281*<O3>
- PJAC(:,41,39)=+0.5*TPK%K281(:)*PCONC(:,3)
-!
-!MGLY/MCR=+0.59*K282*<O3>
- PJAC(:,41,40)=+0.59*TPK%K282(:)*PCONC(:,3)
-!
-!MGLY/MGLY=-K274*<OH>-K276-K278*<NO3>-KTC25-KTR25
- PJAC(:,41,41)=-TPK%K274(:)*PCONC(:,15)-TPK%K276(:)-TPK%K278(:)*PCONC(:,8)-TPK%&
-&KTC25(:)-TPK%KTR25(:)
-!
-!MGLY/GLY=0.0
-!
-!MGLY/ORA1=0.0
-!
-!MGLY/ORA2=0.0
-!
-!MGLY/ACID=0.0
-!
-!MGLY/UR28=0.0
-!
-!MGLY/UR21=0.0
-!
-!MGLY/URG2=0.0
-!
-!MGLY/UR26=0.0
-!
-!MGLY/RPG2=0.0
-!
-!MGLY/RP18=0.0
-!
-!MGLY/RPG3=0.0
-!
-!MGLY/URG4=0.0
-!
-!MGLY/UR8=0.0
-!
-!MGLY/UR17=0.0
-!
-!MGLY/UR7=0.0
-!
-!MGLY/RPR3=0.0
-!
-!MGLY/URG6=0.0
-!
-!MGLY/UR22=0.0
-!
-!MGLY/URG7=0.0
-!
-!MGLY/RPR4=0.0
-!
-!MGLY/RPR7=0.0
-!
-!MGLY/RPG7=0.0
-!
-!MGLY/URG8=0.0
-!
-!MGLY/UR19=0.0
-!
-!MGLY/URG9=0.0
-!
-!MGLY/AP7=0.0
-!
-!MGLY/URG10=0.0
-!
-!MGLY/RPR1=0.0
-!
-!MGLY/RPR5=0.0
-!
-!MGLY/RPR8=0.0
-!
-!MGLY/RP10=0.0
-!
-!MGLY/RP11=0.0
-!
-!MGLY/RP16=0.0
-!
-!MGLY/RPRL=0.0
-!
-!MGLY/APAN=0.0
-!
-!MGLY/PAN1=0.0
-!
-!MGLY/PAN2=0.0
-!
-!MGLY/PAN3=0.0
-!
-!MGLY/PAN4=0.0
-!
-!MGLY/PAN6=0.0
-!
-!MGLY/PAN7=0.0
-!
-!MGLY/PAN8=0.0
-!
-!MGLY/PN10=0.0
-!
-!MGLY/RO2T=+K235*<RO242>+K242*<RO243>+K249*<RO244>+K256*<RO245>+K263*<RO246>+K2
-!70*<RO247>+K286*<RO249>+K293*<RO251>+K296*<RO252>
- PJAC(:,41,85)=+TPK%K235(:)*TPK%RO242(:)+TPK%K242(:)*TPK%RO243(:)+TPK%K249(:)*T&
-&PK%RO244(:)+TPK%K256(:)*TPK%RO245(:)+TPK%K263(:)*TPK%RO246(:)+TPK%K270(:)*TPK%&
-&RO247(:)+TPK%K286(:)*TPK%RO249(:)+TPK%K293(:)*TPK%RO251(:)+TPK%K296(:)*TPK%RO2&
-&52(:)
-!
-!MGLY/RO21=0.0
-!
-!MGLY/RO25=0.0
-!
-!MGLY/WC_O3=0.0
-!
-!MGLY/WC_H2O2=0.0
-!
-!MGLY/WC_NO=0.0
-!
-!MGLY/WC_NO2=0.0
-!
-!MGLY/WC_NO3=0.0
-!
-!MGLY/WC_N2O5=0.0
-!
-!MGLY/WC_HONO=0.0
-!
-!MGLY/WC_HNO3=0.0
-!
-!MGLY/WC_HNO4=0.0
-!
-!MGLY/WC_NH3=0.0
-!
-!MGLY/WC_OH=0.0
-!
-!MGLY/WC_HO2=0.0
-!
-!MGLY/WC_CO2=0.0
-!
-!MGLY/WC_SO2=0.0
-!
-!MGLY/WC_H2SO4=0.0
-!
-!MGLY/WC_RO21=0.0
-!
-!MGLY/WC_RO25=0.0
-!
-!MGLY/WC_MEOH=0.0
-!
-!MGLY/WC_ETOH=0.0
-!
-!MGLY/WC_ALCH=0.0
-!
-!MGLY/WC_HCHO=0.0
-!
-!MGLY/WC_ALD2=0.0
-!
-!MGLY/WC_GLY=0.0
-!
-!MGLY/WC_MGLY=+KTC56
- PJAC(:,41,111)=+TPK%KTC56(:)
-!
-!MGLY/WC_KETL=0.0
-!
-!MGLY/WC_ORA1=0.0
-!
-!MGLY/WC_ORA2=0.0
-!
-!MGLY/WC_ACID=0.0
-!
-!MGLY/WC_RP16=0.0
-!
-!MGLY/WC_UR21=0.0
-!
-!MGLY/WC_UR28=0.0
-!
-!MGLY/WC_ACID2=0.0
-!
-!MGLY/WC_ASO3=0.0
-!
-!MGLY/WC_ASO4=0.0
-!
-!MGLY/WC_ASO5=0.0
-!
-!MGLY/WC_AHSO5=0.0
-!
-!MGLY/WC_AHMS=0.0
-!
-!MGLY/WR_O3=0.0
-!
-!MGLY/WR_H2O2=0.0
-!
-!MGLY/WR_NO=0.0
-!
-!MGLY/WR_NO2=0.0
-!
-!MGLY/WR_NO3=0.0
-!
-!MGLY/WR_N2O5=0.0
-!
-!MGLY/WR_HONO=0.0
-!
-!MGLY/WR_HNO3=0.0
-!
-!MGLY/WR_HNO4=0.0
-!
-!MGLY/WR_NH3=0.0
-!
-!MGLY/WR_OH=0.0
-!
-!MGLY/WR_HO2=0.0
-!
-!MGLY/WR_CO2=0.0
-!
-!MGLY/WR_SO2=0.0
-!
-!MGLY/WR_H2SO4=0.0
-!
-!MGLY/WR_RO21=0.0
-!
-!MGLY/WR_RO25=0.0
-!
-!MGLY/WR_MEOH=0.0
-!
-!MGLY/WR_ETOH=0.0
-!
-!MGLY/WR_ALCH=0.0
-!
-!MGLY/WR_HCHO=0.0
-!
-!MGLY/WR_ALD2=0.0
-!
-!MGLY/WR_GLY=0.0
-!
-!MGLY/WR_MGLY=+KTR56
- PJAC(:,41,148)=+TPK%KTR56(:)
-!
-!MGLY/WR_KETL=0.0
-!
-!MGLY/WR_ORA1=0.0
-!
-!MGLY/WR_ORA2=0.0
-!
-!MGLY/WR_ACID=0.0
-!
-!MGLY/WR_RP16=0.0
-!
-!MGLY/WR_UR21=0.0
-!
-!MGLY/WR_UR28=0.0
-!
-!MGLY/WR_ACID2=0.0
-!
-!MGLY/WR_ASO3=0.0
-!
-!MGLY/WR_ASO4=0.0
-!
-!MGLY/WR_ASO5=0.0
-!
-!MGLY/WR_AHSO5=0.0
-!
-!MGLY/WR_AHMS=0.0
-!
-!GLY/NO=0.0
-!
-!GLY/NO2=0.0
-!
-!GLY/O3=0.0
-!
-!GLY/HONO=0.0
-!
-!GLY/HNO3=0.0
-!
-!GLY/HNO4=0.0
-!
-!GLY/N2O5=0.0
-!
-!GLY/NO3=0.0
-!
-!GLY/NH3=0.0
-!
-!GLY/HO2=0.0
-!
-!GLY/CO=0.0
-!
-!GLY/H2O2=0.0
-!
-!GLY/SO2=0.0
-!
-!GLY/H2SO4=0.0
-!
-!GLY/OH=0.0
-!
-!GLY/ETHE=0.0
-!
-!GLY/OLEL=0.0
-!
-!GLY/OLEH=0.0
-!
-!GLY/ALKL=0.0
-!
-!GLY/ALKM=0.0
-!
-!GLY/ALKH=0.0
-!
-!GLY/AROH=0.0
-!
-!GLY/AROL=0.0
-!
-!GLY/AROO=0.0
-!
-!GLY/ARAL=0.0
-!
-!GLY/ARAC=0.0
-!
-!GLY/PAH=0.0
-!
-!GLY/HCHO=0.0
-!
-!GLY/ALD2=0.0
-!
-!GLY/KETL=0.0
-!
-!GLY/KETH=0.0
-!
-!GLY/MEOH=0.0
-!
-!GLY/ETOH=0.0
-!
-!GLY/ALCH=0.0
-!
-!GLY/ISOP=0.0
-!
-!GLY/BIOL=0.0
-!
-!GLY/BIOH=0.0
-!
-!GLY/MTBE=0.0
-!
-!GLY/MVK=0.0
-!
-!GLY/MCR=0.0
-!
-!GLY/MGLY=0.0
-!
-!GLY/GLY=-KTC23-KTR23
- PJAC(:,42,42)=-TPK%KTC23(:)-TPK%KTR23(:)
-!
-!GLY/ORA1=0.0
-!
-!GLY/ORA2=0.0
-!
-!GLY/ACID=0.0
-!
-!GLY/UR28=0.0
-!
-!GLY/UR21=0.0
-!
-!GLY/URG2=0.0
-!
-!GLY/UR26=0.0
-!
-!GLY/RPG2=0.0
-!
-!GLY/RP18=0.0
-!
-!GLY/RPG3=0.0
-!
-!GLY/URG4=0.0
-!
-!GLY/UR8=0.0
-!
-!GLY/UR17=0.0
-!
-!GLY/UR7=0.0
-!
-!GLY/RPR3=0.0
-!
-!GLY/URG6=0.0
-!
-!GLY/UR22=0.0
-!
-!GLY/URG7=0.0
-!
-!GLY/RPR4=0.0
-!
-!GLY/RPR7=0.0
-!
-!GLY/RPG7=0.0
-!
-!GLY/URG8=0.0
-!
-!GLY/UR19=0.0
-!
-!GLY/URG9=0.0
-!
-!GLY/AP7=0.0
-!
-!GLY/URG10=0.0
-!
-!GLY/RPR1=0.0
-!
-!GLY/RPR5=0.0
-!
-!GLY/RPR8=0.0
-!
-!GLY/RP10=0.0
-!
-!GLY/RP11=0.0
-!
-!GLY/RP16=0.0
-!
-!GLY/RPRL=0.0
-!
-!GLY/APAN=0.0
-!
-!GLY/PAN1=0.0
-!
-!GLY/PAN2=0.0
-!
-!GLY/PAN3=0.0
-!
-!GLY/PAN4=0.0
-!
-!GLY/PAN6=0.0
-!
-!GLY/PAN7=0.0
-!
-!GLY/PAN8=0.0
-!
-!GLY/PN10=0.0
-!
-!GLY/RO2T=0.0
-!
-!GLY/RO21=0.0
-!
-!GLY/RO25=0.0
-!
-!GLY/WC_O3=0.0
-!
-!GLY/WC_H2O2=0.0
-!
-!GLY/WC_NO=0.0
-!
-!GLY/WC_NO2=0.0
-!
-!GLY/WC_NO3=0.0
-!
-!GLY/WC_N2O5=0.0
-!
-!GLY/WC_HONO=0.0
-!
-!GLY/WC_HNO3=0.0
-!
-!GLY/WC_HNO4=0.0
-!
-!GLY/WC_NH3=0.0
-!
-!GLY/WC_OH=0.0
-!
-!GLY/WC_HO2=0.0
-!
-!GLY/WC_CO2=0.0
-!
-!GLY/WC_SO2=0.0
-!
-!GLY/WC_H2SO4=0.0
-!
-!GLY/WC_RO21=0.0
-!
-!GLY/WC_RO25=0.0
-!
-!GLY/WC_MEOH=0.0
-!
-!GLY/WC_ETOH=0.0
-!
-!GLY/WC_ALCH=0.0
-!
-!GLY/WC_HCHO=0.0
-!
-!GLY/WC_ALD2=0.0
-!
-!GLY/WC_GLY=+KTC54
- PJAC(:,42,110)=+TPK%KTC54(:)
-!
-!GLY/WC_MGLY=0.0
-!
-!GLY/WC_KETL=0.0
-!
-!GLY/WC_ORA1=0.0
-!
-!GLY/WC_ORA2=0.0
-!
-!GLY/WC_ACID=0.0
-!
-!GLY/WC_RP16=0.0
-!
-!GLY/WC_UR21=0.0
-!
-!GLY/WC_UR28=0.0
-!
-!GLY/WC_ACID2=0.0
-!
-!GLY/WC_ASO3=0.0
-!
-!GLY/WC_ASO4=0.0
-!
-!GLY/WC_ASO5=0.0
-!
-!GLY/WC_AHSO5=0.0
-!
-!GLY/WC_AHMS=0.0
-!
-!GLY/WR_O3=0.0
-!
-!GLY/WR_H2O2=0.0
-!
-!GLY/WR_NO=0.0
-!
-!GLY/WR_NO2=0.0
-!
-!GLY/WR_NO3=0.0
-!
-!GLY/WR_N2O5=0.0
-!
-!GLY/WR_HONO=0.0
-!
-!GLY/WR_HNO3=0.0
-!
-!GLY/WR_HNO4=0.0
-!
-!GLY/WR_NH3=0.0
-!
-!GLY/WR_OH=0.0
-!
-!GLY/WR_HO2=0.0
-!
-!GLY/WR_CO2=0.0
-!
-!GLY/WR_SO2=0.0
-!
-!GLY/WR_H2SO4=0.0
-!
-!GLY/WR_RO21=0.0
-!
-!GLY/WR_RO25=0.0
-!
-!GLY/WR_MEOH=0.0
-!
-!GLY/WR_ETOH=0.0
-!
-!GLY/WR_ALCH=0.0
-!
-!GLY/WR_HCHO=0.0
-!
-!GLY/WR_ALD2=0.0
-!
-!GLY/WR_GLY=+KTR54
- PJAC(:,42,147)=+TPK%KTR54(:)
-!
-!GLY/WR_MGLY=0.0
-!
-!GLY/WR_KETL=0.0
-!
-!GLY/WR_ORA1=0.0
-!
-!GLY/WR_ORA2=0.0
-!
-!GLY/WR_ACID=0.0
-!
-!GLY/WR_RP16=0.0
-!
-!GLY/WR_UR21=0.0
-!
-!GLY/WR_UR28=0.0
-!
-!GLY/WR_ACID2=0.0
-!
-!GLY/WR_ASO3=0.0
-!
-!GLY/WR_ASO4=0.0
-!
-!GLY/WR_ASO5=0.0
-!
-!GLY/WR_AHSO5=0.0
-!
-!GLY/WR_AHMS=0.0
-!
-!ORA1/NO=0.0
-!
-!ORA1/NO2=0.0
-!
-!ORA1/O3=+0.185*K051*<ETHE>+0.12*K056*<OLEL>+0.121*K066*<ISOP>+0.12*K281*<MVK>+
-!0.09*K282*<MCR>
- PJAC(:,43,3)=+0.185*TPK%K051(:)*PCONC(:,16)+0.12*TPK%K056(:)*PCONC(:,17)+0.121&
-&*TPK%K066(:)*PCONC(:,35)+0.12*TPK%K281(:)*PCONC(:,39)+0.09*TPK%K282(:)*PCONC(:&
-&,40)
-!
-!ORA1/HONO=0.0
-!
-!ORA1/HNO3=0.0
-!
-!ORA1/HNO4=0.0
-!
-!ORA1/N2O5=0.0
-!
-!ORA1/NO3=0.0
-!
-!ORA1/NH3=0.0
-!
-!ORA1/HO2=0.0
-!
-!ORA1/CO=0.0
-!
-!ORA1/H2O2=0.0
-!
-!ORA1/SO2=0.0
-!
-!ORA1/H2SO4=0.0
-!
-!ORA1/OH=-K347*<ORA1>
- PJAC(:,43,15)=-TPK%K347(:)*PCONC(:,43)
-!
-!ORA1/ETHE=+0.185*K051*<O3>
- PJAC(:,43,16)=+0.185*TPK%K051(:)*PCONC(:,3)
-!
-!ORA1/OLEL=+0.12*K056*<O3>
- PJAC(:,43,17)=+0.12*TPK%K056(:)*PCONC(:,3)
-!
-!ORA1/OLEH=0.0
-!
-!ORA1/ALKL=0.0
-!
-!ORA1/ALKM=0.0
-!
-!ORA1/ALKH=0.0
-!
-!ORA1/AROH=0.0
-!
-!ORA1/AROL=0.0
-!
-!ORA1/AROO=0.0
-!
-!ORA1/ARAL=0.0
-!
-!ORA1/ARAC=0.0
-!
-!ORA1/PAH=0.0
-!
-!ORA1/HCHO=0.0
-!
-!ORA1/ALD2=0.0
-!
-!ORA1/KETL=0.0
-!
-!ORA1/KETH=0.0
-!
-!ORA1/MEOH=0.0
-!
-!ORA1/ETOH=0.0
-!
-!ORA1/ALCH=0.0
-!
-!ORA1/ISOP=+0.121*K066*<O3>
- PJAC(:,43,35)=+0.121*TPK%K066(:)*PCONC(:,3)
-!
-!ORA1/BIOL=0.0
-!
-!ORA1/BIOH=0.0
-!
-!ORA1/MTBE=0.0
-!
-!ORA1/MVK=+0.12*K281*<O3>
- PJAC(:,43,39)=+0.12*TPK%K281(:)*PCONC(:,3)
-!
-!ORA1/MCR=+0.09*K282*<O3>
- PJAC(:,43,40)=+0.09*TPK%K282(:)*PCONC(:,3)
-!
-!ORA1/MGLY=0.0
-!
-!ORA1/GLY=0.0
-!
-!ORA1/ORA1=-K347*<OH>-KTC26-KTR26
- PJAC(:,43,43)=-TPK%K347(:)*PCONC(:,15)-TPK%KTC26(:)-TPK%KTR26(:)
-!
-!ORA1/ORA2=0.0
-!
-!ORA1/ACID=0.0
-!
-!ORA1/UR28=0.0
-!
-!ORA1/UR21=0.0
-!
-!ORA1/URG2=0.0
-!
-!ORA1/UR26=0.0
-!
-!ORA1/RPG2=0.0
-!
-!ORA1/RP18=0.0
-!
-!ORA1/RPG3=0.0
-!
-!ORA1/URG4=0.0
-!
-!ORA1/UR8=0.0
-!
-!ORA1/UR17=0.0
-!
-!ORA1/UR7=0.0
-!
-!ORA1/RPR3=0.0
-!
-!ORA1/URG6=0.0
-!
-!ORA1/UR22=0.0
-!
-!ORA1/URG7=0.0
-!
-!ORA1/RPR4=0.0
-!
-!ORA1/RPR7=0.0
-!
-!ORA1/RPG7=0.0
-!
-!ORA1/URG8=0.0
-!
-!ORA1/UR19=0.0
-!
-!ORA1/URG9=0.0
-!
-!ORA1/AP7=0.0
-!
-!ORA1/URG10=0.0
-!
-!ORA1/RPR1=0.0
-!
-!ORA1/RPR5=0.0
-!
-!ORA1/RPR8=0.0
-!
-!ORA1/RP10=0.0
-!
-!ORA1/RP11=0.0
-!
-!ORA1/RP16=0.0
-!
-!ORA1/RPRL=0.0
-!
-!ORA1/APAN=0.0
-!
-!ORA1/PAN1=0.0
-!
-!ORA1/PAN2=0.0
-!
-!ORA1/PAN3=0.0
-!
-!ORA1/PAN4=0.0
-!
-!ORA1/PAN6=0.0
-!
-!ORA1/PAN7=0.0
-!
-!ORA1/PAN8=0.0
-!
-!ORA1/PN10=0.0
-!
-!ORA1/RO2T=0.0
-!
-!ORA1/RO21=0.0
-!
-!ORA1/RO25=0.0
-!
-!ORA1/WC_O3=0.0
-!
-!ORA1/WC_H2O2=0.0
-!
-!ORA1/WC_NO=0.0
-!
-!ORA1/WC_NO2=0.0
-!
-!ORA1/WC_NO3=0.0
-!
-!ORA1/WC_N2O5=0.0
-!
-!ORA1/WC_HONO=0.0
-!
-!ORA1/WC_HNO3=0.0
-!
-!ORA1/WC_HNO4=0.0
-!
-!ORA1/WC_NH3=0.0
-!
-!ORA1/WC_OH=0.0
-!
-!ORA1/WC_HO2=0.0
-!
-!ORA1/WC_CO2=0.0
-!
-!ORA1/WC_SO2=0.0
-!
-!ORA1/WC_H2SO4=0.0
-!
-!ORA1/WC_RO21=0.0
-!
-!ORA1/WC_RO25=0.0
-!
-!ORA1/WC_MEOH=0.0
-!
-!ORA1/WC_ETOH=0.0
-!
-!ORA1/WC_ALCH=0.0
-!
-!ORA1/WC_HCHO=0.0
-!
-!ORA1/WC_ALD2=0.0
-!
-!ORA1/WC_GLY=0.0
-!
-!ORA1/WC_MGLY=0.0
-!
-!ORA1/WC_KETL=0.0
-!
-!ORA1/WC_ORA1=+KTC57
- PJAC(:,43,113)=+TPK%KTC57(:)
-!
-!ORA1/WC_ORA2=0.0
-!
-!ORA1/WC_ACID=0.0
-!
-!ORA1/WC_RP16=0.0
-!
-!ORA1/WC_UR21=0.0
-!
-!ORA1/WC_UR28=0.0
-!
-!ORA1/WC_ACID2=0.0
-!
-!ORA1/WC_ASO3=0.0
-!
-!ORA1/WC_ASO4=0.0
-!
-!ORA1/WC_ASO5=0.0
-!
-!ORA1/WC_AHSO5=0.0
-!
-!ORA1/WC_AHMS=0.0
-!
-!ORA1/WR_O3=0.0
-!
-!ORA1/WR_H2O2=0.0
-!
-!ORA1/WR_NO=0.0
-!
-!ORA1/WR_NO2=0.0
-!
-!ORA1/WR_NO3=0.0
-!
-!ORA1/WR_N2O5=0.0
-!
-!ORA1/WR_HONO=0.0
-!
-!ORA1/WR_HNO3=0.0
-!
-!ORA1/WR_HNO4=0.0
-!
-!ORA1/WR_NH3=0.0
-!
-!ORA1/WR_OH=0.0
-!
-!ORA1/WR_HO2=0.0
-!
-!ORA1/WR_CO2=0.0
-!
-!ORA1/WR_SO2=0.0
-!
-!ORA1/WR_H2SO4=0.0
-!
-!ORA1/WR_RO21=0.0
-!
-!ORA1/WR_RO25=0.0
-!
-!ORA1/WR_MEOH=0.0
-!
-!ORA1/WR_ETOH=0.0
-!
-!ORA1/WR_ALCH=0.0
-!
-!ORA1/WR_HCHO=0.0
-!
-!ORA1/WR_ALD2=0.0
-!
-!ORA1/WR_GLY=0.0
-!
-!ORA1/WR_MGLY=0.0
-!
-!ORA1/WR_KETL=0.0
-!
-!ORA1/WR_ORA1=+KTR57
- PJAC(:,43,150)=+TPK%KTR57(:)
-!
-!ORA1/WR_ORA2=0.0
-!
-!ORA1/WR_ACID=0.0
-!
-!ORA1/WR_RP16=0.0
-!
-!ORA1/WR_UR21=0.0
-!
-!ORA1/WR_UR28=0.0
-!
-!ORA1/WR_ACID2=0.0
-!
-!ORA1/WR_ASO3=0.0
-!
-!ORA1/WR_ASO4=0.0
-!
-!ORA1/WR_ASO5=0.0
-!
-!ORA1/WR_AHSO5=0.0
-!
-!ORA1/WR_AHMS=0.0
-!
-!ORA2/NO=0.0
-!
-!ORA2/NO2=0.0
-!
-!ORA2/O3=+0.12*K056*<OLEL>
- PJAC(:,44,3)=+0.12*TPK%K056(:)*PCONC(:,17)
-!
-!ORA2/HONO=0.0
-!
-!ORA2/HNO3=0.0
-!
-!ORA2/HNO4=0.0
-!
-!ORA2/N2O5=0.0
-!
-!ORA2/NO3=0.0
-!
-!ORA2/NH3=0.0
-!
-!ORA2/HO2=+K142*<RO26>+K148*<RO28>+0.5*K166*<RO239>+0.5*K289*<RO250>
- PJAC(:,44,10)=+TPK%K142(:)*TPK%RO26(:)+TPK%K148(:)*TPK%RO28(:)+0.5*TPK%K166(:)&
-&*TPK%RO239(:)+0.5*TPK%K289(:)*TPK%RO250(:)
-!
-!ORA2/CO=0.0
-!
-!ORA2/H2O2=0.0
-!
-!ORA2/SO2=0.0
-!
-!ORA2/H2SO4=0.0
-!
-!ORA2/OH=-K348*<ORA2>
- PJAC(:,44,15)=-TPK%K348(:)*PCONC(:,44)
-!
-!ORA2/ETHE=0.0
-!
-!ORA2/OLEL=+0.12*K056*<O3>
- PJAC(:,44,17)=+0.12*TPK%K056(:)*PCONC(:,3)
-!
-!ORA2/OLEH=0.0
-!
-!ORA2/ALKL=0.0
-!
-!ORA2/ALKM=0.0
-!
-!ORA2/ALKH=0.0
-!
-!ORA2/AROH=0.0
-!
-!ORA2/AROL=0.0
-!
-!ORA2/AROO=0.0
-!
-!ORA2/ARAL=0.0
-!
-!ORA2/ARAC=0.0
-!
-!ORA2/PAH=0.0
-!
-!ORA2/HCHO=0.0
-!
-!ORA2/ALD2=0.0
-!
-!ORA2/KETL=0.0
-!
-!ORA2/KETH=0.0
-!
-!ORA2/MEOH=0.0
-!
-!ORA2/ETOH=0.0
-!
-!ORA2/ALCH=0.0
-!
-!ORA2/ISOP=0.0
-!
-!ORA2/BIOL=0.0
-!
-!ORA2/BIOH=0.0
-!
-!ORA2/MTBE=0.0
-!
-!ORA2/MVK=0.0
-!
-!ORA2/MCR=0.0
-!
-!ORA2/MGLY=0.0
-!
-!ORA2/GLY=0.0
-!
-!ORA2/ORA1=0.0
-!
-!ORA2/ORA2=-K348*<OH>-KTC27-KTR27
- PJAC(:,44,44)=-TPK%K348(:)*PCONC(:,15)-TPK%KTC27(:)-TPK%KTR27(:)
-!
-!ORA2/ACID=0.0
-!
-!ORA2/UR28=0.0
-!
-!ORA2/UR21=0.0
-!
-!ORA2/URG2=0.0
-!
-!ORA2/UR26=0.0
-!
-!ORA2/RPG2=0.0
-!
-!ORA2/RP18=0.0
-!
-!ORA2/RPG3=0.0
-!
-!ORA2/URG4=0.0
-!
-!ORA2/UR8=0.0
-!
-!ORA2/UR17=0.0
-!
-!ORA2/UR7=0.0
-!
-!ORA2/RPR3=0.0
-!
-!ORA2/URG6=0.0
-!
-!ORA2/UR22=0.0
-!
-!ORA2/URG7=0.0
-!
-!ORA2/RPR4=0.0
-!
-!ORA2/RPR7=0.0
-!
-!ORA2/RPG7=0.0
-!
-!ORA2/URG8=0.0
-!
-!ORA2/UR19=0.0
-!
-!ORA2/URG9=0.0
-!
-!ORA2/AP7=0.0
-!
-!ORA2/URG10=0.0
-!
-!ORA2/RPR1=0.0
-!
-!ORA2/RPR5=0.0
-!
-!ORA2/RPR8=0.0
-!
-!ORA2/RP10=0.0
-!
-!ORA2/RP11=0.0
-!
-!ORA2/RP16=0.0
-!
-!ORA2/RPRL=0.0
-!
-!ORA2/APAN=0.0
-!
-!ORA2/PAN1=0.0
-!
-!ORA2/PAN2=0.0
-!
-!ORA2/PAN3=0.0
-!
-!ORA2/PAN4=0.0
-!
-!ORA2/PAN6=0.0
-!
-!ORA2/PAN7=0.0
-!
-!ORA2/PAN8=0.0
-!
-!ORA2/PN10=0.0
-!
-!ORA2/RO2T=0.0
-!
-!ORA2/RO21=0.0
-!
-!ORA2/RO25=0.0
-!
-!ORA2/WC_O3=0.0
-!
-!ORA2/WC_H2O2=0.0
-!
-!ORA2/WC_NO=0.0
-!
-!ORA2/WC_NO2=0.0
-!
-!ORA2/WC_NO3=0.0
-!
-!ORA2/WC_N2O5=0.0
-!
-!ORA2/WC_HONO=0.0
-!
-!ORA2/WC_HNO3=0.0
-!
-!ORA2/WC_HNO4=0.0
-!
-!ORA2/WC_NH3=0.0
-!
-!ORA2/WC_OH=0.0
-!
-!ORA2/WC_HO2=0.0
-!
-!ORA2/WC_CO2=0.0
-!
-!ORA2/WC_SO2=0.0
-!
-!ORA2/WC_H2SO4=0.0
-!
-!ORA2/WC_RO21=0.0
-!
-!ORA2/WC_RO25=0.0
-!
-!ORA2/WC_MEOH=0.0
-!
-!ORA2/WC_ETOH=0.0
-!
-!ORA2/WC_ALCH=0.0
-!
-!ORA2/WC_HCHO=0.0
-!
-!ORA2/WC_ALD2=0.0
-!
-!ORA2/WC_GLY=0.0
-!
-!ORA2/WC_MGLY=0.0
-!
-!ORA2/WC_KETL=0.0
-!
-!ORA2/WC_ORA1=0.0
-!
-!ORA2/WC_ORA2=+KTC58
- PJAC(:,44,114)=+TPK%KTC58(:)
-!
-!ORA2/WC_ACID=0.0
-!
-!ORA2/WC_RP16=0.0
-!
-!ORA2/WC_UR21=0.0
-!
-!ORA2/WC_UR28=0.0
-!
-!ORA2/WC_ACID2=0.0
-!
-!ORA2/WC_ASO3=0.0
-!
-!ORA2/WC_ASO4=0.0
-!
-!ORA2/WC_ASO5=0.0
-!
-!ORA2/WC_AHSO5=0.0
-!
-!ORA2/WC_AHMS=0.0
-!
-!ORA2/WR_O3=0.0
-!
-!ORA2/WR_H2O2=0.0
-!
-!ORA2/WR_NO=0.0
-!
-!ORA2/WR_NO2=0.0
-!
-!ORA2/WR_NO3=0.0
-!
-!ORA2/WR_N2O5=0.0
-!
-!ORA2/WR_HONO=0.0
-!
-!ORA2/WR_HNO3=0.0
-!
-!ORA2/WR_HNO4=0.0
-!
-!ORA2/WR_NH3=0.0
-!
-!ORA2/WR_OH=0.0
-!
-!ORA2/WR_HO2=0.0
-!
-!ORA2/WR_CO2=0.0
-!
-!ORA2/WR_SO2=0.0
-!
-!ORA2/WR_H2SO4=0.0
-!
-!ORA2/WR_RO21=0.0
-!
-!ORA2/WR_RO25=0.0
-!
-!ORA2/WR_MEOH=0.0
-!
-!ORA2/WR_ETOH=0.0
-!
-!ORA2/WR_ALCH=0.0
-!
-!ORA2/WR_HCHO=0.0
-!
-!ORA2/WR_ALD2=0.0
-!
-!ORA2/WR_GLY=0.0
-!
-!ORA2/WR_MGLY=0.0
-!
-!ORA2/WR_KETL=0.0
-!
-!ORA2/WR_ORA1=0.0
-!
-!ORA2/WR_ORA2=+KTR58
- PJAC(:,44,151)=+TPK%KTR58(:)
-!
-!ORA2/WR_ACID=0.0
-!
-!ORA2/WR_RP16=0.0
-!
-!ORA2/WR_UR21=0.0
-!
-!ORA2/WR_UR28=0.0
-!
-!ORA2/WR_ACID2=0.0
-!
-!ORA2/WR_ASO3=0.0
-!
-!ORA2/WR_ASO4=0.0
-!
-!ORA2/WR_ASO5=0.0
-!
-!ORA2/WR_AHSO5=0.0
-!
-!ORA2/WR_AHMS=0.0
-!
-!ACID/NO=0.0
-!
-!ACID/NO2=0.0
-!
-!ACID/O3=+0.12*K076*<OLEH>
- PJAC(:,45,3)=+0.12*TPK%K076(:)*PCONC(:,18)
-!
-!ACID/HONO=0.0
-!
-!ACID/HNO3=0.0
-!
-!ACID/HNO4=0.0
-!
-!ACID/N2O5=0.0
-!
-!ACID/NO3=0.0
-!
-!ACID/NH3=0.0
-!
-!ACID/HO2=+K142*<RO26>+K310*<RO255>
- PJAC(:,45,10)=+TPK%K142(:)*TPK%RO26(:)+TPK%K310(:)*TPK%RO255(:)
-!
-!ACID/CO=0.0
-!
-!ACID/H2O2=0.0
-!
-!ACID/SO2=0.0
-!
-!ACID/H2SO4=0.0
-!
-!ACID/OH=-K349*<ACID>
- PJAC(:,45,15)=-TPK%K349(:)*PCONC(:,45)
-!
-!ACID/ETHE=0.0
-!
-!ACID/OLEL=0.0
-!
-!ACID/OLEH=+0.12*K076*<O3>
- PJAC(:,45,18)=+0.12*TPK%K076(:)*PCONC(:,3)
-!
-!ACID/ALKL=0.0
-!
-!ACID/ALKM=0.0
-!
-!ACID/ALKH=0.0
-!
-!ACID/AROH=0.0
-!
-!ACID/AROL=0.0
-!
-!ACID/AROO=0.0
-!
-!ACID/ARAL=0.0
-!
-!ACID/ARAC=0.0
-!
-!ACID/PAH=0.0
-!
-!ACID/HCHO=0.0
-!
-!ACID/ALD2=0.0
-!
-!ACID/KETL=0.0
-!
-!ACID/KETH=0.0
-!
-!ACID/MEOH=0.0
-!
-!ACID/ETOH=0.0
-!
-!ACID/ALCH=0.0
-!
-!ACID/ISOP=0.0
-!
-!ACID/BIOL=0.0
-!
-!ACID/BIOH=0.0
-!
-!ACID/MTBE=0.0
-!
-!ACID/MVK=0.0
-!
-!ACID/MCR=0.0
-!
-!ACID/MGLY=0.0
-!
-!ACID/GLY=0.0
-!
-!ACID/ORA1=0.0
-!
-!ACID/ORA2=0.0
-!
-!ACID/ACID=-K349*<OH>-KTC28-KTR28
- PJAC(:,45,45)=-TPK%K349(:)*PCONC(:,15)-TPK%KTC28(:)-TPK%KTR28(:)
-!
-!ACID/UR28=0.0
-!
-!ACID/UR21=0.0
-!
-!ACID/URG2=0.0
-!
-!ACID/UR26=0.0
-!
-!ACID/RPG2=0.0
-!
-!ACID/RP18=0.0
-!
-!ACID/RPG3=0.0
-!
-!ACID/URG4=0.0
-!
-!ACID/UR8=0.0
-!
-!ACID/UR17=0.0
-!
-!ACID/UR7=0.0
-!
-!ACID/RPR3=0.0
-!
-!ACID/URG6=0.0
-!
-!ACID/UR22=0.0
-!
-!ACID/URG7=0.0
-!
-!ACID/RPR4=0.0
-!
-!ACID/RPR7=0.0
-!
-!ACID/RPG7=0.0
-!
-!ACID/URG8=0.0
-!
-!ACID/UR19=0.0
-!
-!ACID/URG9=0.0
-!
-!ACID/AP7=0.0
-!
-!ACID/URG10=0.0
-!
-!ACID/RPR1=0.0
-!
-!ACID/RPR5=0.0
-!
-!ACID/RPR8=0.0
-!
-!ACID/RP10=0.0
-!
-!ACID/RP11=0.0
-!
-!ACID/RP16=0.0
-!
-!ACID/RPRL=0.0
-!
-!ACID/APAN=0.0
-!
-!ACID/PAN1=0.0
-!
-!ACID/PAN2=0.0
-!
-!ACID/PAN3=0.0
-!
-!ACID/PAN4=0.0
-!
-!ACID/PAN6=0.0
-!
-!ACID/PAN7=0.0
-!
-!ACID/PAN8=0.0
-!
-!ACID/PN10=0.0
-!
-!ACID/RO2T=0.0
-!
-!ACID/RO21=0.0
-!
-!ACID/RO25=0.0
-!
-!ACID/WC_O3=0.0
-!
-!ACID/WC_H2O2=0.0
-!
-!ACID/WC_NO=0.0
-!
-!ACID/WC_NO2=0.0
-!
-!ACID/WC_NO3=0.0
-!
-!ACID/WC_N2O5=0.0
-!
-!ACID/WC_HONO=0.0
-!
-!ACID/WC_HNO3=0.0
-!
-!ACID/WC_HNO4=0.0
-!
-!ACID/WC_NH3=0.0
-!
-!ACID/WC_OH=0.0
-!
-!ACID/WC_HO2=0.0
-!
-!ACID/WC_CO2=0.0
-!
-!ACID/WC_SO2=0.0
-!
-!ACID/WC_H2SO4=0.0
-!
-!ACID/WC_RO21=0.0
-!
-!ACID/WC_RO25=0.0
-!
-!ACID/WC_MEOH=0.0
-!
-!ACID/WC_ETOH=0.0
-!
-!ACID/WC_ALCH=0.0
-!
-!ACID/WC_HCHO=0.0
-!
-!ACID/WC_ALD2=0.0
-!
-!ACID/WC_GLY=0.0
-!
-!ACID/WC_MGLY=0.0
-!
-!ACID/WC_KETL=0.0
-!
-!ACID/WC_ORA1=0.0
-!
-!ACID/WC_ORA2=0.0
-!
-!ACID/WC_ACID=+KTC59
- PJAC(:,45,115)=+TPK%KTC59(:)
-!
-!ACID/WC_RP16=0.0
-!
-!ACID/WC_UR21=0.0
-!
-!ACID/WC_UR28=0.0
-!
-!ACID/WC_ACID2=0.0
-!
-!ACID/WC_ASO3=0.0
-!
-!ACID/WC_ASO4=0.0
-!
-!ACID/WC_ASO5=0.0
-!
-!ACID/WC_AHSO5=0.0
-!
-!ACID/WC_AHMS=0.0
-!
-!ACID/WR_O3=0.0
-!
-!ACID/WR_H2O2=0.0
-!
-!ACID/WR_NO=0.0
-!
-!ACID/WR_NO2=0.0
-!
-!ACID/WR_NO3=0.0
-!
-!ACID/WR_N2O5=0.0
-!
-!ACID/WR_HONO=0.0
-!
-!ACID/WR_HNO3=0.0
-!
-!ACID/WR_HNO4=0.0
-!
-!ACID/WR_NH3=0.0
-!
-!ACID/WR_OH=0.0
-!
-!ACID/WR_HO2=0.0
-!
-!ACID/WR_CO2=0.0
-!
-!ACID/WR_SO2=0.0
-!
-!ACID/WR_H2SO4=0.0
-!
-!ACID/WR_RO21=0.0
-!
-!ACID/WR_RO25=0.0
-!
-!ACID/WR_MEOH=0.0
-!
-!ACID/WR_ETOH=0.0
-!
-!ACID/WR_ALCH=0.0
-!
-!ACID/WR_HCHO=0.0
-!
-!ACID/WR_ALD2=0.0
-!
-!ACID/WR_GLY=0.0
-!
-!ACID/WR_MGLY=0.0
-!
-!ACID/WR_KETL=0.0
-!
-!ACID/WR_ORA1=0.0
-!
-!ACID/WR_ORA2=0.0
-!
-!ACID/WR_ACID=+KTR59
- PJAC(:,45,152)=+TPK%KTR59(:)
-!
-!ACID/WR_RP16=0.0
-!
-!ACID/WR_UR21=0.0
-!
-!ACID/WR_UR28=0.0
-!
-!ACID/WR_ACID2=0.0
-!
-!ACID/WR_ASO3=0.0
-!
-!ACID/WR_ASO4=0.0
-!
-!ACID/WR_ASO5=0.0
-!
-!ACID/WR_AHSO5=0.0
-!
-!ACID/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ8
-!
-SUBROUTINE SUBJ9
-!
-!Indices 46 a 50
-!
-!
-!UR28/NO=0.0
-!
-!UR28/NO2=0.0
-!
-!UR28/O3=0.0
-!
-!UR28/HONO=0.0
-!
-!UR28/HNO3=0.0
-!
-!UR28/HNO4=0.0
-!
-!UR28/N2O5=0.0
-!
-!UR28/NO3=0.0
-!
-!UR28/NH3=0.0
-!
-!UR28/HO2=+K341*<RO258>
- PJAC(:,46,10)=+TPK%K341(:)*TPK%RO258(:)
-!
-!UR28/CO=0.0
-!
-!UR28/H2O2=0.0
-!
-!UR28/SO2=0.0
-!
-!UR28/H2SO4=0.0
-!
-!UR28/OH=0.0
-!
-!UR28/ETHE=0.0
-!
-!UR28/OLEL=0.0
-!
-!UR28/OLEH=0.0
-!
-!UR28/ALKL=0.0
-!
-!UR28/ALKM=0.0
-!
-!UR28/ALKH=0.0
-!
-!UR28/AROH=0.0
-!
-!UR28/AROL=0.0
-!
-!UR28/AROO=0.0
-!
-!UR28/ARAL=0.0
-!
-!UR28/ARAC=0.0
-!
-!UR28/PAH=0.0
-!
-!UR28/HCHO=0.0
-!
-!UR28/ALD2=0.0
-!
-!UR28/KETL=0.0
-!
-!UR28/KETH=0.0
-!
-!UR28/MEOH=0.0
-!
-!UR28/ETOH=0.0
-!
-!UR28/ALCH=0.0
-!
-!UR28/ISOP=0.0
-!
-!UR28/BIOL=0.0
-!
-!UR28/BIOH=0.0
-!
-!UR28/MTBE=0.0
-!
-!UR28/MVK=0.0
-!
-!UR28/MCR=0.0
-!
-!UR28/MGLY=0.0
-!
-!UR28/GLY=0.0
-!
-!UR28/ORA1=0.0
-!
-!UR28/ORA2=0.0
-!
-!UR28/ACID=0.0
-!
-!UR28/UR28=-K364-KTC31-KTR31
- PJAC(:,46,46)=-TPK%K364(:)-TPK%KTC31(:)-TPK%KTR31(:)
-!
-!UR28/UR21=0.0
-!
-!UR28/URG2=0.0
-!
-!UR28/UR26=0.0
-!
-!UR28/RPG2=0.0
-!
-!UR28/RP18=0.0
-!
-!UR28/RPG3=0.0
-!
-!UR28/URG4=0.0
-!
-!UR28/UR8=0.0
-!
-!UR28/UR17=0.0
-!
-!UR28/UR7=0.0
-!
-!UR28/RPR3=0.0
-!
-!UR28/URG6=0.0
-!
-!UR28/UR22=0.0
-!
-!UR28/URG7=0.0
-!
-!UR28/RPR4=0.0
-!
-!UR28/RPR7=0.0
-!
-!UR28/RPG7=0.0
-!
-!UR28/URG8=0.0
-!
-!UR28/UR19=0.0
-!
-!UR28/URG9=0.0
-!
-!UR28/AP7=0.0
-!
-!UR28/URG10=0.0
-!
-!UR28/RPR1=0.0
-!
-!UR28/RPR5=0.0
-!
-!UR28/RPR8=0.0
-!
-!UR28/RP10=0.0
-!
-!UR28/RP11=0.0
-!
-!UR28/RP16=0.0
-!
-!UR28/RPRL=0.0
-!
-!UR28/APAN=0.0
-!
-!UR28/PAN1=0.0
-!
-!UR28/PAN2=0.0
-!
-!UR28/PAN3=0.0
-!
-!UR28/PAN4=0.0
-!
-!UR28/PAN6=0.0
-!
-!UR28/PAN7=0.0
-!
-!UR28/PAN8=0.0
-!
-!UR28/PN10=0.0
-!
-!UR28/RO2T=0.0
-!
-!UR28/RO21=0.0
-!
-!UR28/RO25=0.0
-!
-!UR28/WC_O3=0.0
-!
-!UR28/WC_H2O2=0.0
-!
-!UR28/WC_NO=0.0
-!
-!UR28/WC_NO2=0.0
-!
-!UR28/WC_NO3=0.0
-!
-!UR28/WC_N2O5=0.0
-!
-!UR28/WC_HONO=0.0
-!
-!UR28/WC_HNO3=0.0
-!
-!UR28/WC_HNO4=0.0
-!
-!UR28/WC_NH3=0.0
-!
-!UR28/WC_OH=0.0
-!
-!UR28/WC_HO2=0.0
-!
-!UR28/WC_CO2=0.0
-!
-!UR28/WC_SO2=0.0
-!
-!UR28/WC_H2SO4=0.0
-!
-!UR28/WC_RO21=0.0
-!
-!UR28/WC_RO25=0.0
-!
-!UR28/WC_MEOH=0.0
-!
-!UR28/WC_ETOH=0.0
-!
-!UR28/WC_ALCH=0.0
-!
-!UR28/WC_HCHO=0.0
-!
-!UR28/WC_ALD2=0.0
-!
-!UR28/WC_GLY=0.0
-!
-!UR28/WC_MGLY=0.0
-!
-!UR28/WC_KETL=0.0
-!
-!UR28/WC_ORA1=0.0
-!
-!UR28/WC_ORA2=0.0
-!
-!UR28/WC_ACID=0.0
-!
-!UR28/WC_RP16=0.0
-!
-!UR28/WC_UR21=0.0
-!
-!UR28/WC_UR28=+KTC62
- PJAC(:,46,118)=+TPK%KTC62(:)
-!
-!UR28/WC_ACID2=0.0
-!
-!UR28/WC_ASO3=0.0
-!
-!UR28/WC_ASO4=0.0
-!
-!UR28/WC_ASO5=0.0
-!
-!UR28/WC_AHSO5=0.0
-!
-!UR28/WC_AHMS=0.0
-!
-!UR28/WR_O3=0.0
-!
-!UR28/WR_H2O2=0.0
-!
-!UR28/WR_NO=0.0
-!
-!UR28/WR_NO2=0.0
-!
-!UR28/WR_NO3=0.0
-!
-!UR28/WR_N2O5=0.0
-!
-!UR28/WR_HONO=0.0
-!
-!UR28/WR_HNO3=0.0
-!
-!UR28/WR_HNO4=0.0
-!
-!UR28/WR_NH3=0.0
-!
-!UR28/WR_OH=0.0
-!
-!UR28/WR_HO2=0.0
-!
-!UR28/WR_CO2=0.0
-!
-!UR28/WR_SO2=0.0
-!
-!UR28/WR_H2SO4=0.0
-!
-!UR28/WR_RO21=0.0
-!
-!UR28/WR_RO25=0.0
-!
-!UR28/WR_MEOH=0.0
-!
-!UR28/WR_ETOH=0.0
-!
-!UR28/WR_ALCH=0.0
-!
-!UR28/WR_HCHO=0.0
-!
-!UR28/WR_ALD2=0.0
-!
-!UR28/WR_GLY=0.0
-!
-!UR28/WR_MGLY=0.0
-!
-!UR28/WR_KETL=0.0
-!
-!UR28/WR_ORA1=0.0
-!
-!UR28/WR_ORA2=0.0
-!
-!UR28/WR_ACID=0.0
-!
-!UR28/WR_RP16=0.0
-!
-!UR28/WR_UR21=0.0
-!
-!UR28/WR_UR28=+KTR62
- PJAC(:,46,155)=+TPK%KTR62(:)
-!
-!UR28/WR_ACID2=0.0
-!
-!UR28/WR_ASO3=0.0
-!
-!UR28/WR_ASO4=0.0
-!
-!UR28/WR_ASO5=0.0
-!
-!UR28/WR_AHSO5=0.0
-!
-!UR28/WR_AHMS=0.0
-!
-!UR21/NO=0.0
-!
-!UR21/NO2=0.0
-!
-!UR21/O3=+0.12*K281*<MVK>
- PJAC(:,47,3)=+0.12*TPK%K281(:)*PCONC(:,39)
-!
-!UR21/HONO=0.0
-!
-!UR21/HNO3=0.0
-!
-!UR21/HNO4=0.0
-!
-!UR21/N2O5=0.0
-!
-!UR21/NO3=0.0
-!
-!UR21/NH3=0.0
-!
-!UR21/HO2=+K279*<RO248>
- PJAC(:,47,10)=+TPK%K279(:)*TPK%RO248(:)
-!
-!UR21/CO=0.0
-!
-!UR21/H2O2=0.0
-!
-!UR21/SO2=0.0
-!
-!UR21/H2SO4=0.0
-!
-!UR21/OH=0.0
-!
-!UR21/ETHE=0.0
-!
-!UR21/OLEL=0.0
-!
-!UR21/OLEH=0.0
-!
-!UR21/ALKL=0.0
-!
-!UR21/ALKM=0.0
-!
-!UR21/ALKH=0.0
-!
-!UR21/AROH=0.0
-!
-!UR21/AROL=0.0
-!
-!UR21/AROO=0.0
-!
-!UR21/ARAL=0.0
-!
-!UR21/ARAC=0.0
-!
-!UR21/PAH=0.0
-!
-!UR21/HCHO=0.0
-!
-!UR21/ALD2=0.0
-!
-!UR21/KETL=0.0
-!
-!UR21/KETH=0.0
-!
-!UR21/MEOH=0.0
-!
-!UR21/ETOH=0.0
-!
-!UR21/ALCH=0.0
-!
-!UR21/ISOP=0.0
-!
-!UR21/BIOL=0.0
-!
-!UR21/BIOH=0.0
-!
-!UR21/MTBE=0.0
-!
-!UR21/MVK=+0.12*K281*<O3>
- PJAC(:,47,39)=+0.12*TPK%K281(:)*PCONC(:,3)
-!
-!UR21/MCR=0.0
-!
-!UR21/MGLY=0.0
-!
-!UR21/GLY=0.0
-!
-!UR21/ORA1=0.0
-!
-!UR21/ORA2=0.0
-!
-!UR21/ACID=0.0
-!
-!UR21/UR28=0.0
-!
-!UR21/UR21=-K361-KTC30-KTR30
- PJAC(:,47,47)=-TPK%K361(:)-TPK%KTC30(:)-TPK%KTR30(:)
-!
-!UR21/URG2=0.0
-!
-!UR21/UR26=0.0
-!
-!UR21/RPG2=0.0
-!
-!UR21/RP18=0.0
-!
-!UR21/RPG3=0.0
-!
-!UR21/URG4=0.0
-!
-!UR21/UR8=0.0
-!
-!UR21/UR17=0.0
-!
-!UR21/UR7=0.0
-!
-!UR21/RPR3=0.0
-!
-!UR21/URG6=0.0
-!
-!UR21/UR22=0.0
-!
-!UR21/URG7=0.0
-!
-!UR21/RPR4=0.0
-!
-!UR21/RPR7=0.0
-!
-!UR21/RPG7=0.0
-!
-!UR21/URG8=0.0
-!
-!UR21/UR19=0.0
-!
-!UR21/URG9=0.0
-!
-!UR21/AP7=0.0
-!
-!UR21/URG10=0.0
-!
-!UR21/RPR1=0.0
-!
-!UR21/RPR5=0.0
-!
-!UR21/RPR8=0.0
-!
-!UR21/RP10=0.0
-!
-!UR21/RP11=0.0
-!
-!UR21/RP16=0.0
-!
-!UR21/RPRL=0.0
-!
-!UR21/APAN=0.0
-!
-!UR21/PAN1=0.0
-!
-!UR21/PAN2=0.0
-!
-!UR21/PAN3=0.0
-!
-!UR21/PAN4=0.0
-!
-!UR21/PAN6=0.0
-!
-!UR21/PAN7=0.0
-!
-!UR21/PAN8=0.0
-!
-!UR21/PN10=0.0
-!
-!UR21/RO2T=0.0
-!
-!UR21/RO21=0.0
-!
-!UR21/RO25=0.0
-!
-!UR21/WC_O3=0.0
-!
-!UR21/WC_H2O2=0.0
-!
-!UR21/WC_NO=0.0
-!
-!UR21/WC_NO2=0.0
-!
-!UR21/WC_NO3=0.0
-!
-!UR21/WC_N2O5=0.0
-!
-!UR21/WC_HONO=0.0
-!
-!UR21/WC_HNO3=0.0
-!
-!UR21/WC_HNO4=0.0
-!
-!UR21/WC_NH3=0.0
-!
-!UR21/WC_OH=0.0
-!
-!UR21/WC_HO2=0.0
-!
-!UR21/WC_CO2=0.0
-!
-!UR21/WC_SO2=0.0
-!
-!UR21/WC_H2SO4=0.0
-!
-!UR21/WC_RO21=0.0
-!
-!UR21/WC_RO25=0.0
-!
-!UR21/WC_MEOH=0.0
-!
-!UR21/WC_ETOH=0.0
-!
-!UR21/WC_ALCH=0.0
-!
-!UR21/WC_HCHO=0.0
-!
-!UR21/WC_ALD2=0.0
-!
-!UR21/WC_GLY=0.0
-!
-!UR21/WC_MGLY=0.0
-!
-!UR21/WC_KETL=0.0
-!
-!UR21/WC_ORA1=0.0
-!
-!UR21/WC_ORA2=0.0
-!
-!UR21/WC_ACID=0.0
-!
-!UR21/WC_RP16=0.0
-!
-!UR21/WC_UR21=+KTC61
- PJAC(:,47,117)=+TPK%KTC61(:)
-!
-!UR21/WC_UR28=0.0
-!
-!UR21/WC_ACID2=0.0
-!
-!UR21/WC_ASO3=0.0
-!
-!UR21/WC_ASO4=0.0
-!
-!UR21/WC_ASO5=0.0
-!
-!UR21/WC_AHSO5=0.0
-!
-!UR21/WC_AHMS=0.0
-!
-!UR21/WR_O3=0.0
-!
-!UR21/WR_H2O2=0.0
-!
-!UR21/WR_NO=0.0
-!
-!UR21/WR_NO2=0.0
-!
-!UR21/WR_NO3=0.0
-!
-!UR21/WR_N2O5=0.0
-!
-!UR21/WR_HONO=0.0
-!
-!UR21/WR_HNO3=0.0
-!
-!UR21/WR_HNO4=0.0
-!
-!UR21/WR_NH3=0.0
-!
-!UR21/WR_OH=0.0
-!
-!UR21/WR_HO2=0.0
-!
-!UR21/WR_CO2=0.0
-!
-!UR21/WR_SO2=0.0
-!
-!UR21/WR_H2SO4=0.0
-!
-!UR21/WR_RO21=0.0
-!
-!UR21/WR_RO25=0.0
-!
-!UR21/WR_MEOH=0.0
-!
-!UR21/WR_ETOH=0.0
-!
-!UR21/WR_ALCH=0.0
-!
-!UR21/WR_HCHO=0.0
-!
-!UR21/WR_ALD2=0.0
-!
-!UR21/WR_GLY=0.0
-!
-!UR21/WR_MGLY=0.0
-!
-!UR21/WR_KETL=0.0
-!
-!UR21/WR_ORA1=0.0
-!
-!UR21/WR_ORA2=0.0
-!
-!UR21/WR_ACID=0.0
-!
-!UR21/WR_RP16=0.0
-!
-!UR21/WR_UR21=+KTR61
- PJAC(:,47,154)=+TPK%KTR61(:)
-!
-!UR21/WR_UR28=0.0
-!
-!UR21/WR_ACID2=0.0
-!
-!UR21/WR_ASO3=0.0
-!
-!UR21/WR_ASO4=0.0
-!
-!UR21/WR_ASO5=0.0
-!
-!UR21/WR_AHSO5=0.0
-!
-!UR21/WR_AHMS=0.0
-!
-!URG2/NO=0.0
-!
-!URG2/NO2=0.0
-!
-!URG2/O3=0.0
-!
-!URG2/HONO=0.0
-!
-!URG2/HNO3=0.0
-!
-!URG2/HNO4=0.0
-!
-!URG2/N2O5=0.0
-!
-!URG2/NO3=0.0
-!
-!URG2/NH3=0.0
-!
-!URG2/HO2=0.0
-!
-!URG2/CO=0.0
-!
-!URG2/H2O2=0.0
-!
-!URG2/SO2=0.0
-!
-!URG2/H2SO4=0.0
-!
-!URG2/OH=+0.5562513*K335*<RPG2>+K337*<RP18>
- PJAC(:,48,15)=+0.5562513*TPK%K335(:)*PCONC(:,50)+TPK%K337(:)*PCONC(:,51)
-!
-!URG2/ETHE=0.0
-!
-!URG2/OLEL=0.0
-!
-!URG2/OLEH=0.0
-!
-!URG2/ALKL=0.0
-!
-!URG2/ALKM=0.0
-!
-!URG2/ALKH=0.0
-!
-!URG2/AROH=0.0
-!
-!URG2/AROL=0.0
-!
-!URG2/AROO=0.0
-!
-!URG2/ARAL=0.0
-!
-!URG2/ARAC=0.0
-!
-!URG2/PAH=0.0
-!
-!URG2/HCHO=0.0
-!
-!URG2/ALD2=0.0
-!
-!URG2/KETL=0.0
-!
-!URG2/KETH=0.0
-!
-!URG2/MEOH=0.0
-!
-!URG2/ETOH=0.0
-!
-!URG2/ALCH=0.0
-!
-!URG2/ISOP=0.0
-!
-!URG2/BIOL=0.0
-!
-!URG2/BIOH=0.0
-!
-!URG2/MTBE=0.0
-!
-!URG2/MVK=0.0
-!
-!URG2/MCR=0.0
-!
-!URG2/MGLY=0.0
-!
-!URG2/GLY=0.0
-!
-!URG2/ORA1=0.0
-!
-!URG2/ORA2=0.0
-!
-!URG2/ACID=0.0
-!
-!URG2/UR28=0.0
-!
-!URG2/UR21=0.0
-!
-!URG2/URG2=-K350
- PJAC(:,48,48)=-TPK%K350(:)
-!
-!URG2/UR26=0.0
-!
-!URG2/RPG2=+0.5562513*K335*<OH>
- PJAC(:,48,50)=+0.5562513*TPK%K335(:)*PCONC(:,15)
-!
-!URG2/RP18=+K337*<OH>
- PJAC(:,48,51)=+TPK%K337(:)*PCONC(:,15)
-!
-!URG2/RPG3=0.0
-!
-!URG2/URG4=0.0
-!
-!URG2/UR8=0.0
-!
-!URG2/UR17=0.0
-!
-!URG2/UR7=0.0
-!
-!URG2/RPR3=0.0
-!
-!URG2/URG6=0.0
-!
-!URG2/UR22=0.0
-!
-!URG2/URG7=0.0
-!
-!URG2/RPR4=0.0
-!
-!URG2/RPR7=0.0
-!
-!URG2/RPG7=0.0
-!
-!URG2/URG8=0.0
-!
-!URG2/UR19=0.0
-!
-!URG2/URG9=0.0
-!
-!URG2/AP7=0.0
-!
-!URG2/URG10=0.0
-!
-!URG2/RPR1=0.0
-!
-!URG2/RPR5=0.0
-!
-!URG2/RPR8=0.0
-!
-!URG2/RP10=0.0
-!
-!URG2/RP11=0.0
-!
-!URG2/RP16=0.0
-!
-!URG2/RPRL=0.0
-!
-!URG2/APAN=0.0
-!
-!URG2/PAN1=0.0
-!
-!URG2/PAN2=0.0
-!
-!URG2/PAN3=0.0
-!
-!URG2/PAN4=0.0
-!
-!URG2/PAN6=0.0
-!
-!URG2/PAN7=0.0
-!
-!URG2/PAN8=0.0
-!
-!URG2/PN10=0.0
-!
-!URG2/RO2T=0.0
-!
-!URG2/RO21=0.0
-!
-!URG2/RO25=0.0
-!
-!URG2/WC_O3=0.0
-!
-!URG2/WC_H2O2=0.0
-!
-!URG2/WC_NO=0.0
-!
-!URG2/WC_NO2=0.0
-!
-!URG2/WC_NO3=0.0
-!
-!URG2/WC_N2O5=0.0
-!
-!URG2/WC_HONO=0.0
-!
-!URG2/WC_HNO3=0.0
-!
-!URG2/WC_HNO4=0.0
-!
-!URG2/WC_NH3=0.0
-!
-!URG2/WC_OH=0.0
-!
-!URG2/WC_HO2=0.0
-!
-!URG2/WC_CO2=0.0
-!
-!URG2/WC_SO2=0.0
-!
-!URG2/WC_H2SO4=0.0
-!
-!URG2/WC_RO21=0.0
-!
-!URG2/WC_RO25=0.0
-!
-!URG2/WC_MEOH=0.0
-!
-!URG2/WC_ETOH=0.0
-!
-!URG2/WC_ALCH=0.0
-!
-!URG2/WC_HCHO=0.0
-!
-!URG2/WC_ALD2=0.0
-!
-!URG2/WC_GLY=0.0
-!
-!URG2/WC_MGLY=0.0
-!
-!URG2/WC_KETL=0.0
-!
-!URG2/WC_ORA1=0.0
-!
-!URG2/WC_ORA2=0.0
-!
-!URG2/WC_ACID=0.0
-!
-!URG2/WC_RP16=0.0
-!
-!URG2/WC_UR21=0.0
-!
-!URG2/WC_UR28=0.0
-!
-!URG2/WC_ACID2=0.0
-!
-!URG2/WC_ASO3=0.0
-!
-!URG2/WC_ASO4=0.0
-!
-!URG2/WC_ASO5=0.0
-!
-!URG2/WC_AHSO5=0.0
-!
-!URG2/WC_AHMS=0.0
-!
-!URG2/WR_O3=0.0
-!
-!URG2/WR_H2O2=0.0
-!
-!URG2/WR_NO=0.0
-!
-!URG2/WR_NO2=0.0
-!
-!URG2/WR_NO3=0.0
-!
-!URG2/WR_N2O5=0.0
-!
-!URG2/WR_HONO=0.0
-!
-!URG2/WR_HNO3=0.0
-!
-!URG2/WR_HNO4=0.0
-!
-!URG2/WR_NH3=0.0
-!
-!URG2/WR_OH=0.0
-!
-!URG2/WR_HO2=0.0
-!
-!URG2/WR_CO2=0.0
-!
-!URG2/WR_SO2=0.0
-!
-!URG2/WR_H2SO4=0.0
-!
-!URG2/WR_RO21=0.0
-!
-!URG2/WR_RO25=0.0
-!
-!URG2/WR_MEOH=0.0
-!
-!URG2/WR_ETOH=0.0
-!
-!URG2/WR_ALCH=0.0
-!
-!URG2/WR_HCHO=0.0
-!
-!URG2/WR_ALD2=0.0
-!
-!URG2/WR_GLY=0.0
-!
-!URG2/WR_MGLY=0.0
-!
-!URG2/WR_KETL=0.0
-!
-!URG2/WR_ORA1=0.0
-!
-!URG2/WR_ORA2=0.0
-!
-!URG2/WR_ACID=0.0
-!
-!URG2/WR_RP16=0.0
-!
-!URG2/WR_UR21=0.0
-!
-!URG2/WR_UR28=0.0
-!
-!URG2/WR_ACID2=0.0
-!
-!URG2/WR_ASO3=0.0
-!
-!URG2/WR_ASO4=0.0
-!
-!URG2/WR_ASO5=0.0
-!
-!URG2/WR_AHSO5=0.0
-!
-!URG2/WR_AHMS=0.0
-!
-!UR26/NO=0.0
-!
-!UR26/NO2=0.0
-!
-!UR26/O3=0.0
-!
-!UR26/HONO=0.0
-!
-!UR26/HNO3=0.0
-!
-!UR26/HNO4=0.0
-!
-!UR26/N2O5=0.0
-!
-!UR26/NO3=0.0
-!
-!UR26/NH3=0.0
-!
-!UR26/HO2=0.0
-!
-!UR26/CO=0.0
-!
-!UR26/H2O2=0.0
-!
-!UR26/SO2=0.0
-!
-!UR26/H2SO4=0.0
-!
-!UR26/OH=+0.67*K326*<RP11>
- PJAC(:,49,15)=+0.67*TPK%K326(:)*PCONC(:,73)
-!
-!UR26/ETHE=0.0
-!
-!UR26/OLEL=0.0
-!
-!UR26/OLEH=0.0
-!
-!UR26/ALKL=0.0
-!
-!UR26/ALKM=0.0
-!
-!UR26/ALKH=0.0
-!
-!UR26/AROH=0.0
-!
-!UR26/AROL=0.0
-!
-!UR26/AROO=0.0
-!
-!UR26/ARAL=0.0
-!
-!UR26/ARAC=0.0
-!
-!UR26/PAH=0.0
-!
-!UR26/HCHO=0.0
-!
-!UR26/ALD2=0.0
-!
-!UR26/KETL=0.0
-!
-!UR26/KETH=0.0
-!
-!UR26/MEOH=0.0
-!
-!UR26/ETOH=0.0
-!
-!UR26/ALCH=0.0
-!
-!UR26/ISOP=0.0
-!
-!UR26/BIOL=0.0
-!
-!UR26/BIOH=0.0
-!
-!UR26/MTBE=0.0
-!
-!UR26/MVK=0.0
-!
-!UR26/MCR=0.0
-!
-!UR26/MGLY=0.0
-!
-!UR26/GLY=0.0
-!
-!UR26/ORA1=0.0
-!
-!UR26/ORA2=0.0
-!
-!UR26/ACID=0.0
-!
-!UR26/UR28=0.0
-!
-!UR26/UR21=0.0
-!
-!UR26/URG2=0.0
-!
-!UR26/UR26=-K363
- PJAC(:,49,49)=-TPK%K363(:)
-!
-!UR26/RPG2=0.0
-!
-!UR26/RP18=0.0
-!
-!UR26/RPG3=0.0
-!
-!UR26/URG4=0.0
-!
-!UR26/UR8=0.0
-!
-!UR26/UR17=0.0
-!
-!UR26/UR7=0.0
-!
-!UR26/RPR3=0.0
-!
-!UR26/URG6=0.0
-!
-!UR26/UR22=0.0
-!
-!UR26/URG7=0.0
-!
-!UR26/RPR4=0.0
-!
-!UR26/RPR7=0.0
-!
-!UR26/RPG7=0.0
-!
-!UR26/URG8=0.0
-!
-!UR26/UR19=0.0
-!
-!UR26/URG9=0.0
-!
-!UR26/AP7=0.0
-!
-!UR26/URG10=0.0
-!
-!UR26/RPR1=0.0
-!
-!UR26/RPR5=0.0
-!
-!UR26/RPR8=0.0
-!
-!UR26/RP10=0.0
-!
-!UR26/RP11=+0.67*K326*<OH>
- PJAC(:,49,73)=+0.67*TPK%K326(:)*PCONC(:,15)
-!
-!UR26/RP16=0.0
-!
-!UR26/RPRL=0.0
-!
-!UR26/APAN=0.0
-!
-!UR26/PAN1=0.0
-!
-!UR26/PAN2=0.0
-!
-!UR26/PAN3=0.0
-!
-!UR26/PAN4=0.0
-!
-!UR26/PAN6=0.0
-!
-!UR26/PAN7=0.0
-!
-!UR26/PAN8=0.0
-!
-!UR26/PN10=0.0
-!
-!UR26/RO2T=0.0
-!
-!UR26/RO21=0.0
-!
-!UR26/RO25=0.0
-!
-!UR26/WC_O3=0.0
-!
-!UR26/WC_H2O2=0.0
-!
-!UR26/WC_NO=0.0
-!
-!UR26/WC_NO2=0.0
-!
-!UR26/WC_NO3=0.0
-!
-!UR26/WC_N2O5=0.0
-!
-!UR26/WC_HONO=0.0
-!
-!UR26/WC_HNO3=0.0
-!
-!UR26/WC_HNO4=0.0
-!
-!UR26/WC_NH3=0.0
-!
-!UR26/WC_OH=0.0
-!
-!UR26/WC_HO2=0.0
-!
-!UR26/WC_CO2=0.0
-!
-!UR26/WC_SO2=0.0
-!
-!UR26/WC_H2SO4=0.0
-!
-!UR26/WC_RO21=0.0
-!
-!UR26/WC_RO25=0.0
-!
-!UR26/WC_MEOH=0.0
-!
-!UR26/WC_ETOH=0.0
-!
-!UR26/WC_ALCH=0.0
-!
-!UR26/WC_HCHO=0.0
-!
-!UR26/WC_ALD2=0.0
-!
-!UR26/WC_GLY=0.0
-!
-!UR26/WC_MGLY=0.0
-!
-!UR26/WC_KETL=0.0
-!
-!UR26/WC_ORA1=0.0
-!
-!UR26/WC_ORA2=0.0
-!
-!UR26/WC_ACID=0.0
-!
-!UR26/WC_RP16=0.0
-!
-!UR26/WC_UR21=0.0
-!
-!UR26/WC_UR28=0.0
-!
-!UR26/WC_ACID2=0.0
-!
-!UR26/WC_ASO3=0.0
-!
-!UR26/WC_ASO4=0.0
-!
-!UR26/WC_ASO5=0.0
-!
-!UR26/WC_AHSO5=0.0
-!
-!UR26/WC_AHMS=0.0
-!
-!UR26/WR_O3=0.0
-!
-!UR26/WR_H2O2=0.0
-!
-!UR26/WR_NO=0.0
-!
-!UR26/WR_NO2=0.0
-!
-!UR26/WR_NO3=0.0
-!
-!UR26/WR_N2O5=0.0
-!
-!UR26/WR_HONO=0.0
-!
-!UR26/WR_HNO3=0.0
-!
-!UR26/WR_HNO4=0.0
-!
-!UR26/WR_NH3=0.0
-!
-!UR26/WR_OH=0.0
-!
-!UR26/WR_HO2=0.0
-!
-!UR26/WR_CO2=0.0
-!
-!UR26/WR_SO2=0.0
-!
-!UR26/WR_H2SO4=0.0
-!
-!UR26/WR_RO21=0.0
-!
-!UR26/WR_RO25=0.0
-!
-!UR26/WR_MEOH=0.0
-!
-!UR26/WR_ETOH=0.0
-!
-!UR26/WR_ALCH=0.0
-!
-!UR26/WR_HCHO=0.0
-!
-!UR26/WR_ALD2=0.0
-!
-!UR26/WR_GLY=0.0
-!
-!UR26/WR_MGLY=0.0
-!
-!UR26/WR_KETL=0.0
-!
-!UR26/WR_ORA1=0.0
-!
-!UR26/WR_ORA2=0.0
-!
-!UR26/WR_ACID=0.0
-!
-!UR26/WR_RP16=0.0
-!
-!UR26/WR_UR21=0.0
-!
-!UR26/WR_UR28=0.0
-!
-!UR26/WR_ACID2=0.0
-!
-!UR26/WR_ASO3=0.0
-!
-!UR26/WR_ASO4=0.0
-!
-!UR26/WR_ASO5=0.0
-!
-!UR26/WR_AHSO5=0.0
-!
-!UR26/WR_AHMS=0.0
-!
-!RPG2/NO=+0.3000000*K259*<RO237>
- PJAC(:,50,1)=+0.3000000*TPK%K259(:)*TPK%RO237(:)
-!
-!RPG2/NO2=0.0
-!
-!RPG2/O3=0.0
-!
-!RPG2/HONO=0.0
-!
-!RPG2/HNO3=0.0
-!
-!RPG2/HNO4=0.0
-!
-!RPG2/N2O5=0.0
-!
-!RPG2/NO3=0.0
-!
-!RPG2/NH3=0.0
-!
-!RPG2/HO2=+0.3000000*K261*<RO237>
- PJAC(:,50,10)=+0.3000000*TPK%K261(:)*TPK%RO237(:)
-!
-!RPG2/CO=0.0
-!
-!RPG2/H2O2=0.0
-!
-!RPG2/SO2=0.0
-!
-!RPG2/H2SO4=0.0
-!
-!RPG2/OH=+0.1191897*K334*<RPG3>+0.8808107*K334*<RPG3>-K335*<RPG2>
- PJAC(:,50,15)=+0.1191897*TPK%K334(:)*PCONC(:,52)+0.8808107*TPK%K334(:)*PCONC(:&
-&,52)-TPK%K335(:)*PCONC(:,50)
-!
-!RPG2/ETHE=0.0
-!
-!RPG2/OLEL=0.0
-!
-!RPG2/OLEH=0.0
-!
-!RPG2/ALKL=0.0
-!
-!RPG2/ALKM=0.0
-!
-!RPG2/ALKH=0.0
-!
-!RPG2/AROH=0.0
-!
-!RPG2/AROL=0.0
-!
-!RPG2/AROO=0.0
-!
-!RPG2/ARAL=0.0
-!
-!RPG2/ARAC=0.0
-!
-!RPG2/PAH=0.0
-!
-!RPG2/HCHO=0.0
-!
-!RPG2/ALD2=0.0
-!
-!RPG2/KETL=0.0
-!
-!RPG2/KETH=0.0
-!
-!RPG2/MEOH=0.0
-!
-!RPG2/ETOH=0.0
-!
-!RPG2/ALCH=0.0
-!
-!RPG2/ISOP=0.0
-!
-!RPG2/BIOL=0.0
-!
-!RPG2/BIOH=0.0
-!
-!RPG2/MTBE=0.0
-!
-!RPG2/MVK=0.0
-!
-!RPG2/MCR=0.0
-!
-!RPG2/MGLY=0.0
-!
-!RPG2/GLY=0.0
-!
-!RPG2/ORA1=0.0
-!
-!RPG2/ORA2=0.0
-!
-!RPG2/ACID=0.0
-!
-!RPG2/UR28=0.0
-!
-!RPG2/UR21=0.0
-!
-!RPG2/URG2=0.0
-!
-!RPG2/UR26=0.0
-!
-!RPG2/RPG2=-K335*<OH>
- PJAC(:,50,50)=-TPK%K335(:)*PCONC(:,15)
-!
-!RPG2/RP18=0.0
-!
-!RPG2/RPG3=+0.1191897*K334*<OH>+0.8808107*K334*<OH>
- PJAC(:,50,52)=+0.1191897*TPK%K334(:)*PCONC(:,15)+0.8808107*TPK%K334(:)*PCONC(:&
-&,15)
-!
-!RPG2/URG4=0.0
-!
-!RPG2/UR8=0.0
-!
-!RPG2/UR17=0.0
-!
-!RPG2/UR7=0.0
-!
-!RPG2/RPR3=0.0
-!
-!RPG2/URG6=0.0
-!
-!RPG2/UR22=0.0
-!
-!RPG2/URG7=0.0
-!
-!RPG2/RPR4=0.0
-!
-!RPG2/RPR7=0.0
-!
-!RPG2/RPG7=0.0
-!
-!RPG2/URG8=0.0
-!
-!RPG2/UR19=0.0
-!
-!RPG2/URG9=0.0
-!
-!RPG2/AP7=0.0
-!
-!RPG2/URG10=0.0
-!
-!RPG2/RPR1=0.0
-!
-!RPG2/RPR5=0.0
-!
-!RPG2/RPR8=0.0
-!
-!RPG2/RP10=0.0
-!
-!RPG2/RP11=0.0
-!
-!RPG2/RP16=0.0
-!
-!RPG2/RPRL=0.0
-!
-!RPG2/APAN=0.0
-!
-!RPG2/PAN1=0.0
-!
-!RPG2/PAN2=0.0
-!
-!RPG2/PAN3=0.0
-!
-!RPG2/PAN4=0.0
-!
-!RPG2/PAN6=0.0
-!
-!RPG2/PAN7=0.0
-!
-!RPG2/PAN8=0.0
-!
-!RPG2/PN10=0.0
-!
-!RPG2/RO2T=+1.0000000*K260*<RO237>
- PJAC(:,50,85)=+1.0000000*TPK%K260(:)*TPK%RO237(:)
-!
-!RPG2/RO21=0.0
-!
-!RPG2/RO25=0.0
-!
-!RPG2/WC_O3=0.0
-!
-!RPG2/WC_H2O2=0.0
-!
-!RPG2/WC_NO=0.0
-!
-!RPG2/WC_NO2=0.0
-!
-!RPG2/WC_NO3=0.0
-!
-!RPG2/WC_N2O5=0.0
-!
-!RPG2/WC_HONO=0.0
-!
-!RPG2/WC_HNO3=0.0
-!
-!RPG2/WC_HNO4=0.0
-!
-!RPG2/WC_NH3=0.0
-!
-!RPG2/WC_OH=0.0
-!
-!RPG2/WC_HO2=0.0
-!
-!RPG2/WC_CO2=0.0
-!
-!RPG2/WC_SO2=0.0
-!
-!RPG2/WC_H2SO4=0.0
-!
-!RPG2/WC_RO21=0.0
-!
-!RPG2/WC_RO25=0.0
-!
-!RPG2/WC_MEOH=0.0
-!
-!RPG2/WC_ETOH=0.0
-!
-!RPG2/WC_ALCH=0.0
-!
-!RPG2/WC_HCHO=0.0
-!
-!RPG2/WC_ALD2=0.0
-!
-!RPG2/WC_GLY=0.0
-!
-!RPG2/WC_MGLY=0.0
-!
-!RPG2/WC_KETL=0.0
-!
-!RPG2/WC_ORA1=0.0
-!
-!RPG2/WC_ORA2=0.0
-!
-!RPG2/WC_ACID=0.0
-!
-!RPG2/WC_RP16=0.0
-!
-!RPG2/WC_UR21=0.0
-!
-!RPG2/WC_UR28=0.0
-!
-!RPG2/WC_ACID2=0.0
-!
-!RPG2/WC_ASO3=0.0
-!
-!RPG2/WC_ASO4=0.0
-!
-!RPG2/WC_ASO5=0.0
-!
-!RPG2/WC_AHSO5=0.0
-!
-!RPG2/WC_AHMS=0.0
-!
-!RPG2/WR_O3=0.0
-!
-!RPG2/WR_H2O2=0.0
-!
-!RPG2/WR_NO=0.0
-!
-!RPG2/WR_NO2=0.0
-!
-!RPG2/WR_NO3=0.0
-!
-!RPG2/WR_N2O5=0.0
-!
-!RPG2/WR_HONO=0.0
-!
-!RPG2/WR_HNO3=0.0
-!
-!RPG2/WR_HNO4=0.0
-!
-!RPG2/WR_NH3=0.0
-!
-!RPG2/WR_OH=0.0
-!
-!RPG2/WR_HO2=0.0
-!
-!RPG2/WR_CO2=0.0
-!
-!RPG2/WR_SO2=0.0
-!
-!RPG2/WR_H2SO4=0.0
-!
-!RPG2/WR_RO21=0.0
-!
-!RPG2/WR_RO25=0.0
-!
-!RPG2/WR_MEOH=0.0
-!
-!RPG2/WR_ETOH=0.0
-!
-!RPG2/WR_ALCH=0.0
-!
-!RPG2/WR_HCHO=0.0
-!
-!RPG2/WR_ALD2=0.0
-!
-!RPG2/WR_GLY=0.0
-!
-!RPG2/WR_MGLY=0.0
-!
-!RPG2/WR_KETL=0.0
-!
-!RPG2/WR_ORA1=0.0
-!
-!RPG2/WR_ORA2=0.0
-!
-!RPG2/WR_ACID=0.0
-!
-!RPG2/WR_RP16=0.0
-!
-!RPG2/WR_UR21=0.0
-!
-!RPG2/WR_UR28=0.0
-!
-!RPG2/WR_ACID2=0.0
-!
-!RPG2/WR_ASO3=0.0
-!
-!RPG2/WR_ASO4=0.0
-!
-!RPG2/WR_ASO5=0.0
-!
-!RPG2/WR_AHSO5=0.0
-!
-!RPG2/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ9
-!
-SUBROUTINE SUBJ10
-!
-!Indices 51 a 55
-!
-!
-!RP18/NO=0.0
-!
-!RP18/NO2=0.0
-!
-!RP18/O3=0.0
-!
-!RP18/HONO=0.0
-!
-!RP18/HNO3=0.0
-!
-!RP18/HNO4=0.0
-!
-!RP18/N2O5=0.0
-!
-!RP18/NO3=0.0
-!
-!RP18/NH3=0.0
-!
-!RP18/HO2=0.0
-!
-!RP18/CO=0.0
-!
-!RP18/H2O2=0.0
-!
-!RP18/SO2=0.0
-!
-!RP18/H2SO4=0.0
-!
-!RP18/OH=+0.4437492*K335*<RPG2>-K337*<RP18>
- PJAC(:,51,15)=+0.4437492*TPK%K335(:)*PCONC(:,50)-TPK%K337(:)*PCONC(:,51)
-!
-!RP18/ETHE=0.0
-!
-!RP18/OLEL=0.0
-!
-!RP18/OLEH=0.0
-!
-!RP18/ALKL=0.0
-!
-!RP18/ALKM=0.0
-!
-!RP18/ALKH=0.0
-!
-!RP18/AROH=0.0
-!
-!RP18/AROL=0.0
-!
-!RP18/AROO=0.0
-!
-!RP18/ARAL=0.0
-!
-!RP18/ARAC=0.0
-!
-!RP18/PAH=0.0
-!
-!RP18/HCHO=0.0
-!
-!RP18/ALD2=0.0
-!
-!RP18/KETL=0.0
-!
-!RP18/KETH=0.0
-!
-!RP18/MEOH=0.0
-!
-!RP18/ETOH=0.0
-!
-!RP18/ALCH=0.0
-!
-!RP18/ISOP=0.0
-!
-!RP18/BIOL=0.0
-!
-!RP18/BIOH=0.0
-!
-!RP18/MTBE=0.0
-!
-!RP18/MVK=0.0
-!
-!RP18/MCR=0.0
-!
-!RP18/MGLY=0.0
-!
-!RP18/GLY=0.0
-!
-!RP18/ORA1=0.0
-!
-!RP18/ORA2=0.0
-!
-!RP18/ACID=0.0
-!
-!RP18/UR28=0.0
-!
-!RP18/UR21=0.0
-!
-!RP18/URG2=0.0
-!
-!RP18/UR26=0.0
-!
-!RP18/RPG2=+0.4437492*K335*<OH>
- PJAC(:,51,50)=+0.4437492*TPK%K335(:)*PCONC(:,15)
-!
-!RP18/RP18=-K337*<OH>
- PJAC(:,51,51)=-TPK%K337(:)*PCONC(:,15)
-!
-!RP18/RPG3=0.0
-!
-!RP18/URG4=0.0
-!
-!RP18/UR8=0.0
-!
-!RP18/UR17=0.0
-!
-!RP18/UR7=0.0
-!
-!RP18/RPR3=0.0
-!
-!RP18/URG6=0.0
-!
-!RP18/UR22=0.0
-!
-!RP18/URG7=0.0
-!
-!RP18/RPR4=0.0
-!
-!RP18/RPR7=0.0
-!
-!RP18/RPG7=0.0
-!
-!RP18/URG8=0.0
-!
-!RP18/UR19=0.0
-!
-!RP18/URG9=0.0
-!
-!RP18/AP7=0.0
-!
-!RP18/URG10=0.0
-!
-!RP18/RPR1=0.0
-!
-!RP18/RPR5=0.0
-!
-!RP18/RPR8=0.0
-!
-!RP18/RP10=0.0
-!
-!RP18/RP11=0.0
-!
-!RP18/RP16=0.0
-!
-!RP18/RPRL=0.0
-!
-!RP18/APAN=0.0
-!
-!RP18/PAN1=0.0
-!
-!RP18/PAN2=0.0
-!
-!RP18/PAN3=0.0
-!
-!RP18/PAN4=0.0
-!
-!RP18/PAN6=0.0
-!
-!RP18/PAN7=0.0
-!
-!RP18/PAN8=0.0
-!
-!RP18/PN10=0.0
-!
-!RP18/RO2T=0.0
-!
-!RP18/RO21=0.0
-!
-!RP18/RO25=0.0
-!
-!RP18/WC_O3=0.0
-!
-!RP18/WC_H2O2=0.0
-!
-!RP18/WC_NO=0.0
-!
-!RP18/WC_NO2=0.0
-!
-!RP18/WC_NO3=0.0
-!
-!RP18/WC_N2O5=0.0
-!
-!RP18/WC_HONO=0.0
-!
-!RP18/WC_HNO3=0.0
-!
-!RP18/WC_HNO4=0.0
-!
-!RP18/WC_NH3=0.0
-!
-!RP18/WC_OH=0.0
-!
-!RP18/WC_HO2=0.0
-!
-!RP18/WC_CO2=0.0
-!
-!RP18/WC_SO2=0.0
-!
-!RP18/WC_H2SO4=0.0
-!
-!RP18/WC_RO21=0.0
-!
-!RP18/WC_RO25=0.0
-!
-!RP18/WC_MEOH=0.0
-!
-!RP18/WC_ETOH=0.0
-!
-!RP18/WC_ALCH=0.0
-!
-!RP18/WC_HCHO=0.0
-!
-!RP18/WC_ALD2=0.0
-!
-!RP18/WC_GLY=0.0
-!
-!RP18/WC_MGLY=0.0
-!
-!RP18/WC_KETL=0.0
-!
-!RP18/WC_ORA1=0.0
-!
-!RP18/WC_ORA2=0.0
-!
-!RP18/WC_ACID=0.0
-!
-!RP18/WC_RP16=0.0
-!
-!RP18/WC_UR21=0.0
-!
-!RP18/WC_UR28=0.0
-!
-!RP18/WC_ACID2=0.0
-!
-!RP18/WC_ASO3=0.0
-!
-!RP18/WC_ASO4=0.0
-!
-!RP18/WC_ASO5=0.0
-!
-!RP18/WC_AHSO5=0.0
-!
-!RP18/WC_AHMS=0.0
-!
-!RP18/WR_O3=0.0
-!
-!RP18/WR_H2O2=0.0
-!
-!RP18/WR_NO=0.0
-!
-!RP18/WR_NO2=0.0
-!
-!RP18/WR_NO3=0.0
-!
-!RP18/WR_N2O5=0.0
-!
-!RP18/WR_HONO=0.0
-!
-!RP18/WR_HNO3=0.0
-!
-!RP18/WR_HNO4=0.0
-!
-!RP18/WR_NH3=0.0
-!
-!RP18/WR_OH=0.0
-!
-!RP18/WR_HO2=0.0
-!
-!RP18/WR_CO2=0.0
-!
-!RP18/WR_SO2=0.0
-!
-!RP18/WR_H2SO4=0.0
-!
-!RP18/WR_RO21=0.0
-!
-!RP18/WR_RO25=0.0
-!
-!RP18/WR_MEOH=0.0
-!
-!RP18/WR_ETOH=0.0
-!
-!RP18/WR_ALCH=0.0
-!
-!RP18/WR_HCHO=0.0
-!
-!RP18/WR_ALD2=0.0
-!
-!RP18/WR_GLY=0.0
-!
-!RP18/WR_MGLY=0.0
-!
-!RP18/WR_KETL=0.0
-!
-!RP18/WR_ORA1=0.0
-!
-!RP18/WR_ORA2=0.0
-!
-!RP18/WR_ACID=0.0
-!
-!RP18/WR_RP16=0.0
-!
-!RP18/WR_UR21=0.0
-!
-!RP18/WR_UR28=0.0
-!
-!RP18/WR_ACID2=0.0
-!
-!RP18/WR_ASO3=0.0
-!
-!RP18/WR_ASO4=0.0
-!
-!RP18/WR_ASO5=0.0
-!
-!RP18/WR_AHSO5=0.0
-!
-!RP18/WR_AHMS=0.0
-!
-!RPG3/NO=+0.3000000*K231*<RO233>+0.3000000*K252*<RO236>
- PJAC(:,52,1)=+0.3000000*TPK%K231(:)*TPK%RO233(:)+0.3000000*TPK%K252(:)*TPK%RO2&
-&36(:)
-!
-!RPG3/NO2=0.0
-!
-!RPG3/O3=0.0
-!
-!RPG3/HONO=0.0
-!
-!RPG3/HNO3=0.0
-!
-!RPG3/HNO4=0.0
-!
-!RPG3/N2O5=0.0
-!
-!RPG3/NO3=0.0
-!
-!RPG3/NH3=0.0
-!
-!RPG3/HO2=+0.3000000*K233*<RO233>+0.3000000*K254*<RO236>
- PJAC(:,52,10)=+0.3000000*TPK%K233(:)*TPK%RO233(:)+0.3000000*TPK%K254(:)*TPK%RO&
-&236(:)
-!
-!RPG3/CO=0.0
-!
-!RPG3/H2O2=0.0
-!
-!RPG3/SO2=0.0
-!
-!RPG3/H2SO4=0.0
-!
-!RPG3/OH=-K334*<RPG3>
- PJAC(:,52,15)=-TPK%K334(:)*PCONC(:,52)
-!
-!RPG3/ETHE=0.0
-!
-!RPG3/OLEL=0.0
-!
-!RPG3/OLEH=0.0
-!
-!RPG3/ALKL=0.0
-!
-!RPG3/ALKM=0.0
-!
-!RPG3/ALKH=0.0
-!
-!RPG3/AROH=0.0
-!
-!RPG3/AROL=0.0
-!
-!RPG3/AROO=0.0
-!
-!RPG3/ARAL=0.0
-!
-!RPG3/ARAC=0.0
-!
-!RPG3/PAH=0.0
-!
-!RPG3/HCHO=0.0
-!
-!RPG3/ALD2=0.0
-!
-!RPG3/KETL=0.0
-!
-!RPG3/KETH=0.0
-!
-!RPG3/MEOH=0.0
-!
-!RPG3/ETOH=0.0
-!
-!RPG3/ALCH=0.0
-!
-!RPG3/ISOP=0.0
-!
-!RPG3/BIOL=0.0
-!
-!RPG3/BIOH=0.0
-!
-!RPG3/MTBE=0.0
-!
-!RPG3/MVK=0.0
-!
-!RPG3/MCR=0.0
-!
-!RPG3/MGLY=0.0
-!
-!RPG3/GLY=0.0
-!
-!RPG3/ORA1=0.0
-!
-!RPG3/ORA2=0.0
-!
-!RPG3/ACID=0.0
-!
-!RPG3/UR28=0.0
-!
-!RPG3/UR21=0.0
-!
-!RPG3/URG2=0.0
-!
-!RPG3/UR26=0.0
-!
-!RPG3/RPG2=0.0
-!
-!RPG3/RP18=0.0
-!
-!RPG3/RPG3=-K334*<OH>
- PJAC(:,52,52)=-TPK%K334(:)*PCONC(:,15)
-!
-!RPG3/URG4=0.0
-!
-!RPG3/UR8=0.0
-!
-!RPG3/UR17=0.0
-!
-!RPG3/UR7=0.0
-!
-!RPG3/RPR3=0.0
-!
-!RPG3/URG6=0.0
-!
-!RPG3/UR22=0.0
-!
-!RPG3/URG7=0.0
-!
-!RPG3/RPR4=0.0
-!
-!RPG3/RPR7=0.0
-!
-!RPG3/RPG7=0.0
-!
-!RPG3/URG8=0.0
-!
-!RPG3/UR19=0.0
-!
-!RPG3/URG9=0.0
-!
-!RPG3/AP7=0.0
-!
-!RPG3/URG10=0.0
-!
-!RPG3/RPR1=0.0
-!
-!RPG3/RPR5=0.0
-!
-!RPG3/RPR8=0.0
-!
-!RPG3/RP10=0.0
-!
-!RPG3/RP11=0.0
-!
-!RPG3/RP16=0.0
-!
-!RPG3/RPRL=0.0
-!
-!RPG3/APAN=0.0
-!
-!RPG3/PAN1=0.0
-!
-!RPG3/PAN2=0.0
-!
-!RPG3/PAN3=0.0
-!
-!RPG3/PAN4=0.0
-!
-!RPG3/PAN6=0.0
-!
-!RPG3/PAN7=0.0
-!
-!RPG3/PAN8=0.0
-!
-!RPG3/PN10=0.0
-!
-!RPG3/RO2T=+1.0000000*K232*<RO233>+1.0000000*K253*<RO236>
- PJAC(:,52,85)=+1.0000000*TPK%K232(:)*TPK%RO233(:)+1.0000000*TPK%K253(:)*TPK%RO&
-&236(:)
-!
-!RPG3/RO21=0.0
-!
-!RPG3/RO25=0.0
-!
-!RPG3/WC_O3=0.0
-!
-!RPG3/WC_H2O2=0.0
-!
-!RPG3/WC_NO=0.0
-!
-!RPG3/WC_NO2=0.0
-!
-!RPG3/WC_NO3=0.0
-!
-!RPG3/WC_N2O5=0.0
-!
-!RPG3/WC_HONO=0.0
-!
-!RPG3/WC_HNO3=0.0
-!
-!RPG3/WC_HNO4=0.0
-!
-!RPG3/WC_NH3=0.0
-!
-!RPG3/WC_OH=0.0
-!
-!RPG3/WC_HO2=0.0
-!
-!RPG3/WC_CO2=0.0
-!
-!RPG3/WC_SO2=0.0
-!
-!RPG3/WC_H2SO4=0.0
-!
-!RPG3/WC_RO21=0.0
-!
-!RPG3/WC_RO25=0.0
-!
-!RPG3/WC_MEOH=0.0
-!
-!RPG3/WC_ETOH=0.0
-!
-!RPG3/WC_ALCH=0.0
-!
-!RPG3/WC_HCHO=0.0
-!
-!RPG3/WC_ALD2=0.0
-!
-!RPG3/WC_GLY=0.0
-!
-!RPG3/WC_MGLY=0.0
-!
-!RPG3/WC_KETL=0.0
-!
-!RPG3/WC_ORA1=0.0
-!
-!RPG3/WC_ORA2=0.0
-!
-!RPG3/WC_ACID=0.0
-!
-!RPG3/WC_RP16=0.0
-!
-!RPG3/WC_UR21=0.0
-!
-!RPG3/WC_UR28=0.0
-!
-!RPG3/WC_ACID2=0.0
-!
-!RPG3/WC_ASO3=0.0
-!
-!RPG3/WC_ASO4=0.0
-!
-!RPG3/WC_ASO5=0.0
-!
-!RPG3/WC_AHSO5=0.0
-!
-!RPG3/WC_AHMS=0.0
-!
-!RPG3/WR_O3=0.0
-!
-!RPG3/WR_H2O2=0.0
-!
-!RPG3/WR_NO=0.0
-!
-!RPG3/WR_NO2=0.0
-!
-!RPG3/WR_NO3=0.0
-!
-!RPG3/WR_N2O5=0.0
-!
-!RPG3/WR_HONO=0.0
-!
-!RPG3/WR_HNO3=0.0
-!
-!RPG3/WR_HNO4=0.0
-!
-!RPG3/WR_NH3=0.0
-!
-!RPG3/WR_OH=0.0
-!
-!RPG3/WR_HO2=0.0
-!
-!RPG3/WR_CO2=0.0
-!
-!RPG3/WR_SO2=0.0
-!
-!RPG3/WR_H2SO4=0.0
-!
-!RPG3/WR_RO21=0.0
-!
-!RPG3/WR_RO25=0.0
-!
-!RPG3/WR_MEOH=0.0
-!
-!RPG3/WR_ETOH=0.0
-!
-!RPG3/WR_ALCH=0.0
-!
-!RPG3/WR_HCHO=0.0
-!
-!RPG3/WR_ALD2=0.0
-!
-!RPG3/WR_GLY=0.0
-!
-!RPG3/WR_MGLY=0.0
-!
-!RPG3/WR_KETL=0.0
-!
-!RPG3/WR_ORA1=0.0
-!
-!RPG3/WR_ORA2=0.0
-!
-!RPG3/WR_ACID=0.0
-!
-!RPG3/WR_RP16=0.0
-!
-!RPG3/WR_UR21=0.0
-!
-!RPG3/WR_UR28=0.0
-!
-!RPG3/WR_ACID2=0.0
-!
-!RPG3/WR_ASO3=0.0
-!
-!RPG3/WR_ASO4=0.0
-!
-!RPG3/WR_ASO5=0.0
-!
-!RPG3/WR_AHSO5=0.0
-!
-!RPG3/WR_AHMS=0.0
-!
-!URG4/NO=0.0
-!
-!URG4/NO2=0.0
-!
-!URG4/O3=-02*K086*<BIOL>
- PJAC(:,53,3)=-02*TPK%K086(:)*PCONC(:,36)
-!
-!URG4/HONO=0.0
-!
-!URG4/HNO3=0.0
-!
-!URG4/HNO4=0.0
-!
-!URG4/N2O5=0.0
-!
-!URG4/NO3=0.0
-!
-!URG4/NH3=0.0
-!
-!URG4/HO2=+1.0000000*K318*<RO256>+1.0000000*K332*<RO257>
- PJAC(:,53,10)=+1.0000000*TPK%K318(:)*TPK%RO256(:)+1.0000000*TPK%K332(:)*TPK%RO&
-&257(:)
-!
-!URG4/CO=0.0
-!
-!URG4/H2O2=0.0
-!
-!URG4/SO2=0.0
-!
-!URG4/H2SO4=0.0
-!
-!URG4/OH=0.0
-!
-!URG4/ETHE=0.0
-!
-!URG4/OLEL=0.0
-!
-!URG4/OLEH=0.0
-!
-!URG4/ALKL=0.0
-!
-!URG4/ALKM=0.0
-!
-!URG4/ALKH=0.0
-!
-!URG4/AROH=0.0
-!
-!URG4/AROL=0.0
-!
-!URG4/AROO=0.0
-!
-!URG4/ARAL=0.0
-!
-!URG4/ARAC=0.0
-!
-!URG4/PAH=0.0
-!
-!URG4/HCHO=0.0
-!
-!URG4/ALD2=0.0
-!
-!URG4/KETL=0.0
-!
-!URG4/KETH=0.0
-!
-!URG4/MEOH=0.0
-!
-!URG4/ETOH=0.0
-!
-!URG4/ALCH=0.0
-!
-!URG4/ISOP=0.0
-!
-!URG4/BIOL=-02*K086*<O3>
- PJAC(:,53,36)=-02*TPK%K086(:)*PCONC(:,3)
-!
-!URG4/BIOH=0.0
-!
-!URG4/MTBE=0.0
-!
-!URG4/MVK=0.0
-!
-!URG4/MCR=0.0
-!
-!URG4/MGLY=0.0
-!
-!URG4/GLY=0.0
-!
-!URG4/ORA1=0.0
-!
-!URG4/ORA2=0.0
-!
-!URG4/ACID=0.0
-!
-!URG4/UR28=0.0
-!
-!URG4/UR21=0.0
-!
-!URG4/URG2=0.0
-!
-!URG4/UR26=0.0
-!
-!URG4/RPG2=0.0
-!
-!URG4/RP18=0.0
-!
-!URG4/RPG3=0.0
-!
-!URG4/URG4=-K351
- PJAC(:,53,53)=-TPK%K351(:)
-!
-!URG4/UR8=0.0
-!
-!URG4/UR17=0.0
-!
-!URG4/UR7=0.0
-!
-!URG4/RPR3=0.0
-!
-!URG4/URG6=0.0
-!
-!URG4/UR22=0.0
-!
-!URG4/URG7=0.0
-!
-!URG4/RPR4=0.0
-!
-!URG4/RPR7=0.0
-!
-!URG4/RPG7=0.0
-!
-!URG4/URG8=0.0
-!
-!URG4/UR19=0.0
-!
-!URG4/URG9=0.0
-!
-!URG4/AP7=0.0
-!
-!URG4/URG10=0.0
-!
-!URG4/RPR1=0.0
-!
-!URG4/RPR5=0.0
-!
-!URG4/RPR8=0.0
-!
-!URG4/RP10=0.0
-!
-!URG4/RP11=0.0
-!
-!URG4/RP16=0.0
-!
-!URG4/RPRL=0.0
-!
-!URG4/APAN=0.0
-!
-!URG4/PAN1=0.0
-!
-!URG4/PAN2=0.0
-!
-!URG4/PAN3=0.0
-!
-!URG4/PAN4=0.0
-!
-!URG4/PAN6=0.0
-!
-!URG4/PAN7=0.0
-!
-!URG4/PAN8=0.0
-!
-!URG4/PN10=0.0
-!
-!URG4/RO2T=0.0
-!
-!URG4/RO21=0.0
-!
-!URG4/RO25=0.0
-!
-!URG4/WC_O3=0.0
-!
-!URG4/WC_H2O2=0.0
-!
-!URG4/WC_NO=0.0
-!
-!URG4/WC_NO2=0.0
-!
-!URG4/WC_NO3=0.0
-!
-!URG4/WC_N2O5=0.0
-!
-!URG4/WC_HONO=0.0
-!
-!URG4/WC_HNO3=0.0
-!
-!URG4/WC_HNO4=0.0
-!
-!URG4/WC_NH3=0.0
-!
-!URG4/WC_OH=0.0
-!
-!URG4/WC_HO2=0.0
-!
-!URG4/WC_CO2=0.0
-!
-!URG4/WC_SO2=0.0
-!
-!URG4/WC_H2SO4=0.0
-!
-!URG4/WC_RO21=0.0
-!
-!URG4/WC_RO25=0.0
-!
-!URG4/WC_MEOH=0.0
-!
-!URG4/WC_ETOH=0.0
-!
-!URG4/WC_ALCH=0.0
-!
-!URG4/WC_HCHO=0.0
-!
-!URG4/WC_ALD2=0.0
-!
-!URG4/WC_GLY=0.0
-!
-!URG4/WC_MGLY=0.0
-!
-!URG4/WC_KETL=0.0
-!
-!URG4/WC_ORA1=0.0
-!
-!URG4/WC_ORA2=0.0
-!
-!URG4/WC_ACID=0.0
-!
-!URG4/WC_RP16=0.0
-!
-!URG4/WC_UR21=0.0
-!
-!URG4/WC_UR28=0.0
-!
-!URG4/WC_ACID2=0.0
-!
-!URG4/WC_ASO3=0.0
-!
-!URG4/WC_ASO4=0.0
-!
-!URG4/WC_ASO5=0.0
-!
-!URG4/WC_AHSO5=0.0
-!
-!URG4/WC_AHMS=0.0
-!
-!URG4/WR_O3=0.0
-!
-!URG4/WR_H2O2=0.0
-!
-!URG4/WR_NO=0.0
-!
-!URG4/WR_NO2=0.0
-!
-!URG4/WR_NO3=0.0
-!
-!URG4/WR_N2O5=0.0
-!
-!URG4/WR_HONO=0.0
-!
-!URG4/WR_HNO3=0.0
-!
-!URG4/WR_HNO4=0.0
-!
-!URG4/WR_NH3=0.0
-!
-!URG4/WR_OH=0.0
-!
-!URG4/WR_HO2=0.0
-!
-!URG4/WR_CO2=0.0
-!
-!URG4/WR_SO2=0.0
-!
-!URG4/WR_H2SO4=0.0
-!
-!URG4/WR_RO21=0.0
-!
-!URG4/WR_RO25=0.0
-!
-!URG4/WR_MEOH=0.0
-!
-!URG4/WR_ETOH=0.0
-!
-!URG4/WR_ALCH=0.0
-!
-!URG4/WR_HCHO=0.0
-!
-!URG4/WR_ALD2=0.0
-!
-!URG4/WR_GLY=0.0
-!
-!URG4/WR_MGLY=0.0
-!
-!URG4/WR_KETL=0.0
-!
-!URG4/WR_ORA1=0.0
-!
-!URG4/WR_ORA2=0.0
-!
-!URG4/WR_ACID=0.0
-!
-!URG4/WR_RP16=0.0
-!
-!URG4/WR_UR21=0.0
-!
-!URG4/WR_UR28=0.0
-!
-!URG4/WR_ACID2=0.0
-!
-!URG4/WR_ASO3=0.0
-!
-!URG4/WR_ASO4=0.0
-!
-!URG4/WR_ASO5=0.0
-!
-!URG4/WR_AHSO5=0.0
-!
-!URG4/WR_AHMS=0.0
-!
-!UR8/NO=0.0
-!
-!UR8/NO2=0.0
-!
-!UR8/O3=+0.055*K090*<BIOH>
- PJAC(:,54,3)=+0.055*TPK%K090(:)*PCONC(:,37)
-!
-!UR8/HONO=0.0
-!
-!UR8/HNO3=0.0
-!
-!UR8/HNO4=0.0
-!
-!UR8/N2O5=0.0
-!
-!UR8/NO3=0.0
-!
-!UR8/NH3=0.0
-!
-!UR8/HO2=0.0
-!
-!UR8/CO=0.0
-!
-!UR8/H2O2=0.0
-!
-!UR8/SO2=0.0
-!
-!UR8/H2SO4=0.0
-!
-!UR8/OH=0.0
-!
-!UR8/ETHE=0.0
-!
-!UR8/OLEL=0.0
-!
-!UR8/OLEH=0.0
-!
-!UR8/ALKL=0.0
-!
-!UR8/ALKM=0.0
-!
-!UR8/ALKH=0.0
-!
-!UR8/AROH=0.0
-!
-!UR8/AROL=0.0
-!
-!UR8/AROO=0.0
-!
-!UR8/ARAL=0.0
-!
-!UR8/ARAC=0.0
-!
-!UR8/PAH=0.0
-!
-!UR8/HCHO=0.0
-!
-!UR8/ALD2=0.0
-!
-!UR8/KETL=0.0
-!
-!UR8/KETH=0.0
-!
-!UR8/MEOH=0.0
-!
-!UR8/ETOH=0.0
-!
-!UR8/ALCH=0.0
-!
-!UR8/ISOP=0.0
-!
-!UR8/BIOL=0.0
-!
-!UR8/BIOH=+0.055*K090*<O3>
- PJAC(:,54,37)=+0.055*TPK%K090(:)*PCONC(:,3)
-!
-!UR8/MTBE=0.0
-!
-!UR8/MVK=0.0
-!
-!UR8/MCR=0.0
-!
-!UR8/MGLY=0.0
-!
-!UR8/GLY=0.0
-!
-!UR8/ORA1=0.0
-!
-!UR8/ORA2=0.0
-!
-!UR8/ACID=0.0
-!
-!UR8/UR28=0.0
-!
-!UR8/UR21=0.0
-!
-!UR8/URG2=0.0
-!
-!UR8/UR26=0.0
-!
-!UR8/RPG2=0.0
-!
-!UR8/RP18=0.0
-!
-!UR8/RPG3=0.0
-!
-!UR8/URG4=0.0
-!
-!UR8/UR8=-K358
- PJAC(:,54,54)=-TPK%K358(:)
-!
-!UR8/UR17=0.0
-!
-!UR8/UR7=0.0
-!
-!UR8/RPR3=0.0
-!
-!UR8/URG6=0.0
-!
-!UR8/UR22=0.0
-!
-!UR8/URG7=0.0
-!
-!UR8/RPR4=0.0
-!
-!UR8/RPR7=0.0
-!
-!UR8/RPG7=0.0
-!
-!UR8/URG8=0.0
-!
-!UR8/UR19=0.0
-!
-!UR8/URG9=0.0
-!
-!UR8/AP7=0.0
-!
-!UR8/URG10=0.0
-!
-!UR8/RPR1=0.0
-!
-!UR8/RPR5=0.0
-!
-!UR8/RPR8=0.0
-!
-!UR8/RP10=0.0
-!
-!UR8/RP11=0.0
-!
-!UR8/RP16=0.0
-!
-!UR8/RPRL=0.0
-!
-!UR8/APAN=0.0
-!
-!UR8/PAN1=0.0
-!
-!UR8/PAN2=0.0
-!
-!UR8/PAN3=0.0
-!
-!UR8/PAN4=0.0
-!
-!UR8/PAN6=0.0
-!
-!UR8/PAN7=0.0
-!
-!UR8/PAN8=0.0
-!
-!UR8/PN10=0.0
-!
-!UR8/RO2T=0.0
-!
-!UR8/RO21=0.0
-!
-!UR8/RO25=0.0
-!
-!UR8/WC_O3=0.0
-!
-!UR8/WC_H2O2=0.0
-!
-!UR8/WC_NO=0.0
-!
-!UR8/WC_NO2=0.0
-!
-!UR8/WC_NO3=0.0
-!
-!UR8/WC_N2O5=0.0
-!
-!UR8/WC_HONO=0.0
-!
-!UR8/WC_HNO3=0.0
-!
-!UR8/WC_HNO4=0.0
-!
-!UR8/WC_NH3=0.0
-!
-!UR8/WC_OH=0.0
-!
-!UR8/WC_HO2=0.0
-!
-!UR8/WC_CO2=0.0
-!
-!UR8/WC_SO2=0.0
-!
-!UR8/WC_H2SO4=0.0
-!
-!UR8/WC_RO21=0.0
-!
-!UR8/WC_RO25=0.0
-!
-!UR8/WC_MEOH=0.0
-!
-!UR8/WC_ETOH=0.0
-!
-!UR8/WC_ALCH=0.0
-!
-!UR8/WC_HCHO=0.0
-!
-!UR8/WC_ALD2=0.0
-!
-!UR8/WC_GLY=0.0
-!
-!UR8/WC_MGLY=0.0
-!
-!UR8/WC_KETL=0.0
-!
-!UR8/WC_ORA1=0.0
-!
-!UR8/WC_ORA2=0.0
-!
-!UR8/WC_ACID=0.0
-!
-!UR8/WC_RP16=0.0
-!
-!UR8/WC_UR21=0.0
-!
-!UR8/WC_UR28=0.0
-!
-!UR8/WC_ACID2=0.0
-!
-!UR8/WC_ASO3=0.0
-!
-!UR8/WC_ASO4=0.0
-!
-!UR8/WC_ASO5=0.0
-!
-!UR8/WC_AHSO5=0.0
-!
-!UR8/WC_AHMS=0.0
-!
-!UR8/WR_O3=0.0
-!
-!UR8/WR_H2O2=0.0
-!
-!UR8/WR_NO=0.0
-!
-!UR8/WR_NO2=0.0
-!
-!UR8/WR_NO3=0.0
-!
-!UR8/WR_N2O5=0.0
-!
-!UR8/WR_HONO=0.0
-!
-!UR8/WR_HNO3=0.0
-!
-!UR8/WR_HNO4=0.0
-!
-!UR8/WR_NH3=0.0
-!
-!UR8/WR_OH=0.0
-!
-!UR8/WR_HO2=0.0
-!
-!UR8/WR_CO2=0.0
-!
-!UR8/WR_SO2=0.0
-!
-!UR8/WR_H2SO4=0.0
-!
-!UR8/WR_RO21=0.0
-!
-!UR8/WR_RO25=0.0
-!
-!UR8/WR_MEOH=0.0
-!
-!UR8/WR_ETOH=0.0
-!
-!UR8/WR_ALCH=0.0
-!
-!UR8/WR_HCHO=0.0
-!
-!UR8/WR_ALD2=0.0
-!
-!UR8/WR_GLY=0.0
-!
-!UR8/WR_MGLY=0.0
-!
-!UR8/WR_KETL=0.0
-!
-!UR8/WR_ORA1=0.0
-!
-!UR8/WR_ORA2=0.0
-!
-!UR8/WR_ACID=0.0
-!
-!UR8/WR_RP16=0.0
-!
-!UR8/WR_UR21=0.0
-!
-!UR8/WR_UR28=0.0
-!
-!UR8/WR_ACID2=0.0
-!
-!UR8/WR_ASO3=0.0
-!
-!UR8/WR_ASO4=0.0
-!
-!UR8/WR_ASO5=0.0
-!
-!UR8/WR_AHSO5=0.0
-!
-!UR8/WR_AHMS=0.0
-!
-!UR17/NO=+1.0000000*K204*<RO226>
- PJAC(:,55,1)=+1.0000000*TPK%K204(:)*TPK%RO226(:)
-!
-!UR17/NO2=0.0
-!
-!UR17/O3=0.0
-!
-!UR17/HONO=0.0
-!
-!UR17/HNO3=0.0
-!
-!UR17/HNO4=0.0
-!
-!UR17/N2O5=0.0
-!
-!UR17/NO3=0.0
-!
-!UR17/NH3=0.0
-!
-!UR17/HO2=+1.0000000*K206*<RO226>
- PJAC(:,55,10)=+1.0000000*TPK%K206(:)*TPK%RO226(:)
-!
-!UR17/CO=0.0
-!
-!UR17/H2O2=0.0
-!
-!UR17/SO2=0.0
-!
-!UR17/H2SO4=0.0
-!
-!UR17/OH=0.0
-!
-!UR17/ETHE=0.0
-!
-!UR17/OLEL=0.0
-!
-!UR17/OLEH=0.0
-!
-!UR17/ALKL=0.0
-!
-!UR17/ALKM=0.0
-!
-!UR17/ALKH=0.0
-!
-!UR17/AROH=0.0
-!
-!UR17/AROL=0.0
-!
-!UR17/AROO=0.0
-!
-!UR17/ARAL=0.0
-!
-!UR17/ARAC=0.0
-!
-!UR17/PAH=0.0
-!
-!UR17/HCHO=0.0
-!
-!UR17/ALD2=0.0
-!
-!UR17/KETL=0.0
-!
-!UR17/KETH=0.0
-!
-!UR17/MEOH=0.0
-!
-!UR17/ETOH=0.0
-!
-!UR17/ALCH=0.0
-!
-!UR17/ISOP=0.0
-!
-!UR17/BIOL=0.0
-!
-!UR17/BIOH=0.0
-!
-!UR17/MTBE=0.0
-!
-!UR17/MVK=0.0
-!
-!UR17/MCR=0.0
-!
-!UR17/MGLY=0.0
-!
-!UR17/GLY=0.0
-!
-!UR17/ORA1=0.0
-!
-!UR17/ORA2=0.0
-!
-!UR17/ACID=0.0
-!
-!UR17/UR28=0.0
-!
-!UR17/UR21=0.0
-!
-!UR17/URG2=0.0
-!
-!UR17/UR26=0.0
-!
-!UR17/RPG2=0.0
-!
-!UR17/RP18=0.0
-!
-!UR17/RPG3=0.0
-!
-!UR17/URG4=0.0
-!
-!UR17/UR8=0.0
-!
-!UR17/UR17=-K359
- PJAC(:,55,55)=-TPK%K359(:)
-!
-!UR17/UR7=0.0
-!
-!UR17/RPR3=0.0
-!
-!UR17/URG6=0.0
-!
-!UR17/UR22=0.0
-!
-!UR17/URG7=0.0
-!
-!UR17/RPR4=0.0
-!
-!UR17/RPR7=0.0
-!
-!UR17/RPG7=0.0
-!
-!UR17/URG8=0.0
-!
-!UR17/UR19=0.0
-!
-!UR17/URG9=0.0
-!
-!UR17/AP7=0.0
-!
-!UR17/URG10=0.0
-!
-!UR17/RPR1=0.0
-!
-!UR17/RPR5=0.0
-!
-!UR17/RPR8=0.0
-!
-!UR17/RP10=0.0
-!
-!UR17/RP11=0.0
-!
-!UR17/RP16=0.0
-!
-!UR17/RPRL=0.0
-!
-!UR17/APAN=0.0
-!
-!UR17/PAN1=0.0
-!
-!UR17/PAN2=0.0
-!
-!UR17/PAN3=0.0
-!
-!UR17/PAN4=0.0
-!
-!UR17/PAN6=0.0
-!
-!UR17/PAN7=0.0
-!
-!UR17/PAN8=0.0
-!
-!UR17/PN10=0.0
-!
-!UR17/RO2T=+1.0000000*K205*<RO226>
- PJAC(:,55,85)=+1.0000000*TPK%K205(:)*TPK%RO226(:)
-!
-!UR17/RO21=0.0
-!
-!UR17/RO25=0.0
-!
-!UR17/WC_O3=0.0
-!
-!UR17/WC_H2O2=0.0
-!
-!UR17/WC_NO=0.0
-!
-!UR17/WC_NO2=0.0
-!
-!UR17/WC_NO3=0.0
-!
-!UR17/WC_N2O5=0.0
-!
-!UR17/WC_HONO=0.0
-!
-!UR17/WC_HNO3=0.0
-!
-!UR17/WC_HNO4=0.0
-!
-!UR17/WC_NH3=0.0
-!
-!UR17/WC_OH=0.0
-!
-!UR17/WC_HO2=0.0
-!
-!UR17/WC_CO2=0.0
-!
-!UR17/WC_SO2=0.0
-!
-!UR17/WC_H2SO4=0.0
-!
-!UR17/WC_RO21=0.0
-!
-!UR17/WC_RO25=0.0
-!
-!UR17/WC_MEOH=0.0
-!
-!UR17/WC_ETOH=0.0
-!
-!UR17/WC_ALCH=0.0
-!
-!UR17/WC_HCHO=0.0
-!
-!UR17/WC_ALD2=0.0
-!
-!UR17/WC_GLY=0.0
-!
-!UR17/WC_MGLY=0.0
-!
-!UR17/WC_KETL=0.0
-!
-!UR17/WC_ORA1=0.0
-!
-!UR17/WC_ORA2=0.0
-!
-!UR17/WC_ACID=0.0
-!
-!UR17/WC_RP16=0.0
-!
-!UR17/WC_UR21=0.0
-!
-!UR17/WC_UR28=0.0
-!
-!UR17/WC_ACID2=0.0
-!
-!UR17/WC_ASO3=0.0
-!
-!UR17/WC_ASO4=0.0
-!
-!UR17/WC_ASO5=0.0
-!
-!UR17/WC_AHSO5=0.0
-!
-!UR17/WC_AHMS=0.0
-!
-!UR17/WR_O3=0.0
-!
-!UR17/WR_H2O2=0.0
-!
-!UR17/WR_NO=0.0
-!
-!UR17/WR_NO2=0.0
-!
-!UR17/WR_NO3=0.0
-!
-!UR17/WR_N2O5=0.0
-!
-!UR17/WR_HONO=0.0
-!
-!UR17/WR_HNO3=0.0
-!
-!UR17/WR_HNO4=0.0
-!
-!UR17/WR_NH3=0.0
-!
-!UR17/WR_OH=0.0
-!
-!UR17/WR_HO2=0.0
-!
-!UR17/WR_CO2=0.0
-!
-!UR17/WR_SO2=0.0
-!
-!UR17/WR_H2SO4=0.0
-!
-!UR17/WR_RO21=0.0
-!
-!UR17/WR_RO25=0.0
-!
-!UR17/WR_MEOH=0.0
-!
-!UR17/WR_ETOH=0.0
-!
-!UR17/WR_ALCH=0.0
-!
-!UR17/WR_HCHO=0.0
-!
-!UR17/WR_ALD2=0.0
-!
-!UR17/WR_GLY=0.0
-!
-!UR17/WR_MGLY=0.0
-!
-!UR17/WR_KETL=0.0
-!
-!UR17/WR_ORA1=0.0
-!
-!UR17/WR_ORA2=0.0
-!
-!UR17/WR_ACID=0.0
-!
-!UR17/WR_RP16=0.0
-!
-!UR17/WR_UR21=0.0
-!
-!UR17/WR_UR28=0.0
-!
-!UR17/WR_ACID2=0.0
-!
-!UR17/WR_ASO3=0.0
-!
-!UR17/WR_ASO4=0.0
-!
-!UR17/WR_ASO5=0.0
-!
-!UR17/WR_AHSO5=0.0
-!
-!UR17/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ10
-!
-SUBROUTINE SUBJ11
-!
-!Indices 56 a 60
-!
-!
-!UR7/NO=+TPK%CFA12*K207*<RO227>+0.3*K210*<RO228>
- PJAC(:,56,1)=+TPK%CFA12*TPK%K207(:)*TPK%RO227(:)+0.3*TPK%K210(:)*TPK%RO228(:)
-!
-!UR7/NO2=0.0
-!
-!UR7/O3=+0.055*K090*<BIOH>
- PJAC(:,56,3)=+0.055*TPK%K090(:)*PCONC(:,37)
-!
-!UR7/HONO=0.0
-!
-!UR7/HNO3=0.0
-!
-!UR7/HNO4=0.0
-!
-!UR7/N2O5=0.0
-!
-!UR7/NO3=0.0
-!
-!UR7/NH3=0.0
-!
-!UR7/HO2=+0.3*K209*<RO227>+0.3*K212*<RO228>
- PJAC(:,56,10)=+0.3*TPK%K209(:)*TPK%RO227(:)+0.3*TPK%K212(:)*TPK%RO228(:)
-!
-!UR7/CO=0.0
-!
-!UR7/H2O2=0.0
-!
-!UR7/SO2=0.0
-!
-!UR7/H2SO4=0.0
-!
-!UR7/OH=0.0
-!
-!UR7/ETHE=0.0
-!
-!UR7/OLEL=0.0
-!
-!UR7/OLEH=0.0
-!
-!UR7/ALKL=0.0
-!
-!UR7/ALKM=0.0
-!
-!UR7/ALKH=0.0
-!
-!UR7/AROH=0.0
-!
-!UR7/AROL=0.0
-!
-!UR7/AROO=0.0
-!
-!UR7/ARAL=0.0
-!
-!UR7/ARAC=0.0
-!
-!UR7/PAH=0.0
-!
-!UR7/HCHO=0.0
-!
-!UR7/ALD2=0.0
-!
-!UR7/KETL=0.0
-!
-!UR7/KETH=0.0
-!
-!UR7/MEOH=0.0
-!
-!UR7/ETOH=0.0
-!
-!UR7/ALCH=0.0
-!
-!UR7/ISOP=0.0
-!
-!UR7/BIOL=0.0
-!
-!UR7/BIOH=+0.055*K090*<O3>
- PJAC(:,56,37)=+0.055*TPK%K090(:)*PCONC(:,3)
-!
-!UR7/MTBE=0.0
-!
-!UR7/MVK=0.0
-!
-!UR7/MCR=0.0
-!
-!UR7/MGLY=0.0
-!
-!UR7/GLY=0.0
-!
-!UR7/ORA1=0.0
-!
-!UR7/ORA2=0.0
-!
-!UR7/ACID=0.0
-!
-!UR7/UR28=0.0
-!
-!UR7/UR21=0.0
-!
-!UR7/URG2=0.0
-!
-!UR7/UR26=0.0
-!
-!UR7/RPG2=0.0
-!
-!UR7/RP18=0.0
-!
-!UR7/RPG3=0.0
-!
-!UR7/URG4=0.0
-!
-!UR7/UR8=0.0
-!
-!UR7/UR17=0.0
-!
-!UR7/UR7=-K357
- PJAC(:,56,56)=-TPK%K357(:)
-!
-!UR7/RPR3=0.0
-!
-!UR7/URG6=0.0
-!
-!UR7/UR22=0.0
-!
-!UR7/URG7=0.0
-!
-!UR7/RPR4=0.0
-!
-!UR7/RPR7=0.0
-!
-!UR7/RPG7=0.0
-!
-!UR7/URG8=0.0
-!
-!UR7/UR19=0.0
-!
-!UR7/URG9=0.0
-!
-!UR7/AP7=0.0
-!
-!UR7/URG10=0.0
-!
-!UR7/RPR1=0.0
-!
-!UR7/RPR5=0.0
-!
-!UR7/RPR8=0.0
-!
-!UR7/RP10=0.0
-!
-!UR7/RP11=0.0
-!
-!UR7/RP16=0.0
-!
-!UR7/RPRL=0.0
-!
-!UR7/APAN=0.0
-!
-!UR7/PAN1=0.0
-!
-!UR7/PAN2=0.0
-!
-!UR7/PAN3=0.0
-!
-!UR7/PAN4=0.0
-!
-!UR7/PAN6=0.0
-!
-!UR7/PAN7=0.0
-!
-!UR7/PAN8=0.0
-!
-!UR7/PN10=0.0
-!
-!UR7/RO2T=+K208*<RO227>+0.3*K211*<RO228>
- PJAC(:,56,85)=+TPK%K208(:)*TPK%RO227(:)+0.3*TPK%K211(:)*TPK%RO228(:)
-!
-!UR7/RO21=0.0
-!
-!UR7/RO25=0.0
-!
-!UR7/WC_O3=0.0
-!
-!UR7/WC_H2O2=0.0
-!
-!UR7/WC_NO=0.0
-!
-!UR7/WC_NO2=0.0
-!
-!UR7/WC_NO3=0.0
-!
-!UR7/WC_N2O5=0.0
-!
-!UR7/WC_HONO=0.0
-!
-!UR7/WC_HNO3=0.0
-!
-!UR7/WC_HNO4=0.0
-!
-!UR7/WC_NH3=0.0
-!
-!UR7/WC_OH=0.0
-!
-!UR7/WC_HO2=0.0
-!
-!UR7/WC_CO2=0.0
-!
-!UR7/WC_SO2=0.0
-!
-!UR7/WC_H2SO4=0.0
-!
-!UR7/WC_RO21=0.0
-!
-!UR7/WC_RO25=0.0
-!
-!UR7/WC_MEOH=0.0
-!
-!UR7/WC_ETOH=0.0
-!
-!UR7/WC_ALCH=0.0
-!
-!UR7/WC_HCHO=0.0
-!
-!UR7/WC_ALD2=0.0
-!
-!UR7/WC_GLY=0.0
-!
-!UR7/WC_MGLY=0.0
-!
-!UR7/WC_KETL=0.0
-!
-!UR7/WC_ORA1=0.0
-!
-!UR7/WC_ORA2=0.0
-!
-!UR7/WC_ACID=0.0
-!
-!UR7/WC_RP16=0.0
-!
-!UR7/WC_UR21=0.0
-!
-!UR7/WC_UR28=0.0
-!
-!UR7/WC_ACID2=0.0
-!
-!UR7/WC_ASO3=0.0
-!
-!UR7/WC_ASO4=0.0
-!
-!UR7/WC_ASO5=0.0
-!
-!UR7/WC_AHSO5=0.0
-!
-!UR7/WC_AHMS=0.0
-!
-!UR7/WR_O3=0.0
-!
-!UR7/WR_H2O2=0.0
-!
-!UR7/WR_NO=0.0
-!
-!UR7/WR_NO2=0.0
-!
-!UR7/WR_NO3=0.0
-!
-!UR7/WR_N2O5=0.0
-!
-!UR7/WR_HONO=0.0
-!
-!UR7/WR_HNO3=0.0
-!
-!UR7/WR_HNO4=0.0
-!
-!UR7/WR_NH3=0.0
-!
-!UR7/WR_OH=0.0
-!
-!UR7/WR_HO2=0.0
-!
-!UR7/WR_CO2=0.0
-!
-!UR7/WR_SO2=0.0
-!
-!UR7/WR_H2SO4=0.0
-!
-!UR7/WR_RO21=0.0
-!
-!UR7/WR_RO25=0.0
-!
-!UR7/WR_MEOH=0.0
-!
-!UR7/WR_ETOH=0.0
-!
-!UR7/WR_ALCH=0.0
-!
-!UR7/WR_HCHO=0.0
-!
-!UR7/WR_ALD2=0.0
-!
-!UR7/WR_GLY=0.0
-!
-!UR7/WR_MGLY=0.0
-!
-!UR7/WR_KETL=0.0
-!
-!UR7/WR_ORA1=0.0
-!
-!UR7/WR_ORA2=0.0
-!
-!UR7/WR_ACID=0.0
-!
-!UR7/WR_RP16=0.0
-!
-!UR7/WR_UR21=0.0
-!
-!UR7/WR_UR28=0.0
-!
-!UR7/WR_ACID2=0.0
-!
-!UR7/WR_ASO3=0.0
-!
-!UR7/WR_ASO4=0.0
-!
-!UR7/WR_ASO5=0.0
-!
-!UR7/WR_AHSO5=0.0
-!
-!UR7/WR_AHMS=0.0
-!
-!RPR3/NO=+TPK%CFA10*K198*<RO224>+K201*<RO225>
- PJAC(:,57,1)=+TPK%CFA10*TPK%K198(:)*TPK%RO224(:)+TPK%K201(:)*TPK%RO225(:)
-!
-!RPR3/NO2=0.0
-!
-!RPR3/O3=+0.055*K086*<BIOL>
- PJAC(:,57,3)=+0.055*TPK%K086(:)*PCONC(:,36)
-!
-!RPR3/HONO=0.0
-!
-!RPR3/HNO3=0.0
-!
-!RPR3/HNO4=0.0
-!
-!RPR3/N2O5=0.0
-!
-!RPR3/NO3=-K313*<RPR3>
- PJAC(:,57,8)=-TPK%K313(:)*PCONC(:,57)
-!
-!RPR3/NH3=0.0
-!
-!RPR3/HO2=+K200*<RO224>+K203*<RO225>
- PJAC(:,57,10)=+TPK%K200(:)*TPK%RO224(:)+TPK%K203(:)*TPK%RO225(:)
-!
-!RPR3/CO=0.0
-!
-!RPR3/H2O2=0.0
-!
-!RPR3/SO2=0.0
-!
-!RPR3/H2SO4=0.0
-!
-!RPR3/OH=-K312*<RPR3>
- PJAC(:,57,15)=-TPK%K312(:)*PCONC(:,57)
-!
-!RPR3/ETHE=0.0
-!
-!RPR3/OLEL=0.0
-!
-!RPR3/OLEH=0.0
-!
-!RPR3/ALKL=0.0
-!
-!RPR3/ALKM=0.0
-!
-!RPR3/ALKH=0.0
-!
-!RPR3/AROH=0.0
-!
-!RPR3/AROL=0.0
-!
-!RPR3/AROO=0.0
-!
-!RPR3/ARAL=0.0
-!
-!RPR3/ARAC=0.0
-!
-!RPR3/PAH=0.0
-!
-!RPR3/HCHO=0.0
-!
-!RPR3/ALD2=0.0
-!
-!RPR3/KETL=0.0
-!
-!RPR3/KETH=0.0
-!
-!RPR3/MEOH=0.0
-!
-!RPR3/ETOH=0.0
-!
-!RPR3/ALCH=0.0
-!
-!RPR3/ISOP=0.0
-!
-!RPR3/BIOL=+0.055*K086*<O3>
- PJAC(:,57,36)=+0.055*TPK%K086(:)*PCONC(:,3)
-!
-!RPR3/BIOH=0.0
-!
-!RPR3/MTBE=0.0
-!
-!RPR3/MVK=0.0
-!
-!RPR3/MCR=0.0
-!
-!RPR3/MGLY=0.0
-!
-!RPR3/GLY=0.0
-!
-!RPR3/ORA1=0.0
-!
-!RPR3/ORA2=0.0
-!
-!RPR3/ACID=0.0
-!
-!RPR3/UR28=0.0
-!
-!RPR3/UR21=0.0
-!
-!RPR3/URG2=0.0
-!
-!RPR3/UR26=0.0
-!
-!RPR3/RPG2=0.0
-!
-!RPR3/RP18=0.0
-!
-!RPR3/RPG3=0.0
-!
-!RPR3/URG4=0.0
-!
-!RPR3/UR8=0.0
-!
-!RPR3/UR17=0.0
-!
-!RPR3/UR7=0.0
-!
-!RPR3/RPR3=-K312*<OH>-K313*<NO3>-K314
- PJAC(:,57,57)=-TPK%K312(:)*PCONC(:,15)-TPK%K313(:)*PCONC(:,8)-TPK%K314(:)
-!
-!RPR3/URG6=0.0
-!
-!RPR3/UR22=0.0
-!
-!RPR3/URG7=0.0
-!
-!RPR3/RPR4=0.0
-!
-!RPR3/RPR7=0.0
-!
-!RPR3/RPG7=0.0
-!
-!RPR3/URG8=0.0
-!
-!RPR3/UR19=0.0
-!
-!RPR3/URG9=0.0
-!
-!RPR3/AP7=0.0
-!
-!RPR3/URG10=0.0
-!
-!RPR3/RPR1=0.0
-!
-!RPR3/RPR5=0.0
-!
-!RPR3/RPR8=0.0
-!
-!RPR3/RP10=0.0
-!
-!RPR3/RP11=0.0
-!
-!RPR3/RP16=0.0
-!
-!RPR3/RPRL=0.0
-!
-!RPR3/APAN=0.0
-!
-!RPR3/PAN1=0.0
-!
-!RPR3/PAN2=0.0
-!
-!RPR3/PAN3=0.0
-!
-!RPR3/PAN4=0.0
-!
-!RPR3/PAN6=0.0
-!
-!RPR3/PAN7=0.0
-!
-!RPR3/PAN8=0.0
-!
-!RPR3/PN10=0.0
-!
-!RPR3/RO2T=+K199*<RO224>+K202*<RO225>
- PJAC(:,57,85)=+TPK%K199(:)*TPK%RO224(:)+TPK%K202(:)*TPK%RO225(:)
-!
-!RPR3/RO21=0.0
-!
-!RPR3/RO25=0.0
-!
-!RPR3/WC_O3=0.0
-!
-!RPR3/WC_H2O2=0.0
-!
-!RPR3/WC_NO=0.0
-!
-!RPR3/WC_NO2=0.0
-!
-!RPR3/WC_NO3=0.0
-!
-!RPR3/WC_N2O5=0.0
-!
-!RPR3/WC_HONO=0.0
-!
-!RPR3/WC_HNO3=0.0
-!
-!RPR3/WC_HNO4=0.0
-!
-!RPR3/WC_NH3=0.0
-!
-!RPR3/WC_OH=0.0
-!
-!RPR3/WC_HO2=0.0
-!
-!RPR3/WC_CO2=0.0
-!
-!RPR3/WC_SO2=0.0
-!
-!RPR3/WC_H2SO4=0.0
-!
-!RPR3/WC_RO21=0.0
-!
-!RPR3/WC_RO25=0.0
-!
-!RPR3/WC_MEOH=0.0
-!
-!RPR3/WC_ETOH=0.0
-!
-!RPR3/WC_ALCH=0.0
-!
-!RPR3/WC_HCHO=0.0
-!
-!RPR3/WC_ALD2=0.0
-!
-!RPR3/WC_GLY=0.0
-!
-!RPR3/WC_MGLY=0.0
-!
-!RPR3/WC_KETL=0.0
-!
-!RPR3/WC_ORA1=0.0
-!
-!RPR3/WC_ORA2=0.0
-!
-!RPR3/WC_ACID=0.0
-!
-!RPR3/WC_RP16=0.0
-!
-!RPR3/WC_UR21=0.0
-!
-!RPR3/WC_UR28=0.0
-!
-!RPR3/WC_ACID2=0.0
-!
-!RPR3/WC_ASO3=0.0
-!
-!RPR3/WC_ASO4=0.0
-!
-!RPR3/WC_ASO5=0.0
-!
-!RPR3/WC_AHSO5=0.0
-!
-!RPR3/WC_AHMS=0.0
-!
-!RPR3/WR_O3=0.0
-!
-!RPR3/WR_H2O2=0.0
-!
-!RPR3/WR_NO=0.0
-!
-!RPR3/WR_NO2=0.0
-!
-!RPR3/WR_NO3=0.0
-!
-!RPR3/WR_N2O5=0.0
-!
-!RPR3/WR_HONO=0.0
-!
-!RPR3/WR_HNO3=0.0
-!
-!RPR3/WR_HNO4=0.0
-!
-!RPR3/WR_NH3=0.0
-!
-!RPR3/WR_OH=0.0
-!
-!RPR3/WR_HO2=0.0
-!
-!RPR3/WR_CO2=0.0
-!
-!RPR3/WR_SO2=0.0
-!
-!RPR3/WR_H2SO4=0.0
-!
-!RPR3/WR_RO21=0.0
-!
-!RPR3/WR_RO25=0.0
-!
-!RPR3/WR_MEOH=0.0
-!
-!RPR3/WR_ETOH=0.0
-!
-!RPR3/WR_ALCH=0.0
-!
-!RPR3/WR_HCHO=0.0
-!
-!RPR3/WR_ALD2=0.0
-!
-!RPR3/WR_GLY=0.0
-!
-!RPR3/WR_MGLY=0.0
-!
-!RPR3/WR_KETL=0.0
-!
-!RPR3/WR_ORA1=0.0
-!
-!RPR3/WR_ORA2=0.0
-!
-!RPR3/WR_ACID=0.0
-!
-!RPR3/WR_RP16=0.0
-!
-!RPR3/WR_UR21=0.0
-!
-!RPR3/WR_UR28=0.0
-!
-!RPR3/WR_ACID2=0.0
-!
-!RPR3/WR_ASO3=0.0
-!
-!RPR3/WR_ASO4=0.0
-!
-!RPR3/WR_ASO5=0.0
-!
-!RPR3/WR_AHSO5=0.0
-!
-!RPR3/WR_AHMS=0.0
-!
-!URG6/NO=+TPK%CF21*K177*<RO217>+TPK%CF43*K195*<RO223>
- PJAC(:,58,1)=+TPK%CF21*TPK%K177(:)*TPK%RO217(:)+TPK%CF43*TPK%K195(:)*TPK%RO223&
-&(:)
-!
-!URG6/NO2=0.0
-!
-!URG6/O3=0.0
-!
-!URG6/HONO=0.0
-!
-!URG6/HNO3=0.0
-!
-!URG6/HNO4=0.0
-!
-!URG6/N2O5=0.0
-!
-!URG6/NO3=0.0
-!
-!URG6/NH3=0.0
-!
-!URG6/HO2=0.0
-!
-!URG6/CO=0.0
-!
-!URG6/H2O2=0.0
-!
-!URG6/SO2=0.0
-!
-!URG6/H2SO4=0.0
-!
-!URG6/OH=+0.4978440*K323*<RPG7>
- PJAC(:,58,15)=+0.4978440*TPK%K323(:)*PCONC(:,63)
-!
-!URG6/ETHE=0.0
-!
-!URG6/OLEL=0.0
-!
-!URG6/OLEH=0.0
-!
-!URG6/ALKL=0.0
-!
-!URG6/ALKM=0.0
-!
-!URG6/ALKH=0.0
-!
-!URG6/AROH=0.0
-!
-!URG6/AROL=0.0
-!
-!URG6/AROO=0.0
-!
-!URG6/ARAL=0.0
-!
-!URG6/ARAC=0.0
-!
-!URG6/PAH=0.0
-!
-!URG6/HCHO=0.0
-!
-!URG6/ALD2=0.0
-!
-!URG6/KETL=0.0
-!
-!URG6/KETH=0.0
-!
-!URG6/MEOH=0.0
-!
-!URG6/ETOH=0.0
-!
-!URG6/ALCH=0.0
-!
-!URG6/ISOP=0.0
-!
-!URG6/BIOL=0.0
-!
-!URG6/BIOH=0.0
-!
-!URG6/MTBE=0.0
-!
-!URG6/MVK=0.0
-!
-!URG6/MCR=0.0
-!
-!URG6/MGLY=0.0
-!
-!URG6/GLY=0.0
-!
-!URG6/ORA1=0.0
-!
-!URG6/ORA2=0.0
-!
-!URG6/ACID=0.0
-!
-!URG6/UR28=0.0
-!
-!URG6/UR21=0.0
-!
-!URG6/URG2=0.0
-!
-!URG6/UR26=0.0
-!
-!URG6/RPG2=0.0
-!
-!URG6/RP18=0.0
-!
-!URG6/RPG3=0.0
-!
-!URG6/URG4=0.0
-!
-!URG6/UR8=0.0
-!
-!URG6/UR17=0.0
-!
-!URG6/UR7=0.0
-!
-!URG6/RPR3=0.0
-!
-!URG6/URG6=-K352
- PJAC(:,58,58)=-TPK%K352(:)
-!
-!URG6/UR22=0.0
-!
-!URG6/URG7=0.0
-!
-!URG6/RPR4=0.0
-!
-!URG6/RPR7=0.0
-!
-!URG6/RPG7=+0.4978440*K323*<OH>
- PJAC(:,58,63)=+0.4978440*TPK%K323(:)*PCONC(:,15)
-!
-!URG6/URG8=0.0
-!
-!URG6/UR19=0.0
-!
-!URG6/URG9=0.0
-!
-!URG6/AP7=0.0
-!
-!URG6/URG10=0.0
-!
-!URG6/RPR1=0.0
-!
-!URG6/RPR5=0.0
-!
-!URG6/RPR8=0.0
-!
-!URG6/RP10=0.0
-!
-!URG6/RP11=0.0
-!
-!URG6/RP16=0.0
-!
-!URG6/RPRL=0.0
-!
-!URG6/APAN=0.0
-!
-!URG6/PAN1=0.0
-!
-!URG6/PAN2=0.0
-!
-!URG6/PAN3=0.0
-!
-!URG6/PAN4=0.0
-!
-!URG6/PAN6=0.0
-!
-!URG6/PAN7=0.0
-!
-!URG6/PAN8=0.0
-!
-!URG6/PN10=0.0
-!
-!URG6/RO2T=0.0
-!
-!URG6/RO21=0.0
-!
-!URG6/RO25=0.0
-!
-!URG6/WC_O3=0.0
-!
-!URG6/WC_H2O2=0.0
-!
-!URG6/WC_NO=0.0
-!
-!URG6/WC_NO2=0.0
-!
-!URG6/WC_NO3=0.0
-!
-!URG6/WC_N2O5=0.0
-!
-!URG6/WC_HONO=0.0
-!
-!URG6/WC_HNO3=0.0
-!
-!URG6/WC_HNO4=0.0
-!
-!URG6/WC_NH3=0.0
-!
-!URG6/WC_OH=0.0
-!
-!URG6/WC_HO2=0.0
-!
-!URG6/WC_CO2=0.0
-!
-!URG6/WC_SO2=0.0
-!
-!URG6/WC_H2SO4=0.0
-!
-!URG6/WC_RO21=0.0
-!
-!URG6/WC_RO25=0.0
-!
-!URG6/WC_MEOH=0.0
-!
-!URG6/WC_ETOH=0.0
-!
-!URG6/WC_ALCH=0.0
-!
-!URG6/WC_HCHO=0.0
-!
-!URG6/WC_ALD2=0.0
-!
-!URG6/WC_GLY=0.0
-!
-!URG6/WC_MGLY=0.0
-!
-!URG6/WC_KETL=0.0
-!
-!URG6/WC_ORA1=0.0
-!
-!URG6/WC_ORA2=0.0
-!
-!URG6/WC_ACID=0.0
-!
-!URG6/WC_RP16=0.0
-!
-!URG6/WC_UR21=0.0
-!
-!URG6/WC_UR28=0.0
-!
-!URG6/WC_ACID2=0.0
-!
-!URG6/WC_ASO3=0.0
-!
-!URG6/WC_ASO4=0.0
-!
-!URG6/WC_ASO5=0.0
-!
-!URG6/WC_AHSO5=0.0
-!
-!URG6/WC_AHMS=0.0
-!
-!URG6/WR_O3=0.0
-!
-!URG6/WR_H2O2=0.0
-!
-!URG6/WR_NO=0.0
-!
-!URG6/WR_NO2=0.0
-!
-!URG6/WR_NO3=0.0
-!
-!URG6/WR_N2O5=0.0
-!
-!URG6/WR_HONO=0.0
-!
-!URG6/WR_HNO3=0.0
-!
-!URG6/WR_HNO4=0.0
-!
-!URG6/WR_NH3=0.0
-!
-!URG6/WR_OH=0.0
-!
-!URG6/WR_HO2=0.0
-!
-!URG6/WR_CO2=0.0
-!
-!URG6/WR_SO2=0.0
-!
-!URG6/WR_H2SO4=0.0
-!
-!URG6/WR_RO21=0.0
-!
-!URG6/WR_RO25=0.0
-!
-!URG6/WR_MEOH=0.0
-!
-!URG6/WR_ETOH=0.0
-!
-!URG6/WR_ALCH=0.0
-!
-!URG6/WR_HCHO=0.0
-!
-!URG6/WR_ALD2=0.0
-!
-!URG6/WR_GLY=0.0
-!
-!URG6/WR_MGLY=0.0
-!
-!URG6/WR_KETL=0.0
-!
-!URG6/WR_ORA1=0.0
-!
-!URG6/WR_ORA2=0.0
-!
-!URG6/WR_ACID=0.0
-!
-!URG6/WR_RP16=0.0
-!
-!URG6/WR_UR21=0.0
-!
-!URG6/WR_UR28=0.0
-!
-!URG6/WR_ACID2=0.0
-!
-!URG6/WR_ASO3=0.0
-!
-!URG6/WR_ASO4=0.0
-!
-!URG6/WR_ASO5=0.0
-!
-!URG6/WR_AHSO5=0.0
-!
-!URG6/WR_AHMS=0.0
-!
-!UR22/NO=0.0
-!
-!UR22/NO2=+K321*<RAD8>
- PJAC(:,59,2)=+TPK%K321(:)*TPK%RAD8(:)
-!
-!UR22/O3=0.0
-!
-!UR22/HONO=0.0
-!
-!UR22/HNO3=0.0
-!
-!UR22/HNO4=0.0
-!
-!UR22/N2O5=0.0
-!
-!UR22/NO3=0.0
-!
-!UR22/NH3=0.0
-!
-!UR22/HO2=0.0
-!
-!UR22/CO=0.0
-!
-!UR22/H2O2=0.0
-!
-!UR22/SO2=0.0
-!
-!UR22/H2SO4=0.0
-!
-!UR22/OH=0.0
-!
-!UR22/ETHE=0.0
-!
-!UR22/OLEL=0.0
-!
-!UR22/OLEH=0.0
-!
-!UR22/ALKL=0.0
-!
-!UR22/ALKM=0.0
-!
-!UR22/ALKH=0.0
-!
-!UR22/AROH=0.0
-!
-!UR22/AROL=0.0
-!
-!UR22/AROO=0.0
-!
-!UR22/ARAL=0.0
-!
-!UR22/ARAC=0.0
-!
-!UR22/PAH=0.0
-!
-!UR22/HCHO=0.0
-!
-!UR22/ALD2=0.0
-!
-!UR22/KETL=0.0
-!
-!UR22/KETH=0.0
-!
-!UR22/MEOH=0.0
-!
-!UR22/ETOH=0.0
-!
-!UR22/ALCH=0.0
-!
-!UR22/ISOP=0.0
-!
-!UR22/BIOL=0.0
-!
-!UR22/BIOH=0.0
-!
-!UR22/MTBE=0.0
-!
-!UR22/MVK=0.0
-!
-!UR22/MCR=0.0
-!
-!UR22/MGLY=0.0
-!
-!UR22/GLY=0.0
-!
-!UR22/ORA1=0.0
-!
-!UR22/ORA2=0.0
-!
-!UR22/ACID=0.0
-!
-!UR22/UR28=0.0
-!
-!UR22/UR21=0.0
-!
-!UR22/URG2=0.0
-!
-!UR22/UR26=0.0
-!
-!UR22/RPG2=0.0
-!
-!UR22/RP18=0.0
-!
-!UR22/RPG3=0.0
-!
-!UR22/URG4=0.0
-!
-!UR22/UR8=0.0
-!
-!UR22/UR17=0.0
-!
-!UR22/UR7=0.0
-!
-!UR22/RPR3=0.0
-!
-!UR22/URG6=0.0
-!
-!UR22/UR22=-K362
- PJAC(:,59,59)=-TPK%K362(:)
-!
-!UR22/URG7=0.0
-!
-!UR22/RPR4=0.0
-!
-!UR22/RPR7=0.0
-!
-!UR22/RPG7=0.0
-!
-!UR22/URG8=0.0
-!
-!UR22/UR19=0.0
-!
-!UR22/URG9=0.0
-!
-!UR22/AP7=0.0
-!
-!UR22/URG10=0.0
-!
-!UR22/RPR1=0.0
-!
-!UR22/RPR5=0.0
-!
-!UR22/RPR8=0.0
-!
-!UR22/RP10=0.0
-!
-!UR22/RP11=0.0
-!
-!UR22/RP16=0.0
-!
-!UR22/RPRL=0.0
-!
-!UR22/APAN=0.0
-!
-!UR22/PAN1=0.0
-!
-!UR22/PAN2=0.0
-!
-!UR22/PAN3=0.0
-!
-!UR22/PAN4=0.0
-!
-!UR22/PAN6=0.0
-!
-!UR22/PAN7=0.0
-!
-!UR22/PAN8=0.0
-!
-!UR22/PN10=0.0
-!
-!UR22/RO2T=0.0
-!
-!UR22/RO21=0.0
-!
-!UR22/RO25=0.0
-!
-!UR22/WC_O3=0.0
-!
-!UR22/WC_H2O2=0.0
-!
-!UR22/WC_NO=0.0
-!
-!UR22/WC_NO2=0.0
-!
-!UR22/WC_NO3=0.0
-!
-!UR22/WC_N2O5=0.0
-!
-!UR22/WC_HONO=0.0
-!
-!UR22/WC_HNO3=0.0
-!
-!UR22/WC_HNO4=0.0
-!
-!UR22/WC_NH3=0.0
-!
-!UR22/WC_OH=0.0
-!
-!UR22/WC_HO2=0.0
-!
-!UR22/WC_CO2=0.0
-!
-!UR22/WC_SO2=0.0
-!
-!UR22/WC_H2SO4=0.0
-!
-!UR22/WC_RO21=0.0
-!
-!UR22/WC_RO25=0.0
-!
-!UR22/WC_MEOH=0.0
-!
-!UR22/WC_ETOH=0.0
-!
-!UR22/WC_ALCH=0.0
-!
-!UR22/WC_HCHO=0.0
-!
-!UR22/WC_ALD2=0.0
-!
-!UR22/WC_GLY=0.0
-!
-!UR22/WC_MGLY=0.0
-!
-!UR22/WC_KETL=0.0
-!
-!UR22/WC_ORA1=0.0
-!
-!UR22/WC_ORA2=0.0
-!
-!UR22/WC_ACID=0.0
-!
-!UR22/WC_RP16=0.0
-!
-!UR22/WC_UR21=0.0
-!
-!UR22/WC_UR28=0.0
-!
-!UR22/WC_ACID2=0.0
-!
-!UR22/WC_ASO3=0.0
-!
-!UR22/WC_ASO4=0.0
-!
-!UR22/WC_ASO5=0.0
-!
-!UR22/WC_AHSO5=0.0
-!
-!UR22/WC_AHMS=0.0
-!
-!UR22/WR_O3=0.0
-!
-!UR22/WR_H2O2=0.0
-!
-!UR22/WR_NO=0.0
-!
-!UR22/WR_NO2=0.0
-!
-!UR22/WR_NO3=0.0
-!
-!UR22/WR_N2O5=0.0
-!
-!UR22/WR_HONO=0.0
-!
-!UR22/WR_HNO3=0.0
-!
-!UR22/WR_HNO4=0.0
-!
-!UR22/WR_NH3=0.0
-!
-!UR22/WR_OH=0.0
-!
-!UR22/WR_HO2=0.0
-!
-!UR22/WR_CO2=0.0
-!
-!UR22/WR_SO2=0.0
-!
-!UR22/WR_H2SO4=0.0
-!
-!UR22/WR_RO21=0.0
-!
-!UR22/WR_RO25=0.0
-!
-!UR22/WR_MEOH=0.0
-!
-!UR22/WR_ETOH=0.0
-!
-!UR22/WR_ALCH=0.0
-!
-!UR22/WR_HCHO=0.0
-!
-!UR22/WR_ALD2=0.0
-!
-!UR22/WR_GLY=0.0
-!
-!UR22/WR_MGLY=0.0
-!
-!UR22/WR_KETL=0.0
-!
-!UR22/WR_ORA1=0.0
-!
-!UR22/WR_ORA2=0.0
-!
-!UR22/WR_ACID=0.0
-!
-!UR22/WR_RP16=0.0
-!
-!UR22/WR_UR21=0.0
-!
-!UR22/WR_UR28=0.0
-!
-!UR22/WR_ACID2=0.0
-!
-!UR22/WR_ASO3=0.0
-!
-!UR22/WR_ASO4=0.0
-!
-!UR22/WR_ASO5=0.0
-!
-!UR22/WR_AHSO5=0.0
-!
-!UR22/WR_AHMS=0.0
-!
-!URG7/NO=0.0
-!
-!URG7/NO2=+0.9999993*K108*<RAD6>
- PJAC(:,60,2)=+0.9999993*TPK%K108(:)*TPK%RAD6(:)
-!
-!URG7/O3=0.0
-!
-!URG7/HONO=0.0
-!
-!URG7/HNO3=0.0
-!
-!URG7/HNO4=0.0
-!
-!URG7/N2O5=0.0
-!
-!URG7/NO3=0.0
-!
-!URG7/NH3=0.0
-!
-!URG7/HO2=0.0
-!
-!URG7/CO=0.0
-!
-!URG7/H2O2=0.0
-!
-!URG7/SO2=0.0
-!
-!URG7/H2SO4=0.0
-!
-!URG7/OH=+0.1599999*K083*<ARAC>+0.9999993*K303*<RPR5>+0.9979297*K306*<RPRL>+0.9
-!999993*K322*<RPR7>
- PJAC(:,60,15)=+0.1599999*TPK%K083(:)*PCONC(:,26)+0.9999993*TPK%K303(:)*PCONC(:&
-&,70)+0.9979297*TPK%K306(:)*PCONC(:,75)+0.9999993*TPK%K322(:)*PCONC(:,62)
-!
-!URG7/ETHE=0.0
-!
-!URG7/OLEL=0.0
-!
-!URG7/OLEH=0.0
-!
-!URG7/ALKL=0.0
-!
-!URG7/ALKM=0.0
-!
-!URG7/ALKH=0.0
-!
-!URG7/AROH=0.0
-!
-!URG7/AROL=0.0
-!
-!URG7/AROO=0.0
-!
-!URG7/ARAL=0.0
-!
-!URG7/ARAC=+0.1599999*K083*<OH>
- PJAC(:,60,26)=+0.1599999*TPK%K083(:)*PCONC(:,15)
-!
-!URG7/PAH=0.0
-!
-!URG7/HCHO=0.0
-!
-!URG7/ALD2=0.0
-!
-!URG7/KETL=0.0
-!
-!URG7/KETH=0.0
-!
-!URG7/MEOH=0.0
-!
-!URG7/ETOH=0.0
-!
-!URG7/ALCH=0.0
-!
-!URG7/ISOP=0.0
-!
-!URG7/BIOL=0.0
-!
-!URG7/BIOH=0.0
-!
-!URG7/MTBE=0.0
-!
-!URG7/MVK=0.0
-!
-!URG7/MCR=0.0
-!
-!URG7/MGLY=0.0
-!
-!URG7/GLY=0.0
-!
-!URG7/ORA1=0.0
-!
-!URG7/ORA2=0.0
-!
-!URG7/ACID=0.0
-!
-!URG7/UR28=0.0
-!
-!URG7/UR21=0.0
-!
-!URG7/URG2=0.0
-!
-!URG7/UR26=0.0
-!
-!URG7/RPG2=0.0
-!
-!URG7/RP18=0.0
-!
-!URG7/RPG3=0.0
-!
-!URG7/URG4=0.0
-!
-!URG7/UR8=0.0
-!
-!URG7/UR17=0.0
-!
-!URG7/UR7=0.0
-!
-!URG7/RPR3=0.0
-!
-!URG7/URG6=0.0
-!
-!URG7/UR22=0.0
-!
-!URG7/URG7=-K353
- PJAC(:,60,60)=-TPK%K353(:)
-!
-!URG7/RPR4=0.0
-!
-!URG7/RPR7=+0.9999993*K322*<OH>
- PJAC(:,60,62)=+0.9999993*TPK%K322(:)*PCONC(:,15)
-!
-!URG7/RPG7=0.0
-!
-!URG7/URG8=0.0
-!
-!URG7/UR19=0.0
-!
-!URG7/URG9=0.0
-!
-!URG7/AP7=0.0
-!
-!URG7/URG10=0.0
-!
-!URG7/RPR1=0.0
-!
-!URG7/RPR5=+0.9999993*K303*<OH>
- PJAC(:,60,70)=+0.9999993*TPK%K303(:)*PCONC(:,15)
-!
-!URG7/RPR8=0.0
-!
-!URG7/RP10=0.0
-!
-!URG7/RP11=0.0
-!
-!URG7/RP16=0.0
-!
-!URG7/RPRL=+0.9979297*K306*<OH>
- PJAC(:,60,75)=+0.9979297*TPK%K306(:)*PCONC(:,15)
-!
-!URG7/APAN=0.0
-!
-!URG7/PAN1=0.0
-!
-!URG7/PAN2=0.0
-!
-!URG7/PAN3=0.0
-!
-!URG7/PAN4=0.0
-!
-!URG7/PAN6=0.0
-!
-!URG7/PAN7=0.0
-!
-!URG7/PAN8=0.0
-!
-!URG7/PN10=0.0
-!
-!URG7/RO2T=0.0
-!
-!URG7/RO21=0.0
-!
-!URG7/RO25=0.0
-!
-!URG7/WC_O3=0.0
-!
-!URG7/WC_H2O2=0.0
-!
-!URG7/WC_NO=0.0
-!
-!URG7/WC_NO2=0.0
-!
-!URG7/WC_NO3=0.0
-!
-!URG7/WC_N2O5=0.0
-!
-!URG7/WC_HONO=0.0
-!
-!URG7/WC_HNO3=0.0
-!
-!URG7/WC_HNO4=0.0
-!
-!URG7/WC_NH3=0.0
-!
-!URG7/WC_OH=0.0
-!
-!URG7/WC_HO2=0.0
-!
-!URG7/WC_CO2=0.0
-!
-!URG7/WC_SO2=0.0
-!
-!URG7/WC_H2SO4=0.0
-!
-!URG7/WC_RO21=0.0
-!
-!URG7/WC_RO25=0.0
-!
-!URG7/WC_MEOH=0.0
-!
-!URG7/WC_ETOH=0.0
-!
-!URG7/WC_ALCH=0.0
-!
-!URG7/WC_HCHO=0.0
-!
-!URG7/WC_ALD2=0.0
-!
-!URG7/WC_GLY=0.0
-!
-!URG7/WC_MGLY=0.0
-!
-!URG7/WC_KETL=0.0
-!
-!URG7/WC_ORA1=0.0
-!
-!URG7/WC_ORA2=0.0
-!
-!URG7/WC_ACID=0.0
-!
-!URG7/WC_RP16=0.0
-!
-!URG7/WC_UR21=0.0
-!
-!URG7/WC_UR28=0.0
-!
-!URG7/WC_ACID2=0.0
-!
-!URG7/WC_ASO3=0.0
-!
-!URG7/WC_ASO4=0.0
-!
-!URG7/WC_ASO5=0.0
-!
-!URG7/WC_AHSO5=0.0
-!
-!URG7/WC_AHMS=0.0
-!
-!URG7/WR_O3=0.0
-!
-!URG7/WR_H2O2=0.0
-!
-!URG7/WR_NO=0.0
-!
-!URG7/WR_NO2=0.0
-!
-!URG7/WR_NO3=0.0
-!
-!URG7/WR_N2O5=0.0
-!
-!URG7/WR_HONO=0.0
-!
-!URG7/WR_HNO3=0.0
-!
-!URG7/WR_HNO4=0.0
-!
-!URG7/WR_NH3=0.0
-!
-!URG7/WR_OH=0.0
-!
-!URG7/WR_HO2=0.0
-!
-!URG7/WR_CO2=0.0
-!
-!URG7/WR_SO2=0.0
-!
-!URG7/WR_H2SO4=0.0
-!
-!URG7/WR_RO21=0.0
-!
-!URG7/WR_RO25=0.0
-!
-!URG7/WR_MEOH=0.0
-!
-!URG7/WR_ETOH=0.0
-!
-!URG7/WR_ALCH=0.0
-!
-!URG7/WR_HCHO=0.0
-!
-!URG7/WR_ALD2=0.0
-!
-!URG7/WR_GLY=0.0
-!
-!URG7/WR_MGLY=0.0
-!
-!URG7/WR_KETL=0.0
-!
-!URG7/WR_ORA1=0.0
-!
-!URG7/WR_ORA2=0.0
-!
-!URG7/WR_ACID=0.0
-!
-!URG7/WR_RP16=0.0
-!
-!URG7/WR_UR21=0.0
-!
-!URG7/WR_UR28=0.0
-!
-!URG7/WR_ACID2=0.0
-!
-!URG7/WR_ASO3=0.0
-!
-!URG7/WR_ASO4=0.0
-!
-!URG7/WR_ASO5=0.0
-!
-!URG7/WR_AHSO5=0.0
-!
-!URG7/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ11
-!
-SUBROUTINE SUBJ12
-!
-!Indices 61 a 65
-!
-!
-!RPR4/NO=0.0
-!
-!RPR4/NO2=+K103*<RAD1>+K104*<RAD2>
- PJAC(:,61,2)=+TPK%K103(:)*TPK%RAD1(:)+TPK%K104(:)*TPK%RAD2(:)
-!
-!RPR4/O3=0.0
-!
-!RPR4/HONO=0.0
-!
-!RPR4/HNO3=0.0
-!
-!RPR4/HNO4=0.0
-!
-!RPR4/N2O5=0.0
-!
-!RPR4/NO3=-K320*<RPR4>
- PJAC(:,61,8)=-TPK%K320(:)*PCONC(:,61)
-!
-!RPR4/NH3=0.0
-!
-!RPR4/HO2=0.0
-!
-!RPR4/CO=0.0
-!
-!RPR4/H2O2=0.0
-!
-!RPR4/SO2=0.0
-!
-!RPR4/H2SO4=0.0
-!
-!RPR4/OH=0.0
-!
-!RPR4/ETHE=0.0
-!
-!RPR4/OLEL=0.0
-!
-!RPR4/OLEH=0.0
-!
-!RPR4/ALKL=0.0
-!
-!RPR4/ALKM=0.0
-!
-!RPR4/ALKH=0.0
-!
-!RPR4/AROH=0.0
-!
-!RPR4/AROL=0.0
-!
-!RPR4/AROO=0.0
-!
-!RPR4/ARAL=0.0
-!
-!RPR4/ARAC=0.0
-!
-!RPR4/PAH=0.0
-!
-!RPR4/HCHO=0.0
-!
-!RPR4/ALD2=0.0
-!
-!RPR4/KETL=0.0
-!
-!RPR4/KETH=0.0
-!
-!RPR4/MEOH=0.0
-!
-!RPR4/ETOH=0.0
-!
-!RPR4/ALCH=0.0
-!
-!RPR4/ISOP=0.0
-!
-!RPR4/BIOL=0.0
-!
-!RPR4/BIOH=0.0
-!
-!RPR4/MTBE=0.0
-!
-!RPR4/MVK=0.0
-!
-!RPR4/MCR=0.0
-!
-!RPR4/MGLY=0.0
-!
-!RPR4/GLY=0.0
-!
-!RPR4/ORA1=0.0
-!
-!RPR4/ORA2=0.0
-!
-!RPR4/ACID=0.0
-!
-!RPR4/UR28=0.0
-!
-!RPR4/UR21=0.0
-!
-!RPR4/URG2=0.0
-!
-!RPR4/UR26=0.0
-!
-!RPR4/RPG2=0.0
-!
-!RPR4/RP18=0.0
-!
-!RPR4/RPG3=0.0
-!
-!RPR4/URG4=0.0
-!
-!RPR4/UR8=0.0
-!
-!RPR4/UR17=0.0
-!
-!RPR4/UR7=0.0
-!
-!RPR4/RPR3=0.0
-!
-!RPR4/URG6=0.0
-!
-!RPR4/UR22=0.0
-!
-!RPR4/URG7=0.0
-!
-!RPR4/RPR4=-K320*<NO3>
- PJAC(:,61,61)=-TPK%K320(:)*PCONC(:,8)
-!
-!RPR4/RPR7=0.0
-!
-!RPR4/RPG7=0.0
-!
-!RPR4/URG8=0.0
-!
-!RPR4/UR19=0.0
-!
-!RPR4/URG9=0.0
-!
-!RPR4/AP7=0.0
-!
-!RPR4/URG10=0.0
-!
-!RPR4/RPR1=0.0
-!
-!RPR4/RPR5=0.0
-!
-!RPR4/RPR8=0.0
-!
-!RPR4/RP10=0.0
-!
-!RPR4/RP11=0.0
-!
-!RPR4/RP16=0.0
-!
-!RPR4/RPRL=0.0
-!
-!RPR4/APAN=0.0
-!
-!RPR4/PAN1=0.0
-!
-!RPR4/PAN2=0.0
-!
-!RPR4/PAN3=0.0
-!
-!RPR4/PAN4=0.0
-!
-!RPR4/PAN6=0.0
-!
-!RPR4/PAN7=0.0
-!
-!RPR4/PAN8=0.0
-!
-!RPR4/PN10=0.0
-!
-!RPR4/RO2T=0.0
-!
-!RPR4/RO21=0.0
-!
-!RPR4/RO25=0.0
-!
-!RPR4/WC_O3=0.0
-!
-!RPR4/WC_H2O2=0.0
-!
-!RPR4/WC_NO=0.0
-!
-!RPR4/WC_NO2=0.0
-!
-!RPR4/WC_NO3=0.0
-!
-!RPR4/WC_N2O5=0.0
-!
-!RPR4/WC_HONO=0.0
-!
-!RPR4/WC_HNO3=0.0
-!
-!RPR4/WC_HNO4=0.0
-!
-!RPR4/WC_NH3=0.0
-!
-!RPR4/WC_OH=0.0
-!
-!RPR4/WC_HO2=0.0
-!
-!RPR4/WC_CO2=0.0
-!
-!RPR4/WC_SO2=0.0
-!
-!RPR4/WC_H2SO4=0.0
-!
-!RPR4/WC_RO21=0.0
-!
-!RPR4/WC_RO25=0.0
-!
-!RPR4/WC_MEOH=0.0
-!
-!RPR4/WC_ETOH=0.0
-!
-!RPR4/WC_ALCH=0.0
-!
-!RPR4/WC_HCHO=0.0
-!
-!RPR4/WC_ALD2=0.0
-!
-!RPR4/WC_GLY=0.0
-!
-!RPR4/WC_MGLY=0.0
-!
-!RPR4/WC_KETL=0.0
-!
-!RPR4/WC_ORA1=0.0
-!
-!RPR4/WC_ORA2=0.0
-!
-!RPR4/WC_ACID=0.0
-!
-!RPR4/WC_RP16=0.0
-!
-!RPR4/WC_UR21=0.0
-!
-!RPR4/WC_UR28=0.0
-!
-!RPR4/WC_ACID2=0.0
-!
-!RPR4/WC_ASO3=0.0
-!
-!RPR4/WC_ASO4=0.0
-!
-!RPR4/WC_ASO5=0.0
-!
-!RPR4/WC_AHSO5=0.0
-!
-!RPR4/WC_AHMS=0.0
-!
-!RPR4/WR_O3=0.0
-!
-!RPR4/WR_H2O2=0.0
-!
-!RPR4/WR_NO=0.0
-!
-!RPR4/WR_NO2=0.0
-!
-!RPR4/WR_NO3=0.0
-!
-!RPR4/WR_N2O5=0.0
-!
-!RPR4/WR_HONO=0.0
-!
-!RPR4/WR_HNO3=0.0
-!
-!RPR4/WR_HNO4=0.0
-!
-!RPR4/WR_NH3=0.0
-!
-!RPR4/WR_OH=0.0
-!
-!RPR4/WR_HO2=0.0
-!
-!RPR4/WR_CO2=0.0
-!
-!RPR4/WR_SO2=0.0
-!
-!RPR4/WR_H2SO4=0.0
-!
-!RPR4/WR_RO21=0.0
-!
-!RPR4/WR_RO25=0.0
-!
-!RPR4/WR_MEOH=0.0
-!
-!RPR4/WR_ETOH=0.0
-!
-!RPR4/WR_ALCH=0.0
-!
-!RPR4/WR_HCHO=0.0
-!
-!RPR4/WR_ALD2=0.0
-!
-!RPR4/WR_GLY=0.0
-!
-!RPR4/WR_MGLY=0.0
-!
-!RPR4/WR_KETL=0.0
-!
-!RPR4/WR_ORA1=0.0
-!
-!RPR4/WR_ORA2=0.0
-!
-!RPR4/WR_ACID=0.0
-!
-!RPR4/WR_RP16=0.0
-!
-!RPR4/WR_UR21=0.0
-!
-!RPR4/WR_UR28=0.0
-!
-!RPR4/WR_ACID2=0.0
-!
-!RPR4/WR_ASO3=0.0
-!
-!RPR4/WR_ASO4=0.0
-!
-!RPR4/WR_ASO5=0.0
-!
-!RPR4/WR_AHSO5=0.0
-!
-!RPR4/WR_AHMS=0.0
-!
-!RPR7/NO=+TPK%CF44*K195*<RO223>
- PJAC(:,62,1)=+TPK%CF44*TPK%K195(:)*TPK%RO223(:)
-!
-!RPR7/NO2=0.0
-!
-!RPR7/O3=0.0
-!
-!RPR7/HONO=0.0
-!
-!RPR7/HNO3=0.0
-!
-!RPR7/HNO4=0.0
-!
-!RPR7/N2O5=0.0
-!
-!RPR7/NO3=0.0
-!
-!RPR7/NH3=0.0
-!
-!RPR7/HO2=+K197*<RO223>
- PJAC(:,62,10)=+TPK%K197(:)*TPK%RO223(:)
-!
-!RPR7/CO=0.0
-!
-!RPR7/H2O2=0.0
-!
-!RPR7/SO2=0.0
-!
-!RPR7/H2SO4=0.0
-!
-!RPR7/OH=-03*K306*<RPRL>-K322*<RPR7>
- PJAC(:,62,15)=-03*TPK%K306(:)*PCONC(:,75)-TPK%K322(:)*PCONC(:,62)
-!
-!RPR7/ETHE=0.0
-!
-!RPR7/OLEL=0.0
-!
-!RPR7/OLEH=0.0
-!
-!RPR7/ALKL=0.0
-!
-!RPR7/ALKM=0.0
-!
-!RPR7/ALKH=0.0
-!
-!RPR7/AROH=0.0
-!
-!RPR7/AROL=0.0
-!
-!RPR7/AROO=0.0
-!
-!RPR7/ARAL=0.0
-!
-!RPR7/ARAC=0.0
-!
-!RPR7/PAH=0.0
-!
-!RPR7/HCHO=0.0
-!
-!RPR7/ALD2=0.0
-!
-!RPR7/KETL=0.0
-!
-!RPR7/KETH=0.0
-!
-!RPR7/MEOH=0.0
-!
-!RPR7/ETOH=0.0
-!
-!RPR7/ALCH=0.0
-!
-!RPR7/ISOP=0.0
-!
-!RPR7/BIOL=0.0
-!
-!RPR7/BIOH=0.0
-!
-!RPR7/MTBE=0.0
-!
-!RPR7/MVK=0.0
-!
-!RPR7/MCR=0.0
-!
-!RPR7/MGLY=0.0
-!
-!RPR7/GLY=0.0
-!
-!RPR7/ORA1=0.0
-!
-!RPR7/ORA2=0.0
-!
-!RPR7/ACID=0.0
-!
-!RPR7/UR28=0.0
-!
-!RPR7/UR21=0.0
-!
-!RPR7/URG2=0.0
-!
-!RPR7/UR26=0.0
-!
-!RPR7/RPG2=0.0
-!
-!RPR7/RP18=0.0
-!
-!RPR7/RPG3=0.0
-!
-!RPR7/URG4=0.0
-!
-!RPR7/UR8=0.0
-!
-!RPR7/UR17=0.0
-!
-!RPR7/UR7=0.0
-!
-!RPR7/RPR3=0.0
-!
-!RPR7/URG6=0.0
-!
-!RPR7/UR22=0.0
-!
-!RPR7/URG7=0.0
-!
-!RPR7/RPR4=0.0
-!
-!RPR7/RPR7=-K322*<OH>
- PJAC(:,62,62)=-TPK%K322(:)*PCONC(:,15)
-!
-!RPR7/RPG7=0.0
-!
-!RPR7/URG8=0.0
-!
-!RPR7/UR19=0.0
-!
-!RPR7/URG9=0.0
-!
-!RPR7/AP7=0.0
-!
-!RPR7/URG10=0.0
-!
-!RPR7/RPR1=0.0
-!
-!RPR7/RPR5=0.0
-!
-!RPR7/RPR8=0.0
-!
-!RPR7/RP10=0.0
-!
-!RPR7/RP11=0.0
-!
-!RPR7/RP16=0.0
-!
-!RPR7/RPRL=-03*K306*<OH>
- PJAC(:,62,75)=-03*TPK%K306(:)*PCONC(:,15)
-!
-!RPR7/APAN=0.0
-!
-!RPR7/PAN1=0.0
-!
-!RPR7/PAN2=0.0
-!
-!RPR7/PAN3=0.0
-!
-!RPR7/PAN4=0.0
-!
-!RPR7/PAN6=0.0
-!
-!RPR7/PAN7=0.0
-!
-!RPR7/PAN8=0.0
-!
-!RPR7/PN10=0.0
-!
-!RPR7/RO2T=+K196*<RO223>
- PJAC(:,62,85)=+TPK%K196(:)*TPK%RO223(:)
-!
-!RPR7/RO21=0.0
-!
-!RPR7/RO25=0.0
-!
-!RPR7/WC_O3=0.0
-!
-!RPR7/WC_H2O2=0.0
-!
-!RPR7/WC_NO=0.0
-!
-!RPR7/WC_NO2=0.0
-!
-!RPR7/WC_NO3=0.0
-!
-!RPR7/WC_N2O5=0.0
-!
-!RPR7/WC_HONO=0.0
-!
-!RPR7/WC_HNO3=0.0
-!
-!RPR7/WC_HNO4=0.0
-!
-!RPR7/WC_NH3=0.0
-!
-!RPR7/WC_OH=0.0
-!
-!RPR7/WC_HO2=0.0
-!
-!RPR7/WC_CO2=0.0
-!
-!RPR7/WC_SO2=0.0
-!
-!RPR7/WC_H2SO4=0.0
-!
-!RPR7/WC_RO21=0.0
-!
-!RPR7/WC_RO25=0.0
-!
-!RPR7/WC_MEOH=0.0
-!
-!RPR7/WC_ETOH=0.0
-!
-!RPR7/WC_ALCH=0.0
-!
-!RPR7/WC_HCHO=0.0
-!
-!RPR7/WC_ALD2=0.0
-!
-!RPR7/WC_GLY=0.0
-!
-!RPR7/WC_MGLY=0.0
-!
-!RPR7/WC_KETL=0.0
-!
-!RPR7/WC_ORA1=0.0
-!
-!RPR7/WC_ORA2=0.0
-!
-!RPR7/WC_ACID=0.0
-!
-!RPR7/WC_RP16=0.0
-!
-!RPR7/WC_UR21=0.0
-!
-!RPR7/WC_UR28=0.0
-!
-!RPR7/WC_ACID2=0.0
-!
-!RPR7/WC_ASO3=0.0
-!
-!RPR7/WC_ASO4=0.0
-!
-!RPR7/WC_ASO5=0.0
-!
-!RPR7/WC_AHSO5=0.0
-!
-!RPR7/WC_AHMS=0.0
-!
-!RPR7/WR_O3=0.0
-!
-!RPR7/WR_H2O2=0.0
-!
-!RPR7/WR_NO=0.0
-!
-!RPR7/WR_NO2=0.0
-!
-!RPR7/WR_NO3=0.0
-!
-!RPR7/WR_N2O5=0.0
-!
-!RPR7/WR_HONO=0.0
-!
-!RPR7/WR_HNO3=0.0
-!
-!RPR7/WR_HNO4=0.0
-!
-!RPR7/WR_NH3=0.0
-!
-!RPR7/WR_OH=0.0
-!
-!RPR7/WR_HO2=0.0
-!
-!RPR7/WR_CO2=0.0
-!
-!RPR7/WR_SO2=0.0
-!
-!RPR7/WR_H2SO4=0.0
-!
-!RPR7/WR_RO21=0.0
-!
-!RPR7/WR_RO25=0.0
-!
-!RPR7/WR_MEOH=0.0
-!
-!RPR7/WR_ETOH=0.0
-!
-!RPR7/WR_ALCH=0.0
-!
-!RPR7/WR_HCHO=0.0
-!
-!RPR7/WR_ALD2=0.0
-!
-!RPR7/WR_GLY=0.0
-!
-!RPR7/WR_MGLY=0.0
-!
-!RPR7/WR_KETL=0.0
-!
-!RPR7/WR_ORA1=0.0
-!
-!RPR7/WR_ORA2=0.0
-!
-!RPR7/WR_ACID=0.0
-!
-!RPR7/WR_RP16=0.0
-!
-!RPR7/WR_UR21=0.0
-!
-!RPR7/WR_UR28=0.0
-!
-!RPR7/WR_ACID2=0.0
-!
-!RPR7/WR_ASO3=0.0
-!
-!RPR7/WR_ASO4=0.0
-!
-!RPR7/WR_ASO5=0.0
-!
-!RPR7/WR_AHSO5=0.0
-!
-!RPR7/WR_AHMS=0.0
-!
-!RPG7/NO=+1.0000013*K266*<RO238>
- PJAC(:,63,1)=+1.0000013*TPK%K266(:)*TPK%RO238(:)
-!
-!RPG7/NO2=0.0
-!
-!RPG7/O3=0.0
-!
-!RPG7/HONO=0.0
-!
-!RPG7/HNO3=0.0
-!
-!RPG7/HNO4=0.0
-!
-!RPG7/N2O5=0.0
-!
-!RPG7/NO3=0.0
-!
-!RPG7/NH3=0.0
-!
-!RPG7/HO2=+1.0000013*K268*<RO238>
- PJAC(:,63,10)=+1.0000013*TPK%K268(:)*TPK%RO238(:)
-!
-!RPG7/CO=0.0
-!
-!RPG7/H2O2=0.0
-!
-!RPG7/SO2=0.0
-!
-!RPG7/H2SO4=0.0
-!
-!RPG7/OH=+0.5021558*K323*<RPG7>-K323*<RPG7>
- PJAC(:,63,15)=+0.5021558*TPK%K323(:)*PCONC(:,63)-TPK%K323(:)*PCONC(:,63)
-!
-!RPG7/ETHE=0.0
-!
-!RPG7/OLEL=0.0
-!
-!RPG7/OLEH=0.0
-!
-!RPG7/ALKL=0.0
-!
-!RPG7/ALKM=0.0
-!
-!RPG7/ALKH=0.0
-!
-!RPG7/AROH=0.0
-!
-!RPG7/AROL=0.0
-!
-!RPG7/AROO=0.0
-!
-!RPG7/ARAL=0.0
-!
-!RPG7/ARAC=0.0
-!
-!RPG7/PAH=0.0
-!
-!RPG7/HCHO=0.0
-!
-!RPG7/ALD2=0.0
-!
-!RPG7/KETL=0.0
-!
-!RPG7/KETH=0.0
-!
-!RPG7/MEOH=0.0
-!
-!RPG7/ETOH=0.0
-!
-!RPG7/ALCH=0.0
-!
-!RPG7/ISOP=0.0
-!
-!RPG7/BIOL=0.0
-!
-!RPG7/BIOH=0.0
-!
-!RPG7/MTBE=0.0
-!
-!RPG7/MVK=0.0
-!
-!RPG7/MCR=0.0
-!
-!RPG7/MGLY=0.0
-!
-!RPG7/GLY=0.0
-!
-!RPG7/ORA1=0.0
-!
-!RPG7/ORA2=0.0
-!
-!RPG7/ACID=0.0
-!
-!RPG7/UR28=0.0
-!
-!RPG7/UR21=0.0
-!
-!RPG7/URG2=0.0
-!
-!RPG7/UR26=0.0
-!
-!RPG7/RPG2=0.0
-!
-!RPG7/RP18=0.0
-!
-!RPG7/RPG3=0.0
-!
-!RPG7/URG4=0.0
-!
-!RPG7/UR8=0.0
-!
-!RPG7/UR17=0.0
-!
-!RPG7/UR7=0.0
-!
-!RPG7/RPR3=0.0
-!
-!RPG7/URG6=0.0
-!
-!RPG7/UR22=0.0
-!
-!RPG7/URG7=0.0
-!
-!RPG7/RPR4=0.0
-!
-!RPG7/RPR7=0.0
-!
-!RPG7/RPG7=+0.5021558*K323*<OH>-K323*<OH>
- PJAC(:,63,63)=+0.5021558*TPK%K323(:)*PCONC(:,15)-TPK%K323(:)*PCONC(:,15)
-!
-!RPG7/URG8=0.0
-!
-!RPG7/UR19=0.0
-!
-!RPG7/URG9=0.0
-!
-!RPG7/AP7=0.0
-!
-!RPG7/URG10=0.0
-!
-!RPG7/RPR1=0.0
-!
-!RPG7/RPR5=0.0
-!
-!RPG7/RPR8=0.0
-!
-!RPG7/RP10=0.0
-!
-!RPG7/RP11=0.0
-!
-!RPG7/RP16=0.0
-!
-!RPG7/RPRL=0.0
-!
-!RPG7/APAN=0.0
-!
-!RPG7/PAN1=0.0
-!
-!RPG7/PAN2=0.0
-!
-!RPG7/PAN3=0.0
-!
-!RPG7/PAN4=0.0
-!
-!RPG7/PAN6=0.0
-!
-!RPG7/PAN7=0.0
-!
-!RPG7/PAN8=0.0
-!
-!RPG7/PN10=0.0
-!
-!RPG7/RO2T=+1.0000013*K267*<RO238>
- PJAC(:,63,85)=+1.0000013*TPK%K267(:)*TPK%RO238(:)
-!
-!RPG7/RO21=0.0
-!
-!RPG7/RO25=0.0
-!
-!RPG7/WC_O3=0.0
-!
-!RPG7/WC_H2O2=0.0
-!
-!RPG7/WC_NO=0.0
-!
-!RPG7/WC_NO2=0.0
-!
-!RPG7/WC_NO3=0.0
-!
-!RPG7/WC_N2O5=0.0
-!
-!RPG7/WC_HONO=0.0
-!
-!RPG7/WC_HNO3=0.0
-!
-!RPG7/WC_HNO4=0.0
-!
-!RPG7/WC_NH3=0.0
-!
-!RPG7/WC_OH=0.0
-!
-!RPG7/WC_HO2=0.0
-!
-!RPG7/WC_CO2=0.0
-!
-!RPG7/WC_SO2=0.0
-!
-!RPG7/WC_H2SO4=0.0
-!
-!RPG7/WC_RO21=0.0
-!
-!RPG7/WC_RO25=0.0
-!
-!RPG7/WC_MEOH=0.0
-!
-!RPG7/WC_ETOH=0.0
-!
-!RPG7/WC_ALCH=0.0
-!
-!RPG7/WC_HCHO=0.0
-!
-!RPG7/WC_ALD2=0.0
-!
-!RPG7/WC_GLY=0.0
-!
-!RPG7/WC_MGLY=0.0
-!
-!RPG7/WC_KETL=0.0
-!
-!RPG7/WC_ORA1=0.0
-!
-!RPG7/WC_ORA2=0.0
-!
-!RPG7/WC_ACID=0.0
-!
-!RPG7/WC_RP16=0.0
-!
-!RPG7/WC_UR21=0.0
-!
-!RPG7/WC_UR28=0.0
-!
-!RPG7/WC_ACID2=0.0
-!
-!RPG7/WC_ASO3=0.0
-!
-!RPG7/WC_ASO4=0.0
-!
-!RPG7/WC_ASO5=0.0
-!
-!RPG7/WC_AHSO5=0.0
-!
-!RPG7/WC_AHMS=0.0
-!
-!RPG7/WR_O3=0.0
-!
-!RPG7/WR_H2O2=0.0
-!
-!RPG7/WR_NO=0.0
-!
-!RPG7/WR_NO2=0.0
-!
-!RPG7/WR_NO3=0.0
-!
-!RPG7/WR_N2O5=0.0
-!
-!RPG7/WR_HONO=0.0
-!
-!RPG7/WR_HNO3=0.0
-!
-!RPG7/WR_HNO4=0.0
-!
-!RPG7/WR_NH3=0.0
-!
-!RPG7/WR_OH=0.0
-!
-!RPG7/WR_HO2=0.0
-!
-!RPG7/WR_CO2=0.0
-!
-!RPG7/WR_SO2=0.0
-!
-!RPG7/WR_H2SO4=0.0
-!
-!RPG7/WR_RO21=0.0
-!
-!RPG7/WR_RO25=0.0
-!
-!RPG7/WR_MEOH=0.0
-!
-!RPG7/WR_ETOH=0.0
-!
-!RPG7/WR_ALCH=0.0
-!
-!RPG7/WR_HCHO=0.0
-!
-!RPG7/WR_ALD2=0.0
-!
-!RPG7/WR_GLY=0.0
-!
-!RPG7/WR_MGLY=0.0
-!
-!RPG7/WR_KETL=0.0
-!
-!RPG7/WR_ORA1=0.0
-!
-!RPG7/WR_ORA2=0.0
-!
-!RPG7/WR_ACID=0.0
-!
-!RPG7/WR_RP16=0.0
-!
-!RPG7/WR_UR21=0.0
-!
-!RPG7/WR_UR28=0.0
-!
-!RPG7/WR_ACID2=0.0
-!
-!RPG7/WR_ASO3=0.0
-!
-!RPG7/WR_ASO4=0.0
-!
-!RPG7/WR_ASO5=0.0
-!
-!RPG7/WR_AHSO5=0.0
-!
-!RPG7/WR_AHMS=0.0
-!
-!URG8/NO=+TPK%CF31*K221*<RO231>
- PJAC(:,64,1)=+TPK%CF31*TPK%K221(:)*TPK%RO231(:)
-!
-!URG8/NO2=+1.0000000*K109*<RAD7>
- PJAC(:,64,2)=+1.0000000*TPK%K109(:)*TPK%RAD7(:)
-!
-!URG8/O3=0.0
-!
-!URG8/HONO=0.0
-!
-!URG8/HNO3=0.0
-!
-!URG8/HNO4=0.0
-!
-!URG8/N2O5=0.0
-!
-!URG8/NO3=0.0
-!
-!URG8/NH3=0.0
-!
-!URG8/HO2=0.0
-!
-!URG8/CO=0.0
-!
-!URG8/H2O2=0.0
-!
-!URG8/SO2=0.0
-!
-!URG8/H2SO4=0.0
-!
-!URG8/OH=+0.1600000*K092*<PAH>
- PJAC(:,64,15)=+0.1600000*TPK%K092(:)*PCONC(:,27)
-!
-!URG8/ETHE=0.0
-!
-!URG8/OLEL=0.0
-!
-!URG8/OLEH=0.0
-!
-!URG8/ALKL=0.0
-!
-!URG8/ALKM=0.0
-!
-!URG8/ALKH=0.0
-!
-!URG8/AROH=0.0
-!
-!URG8/AROL=0.0
-!
-!URG8/AROO=0.0
-!
-!URG8/ARAL=0.0
-!
-!URG8/ARAC=0.0
-!
-!URG8/PAH=+0.1600000*K092*<OH>
- PJAC(:,64,27)=+0.1600000*TPK%K092(:)*PCONC(:,15)
-!
-!URG8/HCHO=0.0
-!
-!URG8/ALD2=0.0
-!
-!URG8/KETL=0.0
-!
-!URG8/KETH=0.0
-!
-!URG8/MEOH=0.0
-!
-!URG8/ETOH=0.0
-!
-!URG8/ALCH=0.0
-!
-!URG8/ISOP=0.0
-!
-!URG8/BIOL=0.0
-!
-!URG8/BIOH=0.0
-!
-!URG8/MTBE=0.0
-!
-!URG8/MVK=0.0
-!
-!URG8/MCR=0.0
-!
-!URG8/MGLY=0.0
-!
-!URG8/GLY=0.0
-!
-!URG8/ORA1=0.0
-!
-!URG8/ORA2=0.0
-!
-!URG8/ACID=0.0
-!
-!URG8/UR28=0.0
-!
-!URG8/UR21=0.0
-!
-!URG8/URG2=0.0
-!
-!URG8/UR26=0.0
-!
-!URG8/RPG2=0.0
-!
-!URG8/RP18=0.0
-!
-!URG8/RPG3=0.0
-!
-!URG8/URG4=0.0
-!
-!URG8/UR8=0.0
-!
-!URG8/UR17=0.0
-!
-!URG8/UR7=0.0
-!
-!URG8/RPR3=0.0
-!
-!URG8/URG6=0.0
-!
-!URG8/UR22=0.0
-!
-!URG8/URG7=0.0
-!
-!URG8/RPR4=0.0
-!
-!URG8/RPR7=0.0
-!
-!URG8/RPG7=0.0
-!
-!URG8/URG8=-K354
- PJAC(:,64,64)=-TPK%K354(:)
-!
-!URG8/UR19=0.0
-!
-!URG8/URG9=0.0
-!
-!URG8/AP7=0.0
-!
-!URG8/URG10=0.0
-!
-!URG8/RPR1=0.0
-!
-!URG8/RPR5=0.0
-!
-!URG8/RPR8=0.0
-!
-!URG8/RP10=0.0
-!
-!URG8/RP11=0.0
-!
-!URG8/RP16=0.0
-!
-!URG8/RPRL=0.0
-!
-!URG8/APAN=0.0
-!
-!URG8/PAN1=0.0
-!
-!URG8/PAN2=0.0
-!
-!URG8/PAN3=0.0
-!
-!URG8/PAN4=0.0
-!
-!URG8/PAN6=0.0
-!
-!URG8/PAN7=0.0
-!
-!URG8/PAN8=0.0
-!
-!URG8/PN10=0.0
-!
-!URG8/RO2T=0.0
-!
-!URG8/RO21=0.0
-!
-!URG8/RO25=0.0
-!
-!URG8/WC_O3=0.0
-!
-!URG8/WC_H2O2=0.0
-!
-!URG8/WC_NO=0.0
-!
-!URG8/WC_NO2=0.0
-!
-!URG8/WC_NO3=0.0
-!
-!URG8/WC_N2O5=0.0
-!
-!URG8/WC_HONO=0.0
-!
-!URG8/WC_HNO3=0.0
-!
-!URG8/WC_HNO4=0.0
-!
-!URG8/WC_NH3=0.0
-!
-!URG8/WC_OH=0.0
-!
-!URG8/WC_HO2=0.0
-!
-!URG8/WC_CO2=0.0
-!
-!URG8/WC_SO2=0.0
-!
-!URG8/WC_H2SO4=0.0
-!
-!URG8/WC_RO21=0.0
-!
-!URG8/WC_RO25=0.0
-!
-!URG8/WC_MEOH=0.0
-!
-!URG8/WC_ETOH=0.0
-!
-!URG8/WC_ALCH=0.0
-!
-!URG8/WC_HCHO=0.0
-!
-!URG8/WC_ALD2=0.0
-!
-!URG8/WC_GLY=0.0
-!
-!URG8/WC_MGLY=0.0
-!
-!URG8/WC_KETL=0.0
-!
-!URG8/WC_ORA1=0.0
-!
-!URG8/WC_ORA2=0.0
-!
-!URG8/WC_ACID=0.0
-!
-!URG8/WC_RP16=0.0
-!
-!URG8/WC_UR21=0.0
-!
-!URG8/WC_UR28=0.0
-!
-!URG8/WC_ACID2=0.0
-!
-!URG8/WC_ASO3=0.0
-!
-!URG8/WC_ASO4=0.0
-!
-!URG8/WC_ASO5=0.0
-!
-!URG8/WC_AHSO5=0.0
-!
-!URG8/WC_AHMS=0.0
-!
-!URG8/WR_O3=0.0
-!
-!URG8/WR_H2O2=0.0
-!
-!URG8/WR_NO=0.0
-!
-!URG8/WR_NO2=0.0
-!
-!URG8/WR_NO3=0.0
-!
-!URG8/WR_N2O5=0.0
-!
-!URG8/WR_HONO=0.0
-!
-!URG8/WR_HNO3=0.0
-!
-!URG8/WR_HNO4=0.0
-!
-!URG8/WR_NH3=0.0
-!
-!URG8/WR_OH=0.0
-!
-!URG8/WR_HO2=0.0
-!
-!URG8/WR_CO2=0.0
-!
-!URG8/WR_SO2=0.0
-!
-!URG8/WR_H2SO4=0.0
-!
-!URG8/WR_RO21=0.0
-!
-!URG8/WR_RO25=0.0
-!
-!URG8/WR_MEOH=0.0
-!
-!URG8/WR_ETOH=0.0
-!
-!URG8/WR_ALCH=0.0
-!
-!URG8/WR_HCHO=0.0
-!
-!URG8/WR_ALD2=0.0
-!
-!URG8/WR_GLY=0.0
-!
-!URG8/WR_MGLY=0.0
-!
-!URG8/WR_KETL=0.0
-!
-!URG8/WR_ORA1=0.0
-!
-!URG8/WR_ORA2=0.0
-!
-!URG8/WR_ACID=0.0
-!
-!URG8/WR_RP16=0.0
-!
-!URG8/WR_UR21=0.0
-!
-!URG8/WR_UR28=0.0
-!
-!URG8/WR_ACID2=0.0
-!
-!URG8/WR_ASO3=0.0
-!
-!URG8/WR_ASO4=0.0
-!
-!URG8/WR_ASO5=0.0
-!
-!URG8/WR_AHSO5=0.0
-!
-!URG8/WR_AHMS=0.0
-!
-!UR19/NO=+TPK%CF32*K221*<RO231>
- PJAC(:,65,1)=+TPK%CF32*TPK%K221(:)*TPK%RO231(:)
-!
-!UR19/NO2=0.0
-!
-!UR19/O3=0.0
-!
-!UR19/HONO=0.0
-!
-!UR19/HNO3=0.0
-!
-!UR19/HNO4=0.0
-!
-!UR19/N2O5=0.0
-!
-!UR19/NO3=0.0
-!
-!UR19/NH3=0.0
-!
-!UR19/HO2=+K223*<RO231>
- PJAC(:,65,10)=+TPK%K223(:)*TPK%RO231(:)
-!
-!UR19/CO=0.0
-!
-!UR19/H2O2=0.0
-!
-!UR19/SO2=0.0
-!
-!UR19/H2SO4=0.0
-!
-!UR19/OH=0.0
-!
-!UR19/ETHE=0.0
-!
-!UR19/OLEL=0.0
-!
-!UR19/OLEH=0.0
-!
-!UR19/ALKL=0.0
-!
-!UR19/ALKM=0.0
-!
-!UR19/ALKH=0.0
-!
-!UR19/AROH=0.0
-!
-!UR19/AROL=0.0
-!
-!UR19/AROO=0.0
-!
-!UR19/ARAL=0.0
-!
-!UR19/ARAC=0.0
-!
-!UR19/PAH=0.0
-!
-!UR19/HCHO=0.0
-!
-!UR19/ALD2=0.0
-!
-!UR19/KETL=0.0
-!
-!UR19/KETH=0.0
-!
-!UR19/MEOH=0.0
-!
-!UR19/ETOH=0.0
-!
-!UR19/ALCH=0.0
-!
-!UR19/ISOP=0.0
-!
-!UR19/BIOL=0.0
-!
-!UR19/BIOH=0.0
-!
-!UR19/MTBE=0.0
-!
-!UR19/MVK=0.0
-!
-!UR19/MCR=0.0
-!
-!UR19/MGLY=0.0
-!
-!UR19/GLY=0.0
-!
-!UR19/ORA1=0.0
-!
-!UR19/ORA2=0.0
-!
-!UR19/ACID=0.0
-!
-!UR19/UR28=0.0
-!
-!UR19/UR21=0.0
-!
-!UR19/URG2=0.0
-!
-!UR19/UR26=0.0
-!
-!UR19/RPG2=0.0
-!
-!UR19/RP18=0.0
-!
-!UR19/RPG3=0.0
-!
-!UR19/URG4=0.0
-!
-!UR19/UR8=0.0
-!
-!UR19/UR17=0.0
-!
-!UR19/UR7=0.0
-!
-!UR19/RPR3=0.0
-!
-!UR19/URG6=0.0
-!
-!UR19/UR22=0.0
-!
-!UR19/URG7=0.0
-!
-!UR19/RPR4=0.0
-!
-!UR19/RPR7=0.0
-!
-!UR19/RPG7=0.0
-!
-!UR19/URG8=0.0
-!
-!UR19/UR19=-K360
- PJAC(:,65,65)=-TPK%K360(:)
-!
-!UR19/URG9=0.0
-!
-!UR19/AP7=0.0
-!
-!UR19/URG10=0.0
-!
-!UR19/RPR1=0.0
-!
-!UR19/RPR5=0.0
-!
-!UR19/RPR8=0.0
-!
-!UR19/RP10=0.0
-!
-!UR19/RP11=0.0
-!
-!UR19/RP16=0.0
-!
-!UR19/RPRL=0.0
-!
-!UR19/APAN=0.0
-!
-!UR19/PAN1=0.0
-!
-!UR19/PAN2=0.0
-!
-!UR19/PAN3=0.0
-!
-!UR19/PAN4=0.0
-!
-!UR19/PAN6=0.0
-!
-!UR19/PAN7=0.0
-!
-!UR19/PAN8=0.0
-!
-!UR19/PN10=0.0
-!
-!UR19/RO2T=+K222*<RO231>
- PJAC(:,65,85)=+TPK%K222(:)*TPK%RO231(:)
-!
-!UR19/RO21=0.0
-!
-!UR19/RO25=0.0
-!
-!UR19/WC_O3=0.0
-!
-!UR19/WC_H2O2=0.0
-!
-!UR19/WC_NO=0.0
-!
-!UR19/WC_NO2=0.0
-!
-!UR19/WC_NO3=0.0
-!
-!UR19/WC_N2O5=0.0
-!
-!UR19/WC_HONO=0.0
-!
-!UR19/WC_HNO3=0.0
-!
-!UR19/WC_HNO4=0.0
-!
-!UR19/WC_NH3=0.0
-!
-!UR19/WC_OH=0.0
-!
-!UR19/WC_HO2=0.0
-!
-!UR19/WC_CO2=0.0
-!
-!UR19/WC_SO2=0.0
-!
-!UR19/WC_H2SO4=0.0
-!
-!UR19/WC_RO21=0.0
-!
-!UR19/WC_RO25=0.0
-!
-!UR19/WC_MEOH=0.0
-!
-!UR19/WC_ETOH=0.0
-!
-!UR19/WC_ALCH=0.0
-!
-!UR19/WC_HCHO=0.0
-!
-!UR19/WC_ALD2=0.0
-!
-!UR19/WC_GLY=0.0
-!
-!UR19/WC_MGLY=0.0
-!
-!UR19/WC_KETL=0.0
-!
-!UR19/WC_ORA1=0.0
-!
-!UR19/WC_ORA2=0.0
-!
-!UR19/WC_ACID=0.0
-!
-!UR19/WC_RP16=0.0
-!
-!UR19/WC_UR21=0.0
-!
-!UR19/WC_UR28=0.0
-!
-!UR19/WC_ACID2=0.0
-!
-!UR19/WC_ASO3=0.0
-!
-!UR19/WC_ASO4=0.0
-!
-!UR19/WC_ASO5=0.0
-!
-!UR19/WC_AHSO5=0.0
-!
-!UR19/WC_AHMS=0.0
-!
-!UR19/WR_O3=0.0
-!
-!UR19/WR_H2O2=0.0
-!
-!UR19/WR_NO=0.0
-!
-!UR19/WR_NO2=0.0
-!
-!UR19/WR_NO3=0.0
-!
-!UR19/WR_N2O5=0.0
-!
-!UR19/WR_HONO=0.0
-!
-!UR19/WR_HNO3=0.0
-!
-!UR19/WR_HNO4=0.0
-!
-!UR19/WR_NH3=0.0
-!
-!UR19/WR_OH=0.0
-!
-!UR19/WR_HO2=0.0
-!
-!UR19/WR_CO2=0.0
-!
-!UR19/WR_SO2=0.0
-!
-!UR19/WR_H2SO4=0.0
-!
-!UR19/WR_RO21=0.0
-!
-!UR19/WR_RO25=0.0
-!
-!UR19/WR_MEOH=0.0
-!
-!UR19/WR_ETOH=0.0
-!
-!UR19/WR_ALCH=0.0
-!
-!UR19/WR_HCHO=0.0
-!
-!UR19/WR_ALD2=0.0
-!
-!UR19/WR_GLY=0.0
-!
-!UR19/WR_MGLY=0.0
-!
-!UR19/WR_KETL=0.0
-!
-!UR19/WR_ORA1=0.0
-!
-!UR19/WR_ORA2=0.0
-!
-!UR19/WR_ACID=0.0
-!
-!UR19/WR_RP16=0.0
-!
-!UR19/WR_UR21=0.0
-!
-!UR19/WR_UR28=0.0
-!
-!UR19/WR_ACID2=0.0
-!
-!UR19/WR_ASO3=0.0
-!
-!UR19/WR_ASO4=0.0
-!
-!UR19/WR_ASO5=0.0
-!
-!UR19/WR_AHSO5=0.0
-!
-!UR19/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ12
-!
-SUBROUTINE SUBJ13
-!
-!Indices 66 a 70
-!
-!
-!URG9/NO=+TPK%CFA14*K224*<RO232>+TPK%CFA16*K227*<RO241>+TPK%CFA15*K227*<RO241>
- PJAC(:,66,1)=+TPK%CFA14*TPK%K224(:)*TPK%RO232(:)+TPK%CFA16*TPK%K227(:)*TPK%RO2&
-&41(:)+TPK%CFA15*TPK%K227(:)*TPK%RO241(:)
-!
-!URG9/NO2=0.0
-!
-!URG9/O3=0.0
-!
-!URG9/HONO=0.0
-!
-!URG9/HNO3=0.0
-!
-!URG9/HNO4=0.0
-!
-!URG9/N2O5=0.0
-!
-!URG9/NO3=0.0
-!
-!URG9/NH3=0.0
-!
-!URG9/HO2=+0.9999996*K229*<RO241>
- PJAC(:,66,10)=+0.9999996*TPK%K229(:)*TPK%RO241(:)
-!
-!URG9/CO=0.0
-!
-!URG9/H2O2=0.0
-!
-!URG9/SO2=0.0
-!
-!URG9/H2SO4=0.0
-!
-!URG9/OH=0.0
-!
-!URG9/ETHE=0.0
-!
-!URG9/OLEL=0.0
-!
-!URG9/OLEH=0.0
-!
-!URG9/ALKL=0.0
-!
-!URG9/ALKM=0.0
-!
-!URG9/ALKH=0.0
-!
-!URG9/AROH=0.0
-!
-!URG9/AROL=0.0
-!
-!URG9/AROO=0.0
-!
-!URG9/ARAL=0.0
-!
-!URG9/ARAC=0.0
-!
-!URG9/PAH=0.0
-!
-!URG9/HCHO=0.0
-!
-!URG9/ALD2=0.0
-!
-!URG9/KETL=0.0
-!
-!URG9/KETH=0.0
-!
-!URG9/MEOH=0.0
-!
-!URG9/ETOH=0.0
-!
-!URG9/ALCH=0.0
-!
-!URG9/ISOP=0.0
-!
-!URG9/BIOL=0.0
-!
-!URG9/BIOH=0.0
-!
-!URG9/MTBE=0.0
-!
-!URG9/MVK=0.0
-!
-!URG9/MCR=0.0
-!
-!URG9/MGLY=0.0
-!
-!URG9/GLY=0.0
-!
-!URG9/ORA1=0.0
-!
-!URG9/ORA2=0.0
-!
-!URG9/ACID=0.0
-!
-!URG9/UR28=0.0
-!
-!URG9/UR21=0.0
-!
-!URG9/URG2=0.0
-!
-!URG9/UR26=0.0
-!
-!URG9/RPG2=0.0
-!
-!URG9/RP18=0.0
-!
-!URG9/RPG3=0.0
-!
-!URG9/URG4=0.0
-!
-!URG9/UR8=0.0
-!
-!URG9/UR17=0.0
-!
-!URG9/UR7=0.0
-!
-!URG9/RPR3=0.0
-!
-!URG9/URG6=0.0
-!
-!URG9/UR22=0.0
-!
-!URG9/URG7=0.0
-!
-!URG9/RPR4=0.0
-!
-!URG9/RPR7=0.0
-!
-!URG9/RPG7=0.0
-!
-!URG9/URG8=0.0
-!
-!URG9/UR19=0.0
-!
-!URG9/URG9=-K355
- PJAC(:,66,66)=-TPK%K355(:)
-!
-!URG9/AP7=0.0
-!
-!URG9/URG10=0.0
-!
-!URG9/RPR1=0.0
-!
-!URG9/RPR5=0.0
-!
-!URG9/RPR8=0.0
-!
-!URG9/RP10=0.0
-!
-!URG9/RP11=0.0
-!
-!URG9/RP16=0.0
-!
-!URG9/RPRL=0.0
-!
-!URG9/APAN=0.0
-!
-!URG9/PAN1=0.0
-!
-!URG9/PAN2=0.0
-!
-!URG9/PAN3=0.0
-!
-!URG9/PAN4=0.0
-!
-!URG9/PAN6=0.0
-!
-!URG9/PAN7=0.0
-!
-!URG9/PAN8=0.0
-!
-!URG9/PN10=0.0
-!
-!URG9/RO2T=+0.9999996*K228*<RO241>
- PJAC(:,66,85)=+0.9999996*TPK%K228(:)*TPK%RO241(:)
-!
-!URG9/RO21=0.0
-!
-!URG9/RO25=0.0
-!
-!URG9/WC_O3=0.0
-!
-!URG9/WC_H2O2=0.0
-!
-!URG9/WC_NO=0.0
-!
-!URG9/WC_NO2=0.0
-!
-!URG9/WC_NO3=0.0
-!
-!URG9/WC_N2O5=0.0
-!
-!URG9/WC_HONO=0.0
-!
-!URG9/WC_HNO3=0.0
-!
-!URG9/WC_HNO4=0.0
-!
-!URG9/WC_NH3=0.0
-!
-!URG9/WC_OH=0.0
-!
-!URG9/WC_HO2=0.0
-!
-!URG9/WC_CO2=0.0
-!
-!URG9/WC_SO2=0.0
-!
-!URG9/WC_H2SO4=0.0
-!
-!URG9/WC_RO21=0.0
-!
-!URG9/WC_RO25=0.0
-!
-!URG9/WC_MEOH=0.0
-!
-!URG9/WC_ETOH=0.0
-!
-!URG9/WC_ALCH=0.0
-!
-!URG9/WC_HCHO=0.0
-!
-!URG9/WC_ALD2=0.0
-!
-!URG9/WC_GLY=0.0
-!
-!URG9/WC_MGLY=0.0
-!
-!URG9/WC_KETL=0.0
-!
-!URG9/WC_ORA1=0.0
-!
-!URG9/WC_ORA2=0.0
-!
-!URG9/WC_ACID=0.0
-!
-!URG9/WC_RP16=0.0
-!
-!URG9/WC_UR21=0.0
-!
-!URG9/WC_UR28=0.0
-!
-!URG9/WC_ACID2=0.0
-!
-!URG9/WC_ASO3=0.0
-!
-!URG9/WC_ASO4=0.0
-!
-!URG9/WC_ASO5=0.0
-!
-!URG9/WC_AHSO5=0.0
-!
-!URG9/WC_AHMS=0.0
-!
-!URG9/WR_O3=0.0
-!
-!URG9/WR_H2O2=0.0
-!
-!URG9/WR_NO=0.0
-!
-!URG9/WR_NO2=0.0
-!
-!URG9/WR_NO3=0.0
-!
-!URG9/WR_N2O5=0.0
-!
-!URG9/WR_HONO=0.0
-!
-!URG9/WR_HNO3=0.0
-!
-!URG9/WR_HNO4=0.0
-!
-!URG9/WR_NH3=0.0
-!
-!URG9/WR_OH=0.0
-!
-!URG9/WR_HO2=0.0
-!
-!URG9/WR_CO2=0.0
-!
-!URG9/WR_SO2=0.0
-!
-!URG9/WR_H2SO4=0.0
-!
-!URG9/WR_RO21=0.0
-!
-!URG9/WR_RO25=0.0
-!
-!URG9/WR_MEOH=0.0
-!
-!URG9/WR_ETOH=0.0
-!
-!URG9/WR_ALCH=0.0
-!
-!URG9/WR_HCHO=0.0
-!
-!URG9/WR_ALD2=0.0
-!
-!URG9/WR_GLY=0.0
-!
-!URG9/WR_MGLY=0.0
-!
-!URG9/WR_KETL=0.0
-!
-!URG9/WR_ORA1=0.0
-!
-!URG9/WR_ORA2=0.0
-!
-!URG9/WR_ACID=0.0
-!
-!URG9/WR_RP16=0.0
-!
-!URG9/WR_UR21=0.0
-!
-!URG9/WR_UR28=0.0
-!
-!URG9/WR_ACID2=0.0
-!
-!URG9/WR_ASO3=0.0
-!
-!URG9/WR_ASO4=0.0
-!
-!URG9/WR_ASO5=0.0
-!
-!URG9/WR_AHSO5=0.0
-!
-!URG9/WR_AHMS=0.0
-!
-!AP7/NO=+TPK%CFA23*K198*<RO224>
- PJAC(:,67,1)=+TPK%CFA23*TPK%K198(:)*TPK%RO224(:)
-!
-!AP7/NO2=0.0
-!
-!AP7/O3=0.0
-!
-!AP7/HONO=0.0
-!
-!AP7/HNO3=0.0
-!
-!AP7/HNO4=0.0
-!
-!AP7/N2O5=0.0
-!
-!AP7/NO3=0.0
-!
-!AP7/NH3=0.0
-!
-!AP7/HO2=0.0
-!
-!AP7/CO=0.0
-!
-!AP7/H2O2=0.0
-!
-!AP7/SO2=0.0
-!
-!AP7/H2SO4=0.0
-!
-!AP7/OH=0.0
-!
-!AP7/ETHE=0.0
-!
-!AP7/OLEL=0.0
-!
-!AP7/OLEH=0.0
-!
-!AP7/ALKL=0.0
-!
-!AP7/ALKM=0.0
-!
-!AP7/ALKH=0.0
-!
-!AP7/AROH=0.0
-!
-!AP7/AROL=0.0
-!
-!AP7/AROO=0.0
-!
-!AP7/ARAL=0.0
-!
-!AP7/ARAC=0.0
-!
-!AP7/PAH=0.0
-!
-!AP7/HCHO=0.0
-!
-!AP7/ALD2=0.0
-!
-!AP7/KETL=0.0
-!
-!AP7/KETH=0.0
-!
-!AP7/MEOH=0.0
-!
-!AP7/ETOH=0.0
-!
-!AP7/ALCH=0.0
-!
-!AP7/ISOP=0.0
-!
-!AP7/BIOL=0.0
-!
-!AP7/BIOH=0.0
-!
-!AP7/MTBE=0.0
-!
-!AP7/MVK=0.0
-!
-!AP7/MCR=0.0
-!
-!AP7/MGLY=0.0
-!
-!AP7/GLY=0.0
-!
-!AP7/ORA1=0.0
-!
-!AP7/ORA2=0.0
-!
-!AP7/ACID=0.0
-!
-!AP7/UR28=0.0
-!
-!AP7/UR21=0.0
-!
-!AP7/URG2=0.0
-!
-!AP7/UR26=0.0
-!
-!AP7/RPG2=0.0
-!
-!AP7/RP18=0.0
-!
-!AP7/RPG3=0.0
-!
-!AP7/URG4=0.0
-!
-!AP7/UR8=0.0
-!
-!AP7/UR17=0.0
-!
-!AP7/UR7=0.0
-!
-!AP7/RPR3=0.0
-!
-!AP7/URG6=0.0
-!
-!AP7/UR22=0.0
-!
-!AP7/URG7=0.0
-!
-!AP7/RPR4=0.0
-!
-!AP7/RPR7=0.0
-!
-!AP7/RPG7=0.0
-!
-!AP7/URG8=0.0
-!
-!AP7/UR19=0.0
-!
-!AP7/URG9=0.0
-!
-!AP7/AP7=-K365
- PJAC(:,67,67)=-TPK%K365(:)
-!
-!AP7/URG10=0.0
-!
-!AP7/RPR1=0.0
-!
-!AP7/RPR5=0.0
-!
-!AP7/RPR8=0.0
-!
-!AP7/RP10=0.0
-!
-!AP7/RP11=0.0
-!
-!AP7/RP16=0.0
-!
-!AP7/RPRL=0.0
-!
-!AP7/APAN=0.0
-!
-!AP7/PAN1=0.0
-!
-!AP7/PAN2=0.0
-!
-!AP7/PAN3=0.0
-!
-!AP7/PAN4=0.0
-!
-!AP7/PAN6=0.0
-!
-!AP7/PAN7=0.0
-!
-!AP7/PAN8=0.0
-!
-!AP7/PN10=0.0
-!
-!AP7/RO2T=0.0
-!
-!AP7/RO21=0.0
-!
-!AP7/RO25=0.0
-!
-!AP7/WC_O3=0.0
-!
-!AP7/WC_H2O2=0.0
-!
-!AP7/WC_NO=0.0
-!
-!AP7/WC_NO2=0.0
-!
-!AP7/WC_NO3=0.0
-!
-!AP7/WC_N2O5=0.0
-!
-!AP7/WC_HONO=0.0
-!
-!AP7/WC_HNO3=0.0
-!
-!AP7/WC_HNO4=0.0
-!
-!AP7/WC_NH3=0.0
-!
-!AP7/WC_OH=0.0
-!
-!AP7/WC_HO2=0.0
-!
-!AP7/WC_CO2=0.0
-!
-!AP7/WC_SO2=0.0
-!
-!AP7/WC_H2SO4=0.0
-!
-!AP7/WC_RO21=0.0
-!
-!AP7/WC_RO25=0.0
-!
-!AP7/WC_MEOH=0.0
-!
-!AP7/WC_ETOH=0.0
-!
-!AP7/WC_ALCH=0.0
-!
-!AP7/WC_HCHO=0.0
-!
-!AP7/WC_ALD2=0.0
-!
-!AP7/WC_GLY=0.0
-!
-!AP7/WC_MGLY=0.0
-!
-!AP7/WC_KETL=0.0
-!
-!AP7/WC_ORA1=0.0
-!
-!AP7/WC_ORA2=0.0
-!
-!AP7/WC_ACID=0.0
-!
-!AP7/WC_RP16=0.0
-!
-!AP7/WC_UR21=0.0
-!
-!AP7/WC_UR28=0.0
-!
-!AP7/WC_ACID2=0.0
-!
-!AP7/WC_ASO3=0.0
-!
-!AP7/WC_ASO4=0.0
-!
-!AP7/WC_ASO5=0.0
-!
-!AP7/WC_AHSO5=0.0
-!
-!AP7/WC_AHMS=0.0
-!
-!AP7/WR_O3=0.0
-!
-!AP7/WR_H2O2=0.0
-!
-!AP7/WR_NO=0.0
-!
-!AP7/WR_NO2=0.0
-!
-!AP7/WR_NO3=0.0
-!
-!AP7/WR_N2O5=0.0
-!
-!AP7/WR_HONO=0.0
-!
-!AP7/WR_HNO3=0.0
-!
-!AP7/WR_HNO4=0.0
-!
-!AP7/WR_NH3=0.0
-!
-!AP7/WR_OH=0.0
-!
-!AP7/WR_HO2=0.0
-!
-!AP7/WR_CO2=0.0
-!
-!AP7/WR_SO2=0.0
-!
-!AP7/WR_H2SO4=0.0
-!
-!AP7/WR_RO21=0.0
-!
-!AP7/WR_RO25=0.0
-!
-!AP7/WR_MEOH=0.0
-!
-!AP7/WR_ETOH=0.0
-!
-!AP7/WR_ALCH=0.0
-!
-!AP7/WR_HCHO=0.0
-!
-!AP7/WR_ALD2=0.0
-!
-!AP7/WR_GLY=0.0
-!
-!AP7/WR_MGLY=0.0
-!
-!AP7/WR_KETL=0.0
-!
-!AP7/WR_ORA1=0.0
-!
-!AP7/WR_ORA2=0.0
-!
-!AP7/WR_ACID=0.0
-!
-!AP7/WR_RP16=0.0
-!
-!AP7/WR_UR21=0.0
-!
-!AP7/WR_UR28=0.0
-!
-!AP7/WR_ACID2=0.0
-!
-!AP7/WR_ASO3=0.0
-!
-!AP7/WR_ASO4=0.0
-!
-!AP7/WR_ASO5=0.0
-!
-!AP7/WR_AHSO5=0.0
-!
-!AP7/WR_AHMS=0.0
-!
-!URG10/NO=+TPK%CF27*K207*<RO227>
- PJAC(:,68,1)=+TPK%CF27*TPK%K207(:)*TPK%RO227(:)
-!
-!URG10/NO2=0.0
-!
-!URG10/O3=0.0
-!
-!URG10/HONO=0.0
-!
-!URG10/HNO3=0.0
-!
-!URG10/HNO4=0.0
-!
-!URG10/N2O5=0.0
-!
-!URG10/NO3=0.0
-!
-!URG10/NH3=0.0
-!
-!URG10/HO2=0.0
-!
-!URG10/CO=0.0
-!
-!URG10/H2O2=0.0
-!
-!URG10/SO2=0.0
-!
-!URG10/H2SO4=0.0
-!
-!URG10/OH=0.0
-!
-!URG10/ETHE=0.0
-!
-!URG10/OLEL=0.0
-!
-!URG10/OLEH=0.0
-!
-!URG10/ALKL=0.0
-!
-!URG10/ALKM=0.0
-!
-!URG10/ALKH=0.0
-!
-!URG10/AROH=0.0
-!
-!URG10/AROL=0.0
-!
-!URG10/AROO=0.0
-!
-!URG10/ARAL=0.0
-!
-!URG10/ARAC=0.0
-!
-!URG10/PAH=0.0
-!
-!URG10/HCHO=0.0
-!
-!URG10/ALD2=0.0
-!
-!URG10/KETL=0.0
-!
-!URG10/KETH=0.0
-!
-!URG10/MEOH=0.0
-!
-!URG10/ETOH=0.0
-!
-!URG10/ALCH=0.0
-!
-!URG10/ISOP=0.0
-!
-!URG10/BIOL=+0.2500000*K087*<O>+0.7500000*K087*<O>
- PJAC(:,68,36)=+0.2500000*TPK%K087(:)*TPK%O(:)+0.7500000*TPK%K087(:)*TPK%O(:)
-!
-!URG10/BIOH=0.0
-!
-!URG10/MTBE=0.0
-!
-!URG10/MVK=0.0
-!
-!URG10/MCR=0.0
-!
-!URG10/MGLY=0.0
-!
-!URG10/GLY=0.0
-!
-!URG10/ORA1=0.0
-!
-!URG10/ORA2=0.0
-!
-!URG10/ACID=0.0
-!
-!URG10/UR28=0.0
-!
-!URG10/UR21=0.0
-!
-!URG10/URG2=0.0
-!
-!URG10/UR26=0.0
-!
-!URG10/RPG2=0.0
-!
-!URG10/RP18=0.0
-!
-!URG10/RPG3=0.0
-!
-!URG10/URG4=0.0
-!
-!URG10/UR8=0.0
-!
-!URG10/UR17=0.0
-!
-!URG10/UR7=0.0
-!
-!URG10/RPR3=0.0
-!
-!URG10/URG6=0.0
-!
-!URG10/UR22=0.0
-!
-!URG10/URG7=0.0
-!
-!URG10/RPR4=0.0
-!
-!URG10/RPR7=0.0
-!
-!URG10/RPG7=0.0
-!
-!URG10/URG8=0.0
-!
-!URG10/UR19=0.0
-!
-!URG10/URG9=0.0
-!
-!URG10/AP7=0.0
-!
-!URG10/URG10=-K356
- PJAC(:,68,68)=-TPK%K356(:)
-!
-!URG10/RPR1=0.0
-!
-!URG10/RPR5=0.0
-!
-!URG10/RPR8=0.0
-!
-!URG10/RP10=0.0
-!
-!URG10/RP11=0.0
-!
-!URG10/RP16=0.0
-!
-!URG10/RPRL=0.0
-!
-!URG10/APAN=0.0
-!
-!URG10/PAN1=0.0
-!
-!URG10/PAN2=0.0
-!
-!URG10/PAN3=0.0
-!
-!URG10/PAN4=0.0
-!
-!URG10/PAN6=0.0
-!
-!URG10/PAN7=0.0
-!
-!URG10/PAN8=0.0
-!
-!URG10/PN10=0.0
-!
-!URG10/RO2T=0.0
-!
-!URG10/RO21=0.0
-!
-!URG10/RO25=0.0
-!
-!URG10/WC_O3=0.0
-!
-!URG10/WC_H2O2=0.0
-!
-!URG10/WC_NO=0.0
-!
-!URG10/WC_NO2=0.0
-!
-!URG10/WC_NO3=0.0
-!
-!URG10/WC_N2O5=0.0
-!
-!URG10/WC_HONO=0.0
-!
-!URG10/WC_HNO3=0.0
-!
-!URG10/WC_HNO4=0.0
-!
-!URG10/WC_NH3=0.0
-!
-!URG10/WC_OH=0.0
-!
-!URG10/WC_HO2=0.0
-!
-!URG10/WC_CO2=0.0
-!
-!URG10/WC_SO2=0.0
-!
-!URG10/WC_H2SO4=0.0
-!
-!URG10/WC_RO21=0.0
-!
-!URG10/WC_RO25=0.0
-!
-!URG10/WC_MEOH=0.0
-!
-!URG10/WC_ETOH=0.0
-!
-!URG10/WC_ALCH=0.0
-!
-!URG10/WC_HCHO=0.0
-!
-!URG10/WC_ALD2=0.0
-!
-!URG10/WC_GLY=0.0
-!
-!URG10/WC_MGLY=0.0
-!
-!URG10/WC_KETL=0.0
-!
-!URG10/WC_ORA1=0.0
-!
-!URG10/WC_ORA2=0.0
-!
-!URG10/WC_ACID=0.0
-!
-!URG10/WC_RP16=0.0
-!
-!URG10/WC_UR21=0.0
-!
-!URG10/WC_UR28=0.0
-!
-!URG10/WC_ACID2=0.0
-!
-!URG10/WC_ASO3=0.0
-!
-!URG10/WC_ASO4=0.0
-!
-!URG10/WC_ASO5=0.0
-!
-!URG10/WC_AHSO5=0.0
-!
-!URG10/WC_AHMS=0.0
-!
-!URG10/WR_O3=0.0
-!
-!URG10/WR_H2O2=0.0
-!
-!URG10/WR_NO=0.0
-!
-!URG10/WR_NO2=0.0
-!
-!URG10/WR_NO3=0.0
-!
-!URG10/WR_N2O5=0.0
-!
-!URG10/WR_HONO=0.0
-!
-!URG10/WR_HNO3=0.0
-!
-!URG10/WR_HNO4=0.0
-!
-!URG10/WR_NH3=0.0
-!
-!URG10/WR_OH=0.0
-!
-!URG10/WR_HO2=0.0
-!
-!URG10/WR_CO2=0.0
-!
-!URG10/WR_SO2=0.0
-!
-!URG10/WR_H2SO4=0.0
-!
-!URG10/WR_RO21=0.0
-!
-!URG10/WR_RO25=0.0
-!
-!URG10/WR_MEOH=0.0
-!
-!URG10/WR_ETOH=0.0
-!
-!URG10/WR_ALCH=0.0
-!
-!URG10/WR_HCHO=0.0
-!
-!URG10/WR_ALD2=0.0
-!
-!URG10/WR_GLY=0.0
-!
-!URG10/WR_MGLY=0.0
-!
-!URG10/WR_KETL=0.0
-!
-!URG10/WR_ORA1=0.0
-!
-!URG10/WR_ORA2=0.0
-!
-!URG10/WR_ACID=0.0
-!
-!URG10/WR_RP16=0.0
-!
-!URG10/WR_UR21=0.0
-!
-!URG10/WR_UR28=0.0
-!
-!URG10/WR_ACID2=0.0
-!
-!URG10/WR_ASO3=0.0
-!
-!URG10/WR_ASO4=0.0
-!
-!URG10/WR_ASO5=0.0
-!
-!URG10/WR_AHSO5=0.0
-!
-!URG10/WR_AHMS=0.0
-!
-!RPR1/NO=+K183*<RO219>
- PJAC(:,69,1)=+TPK%K183(:)*TPK%RO219(:)
-!
-!RPR1/NO2=0.0
-!
-!RPR1/O3=+0.5*K076*<OLEH>
- PJAC(:,69,3)=+0.5*TPK%K076(:)*PCONC(:,18)
-!
-!RPR1/HONO=0.0
-!
-!RPR1/HNO3=0.0
-!
-!RPR1/HNO4=0.0
-!
-!RPR1/N2O5=0.0
-!
-!RPR1/NO3=-K307*<RPR1>
- PJAC(:,69,8)=-TPK%K307(:)*PCONC(:,69)
-!
-!RPR1/NH3=0.0
-!
-!RPR1/HO2=+K185*<RO219>
- PJAC(:,69,10)=+TPK%K185(:)*TPK%RO219(:)
-!
-!RPR1/CO=0.0
-!
-!RPR1/H2O2=0.0
-!
-!RPR1/SO2=0.0
-!
-!RPR1/H2SO4=0.0
-!
-!RPR1/OH=-K304*<RPR1>
- PJAC(:,69,15)=-TPK%K304(:)*PCONC(:,69)
-!
-!RPR1/ETHE=0.0
-!
-!RPR1/OLEL=0.0
-!
-!RPR1/OLEH=+0.5*K076*<O3>+0.4*K077*<O>
- PJAC(:,69,18)=+0.5*TPK%K076(:)*PCONC(:,3)+0.4*TPK%K077(:)*TPK%O(:)
-!
-!RPR1/ALKL=0.0
-!
-!RPR1/ALKM=0.0
-!
-!RPR1/ALKH=0.0
-!
-!RPR1/AROH=0.0
-!
-!RPR1/AROL=0.0
-!
-!RPR1/AROO=0.0
-!
-!RPR1/ARAL=0.0
-!
-!RPR1/ARAC=0.0
-!
-!RPR1/PAH=0.0
-!
-!RPR1/HCHO=0.0
-!
-!RPR1/ALD2=0.0
-!
-!RPR1/KETL=0.0
-!
-!RPR1/KETH=0.0
-!
-!RPR1/MEOH=0.0
-!
-!RPR1/ETOH=0.0
-!
-!RPR1/ALCH=0.0
-!
-!RPR1/ISOP=0.0
-!
-!RPR1/BIOL=0.0
-!
-!RPR1/BIOH=0.0
-!
-!RPR1/MTBE=0.0
-!
-!RPR1/MVK=0.0
-!
-!RPR1/MCR=0.0
-!
-!RPR1/MGLY=0.0
-!
-!RPR1/GLY=0.0
-!
-!RPR1/ORA1=0.0
-!
-!RPR1/ORA2=0.0
-!
-!RPR1/ACID=0.0
-!
-!RPR1/UR28=0.0
-!
-!RPR1/UR21=0.0
-!
-!RPR1/URG2=0.0
-!
-!RPR1/UR26=0.0
-!
-!RPR1/RPG2=0.0
-!
-!RPR1/RP18=0.0
-!
-!RPR1/RPG3=0.0
-!
-!RPR1/URG4=0.0
-!
-!RPR1/UR8=0.0
-!
-!RPR1/UR17=0.0
-!
-!RPR1/UR7=0.0
-!
-!RPR1/RPR3=0.0
-!
-!RPR1/URG6=0.0
-!
-!RPR1/UR22=0.0
-!
-!RPR1/URG7=0.0
-!
-!RPR1/RPR4=0.0
-!
-!RPR1/RPR7=0.0
-!
-!RPR1/RPG7=0.0
-!
-!RPR1/URG8=0.0
-!
-!RPR1/UR19=0.0
-!
-!RPR1/URG9=0.0
-!
-!RPR1/AP7=0.0
-!
-!RPR1/URG10=0.0
-!
-!RPR1/RPR1=-K304*<OH>-K307*<NO3>-K308
- PJAC(:,69,69)=-TPK%K304(:)*PCONC(:,15)-TPK%K307(:)*PCONC(:,8)-TPK%K308(:)
-!
-!RPR1/RPR5=0.0
-!
-!RPR1/RPR8=0.0
-!
-!RPR1/RP10=0.0
-!
-!RPR1/RP11=0.0
-!
-!RPR1/RP16=0.0
-!
-!RPR1/RPRL=0.0
-!
-!RPR1/APAN=0.0
-!
-!RPR1/PAN1=0.0
-!
-!RPR1/PAN2=0.0
-!
-!RPR1/PAN3=0.0
-!
-!RPR1/PAN4=0.0
-!
-!RPR1/PAN6=0.0
-!
-!RPR1/PAN7=0.0
-!
-!RPR1/PAN8=0.0
-!
-!RPR1/PN10=0.0
-!
-!RPR1/RO2T=+K184*<RO219>
- PJAC(:,69,85)=+TPK%K184(:)*TPK%RO219(:)
-!
-!RPR1/RO21=0.0
-!
-!RPR1/RO25=0.0
-!
-!RPR1/WC_O3=0.0
-!
-!RPR1/WC_H2O2=0.0
-!
-!RPR1/WC_NO=0.0
-!
-!RPR1/WC_NO2=0.0
-!
-!RPR1/WC_NO3=0.0
-!
-!RPR1/WC_N2O5=0.0
-!
-!RPR1/WC_HONO=0.0
-!
-!RPR1/WC_HNO3=0.0
-!
-!RPR1/WC_HNO4=0.0
-!
-!RPR1/WC_NH3=0.0
-!
-!RPR1/WC_OH=0.0
-!
-!RPR1/WC_HO2=0.0
-!
-!RPR1/WC_CO2=0.0
-!
-!RPR1/WC_SO2=0.0
-!
-!RPR1/WC_H2SO4=0.0
-!
-!RPR1/WC_RO21=0.0
-!
-!RPR1/WC_RO25=0.0
-!
-!RPR1/WC_MEOH=0.0
-!
-!RPR1/WC_ETOH=0.0
-!
-!RPR1/WC_ALCH=0.0
-!
-!RPR1/WC_HCHO=0.0
-!
-!RPR1/WC_ALD2=0.0
-!
-!RPR1/WC_GLY=0.0
-!
-!RPR1/WC_MGLY=0.0
-!
-!RPR1/WC_KETL=0.0
-!
-!RPR1/WC_ORA1=0.0
-!
-!RPR1/WC_ORA2=0.0
-!
-!RPR1/WC_ACID=0.0
-!
-!RPR1/WC_RP16=0.0
-!
-!RPR1/WC_UR21=0.0
-!
-!RPR1/WC_UR28=0.0
-!
-!RPR1/WC_ACID2=0.0
-!
-!RPR1/WC_ASO3=0.0
-!
-!RPR1/WC_ASO4=0.0
-!
-!RPR1/WC_ASO5=0.0
-!
-!RPR1/WC_AHSO5=0.0
-!
-!RPR1/WC_AHMS=0.0
-!
-!RPR1/WR_O3=0.0
-!
-!RPR1/WR_H2O2=0.0
-!
-!RPR1/WR_NO=0.0
-!
-!RPR1/WR_NO2=0.0
-!
-!RPR1/WR_NO3=0.0
-!
-!RPR1/WR_N2O5=0.0
-!
-!RPR1/WR_HONO=0.0
-!
-!RPR1/WR_HNO3=0.0
-!
-!RPR1/WR_HNO4=0.0
-!
-!RPR1/WR_NH3=0.0
-!
-!RPR1/WR_OH=0.0
-!
-!RPR1/WR_HO2=0.0
-!
-!RPR1/WR_CO2=0.0
-!
-!RPR1/WR_SO2=0.0
-!
-!RPR1/WR_H2SO4=0.0
-!
-!RPR1/WR_RO21=0.0
-!
-!RPR1/WR_RO25=0.0
-!
-!RPR1/WR_MEOH=0.0
-!
-!RPR1/WR_ETOH=0.0
-!
-!RPR1/WR_ALCH=0.0
-!
-!RPR1/WR_HCHO=0.0
-!
-!RPR1/WR_ALD2=0.0
-!
-!RPR1/WR_GLY=0.0
-!
-!RPR1/WR_MGLY=0.0
-!
-!RPR1/WR_KETL=0.0
-!
-!RPR1/WR_ORA1=0.0
-!
-!RPR1/WR_ORA2=0.0
-!
-!RPR1/WR_ACID=0.0
-!
-!RPR1/WR_RP16=0.0
-!
-!RPR1/WR_UR21=0.0
-!
-!RPR1/WR_UR28=0.0
-!
-!RPR1/WR_ACID2=0.0
-!
-!RPR1/WR_ASO3=0.0
-!
-!RPR1/WR_ASO4=0.0
-!
-!RPR1/WR_ASO5=0.0
-!
-!RPR1/WR_AHSO5=0.0
-!
-!RPR1/WR_AHMS=0.0
-!
-!RPR5/NO=0.0
-!
-!RPR5/NO2=+K107*<RAD5>
- PJAC(:,70,2)=+TPK%K107(:)*TPK%RAD5(:)
-!
-!RPR5/O3=0.0
-!
-!RPR5/HONO=0.0
-!
-!RPR5/HNO3=0.0
-!
-!RPR5/HNO4=0.0
-!
-!RPR5/N2O5=0.0
-!
-!RPR5/NO3=0.0
-!
-!RPR5/NH3=0.0
-!
-!RPR5/HO2=0.0
-!
-!RPR5/CO=0.0
-!
-!RPR5/H2O2=0.0
-!
-!RPR5/SO2=0.0
-!
-!RPR5/H2SO4=0.0
-!
-!RPR5/OH=-K303*<RPR5>
- PJAC(:,70,15)=-TPK%K303(:)*PCONC(:,70)
-!
-!RPR5/ETHE=0.0
-!
-!RPR5/OLEL=0.0
-!
-!RPR5/OLEH=0.0
-!
-!RPR5/ALKL=0.0
-!
-!RPR5/ALKM=0.0
-!
-!RPR5/ALKH=0.0
-!
-!RPR5/AROH=0.0
-!
-!RPR5/AROL=0.0
-!
-!RPR5/AROO=0.0
-!
-!RPR5/ARAL=0.0
-!
-!RPR5/ARAC=0.0
-!
-!RPR5/PAH=0.0
-!
-!RPR5/HCHO=0.0
-!
-!RPR5/ALD2=0.0
-!
-!RPR5/KETL=0.0
-!
-!RPR5/KETH=0.0
-!
-!RPR5/MEOH=0.0
-!
-!RPR5/ETOH=0.0
-!
-!RPR5/ALCH=0.0
-!
-!RPR5/ISOP=0.0
-!
-!RPR5/BIOL=0.0
-!
-!RPR5/BIOH=0.0
-!
-!RPR5/MTBE=0.0
-!
-!RPR5/MVK=0.0
-!
-!RPR5/MCR=0.0
-!
-!RPR5/MGLY=0.0
-!
-!RPR5/GLY=0.0
-!
-!RPR5/ORA1=0.0
-!
-!RPR5/ORA2=0.0
-!
-!RPR5/ACID=0.0
-!
-!RPR5/UR28=0.0
-!
-!RPR5/UR21=0.0
-!
-!RPR5/URG2=0.0
-!
-!RPR5/UR26=0.0
-!
-!RPR5/RPG2=0.0
-!
-!RPR5/RP18=0.0
-!
-!RPR5/RPG3=0.0
-!
-!RPR5/URG4=0.0
-!
-!RPR5/UR8=0.0
-!
-!RPR5/UR17=0.0
-!
-!RPR5/UR7=0.0
-!
-!RPR5/RPR3=0.0
-!
-!RPR5/URG6=0.0
-!
-!RPR5/UR22=0.0
-!
-!RPR5/URG7=0.0
-!
-!RPR5/RPR4=0.0
-!
-!RPR5/RPR7=0.0
-!
-!RPR5/RPG7=0.0
-!
-!RPR5/URG8=0.0
-!
-!RPR5/UR19=0.0
-!
-!RPR5/URG9=0.0
-!
-!RPR5/AP7=0.0
-!
-!RPR5/URG10=0.0
-!
-!RPR5/RPR1=0.0
-!
-!RPR5/RPR5=-K303*<OH>
- PJAC(:,70,70)=-TPK%K303(:)*PCONC(:,15)
-!
-!RPR5/RPR8=0.0
-!
-!RPR5/RP10=0.0
-!
-!RPR5/RP11=0.0
-!
-!RPR5/RP16=0.0
-!
-!RPR5/RPRL=0.0
-!
-!RPR5/APAN=0.0
-!
-!RPR5/PAN1=0.0
-!
-!RPR5/PAN2=0.0
-!
-!RPR5/PAN3=0.0
-!
-!RPR5/PAN4=0.0
-!
-!RPR5/PAN6=0.0
-!
-!RPR5/PAN7=0.0
-!
-!RPR5/PAN8=0.0
-!
-!RPR5/PN10=0.0
-!
-!RPR5/RO2T=0.0
-!
-!RPR5/RO21=0.0
-!
-!RPR5/RO25=0.0
-!
-!RPR5/WC_O3=0.0
-!
-!RPR5/WC_H2O2=0.0
-!
-!RPR5/WC_NO=0.0
-!
-!RPR5/WC_NO2=0.0
-!
-!RPR5/WC_NO3=0.0
-!
-!RPR5/WC_N2O5=0.0
-!
-!RPR5/WC_HONO=0.0
-!
-!RPR5/WC_HNO3=0.0
-!
-!RPR5/WC_HNO4=0.0
-!
-!RPR5/WC_NH3=0.0
-!
-!RPR5/WC_OH=0.0
-!
-!RPR5/WC_HO2=0.0
-!
-!RPR5/WC_CO2=0.0
-!
-!RPR5/WC_SO2=0.0
-!
-!RPR5/WC_H2SO4=0.0
-!
-!RPR5/WC_RO21=0.0
-!
-!RPR5/WC_RO25=0.0
-!
-!RPR5/WC_MEOH=0.0
-!
-!RPR5/WC_ETOH=0.0
-!
-!RPR5/WC_ALCH=0.0
-!
-!RPR5/WC_HCHO=0.0
-!
-!RPR5/WC_ALD2=0.0
-!
-!RPR5/WC_GLY=0.0
-!
-!RPR5/WC_MGLY=0.0
-!
-!RPR5/WC_KETL=0.0
-!
-!RPR5/WC_ORA1=0.0
-!
-!RPR5/WC_ORA2=0.0
-!
-!RPR5/WC_ACID=0.0
-!
-!RPR5/WC_RP16=0.0
-!
-!RPR5/WC_UR21=0.0
-!
-!RPR5/WC_UR28=0.0
-!
-!RPR5/WC_ACID2=0.0
-!
-!RPR5/WC_ASO3=0.0
-!
-!RPR5/WC_ASO4=0.0
-!
-!RPR5/WC_ASO5=0.0
-!
-!RPR5/WC_AHSO5=0.0
-!
-!RPR5/WC_AHMS=0.0
-!
-!RPR5/WR_O3=0.0
-!
-!RPR5/WR_H2O2=0.0
-!
-!RPR5/WR_NO=0.0
-!
-!RPR5/WR_NO2=0.0
-!
-!RPR5/WR_NO3=0.0
-!
-!RPR5/WR_N2O5=0.0
-!
-!RPR5/WR_HONO=0.0
-!
-!RPR5/WR_HNO3=0.0
-!
-!RPR5/WR_HNO4=0.0
-!
-!RPR5/WR_NH3=0.0
-!
-!RPR5/WR_OH=0.0
-!
-!RPR5/WR_HO2=0.0
-!
-!RPR5/WR_CO2=0.0
-!
-!RPR5/WR_SO2=0.0
-!
-!RPR5/WR_H2SO4=0.0
-!
-!RPR5/WR_RO21=0.0
-!
-!RPR5/WR_RO25=0.0
-!
-!RPR5/WR_MEOH=0.0
-!
-!RPR5/WR_ETOH=0.0
-!
-!RPR5/WR_ALCH=0.0
-!
-!RPR5/WR_HCHO=0.0
-!
-!RPR5/WR_ALD2=0.0
-!
-!RPR5/WR_GLY=0.0
-!
-!RPR5/WR_MGLY=0.0
-!
-!RPR5/WR_KETL=0.0
-!
-!RPR5/WR_ORA1=0.0
-!
-!RPR5/WR_ORA2=0.0
-!
-!RPR5/WR_ACID=0.0
-!
-!RPR5/WR_RP16=0.0
-!
-!RPR5/WR_UR21=0.0
-!
-!RPR5/WR_UR28=0.0
-!
-!RPR5/WR_ACID2=0.0
-!
-!RPR5/WR_ASO3=0.0
-!
-!RPR5/WR_ASO4=0.0
-!
-!RPR5/WR_ASO5=0.0
-!
-!RPR5/WR_AHSO5=0.0
-!
-!RPR5/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ13
-!
-SUBROUTINE SUBJ14
-!
-!Indices 71 a 75
-!
-!
-!RPR8/NO=+K216*<RO240>
- PJAC(:,71,1)=+TPK%K216(:)*TPK%RO240(:)
-!
-!RPR8/NO2=0.0
-!
-!RPR8/O3=0.0
-!
-!RPR8/HONO=0.0
-!
-!RPR8/HNO3=0.0
-!
-!RPR8/HNO4=0.0
-!
-!RPR8/N2O5=0.0
-!
-!RPR8/NO3=-K327*<RPR8>
- PJAC(:,71,8)=-TPK%K327(:)*PCONC(:,71)
-!
-!RPR8/NH3=0.0
-!
-!RPR8/HO2=+K218*<RO240>
- PJAC(:,71,10)=+TPK%K218(:)*TPK%RO240(:)
-!
-!RPR8/CO=0.0
-!
-!RPR8/H2O2=0.0
-!
-!RPR8/SO2=0.0
-!
-!RPR8/H2SO4=0.0
-!
-!RPR8/OH=-K324*<RPR8>
- PJAC(:,71,15)=-TPK%K324(:)*PCONC(:,71)
-!
-!RPR8/ETHE=0.0
-!
-!RPR8/OLEL=0.0
-!
-!RPR8/OLEH=0.0
-!
-!RPR8/ALKL=0.0
-!
-!RPR8/ALKM=0.0
-!
-!RPR8/ALKH=0.0
-!
-!RPR8/AROH=0.0
-!
-!RPR8/AROL=0.0
-!
-!RPR8/AROO=0.0
-!
-!RPR8/ARAL=0.0
-!
-!RPR8/ARAC=0.0
-!
-!RPR8/PAH=0.0
-!
-!RPR8/HCHO=0.0
-!
-!RPR8/ALD2=0.0
-!
-!RPR8/KETL=0.0
-!
-!RPR8/KETH=0.0
-!
-!RPR8/MEOH=0.0
-!
-!RPR8/ETOH=0.0
-!
-!RPR8/ALCH=0.0
-!
-!RPR8/ISOP=0.0
-!
-!RPR8/BIOL=0.0
-!
-!RPR8/BIOH=0.0
-!
-!RPR8/MTBE=0.0
-!
-!RPR8/MVK=0.0
-!
-!RPR8/MCR=0.0
-!
-!RPR8/MGLY=0.0
-!
-!RPR8/GLY=0.0
-!
-!RPR8/ORA1=0.0
-!
-!RPR8/ORA2=0.0
-!
-!RPR8/ACID=0.0
-!
-!RPR8/UR28=0.0
-!
-!RPR8/UR21=0.0
-!
-!RPR8/URG2=0.0
-!
-!RPR8/UR26=0.0
-!
-!RPR8/RPG2=0.0
-!
-!RPR8/RP18=0.0
-!
-!RPR8/RPG3=0.0
-!
-!RPR8/URG4=0.0
-!
-!RPR8/UR8=0.0
-!
-!RPR8/UR17=0.0
-!
-!RPR8/UR7=0.0
-!
-!RPR8/RPR3=0.0
-!
-!RPR8/URG6=0.0
-!
-!RPR8/UR22=0.0
-!
-!RPR8/URG7=0.0
-!
-!RPR8/RPR4=0.0
-!
-!RPR8/RPR7=0.0
-!
-!RPR8/RPG7=0.0
-!
-!RPR8/URG8=0.0
-!
-!RPR8/UR19=0.0
-!
-!RPR8/URG9=0.0
-!
-!RPR8/AP7=0.0
-!
-!RPR8/URG10=0.0
-!
-!RPR8/RPR1=0.0
-!
-!RPR8/RPR5=0.0
-!
-!RPR8/RPR8=-K324*<OH>-K327*<NO3>-K329-K330
- PJAC(:,71,71)=-TPK%K324(:)*PCONC(:,15)-TPK%K327(:)*PCONC(:,8)-TPK%K329(:)-TPK%&
-&K330(:)
-!
-!RPR8/RP10=0.0
-!
-!RPR8/RP11=0.0
-!
-!RPR8/RP16=0.0
-!
-!RPR8/RPRL=0.0
-!
-!RPR8/APAN=0.0
-!
-!RPR8/PAN1=0.0
-!
-!RPR8/PAN2=0.0
-!
-!RPR8/PAN3=0.0
-!
-!RPR8/PAN4=0.0
-!
-!RPR8/PAN6=0.0
-!
-!RPR8/PAN7=0.0
-!
-!RPR8/PAN8=0.0
-!
-!RPR8/PN10=0.0
-!
-!RPR8/RO2T=+K217*<RO240>
- PJAC(:,71,85)=+TPK%K217(:)*TPK%RO240(:)
-!
-!RPR8/RO21=0.0
-!
-!RPR8/RO25=0.0
-!
-!RPR8/WC_O3=0.0
-!
-!RPR8/WC_H2O2=0.0
-!
-!RPR8/WC_NO=0.0
-!
-!RPR8/WC_NO2=0.0
-!
-!RPR8/WC_NO3=0.0
-!
-!RPR8/WC_N2O5=0.0
-!
-!RPR8/WC_HONO=0.0
-!
-!RPR8/WC_HNO3=0.0
-!
-!RPR8/WC_HNO4=0.0
-!
-!RPR8/WC_NH3=0.0
-!
-!RPR8/WC_OH=0.0
-!
-!RPR8/WC_HO2=0.0
-!
-!RPR8/WC_CO2=0.0
-!
-!RPR8/WC_SO2=0.0
-!
-!RPR8/WC_H2SO4=0.0
-!
-!RPR8/WC_RO21=0.0
-!
-!RPR8/WC_RO25=0.0
-!
-!RPR8/WC_MEOH=0.0
-!
-!RPR8/WC_ETOH=0.0
-!
-!RPR8/WC_ALCH=0.0
-!
-!RPR8/WC_HCHO=0.0
-!
-!RPR8/WC_ALD2=0.0
-!
-!RPR8/WC_GLY=0.0
-!
-!RPR8/WC_MGLY=0.0
-!
-!RPR8/WC_KETL=0.0
-!
-!RPR8/WC_ORA1=0.0
-!
-!RPR8/WC_ORA2=0.0
-!
-!RPR8/WC_ACID=0.0
-!
-!RPR8/WC_RP16=0.0
-!
-!RPR8/WC_UR21=0.0
-!
-!RPR8/WC_UR28=0.0
-!
-!RPR8/WC_ACID2=0.0
-!
-!RPR8/WC_ASO3=0.0
-!
-!RPR8/WC_ASO4=0.0
-!
-!RPR8/WC_ASO5=0.0
-!
-!RPR8/WC_AHSO5=0.0
-!
-!RPR8/WC_AHMS=0.0
-!
-!RPR8/WR_O3=0.0
-!
-!RPR8/WR_H2O2=0.0
-!
-!RPR8/WR_NO=0.0
-!
-!RPR8/WR_NO2=0.0
-!
-!RPR8/WR_NO3=0.0
-!
-!RPR8/WR_N2O5=0.0
-!
-!RPR8/WR_HONO=0.0
-!
-!RPR8/WR_HNO3=0.0
-!
-!RPR8/WR_HNO4=0.0
-!
-!RPR8/WR_NH3=0.0
-!
-!RPR8/WR_OH=0.0
-!
-!RPR8/WR_HO2=0.0
-!
-!RPR8/WR_CO2=0.0
-!
-!RPR8/WR_SO2=0.0
-!
-!RPR8/WR_H2SO4=0.0
-!
-!RPR8/WR_RO21=0.0
-!
-!RPR8/WR_RO25=0.0
-!
-!RPR8/WR_MEOH=0.0
-!
-!RPR8/WR_ETOH=0.0
-!
-!RPR8/WR_ALCH=0.0
-!
-!RPR8/WR_HCHO=0.0
-!
-!RPR8/WR_ALD2=0.0
-!
-!RPR8/WR_GLY=0.0
-!
-!RPR8/WR_MGLY=0.0
-!
-!RPR8/WR_KETL=0.0
-!
-!RPR8/WR_ORA1=0.0
-!
-!RPR8/WR_ORA2=0.0
-!
-!RPR8/WR_ACID=0.0
-!
-!RPR8/WR_RP16=0.0
-!
-!RPR8/WR_UR21=0.0
-!
-!RPR8/WR_UR28=0.0
-!
-!RPR8/WR_ACID2=0.0
-!
-!RPR8/WR_ASO3=0.0
-!
-!RPR8/WR_ASO4=0.0
-!
-!RPR8/WR_ASO5=0.0
-!
-!RPR8/WR_AHSO5=0.0
-!
-!RPR8/WR_AHMS=0.0
-!
-!RP10/NO=+K234*<RO242>+K241*<RO243>+K248*<RO244>+K255*<RO245>+K262*<RO246>
- PJAC(:,72,1)=+TPK%K234(:)*TPK%RO242(:)+TPK%K241(:)*TPK%RO243(:)+TPK%K248(:)*TP&
-&K%RO244(:)+TPK%K255(:)*TPK%RO245(:)+TPK%K262(:)*TPK%RO246(:)
-!
-!RP10/NO2=0.0
-!
-!RP10/O3=0.0
-!
-!RP10/HONO=0.0
-!
-!RP10/HNO3=0.0
-!
-!RP10/HNO4=0.0
-!
-!RP10/N2O5=0.0
-!
-!RP10/NO3=0.0
-!
-!RP10/NH3=0.0
-!
-!RP10/HO2=+K236*<RO242>+K243*<RO243>+K250*<RO244>+K257*<RO245>+K264*<RO246>
- PJAC(:,72,10)=+TPK%K236(:)*TPK%RO242(:)+TPK%K243(:)*TPK%RO243(:)+TPK%K250(:)*T&
-&PK%RO244(:)+TPK%K257(:)*TPK%RO245(:)+TPK%K264(:)*TPK%RO246(:)
-!
-!RP10/CO=0.0
-!
-!RP10/H2O2=0.0
-!
-!RP10/SO2=0.0
-!
-!RP10/H2SO4=0.0
-!
-!RP10/OH=-K325*<RP10>
- PJAC(:,72,15)=-TPK%K325(:)*PCONC(:,72)
-!
-!RP10/ETHE=0.0
-!
-!RP10/OLEL=0.0
-!
-!RP10/OLEH=0.0
-!
-!RP10/ALKL=0.0
-!
-!RP10/ALKM=0.0
-!
-!RP10/ALKH=0.0
-!
-!RP10/AROH=0.0
-!
-!RP10/AROL=0.0
-!
-!RP10/AROO=0.0
-!
-!RP10/ARAL=0.0
-!
-!RP10/ARAC=0.0
-!
-!RP10/PAH=0.0
-!
-!RP10/HCHO=0.0
-!
-!RP10/ALD2=0.0
-!
-!RP10/KETL=0.0
-!
-!RP10/KETH=0.0
-!
-!RP10/MEOH=0.0
-!
-!RP10/ETOH=0.0
-!
-!RP10/ALCH=0.0
-!
-!RP10/ISOP=0.0
-!
-!RP10/BIOL=0.0
-!
-!RP10/BIOH=0.0
-!
-!RP10/MTBE=0.0
-!
-!RP10/MVK=0.0
-!
-!RP10/MCR=0.0
-!
-!RP10/MGLY=0.0
-!
-!RP10/GLY=0.0
-!
-!RP10/ORA1=0.0
-!
-!RP10/ORA2=0.0
-!
-!RP10/ACID=0.0
-!
-!RP10/UR28=0.0
-!
-!RP10/UR21=0.0
-!
-!RP10/URG2=0.0
-!
-!RP10/UR26=0.0
-!
-!RP10/RPG2=0.0
-!
-!RP10/RP18=0.0
-!
-!RP10/RPG3=0.0
-!
-!RP10/URG4=0.0
-!
-!RP10/UR8=0.0
-!
-!RP10/UR17=0.0
-!
-!RP10/UR7=0.0
-!
-!RP10/RPR3=0.0
-!
-!RP10/URG6=0.0
-!
-!RP10/UR22=0.0
-!
-!RP10/URG7=0.0
-!
-!RP10/RPR4=0.0
-!
-!RP10/RPR7=0.0
-!
-!RP10/RPG7=0.0
-!
-!RP10/URG8=0.0
-!
-!RP10/UR19=0.0
-!
-!RP10/URG9=0.0
-!
-!RP10/AP7=0.0
-!
-!RP10/URG10=0.0
-!
-!RP10/RPR1=0.0
-!
-!RP10/RPR5=0.0
-!
-!RP10/RPR8=0.0
-!
-!RP10/RP10=-K325*<OH>-K328
- PJAC(:,72,72)=-TPK%K325(:)*PCONC(:,15)-TPK%K328(:)
-!
-!RP10/RP11=0.0
-!
-!RP10/RP16=0.0
-!
-!RP10/RPRL=0.0
-!
-!RP10/APAN=0.0
-!
-!RP10/PAN1=0.0
-!
-!RP10/PAN2=0.0
-!
-!RP10/PAN3=0.0
-!
-!RP10/PAN4=0.0
-!
-!RP10/PAN6=0.0
-!
-!RP10/PAN7=0.0
-!
-!RP10/PAN8=0.0
-!
-!RP10/PN10=0.0
-!
-!RP10/RO2T=+K235*<RO242>+K242*<RO243>+K249*<RO244>+K256*<RO245>+K263*<RO246>
- PJAC(:,72,85)=+TPK%K235(:)*TPK%RO242(:)+TPK%K242(:)*TPK%RO243(:)+TPK%K249(:)*T&
-&PK%RO244(:)+TPK%K256(:)*TPK%RO245(:)+TPK%K263(:)*TPK%RO246(:)
-!
-!RP10/RO21=0.0
-!
-!RP10/RO25=0.0
-!
-!RP10/WC_O3=0.0
-!
-!RP10/WC_H2O2=0.0
-!
-!RP10/WC_NO=0.0
-!
-!RP10/WC_NO2=0.0
-!
-!RP10/WC_NO3=0.0
-!
-!RP10/WC_N2O5=0.0
-!
-!RP10/WC_HONO=0.0
-!
-!RP10/WC_HNO3=0.0
-!
-!RP10/WC_HNO4=0.0
-!
-!RP10/WC_NH3=0.0
-!
-!RP10/WC_OH=0.0
-!
-!RP10/WC_HO2=0.0
-!
-!RP10/WC_CO2=0.0
-!
-!RP10/WC_SO2=0.0
-!
-!RP10/WC_H2SO4=0.0
-!
-!RP10/WC_RO21=0.0
-!
-!RP10/WC_RO25=0.0
-!
-!RP10/WC_MEOH=0.0
-!
-!RP10/WC_ETOH=0.0
-!
-!RP10/WC_ALCH=0.0
-!
-!RP10/WC_HCHO=0.0
-!
-!RP10/WC_ALD2=0.0
-!
-!RP10/WC_GLY=0.0
-!
-!RP10/WC_MGLY=0.0
-!
-!RP10/WC_KETL=0.0
-!
-!RP10/WC_ORA1=0.0
-!
-!RP10/WC_ORA2=0.0
-!
-!RP10/WC_ACID=0.0
-!
-!RP10/WC_RP16=0.0
-!
-!RP10/WC_UR21=0.0
-!
-!RP10/WC_UR28=0.0
-!
-!RP10/WC_ACID2=0.0
-!
-!RP10/WC_ASO3=0.0
-!
-!RP10/WC_ASO4=0.0
-!
-!RP10/WC_ASO5=0.0
-!
-!RP10/WC_AHSO5=0.0
-!
-!RP10/WC_AHMS=0.0
-!
-!RP10/WR_O3=0.0
-!
-!RP10/WR_H2O2=0.0
-!
-!RP10/WR_NO=0.0
-!
-!RP10/WR_NO2=0.0
-!
-!RP10/WR_NO3=0.0
-!
-!RP10/WR_N2O5=0.0
-!
-!RP10/WR_HONO=0.0
-!
-!RP10/WR_HNO3=0.0
-!
-!RP10/WR_HNO4=0.0
-!
-!RP10/WR_NH3=0.0
-!
-!RP10/WR_OH=0.0
-!
-!RP10/WR_HO2=0.0
-!
-!RP10/WR_CO2=0.0
-!
-!RP10/WR_SO2=0.0
-!
-!RP10/WR_H2SO4=0.0
-!
-!RP10/WR_RO21=0.0
-!
-!RP10/WR_RO25=0.0
-!
-!RP10/WR_MEOH=0.0
-!
-!RP10/WR_ETOH=0.0
-!
-!RP10/WR_ALCH=0.0
-!
-!RP10/WR_HCHO=0.0
-!
-!RP10/WR_ALD2=0.0
-!
-!RP10/WR_GLY=0.0
-!
-!RP10/WR_MGLY=0.0
-!
-!RP10/WR_KETL=0.0
-!
-!RP10/WR_ORA1=0.0
-!
-!RP10/WR_ORA2=0.0
-!
-!RP10/WR_ACID=0.0
-!
-!RP10/WR_RP16=0.0
-!
-!RP10/WR_UR21=0.0
-!
-!RP10/WR_UR28=0.0
-!
-!RP10/WR_ACID2=0.0
-!
-!RP10/WR_ASO3=0.0
-!
-!RP10/WR_ASO4=0.0
-!
-!RP10/WR_ASO5=0.0
-!
-!RP10/WR_AHSO5=0.0
-!
-!RP10/WR_AHMS=0.0
-!
-!RP11/NO=+0.3*K238*<RO234>+0.5*K245*<RO235>
- PJAC(:,73,1)=+0.3*TPK%K238(:)*TPK%RO234(:)+0.5*TPK%K245(:)*TPK%RO235(:)
-!
-!RP11/NO2=0.0
-!
-!RP11/O3=0.0
-!
-!RP11/HONO=0.0
-!
-!RP11/HNO3=0.0
-!
-!RP11/HNO4=0.0
-!
-!RP11/N2O5=0.0
-!
-!RP11/NO3=0.0
-!
-!RP11/NH3=0.0
-!
-!RP11/HO2=+0.3*K240*<RO234>+K247*<RO235>
- PJAC(:,73,10)=+0.3*TPK%K240(:)*TPK%RO234(:)+TPK%K247(:)*TPK%RO235(:)
-!
-!RP11/CO=0.0
-!
-!RP11/H2O2=0.0
-!
-!RP11/SO2=0.0
-!
-!RP11/H2SO4=0.0
-!
-!RP11/OH=-K326*<RP11>
- PJAC(:,73,15)=-TPK%K326(:)*PCONC(:,73)
-!
-!RP11/ETHE=0.0
-!
-!RP11/OLEL=0.0
-!
-!RP11/OLEH=0.0
-!
-!RP11/ALKL=0.0
-!
-!RP11/ALKM=0.0
-!
-!RP11/ALKH=0.0
-!
-!RP11/AROH=0.0
-!
-!RP11/AROL=0.0
-!
-!RP11/AROO=0.0
-!
-!RP11/ARAL=0.0
-!
-!RP11/ARAC=0.0
-!
-!RP11/PAH=0.0
-!
-!RP11/HCHO=0.0
-!
-!RP11/ALD2=0.0
-!
-!RP11/KETL=0.0
-!
-!RP11/KETH=0.0
-!
-!RP11/MEOH=0.0
-!
-!RP11/ETOH=0.0
-!
-!RP11/ALCH=0.0
-!
-!RP11/ISOP=0.0
-!
-!RP11/BIOL=0.0
-!
-!RP11/BIOH=0.0
-!
-!RP11/MTBE=0.0
-!
-!RP11/MVK=0.0
-!
-!RP11/MCR=0.0
-!
-!RP11/MGLY=0.0
-!
-!RP11/GLY=0.0
-!
-!RP11/ORA1=0.0
-!
-!RP11/ORA2=0.0
-!
-!RP11/ACID=0.0
-!
-!RP11/UR28=0.0
-!
-!RP11/UR21=0.0
-!
-!RP11/URG2=0.0
-!
-!RP11/UR26=0.0
-!
-!RP11/RPG2=0.0
-!
-!RP11/RP18=0.0
-!
-!RP11/RPG3=0.0
-!
-!RP11/URG4=0.0
-!
-!RP11/UR8=0.0
-!
-!RP11/UR17=0.0
-!
-!RP11/UR7=0.0
-!
-!RP11/RPR3=0.0
-!
-!RP11/URG6=0.0
-!
-!RP11/UR22=0.0
-!
-!RP11/URG7=0.0
-!
-!RP11/RPR4=0.0
-!
-!RP11/RPR7=0.0
-!
-!RP11/RPG7=0.0
-!
-!RP11/URG8=0.0
-!
-!RP11/UR19=0.0
-!
-!RP11/URG9=0.0
-!
-!RP11/AP7=0.0
-!
-!RP11/URG10=0.0
-!
-!RP11/RPR1=0.0
-!
-!RP11/RPR5=0.0
-!
-!RP11/RPR8=0.0
-!
-!RP11/RP10=0.0
-!
-!RP11/RP11=-K326*<OH>
- PJAC(:,73,73)=-TPK%K326(:)*PCONC(:,15)
-!
-!RP11/RP16=0.0
-!
-!RP11/RPRL=0.0
-!
-!RP11/APAN=0.0
-!
-!RP11/PAN1=0.0
-!
-!RP11/PAN2=0.0
-!
-!RP11/PAN3=0.0
-!
-!RP11/PAN4=0.0
-!
-!RP11/PAN6=0.0
-!
-!RP11/PAN7=0.0
-!
-!RP11/PAN8=0.0
-!
-!RP11/PN10=0.0
-!
-!RP11/RO2T=+K239*<RO234>+K246*<RO235>
- PJAC(:,73,85)=+TPK%K239(:)*TPK%RO234(:)+TPK%K246(:)*TPK%RO235(:)
-!
-!RP11/RO21=0.0
-!
-!RP11/RO25=0.0
-!
-!RP11/WC_O3=0.0
-!
-!RP11/WC_H2O2=0.0
-!
-!RP11/WC_NO=0.0
-!
-!RP11/WC_NO2=0.0
-!
-!RP11/WC_NO3=0.0
-!
-!RP11/WC_N2O5=0.0
-!
-!RP11/WC_HONO=0.0
-!
-!RP11/WC_HNO3=0.0
-!
-!RP11/WC_HNO4=0.0
-!
-!RP11/WC_NH3=0.0
-!
-!RP11/WC_OH=0.0
-!
-!RP11/WC_HO2=0.0
-!
-!RP11/WC_CO2=0.0
-!
-!RP11/WC_SO2=0.0
-!
-!RP11/WC_H2SO4=0.0
-!
-!RP11/WC_RO21=0.0
-!
-!RP11/WC_RO25=0.0
-!
-!RP11/WC_MEOH=0.0
-!
-!RP11/WC_ETOH=0.0
-!
-!RP11/WC_ALCH=0.0
-!
-!RP11/WC_HCHO=0.0
-!
-!RP11/WC_ALD2=0.0
-!
-!RP11/WC_GLY=0.0
-!
-!RP11/WC_MGLY=0.0
-!
-!RP11/WC_KETL=0.0
-!
-!RP11/WC_ORA1=0.0
-!
-!RP11/WC_ORA2=0.0
-!
-!RP11/WC_ACID=0.0
-!
-!RP11/WC_RP16=0.0
-!
-!RP11/WC_UR21=0.0
-!
-!RP11/WC_UR28=0.0
-!
-!RP11/WC_ACID2=0.0
-!
-!RP11/WC_ASO3=0.0
-!
-!RP11/WC_ASO4=0.0
-!
-!RP11/WC_ASO5=0.0
-!
-!RP11/WC_AHSO5=0.0
-!
-!RP11/WC_AHMS=0.0
-!
-!RP11/WR_O3=0.0
-!
-!RP11/WR_H2O2=0.0
-!
-!RP11/WR_NO=0.0
-!
-!RP11/WR_NO2=0.0
-!
-!RP11/WR_NO3=0.0
-!
-!RP11/WR_N2O5=0.0
-!
-!RP11/WR_HONO=0.0
-!
-!RP11/WR_HNO3=0.0
-!
-!RP11/WR_HNO4=0.0
-!
-!RP11/WR_NH3=0.0
-!
-!RP11/WR_OH=0.0
-!
-!RP11/WR_HO2=0.0
-!
-!RP11/WR_CO2=0.0
-!
-!RP11/WR_SO2=0.0
-!
-!RP11/WR_H2SO4=0.0
-!
-!RP11/WR_RO21=0.0
-!
-!RP11/WR_RO25=0.0
-!
-!RP11/WR_MEOH=0.0
-!
-!RP11/WR_ETOH=0.0
-!
-!RP11/WR_ALCH=0.0
-!
-!RP11/WR_HCHO=0.0
-!
-!RP11/WR_ALD2=0.0
-!
-!RP11/WR_GLY=0.0
-!
-!RP11/WR_MGLY=0.0
-!
-!RP11/WR_KETL=0.0
-!
-!RP11/WR_ORA1=0.0
-!
-!RP11/WR_ORA2=0.0
-!
-!RP11/WR_ACID=0.0
-!
-!RP11/WR_RP16=0.0
-!
-!RP11/WR_UR21=0.0
-!
-!RP11/WR_UR28=0.0
-!
-!RP11/WR_ACID2=0.0
-!
-!RP11/WR_ASO3=0.0
-!
-!RP11/WR_ASO4=0.0
-!
-!RP11/WR_ASO5=0.0
-!
-!RP11/WR_AHSO5=0.0
-!
-!RP11/WR_AHMS=0.0
-!
-!RP16/NO=0.0
-!
-!RP16/NO2=0.0
-!
-!RP16/O3=0.0
-!
-!RP16/HONO=0.0
-!
-!RP16/HNO3=0.0
-!
-!RP16/HNO4=0.0
-!
-!RP16/N2O5=0.0
-!
-!RP16/NO3=-K338*<RP16>
- PJAC(:,74,8)=-TPK%K338(:)*PCONC(:,74)
-!
-!RP16/NH3=0.0
-!
-!RP16/HO2=+K301*<RO254>
- PJAC(:,74,10)=+TPK%K301(:)*TPK%RO254(:)
-!
-!RP16/CO=0.0
-!
-!RP16/H2O2=0.0
-!
-!RP16/SO2=0.0
-!
-!RP16/H2SO4=0.0
-!
-!RP16/OH=-K305*<RP16>
- PJAC(:,74,15)=-TPK%K305(:)*PCONC(:,74)
-!
-!RP16/ETHE=0.0
-!
-!RP16/OLEL=0.0
-!
-!RP16/OLEH=0.0
-!
-!RP16/ALKL=0.0
-!
-!RP16/ALKM=0.0
-!
-!RP16/ALKH=0.0
-!
-!RP16/AROH=0.0
-!
-!RP16/AROL=0.0
-!
-!RP16/AROO=0.0
-!
-!RP16/ARAL=0.0
-!
-!RP16/ARAC=0.0
-!
-!RP16/PAH=0.0
-!
-!RP16/HCHO=0.0
-!
-!RP16/ALD2=0.0
-!
-!RP16/KETL=0.0
-!
-!RP16/KETH=0.0
-!
-!RP16/MEOH=0.0
-!
-!RP16/ETOH=0.0
-!
-!RP16/ALCH=0.0
-!
-!RP16/ISOP=0.0
-!
-!RP16/BIOL=0.0
-!
-!RP16/BIOH=0.0
-!
-!RP16/MTBE=0.0
-!
-!RP16/MVK=0.0
-!
-!RP16/MCR=0.0
-!
-!RP16/MGLY=0.0
-!
-!RP16/GLY=0.0
-!
-!RP16/ORA1=0.0
-!
-!RP16/ORA2=0.0
-!
-!RP16/ACID=0.0
-!
-!RP16/UR28=0.0
-!
-!RP16/UR21=0.0
-!
-!RP16/URG2=0.0
-!
-!RP16/UR26=0.0
-!
-!RP16/RPG2=0.0
-!
-!RP16/RP18=0.0
-!
-!RP16/RPG3=0.0
-!
-!RP16/URG4=0.0
-!
-!RP16/UR8=0.0
-!
-!RP16/UR17=0.0
-!
-!RP16/UR7=0.0
-!
-!RP16/RPR3=0.0
-!
-!RP16/URG6=0.0
-!
-!RP16/UR22=0.0
-!
-!RP16/URG7=0.0
-!
-!RP16/RPR4=0.0
-!
-!RP16/RPR7=0.0
-!
-!RP16/RPG7=0.0
-!
-!RP16/URG8=0.0
-!
-!RP16/UR19=0.0
-!
-!RP16/URG9=0.0
-!
-!RP16/AP7=0.0
-!
-!RP16/URG10=0.0
-!
-!RP16/RPR1=0.0
-!
-!RP16/RPR5=0.0
-!
-!RP16/RPR8=0.0
-!
-!RP16/RP10=0.0
-!
-!RP16/RP11=0.0
-!
-!RP16/RP16=-K305*<OH>-K338*<NO3>-K339-KTC29-KTR29
- PJAC(:,74,74)=-TPK%K305(:)*PCONC(:,15)-TPK%K338(:)*PCONC(:,8)-TPK%K339(:)-TPK%&
-&KTC29(:)-TPK%KTR29(:)
-!
-!RP16/RPRL=0.0
-!
-!RP16/APAN=0.0
-!
-!RP16/PAN1=0.0
-!
-!RP16/PAN2=0.0
-!
-!RP16/PAN3=0.0
-!
-!RP16/PAN4=0.0
-!
-!RP16/PAN6=0.0
-!
-!RP16/PAN7=0.0
-!
-!RP16/PAN8=0.0
-!
-!RP16/PN10=0.0
-!
-!RP16/RO2T=0.0
-!
-!RP16/RO21=0.0
-!
-!RP16/RO25=0.0
-!
-!RP16/WC_O3=0.0
-!
-!RP16/WC_H2O2=0.0
-!
-!RP16/WC_NO=0.0
-!
-!RP16/WC_NO2=0.0
-!
-!RP16/WC_NO3=0.0
-!
-!RP16/WC_N2O5=0.0
-!
-!RP16/WC_HONO=0.0
-!
-!RP16/WC_HNO3=0.0
-!
-!RP16/WC_HNO4=0.0
-!
-!RP16/WC_NH3=0.0
-!
-!RP16/WC_OH=0.0
-!
-!RP16/WC_HO2=0.0
-!
-!RP16/WC_CO2=0.0
-!
-!RP16/WC_SO2=0.0
-!
-!RP16/WC_H2SO4=0.0
-!
-!RP16/WC_RO21=0.0
-!
-!RP16/WC_RO25=0.0
-!
-!RP16/WC_MEOH=0.0
-!
-!RP16/WC_ETOH=0.0
-!
-!RP16/WC_ALCH=0.0
-!
-!RP16/WC_HCHO=0.0
-!
-!RP16/WC_ALD2=0.0
-!
-!RP16/WC_GLY=0.0
-!
-!RP16/WC_MGLY=0.0
-!
-!RP16/WC_KETL=0.0
-!
-!RP16/WC_ORA1=0.0
-!
-!RP16/WC_ORA2=0.0
-!
-!RP16/WC_ACID=0.0
-!
-!RP16/WC_RP16=+KTC60
- PJAC(:,74,116)=+TPK%KTC60(:)
-!
-!RP16/WC_UR21=0.0
-!
-!RP16/WC_UR28=0.0
-!
-!RP16/WC_ACID2=0.0
-!
-!RP16/WC_ASO3=0.0
-!
-!RP16/WC_ASO4=0.0
-!
-!RP16/WC_ASO5=0.0
-!
-!RP16/WC_AHSO5=0.0
-!
-!RP16/WC_AHMS=0.0
-!
-!RP16/WR_O3=0.0
-!
-!RP16/WR_H2O2=0.0
-!
-!RP16/WR_NO=0.0
-!
-!RP16/WR_NO2=0.0
-!
-!RP16/WR_NO3=0.0
-!
-!RP16/WR_N2O5=0.0
-!
-!RP16/WR_HONO=0.0
-!
-!RP16/WR_HNO3=0.0
-!
-!RP16/WR_HNO4=0.0
-!
-!RP16/WR_NH3=0.0
-!
-!RP16/WR_OH=0.0
-!
-!RP16/WR_HO2=0.0
-!
-!RP16/WR_CO2=0.0
-!
-!RP16/WR_SO2=0.0
-!
-!RP16/WR_H2SO4=0.0
-!
-!RP16/WR_RO21=0.0
-!
-!RP16/WR_RO25=0.0
-!
-!RP16/WR_MEOH=0.0
-!
-!RP16/WR_ETOH=0.0
-!
-!RP16/WR_ALCH=0.0
-!
-!RP16/WR_HCHO=0.0
-!
-!RP16/WR_ALD2=0.0
-!
-!RP16/WR_GLY=0.0
-!
-!RP16/WR_MGLY=0.0
-!
-!RP16/WR_KETL=0.0
-!
-!RP16/WR_ORA1=0.0
-!
-!RP16/WR_ORA2=0.0
-!
-!RP16/WR_ACID=0.0
-!
-!RP16/WR_RP16=+KTR60
- PJAC(:,74,153)=+TPK%KTR60(:)
-!
-!RP16/WR_UR21=0.0
-!
-!RP16/WR_UR28=0.0
-!
-!RP16/WR_ACID2=0.0
-!
-!RP16/WR_ASO3=0.0
-!
-!RP16/WR_ASO4=0.0
-!
-!RP16/WR_ASO5=0.0
-!
-!RP16/WR_AHSO5=0.0
-!
-!RP16/WR_AHMS=0.0
-!
-!RPRL/NO=+TPK%CFA2*K177*<RO217>+TPK%CFA7*K192*<RO222>+1.0023998*K269*<RO247>
- PJAC(:,75,1)=+TPK%CFA2*TPK%K177(:)*TPK%RO217(:)+TPK%CFA7*TPK%K192(:)*TPK%RO222&
-&(:)+1.0023998*TPK%K269(:)*TPK%RO247(:)
-!
-!RPRL/NO2=0.0
-!
-!RPRL/O3=0.0
-!
-!RPRL/HONO=0.0
-!
-!RPRL/HNO3=0.0
-!
-!RPRL/HNO4=0.0
-!
-!RPRL/N2O5=0.0
-!
-!RPRL/NO3=0.0
-!
-!RPRL/NH3=0.0
-!
-!RPRL/HO2=+0.9983609*K179*<RO217>+0.9983609*K194*<RO222>+1.0023998*K271*<RO247>
- PJAC(:,75,10)=+0.9983609*TPK%K179(:)*TPK%RO217(:)+0.9983609*TPK%K194(:)*TPK%RO&
-&222(:)+1.0023998*TPK%K271(:)*TPK%RO247(:)
-!
-!RPRL/CO=0.0
-!
-!RPRL/H2O2=0.0
-!
-!RPRL/SO2=0.0
-!
-!RPRL/H2SO4=0.0
-!
-!RPRL/OH=+0.9983609*K082*<ARAL>-K306*<RPRL>
- PJAC(:,75,15)=+0.9983609*TPK%K082(:)*PCONC(:,25)-TPK%K306(:)*PCONC(:,75)
-!
-!RPRL/ETHE=0.0
-!
-!RPRL/OLEL=0.0
-!
-!RPRL/OLEH=0.0
-!
-!RPRL/ALKL=0.0
-!
-!RPRL/ALKM=0.0
-!
-!RPRL/ALKH=0.0
-!
-!RPRL/AROH=0.0
-!
-!RPRL/AROL=0.0
-!
-!RPRL/AROO=0.0
-!
-!RPRL/ARAL=+0.9983609*K082*<OH>
- PJAC(:,75,25)=+0.9983609*TPK%K082(:)*PCONC(:,15)
-!
-!RPRL/ARAC=0.0
-!
-!RPRL/PAH=0.0
-!
-!RPRL/HCHO=0.0
-!
-!RPRL/ALD2=0.0
-!
-!RPRL/KETL=0.0
-!
-!RPRL/KETH=0.0
-!
-!RPRL/MEOH=0.0
-!
-!RPRL/ETOH=0.0
-!
-!RPRL/ALCH=0.0
-!
-!RPRL/ISOP=0.0
-!
-!RPRL/BIOL=0.0
-!
-!RPRL/BIOH=0.0
-!
-!RPRL/MTBE=0.0
-!
-!RPRL/MVK=0.0
-!
-!RPRL/MCR=0.0
-!
-!RPRL/MGLY=0.0
-!
-!RPRL/GLY=0.0
-!
-!RPRL/ORA1=0.0
-!
-!RPRL/ORA2=0.0
-!
-!RPRL/ACID=0.0
-!
-!RPRL/UR28=0.0
-!
-!RPRL/UR21=0.0
-!
-!RPRL/URG2=0.0
-!
-!RPRL/UR26=0.0
-!
-!RPRL/RPG2=0.0
-!
-!RPRL/RP18=0.0
-!
-!RPRL/RPG3=0.0
-!
-!RPRL/URG4=0.0
-!
-!RPRL/UR8=0.0
-!
-!RPRL/UR17=0.0
-!
-!RPRL/UR7=0.0
-!
-!RPRL/RPR3=0.0
-!
-!RPRL/URG6=0.0
-!
-!RPRL/UR22=0.0
-!
-!RPRL/URG7=0.0
-!
-!RPRL/RPR4=0.0
-!
-!RPRL/RPR7=0.0
-!
-!RPRL/RPG7=0.0
-!
-!RPRL/URG8=0.0
-!
-!RPRL/UR19=0.0
-!
-!RPRL/URG9=0.0
-!
-!RPRL/AP7=0.0
-!
-!RPRL/URG10=0.0
-!
-!RPRL/RPR1=0.0
-!
-!RPRL/RPR5=0.0
-!
-!RPRL/RPR8=0.0
-!
-!RPRL/RP10=0.0
-!
-!RPRL/RP11=0.0
-!
-!RPRL/RP16=0.0
-!
-!RPRL/RPRL=-K306*<OH>
- PJAC(:,75,75)=-TPK%K306(:)*PCONC(:,15)
-!
-!RPRL/APAN=0.0
-!
-!RPRL/PAN1=0.0
-!
-!RPRL/PAN2=0.0
-!
-!RPRL/PAN3=0.0
-!
-!RPRL/PAN4=0.0
-!
-!RPRL/PAN6=0.0
-!
-!RPRL/PAN7=0.0
-!
-!RPRL/PAN8=0.0
-!
-!RPRL/PN10=0.0
-!
-!RPRL/RO2T=+0.9983609*K178*<RO217>+0.9983609*K193*<RO222>+1.0023998*K270*<RO247
-!>
- PJAC(:,75,85)=+0.9983609*TPK%K178(:)*TPK%RO217(:)+0.9983609*TPK%K193(:)*TPK%RO&
-&222(:)+1.0023998*TPK%K270(:)*TPK%RO247(:)
-!
-!RPRL/RO21=0.0
-!
-!RPRL/RO25=0.0
-!
-!RPRL/WC_O3=0.0
-!
-!RPRL/WC_H2O2=0.0
-!
-!RPRL/WC_NO=0.0
-!
-!RPRL/WC_NO2=0.0
-!
-!RPRL/WC_NO3=0.0
-!
-!RPRL/WC_N2O5=0.0
-!
-!RPRL/WC_HONO=0.0
-!
-!RPRL/WC_HNO3=0.0
-!
-!RPRL/WC_HNO4=0.0
-!
-!RPRL/WC_NH3=0.0
-!
-!RPRL/WC_OH=0.0
-!
-!RPRL/WC_HO2=0.0
-!
-!RPRL/WC_CO2=0.0
-!
-!RPRL/WC_SO2=0.0
-!
-!RPRL/WC_H2SO4=0.0
-!
-!RPRL/WC_RO21=0.0
-!
-!RPRL/WC_RO25=0.0
-!
-!RPRL/WC_MEOH=0.0
-!
-!RPRL/WC_ETOH=0.0
-!
-!RPRL/WC_ALCH=0.0
-!
-!RPRL/WC_HCHO=0.0
-!
-!RPRL/WC_ALD2=0.0
-!
-!RPRL/WC_GLY=0.0
-!
-!RPRL/WC_MGLY=0.0
-!
-!RPRL/WC_KETL=0.0
-!
-!RPRL/WC_ORA1=0.0
-!
-!RPRL/WC_ORA2=0.0
-!
-!RPRL/WC_ACID=0.0
-!
-!RPRL/WC_RP16=0.0
-!
-!RPRL/WC_UR21=0.0
-!
-!RPRL/WC_UR28=0.0
-!
-!RPRL/WC_ACID2=0.0
-!
-!RPRL/WC_ASO3=0.0
-!
-!RPRL/WC_ASO4=0.0
-!
-!RPRL/WC_ASO5=0.0
-!
-!RPRL/WC_AHSO5=0.0
-!
-!RPRL/WC_AHMS=0.0
-!
-!RPRL/WR_O3=0.0
-!
-!RPRL/WR_H2O2=0.0
-!
-!RPRL/WR_NO=0.0
-!
-!RPRL/WR_NO2=0.0
-!
-!RPRL/WR_NO3=0.0
-!
-!RPRL/WR_N2O5=0.0
-!
-!RPRL/WR_HONO=0.0
-!
-!RPRL/WR_HNO3=0.0
-!
-!RPRL/WR_HNO4=0.0
-!
-!RPRL/WR_NH3=0.0
-!
-!RPRL/WR_OH=0.0
-!
-!RPRL/WR_HO2=0.0
-!
-!RPRL/WR_CO2=0.0
-!
-!RPRL/WR_SO2=0.0
-!
-!RPRL/WR_H2SO4=0.0
-!
-!RPRL/WR_RO21=0.0
-!
-!RPRL/WR_RO25=0.0
-!
-!RPRL/WR_MEOH=0.0
-!
-!RPRL/WR_ETOH=0.0
-!
-!RPRL/WR_ALCH=0.0
-!
-!RPRL/WR_HCHO=0.0
-!
-!RPRL/WR_ALD2=0.0
-!
-!RPRL/WR_GLY=0.0
-!
-!RPRL/WR_MGLY=0.0
-!
-!RPRL/WR_KETL=0.0
-!
-!RPRL/WR_ORA1=0.0
-!
-!RPRL/WR_ORA2=0.0
-!
-!RPRL/WR_ACID=0.0
-!
-!RPRL/WR_RP16=0.0
-!
-!RPRL/WR_UR21=0.0
-!
-!RPRL/WR_UR28=0.0
-!
-!RPRL/WR_ACID2=0.0
-!
-!RPRL/WR_ASO3=0.0
-!
-!RPRL/WR_ASO4=0.0
-!
-!RPRL/WR_ASO5=0.0
-!
-!RPRL/WR_AHSO5=0.0
-!
-!RPRL/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ14
-!
-SUBROUTINE SUBJ15
-!
-!Indices 76 a 80
-!
-!
-!APAN/NO=0.0
-!
-!APAN/NO2=+K130*<RO250>+K133*<RO257>
- PJAC(:,76,2)=+TPK%K130(:)*TPK%RO250(:)+TPK%K133(:)*TPK%RO257(:)
-!
-!APAN/O3=0.0
-!
-!APAN/HONO=0.0
-!
-!APAN/HNO3=0.0
-!
-!APAN/HNO4=0.0
-!
-!APAN/N2O5=0.0
-!
-!APAN/NO3=0.0
-!
-!APAN/NH3=0.0
-!
-!APAN/HO2=0.0
-!
-!APAN/CO=0.0
-!
-!APAN/H2O2=0.0
-!
-!APAN/SO2=0.0
-!
-!APAN/H2SO4=0.0
-!
-!APAN/OH=0.0
-!
-!APAN/ETHE=0.0
-!
-!APAN/OLEL=0.0
-!
-!APAN/OLEH=0.0
-!
-!APAN/ALKL=0.0
-!
-!APAN/ALKM=0.0
-!
-!APAN/ALKH=0.0
-!
-!APAN/AROH=0.0
-!
-!APAN/AROL=0.0
-!
-!APAN/AROO=0.0
-!
-!APAN/ARAL=0.0
-!
-!APAN/ARAC=0.0
-!
-!APAN/PAH=0.0
-!
-!APAN/HCHO=0.0
-!
-!APAN/ALD2=0.0
-!
-!APAN/KETL=0.0
-!
-!APAN/KETH=0.0
-!
-!APAN/MEOH=0.0
-!
-!APAN/ETOH=0.0
-!
-!APAN/ALCH=0.0
-!
-!APAN/ISOP=0.0
-!
-!APAN/BIOL=0.0
-!
-!APAN/BIOH=0.0
-!
-!APAN/MTBE=0.0
-!
-!APAN/MVK=0.0
-!
-!APAN/MCR=0.0
-!
-!APAN/MGLY=0.0
-!
-!APAN/GLY=0.0
-!
-!APAN/ORA1=0.0
-!
-!APAN/ORA2=0.0
-!
-!APAN/ACID=0.0
-!
-!APAN/UR28=0.0
-!
-!APAN/UR21=0.0
-!
-!APAN/URG2=0.0
-!
-!APAN/UR26=0.0
-!
-!APAN/RPG2=0.0
-!
-!APAN/RP18=0.0
-!
-!APAN/RPG3=0.0
-!
-!APAN/URG4=0.0
-!
-!APAN/UR8=0.0
-!
-!APAN/UR17=0.0
-!
-!APAN/UR7=0.0
-!
-!APAN/RPR3=0.0
-!
-!APAN/URG6=0.0
-!
-!APAN/UR22=0.0
-!
-!APAN/URG7=0.0
-!
-!APAN/RPR4=0.0
-!
-!APAN/RPR7=0.0
-!
-!APAN/RPG7=0.0
-!
-!APAN/URG8=0.0
-!
-!APAN/UR19=0.0
-!
-!APAN/URG9=0.0
-!
-!APAN/AP7=0.0
-!
-!APAN/URG10=0.0
-!
-!APAN/RPR1=0.0
-!
-!APAN/RPR5=0.0
-!
-!APAN/RPR8=0.0
-!
-!APAN/RP10=0.0
-!
-!APAN/RP11=0.0
-!
-!APAN/RP16=0.0
-!
-!APAN/RPRL=0.0
-!
-!APAN/APAN=-K139
- PJAC(:,76,76)=-TPK%K139(:)
-!
-!APAN/PAN1=0.0
-!
-!APAN/PAN2=0.0
-!
-!APAN/PAN3=0.0
-!
-!APAN/PAN4=0.0
-!
-!APAN/PAN6=0.0
-!
-!APAN/PAN7=0.0
-!
-!APAN/PAN8=0.0
-!
-!APAN/PN10=0.0
-!
-!APAN/RO2T=0.0
-!
-!APAN/RO21=0.0
-!
-!APAN/RO25=0.0
-!
-!APAN/WC_O3=0.0
-!
-!APAN/WC_H2O2=0.0
-!
-!APAN/WC_NO=0.0
-!
-!APAN/WC_NO2=0.0
-!
-!APAN/WC_NO3=0.0
-!
-!APAN/WC_N2O5=0.0
-!
-!APAN/WC_HONO=0.0
-!
-!APAN/WC_HNO3=0.0
-!
-!APAN/WC_HNO4=0.0
-!
-!APAN/WC_NH3=0.0
-!
-!APAN/WC_OH=0.0
-!
-!APAN/WC_HO2=0.0
-!
-!APAN/WC_CO2=0.0
-!
-!APAN/WC_SO2=0.0
-!
-!APAN/WC_H2SO4=0.0
-!
-!APAN/WC_RO21=0.0
-!
-!APAN/WC_RO25=0.0
-!
-!APAN/WC_MEOH=0.0
-!
-!APAN/WC_ETOH=0.0
-!
-!APAN/WC_ALCH=0.0
-!
-!APAN/WC_HCHO=0.0
-!
-!APAN/WC_ALD2=0.0
-!
-!APAN/WC_GLY=0.0
-!
-!APAN/WC_MGLY=0.0
-!
-!APAN/WC_KETL=0.0
-!
-!APAN/WC_ORA1=0.0
-!
-!APAN/WC_ORA2=0.0
-!
-!APAN/WC_ACID=0.0
-!
-!APAN/WC_RP16=0.0
-!
-!APAN/WC_UR21=0.0
-!
-!APAN/WC_UR28=0.0
-!
-!APAN/WC_ACID2=0.0
-!
-!APAN/WC_ASO3=0.0
-!
-!APAN/WC_ASO4=0.0
-!
-!APAN/WC_ASO5=0.0
-!
-!APAN/WC_AHSO5=0.0
-!
-!APAN/WC_AHMS=0.0
-!
-!APAN/WR_O3=0.0
-!
-!APAN/WR_H2O2=0.0
-!
-!APAN/WR_NO=0.0
-!
-!APAN/WR_NO2=0.0
-!
-!APAN/WR_NO3=0.0
-!
-!APAN/WR_N2O5=0.0
-!
-!APAN/WR_HONO=0.0
-!
-!APAN/WR_HNO3=0.0
-!
-!APAN/WR_HNO4=0.0
-!
-!APAN/WR_NH3=0.0
-!
-!APAN/WR_OH=0.0
-!
-!APAN/WR_HO2=0.0
-!
-!APAN/WR_CO2=0.0
-!
-!APAN/WR_SO2=0.0
-!
-!APAN/WR_H2SO4=0.0
-!
-!APAN/WR_RO21=0.0
-!
-!APAN/WR_RO25=0.0
-!
-!APAN/WR_MEOH=0.0
-!
-!APAN/WR_ETOH=0.0
-!
-!APAN/WR_ALCH=0.0
-!
-!APAN/WR_HCHO=0.0
-!
-!APAN/WR_ALD2=0.0
-!
-!APAN/WR_GLY=0.0
-!
-!APAN/WR_MGLY=0.0
-!
-!APAN/WR_KETL=0.0
-!
-!APAN/WR_ORA1=0.0
-!
-!APAN/WR_ORA2=0.0
-!
-!APAN/WR_ACID=0.0
-!
-!APAN/WR_RP16=0.0
-!
-!APAN/WR_UR21=0.0
-!
-!APAN/WR_UR28=0.0
-!
-!APAN/WR_ACID2=0.0
-!
-!APAN/WR_ASO3=0.0
-!
-!APAN/WR_ASO4=0.0
-!
-!APAN/WR_ASO5=0.0
-!
-!APAN/WR_AHSO5=0.0
-!
-!APAN/WR_AHMS=0.0
-!
-!PAN1/NO=0.0
-!
-!PAN1/NO2=+K126*<RO26>
- PJAC(:,77,2)=+TPK%K126(:)*TPK%RO26(:)
-!
-!PAN1/O3=0.0
-!
-!PAN1/HONO=0.0
-!
-!PAN1/HNO3=0.0
-!
-!PAN1/HNO4=0.0
-!
-!PAN1/N2O5=0.0
-!
-!PAN1/NO3=0.0
-!
-!PAN1/NH3=0.0
-!
-!PAN1/HO2=0.0
-!
-!PAN1/CO=0.0
-!
-!PAN1/H2O2=0.0
-!
-!PAN1/SO2=0.0
-!
-!PAN1/H2SO4=0.0
-!
-!PAN1/OH=0.0
-!
-!PAN1/ETHE=0.0
-!
-!PAN1/OLEL=0.0
-!
-!PAN1/OLEH=0.0
-!
-!PAN1/ALKL=0.0
-!
-!PAN1/ALKM=0.0
-!
-!PAN1/ALKH=0.0
-!
-!PAN1/AROH=0.0
-!
-!PAN1/AROL=0.0
-!
-!PAN1/AROO=0.0
-!
-!PAN1/ARAL=0.0
-!
-!PAN1/ARAC=0.0
-!
-!PAN1/PAH=0.0
-!
-!PAN1/HCHO=0.0
-!
-!PAN1/ALD2=0.0
-!
-!PAN1/KETL=0.0
-!
-!PAN1/KETH=0.0
-!
-!PAN1/MEOH=0.0
-!
-!PAN1/ETOH=0.0
-!
-!PAN1/ALCH=0.0
-!
-!PAN1/ISOP=0.0
-!
-!PAN1/BIOL=0.0
-!
-!PAN1/BIOH=0.0
-!
-!PAN1/MTBE=0.0
-!
-!PAN1/MVK=0.0
-!
-!PAN1/MCR=0.0
-!
-!PAN1/MGLY=0.0
-!
-!PAN1/GLY=0.0
-!
-!PAN1/ORA1=0.0
-!
-!PAN1/ORA2=0.0
-!
-!PAN1/ACID=0.0
-!
-!PAN1/UR28=0.0
-!
-!PAN1/UR21=0.0
-!
-!PAN1/URG2=0.0
-!
-!PAN1/UR26=0.0
-!
-!PAN1/RPG2=0.0
-!
-!PAN1/RP18=0.0
-!
-!PAN1/RPG3=0.0
-!
-!PAN1/URG4=0.0
-!
-!PAN1/UR8=0.0
-!
-!PAN1/UR17=0.0
-!
-!PAN1/UR7=0.0
-!
-!PAN1/RPR3=0.0
-!
-!PAN1/URG6=0.0
-!
-!PAN1/UR22=0.0
-!
-!PAN1/URG7=0.0
-!
-!PAN1/RPR4=0.0
-!
-!PAN1/RPR7=0.0
-!
-!PAN1/RPG7=0.0
-!
-!PAN1/URG8=0.0
-!
-!PAN1/UR19=0.0
-!
-!PAN1/URG9=0.0
-!
-!PAN1/AP7=0.0
-!
-!PAN1/URG10=0.0
-!
-!PAN1/RPR1=0.0
-!
-!PAN1/RPR5=0.0
-!
-!PAN1/RPR8=0.0
-!
-!PAN1/RP10=0.0
-!
-!PAN1/RP11=0.0
-!
-!PAN1/RP16=0.0
-!
-!PAN1/RPRL=0.0
-!
-!PAN1/APAN=0.0
-!
-!PAN1/PAN1=-K135
- PJAC(:,77,77)=-TPK%K135(:)
-!
-!PAN1/PAN2=0.0
-!
-!PAN1/PAN3=0.0
-!
-!PAN1/PAN4=0.0
-!
-!PAN1/PAN6=0.0
-!
-!PAN1/PAN7=0.0
-!
-!PAN1/PAN8=0.0
-!
-!PAN1/PN10=0.0
-!
-!PAN1/RO2T=0.0
-!
-!PAN1/RO21=0.0
-!
-!PAN1/RO25=0.0
-!
-!PAN1/WC_O3=0.0
-!
-!PAN1/WC_H2O2=0.0
-!
-!PAN1/WC_NO=0.0
-!
-!PAN1/WC_NO2=0.0
-!
-!PAN1/WC_NO3=0.0
-!
-!PAN1/WC_N2O5=0.0
-!
-!PAN1/WC_HONO=0.0
-!
-!PAN1/WC_HNO3=0.0
-!
-!PAN1/WC_HNO4=0.0
-!
-!PAN1/WC_NH3=0.0
-!
-!PAN1/WC_OH=0.0
-!
-!PAN1/WC_HO2=0.0
-!
-!PAN1/WC_CO2=0.0
-!
-!PAN1/WC_SO2=0.0
-!
-!PAN1/WC_H2SO4=0.0
-!
-!PAN1/WC_RO21=0.0
-!
-!PAN1/WC_RO25=0.0
-!
-!PAN1/WC_MEOH=0.0
-!
-!PAN1/WC_ETOH=0.0
-!
-!PAN1/WC_ALCH=0.0
-!
-!PAN1/WC_HCHO=0.0
-!
-!PAN1/WC_ALD2=0.0
-!
-!PAN1/WC_GLY=0.0
-!
-!PAN1/WC_MGLY=0.0
-!
-!PAN1/WC_KETL=0.0
-!
-!PAN1/WC_ORA1=0.0
-!
-!PAN1/WC_ORA2=0.0
-!
-!PAN1/WC_ACID=0.0
-!
-!PAN1/WC_RP16=0.0
-!
-!PAN1/WC_UR21=0.0
-!
-!PAN1/WC_UR28=0.0
-!
-!PAN1/WC_ACID2=0.0
-!
-!PAN1/WC_ASO3=0.0
-!
-!PAN1/WC_ASO4=0.0
-!
-!PAN1/WC_ASO5=0.0
-!
-!PAN1/WC_AHSO5=0.0
-!
-!PAN1/WC_AHMS=0.0
-!
-!PAN1/WR_O3=0.0
-!
-!PAN1/WR_H2O2=0.0
-!
-!PAN1/WR_NO=0.0
-!
-!PAN1/WR_NO2=0.0
-!
-!PAN1/WR_NO3=0.0
-!
-!PAN1/WR_N2O5=0.0
-!
-!PAN1/WR_HONO=0.0
-!
-!PAN1/WR_HNO3=0.0
-!
-!PAN1/WR_HNO4=0.0
-!
-!PAN1/WR_NH3=0.0
-!
-!PAN1/WR_OH=0.0
-!
-!PAN1/WR_HO2=0.0
-!
-!PAN1/WR_CO2=0.0
-!
-!PAN1/WR_SO2=0.0
-!
-!PAN1/WR_H2SO4=0.0
-!
-!PAN1/WR_RO21=0.0
-!
-!PAN1/WR_RO25=0.0
-!
-!PAN1/WR_MEOH=0.0
-!
-!PAN1/WR_ETOH=0.0
-!
-!PAN1/WR_ALCH=0.0
-!
-!PAN1/WR_HCHO=0.0
-!
-!PAN1/WR_ALD2=0.0
-!
-!PAN1/WR_GLY=0.0
-!
-!PAN1/WR_MGLY=0.0
-!
-!PAN1/WR_KETL=0.0
-!
-!PAN1/WR_ORA1=0.0
-!
-!PAN1/WR_ORA2=0.0
-!
-!PAN1/WR_ACID=0.0
-!
-!PAN1/WR_RP16=0.0
-!
-!PAN1/WR_UR21=0.0
-!
-!PAN1/WR_UR28=0.0
-!
-!PAN1/WR_ACID2=0.0
-!
-!PAN1/WR_ASO3=0.0
-!
-!PAN1/WR_ASO4=0.0
-!
-!PAN1/WR_ASO5=0.0
-!
-!PAN1/WR_AHSO5=0.0
-!
-!PAN1/WR_AHMS=0.0
-!
-!PAN2/NO=0.0
-!
-!PAN2/NO2=+K127*<RO28>
- PJAC(:,78,2)=+TPK%K127(:)*TPK%RO28(:)
-!
-!PAN2/O3=0.0
-!
-!PAN2/HONO=0.0
-!
-!PAN2/HNO3=0.0
-!
-!PAN2/HNO4=0.0
-!
-!PAN2/N2O5=0.0
-!
-!PAN2/NO3=0.0
-!
-!PAN2/NH3=0.0
-!
-!PAN2/HO2=0.0
-!
-!PAN2/CO=0.0
-!
-!PAN2/H2O2=0.0
-!
-!PAN2/SO2=0.0
-!
-!PAN2/H2SO4=0.0
-!
-!PAN2/OH=0.0
-!
-!PAN2/ETHE=0.0
-!
-!PAN2/OLEL=0.0
-!
-!PAN2/OLEH=0.0
-!
-!PAN2/ALKL=0.0
-!
-!PAN2/ALKM=0.0
-!
-!PAN2/ALKH=0.0
-!
-!PAN2/AROH=0.0
-!
-!PAN2/AROL=0.0
-!
-!PAN2/AROO=0.0
-!
-!PAN2/ARAL=0.0
-!
-!PAN2/ARAC=0.0
-!
-!PAN2/PAH=0.0
-!
-!PAN2/HCHO=0.0
-!
-!PAN2/ALD2=0.0
-!
-!PAN2/KETL=0.0
-!
-!PAN2/KETH=0.0
-!
-!PAN2/MEOH=0.0
-!
-!PAN2/ETOH=0.0
-!
-!PAN2/ALCH=0.0
-!
-!PAN2/ISOP=0.0
-!
-!PAN2/BIOL=0.0
-!
-!PAN2/BIOH=0.0
-!
-!PAN2/MTBE=0.0
-!
-!PAN2/MVK=0.0
-!
-!PAN2/MCR=0.0
-!
-!PAN2/MGLY=0.0
-!
-!PAN2/GLY=0.0
-!
-!PAN2/ORA1=0.0
-!
-!PAN2/ORA2=0.0
-!
-!PAN2/ACID=0.0
-!
-!PAN2/UR28=0.0
-!
-!PAN2/UR21=0.0
-!
-!PAN2/URG2=0.0
-!
-!PAN2/UR26=0.0
-!
-!PAN2/RPG2=0.0
-!
-!PAN2/RP18=0.0
-!
-!PAN2/RPG3=0.0
-!
-!PAN2/URG4=0.0
-!
-!PAN2/UR8=0.0
-!
-!PAN2/UR17=0.0
-!
-!PAN2/UR7=0.0
-!
-!PAN2/RPR3=0.0
-!
-!PAN2/URG6=0.0
-!
-!PAN2/UR22=0.0
-!
-!PAN2/URG7=0.0
-!
-!PAN2/RPR4=0.0
-!
-!PAN2/RPR7=0.0
-!
-!PAN2/RPG7=0.0
-!
-!PAN2/URG8=0.0
-!
-!PAN2/UR19=0.0
-!
-!PAN2/URG9=0.0
-!
-!PAN2/AP7=0.0
-!
-!PAN2/URG10=0.0
-!
-!PAN2/RPR1=0.0
-!
-!PAN2/RPR5=0.0
-!
-!PAN2/RPR8=0.0
-!
-!PAN2/RP10=0.0
-!
-!PAN2/RP11=0.0
-!
-!PAN2/RP16=0.0
-!
-!PAN2/RPRL=0.0
-!
-!PAN2/APAN=0.0
-!
-!PAN2/PAN1=0.0
-!
-!PAN2/PAN2=-K136
- PJAC(:,78,78)=-TPK%K136(:)
-!
-!PAN2/PAN3=0.0
-!
-!PAN2/PAN4=0.0
-!
-!PAN2/PAN6=0.0
-!
-!PAN2/PAN7=0.0
-!
-!PAN2/PAN8=0.0
-!
-!PAN2/PN10=0.0
-!
-!PAN2/RO2T=0.0
-!
-!PAN2/RO21=0.0
-!
-!PAN2/RO25=0.0
-!
-!PAN2/WC_O3=0.0
-!
-!PAN2/WC_H2O2=0.0
-!
-!PAN2/WC_NO=0.0
-!
-!PAN2/WC_NO2=0.0
-!
-!PAN2/WC_NO3=0.0
-!
-!PAN2/WC_N2O5=0.0
-!
-!PAN2/WC_HONO=0.0
-!
-!PAN2/WC_HNO3=0.0
-!
-!PAN2/WC_HNO4=0.0
-!
-!PAN2/WC_NH3=0.0
-!
-!PAN2/WC_OH=0.0
-!
-!PAN2/WC_HO2=0.0
-!
-!PAN2/WC_CO2=0.0
-!
-!PAN2/WC_SO2=0.0
-!
-!PAN2/WC_H2SO4=0.0
-!
-!PAN2/WC_RO21=0.0
-!
-!PAN2/WC_RO25=0.0
-!
-!PAN2/WC_MEOH=0.0
-!
-!PAN2/WC_ETOH=0.0
-!
-!PAN2/WC_ALCH=0.0
-!
-!PAN2/WC_HCHO=0.0
-!
-!PAN2/WC_ALD2=0.0
-!
-!PAN2/WC_GLY=0.0
-!
-!PAN2/WC_MGLY=0.0
-!
-!PAN2/WC_KETL=0.0
-!
-!PAN2/WC_ORA1=0.0
-!
-!PAN2/WC_ORA2=0.0
-!
-!PAN2/WC_ACID=0.0
-!
-!PAN2/WC_RP16=0.0
-!
-!PAN2/WC_UR21=0.0
-!
-!PAN2/WC_UR28=0.0
-!
-!PAN2/WC_ACID2=0.0
-!
-!PAN2/WC_ASO3=0.0
-!
-!PAN2/WC_ASO4=0.0
-!
-!PAN2/WC_ASO5=0.0
-!
-!PAN2/WC_AHSO5=0.0
-!
-!PAN2/WC_AHMS=0.0
-!
-!PAN2/WR_O3=0.0
-!
-!PAN2/WR_H2O2=0.0
-!
-!PAN2/WR_NO=0.0
-!
-!PAN2/WR_NO2=0.0
-!
-!PAN2/WR_NO3=0.0
-!
-!PAN2/WR_N2O5=0.0
-!
-!PAN2/WR_HONO=0.0
-!
-!PAN2/WR_HNO3=0.0
-!
-!PAN2/WR_HNO4=0.0
-!
-!PAN2/WR_NH3=0.0
-!
-!PAN2/WR_OH=0.0
-!
-!PAN2/WR_HO2=0.0
-!
-!PAN2/WR_CO2=0.0
-!
-!PAN2/WR_SO2=0.0
-!
-!PAN2/WR_H2SO4=0.0
-!
-!PAN2/WR_RO21=0.0
-!
-!PAN2/WR_RO25=0.0
-!
-!PAN2/WR_MEOH=0.0
-!
-!PAN2/WR_ETOH=0.0
-!
-!PAN2/WR_ALCH=0.0
-!
-!PAN2/WR_HCHO=0.0
-!
-!PAN2/WR_ALD2=0.0
-!
-!PAN2/WR_GLY=0.0
-!
-!PAN2/WR_MGLY=0.0
-!
-!PAN2/WR_KETL=0.0
-!
-!PAN2/WR_ORA1=0.0
-!
-!PAN2/WR_ORA2=0.0
-!
-!PAN2/WR_ACID=0.0
-!
-!PAN2/WR_RP16=0.0
-!
-!PAN2/WR_UR21=0.0
-!
-!PAN2/WR_UR28=0.0
-!
-!PAN2/WR_ACID2=0.0
-!
-!PAN2/WR_ASO3=0.0
-!
-!PAN2/WR_ASO4=0.0
-!
-!PAN2/WR_ASO5=0.0
-!
-!PAN2/WR_AHSO5=0.0
-!
-!PAN2/WR_AHMS=0.0
-!
-!PAN3/NO=0.0
-!
-!PAN3/NO2=+K128*<RO239>
- PJAC(:,79,2)=+TPK%K128(:)*TPK%RO239(:)
-!
-!PAN3/O3=0.0
-!
-!PAN3/HONO=0.0
-!
-!PAN3/HNO3=0.0
-!
-!PAN3/HNO4=0.0
-!
-!PAN3/N2O5=0.0
-!
-!PAN3/NO3=0.0
-!
-!PAN3/NH3=0.0
-!
-!PAN3/HO2=0.0
-!
-!PAN3/CO=0.0
-!
-!PAN3/H2O2=0.0
-!
-!PAN3/SO2=0.0
-!
-!PAN3/H2SO4=0.0
-!
-!PAN3/OH=0.0
-!
-!PAN3/ETHE=0.0
-!
-!PAN3/OLEL=0.0
-!
-!PAN3/OLEH=0.0
-!
-!PAN3/ALKL=0.0
-!
-!PAN3/ALKM=0.0
-!
-!PAN3/ALKH=0.0
-!
-!PAN3/AROH=0.0
-!
-!PAN3/AROL=0.0
-!
-!PAN3/AROO=0.0
-!
-!PAN3/ARAL=0.0
-!
-!PAN3/ARAC=0.0
-!
-!PAN3/PAH=0.0
-!
-!PAN3/HCHO=0.0
-!
-!PAN3/ALD2=0.0
-!
-!PAN3/KETL=0.0
-!
-!PAN3/KETH=0.0
-!
-!PAN3/MEOH=0.0
-!
-!PAN3/ETOH=0.0
-!
-!PAN3/ALCH=0.0
-!
-!PAN3/ISOP=0.0
-!
-!PAN3/BIOL=0.0
-!
-!PAN3/BIOH=0.0
-!
-!PAN3/MTBE=0.0
-!
-!PAN3/MVK=0.0
-!
-!PAN3/MCR=0.0
-!
-!PAN3/MGLY=0.0
-!
-!PAN3/GLY=0.0
-!
-!PAN3/ORA1=0.0
-!
-!PAN3/ORA2=0.0
-!
-!PAN3/ACID=0.0
-!
-!PAN3/UR28=0.0
-!
-!PAN3/UR21=0.0
-!
-!PAN3/URG2=0.0
-!
-!PAN3/UR26=0.0
-!
-!PAN3/RPG2=0.0
-!
-!PAN3/RP18=0.0
-!
-!PAN3/RPG3=0.0
-!
-!PAN3/URG4=0.0
-!
-!PAN3/UR8=0.0
-!
-!PAN3/UR17=0.0
-!
-!PAN3/UR7=0.0
-!
-!PAN3/RPR3=0.0
-!
-!PAN3/URG6=0.0
-!
-!PAN3/UR22=0.0
-!
-!PAN3/URG7=0.0
-!
-!PAN3/RPR4=0.0
-!
-!PAN3/RPR7=0.0
-!
-!PAN3/RPG7=0.0
-!
-!PAN3/URG8=0.0
-!
-!PAN3/UR19=0.0
-!
-!PAN3/URG9=0.0
-!
-!PAN3/AP7=0.0
-!
-!PAN3/URG10=0.0
-!
-!PAN3/RPR1=0.0
-!
-!PAN3/RPR5=0.0
-!
-!PAN3/RPR8=0.0
-!
-!PAN3/RP10=0.0
-!
-!PAN3/RP11=0.0
-!
-!PAN3/RP16=0.0
-!
-!PAN3/RPRL=0.0
-!
-!PAN3/APAN=0.0
-!
-!PAN3/PAN1=0.0
-!
-!PAN3/PAN2=0.0
-!
-!PAN3/PAN3=-K137
- PJAC(:,79,79)=-TPK%K137(:)
-!
-!PAN3/PAN4=0.0
-!
-!PAN3/PAN6=0.0
-!
-!PAN3/PAN7=0.0
-!
-!PAN3/PAN8=0.0
-!
-!PAN3/PN10=0.0
-!
-!PAN3/RO2T=0.0
-!
-!PAN3/RO21=0.0
-!
-!PAN3/RO25=0.0
-!
-!PAN3/WC_O3=0.0
-!
-!PAN3/WC_H2O2=0.0
-!
-!PAN3/WC_NO=0.0
-!
-!PAN3/WC_NO2=0.0
-!
-!PAN3/WC_NO3=0.0
-!
-!PAN3/WC_N2O5=0.0
-!
-!PAN3/WC_HONO=0.0
-!
-!PAN3/WC_HNO3=0.0
-!
-!PAN3/WC_HNO4=0.0
-!
-!PAN3/WC_NH3=0.0
-!
-!PAN3/WC_OH=0.0
-!
-!PAN3/WC_HO2=0.0
-!
-!PAN3/WC_CO2=0.0
-!
-!PAN3/WC_SO2=0.0
-!
-!PAN3/WC_H2SO4=0.0
-!
-!PAN3/WC_RO21=0.0
-!
-!PAN3/WC_RO25=0.0
-!
-!PAN3/WC_MEOH=0.0
-!
-!PAN3/WC_ETOH=0.0
-!
-!PAN3/WC_ALCH=0.0
-!
-!PAN3/WC_HCHO=0.0
-!
-!PAN3/WC_ALD2=0.0
-!
-!PAN3/WC_GLY=0.0
-!
-!PAN3/WC_MGLY=0.0
-!
-!PAN3/WC_KETL=0.0
-!
-!PAN3/WC_ORA1=0.0
-!
-!PAN3/WC_ORA2=0.0
-!
-!PAN3/WC_ACID=0.0
-!
-!PAN3/WC_RP16=0.0
-!
-!PAN3/WC_UR21=0.0
-!
-!PAN3/WC_UR28=0.0
-!
-!PAN3/WC_ACID2=0.0
-!
-!PAN3/WC_ASO3=0.0
-!
-!PAN3/WC_ASO4=0.0
-!
-!PAN3/WC_ASO5=0.0
-!
-!PAN3/WC_AHSO5=0.0
-!
-!PAN3/WC_AHMS=0.0
-!
-!PAN3/WR_O3=0.0
-!
-!PAN3/WR_H2O2=0.0
-!
-!PAN3/WR_NO=0.0
-!
-!PAN3/WR_NO2=0.0
-!
-!PAN3/WR_NO3=0.0
-!
-!PAN3/WR_N2O5=0.0
-!
-!PAN3/WR_HONO=0.0
-!
-!PAN3/WR_HNO3=0.0
-!
-!PAN3/WR_HNO4=0.0
-!
-!PAN3/WR_NH3=0.0
-!
-!PAN3/WR_OH=0.0
-!
-!PAN3/WR_HO2=0.0
-!
-!PAN3/WR_CO2=0.0
-!
-!PAN3/WR_SO2=0.0
-!
-!PAN3/WR_H2SO4=0.0
-!
-!PAN3/WR_RO21=0.0
-!
-!PAN3/WR_RO25=0.0
-!
-!PAN3/WR_MEOH=0.0
-!
-!PAN3/WR_ETOH=0.0
-!
-!PAN3/WR_ALCH=0.0
-!
-!PAN3/WR_HCHO=0.0
-!
-!PAN3/WR_ALD2=0.0
-!
-!PAN3/WR_GLY=0.0
-!
-!PAN3/WR_MGLY=0.0
-!
-!PAN3/WR_KETL=0.0
-!
-!PAN3/WR_ORA1=0.0
-!
-!PAN3/WR_ORA2=0.0
-!
-!PAN3/WR_ACID=0.0
-!
-!PAN3/WR_RP16=0.0
-!
-!PAN3/WR_UR21=0.0
-!
-!PAN3/WR_UR28=0.0
-!
-!PAN3/WR_ACID2=0.0
-!
-!PAN3/WR_ASO3=0.0
-!
-!PAN3/WR_ASO4=0.0
-!
-!PAN3/WR_ASO5=0.0
-!
-!PAN3/WR_AHSO5=0.0
-!
-!PAN3/WR_AHMS=0.0
-!
-!PAN4/NO=0.0
-!
-!PAN4/NO2=+K129*<RO248>
- PJAC(:,80,2)=+TPK%K129(:)*TPK%RO248(:)
-!
-!PAN4/O3=0.0
-!
-!PAN4/HONO=0.0
-!
-!PAN4/HNO3=0.0
-!
-!PAN4/HNO4=0.0
-!
-!PAN4/N2O5=0.0
-!
-!PAN4/NO3=0.0
-!
-!PAN4/NH3=0.0
-!
-!PAN4/HO2=0.0
-!
-!PAN4/CO=0.0
-!
-!PAN4/H2O2=0.0
-!
-!PAN4/SO2=0.0
-!
-!PAN4/H2SO4=0.0
-!
-!PAN4/OH=0.0
-!
-!PAN4/ETHE=0.0
-!
-!PAN4/OLEL=0.0
-!
-!PAN4/OLEH=0.0
-!
-!PAN4/ALKL=0.0
-!
-!PAN4/ALKM=0.0
-!
-!PAN4/ALKH=0.0
-!
-!PAN4/AROH=0.0
-!
-!PAN4/AROL=0.0
-!
-!PAN4/AROO=0.0
-!
-!PAN4/ARAL=0.0
-!
-!PAN4/ARAC=0.0
-!
-!PAN4/PAH=0.0
-!
-!PAN4/HCHO=0.0
-!
-!PAN4/ALD2=0.0
-!
-!PAN4/KETL=0.0
-!
-!PAN4/KETH=0.0
-!
-!PAN4/MEOH=0.0
-!
-!PAN4/ETOH=0.0
-!
-!PAN4/ALCH=0.0
-!
-!PAN4/ISOP=0.0
-!
-!PAN4/BIOL=0.0
-!
-!PAN4/BIOH=0.0
-!
-!PAN4/MTBE=0.0
-!
-!PAN4/MVK=0.0
-!
-!PAN4/MCR=0.0
-!
-!PAN4/MGLY=0.0
-!
-!PAN4/GLY=0.0
-!
-!PAN4/ORA1=0.0
-!
-!PAN4/ORA2=0.0
-!
-!PAN4/ACID=0.0
-!
-!PAN4/UR28=0.0
-!
-!PAN4/UR21=0.0
-!
-!PAN4/URG2=0.0
-!
-!PAN4/UR26=0.0
-!
-!PAN4/RPG2=0.0
-!
-!PAN4/RP18=0.0
-!
-!PAN4/RPG3=0.0
-!
-!PAN4/URG4=0.0
-!
-!PAN4/UR8=0.0
-!
-!PAN4/UR17=0.0
-!
-!PAN4/UR7=0.0
-!
-!PAN4/RPR3=0.0
-!
-!PAN4/URG6=0.0
-!
-!PAN4/UR22=0.0
-!
-!PAN4/URG7=0.0
-!
-!PAN4/RPR4=0.0
-!
-!PAN4/RPR7=0.0
-!
-!PAN4/RPG7=0.0
-!
-!PAN4/URG8=0.0
-!
-!PAN4/UR19=0.0
-!
-!PAN4/URG9=0.0
-!
-!PAN4/AP7=0.0
-!
-!PAN4/URG10=0.0
-!
-!PAN4/RPR1=0.0
-!
-!PAN4/RPR5=0.0
-!
-!PAN4/RPR8=0.0
-!
-!PAN4/RP10=0.0
-!
-!PAN4/RP11=0.0
-!
-!PAN4/RP16=0.0
-!
-!PAN4/RPRL=0.0
-!
-!PAN4/APAN=0.0
-!
-!PAN4/PAN1=0.0
-!
-!PAN4/PAN2=0.0
-!
-!PAN4/PAN3=0.0
-!
-!PAN4/PAN4=-K141
- PJAC(:,80,80)=-TPK%K141(:)
-!
-!PAN4/PAN6=0.0
-!
-!PAN4/PAN7=0.0
-!
-!PAN4/PAN8=0.0
-!
-!PAN4/PN10=0.0
-!
-!PAN4/RO2T=0.0
-!
-!PAN4/RO21=0.0
-!
-!PAN4/RO25=0.0
-!
-!PAN4/WC_O3=0.0
-!
-!PAN4/WC_H2O2=0.0
-!
-!PAN4/WC_NO=0.0
-!
-!PAN4/WC_NO2=0.0
-!
-!PAN4/WC_NO3=0.0
-!
-!PAN4/WC_N2O5=0.0
-!
-!PAN4/WC_HONO=0.0
-!
-!PAN4/WC_HNO3=0.0
-!
-!PAN4/WC_HNO4=0.0
-!
-!PAN4/WC_NH3=0.0
-!
-!PAN4/WC_OH=0.0
-!
-!PAN4/WC_HO2=0.0
-!
-!PAN4/WC_CO2=0.0
-!
-!PAN4/WC_SO2=0.0
-!
-!PAN4/WC_H2SO4=0.0
-!
-!PAN4/WC_RO21=0.0
-!
-!PAN4/WC_RO25=0.0
-!
-!PAN4/WC_MEOH=0.0
-!
-!PAN4/WC_ETOH=0.0
-!
-!PAN4/WC_ALCH=0.0
-!
-!PAN4/WC_HCHO=0.0
-!
-!PAN4/WC_ALD2=0.0
-!
-!PAN4/WC_GLY=0.0
-!
-!PAN4/WC_MGLY=0.0
-!
-!PAN4/WC_KETL=0.0
-!
-!PAN4/WC_ORA1=0.0
-!
-!PAN4/WC_ORA2=0.0
-!
-!PAN4/WC_ACID=0.0
-!
-!PAN4/WC_RP16=0.0
-!
-!PAN4/WC_UR21=0.0
-!
-!PAN4/WC_UR28=0.0
-!
-!PAN4/WC_ACID2=0.0
-!
-!PAN4/WC_ASO3=0.0
-!
-!PAN4/WC_ASO4=0.0
-!
-!PAN4/WC_ASO5=0.0
-!
-!PAN4/WC_AHSO5=0.0
-!
-!PAN4/WC_AHMS=0.0
-!
-!PAN4/WR_O3=0.0
-!
-!PAN4/WR_H2O2=0.0
-!
-!PAN4/WR_NO=0.0
-!
-!PAN4/WR_NO2=0.0
-!
-!PAN4/WR_NO3=0.0
-!
-!PAN4/WR_N2O5=0.0
-!
-!PAN4/WR_HONO=0.0
-!
-!PAN4/WR_HNO3=0.0
-!
-!PAN4/WR_HNO4=0.0
-!
-!PAN4/WR_NH3=0.0
-!
-!PAN4/WR_OH=0.0
-!
-!PAN4/WR_HO2=0.0
-!
-!PAN4/WR_CO2=0.0
-!
-!PAN4/WR_SO2=0.0
-!
-!PAN4/WR_H2SO4=0.0
-!
-!PAN4/WR_RO21=0.0
-!
-!PAN4/WR_RO25=0.0
-!
-!PAN4/WR_MEOH=0.0
-!
-!PAN4/WR_ETOH=0.0
-!
-!PAN4/WR_ALCH=0.0
-!
-!PAN4/WR_HCHO=0.0
-!
-!PAN4/WR_ALD2=0.0
-!
-!PAN4/WR_GLY=0.0
-!
-!PAN4/WR_MGLY=0.0
-!
-!PAN4/WR_KETL=0.0
-!
-!PAN4/WR_ORA1=0.0
-!
-!PAN4/WR_ORA2=0.0
-!
-!PAN4/WR_ACID=0.0
-!
-!PAN4/WR_RP16=0.0
-!
-!PAN4/WR_UR21=0.0
-!
-!PAN4/WR_UR28=0.0
-!
-!PAN4/WR_ACID2=0.0
-!
-!PAN4/WR_ASO3=0.0
-!
-!PAN4/WR_ASO4=0.0
-!
-!PAN4/WR_ASO5=0.0
-!
-!PAN4/WR_AHSO5=0.0
-!
-!PAN4/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ15
-!
-SUBROUTINE SUBJ16
-!
-!Indices 81 a 85
-!
-!
-!PAN6/NO=0.0
-!
-!PAN6/NO2=+K131*<RO254>
- PJAC(:,81,2)=+TPK%K131(:)*TPK%RO254(:)
-!
-!PAN6/O3=0.0
-!
-!PAN6/HONO=0.0
-!
-!PAN6/HNO3=0.0
-!
-!PAN6/HNO4=0.0
-!
-!PAN6/N2O5=0.0
-!
-!PAN6/NO3=0.0
-!
-!PAN6/NH3=0.0
-!
-!PAN6/HO2=0.0
-!
-!PAN6/CO=0.0
-!
-!PAN6/H2O2=0.0
-!
-!PAN6/SO2=0.0
-!
-!PAN6/H2SO4=0.0
-!
-!PAN6/OH=0.0
-!
-!PAN6/ETHE=0.0
-!
-!PAN6/OLEL=0.0
-!
-!PAN6/OLEH=0.0
-!
-!PAN6/ALKL=0.0
-!
-!PAN6/ALKM=0.0
-!
-!PAN6/ALKH=0.0
-!
-!PAN6/AROH=0.0
-!
-!PAN6/AROL=0.0
-!
-!PAN6/AROO=0.0
-!
-!PAN6/ARAL=0.0
-!
-!PAN6/ARAC=0.0
-!
-!PAN6/PAH=0.0
-!
-!PAN6/HCHO=0.0
-!
-!PAN6/ALD2=0.0
-!
-!PAN6/KETL=0.0
-!
-!PAN6/KETH=0.0
-!
-!PAN6/MEOH=0.0
-!
-!PAN6/ETOH=0.0
-!
-!PAN6/ALCH=0.0
-!
-!PAN6/ISOP=0.0
-!
-!PAN6/BIOL=0.0
-!
-!PAN6/BIOH=0.0
-!
-!PAN6/MTBE=0.0
-!
-!PAN6/MVK=0.0
-!
-!PAN6/MCR=0.0
-!
-!PAN6/MGLY=0.0
-!
-!PAN6/GLY=0.0
-!
-!PAN6/ORA1=0.0
-!
-!PAN6/ORA2=0.0
-!
-!PAN6/ACID=0.0
-!
-!PAN6/UR28=0.0
-!
-!PAN6/UR21=0.0
-!
-!PAN6/URG2=0.0
-!
-!PAN6/UR26=0.0
-!
-!PAN6/RPG2=0.0
-!
-!PAN6/RP18=0.0
-!
-!PAN6/RPG3=0.0
-!
-!PAN6/URG4=0.0
-!
-!PAN6/UR8=0.0
-!
-!PAN6/UR17=0.0
-!
-!PAN6/UR7=0.0
-!
-!PAN6/RPR3=0.0
-!
-!PAN6/URG6=0.0
-!
-!PAN6/UR22=0.0
-!
-!PAN6/URG7=0.0
-!
-!PAN6/RPR4=0.0
-!
-!PAN6/RPR7=0.0
-!
-!PAN6/RPG7=0.0
-!
-!PAN6/URG8=0.0
-!
-!PAN6/UR19=0.0
-!
-!PAN6/URG9=0.0
-!
-!PAN6/AP7=0.0
-!
-!PAN6/URG10=0.0
-!
-!PAN6/RPR1=0.0
-!
-!PAN6/RPR5=0.0
-!
-!PAN6/RPR8=0.0
-!
-!PAN6/RP10=0.0
-!
-!PAN6/RP11=0.0
-!
-!PAN6/RP16=0.0
-!
-!PAN6/RPRL=0.0
-!
-!PAN6/APAN=0.0
-!
-!PAN6/PAN1=0.0
-!
-!PAN6/PAN2=0.0
-!
-!PAN6/PAN3=0.0
-!
-!PAN6/PAN4=0.0
-!
-!PAN6/PAN6=-K140
- PJAC(:,81,81)=-TPK%K140(:)
-!
-!PAN6/PAN7=0.0
-!
-!PAN6/PAN8=0.0
-!
-!PAN6/PN10=0.0
-!
-!PAN6/RO2T=0.0
-!
-!PAN6/RO21=0.0
-!
-!PAN6/RO25=0.0
-!
-!PAN6/WC_O3=0.0
-!
-!PAN6/WC_H2O2=0.0
-!
-!PAN6/WC_NO=0.0
-!
-!PAN6/WC_NO2=0.0
-!
-!PAN6/WC_NO3=0.0
-!
-!PAN6/WC_N2O5=0.0
-!
-!PAN6/WC_HONO=0.0
-!
-!PAN6/WC_HNO3=0.0
-!
-!PAN6/WC_HNO4=0.0
-!
-!PAN6/WC_NH3=0.0
-!
-!PAN6/WC_OH=0.0
-!
-!PAN6/WC_HO2=0.0
-!
-!PAN6/WC_CO2=0.0
-!
-!PAN6/WC_SO2=0.0
-!
-!PAN6/WC_H2SO4=0.0
-!
-!PAN6/WC_RO21=0.0
-!
-!PAN6/WC_RO25=0.0
-!
-!PAN6/WC_MEOH=0.0
-!
-!PAN6/WC_ETOH=0.0
-!
-!PAN6/WC_ALCH=0.0
-!
-!PAN6/WC_HCHO=0.0
-!
-!PAN6/WC_ALD2=0.0
-!
-!PAN6/WC_GLY=0.0
-!
-!PAN6/WC_MGLY=0.0
-!
-!PAN6/WC_KETL=0.0
-!
-!PAN6/WC_ORA1=0.0
-!
-!PAN6/WC_ORA2=0.0
-!
-!PAN6/WC_ACID=0.0
-!
-!PAN6/WC_RP16=0.0
-!
-!PAN6/WC_UR21=0.0
-!
-!PAN6/WC_UR28=0.0
-!
-!PAN6/WC_ACID2=0.0
-!
-!PAN6/WC_ASO3=0.0
-!
-!PAN6/WC_ASO4=0.0
-!
-!PAN6/WC_ASO5=0.0
-!
-!PAN6/WC_AHSO5=0.0
-!
-!PAN6/WC_AHMS=0.0
-!
-!PAN6/WR_O3=0.0
-!
-!PAN6/WR_H2O2=0.0
-!
-!PAN6/WR_NO=0.0
-!
-!PAN6/WR_NO2=0.0
-!
-!PAN6/WR_NO3=0.0
-!
-!PAN6/WR_N2O5=0.0
-!
-!PAN6/WR_HONO=0.0
-!
-!PAN6/WR_HNO3=0.0
-!
-!PAN6/WR_HNO4=0.0
-!
-!PAN6/WR_NH3=0.0
-!
-!PAN6/WR_OH=0.0
-!
-!PAN6/WR_HO2=0.0
-!
-!PAN6/WR_CO2=0.0
-!
-!PAN6/WR_SO2=0.0
-!
-!PAN6/WR_H2SO4=0.0
-!
-!PAN6/WR_RO21=0.0
-!
-!PAN6/WR_RO25=0.0
-!
-!PAN6/WR_MEOH=0.0
-!
-!PAN6/WR_ETOH=0.0
-!
-!PAN6/WR_ALCH=0.0
-!
-!PAN6/WR_HCHO=0.0
-!
-!PAN6/WR_ALD2=0.0
-!
-!PAN6/WR_GLY=0.0
-!
-!PAN6/WR_MGLY=0.0
-!
-!PAN6/WR_KETL=0.0
-!
-!PAN6/WR_ORA1=0.0
-!
-!PAN6/WR_ORA2=0.0
-!
-!PAN6/WR_ACID=0.0
-!
-!PAN6/WR_RP16=0.0
-!
-!PAN6/WR_UR21=0.0
-!
-!PAN6/WR_UR28=0.0
-!
-!PAN6/WR_ACID2=0.0
-!
-!PAN6/WR_ASO3=0.0
-!
-!PAN6/WR_ASO4=0.0
-!
-!PAN6/WR_ASO5=0.0
-!
-!PAN6/WR_AHSO5=0.0
-!
-!PAN6/WR_AHMS=0.0
-!
-!PAN7/NO=0.0
-!
-!PAN7/NO2=+K132*<RO255>
- PJAC(:,82,2)=+TPK%K132(:)*TPK%RO255(:)
-!
-!PAN7/O3=0.0
-!
-!PAN7/HONO=0.0
-!
-!PAN7/HNO3=0.0
-!
-!PAN7/HNO4=0.0
-!
-!PAN7/N2O5=0.0
-!
-!PAN7/NO3=0.0
-!
-!PAN7/NH3=0.0
-!
-!PAN7/HO2=0.0
-!
-!PAN7/CO=0.0
-!
-!PAN7/H2O2=0.0
-!
-!PAN7/SO2=0.0
-!
-!PAN7/H2SO4=0.0
-!
-!PAN7/OH=0.0
-!
-!PAN7/ETHE=0.0
-!
-!PAN7/OLEL=0.0
-!
-!PAN7/OLEH=0.0
-!
-!PAN7/ALKL=0.0
-!
-!PAN7/ALKM=0.0
-!
-!PAN7/ALKH=0.0
-!
-!PAN7/AROH=0.0
-!
-!PAN7/AROL=0.0
-!
-!PAN7/AROO=0.0
-!
-!PAN7/ARAL=0.0
-!
-!PAN7/ARAC=0.0
-!
-!PAN7/PAH=0.0
-!
-!PAN7/HCHO=0.0
-!
-!PAN7/ALD2=0.0
-!
-!PAN7/KETL=0.0
-!
-!PAN7/KETH=0.0
-!
-!PAN7/MEOH=0.0
-!
-!PAN7/ETOH=0.0
-!
-!PAN7/ALCH=0.0
-!
-!PAN7/ISOP=0.0
-!
-!PAN7/BIOL=0.0
-!
-!PAN7/BIOH=0.0
-!
-!PAN7/MTBE=0.0
-!
-!PAN7/MVK=0.0
-!
-!PAN7/MCR=0.0
-!
-!PAN7/MGLY=0.0
-!
-!PAN7/GLY=0.0
-!
-!PAN7/ORA1=0.0
-!
-!PAN7/ORA2=0.0
-!
-!PAN7/ACID=0.0
-!
-!PAN7/UR28=0.0
-!
-!PAN7/UR21=0.0
-!
-!PAN7/URG2=0.0
-!
-!PAN7/UR26=0.0
-!
-!PAN7/RPG2=0.0
-!
-!PAN7/RP18=0.0
-!
-!PAN7/RPG3=0.0
-!
-!PAN7/URG4=0.0
-!
-!PAN7/UR8=0.0
-!
-!PAN7/UR17=0.0
-!
-!PAN7/UR7=0.0
-!
-!PAN7/RPR3=0.0
-!
-!PAN7/URG6=0.0
-!
-!PAN7/UR22=0.0
-!
-!PAN7/URG7=0.0
-!
-!PAN7/RPR4=0.0
-!
-!PAN7/RPR7=0.0
-!
-!PAN7/RPG7=0.0
-!
-!PAN7/URG8=0.0
-!
-!PAN7/UR19=0.0
-!
-!PAN7/URG9=0.0
-!
-!PAN7/AP7=0.0
-!
-!PAN7/URG10=0.0
-!
-!PAN7/RPR1=0.0
-!
-!PAN7/RPR5=0.0
-!
-!PAN7/RPR8=0.0
-!
-!PAN7/RP10=0.0
-!
-!PAN7/RP11=0.0
-!
-!PAN7/RP16=0.0
-!
-!PAN7/RPRL=0.0
-!
-!PAN7/APAN=0.0
-!
-!PAN7/PAN1=0.0
-!
-!PAN7/PAN2=0.0
-!
-!PAN7/PAN3=0.0
-!
-!PAN7/PAN4=0.0
-!
-!PAN7/PAN6=0.0
-!
-!PAN7/PAN7=-K343
- PJAC(:,82,82)=-TPK%K343(:)
-!
-!PAN7/PAN8=0.0
-!
-!PAN7/PN10=0.0
-!
-!PAN7/RO2T=0.0
-!
-!PAN7/RO21=0.0
-!
-!PAN7/RO25=0.0
-!
-!PAN7/WC_O3=0.0
-!
-!PAN7/WC_H2O2=0.0
-!
-!PAN7/WC_NO=0.0
-!
-!PAN7/WC_NO2=0.0
-!
-!PAN7/WC_NO3=0.0
-!
-!PAN7/WC_N2O5=0.0
-!
-!PAN7/WC_HONO=0.0
-!
-!PAN7/WC_HNO3=0.0
-!
-!PAN7/WC_HNO4=0.0
-!
-!PAN7/WC_NH3=0.0
-!
-!PAN7/WC_OH=0.0
-!
-!PAN7/WC_HO2=0.0
-!
-!PAN7/WC_CO2=0.0
-!
-!PAN7/WC_SO2=0.0
-!
-!PAN7/WC_H2SO4=0.0
-!
-!PAN7/WC_RO21=0.0
-!
-!PAN7/WC_RO25=0.0
-!
-!PAN7/WC_MEOH=0.0
-!
-!PAN7/WC_ETOH=0.0
-!
-!PAN7/WC_ALCH=0.0
-!
-!PAN7/WC_HCHO=0.0
-!
-!PAN7/WC_ALD2=0.0
-!
-!PAN7/WC_GLY=0.0
-!
-!PAN7/WC_MGLY=0.0
-!
-!PAN7/WC_KETL=0.0
-!
-!PAN7/WC_ORA1=0.0
-!
-!PAN7/WC_ORA2=0.0
-!
-!PAN7/WC_ACID=0.0
-!
-!PAN7/WC_RP16=0.0
-!
-!PAN7/WC_UR21=0.0
-!
-!PAN7/WC_UR28=0.0
-!
-!PAN7/WC_ACID2=0.0
-!
-!PAN7/WC_ASO3=0.0
-!
-!PAN7/WC_ASO4=0.0
-!
-!PAN7/WC_ASO5=0.0
-!
-!PAN7/WC_AHSO5=0.0
-!
-!PAN7/WC_AHMS=0.0
-!
-!PAN7/WR_O3=0.0
-!
-!PAN7/WR_H2O2=0.0
-!
-!PAN7/WR_NO=0.0
-!
-!PAN7/WR_NO2=0.0
-!
-!PAN7/WR_NO3=0.0
-!
-!PAN7/WR_N2O5=0.0
-!
-!PAN7/WR_HONO=0.0
-!
-!PAN7/WR_HNO3=0.0
-!
-!PAN7/WR_HNO4=0.0
-!
-!PAN7/WR_NH3=0.0
-!
-!PAN7/WR_OH=0.0
-!
-!PAN7/WR_HO2=0.0
-!
-!PAN7/WR_CO2=0.0
-!
-!PAN7/WR_SO2=0.0
-!
-!PAN7/WR_H2SO4=0.0
-!
-!PAN7/WR_RO21=0.0
-!
-!PAN7/WR_RO25=0.0
-!
-!PAN7/WR_MEOH=0.0
-!
-!PAN7/WR_ETOH=0.0
-!
-!PAN7/WR_ALCH=0.0
-!
-!PAN7/WR_HCHO=0.0
-!
-!PAN7/WR_ALD2=0.0
-!
-!PAN7/WR_GLY=0.0
-!
-!PAN7/WR_MGLY=0.0
-!
-!PAN7/WR_KETL=0.0
-!
-!PAN7/WR_ORA1=0.0
-!
-!PAN7/WR_ORA2=0.0
-!
-!PAN7/WR_ACID=0.0
-!
-!PAN7/WR_RP16=0.0
-!
-!PAN7/WR_UR21=0.0
-!
-!PAN7/WR_UR28=0.0
-!
-!PAN7/WR_ACID2=0.0
-!
-!PAN7/WR_ASO3=0.0
-!
-!PAN7/WR_ASO4=0.0
-!
-!PAN7/WR_ASO5=0.0
-!
-!PAN7/WR_AHSO5=0.0
-!
-!PAN7/WR_AHMS=0.0
-!
-!PAN8/NO=0.0
-!
-!PAN8/NO2=+K316*<RO256>
- PJAC(:,83,2)=+TPK%K316(:)*TPK%RO256(:)
-!
-!PAN8/O3=0.0
-!
-!PAN8/HONO=0.0
-!
-!PAN8/HNO3=0.0
-!
-!PAN8/HNO4=0.0
-!
-!PAN8/N2O5=0.0
-!
-!PAN8/NO3=0.0
-!
-!PAN8/NH3=0.0
-!
-!PAN8/HO2=0.0
-!
-!PAN8/CO=0.0
-!
-!PAN8/H2O2=0.0
-!
-!PAN8/SO2=0.0
-!
-!PAN8/H2SO4=0.0
-!
-!PAN8/OH=0.0
-!
-!PAN8/ETHE=0.0
-!
-!PAN8/OLEL=0.0
-!
-!PAN8/OLEH=0.0
-!
-!PAN8/ALKL=0.0
-!
-!PAN8/ALKM=0.0
-!
-!PAN8/ALKH=0.0
-!
-!PAN8/AROH=0.0
-!
-!PAN8/AROL=0.0
-!
-!PAN8/AROO=0.0
-!
-!PAN8/ARAL=0.0
-!
-!PAN8/ARAC=0.0
-!
-!PAN8/PAH=0.0
-!
-!PAN8/HCHO=0.0
-!
-!PAN8/ALD2=0.0
-!
-!PAN8/KETL=0.0
-!
-!PAN8/KETH=0.0
-!
-!PAN8/MEOH=0.0
-!
-!PAN8/ETOH=0.0
-!
-!PAN8/ALCH=0.0
-!
-!PAN8/ISOP=0.0
-!
-!PAN8/BIOL=0.0
-!
-!PAN8/BIOH=0.0
-!
-!PAN8/MTBE=0.0
-!
-!PAN8/MVK=0.0
-!
-!PAN8/MCR=0.0
-!
-!PAN8/MGLY=0.0
-!
-!PAN8/GLY=0.0
-!
-!PAN8/ORA1=0.0
-!
-!PAN8/ORA2=0.0
-!
-!PAN8/ACID=0.0
-!
-!PAN8/UR28=0.0
-!
-!PAN8/UR21=0.0
-!
-!PAN8/URG2=0.0
-!
-!PAN8/UR26=0.0
-!
-!PAN8/RPG2=0.0
-!
-!PAN8/RP18=0.0
-!
-!PAN8/RPG3=0.0
-!
-!PAN8/URG4=0.0
-!
-!PAN8/UR8=0.0
-!
-!PAN8/UR17=0.0
-!
-!PAN8/UR7=0.0
-!
-!PAN8/RPR3=0.0
-!
-!PAN8/URG6=0.0
-!
-!PAN8/UR22=0.0
-!
-!PAN8/URG7=0.0
-!
-!PAN8/RPR4=0.0
-!
-!PAN8/RPR7=0.0
-!
-!PAN8/RPG7=0.0
-!
-!PAN8/URG8=0.0
-!
-!PAN8/UR19=0.0
-!
-!PAN8/URG9=0.0
-!
-!PAN8/AP7=0.0
-!
-!PAN8/URG10=0.0
-!
-!PAN8/RPR1=0.0
-!
-!PAN8/RPR5=0.0
-!
-!PAN8/RPR8=0.0
-!
-!PAN8/RP10=0.0
-!
-!PAN8/RP11=0.0
-!
-!PAN8/RP16=0.0
-!
-!PAN8/RPRL=0.0
-!
-!PAN8/APAN=0.0
-!
-!PAN8/PAN1=0.0
-!
-!PAN8/PAN2=0.0
-!
-!PAN8/PAN3=0.0
-!
-!PAN8/PAN4=0.0
-!
-!PAN8/PAN6=0.0
-!
-!PAN8/PAN7=0.0
-!
-!PAN8/PAN8=-K317
- PJAC(:,83,83)=-TPK%K317(:)
-!
-!PAN8/PN10=0.0
-!
-!PAN8/RO2T=0.0
-!
-!PAN8/RO21=0.0
-!
-!PAN8/RO25=0.0
-!
-!PAN8/WC_O3=0.0
-!
-!PAN8/WC_H2O2=0.0
-!
-!PAN8/WC_NO=0.0
-!
-!PAN8/WC_NO2=0.0
-!
-!PAN8/WC_NO3=0.0
-!
-!PAN8/WC_N2O5=0.0
-!
-!PAN8/WC_HONO=0.0
-!
-!PAN8/WC_HNO3=0.0
-!
-!PAN8/WC_HNO4=0.0
-!
-!PAN8/WC_NH3=0.0
-!
-!PAN8/WC_OH=0.0
-!
-!PAN8/WC_HO2=0.0
-!
-!PAN8/WC_CO2=0.0
-!
-!PAN8/WC_SO2=0.0
-!
-!PAN8/WC_H2SO4=0.0
-!
-!PAN8/WC_RO21=0.0
-!
-!PAN8/WC_RO25=0.0
-!
-!PAN8/WC_MEOH=0.0
-!
-!PAN8/WC_ETOH=0.0
-!
-!PAN8/WC_ALCH=0.0
-!
-!PAN8/WC_HCHO=0.0
-!
-!PAN8/WC_ALD2=0.0
-!
-!PAN8/WC_GLY=0.0
-!
-!PAN8/WC_MGLY=0.0
-!
-!PAN8/WC_KETL=0.0
-!
-!PAN8/WC_ORA1=0.0
-!
-!PAN8/WC_ORA2=0.0
-!
-!PAN8/WC_ACID=0.0
-!
-!PAN8/WC_RP16=0.0
-!
-!PAN8/WC_UR21=0.0
-!
-!PAN8/WC_UR28=0.0
-!
-!PAN8/WC_ACID2=0.0
-!
-!PAN8/WC_ASO3=0.0
-!
-!PAN8/WC_ASO4=0.0
-!
-!PAN8/WC_ASO5=0.0
-!
-!PAN8/WC_AHSO5=0.0
-!
-!PAN8/WC_AHMS=0.0
-!
-!PAN8/WR_O3=0.0
-!
-!PAN8/WR_H2O2=0.0
-!
-!PAN8/WR_NO=0.0
-!
-!PAN8/WR_NO2=0.0
-!
-!PAN8/WR_NO3=0.0
-!
-!PAN8/WR_N2O5=0.0
-!
-!PAN8/WR_HONO=0.0
-!
-!PAN8/WR_HNO3=0.0
-!
-!PAN8/WR_HNO4=0.0
-!
-!PAN8/WR_NH3=0.0
-!
-!PAN8/WR_OH=0.0
-!
-!PAN8/WR_HO2=0.0
-!
-!PAN8/WR_CO2=0.0
-!
-!PAN8/WR_SO2=0.0
-!
-!PAN8/WR_H2SO4=0.0
-!
-!PAN8/WR_RO21=0.0
-!
-!PAN8/WR_RO25=0.0
-!
-!PAN8/WR_MEOH=0.0
-!
-!PAN8/WR_ETOH=0.0
-!
-!PAN8/WR_ALCH=0.0
-!
-!PAN8/WR_HCHO=0.0
-!
-!PAN8/WR_ALD2=0.0
-!
-!PAN8/WR_GLY=0.0
-!
-!PAN8/WR_MGLY=0.0
-!
-!PAN8/WR_KETL=0.0
-!
-!PAN8/WR_ORA1=0.0
-!
-!PAN8/WR_ORA2=0.0
-!
-!PAN8/WR_ACID=0.0
-!
-!PAN8/WR_RP16=0.0
-!
-!PAN8/WR_UR21=0.0
-!
-!PAN8/WR_UR28=0.0
-!
-!PAN8/WR_ACID2=0.0
-!
-!PAN8/WR_ASO3=0.0
-!
-!PAN8/WR_ASO4=0.0
-!
-!PAN8/WR_ASO5=0.0
-!
-!PAN8/WR_AHSO5=0.0
-!
-!PAN8/WR_AHMS=0.0
-!
-!PN10/NO=0.0
-!
-!PN10/NO2=+K134*<RO258>
- PJAC(:,84,2)=+TPK%K134(:)*TPK%RO258(:)
-!
-!PN10/O3=0.0
-!
-!PN10/HONO=0.0
-!
-!PN10/HNO3=0.0
-!
-!PN10/HNO4=0.0
-!
-!PN10/N2O5=0.0
-!
-!PN10/NO3=0.0
-!
-!PN10/NH3=0.0
-!
-!PN10/HO2=0.0
-!
-!PN10/CO=0.0
-!
-!PN10/H2O2=0.0
-!
-!PN10/SO2=0.0
-!
-!PN10/H2SO4=0.0
-!
-!PN10/OH=0.0
-!
-!PN10/ETHE=0.0
-!
-!PN10/OLEL=0.0
-!
-!PN10/OLEH=0.0
-!
-!PN10/ALKL=0.0
-!
-!PN10/ALKM=0.0
-!
-!PN10/ALKH=0.0
-!
-!PN10/AROH=0.0
-!
-!PN10/AROL=0.0
-!
-!PN10/AROO=0.0
-!
-!PN10/ARAL=0.0
-!
-!PN10/ARAC=0.0
-!
-!PN10/PAH=0.0
-!
-!PN10/HCHO=0.0
-!
-!PN10/ALD2=0.0
-!
-!PN10/KETL=0.0
-!
-!PN10/KETH=0.0
-!
-!PN10/MEOH=0.0
-!
-!PN10/ETOH=0.0
-!
-!PN10/ALCH=0.0
-!
-!PN10/ISOP=0.0
-!
-!PN10/BIOL=0.0
-!
-!PN10/BIOH=0.0
-!
-!PN10/MTBE=0.0
-!
-!PN10/MVK=0.0
-!
-!PN10/MCR=0.0
-!
-!PN10/MGLY=0.0
-!
-!PN10/GLY=0.0
-!
-!PN10/ORA1=0.0
-!
-!PN10/ORA2=0.0
-!
-!PN10/ACID=0.0
-!
-!PN10/UR28=0.0
-!
-!PN10/UR21=0.0
-!
-!PN10/URG2=0.0
-!
-!PN10/UR26=0.0
-!
-!PN10/RPG2=0.0
-!
-!PN10/RP18=0.0
-!
-!PN10/RPG3=0.0
-!
-!PN10/URG4=0.0
-!
-!PN10/UR8=0.0
-!
-!PN10/UR17=0.0
-!
-!PN10/UR7=0.0
-!
-!PN10/RPR3=0.0
-!
-!PN10/URG6=0.0
-!
-!PN10/UR22=0.0
-!
-!PN10/URG7=0.0
-!
-!PN10/RPR4=0.0
-!
-!PN10/RPR7=0.0
-!
-!PN10/RPG7=0.0
-!
-!PN10/URG8=0.0
-!
-!PN10/UR19=0.0
-!
-!PN10/URG9=0.0
-!
-!PN10/AP7=0.0
-!
-!PN10/URG10=0.0
-!
-!PN10/RPR1=0.0
-!
-!PN10/RPR5=0.0
-!
-!PN10/RPR8=0.0
-!
-!PN10/RP10=0.0
-!
-!PN10/RP11=0.0
-!
-!PN10/RP16=0.0
-!
-!PN10/RPRL=0.0
-!
-!PN10/APAN=0.0
-!
-!PN10/PAN1=0.0
-!
-!PN10/PAN2=0.0
-!
-!PN10/PAN3=0.0
-!
-!PN10/PAN4=0.0
-!
-!PN10/PAN6=0.0
-!
-!PN10/PAN7=0.0
-!
-!PN10/PAN8=0.0
-!
-!PN10/PN10=-K138
- PJAC(:,84,84)=-TPK%K138(:)
-!
-!PN10/RO2T=0.0
-!
-!PN10/RO21=0.0
-!
-!PN10/RO25=0.0
-!
-!PN10/WC_O3=0.0
-!
-!PN10/WC_H2O2=0.0
-!
-!PN10/WC_NO=0.0
-!
-!PN10/WC_NO2=0.0
-!
-!PN10/WC_NO3=0.0
-!
-!PN10/WC_N2O5=0.0
-!
-!PN10/WC_HONO=0.0
-!
-!PN10/WC_HNO3=0.0
-!
-!PN10/WC_HNO4=0.0
-!
-!PN10/WC_NH3=0.0
-!
-!PN10/WC_OH=0.0
-!
-!PN10/WC_HO2=0.0
-!
-!PN10/WC_CO2=0.0
-!
-!PN10/WC_SO2=0.0
-!
-!PN10/WC_H2SO4=0.0
-!
-!PN10/WC_RO21=0.0
-!
-!PN10/WC_RO25=0.0
-!
-!PN10/WC_MEOH=0.0
-!
-!PN10/WC_ETOH=0.0
-!
-!PN10/WC_ALCH=0.0
-!
-!PN10/WC_HCHO=0.0
-!
-!PN10/WC_ALD2=0.0
-!
-!PN10/WC_GLY=0.0
-!
-!PN10/WC_MGLY=0.0
-!
-!PN10/WC_KETL=0.0
-!
-!PN10/WC_ORA1=0.0
-!
-!PN10/WC_ORA2=0.0
-!
-!PN10/WC_ACID=0.0
-!
-!PN10/WC_RP16=0.0
-!
-!PN10/WC_UR21=0.0
-!
-!PN10/WC_UR28=0.0
-!
-!PN10/WC_ACID2=0.0
-!
-!PN10/WC_ASO3=0.0
-!
-!PN10/WC_ASO4=0.0
-!
-!PN10/WC_ASO5=0.0
-!
-!PN10/WC_AHSO5=0.0
-!
-!PN10/WC_AHMS=0.0
-!
-!PN10/WR_O3=0.0
-!
-!PN10/WR_H2O2=0.0
-!
-!PN10/WR_NO=0.0
-!
-!PN10/WR_NO2=0.0
-!
-!PN10/WR_NO3=0.0
-!
-!PN10/WR_N2O5=0.0
-!
-!PN10/WR_HONO=0.0
-!
-!PN10/WR_HNO3=0.0
-!
-!PN10/WR_HNO4=0.0
-!
-!PN10/WR_NH3=0.0
-!
-!PN10/WR_OH=0.0
-!
-!PN10/WR_HO2=0.0
-!
-!PN10/WR_CO2=0.0
-!
-!PN10/WR_SO2=0.0
-!
-!PN10/WR_H2SO4=0.0
-!
-!PN10/WR_RO21=0.0
-!
-!PN10/WR_RO25=0.0
-!
-!PN10/WR_MEOH=0.0
-!
-!PN10/WR_ETOH=0.0
-!
-!PN10/WR_ALCH=0.0
-!
-!PN10/WR_HCHO=0.0
-!
-!PN10/WR_ALD2=0.0
-!
-!PN10/WR_GLY=0.0
-!
-!PN10/WR_MGLY=0.0
-!
-!PN10/WR_KETL=0.0
-!
-!PN10/WR_ORA1=0.0
-!
-!PN10/WR_ORA2=0.0
-!
-!PN10/WR_ACID=0.0
-!
-!PN10/WR_RP16=0.0
-!
-!PN10/WR_UR21=0.0
-!
-!PN10/WR_UR28=0.0
-!
-!PN10/WR_ACID2=0.0
-!
-!PN10/WR_ASO3=0.0
-!
-!PN10/WR_ASO4=0.0
-!
-!PN10/WR_ASO5=0.0
-!
-!PN10/WR_AHSO5=0.0
-!
-!PN10/WR_AHMS=0.0
-!
-!RO2T/NO=-K095*<RO2T>+K125*<RO26>+K144*<RO27>+K147*<RO28>+K162*<RO213>+K165*<RO
-!239>+TPK%CF8*K168*<RO214>+K174*<RO216>+TPK%CF18*K186*<RO220>+K204*<RO226>+TPK%
-!CF30*K213*<RO229>+K216*<RO240>+TPK%CF34*K224*<RO232>+K277*<RO248>+K288*<RO250>
-!+K297*<RO253>+K309*<RO255>+K331*<RO257>+K344*<RO230>
- PJAC(:,85,1)=-TPK%K095(:)*PCONC(:,85)+TPK%K125(:)*TPK%RO26(:)+TPK%K144(:)*TPK%&
-&RO27(:)+TPK%K147(:)*TPK%RO28(:)+TPK%K162(:)*TPK%RO213(:)+TPK%K165(:)*TPK%RO239&
-&(:)+TPK%CF8*TPK%K168(:)*TPK%RO214(:)+TPK%K174(:)*TPK%RO216(:)+TPK%CF18*TPK%K18&
-&6(:)*TPK%RO220(:)+TPK%K204(:)*TPK%RO226(:)+TPK%CF30*TPK%K213(:)*TPK%RO229(:)+T&
-&PK%K216(:)*TPK%RO240(:)+TPK%CF34*TPK%K224(:)*TPK%RO232(:)+TPK%K277(:)*TPK%RO24&
-&8(:)+TPK%K288(:)*TPK%RO250(:)+TPK%K297(:)*TPK%RO253(:)+TPK%K309(:)*TPK%RO255(:&
-&)+TPK%K331(:)*TPK%RO257(:)+TPK%K344(:)*TPK%RO230(:)
-!
-!RO2T/NO2=0.0
-!
-!RO2T/O3=+0.28*K056*<OLEL>+0.366*K066*<ISOP>+0.28*K076*<OLEH>+0.445*K086*<BIOL>
-!+0.89*K090*<BIOH>+0.28*K281*<MVK>+0.41*K282*<MCR>
- PJAC(:,85,3)=+0.28*TPK%K056(:)*PCONC(:,17)+0.366*TPK%K066(:)*PCONC(:,35)+0.28*&
-&TPK%K076(:)*PCONC(:,18)+0.445*TPK%K086(:)*PCONC(:,36)+0.89*TPK%K090(:)*PCONC(:&
-&,37)+0.28*TPK%K281(:)*PCONC(:,39)+0.41*TPK%K282(:)*PCONC(:,40)
-!
-!RO2T/HONO=0.0
-!
-!RO2T/HNO3=0.0
-!
-!RO2T/HNO4=0.0
-!
-!RO2T/N2O5=0.0
-!
-!RO2T/NO3=+K050*<ETHE>+K055*<OLEL>+K061*<ALD2>+K065*<ISOP>+K075*<OLEH>+K085*<BI
-!OL>+K089*<BIOH>+K275*<MCR>+K278*<MGLY>+K307*<RPR1>+K313*<RPR3>+K327*<RPR8>+K33
-!8*<RP16>
- PJAC(:,85,8)=+TPK%K050(:)*PCONC(:,16)+TPK%K055(:)*PCONC(:,17)+TPK%K061(:)*PCON&
-&C(:,29)+TPK%K065(:)*PCONC(:,35)+TPK%K075(:)*PCONC(:,18)+TPK%K085(:)*PCONC(:,36&
-&)+TPK%K089(:)*PCONC(:,37)+TPK%K275(:)*PCONC(:,40)+TPK%K278(:)*PCONC(:,41)+TPK%&
-&K307(:)*PCONC(:,69)+TPK%K313(:)*PCONC(:,57)+TPK%K327(:)*PCONC(:,71)+TPK%K338(:&
-&)*PCONC(:,74)
-!
-!RO2T/NH3=0.0
-!
-!RO2T/HO2=-K094*<RO2T>+K146*<RO27>+K164*<RO213>+K170*<RO214>+K176*<RO216>+K188*
-!<RO220>+K206*<RO226>+K215*<RO229>+K218*<RO240>+K220*<RO230>+K226*<RO232>+K292*
-!<RO251>+K295*<RO252>+2.*K298*<RO253>
- PJAC(:,85,10)=-TPK%K094(:)*PCONC(:,85)+TPK%K146(:)*TPK%RO27(:)+TPK%K164(:)*TPK&
-&%RO213(:)+TPK%K170(:)*TPK%RO214(:)+TPK%K176(:)*TPK%RO216(:)+TPK%K188(:)*TPK%RO&
-&220(:)+TPK%K206(:)*TPK%RO226(:)+TPK%K215(:)*TPK%RO229(:)+TPK%K218(:)*TPK%RO240&
-&(:)+TPK%K220(:)*TPK%RO230(:)+TPK%K226(:)*TPK%RO232(:)+TPK%K292(:)*TPK%RO251(:)&
-&+TPK%K295(:)*TPK%RO252(:)+2.*TPK%K298(:)*TPK%RO253(:)
-!
-!RO2T/CO=0.0
-!
-!RO2T/H2O2=0.0
-!
-!RO2T/SO2=0.0
-!
-!RO2T/H2SO4=0.0
-!
-!RO2T/OH=+K043*<CH4>+K049*<ETHE>+TPK%CF2*K053*<ETOH>+K054*<OLEL>+K058*<ALKL>+K0
-!60*<ALD2>+K062*<KETL>+K064*<ISOP>+K068*<MTBE>+K069*<ALCH>+K070*<KETH>+0.1*K073
-!*<AROO>+K074*<OLEH>+K078*<ALKM>+0.06*K079*<AROL>+TPK%CF45*K082*<ARAL>+0.1*K083
-!*<ARAC>+K084*<BIOL>+K088*<BIOH>+0.1*K092*<PAH>+K093*<ALKH>+K272*<MVK>+K273*<MC
-!R>+K274*<MGLY>+K304*<RPR1>+K305*<RP16>+K312*<RPR3>+K324*<RPR8>
- PJAC(:,85,15)=+TPK%K043(:)*TPK%CH4(:)+TPK%K049(:)*PCONC(:,16)+TPK%CF2*TPK%K053&
-&(:)*PCONC(:,33)+TPK%K054(:)*PCONC(:,17)+TPK%K058(:)*PCONC(:,19)+TPK%K060(:)*PC&
-&ONC(:,29)+TPK%K062(:)*PCONC(:,30)+TPK%K064(:)*PCONC(:,35)+TPK%K068(:)*PCONC(:,&
-&38)+TPK%K069(:)*PCONC(:,34)+TPK%K070(:)*PCONC(:,31)+0.1*TPK%K073(:)*PCONC(:,24&
-&)+TPK%K074(:)*PCONC(:,18)+TPK%K078(:)*PCONC(:,20)+0.06*TPK%K079(:)*PCONC(:,23)&
-&+TPK%CF45*TPK%K082(:)*PCONC(:,25)+0.1*TPK%K083(:)*PCONC(:,26)+TPK%K084(:)*PCON&
-&C(:,36)+TPK%K088(:)*PCONC(:,37)+0.1*TPK%K092(:)*PCONC(:,27)+TPK%K093(:)*PCONC(&
-&:,21)+TPK%K272(:)*PCONC(:,39)+TPK%K273(:)*PCONC(:,40)+TPK%K274(:)*PCONC(:,41)+&
-&TPK%K304(:)*PCONC(:,69)+TPK%K305(:)*PCONC(:,74)+TPK%K312(:)*PCONC(:,57)+TPK%K3&
-&24(:)*PCONC(:,71)
-!
-!RO2T/ETHE=+K049*<OH>+K050*<NO3>+K052*<O>
- PJAC(:,85,16)=+TPK%K049(:)*PCONC(:,15)+TPK%K050(:)*PCONC(:,8)+TPK%K052(:)*TPK%&
-&O(:)
-!
-!RO2T/OLEL=+K054*<OH>+K055*<NO3>+0.28*K056*<O3>+0.2*K057*<O>
- PJAC(:,85,17)=+TPK%K054(:)*PCONC(:,15)+TPK%K055(:)*PCONC(:,8)+0.28*TPK%K056(:)&
-&*PCONC(:,3)+0.2*TPK%K057(:)*TPK%O(:)
-!
-!RO2T/OLEH=+K074*<OH>+K075*<NO3>+0.28*K076*<O3>+0.2*K077*<O>
- PJAC(:,85,18)=+TPK%K074(:)*PCONC(:,15)+TPK%K075(:)*PCONC(:,8)+0.28*TPK%K076(:)&
-&*PCONC(:,3)+0.2*TPK%K077(:)*TPK%O(:)
-!
-!RO2T/ALKL=+K058*<OH>
- PJAC(:,85,19)=+TPK%K058(:)*PCONC(:,15)
-!
-!RO2T/ALKM=+K078*<OH>
- PJAC(:,85,20)=+TPK%K078(:)*PCONC(:,15)
-!
-!RO2T/ALKH=+K093*<OH>
- PJAC(:,85,21)=+TPK%K093(:)*PCONC(:,15)
-!
-!RO2T/AROH=0.0
-!
-!RO2T/AROL=+0.06*K079*<OH>
- PJAC(:,85,23)=+0.06*TPK%K079(:)*PCONC(:,15)
-!
-!RO2T/AROO=+0.1*K073*<OH>
- PJAC(:,85,24)=+0.1*TPK%K073(:)*PCONC(:,15)
-!
-!RO2T/ARAL=+TPK%CF45*K082*<OH>
- PJAC(:,85,25)=+TPK%CF45*TPK%K082(:)*PCONC(:,15)
-!
-!RO2T/ARAC=+0.1*K083*<OH>
- PJAC(:,85,26)=+0.1*TPK%K083(:)*PCONC(:,15)
-!
-!RO2T/PAH=+0.1*K092*<OH>
- PJAC(:,85,27)=+0.1*TPK%K092(:)*PCONC(:,15)
-!
-!RO2T/HCHO=0.0
-!
-!RO2T/ALD2=+K059+K060*<OH>+K061*<NO3>
- PJAC(:,85,29)=+TPK%K059(:)+TPK%K060(:)*PCONC(:,15)+TPK%K061(:)*PCONC(:,8)
-!
-!RO2T/KETL=+K062*<OH>+2.*K063
- PJAC(:,85,30)=+TPK%K062(:)*PCONC(:,15)+2.*TPK%K063(:)
-!
-!RO2T/KETH=+K070*<OH>+2.*K071
- PJAC(:,85,31)=+TPK%K070(:)*PCONC(:,15)+2.*TPK%K071(:)
-!
-!RO2T/MEOH=0.0
-!
-!RO2T/ETOH=+TPK%CF2*K053*<OH>
- PJAC(:,85,33)=+TPK%CF2*TPK%K053(:)*PCONC(:,15)
-!
-!RO2T/ALCH=+K069*<OH>
- PJAC(:,85,34)=+TPK%K069(:)*PCONC(:,15)
-!
-!RO2T/ISOP=+K064*<OH>+K065*<NO3>+0.366*K066*<O3>
- PJAC(:,85,35)=+TPK%K064(:)*PCONC(:,15)+TPK%K065(:)*PCONC(:,8)+0.366*TPK%K066(:&
-&)*PCONC(:,3)
-!
-!RO2T/BIOL=+K084*<OH>+K085*<NO3>+0.445*K086*<O3>
- PJAC(:,85,36)=+TPK%K084(:)*PCONC(:,15)+TPK%K085(:)*PCONC(:,8)+0.445*TPK%K086(:&
-&)*PCONC(:,3)
-!
-!RO2T/BIOH=+K088*<OH>+K089*<NO3>+0.89*K090*<O3>
- PJAC(:,85,37)=+TPK%K088(:)*PCONC(:,15)+TPK%K089(:)*PCONC(:,8)+0.89*TPK%K090(:)&
-&*PCONC(:,3)
-!
-!RO2T/MTBE=+K068*<OH>
- PJAC(:,85,38)=+TPK%K068(:)*PCONC(:,15)
-!
-!RO2T/MVK=+K272*<OH>+0.28*K281*<O3>+0.3*K283*<O>
- PJAC(:,85,39)=+TPK%K272(:)*PCONC(:,15)+0.28*TPK%K281(:)*PCONC(:,3)+0.3*TPK%K28&
-&3(:)*TPK%O(:)
-!
-!RO2T/MCR=+K273*<OH>+K275*<NO3>+0.41*K282*<O3>+0.15*K284*<O>
- PJAC(:,85,40)=+TPK%K273(:)*PCONC(:,15)+TPK%K275(:)*PCONC(:,8)+0.41*TPK%K282(:)&
-&*PCONC(:,3)+0.15*TPK%K284(:)*TPK%O(:)
-!
-!RO2T/MGLY=+K274*<OH>+K276+K278*<NO3>
- PJAC(:,85,41)=+TPK%K274(:)*PCONC(:,15)+TPK%K276(:)+TPK%K278(:)*PCONC(:,8)
-!
-!RO2T/GLY=0.0
-!
-!RO2T/ORA1=0.0
-!
-!RO2T/ORA2=0.0
-!
-!RO2T/ACID=0.0
-!
-!RO2T/UR28=0.0
-!
-!RO2T/UR21=0.0
-!
-!RO2T/URG2=0.0
-!
-!RO2T/UR26=0.0
-!
-!RO2T/RPG2=0.0
-!
-!RO2T/RP18=0.0
-!
-!RO2T/RPG3=0.0
-!
-!RO2T/URG4=0.0
-!
-!RO2T/UR8=0.0
-!
-!RO2T/UR17=0.0
-!
-!RO2T/UR7=0.0
-!
-!RO2T/RPR3=+K312*<OH>+K313*<NO3>
- PJAC(:,85,57)=+TPK%K312(:)*PCONC(:,15)+TPK%K313(:)*PCONC(:,8)
-!
-!RO2T/URG6=0.0
-!
-!RO2T/UR22=0.0
-!
-!RO2T/URG7=0.0
-!
-!RO2T/RPR4=0.0
-!
-!RO2T/RPR7=0.0
-!
-!RO2T/RPG7=0.0
-!
-!RO2T/URG8=0.0
-!
-!RO2T/UR19=0.0
-!
-!RO2T/URG9=0.0
-!
-!RO2T/AP7=0.0
-!
-!RO2T/URG10=0.0
-!
-!RO2T/RPR1=+K304*<OH>+K307*<NO3>+K308
- PJAC(:,85,69)=+TPK%K304(:)*PCONC(:,15)+TPK%K307(:)*PCONC(:,8)+TPK%K308(:)
-!
-!RO2T/RPR5=0.0
-!
-!RO2T/RPR8=+K324*<OH>+K327*<NO3>+K329+K330
- PJAC(:,85,71)=+TPK%K324(:)*PCONC(:,15)+TPK%K327(:)*PCONC(:,8)+TPK%K329(:)+TPK%&
-&K330(:)
-!
-!RO2T/RP10=0.0
-!
-!RO2T/RP11=0.0
-!
-!RO2T/RP16=+K305*<OH>+K338*<NO3>
- PJAC(:,85,74)=+TPK%K305(:)*PCONC(:,15)+TPK%K338(:)*PCONC(:,8)
-!
-!RO2T/RPRL=0.0
-!
-!RO2T/APAN=+1.0000000*K139
- PJAC(:,85,76)=+1.0000000*TPK%K139(:)
-!
-!RO2T/PAN1=+K135
- PJAC(:,85,77)=+TPK%K135(:)
-!
-!RO2T/PAN2=+K136
- PJAC(:,85,78)=+TPK%K136(:)
-!
-!RO2T/PAN3=+K137
- PJAC(:,85,79)=+TPK%K137(:)
-!
-!RO2T/PAN4=+K141
- PJAC(:,85,80)=+TPK%K141(:)
-!
-!RO2T/PAN6=+K140
- PJAC(:,85,81)=+TPK%K140(:)
-!
-!RO2T/PAN7=+K343
- PJAC(:,85,82)=+TPK%K343(:)
-!
-!RO2T/PAN8=+K317
- PJAC(:,85,83)=+TPK%K317(:)
-!
-!RO2T/PN10=+K138
- PJAC(:,85,84)=+TPK%K138(:)
-!
-!RO2T/RO2T=-K094*<HO2>-K095*<NO>+K096*<RO2T>+K096*<RO2T>-K096*<RO2T>-K096*<RO2T
-!>-K096*<RO2T>-K096*<RO2T>+K111*<RO21>-K111*<RO21>+K114*<RO22>-K114*<RO22>+K117
-!*<RO23>-K117*<RO23>+K120*<RO24>-K120*<RO24>+K123*<RO25>-K123*<RO25>+2.*K143*<R
-!O26>-K143*<RO26>+2.*K145*<RO27>-K145*<RO27>+2.*K149*<RO28>-K149*<RO28>+K151*<R
-!O29>-K151*<RO29>+K154*<RO210>-K154*<RO210>+K157*<RO211>-K157*<RO211>+K160*<RO2
-!12>-K160*<RO212>+2.*K163*<RO213>-K163*<RO213>+2.*K167*<RO239>-K167*<RO239>+2.*
-!K169*<RO214>-K169*<RO214>+K172*<RO215>-K172*<RO215>+2.*K175*<RO216>-K175*<RO21
-!6>+K178*<RO217>-K178*<RO217>+K181*<RO218>-K181*<RO218>+K184*<RO219>-K184*<RO21
-!9>+2.*K187*<RO220>-K187*<RO220>+K190*<RO221>-K190*<RO221>+K193*<RO222>-K193*<R
-!O222>+K196*<RO223>-K196*<RO223>+K199*<RO224>-K199*<RO224>+K202*<RO225>-K202*<R
-!O225>+2.*K205*<RO226>-K205*<RO226>+K208*<RO227>-K208*<RO227>+K211*<RO228>-K211
-!*<RO228>+2.*K214*<RO229>-K214*<RO229>+2.*K217*<RO240>-K217*<RO240>+2.*K219*<RO
-!230>-K219*<RO230>+K222*<RO231>-K222*<RO231>+2.*K225*<RO232>-K225*<RO232>+K228*
-!<RO241>-K228*<RO241>+K232*<RO233>-K232*<RO233>+K235*<RO242>-K235*<RO242>+K239*
-!<RO234>-K239*<RO234>+K242*<RO243>-K242*<RO243>+K246*<RO235>-K246*<RO235>+K249*
-!<RO244>-K249*<RO244>+K253*<RO236>-K253*<RO236>+K256*<RO245>-K256*<RO245>+K260*
-!<RO237>-K260*<RO237>+K263*<RO246>-K263*<RO246>+K267*<RO238>-K267*<RO238>+K270*
-!<RO247>-K270*<RO247>+2.*K280*<RO248>-K280*<RO248>+K286*<RO249>-K286*<RO249>+2.
-!*K290*<RO250>-K290*<RO250>-K293*<RO251>-K296*<RO252>+K299*<RO253>-K299*<RO253>
-!+K302*<RO254>-K302*<RO254>+2.*K311*<RO255>-K311*<RO255>+K319*<RO256>-K319*<RO2
-!56>+2.*K333*<RO257>-K333*<RO257>+K342*<RO258>-K342*<RO258>
- PJAC(:,85,85)=-TPK%K094(:)*PCONC(:,10)-TPK%K095(:)*PCONC(:,1)+TPK%K096(:)*PCON&
-&C(:,85)+TPK%K096(:)*PCONC(:,85)-TPK%K096(:)*PCONC(:,85)-TPK%K096(:)*PCONC(:,85&
-&)-TPK%K096(:)*PCONC(:,85)-TPK%K096(:)*PCONC(:,85)+TPK%K111(:)*PCONC(:,86)-TPK%&
-&K111(:)*PCONC(:,86)+TPK%K114(:)*TPK%RO22(:)-TPK%K114(:)*TPK%RO22(:)+TPK%K117(:&
-&)*TPK%RO23(:)-TPK%K117(:)*TPK%RO23(:)+TPK%K120(:)*TPK%RO24(:)-TPK%K120(:)*TPK%&
-&RO24(:)+TPK%K123(:)*PCONC(:,87)-TPK%K123(:)*PCONC(:,87)+2.*TPK%K143(:)*TPK%RO2&
-&6(:)-TPK%K143(:)*TPK%RO26(:)+2.*TPK%K145(:)*TPK%RO27(:)-TPK%K145(:)*TPK%RO27(:&
-&)+2.*TPK%K149(:)*TPK%RO28(:)-TPK%K149(:)*TPK%RO28(:)+TPK%K151(:)*TPK%RO29(:)-T&
-&PK%K151(:)*TPK%RO29(:)+TPK%K154(:)*TPK%RO210(:)-TPK%K154(:)*TPK%RO210(:)+TPK%K&
-&157(:)*TPK%RO211(:)-TPK%K157(:)*TPK%RO211(:)+TPK%K160(:)*TPK%RO212(:)-TPK%K160&
-&(:)*TPK%RO212(:)+2.*TPK%K163(:)*TPK%RO213(:)-TPK%K163(:)*TPK%RO213(:)+2.*TPK%K&
-&167(:)*TPK%RO239(:)-TPK%K167(:)*TPK%RO239(:)+2.*TPK%K169(:)*TPK%RO214(:)-TPK%K&
-&169(:)*TPK%RO214(:)+TPK%K172(:)*TPK%RO215(:)-TPK%K172(:)*TPK%RO215(:)+2.*TPK%K&
-&175(:)*TPK%RO216(:)-TPK%K175(:)*TPK%RO216(:)+TPK%K178(:)*TPK%RO217(:)-TPK%K178&
-&(:)*TPK%RO217(:)+TPK%K181(:)*TPK%RO218(:)-TPK%K181(:)*TPK%RO218(:)+TPK%K184(:)&
-&*TPK%RO219(:)-TPK%K184(:)*TPK%RO219(:)+2.*TPK%K187(:)*TPK%RO220(:)-TPK%K187(:)&
-&*TPK%RO220(:)+TPK%K190(:)*TPK%RO221(:)-TPK%K190(:)*TPK%RO221(:)+TPK%K193(:)*TP&
-&K%RO222(:)-TPK%K193(:)*TPK%RO222(:)+TPK%K196(:)*TPK%RO223(:)-TPK%K196(:)*TPK%R&
-&O223(:)+TPK%K199(:)*TPK%RO224(:)-TPK%K199(:)*TPK%RO224(:)+TPK%K202(:)*TPK%RO22&
-&5(:)-TPK%K202(:)*TPK%RO225(:)+2.*TPK%K205(:)*TPK%RO226(:)-TPK%K205(:)*TPK%RO22&
-&6(:)+TPK%K208(:)*TPK%RO227(:)-TPK%K208(:)*TPK%RO227(:)+TPK%K211(:)*TPK%RO228(:&
-&)-TPK%K211(:)*TPK%RO228(:)+2.*TPK%K214(:)*TPK%RO229(:)-TPK%K214(:)*TPK%RO229(:&
-&)+2.*TPK%K217(:)*TPK%RO240(:)-TPK%K217(:)*TPK%RO240(:)+2.*TPK%K219(:)*TPK%RO23&
-&0(:)-TPK%K219(:)*TPK%RO230(:)+TPK%K222(:)*TPK%RO231(:)-TPK%K222(:)*TPK%RO231(:&
-&)+2.*TPK%K225(:)*TPK%RO232(:)-TPK%K225(:)*TPK%RO232(:)+TPK%K228(:)*TPK%RO241(:&
-&)-TPK%K228(:)*TPK%RO241(:)+TPK%K232(:)*TPK%RO233(:)-TPK%K232(:)*TPK%RO233(:)+T&
-&PK%K235(:)*TPK%RO242(:)-TPK%K235(:)*TPK%RO242(:)+TPK%K239(:)*TPK%RO234(:)-TPK%&
-&K239(:)*TPK%RO234(:)+TPK%K242(:)*TPK%RO243(:)-TPK%K242(:)*TPK%RO243(:)+TPK%K24&
-&6(:)*TPK%RO235(:)-TPK%K246(:)*TPK%RO235(:)+TPK%K249(:)*TPK%RO244(:)-TPK%K249(:&
-&)*TPK%RO244(:)+TPK%K253(:)*TPK%RO236(:)-TPK%K253(:)*TPK%RO236(:)+TPK%K256(:)*T&
-&PK%RO245(:)-TPK%K256(:)*TPK%RO245(:)+TPK%K260(:)*TPK%RO237(:)-TPK%K260(:)*TPK%&
-&RO237(:)+TPK%K263(:)*TPK%RO246(:)-TPK%K263(:)*TPK%RO246(:)+TPK%K267(:)*TPK%RO2&
-&38(:)-TPK%K267(:)*TPK%RO238(:)+TPK%K270(:)*TPK%RO247(:)-TPK%K270(:)*TPK%RO247(&
-&:)+2.*TPK%K280(:)*TPK%RO248(:)-TPK%K280(:)*TPK%RO248(:)+TPK%K286(:)*TPK%RO249(&
-&:)-TPK%K286(:)*TPK%RO249(:)+2.*TPK%K290(:)*TPK%RO250(:)-TPK%K290(:)*TPK%RO250(&
-&:)-TPK%K293(:)*TPK%RO251(:)-TPK%K296(:)*TPK%RO252(:)+TPK%K299(:)*TPK%RO253(:)-&
-&TPK%K299(:)*TPK%RO253(:)+TPK%K302(:)*TPK%RO254(:)-TPK%K302(:)*TPK%RO254(:)+2.*&
-&TPK%K311(:)*TPK%RO255(:)-TPK%K311(:)*TPK%RO255(:)+TPK%K319(:)*TPK%RO256(:)-TPK&
-&%K319(:)*TPK%RO256(:)+2.*TPK%K333(:)*TPK%RO257(:)-TPK%K333(:)*TPK%RO257(:)+TPK&
-&%K342(:)*TPK%RO258(:)-TPK%K342(:)*TPK%RO258(:)
-!
-!RO2T/RO21=+K111*<RO2T>-K111*<RO2T>
- PJAC(:,85,86)=+TPK%K111(:)*PCONC(:,85)-TPK%K111(:)*PCONC(:,85)
-!
-!RO2T/RO25=+K123*<RO2T>-K123*<RO2T>
- PJAC(:,85,87)=+TPK%K123(:)*PCONC(:,85)-TPK%K123(:)*PCONC(:,85)
-!
-!RO2T/WC_O3=0.0
-!
-!RO2T/WC_H2O2=0.0
-!
-!RO2T/WC_NO=0.0
-!
-!RO2T/WC_NO2=0.0
-!
-!RO2T/WC_NO3=0.0
-!
-!RO2T/WC_N2O5=0.0
-!
-!RO2T/WC_HONO=0.0
-!
-!RO2T/WC_HNO3=0.0
-!
-!RO2T/WC_HNO4=0.0
-!
-!RO2T/WC_NH3=0.0
-!
-!RO2T/WC_OH=0.0
-!
-!RO2T/WC_HO2=0.0
-!
-!RO2T/WC_CO2=0.0
-!
-!RO2T/WC_SO2=0.0
-!
-!RO2T/WC_H2SO4=0.0
-!
-!RO2T/WC_RO21=0.0
-!
-!RO2T/WC_RO25=0.0
-!
-!RO2T/WC_MEOH=0.0
-!
-!RO2T/WC_ETOH=0.0
-!
-!RO2T/WC_ALCH=0.0
-!
-!RO2T/WC_HCHO=0.0
-!
-!RO2T/WC_ALD2=0.0
-!
-!RO2T/WC_GLY=0.0
-!
-!RO2T/WC_MGLY=0.0
-!
-!RO2T/WC_KETL=0.0
-!
-!RO2T/WC_ORA1=0.0
-!
-!RO2T/WC_ORA2=0.0
-!
-!RO2T/WC_ACID=0.0
-!
-!RO2T/WC_RP16=0.0
-!
-!RO2T/WC_UR21=0.0
-!
-!RO2T/WC_UR28=0.0
-!
-!RO2T/WC_ACID2=0.0
-!
-!RO2T/WC_ASO3=0.0
-!
-!RO2T/WC_ASO4=0.0
-!
-!RO2T/WC_ASO5=0.0
-!
-!RO2T/WC_AHSO5=0.0
-!
-!RO2T/WC_AHMS=0.0
-!
-!RO2T/WR_O3=0.0
-!
-!RO2T/WR_H2O2=0.0
-!
-!RO2T/WR_NO=0.0
-!
-!RO2T/WR_NO2=0.0
-!
-!RO2T/WR_NO3=0.0
-!
-!RO2T/WR_N2O5=0.0
-!
-!RO2T/WR_HONO=0.0
-!
-!RO2T/WR_HNO3=0.0
-!
-!RO2T/WR_HNO4=0.0
-!
-!RO2T/WR_NH3=0.0
-!
-!RO2T/WR_OH=0.0
-!
-!RO2T/WR_HO2=0.0
-!
-!RO2T/WR_CO2=0.0
-!
-!RO2T/WR_SO2=0.0
-!
-!RO2T/WR_H2SO4=0.0
-!
-!RO2T/WR_RO21=0.0
-!
-!RO2T/WR_RO25=0.0
-!
-!RO2T/WR_MEOH=0.0
-!
-!RO2T/WR_ETOH=0.0
-!
-!RO2T/WR_ALCH=0.0
-!
-!RO2T/WR_HCHO=0.0
-!
-!RO2T/WR_ALD2=0.0
-!
-!RO2T/WR_GLY=0.0
-!
-!RO2T/WR_MGLY=0.0
-!
-!RO2T/WR_KETL=0.0
-!
-!RO2T/WR_ORA1=0.0
-!
-!RO2T/WR_ORA2=0.0
-!
-!RO2T/WR_ACID=0.0
-!
-!RO2T/WR_RP16=0.0
-!
-!RO2T/WR_UR21=0.0
-!
-!RO2T/WR_UR28=0.0
-!
-!RO2T/WR_ACID2=0.0
-!
-!RO2T/WR_ASO3=0.0
-!
-!RO2T/WR_ASO4=0.0
-!
-!RO2T/WR_ASO5=0.0
-!
-!RO2T/WR_AHSO5=0.0
-!
-!RO2T/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ16
-!
-SUBROUTINE SUBJ17
-!
-!Indices 86 a 90
-!
-!
-!RO21/NO=-K110*<RO21>+K147*<RO28>
- PJAC(:,86,1)=-TPK%K110(:)*PCONC(:,86)+TPK%K147(:)*TPK%RO28(:)
-!
-!RO21/NO2=0.0
-!
-!RO21/O3=0.0
-!
-!RO21/HONO=0.0
-!
-!RO21/HNO3=0.0
-!
-!RO21/HNO4=0.0
-!
-!RO21/N2O5=0.0
-!
-!RO21/NO3=0.0
-!
-!RO21/NH3=0.0
-!
-!RO21/HO2=-K112*<RO21>
- PJAC(:,86,10)=-TPK%K112(:)*PCONC(:,86)
-!
-!RO21/CO=0.0
-!
-!RO21/H2O2=0.0
-!
-!RO21/SO2=0.0
-!
-!RO21/H2SO4=0.0
-!
-!RO21/OH=+K043*<CH4>
- PJAC(:,86,15)=+TPK%K043(:)*TPK%CH4(:)
-!
-!RO21/ETHE=+0.6*K052*<O>
- PJAC(:,86,16)=+0.6*TPK%K052(:)*TPK%O(:)
-!
-!RO21/OLEL=0.0
-!
-!RO21/OLEH=0.0
-!
-!RO21/ALKL=0.0
-!
-!RO21/ALKM=0.0
-!
-!RO21/ALKH=0.0
-!
-!RO21/AROH=0.0
-!
-!RO21/AROL=0.0
-!
-!RO21/AROO=0.0
-!
-!RO21/ARAL=0.0
-!
-!RO21/ARAC=0.0
-!
-!RO21/PAH=0.0
-!
-!RO21/HCHO=0.0
-!
-!RO21/ALD2=0.0
-!
-!RO21/KETL=0.0
-!
-!RO21/KETH=0.0
-!
-!RO21/MEOH=0.0
-!
-!RO21/ETOH=0.0
-!
-!RO21/ALCH=0.0
-!
-!RO21/ISOP=0.0
-!
-!RO21/BIOL=0.0
-!
-!RO21/BIOH=0.0
-!
-!RO21/MTBE=0.0
-!
-!RO21/MVK=0.0
-!
-!RO21/MCR=0.0
-!
-!RO21/MGLY=0.0
-!
-!RO21/GLY=0.0
-!
-!RO21/ORA1=0.0
-!
-!RO21/ORA2=0.0
-!
-!RO21/ACID=0.0
-!
-!RO21/UR28=0.0
-!
-!RO21/UR21=0.0
-!
-!RO21/URG2=0.0
-!
-!RO21/UR26=0.0
-!
-!RO21/RPG2=0.0
-!
-!RO21/RP18=0.0
-!
-!RO21/RPG3=0.0
-!
-!RO21/URG4=0.0
-!
-!RO21/UR8=0.0
-!
-!RO21/UR17=0.0
-!
-!RO21/UR7=0.0
-!
-!RO21/RPR3=0.0
-!
-!RO21/URG6=0.0
-!
-!RO21/UR22=0.0
-!
-!RO21/URG7=0.0
-!
-!RO21/RPR4=0.0
-!
-!RO21/RPR7=0.0
-!
-!RO21/RPG7=0.0
-!
-!RO21/URG8=0.0
-!
-!RO21/UR19=0.0
-!
-!RO21/URG9=0.0
-!
-!RO21/AP7=0.0
-!
-!RO21/URG10=0.0
-!
-!RO21/RPR1=0.0
-!
-!RO21/RPR5=0.0
-!
-!RO21/RPR8=0.0
-!
-!RO21/RP10=0.0
-!
-!RO21/RP11=0.0
-!
-!RO21/RP16=0.0
-!
-!RO21/RPRL=0.0
-!
-!RO21/APAN=0.0
-!
-!RO21/PAN1=0.0
-!
-!RO21/PAN2=0.0
-!
-!RO21/PAN3=0.0
-!
-!RO21/PAN4=0.0
-!
-!RO21/PAN6=0.0
-!
-!RO21/PAN7=0.0
-!
-!RO21/PAN8=0.0
-!
-!RO21/PN10=0.0
-!
-!RO21/RO2T=-K111*<RO21>+K149*<RO28>
- PJAC(:,86,85)=-TPK%K111(:)*PCONC(:,86)+TPK%K149(:)*TPK%RO28(:)
-!
-!RO21/RO21=-K110*<NO>-K111*<RO2T>-K112*<HO2>-KTC16-KTR16
- PJAC(:,86,86)=-TPK%K110(:)*PCONC(:,1)-TPK%K111(:)*PCONC(:,85)-TPK%K112(:)*PCON&
-&C(:,10)-TPK%KTC16(:)-TPK%KTR16(:)
-!
-!RO21/RO25=0.0
-!
-!RO21/WC_O3=0.0
-!
-!RO21/WC_H2O2=0.0
-!
-!RO21/WC_NO=0.0
-!
-!RO21/WC_NO2=0.0
-!
-!RO21/WC_NO3=0.0
-!
-!RO21/WC_N2O5=0.0
-!
-!RO21/WC_HONO=0.0
-!
-!RO21/WC_HNO3=0.0
-!
-!RO21/WC_HNO4=0.0
-!
-!RO21/WC_NH3=0.0
-!
-!RO21/WC_OH=0.0
-!
-!RO21/WC_HO2=0.0
-!
-!RO21/WC_CO2=0.0
-!
-!RO21/WC_SO2=0.0
-!
-!RO21/WC_H2SO4=0.0
-!
-!RO21/WC_RO21=+KTC47
- PJAC(:,86,103)=+TPK%KTC47(:)
-!
-!RO21/WC_RO25=0.0
-!
-!RO21/WC_MEOH=0.0
-!
-!RO21/WC_ETOH=0.0
-!
-!RO21/WC_ALCH=0.0
-!
-!RO21/WC_HCHO=0.0
-!
-!RO21/WC_ALD2=0.0
-!
-!RO21/WC_GLY=0.0
-!
-!RO21/WC_MGLY=0.0
-!
-!RO21/WC_KETL=0.0
-!
-!RO21/WC_ORA1=0.0
-!
-!RO21/WC_ORA2=0.0
-!
-!RO21/WC_ACID=0.0
-!
-!RO21/WC_RP16=0.0
-!
-!RO21/WC_UR21=0.0
-!
-!RO21/WC_UR28=0.0
-!
-!RO21/WC_ACID2=0.0
-!
-!RO21/WC_ASO3=0.0
-!
-!RO21/WC_ASO4=0.0
-!
-!RO21/WC_ASO5=0.0
-!
-!RO21/WC_AHSO5=0.0
-!
-!RO21/WC_AHMS=0.0
-!
-!RO21/WR_O3=0.0
-!
-!RO21/WR_H2O2=0.0
-!
-!RO21/WR_NO=0.0
-!
-!RO21/WR_NO2=0.0
-!
-!RO21/WR_NO3=0.0
-!
-!RO21/WR_N2O5=0.0
-!
-!RO21/WR_HONO=0.0
-!
-!RO21/WR_HNO3=0.0
-!
-!RO21/WR_HNO4=0.0
-!
-!RO21/WR_NH3=0.0
-!
-!RO21/WR_OH=0.0
-!
-!RO21/WR_HO2=0.0
-!
-!RO21/WR_CO2=0.0
-!
-!RO21/WR_SO2=0.0
-!
-!RO21/WR_H2SO4=0.0
-!
-!RO21/WR_RO21=+KTR47
- PJAC(:,86,140)=+TPK%KTR47(:)
-!
-!RO21/WR_RO25=0.0
-!
-!RO21/WR_MEOH=0.0
-!
-!RO21/WR_ETOH=0.0
-!
-!RO21/WR_ALCH=0.0
-!
-!RO21/WR_HCHO=0.0
-!
-!RO21/WR_ALD2=0.0
-!
-!RO21/WR_GLY=0.0
-!
-!RO21/WR_MGLY=0.0
-!
-!RO21/WR_KETL=0.0
-!
-!RO21/WR_ORA1=0.0
-!
-!RO21/WR_ORA2=0.0
-!
-!RO21/WR_ACID=0.0
-!
-!RO21/WR_RP16=0.0
-!
-!RO21/WR_UR21=0.0
-!
-!RO21/WR_UR28=0.0
-!
-!RO21/WR_ACID2=0.0
-!
-!RO21/WR_ASO3=0.0
-!
-!RO21/WR_ASO4=0.0
-!
-!RO21/WR_ASO5=0.0
-!
-!RO21/WR_AHSO5=0.0
-!
-!RO21/WR_AHMS=0.0
-!
-!RO25/NO=-K122*<RO25>+K125*<RO26>
- PJAC(:,87,1)=-TPK%K122(:)*PCONC(:,87)+TPK%K125(:)*TPK%RO26(:)
-!
-!RO25/NO2=0.0
-!
-!RO25/O3=+0.28*K056*<OLEL>
- PJAC(:,87,3)=+0.28*TPK%K056(:)*PCONC(:,17)
-!
-!RO25/HONO=0.0
-!
-!RO25/HNO3=0.0
-!
-!RO25/HNO4=0.0
-!
-!RO25/N2O5=0.0
-!
-!RO25/NO3=0.0
-!
-!RO25/NH3=0.0
-!
-!RO25/HO2=-K124*<RO25>
- PJAC(:,87,10)=-TPK%K124(:)*PCONC(:,87)
-!
-!RO25/CO=0.0
-!
-!RO25/H2O2=0.0
-!
-!RO25/SO2=0.0
-!
-!RO25/H2SO4=0.0
-!
-!RO25/OH=+K058*<ALKL>
- PJAC(:,87,15)=+TPK%K058(:)*PCONC(:,19)
-!
-!RO25/ETHE=0.0
-!
-!RO25/OLEL=+0.28*K056*<O3>+0.1*K057*<O>
- PJAC(:,87,17)=+0.28*TPK%K056(:)*PCONC(:,3)+0.1*TPK%K057(:)*TPK%O(:)
-!
-!RO25/OLEH=0.0
-!
-!RO25/ALKL=+K058*<OH>
- PJAC(:,87,19)=+TPK%K058(:)*PCONC(:,15)
-!
-!RO25/ALKM=0.0
-!
-!RO25/ALKH=0.0
-!
-!RO25/AROH=0.0
-!
-!RO25/AROL=0.0
-!
-!RO25/AROO=0.0
-!
-!RO25/ARAL=0.0
-!
-!RO25/ARAC=0.0
-!
-!RO25/PAH=0.0
-!
-!RO25/HCHO=0.0
-!
-!RO25/ALD2=+K059
- PJAC(:,87,29)=+TPK%K059(:)
-!
-!RO25/KETL=+K063
- PJAC(:,87,30)=+TPK%K063(:)
-!
-!RO25/KETH=+K071
- PJAC(:,87,31)=+TPK%K071(:)
-!
-!RO25/MEOH=0.0
-!
-!RO25/ETOH=0.0
-!
-!RO25/ALCH=0.0
-!
-!RO25/ISOP=0.0
-!
-!RO25/BIOL=0.0
-!
-!RO25/BIOH=0.0
-!
-!RO25/MTBE=0.0
-!
-!RO25/MVK=0.0
-!
-!RO25/MCR=0.0
-!
-!RO25/MGLY=0.0
-!
-!RO25/GLY=0.0
-!
-!RO25/ORA1=0.0
-!
-!RO25/ORA2=0.0
-!
-!RO25/ACID=0.0
-!
-!RO25/UR28=0.0
-!
-!RO25/UR21=0.0
-!
-!RO25/URG2=0.0
-!
-!RO25/UR26=0.0
-!
-!RO25/RPG2=0.0
-!
-!RO25/RP18=0.0
-!
-!RO25/RPG3=0.0
-!
-!RO25/URG4=0.0
-!
-!RO25/UR8=0.0
-!
-!RO25/UR17=0.0
-!
-!RO25/UR7=0.0
-!
-!RO25/RPR3=0.0
-!
-!RO25/URG6=0.0
-!
-!RO25/UR22=0.0
-!
-!RO25/URG7=0.0
-!
-!RO25/RPR4=0.0
-!
-!RO25/RPR7=0.0
-!
-!RO25/RPG7=0.0
-!
-!RO25/URG8=0.0
-!
-!RO25/UR19=0.0
-!
-!RO25/URG9=0.0
-!
-!RO25/AP7=0.0
-!
-!RO25/URG10=0.0
-!
-!RO25/RPR1=0.0
-!
-!RO25/RPR5=0.0
-!
-!RO25/RPR8=0.0
-!
-!RO25/RP10=0.0
-!
-!RO25/RP11=0.0
-!
-!RO25/RP16=0.0
-!
-!RO25/RPRL=0.0
-!
-!RO25/APAN=0.0
-!
-!RO25/PAN1=0.0
-!
-!RO25/PAN2=0.0
-!
-!RO25/PAN3=0.0
-!
-!RO25/PAN4=0.0
-!
-!RO25/PAN6=0.0
-!
-!RO25/PAN7=0.0
-!
-!RO25/PAN8=0.0
-!
-!RO25/PN10=0.0
-!
-!RO25/RO2T=-K123*<RO25>+K143*<RO26>
- PJAC(:,87,85)=-TPK%K123(:)*PCONC(:,87)+TPK%K143(:)*TPK%RO26(:)
-!
-!RO25/RO21=0.0
-!
-!RO25/RO25=-K122*<NO>-K123*<RO2T>-K124*<HO2>-KTC17-KTR17
- PJAC(:,87,87)=-TPK%K122(:)*PCONC(:,1)-TPK%K123(:)*PCONC(:,85)-TPK%K124(:)*PCON&
-&C(:,10)-TPK%KTC17(:)-TPK%KTR17(:)
-!
-!RO25/WC_O3=0.0
-!
-!RO25/WC_H2O2=0.0
-!
-!RO25/WC_NO=0.0
-!
-!RO25/WC_NO2=0.0
-!
-!RO25/WC_NO3=0.0
-!
-!RO25/WC_N2O5=0.0
-!
-!RO25/WC_HONO=0.0
-!
-!RO25/WC_HNO3=0.0
-!
-!RO25/WC_HNO4=0.0
-!
-!RO25/WC_NH3=0.0
-!
-!RO25/WC_OH=0.0
-!
-!RO25/WC_HO2=0.0
-!
-!RO25/WC_CO2=0.0
-!
-!RO25/WC_SO2=0.0
-!
-!RO25/WC_H2SO4=0.0
-!
-!RO25/WC_RO21=0.0
-!
-!RO25/WC_RO25=+KTC48
- PJAC(:,87,104)=+TPK%KTC48(:)
-!
-!RO25/WC_MEOH=0.0
-!
-!RO25/WC_ETOH=0.0
-!
-!RO25/WC_ALCH=0.0
-!
-!RO25/WC_HCHO=0.0
-!
-!RO25/WC_ALD2=0.0
-!
-!RO25/WC_GLY=0.0
-!
-!RO25/WC_MGLY=0.0
-!
-!RO25/WC_KETL=0.0
-!
-!RO25/WC_ORA1=0.0
-!
-!RO25/WC_ORA2=0.0
-!
-!RO25/WC_ACID=0.0
-!
-!RO25/WC_RP16=0.0
-!
-!RO25/WC_UR21=0.0
-!
-!RO25/WC_UR28=0.0
-!
-!RO25/WC_ACID2=0.0
-!
-!RO25/WC_ASO3=0.0
-!
-!RO25/WC_ASO4=0.0
-!
-!RO25/WC_ASO5=0.0
-!
-!RO25/WC_AHSO5=0.0
-!
-!RO25/WC_AHMS=0.0
-!
-!RO25/WR_O3=0.0
-!
-!RO25/WR_H2O2=0.0
-!
-!RO25/WR_NO=0.0
-!
-!RO25/WR_NO2=0.0
-!
-!RO25/WR_NO3=0.0
-!
-!RO25/WR_N2O5=0.0
-!
-!RO25/WR_HONO=0.0
-!
-!RO25/WR_HNO3=0.0
-!
-!RO25/WR_HNO4=0.0
-!
-!RO25/WR_NH3=0.0
-!
-!RO25/WR_OH=0.0
-!
-!RO25/WR_HO2=0.0
-!
-!RO25/WR_CO2=0.0
-!
-!RO25/WR_SO2=0.0
-!
-!RO25/WR_H2SO4=0.0
-!
-!RO25/WR_RO21=0.0
-!
-!RO25/WR_RO25=+KTR48
- PJAC(:,87,141)=+TPK%KTR48(:)
-!
-!RO25/WR_MEOH=0.0
-!
-!RO25/WR_ETOH=0.0
-!
-!RO25/WR_ALCH=0.0
-!
-!RO25/WR_HCHO=0.0
-!
-!RO25/WR_ALD2=0.0
-!
-!RO25/WR_GLY=0.0
-!
-!RO25/WR_MGLY=0.0
-!
-!RO25/WR_KETL=0.0
-!
-!RO25/WR_ORA1=0.0
-!
-!RO25/WR_ORA2=0.0
-!
-!RO25/WR_ACID=0.0
-!
-!RO25/WR_RP16=0.0
-!
-!RO25/WR_UR21=0.0
-!
-!RO25/WR_UR28=0.0
-!
-!RO25/WR_ACID2=0.0
-!
-!RO25/WR_ASO3=0.0
-!
-!RO25/WR_ASO4=0.0
-!
-!RO25/WR_ASO5=0.0
-!
-!RO25/WR_AHSO5=0.0
-!
-!RO25/WR_AHMS=0.0
-!
-!WC_O3/NO=0.0
-!
-!WC_O3/NO2=0.0
-!
-!WC_O3/O3=+KTC1
- PJAC(:,88,3)=+TPK%KTC1(:)
-!
-!WC_O3/HONO=0.0
-!
-!WC_O3/HNO3=0.0
-!
-!WC_O3/HNO4=0.0
-!
-!WC_O3/N2O5=0.0
-!
-!WC_O3/NO3=0.0
-!
-!WC_O3/NH3=0.0
-!
-!WC_O3/HO2=0.0
-!
-!WC_O3/CO=0.0
-!
-!WC_O3/H2O2=0.0
-!
-!WC_O3/SO2=0.0
-!
-!WC_O3/H2SO4=0.0
-!
-!WC_O3/OH=0.0
-!
-!WC_O3/ETHE=0.0
-!
-!WC_O3/OLEL=0.0
-!
-!WC_O3/OLEH=0.0
-!
-!WC_O3/ALKL=0.0
-!
-!WC_O3/ALKM=0.0
-!
-!WC_O3/ALKH=0.0
-!
-!WC_O3/AROH=0.0
-!
-!WC_O3/AROL=0.0
-!
-!WC_O3/AROO=0.0
-!
-!WC_O3/ARAL=0.0
-!
-!WC_O3/ARAC=0.0
-!
-!WC_O3/PAH=0.0
-!
-!WC_O3/HCHO=0.0
-!
-!WC_O3/ALD2=0.0
-!
-!WC_O3/KETL=0.0
-!
-!WC_O3/KETH=0.0
-!
-!WC_O3/MEOH=0.0
-!
-!WC_O3/ETOH=0.0
-!
-!WC_O3/ALCH=0.0
-!
-!WC_O3/ISOP=0.0
-!
-!WC_O3/BIOL=0.0
-!
-!WC_O3/BIOH=0.0
-!
-!WC_O3/MTBE=0.0
-!
-!WC_O3/MVK=0.0
-!
-!WC_O3/MCR=0.0
-!
-!WC_O3/MGLY=0.0
-!
-!WC_O3/GLY=0.0
-!
-!WC_O3/ORA1=0.0
-!
-!WC_O3/ORA2=0.0
-!
-!WC_O3/ACID=0.0
-!
-!WC_O3/UR28=0.0
-!
-!WC_O3/UR21=0.0
-!
-!WC_O3/URG2=0.0
-!
-!WC_O3/UR26=0.0
-!
-!WC_O3/RPG2=0.0
-!
-!WC_O3/RP18=0.0
-!
-!WC_O3/RPG3=0.0
-!
-!WC_O3/URG4=0.0
-!
-!WC_O3/UR8=0.0
-!
-!WC_O3/UR17=0.0
-!
-!WC_O3/UR7=0.0
-!
-!WC_O3/RPR3=0.0
-!
-!WC_O3/URG6=0.0
-!
-!WC_O3/UR22=0.0
-!
-!WC_O3/URG7=0.0
-!
-!WC_O3/RPR4=0.0
-!
-!WC_O3/RPR7=0.0
-!
-!WC_O3/RPG7=0.0
-!
-!WC_O3/URG8=0.0
-!
-!WC_O3/UR19=0.0
-!
-!WC_O3/URG9=0.0
-!
-!WC_O3/AP7=0.0
-!
-!WC_O3/URG10=0.0
-!
-!WC_O3/RPR1=0.0
-!
-!WC_O3/RPR5=0.0
-!
-!WC_O3/RPR8=0.0
-!
-!WC_O3/RP10=0.0
-!
-!WC_O3/RP11=0.0
-!
-!WC_O3/RP16=0.0
-!
-!WC_O3/RPRL=0.0
-!
-!WC_O3/APAN=0.0
-!
-!WC_O3/PAN1=0.0
-!
-!WC_O3/PAN2=0.0
-!
-!WC_O3/PAN3=0.0
-!
-!WC_O3/PAN4=0.0
-!
-!WC_O3/PAN6=0.0
-!
-!WC_O3/PAN7=0.0
-!
-!WC_O3/PAN8=0.0
-!
-!WC_O3/PN10=0.0
-!
-!WC_O3/RO2T=0.0
-!
-!WC_O3/RO21=0.0
-!
-!WC_O3/RO25=0.0
-!
-!WC_O3/WC_O3=-KTC32-KC6*<WC_HO2>-KC25*<WC_SO2>
- PJAC(:,88,88)=-TPK%KTC32(:)-TPK%KC6(:)*PCONC(:,99)-TPK%KC25(:)*PCONC(:,101)
-!
-!WC_O3/WC_H2O2=0.0
-!
-!WC_O3/WC_NO=0.0
-!
-!WC_O3/WC_NO2=0.0
-!
-!WC_O3/WC_NO3=0.0
-!
-!WC_O3/WC_N2O5=0.0
-!
-!WC_O3/WC_HONO=0.0
-!
-!WC_O3/WC_HNO3=0.0
-!
-!WC_O3/WC_HNO4=0.0
-!
-!WC_O3/WC_NH3=0.0
-!
-!WC_O3/WC_OH=0.0
-!
-!WC_O3/WC_HO2=-KC6*<WC_O3>
- PJAC(:,88,99)=-TPK%KC6(:)*PCONC(:,88)
-!
-!WC_O3/WC_CO2=0.0
-!
-!WC_O3/WC_SO2=-KC25*<WC_O3>
- PJAC(:,88,101)=-TPK%KC25(:)*PCONC(:,88)
-!
-!WC_O3/WC_H2SO4=0.0
-!
-!WC_O3/WC_RO21=0.0
-!
-!WC_O3/WC_RO25=0.0
-!
-!WC_O3/WC_MEOH=0.0
-!
-!WC_O3/WC_ETOH=0.0
-!
-!WC_O3/WC_ALCH=0.0
-!
-!WC_O3/WC_HCHO=0.0
-!
-!WC_O3/WC_ALD2=0.0
-!
-!WC_O3/WC_GLY=0.0
-!
-!WC_O3/WC_MGLY=0.0
-!
-!WC_O3/WC_KETL=0.0
-!
-!WC_O3/WC_ORA1=0.0
-!
-!WC_O3/WC_ORA2=0.0
-!
-!WC_O3/WC_ACID=0.0
-!
-!WC_O3/WC_RP16=0.0
-!
-!WC_O3/WC_UR21=0.0
-!
-!WC_O3/WC_UR28=0.0
-!
-!WC_O3/WC_ACID2=0.0
-!
-!WC_O3/WC_ASO3=0.0
-!
-!WC_O3/WC_ASO4=0.0
-!
-!WC_O3/WC_ASO5=0.0
-!
-!WC_O3/WC_AHSO5=0.0
-!
-!WC_O3/WC_AHMS=0.0
-!
-!WC_O3/WR_O3=0.0
-!
-!WC_O3/WR_H2O2=0.0
-!
-!WC_O3/WR_NO=0.0
-!
-!WC_O3/WR_NO2=0.0
-!
-!WC_O3/WR_NO3=0.0
-!
-!WC_O3/WR_N2O5=0.0
-!
-!WC_O3/WR_HONO=0.0
-!
-!WC_O3/WR_HNO3=0.0
-!
-!WC_O3/WR_HNO4=0.0
-!
-!WC_O3/WR_NH3=0.0
-!
-!WC_O3/WR_OH=0.0
-!
-!WC_O3/WR_HO2=0.0
-!
-!WC_O3/WR_CO2=0.0
-!
-!WC_O3/WR_SO2=0.0
-!
-!WC_O3/WR_H2SO4=0.0
-!
-!WC_O3/WR_RO21=0.0
-!
-!WC_O3/WR_RO25=0.0
-!
-!WC_O3/WR_MEOH=0.0
-!
-!WC_O3/WR_ETOH=0.0
-!
-!WC_O3/WR_ALCH=0.0
-!
-!WC_O3/WR_HCHO=0.0
-!
-!WC_O3/WR_ALD2=0.0
-!
-!WC_O3/WR_GLY=0.0
-!
-!WC_O3/WR_MGLY=0.0
-!
-!WC_O3/WR_KETL=0.0
-!
-!WC_O3/WR_ORA1=0.0
-!
-!WC_O3/WR_ORA2=0.0
-!
-!WC_O3/WR_ACID=0.0
-!
-!WC_O3/WR_RP16=0.0
-!
-!WC_O3/WR_UR21=0.0
-!
-!WC_O3/WR_UR28=0.0
-!
-!WC_O3/WR_ACID2=0.0
-!
-!WC_O3/WR_ASO3=0.0
-!
-!WC_O3/WR_ASO4=0.0
-!
-!WC_O3/WR_ASO5=0.0
-!
-!WC_O3/WR_AHSO5=0.0
-!
-!WC_O3/WR_AHMS=0.0
-!
-!WC_H2O2/NO=0.0
-!
-!WC_H2O2/NO2=0.0
-!
-!WC_H2O2/O3=0.0
-!
-!WC_H2O2/HONO=0.0
-!
-!WC_H2O2/HNO3=0.0
-!
-!WC_H2O2/HNO4=0.0
-!
-!WC_H2O2/N2O5=0.0
-!
-!WC_H2O2/NO3=0.0
-!
-!WC_H2O2/NH3=0.0
-!
-!WC_H2O2/HO2=0.0
-!
-!WC_H2O2/CO=0.0
-!
-!WC_H2O2/H2O2=+KTC2
- PJAC(:,89,12)=+TPK%KTC2(:)
-!
-!WC_H2O2/SO2=0.0
-!
-!WC_H2O2/H2SO4=0.0
-!
-!WC_H2O2/OH=0.0
-!
-!WC_H2O2/ETHE=0.0
-!
-!WC_H2O2/OLEL=0.0
-!
-!WC_H2O2/OLEH=0.0
-!
-!WC_H2O2/ALKL=0.0
-!
-!WC_H2O2/ALKM=0.0
-!
-!WC_H2O2/ALKH=0.0
-!
-!WC_H2O2/AROH=0.0
-!
-!WC_H2O2/AROL=0.0
-!
-!WC_H2O2/AROO=0.0
-!
-!WC_H2O2/ARAL=0.0
-!
-!WC_H2O2/ARAC=0.0
-!
-!WC_H2O2/PAH=0.0
-!
-!WC_H2O2/HCHO=0.0
-!
-!WC_H2O2/ALD2=0.0
-!
-!WC_H2O2/KETL=0.0
-!
-!WC_H2O2/KETH=0.0
-!
-!WC_H2O2/MEOH=0.0
-!
-!WC_H2O2/ETOH=0.0
-!
-!WC_H2O2/ALCH=0.0
-!
-!WC_H2O2/ISOP=0.0
-!
-!WC_H2O2/BIOL=0.0
-!
-!WC_H2O2/BIOH=0.0
-!
-!WC_H2O2/MTBE=0.0
-!
-!WC_H2O2/MVK=0.0
-!
-!WC_H2O2/MCR=0.0
-!
-!WC_H2O2/MGLY=0.0
-!
-!WC_H2O2/GLY=0.0
-!
-!WC_H2O2/ORA1=0.0
-!
-!WC_H2O2/ORA2=0.0
-!
-!WC_H2O2/ACID=0.0
-!
-!WC_H2O2/UR28=0.0
-!
-!WC_H2O2/UR21=0.0
-!
-!WC_H2O2/URG2=0.0
-!
-!WC_H2O2/UR26=0.0
-!
-!WC_H2O2/RPG2=0.0
-!
-!WC_H2O2/RP18=0.0
-!
-!WC_H2O2/RPG3=0.0
-!
-!WC_H2O2/URG4=0.0
-!
-!WC_H2O2/UR8=0.0
-!
-!WC_H2O2/UR17=0.0
-!
-!WC_H2O2/UR7=0.0
-!
-!WC_H2O2/RPR3=0.0
-!
-!WC_H2O2/URG6=0.0
-!
-!WC_H2O2/UR22=0.0
-!
-!WC_H2O2/URG7=0.0
-!
-!WC_H2O2/RPR4=0.0
-!
-!WC_H2O2/RPR7=0.0
-!
-!WC_H2O2/RPG7=0.0
-!
-!WC_H2O2/URG8=0.0
-!
-!WC_H2O2/UR19=0.0
-!
-!WC_H2O2/URG9=0.0
-!
-!WC_H2O2/AP7=0.0
-!
-!WC_H2O2/URG10=0.0
-!
-!WC_H2O2/RPR1=0.0
-!
-!WC_H2O2/RPR5=0.0
-!
-!WC_H2O2/RPR8=0.0
-!
-!WC_H2O2/RP10=0.0
-!
-!WC_H2O2/RP11=0.0
-!
-!WC_H2O2/RP16=0.0
-!
-!WC_H2O2/RPRL=0.0
-!
-!WC_H2O2/APAN=0.0
-!
-!WC_H2O2/PAN1=0.0
-!
-!WC_H2O2/PAN2=0.0
-!
-!WC_H2O2/PAN3=0.0
-!
-!WC_H2O2/PAN4=0.0
-!
-!WC_H2O2/PAN6=0.0
-!
-!WC_H2O2/PAN7=0.0
-!
-!WC_H2O2/PAN8=0.0
-!
-!WC_H2O2/PN10=0.0
-!
-!WC_H2O2/RO2T=0.0
-!
-!WC_H2O2/RO21=0.0
-!
-!WC_H2O2/RO25=0.0
-!
-!WC_H2O2/WC_O3=0.0
-!
-!WC_H2O2/WC_H2O2=-KTC33-KC1-KC4*<WC_OH>-KC26*<WC_SO2>
- PJAC(:,89,89)=-TPK%KTC33(:)-TPK%KC1(:)-TPK%KC4(:)*PCONC(:,98)-TPK%KC26(:)*PCON&
-&C(:,101)
-!
-!WC_H2O2/WC_NO=0.0
-!
-!WC_H2O2/WC_NO2=0.0
-!
-!WC_H2O2/WC_NO3=0.0
-!
-!WC_H2O2/WC_N2O5=0.0
-!
-!WC_H2O2/WC_HONO=0.0
-!
-!WC_H2O2/WC_HNO3=0.0
-!
-!WC_H2O2/WC_HNO4=0.0
-!
-!WC_H2O2/WC_NH3=0.0
-!
-!WC_H2O2/WC_OH=+KC2*<WC_OH>+KC2*<WC_OH>-KC4*<WC_H2O2>+KC37*<WC_KETL>+0.5*KC39*<
-!WC_ORA2>+0.29*KC41*<WC_ACID>+0.3*KC43*<WC_UR21>+0.45*KC45*<WC_RP16>
- PJAC(:,89,98)=+TPK%KC2(:)*PCONC(:,98)+TPK%KC2(:)*PCONC(:,98)-TPK%KC4(:)*PCONC(&
-&:,89)+TPK%KC37(:)*PCONC(:,112)+0.5*TPK%KC39(:)*PCONC(:,114)+0.29*TPK%KC41(:)*P&
-&CONC(:,115)+0.3*TPK%KC43(:)*PCONC(:,117)+0.45*TPK%KC45(:)*PCONC(:,116)
-!
-!WC_H2O2/WC_HO2=+KC5*<WC_HO2>+KC5*<WC_HO2>
- PJAC(:,89,99)=+TPK%KC5(:)*PCONC(:,99)+TPK%KC5(:)*PCONC(:,99)
-!
-!WC_H2O2/WC_CO2=0.0
-!
-!WC_H2O2/WC_SO2=-KC26*<WC_H2O2>
- PJAC(:,89,101)=-TPK%KC26(:)*PCONC(:,89)
-!
-!WC_H2O2/WC_H2SO4=0.0
-!
-!WC_H2O2/WC_RO21=0.0
-!
-!WC_H2O2/WC_RO25=+KC29*<WC_RO25>+KC29*<WC_RO25>
- PJAC(:,89,104)=+TPK%KC29(:)*PCONC(:,104)+TPK%KC29(:)*PCONC(:,104)
-!
-!WC_H2O2/WC_MEOH=0.0
-!
-!WC_H2O2/WC_ETOH=0.0
-!
-!WC_H2O2/WC_ALCH=0.0
-!
-!WC_H2O2/WC_HCHO=0.0
-!
-!WC_H2O2/WC_ALD2=0.0
-!
-!WC_H2O2/WC_GLY=0.0
-!
-!WC_H2O2/WC_MGLY=0.0
-!
-!WC_H2O2/WC_KETL=+KC37*<WC_OH>
- PJAC(:,89,112)=+TPK%KC37(:)*PCONC(:,98)
-!
-!WC_H2O2/WC_ORA1=0.0
-!
-!WC_H2O2/WC_ORA2=+0.5*KC39*<WC_OH>
- PJAC(:,89,114)=+0.5*TPK%KC39(:)*PCONC(:,98)
-!
-!WC_H2O2/WC_ACID=+0.29*KC41*<WC_OH>
- PJAC(:,89,115)=+0.29*TPK%KC41(:)*PCONC(:,98)
-!
-!WC_H2O2/WC_RP16=+0.45*KC45*<WC_OH>
- PJAC(:,89,116)=+0.45*TPK%KC45(:)*PCONC(:,98)
-!
-!WC_H2O2/WC_UR21=+0.3*KC43*<WC_OH>
- PJAC(:,89,117)=+0.3*TPK%KC43(:)*PCONC(:,98)
-!
-!WC_H2O2/WC_UR28=0.0
-!
-!WC_H2O2/WC_ACID2=0.0
-!
-!WC_H2O2/WC_ASO3=0.0
-!
-!WC_H2O2/WC_ASO4=0.0
-!
-!WC_H2O2/WC_ASO5=0.0
-!
-!WC_H2O2/WC_AHSO5=0.0
-!
-!WC_H2O2/WC_AHMS=0.0
-!
-!WC_H2O2/WR_O3=0.0
-!
-!WC_H2O2/WR_H2O2=0.0
-!
-!WC_H2O2/WR_NO=0.0
-!
-!WC_H2O2/WR_NO2=0.0
-!
-!WC_H2O2/WR_NO3=0.0
-!
-!WC_H2O2/WR_N2O5=0.0
-!
-!WC_H2O2/WR_HONO=0.0
-!
-!WC_H2O2/WR_HNO3=0.0
-!
-!WC_H2O2/WR_HNO4=0.0
-!
-!WC_H2O2/WR_NH3=0.0
-!
-!WC_H2O2/WR_OH=0.0
-!
-!WC_H2O2/WR_HO2=0.0
-!
-!WC_H2O2/WR_CO2=0.0
-!
-!WC_H2O2/WR_SO2=0.0
-!
-!WC_H2O2/WR_H2SO4=0.0
-!
-!WC_H2O2/WR_RO21=0.0
-!
-!WC_H2O2/WR_RO25=0.0
-!
-!WC_H2O2/WR_MEOH=0.0
-!
-!WC_H2O2/WR_ETOH=0.0
-!
-!WC_H2O2/WR_ALCH=0.0
-!
-!WC_H2O2/WR_HCHO=0.0
-!
-!WC_H2O2/WR_ALD2=0.0
-!
-!WC_H2O2/WR_GLY=0.0
-!
-!WC_H2O2/WR_MGLY=0.0
-!
-!WC_H2O2/WR_KETL=0.0
-!
-!WC_H2O2/WR_ORA1=0.0
-!
-!WC_H2O2/WR_ORA2=0.0
-!
-!WC_H2O2/WR_ACID=0.0
-!
-!WC_H2O2/WR_RP16=0.0
-!
-!WC_H2O2/WR_UR21=0.0
-!
-!WC_H2O2/WR_UR28=0.0
-!
-!WC_H2O2/WR_ACID2=0.0
-!
-!WC_H2O2/WR_ASO3=0.0
-!
-!WC_H2O2/WR_ASO4=0.0
-!
-!WC_H2O2/WR_ASO5=0.0
-!
-!WC_H2O2/WR_AHSO5=0.0
-!
-!WC_H2O2/WR_AHMS=0.0
-!
-!WC_NO/NO=+KTC3
- PJAC(:,90,1)=+TPK%KTC3(:)
-!
-!WC_NO/NO2=0.0
-!
-!WC_NO/O3=0.0
-!
-!WC_NO/HONO=0.0
-!
-!WC_NO/HNO3=0.0
-!
-!WC_NO/HNO4=0.0
-!
-!WC_NO/N2O5=0.0
-!
-!WC_NO/NO3=0.0
-!
-!WC_NO/NH3=0.0
-!
-!WC_NO/HO2=0.0
-!
-!WC_NO/CO=0.0
-!
-!WC_NO/H2O2=0.0
-!
-!WC_NO/SO2=0.0
-!
-!WC_NO/H2SO4=0.0
-!
-!WC_NO/OH=0.0
-!
-!WC_NO/ETHE=0.0
-!
-!WC_NO/OLEL=0.0
-!
-!WC_NO/OLEH=0.0
-!
-!WC_NO/ALKL=0.0
-!
-!WC_NO/ALKM=0.0
-!
-!WC_NO/ALKH=0.0
-!
-!WC_NO/AROH=0.0
-!
-!WC_NO/AROL=0.0
-!
-!WC_NO/AROO=0.0
-!
-!WC_NO/ARAL=0.0
-!
-!WC_NO/ARAC=0.0
-!
-!WC_NO/PAH=0.0
-!
-!WC_NO/HCHO=0.0
-!
-!WC_NO/ALD2=0.0
-!
-!WC_NO/KETL=0.0
-!
-!WC_NO/KETH=0.0
-!
-!WC_NO/MEOH=0.0
-!
-!WC_NO/ETOH=0.0
-!
-!WC_NO/ALCH=0.0
-!
-!WC_NO/ISOP=0.0
-!
-!WC_NO/BIOL=0.0
-!
-!WC_NO/BIOH=0.0
-!
-!WC_NO/MTBE=0.0
-!
-!WC_NO/MVK=0.0
-!
-!WC_NO/MCR=0.0
-!
-!WC_NO/MGLY=0.0
-!
-!WC_NO/GLY=0.0
-!
-!WC_NO/ORA1=0.0
-!
-!WC_NO/ORA2=0.0
-!
-!WC_NO/ACID=0.0
-!
-!WC_NO/UR28=0.0
-!
-!WC_NO/UR21=0.0
-!
-!WC_NO/URG2=0.0
-!
-!WC_NO/UR26=0.0
-!
-!WC_NO/RPG2=0.0
-!
-!WC_NO/RP18=0.0
-!
-!WC_NO/RPG3=0.0
-!
-!WC_NO/URG4=0.0
-!
-!WC_NO/UR8=0.0
-!
-!WC_NO/UR17=0.0
-!
-!WC_NO/UR7=0.0
-!
-!WC_NO/RPR3=0.0
-!
-!WC_NO/URG6=0.0
-!
-!WC_NO/UR22=0.0
-!
-!WC_NO/URG7=0.0
-!
-!WC_NO/RPR4=0.0
-!
-!WC_NO/RPR7=0.0
-!
-!WC_NO/RPG7=0.0
-!
-!WC_NO/URG8=0.0
-!
-!WC_NO/UR19=0.0
-!
-!WC_NO/URG9=0.0
-!
-!WC_NO/AP7=0.0
-!
-!WC_NO/URG10=0.0
-!
-!WC_NO/RPR1=0.0
-!
-!WC_NO/RPR5=0.0
-!
-!WC_NO/RPR8=0.0
-!
-!WC_NO/RP10=0.0
-!
-!WC_NO/RP11=0.0
-!
-!WC_NO/RP16=0.0
-!
-!WC_NO/RPRL=0.0
-!
-!WC_NO/APAN=0.0
-!
-!WC_NO/PAN1=0.0
-!
-!WC_NO/PAN2=0.0
-!
-!WC_NO/PAN3=0.0
-!
-!WC_NO/PAN4=0.0
-!
-!WC_NO/PAN6=0.0
-!
-!WC_NO/PAN7=0.0
-!
-!WC_NO/PAN8=0.0
-!
-!WC_NO/PN10=0.0
-!
-!WC_NO/RO2T=0.0
-!
-!WC_NO/RO21=0.0
-!
-!WC_NO/RO25=0.0
-!
-!WC_NO/WC_O3=0.0
-!
-!WC_NO/WC_H2O2=0.0
-!
-!WC_NO/WC_NO=-KTC34
- PJAC(:,90,90)=-TPK%KTC34(:)
-!
-!WC_NO/WC_NO2=0.0
-!
-!WC_NO/WC_NO3=0.0
-!
-!WC_NO/WC_N2O5=0.0
-!
-!WC_NO/WC_HONO=0.0
-!
-!WC_NO/WC_HNO3=0.0
-!
-!WC_NO/WC_HNO4=0.0
-!
-!WC_NO/WC_NH3=0.0
-!
-!WC_NO/WC_OH=0.0
-!
-!WC_NO/WC_HO2=0.0
-!
-!WC_NO/WC_CO2=0.0
-!
-!WC_NO/WC_SO2=0.0
-!
-!WC_NO/WC_H2SO4=0.0
-!
-!WC_NO/WC_RO21=0.0
-!
-!WC_NO/WC_RO25=0.0
-!
-!WC_NO/WC_MEOH=0.0
-!
-!WC_NO/WC_ETOH=0.0
-!
-!WC_NO/WC_ALCH=0.0
-!
-!WC_NO/WC_HCHO=0.0
-!
-!WC_NO/WC_ALD2=0.0
-!
-!WC_NO/WC_GLY=0.0
-!
-!WC_NO/WC_MGLY=0.0
-!
-!WC_NO/WC_KETL=0.0
-!
-!WC_NO/WC_ORA1=0.0
-!
-!WC_NO/WC_ORA2=0.0
-!
-!WC_NO/WC_ACID=0.0
-!
-!WC_NO/WC_RP16=0.0
-!
-!WC_NO/WC_UR21=0.0
-!
-!WC_NO/WC_UR28=0.0
-!
-!WC_NO/WC_ACID2=0.0
-!
-!WC_NO/WC_ASO3=0.0
-!
-!WC_NO/WC_ASO4=0.0
-!
-!WC_NO/WC_ASO5=0.0
-!
-!WC_NO/WC_AHSO5=0.0
-!
-!WC_NO/WC_AHMS=0.0
-!
-!WC_NO/WR_O3=0.0
-!
-!WC_NO/WR_H2O2=0.0
-!
-!WC_NO/WR_NO=0.0
-!
-!WC_NO/WR_NO2=0.0
-!
-!WC_NO/WR_NO3=0.0
-!
-!WC_NO/WR_N2O5=0.0
-!
-!WC_NO/WR_HONO=0.0
-!
-!WC_NO/WR_HNO3=0.0
-!
-!WC_NO/WR_HNO4=0.0
-!
-!WC_NO/WR_NH3=0.0
-!
-!WC_NO/WR_OH=0.0
-!
-!WC_NO/WR_HO2=0.0
-!
-!WC_NO/WR_CO2=0.0
-!
-!WC_NO/WR_SO2=0.0
-!
-!WC_NO/WR_H2SO4=0.0
-!
-!WC_NO/WR_RO21=0.0
-!
-!WC_NO/WR_RO25=0.0
-!
-!WC_NO/WR_MEOH=0.0
-!
-!WC_NO/WR_ETOH=0.0
-!
-!WC_NO/WR_ALCH=0.0
-!
-!WC_NO/WR_HCHO=0.0
-!
-!WC_NO/WR_ALD2=0.0
-!
-!WC_NO/WR_GLY=0.0
-!
-!WC_NO/WR_MGLY=0.0
-!
-!WC_NO/WR_KETL=0.0
-!
-!WC_NO/WR_ORA1=0.0
-!
-!WC_NO/WR_ORA2=0.0
-!
-!WC_NO/WR_ACID=0.0
-!
-!WC_NO/WR_RP16=0.0
-!
-!WC_NO/WR_UR21=0.0
-!
-!WC_NO/WR_UR28=0.0
-!
-!WC_NO/WR_ACID2=0.0
-!
-!WC_NO/WR_ASO3=0.0
-!
-!WC_NO/WR_ASO4=0.0
-!
-!WC_NO/WR_ASO5=0.0
-!
-!WC_NO/WR_AHSO5=0.0
-!
-!WC_NO/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ17
-!
-SUBROUTINE SUBJ18
-!
-!Indices 91 a 95
-!
-!
-!WC_NO2/NO=0.0
-!
-!WC_NO2/NO2=+KTC4
- PJAC(:,91,2)=+TPK%KTC4(:)
-!
-!WC_NO2/O3=0.0
-!
-!WC_NO2/HONO=0.0
-!
-!WC_NO2/HNO3=0.0
-!
-!WC_NO2/HNO4=0.0
-!
-!WC_NO2/N2O5=0.0
-!
-!WC_NO2/NO3=0.0
-!
-!WC_NO2/NH3=0.0
-!
-!WC_NO2/HO2=0.0
-!
-!WC_NO2/CO=0.0
-!
-!WC_NO2/H2O2=0.0
-!
-!WC_NO2/SO2=0.0
-!
-!WC_NO2/H2SO4=0.0
-!
-!WC_NO2/OH=0.0
-!
-!WC_NO2/ETHE=0.0
-!
-!WC_NO2/OLEL=0.0
-!
-!WC_NO2/OLEH=0.0
-!
-!WC_NO2/ALKL=0.0
-!
-!WC_NO2/ALKM=0.0
-!
-!WC_NO2/ALKH=0.0
-!
-!WC_NO2/AROH=0.0
-!
-!WC_NO2/AROL=0.0
-!
-!WC_NO2/AROO=0.0
-!
-!WC_NO2/ARAL=0.0
-!
-!WC_NO2/ARAC=0.0
-!
-!WC_NO2/PAH=0.0
-!
-!WC_NO2/HCHO=0.0
-!
-!WC_NO2/ALD2=0.0
-!
-!WC_NO2/KETL=0.0
-!
-!WC_NO2/KETH=0.0
-!
-!WC_NO2/MEOH=0.0
-!
-!WC_NO2/ETOH=0.0
-!
-!WC_NO2/ALCH=0.0
-!
-!WC_NO2/ISOP=0.0
-!
-!WC_NO2/BIOL=0.0
-!
-!WC_NO2/BIOH=0.0
-!
-!WC_NO2/MTBE=0.0
-!
-!WC_NO2/MVK=0.0
-!
-!WC_NO2/MCR=0.0
-!
-!WC_NO2/MGLY=0.0
-!
-!WC_NO2/GLY=0.0
-!
-!WC_NO2/ORA1=0.0
-!
-!WC_NO2/ORA2=0.0
-!
-!WC_NO2/ACID=0.0
-!
-!WC_NO2/UR28=0.0
-!
-!WC_NO2/UR21=0.0
-!
-!WC_NO2/URG2=0.0
-!
-!WC_NO2/UR26=0.0
-!
-!WC_NO2/RPG2=0.0
-!
-!WC_NO2/RP18=0.0
-!
-!WC_NO2/RPG3=0.0
-!
-!WC_NO2/URG4=0.0
-!
-!WC_NO2/UR8=0.0
-!
-!WC_NO2/UR17=0.0
-!
-!WC_NO2/UR7=0.0
-!
-!WC_NO2/RPR3=0.0
-!
-!WC_NO2/URG6=0.0
-!
-!WC_NO2/UR22=0.0
-!
-!WC_NO2/URG7=0.0
-!
-!WC_NO2/RPR4=0.0
-!
-!WC_NO2/RPR7=0.0
-!
-!WC_NO2/RPG7=0.0
-!
-!WC_NO2/URG8=0.0
-!
-!WC_NO2/UR19=0.0
-!
-!WC_NO2/URG9=0.0
-!
-!WC_NO2/AP7=0.0
-!
-!WC_NO2/URG10=0.0
-!
-!WC_NO2/RPR1=0.0
-!
-!WC_NO2/RPR5=0.0
-!
-!WC_NO2/RPR8=0.0
-!
-!WC_NO2/RP10=0.0
-!
-!WC_NO2/RP11=0.0
-!
-!WC_NO2/RP16=0.0
-!
-!WC_NO2/RPRL=0.0
-!
-!WC_NO2/APAN=0.0
-!
-!WC_NO2/PAN1=0.0
-!
-!WC_NO2/PAN2=0.0
-!
-!WC_NO2/PAN3=0.0
-!
-!WC_NO2/PAN4=0.0
-!
-!WC_NO2/PAN6=0.0
-!
-!WC_NO2/PAN7=0.0
-!
-!WC_NO2/PAN8=0.0
-!
-!WC_NO2/PN10=0.0
-!
-!WC_NO2/RO2T=0.0
-!
-!WC_NO2/RO21=0.0
-!
-!WC_NO2/RO25=0.0
-!
-!WC_NO2/WC_O3=0.0
-!
-!WC_NO2/WC_H2O2=0.0
-!
-!WC_NO2/WC_NO=0.0
-!
-!WC_NO2/WC_NO2=-KTC35-KC9*<WC_HO2>
- PJAC(:,91,91)=-TPK%KTC35(:)-TPK%KC9(:)*PCONC(:,99)
-!
-!WC_NO2/WC_NO3=0.0
-!
-!WC_NO2/WC_N2O5=0.0
-!
-!WC_NO2/WC_HONO=+KC8*<WC_OH>
- PJAC(:,91,94)=+TPK%KC8(:)*PCONC(:,98)
-!
-!WC_NO2/WC_HNO3=+KC13
- PJAC(:,91,95)=+TPK%KC13(:)
-!
-!WC_NO2/WC_HNO4=+KC10
- PJAC(:,91,96)=+TPK%KC10(:)
-!
-!WC_NO2/WC_NH3=0.0
-!
-!WC_NO2/WC_OH=+KC8*<WC_HONO>
- PJAC(:,91,98)=+TPK%KC8(:)*PCONC(:,94)
-!
-!WC_NO2/WC_HO2=-KC9*<WC_NO2>
- PJAC(:,91,99)=-TPK%KC9(:)*PCONC(:,91)
-!
-!WC_NO2/WC_CO2=0.0
-!
-!WC_NO2/WC_SO2=0.0
-!
-!WC_NO2/WC_H2SO4=0.0
-!
-!WC_NO2/WC_RO21=0.0
-!
-!WC_NO2/WC_RO25=0.0
-!
-!WC_NO2/WC_MEOH=0.0
-!
-!WC_NO2/WC_ETOH=0.0
-!
-!WC_NO2/WC_ALCH=0.0
-!
-!WC_NO2/WC_HCHO=0.0
-!
-!WC_NO2/WC_ALD2=0.0
-!
-!WC_NO2/WC_GLY=0.0
-!
-!WC_NO2/WC_MGLY=0.0
-!
-!WC_NO2/WC_KETL=0.0
-!
-!WC_NO2/WC_ORA1=0.0
-!
-!WC_NO2/WC_ORA2=0.0
-!
-!WC_NO2/WC_ACID=0.0
-!
-!WC_NO2/WC_RP16=0.0
-!
-!WC_NO2/WC_UR21=0.0
-!
-!WC_NO2/WC_UR28=0.0
-!
-!WC_NO2/WC_ACID2=0.0
-!
-!WC_NO2/WC_ASO3=0.0
-!
-!WC_NO2/WC_ASO4=0.0
-!
-!WC_NO2/WC_ASO5=0.0
-!
-!WC_NO2/WC_AHSO5=0.0
-!
-!WC_NO2/WC_AHMS=0.0
-!
-!WC_NO2/WR_O3=0.0
-!
-!WC_NO2/WR_H2O2=0.0
-!
-!WC_NO2/WR_NO=0.0
-!
-!WC_NO2/WR_NO2=0.0
-!
-!WC_NO2/WR_NO3=0.0
-!
-!WC_NO2/WR_N2O5=0.0
-!
-!WC_NO2/WR_HONO=0.0
-!
-!WC_NO2/WR_HNO3=0.0
-!
-!WC_NO2/WR_HNO4=0.0
-!
-!WC_NO2/WR_NH3=0.0
-!
-!WC_NO2/WR_OH=0.0
-!
-!WC_NO2/WR_HO2=0.0
-!
-!WC_NO2/WR_CO2=0.0
-!
-!WC_NO2/WR_SO2=0.0
-!
-!WC_NO2/WR_H2SO4=0.0
-!
-!WC_NO2/WR_RO21=0.0
-!
-!WC_NO2/WR_RO25=0.0
-!
-!WC_NO2/WR_MEOH=0.0
-!
-!WC_NO2/WR_ETOH=0.0
-!
-!WC_NO2/WR_ALCH=0.0
-!
-!WC_NO2/WR_HCHO=0.0
-!
-!WC_NO2/WR_ALD2=0.0
-!
-!WC_NO2/WR_GLY=0.0
-!
-!WC_NO2/WR_MGLY=0.0
-!
-!WC_NO2/WR_KETL=0.0
-!
-!WC_NO2/WR_ORA1=0.0
-!
-!WC_NO2/WR_ORA2=0.0
-!
-!WC_NO2/WR_ACID=0.0
-!
-!WC_NO2/WR_RP16=0.0
-!
-!WC_NO2/WR_UR21=0.0
-!
-!WC_NO2/WR_UR28=0.0
-!
-!WC_NO2/WR_ACID2=0.0
-!
-!WC_NO2/WR_ASO3=0.0
-!
-!WC_NO2/WR_ASO4=0.0
-!
-!WC_NO2/WR_ASO5=0.0
-!
-!WC_NO2/WR_AHSO5=0.0
-!
-!WC_NO2/WR_AHMS=0.0
-!
-!WC_NO3/NO=0.0
-!
-!WC_NO3/NO2=0.0
-!
-!WC_NO3/O3=0.0
-!
-!WC_NO3/HONO=0.0
-!
-!WC_NO3/HNO3=0.0
-!
-!WC_NO3/HNO4=0.0
-!
-!WC_NO3/N2O5=0.0
-!
-!WC_NO3/NO3=+KTC5
- PJAC(:,92,8)=+TPK%KTC5(:)
-!
-!WC_NO3/NH3=0.0
-!
-!WC_NO3/HO2=0.0
-!
-!WC_NO3/CO=0.0
-!
-!WC_NO3/H2O2=0.0
-!
-!WC_NO3/SO2=0.0
-!
-!WC_NO3/H2SO4=0.0
-!
-!WC_NO3/OH=0.0
-!
-!WC_NO3/ETHE=0.0
-!
-!WC_NO3/OLEL=0.0
-!
-!WC_NO3/OLEH=0.0
-!
-!WC_NO3/ALKL=0.0
-!
-!WC_NO3/ALKM=0.0
-!
-!WC_NO3/ALKH=0.0
-!
-!WC_NO3/AROH=0.0
-!
-!WC_NO3/AROL=0.0
-!
-!WC_NO3/AROO=0.0
-!
-!WC_NO3/ARAL=0.0
-!
-!WC_NO3/ARAC=0.0
-!
-!WC_NO3/PAH=0.0
-!
-!WC_NO3/HCHO=0.0
-!
-!WC_NO3/ALD2=0.0
-!
-!WC_NO3/KETL=0.0
-!
-!WC_NO3/KETH=0.0
-!
-!WC_NO3/MEOH=0.0
-!
-!WC_NO3/ETOH=0.0
-!
-!WC_NO3/ALCH=0.0
-!
-!WC_NO3/ISOP=0.0
-!
-!WC_NO3/BIOL=0.0
-!
-!WC_NO3/BIOH=0.0
-!
-!WC_NO3/MTBE=0.0
-!
-!WC_NO3/MVK=0.0
-!
-!WC_NO3/MCR=0.0
-!
-!WC_NO3/MGLY=0.0
-!
-!WC_NO3/GLY=0.0
-!
-!WC_NO3/ORA1=0.0
-!
-!WC_NO3/ORA2=0.0
-!
-!WC_NO3/ACID=0.0
-!
-!WC_NO3/UR28=0.0
-!
-!WC_NO3/UR21=0.0
-!
-!WC_NO3/URG2=0.0
-!
-!WC_NO3/UR26=0.0
-!
-!WC_NO3/RPG2=0.0
-!
-!WC_NO3/RP18=0.0
-!
-!WC_NO3/RPG3=0.0
-!
-!WC_NO3/URG4=0.0
-!
-!WC_NO3/UR8=0.0
-!
-!WC_NO3/UR17=0.0
-!
-!WC_NO3/UR7=0.0
-!
-!WC_NO3/RPR3=0.0
-!
-!WC_NO3/URG6=0.0
-!
-!WC_NO3/UR22=0.0
-!
-!WC_NO3/URG7=0.0
-!
-!WC_NO3/RPR4=0.0
-!
-!WC_NO3/RPR7=0.0
-!
-!WC_NO3/RPG7=0.0
-!
-!WC_NO3/URG8=0.0
-!
-!WC_NO3/UR19=0.0
-!
-!WC_NO3/URG9=0.0
-!
-!WC_NO3/AP7=0.0
-!
-!WC_NO3/URG10=0.0
-!
-!WC_NO3/RPR1=0.0
-!
-!WC_NO3/RPR5=0.0
-!
-!WC_NO3/RPR8=0.0
-!
-!WC_NO3/RP10=0.0
-!
-!WC_NO3/RP11=0.0
-!
-!WC_NO3/RP16=0.0
-!
-!WC_NO3/RPRL=0.0
-!
-!WC_NO3/APAN=0.0
-!
-!WC_NO3/PAN1=0.0
-!
-!WC_NO3/PAN2=0.0
-!
-!WC_NO3/PAN3=0.0
-!
-!WC_NO3/PAN4=0.0
-!
-!WC_NO3/PAN6=0.0
-!
-!WC_NO3/PAN7=0.0
-!
-!WC_NO3/PAN8=0.0
-!
-!WC_NO3/PN10=0.0
-!
-!WC_NO3/RO2T=0.0
-!
-!WC_NO3/RO21=0.0
-!
-!WC_NO3/RO25=0.0
-!
-!WC_NO3/WC_O3=0.0
-!
-!WC_NO3/WC_H2O2=0.0
-!
-!WC_NO3/WC_NO=0.0
-!
-!WC_NO3/WC_NO2=0.0
-!
-!WC_NO3/WC_NO3=-KTC36-KC15*<WC_H2SO4>-KC16*<WC_SO2>
- PJAC(:,92,92)=-TPK%KTC36(:)-TPK%KC15(:)*PCONC(:,102)-TPK%KC16(:)*PCONC(:,101)
-!
-!WC_NO3/WC_N2O5=0.0
-!
-!WC_NO3/WC_HONO=0.0
-!
-!WC_NO3/WC_HNO3=0.0
-!
-!WC_NO3/WC_HNO4=0.0
-!
-!WC_NO3/WC_NH3=0.0
-!
-!WC_NO3/WC_OH=0.0
-!
-!WC_NO3/WC_HO2=0.0
-!
-!WC_NO3/WC_CO2=0.0
-!
-!WC_NO3/WC_SO2=-KC16*<WC_NO3>
- PJAC(:,92,101)=-TPK%KC16(:)*PCONC(:,92)
-!
-!WC_NO3/WC_H2SO4=-KC15*<WC_NO3>
- PJAC(:,92,102)=-TPK%KC15(:)*PCONC(:,92)
-!
-!WC_NO3/WC_RO21=0.0
-!
-!WC_NO3/WC_RO25=0.0
-!
-!WC_NO3/WC_MEOH=0.0
-!
-!WC_NO3/WC_ETOH=0.0
-!
-!WC_NO3/WC_ALCH=0.0
-!
-!WC_NO3/WC_HCHO=0.0
-!
-!WC_NO3/WC_ALD2=0.0
-!
-!WC_NO3/WC_GLY=0.0
-!
-!WC_NO3/WC_MGLY=0.0
-!
-!WC_NO3/WC_KETL=0.0
-!
-!WC_NO3/WC_ORA1=0.0
-!
-!WC_NO3/WC_ORA2=0.0
-!
-!WC_NO3/WC_ACID=0.0
-!
-!WC_NO3/WC_RP16=0.0
-!
-!WC_NO3/WC_UR21=0.0
-!
-!WC_NO3/WC_UR28=0.0
-!
-!WC_NO3/WC_ACID2=0.0
-!
-!WC_NO3/WC_ASO3=0.0
-!
-!WC_NO3/WC_ASO4=0.0
-!
-!WC_NO3/WC_ASO5=0.0
-!
-!WC_NO3/WC_AHSO5=0.0
-!
-!WC_NO3/WC_AHMS=0.0
-!
-!WC_NO3/WR_O3=0.0
-!
-!WC_NO3/WR_H2O2=0.0
-!
-!WC_NO3/WR_NO=0.0
-!
-!WC_NO3/WR_NO2=0.0
-!
-!WC_NO3/WR_NO3=0.0
-!
-!WC_NO3/WR_N2O5=0.0
-!
-!WC_NO3/WR_HONO=0.0
-!
-!WC_NO3/WR_HNO3=0.0
-!
-!WC_NO3/WR_HNO4=0.0
-!
-!WC_NO3/WR_NH3=0.0
-!
-!WC_NO3/WR_OH=0.0
-!
-!WC_NO3/WR_HO2=0.0
-!
-!WC_NO3/WR_CO2=0.0
-!
-!WC_NO3/WR_SO2=0.0
-!
-!WC_NO3/WR_H2SO4=0.0
-!
-!WC_NO3/WR_RO21=0.0
-!
-!WC_NO3/WR_RO25=0.0
-!
-!WC_NO3/WR_MEOH=0.0
-!
-!WC_NO3/WR_ETOH=0.0
-!
-!WC_NO3/WR_ALCH=0.0
-!
-!WC_NO3/WR_HCHO=0.0
-!
-!WC_NO3/WR_ALD2=0.0
-!
-!WC_NO3/WR_GLY=0.0
-!
-!WC_NO3/WR_MGLY=0.0
-!
-!WC_NO3/WR_KETL=0.0
-!
-!WC_NO3/WR_ORA1=0.0
-!
-!WC_NO3/WR_ORA2=0.0
-!
-!WC_NO3/WR_ACID=0.0
-!
-!WC_NO3/WR_RP16=0.0
-!
-!WC_NO3/WR_UR21=0.0
-!
-!WC_NO3/WR_UR28=0.0
-!
-!WC_NO3/WR_ACID2=0.0
-!
-!WC_NO3/WR_ASO3=0.0
-!
-!WC_NO3/WR_ASO4=0.0
-!
-!WC_NO3/WR_ASO5=0.0
-!
-!WC_NO3/WR_AHSO5=0.0
-!
-!WC_NO3/WR_AHMS=0.0
-!
-!WC_N2O5/NO=0.0
-!
-!WC_N2O5/NO2=0.0
-!
-!WC_N2O5/O3=0.0
-!
-!WC_N2O5/HONO=0.0
-!
-!WC_N2O5/HNO3=0.0
-!
-!WC_N2O5/HNO4=0.0
-!
-!WC_N2O5/N2O5=+KTC6
- PJAC(:,93,7)=+TPK%KTC6(:)
-!
-!WC_N2O5/NO3=0.0
-!
-!WC_N2O5/NH3=0.0
-!
-!WC_N2O5/HO2=0.0
-!
-!WC_N2O5/CO=0.0
-!
-!WC_N2O5/H2O2=0.0
-!
-!WC_N2O5/SO2=0.0
-!
-!WC_N2O5/H2SO4=0.0
-!
-!WC_N2O5/OH=0.0
-!
-!WC_N2O5/ETHE=0.0
-!
-!WC_N2O5/OLEL=0.0
-!
-!WC_N2O5/OLEH=0.0
-!
-!WC_N2O5/ALKL=0.0
-!
-!WC_N2O5/ALKM=0.0
-!
-!WC_N2O5/ALKH=0.0
-!
-!WC_N2O5/AROH=0.0
-!
-!WC_N2O5/AROL=0.0
-!
-!WC_N2O5/AROO=0.0
-!
-!WC_N2O5/ARAL=0.0
-!
-!WC_N2O5/ARAC=0.0
-!
-!WC_N2O5/PAH=0.0
-!
-!WC_N2O5/HCHO=0.0
-!
-!WC_N2O5/ALD2=0.0
-!
-!WC_N2O5/KETL=0.0
-!
-!WC_N2O5/KETH=0.0
-!
-!WC_N2O5/MEOH=0.0
-!
-!WC_N2O5/ETOH=0.0
-!
-!WC_N2O5/ALCH=0.0
-!
-!WC_N2O5/ISOP=0.0
-!
-!WC_N2O5/BIOL=0.0
-!
-!WC_N2O5/BIOH=0.0
-!
-!WC_N2O5/MTBE=0.0
-!
-!WC_N2O5/MVK=0.0
-!
-!WC_N2O5/MCR=0.0
-!
-!WC_N2O5/MGLY=0.0
-!
-!WC_N2O5/GLY=0.0
-!
-!WC_N2O5/ORA1=0.0
-!
-!WC_N2O5/ORA2=0.0
-!
-!WC_N2O5/ACID=0.0
-!
-!WC_N2O5/UR28=0.0
-!
-!WC_N2O5/UR21=0.0
-!
-!WC_N2O5/URG2=0.0
-!
-!WC_N2O5/UR26=0.0
-!
-!WC_N2O5/RPG2=0.0
-!
-!WC_N2O5/RP18=0.0
-!
-!WC_N2O5/RPG3=0.0
-!
-!WC_N2O5/URG4=0.0
-!
-!WC_N2O5/UR8=0.0
-!
-!WC_N2O5/UR17=0.0
-!
-!WC_N2O5/UR7=0.0
-!
-!WC_N2O5/RPR3=0.0
-!
-!WC_N2O5/URG6=0.0
-!
-!WC_N2O5/UR22=0.0
-!
-!WC_N2O5/URG7=0.0
-!
-!WC_N2O5/RPR4=0.0
-!
-!WC_N2O5/RPR7=0.0
-!
-!WC_N2O5/RPG7=0.0
-!
-!WC_N2O5/URG8=0.0
-!
-!WC_N2O5/UR19=0.0
-!
-!WC_N2O5/URG9=0.0
-!
-!WC_N2O5/AP7=0.0
-!
-!WC_N2O5/URG10=0.0
-!
-!WC_N2O5/RPR1=0.0
-!
-!WC_N2O5/RPR5=0.0
-!
-!WC_N2O5/RPR8=0.0
-!
-!WC_N2O5/RP10=0.0
-!
-!WC_N2O5/RP11=0.0
-!
-!WC_N2O5/RP16=0.0
-!
-!WC_N2O5/RPRL=0.0
-!
-!WC_N2O5/APAN=0.0
-!
-!WC_N2O5/PAN1=0.0
-!
-!WC_N2O5/PAN2=0.0
-!
-!WC_N2O5/PAN3=0.0
-!
-!WC_N2O5/PAN4=0.0
-!
-!WC_N2O5/PAN6=0.0
-!
-!WC_N2O5/PAN7=0.0
-!
-!WC_N2O5/PAN8=0.0
-!
-!WC_N2O5/PN10=0.0
-!
-!WC_N2O5/RO2T=0.0
-!
-!WC_N2O5/RO21=0.0
-!
-!WC_N2O5/RO25=0.0
-!
-!WC_N2O5/WC_O3=0.0
-!
-!WC_N2O5/WC_H2O2=0.0
-!
-!WC_N2O5/WC_NO=0.0
-!
-!WC_N2O5/WC_NO2=0.0
-!
-!WC_N2O5/WC_NO3=0.0
-!
-!WC_N2O5/WC_N2O5=-KTC37-KC14
- PJAC(:,93,93)=-TPK%KTC37(:)-TPK%KC14(:)
-!
-!WC_N2O5/WC_HONO=0.0
-!
-!WC_N2O5/WC_HNO3=0.0
-!
-!WC_N2O5/WC_HNO4=0.0
-!
-!WC_N2O5/WC_NH3=0.0
-!
-!WC_N2O5/WC_OH=0.0
-!
-!WC_N2O5/WC_HO2=0.0
-!
-!WC_N2O5/WC_CO2=0.0
-!
-!WC_N2O5/WC_SO2=0.0
-!
-!WC_N2O5/WC_H2SO4=0.0
-!
-!WC_N2O5/WC_RO21=0.0
-!
-!WC_N2O5/WC_RO25=0.0
-!
-!WC_N2O5/WC_MEOH=0.0
-!
-!WC_N2O5/WC_ETOH=0.0
-!
-!WC_N2O5/WC_ALCH=0.0
-!
-!WC_N2O5/WC_HCHO=0.0
-!
-!WC_N2O5/WC_ALD2=0.0
-!
-!WC_N2O5/WC_GLY=0.0
-!
-!WC_N2O5/WC_MGLY=0.0
-!
-!WC_N2O5/WC_KETL=0.0
-!
-!WC_N2O5/WC_ORA1=0.0
-!
-!WC_N2O5/WC_ORA2=0.0
-!
-!WC_N2O5/WC_ACID=0.0
-!
-!WC_N2O5/WC_RP16=0.0
-!
-!WC_N2O5/WC_UR21=0.0
-!
-!WC_N2O5/WC_UR28=0.0
-!
-!WC_N2O5/WC_ACID2=0.0
-!
-!WC_N2O5/WC_ASO3=0.0
-!
-!WC_N2O5/WC_ASO4=0.0
-!
-!WC_N2O5/WC_ASO5=0.0
-!
-!WC_N2O5/WC_AHSO5=0.0
-!
-!WC_N2O5/WC_AHMS=0.0
-!
-!WC_N2O5/WR_O3=0.0
-!
-!WC_N2O5/WR_H2O2=0.0
-!
-!WC_N2O5/WR_NO=0.0
-!
-!WC_N2O5/WR_NO2=0.0
-!
-!WC_N2O5/WR_NO3=0.0
-!
-!WC_N2O5/WR_N2O5=0.0
-!
-!WC_N2O5/WR_HONO=0.0
-!
-!WC_N2O5/WR_HNO3=0.0
-!
-!WC_N2O5/WR_HNO4=0.0
-!
-!WC_N2O5/WR_NH3=0.0
-!
-!WC_N2O5/WR_OH=0.0
-!
-!WC_N2O5/WR_HO2=0.0
-!
-!WC_N2O5/WR_CO2=0.0
-!
-!WC_N2O5/WR_SO2=0.0
-!
-!WC_N2O5/WR_H2SO4=0.0
-!
-!WC_N2O5/WR_RO21=0.0
-!
-!WC_N2O5/WR_RO25=0.0
-!
-!WC_N2O5/WR_MEOH=0.0
-!
-!WC_N2O5/WR_ETOH=0.0
-!
-!WC_N2O5/WR_ALCH=0.0
-!
-!WC_N2O5/WR_HCHO=0.0
-!
-!WC_N2O5/WR_ALD2=0.0
-!
-!WC_N2O5/WR_GLY=0.0
-!
-!WC_N2O5/WR_MGLY=0.0
-!
-!WC_N2O5/WR_KETL=0.0
-!
-!WC_N2O5/WR_ORA1=0.0
-!
-!WC_N2O5/WR_ORA2=0.0
-!
-!WC_N2O5/WR_ACID=0.0
-!
-!WC_N2O5/WR_RP16=0.0
-!
-!WC_N2O5/WR_UR21=0.0
-!
-!WC_N2O5/WR_UR28=0.0
-!
-!WC_N2O5/WR_ACID2=0.0
-!
-!WC_N2O5/WR_ASO3=0.0
-!
-!WC_N2O5/WR_ASO4=0.0
-!
-!WC_N2O5/WR_ASO5=0.0
-!
-!WC_N2O5/WR_AHSO5=0.0
-!
-!WC_N2O5/WR_AHMS=0.0
-!
-!WC_HONO/NO=0.0
-!
-!WC_HONO/NO2=0.0
-!
-!WC_HONO/O3=0.0
-!
-!WC_HONO/HONO=+KTC7
- PJAC(:,94,4)=+TPK%KTC7(:)
-!
-!WC_HONO/HNO3=0.0
-!
-!WC_HONO/HNO4=0.0
-!
-!WC_HONO/N2O5=0.0
-!
-!WC_HONO/NO3=0.0
-!
-!WC_HONO/NH3=0.0
-!
-!WC_HONO/HO2=0.0
-!
-!WC_HONO/CO=0.0
-!
-!WC_HONO/H2O2=0.0
-!
-!WC_HONO/SO2=0.0
-!
-!WC_HONO/H2SO4=0.0
-!
-!WC_HONO/OH=0.0
-!
-!WC_HONO/ETHE=0.0
-!
-!WC_HONO/OLEL=0.0
-!
-!WC_HONO/OLEH=0.0
-!
-!WC_HONO/ALKL=0.0
-!
-!WC_HONO/ALKM=0.0
-!
-!WC_HONO/ALKH=0.0
-!
-!WC_HONO/AROH=0.0
-!
-!WC_HONO/AROL=0.0
-!
-!WC_HONO/AROO=0.0
-!
-!WC_HONO/ARAL=0.0
-!
-!WC_HONO/ARAC=0.0
-!
-!WC_HONO/PAH=0.0
-!
-!WC_HONO/HCHO=0.0
-!
-!WC_HONO/ALD2=0.0
-!
-!WC_HONO/KETL=0.0
-!
-!WC_HONO/KETH=0.0
-!
-!WC_HONO/MEOH=0.0
-!
-!WC_HONO/ETOH=0.0
-!
-!WC_HONO/ALCH=0.0
-!
-!WC_HONO/ISOP=0.0
-!
-!WC_HONO/BIOL=0.0
-!
-!WC_HONO/BIOH=0.0
-!
-!WC_HONO/MTBE=0.0
-!
-!WC_HONO/MVK=0.0
-!
-!WC_HONO/MCR=0.0
-!
-!WC_HONO/MGLY=0.0
-!
-!WC_HONO/GLY=0.0
-!
-!WC_HONO/ORA1=0.0
-!
-!WC_HONO/ORA2=0.0
-!
-!WC_HONO/ACID=0.0
-!
-!WC_HONO/UR28=0.0
-!
-!WC_HONO/UR21=0.0
-!
-!WC_HONO/URG2=0.0
-!
-!WC_HONO/UR26=0.0
-!
-!WC_HONO/RPG2=0.0
-!
-!WC_HONO/RP18=0.0
-!
-!WC_HONO/RPG3=0.0
-!
-!WC_HONO/URG4=0.0
-!
-!WC_HONO/UR8=0.0
-!
-!WC_HONO/UR17=0.0
-!
-!WC_HONO/UR7=0.0
-!
-!WC_HONO/RPR3=0.0
-!
-!WC_HONO/URG6=0.0
-!
-!WC_HONO/UR22=0.0
-!
-!WC_HONO/URG7=0.0
-!
-!WC_HONO/RPR4=0.0
-!
-!WC_HONO/RPR7=0.0
-!
-!WC_HONO/RPG7=0.0
-!
-!WC_HONO/URG8=0.0
-!
-!WC_HONO/UR19=0.0
-!
-!WC_HONO/URG9=0.0
-!
-!WC_HONO/AP7=0.0
-!
-!WC_HONO/URG10=0.0
-!
-!WC_HONO/RPR1=0.0
-!
-!WC_HONO/RPR5=0.0
-!
-!WC_HONO/RPR8=0.0
-!
-!WC_HONO/RP10=0.0
-!
-!WC_HONO/RP11=0.0
-!
-!WC_HONO/RP16=0.0
-!
-!WC_HONO/RPRL=0.0
-!
-!WC_HONO/APAN=0.0
-!
-!WC_HONO/PAN1=0.0
-!
-!WC_HONO/PAN2=0.0
-!
-!WC_HONO/PAN3=0.0
-!
-!WC_HONO/PAN4=0.0
-!
-!WC_HONO/PAN6=0.0
-!
-!WC_HONO/PAN7=0.0
-!
-!WC_HONO/PAN8=0.0
-!
-!WC_HONO/PN10=0.0
-!
-!WC_HONO/RO2T=0.0
-!
-!WC_HONO/RO21=0.0
-!
-!WC_HONO/RO25=0.0
-!
-!WC_HONO/WC_O3=0.0
-!
-!WC_HONO/WC_H2O2=0.0
-!
-!WC_HONO/WC_NO=0.0
-!
-!WC_HONO/WC_NO2=0.0
-!
-!WC_HONO/WC_NO3=0.0
-!
-!WC_HONO/WC_N2O5=0.0
-!
-!WC_HONO/WC_HONO=-KTC38-KC8*<WC_OH>
- PJAC(:,94,94)=-TPK%KTC38(:)-TPK%KC8(:)*PCONC(:,98)
-!
-!WC_HONO/WC_HNO3=0.0
-!
-!WC_HONO/WC_HNO4=+KC11
- PJAC(:,94,96)=+TPK%KC11(:)
-!
-!WC_HONO/WC_NH3=0.0
-!
-!WC_HONO/WC_OH=-KC8*<WC_HONO>
- PJAC(:,94,98)=-TPK%KC8(:)*PCONC(:,94)
-!
-!WC_HONO/WC_HO2=0.0
-!
-!WC_HONO/WC_CO2=0.0
-!
-!WC_HONO/WC_SO2=0.0
-!
-!WC_HONO/WC_H2SO4=0.0
-!
-!WC_HONO/WC_RO21=0.0
-!
-!WC_HONO/WC_RO25=0.0
-!
-!WC_HONO/WC_MEOH=0.0
-!
-!WC_HONO/WC_ETOH=0.0
-!
-!WC_HONO/WC_ALCH=0.0
-!
-!WC_HONO/WC_HCHO=0.0
-!
-!WC_HONO/WC_ALD2=0.0
-!
-!WC_HONO/WC_GLY=0.0
-!
-!WC_HONO/WC_MGLY=0.0
-!
-!WC_HONO/WC_KETL=0.0
-!
-!WC_HONO/WC_ORA1=0.0
-!
-!WC_HONO/WC_ORA2=0.0
-!
-!WC_HONO/WC_ACID=0.0
-!
-!WC_HONO/WC_RP16=0.0
-!
-!WC_HONO/WC_UR21=0.0
-!
-!WC_HONO/WC_UR28=0.0
-!
-!WC_HONO/WC_ACID2=0.0
-!
-!WC_HONO/WC_ASO3=0.0
-!
-!WC_HONO/WC_ASO4=0.0
-!
-!WC_HONO/WC_ASO5=0.0
-!
-!WC_HONO/WC_AHSO5=0.0
-!
-!WC_HONO/WC_AHMS=0.0
-!
-!WC_HONO/WR_O3=0.0
-!
-!WC_HONO/WR_H2O2=0.0
-!
-!WC_HONO/WR_NO=0.0
-!
-!WC_HONO/WR_NO2=0.0
-!
-!WC_HONO/WR_NO3=0.0
-!
-!WC_HONO/WR_N2O5=0.0
-!
-!WC_HONO/WR_HONO=0.0
-!
-!WC_HONO/WR_HNO3=0.0
-!
-!WC_HONO/WR_HNO4=0.0
-!
-!WC_HONO/WR_NH3=0.0
-!
-!WC_HONO/WR_OH=0.0
-!
-!WC_HONO/WR_HO2=0.0
-!
-!WC_HONO/WR_CO2=0.0
-!
-!WC_HONO/WR_SO2=0.0
-!
-!WC_HONO/WR_H2SO4=0.0
-!
-!WC_HONO/WR_RO21=0.0
-!
-!WC_HONO/WR_RO25=0.0
-!
-!WC_HONO/WR_MEOH=0.0
-!
-!WC_HONO/WR_ETOH=0.0
-!
-!WC_HONO/WR_ALCH=0.0
-!
-!WC_HONO/WR_HCHO=0.0
-!
-!WC_HONO/WR_ALD2=0.0
-!
-!WC_HONO/WR_GLY=0.0
-!
-!WC_HONO/WR_MGLY=0.0
-!
-!WC_HONO/WR_KETL=0.0
-!
-!WC_HONO/WR_ORA1=0.0
-!
-!WC_HONO/WR_ORA2=0.0
-!
-!WC_HONO/WR_ACID=0.0
-!
-!WC_HONO/WR_RP16=0.0
-!
-!WC_HONO/WR_UR21=0.0
-!
-!WC_HONO/WR_UR28=0.0
-!
-!WC_HONO/WR_ACID2=0.0
-!
-!WC_HONO/WR_ASO3=0.0
-!
-!WC_HONO/WR_ASO4=0.0
-!
-!WC_HONO/WR_ASO5=0.0
-!
-!WC_HONO/WR_AHSO5=0.0
-!
-!WC_HONO/WR_AHMS=0.0
-!
-!WC_HNO3/NO=0.0
-!
-!WC_HNO3/NO2=0.0
-!
-!WC_HNO3/O3=0.0
-!
-!WC_HNO3/HONO=0.0
-!
-!WC_HNO3/HNO3=+KTC8
- PJAC(:,95,5)=+TPK%KTC8(:)
-!
-!WC_HNO3/HNO4=0.0
-!
-!WC_HNO3/N2O5=0.0
-!
-!WC_HNO3/NO3=0.0
-!
-!WC_HNO3/NH3=0.0
-!
-!WC_HNO3/HO2=0.0
-!
-!WC_HNO3/CO=0.0
-!
-!WC_HNO3/H2O2=0.0
-!
-!WC_HNO3/SO2=0.0
-!
-!WC_HNO3/H2SO4=0.0
-!
-!WC_HNO3/OH=0.0
-!
-!WC_HNO3/ETHE=0.0
-!
-!WC_HNO3/OLEL=0.0
-!
-!WC_HNO3/OLEH=0.0
-!
-!WC_HNO3/ALKL=0.0
-!
-!WC_HNO3/ALKM=0.0
-!
-!WC_HNO3/ALKH=0.0
-!
-!WC_HNO3/AROH=0.0
-!
-!WC_HNO3/AROL=0.0
-!
-!WC_HNO3/AROO=0.0
-!
-!WC_HNO3/ARAL=0.0
-!
-!WC_HNO3/ARAC=0.0
-!
-!WC_HNO3/PAH=0.0
-!
-!WC_HNO3/HCHO=0.0
-!
-!WC_HNO3/ALD2=0.0
-!
-!WC_HNO3/KETL=0.0
-!
-!WC_HNO3/KETH=0.0
-!
-!WC_HNO3/MEOH=0.0
-!
-!WC_HNO3/ETOH=0.0
-!
-!WC_HNO3/ALCH=0.0
-!
-!WC_HNO3/ISOP=0.0
-!
-!WC_HNO3/BIOL=0.0
-!
-!WC_HNO3/BIOH=0.0
-!
-!WC_HNO3/MTBE=0.0
-!
-!WC_HNO3/MVK=0.0
-!
-!WC_HNO3/MCR=0.0
-!
-!WC_HNO3/MGLY=0.0
-!
-!WC_HNO3/GLY=0.0
-!
-!WC_HNO3/ORA1=0.0
-!
-!WC_HNO3/ORA2=0.0
-!
-!WC_HNO3/ACID=0.0
-!
-!WC_HNO3/UR28=0.0
-!
-!WC_HNO3/UR21=0.0
-!
-!WC_HNO3/URG2=0.0
-!
-!WC_HNO3/UR26=0.0
-!
-!WC_HNO3/RPG2=0.0
-!
-!WC_HNO3/RP18=0.0
-!
-!WC_HNO3/RPG3=0.0
-!
-!WC_HNO3/URG4=0.0
-!
-!WC_HNO3/UR8=0.0
-!
-!WC_HNO3/UR17=0.0
-!
-!WC_HNO3/UR7=0.0
-!
-!WC_HNO3/RPR3=0.0
-!
-!WC_HNO3/URG6=0.0
-!
-!WC_HNO3/UR22=0.0
-!
-!WC_HNO3/URG7=0.0
-!
-!WC_HNO3/RPR4=0.0
-!
-!WC_HNO3/RPR7=0.0
-!
-!WC_HNO3/RPG7=0.0
-!
-!WC_HNO3/URG8=0.0
-!
-!WC_HNO3/UR19=0.0
-!
-!WC_HNO3/URG9=0.0
-!
-!WC_HNO3/AP7=0.0
-!
-!WC_HNO3/URG10=0.0
-!
-!WC_HNO3/RPR1=0.0
-!
-!WC_HNO3/RPR5=0.0
-!
-!WC_HNO3/RPR8=0.0
-!
-!WC_HNO3/RP10=0.0
-!
-!WC_HNO3/RP11=0.0
-!
-!WC_HNO3/RP16=0.0
-!
-!WC_HNO3/RPRL=0.0
-!
-!WC_HNO3/APAN=0.0
-!
-!WC_HNO3/PAN1=0.0
-!
-!WC_HNO3/PAN2=0.0
-!
-!WC_HNO3/PAN3=0.0
-!
-!WC_HNO3/PAN4=0.0
-!
-!WC_HNO3/PAN6=0.0
-!
-!WC_HNO3/PAN7=0.0
-!
-!WC_HNO3/PAN8=0.0
-!
-!WC_HNO3/PN10=0.0
-!
-!WC_HNO3/RO2T=0.0
-!
-!WC_HNO3/RO21=0.0
-!
-!WC_HNO3/RO25=0.0
-!
-!WC_HNO3/WC_O3=0.0
-!
-!WC_HNO3/WC_H2O2=0.0
-!
-!WC_HNO3/WC_NO=0.0
-!
-!WC_HNO3/WC_NO2=0.0
-!
-!WC_HNO3/WC_NO3=+KC15*<WC_H2SO4>+KC16*<WC_SO2>
- PJAC(:,95,92)=+TPK%KC15(:)*PCONC(:,102)+TPK%KC16(:)*PCONC(:,101)
-!
-!WC_HNO3/WC_N2O5=+KC14+KC14
- PJAC(:,95,93)=+TPK%KC14(:)+TPK%KC14(:)
-!
-!WC_HNO3/WC_HONO=0.0
-!
-!WC_HNO3/WC_HNO3=-KTC39-KC13
- PJAC(:,95,95)=-TPK%KTC39(:)-TPK%KC13(:)
-!
-!WC_HNO3/WC_HNO4=+KC12*<WC_SO2>
- PJAC(:,95,96)=+TPK%KC12(:)*PCONC(:,101)
-!
-!WC_HNO3/WC_NH3=0.0
-!
-!WC_HNO3/WC_OH=0.0
-!
-!WC_HNO3/WC_HO2=0.0
-!
-!WC_HNO3/WC_CO2=0.0
-!
-!WC_HNO3/WC_SO2=+KC12*<WC_HNO4>+KC16*<WC_NO3>
- PJAC(:,95,101)=+TPK%KC12(:)*PCONC(:,96)+TPK%KC16(:)*PCONC(:,92)
-!
-!WC_HNO3/WC_H2SO4=+KC15*<WC_NO3>
- PJAC(:,95,102)=+TPK%KC15(:)*PCONC(:,92)
-!
-!WC_HNO3/WC_RO21=0.0
-!
-!WC_HNO3/WC_RO25=0.0
-!
-!WC_HNO3/WC_MEOH=0.0
-!
-!WC_HNO3/WC_ETOH=0.0
-!
-!WC_HNO3/WC_ALCH=0.0
-!
-!WC_HNO3/WC_HCHO=0.0
-!
-!WC_HNO3/WC_ALD2=0.0
-!
-!WC_HNO3/WC_GLY=0.0
-!
-!WC_HNO3/WC_MGLY=0.0
-!
-!WC_HNO3/WC_KETL=0.0
-!
-!WC_HNO3/WC_ORA1=0.0
-!
-!WC_HNO3/WC_ORA2=0.0
-!
-!WC_HNO3/WC_ACID=0.0
-!
-!WC_HNO3/WC_RP16=0.0
-!
-!WC_HNO3/WC_UR21=0.0
-!
-!WC_HNO3/WC_UR28=0.0
-!
-!WC_HNO3/WC_ACID2=0.0
-!
-!WC_HNO3/WC_ASO3=0.0
-!
-!WC_HNO3/WC_ASO4=0.0
-!
-!WC_HNO3/WC_ASO5=0.0
-!
-!WC_HNO3/WC_AHSO5=0.0
-!
-!WC_HNO3/WC_AHMS=0.0
-!
-!WC_HNO3/WR_O3=0.0
-!
-!WC_HNO3/WR_H2O2=0.0
-!
-!WC_HNO3/WR_NO=0.0
-!
-!WC_HNO3/WR_NO2=0.0
-!
-!WC_HNO3/WR_NO3=0.0
-!
-!WC_HNO3/WR_N2O5=0.0
-!
-!WC_HNO3/WR_HONO=0.0
-!
-!WC_HNO3/WR_HNO3=0.0
-!
-!WC_HNO3/WR_HNO4=0.0
-!
-!WC_HNO3/WR_NH3=0.0
-!
-!WC_HNO3/WR_OH=0.0
-!
-!WC_HNO3/WR_HO2=0.0
-!
-!WC_HNO3/WR_CO2=0.0
-!
-!WC_HNO3/WR_SO2=0.0
-!
-!WC_HNO3/WR_H2SO4=0.0
-!
-!WC_HNO3/WR_RO21=0.0
-!
-!WC_HNO3/WR_RO25=0.0
-!
-!WC_HNO3/WR_MEOH=0.0
-!
-!WC_HNO3/WR_ETOH=0.0
-!
-!WC_HNO3/WR_ALCH=0.0
-!
-!WC_HNO3/WR_HCHO=0.0
-!
-!WC_HNO3/WR_ALD2=0.0
-!
-!WC_HNO3/WR_GLY=0.0
-!
-!WC_HNO3/WR_MGLY=0.0
-!
-!WC_HNO3/WR_KETL=0.0
-!
-!WC_HNO3/WR_ORA1=0.0
-!
-!WC_HNO3/WR_ORA2=0.0
-!
-!WC_HNO3/WR_ACID=0.0
-!
-!WC_HNO3/WR_RP16=0.0
-!
-!WC_HNO3/WR_UR21=0.0
-!
-!WC_HNO3/WR_UR28=0.0
-!
-!WC_HNO3/WR_ACID2=0.0
-!
-!WC_HNO3/WR_ASO3=0.0
-!
-!WC_HNO3/WR_ASO4=0.0
-!
-!WC_HNO3/WR_ASO5=0.0
-!
-!WC_HNO3/WR_AHSO5=0.0
-!
-!WC_HNO3/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ18
-!
-SUBROUTINE SUBJ19
-!
-!Indices 96 a 100
-!
-!
-!WC_HNO4/NO=0.0
-!
-!WC_HNO4/NO2=0.0
-!
-!WC_HNO4/O3=0.0
-!
-!WC_HNO4/HONO=0.0
-!
-!WC_HNO4/HNO3=0.0
-!
-!WC_HNO4/HNO4=+KTC9
- PJAC(:,96,6)=+TPK%KTC9(:)
-!
-!WC_HNO4/N2O5=0.0
-!
-!WC_HNO4/NO3=0.0
-!
-!WC_HNO4/NH3=0.0
-!
-!WC_HNO4/HO2=0.0
-!
-!WC_HNO4/CO=0.0
-!
-!WC_HNO4/H2O2=0.0
-!
-!WC_HNO4/SO2=0.0
-!
-!WC_HNO4/H2SO4=0.0
-!
-!WC_HNO4/OH=0.0
-!
-!WC_HNO4/ETHE=0.0
-!
-!WC_HNO4/OLEL=0.0
-!
-!WC_HNO4/OLEH=0.0
-!
-!WC_HNO4/ALKL=0.0
-!
-!WC_HNO4/ALKM=0.0
-!
-!WC_HNO4/ALKH=0.0
-!
-!WC_HNO4/AROH=0.0
-!
-!WC_HNO4/AROL=0.0
-!
-!WC_HNO4/AROO=0.0
-!
-!WC_HNO4/ARAL=0.0
-!
-!WC_HNO4/ARAC=0.0
-!
-!WC_HNO4/PAH=0.0
-!
-!WC_HNO4/HCHO=0.0
-!
-!WC_HNO4/ALD2=0.0
-!
-!WC_HNO4/KETL=0.0
-!
-!WC_HNO4/KETH=0.0
-!
-!WC_HNO4/MEOH=0.0
-!
-!WC_HNO4/ETOH=0.0
-!
-!WC_HNO4/ALCH=0.0
-!
-!WC_HNO4/ISOP=0.0
-!
-!WC_HNO4/BIOL=0.0
-!
-!WC_HNO4/BIOH=0.0
-!
-!WC_HNO4/MTBE=0.0
-!
-!WC_HNO4/MVK=0.0
-!
-!WC_HNO4/MCR=0.0
-!
-!WC_HNO4/MGLY=0.0
-!
-!WC_HNO4/GLY=0.0
-!
-!WC_HNO4/ORA1=0.0
-!
-!WC_HNO4/ORA2=0.0
-!
-!WC_HNO4/ACID=0.0
-!
-!WC_HNO4/UR28=0.0
-!
-!WC_HNO4/UR21=0.0
-!
-!WC_HNO4/URG2=0.0
-!
-!WC_HNO4/UR26=0.0
-!
-!WC_HNO4/RPG2=0.0
-!
-!WC_HNO4/RP18=0.0
-!
-!WC_HNO4/RPG3=0.0
-!
-!WC_HNO4/URG4=0.0
-!
-!WC_HNO4/UR8=0.0
-!
-!WC_HNO4/UR17=0.0
-!
-!WC_HNO4/UR7=0.0
-!
-!WC_HNO4/RPR3=0.0
-!
-!WC_HNO4/URG6=0.0
-!
-!WC_HNO4/UR22=0.0
-!
-!WC_HNO4/URG7=0.0
-!
-!WC_HNO4/RPR4=0.0
-!
-!WC_HNO4/RPR7=0.0
-!
-!WC_HNO4/RPG7=0.0
-!
-!WC_HNO4/URG8=0.0
-!
-!WC_HNO4/UR19=0.0
-!
-!WC_HNO4/URG9=0.0
-!
-!WC_HNO4/AP7=0.0
-!
-!WC_HNO4/URG10=0.0
-!
-!WC_HNO4/RPR1=0.0
-!
-!WC_HNO4/RPR5=0.0
-!
-!WC_HNO4/RPR8=0.0
-!
-!WC_HNO4/RP10=0.0
-!
-!WC_HNO4/RP11=0.0
-!
-!WC_HNO4/RP16=0.0
-!
-!WC_HNO4/RPRL=0.0
-!
-!WC_HNO4/APAN=0.0
-!
-!WC_HNO4/PAN1=0.0
-!
-!WC_HNO4/PAN2=0.0
-!
-!WC_HNO4/PAN3=0.0
-!
-!WC_HNO4/PAN4=0.0
-!
-!WC_HNO4/PAN6=0.0
-!
-!WC_HNO4/PAN7=0.0
-!
-!WC_HNO4/PAN8=0.0
-!
-!WC_HNO4/PN10=0.0
-!
-!WC_HNO4/RO2T=0.0
-!
-!WC_HNO4/RO21=0.0
-!
-!WC_HNO4/RO25=0.0
-!
-!WC_HNO4/WC_O3=0.0
-!
-!WC_HNO4/WC_H2O2=0.0
-!
-!WC_HNO4/WC_NO=0.0
-!
-!WC_HNO4/WC_NO2=+KC9*<WC_HO2>
- PJAC(:,96,91)=+TPK%KC9(:)*PCONC(:,99)
-!
-!WC_HNO4/WC_NO3=0.0
-!
-!WC_HNO4/WC_N2O5=0.0
-!
-!WC_HNO4/WC_HONO=0.0
-!
-!WC_HNO4/WC_HNO3=0.0
-!
-!WC_HNO4/WC_HNO4=-KTC40-KC10-KC11-KC12*<WC_SO2>
- PJAC(:,96,96)=-TPK%KTC40(:)-TPK%KC10(:)-TPK%KC11(:)-TPK%KC12(:)*PCONC(:,101)
-!
-!WC_HNO4/WC_NH3=0.0
-!
-!WC_HNO4/WC_OH=0.0
-!
-!WC_HNO4/WC_HO2=+KC9*<WC_NO2>
- PJAC(:,96,99)=+TPK%KC9(:)*PCONC(:,91)
-!
-!WC_HNO4/WC_CO2=0.0
-!
-!WC_HNO4/WC_SO2=-KC12*<WC_HNO4>
- PJAC(:,96,101)=-TPK%KC12(:)*PCONC(:,96)
-!
-!WC_HNO4/WC_H2SO4=0.0
-!
-!WC_HNO4/WC_RO21=0.0
-!
-!WC_HNO4/WC_RO25=0.0
-!
-!WC_HNO4/WC_MEOH=0.0
-!
-!WC_HNO4/WC_ETOH=0.0
-!
-!WC_HNO4/WC_ALCH=0.0
-!
-!WC_HNO4/WC_HCHO=0.0
-!
-!WC_HNO4/WC_ALD2=0.0
-!
-!WC_HNO4/WC_GLY=0.0
-!
-!WC_HNO4/WC_MGLY=0.0
-!
-!WC_HNO4/WC_KETL=0.0
-!
-!WC_HNO4/WC_ORA1=0.0
-!
-!WC_HNO4/WC_ORA2=0.0
-!
-!WC_HNO4/WC_ACID=0.0
-!
-!WC_HNO4/WC_RP16=0.0
-!
-!WC_HNO4/WC_UR21=0.0
-!
-!WC_HNO4/WC_UR28=0.0
-!
-!WC_HNO4/WC_ACID2=0.0
-!
-!WC_HNO4/WC_ASO3=0.0
-!
-!WC_HNO4/WC_ASO4=0.0
-!
-!WC_HNO4/WC_ASO5=0.0
-!
-!WC_HNO4/WC_AHSO5=0.0
-!
-!WC_HNO4/WC_AHMS=0.0
-!
-!WC_HNO4/WR_O3=0.0
-!
-!WC_HNO4/WR_H2O2=0.0
-!
-!WC_HNO4/WR_NO=0.0
-!
-!WC_HNO4/WR_NO2=0.0
-!
-!WC_HNO4/WR_NO3=0.0
-!
-!WC_HNO4/WR_N2O5=0.0
-!
-!WC_HNO4/WR_HONO=0.0
-!
-!WC_HNO4/WR_HNO3=0.0
-!
-!WC_HNO4/WR_HNO4=0.0
-!
-!WC_HNO4/WR_NH3=0.0
-!
-!WC_HNO4/WR_OH=0.0
-!
-!WC_HNO4/WR_HO2=0.0
-!
-!WC_HNO4/WR_CO2=0.0
-!
-!WC_HNO4/WR_SO2=0.0
-!
-!WC_HNO4/WR_H2SO4=0.0
-!
-!WC_HNO4/WR_RO21=0.0
-!
-!WC_HNO4/WR_RO25=0.0
-!
-!WC_HNO4/WR_MEOH=0.0
-!
-!WC_HNO4/WR_ETOH=0.0
-!
-!WC_HNO4/WR_ALCH=0.0
-!
-!WC_HNO4/WR_HCHO=0.0
-!
-!WC_HNO4/WR_ALD2=0.0
-!
-!WC_HNO4/WR_GLY=0.0
-!
-!WC_HNO4/WR_MGLY=0.0
-!
-!WC_HNO4/WR_KETL=0.0
-!
-!WC_HNO4/WR_ORA1=0.0
-!
-!WC_HNO4/WR_ORA2=0.0
-!
-!WC_HNO4/WR_ACID=0.0
-!
-!WC_HNO4/WR_RP16=0.0
-!
-!WC_HNO4/WR_UR21=0.0
-!
-!WC_HNO4/WR_UR28=0.0
-!
-!WC_HNO4/WR_ACID2=0.0
-!
-!WC_HNO4/WR_ASO3=0.0
-!
-!WC_HNO4/WR_ASO4=0.0
-!
-!WC_HNO4/WR_ASO5=0.0
-!
-!WC_HNO4/WR_AHSO5=0.0
-!
-!WC_HNO4/WR_AHMS=0.0
-!
-!WC_NH3/NO=0.0
-!
-!WC_NH3/NO2=0.0
-!
-!WC_NH3/O3=0.0
-!
-!WC_NH3/HONO=0.0
-!
-!WC_NH3/HNO3=0.0
-!
-!WC_NH3/HNO4=0.0
-!
-!WC_NH3/N2O5=0.0
-!
-!WC_NH3/NO3=0.0
-!
-!WC_NH3/NH3=+KTC10
- PJAC(:,97,9)=+TPK%KTC10(:)
-!
-!WC_NH3/HO2=0.0
-!
-!WC_NH3/CO=0.0
-!
-!WC_NH3/H2O2=0.0
-!
-!WC_NH3/SO2=0.0
-!
-!WC_NH3/H2SO4=0.0
-!
-!WC_NH3/OH=0.0
-!
-!WC_NH3/ETHE=0.0
-!
-!WC_NH3/OLEL=0.0
-!
-!WC_NH3/OLEH=0.0
-!
-!WC_NH3/ALKL=0.0
-!
-!WC_NH3/ALKM=0.0
-!
-!WC_NH3/ALKH=0.0
-!
-!WC_NH3/AROH=0.0
-!
-!WC_NH3/AROL=0.0
-!
-!WC_NH3/AROO=0.0
-!
-!WC_NH3/ARAL=0.0
-!
-!WC_NH3/ARAC=0.0
-!
-!WC_NH3/PAH=0.0
-!
-!WC_NH3/HCHO=0.0
-!
-!WC_NH3/ALD2=0.0
-!
-!WC_NH3/KETL=0.0
-!
-!WC_NH3/KETH=0.0
-!
-!WC_NH3/MEOH=0.0
-!
-!WC_NH3/ETOH=0.0
-!
-!WC_NH3/ALCH=0.0
-!
-!WC_NH3/ISOP=0.0
-!
-!WC_NH3/BIOL=0.0
-!
-!WC_NH3/BIOH=0.0
-!
-!WC_NH3/MTBE=0.0
-!
-!WC_NH3/MVK=0.0
-!
-!WC_NH3/MCR=0.0
-!
-!WC_NH3/MGLY=0.0
-!
-!WC_NH3/GLY=0.0
-!
-!WC_NH3/ORA1=0.0
-!
-!WC_NH3/ORA2=0.0
-!
-!WC_NH3/ACID=0.0
-!
-!WC_NH3/UR28=0.0
-!
-!WC_NH3/UR21=0.0
-!
-!WC_NH3/URG2=0.0
-!
-!WC_NH3/UR26=0.0
-!
-!WC_NH3/RPG2=0.0
-!
-!WC_NH3/RP18=0.0
-!
-!WC_NH3/RPG3=0.0
-!
-!WC_NH3/URG4=0.0
-!
-!WC_NH3/UR8=0.0
-!
-!WC_NH3/UR17=0.0
-!
-!WC_NH3/UR7=0.0
-!
-!WC_NH3/RPR3=0.0
-!
-!WC_NH3/URG6=0.0
-!
-!WC_NH3/UR22=0.0
-!
-!WC_NH3/URG7=0.0
-!
-!WC_NH3/RPR4=0.0
-!
-!WC_NH3/RPR7=0.0
-!
-!WC_NH3/RPG7=0.0
-!
-!WC_NH3/URG8=0.0
-!
-!WC_NH3/UR19=0.0
-!
-!WC_NH3/URG9=0.0
-!
-!WC_NH3/AP7=0.0
-!
-!WC_NH3/URG10=0.0
-!
-!WC_NH3/RPR1=0.0
-!
-!WC_NH3/RPR5=0.0
-!
-!WC_NH3/RPR8=0.0
-!
-!WC_NH3/RP10=0.0
-!
-!WC_NH3/RP11=0.0
-!
-!WC_NH3/RP16=0.0
-!
-!WC_NH3/RPRL=0.0
-!
-!WC_NH3/APAN=0.0
-!
-!WC_NH3/PAN1=0.0
-!
-!WC_NH3/PAN2=0.0
-!
-!WC_NH3/PAN3=0.0
-!
-!WC_NH3/PAN4=0.0
-!
-!WC_NH3/PAN6=0.0
-!
-!WC_NH3/PAN7=0.0
-!
-!WC_NH3/PAN8=0.0
-!
-!WC_NH3/PN10=0.0
-!
-!WC_NH3/RO2T=0.0
-!
-!WC_NH3/RO21=0.0
-!
-!WC_NH3/RO25=0.0
-!
-!WC_NH3/WC_O3=0.0
-!
-!WC_NH3/WC_H2O2=0.0
-!
-!WC_NH3/WC_NO=0.0
-!
-!WC_NH3/WC_NO2=0.0
-!
-!WC_NH3/WC_NO3=0.0
-!
-!WC_NH3/WC_N2O5=0.0
-!
-!WC_NH3/WC_HONO=0.0
-!
-!WC_NH3/WC_HNO3=0.0
-!
-!WC_NH3/WC_HNO4=0.0
-!
-!WC_NH3/WC_NH3=-KTC41
- PJAC(:,97,97)=-TPK%KTC41(:)
-!
-!WC_NH3/WC_OH=0.0
-!
-!WC_NH3/WC_HO2=0.0
-!
-!WC_NH3/WC_CO2=0.0
-!
-!WC_NH3/WC_SO2=0.0
-!
-!WC_NH3/WC_H2SO4=0.0
-!
-!WC_NH3/WC_RO21=0.0
-!
-!WC_NH3/WC_RO25=0.0
-!
-!WC_NH3/WC_MEOH=0.0
-!
-!WC_NH3/WC_ETOH=0.0
-!
-!WC_NH3/WC_ALCH=0.0
-!
-!WC_NH3/WC_HCHO=0.0
-!
-!WC_NH3/WC_ALD2=0.0
-!
-!WC_NH3/WC_GLY=0.0
-!
-!WC_NH3/WC_MGLY=0.0
-!
-!WC_NH3/WC_KETL=0.0
-!
-!WC_NH3/WC_ORA1=0.0
-!
-!WC_NH3/WC_ORA2=0.0
-!
-!WC_NH3/WC_ACID=0.0
-!
-!WC_NH3/WC_RP16=0.0
-!
-!WC_NH3/WC_UR21=0.0
-!
-!WC_NH3/WC_UR28=0.0
-!
-!WC_NH3/WC_ACID2=0.0
-!
-!WC_NH3/WC_ASO3=0.0
-!
-!WC_NH3/WC_ASO4=0.0
-!
-!WC_NH3/WC_ASO5=0.0
-!
-!WC_NH3/WC_AHSO5=0.0
-!
-!WC_NH3/WC_AHMS=0.0
-!
-!WC_NH3/WR_O3=0.0
-!
-!WC_NH3/WR_H2O2=0.0
-!
-!WC_NH3/WR_NO=0.0
-!
-!WC_NH3/WR_NO2=0.0
-!
-!WC_NH3/WR_NO3=0.0
-!
-!WC_NH3/WR_N2O5=0.0
-!
-!WC_NH3/WR_HONO=0.0
-!
-!WC_NH3/WR_HNO3=0.0
-!
-!WC_NH3/WR_HNO4=0.0
-!
-!WC_NH3/WR_NH3=0.0
-!
-!WC_NH3/WR_OH=0.0
-!
-!WC_NH3/WR_HO2=0.0
-!
-!WC_NH3/WR_CO2=0.0
-!
-!WC_NH3/WR_SO2=0.0
-!
-!WC_NH3/WR_H2SO4=0.0
-!
-!WC_NH3/WR_RO21=0.0
-!
-!WC_NH3/WR_RO25=0.0
-!
-!WC_NH3/WR_MEOH=0.0
-!
-!WC_NH3/WR_ETOH=0.0
-!
-!WC_NH3/WR_ALCH=0.0
-!
-!WC_NH3/WR_HCHO=0.0
-!
-!WC_NH3/WR_ALD2=0.0
-!
-!WC_NH3/WR_GLY=0.0
-!
-!WC_NH3/WR_MGLY=0.0
-!
-!WC_NH3/WR_KETL=0.0
-!
-!WC_NH3/WR_ORA1=0.0
-!
-!WC_NH3/WR_ORA2=0.0
-!
-!WC_NH3/WR_ACID=0.0
-!
-!WC_NH3/WR_RP16=0.0
-!
-!WC_NH3/WR_UR21=0.0
-!
-!WC_NH3/WR_UR28=0.0
-!
-!WC_NH3/WR_ACID2=0.0
-!
-!WC_NH3/WR_ASO3=0.0
-!
-!WC_NH3/WR_ASO4=0.0
-!
-!WC_NH3/WR_ASO5=0.0
-!
-!WC_NH3/WR_AHSO5=0.0
-!
-!WC_NH3/WR_AHMS=0.0
-!
-!WC_OH/NO=0.0
-!
-!WC_OH/NO2=0.0
-!
-!WC_OH/O3=0.0
-!
-!WC_OH/HONO=0.0
-!
-!WC_OH/HNO3=0.0
-!
-!WC_OH/HNO4=0.0
-!
-!WC_OH/N2O5=0.0
-!
-!WC_OH/NO3=0.0
-!
-!WC_OH/NH3=0.0
-!
-!WC_OH/HO2=0.0
-!
-!WC_OH/CO=0.0
-!
-!WC_OH/H2O2=0.0
-!
-!WC_OH/SO2=0.0
-!
-!WC_OH/H2SO4=0.0
-!
-!WC_OH/OH=+KTC11
- PJAC(:,98,15)=+TPK%KTC11(:)
-!
-!WC_OH/ETHE=0.0
-!
-!WC_OH/OLEL=0.0
-!
-!WC_OH/OLEH=0.0
-!
-!WC_OH/ALKL=0.0
-!
-!WC_OH/ALKM=0.0
-!
-!WC_OH/ALKH=0.0
-!
-!WC_OH/AROH=0.0
-!
-!WC_OH/AROL=0.0
-!
-!WC_OH/AROO=0.0
-!
-!WC_OH/ARAL=0.0
-!
-!WC_OH/ARAC=0.0
-!
-!WC_OH/PAH=0.0
-!
-!WC_OH/HCHO=0.0
-!
-!WC_OH/ALD2=0.0
-!
-!WC_OH/KETL=0.0
-!
-!WC_OH/KETH=0.0
-!
-!WC_OH/MEOH=0.0
-!
-!WC_OH/ETOH=0.0
-!
-!WC_OH/ALCH=0.0
-!
-!WC_OH/ISOP=0.0
-!
-!WC_OH/BIOL=0.0
-!
-!WC_OH/BIOH=0.0
-!
-!WC_OH/MTBE=0.0
-!
-!WC_OH/MVK=0.0
-!
-!WC_OH/MCR=0.0
-!
-!WC_OH/MGLY=0.0
-!
-!WC_OH/GLY=0.0
-!
-!WC_OH/ORA1=0.0
-!
-!WC_OH/ORA2=0.0
-!
-!WC_OH/ACID=0.0
-!
-!WC_OH/UR28=0.0
-!
-!WC_OH/UR21=0.0
-!
-!WC_OH/URG2=0.0
-!
-!WC_OH/UR26=0.0
-!
-!WC_OH/RPG2=0.0
-!
-!WC_OH/RP18=0.0
-!
-!WC_OH/RPG3=0.0
-!
-!WC_OH/URG4=0.0
-!
-!WC_OH/UR8=0.0
-!
-!WC_OH/UR17=0.0
-!
-!WC_OH/UR7=0.0
-!
-!WC_OH/RPR3=0.0
-!
-!WC_OH/URG6=0.0
-!
-!WC_OH/UR22=0.0
-!
-!WC_OH/URG7=0.0
-!
-!WC_OH/RPR4=0.0
-!
-!WC_OH/RPR7=0.0
-!
-!WC_OH/RPG7=0.0
-!
-!WC_OH/URG8=0.0
-!
-!WC_OH/UR19=0.0
-!
-!WC_OH/URG9=0.0
-!
-!WC_OH/AP7=0.0
-!
-!WC_OH/URG10=0.0
-!
-!WC_OH/RPR1=0.0
-!
-!WC_OH/RPR5=0.0
-!
-!WC_OH/RPR8=0.0
-!
-!WC_OH/RP10=0.0
-!
-!WC_OH/RP11=0.0
-!
-!WC_OH/RP16=0.0
-!
-!WC_OH/RPRL=0.0
-!
-!WC_OH/APAN=0.0
-!
-!WC_OH/PAN1=0.0
-!
-!WC_OH/PAN2=0.0
-!
-!WC_OH/PAN3=0.0
-!
-!WC_OH/PAN4=0.0
-!
-!WC_OH/PAN6=0.0
-!
-!WC_OH/PAN7=0.0
-!
-!WC_OH/PAN8=0.0
-!
-!WC_OH/PN10=0.0
-!
-!WC_OH/RO2T=0.0
-!
-!WC_OH/RO21=0.0
-!
-!WC_OH/RO25=0.0
-!
-!WC_OH/WC_O3=+KC6*<WC_HO2>
- PJAC(:,98,88)=+TPK%KC6(:)*PCONC(:,99)
-!
-!WC_OH/WC_H2O2=+KC1+KC1-KC4*<WC_OH>
- PJAC(:,98,89)=+TPK%KC1(:)+TPK%KC1(:)-TPK%KC4(:)*PCONC(:,98)
-!
-!WC_OH/WC_NO=0.0
-!
-!WC_OH/WC_NO2=0.0
-!
-!WC_OH/WC_NO3=0.0
-!
-!WC_OH/WC_N2O5=0.0
-!
-!WC_OH/WC_HONO=-KC8*<WC_OH>
- PJAC(:,98,94)=-TPK%KC8(:)*PCONC(:,98)
-!
-!WC_OH/WC_HNO3=+KC13
- PJAC(:,98,95)=+TPK%KC13(:)
-!
-!WC_OH/WC_HNO4=0.0
-!
-!WC_OH/WC_NH3=0.0
-!
-!WC_OH/WC_OH=-KTC42-KC2*<WC_OH>-KC2*<WC_OH>-KC2*<WC_OH>-KC2*<WC_OH>-KC3*<WC_HO2
-!>-KC4*<WC_H2O2>-KC7*<WC_SO2>-KC8*<WC_HONO>-KC19*<WC_AHMS>-KC30*<WC_MEOH>-KC31*
-!<WC_ETOH>-KC32*<WC_ALCH>-KC33*<WC_HCHO>-KC34*<WC_ALD2>-KC35*<WC_GLY>-KC36*<WC_
-!MGLY>-KC37*<WC_KETL>-KC38*<WC_ORA1>-KC39*<WC_ORA2>-KC40*<WC_ACID>-KC41*<WC_ACI
-!D>-KC42*<WC_UR28>-KC43*<WC_UR21>-KC44*<WC_RP16>-KC45*<WC_RP16>-KC46*<WC_ACID2>
- PJAC(:,98,98)=-TPK%KTC42(:)-TPK%KC2(:)*PCONC(:,98)-TPK%KC2(:)*PCONC(:,98)-TPK%&
-&KC2(:)*PCONC(:,98)-TPK%KC2(:)*PCONC(:,98)-TPK%KC3(:)*PCONC(:,99)-TPK%KC4(:)*PC&
-&ONC(:,89)-TPK%KC7(:)*PCONC(:,101)-TPK%KC8(:)*PCONC(:,94)-TPK%KC19(:)*PCONC(:,1&
-&24)-TPK%KC30(:)*PCONC(:,105)-TPK%KC31(:)*PCONC(:,106)-TPK%KC32(:)*PCONC(:,107)&
-&-TPK%KC33(:)*PCONC(:,108)-TPK%KC34(:)*PCONC(:,109)-TPK%KC35(:)*PCONC(:,110)-TP&
-&K%KC36(:)*PCONC(:,111)-TPK%KC37(:)*PCONC(:,112)-TPK%KC38(:)*PCONC(:,113)-TPK%K&
-&C39(:)*PCONC(:,114)-TPK%KC40(:)*PCONC(:,115)-TPK%KC41(:)*PCONC(:,115)-TPK%KC42&
-&(:)*PCONC(:,118)-TPK%KC43(:)*PCONC(:,117)-TPK%KC44(:)*PCONC(:,116)-TPK%KC45(:)&
-&*PCONC(:,116)-TPK%KC46(:)*PCONC(:,119)
-!
-!WC_OH/WC_HO2=-KC3*<WC_OH>+KC6*<WC_O3>
- PJAC(:,98,99)=-TPK%KC3(:)*PCONC(:,98)+TPK%KC6(:)*PCONC(:,88)
-!
-!WC_OH/WC_CO2=0.0
-!
-!WC_OH/WC_SO2=-KC7*<WC_OH>
- PJAC(:,98,101)=-TPK%KC7(:)*PCONC(:,98)
-!
-!WC_OH/WC_H2SO4=0.0
-!
-!WC_OH/WC_RO21=0.0
-!
-!WC_OH/WC_RO25=0.0
-!
-!WC_OH/WC_MEOH=-KC30*<WC_OH>
- PJAC(:,98,105)=-TPK%KC30(:)*PCONC(:,98)
-!
-!WC_OH/WC_ETOH=-KC31*<WC_OH>
- PJAC(:,98,106)=-TPK%KC31(:)*PCONC(:,98)
-!
-!WC_OH/WC_ALCH=-KC32*<WC_OH>
- PJAC(:,98,107)=-TPK%KC32(:)*PCONC(:,98)
-!
-!WC_OH/WC_HCHO=-KC33*<WC_OH>
- PJAC(:,98,108)=-TPK%KC33(:)*PCONC(:,98)
-!
-!WC_OH/WC_ALD2=-KC34*<WC_OH>
- PJAC(:,98,109)=-TPK%KC34(:)*PCONC(:,98)
-!
-!WC_OH/WC_GLY=-KC35*<WC_OH>
- PJAC(:,98,110)=-TPK%KC35(:)*PCONC(:,98)
-!
-!WC_OH/WC_MGLY=-KC36*<WC_OH>
- PJAC(:,98,111)=-TPK%KC36(:)*PCONC(:,98)
-!
-!WC_OH/WC_KETL=-KC37*<WC_OH>
- PJAC(:,98,112)=-TPK%KC37(:)*PCONC(:,98)
-!
-!WC_OH/WC_ORA1=-KC38*<WC_OH>
- PJAC(:,98,113)=-TPK%KC38(:)*PCONC(:,98)
-!
-!WC_OH/WC_ORA2=-KC39*<WC_OH>
- PJAC(:,98,114)=-TPK%KC39(:)*PCONC(:,98)
-!
-!WC_OH/WC_ACID=-KC40*<WC_OH>-KC41*<WC_OH>
- PJAC(:,98,115)=-TPK%KC40(:)*PCONC(:,98)-TPK%KC41(:)*PCONC(:,98)
-!
-!WC_OH/WC_RP16=-KC44*<WC_OH>-KC45*<WC_OH>
- PJAC(:,98,116)=-TPK%KC44(:)*PCONC(:,98)-TPK%KC45(:)*PCONC(:,98)
-!
-!WC_OH/WC_UR21=-KC43*<WC_OH>
- PJAC(:,98,117)=-TPK%KC43(:)*PCONC(:,98)
-!
-!WC_OH/WC_UR28=-KC42*<WC_OH>
- PJAC(:,98,118)=-TPK%KC42(:)*PCONC(:,98)
-!
-!WC_OH/WC_ACID2=-KC46*<WC_OH>
- PJAC(:,98,119)=-TPK%KC46(:)*PCONC(:,98)
-!
-!WC_OH/WC_ASO3=0.0
-!
-!WC_OH/WC_ASO4=+KC24
- PJAC(:,98,121)=+TPK%KC24(:)
-!
-!WC_OH/WC_ASO5=0.0
-!
-!WC_OH/WC_AHSO5=0.0
-!
-!WC_OH/WC_AHMS=-KC19*<WC_OH>
- PJAC(:,98,124)=-TPK%KC19(:)*PCONC(:,98)
-!
-!WC_OH/WR_O3=0.0
-!
-!WC_OH/WR_H2O2=0.0
-!
-!WC_OH/WR_NO=0.0
-!
-!WC_OH/WR_NO2=0.0
-!
-!WC_OH/WR_NO3=0.0
-!
-!WC_OH/WR_N2O5=0.0
-!
-!WC_OH/WR_HONO=0.0
-!
-!WC_OH/WR_HNO3=0.0
-!
-!WC_OH/WR_HNO4=0.0
-!
-!WC_OH/WR_NH3=0.0
-!
-!WC_OH/WR_OH=0.0
-!
-!WC_OH/WR_HO2=0.0
-!
-!WC_OH/WR_CO2=0.0
-!
-!WC_OH/WR_SO2=0.0
-!
-!WC_OH/WR_H2SO4=0.0
-!
-!WC_OH/WR_RO21=0.0
-!
-!WC_OH/WR_RO25=0.0
-!
-!WC_OH/WR_MEOH=0.0
-!
-!WC_OH/WR_ETOH=0.0
-!
-!WC_OH/WR_ALCH=0.0
-!
-!WC_OH/WR_HCHO=0.0
-!
-!WC_OH/WR_ALD2=0.0
-!
-!WC_OH/WR_GLY=0.0
-!
-!WC_OH/WR_MGLY=0.0
-!
-!WC_OH/WR_KETL=0.0
-!
-!WC_OH/WR_ORA1=0.0
-!
-!WC_OH/WR_ORA2=0.0
-!
-!WC_OH/WR_ACID=0.0
-!
-!WC_OH/WR_RP16=0.0
-!
-!WC_OH/WR_UR21=0.0
-!
-!WC_OH/WR_UR28=0.0
-!
-!WC_OH/WR_ACID2=0.0
-!
-!WC_OH/WR_ASO3=0.0
-!
-!WC_OH/WR_ASO4=0.0
-!
-!WC_OH/WR_ASO5=0.0
-!
-!WC_OH/WR_AHSO5=0.0
-!
-!WC_OH/WR_AHMS=0.0
-!
-!WC_HO2/NO=0.0
-!
-!WC_HO2/NO2=0.0
-!
-!WC_HO2/O3=0.0
-!
-!WC_HO2/HONO=0.0
-!
-!WC_HO2/HNO3=0.0
-!
-!WC_HO2/HNO4=0.0
-!
-!WC_HO2/N2O5=0.0
-!
-!WC_HO2/NO3=0.0
-!
-!WC_HO2/NH3=0.0
-!
-!WC_HO2/HO2=+KTC12
- PJAC(:,99,10)=+TPK%KTC12(:)
-!
-!WC_HO2/CO=0.0
-!
-!WC_HO2/H2O2=0.0
-!
-!WC_HO2/SO2=0.0
-!
-!WC_HO2/H2SO4=0.0
-!
-!WC_HO2/OH=0.0
-!
-!WC_HO2/ETHE=0.0
-!
-!WC_HO2/OLEL=0.0
-!
-!WC_HO2/OLEH=0.0
-!
-!WC_HO2/ALKL=0.0
-!
-!WC_HO2/ALKM=0.0
-!
-!WC_HO2/ALKH=0.0
-!
-!WC_HO2/AROH=0.0
-!
-!WC_HO2/AROL=0.0
-!
-!WC_HO2/AROO=0.0
-!
-!WC_HO2/ARAL=0.0
-!
-!WC_HO2/ARAC=0.0
-!
-!WC_HO2/PAH=0.0
-!
-!WC_HO2/HCHO=0.0
-!
-!WC_HO2/ALD2=0.0
-!
-!WC_HO2/KETL=0.0
-!
-!WC_HO2/KETH=0.0
-!
-!WC_HO2/MEOH=0.0
-!
-!WC_HO2/ETOH=0.0
-!
-!WC_HO2/ALCH=0.0
-!
-!WC_HO2/ISOP=0.0
-!
-!WC_HO2/BIOL=0.0
-!
-!WC_HO2/BIOH=0.0
-!
-!WC_HO2/MTBE=0.0
-!
-!WC_HO2/MVK=0.0
-!
-!WC_HO2/MCR=0.0
-!
-!WC_HO2/MGLY=0.0
-!
-!WC_HO2/GLY=0.0
-!
-!WC_HO2/ORA1=0.0
-!
-!WC_HO2/ORA2=0.0
-!
-!WC_HO2/ACID=0.0
-!
-!WC_HO2/UR28=0.0
-!
-!WC_HO2/UR21=0.0
-!
-!WC_HO2/URG2=0.0
-!
-!WC_HO2/UR26=0.0
-!
-!WC_HO2/RPG2=0.0
-!
-!WC_HO2/RP18=0.0
-!
-!WC_HO2/RPG3=0.0
-!
-!WC_HO2/URG4=0.0
-!
-!WC_HO2/UR8=0.0
-!
-!WC_HO2/UR17=0.0
-!
-!WC_HO2/UR7=0.0
-!
-!WC_HO2/RPR3=0.0
-!
-!WC_HO2/URG6=0.0
-!
-!WC_HO2/UR22=0.0
-!
-!WC_HO2/URG7=0.0
-!
-!WC_HO2/RPR4=0.0
-!
-!WC_HO2/RPR7=0.0
-!
-!WC_HO2/RPG7=0.0
-!
-!WC_HO2/URG8=0.0
-!
-!WC_HO2/UR19=0.0
-!
-!WC_HO2/URG9=0.0
-!
-!WC_HO2/AP7=0.0
-!
-!WC_HO2/URG10=0.0
-!
-!WC_HO2/RPR1=0.0
-!
-!WC_HO2/RPR5=0.0
-!
-!WC_HO2/RPR8=0.0
-!
-!WC_HO2/RP10=0.0
-!
-!WC_HO2/RP11=0.0
-!
-!WC_HO2/RP16=0.0
-!
-!WC_HO2/RPRL=0.0
-!
-!WC_HO2/APAN=0.0
-!
-!WC_HO2/PAN1=0.0
-!
-!WC_HO2/PAN2=0.0
-!
-!WC_HO2/PAN3=0.0
-!
-!WC_HO2/PAN4=0.0
-!
-!WC_HO2/PAN6=0.0
-!
-!WC_HO2/PAN7=0.0
-!
-!WC_HO2/PAN8=0.0
-!
-!WC_HO2/PN10=0.0
-!
-!WC_HO2/RO2T=0.0
-!
-!WC_HO2/RO21=0.0
-!
-!WC_HO2/RO25=0.0
-!
-!WC_HO2/WC_O3=-KC6*<WC_HO2>
- PJAC(:,99,88)=-TPK%KC6(:)*PCONC(:,99)
-!
-!WC_HO2/WC_H2O2=+KC4*<WC_OH>
- PJAC(:,99,89)=+TPK%KC4(:)*PCONC(:,98)
-!
-!WC_HO2/WC_NO=0.0
-!
-!WC_HO2/WC_NO2=-KC9*<WC_HO2>
- PJAC(:,99,91)=-TPK%KC9(:)*PCONC(:,99)
-!
-!WC_HO2/WC_NO3=0.0
-!
-!WC_HO2/WC_N2O5=0.0
-!
-!WC_HO2/WC_HONO=0.0
-!
-!WC_HO2/WC_HNO3=0.0
-!
-!WC_HO2/WC_HNO4=+KC10
- PJAC(:,99,96)=+TPK%KC10(:)
-!
-!WC_HO2/WC_NH3=0.0
-!
-!WC_HO2/WC_OH=-KC3*<WC_HO2>+KC4*<WC_H2O2>+KC19*<WC_AHMS>+KC30*<WC_MEOH>+KC31*<W
-!C_ETOH>+KC32*<WC_ALCH>+KC33*<WC_HCHO>+KC35*<WC_GLY>+KC36*<WC_MGLY>+KC37*<WC_KE
-!TL>+KC38*<WC_ORA1>+0.11*KC41*<WC_ACID>+KC42*<WC_UR28>+0.81*KC43*<WC_UR21>+KC44
-!*<WC_RP16>+0.71*KC45*<WC_RP16>
- PJAC(:,99,98)=-TPK%KC3(:)*PCONC(:,99)+TPK%KC4(:)*PCONC(:,89)+TPK%KC19(:)*PCONC&
-&(:,124)+TPK%KC30(:)*PCONC(:,105)+TPK%KC31(:)*PCONC(:,106)+TPK%KC32(:)*PCONC(:,&
-&107)+TPK%KC33(:)*PCONC(:,108)+TPK%KC35(:)*PCONC(:,110)+TPK%KC36(:)*PCONC(:,111&
-&)+TPK%KC37(:)*PCONC(:,112)+TPK%KC38(:)*PCONC(:,113)+0.11*TPK%KC41(:)*PCONC(:,1&
-&15)+TPK%KC42(:)*PCONC(:,118)+0.81*TPK%KC43(:)*PCONC(:,117)+TPK%KC44(:)*PCONC(:&
-&,116)+0.71*TPK%KC45(:)*PCONC(:,116)
-!
-!WC_HO2/WC_HO2=-KTC43-KC3*<WC_OH>-KC5*<WC_HO2>-KC5*<WC_HO2>-KC5*<WC_HO2>-KC5*<W
-!C_HO2>-KC6*<WC_O3>-KC9*<WC_NO2>-KC21*<WC_ASO5>
- PJAC(:,99,99)=-TPK%KTC43(:)-TPK%KC3(:)*PCONC(:,98)-TPK%KC5(:)*PCONC(:,99)-TPK%&
-&KC5(:)*PCONC(:,99)-TPK%KC5(:)*PCONC(:,99)-TPK%KC5(:)*PCONC(:,99)-TPK%KC6(:)*PC&
-&ONC(:,88)-TPK%KC9(:)*PCONC(:,91)-TPK%KC21(:)*PCONC(:,122)
-!
-!WC_HO2/WC_CO2=0.0
-!
-!WC_HO2/WC_SO2=0.0
-!
-!WC_HO2/WC_H2SO4=0.0
-!
-!WC_HO2/WC_RO21=+2.00*KC27*<WC_RO21>+2.00*KC27*<WC_RO21>
- PJAC(:,99,103)=+2.00*TPK%KC27(:)*PCONC(:,103)+2.00*TPK%KC27(:)*PCONC(:,103)
-!
-!WC_HO2/WC_RO25=+KC29*<WC_RO25>+KC29*<WC_RO25>
- PJAC(:,99,104)=+TPK%KC29(:)*PCONC(:,104)+TPK%KC29(:)*PCONC(:,104)
-!
-!WC_HO2/WC_MEOH=+KC30*<WC_OH>
- PJAC(:,99,105)=+TPK%KC30(:)*PCONC(:,98)
-!
-!WC_HO2/WC_ETOH=+KC31*<WC_OH>
- PJAC(:,99,106)=+TPK%KC31(:)*PCONC(:,98)
-!
-!WC_HO2/WC_ALCH=+KC32*<WC_OH>
- PJAC(:,99,107)=+TPK%KC32(:)*PCONC(:,98)
-!
-!WC_HO2/WC_HCHO=+KC33*<WC_OH>
- PJAC(:,99,108)=+TPK%KC33(:)*PCONC(:,98)
-!
-!WC_HO2/WC_ALD2=0.0
-!
-!WC_HO2/WC_GLY=+KC35*<WC_OH>
- PJAC(:,99,110)=+TPK%KC35(:)*PCONC(:,98)
-!
-!WC_HO2/WC_MGLY=+KC36*<WC_OH>
- PJAC(:,99,111)=+TPK%KC36(:)*PCONC(:,98)
-!
-!WC_HO2/WC_KETL=+KC37*<WC_OH>
- PJAC(:,99,112)=+TPK%KC37(:)*PCONC(:,98)
-!
-!WC_HO2/WC_ORA1=+KC38*<WC_OH>
- PJAC(:,99,113)=+TPK%KC38(:)*PCONC(:,98)
-!
-!WC_HO2/WC_ORA2=0.0
-!
-!WC_HO2/WC_ACID=+0.11*KC41*<WC_OH>
- PJAC(:,99,115)=+0.11*TPK%KC41(:)*PCONC(:,98)
-!
-!WC_HO2/WC_RP16=+KC44*<WC_OH>+0.71*KC45*<WC_OH>
- PJAC(:,99,116)=+TPK%KC44(:)*PCONC(:,98)+0.71*TPK%KC45(:)*PCONC(:,98)
-!
-!WC_HO2/WC_UR21=+0.81*KC43*<WC_OH>
- PJAC(:,99,117)=+0.81*TPK%KC43(:)*PCONC(:,98)
-!
-!WC_HO2/WC_UR28=+KC42*<WC_OH>
- PJAC(:,99,118)=+TPK%KC42(:)*PCONC(:,98)
-!
-!WC_HO2/WC_ACID2=0.0
-!
-!WC_HO2/WC_ASO3=0.0
-!
-!WC_HO2/WC_ASO4=0.0
-!
-!WC_HO2/WC_ASO5=-KC21*<WC_HO2>
- PJAC(:,99,122)=-TPK%KC21(:)*PCONC(:,99)
-!
-!WC_HO2/WC_AHSO5=0.0
-!
-!WC_HO2/WC_AHMS=+KC19*<WC_OH>
- PJAC(:,99,124)=+TPK%KC19(:)*PCONC(:,98)
-!
-!WC_HO2/WR_O3=0.0
-!
-!WC_HO2/WR_H2O2=0.0
-!
-!WC_HO2/WR_NO=0.0
-!
-!WC_HO2/WR_NO2=0.0
-!
-!WC_HO2/WR_NO3=0.0
-!
-!WC_HO2/WR_N2O5=0.0
-!
-!WC_HO2/WR_HONO=0.0
-!
-!WC_HO2/WR_HNO3=0.0
-!
-!WC_HO2/WR_HNO4=0.0
-!
-!WC_HO2/WR_NH3=0.0
-!
-!WC_HO2/WR_OH=0.0
-!
-!WC_HO2/WR_HO2=0.0
-!
-!WC_HO2/WR_CO2=0.0
-!
-!WC_HO2/WR_SO2=0.0
-!
-!WC_HO2/WR_H2SO4=0.0
-!
-!WC_HO2/WR_RO21=0.0
-!
-!WC_HO2/WR_RO25=0.0
-!
-!WC_HO2/WR_MEOH=0.0
-!
-!WC_HO2/WR_ETOH=0.0
-!
-!WC_HO2/WR_ALCH=0.0
-!
-!WC_HO2/WR_HCHO=0.0
-!
-!WC_HO2/WR_ALD2=0.0
-!
-!WC_HO2/WR_GLY=0.0
-!
-!WC_HO2/WR_MGLY=0.0
-!
-!WC_HO2/WR_KETL=0.0
-!
-!WC_HO2/WR_ORA1=0.0
-!
-!WC_HO2/WR_ORA2=0.0
-!
-!WC_HO2/WR_ACID=0.0
-!
-!WC_HO2/WR_RP16=0.0
-!
-!WC_HO2/WR_UR21=0.0
-!
-!WC_HO2/WR_UR28=0.0
-!
-!WC_HO2/WR_ACID2=0.0
-!
-!WC_HO2/WR_ASO3=0.0
-!
-!WC_HO2/WR_ASO4=0.0
-!
-!WC_HO2/WR_ASO5=0.0
-!
-!WC_HO2/WR_AHSO5=0.0
-!
-!WC_HO2/WR_AHMS=0.0
-!
-!WC_CO2/NO=0.0
-!
-!WC_CO2/NO2=0.0
-!
-!WC_CO2/O3=0.0
-!
-!WC_CO2/HONO=0.0
-!
-!WC_CO2/HNO3=0.0
-!
-!WC_CO2/HNO4=0.0
-!
-!WC_CO2/N2O5=0.0
-!
-!WC_CO2/NO3=0.0
-!
-!WC_CO2/NH3=0.0
-!
-!WC_CO2/HO2=0.0
-!
-!WC_CO2/CO=0.0
-!
-!WC_CO2/H2O2=0.0
-!
-!WC_CO2/SO2=0.0
-!
-!WC_CO2/H2SO4=0.0
-!
-!WC_CO2/OH=0.0
-!
-!WC_CO2/ETHE=0.0
-!
-!WC_CO2/OLEL=0.0
-!
-!WC_CO2/OLEH=0.0
-!
-!WC_CO2/ALKL=0.0
-!
-!WC_CO2/ALKM=0.0
-!
-!WC_CO2/ALKH=0.0
-!
-!WC_CO2/AROH=0.0
-!
-!WC_CO2/AROL=0.0
-!
-!WC_CO2/AROO=0.0
-!
-!WC_CO2/ARAL=0.0
-!
-!WC_CO2/ARAC=0.0
-!
-!WC_CO2/PAH=0.0
-!
-!WC_CO2/HCHO=0.0
-!
-!WC_CO2/ALD2=0.0
-!
-!WC_CO2/KETL=0.0
-!
-!WC_CO2/KETH=0.0
-!
-!WC_CO2/MEOH=0.0
-!
-!WC_CO2/ETOH=0.0
-!
-!WC_CO2/ALCH=0.0
-!
-!WC_CO2/ISOP=0.0
-!
-!WC_CO2/BIOL=0.0
-!
-!WC_CO2/BIOH=0.0
-!
-!WC_CO2/MTBE=0.0
-!
-!WC_CO2/MVK=0.0
-!
-!WC_CO2/MCR=0.0
-!
-!WC_CO2/MGLY=0.0
-!
-!WC_CO2/GLY=0.0
-!
-!WC_CO2/ORA1=0.0
-!
-!WC_CO2/ORA2=0.0
-!
-!WC_CO2/ACID=0.0
-!
-!WC_CO2/UR28=0.0
-!
-!WC_CO2/UR21=0.0
-!
-!WC_CO2/URG2=0.0
-!
-!WC_CO2/UR26=0.0
-!
-!WC_CO2/RPG2=0.0
-!
-!WC_CO2/RP18=0.0
-!
-!WC_CO2/RPG3=0.0
-!
-!WC_CO2/URG4=0.0
-!
-!WC_CO2/UR8=0.0
-!
-!WC_CO2/UR17=0.0
-!
-!WC_CO2/UR7=0.0
-!
-!WC_CO2/RPR3=0.0
-!
-!WC_CO2/URG6=0.0
-!
-!WC_CO2/UR22=0.0
-!
-!WC_CO2/URG7=0.0
-!
-!WC_CO2/RPR4=0.0
-!
-!WC_CO2/RPR7=0.0
-!
-!WC_CO2/RPG7=0.0
-!
-!WC_CO2/URG8=0.0
-!
-!WC_CO2/UR19=0.0
-!
-!WC_CO2/URG9=0.0
-!
-!WC_CO2/AP7=0.0
-!
-!WC_CO2/URG10=0.0
-!
-!WC_CO2/RPR1=0.0
-!
-!WC_CO2/RPR5=0.0
-!
-!WC_CO2/RPR8=0.0
-!
-!WC_CO2/RP10=0.0
-!
-!WC_CO2/RP11=0.0
-!
-!WC_CO2/RP16=0.0
-!
-!WC_CO2/RPRL=0.0
-!
-!WC_CO2/APAN=0.0
-!
-!WC_CO2/PAN1=0.0
-!
-!WC_CO2/PAN2=0.0
-!
-!WC_CO2/PAN3=0.0
-!
-!WC_CO2/PAN4=0.0
-!
-!WC_CO2/PAN6=0.0
-!
-!WC_CO2/PAN7=0.0
-!
-!WC_CO2/PAN8=0.0
-!
-!WC_CO2/PN10=0.0
-!
-!WC_CO2/RO2T=0.0
-!
-!WC_CO2/RO21=0.0
-!
-!WC_CO2/RO25=0.0
-!
-!WC_CO2/WC_O3=0.0
-!
-!WC_CO2/WC_H2O2=0.0
-!
-!WC_CO2/WC_NO=0.0
-!
-!WC_CO2/WC_NO2=0.0
-!
-!WC_CO2/WC_NO3=0.0
-!
-!WC_CO2/WC_N2O5=0.0
-!
-!WC_CO2/WC_HONO=0.0
-!
-!WC_CO2/WC_HNO3=0.0
-!
-!WC_CO2/WC_HNO4=0.0
-!
-!WC_CO2/WC_NH3=0.0
-!
-!WC_CO2/WC_OH=+KC34*<WC_ALD2>+KC37*<WC_KETL>+KC38*<WC_ORA1>+KC40*<WC_ACID>+2*KC
-!42*<WC_UR28>+0.43*KC43*<WC_UR21>+2*KC45*<WC_RP16>
- PJAC(:,100,98)=+TPK%KC34(:)*PCONC(:,109)+TPK%KC37(:)*PCONC(:,112)+TPK%KC38(:)*&
-&PCONC(:,113)+TPK%KC40(:)*PCONC(:,115)+2*TPK%KC42(:)*PCONC(:,118)+0.43*TPK%KC43&
-&(:)*PCONC(:,117)+2*TPK%KC45(:)*PCONC(:,116)
-!
-!WC_CO2/WC_HO2=0.0
-!
-!WC_CO2/WC_CO2=-KTC44
- PJAC(:,100,100)=-TPK%KTC44(:)
-!
-!WC_CO2/WC_SO2=0.0
-!
-!WC_CO2/WC_H2SO4=0.0
-!
-!WC_CO2/WC_RO21=0.0
-!
-!WC_CO2/WC_RO25=0.0
-!
-!WC_CO2/WC_MEOH=0.0
-!
-!WC_CO2/WC_ETOH=0.0
-!
-!WC_CO2/WC_ALCH=0.0
-!
-!WC_CO2/WC_HCHO=0.0
-!
-!WC_CO2/WC_ALD2=+KC34*<WC_OH>
- PJAC(:,100,109)=+TPK%KC34(:)*PCONC(:,98)
-!
-!WC_CO2/WC_GLY=0.0
-!
-!WC_CO2/WC_MGLY=0.0
-!
-!WC_CO2/WC_KETL=+KC37*<WC_OH>
- PJAC(:,100,112)=+TPK%KC37(:)*PCONC(:,98)
-!
-!WC_CO2/WC_ORA1=+KC38*<WC_OH>
- PJAC(:,100,113)=+TPK%KC38(:)*PCONC(:,98)
-!
-!WC_CO2/WC_ORA2=0.0
-!
-!WC_CO2/WC_ACID=+KC40*<WC_OH>
- PJAC(:,100,115)=+TPK%KC40(:)*PCONC(:,98)
-!
-!WC_CO2/WC_RP16=+2*KC45*<WC_OH>
- PJAC(:,100,116)=+2*TPK%KC45(:)*PCONC(:,98)
-!
-!WC_CO2/WC_UR21=+0.43*KC43*<WC_OH>
- PJAC(:,100,117)=+0.43*TPK%KC43(:)*PCONC(:,98)
-!
-!WC_CO2/WC_UR28=+2*KC42*<WC_OH>
- PJAC(:,100,118)=+2*TPK%KC42(:)*PCONC(:,98)
-!
-!WC_CO2/WC_ACID2=0.0
-!
-!WC_CO2/WC_ASO3=0.0
-!
-!WC_CO2/WC_ASO4=0.0
-!
-!WC_CO2/WC_ASO5=0.0
-!
-!WC_CO2/WC_AHSO5=0.0
-!
-!WC_CO2/WC_AHMS=0.0
-!
-!WC_CO2/WR_O3=0.0
-!
-!WC_CO2/WR_H2O2=0.0
-!
-!WC_CO2/WR_NO=0.0
-!
-!WC_CO2/WR_NO2=0.0
-!
-!WC_CO2/WR_NO3=0.0
-!
-!WC_CO2/WR_N2O5=0.0
-!
-!WC_CO2/WR_HONO=0.0
-!
-!WC_CO2/WR_HNO3=0.0
-!
-!WC_CO2/WR_HNO4=0.0
-!
-!WC_CO2/WR_NH3=0.0
-!
-!WC_CO2/WR_OH=0.0
-!
-!WC_CO2/WR_HO2=0.0
-!
-!WC_CO2/WR_CO2=0.0
-!
-!WC_CO2/WR_SO2=0.0
-!
-!WC_CO2/WR_H2SO4=0.0
-!
-!WC_CO2/WR_RO21=0.0
-!
-!WC_CO2/WR_RO25=0.0
-!
-!WC_CO2/WR_MEOH=0.0
-!
-!WC_CO2/WR_ETOH=0.0
-!
-!WC_CO2/WR_ALCH=0.0
-!
-!WC_CO2/WR_HCHO=0.0
-!
-!WC_CO2/WR_ALD2=0.0
-!
-!WC_CO2/WR_GLY=0.0
-!
-!WC_CO2/WR_MGLY=0.0
-!
-!WC_CO2/WR_KETL=0.0
-!
-!WC_CO2/WR_ORA1=0.0
-!
-!WC_CO2/WR_ORA2=0.0
-!
-!WC_CO2/WR_ACID=0.0
-!
-!WC_CO2/WR_RP16=0.0
-!
-!WC_CO2/WR_UR21=0.0
-!
-!WC_CO2/WR_UR28=0.0
-!
-!WC_CO2/WR_ACID2=0.0
-!
-!WC_CO2/WR_ASO3=0.0
-!
-!WC_CO2/WR_ASO4=0.0
-!
-!WC_CO2/WR_ASO5=0.0
-!
-!WC_CO2/WR_AHSO5=0.0
-!
-!WC_CO2/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ19
-!
-SUBROUTINE SUBJ20
-!
-!Indices 101 a 105
-!
-!
-!WC_SO2/NO=0.0
-!
-!WC_SO2/NO2=0.0
-!
-!WC_SO2/O3=0.0
-!
-!WC_SO2/HONO=0.0
-!
-!WC_SO2/HNO3=0.0
-!
-!WC_SO2/HNO4=0.0
-!
-!WC_SO2/N2O5=0.0
-!
-!WC_SO2/NO3=0.0
-!
-!WC_SO2/NH3=0.0
-!
-!WC_SO2/HO2=0.0
-!
-!WC_SO2/CO=0.0
-!
-!WC_SO2/H2O2=0.0
-!
-!WC_SO2/SO2=+KTC14
- PJAC(:,101,13)=+TPK%KTC14(:)
-!
-!WC_SO2/H2SO4=0.0
-!
-!WC_SO2/OH=0.0
-!
-!WC_SO2/ETHE=0.0
-!
-!WC_SO2/OLEL=0.0
-!
-!WC_SO2/OLEH=0.0
-!
-!WC_SO2/ALKL=0.0
-!
-!WC_SO2/ALKM=0.0
-!
-!WC_SO2/ALKH=0.0
-!
-!WC_SO2/AROH=0.0
-!
-!WC_SO2/AROL=0.0
-!
-!WC_SO2/AROO=0.0
-!
-!WC_SO2/ARAL=0.0
-!
-!WC_SO2/ARAC=0.0
-!
-!WC_SO2/PAH=0.0
-!
-!WC_SO2/HCHO=0.0
-!
-!WC_SO2/ALD2=0.0
-!
-!WC_SO2/KETL=0.0
-!
-!WC_SO2/KETH=0.0
-!
-!WC_SO2/MEOH=0.0
-!
-!WC_SO2/ETOH=0.0
-!
-!WC_SO2/ALCH=0.0
-!
-!WC_SO2/ISOP=0.0
-!
-!WC_SO2/BIOL=0.0
-!
-!WC_SO2/BIOH=0.0
-!
-!WC_SO2/MTBE=0.0
-!
-!WC_SO2/MVK=0.0
-!
-!WC_SO2/MCR=0.0
-!
-!WC_SO2/MGLY=0.0
-!
-!WC_SO2/GLY=0.0
-!
-!WC_SO2/ORA1=0.0
-!
-!WC_SO2/ORA2=0.0
-!
-!WC_SO2/ACID=0.0
-!
-!WC_SO2/UR28=0.0
-!
-!WC_SO2/UR21=0.0
-!
-!WC_SO2/URG2=0.0
-!
-!WC_SO2/UR26=0.0
-!
-!WC_SO2/RPG2=0.0
-!
-!WC_SO2/RP18=0.0
-!
-!WC_SO2/RPG3=0.0
-!
-!WC_SO2/URG4=0.0
-!
-!WC_SO2/UR8=0.0
-!
-!WC_SO2/UR17=0.0
-!
-!WC_SO2/UR7=0.0
-!
-!WC_SO2/RPR3=0.0
-!
-!WC_SO2/URG6=0.0
-!
-!WC_SO2/UR22=0.0
-!
-!WC_SO2/URG7=0.0
-!
-!WC_SO2/RPR4=0.0
-!
-!WC_SO2/RPR7=0.0
-!
-!WC_SO2/RPG7=0.0
-!
-!WC_SO2/URG8=0.0
-!
-!WC_SO2/UR19=0.0
-!
-!WC_SO2/URG9=0.0
-!
-!WC_SO2/AP7=0.0
-!
-!WC_SO2/URG10=0.0
-!
-!WC_SO2/RPR1=0.0
-!
-!WC_SO2/RPR5=0.0
-!
-!WC_SO2/RPR8=0.0
-!
-!WC_SO2/RP10=0.0
-!
-!WC_SO2/RP11=0.0
-!
-!WC_SO2/RP16=0.0
-!
-!WC_SO2/RPRL=0.0
-!
-!WC_SO2/APAN=0.0
-!
-!WC_SO2/PAN1=0.0
-!
-!WC_SO2/PAN2=0.0
-!
-!WC_SO2/PAN3=0.0
-!
-!WC_SO2/PAN4=0.0
-!
-!WC_SO2/PAN6=0.0
-!
-!WC_SO2/PAN7=0.0
-!
-!WC_SO2/PAN8=0.0
-!
-!WC_SO2/PN10=0.0
-!
-!WC_SO2/RO2T=0.0
-!
-!WC_SO2/RO21=0.0
-!
-!WC_SO2/RO25=0.0
-!
-!WC_SO2/WC_O3=-KC25*<WC_SO2>
- PJAC(:,101,88)=-TPK%KC25(:)*PCONC(:,101)
-!
-!WC_SO2/WC_H2O2=-KC26*<WC_SO2>
- PJAC(:,101,89)=-TPK%KC26(:)*PCONC(:,101)
-!
-!WC_SO2/WC_NO=0.0
-!
-!WC_SO2/WC_NO2=0.0
-!
-!WC_SO2/WC_NO3=-KC16*<WC_SO2>
- PJAC(:,101,92)=-TPK%KC16(:)*PCONC(:,101)
-!
-!WC_SO2/WC_N2O5=0.0
-!
-!WC_SO2/WC_HONO=0.0
-!
-!WC_SO2/WC_HNO3=0.0
-!
-!WC_SO2/WC_HNO4=-KC12*<WC_SO2>
- PJAC(:,101,96)=-TPK%KC12(:)*PCONC(:,101)
-!
-!WC_SO2/WC_NH3=0.0
-!
-!WC_SO2/WC_OH=-KC7*<WC_SO2>+KC19*<WC_AHMS>
- PJAC(:,101,98)=-TPK%KC7(:)*PCONC(:,101)+TPK%KC19(:)*PCONC(:,124)
-!
-!WC_SO2/WC_HO2=0.0
-!
-!WC_SO2/WC_CO2=0.0
-!
-!WC_SO2/WC_SO2=-KTC45-KC7*<WC_OH>-KC12*<WC_HNO4>-KC16*<WC_NO3>-KC17*<WC_HCHO>-K
-!C23*<WC_AHSO5>-KC25*<WC_O3>-KC26*<WC_H2O2>-KC28*<WC_RO21>
- PJAC(:,101,101)=-TPK%KTC45(:)-TPK%KC7(:)*PCONC(:,98)-TPK%KC12(:)*PCONC(:,96)-T&
-&PK%KC16(:)*PCONC(:,92)-TPK%KC17(:)*PCONC(:,108)-TPK%KC23(:)*PCONC(:,123)-TPK%K&
-&C25(:)*PCONC(:,88)-TPK%KC26(:)*PCONC(:,89)-TPK%KC28(:)*PCONC(:,103)
-!
-!WC_SO2/WC_H2SO4=0.0
-!
-!WC_SO2/WC_RO21=-KC28*<WC_SO2>
- PJAC(:,101,103)=-TPK%KC28(:)*PCONC(:,101)
-!
-!WC_SO2/WC_RO25=0.0
-!
-!WC_SO2/WC_MEOH=0.0
-!
-!WC_SO2/WC_ETOH=0.0
-!
-!WC_SO2/WC_ALCH=0.0
-!
-!WC_SO2/WC_HCHO=-KC17*<WC_SO2>
- PJAC(:,101,108)=-TPK%KC17(:)*PCONC(:,101)
-!
-!WC_SO2/WC_ALD2=0.0
-!
-!WC_SO2/WC_GLY=0.0
-!
-!WC_SO2/WC_MGLY=0.0
-!
-!WC_SO2/WC_KETL=0.0
-!
-!WC_SO2/WC_ORA1=0.0
-!
-!WC_SO2/WC_ORA2=0.0
-!
-!WC_SO2/WC_ACID=0.0
-!
-!WC_SO2/WC_RP16=0.0
-!
-!WC_SO2/WC_UR21=0.0
-!
-!WC_SO2/WC_UR28=0.0
-!
-!WC_SO2/WC_ACID2=0.0
-!
-!WC_SO2/WC_ASO3=0.0
-!
-!WC_SO2/WC_ASO4=0.0
-!
-!WC_SO2/WC_ASO5=0.0
-!
-!WC_SO2/WC_AHSO5=-KC23*<WC_SO2>
- PJAC(:,101,123)=-TPK%KC23(:)*PCONC(:,101)
-!
-!WC_SO2/WC_AHMS=+KC18+KC19*<WC_OH>
- PJAC(:,101,124)=+TPK%KC18(:)+TPK%KC19(:)*PCONC(:,98)
-!
-!WC_SO2/WR_O3=0.0
-!
-!WC_SO2/WR_H2O2=0.0
-!
-!WC_SO2/WR_NO=0.0
-!
-!WC_SO2/WR_NO2=0.0
-!
-!WC_SO2/WR_NO3=0.0
-!
-!WC_SO2/WR_N2O5=0.0
-!
-!WC_SO2/WR_HONO=0.0
-!
-!WC_SO2/WR_HNO3=0.0
-!
-!WC_SO2/WR_HNO4=0.0
-!
-!WC_SO2/WR_NH3=0.0
-!
-!WC_SO2/WR_OH=0.0
-!
-!WC_SO2/WR_HO2=0.0
-!
-!WC_SO2/WR_CO2=0.0
-!
-!WC_SO2/WR_SO2=0.0
-!
-!WC_SO2/WR_H2SO4=0.0
-!
-!WC_SO2/WR_RO21=0.0
-!
-!WC_SO2/WR_RO25=0.0
-!
-!WC_SO2/WR_MEOH=0.0
-!
-!WC_SO2/WR_ETOH=0.0
-!
-!WC_SO2/WR_ALCH=0.0
-!
-!WC_SO2/WR_HCHO=0.0
-!
-!WC_SO2/WR_ALD2=0.0
-!
-!WC_SO2/WR_GLY=0.0
-!
-!WC_SO2/WR_MGLY=0.0
-!
-!WC_SO2/WR_KETL=0.0
-!
-!WC_SO2/WR_ORA1=0.0
-!
-!WC_SO2/WR_ORA2=0.0
-!
-!WC_SO2/WR_ACID=0.0
-!
-!WC_SO2/WR_RP16=0.0
-!
-!WC_SO2/WR_UR21=0.0
-!
-!WC_SO2/WR_UR28=0.0
-!
-!WC_SO2/WR_ACID2=0.0
-!
-!WC_SO2/WR_ASO3=0.0
-!
-!WC_SO2/WR_ASO4=0.0
-!
-!WC_SO2/WR_ASO5=0.0
-!
-!WC_SO2/WR_AHSO5=0.0
-!
-!WC_SO2/WR_AHMS=0.0
-!
-!WC_H2SO4/NO=0.0
-!
-!WC_H2SO4/NO2=0.0
-!
-!WC_H2SO4/O3=0.0
-!
-!WC_H2SO4/HONO=0.0
-!
-!WC_H2SO4/HNO3=0.0
-!
-!WC_H2SO4/HNO4=0.0
-!
-!WC_H2SO4/N2O5=0.0
-!
-!WC_H2SO4/NO3=0.0
-!
-!WC_H2SO4/NH3=0.0
-!
-!WC_H2SO4/HO2=0.0
-!
-!WC_H2SO4/CO=0.0
-!
-!WC_H2SO4/H2O2=0.0
-!
-!WC_H2SO4/SO2=0.0
-!
-!WC_H2SO4/H2SO4=+KTC15
- PJAC(:,102,14)=+TPK%KTC15(:)
-!
-!WC_H2SO4/OH=0.0
-!
-!WC_H2SO4/ETHE=0.0
-!
-!WC_H2SO4/OLEL=0.0
-!
-!WC_H2SO4/OLEH=0.0
-!
-!WC_H2SO4/ALKL=0.0
-!
-!WC_H2SO4/ALKM=0.0
-!
-!WC_H2SO4/ALKH=0.0
-!
-!WC_H2SO4/AROH=0.0
-!
-!WC_H2SO4/AROL=0.0
-!
-!WC_H2SO4/AROO=0.0
-!
-!WC_H2SO4/ARAL=0.0
-!
-!WC_H2SO4/ARAC=0.0
-!
-!WC_H2SO4/PAH=0.0
-!
-!WC_H2SO4/HCHO=0.0
-!
-!WC_H2SO4/ALD2=0.0
-!
-!WC_H2SO4/KETL=0.0
-!
-!WC_H2SO4/KETH=0.0
-!
-!WC_H2SO4/MEOH=0.0
-!
-!WC_H2SO4/ETOH=0.0
-!
-!WC_H2SO4/ALCH=0.0
-!
-!WC_H2SO4/ISOP=0.0
-!
-!WC_H2SO4/BIOL=0.0
-!
-!WC_H2SO4/BIOH=0.0
-!
-!WC_H2SO4/MTBE=0.0
-!
-!WC_H2SO4/MVK=0.0
-!
-!WC_H2SO4/MCR=0.0
-!
-!WC_H2SO4/MGLY=0.0
-!
-!WC_H2SO4/GLY=0.0
-!
-!WC_H2SO4/ORA1=0.0
-!
-!WC_H2SO4/ORA2=0.0
-!
-!WC_H2SO4/ACID=0.0
-!
-!WC_H2SO4/UR28=0.0
-!
-!WC_H2SO4/UR21=0.0
-!
-!WC_H2SO4/URG2=0.0
-!
-!WC_H2SO4/UR26=0.0
-!
-!WC_H2SO4/RPG2=0.0
-!
-!WC_H2SO4/RP18=0.0
-!
-!WC_H2SO4/RPG3=0.0
-!
-!WC_H2SO4/URG4=0.0
-!
-!WC_H2SO4/UR8=0.0
-!
-!WC_H2SO4/UR17=0.0
-!
-!WC_H2SO4/UR7=0.0
-!
-!WC_H2SO4/RPR3=0.0
-!
-!WC_H2SO4/URG6=0.0
-!
-!WC_H2SO4/UR22=0.0
-!
-!WC_H2SO4/URG7=0.0
-!
-!WC_H2SO4/RPR4=0.0
-!
-!WC_H2SO4/RPR7=0.0
-!
-!WC_H2SO4/RPG7=0.0
-!
-!WC_H2SO4/URG8=0.0
-!
-!WC_H2SO4/UR19=0.0
-!
-!WC_H2SO4/URG9=0.0
-!
-!WC_H2SO4/AP7=0.0
-!
-!WC_H2SO4/URG10=0.0
-!
-!WC_H2SO4/RPR1=0.0
-!
-!WC_H2SO4/RPR5=0.0
-!
-!WC_H2SO4/RPR8=0.0
-!
-!WC_H2SO4/RP10=0.0
-!
-!WC_H2SO4/RP11=0.0
-!
-!WC_H2SO4/RP16=0.0
-!
-!WC_H2SO4/RPRL=0.0
-!
-!WC_H2SO4/APAN=0.0
-!
-!WC_H2SO4/PAN1=0.0
-!
-!WC_H2SO4/PAN2=0.0
-!
-!WC_H2SO4/PAN3=0.0
-!
-!WC_H2SO4/PAN4=0.0
-!
-!WC_H2SO4/PAN6=0.0
-!
-!WC_H2SO4/PAN7=0.0
-!
-!WC_H2SO4/PAN8=0.0
-!
-!WC_H2SO4/PN10=0.0
-!
-!WC_H2SO4/RO2T=0.0
-!
-!WC_H2SO4/RO21=0.0
-!
-!WC_H2SO4/RO25=0.0
-!
-!WC_H2SO4/WC_O3=+KC25*<WC_SO2>
- PJAC(:,102,88)=+TPK%KC25(:)*PCONC(:,101)
-!
-!WC_H2SO4/WC_H2O2=+KC26*<WC_SO2>
- PJAC(:,102,89)=+TPK%KC26(:)*PCONC(:,101)
-!
-!WC_H2SO4/WC_NO=0.0
-!
-!WC_H2SO4/WC_NO2=0.0
-!
-!WC_H2SO4/WC_NO3=-KC15*<WC_H2SO4>
- PJAC(:,102,92)=-TPK%KC15(:)*PCONC(:,102)
-!
-!WC_H2SO4/WC_N2O5=0.0
-!
-!WC_H2SO4/WC_HONO=0.0
-!
-!WC_H2SO4/WC_HNO3=0.0
-!
-!WC_H2SO4/WC_HNO4=+KC12*<WC_SO2>
- PJAC(:,102,96)=+TPK%KC12(:)*PCONC(:,101)
-!
-!WC_H2SO4/WC_NH3=0.0
-!
-!WC_H2SO4/WC_OH=0.0
-!
-!WC_H2SO4/WC_HO2=0.0
-!
-!WC_H2SO4/WC_CO2=0.0
-!
-!WC_H2SO4/WC_SO2=+KC12*<WC_HNO4>+2.00*KC23*<WC_AHSO5>+KC25*<WC_O3>+KC26*<WC_H2O
-!2>
- PJAC(:,102,101)=+TPK%KC12(:)*PCONC(:,96)+2.00*TPK%KC23(:)*PCONC(:,123)+TPK%KC2&
-&5(:)*PCONC(:,88)+TPK%KC26(:)*PCONC(:,89)
-!
-!WC_H2SO4/WC_H2SO4=-KTC46-KC15*<WC_NO3>
- PJAC(:,102,102)=-TPK%KTC46(:)-TPK%KC15(:)*PCONC(:,92)
-!
-!WC_H2SO4/WC_RO21=0.0
-!
-!WC_H2SO4/WC_RO25=0.0
-!
-!WC_H2SO4/WC_MEOH=0.0
-!
-!WC_H2SO4/WC_ETOH=0.0
-!
-!WC_H2SO4/WC_ALCH=0.0
-!
-!WC_H2SO4/WC_HCHO=0.0
-!
-!WC_H2SO4/WC_ALD2=0.0
-!
-!WC_H2SO4/WC_GLY=0.0
-!
-!WC_H2SO4/WC_MGLY=0.0
-!
-!WC_H2SO4/WC_KETL=0.0
-!
-!WC_H2SO4/WC_ORA1=0.0
-!
-!WC_H2SO4/WC_ORA2=0.0
-!
-!WC_H2SO4/WC_ACID=0.0
-!
-!WC_H2SO4/WC_RP16=0.0
-!
-!WC_H2SO4/WC_UR21=0.0
-!
-!WC_H2SO4/WC_UR28=0.0
-!
-!WC_H2SO4/WC_ACID2=0.0
-!
-!WC_H2SO4/WC_ASO3=0.0
-!
-!WC_H2SO4/WC_ASO4=+KC24
- PJAC(:,102,121)=+TPK%KC24(:)
-!
-!WC_H2SO4/WC_ASO5=0.0
-!
-!WC_H2SO4/WC_AHSO5=+2.00*KC23*<WC_SO2>
- PJAC(:,102,123)=+2.00*TPK%KC23(:)*PCONC(:,101)
-!
-!WC_H2SO4/WC_AHMS=0.0
-!
-!WC_H2SO4/WR_O3=0.0
-!
-!WC_H2SO4/WR_H2O2=0.0
-!
-!WC_H2SO4/WR_NO=0.0
-!
-!WC_H2SO4/WR_NO2=0.0
-!
-!WC_H2SO4/WR_NO3=0.0
-!
-!WC_H2SO4/WR_N2O5=0.0
-!
-!WC_H2SO4/WR_HONO=0.0
-!
-!WC_H2SO4/WR_HNO3=0.0
-!
-!WC_H2SO4/WR_HNO4=0.0
-!
-!WC_H2SO4/WR_NH3=0.0
-!
-!WC_H2SO4/WR_OH=0.0
-!
-!WC_H2SO4/WR_HO2=0.0
-!
-!WC_H2SO4/WR_CO2=0.0
-!
-!WC_H2SO4/WR_SO2=0.0
-!
-!WC_H2SO4/WR_H2SO4=0.0
-!
-!WC_H2SO4/WR_RO21=0.0
-!
-!WC_H2SO4/WR_RO25=0.0
-!
-!WC_H2SO4/WR_MEOH=0.0
-!
-!WC_H2SO4/WR_ETOH=0.0
-!
-!WC_H2SO4/WR_ALCH=0.0
-!
-!WC_H2SO4/WR_HCHO=0.0
-!
-!WC_H2SO4/WR_ALD2=0.0
-!
-!WC_H2SO4/WR_GLY=0.0
-!
-!WC_H2SO4/WR_MGLY=0.0
-!
-!WC_H2SO4/WR_KETL=0.0
-!
-!WC_H2SO4/WR_ORA1=0.0
-!
-!WC_H2SO4/WR_ORA2=0.0
-!
-!WC_H2SO4/WR_ACID=0.0
-!
-!WC_H2SO4/WR_RP16=0.0
-!
-!WC_H2SO4/WR_UR21=0.0
-!
-!WC_H2SO4/WR_UR28=0.0
-!
-!WC_H2SO4/WR_ACID2=0.0
-!
-!WC_H2SO4/WR_ASO3=0.0
-!
-!WC_H2SO4/WR_ASO4=0.0
-!
-!WC_H2SO4/WR_ASO5=0.0
-!
-!WC_H2SO4/WR_AHSO5=0.0
-!
-!WC_H2SO4/WR_AHMS=0.0
-!
-!WC_RO21/NO=0.0
-!
-!WC_RO21/NO2=0.0
-!
-!WC_RO21/O3=0.0
-!
-!WC_RO21/HONO=0.0
-!
-!WC_RO21/HNO3=0.0
-!
-!WC_RO21/HNO4=0.0
-!
-!WC_RO21/N2O5=0.0
-!
-!WC_RO21/NO3=0.0
-!
-!WC_RO21/NH3=0.0
-!
-!WC_RO21/HO2=0.0
-!
-!WC_RO21/CO=0.0
-!
-!WC_RO21/H2O2=0.0
-!
-!WC_RO21/SO2=0.0
-!
-!WC_RO21/H2SO4=0.0
-!
-!WC_RO21/OH=0.0
-!
-!WC_RO21/ETHE=0.0
-!
-!WC_RO21/OLEL=0.0
-!
-!WC_RO21/OLEH=0.0
-!
-!WC_RO21/ALKL=0.0
-!
-!WC_RO21/ALKM=0.0
-!
-!WC_RO21/ALKH=0.0
-!
-!WC_RO21/AROH=0.0
-!
-!WC_RO21/AROL=0.0
-!
-!WC_RO21/AROO=0.0
-!
-!WC_RO21/ARAL=0.0
-!
-!WC_RO21/ARAC=0.0
-!
-!WC_RO21/PAH=0.0
-!
-!WC_RO21/HCHO=0.0
-!
-!WC_RO21/ALD2=0.0
-!
-!WC_RO21/KETL=0.0
-!
-!WC_RO21/KETH=0.0
-!
-!WC_RO21/MEOH=0.0
-!
-!WC_RO21/ETOH=0.0
-!
-!WC_RO21/ALCH=0.0
-!
-!WC_RO21/ISOP=0.0
-!
-!WC_RO21/BIOL=0.0
-!
-!WC_RO21/BIOH=0.0
-!
-!WC_RO21/MTBE=0.0
-!
-!WC_RO21/MVK=0.0
-!
-!WC_RO21/MCR=0.0
-!
-!WC_RO21/MGLY=0.0
-!
-!WC_RO21/GLY=0.0
-!
-!WC_RO21/ORA1=0.0
-!
-!WC_RO21/ORA2=0.0
-!
-!WC_RO21/ACID=0.0
-!
-!WC_RO21/UR28=0.0
-!
-!WC_RO21/UR21=0.0
-!
-!WC_RO21/URG2=0.0
-!
-!WC_RO21/UR26=0.0
-!
-!WC_RO21/RPG2=0.0
-!
-!WC_RO21/RP18=0.0
-!
-!WC_RO21/RPG3=0.0
-!
-!WC_RO21/URG4=0.0
-!
-!WC_RO21/UR8=0.0
-!
-!WC_RO21/UR17=0.0
-!
-!WC_RO21/UR7=0.0
-!
-!WC_RO21/RPR3=0.0
-!
-!WC_RO21/URG6=0.0
-!
-!WC_RO21/UR22=0.0
-!
-!WC_RO21/URG7=0.0
-!
-!WC_RO21/RPR4=0.0
-!
-!WC_RO21/RPR7=0.0
-!
-!WC_RO21/RPG7=0.0
-!
-!WC_RO21/URG8=0.0
-!
-!WC_RO21/UR19=0.0
-!
-!WC_RO21/URG9=0.0
-!
-!WC_RO21/AP7=0.0
-!
-!WC_RO21/URG10=0.0
-!
-!WC_RO21/RPR1=0.0
-!
-!WC_RO21/RPR5=0.0
-!
-!WC_RO21/RPR8=0.0
-!
-!WC_RO21/RP10=0.0
-!
-!WC_RO21/RP11=0.0
-!
-!WC_RO21/RP16=0.0
-!
-!WC_RO21/RPRL=0.0
-!
-!WC_RO21/APAN=0.0
-!
-!WC_RO21/PAN1=0.0
-!
-!WC_RO21/PAN2=0.0
-!
-!WC_RO21/PAN3=0.0
-!
-!WC_RO21/PAN4=0.0
-!
-!WC_RO21/PAN6=0.0
-!
-!WC_RO21/PAN7=0.0
-!
-!WC_RO21/PAN8=0.0
-!
-!WC_RO21/PN10=0.0
-!
-!WC_RO21/RO2T=0.0
-!
-!WC_RO21/RO21=+KTC16
- PJAC(:,103,86)=+TPK%KTC16(:)
-!
-!WC_RO21/RO25=0.0
-!
-!WC_RO21/WC_O3=0.0
-!
-!WC_RO21/WC_H2O2=0.0
-!
-!WC_RO21/WC_NO=0.0
-!
-!WC_RO21/WC_NO2=0.0
-!
-!WC_RO21/WC_NO3=0.0
-!
-!WC_RO21/WC_N2O5=0.0
-!
-!WC_RO21/WC_HONO=0.0
-!
-!WC_RO21/WC_HNO3=0.0
-!
-!WC_RO21/WC_HNO4=0.0
-!
-!WC_RO21/WC_NH3=0.0
-!
-!WC_RO21/WC_OH=+0.50*KC34*<WC_ALD2>+KC37*<WC_KETL>
- PJAC(:,103,98)=+0.50*TPK%KC34(:)*PCONC(:,109)+TPK%KC37(:)*PCONC(:,112)
-!
-!WC_RO21/WC_HO2=0.0
-!
-!WC_RO21/WC_CO2=0.0
-!
-!WC_RO21/WC_SO2=-KC28*<WC_RO21>
- PJAC(:,103,101)=-TPK%KC28(:)*PCONC(:,103)
-!
-!WC_RO21/WC_H2SO4=0.0
-!
-!WC_RO21/WC_RO21=-KTC47-KC27*<WC_RO21>-KC27*<WC_RO21>-KC27*<WC_RO21>-KC27*<WC_R
-!O21>-KC28*<WC_SO2>
- PJAC(:,103,103)=-TPK%KTC47(:)-TPK%KC27(:)*PCONC(:,103)-TPK%KC27(:)*PCONC(:,103&
-&)-TPK%KC27(:)*PCONC(:,103)-TPK%KC27(:)*PCONC(:,103)-TPK%KC28(:)*PCONC(:,101)
-!
-!WC_RO21/WC_RO25=0.0
-!
-!WC_RO21/WC_MEOH=0.0
-!
-!WC_RO21/WC_ETOH=0.0
-!
-!WC_RO21/WC_ALCH=0.0
-!
-!WC_RO21/WC_HCHO=0.0
-!
-!WC_RO21/WC_ALD2=+0.50*KC34*<WC_OH>
- PJAC(:,103,109)=+0.50*TPK%KC34(:)*PCONC(:,98)
-!
-!WC_RO21/WC_GLY=0.0
-!
-!WC_RO21/WC_MGLY=0.0
-!
-!WC_RO21/WC_KETL=+KC37*<WC_OH>
- PJAC(:,103,112)=+TPK%KC37(:)*PCONC(:,98)
-!
-!WC_RO21/WC_ORA1=0.0
-!
-!WC_RO21/WC_ORA2=0.0
-!
-!WC_RO21/WC_ACID=0.0
-!
-!WC_RO21/WC_RP16=0.0
-!
-!WC_RO21/WC_UR21=0.0
-!
-!WC_RO21/WC_UR28=0.0
-!
-!WC_RO21/WC_ACID2=0.0
-!
-!WC_RO21/WC_ASO3=0.0
-!
-!WC_RO21/WC_ASO4=0.0
-!
-!WC_RO21/WC_ASO5=0.0
-!
-!WC_RO21/WC_AHSO5=0.0
-!
-!WC_RO21/WC_AHMS=0.0
-!
-!WC_RO21/WR_O3=0.0
-!
-!WC_RO21/WR_H2O2=0.0
-!
-!WC_RO21/WR_NO=0.0
-!
-!WC_RO21/WR_NO2=0.0
-!
-!WC_RO21/WR_NO3=0.0
-!
-!WC_RO21/WR_N2O5=0.0
-!
-!WC_RO21/WR_HONO=0.0
-!
-!WC_RO21/WR_HNO3=0.0
-!
-!WC_RO21/WR_HNO4=0.0
-!
-!WC_RO21/WR_NH3=0.0
-!
-!WC_RO21/WR_OH=0.0
-!
-!WC_RO21/WR_HO2=0.0
-!
-!WC_RO21/WR_CO2=0.0
-!
-!WC_RO21/WR_SO2=0.0
-!
-!WC_RO21/WR_H2SO4=0.0
-!
-!WC_RO21/WR_RO21=0.0
-!
-!WC_RO21/WR_RO25=0.0
-!
-!WC_RO21/WR_MEOH=0.0
-!
-!WC_RO21/WR_ETOH=0.0
-!
-!WC_RO21/WR_ALCH=0.0
-!
-!WC_RO21/WR_HCHO=0.0
-!
-!WC_RO21/WR_ALD2=0.0
-!
-!WC_RO21/WR_GLY=0.0
-!
-!WC_RO21/WR_MGLY=0.0
-!
-!WC_RO21/WR_KETL=0.0
-!
-!WC_RO21/WR_ORA1=0.0
-!
-!WC_RO21/WR_ORA2=0.0
-!
-!WC_RO21/WR_ACID=0.0
-!
-!WC_RO21/WR_RP16=0.0
-!
-!WC_RO21/WR_UR21=0.0
-!
-!WC_RO21/WR_UR28=0.0
-!
-!WC_RO21/WR_ACID2=0.0
-!
-!WC_RO21/WR_ASO3=0.0
-!
-!WC_RO21/WR_ASO4=0.0
-!
-!WC_RO21/WR_ASO5=0.0
-!
-!WC_RO21/WR_AHSO5=0.0
-!
-!WC_RO21/WR_AHMS=0.0
-!
-!WC_RO25/NO=0.0
-!
-!WC_RO25/NO2=0.0
-!
-!WC_RO25/O3=0.0
-!
-!WC_RO25/HONO=0.0
-!
-!WC_RO25/HNO3=0.0
-!
-!WC_RO25/HNO4=0.0
-!
-!WC_RO25/N2O5=0.0
-!
-!WC_RO25/NO3=0.0
-!
-!WC_RO25/NH3=0.0
-!
-!WC_RO25/HO2=0.0
-!
-!WC_RO25/CO=0.0
-!
-!WC_RO25/H2O2=0.0
-!
-!WC_RO25/SO2=0.0
-!
-!WC_RO25/H2SO4=0.0
-!
-!WC_RO25/OH=0.0
-!
-!WC_RO25/ETHE=0.0
-!
-!WC_RO25/OLEL=0.0
-!
-!WC_RO25/OLEH=0.0
-!
-!WC_RO25/ALKL=0.0
-!
-!WC_RO25/ALKM=0.0
-!
-!WC_RO25/ALKH=0.0
-!
-!WC_RO25/AROH=0.0
-!
-!WC_RO25/AROL=0.0
-!
-!WC_RO25/AROO=0.0
-!
-!WC_RO25/ARAL=0.0
-!
-!WC_RO25/ARAC=0.0
-!
-!WC_RO25/PAH=0.0
-!
-!WC_RO25/HCHO=0.0
-!
-!WC_RO25/ALD2=0.0
-!
-!WC_RO25/KETL=0.0
-!
-!WC_RO25/KETH=0.0
-!
-!WC_RO25/MEOH=0.0
-!
-!WC_RO25/ETOH=0.0
-!
-!WC_RO25/ALCH=0.0
-!
-!WC_RO25/ISOP=0.0
-!
-!WC_RO25/BIOL=0.0
-!
-!WC_RO25/BIOH=0.0
-!
-!WC_RO25/MTBE=0.0
-!
-!WC_RO25/MVK=0.0
-!
-!WC_RO25/MCR=0.0
-!
-!WC_RO25/MGLY=0.0
-!
-!WC_RO25/GLY=0.0
-!
-!WC_RO25/ORA1=0.0
-!
-!WC_RO25/ORA2=0.0
-!
-!WC_RO25/ACID=0.0
-!
-!WC_RO25/UR28=0.0
-!
-!WC_RO25/UR21=0.0
-!
-!WC_RO25/URG2=0.0
-!
-!WC_RO25/UR26=0.0
-!
-!WC_RO25/RPG2=0.0
-!
-!WC_RO25/RP18=0.0
-!
-!WC_RO25/RPG3=0.0
-!
-!WC_RO25/URG4=0.0
-!
-!WC_RO25/UR8=0.0
-!
-!WC_RO25/UR17=0.0
-!
-!WC_RO25/UR7=0.0
-!
-!WC_RO25/RPR3=0.0
-!
-!WC_RO25/URG6=0.0
-!
-!WC_RO25/UR22=0.0
-!
-!WC_RO25/URG7=0.0
-!
-!WC_RO25/RPR4=0.0
-!
-!WC_RO25/RPR7=0.0
-!
-!WC_RO25/RPG7=0.0
-!
-!WC_RO25/URG8=0.0
-!
-!WC_RO25/UR19=0.0
-!
-!WC_RO25/URG9=0.0
-!
-!WC_RO25/AP7=0.0
-!
-!WC_RO25/URG10=0.0
-!
-!WC_RO25/RPR1=0.0
-!
-!WC_RO25/RPR5=0.0
-!
-!WC_RO25/RPR8=0.0
-!
-!WC_RO25/RP10=0.0
-!
-!WC_RO25/RP11=0.0
-!
-!WC_RO25/RP16=0.0
-!
-!WC_RO25/RPRL=0.0
-!
-!WC_RO25/APAN=0.0
-!
-!WC_RO25/PAN1=0.0
-!
-!WC_RO25/PAN2=0.0
-!
-!WC_RO25/PAN3=0.0
-!
-!WC_RO25/PAN4=0.0
-!
-!WC_RO25/PAN6=0.0
-!
-!WC_RO25/PAN7=0.0
-!
-!WC_RO25/PAN8=0.0
-!
-!WC_RO25/PN10=0.0
-!
-!WC_RO25/RO2T=0.0
-!
-!WC_RO25/RO21=0.0
-!
-!WC_RO25/RO25=+KTC17
- PJAC(:,104,87)=+TPK%KTC17(:)
-!
-!WC_RO25/WC_O3=0.0
-!
-!WC_RO25/WC_H2O2=0.0
-!
-!WC_RO25/WC_NO=0.0
-!
-!WC_RO25/WC_NO2=0.0
-!
-!WC_RO25/WC_NO3=0.0
-!
-!WC_RO25/WC_N2O5=0.0
-!
-!WC_RO25/WC_HONO=0.0
-!
-!WC_RO25/WC_HNO3=0.0
-!
-!WC_RO25/WC_HNO4=0.0
-!
-!WC_RO25/WC_NH3=0.0
-!
-!WC_RO25/WC_OH=+0.50*KC34*<WC_ALD2>+KC40*<WC_ACID>
- PJAC(:,104,98)=+0.50*TPK%KC34(:)*PCONC(:,109)+TPK%KC40(:)*PCONC(:,115)
-!
-!WC_RO25/WC_HO2=0.0
-!
-!WC_RO25/WC_CO2=0.0
-!
-!WC_RO25/WC_SO2=0.0
-!
-!WC_RO25/WC_H2SO4=0.0
-!
-!WC_RO25/WC_RO21=0.0
-!
-!WC_RO25/WC_RO25=-KTC48-KC29*<WC_RO25>-KC29*<WC_RO25>-KC29*<WC_RO25>-KC29*<WC_R
-!O25>
- PJAC(:,104,104)=-TPK%KTC48(:)-TPK%KC29(:)*PCONC(:,104)-TPK%KC29(:)*PCONC(:,104&
-&)-TPK%KC29(:)*PCONC(:,104)-TPK%KC29(:)*PCONC(:,104)
-!
-!WC_RO25/WC_MEOH=0.0
-!
-!WC_RO25/WC_ETOH=0.0
-!
-!WC_RO25/WC_ALCH=0.0
-!
-!WC_RO25/WC_HCHO=0.0
-!
-!WC_RO25/WC_ALD2=+0.50*KC34*<WC_OH>
- PJAC(:,104,109)=+0.50*TPK%KC34(:)*PCONC(:,98)
-!
-!WC_RO25/WC_GLY=0.0
-!
-!WC_RO25/WC_MGLY=0.0
-!
-!WC_RO25/WC_KETL=0.0
-!
-!WC_RO25/WC_ORA1=0.0
-!
-!WC_RO25/WC_ORA2=0.0
-!
-!WC_RO25/WC_ACID=+KC40*<WC_OH>
- PJAC(:,104,115)=+TPK%KC40(:)*PCONC(:,98)
-!
-!WC_RO25/WC_RP16=0.0
-!
-!WC_RO25/WC_UR21=0.0
-!
-!WC_RO25/WC_UR28=0.0
-!
-!WC_RO25/WC_ACID2=0.0
-!
-!WC_RO25/WC_ASO3=0.0
-!
-!WC_RO25/WC_ASO4=0.0
-!
-!WC_RO25/WC_ASO5=0.0
-!
-!WC_RO25/WC_AHSO5=0.0
-!
-!WC_RO25/WC_AHMS=0.0
-!
-!WC_RO25/WR_O3=0.0
-!
-!WC_RO25/WR_H2O2=0.0
-!
-!WC_RO25/WR_NO=0.0
-!
-!WC_RO25/WR_NO2=0.0
-!
-!WC_RO25/WR_NO3=0.0
-!
-!WC_RO25/WR_N2O5=0.0
-!
-!WC_RO25/WR_HONO=0.0
-!
-!WC_RO25/WR_HNO3=0.0
-!
-!WC_RO25/WR_HNO4=0.0
-!
-!WC_RO25/WR_NH3=0.0
-!
-!WC_RO25/WR_OH=0.0
-!
-!WC_RO25/WR_HO2=0.0
-!
-!WC_RO25/WR_CO2=0.0
-!
-!WC_RO25/WR_SO2=0.0
-!
-!WC_RO25/WR_H2SO4=0.0
-!
-!WC_RO25/WR_RO21=0.0
-!
-!WC_RO25/WR_RO25=0.0
-!
-!WC_RO25/WR_MEOH=0.0
-!
-!WC_RO25/WR_ETOH=0.0
-!
-!WC_RO25/WR_ALCH=0.0
-!
-!WC_RO25/WR_HCHO=0.0
-!
-!WC_RO25/WR_ALD2=0.0
-!
-!WC_RO25/WR_GLY=0.0
-!
-!WC_RO25/WR_MGLY=0.0
-!
-!WC_RO25/WR_KETL=0.0
-!
-!WC_RO25/WR_ORA1=0.0
-!
-!WC_RO25/WR_ORA2=0.0
-!
-!WC_RO25/WR_ACID=0.0
-!
-!WC_RO25/WR_RP16=0.0
-!
-!WC_RO25/WR_UR21=0.0
-!
-!WC_RO25/WR_UR28=0.0
-!
-!WC_RO25/WR_ACID2=0.0
-!
-!WC_RO25/WR_ASO3=0.0
-!
-!WC_RO25/WR_ASO4=0.0
-!
-!WC_RO25/WR_ASO5=0.0
-!
-!WC_RO25/WR_AHSO5=0.0
-!
-!WC_RO25/WR_AHMS=0.0
-!
-!WC_MEOH/NO=0.0
-!
-!WC_MEOH/NO2=0.0
-!
-!WC_MEOH/O3=0.0
-!
-!WC_MEOH/HONO=0.0
-!
-!WC_MEOH/HNO3=0.0
-!
-!WC_MEOH/HNO4=0.0
-!
-!WC_MEOH/N2O5=0.0
-!
-!WC_MEOH/NO3=0.0
-!
-!WC_MEOH/NH3=0.0
-!
-!WC_MEOH/HO2=0.0
-!
-!WC_MEOH/CO=0.0
-!
-!WC_MEOH/H2O2=0.0
-!
-!WC_MEOH/SO2=0.0
-!
-!WC_MEOH/H2SO4=0.0
-!
-!WC_MEOH/OH=0.0
-!
-!WC_MEOH/ETHE=0.0
-!
-!WC_MEOH/OLEL=0.0
-!
-!WC_MEOH/OLEH=0.0
-!
-!WC_MEOH/ALKL=0.0
-!
-!WC_MEOH/ALKM=0.0
-!
-!WC_MEOH/ALKH=0.0
-!
-!WC_MEOH/AROH=0.0
-!
-!WC_MEOH/AROL=0.0
-!
-!WC_MEOH/AROO=0.0
-!
-!WC_MEOH/ARAL=0.0
-!
-!WC_MEOH/ARAC=0.0
-!
-!WC_MEOH/PAH=0.0
-!
-!WC_MEOH/HCHO=0.0
-!
-!WC_MEOH/ALD2=0.0
-!
-!WC_MEOH/KETL=0.0
-!
-!WC_MEOH/KETH=0.0
-!
-!WC_MEOH/MEOH=+KTC18
- PJAC(:,105,32)=+TPK%KTC18(:)
-!
-!WC_MEOH/ETOH=0.0
-!
-!WC_MEOH/ALCH=0.0
-!
-!WC_MEOH/ISOP=0.0
-!
-!WC_MEOH/BIOL=0.0
-!
-!WC_MEOH/BIOH=0.0
-!
-!WC_MEOH/MTBE=0.0
-!
-!WC_MEOH/MVK=0.0
-!
-!WC_MEOH/MCR=0.0
-!
-!WC_MEOH/MGLY=0.0
-!
-!WC_MEOH/GLY=0.0
-!
-!WC_MEOH/ORA1=0.0
-!
-!WC_MEOH/ORA2=0.0
-!
-!WC_MEOH/ACID=0.0
-!
-!WC_MEOH/UR28=0.0
-!
-!WC_MEOH/UR21=0.0
-!
-!WC_MEOH/URG2=0.0
-!
-!WC_MEOH/UR26=0.0
-!
-!WC_MEOH/RPG2=0.0
-!
-!WC_MEOH/RP18=0.0
-!
-!WC_MEOH/RPG3=0.0
-!
-!WC_MEOH/URG4=0.0
-!
-!WC_MEOH/UR8=0.0
-!
-!WC_MEOH/UR17=0.0
-!
-!WC_MEOH/UR7=0.0
-!
-!WC_MEOH/RPR3=0.0
-!
-!WC_MEOH/URG6=0.0
-!
-!WC_MEOH/UR22=0.0
-!
-!WC_MEOH/URG7=0.0
-!
-!WC_MEOH/RPR4=0.0
-!
-!WC_MEOH/RPR7=0.0
-!
-!WC_MEOH/RPG7=0.0
-!
-!WC_MEOH/URG8=0.0
-!
-!WC_MEOH/UR19=0.0
-!
-!WC_MEOH/URG9=0.0
-!
-!WC_MEOH/AP7=0.0
-!
-!WC_MEOH/URG10=0.0
-!
-!WC_MEOH/RPR1=0.0
-!
-!WC_MEOH/RPR5=0.0
-!
-!WC_MEOH/RPR8=0.0
-!
-!WC_MEOH/RP10=0.0
-!
-!WC_MEOH/RP11=0.0
-!
-!WC_MEOH/RP16=0.0
-!
-!WC_MEOH/RPRL=0.0
-!
-!WC_MEOH/APAN=0.0
-!
-!WC_MEOH/PAN1=0.0
-!
-!WC_MEOH/PAN2=0.0
-!
-!WC_MEOH/PAN3=0.0
-!
-!WC_MEOH/PAN4=0.0
-!
-!WC_MEOH/PAN6=0.0
-!
-!WC_MEOH/PAN7=0.0
-!
-!WC_MEOH/PAN8=0.0
-!
-!WC_MEOH/PN10=0.0
-!
-!WC_MEOH/RO2T=0.0
-!
-!WC_MEOH/RO21=0.0
-!
-!WC_MEOH/RO25=0.0
-!
-!WC_MEOH/WC_O3=0.0
-!
-!WC_MEOH/WC_H2O2=0.0
-!
-!WC_MEOH/WC_NO=0.0
-!
-!WC_MEOH/WC_NO2=0.0
-!
-!WC_MEOH/WC_NO3=0.0
-!
-!WC_MEOH/WC_N2O5=0.0
-!
-!WC_MEOH/WC_HONO=0.0
-!
-!WC_MEOH/WC_HNO3=0.0
-!
-!WC_MEOH/WC_HNO4=0.0
-!
-!WC_MEOH/WC_NH3=0.0
-!
-!WC_MEOH/WC_OH=-KC30*<WC_MEOH>
- PJAC(:,105,98)=-TPK%KC30(:)*PCONC(:,105)
-!
-!WC_MEOH/WC_HO2=0.0
-!
-!WC_MEOH/WC_CO2=0.0
-!
-!WC_MEOH/WC_SO2=0.0
-!
-!WC_MEOH/WC_H2SO4=0.0
-!
-!WC_MEOH/WC_RO21=0.0
-!
-!WC_MEOH/WC_RO25=0.0
-!
-!WC_MEOH/WC_MEOH=-KTC49-KC30*<WC_OH>
- PJAC(:,105,105)=-TPK%KTC49(:)-TPK%KC30(:)*PCONC(:,98)
-!
-!WC_MEOH/WC_ETOH=0.0
-!
-!WC_MEOH/WC_ALCH=0.0
-!
-!WC_MEOH/WC_HCHO=0.0
-!
-!WC_MEOH/WC_ALD2=0.0
-!
-!WC_MEOH/WC_GLY=0.0
-!
-!WC_MEOH/WC_MGLY=0.0
-!
-!WC_MEOH/WC_KETL=0.0
-!
-!WC_MEOH/WC_ORA1=0.0
-!
-!WC_MEOH/WC_ORA2=0.0
-!
-!WC_MEOH/WC_ACID=0.0
-!
-!WC_MEOH/WC_RP16=0.0
-!
-!WC_MEOH/WC_UR21=0.0
-!
-!WC_MEOH/WC_UR28=0.0
-!
-!WC_MEOH/WC_ACID2=0.0
-!
-!WC_MEOH/WC_ASO3=0.0
-!
-!WC_MEOH/WC_ASO4=0.0
-!
-!WC_MEOH/WC_ASO5=0.0
-!
-!WC_MEOH/WC_AHSO5=0.0
-!
-!WC_MEOH/WC_AHMS=0.0
-!
-!WC_MEOH/WR_O3=0.0
-!
-!WC_MEOH/WR_H2O2=0.0
-!
-!WC_MEOH/WR_NO=0.0
-!
-!WC_MEOH/WR_NO2=0.0
-!
-!WC_MEOH/WR_NO3=0.0
-!
-!WC_MEOH/WR_N2O5=0.0
-!
-!WC_MEOH/WR_HONO=0.0
-!
-!WC_MEOH/WR_HNO3=0.0
-!
-!WC_MEOH/WR_HNO4=0.0
-!
-!WC_MEOH/WR_NH3=0.0
-!
-!WC_MEOH/WR_OH=0.0
-!
-!WC_MEOH/WR_HO2=0.0
-!
-!WC_MEOH/WR_CO2=0.0
-!
-!WC_MEOH/WR_SO2=0.0
-!
-!WC_MEOH/WR_H2SO4=0.0
-!
-!WC_MEOH/WR_RO21=0.0
-!
-!WC_MEOH/WR_RO25=0.0
-!
-!WC_MEOH/WR_MEOH=0.0
-!
-!WC_MEOH/WR_ETOH=0.0
-!
-!WC_MEOH/WR_ALCH=0.0
-!
-!WC_MEOH/WR_HCHO=0.0
-!
-!WC_MEOH/WR_ALD2=0.0
-!
-!WC_MEOH/WR_GLY=0.0
-!
-!WC_MEOH/WR_MGLY=0.0
-!
-!WC_MEOH/WR_KETL=0.0
-!
-!WC_MEOH/WR_ORA1=0.0
-!
-!WC_MEOH/WR_ORA2=0.0
-!
-!WC_MEOH/WR_ACID=0.0
-!
-!WC_MEOH/WR_RP16=0.0
-!
-!WC_MEOH/WR_UR21=0.0
-!
-!WC_MEOH/WR_UR28=0.0
-!
-!WC_MEOH/WR_ACID2=0.0
-!
-!WC_MEOH/WR_ASO3=0.0
-!
-!WC_MEOH/WR_ASO4=0.0
-!
-!WC_MEOH/WR_ASO5=0.0
-!
-!WC_MEOH/WR_AHSO5=0.0
-!
-!WC_MEOH/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ20
-!
-SUBROUTINE SUBJ21
-!
-!Indices 106 a 110
-!
-!
-!WC_ETOH/NO=0.0
-!
-!WC_ETOH/NO2=0.0
-!
-!WC_ETOH/O3=0.0
-!
-!WC_ETOH/HONO=0.0
-!
-!WC_ETOH/HNO3=0.0
-!
-!WC_ETOH/HNO4=0.0
-!
-!WC_ETOH/N2O5=0.0
-!
-!WC_ETOH/NO3=0.0
-!
-!WC_ETOH/NH3=0.0
-!
-!WC_ETOH/HO2=0.0
-!
-!WC_ETOH/CO=0.0
-!
-!WC_ETOH/H2O2=0.0
-!
-!WC_ETOH/SO2=0.0
-!
-!WC_ETOH/H2SO4=0.0
-!
-!WC_ETOH/OH=0.0
-!
-!WC_ETOH/ETHE=0.0
-!
-!WC_ETOH/OLEL=0.0
-!
-!WC_ETOH/OLEH=0.0
-!
-!WC_ETOH/ALKL=0.0
-!
-!WC_ETOH/ALKM=0.0
-!
-!WC_ETOH/ALKH=0.0
-!
-!WC_ETOH/AROH=0.0
-!
-!WC_ETOH/AROL=0.0
-!
-!WC_ETOH/AROO=0.0
-!
-!WC_ETOH/ARAL=0.0
-!
-!WC_ETOH/ARAC=0.0
-!
-!WC_ETOH/PAH=0.0
-!
-!WC_ETOH/HCHO=0.0
-!
-!WC_ETOH/ALD2=0.0
-!
-!WC_ETOH/KETL=0.0
-!
-!WC_ETOH/KETH=0.0
-!
-!WC_ETOH/MEOH=0.0
-!
-!WC_ETOH/ETOH=+KTC19
- PJAC(:,106,33)=+TPK%KTC19(:)
-!
-!WC_ETOH/ALCH=0.0
-!
-!WC_ETOH/ISOP=0.0
-!
-!WC_ETOH/BIOL=0.0
-!
-!WC_ETOH/BIOH=0.0
-!
-!WC_ETOH/MTBE=0.0
-!
-!WC_ETOH/MVK=0.0
-!
-!WC_ETOH/MCR=0.0
-!
-!WC_ETOH/MGLY=0.0
-!
-!WC_ETOH/GLY=0.0
-!
-!WC_ETOH/ORA1=0.0
-!
-!WC_ETOH/ORA2=0.0
-!
-!WC_ETOH/ACID=0.0
-!
-!WC_ETOH/UR28=0.0
-!
-!WC_ETOH/UR21=0.0
-!
-!WC_ETOH/URG2=0.0
-!
-!WC_ETOH/UR26=0.0
-!
-!WC_ETOH/RPG2=0.0
-!
-!WC_ETOH/RP18=0.0
-!
-!WC_ETOH/RPG3=0.0
-!
-!WC_ETOH/URG4=0.0
-!
-!WC_ETOH/UR8=0.0
-!
-!WC_ETOH/UR17=0.0
-!
-!WC_ETOH/UR7=0.0
-!
-!WC_ETOH/RPR3=0.0
-!
-!WC_ETOH/URG6=0.0
-!
-!WC_ETOH/UR22=0.0
-!
-!WC_ETOH/URG7=0.0
-!
-!WC_ETOH/RPR4=0.0
-!
-!WC_ETOH/RPR7=0.0
-!
-!WC_ETOH/RPG7=0.0
-!
-!WC_ETOH/URG8=0.0
-!
-!WC_ETOH/UR19=0.0
-!
-!WC_ETOH/URG9=0.0
-!
-!WC_ETOH/AP7=0.0
-!
-!WC_ETOH/URG10=0.0
-!
-!WC_ETOH/RPR1=0.0
-!
-!WC_ETOH/RPR5=0.0
-!
-!WC_ETOH/RPR8=0.0
-!
-!WC_ETOH/RP10=0.0
-!
-!WC_ETOH/RP11=0.0
-!
-!WC_ETOH/RP16=0.0
-!
-!WC_ETOH/RPRL=0.0
-!
-!WC_ETOH/APAN=0.0
-!
-!WC_ETOH/PAN1=0.0
-!
-!WC_ETOH/PAN2=0.0
-!
-!WC_ETOH/PAN3=0.0
-!
-!WC_ETOH/PAN4=0.0
-!
-!WC_ETOH/PAN6=0.0
-!
-!WC_ETOH/PAN7=0.0
-!
-!WC_ETOH/PAN8=0.0
-!
-!WC_ETOH/PN10=0.0
-!
-!WC_ETOH/RO2T=0.0
-!
-!WC_ETOH/RO21=0.0
-!
-!WC_ETOH/RO25=0.0
-!
-!WC_ETOH/WC_O3=0.0
-!
-!WC_ETOH/WC_H2O2=0.0
-!
-!WC_ETOH/WC_NO=0.0
-!
-!WC_ETOH/WC_NO2=0.0
-!
-!WC_ETOH/WC_NO3=0.0
-!
-!WC_ETOH/WC_N2O5=0.0
-!
-!WC_ETOH/WC_HONO=0.0
-!
-!WC_ETOH/WC_HNO3=0.0
-!
-!WC_ETOH/WC_HNO4=0.0
-!
-!WC_ETOH/WC_NH3=0.0
-!
-!WC_ETOH/WC_OH=-KC31*<WC_ETOH>
- PJAC(:,106,98)=-TPK%KC31(:)*PCONC(:,106)
-!
-!WC_ETOH/WC_HO2=0.0
-!
-!WC_ETOH/WC_CO2=0.0
-!
-!WC_ETOH/WC_SO2=0.0
-!
-!WC_ETOH/WC_H2SO4=0.0
-!
-!WC_ETOH/WC_RO21=0.0
-!
-!WC_ETOH/WC_RO25=0.0
-!
-!WC_ETOH/WC_MEOH=0.0
-!
-!WC_ETOH/WC_ETOH=-KTC50-KC31*<WC_OH>
- PJAC(:,106,106)=-TPK%KTC50(:)-TPK%KC31(:)*PCONC(:,98)
-!
-!WC_ETOH/WC_ALCH=0.0
-!
-!WC_ETOH/WC_HCHO=0.0
-!
-!WC_ETOH/WC_ALD2=0.0
-!
-!WC_ETOH/WC_GLY=0.0
-!
-!WC_ETOH/WC_MGLY=0.0
-!
-!WC_ETOH/WC_KETL=0.0
-!
-!WC_ETOH/WC_ORA1=0.0
-!
-!WC_ETOH/WC_ORA2=0.0
-!
-!WC_ETOH/WC_ACID=0.0
-!
-!WC_ETOH/WC_RP16=0.0
-!
-!WC_ETOH/WC_UR21=0.0
-!
-!WC_ETOH/WC_UR28=0.0
-!
-!WC_ETOH/WC_ACID2=0.0
-!
-!WC_ETOH/WC_ASO3=0.0
-!
-!WC_ETOH/WC_ASO4=0.0
-!
-!WC_ETOH/WC_ASO5=0.0
-!
-!WC_ETOH/WC_AHSO5=0.0
-!
-!WC_ETOH/WC_AHMS=0.0
-!
-!WC_ETOH/WR_O3=0.0
-!
-!WC_ETOH/WR_H2O2=0.0
-!
-!WC_ETOH/WR_NO=0.0
-!
-!WC_ETOH/WR_NO2=0.0
-!
-!WC_ETOH/WR_NO3=0.0
-!
-!WC_ETOH/WR_N2O5=0.0
-!
-!WC_ETOH/WR_HONO=0.0
-!
-!WC_ETOH/WR_HNO3=0.0
-!
-!WC_ETOH/WR_HNO4=0.0
-!
-!WC_ETOH/WR_NH3=0.0
-!
-!WC_ETOH/WR_OH=0.0
-!
-!WC_ETOH/WR_HO2=0.0
-!
-!WC_ETOH/WR_CO2=0.0
-!
-!WC_ETOH/WR_SO2=0.0
-!
-!WC_ETOH/WR_H2SO4=0.0
-!
-!WC_ETOH/WR_RO21=0.0
-!
-!WC_ETOH/WR_RO25=0.0
-!
-!WC_ETOH/WR_MEOH=0.0
-!
-!WC_ETOH/WR_ETOH=0.0
-!
-!WC_ETOH/WR_ALCH=0.0
-!
-!WC_ETOH/WR_HCHO=0.0
-!
-!WC_ETOH/WR_ALD2=0.0
-!
-!WC_ETOH/WR_GLY=0.0
-!
-!WC_ETOH/WR_MGLY=0.0
-!
-!WC_ETOH/WR_KETL=0.0
-!
-!WC_ETOH/WR_ORA1=0.0
-!
-!WC_ETOH/WR_ORA2=0.0
-!
-!WC_ETOH/WR_ACID=0.0
-!
-!WC_ETOH/WR_RP16=0.0
-!
-!WC_ETOH/WR_UR21=0.0
-!
-!WC_ETOH/WR_UR28=0.0
-!
-!WC_ETOH/WR_ACID2=0.0
-!
-!WC_ETOH/WR_ASO3=0.0
-!
-!WC_ETOH/WR_ASO4=0.0
-!
-!WC_ETOH/WR_ASO5=0.0
-!
-!WC_ETOH/WR_AHSO5=0.0
-!
-!WC_ETOH/WR_AHMS=0.0
-!
-!WC_ALCH/NO=0.0
-!
-!WC_ALCH/NO2=0.0
-!
-!WC_ALCH/O3=0.0
-!
-!WC_ALCH/HONO=0.0
-!
-!WC_ALCH/HNO3=0.0
-!
-!WC_ALCH/HNO4=0.0
-!
-!WC_ALCH/N2O5=0.0
-!
-!WC_ALCH/NO3=0.0
-!
-!WC_ALCH/NH3=0.0
-!
-!WC_ALCH/HO2=0.0
-!
-!WC_ALCH/CO=0.0
-!
-!WC_ALCH/H2O2=0.0
-!
-!WC_ALCH/SO2=0.0
-!
-!WC_ALCH/H2SO4=0.0
-!
-!WC_ALCH/OH=0.0
-!
-!WC_ALCH/ETHE=0.0
-!
-!WC_ALCH/OLEL=0.0
-!
-!WC_ALCH/OLEH=0.0
-!
-!WC_ALCH/ALKL=0.0
-!
-!WC_ALCH/ALKM=0.0
-!
-!WC_ALCH/ALKH=0.0
-!
-!WC_ALCH/AROH=0.0
-!
-!WC_ALCH/AROL=0.0
-!
-!WC_ALCH/AROO=0.0
-!
-!WC_ALCH/ARAL=0.0
-!
-!WC_ALCH/ARAC=0.0
-!
-!WC_ALCH/PAH=0.0
-!
-!WC_ALCH/HCHO=0.0
-!
-!WC_ALCH/ALD2=0.0
-!
-!WC_ALCH/KETL=0.0
-!
-!WC_ALCH/KETH=0.0
-!
-!WC_ALCH/MEOH=0.0
-!
-!WC_ALCH/ETOH=0.0
-!
-!WC_ALCH/ALCH=+KTC20
- PJAC(:,107,34)=+TPK%KTC20(:)
-!
-!WC_ALCH/ISOP=0.0
-!
-!WC_ALCH/BIOL=0.0
-!
-!WC_ALCH/BIOH=0.0
-!
-!WC_ALCH/MTBE=0.0
-!
-!WC_ALCH/MVK=0.0
-!
-!WC_ALCH/MCR=0.0
-!
-!WC_ALCH/MGLY=0.0
-!
-!WC_ALCH/GLY=0.0
-!
-!WC_ALCH/ORA1=0.0
-!
-!WC_ALCH/ORA2=0.0
-!
-!WC_ALCH/ACID=0.0
-!
-!WC_ALCH/UR28=0.0
-!
-!WC_ALCH/UR21=0.0
-!
-!WC_ALCH/URG2=0.0
-!
-!WC_ALCH/UR26=0.0
-!
-!WC_ALCH/RPG2=0.0
-!
-!WC_ALCH/RP18=0.0
-!
-!WC_ALCH/RPG3=0.0
-!
-!WC_ALCH/URG4=0.0
-!
-!WC_ALCH/UR8=0.0
-!
-!WC_ALCH/UR17=0.0
-!
-!WC_ALCH/UR7=0.0
-!
-!WC_ALCH/RPR3=0.0
-!
-!WC_ALCH/URG6=0.0
-!
-!WC_ALCH/UR22=0.0
-!
-!WC_ALCH/URG7=0.0
-!
-!WC_ALCH/RPR4=0.0
-!
-!WC_ALCH/RPR7=0.0
-!
-!WC_ALCH/RPG7=0.0
-!
-!WC_ALCH/URG8=0.0
-!
-!WC_ALCH/UR19=0.0
-!
-!WC_ALCH/URG9=0.0
-!
-!WC_ALCH/AP7=0.0
-!
-!WC_ALCH/URG10=0.0
-!
-!WC_ALCH/RPR1=0.0
-!
-!WC_ALCH/RPR5=0.0
-!
-!WC_ALCH/RPR8=0.0
-!
-!WC_ALCH/RP10=0.0
-!
-!WC_ALCH/RP11=0.0
-!
-!WC_ALCH/RP16=0.0
-!
-!WC_ALCH/RPRL=0.0
-!
-!WC_ALCH/APAN=0.0
-!
-!WC_ALCH/PAN1=0.0
-!
-!WC_ALCH/PAN2=0.0
-!
-!WC_ALCH/PAN3=0.0
-!
-!WC_ALCH/PAN4=0.0
-!
-!WC_ALCH/PAN6=0.0
-!
-!WC_ALCH/PAN7=0.0
-!
-!WC_ALCH/PAN8=0.0
-!
-!WC_ALCH/PN10=0.0
-!
-!WC_ALCH/RO2T=0.0
-!
-!WC_ALCH/RO21=0.0
-!
-!WC_ALCH/RO25=0.0
-!
-!WC_ALCH/WC_O3=0.0
-!
-!WC_ALCH/WC_H2O2=0.0
-!
-!WC_ALCH/WC_NO=0.0
-!
-!WC_ALCH/WC_NO2=0.0
-!
-!WC_ALCH/WC_NO3=0.0
-!
-!WC_ALCH/WC_N2O5=0.0
-!
-!WC_ALCH/WC_HONO=0.0
-!
-!WC_ALCH/WC_HNO3=0.0
-!
-!WC_ALCH/WC_HNO4=0.0
-!
-!WC_ALCH/WC_NH3=0.0
-!
-!WC_ALCH/WC_OH=-KC32*<WC_ALCH>
- PJAC(:,107,98)=-TPK%KC32(:)*PCONC(:,107)
-!
-!WC_ALCH/WC_HO2=0.0
-!
-!WC_ALCH/WC_CO2=0.0
-!
-!WC_ALCH/WC_SO2=0.0
-!
-!WC_ALCH/WC_H2SO4=0.0
-!
-!WC_ALCH/WC_RO21=0.0
-!
-!WC_ALCH/WC_RO25=0.0
-!
-!WC_ALCH/WC_MEOH=0.0
-!
-!WC_ALCH/WC_ETOH=0.0
-!
-!WC_ALCH/WC_ALCH=-KTC51-KC32*<WC_OH>
- PJAC(:,107,107)=-TPK%KTC51(:)-TPK%KC32(:)*PCONC(:,98)
-!
-!WC_ALCH/WC_HCHO=0.0
-!
-!WC_ALCH/WC_ALD2=0.0
-!
-!WC_ALCH/WC_GLY=0.0
-!
-!WC_ALCH/WC_MGLY=0.0
-!
-!WC_ALCH/WC_KETL=0.0
-!
-!WC_ALCH/WC_ORA1=0.0
-!
-!WC_ALCH/WC_ORA2=0.0
-!
-!WC_ALCH/WC_ACID=0.0
-!
-!WC_ALCH/WC_RP16=0.0
-!
-!WC_ALCH/WC_UR21=0.0
-!
-!WC_ALCH/WC_UR28=0.0
-!
-!WC_ALCH/WC_ACID2=0.0
-!
-!WC_ALCH/WC_ASO3=0.0
-!
-!WC_ALCH/WC_ASO4=0.0
-!
-!WC_ALCH/WC_ASO5=0.0
-!
-!WC_ALCH/WC_AHSO5=0.0
-!
-!WC_ALCH/WC_AHMS=0.0
-!
-!WC_ALCH/WR_O3=0.0
-!
-!WC_ALCH/WR_H2O2=0.0
-!
-!WC_ALCH/WR_NO=0.0
-!
-!WC_ALCH/WR_NO2=0.0
-!
-!WC_ALCH/WR_NO3=0.0
-!
-!WC_ALCH/WR_N2O5=0.0
-!
-!WC_ALCH/WR_HONO=0.0
-!
-!WC_ALCH/WR_HNO3=0.0
-!
-!WC_ALCH/WR_HNO4=0.0
-!
-!WC_ALCH/WR_NH3=0.0
-!
-!WC_ALCH/WR_OH=0.0
-!
-!WC_ALCH/WR_HO2=0.0
-!
-!WC_ALCH/WR_CO2=0.0
-!
-!WC_ALCH/WR_SO2=0.0
-!
-!WC_ALCH/WR_H2SO4=0.0
-!
-!WC_ALCH/WR_RO21=0.0
-!
-!WC_ALCH/WR_RO25=0.0
-!
-!WC_ALCH/WR_MEOH=0.0
-!
-!WC_ALCH/WR_ETOH=0.0
-!
-!WC_ALCH/WR_ALCH=0.0
-!
-!WC_ALCH/WR_HCHO=0.0
-!
-!WC_ALCH/WR_ALD2=0.0
-!
-!WC_ALCH/WR_GLY=0.0
-!
-!WC_ALCH/WR_MGLY=0.0
-!
-!WC_ALCH/WR_KETL=0.0
-!
-!WC_ALCH/WR_ORA1=0.0
-!
-!WC_ALCH/WR_ORA2=0.0
-!
-!WC_ALCH/WR_ACID=0.0
-!
-!WC_ALCH/WR_RP16=0.0
-!
-!WC_ALCH/WR_UR21=0.0
-!
-!WC_ALCH/WR_UR28=0.0
-!
-!WC_ALCH/WR_ACID2=0.0
-!
-!WC_ALCH/WR_ASO3=0.0
-!
-!WC_ALCH/WR_ASO4=0.0
-!
-!WC_ALCH/WR_ASO5=0.0
-!
-!WC_ALCH/WR_AHSO5=0.0
-!
-!WC_ALCH/WR_AHMS=0.0
-!
-!WC_HCHO/NO=0.0
-!
-!WC_HCHO/NO2=0.0
-!
-!WC_HCHO/O3=0.0
-!
-!WC_HCHO/HONO=0.0
-!
-!WC_HCHO/HNO3=0.0
-!
-!WC_HCHO/HNO4=0.0
-!
-!WC_HCHO/N2O5=0.0
-!
-!WC_HCHO/NO3=0.0
-!
-!WC_HCHO/NH3=0.0
-!
-!WC_HCHO/HO2=0.0
-!
-!WC_HCHO/CO=0.0
-!
-!WC_HCHO/H2O2=0.0
-!
-!WC_HCHO/SO2=0.0
-!
-!WC_HCHO/H2SO4=0.0
-!
-!WC_HCHO/OH=0.0
-!
-!WC_HCHO/ETHE=0.0
-!
-!WC_HCHO/OLEL=0.0
-!
-!WC_HCHO/OLEH=0.0
-!
-!WC_HCHO/ALKL=0.0
-!
-!WC_HCHO/ALKM=0.0
-!
-!WC_HCHO/ALKH=0.0
-!
-!WC_HCHO/AROH=0.0
-!
-!WC_HCHO/AROL=0.0
-!
-!WC_HCHO/AROO=0.0
-!
-!WC_HCHO/ARAL=0.0
-!
-!WC_HCHO/ARAC=0.0
-!
-!WC_HCHO/PAH=0.0
-!
-!WC_HCHO/HCHO=+KTC21
- PJAC(:,108,28)=+TPK%KTC21(:)
-!
-!WC_HCHO/ALD2=0.0
-!
-!WC_HCHO/KETL=0.0
-!
-!WC_HCHO/KETH=0.0
-!
-!WC_HCHO/MEOH=0.0
-!
-!WC_HCHO/ETOH=0.0
-!
-!WC_HCHO/ALCH=0.0
-!
-!WC_HCHO/ISOP=0.0
-!
-!WC_HCHO/BIOL=0.0
-!
-!WC_HCHO/BIOH=0.0
-!
-!WC_HCHO/MTBE=0.0
-!
-!WC_HCHO/MVK=0.0
-!
-!WC_HCHO/MCR=0.0
-!
-!WC_HCHO/MGLY=0.0
-!
-!WC_HCHO/GLY=0.0
-!
-!WC_HCHO/ORA1=0.0
-!
-!WC_HCHO/ORA2=0.0
-!
-!WC_HCHO/ACID=0.0
-!
-!WC_HCHO/UR28=0.0
-!
-!WC_HCHO/UR21=0.0
-!
-!WC_HCHO/URG2=0.0
-!
-!WC_HCHO/UR26=0.0
-!
-!WC_HCHO/RPG2=0.0
-!
-!WC_HCHO/RP18=0.0
-!
-!WC_HCHO/RPG3=0.0
-!
-!WC_HCHO/URG4=0.0
-!
-!WC_HCHO/UR8=0.0
-!
-!WC_HCHO/UR17=0.0
-!
-!WC_HCHO/UR7=0.0
-!
-!WC_HCHO/RPR3=0.0
-!
-!WC_HCHO/URG6=0.0
-!
-!WC_HCHO/UR22=0.0
-!
-!WC_HCHO/URG7=0.0
-!
-!WC_HCHO/RPR4=0.0
-!
-!WC_HCHO/RPR7=0.0
-!
-!WC_HCHO/RPG7=0.0
-!
-!WC_HCHO/URG8=0.0
-!
-!WC_HCHO/UR19=0.0
-!
-!WC_HCHO/URG9=0.0
-!
-!WC_HCHO/AP7=0.0
-!
-!WC_HCHO/URG10=0.0
-!
-!WC_HCHO/RPR1=0.0
-!
-!WC_HCHO/RPR5=0.0
-!
-!WC_HCHO/RPR8=0.0
-!
-!WC_HCHO/RP10=0.0
-!
-!WC_HCHO/RP11=0.0
-!
-!WC_HCHO/RP16=0.0
-!
-!WC_HCHO/RPRL=0.0
-!
-!WC_HCHO/APAN=0.0
-!
-!WC_HCHO/PAN1=0.0
-!
-!WC_HCHO/PAN2=0.0
-!
-!WC_HCHO/PAN3=0.0
-!
-!WC_HCHO/PAN4=0.0
-!
-!WC_HCHO/PAN6=0.0
-!
-!WC_HCHO/PAN7=0.0
-!
-!WC_HCHO/PAN8=0.0
-!
-!WC_HCHO/PN10=0.0
-!
-!WC_HCHO/RO2T=0.0
-!
-!WC_HCHO/RO21=0.0
-!
-!WC_HCHO/RO25=0.0
-!
-!WC_HCHO/WC_O3=0.0
-!
-!WC_HCHO/WC_H2O2=0.0
-!
-!WC_HCHO/WC_NO=0.0
-!
-!WC_HCHO/WC_NO2=0.0
-!
-!WC_HCHO/WC_NO3=0.0
-!
-!WC_HCHO/WC_N2O5=0.0
-!
-!WC_HCHO/WC_HONO=0.0
-!
-!WC_HCHO/WC_HNO3=0.0
-!
-!WC_HCHO/WC_HNO4=0.0
-!
-!WC_HCHO/WC_NH3=0.0
-!
-!WC_HCHO/WC_OH=+KC30*<WC_MEOH>-KC33*<WC_HCHO>+KC37*<WC_KETL>
- PJAC(:,108,98)=+TPK%KC30(:)*PCONC(:,105)-TPK%KC33(:)*PCONC(:,108)+TPK%KC37(:)*&
-&PCONC(:,112)
-!
-!WC_HCHO/WC_HO2=0.0
-!
-!WC_HCHO/WC_CO2=0.0
-!
-!WC_HCHO/WC_SO2=-KC17*<WC_HCHO>+KC28*<WC_RO21>
- PJAC(:,108,101)=-TPK%KC17(:)*PCONC(:,108)+TPK%KC28(:)*PCONC(:,103)
-!
-!WC_HCHO/WC_H2SO4=0.0
-!
-!WC_HCHO/WC_RO21=+2.00*KC27*<WC_RO21>+2.00*KC27*<WC_RO21>+KC28*<WC_SO2>
- PJAC(:,108,103)=+2.00*TPK%KC27(:)*PCONC(:,103)+2.00*TPK%KC27(:)*PCONC(:,103)+T&
-&PK%KC28(:)*PCONC(:,101)
-!
-!WC_HCHO/WC_RO25=0.0
-!
-!WC_HCHO/WC_MEOH=+KC30*<WC_OH>
- PJAC(:,108,105)=+TPK%KC30(:)*PCONC(:,98)
-!
-!WC_HCHO/WC_ETOH=0.0
-!
-!WC_HCHO/WC_ALCH=0.0
-!
-!WC_HCHO/WC_HCHO=-KTC52-KC17*<WC_SO2>-KC33*<WC_OH>
- PJAC(:,108,108)=-TPK%KTC52(:)-TPK%KC17(:)*PCONC(:,101)-TPK%KC33(:)*PCONC(:,98)
-!
-!WC_HCHO/WC_ALD2=0.0
-!
-!WC_HCHO/WC_GLY=0.0
-!
-!WC_HCHO/WC_MGLY=0.0
-!
-!WC_HCHO/WC_KETL=+KC37*<WC_OH>
- PJAC(:,108,112)=+TPK%KC37(:)*PCONC(:,98)
-!
-!WC_HCHO/WC_ORA1=0.0
-!
-!WC_HCHO/WC_ORA2=0.0
-!
-!WC_HCHO/WC_ACID=0.0
-!
-!WC_HCHO/WC_RP16=0.0
-!
-!WC_HCHO/WC_UR21=0.0
-!
-!WC_HCHO/WC_UR28=0.0
-!
-!WC_HCHO/WC_ACID2=0.0
-!
-!WC_HCHO/WC_ASO3=0.0
-!
-!WC_HCHO/WC_ASO4=0.0
-!
-!WC_HCHO/WC_ASO5=0.0
-!
-!WC_HCHO/WC_AHSO5=0.0
-!
-!WC_HCHO/WC_AHMS=+KC18
- PJAC(:,108,124)=+TPK%KC18(:)
-!
-!WC_HCHO/WR_O3=0.0
-!
-!WC_HCHO/WR_H2O2=0.0
-!
-!WC_HCHO/WR_NO=0.0
-!
-!WC_HCHO/WR_NO2=0.0
-!
-!WC_HCHO/WR_NO3=0.0
-!
-!WC_HCHO/WR_N2O5=0.0
-!
-!WC_HCHO/WR_HONO=0.0
-!
-!WC_HCHO/WR_HNO3=0.0
-!
-!WC_HCHO/WR_HNO4=0.0
-!
-!WC_HCHO/WR_NH3=0.0
-!
-!WC_HCHO/WR_OH=0.0
-!
-!WC_HCHO/WR_HO2=0.0
-!
-!WC_HCHO/WR_CO2=0.0
-!
-!WC_HCHO/WR_SO2=0.0
-!
-!WC_HCHO/WR_H2SO4=0.0
-!
-!WC_HCHO/WR_RO21=0.0
-!
-!WC_HCHO/WR_RO25=0.0
-!
-!WC_HCHO/WR_MEOH=0.0
-!
-!WC_HCHO/WR_ETOH=0.0
-!
-!WC_HCHO/WR_ALCH=0.0
-!
-!WC_HCHO/WR_HCHO=0.0
-!
-!WC_HCHO/WR_ALD2=0.0
-!
-!WC_HCHO/WR_GLY=0.0
-!
-!WC_HCHO/WR_MGLY=0.0
-!
-!WC_HCHO/WR_KETL=0.0
-!
-!WC_HCHO/WR_ORA1=0.0
-!
-!WC_HCHO/WR_ORA2=0.0
-!
-!WC_HCHO/WR_ACID=0.0
-!
-!WC_HCHO/WR_RP16=0.0
-!
-!WC_HCHO/WR_UR21=0.0
-!
-!WC_HCHO/WR_UR28=0.0
-!
-!WC_HCHO/WR_ACID2=0.0
-!
-!WC_HCHO/WR_ASO3=0.0
-!
-!WC_HCHO/WR_ASO4=0.0
-!
-!WC_HCHO/WR_ASO5=0.0
-!
-!WC_HCHO/WR_AHSO5=0.0
-!
-!WC_HCHO/WR_AHMS=0.0
-!
-!WC_ALD2/NO=0.0
-!
-!WC_ALD2/NO2=0.0
-!
-!WC_ALD2/O3=0.0
-!
-!WC_ALD2/HONO=0.0
-!
-!WC_ALD2/HNO3=0.0
-!
-!WC_ALD2/HNO4=0.0
-!
-!WC_ALD2/N2O5=0.0
-!
-!WC_ALD2/NO3=0.0
-!
-!WC_ALD2/NH3=0.0
-!
-!WC_ALD2/HO2=0.0
-!
-!WC_ALD2/CO=0.0
-!
-!WC_ALD2/H2O2=0.0
-!
-!WC_ALD2/SO2=0.0
-!
-!WC_ALD2/H2SO4=0.0
-!
-!WC_ALD2/OH=0.0
-!
-!WC_ALD2/ETHE=0.0
-!
-!WC_ALD2/OLEL=0.0
-!
-!WC_ALD2/OLEH=0.0
-!
-!WC_ALD2/ALKL=0.0
-!
-!WC_ALD2/ALKM=0.0
-!
-!WC_ALD2/ALKH=0.0
-!
-!WC_ALD2/AROH=0.0
-!
-!WC_ALD2/AROL=0.0
-!
-!WC_ALD2/AROO=0.0
-!
-!WC_ALD2/ARAL=0.0
-!
-!WC_ALD2/ARAC=0.0
-!
-!WC_ALD2/PAH=0.0
-!
-!WC_ALD2/HCHO=0.0
-!
-!WC_ALD2/ALD2=+KTC22
- PJAC(:,109,29)=+TPK%KTC22(:)
-!
-!WC_ALD2/KETL=0.0
-!
-!WC_ALD2/KETH=0.0
-!
-!WC_ALD2/MEOH=0.0
-!
-!WC_ALD2/ETOH=0.0
-!
-!WC_ALD2/ALCH=0.0
-!
-!WC_ALD2/ISOP=0.0
-!
-!WC_ALD2/BIOL=0.0
-!
-!WC_ALD2/BIOH=0.0
-!
-!WC_ALD2/MTBE=0.0
-!
-!WC_ALD2/MVK=0.0
-!
-!WC_ALD2/MCR=0.0
-!
-!WC_ALD2/MGLY=0.0
-!
-!WC_ALD2/GLY=0.0
-!
-!WC_ALD2/ORA1=0.0
-!
-!WC_ALD2/ORA2=0.0
-!
-!WC_ALD2/ACID=0.0
-!
-!WC_ALD2/UR28=0.0
-!
-!WC_ALD2/UR21=0.0
-!
-!WC_ALD2/URG2=0.0
-!
-!WC_ALD2/UR26=0.0
-!
-!WC_ALD2/RPG2=0.0
-!
-!WC_ALD2/RP18=0.0
-!
-!WC_ALD2/RPG3=0.0
-!
-!WC_ALD2/URG4=0.0
-!
-!WC_ALD2/UR8=0.0
-!
-!WC_ALD2/UR17=0.0
-!
-!WC_ALD2/UR7=0.0
-!
-!WC_ALD2/RPR3=0.0
-!
-!WC_ALD2/URG6=0.0
-!
-!WC_ALD2/UR22=0.0
-!
-!WC_ALD2/URG7=0.0
-!
-!WC_ALD2/RPR4=0.0
-!
-!WC_ALD2/RPR7=0.0
-!
-!WC_ALD2/RPG7=0.0
-!
-!WC_ALD2/URG8=0.0
-!
-!WC_ALD2/UR19=0.0
-!
-!WC_ALD2/URG9=0.0
-!
-!WC_ALD2/AP7=0.0
-!
-!WC_ALD2/URG10=0.0
-!
-!WC_ALD2/RPR1=0.0
-!
-!WC_ALD2/RPR5=0.0
-!
-!WC_ALD2/RPR8=0.0
-!
-!WC_ALD2/RP10=0.0
-!
-!WC_ALD2/RP11=0.0
-!
-!WC_ALD2/RP16=0.0
-!
-!WC_ALD2/RPRL=0.0
-!
-!WC_ALD2/APAN=0.0
-!
-!WC_ALD2/PAN1=0.0
-!
-!WC_ALD2/PAN2=0.0
-!
-!WC_ALD2/PAN3=0.0
-!
-!WC_ALD2/PAN4=0.0
-!
-!WC_ALD2/PAN6=0.0
-!
-!WC_ALD2/PAN7=0.0
-!
-!WC_ALD2/PAN8=0.0
-!
-!WC_ALD2/PN10=0.0
-!
-!WC_ALD2/RO2T=0.0
-!
-!WC_ALD2/RO21=0.0
-!
-!WC_ALD2/RO25=0.0
-!
-!WC_ALD2/WC_O3=0.0
-!
-!WC_ALD2/WC_H2O2=0.0
-!
-!WC_ALD2/WC_NO=0.0
-!
-!WC_ALD2/WC_NO2=0.0
-!
-!WC_ALD2/WC_NO3=0.0
-!
-!WC_ALD2/WC_N2O5=0.0
-!
-!WC_ALD2/WC_HONO=0.0
-!
-!WC_ALD2/WC_HNO3=0.0
-!
-!WC_ALD2/WC_HNO4=0.0
-!
-!WC_ALD2/WC_NH3=0.0
-!
-!WC_ALD2/WC_OH=+KC31*<WC_ETOH>+0.50*KC32*<WC_ALCH>-KC34*<WC_ALD2>+KC37*<WC_KETL
-!>+0.29*KC41*<WC_ACID>+0.43*KC43*<WC_UR21>
- PJAC(:,109,98)=+TPK%KC31(:)*PCONC(:,106)+0.50*TPK%KC32(:)*PCONC(:,107)-TPK%KC3&
-&4(:)*PCONC(:,109)+TPK%KC37(:)*PCONC(:,112)+0.29*TPK%KC41(:)*PCONC(:,115)+0.43*&
-&TPK%KC43(:)*PCONC(:,117)
-!
-!WC_ALD2/WC_HO2=0.0
-!
-!WC_ALD2/WC_CO2=0.0
-!
-!WC_ALD2/WC_SO2=0.0
-!
-!WC_ALD2/WC_H2SO4=0.0
-!
-!WC_ALD2/WC_RO21=0.0
-!
-!WC_ALD2/WC_RO25=+KC29*<WC_RO25>+KC29*<WC_RO25>
- PJAC(:,109,104)=+TPK%KC29(:)*PCONC(:,104)+TPK%KC29(:)*PCONC(:,104)
-!
-!WC_ALD2/WC_MEOH=0.0
-!
-!WC_ALD2/WC_ETOH=+KC31*<WC_OH>
- PJAC(:,109,106)=+TPK%KC31(:)*PCONC(:,98)
-!
-!WC_ALD2/WC_ALCH=+0.50*KC32*<WC_OH>
- PJAC(:,109,107)=+0.50*TPK%KC32(:)*PCONC(:,98)
-!
-!WC_ALD2/WC_HCHO=0.0
-!
-!WC_ALD2/WC_ALD2=-KTC53-KC34*<WC_OH>
- PJAC(:,109,109)=-TPK%KTC53(:)-TPK%KC34(:)*PCONC(:,98)
-!
-!WC_ALD2/WC_GLY=0.0
-!
-!WC_ALD2/WC_MGLY=0.0
-!
-!WC_ALD2/WC_KETL=+KC37*<WC_OH>
- PJAC(:,109,112)=+TPK%KC37(:)*PCONC(:,98)
-!
-!WC_ALD2/WC_ORA1=0.0
-!
-!WC_ALD2/WC_ORA2=0.0
-!
-!WC_ALD2/WC_ACID=+0.29*KC41*<WC_OH>
- PJAC(:,109,115)=+0.29*TPK%KC41(:)*PCONC(:,98)
-!
-!WC_ALD2/WC_RP16=0.0
-!
-!WC_ALD2/WC_UR21=+0.43*KC43*<WC_OH>
- PJAC(:,109,117)=+0.43*TPK%KC43(:)*PCONC(:,98)
-!
-!WC_ALD2/WC_UR28=0.0
-!
-!WC_ALD2/WC_ACID2=0.0
-!
-!WC_ALD2/WC_ASO3=0.0
-!
-!WC_ALD2/WC_ASO4=0.0
-!
-!WC_ALD2/WC_ASO5=0.0
-!
-!WC_ALD2/WC_AHSO5=0.0
-!
-!WC_ALD2/WC_AHMS=0.0
-!
-!WC_ALD2/WR_O3=0.0
-!
-!WC_ALD2/WR_H2O2=0.0
-!
-!WC_ALD2/WR_NO=0.0
-!
-!WC_ALD2/WR_NO2=0.0
-!
-!WC_ALD2/WR_NO3=0.0
-!
-!WC_ALD2/WR_N2O5=0.0
-!
-!WC_ALD2/WR_HONO=0.0
-!
-!WC_ALD2/WR_HNO3=0.0
-!
-!WC_ALD2/WR_HNO4=0.0
-!
-!WC_ALD2/WR_NH3=0.0
-!
-!WC_ALD2/WR_OH=0.0
-!
-!WC_ALD2/WR_HO2=0.0
-!
-!WC_ALD2/WR_CO2=0.0
-!
-!WC_ALD2/WR_SO2=0.0
-!
-!WC_ALD2/WR_H2SO4=0.0
-!
-!WC_ALD2/WR_RO21=0.0
-!
-!WC_ALD2/WR_RO25=0.0
-!
-!WC_ALD2/WR_MEOH=0.0
-!
-!WC_ALD2/WR_ETOH=0.0
-!
-!WC_ALD2/WR_ALCH=0.0
-!
-!WC_ALD2/WR_HCHO=0.0
-!
-!WC_ALD2/WR_ALD2=0.0
-!
-!WC_ALD2/WR_GLY=0.0
-!
-!WC_ALD2/WR_MGLY=0.0
-!
-!WC_ALD2/WR_KETL=0.0
-!
-!WC_ALD2/WR_ORA1=0.0
-!
-!WC_ALD2/WR_ORA2=0.0
-!
-!WC_ALD2/WR_ACID=0.0
-!
-!WC_ALD2/WR_RP16=0.0
-!
-!WC_ALD2/WR_UR21=0.0
-!
-!WC_ALD2/WR_UR28=0.0
-!
-!WC_ALD2/WR_ACID2=0.0
-!
-!WC_ALD2/WR_ASO3=0.0
-!
-!WC_ALD2/WR_ASO4=0.0
-!
-!WC_ALD2/WR_ASO5=0.0
-!
-!WC_ALD2/WR_AHSO5=0.0
-!
-!WC_ALD2/WR_AHMS=0.0
-!
-!WC_GLY/NO=0.0
-!
-!WC_GLY/NO2=0.0
-!
-!WC_GLY/O3=0.0
-!
-!WC_GLY/HONO=0.0
-!
-!WC_GLY/HNO3=0.0
-!
-!WC_GLY/HNO4=0.0
-!
-!WC_GLY/N2O5=0.0
-!
-!WC_GLY/NO3=0.0
-!
-!WC_GLY/NH3=0.0
-!
-!WC_GLY/HO2=0.0
-!
-!WC_GLY/CO=0.0
-!
-!WC_GLY/H2O2=0.0
-!
-!WC_GLY/SO2=0.0
-!
-!WC_GLY/H2SO4=0.0
-!
-!WC_GLY/OH=0.0
-!
-!WC_GLY/ETHE=0.0
-!
-!WC_GLY/OLEL=0.0
-!
-!WC_GLY/OLEH=0.0
-!
-!WC_GLY/ALKL=0.0
-!
-!WC_GLY/ALKM=0.0
-!
-!WC_GLY/ALKH=0.0
-!
-!WC_GLY/AROH=0.0
-!
-!WC_GLY/AROL=0.0
-!
-!WC_GLY/AROO=0.0
-!
-!WC_GLY/ARAL=0.0
-!
-!WC_GLY/ARAC=0.0
-!
-!WC_GLY/PAH=0.0
-!
-!WC_GLY/HCHO=0.0
-!
-!WC_GLY/ALD2=0.0
-!
-!WC_GLY/KETL=0.0
-!
-!WC_GLY/KETH=0.0
-!
-!WC_GLY/MEOH=0.0
-!
-!WC_GLY/ETOH=0.0
-!
-!WC_GLY/ALCH=0.0
-!
-!WC_GLY/ISOP=0.0
-!
-!WC_GLY/BIOL=0.0
-!
-!WC_GLY/BIOH=0.0
-!
-!WC_GLY/MTBE=0.0
-!
-!WC_GLY/MVK=0.0
-!
-!WC_GLY/MCR=0.0
-!
-!WC_GLY/MGLY=0.0
-!
-!WC_GLY/GLY=+KTC23
- PJAC(:,110,42)=+TPK%KTC23(:)
-!
-!WC_GLY/ORA1=0.0
-!
-!WC_GLY/ORA2=0.0
-!
-!WC_GLY/ACID=0.0
-!
-!WC_GLY/UR28=0.0
-!
-!WC_GLY/UR21=0.0
-!
-!WC_GLY/URG2=0.0
-!
-!WC_GLY/UR26=0.0
-!
-!WC_GLY/RPG2=0.0
-!
-!WC_GLY/RP18=0.0
-!
-!WC_GLY/RPG3=0.0
-!
-!WC_GLY/URG4=0.0
-!
-!WC_GLY/UR8=0.0
-!
-!WC_GLY/UR17=0.0
-!
-!WC_GLY/UR7=0.0
-!
-!WC_GLY/RPR3=0.0
-!
-!WC_GLY/URG6=0.0
-!
-!WC_GLY/UR22=0.0
-!
-!WC_GLY/URG7=0.0
-!
-!WC_GLY/RPR4=0.0
-!
-!WC_GLY/RPR7=0.0
-!
-!WC_GLY/RPG7=0.0
-!
-!WC_GLY/URG8=0.0
-!
-!WC_GLY/UR19=0.0
-!
-!WC_GLY/URG9=0.0
-!
-!WC_GLY/AP7=0.0
-!
-!WC_GLY/URG10=0.0
-!
-!WC_GLY/RPR1=0.0
-!
-!WC_GLY/RPR5=0.0
-!
-!WC_GLY/RPR8=0.0
-!
-!WC_GLY/RP10=0.0
-!
-!WC_GLY/RP11=0.0
-!
-!WC_GLY/RP16=0.0
-!
-!WC_GLY/RPRL=0.0
-!
-!WC_GLY/APAN=0.0
-!
-!WC_GLY/PAN1=0.0
-!
-!WC_GLY/PAN2=0.0
-!
-!WC_GLY/PAN3=0.0
-!
-!WC_GLY/PAN4=0.0
-!
-!WC_GLY/PAN6=0.0
-!
-!WC_GLY/PAN7=0.0
-!
-!WC_GLY/PAN8=0.0
-!
-!WC_GLY/PN10=0.0
-!
-!WC_GLY/RO2T=0.0
-!
-!WC_GLY/RO21=0.0
-!
-!WC_GLY/RO25=0.0
-!
-!WC_GLY/WC_O3=0.0
-!
-!WC_GLY/WC_H2O2=0.0
-!
-!WC_GLY/WC_NO=0.0
-!
-!WC_GLY/WC_NO2=0.0
-!
-!WC_GLY/WC_NO3=0.0
-!
-!WC_GLY/WC_N2O5=0.0
-!
-!WC_GLY/WC_HONO=0.0
-!
-!WC_GLY/WC_HNO3=0.0
-!
-!WC_GLY/WC_HNO4=0.0
-!
-!WC_GLY/WC_NH3=0.0
-!
-!WC_GLY/WC_OH=-KC35*<WC_GLY>
- PJAC(:,110,98)=-TPK%KC35(:)*PCONC(:,110)
-!
-!WC_GLY/WC_HO2=0.0
-!
-!WC_GLY/WC_CO2=0.0
-!
-!WC_GLY/WC_SO2=0.0
-!
-!WC_GLY/WC_H2SO4=0.0
-!
-!WC_GLY/WC_RO21=0.0
-!
-!WC_GLY/WC_RO25=0.0
-!
-!WC_GLY/WC_MEOH=0.0
-!
-!WC_GLY/WC_ETOH=0.0
-!
-!WC_GLY/WC_ALCH=0.0
-!
-!WC_GLY/WC_HCHO=0.0
-!
-!WC_GLY/WC_ALD2=0.0
-!
-!WC_GLY/WC_GLY=-KTC54-KC35*<WC_OH>
- PJAC(:,110,110)=-TPK%KTC54(:)-TPK%KC35(:)*PCONC(:,98)
-!
-!WC_GLY/WC_MGLY=0.0
-!
-!WC_GLY/WC_KETL=0.0
-!
-!WC_GLY/WC_ORA1=0.0
-!
-!WC_GLY/WC_ORA2=0.0
-!
-!WC_GLY/WC_ACID=0.0
-!
-!WC_GLY/WC_RP16=0.0
-!
-!WC_GLY/WC_UR21=0.0
-!
-!WC_GLY/WC_UR28=0.0
-!
-!WC_GLY/WC_ACID2=0.0
-!
-!WC_GLY/WC_ASO3=0.0
-!
-!WC_GLY/WC_ASO4=0.0
-!
-!WC_GLY/WC_ASO5=0.0
-!
-!WC_GLY/WC_AHSO5=0.0
-!
-!WC_GLY/WC_AHMS=0.0
-!
-!WC_GLY/WR_O3=0.0
-!
-!WC_GLY/WR_H2O2=0.0
-!
-!WC_GLY/WR_NO=0.0
-!
-!WC_GLY/WR_NO2=0.0
-!
-!WC_GLY/WR_NO3=0.0
-!
-!WC_GLY/WR_N2O5=0.0
-!
-!WC_GLY/WR_HONO=0.0
-!
-!WC_GLY/WR_HNO3=0.0
-!
-!WC_GLY/WR_HNO4=0.0
-!
-!WC_GLY/WR_NH3=0.0
-!
-!WC_GLY/WR_OH=0.0
-!
-!WC_GLY/WR_HO2=0.0
-!
-!WC_GLY/WR_CO2=0.0
-!
-!WC_GLY/WR_SO2=0.0
-!
-!WC_GLY/WR_H2SO4=0.0
-!
-!WC_GLY/WR_RO21=0.0
-!
-!WC_GLY/WR_RO25=0.0
-!
-!WC_GLY/WR_MEOH=0.0
-!
-!WC_GLY/WR_ETOH=0.0
-!
-!WC_GLY/WR_ALCH=0.0
-!
-!WC_GLY/WR_HCHO=0.0
-!
-!WC_GLY/WR_ALD2=0.0
-!
-!WC_GLY/WR_GLY=0.0
-!
-!WC_GLY/WR_MGLY=0.0
-!
-!WC_GLY/WR_KETL=0.0
-!
-!WC_GLY/WR_ORA1=0.0
-!
-!WC_GLY/WR_ORA2=0.0
-!
-!WC_GLY/WR_ACID=0.0
-!
-!WC_GLY/WR_RP16=0.0
-!
-!WC_GLY/WR_UR21=0.0
-!
-!WC_GLY/WR_UR28=0.0
-!
-!WC_GLY/WR_ACID2=0.0
-!
-!WC_GLY/WR_ASO3=0.0
-!
-!WC_GLY/WR_ASO4=0.0
-!
-!WC_GLY/WR_ASO5=0.0
-!
-!WC_GLY/WR_AHSO5=0.0
-!
-!WC_GLY/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ21
-!
-SUBROUTINE SUBJ22
-!
-!Indices 111 a 115
-!
-!
-!WC_MGLY/NO=0.0
-!
-!WC_MGLY/NO2=0.0
-!
-!WC_MGLY/O3=0.0
-!
-!WC_MGLY/HONO=0.0
-!
-!WC_MGLY/HNO3=0.0
-!
-!WC_MGLY/HNO4=0.0
-!
-!WC_MGLY/N2O5=0.0
-!
-!WC_MGLY/NO3=0.0
-!
-!WC_MGLY/NH3=0.0
-!
-!WC_MGLY/HO2=0.0
-!
-!WC_MGLY/CO=0.0
-!
-!WC_MGLY/H2O2=0.0
-!
-!WC_MGLY/SO2=0.0
-!
-!WC_MGLY/H2SO4=0.0
-!
-!WC_MGLY/OH=0.0
-!
-!WC_MGLY/ETHE=0.0
-!
-!WC_MGLY/OLEL=0.0
-!
-!WC_MGLY/OLEH=0.0
-!
-!WC_MGLY/ALKL=0.0
-!
-!WC_MGLY/ALKM=0.0
-!
-!WC_MGLY/ALKH=0.0
-!
-!WC_MGLY/AROH=0.0
-!
-!WC_MGLY/AROL=0.0
-!
-!WC_MGLY/AROO=0.0
-!
-!WC_MGLY/ARAL=0.0
-!
-!WC_MGLY/ARAC=0.0
-!
-!WC_MGLY/PAH=0.0
-!
-!WC_MGLY/HCHO=0.0
-!
-!WC_MGLY/ALD2=0.0
-!
-!WC_MGLY/KETL=0.0
-!
-!WC_MGLY/KETH=0.0
-!
-!WC_MGLY/MEOH=0.0
-!
-!WC_MGLY/ETOH=0.0
-!
-!WC_MGLY/ALCH=0.0
-!
-!WC_MGLY/ISOP=0.0
-!
-!WC_MGLY/BIOL=0.0
-!
-!WC_MGLY/BIOH=0.0
-!
-!WC_MGLY/MTBE=0.0
-!
-!WC_MGLY/MVK=0.0
-!
-!WC_MGLY/MCR=0.0
-!
-!WC_MGLY/MGLY=+KTC25
- PJAC(:,111,41)=+TPK%KTC25(:)
-!
-!WC_MGLY/GLY=0.0
-!
-!WC_MGLY/ORA1=0.0
-!
-!WC_MGLY/ORA2=0.0
-!
-!WC_MGLY/ACID=0.0
-!
-!WC_MGLY/UR28=0.0
-!
-!WC_MGLY/UR21=0.0
-!
-!WC_MGLY/URG2=0.0
-!
-!WC_MGLY/UR26=0.0
-!
-!WC_MGLY/RPG2=0.0
-!
-!WC_MGLY/RP18=0.0
-!
-!WC_MGLY/RPG3=0.0
-!
-!WC_MGLY/URG4=0.0
-!
-!WC_MGLY/UR8=0.0
-!
-!WC_MGLY/UR17=0.0
-!
-!WC_MGLY/UR7=0.0
-!
-!WC_MGLY/RPR3=0.0
-!
-!WC_MGLY/URG6=0.0
-!
-!WC_MGLY/UR22=0.0
-!
-!WC_MGLY/URG7=0.0
-!
-!WC_MGLY/RPR4=0.0
-!
-!WC_MGLY/RPR7=0.0
-!
-!WC_MGLY/RPG7=0.0
-!
-!WC_MGLY/URG8=0.0
-!
-!WC_MGLY/UR19=0.0
-!
-!WC_MGLY/URG9=0.0
-!
-!WC_MGLY/AP7=0.0
-!
-!WC_MGLY/URG10=0.0
-!
-!WC_MGLY/RPR1=0.0
-!
-!WC_MGLY/RPR5=0.0
-!
-!WC_MGLY/RPR8=0.0
-!
-!WC_MGLY/RP10=0.0
-!
-!WC_MGLY/RP11=0.0
-!
-!WC_MGLY/RP16=0.0
-!
-!WC_MGLY/RPRL=0.0
-!
-!WC_MGLY/APAN=0.0
-!
-!WC_MGLY/PAN1=0.0
-!
-!WC_MGLY/PAN2=0.0
-!
-!WC_MGLY/PAN3=0.0
-!
-!WC_MGLY/PAN4=0.0
-!
-!WC_MGLY/PAN6=0.0
-!
-!WC_MGLY/PAN7=0.0
-!
-!WC_MGLY/PAN8=0.0
-!
-!WC_MGLY/PN10=0.0
-!
-!WC_MGLY/RO2T=0.0
-!
-!WC_MGLY/RO21=0.0
-!
-!WC_MGLY/RO25=0.0
-!
-!WC_MGLY/WC_O3=0.0
-!
-!WC_MGLY/WC_H2O2=0.0
-!
-!WC_MGLY/WC_NO=0.0
-!
-!WC_MGLY/WC_NO2=0.0
-!
-!WC_MGLY/WC_NO3=0.0
-!
-!WC_MGLY/WC_N2O5=0.0
-!
-!WC_MGLY/WC_HONO=0.0
-!
-!WC_MGLY/WC_HNO3=0.0
-!
-!WC_MGLY/WC_HNO4=0.0
-!
-!WC_MGLY/WC_NH3=0.0
-!
-!WC_MGLY/WC_OH=-KC36*<WC_MGLY>+KC37*<WC_KETL>
- PJAC(:,111,98)=-TPK%KC36(:)*PCONC(:,111)+TPK%KC37(:)*PCONC(:,112)
-!
-!WC_MGLY/WC_HO2=0.0
-!
-!WC_MGLY/WC_CO2=0.0
-!
-!WC_MGLY/WC_SO2=0.0
-!
-!WC_MGLY/WC_H2SO4=0.0
-!
-!WC_MGLY/WC_RO21=0.0
-!
-!WC_MGLY/WC_RO25=0.0
-!
-!WC_MGLY/WC_MEOH=0.0
-!
-!WC_MGLY/WC_ETOH=0.0
-!
-!WC_MGLY/WC_ALCH=0.0
-!
-!WC_MGLY/WC_HCHO=0.0
-!
-!WC_MGLY/WC_ALD2=0.0
-!
-!WC_MGLY/WC_GLY=0.0
-!
-!WC_MGLY/WC_MGLY=-KTC56-KC36*<WC_OH>
- PJAC(:,111,111)=-TPK%KTC56(:)-TPK%KC36(:)*PCONC(:,98)
-!
-!WC_MGLY/WC_KETL=+KC37*<WC_OH>
- PJAC(:,111,112)=+TPK%KC37(:)*PCONC(:,98)
-!
-!WC_MGLY/WC_ORA1=0.0
-!
-!WC_MGLY/WC_ORA2=0.0
-!
-!WC_MGLY/WC_ACID=0.0
-!
-!WC_MGLY/WC_RP16=0.0
-!
-!WC_MGLY/WC_UR21=0.0
-!
-!WC_MGLY/WC_UR28=0.0
-!
-!WC_MGLY/WC_ACID2=0.0
-!
-!WC_MGLY/WC_ASO3=0.0
-!
-!WC_MGLY/WC_ASO4=0.0
-!
-!WC_MGLY/WC_ASO5=0.0
-!
-!WC_MGLY/WC_AHSO5=0.0
-!
-!WC_MGLY/WC_AHMS=0.0
-!
-!WC_MGLY/WR_O3=0.0
-!
-!WC_MGLY/WR_H2O2=0.0
-!
-!WC_MGLY/WR_NO=0.0
-!
-!WC_MGLY/WR_NO2=0.0
-!
-!WC_MGLY/WR_NO3=0.0
-!
-!WC_MGLY/WR_N2O5=0.0
-!
-!WC_MGLY/WR_HONO=0.0
-!
-!WC_MGLY/WR_HNO3=0.0
-!
-!WC_MGLY/WR_HNO4=0.0
-!
-!WC_MGLY/WR_NH3=0.0
-!
-!WC_MGLY/WR_OH=0.0
-!
-!WC_MGLY/WR_HO2=0.0
-!
-!WC_MGLY/WR_CO2=0.0
-!
-!WC_MGLY/WR_SO2=0.0
-!
-!WC_MGLY/WR_H2SO4=0.0
-!
-!WC_MGLY/WR_RO21=0.0
-!
-!WC_MGLY/WR_RO25=0.0
-!
-!WC_MGLY/WR_MEOH=0.0
-!
-!WC_MGLY/WR_ETOH=0.0
-!
-!WC_MGLY/WR_ALCH=0.0
-!
-!WC_MGLY/WR_HCHO=0.0
-!
-!WC_MGLY/WR_ALD2=0.0
-!
-!WC_MGLY/WR_GLY=0.0
-!
-!WC_MGLY/WR_MGLY=0.0
-!
-!WC_MGLY/WR_KETL=0.0
-!
-!WC_MGLY/WR_ORA1=0.0
-!
-!WC_MGLY/WR_ORA2=0.0
-!
-!WC_MGLY/WR_ACID=0.0
-!
-!WC_MGLY/WR_RP16=0.0
-!
-!WC_MGLY/WR_UR21=0.0
-!
-!WC_MGLY/WR_UR28=0.0
-!
-!WC_MGLY/WR_ACID2=0.0
-!
-!WC_MGLY/WR_ASO3=0.0
-!
-!WC_MGLY/WR_ASO4=0.0
-!
-!WC_MGLY/WR_ASO5=0.0
-!
-!WC_MGLY/WR_AHSO5=0.0
-!
-!WC_MGLY/WR_AHMS=0.0
-!
-!WC_KETL/NO=0.0
-!
-!WC_KETL/NO2=0.0
-!
-!WC_KETL/O3=0.0
-!
-!WC_KETL/HONO=0.0
-!
-!WC_KETL/HNO3=0.0
-!
-!WC_KETL/HNO4=0.0
-!
-!WC_KETL/N2O5=0.0
-!
-!WC_KETL/NO3=0.0
-!
-!WC_KETL/NH3=0.0
-!
-!WC_KETL/HO2=0.0
-!
-!WC_KETL/CO=0.0
-!
-!WC_KETL/H2O2=0.0
-!
-!WC_KETL/SO2=0.0
-!
-!WC_KETL/H2SO4=0.0
-!
-!WC_KETL/OH=0.0
-!
-!WC_KETL/ETHE=0.0
-!
-!WC_KETL/OLEL=0.0
-!
-!WC_KETL/OLEH=0.0
-!
-!WC_KETL/ALKL=0.0
-!
-!WC_KETL/ALKM=0.0
-!
-!WC_KETL/ALKH=0.0
-!
-!WC_KETL/AROH=0.0
-!
-!WC_KETL/AROL=0.0
-!
-!WC_KETL/AROO=0.0
-!
-!WC_KETL/ARAL=0.0
-!
-!WC_KETL/ARAC=0.0
-!
-!WC_KETL/PAH=0.0
-!
-!WC_KETL/HCHO=0.0
-!
-!WC_KETL/ALD2=0.0
-!
-!WC_KETL/KETL=+KTC24
- PJAC(:,112,30)=+TPK%KTC24(:)
-!
-!WC_KETL/KETH=0.0
-!
-!WC_KETL/MEOH=0.0
-!
-!WC_KETL/ETOH=0.0
-!
-!WC_KETL/ALCH=0.0
-!
-!WC_KETL/ISOP=0.0
-!
-!WC_KETL/BIOL=0.0
-!
-!WC_KETL/BIOH=0.0
-!
-!WC_KETL/MTBE=0.0
-!
-!WC_KETL/MVK=0.0
-!
-!WC_KETL/MCR=0.0
-!
-!WC_KETL/MGLY=0.0
-!
-!WC_KETL/GLY=0.0
-!
-!WC_KETL/ORA1=0.0
-!
-!WC_KETL/ORA2=0.0
-!
-!WC_KETL/ACID=0.0
-!
-!WC_KETL/UR28=0.0
-!
-!WC_KETL/UR21=0.0
-!
-!WC_KETL/URG2=0.0
-!
-!WC_KETL/UR26=0.0
-!
-!WC_KETL/RPG2=0.0
-!
-!WC_KETL/RP18=0.0
-!
-!WC_KETL/RPG3=0.0
-!
-!WC_KETL/URG4=0.0
-!
-!WC_KETL/UR8=0.0
-!
-!WC_KETL/UR17=0.0
-!
-!WC_KETL/UR7=0.0
-!
-!WC_KETL/RPR3=0.0
-!
-!WC_KETL/URG6=0.0
-!
-!WC_KETL/UR22=0.0
-!
-!WC_KETL/URG7=0.0
-!
-!WC_KETL/RPR4=0.0
-!
-!WC_KETL/RPR7=0.0
-!
-!WC_KETL/RPG7=0.0
-!
-!WC_KETL/URG8=0.0
-!
-!WC_KETL/UR19=0.0
-!
-!WC_KETL/URG9=0.0
-!
-!WC_KETL/AP7=0.0
-!
-!WC_KETL/URG10=0.0
-!
-!WC_KETL/RPR1=0.0
-!
-!WC_KETL/RPR5=0.0
-!
-!WC_KETL/RPR8=0.0
-!
-!WC_KETL/RP10=0.0
-!
-!WC_KETL/RP11=0.0
-!
-!WC_KETL/RP16=0.0
-!
-!WC_KETL/RPRL=0.0
-!
-!WC_KETL/APAN=0.0
-!
-!WC_KETL/PAN1=0.0
-!
-!WC_KETL/PAN2=0.0
-!
-!WC_KETL/PAN3=0.0
-!
-!WC_KETL/PAN4=0.0
-!
-!WC_KETL/PAN6=0.0
-!
-!WC_KETL/PAN7=0.0
-!
-!WC_KETL/PAN8=0.0
-!
-!WC_KETL/PN10=0.0
-!
-!WC_KETL/RO2T=0.0
-!
-!WC_KETL/RO21=0.0
-!
-!WC_KETL/RO25=0.0
-!
-!WC_KETL/WC_O3=0.0
-!
-!WC_KETL/WC_H2O2=0.0
-!
-!WC_KETL/WC_NO=0.0
-!
-!WC_KETL/WC_NO2=0.0
-!
-!WC_KETL/WC_NO3=0.0
-!
-!WC_KETL/WC_N2O5=0.0
-!
-!WC_KETL/WC_HONO=0.0
-!
-!WC_KETL/WC_HNO3=0.0
-!
-!WC_KETL/WC_HNO4=0.0
-!
-!WC_KETL/WC_NH3=0.0
-!
-!WC_KETL/WC_OH=+0.50*KC32*<WC_ALCH>+KC37*<WC_KETL>-KC37*<WC_KETL>
- PJAC(:,112,98)=+0.50*TPK%KC32(:)*PCONC(:,107)+TPK%KC37(:)*PCONC(:,112)-TPK%KC3&
-&7(:)*PCONC(:,112)
-!
-!WC_KETL/WC_HO2=0.0
-!
-!WC_KETL/WC_CO2=0.0
-!
-!WC_KETL/WC_SO2=0.0
-!
-!WC_KETL/WC_H2SO4=0.0
-!
-!WC_KETL/WC_RO21=0.0
-!
-!WC_KETL/WC_RO25=0.0
-!
-!WC_KETL/WC_MEOH=0.0
-!
-!WC_KETL/WC_ETOH=0.0
-!
-!WC_KETL/WC_ALCH=+0.50*KC32*<WC_OH>
- PJAC(:,112,107)=+0.50*TPK%KC32(:)*PCONC(:,98)
-!
-!WC_KETL/WC_HCHO=0.0
-!
-!WC_KETL/WC_ALD2=0.0
-!
-!WC_KETL/WC_GLY=0.0
-!
-!WC_KETL/WC_MGLY=0.0
-!
-!WC_KETL/WC_KETL=-KTC55+KC37*<WC_OH>-KC37*<WC_OH>
- PJAC(:,112,112)=-TPK%KTC55(:)+TPK%KC37(:)*PCONC(:,98)-TPK%KC37(:)*PCONC(:,98)
-!
-!WC_KETL/WC_ORA1=0.0
-!
-!WC_KETL/WC_ORA2=0.0
-!
-!WC_KETL/WC_ACID=0.0
-!
-!WC_KETL/WC_RP16=0.0
-!
-!WC_KETL/WC_UR21=0.0
-!
-!WC_KETL/WC_UR28=0.0
-!
-!WC_KETL/WC_ACID2=0.0
-!
-!WC_KETL/WC_ASO3=0.0
-!
-!WC_KETL/WC_ASO4=0.0
-!
-!WC_KETL/WC_ASO5=0.0
-!
-!WC_KETL/WC_AHSO5=0.0
-!
-!WC_KETL/WC_AHMS=0.0
-!
-!WC_KETL/WR_O3=0.0
-!
-!WC_KETL/WR_H2O2=0.0
-!
-!WC_KETL/WR_NO=0.0
-!
-!WC_KETL/WR_NO2=0.0
-!
-!WC_KETL/WR_NO3=0.0
-!
-!WC_KETL/WR_N2O5=0.0
-!
-!WC_KETL/WR_HONO=0.0
-!
-!WC_KETL/WR_HNO3=0.0
-!
-!WC_KETL/WR_HNO4=0.0
-!
-!WC_KETL/WR_NH3=0.0
-!
-!WC_KETL/WR_OH=0.0
-!
-!WC_KETL/WR_HO2=0.0
-!
-!WC_KETL/WR_CO2=0.0
-!
-!WC_KETL/WR_SO2=0.0
-!
-!WC_KETL/WR_H2SO4=0.0
-!
-!WC_KETL/WR_RO21=0.0
-!
-!WC_KETL/WR_RO25=0.0
-!
-!WC_KETL/WR_MEOH=0.0
-!
-!WC_KETL/WR_ETOH=0.0
-!
-!WC_KETL/WR_ALCH=0.0
-!
-!WC_KETL/WR_HCHO=0.0
-!
-!WC_KETL/WR_ALD2=0.0
-!
-!WC_KETL/WR_GLY=0.0
-!
-!WC_KETL/WR_MGLY=0.0
-!
-!WC_KETL/WR_KETL=0.0
-!
-!WC_KETL/WR_ORA1=0.0
-!
-!WC_KETL/WR_ORA2=0.0
-!
-!WC_KETL/WR_ACID=0.0
-!
-!WC_KETL/WR_RP16=0.0
-!
-!WC_KETL/WR_UR21=0.0
-!
-!WC_KETL/WR_UR28=0.0
-!
-!WC_KETL/WR_ACID2=0.0
-!
-!WC_KETL/WR_ASO3=0.0
-!
-!WC_KETL/WR_ASO4=0.0
-!
-!WC_KETL/WR_ASO5=0.0
-!
-!WC_KETL/WR_AHSO5=0.0
-!
-!WC_KETL/WR_AHMS=0.0
-!
-!WC_ORA1/NO=0.0
-!
-!WC_ORA1/NO2=0.0
-!
-!WC_ORA1/O3=0.0
-!
-!WC_ORA1/HONO=0.0
-!
-!WC_ORA1/HNO3=0.0
-!
-!WC_ORA1/HNO4=0.0
-!
-!WC_ORA1/N2O5=0.0
-!
-!WC_ORA1/NO3=0.0
-!
-!WC_ORA1/NH3=0.0
-!
-!WC_ORA1/HO2=0.0
-!
-!WC_ORA1/CO=0.0
-!
-!WC_ORA1/H2O2=0.0
-!
-!WC_ORA1/SO2=0.0
-!
-!WC_ORA1/H2SO4=0.0
-!
-!WC_ORA1/OH=0.0
-!
-!WC_ORA1/ETHE=0.0
-!
-!WC_ORA1/OLEL=0.0
-!
-!WC_ORA1/OLEH=0.0
-!
-!WC_ORA1/ALKL=0.0
-!
-!WC_ORA1/ALKM=0.0
-!
-!WC_ORA1/ALKH=0.0
-!
-!WC_ORA1/AROH=0.0
-!
-!WC_ORA1/AROL=0.0
-!
-!WC_ORA1/AROO=0.0
-!
-!WC_ORA1/ARAL=0.0
-!
-!WC_ORA1/ARAC=0.0
-!
-!WC_ORA1/PAH=0.0
-!
-!WC_ORA1/HCHO=0.0
-!
-!WC_ORA1/ALD2=0.0
-!
-!WC_ORA1/KETL=0.0
-!
-!WC_ORA1/KETH=0.0
-!
-!WC_ORA1/MEOH=0.0
-!
-!WC_ORA1/ETOH=0.0
-!
-!WC_ORA1/ALCH=0.0
-!
-!WC_ORA1/ISOP=0.0
-!
-!WC_ORA1/BIOL=0.0
-!
-!WC_ORA1/BIOH=0.0
-!
-!WC_ORA1/MTBE=0.0
-!
-!WC_ORA1/MVK=0.0
-!
-!WC_ORA1/MCR=0.0
-!
-!WC_ORA1/MGLY=0.0
-!
-!WC_ORA1/GLY=0.0
-!
-!WC_ORA1/ORA1=+KTC26
- PJAC(:,113,43)=+TPK%KTC26(:)
-!
-!WC_ORA1/ORA2=0.0
-!
-!WC_ORA1/ACID=0.0
-!
-!WC_ORA1/UR28=0.0
-!
-!WC_ORA1/UR21=0.0
-!
-!WC_ORA1/URG2=0.0
-!
-!WC_ORA1/UR26=0.0
-!
-!WC_ORA1/RPG2=0.0
-!
-!WC_ORA1/RP18=0.0
-!
-!WC_ORA1/RPG3=0.0
-!
-!WC_ORA1/URG4=0.0
-!
-!WC_ORA1/UR8=0.0
-!
-!WC_ORA1/UR17=0.0
-!
-!WC_ORA1/UR7=0.0
-!
-!WC_ORA1/RPR3=0.0
-!
-!WC_ORA1/URG6=0.0
-!
-!WC_ORA1/UR22=0.0
-!
-!WC_ORA1/URG7=0.0
-!
-!WC_ORA1/RPR4=0.0
-!
-!WC_ORA1/RPR7=0.0
-!
-!WC_ORA1/RPG7=0.0
-!
-!WC_ORA1/URG8=0.0
-!
-!WC_ORA1/UR19=0.0
-!
-!WC_ORA1/URG9=0.0
-!
-!WC_ORA1/AP7=0.0
-!
-!WC_ORA1/URG10=0.0
-!
-!WC_ORA1/RPR1=0.0
-!
-!WC_ORA1/RPR5=0.0
-!
-!WC_ORA1/RPR8=0.0
-!
-!WC_ORA1/RP10=0.0
-!
-!WC_ORA1/RP11=0.0
-!
-!WC_ORA1/RP16=0.0
-!
-!WC_ORA1/RPRL=0.0
-!
-!WC_ORA1/APAN=0.0
-!
-!WC_ORA1/PAN1=0.0
-!
-!WC_ORA1/PAN2=0.0
-!
-!WC_ORA1/PAN3=0.0
-!
-!WC_ORA1/PAN4=0.0
-!
-!WC_ORA1/PAN6=0.0
-!
-!WC_ORA1/PAN7=0.0
-!
-!WC_ORA1/PAN8=0.0
-!
-!WC_ORA1/PN10=0.0
-!
-!WC_ORA1/RO2T=0.0
-!
-!WC_ORA1/RO21=0.0
-!
-!WC_ORA1/RO25=0.0
-!
-!WC_ORA1/WC_O3=0.0
-!
-!WC_ORA1/WC_H2O2=0.0
-!
-!WC_ORA1/WC_NO=0.0
-!
-!WC_ORA1/WC_NO2=0.0
-!
-!WC_ORA1/WC_NO3=0.0
-!
-!WC_ORA1/WC_N2O5=0.0
-!
-!WC_ORA1/WC_HONO=0.0
-!
-!WC_ORA1/WC_HNO3=0.0
-!
-!WC_ORA1/WC_HNO4=0.0
-!
-!WC_ORA1/WC_NH3=0.0
-!
-!WC_ORA1/WC_OH=+KC19*<WC_AHMS>+KC33*<WC_HCHO>-KC38*<WC_ORA1>
- PJAC(:,113,98)=+TPK%KC19(:)*PCONC(:,124)+TPK%KC33(:)*PCONC(:,108)-TPK%KC38(:)*&
-&PCONC(:,113)
-!
-!WC_ORA1/WC_HO2=0.0
-!
-!WC_ORA1/WC_CO2=0.0
-!
-!WC_ORA1/WC_SO2=0.0
-!
-!WC_ORA1/WC_H2SO4=0.0
-!
-!WC_ORA1/WC_RO21=0.0
-!
-!WC_ORA1/WC_RO25=0.0
-!
-!WC_ORA1/WC_MEOH=0.0
-!
-!WC_ORA1/WC_ETOH=0.0
-!
-!WC_ORA1/WC_ALCH=0.0
-!
-!WC_ORA1/WC_HCHO=+KC33*<WC_OH>
- PJAC(:,113,108)=+TPK%KC33(:)*PCONC(:,98)
-!
-!WC_ORA1/WC_ALD2=0.0
-!
-!WC_ORA1/WC_GLY=0.0
-!
-!WC_ORA1/WC_MGLY=0.0
-!
-!WC_ORA1/WC_KETL=0.0
-!
-!WC_ORA1/WC_ORA1=-KTC57-KC38*<WC_OH>
- PJAC(:,113,113)=-TPK%KTC57(:)-TPK%KC38(:)*PCONC(:,98)
-!
-!WC_ORA1/WC_ORA2=0.0
-!
-!WC_ORA1/WC_ACID=0.0
-!
-!WC_ORA1/WC_RP16=0.0
-!
-!WC_ORA1/WC_UR21=0.0
-!
-!WC_ORA1/WC_UR28=0.0
-!
-!WC_ORA1/WC_ACID2=0.0
-!
-!WC_ORA1/WC_ASO3=0.0
-!
-!WC_ORA1/WC_ASO4=0.0
-!
-!WC_ORA1/WC_ASO5=0.0
-!
-!WC_ORA1/WC_AHSO5=0.0
-!
-!WC_ORA1/WC_AHMS=+KC19*<WC_OH>
- PJAC(:,113,124)=+TPK%KC19(:)*PCONC(:,98)
-!
-!WC_ORA1/WR_O3=0.0
-!
-!WC_ORA1/WR_H2O2=0.0
-!
-!WC_ORA1/WR_NO=0.0
-!
-!WC_ORA1/WR_NO2=0.0
-!
-!WC_ORA1/WR_NO3=0.0
-!
-!WC_ORA1/WR_N2O5=0.0
-!
-!WC_ORA1/WR_HONO=0.0
-!
-!WC_ORA1/WR_HNO3=0.0
-!
-!WC_ORA1/WR_HNO4=0.0
-!
-!WC_ORA1/WR_NH3=0.0
-!
-!WC_ORA1/WR_OH=0.0
-!
-!WC_ORA1/WR_HO2=0.0
-!
-!WC_ORA1/WR_CO2=0.0
-!
-!WC_ORA1/WR_SO2=0.0
-!
-!WC_ORA1/WR_H2SO4=0.0
-!
-!WC_ORA1/WR_RO21=0.0
-!
-!WC_ORA1/WR_RO25=0.0
-!
-!WC_ORA1/WR_MEOH=0.0
-!
-!WC_ORA1/WR_ETOH=0.0
-!
-!WC_ORA1/WR_ALCH=0.0
-!
-!WC_ORA1/WR_HCHO=0.0
-!
-!WC_ORA1/WR_ALD2=0.0
-!
-!WC_ORA1/WR_GLY=0.0
-!
-!WC_ORA1/WR_MGLY=0.0
-!
-!WC_ORA1/WR_KETL=0.0
-!
-!WC_ORA1/WR_ORA1=0.0
-!
-!WC_ORA1/WR_ORA2=0.0
-!
-!WC_ORA1/WR_ACID=0.0
-!
-!WC_ORA1/WR_RP16=0.0
-!
-!WC_ORA1/WR_UR21=0.0
-!
-!WC_ORA1/WR_UR28=0.0
-!
-!WC_ORA1/WR_ACID2=0.0
-!
-!WC_ORA1/WR_ASO3=0.0
-!
-!WC_ORA1/WR_ASO4=0.0
-!
-!WC_ORA1/WR_ASO5=0.0
-!
-!WC_ORA1/WR_AHSO5=0.0
-!
-!WC_ORA1/WR_AHMS=0.0
-!
-!WC_ORA2/NO=0.0
-!
-!WC_ORA2/NO2=0.0
-!
-!WC_ORA2/O3=0.0
-!
-!WC_ORA2/HONO=0.0
-!
-!WC_ORA2/HNO3=0.0
-!
-!WC_ORA2/HNO4=0.0
-!
-!WC_ORA2/N2O5=0.0
-!
-!WC_ORA2/NO3=0.0
-!
-!WC_ORA2/NH3=0.0
-!
-!WC_ORA2/HO2=0.0
-!
-!WC_ORA2/CO=0.0
-!
-!WC_ORA2/H2O2=0.0
-!
-!WC_ORA2/SO2=0.0
-!
-!WC_ORA2/H2SO4=0.0
-!
-!WC_ORA2/OH=0.0
-!
-!WC_ORA2/ETHE=0.0
-!
-!WC_ORA2/OLEL=0.0
-!
-!WC_ORA2/OLEH=0.0
-!
-!WC_ORA2/ALKL=0.0
-!
-!WC_ORA2/ALKM=0.0
-!
-!WC_ORA2/ALKH=0.0
-!
-!WC_ORA2/AROH=0.0
-!
-!WC_ORA2/AROL=0.0
-!
-!WC_ORA2/AROO=0.0
-!
-!WC_ORA2/ARAL=0.0
-!
-!WC_ORA2/ARAC=0.0
-!
-!WC_ORA2/PAH=0.0
-!
-!WC_ORA2/HCHO=0.0
-!
-!WC_ORA2/ALD2=0.0
-!
-!WC_ORA2/KETL=0.0
-!
-!WC_ORA2/KETH=0.0
-!
-!WC_ORA2/MEOH=0.0
-!
-!WC_ORA2/ETOH=0.0
-!
-!WC_ORA2/ALCH=0.0
-!
-!WC_ORA2/ISOP=0.0
-!
-!WC_ORA2/BIOL=0.0
-!
-!WC_ORA2/BIOH=0.0
-!
-!WC_ORA2/MTBE=0.0
-!
-!WC_ORA2/MVK=0.0
-!
-!WC_ORA2/MCR=0.0
-!
-!WC_ORA2/MGLY=0.0
-!
-!WC_ORA2/GLY=0.0
-!
-!WC_ORA2/ORA1=0.0
-!
-!WC_ORA2/ORA2=+KTC27
- PJAC(:,114,44)=+TPK%KTC27(:)
-!
-!WC_ORA2/ACID=0.0
-!
-!WC_ORA2/UR28=0.0
-!
-!WC_ORA2/UR21=0.0
-!
-!WC_ORA2/URG2=0.0
-!
-!WC_ORA2/UR26=0.0
-!
-!WC_ORA2/RPG2=0.0
-!
-!WC_ORA2/RP18=0.0
-!
-!WC_ORA2/RPG3=0.0
-!
-!WC_ORA2/URG4=0.0
-!
-!WC_ORA2/UR8=0.0
-!
-!WC_ORA2/UR17=0.0
-!
-!WC_ORA2/UR7=0.0
-!
-!WC_ORA2/RPR3=0.0
-!
-!WC_ORA2/URG6=0.0
-!
-!WC_ORA2/UR22=0.0
-!
-!WC_ORA2/URG7=0.0
-!
-!WC_ORA2/RPR4=0.0
-!
-!WC_ORA2/RPR7=0.0
-!
-!WC_ORA2/RPG7=0.0
-!
-!WC_ORA2/URG8=0.0
-!
-!WC_ORA2/UR19=0.0
-!
-!WC_ORA2/URG9=0.0
-!
-!WC_ORA2/AP7=0.0
-!
-!WC_ORA2/URG10=0.0
-!
-!WC_ORA2/RPR1=0.0
-!
-!WC_ORA2/RPR5=0.0
-!
-!WC_ORA2/RPR8=0.0
-!
-!WC_ORA2/RP10=0.0
-!
-!WC_ORA2/RP11=0.0
-!
-!WC_ORA2/RP16=0.0
-!
-!WC_ORA2/RPRL=0.0
-!
-!WC_ORA2/APAN=0.0
-!
-!WC_ORA2/PAN1=0.0
-!
-!WC_ORA2/PAN2=0.0
-!
-!WC_ORA2/PAN3=0.0
-!
-!WC_ORA2/PAN4=0.0
-!
-!WC_ORA2/PAN6=0.0
-!
-!WC_ORA2/PAN7=0.0
-!
-!WC_ORA2/PAN8=0.0
-!
-!WC_ORA2/PN10=0.0
-!
-!WC_ORA2/RO2T=0.0
-!
-!WC_ORA2/RO21=0.0
-!
-!WC_ORA2/RO25=0.0
-!
-!WC_ORA2/WC_O3=0.0
-!
-!WC_ORA2/WC_H2O2=0.0
-!
-!WC_ORA2/WC_NO=0.0
-!
-!WC_ORA2/WC_NO2=0.0
-!
-!WC_ORA2/WC_NO3=0.0
-!
-!WC_ORA2/WC_N2O5=0.0
-!
-!WC_ORA2/WC_HONO=0.0
-!
-!WC_ORA2/WC_HNO3=0.0
-!
-!WC_ORA2/WC_HNO4=0.0
-!
-!WC_ORA2/WC_NH3=0.0
-!
-!WC_ORA2/WC_OH=-KC39*<WC_ORA2>
- PJAC(:,114,98)=-TPK%KC39(:)*PCONC(:,114)
-!
-!WC_ORA2/WC_HO2=0.0
-!
-!WC_ORA2/WC_CO2=0.0
-!
-!WC_ORA2/WC_SO2=0.0
-!
-!WC_ORA2/WC_H2SO4=0.0
-!
-!WC_ORA2/WC_RO21=0.0
-!
-!WC_ORA2/WC_RO25=+KC29*<WC_RO25>+KC29*<WC_RO25>
- PJAC(:,114,104)=+TPK%KC29(:)*PCONC(:,104)+TPK%KC29(:)*PCONC(:,104)
-!
-!WC_ORA2/WC_MEOH=0.0
-!
-!WC_ORA2/WC_ETOH=0.0
-!
-!WC_ORA2/WC_ALCH=0.0
-!
-!WC_ORA2/WC_HCHO=0.0
-!
-!WC_ORA2/WC_ALD2=0.0
-!
-!WC_ORA2/WC_GLY=0.0
-!
-!WC_ORA2/WC_MGLY=0.0
-!
-!WC_ORA2/WC_KETL=0.0
-!
-!WC_ORA2/WC_ORA1=0.0
-!
-!WC_ORA2/WC_ORA2=-KTC58-KC39*<WC_OH>
- PJAC(:,114,114)=-TPK%KTC58(:)-TPK%KC39(:)*PCONC(:,98)
-!
-!WC_ORA2/WC_ACID=0.0
-!
-!WC_ORA2/WC_RP16=0.0
-!
-!WC_ORA2/WC_UR21=0.0
-!
-!WC_ORA2/WC_UR28=0.0
-!
-!WC_ORA2/WC_ACID2=0.0
-!
-!WC_ORA2/WC_ASO3=0.0
-!
-!WC_ORA2/WC_ASO4=0.0
-!
-!WC_ORA2/WC_ASO5=0.0
-!
-!WC_ORA2/WC_AHSO5=0.0
-!
-!WC_ORA2/WC_AHMS=0.0
-!
-!WC_ORA2/WR_O3=0.0
-!
-!WC_ORA2/WR_H2O2=0.0
-!
-!WC_ORA2/WR_NO=0.0
-!
-!WC_ORA2/WR_NO2=0.0
-!
-!WC_ORA2/WR_NO3=0.0
-!
-!WC_ORA2/WR_N2O5=0.0
-!
-!WC_ORA2/WR_HONO=0.0
-!
-!WC_ORA2/WR_HNO3=0.0
-!
-!WC_ORA2/WR_HNO4=0.0
-!
-!WC_ORA2/WR_NH3=0.0
-!
-!WC_ORA2/WR_OH=0.0
-!
-!WC_ORA2/WR_HO2=0.0
-!
-!WC_ORA2/WR_CO2=0.0
-!
-!WC_ORA2/WR_SO2=0.0
-!
-!WC_ORA2/WR_H2SO4=0.0
-!
-!WC_ORA2/WR_RO21=0.0
-!
-!WC_ORA2/WR_RO25=0.0
-!
-!WC_ORA2/WR_MEOH=0.0
-!
-!WC_ORA2/WR_ETOH=0.0
-!
-!WC_ORA2/WR_ALCH=0.0
-!
-!WC_ORA2/WR_HCHO=0.0
-!
-!WC_ORA2/WR_ALD2=0.0
-!
-!WC_ORA2/WR_GLY=0.0
-!
-!WC_ORA2/WR_MGLY=0.0
-!
-!WC_ORA2/WR_KETL=0.0
-!
-!WC_ORA2/WR_ORA1=0.0
-!
-!WC_ORA2/WR_ORA2=0.0
-!
-!WC_ORA2/WR_ACID=0.0
-!
-!WC_ORA2/WR_RP16=0.0
-!
-!WC_ORA2/WR_UR21=0.0
-!
-!WC_ORA2/WR_UR28=0.0
-!
-!WC_ORA2/WR_ACID2=0.0
-!
-!WC_ORA2/WR_ASO3=0.0
-!
-!WC_ORA2/WR_ASO4=0.0
-!
-!WC_ORA2/WR_ASO5=0.0
-!
-!WC_ORA2/WR_AHSO5=0.0
-!
-!WC_ORA2/WR_AHMS=0.0
-!
-!WC_ACID/NO=0.0
-!
-!WC_ACID/NO2=0.0
-!
-!WC_ACID/O3=0.0
-!
-!WC_ACID/HONO=0.0
-!
-!WC_ACID/HNO3=0.0
-!
-!WC_ACID/HNO4=0.0
-!
-!WC_ACID/N2O5=0.0
-!
-!WC_ACID/NO3=0.0
-!
-!WC_ACID/NH3=0.0
-!
-!WC_ACID/HO2=0.0
-!
-!WC_ACID/CO=0.0
-!
-!WC_ACID/H2O2=0.0
-!
-!WC_ACID/SO2=0.0
-!
-!WC_ACID/H2SO4=0.0
-!
-!WC_ACID/OH=0.0
-!
-!WC_ACID/ETHE=0.0
-!
-!WC_ACID/OLEL=0.0
-!
-!WC_ACID/OLEH=0.0
-!
-!WC_ACID/ALKL=0.0
-!
-!WC_ACID/ALKM=0.0
-!
-!WC_ACID/ALKH=0.0
-!
-!WC_ACID/AROH=0.0
-!
-!WC_ACID/AROL=0.0
-!
-!WC_ACID/AROO=0.0
-!
-!WC_ACID/ARAL=0.0
-!
-!WC_ACID/ARAC=0.0
-!
-!WC_ACID/PAH=0.0
-!
-!WC_ACID/HCHO=0.0
-!
-!WC_ACID/ALD2=0.0
-!
-!WC_ACID/KETL=0.0
-!
-!WC_ACID/KETH=0.0
-!
-!WC_ACID/MEOH=0.0
-!
-!WC_ACID/ETOH=0.0
-!
-!WC_ACID/ALCH=0.0
-!
-!WC_ACID/ISOP=0.0
-!
-!WC_ACID/BIOL=0.0
-!
-!WC_ACID/BIOH=0.0
-!
-!WC_ACID/MTBE=0.0
-!
-!WC_ACID/MVK=0.0
-!
-!WC_ACID/MCR=0.0
-!
-!WC_ACID/MGLY=0.0
-!
-!WC_ACID/GLY=0.0
-!
-!WC_ACID/ORA1=0.0
-!
-!WC_ACID/ORA2=0.0
-!
-!WC_ACID/ACID=+KTC28
- PJAC(:,115,45)=+TPK%KTC28(:)
-!
-!WC_ACID/UR28=0.0
-!
-!WC_ACID/UR21=0.0
-!
-!WC_ACID/URG2=0.0
-!
-!WC_ACID/UR26=0.0
-!
-!WC_ACID/RPG2=0.0
-!
-!WC_ACID/RP18=0.0
-!
-!WC_ACID/RPG3=0.0
-!
-!WC_ACID/URG4=0.0
-!
-!WC_ACID/UR8=0.0
-!
-!WC_ACID/UR17=0.0
-!
-!WC_ACID/UR7=0.0
-!
-!WC_ACID/RPR3=0.0
-!
-!WC_ACID/URG6=0.0
-!
-!WC_ACID/UR22=0.0
-!
-!WC_ACID/URG7=0.0
-!
-!WC_ACID/RPR4=0.0
-!
-!WC_ACID/RPR7=0.0
-!
-!WC_ACID/RPG7=0.0
-!
-!WC_ACID/URG8=0.0
-!
-!WC_ACID/UR19=0.0
-!
-!WC_ACID/URG9=0.0
-!
-!WC_ACID/AP7=0.0
-!
-!WC_ACID/URG10=0.0
-!
-!WC_ACID/RPR1=0.0
-!
-!WC_ACID/RPR5=0.0
-!
-!WC_ACID/RPR8=0.0
-!
-!WC_ACID/RP10=0.0
-!
-!WC_ACID/RP11=0.0
-!
-!WC_ACID/RP16=0.0
-!
-!WC_ACID/RPRL=0.0
-!
-!WC_ACID/APAN=0.0
-!
-!WC_ACID/PAN1=0.0
-!
-!WC_ACID/PAN2=0.0
-!
-!WC_ACID/PAN3=0.0
-!
-!WC_ACID/PAN4=0.0
-!
-!WC_ACID/PAN6=0.0
-!
-!WC_ACID/PAN7=0.0
-!
-!WC_ACID/PAN8=0.0
-!
-!WC_ACID/PN10=0.0
-!
-!WC_ACID/RO2T=0.0
-!
-!WC_ACID/RO21=0.0
-!
-!WC_ACID/RO25=0.0
-!
-!WC_ACID/WC_O3=0.0
-!
-!WC_ACID/WC_H2O2=0.0
-!
-!WC_ACID/WC_NO=0.0
-!
-!WC_ACID/WC_NO2=0.0
-!
-!WC_ACID/WC_NO3=0.0
-!
-!WC_ACID/WC_N2O5=0.0
-!
-!WC_ACID/WC_HONO=0.0
-!
-!WC_ACID/WC_HNO3=0.0
-!
-!WC_ACID/WC_HNO4=0.0
-!
-!WC_ACID/WC_NH3=0.0
-!
-!WC_ACID/WC_OH=-KC40*<WC_ACID>-KC41*<WC_ACID>
- PJAC(:,115,98)=-TPK%KC40(:)*PCONC(:,115)-TPK%KC41(:)*PCONC(:,115)
-!
-!WC_ACID/WC_HO2=0.0
-!
-!WC_ACID/WC_CO2=0.0
-!
-!WC_ACID/WC_SO2=0.0
-!
-!WC_ACID/WC_H2SO4=0.0
-!
-!WC_ACID/WC_RO21=0.0
-!
-!WC_ACID/WC_RO25=0.0
-!
-!WC_ACID/WC_MEOH=0.0
-!
-!WC_ACID/WC_ETOH=0.0
-!
-!WC_ACID/WC_ALCH=0.0
-!
-!WC_ACID/WC_HCHO=0.0
-!
-!WC_ACID/WC_ALD2=0.0
-!
-!WC_ACID/WC_GLY=0.0
-!
-!WC_ACID/WC_MGLY=0.0
-!
-!WC_ACID/WC_KETL=0.0
-!
-!WC_ACID/WC_ORA1=0.0
-!
-!WC_ACID/WC_ORA2=0.0
-!
-!WC_ACID/WC_ACID=-KTC59-KC40*<WC_OH>-KC41*<WC_OH>
- PJAC(:,115,115)=-TPK%KTC59(:)-TPK%KC40(:)*PCONC(:,98)-TPK%KC41(:)*PCONC(:,98)
-!
-!WC_ACID/WC_RP16=0.0
-!
-!WC_ACID/WC_UR21=0.0
-!
-!WC_ACID/WC_UR28=0.0
-!
-!WC_ACID/WC_ACID2=0.0
-!
-!WC_ACID/WC_ASO3=0.0
-!
-!WC_ACID/WC_ASO4=0.0
-!
-!WC_ACID/WC_ASO5=0.0
-!
-!WC_ACID/WC_AHSO5=0.0
-!
-!WC_ACID/WC_AHMS=0.0
-!
-!WC_ACID/WR_O3=0.0
-!
-!WC_ACID/WR_H2O2=0.0
-!
-!WC_ACID/WR_NO=0.0
-!
-!WC_ACID/WR_NO2=0.0
-!
-!WC_ACID/WR_NO3=0.0
-!
-!WC_ACID/WR_N2O5=0.0
-!
-!WC_ACID/WR_HONO=0.0
-!
-!WC_ACID/WR_HNO3=0.0
-!
-!WC_ACID/WR_HNO4=0.0
-!
-!WC_ACID/WR_NH3=0.0
-!
-!WC_ACID/WR_OH=0.0
-!
-!WC_ACID/WR_HO2=0.0
-!
-!WC_ACID/WR_CO2=0.0
-!
-!WC_ACID/WR_SO2=0.0
-!
-!WC_ACID/WR_H2SO4=0.0
-!
-!WC_ACID/WR_RO21=0.0
-!
-!WC_ACID/WR_RO25=0.0
-!
-!WC_ACID/WR_MEOH=0.0
-!
-!WC_ACID/WR_ETOH=0.0
-!
-!WC_ACID/WR_ALCH=0.0
-!
-!WC_ACID/WR_HCHO=0.0
-!
-!WC_ACID/WR_ALD2=0.0
-!
-!WC_ACID/WR_GLY=0.0
-!
-!WC_ACID/WR_MGLY=0.0
-!
-!WC_ACID/WR_KETL=0.0
-!
-!WC_ACID/WR_ORA1=0.0
-!
-!WC_ACID/WR_ORA2=0.0
-!
-!WC_ACID/WR_ACID=0.0
-!
-!WC_ACID/WR_RP16=0.0
-!
-!WC_ACID/WR_UR21=0.0
-!
-!WC_ACID/WR_UR28=0.0
-!
-!WC_ACID/WR_ACID2=0.0
-!
-!WC_ACID/WR_ASO3=0.0
-!
-!WC_ACID/WR_ASO4=0.0
-!
-!WC_ACID/WR_ASO5=0.0
-!
-!WC_ACID/WR_AHSO5=0.0
-!
-!WC_ACID/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ22
-!
-SUBROUTINE SUBJ23
-!
-!Indices 116 a 120
-!
-!
-!WC_RP16/NO=0.0
-!
-!WC_RP16/NO2=0.0
-!
-!WC_RP16/O3=0.0
-!
-!WC_RP16/HONO=0.0
-!
-!WC_RP16/HNO3=0.0
-!
-!WC_RP16/HNO4=0.0
-!
-!WC_RP16/N2O5=0.0
-!
-!WC_RP16/NO3=0.0
-!
-!WC_RP16/NH3=0.0
-!
-!WC_RP16/HO2=0.0
-!
-!WC_RP16/CO=0.0
-!
-!WC_RP16/H2O2=0.0
-!
-!WC_RP16/SO2=0.0
-!
-!WC_RP16/H2SO4=0.0
-!
-!WC_RP16/OH=0.0
-!
-!WC_RP16/ETHE=0.0
-!
-!WC_RP16/OLEL=0.0
-!
-!WC_RP16/OLEH=0.0
-!
-!WC_RP16/ALKL=0.0
-!
-!WC_RP16/ALKM=0.0
-!
-!WC_RP16/ALKH=0.0
-!
-!WC_RP16/AROH=0.0
-!
-!WC_RP16/AROL=0.0
-!
-!WC_RP16/AROO=0.0
-!
-!WC_RP16/ARAL=0.0
-!
-!WC_RP16/ARAC=0.0
-!
-!WC_RP16/PAH=0.0
-!
-!WC_RP16/HCHO=0.0
-!
-!WC_RP16/ALD2=0.0
-!
-!WC_RP16/KETL=0.0
-!
-!WC_RP16/KETH=0.0
-!
-!WC_RP16/MEOH=0.0
-!
-!WC_RP16/ETOH=0.0
-!
-!WC_RP16/ALCH=0.0
-!
-!WC_RP16/ISOP=0.0
-!
-!WC_RP16/BIOL=0.0
-!
-!WC_RP16/BIOH=0.0
-!
-!WC_RP16/MTBE=0.0
-!
-!WC_RP16/MVK=0.0
-!
-!WC_RP16/MCR=0.0
-!
-!WC_RP16/MGLY=0.0
-!
-!WC_RP16/GLY=0.0
-!
-!WC_RP16/ORA1=0.0
-!
-!WC_RP16/ORA2=0.0
-!
-!WC_RP16/ACID=0.0
-!
-!WC_RP16/UR28=0.0
-!
-!WC_RP16/UR21=0.0
-!
-!WC_RP16/URG2=0.0
-!
-!WC_RP16/UR26=0.0
-!
-!WC_RP16/RPG2=0.0
-!
-!WC_RP16/RP18=0.0
-!
-!WC_RP16/RPG3=0.0
-!
-!WC_RP16/URG4=0.0
-!
-!WC_RP16/UR8=0.0
-!
-!WC_RP16/UR17=0.0
-!
-!WC_RP16/UR7=0.0
-!
-!WC_RP16/RPR3=0.0
-!
-!WC_RP16/URG6=0.0
-!
-!WC_RP16/UR22=0.0
-!
-!WC_RP16/URG7=0.0
-!
-!WC_RP16/RPR4=0.0
-!
-!WC_RP16/RPR7=0.0
-!
-!WC_RP16/RPG7=0.0
-!
-!WC_RP16/URG8=0.0
-!
-!WC_RP16/UR19=0.0
-!
-!WC_RP16/URG9=0.0
-!
-!WC_RP16/AP7=0.0
-!
-!WC_RP16/URG10=0.0
-!
-!WC_RP16/RPR1=0.0
-!
-!WC_RP16/RPR5=0.0
-!
-!WC_RP16/RPR8=0.0
-!
-!WC_RP16/RP10=0.0
-!
-!WC_RP16/RP11=0.0
-!
-!WC_RP16/RP16=+KTC29
- PJAC(:,116,74)=+TPK%KTC29(:)
-!
-!WC_RP16/RPRL=0.0
-!
-!WC_RP16/APAN=0.0
-!
-!WC_RP16/PAN1=0.0
-!
-!WC_RP16/PAN2=0.0
-!
-!WC_RP16/PAN3=0.0
-!
-!WC_RP16/PAN4=0.0
-!
-!WC_RP16/PAN6=0.0
-!
-!WC_RP16/PAN7=0.0
-!
-!WC_RP16/PAN8=0.0
-!
-!WC_RP16/PN10=0.0
-!
-!WC_RP16/RO2T=0.0
-!
-!WC_RP16/RO21=0.0
-!
-!WC_RP16/RO25=0.0
-!
-!WC_RP16/WC_O3=0.0
-!
-!WC_RP16/WC_H2O2=0.0
-!
-!WC_RP16/WC_NO=0.0
-!
-!WC_RP16/WC_NO2=0.0
-!
-!WC_RP16/WC_NO3=0.0
-!
-!WC_RP16/WC_N2O5=0.0
-!
-!WC_RP16/WC_HONO=0.0
-!
-!WC_RP16/WC_HNO3=0.0
-!
-!WC_RP16/WC_HNO4=0.0
-!
-!WC_RP16/WC_NH3=0.0
-!
-!WC_RP16/WC_OH=+KC35*<WC_GLY>+KC39*<WC_ORA2>-KC44*<WC_RP16>-KC45*<WC_RP16>
- PJAC(:,116,98)=+TPK%KC35(:)*PCONC(:,110)+TPK%KC39(:)*PCONC(:,114)-TPK%KC44(:)*&
-&PCONC(:,116)-TPK%KC45(:)*PCONC(:,116)
-!
-!WC_RP16/WC_HO2=0.0
-!
-!WC_RP16/WC_CO2=0.0
-!
-!WC_RP16/WC_SO2=0.0
-!
-!WC_RP16/WC_H2SO4=0.0
-!
-!WC_RP16/WC_RO21=0.0
-!
-!WC_RP16/WC_RO25=0.0
-!
-!WC_RP16/WC_MEOH=0.0
-!
-!WC_RP16/WC_ETOH=0.0
-!
-!WC_RP16/WC_ALCH=0.0
-!
-!WC_RP16/WC_HCHO=0.0
-!
-!WC_RP16/WC_ALD2=0.0
-!
-!WC_RP16/WC_GLY=+KC35*<WC_OH>
- PJAC(:,116,110)=+TPK%KC35(:)*PCONC(:,98)
-!
-!WC_RP16/WC_MGLY=0.0
-!
-!WC_RP16/WC_KETL=0.0
-!
-!WC_RP16/WC_ORA1=0.0
-!
-!WC_RP16/WC_ORA2=+KC39*<WC_OH>
- PJAC(:,116,114)=+TPK%KC39(:)*PCONC(:,98)
-!
-!WC_RP16/WC_ACID=0.0
-!
-!WC_RP16/WC_RP16=-KTC60-KC44*<WC_OH>-KC45*<WC_OH>
- PJAC(:,116,116)=-TPK%KTC60(:)-TPK%KC44(:)*PCONC(:,98)-TPK%KC45(:)*PCONC(:,98)
-!
-!WC_RP16/WC_UR21=0.0
-!
-!WC_RP16/WC_UR28=0.0
-!
-!WC_RP16/WC_ACID2=0.0
-!
-!WC_RP16/WC_ASO3=0.0
-!
-!WC_RP16/WC_ASO4=0.0
-!
-!WC_RP16/WC_ASO5=0.0
-!
-!WC_RP16/WC_AHSO5=0.0
-!
-!WC_RP16/WC_AHMS=0.0
-!
-!WC_RP16/WR_O3=0.0
-!
-!WC_RP16/WR_H2O2=0.0
-!
-!WC_RP16/WR_NO=0.0
-!
-!WC_RP16/WR_NO2=0.0
-!
-!WC_RP16/WR_NO3=0.0
-!
-!WC_RP16/WR_N2O5=0.0
-!
-!WC_RP16/WR_HONO=0.0
-!
-!WC_RP16/WR_HNO3=0.0
-!
-!WC_RP16/WR_HNO4=0.0
-!
-!WC_RP16/WR_NH3=0.0
-!
-!WC_RP16/WR_OH=0.0
-!
-!WC_RP16/WR_HO2=0.0
-!
-!WC_RP16/WR_CO2=0.0
-!
-!WC_RP16/WR_SO2=0.0
-!
-!WC_RP16/WR_H2SO4=0.0
-!
-!WC_RP16/WR_RO21=0.0
-!
-!WC_RP16/WR_RO25=0.0
-!
-!WC_RP16/WR_MEOH=0.0
-!
-!WC_RP16/WR_ETOH=0.0
-!
-!WC_RP16/WR_ALCH=0.0
-!
-!WC_RP16/WR_HCHO=0.0
-!
-!WC_RP16/WR_ALD2=0.0
-!
-!WC_RP16/WR_GLY=0.0
-!
-!WC_RP16/WR_MGLY=0.0
-!
-!WC_RP16/WR_KETL=0.0
-!
-!WC_RP16/WR_ORA1=0.0
-!
-!WC_RP16/WR_ORA2=0.0
-!
-!WC_RP16/WR_ACID=0.0
-!
-!WC_RP16/WR_RP16=0.0
-!
-!WC_RP16/WR_UR21=0.0
-!
-!WC_RP16/WR_UR28=0.0
-!
-!WC_RP16/WR_ACID2=0.0
-!
-!WC_RP16/WR_ASO3=0.0
-!
-!WC_RP16/WR_ASO4=0.0
-!
-!WC_RP16/WR_ASO5=0.0
-!
-!WC_RP16/WR_AHSO5=0.0
-!
-!WC_RP16/WR_AHMS=0.0
-!
-!WC_UR21/NO=0.0
-!
-!WC_UR21/NO2=0.0
-!
-!WC_UR21/O3=0.0
-!
-!WC_UR21/HONO=0.0
-!
-!WC_UR21/HNO3=0.0
-!
-!WC_UR21/HNO4=0.0
-!
-!WC_UR21/N2O5=0.0
-!
-!WC_UR21/NO3=0.0
-!
-!WC_UR21/NH3=0.0
-!
-!WC_UR21/HO2=0.0
-!
-!WC_UR21/CO=0.0
-!
-!WC_UR21/H2O2=0.0
-!
-!WC_UR21/SO2=0.0
-!
-!WC_UR21/H2SO4=0.0
-!
-!WC_UR21/OH=0.0
-!
-!WC_UR21/ETHE=0.0
-!
-!WC_UR21/OLEL=0.0
-!
-!WC_UR21/OLEH=0.0
-!
-!WC_UR21/ALKL=0.0
-!
-!WC_UR21/ALKM=0.0
-!
-!WC_UR21/ALKH=0.0
-!
-!WC_UR21/AROH=0.0
-!
-!WC_UR21/AROL=0.0
-!
-!WC_UR21/AROO=0.0
-!
-!WC_UR21/ARAL=0.0
-!
-!WC_UR21/ARAC=0.0
-!
-!WC_UR21/PAH=0.0
-!
-!WC_UR21/HCHO=0.0
-!
-!WC_UR21/ALD2=0.0
-!
-!WC_UR21/KETL=0.0
-!
-!WC_UR21/KETH=0.0
-!
-!WC_UR21/MEOH=0.0
-!
-!WC_UR21/ETOH=0.0
-!
-!WC_UR21/ALCH=0.0
-!
-!WC_UR21/ISOP=0.0
-!
-!WC_UR21/BIOL=0.0
-!
-!WC_UR21/BIOH=0.0
-!
-!WC_UR21/MTBE=0.0
-!
-!WC_UR21/MVK=0.0
-!
-!WC_UR21/MCR=0.0
-!
-!WC_UR21/MGLY=0.0
-!
-!WC_UR21/GLY=0.0
-!
-!WC_UR21/ORA1=0.0
-!
-!WC_UR21/ORA2=0.0
-!
-!WC_UR21/ACID=0.0
-!
-!WC_UR21/UR28=0.0
-!
-!WC_UR21/UR21=+KTC30
- PJAC(:,117,47)=+TPK%KTC30(:)
-!
-!WC_UR21/URG2=0.0
-!
-!WC_UR21/UR26=0.0
-!
-!WC_UR21/RPG2=0.0
-!
-!WC_UR21/RP18=0.0
-!
-!WC_UR21/RPG3=0.0
-!
-!WC_UR21/URG4=0.0
-!
-!WC_UR21/UR8=0.0
-!
-!WC_UR21/UR17=0.0
-!
-!WC_UR21/UR7=0.0
-!
-!WC_UR21/RPR3=0.0
-!
-!WC_UR21/URG6=0.0
-!
-!WC_UR21/UR22=0.0
-!
-!WC_UR21/URG7=0.0
-!
-!WC_UR21/RPR4=0.0
-!
-!WC_UR21/RPR7=0.0
-!
-!WC_UR21/RPG7=0.0
-!
-!WC_UR21/URG8=0.0
-!
-!WC_UR21/UR19=0.0
-!
-!WC_UR21/URG9=0.0
-!
-!WC_UR21/AP7=0.0
-!
-!WC_UR21/URG10=0.0
-!
-!WC_UR21/RPR1=0.0
-!
-!WC_UR21/RPR5=0.0
-!
-!WC_UR21/RPR8=0.0
-!
-!WC_UR21/RP10=0.0
-!
-!WC_UR21/RP11=0.0
-!
-!WC_UR21/RP16=0.0
-!
-!WC_UR21/RPRL=0.0
-!
-!WC_UR21/APAN=0.0
-!
-!WC_UR21/PAN1=0.0
-!
-!WC_UR21/PAN2=0.0
-!
-!WC_UR21/PAN3=0.0
-!
-!WC_UR21/PAN4=0.0
-!
-!WC_UR21/PAN6=0.0
-!
-!WC_UR21/PAN7=0.0
-!
-!WC_UR21/PAN8=0.0
-!
-!WC_UR21/PN10=0.0
-!
-!WC_UR21/RO2T=0.0
-!
-!WC_UR21/RO21=0.0
-!
-!WC_UR21/RO25=0.0
-!
-!WC_UR21/WC_O3=0.0
-!
-!WC_UR21/WC_H2O2=0.0
-!
-!WC_UR21/WC_NO=0.0
-!
-!WC_UR21/WC_NO2=0.0
-!
-!WC_UR21/WC_NO3=0.0
-!
-!WC_UR21/WC_N2O5=0.0
-!
-!WC_UR21/WC_HONO=0.0
-!
-!WC_UR21/WC_HNO3=0.0
-!
-!WC_UR21/WC_HNO4=0.0
-!
-!WC_UR21/WC_NH3=0.0
-!
-!WC_UR21/WC_OH=+KC36*<WC_MGLY>+KC37*<WC_KETL>+0.56*KC41*<WC_ACID>-KC43*<WC_UR21
-!>
- PJAC(:,117,98)=+TPK%KC36(:)*PCONC(:,111)+TPK%KC37(:)*PCONC(:,112)+0.56*TPK%KC4&
-&1(:)*PCONC(:,115)-TPK%KC43(:)*PCONC(:,117)
-!
-!WC_UR21/WC_HO2=0.0
-!
-!WC_UR21/WC_CO2=0.0
-!
-!WC_UR21/WC_SO2=0.0
-!
-!WC_UR21/WC_H2SO4=0.0
-!
-!WC_UR21/WC_RO21=0.0
-!
-!WC_UR21/WC_RO25=0.0
-!
-!WC_UR21/WC_MEOH=0.0
-!
-!WC_UR21/WC_ETOH=0.0
-!
-!WC_UR21/WC_ALCH=0.0
-!
-!WC_UR21/WC_HCHO=0.0
-!
-!WC_UR21/WC_ALD2=0.0
-!
-!WC_UR21/WC_GLY=0.0
-!
-!WC_UR21/WC_MGLY=+KC36*<WC_OH>
- PJAC(:,117,111)=+TPK%KC36(:)*PCONC(:,98)
-!
-!WC_UR21/WC_KETL=+KC37*<WC_OH>
- PJAC(:,117,112)=+TPK%KC37(:)*PCONC(:,98)
-!
-!WC_UR21/WC_ORA1=0.0
-!
-!WC_UR21/WC_ORA2=0.0
-!
-!WC_UR21/WC_ACID=+0.56*KC41*<WC_OH>
- PJAC(:,117,115)=+0.56*TPK%KC41(:)*PCONC(:,98)
-!
-!WC_UR21/WC_RP16=0.0
-!
-!WC_UR21/WC_UR21=-KTC61-KC43*<WC_OH>
- PJAC(:,117,117)=-TPK%KTC61(:)-TPK%KC43(:)*PCONC(:,98)
-!
-!WC_UR21/WC_UR28=0.0
-!
-!WC_UR21/WC_ACID2=0.0
-!
-!WC_UR21/WC_ASO3=0.0
-!
-!WC_UR21/WC_ASO4=0.0
-!
-!WC_UR21/WC_ASO5=0.0
-!
-!WC_UR21/WC_AHSO5=0.0
-!
-!WC_UR21/WC_AHMS=0.0
-!
-!WC_UR21/WR_O3=0.0
-!
-!WC_UR21/WR_H2O2=0.0
-!
-!WC_UR21/WR_NO=0.0
-!
-!WC_UR21/WR_NO2=0.0
-!
-!WC_UR21/WR_NO3=0.0
-!
-!WC_UR21/WR_N2O5=0.0
-!
-!WC_UR21/WR_HONO=0.0
-!
-!WC_UR21/WR_HNO3=0.0
-!
-!WC_UR21/WR_HNO4=0.0
-!
-!WC_UR21/WR_NH3=0.0
-!
-!WC_UR21/WR_OH=0.0
-!
-!WC_UR21/WR_HO2=0.0
-!
-!WC_UR21/WR_CO2=0.0
-!
-!WC_UR21/WR_SO2=0.0
-!
-!WC_UR21/WR_H2SO4=0.0
-!
-!WC_UR21/WR_RO21=0.0
-!
-!WC_UR21/WR_RO25=0.0
-!
-!WC_UR21/WR_MEOH=0.0
-!
-!WC_UR21/WR_ETOH=0.0
-!
-!WC_UR21/WR_ALCH=0.0
-!
-!WC_UR21/WR_HCHO=0.0
-!
-!WC_UR21/WR_ALD2=0.0
-!
-!WC_UR21/WR_GLY=0.0
-!
-!WC_UR21/WR_MGLY=0.0
-!
-!WC_UR21/WR_KETL=0.0
-!
-!WC_UR21/WR_ORA1=0.0
-!
-!WC_UR21/WR_ORA2=0.0
-!
-!WC_UR21/WR_ACID=0.0
-!
-!WC_UR21/WR_RP16=0.0
-!
-!WC_UR21/WR_UR21=0.0
-!
-!WC_UR21/WR_UR28=0.0
-!
-!WC_UR21/WR_ACID2=0.0
-!
-!WC_UR21/WR_ASO3=0.0
-!
-!WC_UR21/WR_ASO4=0.0
-!
-!WC_UR21/WR_ASO5=0.0
-!
-!WC_UR21/WR_AHSO5=0.0
-!
-!WC_UR21/WR_AHMS=0.0
-!
-!WC_UR28/NO=0.0
-!
-!WC_UR28/NO2=0.0
-!
-!WC_UR28/O3=0.0
-!
-!WC_UR28/HONO=0.0
-!
-!WC_UR28/HNO3=0.0
-!
-!WC_UR28/HNO4=0.0
-!
-!WC_UR28/N2O5=0.0
-!
-!WC_UR28/NO3=0.0
-!
-!WC_UR28/NH3=0.0
-!
-!WC_UR28/HO2=0.0
-!
-!WC_UR28/CO=0.0
-!
-!WC_UR28/H2O2=0.0
-!
-!WC_UR28/SO2=0.0
-!
-!WC_UR28/H2SO4=0.0
-!
-!WC_UR28/OH=0.0
-!
-!WC_UR28/ETHE=0.0
-!
-!WC_UR28/OLEL=0.0
-!
-!WC_UR28/OLEH=0.0
-!
-!WC_UR28/ALKL=0.0
-!
-!WC_UR28/ALKM=0.0
-!
-!WC_UR28/ALKH=0.0
-!
-!WC_UR28/AROH=0.0
-!
-!WC_UR28/AROL=0.0
-!
-!WC_UR28/AROO=0.0
-!
-!WC_UR28/ARAL=0.0
-!
-!WC_UR28/ARAC=0.0
-!
-!WC_UR28/PAH=0.0
-!
-!WC_UR28/HCHO=0.0
-!
-!WC_UR28/ALD2=0.0
-!
-!WC_UR28/KETL=0.0
-!
-!WC_UR28/KETH=0.0
-!
-!WC_UR28/MEOH=0.0
-!
-!WC_UR28/ETOH=0.0
-!
-!WC_UR28/ALCH=0.0
-!
-!WC_UR28/ISOP=0.0
-!
-!WC_UR28/BIOL=0.0
-!
-!WC_UR28/BIOH=0.0
-!
-!WC_UR28/MTBE=0.0
-!
-!WC_UR28/MVK=0.0
-!
-!WC_UR28/MCR=0.0
-!
-!WC_UR28/MGLY=0.0
-!
-!WC_UR28/GLY=0.0
-!
-!WC_UR28/ORA1=0.0
-!
-!WC_UR28/ORA2=0.0
-!
-!WC_UR28/ACID=0.0
-!
-!WC_UR28/UR28=+KTC31
- PJAC(:,118,46)=+TPK%KTC31(:)
-!
-!WC_UR28/UR21=0.0
-!
-!WC_UR28/URG2=0.0
-!
-!WC_UR28/UR26=0.0
-!
-!WC_UR28/RPG2=0.0
-!
-!WC_UR28/RP18=0.0
-!
-!WC_UR28/RPG3=0.0
-!
-!WC_UR28/URG4=0.0
-!
-!WC_UR28/UR8=0.0
-!
-!WC_UR28/UR17=0.0
-!
-!WC_UR28/UR7=0.0
-!
-!WC_UR28/RPR3=0.0
-!
-!WC_UR28/URG6=0.0
-!
-!WC_UR28/UR22=0.0
-!
-!WC_UR28/URG7=0.0
-!
-!WC_UR28/RPR4=0.0
-!
-!WC_UR28/RPR7=0.0
-!
-!WC_UR28/RPG7=0.0
-!
-!WC_UR28/URG8=0.0
-!
-!WC_UR28/UR19=0.0
-!
-!WC_UR28/URG9=0.0
-!
-!WC_UR28/AP7=0.0
-!
-!WC_UR28/URG10=0.0
-!
-!WC_UR28/RPR1=0.0
-!
-!WC_UR28/RPR5=0.0
-!
-!WC_UR28/RPR8=0.0
-!
-!WC_UR28/RP10=0.0
-!
-!WC_UR28/RP11=0.0
-!
-!WC_UR28/RP16=0.0
-!
-!WC_UR28/RPRL=0.0
-!
-!WC_UR28/APAN=0.0
-!
-!WC_UR28/PAN1=0.0
-!
-!WC_UR28/PAN2=0.0
-!
-!WC_UR28/PAN3=0.0
-!
-!WC_UR28/PAN4=0.0
-!
-!WC_UR28/PAN6=0.0
-!
-!WC_UR28/PAN7=0.0
-!
-!WC_UR28/PAN8=0.0
-!
-!WC_UR28/PN10=0.0
-!
-!WC_UR28/RO2T=0.0
-!
-!WC_UR28/RO21=0.0
-!
-!WC_UR28/RO25=0.0
-!
-!WC_UR28/WC_O3=0.0
-!
-!WC_UR28/WC_H2O2=0.0
-!
-!WC_UR28/WC_NO=0.0
-!
-!WC_UR28/WC_NO2=0.0
-!
-!WC_UR28/WC_NO3=0.0
-!
-!WC_UR28/WC_N2O5=0.0
-!
-!WC_UR28/WC_HONO=0.0
-!
-!WC_UR28/WC_HNO3=0.0
-!
-!WC_UR28/WC_HNO4=0.0
-!
-!WC_UR28/WC_NH3=0.0
-!
-!WC_UR28/WC_OH=-KC42*<WC_UR28>+KC44*<WC_RP16>
- PJAC(:,118,98)=-TPK%KC42(:)*PCONC(:,118)+TPK%KC44(:)*PCONC(:,116)
-!
-!WC_UR28/WC_HO2=0.0
-!
-!WC_UR28/WC_CO2=0.0
-!
-!WC_UR28/WC_SO2=0.0
-!
-!WC_UR28/WC_H2SO4=0.0
-!
-!WC_UR28/WC_RO21=0.0
-!
-!WC_UR28/WC_RO25=0.0
-!
-!WC_UR28/WC_MEOH=0.0
-!
-!WC_UR28/WC_ETOH=0.0
-!
-!WC_UR28/WC_ALCH=0.0
-!
-!WC_UR28/WC_HCHO=0.0
-!
-!WC_UR28/WC_ALD2=0.0
-!
-!WC_UR28/WC_GLY=0.0
-!
-!WC_UR28/WC_MGLY=0.0
-!
-!WC_UR28/WC_KETL=0.0
-!
-!WC_UR28/WC_ORA1=0.0
-!
-!WC_UR28/WC_ORA2=0.0
-!
-!WC_UR28/WC_ACID=0.0
-!
-!WC_UR28/WC_RP16=+KC44*<WC_OH>
- PJAC(:,118,116)=+TPK%KC44(:)*PCONC(:,98)
-!
-!WC_UR28/WC_UR21=0.0
-!
-!WC_UR28/WC_UR28=-KTC62-KC42*<WC_OH>
- PJAC(:,118,118)=-TPK%KTC62(:)-TPK%KC42(:)*PCONC(:,98)
-!
-!WC_UR28/WC_ACID2=0.0
-!
-!WC_UR28/WC_ASO3=0.0
-!
-!WC_UR28/WC_ASO4=0.0
-!
-!WC_UR28/WC_ASO5=0.0
-!
-!WC_UR28/WC_AHSO5=0.0
-!
-!WC_UR28/WC_AHMS=0.0
-!
-!WC_UR28/WR_O3=0.0
-!
-!WC_UR28/WR_H2O2=0.0
-!
-!WC_UR28/WR_NO=0.0
-!
-!WC_UR28/WR_NO2=0.0
-!
-!WC_UR28/WR_NO3=0.0
-!
-!WC_UR28/WR_N2O5=0.0
-!
-!WC_UR28/WR_HONO=0.0
-!
-!WC_UR28/WR_HNO3=0.0
-!
-!WC_UR28/WR_HNO4=0.0
-!
-!WC_UR28/WR_NH3=0.0
-!
-!WC_UR28/WR_OH=0.0
-!
-!WC_UR28/WR_HO2=0.0
-!
-!WC_UR28/WR_CO2=0.0
-!
-!WC_UR28/WR_SO2=0.0
-!
-!WC_UR28/WR_H2SO4=0.0
-!
-!WC_UR28/WR_RO21=0.0
-!
-!WC_UR28/WR_RO25=0.0
-!
-!WC_UR28/WR_MEOH=0.0
-!
-!WC_UR28/WR_ETOH=0.0
-!
-!WC_UR28/WR_ALCH=0.0
-!
-!WC_UR28/WR_HCHO=0.0
-!
-!WC_UR28/WR_ALD2=0.0
-!
-!WC_UR28/WR_GLY=0.0
-!
-!WC_UR28/WR_MGLY=0.0
-!
-!WC_UR28/WR_KETL=0.0
-!
-!WC_UR28/WR_ORA1=0.0
-!
-!WC_UR28/WR_ORA2=0.0
-!
-!WC_UR28/WR_ACID=0.0
-!
-!WC_UR28/WR_RP16=0.0
-!
-!WC_UR28/WR_UR21=0.0
-!
-!WC_UR28/WR_UR28=0.0
-!
-!WC_UR28/WR_ACID2=0.0
-!
-!WC_UR28/WR_ASO3=0.0
-!
-!WC_UR28/WR_ASO4=0.0
-!
-!WC_UR28/WR_ASO5=0.0
-!
-!WC_UR28/WR_AHSO5=0.0
-!
-!WC_UR28/WR_AHMS=0.0
-!
-!WC_ACID2/NO=0.0
-!
-!WC_ACID2/NO2=0.0
-!
-!WC_ACID2/O3=0.0
-!
-!WC_ACID2/HONO=0.0
-!
-!WC_ACID2/HNO3=0.0
-!
-!WC_ACID2/HNO4=0.0
-!
-!WC_ACID2/N2O5=0.0
-!
-!WC_ACID2/NO3=0.0
-!
-!WC_ACID2/NH3=0.0
-!
-!WC_ACID2/HO2=0.0
-!
-!WC_ACID2/CO=0.0
-!
-!WC_ACID2/H2O2=0.0
-!
-!WC_ACID2/SO2=0.0
-!
-!WC_ACID2/H2SO4=0.0
-!
-!WC_ACID2/OH=0.0
-!
-!WC_ACID2/ETHE=0.0
-!
-!WC_ACID2/OLEL=0.0
-!
-!WC_ACID2/OLEH=0.0
-!
-!WC_ACID2/ALKL=0.0
-!
-!WC_ACID2/ALKM=0.0
-!
-!WC_ACID2/ALKH=0.0
-!
-!WC_ACID2/AROH=0.0
-!
-!WC_ACID2/AROL=0.0
-!
-!WC_ACID2/AROO=0.0
-!
-!WC_ACID2/ARAL=0.0
-!
-!WC_ACID2/ARAC=0.0
-!
-!WC_ACID2/PAH=0.0
-!
-!WC_ACID2/HCHO=0.0
-!
-!WC_ACID2/ALD2=0.0
-!
-!WC_ACID2/KETL=0.0
-!
-!WC_ACID2/KETH=0.0
-!
-!WC_ACID2/MEOH=0.0
-!
-!WC_ACID2/ETOH=0.0
-!
-!WC_ACID2/ALCH=0.0
-!
-!WC_ACID2/ISOP=0.0
-!
-!WC_ACID2/BIOL=0.0
-!
-!WC_ACID2/BIOH=0.0
-!
-!WC_ACID2/MTBE=0.0
-!
-!WC_ACID2/MVK=0.0
-!
-!WC_ACID2/MCR=0.0
-!
-!WC_ACID2/MGLY=0.0
-!
-!WC_ACID2/GLY=0.0
-!
-!WC_ACID2/ORA1=0.0
-!
-!WC_ACID2/ORA2=0.0
-!
-!WC_ACID2/ACID=0.0
-!
-!WC_ACID2/UR28=0.0
-!
-!WC_ACID2/UR21=0.0
-!
-!WC_ACID2/URG2=0.0
-!
-!WC_ACID2/UR26=0.0
-!
-!WC_ACID2/RPG2=0.0
-!
-!WC_ACID2/RP18=0.0
-!
-!WC_ACID2/RPG3=0.0
-!
-!WC_ACID2/URG4=0.0
-!
-!WC_ACID2/UR8=0.0
-!
-!WC_ACID2/UR17=0.0
-!
-!WC_ACID2/UR7=0.0
-!
-!WC_ACID2/RPR3=0.0
-!
-!WC_ACID2/URG6=0.0
-!
-!WC_ACID2/UR22=0.0
-!
-!WC_ACID2/URG7=0.0
-!
-!WC_ACID2/RPR4=0.0
-!
-!WC_ACID2/RPR7=0.0
-!
-!WC_ACID2/RPG7=0.0
-!
-!WC_ACID2/URG8=0.0
-!
-!WC_ACID2/UR19=0.0
-!
-!WC_ACID2/URG9=0.0
-!
-!WC_ACID2/AP7=0.0
-!
-!WC_ACID2/URG10=0.0
-!
-!WC_ACID2/RPR1=0.0
-!
-!WC_ACID2/RPR5=0.0
-!
-!WC_ACID2/RPR8=0.0
-!
-!WC_ACID2/RP10=0.0
-!
-!WC_ACID2/RP11=0.0
-!
-!WC_ACID2/RP16=0.0
-!
-!WC_ACID2/RPRL=0.0
-!
-!WC_ACID2/APAN=0.0
-!
-!WC_ACID2/PAN1=0.0
-!
-!WC_ACID2/PAN2=0.0
-!
-!WC_ACID2/PAN3=0.0
-!
-!WC_ACID2/PAN4=0.0
-!
-!WC_ACID2/PAN6=0.0
-!
-!WC_ACID2/PAN7=0.0
-!
-!WC_ACID2/PAN8=0.0
-!
-!WC_ACID2/PN10=0.0
-!
-!WC_ACID2/RO2T=0.0
-!
-!WC_ACID2/RO21=0.0
-!
-!WC_ACID2/RO25=0.0
-!
-!WC_ACID2/WC_O3=0.0
-!
-!WC_ACID2/WC_H2O2=0.0
-!
-!WC_ACID2/WC_NO=0.0
-!
-!WC_ACID2/WC_NO2=0.0
-!
-!WC_ACID2/WC_NO3=0.0
-!
-!WC_ACID2/WC_N2O5=0.0
-!
-!WC_ACID2/WC_HONO=0.0
-!
-!WC_ACID2/WC_HNO3=0.0
-!
-!WC_ACID2/WC_HNO4=0.0
-!
-!WC_ACID2/WC_NH3=0.0
-!
-!WC_ACID2/WC_OH=+0.15*KC41*<WC_ACID>+0.56*KC43*<WC_UR21>-KC46*<WC_ACID2>
- PJAC(:,119,98)=+0.15*TPK%KC41(:)*PCONC(:,115)+0.56*TPK%KC43(:)*PCONC(:,117)-TP&
-&K%KC46(:)*PCONC(:,119)
-!
-!WC_ACID2/WC_HO2=0.0
-!
-!WC_ACID2/WC_CO2=0.0
-!
-!WC_ACID2/WC_SO2=0.0
-!
-!WC_ACID2/WC_H2SO4=0.0
-!
-!WC_ACID2/WC_RO21=0.0
-!
-!WC_ACID2/WC_RO25=0.0
-!
-!WC_ACID2/WC_MEOH=0.0
-!
-!WC_ACID2/WC_ETOH=0.0
-!
-!WC_ACID2/WC_ALCH=0.0
-!
-!WC_ACID2/WC_HCHO=0.0
-!
-!WC_ACID2/WC_ALD2=0.0
-!
-!WC_ACID2/WC_GLY=0.0
-!
-!WC_ACID2/WC_MGLY=0.0
-!
-!WC_ACID2/WC_KETL=0.0
-!
-!WC_ACID2/WC_ORA1=0.0
-!
-!WC_ACID2/WC_ORA2=0.0
-!
-!WC_ACID2/WC_ACID=+0.15*KC41*<WC_OH>
- PJAC(:,119,115)=+0.15*TPK%KC41(:)*PCONC(:,98)
-!
-!WC_ACID2/WC_RP16=0.0
-!
-!WC_ACID2/WC_UR21=+0.56*KC43*<WC_OH>
- PJAC(:,119,117)=+0.56*TPK%KC43(:)*PCONC(:,98)
-!
-!WC_ACID2/WC_UR28=0.0
-!
-!WC_ACID2/WC_ACID2=-KC46*<WC_OH>
- PJAC(:,119,119)=-TPK%KC46(:)*PCONC(:,98)
-!
-!WC_ACID2/WC_ASO3=0.0
-!
-!WC_ACID2/WC_ASO4=0.0
-!
-!WC_ACID2/WC_ASO5=0.0
-!
-!WC_ACID2/WC_AHSO5=0.0
-!
-!WC_ACID2/WC_AHMS=0.0
-!
-!WC_ACID2/WR_O3=0.0
-!
-!WC_ACID2/WR_H2O2=0.0
-!
-!WC_ACID2/WR_NO=0.0
-!
-!WC_ACID2/WR_NO2=0.0
-!
-!WC_ACID2/WR_NO3=0.0
-!
-!WC_ACID2/WR_N2O5=0.0
-!
-!WC_ACID2/WR_HONO=0.0
-!
-!WC_ACID2/WR_HNO3=0.0
-!
-!WC_ACID2/WR_HNO4=0.0
-!
-!WC_ACID2/WR_NH3=0.0
-!
-!WC_ACID2/WR_OH=0.0
-!
-!WC_ACID2/WR_HO2=0.0
-!
-!WC_ACID2/WR_CO2=0.0
-!
-!WC_ACID2/WR_SO2=0.0
-!
-!WC_ACID2/WR_H2SO4=0.0
-!
-!WC_ACID2/WR_RO21=0.0
-!
-!WC_ACID2/WR_RO25=0.0
-!
-!WC_ACID2/WR_MEOH=0.0
-!
-!WC_ACID2/WR_ETOH=0.0
-!
-!WC_ACID2/WR_ALCH=0.0
-!
-!WC_ACID2/WR_HCHO=0.0
-!
-!WC_ACID2/WR_ALD2=0.0
-!
-!WC_ACID2/WR_GLY=0.0
-!
-!WC_ACID2/WR_MGLY=0.0
-!
-!WC_ACID2/WR_KETL=0.0
-!
-!WC_ACID2/WR_ORA1=0.0
-!
-!WC_ACID2/WR_ORA2=0.0
-!
-!WC_ACID2/WR_ACID=0.0
-!
-!WC_ACID2/WR_RP16=0.0
-!
-!WC_ACID2/WR_UR21=0.0
-!
-!WC_ACID2/WR_UR28=0.0
-!
-!WC_ACID2/WR_ACID2=0.0
-!
-!WC_ACID2/WR_ASO3=0.0
-!
-!WC_ACID2/WR_ASO4=0.0
-!
-!WC_ACID2/WR_ASO5=0.0
-!
-!WC_ACID2/WR_AHSO5=0.0
-!
-!WC_ACID2/WR_AHMS=0.0
-!
-!WC_ASO3/NO=0.0
-!
-!WC_ASO3/NO2=0.0
-!
-!WC_ASO3/O3=0.0
-!
-!WC_ASO3/HONO=0.0
-!
-!WC_ASO3/HNO3=0.0
-!
-!WC_ASO3/HNO4=0.0
-!
-!WC_ASO3/N2O5=0.0
-!
-!WC_ASO3/NO3=0.0
-!
-!WC_ASO3/NH3=0.0
-!
-!WC_ASO3/HO2=0.0
-!
-!WC_ASO3/CO=0.0
-!
-!WC_ASO3/H2O2=0.0
-!
-!WC_ASO3/SO2=0.0
-!
-!WC_ASO3/H2SO4=0.0
-!
-!WC_ASO3/OH=0.0
-!
-!WC_ASO3/ETHE=0.0
-!
-!WC_ASO3/OLEL=0.0
-!
-!WC_ASO3/OLEH=0.0
-!
-!WC_ASO3/ALKL=0.0
-!
-!WC_ASO3/ALKM=0.0
-!
-!WC_ASO3/ALKH=0.0
-!
-!WC_ASO3/AROH=0.0
-!
-!WC_ASO3/AROL=0.0
-!
-!WC_ASO3/AROO=0.0
-!
-!WC_ASO3/ARAL=0.0
-!
-!WC_ASO3/ARAC=0.0
-!
-!WC_ASO3/PAH=0.0
-!
-!WC_ASO3/HCHO=0.0
-!
-!WC_ASO3/ALD2=0.0
-!
-!WC_ASO3/KETL=0.0
-!
-!WC_ASO3/KETH=0.0
-!
-!WC_ASO3/MEOH=0.0
-!
-!WC_ASO3/ETOH=0.0
-!
-!WC_ASO3/ALCH=0.0
-!
-!WC_ASO3/ISOP=0.0
-!
-!WC_ASO3/BIOL=0.0
-!
-!WC_ASO3/BIOH=0.0
-!
-!WC_ASO3/MTBE=0.0
-!
-!WC_ASO3/MVK=0.0
-!
-!WC_ASO3/MCR=0.0
-!
-!WC_ASO3/MGLY=0.0
-!
-!WC_ASO3/GLY=0.0
-!
-!WC_ASO3/ORA1=0.0
-!
-!WC_ASO3/ORA2=0.0
-!
-!WC_ASO3/ACID=0.0
-!
-!WC_ASO3/UR28=0.0
-!
-!WC_ASO3/UR21=0.0
-!
-!WC_ASO3/URG2=0.0
-!
-!WC_ASO3/UR26=0.0
-!
-!WC_ASO3/RPG2=0.0
-!
-!WC_ASO3/RP18=0.0
-!
-!WC_ASO3/RPG3=0.0
-!
-!WC_ASO3/URG4=0.0
-!
-!WC_ASO3/UR8=0.0
-!
-!WC_ASO3/UR17=0.0
-!
-!WC_ASO3/UR7=0.0
-!
-!WC_ASO3/RPR3=0.0
-!
-!WC_ASO3/URG6=0.0
-!
-!WC_ASO3/UR22=0.0
-!
-!WC_ASO3/URG7=0.0
-!
-!WC_ASO3/RPR4=0.0
-!
-!WC_ASO3/RPR7=0.0
-!
-!WC_ASO3/RPG7=0.0
-!
-!WC_ASO3/URG8=0.0
-!
-!WC_ASO3/UR19=0.0
-!
-!WC_ASO3/URG9=0.0
-!
-!WC_ASO3/AP7=0.0
-!
-!WC_ASO3/URG10=0.0
-!
-!WC_ASO3/RPR1=0.0
-!
-!WC_ASO3/RPR5=0.0
-!
-!WC_ASO3/RPR8=0.0
-!
-!WC_ASO3/RP10=0.0
-!
-!WC_ASO3/RP11=0.0
-!
-!WC_ASO3/RP16=0.0
-!
-!WC_ASO3/RPRL=0.0
-!
-!WC_ASO3/APAN=0.0
-!
-!WC_ASO3/PAN1=0.0
-!
-!WC_ASO3/PAN2=0.0
-!
-!WC_ASO3/PAN3=0.0
-!
-!WC_ASO3/PAN4=0.0
-!
-!WC_ASO3/PAN6=0.0
-!
-!WC_ASO3/PAN7=0.0
-!
-!WC_ASO3/PAN8=0.0
-!
-!WC_ASO3/PN10=0.0
-!
-!WC_ASO3/RO2T=0.0
-!
-!WC_ASO3/RO21=0.0
-!
-!WC_ASO3/RO25=0.0
-!
-!WC_ASO3/WC_O3=0.0
-!
-!WC_ASO3/WC_H2O2=0.0
-!
-!WC_ASO3/WC_NO=0.0
-!
-!WC_ASO3/WC_NO2=0.0
-!
-!WC_ASO3/WC_NO3=+KC16*<WC_SO2>
- PJAC(:,120,92)=+TPK%KC16(:)*PCONC(:,101)
-!
-!WC_ASO3/WC_N2O5=0.0
-!
-!WC_ASO3/WC_HONO=0.0
-!
-!WC_ASO3/WC_HNO3=0.0
-!
-!WC_ASO3/WC_HNO4=0.0
-!
-!WC_ASO3/WC_NH3=0.0
-!
-!WC_ASO3/WC_OH=+KC7*<WC_SO2>
- PJAC(:,120,98)=+TPK%KC7(:)*PCONC(:,101)
-!
-!WC_ASO3/WC_HO2=0.0
-!
-!WC_ASO3/WC_CO2=0.0
-!
-!WC_ASO3/WC_SO2=+KC7*<WC_OH>+KC16*<WC_NO3>+KC28*<WC_RO21>
- PJAC(:,120,101)=+TPK%KC7(:)*PCONC(:,98)+TPK%KC16(:)*PCONC(:,92)+TPK%KC28(:)*PC&
-&ONC(:,103)
-!
-!WC_ASO3/WC_H2SO4=0.0
-!
-!WC_ASO3/WC_RO21=+KC28*<WC_SO2>
- PJAC(:,120,103)=+TPK%KC28(:)*PCONC(:,101)
-!
-!WC_ASO3/WC_RO25=0.0
-!
-!WC_ASO3/WC_MEOH=0.0
-!
-!WC_ASO3/WC_ETOH=0.0
-!
-!WC_ASO3/WC_ALCH=0.0
-!
-!WC_ASO3/WC_HCHO=0.0
-!
-!WC_ASO3/WC_ALD2=0.0
-!
-!WC_ASO3/WC_GLY=0.0
-!
-!WC_ASO3/WC_MGLY=0.0
-!
-!WC_ASO3/WC_KETL=0.0
-!
-!WC_ASO3/WC_ORA1=0.0
-!
-!WC_ASO3/WC_ORA2=0.0
-!
-!WC_ASO3/WC_ACID=0.0
-!
-!WC_ASO3/WC_RP16=0.0
-!
-!WC_ASO3/WC_UR21=0.0
-!
-!WC_ASO3/WC_UR28=0.0
-!
-!WC_ASO3/WC_ACID2=0.0
-!
-!WC_ASO3/WC_ASO3=-KC20*<W_O2>
- PJAC(:,120,120)=-TPK%KC20(:)*TPK%W_O2(:)
-!
-!WC_ASO3/WC_ASO4=0.0
-!
-!WC_ASO3/WC_ASO5=0.0
-!
-!WC_ASO3/WC_AHSO5=0.0
-!
-!WC_ASO3/WC_AHMS=0.0
-!
-!WC_ASO3/WR_O3=0.0
-!
-!WC_ASO3/WR_H2O2=0.0
-!
-!WC_ASO3/WR_NO=0.0
-!
-!WC_ASO3/WR_NO2=0.0
-!
-!WC_ASO3/WR_NO3=0.0
-!
-!WC_ASO3/WR_N2O5=0.0
-!
-!WC_ASO3/WR_HONO=0.0
-!
-!WC_ASO3/WR_HNO3=0.0
-!
-!WC_ASO3/WR_HNO4=0.0
-!
-!WC_ASO3/WR_NH3=0.0
-!
-!WC_ASO3/WR_OH=0.0
-!
-!WC_ASO3/WR_HO2=0.0
-!
-!WC_ASO3/WR_CO2=0.0
-!
-!WC_ASO3/WR_SO2=0.0
-!
-!WC_ASO3/WR_H2SO4=0.0
-!
-!WC_ASO3/WR_RO21=0.0
-!
-!WC_ASO3/WR_RO25=0.0
-!
-!WC_ASO3/WR_MEOH=0.0
-!
-!WC_ASO3/WR_ETOH=0.0
-!
-!WC_ASO3/WR_ALCH=0.0
-!
-!WC_ASO3/WR_HCHO=0.0
-!
-!WC_ASO3/WR_ALD2=0.0
-!
-!WC_ASO3/WR_GLY=0.0
-!
-!WC_ASO3/WR_MGLY=0.0
-!
-!WC_ASO3/WR_KETL=0.0
-!
-!WC_ASO3/WR_ORA1=0.0
-!
-!WC_ASO3/WR_ORA2=0.0
-!
-!WC_ASO3/WR_ACID=0.0
-!
-!WC_ASO3/WR_RP16=0.0
-!
-!WC_ASO3/WR_UR21=0.0
-!
-!WC_ASO3/WR_UR28=0.0
-!
-!WC_ASO3/WR_ACID2=0.0
-!
-!WC_ASO3/WR_ASO3=0.0
-!
-!WC_ASO3/WR_ASO4=0.0
-!
-!WC_ASO3/WR_ASO5=0.0
-!
-!WC_ASO3/WR_AHSO5=0.0
-!
-!WC_ASO3/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ23
-!
-SUBROUTINE SUBJ24
-!
-!Indices 121 a 125
-!
-!
-!WC_ASO4/NO=0.0
-!
-!WC_ASO4/NO2=0.0
-!
-!WC_ASO4/O3=0.0
-!
-!WC_ASO4/HONO=0.0
-!
-!WC_ASO4/HNO3=0.0
-!
-!WC_ASO4/HNO4=0.0
-!
-!WC_ASO4/N2O5=0.0
-!
-!WC_ASO4/NO3=0.0
-!
-!WC_ASO4/NH3=0.0
-!
-!WC_ASO4/HO2=0.0
-!
-!WC_ASO4/CO=0.0
-!
-!WC_ASO4/H2O2=0.0
-!
-!WC_ASO4/SO2=0.0
-!
-!WC_ASO4/H2SO4=0.0
-!
-!WC_ASO4/OH=0.0
-!
-!WC_ASO4/ETHE=0.0
-!
-!WC_ASO4/OLEL=0.0
-!
-!WC_ASO4/OLEH=0.0
-!
-!WC_ASO4/ALKL=0.0
-!
-!WC_ASO4/ALKM=0.0
-!
-!WC_ASO4/ALKH=0.0
-!
-!WC_ASO4/AROH=0.0
-!
-!WC_ASO4/AROL=0.0
-!
-!WC_ASO4/AROO=0.0
-!
-!WC_ASO4/ARAL=0.0
-!
-!WC_ASO4/ARAC=0.0
-!
-!WC_ASO4/PAH=0.0
-!
-!WC_ASO4/HCHO=0.0
-!
-!WC_ASO4/ALD2=0.0
-!
-!WC_ASO4/KETL=0.0
-!
-!WC_ASO4/KETH=0.0
-!
-!WC_ASO4/MEOH=0.0
-!
-!WC_ASO4/ETOH=0.0
-!
-!WC_ASO4/ALCH=0.0
-!
-!WC_ASO4/ISOP=0.0
-!
-!WC_ASO4/BIOL=0.0
-!
-!WC_ASO4/BIOH=0.0
-!
-!WC_ASO4/MTBE=0.0
-!
-!WC_ASO4/MVK=0.0
-!
-!WC_ASO4/MCR=0.0
-!
-!WC_ASO4/MGLY=0.0
-!
-!WC_ASO4/GLY=0.0
-!
-!WC_ASO4/ORA1=0.0
-!
-!WC_ASO4/ORA2=0.0
-!
-!WC_ASO4/ACID=0.0
-!
-!WC_ASO4/UR28=0.0
-!
-!WC_ASO4/UR21=0.0
-!
-!WC_ASO4/URG2=0.0
-!
-!WC_ASO4/UR26=0.0
-!
-!WC_ASO4/RPG2=0.0
-!
-!WC_ASO4/RP18=0.0
-!
-!WC_ASO4/RPG3=0.0
-!
-!WC_ASO4/URG4=0.0
-!
-!WC_ASO4/UR8=0.0
-!
-!WC_ASO4/UR17=0.0
-!
-!WC_ASO4/UR7=0.0
-!
-!WC_ASO4/RPR3=0.0
-!
-!WC_ASO4/URG6=0.0
-!
-!WC_ASO4/UR22=0.0
-!
-!WC_ASO4/URG7=0.0
-!
-!WC_ASO4/RPR4=0.0
-!
-!WC_ASO4/RPR7=0.0
-!
-!WC_ASO4/RPG7=0.0
-!
-!WC_ASO4/URG8=0.0
-!
-!WC_ASO4/UR19=0.0
-!
-!WC_ASO4/URG9=0.0
-!
-!WC_ASO4/AP7=0.0
-!
-!WC_ASO4/URG10=0.0
-!
-!WC_ASO4/RPR1=0.0
-!
-!WC_ASO4/RPR5=0.0
-!
-!WC_ASO4/RPR8=0.0
-!
-!WC_ASO4/RP10=0.0
-!
-!WC_ASO4/RP11=0.0
-!
-!WC_ASO4/RP16=0.0
-!
-!WC_ASO4/RPRL=0.0
-!
-!WC_ASO4/APAN=0.0
-!
-!WC_ASO4/PAN1=0.0
-!
-!WC_ASO4/PAN2=0.0
-!
-!WC_ASO4/PAN3=0.0
-!
-!WC_ASO4/PAN4=0.0
-!
-!WC_ASO4/PAN6=0.0
-!
-!WC_ASO4/PAN7=0.0
-!
-!WC_ASO4/PAN8=0.0
-!
-!WC_ASO4/PN10=0.0
-!
-!WC_ASO4/RO2T=0.0
-!
-!WC_ASO4/RO21=0.0
-!
-!WC_ASO4/RO25=0.0
-!
-!WC_ASO4/WC_O3=0.0
-!
-!WC_ASO4/WC_H2O2=0.0
-!
-!WC_ASO4/WC_NO=0.0
-!
-!WC_ASO4/WC_NO2=0.0
-!
-!WC_ASO4/WC_NO3=+KC15*<WC_H2SO4>
- PJAC(:,121,92)=+TPK%KC15(:)*PCONC(:,102)
-!
-!WC_ASO4/WC_N2O5=0.0
-!
-!WC_ASO4/WC_HONO=0.0
-!
-!WC_ASO4/WC_HNO3=0.0
-!
-!WC_ASO4/WC_HNO4=0.0
-!
-!WC_ASO4/WC_NH3=0.0
-!
-!WC_ASO4/WC_OH=0.0
-!
-!WC_ASO4/WC_HO2=0.0
-!
-!WC_ASO4/WC_CO2=0.0
-!
-!WC_ASO4/WC_SO2=0.0
-!
-!WC_ASO4/WC_H2SO4=+KC15*<WC_NO3>
- PJAC(:,121,102)=+TPK%KC15(:)*PCONC(:,92)
-!
-!WC_ASO4/WC_RO21=0.0
-!
-!WC_ASO4/WC_RO25=0.0
-!
-!WC_ASO4/WC_MEOH=0.0
-!
-!WC_ASO4/WC_ETOH=0.0
-!
-!WC_ASO4/WC_ALCH=0.0
-!
-!WC_ASO4/WC_HCHO=0.0
-!
-!WC_ASO4/WC_ALD2=0.0
-!
-!WC_ASO4/WC_GLY=0.0
-!
-!WC_ASO4/WC_MGLY=0.0
-!
-!WC_ASO4/WC_KETL=0.0
-!
-!WC_ASO4/WC_ORA1=0.0
-!
-!WC_ASO4/WC_ORA2=0.0
-!
-!WC_ASO4/WC_ACID=0.0
-!
-!WC_ASO4/WC_RP16=0.0
-!
-!WC_ASO4/WC_UR21=0.0
-!
-!WC_ASO4/WC_UR28=0.0
-!
-!WC_ASO4/WC_ACID2=0.0
-!
-!WC_ASO4/WC_ASO3=0.0
-!
-!WC_ASO4/WC_ASO4=-KC24
- PJAC(:,121,121)=-TPK%KC24(:)
-!
-!WC_ASO4/WC_ASO5=+KC22*<WC_ASO5>+KC22*<WC_ASO5>+KC22*<WC_ASO5>+KC22*<WC_ASO5>
- PJAC(:,121,122)=+TPK%KC22(:)*PCONC(:,122)+TPK%KC22(:)*PCONC(:,122)+TPK%KC22(:)&
-&*PCONC(:,122)+TPK%KC22(:)*PCONC(:,122)
-!
-!WC_ASO4/WC_AHSO5=0.0
-!
-!WC_ASO4/WC_AHMS=0.0
-!
-!WC_ASO4/WR_O3=0.0
-!
-!WC_ASO4/WR_H2O2=0.0
-!
-!WC_ASO4/WR_NO=0.0
-!
-!WC_ASO4/WR_NO2=0.0
-!
-!WC_ASO4/WR_NO3=0.0
-!
-!WC_ASO4/WR_N2O5=0.0
-!
-!WC_ASO4/WR_HONO=0.0
-!
-!WC_ASO4/WR_HNO3=0.0
-!
-!WC_ASO4/WR_HNO4=0.0
-!
-!WC_ASO4/WR_NH3=0.0
-!
-!WC_ASO4/WR_OH=0.0
-!
-!WC_ASO4/WR_HO2=0.0
-!
-!WC_ASO4/WR_CO2=0.0
-!
-!WC_ASO4/WR_SO2=0.0
-!
-!WC_ASO4/WR_H2SO4=0.0
-!
-!WC_ASO4/WR_RO21=0.0
-!
-!WC_ASO4/WR_RO25=0.0
-!
-!WC_ASO4/WR_MEOH=0.0
-!
-!WC_ASO4/WR_ETOH=0.0
-!
-!WC_ASO4/WR_ALCH=0.0
-!
-!WC_ASO4/WR_HCHO=0.0
-!
-!WC_ASO4/WR_ALD2=0.0
-!
-!WC_ASO4/WR_GLY=0.0
-!
-!WC_ASO4/WR_MGLY=0.0
-!
-!WC_ASO4/WR_KETL=0.0
-!
-!WC_ASO4/WR_ORA1=0.0
-!
-!WC_ASO4/WR_ORA2=0.0
-!
-!WC_ASO4/WR_ACID=0.0
-!
-!WC_ASO4/WR_RP16=0.0
-!
-!WC_ASO4/WR_UR21=0.0
-!
-!WC_ASO4/WR_UR28=0.0
-!
-!WC_ASO4/WR_ACID2=0.0
-!
-!WC_ASO4/WR_ASO3=0.0
-!
-!WC_ASO4/WR_ASO4=0.0
-!
-!WC_ASO4/WR_ASO5=0.0
-!
-!WC_ASO4/WR_AHSO5=0.0
-!
-!WC_ASO4/WR_AHMS=0.0
-!
-!WC_ASO5/NO=0.0
-!
-!WC_ASO5/NO2=0.0
-!
-!WC_ASO5/O3=0.0
-!
-!WC_ASO5/HONO=0.0
-!
-!WC_ASO5/HNO3=0.0
-!
-!WC_ASO5/HNO4=0.0
-!
-!WC_ASO5/N2O5=0.0
-!
-!WC_ASO5/NO3=0.0
-!
-!WC_ASO5/NH3=0.0
-!
-!WC_ASO5/HO2=0.0
-!
-!WC_ASO5/CO=0.0
-!
-!WC_ASO5/H2O2=0.0
-!
-!WC_ASO5/SO2=0.0
-!
-!WC_ASO5/H2SO4=0.0
-!
-!WC_ASO5/OH=0.0
-!
-!WC_ASO5/ETHE=0.0
-!
-!WC_ASO5/OLEL=0.0
-!
-!WC_ASO5/OLEH=0.0
-!
-!WC_ASO5/ALKL=0.0
-!
-!WC_ASO5/ALKM=0.0
-!
-!WC_ASO5/ALKH=0.0
-!
-!WC_ASO5/AROH=0.0
-!
-!WC_ASO5/AROL=0.0
-!
-!WC_ASO5/AROO=0.0
-!
-!WC_ASO5/ARAL=0.0
-!
-!WC_ASO5/ARAC=0.0
-!
-!WC_ASO5/PAH=0.0
-!
-!WC_ASO5/HCHO=0.0
-!
-!WC_ASO5/ALD2=0.0
-!
-!WC_ASO5/KETL=0.0
-!
-!WC_ASO5/KETH=0.0
-!
-!WC_ASO5/MEOH=0.0
-!
-!WC_ASO5/ETOH=0.0
-!
-!WC_ASO5/ALCH=0.0
-!
-!WC_ASO5/ISOP=0.0
-!
-!WC_ASO5/BIOL=0.0
-!
-!WC_ASO5/BIOH=0.0
-!
-!WC_ASO5/MTBE=0.0
-!
-!WC_ASO5/MVK=0.0
-!
-!WC_ASO5/MCR=0.0
-!
-!WC_ASO5/MGLY=0.0
-!
-!WC_ASO5/GLY=0.0
-!
-!WC_ASO5/ORA1=0.0
-!
-!WC_ASO5/ORA2=0.0
-!
-!WC_ASO5/ACID=0.0
-!
-!WC_ASO5/UR28=0.0
-!
-!WC_ASO5/UR21=0.0
-!
-!WC_ASO5/URG2=0.0
-!
-!WC_ASO5/UR26=0.0
-!
-!WC_ASO5/RPG2=0.0
-!
-!WC_ASO5/RP18=0.0
-!
-!WC_ASO5/RPG3=0.0
-!
-!WC_ASO5/URG4=0.0
-!
-!WC_ASO5/UR8=0.0
-!
-!WC_ASO5/UR17=0.0
-!
-!WC_ASO5/UR7=0.0
-!
-!WC_ASO5/RPR3=0.0
-!
-!WC_ASO5/URG6=0.0
-!
-!WC_ASO5/UR22=0.0
-!
-!WC_ASO5/URG7=0.0
-!
-!WC_ASO5/RPR4=0.0
-!
-!WC_ASO5/RPR7=0.0
-!
-!WC_ASO5/RPG7=0.0
-!
-!WC_ASO5/URG8=0.0
-!
-!WC_ASO5/UR19=0.0
-!
-!WC_ASO5/URG9=0.0
-!
-!WC_ASO5/AP7=0.0
-!
-!WC_ASO5/URG10=0.0
-!
-!WC_ASO5/RPR1=0.0
-!
-!WC_ASO5/RPR5=0.0
-!
-!WC_ASO5/RPR8=0.0
-!
-!WC_ASO5/RP10=0.0
-!
-!WC_ASO5/RP11=0.0
-!
-!WC_ASO5/RP16=0.0
-!
-!WC_ASO5/RPRL=0.0
-!
-!WC_ASO5/APAN=0.0
-!
-!WC_ASO5/PAN1=0.0
-!
-!WC_ASO5/PAN2=0.0
-!
-!WC_ASO5/PAN3=0.0
-!
-!WC_ASO5/PAN4=0.0
-!
-!WC_ASO5/PAN6=0.0
-!
-!WC_ASO5/PAN7=0.0
-!
-!WC_ASO5/PAN8=0.0
-!
-!WC_ASO5/PN10=0.0
-!
-!WC_ASO5/RO2T=0.0
-!
-!WC_ASO5/RO21=0.0
-!
-!WC_ASO5/RO25=0.0
-!
-!WC_ASO5/WC_O3=0.0
-!
-!WC_ASO5/WC_H2O2=0.0
-!
-!WC_ASO5/WC_NO=0.0
-!
-!WC_ASO5/WC_NO2=0.0
-!
-!WC_ASO5/WC_NO3=0.0
-!
-!WC_ASO5/WC_N2O5=0.0
-!
-!WC_ASO5/WC_HONO=0.0
-!
-!WC_ASO5/WC_HNO3=0.0
-!
-!WC_ASO5/WC_HNO4=0.0
-!
-!WC_ASO5/WC_NH3=0.0
-!
-!WC_ASO5/WC_OH=0.0
-!
-!WC_ASO5/WC_HO2=-KC21*<WC_ASO5>
- PJAC(:,122,99)=-TPK%KC21(:)*PCONC(:,122)
-!
-!WC_ASO5/WC_CO2=0.0
-!
-!WC_ASO5/WC_SO2=0.0
-!
-!WC_ASO5/WC_H2SO4=0.0
-!
-!WC_ASO5/WC_RO21=0.0
-!
-!WC_ASO5/WC_RO25=0.0
-!
-!WC_ASO5/WC_MEOH=0.0
-!
-!WC_ASO5/WC_ETOH=0.0
-!
-!WC_ASO5/WC_ALCH=0.0
-!
-!WC_ASO5/WC_HCHO=0.0
-!
-!WC_ASO5/WC_ALD2=0.0
-!
-!WC_ASO5/WC_GLY=0.0
-!
-!WC_ASO5/WC_MGLY=0.0
-!
-!WC_ASO5/WC_KETL=0.0
-!
-!WC_ASO5/WC_ORA1=0.0
-!
-!WC_ASO5/WC_ORA2=0.0
-!
-!WC_ASO5/WC_ACID=0.0
-!
-!WC_ASO5/WC_RP16=0.0
-!
-!WC_ASO5/WC_UR21=0.0
-!
-!WC_ASO5/WC_UR28=0.0
-!
-!WC_ASO5/WC_ACID2=0.0
-!
-!WC_ASO5/WC_ASO3=+KC20*<W_O2>
- PJAC(:,122,120)=+TPK%KC20(:)*TPK%W_O2(:)
-!
-!WC_ASO5/WC_ASO4=0.0
-!
-!WC_ASO5/WC_ASO5=-KC21*<WC_HO2>-KC22*<WC_ASO5>-KC22*<WC_ASO5>-KC22*<WC_ASO5>-KC
-!22*<WC_ASO5>
- PJAC(:,122,122)=-TPK%KC21(:)*PCONC(:,99)-TPK%KC22(:)*PCONC(:,122)-TPK%KC22(:)*&
-&PCONC(:,122)-TPK%KC22(:)*PCONC(:,122)-TPK%KC22(:)*PCONC(:,122)
-!
-!WC_ASO5/WC_AHSO5=0.0
-!
-!WC_ASO5/WC_AHMS=0.0
-!
-!WC_ASO5/WR_O3=0.0
-!
-!WC_ASO5/WR_H2O2=0.0
-!
-!WC_ASO5/WR_NO=0.0
-!
-!WC_ASO5/WR_NO2=0.0
-!
-!WC_ASO5/WR_NO3=0.0
-!
-!WC_ASO5/WR_N2O5=0.0
-!
-!WC_ASO5/WR_HONO=0.0
-!
-!WC_ASO5/WR_HNO3=0.0
-!
-!WC_ASO5/WR_HNO4=0.0
-!
-!WC_ASO5/WR_NH3=0.0
-!
-!WC_ASO5/WR_OH=0.0
-!
-!WC_ASO5/WR_HO2=0.0
-!
-!WC_ASO5/WR_CO2=0.0
-!
-!WC_ASO5/WR_SO2=0.0
-!
-!WC_ASO5/WR_H2SO4=0.0
-!
-!WC_ASO5/WR_RO21=0.0
-!
-!WC_ASO5/WR_RO25=0.0
-!
-!WC_ASO5/WR_MEOH=0.0
-!
-!WC_ASO5/WR_ETOH=0.0
-!
-!WC_ASO5/WR_ALCH=0.0
-!
-!WC_ASO5/WR_HCHO=0.0
-!
-!WC_ASO5/WR_ALD2=0.0
-!
-!WC_ASO5/WR_GLY=0.0
-!
-!WC_ASO5/WR_MGLY=0.0
-!
-!WC_ASO5/WR_KETL=0.0
-!
-!WC_ASO5/WR_ORA1=0.0
-!
-!WC_ASO5/WR_ORA2=0.0
-!
-!WC_ASO5/WR_ACID=0.0
-!
-!WC_ASO5/WR_RP16=0.0
-!
-!WC_ASO5/WR_UR21=0.0
-!
-!WC_ASO5/WR_UR28=0.0
-!
-!WC_ASO5/WR_ACID2=0.0
-!
-!WC_ASO5/WR_ASO3=0.0
-!
-!WC_ASO5/WR_ASO4=0.0
-!
-!WC_ASO5/WR_ASO5=0.0
-!
-!WC_ASO5/WR_AHSO5=0.0
-!
-!WC_ASO5/WR_AHMS=0.0
-!
-!WC_AHSO5/NO=0.0
-!
-!WC_AHSO5/NO2=0.0
-!
-!WC_AHSO5/O3=0.0
-!
-!WC_AHSO5/HONO=0.0
-!
-!WC_AHSO5/HNO3=0.0
-!
-!WC_AHSO5/HNO4=0.0
-!
-!WC_AHSO5/N2O5=0.0
-!
-!WC_AHSO5/NO3=0.0
-!
-!WC_AHSO5/NH3=0.0
-!
-!WC_AHSO5/HO2=0.0
-!
-!WC_AHSO5/CO=0.0
-!
-!WC_AHSO5/H2O2=0.0
-!
-!WC_AHSO5/SO2=0.0
-!
-!WC_AHSO5/H2SO4=0.0
-!
-!WC_AHSO5/OH=0.0
-!
-!WC_AHSO5/ETHE=0.0
-!
-!WC_AHSO5/OLEL=0.0
-!
-!WC_AHSO5/OLEH=0.0
-!
-!WC_AHSO5/ALKL=0.0
-!
-!WC_AHSO5/ALKM=0.0
-!
-!WC_AHSO5/ALKH=0.0
-!
-!WC_AHSO5/AROH=0.0
-!
-!WC_AHSO5/AROL=0.0
-!
-!WC_AHSO5/AROO=0.0
-!
-!WC_AHSO5/ARAL=0.0
-!
-!WC_AHSO5/ARAC=0.0
-!
-!WC_AHSO5/PAH=0.0
-!
-!WC_AHSO5/HCHO=0.0
-!
-!WC_AHSO5/ALD2=0.0
-!
-!WC_AHSO5/KETL=0.0
-!
-!WC_AHSO5/KETH=0.0
-!
-!WC_AHSO5/MEOH=0.0
-!
-!WC_AHSO5/ETOH=0.0
-!
-!WC_AHSO5/ALCH=0.0
-!
-!WC_AHSO5/ISOP=0.0
-!
-!WC_AHSO5/BIOL=0.0
-!
-!WC_AHSO5/BIOH=0.0
-!
-!WC_AHSO5/MTBE=0.0
-!
-!WC_AHSO5/MVK=0.0
-!
-!WC_AHSO5/MCR=0.0
-!
-!WC_AHSO5/MGLY=0.0
-!
-!WC_AHSO5/GLY=0.0
-!
-!WC_AHSO5/ORA1=0.0
-!
-!WC_AHSO5/ORA2=0.0
-!
-!WC_AHSO5/ACID=0.0
-!
-!WC_AHSO5/UR28=0.0
-!
-!WC_AHSO5/UR21=0.0
-!
-!WC_AHSO5/URG2=0.0
-!
-!WC_AHSO5/UR26=0.0
-!
-!WC_AHSO5/RPG2=0.0
-!
-!WC_AHSO5/RP18=0.0
-!
-!WC_AHSO5/RPG3=0.0
-!
-!WC_AHSO5/URG4=0.0
-!
-!WC_AHSO5/UR8=0.0
-!
-!WC_AHSO5/UR17=0.0
-!
-!WC_AHSO5/UR7=0.0
-!
-!WC_AHSO5/RPR3=0.0
-!
-!WC_AHSO5/URG6=0.0
-!
-!WC_AHSO5/UR22=0.0
-!
-!WC_AHSO5/URG7=0.0
-!
-!WC_AHSO5/RPR4=0.0
-!
-!WC_AHSO5/RPR7=0.0
-!
-!WC_AHSO5/RPG7=0.0
-!
-!WC_AHSO5/URG8=0.0
-!
-!WC_AHSO5/UR19=0.0
-!
-!WC_AHSO5/URG9=0.0
-!
-!WC_AHSO5/AP7=0.0
-!
-!WC_AHSO5/URG10=0.0
-!
-!WC_AHSO5/RPR1=0.0
-!
-!WC_AHSO5/RPR5=0.0
-!
-!WC_AHSO5/RPR8=0.0
-!
-!WC_AHSO5/RP10=0.0
-!
-!WC_AHSO5/RP11=0.0
-!
-!WC_AHSO5/RP16=0.0
-!
-!WC_AHSO5/RPRL=0.0
-!
-!WC_AHSO5/APAN=0.0
-!
-!WC_AHSO5/PAN1=0.0
-!
-!WC_AHSO5/PAN2=0.0
-!
-!WC_AHSO5/PAN3=0.0
-!
-!WC_AHSO5/PAN4=0.0
-!
-!WC_AHSO5/PAN6=0.0
-!
-!WC_AHSO5/PAN7=0.0
-!
-!WC_AHSO5/PAN8=0.0
-!
-!WC_AHSO5/PN10=0.0
-!
-!WC_AHSO5/RO2T=0.0
-!
-!WC_AHSO5/RO21=0.0
-!
-!WC_AHSO5/RO25=0.0
-!
-!WC_AHSO5/WC_O3=0.0
-!
-!WC_AHSO5/WC_H2O2=0.0
-!
-!WC_AHSO5/WC_NO=0.0
-!
-!WC_AHSO5/WC_NO2=0.0
-!
-!WC_AHSO5/WC_NO3=0.0
-!
-!WC_AHSO5/WC_N2O5=0.0
-!
-!WC_AHSO5/WC_HONO=0.0
-!
-!WC_AHSO5/WC_HNO3=0.0
-!
-!WC_AHSO5/WC_HNO4=0.0
-!
-!WC_AHSO5/WC_NH3=0.0
-!
-!WC_AHSO5/WC_OH=0.0
-!
-!WC_AHSO5/WC_HO2=+KC21*<WC_ASO5>
- PJAC(:,123,99)=+TPK%KC21(:)*PCONC(:,122)
-!
-!WC_AHSO5/WC_CO2=0.0
-!
-!WC_AHSO5/WC_SO2=-KC23*<WC_AHSO5>
- PJAC(:,123,101)=-TPK%KC23(:)*PCONC(:,123)
-!
-!WC_AHSO5/WC_H2SO4=0.0
-!
-!WC_AHSO5/WC_RO21=0.0
-!
-!WC_AHSO5/WC_RO25=0.0
-!
-!WC_AHSO5/WC_MEOH=0.0
-!
-!WC_AHSO5/WC_ETOH=0.0
-!
-!WC_AHSO5/WC_ALCH=0.0
-!
-!WC_AHSO5/WC_HCHO=0.0
-!
-!WC_AHSO5/WC_ALD2=0.0
-!
-!WC_AHSO5/WC_GLY=0.0
-!
-!WC_AHSO5/WC_MGLY=0.0
-!
-!WC_AHSO5/WC_KETL=0.0
-!
-!WC_AHSO5/WC_ORA1=0.0
-!
-!WC_AHSO5/WC_ORA2=0.0
-!
-!WC_AHSO5/WC_ACID=0.0
-!
-!WC_AHSO5/WC_RP16=0.0
-!
-!WC_AHSO5/WC_UR21=0.0
-!
-!WC_AHSO5/WC_UR28=0.0
-!
-!WC_AHSO5/WC_ACID2=0.0
-!
-!WC_AHSO5/WC_ASO3=0.0
-!
-!WC_AHSO5/WC_ASO4=0.0
-!
-!WC_AHSO5/WC_ASO5=+KC21*<WC_HO2>
- PJAC(:,123,122)=+TPK%KC21(:)*PCONC(:,99)
-!
-!WC_AHSO5/WC_AHSO5=-KC23*<WC_SO2>
- PJAC(:,123,123)=-TPK%KC23(:)*PCONC(:,101)
-!
-!WC_AHSO5/WC_AHMS=0.0
-!
-!WC_AHSO5/WR_O3=0.0
-!
-!WC_AHSO5/WR_H2O2=0.0
-!
-!WC_AHSO5/WR_NO=0.0
-!
-!WC_AHSO5/WR_NO2=0.0
-!
-!WC_AHSO5/WR_NO3=0.0
-!
-!WC_AHSO5/WR_N2O5=0.0
-!
-!WC_AHSO5/WR_HONO=0.0
-!
-!WC_AHSO5/WR_HNO3=0.0
-!
-!WC_AHSO5/WR_HNO4=0.0
-!
-!WC_AHSO5/WR_NH3=0.0
-!
-!WC_AHSO5/WR_OH=0.0
-!
-!WC_AHSO5/WR_HO2=0.0
-!
-!WC_AHSO5/WR_CO2=0.0
-!
-!WC_AHSO5/WR_SO2=0.0
-!
-!WC_AHSO5/WR_H2SO4=0.0
-!
-!WC_AHSO5/WR_RO21=0.0
-!
-!WC_AHSO5/WR_RO25=0.0
-!
-!WC_AHSO5/WR_MEOH=0.0
-!
-!WC_AHSO5/WR_ETOH=0.0
-!
-!WC_AHSO5/WR_ALCH=0.0
-!
-!WC_AHSO5/WR_HCHO=0.0
-!
-!WC_AHSO5/WR_ALD2=0.0
-!
-!WC_AHSO5/WR_GLY=0.0
-!
-!WC_AHSO5/WR_MGLY=0.0
-!
-!WC_AHSO5/WR_KETL=0.0
-!
-!WC_AHSO5/WR_ORA1=0.0
-!
-!WC_AHSO5/WR_ORA2=0.0
-!
-!WC_AHSO5/WR_ACID=0.0
-!
-!WC_AHSO5/WR_RP16=0.0
-!
-!WC_AHSO5/WR_UR21=0.0
-!
-!WC_AHSO5/WR_UR28=0.0
-!
-!WC_AHSO5/WR_ACID2=0.0
-!
-!WC_AHSO5/WR_ASO3=0.0
-!
-!WC_AHSO5/WR_ASO4=0.0
-!
-!WC_AHSO5/WR_ASO5=0.0
-!
-!WC_AHSO5/WR_AHSO5=0.0
-!
-!WC_AHSO5/WR_AHMS=0.0
-!
-!WC_AHMS/NO=0.0
-!
-!WC_AHMS/NO2=0.0
-!
-!WC_AHMS/O3=0.0
-!
-!WC_AHMS/HONO=0.0
-!
-!WC_AHMS/HNO3=0.0
-!
-!WC_AHMS/HNO4=0.0
-!
-!WC_AHMS/N2O5=0.0
-!
-!WC_AHMS/NO3=0.0
-!
-!WC_AHMS/NH3=0.0
-!
-!WC_AHMS/HO2=0.0
-!
-!WC_AHMS/CO=0.0
-!
-!WC_AHMS/H2O2=0.0
-!
-!WC_AHMS/SO2=0.0
-!
-!WC_AHMS/H2SO4=0.0
-!
-!WC_AHMS/OH=0.0
-!
-!WC_AHMS/ETHE=0.0
-!
-!WC_AHMS/OLEL=0.0
-!
-!WC_AHMS/OLEH=0.0
-!
-!WC_AHMS/ALKL=0.0
-!
-!WC_AHMS/ALKM=0.0
-!
-!WC_AHMS/ALKH=0.0
-!
-!WC_AHMS/AROH=0.0
-!
-!WC_AHMS/AROL=0.0
-!
-!WC_AHMS/AROO=0.0
-!
-!WC_AHMS/ARAL=0.0
-!
-!WC_AHMS/ARAC=0.0
-!
-!WC_AHMS/PAH=0.0
-!
-!WC_AHMS/HCHO=0.0
-!
-!WC_AHMS/ALD2=0.0
-!
-!WC_AHMS/KETL=0.0
-!
-!WC_AHMS/KETH=0.0
-!
-!WC_AHMS/MEOH=0.0
-!
-!WC_AHMS/ETOH=0.0
-!
-!WC_AHMS/ALCH=0.0
-!
-!WC_AHMS/ISOP=0.0
-!
-!WC_AHMS/BIOL=0.0
-!
-!WC_AHMS/BIOH=0.0
-!
-!WC_AHMS/MTBE=0.0
-!
-!WC_AHMS/MVK=0.0
-!
-!WC_AHMS/MCR=0.0
-!
-!WC_AHMS/MGLY=0.0
-!
-!WC_AHMS/GLY=0.0
-!
-!WC_AHMS/ORA1=0.0
-!
-!WC_AHMS/ORA2=0.0
-!
-!WC_AHMS/ACID=0.0
-!
-!WC_AHMS/UR28=0.0
-!
-!WC_AHMS/UR21=0.0
-!
-!WC_AHMS/URG2=0.0
-!
-!WC_AHMS/UR26=0.0
-!
-!WC_AHMS/RPG2=0.0
-!
-!WC_AHMS/RP18=0.0
-!
-!WC_AHMS/RPG3=0.0
-!
-!WC_AHMS/URG4=0.0
-!
-!WC_AHMS/UR8=0.0
-!
-!WC_AHMS/UR17=0.0
-!
-!WC_AHMS/UR7=0.0
-!
-!WC_AHMS/RPR3=0.0
-!
-!WC_AHMS/URG6=0.0
-!
-!WC_AHMS/UR22=0.0
-!
-!WC_AHMS/URG7=0.0
-!
-!WC_AHMS/RPR4=0.0
-!
-!WC_AHMS/RPR7=0.0
-!
-!WC_AHMS/RPG7=0.0
-!
-!WC_AHMS/URG8=0.0
-!
-!WC_AHMS/UR19=0.0
-!
-!WC_AHMS/URG9=0.0
-!
-!WC_AHMS/AP7=0.0
-!
-!WC_AHMS/URG10=0.0
-!
-!WC_AHMS/RPR1=0.0
-!
-!WC_AHMS/RPR5=0.0
-!
-!WC_AHMS/RPR8=0.0
-!
-!WC_AHMS/RP10=0.0
-!
-!WC_AHMS/RP11=0.0
-!
-!WC_AHMS/RP16=0.0
-!
-!WC_AHMS/RPRL=0.0
-!
-!WC_AHMS/APAN=0.0
-!
-!WC_AHMS/PAN1=0.0
-!
-!WC_AHMS/PAN2=0.0
-!
-!WC_AHMS/PAN3=0.0
-!
-!WC_AHMS/PAN4=0.0
-!
-!WC_AHMS/PAN6=0.0
-!
-!WC_AHMS/PAN7=0.0
-!
-!WC_AHMS/PAN8=0.0
-!
-!WC_AHMS/PN10=0.0
-!
-!WC_AHMS/RO2T=0.0
-!
-!WC_AHMS/RO21=0.0
-!
-!WC_AHMS/RO25=0.0
-!
-!WC_AHMS/WC_O3=0.0
-!
-!WC_AHMS/WC_H2O2=0.0
-!
-!WC_AHMS/WC_NO=0.0
-!
-!WC_AHMS/WC_NO2=0.0
-!
-!WC_AHMS/WC_NO3=0.0
-!
-!WC_AHMS/WC_N2O5=0.0
-!
-!WC_AHMS/WC_HONO=0.0
-!
-!WC_AHMS/WC_HNO3=0.0
-!
-!WC_AHMS/WC_HNO4=0.0
-!
-!WC_AHMS/WC_NH3=0.0
-!
-!WC_AHMS/WC_OH=-KC19*<WC_AHMS>
- PJAC(:,124,98)=-TPK%KC19(:)*PCONC(:,124)
-!
-!WC_AHMS/WC_HO2=0.0
-!
-!WC_AHMS/WC_CO2=0.0
-!
-!WC_AHMS/WC_SO2=+KC17*<WC_HCHO>
- PJAC(:,124,101)=+TPK%KC17(:)*PCONC(:,108)
-!
-!WC_AHMS/WC_H2SO4=0.0
-!
-!WC_AHMS/WC_RO21=0.0
-!
-!WC_AHMS/WC_RO25=0.0
-!
-!WC_AHMS/WC_MEOH=0.0
-!
-!WC_AHMS/WC_ETOH=0.0
-!
-!WC_AHMS/WC_ALCH=0.0
-!
-!WC_AHMS/WC_HCHO=+KC17*<WC_SO2>
- PJAC(:,124,108)=+TPK%KC17(:)*PCONC(:,101)
-!
-!WC_AHMS/WC_ALD2=0.0
-!
-!WC_AHMS/WC_GLY=0.0
-!
-!WC_AHMS/WC_MGLY=0.0
-!
-!WC_AHMS/WC_KETL=0.0
-!
-!WC_AHMS/WC_ORA1=0.0
-!
-!WC_AHMS/WC_ORA2=0.0
-!
-!WC_AHMS/WC_ACID=0.0
-!
-!WC_AHMS/WC_RP16=0.0
-!
-!WC_AHMS/WC_UR21=0.0
-!
-!WC_AHMS/WC_UR28=0.0
-!
-!WC_AHMS/WC_ACID2=0.0
-!
-!WC_AHMS/WC_ASO3=0.0
-!
-!WC_AHMS/WC_ASO4=0.0
-!
-!WC_AHMS/WC_ASO5=0.0
-!
-!WC_AHMS/WC_AHSO5=0.0
-!
-!WC_AHMS/WC_AHMS=-KC18-KC19*<WC_OH>
- PJAC(:,124,124)=-TPK%KC18(:)-TPK%KC19(:)*PCONC(:,98)
-!
-!WC_AHMS/WR_O3=0.0
-!
-!WC_AHMS/WR_H2O2=0.0
-!
-!WC_AHMS/WR_NO=0.0
-!
-!WC_AHMS/WR_NO2=0.0
-!
-!WC_AHMS/WR_NO3=0.0
-!
-!WC_AHMS/WR_N2O5=0.0
-!
-!WC_AHMS/WR_HONO=0.0
-!
-!WC_AHMS/WR_HNO3=0.0
-!
-!WC_AHMS/WR_HNO4=0.0
-!
-!WC_AHMS/WR_NH3=0.0
-!
-!WC_AHMS/WR_OH=0.0
-!
-!WC_AHMS/WR_HO2=0.0
-!
-!WC_AHMS/WR_CO2=0.0
-!
-!WC_AHMS/WR_SO2=0.0
-!
-!WC_AHMS/WR_H2SO4=0.0
-!
-!WC_AHMS/WR_RO21=0.0
-!
-!WC_AHMS/WR_RO25=0.0
-!
-!WC_AHMS/WR_MEOH=0.0
-!
-!WC_AHMS/WR_ETOH=0.0
-!
-!WC_AHMS/WR_ALCH=0.0
-!
-!WC_AHMS/WR_HCHO=0.0
-!
-!WC_AHMS/WR_ALD2=0.0
-!
-!WC_AHMS/WR_GLY=0.0
-!
-!WC_AHMS/WR_MGLY=0.0
-!
-!WC_AHMS/WR_KETL=0.0
-!
-!WC_AHMS/WR_ORA1=0.0
-!
-!WC_AHMS/WR_ORA2=0.0
-!
-!WC_AHMS/WR_ACID=0.0
-!
-!WC_AHMS/WR_RP16=0.0
-!
-!WC_AHMS/WR_UR21=0.0
-!
-!WC_AHMS/WR_UR28=0.0
-!
-!WC_AHMS/WR_ACID2=0.0
-!
-!WC_AHMS/WR_ASO3=0.0
-!
-!WC_AHMS/WR_ASO4=0.0
-!
-!WC_AHMS/WR_ASO5=0.0
-!
-!WC_AHMS/WR_AHSO5=0.0
-!
-!WC_AHMS/WR_AHMS=0.0
-!
-!WR_O3/NO=0.0
-!
-!WR_O3/NO2=0.0
-!
-!WR_O3/O3=+KTR1
- PJAC(:,125,3)=+TPK%KTR1(:)
-!
-!WR_O3/HONO=0.0
-!
-!WR_O3/HNO3=0.0
-!
-!WR_O3/HNO4=0.0
-!
-!WR_O3/N2O5=0.0
-!
-!WR_O3/NO3=0.0
-!
-!WR_O3/NH3=0.0
-!
-!WR_O3/HO2=0.0
-!
-!WR_O3/CO=0.0
-!
-!WR_O3/H2O2=0.0
-!
-!WR_O3/SO2=0.0
-!
-!WR_O3/H2SO4=0.0
-!
-!WR_O3/OH=0.0
-!
-!WR_O3/ETHE=0.0
-!
-!WR_O3/OLEL=0.0
-!
-!WR_O3/OLEH=0.0
-!
-!WR_O3/ALKL=0.0
-!
-!WR_O3/ALKM=0.0
-!
-!WR_O3/ALKH=0.0
-!
-!WR_O3/AROH=0.0
-!
-!WR_O3/AROL=0.0
-!
-!WR_O3/AROO=0.0
-!
-!WR_O3/ARAL=0.0
-!
-!WR_O3/ARAC=0.0
-!
-!WR_O3/PAH=0.0
-!
-!WR_O3/HCHO=0.0
-!
-!WR_O3/ALD2=0.0
-!
-!WR_O3/KETL=0.0
-!
-!WR_O3/KETH=0.0
-!
-!WR_O3/MEOH=0.0
-!
-!WR_O3/ETOH=0.0
-!
-!WR_O3/ALCH=0.0
-!
-!WR_O3/ISOP=0.0
-!
-!WR_O3/BIOL=0.0
-!
-!WR_O3/BIOH=0.0
-!
-!WR_O3/MTBE=0.0
-!
-!WR_O3/MVK=0.0
-!
-!WR_O3/MCR=0.0
-!
-!WR_O3/MGLY=0.0
-!
-!WR_O3/GLY=0.0
-!
-!WR_O3/ORA1=0.0
-!
-!WR_O3/ORA2=0.0
-!
-!WR_O3/ACID=0.0
-!
-!WR_O3/UR28=0.0
-!
-!WR_O3/UR21=0.0
-!
-!WR_O3/URG2=0.0
-!
-!WR_O3/UR26=0.0
-!
-!WR_O3/RPG2=0.0
-!
-!WR_O3/RP18=0.0
-!
-!WR_O3/RPG3=0.0
-!
-!WR_O3/URG4=0.0
-!
-!WR_O3/UR8=0.0
-!
-!WR_O3/UR17=0.0
-!
-!WR_O3/UR7=0.0
-!
-!WR_O3/RPR3=0.0
-!
-!WR_O3/URG6=0.0
-!
-!WR_O3/UR22=0.0
-!
-!WR_O3/URG7=0.0
-!
-!WR_O3/RPR4=0.0
-!
-!WR_O3/RPR7=0.0
-!
-!WR_O3/RPG7=0.0
-!
-!WR_O3/URG8=0.0
-!
-!WR_O3/UR19=0.0
-!
-!WR_O3/URG9=0.0
-!
-!WR_O3/AP7=0.0
-!
-!WR_O3/URG10=0.0
-!
-!WR_O3/RPR1=0.0
-!
-!WR_O3/RPR5=0.0
-!
-!WR_O3/RPR8=0.0
-!
-!WR_O3/RP10=0.0
-!
-!WR_O3/RP11=0.0
-!
-!WR_O3/RP16=0.0
-!
-!WR_O3/RPRL=0.0
-!
-!WR_O3/APAN=0.0
-!
-!WR_O3/PAN1=0.0
-!
-!WR_O3/PAN2=0.0
-!
-!WR_O3/PAN3=0.0
-!
-!WR_O3/PAN4=0.0
-!
-!WR_O3/PAN6=0.0
-!
-!WR_O3/PAN7=0.0
-!
-!WR_O3/PAN8=0.0
-!
-!WR_O3/PN10=0.0
-!
-!WR_O3/RO2T=0.0
-!
-!WR_O3/RO21=0.0
-!
-!WR_O3/RO25=0.0
-!
-!WR_O3/WC_O3=0.0
-!
-!WR_O3/WC_H2O2=0.0
-!
-!WR_O3/WC_NO=0.0
-!
-!WR_O3/WC_NO2=0.0
-!
-!WR_O3/WC_NO3=0.0
-!
-!WR_O3/WC_N2O5=0.0
-!
-!WR_O3/WC_HONO=0.0
-!
-!WR_O3/WC_HNO3=0.0
-!
-!WR_O3/WC_HNO4=0.0
-!
-!WR_O3/WC_NH3=0.0
-!
-!WR_O3/WC_OH=0.0
-!
-!WR_O3/WC_HO2=0.0
-!
-!WR_O3/WC_CO2=0.0
-!
-!WR_O3/WC_SO2=0.0
-!
-!WR_O3/WC_H2SO4=0.0
-!
-!WR_O3/WC_RO21=0.0
-!
-!WR_O3/WC_RO25=0.0
-!
-!WR_O3/WC_MEOH=0.0
-!
-!WR_O3/WC_ETOH=0.0
-!
-!WR_O3/WC_ALCH=0.0
-!
-!WR_O3/WC_HCHO=0.0
-!
-!WR_O3/WC_ALD2=0.0
-!
-!WR_O3/WC_GLY=0.0
-!
-!WR_O3/WC_MGLY=0.0
-!
-!WR_O3/WC_KETL=0.0
-!
-!WR_O3/WC_ORA1=0.0
-!
-!WR_O3/WC_ORA2=0.0
-!
-!WR_O3/WC_ACID=0.0
-!
-!WR_O3/WC_RP16=0.0
-!
-!WR_O3/WC_UR21=0.0
-!
-!WR_O3/WC_UR28=0.0
-!
-!WR_O3/WC_ACID2=0.0
-!
-!WR_O3/WC_ASO3=0.0
-!
-!WR_O3/WC_ASO4=0.0
-!
-!WR_O3/WC_ASO5=0.0
-!
-!WR_O3/WC_AHSO5=0.0
-!
-!WR_O3/WC_AHMS=0.0
-!
-!WR_O3/WR_O3=-KTR32-KR6*<WR_HO2>-KR25*<WR_SO2>
- PJAC(:,125,125)=-TPK%KTR32(:)-TPK%KR6(:)*PCONC(:,136)-TPK%KR25(:)*PCONC(:,138)
-!
-!WR_O3/WR_H2O2=0.0
-!
-!WR_O3/WR_NO=0.0
-!
-!WR_O3/WR_NO2=0.0
-!
-!WR_O3/WR_NO3=0.0
-!
-!WR_O3/WR_N2O5=0.0
-!
-!WR_O3/WR_HONO=0.0
-!
-!WR_O3/WR_HNO3=0.0
-!
-!WR_O3/WR_HNO4=0.0
-!
-!WR_O3/WR_NH3=0.0
-!
-!WR_O3/WR_OH=0.0
-!
-!WR_O3/WR_HO2=-KR6*<WR_O3>
- PJAC(:,125,136)=-TPK%KR6(:)*PCONC(:,125)
-!
-!WR_O3/WR_CO2=0.0
-!
-!WR_O3/WR_SO2=-KR25*<WR_O3>
- PJAC(:,125,138)=-TPK%KR25(:)*PCONC(:,125)
-!
-!WR_O3/WR_H2SO4=0.0
-!
-!WR_O3/WR_RO21=0.0
-!
-!WR_O3/WR_RO25=0.0
-!
-!WR_O3/WR_MEOH=0.0
-!
-!WR_O3/WR_ETOH=0.0
-!
-!WR_O3/WR_ALCH=0.0
-!
-!WR_O3/WR_HCHO=0.0
-!
-!WR_O3/WR_ALD2=0.0
-!
-!WR_O3/WR_GLY=0.0
-!
-!WR_O3/WR_MGLY=0.0
-!
-!WR_O3/WR_KETL=0.0
-!
-!WR_O3/WR_ORA1=0.0
-!
-!WR_O3/WR_ORA2=0.0
-!
-!WR_O3/WR_ACID=0.0
-!
-!WR_O3/WR_RP16=0.0
-!
-!WR_O3/WR_UR21=0.0
-!
-!WR_O3/WR_UR28=0.0
-!
-!WR_O3/WR_ACID2=0.0
-!
-!WR_O3/WR_ASO3=0.0
-!
-!WR_O3/WR_ASO4=0.0
-!
-!WR_O3/WR_ASO5=0.0
-!
-!WR_O3/WR_AHSO5=0.0
-!
-!WR_O3/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ24
-!
-SUBROUTINE SUBJ25
-!
-!Indices 126 a 130
-!
-!
-!WR_H2O2/NO=0.0
-!
-!WR_H2O2/NO2=0.0
-!
-!WR_H2O2/O3=0.0
-!
-!WR_H2O2/HONO=0.0
-!
-!WR_H2O2/HNO3=0.0
-!
-!WR_H2O2/HNO4=0.0
-!
-!WR_H2O2/N2O5=0.0
-!
-!WR_H2O2/NO3=0.0
-!
-!WR_H2O2/NH3=0.0
-!
-!WR_H2O2/HO2=0.0
-!
-!WR_H2O2/CO=0.0
-!
-!WR_H2O2/H2O2=+KTR2
- PJAC(:,126,12)=+TPK%KTR2(:)
-!
-!WR_H2O2/SO2=0.0
-!
-!WR_H2O2/H2SO4=0.0
-!
-!WR_H2O2/OH=0.0
-!
-!WR_H2O2/ETHE=0.0
-!
-!WR_H2O2/OLEL=0.0
-!
-!WR_H2O2/OLEH=0.0
-!
-!WR_H2O2/ALKL=0.0
-!
-!WR_H2O2/ALKM=0.0
-!
-!WR_H2O2/ALKH=0.0
-!
-!WR_H2O2/AROH=0.0
-!
-!WR_H2O2/AROL=0.0
-!
-!WR_H2O2/AROO=0.0
-!
-!WR_H2O2/ARAL=0.0
-!
-!WR_H2O2/ARAC=0.0
-!
-!WR_H2O2/PAH=0.0
-!
-!WR_H2O2/HCHO=0.0
-!
-!WR_H2O2/ALD2=0.0
-!
-!WR_H2O2/KETL=0.0
-!
-!WR_H2O2/KETH=0.0
-!
-!WR_H2O2/MEOH=0.0
-!
-!WR_H2O2/ETOH=0.0
-!
-!WR_H2O2/ALCH=0.0
-!
-!WR_H2O2/ISOP=0.0
-!
-!WR_H2O2/BIOL=0.0
-!
-!WR_H2O2/BIOH=0.0
-!
-!WR_H2O2/MTBE=0.0
-!
-!WR_H2O2/MVK=0.0
-!
-!WR_H2O2/MCR=0.0
-!
-!WR_H2O2/MGLY=0.0
-!
-!WR_H2O2/GLY=0.0
-!
-!WR_H2O2/ORA1=0.0
-!
-!WR_H2O2/ORA2=0.0
-!
-!WR_H2O2/ACID=0.0
-!
-!WR_H2O2/UR28=0.0
-!
-!WR_H2O2/UR21=0.0
-!
-!WR_H2O2/URG2=0.0
-!
-!WR_H2O2/UR26=0.0
-!
-!WR_H2O2/RPG2=0.0
-!
-!WR_H2O2/RP18=0.0
-!
-!WR_H2O2/RPG3=0.0
-!
-!WR_H2O2/URG4=0.0
-!
-!WR_H2O2/UR8=0.0
-!
-!WR_H2O2/UR17=0.0
-!
-!WR_H2O2/UR7=0.0
-!
-!WR_H2O2/RPR3=0.0
-!
-!WR_H2O2/URG6=0.0
-!
-!WR_H2O2/UR22=0.0
-!
-!WR_H2O2/URG7=0.0
-!
-!WR_H2O2/RPR4=0.0
-!
-!WR_H2O2/RPR7=0.0
-!
-!WR_H2O2/RPG7=0.0
-!
-!WR_H2O2/URG8=0.0
-!
-!WR_H2O2/UR19=0.0
-!
-!WR_H2O2/URG9=0.0
-!
-!WR_H2O2/AP7=0.0
-!
-!WR_H2O2/URG10=0.0
-!
-!WR_H2O2/RPR1=0.0
-!
-!WR_H2O2/RPR5=0.0
-!
-!WR_H2O2/RPR8=0.0
-!
-!WR_H2O2/RP10=0.0
-!
-!WR_H2O2/RP11=0.0
-!
-!WR_H2O2/RP16=0.0
-!
-!WR_H2O2/RPRL=0.0
-!
-!WR_H2O2/APAN=0.0
-!
-!WR_H2O2/PAN1=0.0
-!
-!WR_H2O2/PAN2=0.0
-!
-!WR_H2O2/PAN3=0.0
-!
-!WR_H2O2/PAN4=0.0
-!
-!WR_H2O2/PAN6=0.0
-!
-!WR_H2O2/PAN7=0.0
-!
-!WR_H2O2/PAN8=0.0
-!
-!WR_H2O2/PN10=0.0
-!
-!WR_H2O2/RO2T=0.0
-!
-!WR_H2O2/RO21=0.0
-!
-!WR_H2O2/RO25=0.0
-!
-!WR_H2O2/WC_O3=0.0
-!
-!WR_H2O2/WC_H2O2=0.0
-!
-!WR_H2O2/WC_NO=0.0
-!
-!WR_H2O2/WC_NO2=0.0
-!
-!WR_H2O2/WC_NO3=0.0
-!
-!WR_H2O2/WC_N2O5=0.0
-!
-!WR_H2O2/WC_HONO=0.0
-!
-!WR_H2O2/WC_HNO3=0.0
-!
-!WR_H2O2/WC_HNO4=0.0
-!
-!WR_H2O2/WC_NH3=0.0
-!
-!WR_H2O2/WC_OH=0.0
-!
-!WR_H2O2/WC_HO2=0.0
-!
-!WR_H2O2/WC_CO2=0.0
-!
-!WR_H2O2/WC_SO2=0.0
-!
-!WR_H2O2/WC_H2SO4=0.0
-!
-!WR_H2O2/WC_RO21=0.0
-!
-!WR_H2O2/WC_RO25=0.0
-!
-!WR_H2O2/WC_MEOH=0.0
-!
-!WR_H2O2/WC_ETOH=0.0
-!
-!WR_H2O2/WC_ALCH=0.0
-!
-!WR_H2O2/WC_HCHO=0.0
-!
-!WR_H2O2/WC_ALD2=0.0
-!
-!WR_H2O2/WC_GLY=0.0
-!
-!WR_H2O2/WC_MGLY=0.0
-!
-!WR_H2O2/WC_KETL=0.0
-!
-!WR_H2O2/WC_ORA1=0.0
-!
-!WR_H2O2/WC_ORA2=0.0
-!
-!WR_H2O2/WC_ACID=0.0
-!
-!WR_H2O2/WC_RP16=0.0
-!
-!WR_H2O2/WC_UR21=0.0
-!
-!WR_H2O2/WC_UR28=0.0
-!
-!WR_H2O2/WC_ACID2=0.0
-!
-!WR_H2O2/WC_ASO3=0.0
-!
-!WR_H2O2/WC_ASO4=0.0
-!
-!WR_H2O2/WC_ASO5=0.0
-!
-!WR_H2O2/WC_AHSO5=0.0
-!
-!WR_H2O2/WC_AHMS=0.0
-!
-!WR_H2O2/WR_O3=0.0
-!
-!WR_H2O2/WR_H2O2=-KTR33-KR1-KR4*<WR_OH>-KR26*<WR_SO2>
- PJAC(:,126,126)=-TPK%KTR33(:)-TPK%KR1(:)-TPK%KR4(:)*PCONC(:,135)-TPK%KR26(:)*P&
-&CONC(:,138)
-!
-!WR_H2O2/WR_NO=0.0
-!
-!WR_H2O2/WR_NO2=0.0
-!
-!WR_H2O2/WR_NO3=0.0
-!
-!WR_H2O2/WR_N2O5=0.0
-!
-!WR_H2O2/WR_HONO=0.0
-!
-!WR_H2O2/WR_HNO3=0.0
-!
-!WR_H2O2/WR_HNO4=0.0
-!
-!WR_H2O2/WR_NH3=0.0
-!
-!WR_H2O2/WR_OH=+KR2*<WR_OH>+KR2*<WR_OH>-KR4*<WR_H2O2>+KR37*<WR_KETL>+0.5*KR39*<
-!WR_ORA2>+0.29*KR41*<WR_ACID>+0.3*KR43*<WR_UR21>+0.45*KR45*<WR_RP16>
- PJAC(:,126,135)=+TPK%KR2(:)*PCONC(:,135)+TPK%KR2(:)*PCONC(:,135)-TPK%KR4(:)*PC&
-&ONC(:,126)+TPK%KR37(:)*PCONC(:,149)+0.5*TPK%KR39(:)*PCONC(:,151)+0.29*TPK%KR41&
-&(:)*PCONC(:,152)+0.3*TPK%KR43(:)*PCONC(:,154)+0.45*TPK%KR45(:)*PCONC(:,153)
-!
-!WR_H2O2/WR_HO2=+KR5*<WR_HO2>+KR5*<WR_HO2>
- PJAC(:,126,136)=+TPK%KR5(:)*PCONC(:,136)+TPK%KR5(:)*PCONC(:,136)
-!
-!WR_H2O2/WR_CO2=0.0
-!
-!WR_H2O2/WR_SO2=-KR26*<WR_H2O2>
- PJAC(:,126,138)=-TPK%KR26(:)*PCONC(:,126)
-!
-!WR_H2O2/WR_H2SO4=0.0
-!
-!WR_H2O2/WR_RO21=0.0
-!
-!WR_H2O2/WR_RO25=+KR29*<WR_RO25>+KR29*<WR_RO25>
- PJAC(:,126,141)=+TPK%KR29(:)*PCONC(:,141)+TPK%KR29(:)*PCONC(:,141)
-!
-!WR_H2O2/WR_MEOH=0.0
-!
-!WR_H2O2/WR_ETOH=0.0
-!
-!WR_H2O2/WR_ALCH=0.0
-!
-!WR_H2O2/WR_HCHO=0.0
-!
-!WR_H2O2/WR_ALD2=0.0
-!
-!WR_H2O2/WR_GLY=0.0
-!
-!WR_H2O2/WR_MGLY=0.0
-!
-!WR_H2O2/WR_KETL=+KR37*<WR_OH>
- PJAC(:,126,149)=+TPK%KR37(:)*PCONC(:,135)
-!
-!WR_H2O2/WR_ORA1=0.0
-!
-!WR_H2O2/WR_ORA2=+0.5*KR39*<WR_OH>
- PJAC(:,126,151)=+0.5*TPK%KR39(:)*PCONC(:,135)
-!
-!WR_H2O2/WR_ACID=+0.29*KR41*<WR_OH>
- PJAC(:,126,152)=+0.29*TPK%KR41(:)*PCONC(:,135)
-!
-!WR_H2O2/WR_RP16=+0.45*KR45*<WR_OH>
- PJAC(:,126,153)=+0.45*TPK%KR45(:)*PCONC(:,135)
-!
-!WR_H2O2/WR_UR21=+0.3*KR43*<WR_OH>
- PJAC(:,126,154)=+0.3*TPK%KR43(:)*PCONC(:,135)
-!
-!WR_H2O2/WR_UR28=0.0
-!
-!WR_H2O2/WR_ACID2=0.0
-!
-!WR_H2O2/WR_ASO3=0.0
-!
-!WR_H2O2/WR_ASO4=0.0
-!
-!WR_H2O2/WR_ASO5=0.0
-!
-!WR_H2O2/WR_AHSO5=0.0
-!
-!WR_H2O2/WR_AHMS=0.0
-!
-!WR_NO/NO=+KTR3
- PJAC(:,127,1)=+TPK%KTR3(:)
-!
-!WR_NO/NO2=0.0
-!
-!WR_NO/O3=0.0
-!
-!WR_NO/HONO=0.0
-!
-!WR_NO/HNO3=0.0
-!
-!WR_NO/HNO4=0.0
-!
-!WR_NO/N2O5=0.0
-!
-!WR_NO/NO3=0.0
-!
-!WR_NO/NH3=0.0
-!
-!WR_NO/HO2=0.0
-!
-!WR_NO/CO=0.0
-!
-!WR_NO/H2O2=0.0
-!
-!WR_NO/SO2=0.0
-!
-!WR_NO/H2SO4=0.0
-!
-!WR_NO/OH=0.0
-!
-!WR_NO/ETHE=0.0
-!
-!WR_NO/OLEL=0.0
-!
-!WR_NO/OLEH=0.0
-!
-!WR_NO/ALKL=0.0
-!
-!WR_NO/ALKM=0.0
-!
-!WR_NO/ALKH=0.0
-!
-!WR_NO/AROH=0.0
-!
-!WR_NO/AROL=0.0
-!
-!WR_NO/AROO=0.0
-!
-!WR_NO/ARAL=0.0
-!
-!WR_NO/ARAC=0.0
-!
-!WR_NO/PAH=0.0
-!
-!WR_NO/HCHO=0.0
-!
-!WR_NO/ALD2=0.0
-!
-!WR_NO/KETL=0.0
-!
-!WR_NO/KETH=0.0
-!
-!WR_NO/MEOH=0.0
-!
-!WR_NO/ETOH=0.0
-!
-!WR_NO/ALCH=0.0
-!
-!WR_NO/ISOP=0.0
-!
-!WR_NO/BIOL=0.0
-!
-!WR_NO/BIOH=0.0
-!
-!WR_NO/MTBE=0.0
-!
-!WR_NO/MVK=0.0
-!
-!WR_NO/MCR=0.0
-!
-!WR_NO/MGLY=0.0
-!
-!WR_NO/GLY=0.0
-!
-!WR_NO/ORA1=0.0
-!
-!WR_NO/ORA2=0.0
-!
-!WR_NO/ACID=0.0
-!
-!WR_NO/UR28=0.0
-!
-!WR_NO/UR21=0.0
-!
-!WR_NO/URG2=0.0
-!
-!WR_NO/UR26=0.0
-!
-!WR_NO/RPG2=0.0
-!
-!WR_NO/RP18=0.0
-!
-!WR_NO/RPG3=0.0
-!
-!WR_NO/URG4=0.0
-!
-!WR_NO/UR8=0.0
-!
-!WR_NO/UR17=0.0
-!
-!WR_NO/UR7=0.0
-!
-!WR_NO/RPR3=0.0
-!
-!WR_NO/URG6=0.0
-!
-!WR_NO/UR22=0.0
-!
-!WR_NO/URG7=0.0
-!
-!WR_NO/RPR4=0.0
-!
-!WR_NO/RPR7=0.0
-!
-!WR_NO/RPG7=0.0
-!
-!WR_NO/URG8=0.0
-!
-!WR_NO/UR19=0.0
-!
-!WR_NO/URG9=0.0
-!
-!WR_NO/AP7=0.0
-!
-!WR_NO/URG10=0.0
-!
-!WR_NO/RPR1=0.0
-!
-!WR_NO/RPR5=0.0
-!
-!WR_NO/RPR8=0.0
-!
-!WR_NO/RP10=0.0
-!
-!WR_NO/RP11=0.0
-!
-!WR_NO/RP16=0.0
-!
-!WR_NO/RPRL=0.0
-!
-!WR_NO/APAN=0.0
-!
-!WR_NO/PAN1=0.0
-!
-!WR_NO/PAN2=0.0
-!
-!WR_NO/PAN3=0.0
-!
-!WR_NO/PAN4=0.0
-!
-!WR_NO/PAN6=0.0
-!
-!WR_NO/PAN7=0.0
-!
-!WR_NO/PAN8=0.0
-!
-!WR_NO/PN10=0.0
-!
-!WR_NO/RO2T=0.0
-!
-!WR_NO/RO21=0.0
-!
-!WR_NO/RO25=0.0
-!
-!WR_NO/WC_O3=0.0
-!
-!WR_NO/WC_H2O2=0.0
-!
-!WR_NO/WC_NO=0.0
-!
-!WR_NO/WC_NO2=0.0
-!
-!WR_NO/WC_NO3=0.0
-!
-!WR_NO/WC_N2O5=0.0
-!
-!WR_NO/WC_HONO=0.0
-!
-!WR_NO/WC_HNO3=0.0
-!
-!WR_NO/WC_HNO4=0.0
-!
-!WR_NO/WC_NH3=0.0
-!
-!WR_NO/WC_OH=0.0
-!
-!WR_NO/WC_HO2=0.0
-!
-!WR_NO/WC_CO2=0.0
-!
-!WR_NO/WC_SO2=0.0
-!
-!WR_NO/WC_H2SO4=0.0
-!
-!WR_NO/WC_RO21=0.0
-!
-!WR_NO/WC_RO25=0.0
-!
-!WR_NO/WC_MEOH=0.0
-!
-!WR_NO/WC_ETOH=0.0
-!
-!WR_NO/WC_ALCH=0.0
-!
-!WR_NO/WC_HCHO=0.0
-!
-!WR_NO/WC_ALD2=0.0
-!
-!WR_NO/WC_GLY=0.0
-!
-!WR_NO/WC_MGLY=0.0
-!
-!WR_NO/WC_KETL=0.0
-!
-!WR_NO/WC_ORA1=0.0
-!
-!WR_NO/WC_ORA2=0.0
-!
-!WR_NO/WC_ACID=0.0
-!
-!WR_NO/WC_RP16=0.0
-!
-!WR_NO/WC_UR21=0.0
-!
-!WR_NO/WC_UR28=0.0
-!
-!WR_NO/WC_ACID2=0.0
-!
-!WR_NO/WC_ASO3=0.0
-!
-!WR_NO/WC_ASO4=0.0
-!
-!WR_NO/WC_ASO5=0.0
-!
-!WR_NO/WC_AHSO5=0.0
-!
-!WR_NO/WC_AHMS=0.0
-!
-!WR_NO/WR_O3=0.0
-!
-!WR_NO/WR_H2O2=0.0
-!
-!WR_NO/WR_NO=-KTR34
- PJAC(:,127,127)=-TPK%KTR34(:)
-!
-!WR_NO/WR_NO2=0.0
-!
-!WR_NO/WR_NO3=0.0
-!
-!WR_NO/WR_N2O5=0.0
-!
-!WR_NO/WR_HONO=0.0
-!
-!WR_NO/WR_HNO3=0.0
-!
-!WR_NO/WR_HNO4=0.0
-!
-!WR_NO/WR_NH3=0.0
-!
-!WR_NO/WR_OH=0.0
-!
-!WR_NO/WR_HO2=0.0
-!
-!WR_NO/WR_CO2=0.0
-!
-!WR_NO/WR_SO2=0.0
-!
-!WR_NO/WR_H2SO4=0.0
-!
-!WR_NO/WR_RO21=0.0
-!
-!WR_NO/WR_RO25=0.0
-!
-!WR_NO/WR_MEOH=0.0
-!
-!WR_NO/WR_ETOH=0.0
-!
-!WR_NO/WR_ALCH=0.0
-!
-!WR_NO/WR_HCHO=0.0
-!
-!WR_NO/WR_ALD2=0.0
-!
-!WR_NO/WR_GLY=0.0
-!
-!WR_NO/WR_MGLY=0.0
-!
-!WR_NO/WR_KETL=0.0
-!
-!WR_NO/WR_ORA1=0.0
-!
-!WR_NO/WR_ORA2=0.0
-!
-!WR_NO/WR_ACID=0.0
-!
-!WR_NO/WR_RP16=0.0
-!
-!WR_NO/WR_UR21=0.0
-!
-!WR_NO/WR_UR28=0.0
-!
-!WR_NO/WR_ACID2=0.0
-!
-!WR_NO/WR_ASO3=0.0
-!
-!WR_NO/WR_ASO4=0.0
-!
-!WR_NO/WR_ASO5=0.0
-!
-!WR_NO/WR_AHSO5=0.0
-!
-!WR_NO/WR_AHMS=0.0
-!
-!WR_NO2/NO=0.0
-!
-!WR_NO2/NO2=+KTR4
- PJAC(:,128,2)=+TPK%KTR4(:)
-!
-!WR_NO2/O3=0.0
-!
-!WR_NO2/HONO=0.0
-!
-!WR_NO2/HNO3=0.0
-!
-!WR_NO2/HNO4=0.0
-!
-!WR_NO2/N2O5=0.0
-!
-!WR_NO2/NO3=0.0
-!
-!WR_NO2/NH3=0.0
-!
-!WR_NO2/HO2=0.0
-!
-!WR_NO2/CO=0.0
-!
-!WR_NO2/H2O2=0.0
-!
-!WR_NO2/SO2=0.0
-!
-!WR_NO2/H2SO4=0.0
-!
-!WR_NO2/OH=0.0
-!
-!WR_NO2/ETHE=0.0
-!
-!WR_NO2/OLEL=0.0
-!
-!WR_NO2/OLEH=0.0
-!
-!WR_NO2/ALKL=0.0
-!
-!WR_NO2/ALKM=0.0
-!
-!WR_NO2/ALKH=0.0
-!
-!WR_NO2/AROH=0.0
-!
-!WR_NO2/AROL=0.0
-!
-!WR_NO2/AROO=0.0
-!
-!WR_NO2/ARAL=0.0
-!
-!WR_NO2/ARAC=0.0
-!
-!WR_NO2/PAH=0.0
-!
-!WR_NO2/HCHO=0.0
-!
-!WR_NO2/ALD2=0.0
-!
-!WR_NO2/KETL=0.0
-!
-!WR_NO2/KETH=0.0
-!
-!WR_NO2/MEOH=0.0
-!
-!WR_NO2/ETOH=0.0
-!
-!WR_NO2/ALCH=0.0
-!
-!WR_NO2/ISOP=0.0
-!
-!WR_NO2/BIOL=0.0
-!
-!WR_NO2/BIOH=0.0
-!
-!WR_NO2/MTBE=0.0
-!
-!WR_NO2/MVK=0.0
-!
-!WR_NO2/MCR=0.0
-!
-!WR_NO2/MGLY=0.0
-!
-!WR_NO2/GLY=0.0
-!
-!WR_NO2/ORA1=0.0
-!
-!WR_NO2/ORA2=0.0
-!
-!WR_NO2/ACID=0.0
-!
-!WR_NO2/UR28=0.0
-!
-!WR_NO2/UR21=0.0
-!
-!WR_NO2/URG2=0.0
-!
-!WR_NO2/UR26=0.0
-!
-!WR_NO2/RPG2=0.0
-!
-!WR_NO2/RP18=0.0
-!
-!WR_NO2/RPG3=0.0
-!
-!WR_NO2/URG4=0.0
-!
-!WR_NO2/UR8=0.0
-!
-!WR_NO2/UR17=0.0
-!
-!WR_NO2/UR7=0.0
-!
-!WR_NO2/RPR3=0.0
-!
-!WR_NO2/URG6=0.0
-!
-!WR_NO2/UR22=0.0
-!
-!WR_NO2/URG7=0.0
-!
-!WR_NO2/RPR4=0.0
-!
-!WR_NO2/RPR7=0.0
-!
-!WR_NO2/RPG7=0.0
-!
-!WR_NO2/URG8=0.0
-!
-!WR_NO2/UR19=0.0
-!
-!WR_NO2/URG9=0.0
-!
-!WR_NO2/AP7=0.0
-!
-!WR_NO2/URG10=0.0
-!
-!WR_NO2/RPR1=0.0
-!
-!WR_NO2/RPR5=0.0
-!
-!WR_NO2/RPR8=0.0
-!
-!WR_NO2/RP10=0.0
-!
-!WR_NO2/RP11=0.0
-!
-!WR_NO2/RP16=0.0
-!
-!WR_NO2/RPRL=0.0
-!
-!WR_NO2/APAN=0.0
-!
-!WR_NO2/PAN1=0.0
-!
-!WR_NO2/PAN2=0.0
-!
-!WR_NO2/PAN3=0.0
-!
-!WR_NO2/PAN4=0.0
-!
-!WR_NO2/PAN6=0.0
-!
-!WR_NO2/PAN7=0.0
-!
-!WR_NO2/PAN8=0.0
-!
-!WR_NO2/PN10=0.0
-!
-!WR_NO2/RO2T=0.0
-!
-!WR_NO2/RO21=0.0
-!
-!WR_NO2/RO25=0.0
-!
-!WR_NO2/WC_O3=0.0
-!
-!WR_NO2/WC_H2O2=0.0
-!
-!WR_NO2/WC_NO=0.0
-!
-!WR_NO2/WC_NO2=0.0
-!
-!WR_NO2/WC_NO3=0.0
-!
-!WR_NO2/WC_N2O5=0.0
-!
-!WR_NO2/WC_HONO=0.0
-!
-!WR_NO2/WC_HNO3=0.0
-!
-!WR_NO2/WC_HNO4=0.0
-!
-!WR_NO2/WC_NH3=0.0
-!
-!WR_NO2/WC_OH=0.0
-!
-!WR_NO2/WC_HO2=0.0
-!
-!WR_NO2/WC_CO2=0.0
-!
-!WR_NO2/WC_SO2=0.0
-!
-!WR_NO2/WC_H2SO4=0.0
-!
-!WR_NO2/WC_RO21=0.0
-!
-!WR_NO2/WC_RO25=0.0
-!
-!WR_NO2/WC_MEOH=0.0
-!
-!WR_NO2/WC_ETOH=0.0
-!
-!WR_NO2/WC_ALCH=0.0
-!
-!WR_NO2/WC_HCHO=0.0
-!
-!WR_NO2/WC_ALD2=0.0
-!
-!WR_NO2/WC_GLY=0.0
-!
-!WR_NO2/WC_MGLY=0.0
-!
-!WR_NO2/WC_KETL=0.0
-!
-!WR_NO2/WC_ORA1=0.0
-!
-!WR_NO2/WC_ORA2=0.0
-!
-!WR_NO2/WC_ACID=0.0
-!
-!WR_NO2/WC_RP16=0.0
-!
-!WR_NO2/WC_UR21=0.0
-!
-!WR_NO2/WC_UR28=0.0
-!
-!WR_NO2/WC_ACID2=0.0
-!
-!WR_NO2/WC_ASO3=0.0
-!
-!WR_NO2/WC_ASO4=0.0
-!
-!WR_NO2/WC_ASO5=0.0
-!
-!WR_NO2/WC_AHSO5=0.0
-!
-!WR_NO2/WC_AHMS=0.0
-!
-!WR_NO2/WR_O3=0.0
-!
-!WR_NO2/WR_H2O2=0.0
-!
-!WR_NO2/WR_NO=0.0
-!
-!WR_NO2/WR_NO2=-KTR35-KR9*<WR_HO2>
- PJAC(:,128,128)=-TPK%KTR35(:)-TPK%KR9(:)*PCONC(:,136)
-!
-!WR_NO2/WR_NO3=0.0
-!
-!WR_NO2/WR_N2O5=0.0
-!
-!WR_NO2/WR_HONO=+KR8*<WR_OH>
- PJAC(:,128,131)=+TPK%KR8(:)*PCONC(:,135)
-!
-!WR_NO2/WR_HNO3=+KR13
- PJAC(:,128,132)=+TPK%KR13(:)
-!
-!WR_NO2/WR_HNO4=+KR10
- PJAC(:,128,133)=+TPK%KR10(:)
-!
-!WR_NO2/WR_NH3=0.0
-!
-!WR_NO2/WR_OH=+KR8*<WR_HONO>
- PJAC(:,128,135)=+TPK%KR8(:)*PCONC(:,131)
-!
-!WR_NO2/WR_HO2=-KR9*<WR_NO2>
- PJAC(:,128,136)=-TPK%KR9(:)*PCONC(:,128)
-!
-!WR_NO2/WR_CO2=0.0
-!
-!WR_NO2/WR_SO2=0.0
-!
-!WR_NO2/WR_H2SO4=0.0
-!
-!WR_NO2/WR_RO21=0.0
-!
-!WR_NO2/WR_RO25=0.0
-!
-!WR_NO2/WR_MEOH=0.0
-!
-!WR_NO2/WR_ETOH=0.0
-!
-!WR_NO2/WR_ALCH=0.0
-!
-!WR_NO2/WR_HCHO=0.0
-!
-!WR_NO2/WR_ALD2=0.0
-!
-!WR_NO2/WR_GLY=0.0
-!
-!WR_NO2/WR_MGLY=0.0
-!
-!WR_NO2/WR_KETL=0.0
-!
-!WR_NO2/WR_ORA1=0.0
-!
-!WR_NO2/WR_ORA2=0.0
-!
-!WR_NO2/WR_ACID=0.0
-!
-!WR_NO2/WR_RP16=0.0
-!
-!WR_NO2/WR_UR21=0.0
-!
-!WR_NO2/WR_UR28=0.0
-!
-!WR_NO2/WR_ACID2=0.0
-!
-!WR_NO2/WR_ASO3=0.0
-!
-!WR_NO2/WR_ASO4=0.0
-!
-!WR_NO2/WR_ASO5=0.0
-!
-!WR_NO2/WR_AHSO5=0.0
-!
-!WR_NO2/WR_AHMS=0.0
-!
-!WR_NO3/NO=0.0
-!
-!WR_NO3/NO2=0.0
-!
-!WR_NO3/O3=0.0
-!
-!WR_NO3/HONO=0.0
-!
-!WR_NO3/HNO3=0.0
-!
-!WR_NO3/HNO4=0.0
-!
-!WR_NO3/N2O5=0.0
-!
-!WR_NO3/NO3=+KTR5
- PJAC(:,129,8)=+TPK%KTR5(:)
-!
-!WR_NO3/NH3=0.0
-!
-!WR_NO3/HO2=0.0
-!
-!WR_NO3/CO=0.0
-!
-!WR_NO3/H2O2=0.0
-!
-!WR_NO3/SO2=0.0
-!
-!WR_NO3/H2SO4=0.0
-!
-!WR_NO3/OH=0.0
-!
-!WR_NO3/ETHE=0.0
-!
-!WR_NO3/OLEL=0.0
-!
-!WR_NO3/OLEH=0.0
-!
-!WR_NO3/ALKL=0.0
-!
-!WR_NO3/ALKM=0.0
-!
-!WR_NO3/ALKH=0.0
-!
-!WR_NO3/AROH=0.0
-!
-!WR_NO3/AROL=0.0
-!
-!WR_NO3/AROO=0.0
-!
-!WR_NO3/ARAL=0.0
-!
-!WR_NO3/ARAC=0.0
-!
-!WR_NO3/PAH=0.0
-!
-!WR_NO3/HCHO=0.0
-!
-!WR_NO3/ALD2=0.0
-!
-!WR_NO3/KETL=0.0
-!
-!WR_NO3/KETH=0.0
-!
-!WR_NO3/MEOH=0.0
-!
-!WR_NO3/ETOH=0.0
-!
-!WR_NO3/ALCH=0.0
-!
-!WR_NO3/ISOP=0.0
-!
-!WR_NO3/BIOL=0.0
-!
-!WR_NO3/BIOH=0.0
-!
-!WR_NO3/MTBE=0.0
-!
-!WR_NO3/MVK=0.0
-!
-!WR_NO3/MCR=0.0
-!
-!WR_NO3/MGLY=0.0
-!
-!WR_NO3/GLY=0.0
-!
-!WR_NO3/ORA1=0.0
-!
-!WR_NO3/ORA2=0.0
-!
-!WR_NO3/ACID=0.0
-!
-!WR_NO3/UR28=0.0
-!
-!WR_NO3/UR21=0.0
-!
-!WR_NO3/URG2=0.0
-!
-!WR_NO3/UR26=0.0
-!
-!WR_NO3/RPG2=0.0
-!
-!WR_NO3/RP18=0.0
-!
-!WR_NO3/RPG3=0.0
-!
-!WR_NO3/URG4=0.0
-!
-!WR_NO3/UR8=0.0
-!
-!WR_NO3/UR17=0.0
-!
-!WR_NO3/UR7=0.0
-!
-!WR_NO3/RPR3=0.0
-!
-!WR_NO3/URG6=0.0
-!
-!WR_NO3/UR22=0.0
-!
-!WR_NO3/URG7=0.0
-!
-!WR_NO3/RPR4=0.0
-!
-!WR_NO3/RPR7=0.0
-!
-!WR_NO3/RPG7=0.0
-!
-!WR_NO3/URG8=0.0
-!
-!WR_NO3/UR19=0.0
-!
-!WR_NO3/URG9=0.0
-!
-!WR_NO3/AP7=0.0
-!
-!WR_NO3/URG10=0.0
-!
-!WR_NO3/RPR1=0.0
-!
-!WR_NO3/RPR5=0.0
-!
-!WR_NO3/RPR8=0.0
-!
-!WR_NO3/RP10=0.0
-!
-!WR_NO3/RP11=0.0
-!
-!WR_NO3/RP16=0.0
-!
-!WR_NO3/RPRL=0.0
-!
-!WR_NO3/APAN=0.0
-!
-!WR_NO3/PAN1=0.0
-!
-!WR_NO3/PAN2=0.0
-!
-!WR_NO3/PAN3=0.0
-!
-!WR_NO3/PAN4=0.0
-!
-!WR_NO3/PAN6=0.0
-!
-!WR_NO3/PAN7=0.0
-!
-!WR_NO3/PAN8=0.0
-!
-!WR_NO3/PN10=0.0
-!
-!WR_NO3/RO2T=0.0
-!
-!WR_NO3/RO21=0.0
-!
-!WR_NO3/RO25=0.0
-!
-!WR_NO3/WC_O3=0.0
-!
-!WR_NO3/WC_H2O2=0.0
-!
-!WR_NO3/WC_NO=0.0
-!
-!WR_NO3/WC_NO2=0.0
-!
-!WR_NO3/WC_NO3=0.0
-!
-!WR_NO3/WC_N2O5=0.0
-!
-!WR_NO3/WC_HONO=0.0
-!
-!WR_NO3/WC_HNO3=0.0
-!
-!WR_NO3/WC_HNO4=0.0
-!
-!WR_NO3/WC_NH3=0.0
-!
-!WR_NO3/WC_OH=0.0
-!
-!WR_NO3/WC_HO2=0.0
-!
-!WR_NO3/WC_CO2=0.0
-!
-!WR_NO3/WC_SO2=0.0
-!
-!WR_NO3/WC_H2SO4=0.0
-!
-!WR_NO3/WC_RO21=0.0
-!
-!WR_NO3/WC_RO25=0.0
-!
-!WR_NO3/WC_MEOH=0.0
-!
-!WR_NO3/WC_ETOH=0.0
-!
-!WR_NO3/WC_ALCH=0.0
-!
-!WR_NO3/WC_HCHO=0.0
-!
-!WR_NO3/WC_ALD2=0.0
-!
-!WR_NO3/WC_GLY=0.0
-!
-!WR_NO3/WC_MGLY=0.0
-!
-!WR_NO3/WC_KETL=0.0
-!
-!WR_NO3/WC_ORA1=0.0
-!
-!WR_NO3/WC_ORA2=0.0
-!
-!WR_NO3/WC_ACID=0.0
-!
-!WR_NO3/WC_RP16=0.0
-!
-!WR_NO3/WC_UR21=0.0
-!
-!WR_NO3/WC_UR28=0.0
-!
-!WR_NO3/WC_ACID2=0.0
-!
-!WR_NO3/WC_ASO3=0.0
-!
-!WR_NO3/WC_ASO4=0.0
-!
-!WR_NO3/WC_ASO5=0.0
-!
-!WR_NO3/WC_AHSO5=0.0
-!
-!WR_NO3/WC_AHMS=0.0
-!
-!WR_NO3/WR_O3=0.0
-!
-!WR_NO3/WR_H2O2=0.0
-!
-!WR_NO3/WR_NO=0.0
-!
-!WR_NO3/WR_NO2=0.0
-!
-!WR_NO3/WR_NO3=-KTR36-KR15*<WR_H2SO4>-KR16*<WR_SO2>
- PJAC(:,129,129)=-TPK%KTR36(:)-TPK%KR15(:)*PCONC(:,139)-TPK%KR16(:)*PCONC(:,138&
-&)
-!
-!WR_NO3/WR_N2O5=0.0
-!
-!WR_NO3/WR_HONO=0.0
-!
-!WR_NO3/WR_HNO3=0.0
-!
-!WR_NO3/WR_HNO4=0.0
-!
-!WR_NO3/WR_NH3=0.0
-!
-!WR_NO3/WR_OH=0.0
-!
-!WR_NO3/WR_HO2=0.0
-!
-!WR_NO3/WR_CO2=0.0
-!
-!WR_NO3/WR_SO2=-KR16*<WR_NO3>
- PJAC(:,129,138)=-TPK%KR16(:)*PCONC(:,129)
-!
-!WR_NO3/WR_H2SO4=-KR15*<WR_NO3>
- PJAC(:,129,139)=-TPK%KR15(:)*PCONC(:,129)
-!
-!WR_NO3/WR_RO21=0.0
-!
-!WR_NO3/WR_RO25=0.0
-!
-!WR_NO3/WR_MEOH=0.0
-!
-!WR_NO3/WR_ETOH=0.0
-!
-!WR_NO3/WR_ALCH=0.0
-!
-!WR_NO3/WR_HCHO=0.0
-!
-!WR_NO3/WR_ALD2=0.0
-!
-!WR_NO3/WR_GLY=0.0
-!
-!WR_NO3/WR_MGLY=0.0
-!
-!WR_NO3/WR_KETL=0.0
-!
-!WR_NO3/WR_ORA1=0.0
-!
-!WR_NO3/WR_ORA2=0.0
-!
-!WR_NO3/WR_ACID=0.0
-!
-!WR_NO3/WR_RP16=0.0
-!
-!WR_NO3/WR_UR21=0.0
-!
-!WR_NO3/WR_UR28=0.0
-!
-!WR_NO3/WR_ACID2=0.0
-!
-!WR_NO3/WR_ASO3=0.0
-!
-!WR_NO3/WR_ASO4=0.0
-!
-!WR_NO3/WR_ASO5=0.0
-!
-!WR_NO3/WR_AHSO5=0.0
-!
-!WR_NO3/WR_AHMS=0.0
-!
-!WR_N2O5/NO=0.0
-!
-!WR_N2O5/NO2=0.0
-!
-!WR_N2O5/O3=0.0
-!
-!WR_N2O5/HONO=0.0
-!
-!WR_N2O5/HNO3=0.0
-!
-!WR_N2O5/HNO4=0.0
-!
-!WR_N2O5/N2O5=+KTR6
- PJAC(:,130,7)=+TPK%KTR6(:)
-!
-!WR_N2O5/NO3=0.0
-!
-!WR_N2O5/NH3=0.0
-!
-!WR_N2O5/HO2=0.0
-!
-!WR_N2O5/CO=0.0
-!
-!WR_N2O5/H2O2=0.0
-!
-!WR_N2O5/SO2=0.0
-!
-!WR_N2O5/H2SO4=0.0
-!
-!WR_N2O5/OH=0.0
-!
-!WR_N2O5/ETHE=0.0
-!
-!WR_N2O5/OLEL=0.0
-!
-!WR_N2O5/OLEH=0.0
-!
-!WR_N2O5/ALKL=0.0
-!
-!WR_N2O5/ALKM=0.0
-!
-!WR_N2O5/ALKH=0.0
-!
-!WR_N2O5/AROH=0.0
-!
-!WR_N2O5/AROL=0.0
-!
-!WR_N2O5/AROO=0.0
-!
-!WR_N2O5/ARAL=0.0
-!
-!WR_N2O5/ARAC=0.0
-!
-!WR_N2O5/PAH=0.0
-!
-!WR_N2O5/HCHO=0.0
-!
-!WR_N2O5/ALD2=0.0
-!
-!WR_N2O5/KETL=0.0
-!
-!WR_N2O5/KETH=0.0
-!
-!WR_N2O5/MEOH=0.0
-!
-!WR_N2O5/ETOH=0.0
-!
-!WR_N2O5/ALCH=0.0
-!
-!WR_N2O5/ISOP=0.0
-!
-!WR_N2O5/BIOL=0.0
-!
-!WR_N2O5/BIOH=0.0
-!
-!WR_N2O5/MTBE=0.0
-!
-!WR_N2O5/MVK=0.0
-!
-!WR_N2O5/MCR=0.0
-!
-!WR_N2O5/MGLY=0.0
-!
-!WR_N2O5/GLY=0.0
-!
-!WR_N2O5/ORA1=0.0
-!
-!WR_N2O5/ORA2=0.0
-!
-!WR_N2O5/ACID=0.0
-!
-!WR_N2O5/UR28=0.0
-!
-!WR_N2O5/UR21=0.0
-!
-!WR_N2O5/URG2=0.0
-!
-!WR_N2O5/UR26=0.0
-!
-!WR_N2O5/RPG2=0.0
-!
-!WR_N2O5/RP18=0.0
-!
-!WR_N2O5/RPG3=0.0
-!
-!WR_N2O5/URG4=0.0
-!
-!WR_N2O5/UR8=0.0
-!
-!WR_N2O5/UR17=0.0
-!
-!WR_N2O5/UR7=0.0
-!
-!WR_N2O5/RPR3=0.0
-!
-!WR_N2O5/URG6=0.0
-!
-!WR_N2O5/UR22=0.0
-!
-!WR_N2O5/URG7=0.0
-!
-!WR_N2O5/RPR4=0.0
-!
-!WR_N2O5/RPR7=0.0
-!
-!WR_N2O5/RPG7=0.0
-!
-!WR_N2O5/URG8=0.0
-!
-!WR_N2O5/UR19=0.0
-!
-!WR_N2O5/URG9=0.0
-!
-!WR_N2O5/AP7=0.0
-!
-!WR_N2O5/URG10=0.0
-!
-!WR_N2O5/RPR1=0.0
-!
-!WR_N2O5/RPR5=0.0
-!
-!WR_N2O5/RPR8=0.0
-!
-!WR_N2O5/RP10=0.0
-!
-!WR_N2O5/RP11=0.0
-!
-!WR_N2O5/RP16=0.0
-!
-!WR_N2O5/RPRL=0.0
-!
-!WR_N2O5/APAN=0.0
-!
-!WR_N2O5/PAN1=0.0
-!
-!WR_N2O5/PAN2=0.0
-!
-!WR_N2O5/PAN3=0.0
-!
-!WR_N2O5/PAN4=0.0
-!
-!WR_N2O5/PAN6=0.0
-!
-!WR_N2O5/PAN7=0.0
-!
-!WR_N2O5/PAN8=0.0
-!
-!WR_N2O5/PN10=0.0
-!
-!WR_N2O5/RO2T=0.0
-!
-!WR_N2O5/RO21=0.0
-!
-!WR_N2O5/RO25=0.0
-!
-!WR_N2O5/WC_O3=0.0
-!
-!WR_N2O5/WC_H2O2=0.0
-!
-!WR_N2O5/WC_NO=0.0
-!
-!WR_N2O5/WC_NO2=0.0
-!
-!WR_N2O5/WC_NO3=0.0
-!
-!WR_N2O5/WC_N2O5=0.0
-!
-!WR_N2O5/WC_HONO=0.0
-!
-!WR_N2O5/WC_HNO3=0.0
-!
-!WR_N2O5/WC_HNO4=0.0
-!
-!WR_N2O5/WC_NH3=0.0
-!
-!WR_N2O5/WC_OH=0.0
-!
-!WR_N2O5/WC_HO2=0.0
-!
-!WR_N2O5/WC_CO2=0.0
-!
-!WR_N2O5/WC_SO2=0.0
-!
-!WR_N2O5/WC_H2SO4=0.0
-!
-!WR_N2O5/WC_RO21=0.0
-!
-!WR_N2O5/WC_RO25=0.0
-!
-!WR_N2O5/WC_MEOH=0.0
-!
-!WR_N2O5/WC_ETOH=0.0
-!
-!WR_N2O5/WC_ALCH=0.0
-!
-!WR_N2O5/WC_HCHO=0.0
-!
-!WR_N2O5/WC_ALD2=0.0
-!
-!WR_N2O5/WC_GLY=0.0
-!
-!WR_N2O5/WC_MGLY=0.0
-!
-!WR_N2O5/WC_KETL=0.0
-!
-!WR_N2O5/WC_ORA1=0.0
-!
-!WR_N2O5/WC_ORA2=0.0
-!
-!WR_N2O5/WC_ACID=0.0
-!
-!WR_N2O5/WC_RP16=0.0
-!
-!WR_N2O5/WC_UR21=0.0
-!
-!WR_N2O5/WC_UR28=0.0
-!
-!WR_N2O5/WC_ACID2=0.0
-!
-!WR_N2O5/WC_ASO3=0.0
-!
-!WR_N2O5/WC_ASO4=0.0
-!
-!WR_N2O5/WC_ASO5=0.0
-!
-!WR_N2O5/WC_AHSO5=0.0
-!
-!WR_N2O5/WC_AHMS=0.0
-!
-!WR_N2O5/WR_O3=0.0
-!
-!WR_N2O5/WR_H2O2=0.0
-!
-!WR_N2O5/WR_NO=0.0
-!
-!WR_N2O5/WR_NO2=0.0
-!
-!WR_N2O5/WR_NO3=0.0
-!
-!WR_N2O5/WR_N2O5=-KTR37-KR14
- PJAC(:,130,130)=-TPK%KTR37(:)-TPK%KR14(:)
-!
-!WR_N2O5/WR_HONO=0.0
-!
-!WR_N2O5/WR_HNO3=0.0
-!
-!WR_N2O5/WR_HNO4=0.0
-!
-!WR_N2O5/WR_NH3=0.0
-!
-!WR_N2O5/WR_OH=0.0
-!
-!WR_N2O5/WR_HO2=0.0
-!
-!WR_N2O5/WR_CO2=0.0
-!
-!WR_N2O5/WR_SO2=0.0
-!
-!WR_N2O5/WR_H2SO4=0.0
-!
-!WR_N2O5/WR_RO21=0.0
-!
-!WR_N2O5/WR_RO25=0.0
-!
-!WR_N2O5/WR_MEOH=0.0
-!
-!WR_N2O5/WR_ETOH=0.0
-!
-!WR_N2O5/WR_ALCH=0.0
-!
-!WR_N2O5/WR_HCHO=0.0
-!
-!WR_N2O5/WR_ALD2=0.0
-!
-!WR_N2O5/WR_GLY=0.0
-!
-!WR_N2O5/WR_MGLY=0.0
-!
-!WR_N2O5/WR_KETL=0.0
-!
-!WR_N2O5/WR_ORA1=0.0
-!
-!WR_N2O5/WR_ORA2=0.0
-!
-!WR_N2O5/WR_ACID=0.0
-!
-!WR_N2O5/WR_RP16=0.0
-!
-!WR_N2O5/WR_UR21=0.0
-!
-!WR_N2O5/WR_UR28=0.0
-!
-!WR_N2O5/WR_ACID2=0.0
-!
-!WR_N2O5/WR_ASO3=0.0
-!
-!WR_N2O5/WR_ASO4=0.0
-!
-!WR_N2O5/WR_ASO5=0.0
-!
-!WR_N2O5/WR_AHSO5=0.0
-!
-!WR_N2O5/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ25
-!
-SUBROUTINE SUBJ26
-!
-!Indices 131 a 135
-!
-!
-!WR_HONO/NO=0.0
-!
-!WR_HONO/NO2=0.0
-!
-!WR_HONO/O3=0.0
-!
-!WR_HONO/HONO=+KTR7
- PJAC(:,131,4)=+TPK%KTR7(:)
-!
-!WR_HONO/HNO3=0.0
-!
-!WR_HONO/HNO4=0.0
-!
-!WR_HONO/N2O5=0.0
-!
-!WR_HONO/NO3=0.0
-!
-!WR_HONO/NH3=0.0
-!
-!WR_HONO/HO2=0.0
-!
-!WR_HONO/CO=0.0
-!
-!WR_HONO/H2O2=0.0
-!
-!WR_HONO/SO2=0.0
-!
-!WR_HONO/H2SO4=0.0
-!
-!WR_HONO/OH=0.0
-!
-!WR_HONO/ETHE=0.0
-!
-!WR_HONO/OLEL=0.0
-!
-!WR_HONO/OLEH=0.0
-!
-!WR_HONO/ALKL=0.0
-!
-!WR_HONO/ALKM=0.0
-!
-!WR_HONO/ALKH=0.0
-!
-!WR_HONO/AROH=0.0
-!
-!WR_HONO/AROL=0.0
-!
-!WR_HONO/AROO=0.0
-!
-!WR_HONO/ARAL=0.0
-!
-!WR_HONO/ARAC=0.0
-!
-!WR_HONO/PAH=0.0
-!
-!WR_HONO/HCHO=0.0
-!
-!WR_HONO/ALD2=0.0
-!
-!WR_HONO/KETL=0.0
-!
-!WR_HONO/KETH=0.0
-!
-!WR_HONO/MEOH=0.0
-!
-!WR_HONO/ETOH=0.0
-!
-!WR_HONO/ALCH=0.0
-!
-!WR_HONO/ISOP=0.0
-!
-!WR_HONO/BIOL=0.0
-!
-!WR_HONO/BIOH=0.0
-!
-!WR_HONO/MTBE=0.0
-!
-!WR_HONO/MVK=0.0
-!
-!WR_HONO/MCR=0.0
-!
-!WR_HONO/MGLY=0.0
-!
-!WR_HONO/GLY=0.0
-!
-!WR_HONO/ORA1=0.0
-!
-!WR_HONO/ORA2=0.0
-!
-!WR_HONO/ACID=0.0
-!
-!WR_HONO/UR28=0.0
-!
-!WR_HONO/UR21=0.0
-!
-!WR_HONO/URG2=0.0
-!
-!WR_HONO/UR26=0.0
-!
-!WR_HONO/RPG2=0.0
-!
-!WR_HONO/RP18=0.0
-!
-!WR_HONO/RPG3=0.0
-!
-!WR_HONO/URG4=0.0
-!
-!WR_HONO/UR8=0.0
-!
-!WR_HONO/UR17=0.0
-!
-!WR_HONO/UR7=0.0
-!
-!WR_HONO/RPR3=0.0
-!
-!WR_HONO/URG6=0.0
-!
-!WR_HONO/UR22=0.0
-!
-!WR_HONO/URG7=0.0
-!
-!WR_HONO/RPR4=0.0
-!
-!WR_HONO/RPR7=0.0
-!
-!WR_HONO/RPG7=0.0
-!
-!WR_HONO/URG8=0.0
-!
-!WR_HONO/UR19=0.0
-!
-!WR_HONO/URG9=0.0
-!
-!WR_HONO/AP7=0.0
-!
-!WR_HONO/URG10=0.0
-!
-!WR_HONO/RPR1=0.0
-!
-!WR_HONO/RPR5=0.0
-!
-!WR_HONO/RPR8=0.0
-!
-!WR_HONO/RP10=0.0
-!
-!WR_HONO/RP11=0.0
-!
-!WR_HONO/RP16=0.0
-!
-!WR_HONO/RPRL=0.0
-!
-!WR_HONO/APAN=0.0
-!
-!WR_HONO/PAN1=0.0
-!
-!WR_HONO/PAN2=0.0
-!
-!WR_HONO/PAN3=0.0
-!
-!WR_HONO/PAN4=0.0
-!
-!WR_HONO/PAN6=0.0
-!
-!WR_HONO/PAN7=0.0
-!
-!WR_HONO/PAN8=0.0
-!
-!WR_HONO/PN10=0.0
-!
-!WR_HONO/RO2T=0.0
-!
-!WR_HONO/RO21=0.0
-!
-!WR_HONO/RO25=0.0
-!
-!WR_HONO/WC_O3=0.0
-!
-!WR_HONO/WC_H2O2=0.0
-!
-!WR_HONO/WC_NO=0.0
-!
-!WR_HONO/WC_NO2=0.0
-!
-!WR_HONO/WC_NO3=0.0
-!
-!WR_HONO/WC_N2O5=0.0
-!
-!WR_HONO/WC_HONO=0.0
-!
-!WR_HONO/WC_HNO3=0.0
-!
-!WR_HONO/WC_HNO4=0.0
-!
-!WR_HONO/WC_NH3=0.0
-!
-!WR_HONO/WC_OH=0.0
-!
-!WR_HONO/WC_HO2=0.0
-!
-!WR_HONO/WC_CO2=0.0
-!
-!WR_HONO/WC_SO2=0.0
-!
-!WR_HONO/WC_H2SO4=0.0
-!
-!WR_HONO/WC_RO21=0.0
-!
-!WR_HONO/WC_RO25=0.0
-!
-!WR_HONO/WC_MEOH=0.0
-!
-!WR_HONO/WC_ETOH=0.0
-!
-!WR_HONO/WC_ALCH=0.0
-!
-!WR_HONO/WC_HCHO=0.0
-!
-!WR_HONO/WC_ALD2=0.0
-!
-!WR_HONO/WC_GLY=0.0
-!
-!WR_HONO/WC_MGLY=0.0
-!
-!WR_HONO/WC_KETL=0.0
-!
-!WR_HONO/WC_ORA1=0.0
-!
-!WR_HONO/WC_ORA2=0.0
-!
-!WR_HONO/WC_ACID=0.0
-!
-!WR_HONO/WC_RP16=0.0
-!
-!WR_HONO/WC_UR21=0.0
-!
-!WR_HONO/WC_UR28=0.0
-!
-!WR_HONO/WC_ACID2=0.0
-!
-!WR_HONO/WC_ASO3=0.0
-!
-!WR_HONO/WC_ASO4=0.0
-!
-!WR_HONO/WC_ASO5=0.0
-!
-!WR_HONO/WC_AHSO5=0.0
-!
-!WR_HONO/WC_AHMS=0.0
-!
-!WR_HONO/WR_O3=0.0
-!
-!WR_HONO/WR_H2O2=0.0
-!
-!WR_HONO/WR_NO=0.0
-!
-!WR_HONO/WR_NO2=0.0
-!
-!WR_HONO/WR_NO3=0.0
-!
-!WR_HONO/WR_N2O5=0.0
-!
-!WR_HONO/WR_HONO=-KTR38-KR8*<WR_OH>
- PJAC(:,131,131)=-TPK%KTR38(:)-TPK%KR8(:)*PCONC(:,135)
-!
-!WR_HONO/WR_HNO3=0.0
-!
-!WR_HONO/WR_HNO4=+KR11
- PJAC(:,131,133)=+TPK%KR11(:)
-!
-!WR_HONO/WR_NH3=0.0
-!
-!WR_HONO/WR_OH=-KR8*<WR_HONO>
- PJAC(:,131,135)=-TPK%KR8(:)*PCONC(:,131)
-!
-!WR_HONO/WR_HO2=0.0
-!
-!WR_HONO/WR_CO2=0.0
-!
-!WR_HONO/WR_SO2=0.0
-!
-!WR_HONO/WR_H2SO4=0.0
-!
-!WR_HONO/WR_RO21=0.0
-!
-!WR_HONO/WR_RO25=0.0
-!
-!WR_HONO/WR_MEOH=0.0
-!
-!WR_HONO/WR_ETOH=0.0
-!
-!WR_HONO/WR_ALCH=0.0
-!
-!WR_HONO/WR_HCHO=0.0
-!
-!WR_HONO/WR_ALD2=0.0
-!
-!WR_HONO/WR_GLY=0.0
-!
-!WR_HONO/WR_MGLY=0.0
-!
-!WR_HONO/WR_KETL=0.0
-!
-!WR_HONO/WR_ORA1=0.0
-!
-!WR_HONO/WR_ORA2=0.0
-!
-!WR_HONO/WR_ACID=0.0
-!
-!WR_HONO/WR_RP16=0.0
-!
-!WR_HONO/WR_UR21=0.0
-!
-!WR_HONO/WR_UR28=0.0
-!
-!WR_HONO/WR_ACID2=0.0
-!
-!WR_HONO/WR_ASO3=0.0
-!
-!WR_HONO/WR_ASO4=0.0
-!
-!WR_HONO/WR_ASO5=0.0
-!
-!WR_HONO/WR_AHSO5=0.0
-!
-!WR_HONO/WR_AHMS=0.0
-!
-!WR_HNO3/NO=0.0
-!
-!WR_HNO3/NO2=0.0
-!
-!WR_HNO3/O3=0.0
-!
-!WR_HNO3/HONO=0.0
-!
-!WR_HNO3/HNO3=+KTR8
- PJAC(:,132,5)=+TPK%KTR8(:)
-!
-!WR_HNO3/HNO4=0.0
-!
-!WR_HNO3/N2O5=0.0
-!
-!WR_HNO3/NO3=0.0
-!
-!WR_HNO3/NH3=0.0
-!
-!WR_HNO3/HO2=0.0
-!
-!WR_HNO3/CO=0.0
-!
-!WR_HNO3/H2O2=0.0
-!
-!WR_HNO3/SO2=0.0
-!
-!WR_HNO3/H2SO4=0.0
-!
-!WR_HNO3/OH=0.0
-!
-!WR_HNO3/ETHE=0.0
-!
-!WR_HNO3/OLEL=0.0
-!
-!WR_HNO3/OLEH=0.0
-!
-!WR_HNO3/ALKL=0.0
-!
-!WR_HNO3/ALKM=0.0
-!
-!WR_HNO3/ALKH=0.0
-!
-!WR_HNO3/AROH=0.0
-!
-!WR_HNO3/AROL=0.0
-!
-!WR_HNO3/AROO=0.0
-!
-!WR_HNO3/ARAL=0.0
-!
-!WR_HNO3/ARAC=0.0
-!
-!WR_HNO3/PAH=0.0
-!
-!WR_HNO3/HCHO=0.0
-!
-!WR_HNO3/ALD2=0.0
-!
-!WR_HNO3/KETL=0.0
-!
-!WR_HNO3/KETH=0.0
-!
-!WR_HNO3/MEOH=0.0
-!
-!WR_HNO3/ETOH=0.0
-!
-!WR_HNO3/ALCH=0.0
-!
-!WR_HNO3/ISOP=0.0
-!
-!WR_HNO3/BIOL=0.0
-!
-!WR_HNO3/BIOH=0.0
-!
-!WR_HNO3/MTBE=0.0
-!
-!WR_HNO3/MVK=0.0
-!
-!WR_HNO3/MCR=0.0
-!
-!WR_HNO3/MGLY=0.0
-!
-!WR_HNO3/GLY=0.0
-!
-!WR_HNO3/ORA1=0.0
-!
-!WR_HNO3/ORA2=0.0
-!
-!WR_HNO3/ACID=0.0
-!
-!WR_HNO3/UR28=0.0
-!
-!WR_HNO3/UR21=0.0
-!
-!WR_HNO3/URG2=0.0
-!
-!WR_HNO3/UR26=0.0
-!
-!WR_HNO3/RPG2=0.0
-!
-!WR_HNO3/RP18=0.0
-!
-!WR_HNO3/RPG3=0.0
-!
-!WR_HNO3/URG4=0.0
-!
-!WR_HNO3/UR8=0.0
-!
-!WR_HNO3/UR17=0.0
-!
-!WR_HNO3/UR7=0.0
-!
-!WR_HNO3/RPR3=0.0
-!
-!WR_HNO3/URG6=0.0
-!
-!WR_HNO3/UR22=0.0
-!
-!WR_HNO3/URG7=0.0
-!
-!WR_HNO3/RPR4=0.0
-!
-!WR_HNO3/RPR7=0.0
-!
-!WR_HNO3/RPG7=0.0
-!
-!WR_HNO3/URG8=0.0
-!
-!WR_HNO3/UR19=0.0
-!
-!WR_HNO3/URG9=0.0
-!
-!WR_HNO3/AP7=0.0
-!
-!WR_HNO3/URG10=0.0
-!
-!WR_HNO3/RPR1=0.0
-!
-!WR_HNO3/RPR5=0.0
-!
-!WR_HNO3/RPR8=0.0
-!
-!WR_HNO3/RP10=0.0
-!
-!WR_HNO3/RP11=0.0
-!
-!WR_HNO3/RP16=0.0
-!
-!WR_HNO3/RPRL=0.0
-!
-!WR_HNO3/APAN=0.0
-!
-!WR_HNO3/PAN1=0.0
-!
-!WR_HNO3/PAN2=0.0
-!
-!WR_HNO3/PAN3=0.0
-!
-!WR_HNO3/PAN4=0.0
-!
-!WR_HNO3/PAN6=0.0
-!
-!WR_HNO3/PAN7=0.0
-!
-!WR_HNO3/PAN8=0.0
-!
-!WR_HNO3/PN10=0.0
-!
-!WR_HNO3/RO2T=0.0
-!
-!WR_HNO3/RO21=0.0
-!
-!WR_HNO3/RO25=0.0
-!
-!WR_HNO3/WC_O3=0.0
-!
-!WR_HNO3/WC_H2O2=0.0
-!
-!WR_HNO3/WC_NO=0.0
-!
-!WR_HNO3/WC_NO2=0.0
-!
-!WR_HNO3/WC_NO3=0.0
-!
-!WR_HNO3/WC_N2O5=0.0
-!
-!WR_HNO3/WC_HONO=0.0
-!
-!WR_HNO3/WC_HNO3=0.0
-!
-!WR_HNO3/WC_HNO4=0.0
-!
-!WR_HNO3/WC_NH3=0.0
-!
-!WR_HNO3/WC_OH=0.0
-!
-!WR_HNO3/WC_HO2=0.0
-!
-!WR_HNO3/WC_CO2=0.0
-!
-!WR_HNO3/WC_SO2=0.0
-!
-!WR_HNO3/WC_H2SO4=0.0
-!
-!WR_HNO3/WC_RO21=0.0
-!
-!WR_HNO3/WC_RO25=0.0
-!
-!WR_HNO3/WC_MEOH=0.0
-!
-!WR_HNO3/WC_ETOH=0.0
-!
-!WR_HNO3/WC_ALCH=0.0
-!
-!WR_HNO3/WC_HCHO=0.0
-!
-!WR_HNO3/WC_ALD2=0.0
-!
-!WR_HNO3/WC_GLY=0.0
-!
-!WR_HNO3/WC_MGLY=0.0
-!
-!WR_HNO3/WC_KETL=0.0
-!
-!WR_HNO3/WC_ORA1=0.0
-!
-!WR_HNO3/WC_ORA2=0.0
-!
-!WR_HNO3/WC_ACID=0.0
-!
-!WR_HNO3/WC_RP16=0.0
-!
-!WR_HNO3/WC_UR21=0.0
-!
-!WR_HNO3/WC_UR28=0.0
-!
-!WR_HNO3/WC_ACID2=0.0
-!
-!WR_HNO3/WC_ASO3=0.0
-!
-!WR_HNO3/WC_ASO4=0.0
-!
-!WR_HNO3/WC_ASO5=0.0
-!
-!WR_HNO3/WC_AHSO5=0.0
-!
-!WR_HNO3/WC_AHMS=0.0
-!
-!WR_HNO3/WR_O3=0.0
-!
-!WR_HNO3/WR_H2O2=0.0
-!
-!WR_HNO3/WR_NO=0.0
-!
-!WR_HNO3/WR_NO2=0.0
-!
-!WR_HNO3/WR_NO3=+KR15*<WR_H2SO4>+KR16*<WR_SO2>
- PJAC(:,132,129)=+TPK%KR15(:)*PCONC(:,139)+TPK%KR16(:)*PCONC(:,138)
-!
-!WR_HNO3/WR_N2O5=+KR14+KR14
- PJAC(:,132,130)=+TPK%KR14(:)+TPK%KR14(:)
-!
-!WR_HNO3/WR_HONO=0.0
-!
-!WR_HNO3/WR_HNO3=-KTR39-KR13
- PJAC(:,132,132)=-TPK%KTR39(:)-TPK%KR13(:)
-!
-!WR_HNO3/WR_HNO4=+KR12*<WR_SO2>
- PJAC(:,132,133)=+TPK%KR12(:)*PCONC(:,138)
-!
-!WR_HNO3/WR_NH3=0.0
-!
-!WR_HNO3/WR_OH=0.0
-!
-!WR_HNO3/WR_HO2=0.0
-!
-!WR_HNO3/WR_CO2=0.0
-!
-!WR_HNO3/WR_SO2=+KR12*<WR_HNO4>+KR16*<WR_NO3>
- PJAC(:,132,138)=+TPK%KR12(:)*PCONC(:,133)+TPK%KR16(:)*PCONC(:,129)
-!
-!WR_HNO3/WR_H2SO4=+KR15*<WR_NO3>
- PJAC(:,132,139)=+TPK%KR15(:)*PCONC(:,129)
-!
-!WR_HNO3/WR_RO21=0.0
-!
-!WR_HNO3/WR_RO25=0.0
-!
-!WR_HNO3/WR_MEOH=0.0
-!
-!WR_HNO3/WR_ETOH=0.0
-!
-!WR_HNO3/WR_ALCH=0.0
-!
-!WR_HNO3/WR_HCHO=0.0
-!
-!WR_HNO3/WR_ALD2=0.0
-!
-!WR_HNO3/WR_GLY=0.0
-!
-!WR_HNO3/WR_MGLY=0.0
-!
-!WR_HNO3/WR_KETL=0.0
-!
-!WR_HNO3/WR_ORA1=0.0
-!
-!WR_HNO3/WR_ORA2=0.0
-!
-!WR_HNO3/WR_ACID=0.0
-!
-!WR_HNO3/WR_RP16=0.0
-!
-!WR_HNO3/WR_UR21=0.0
-!
-!WR_HNO3/WR_UR28=0.0
-!
-!WR_HNO3/WR_ACID2=0.0
-!
-!WR_HNO3/WR_ASO3=0.0
-!
-!WR_HNO3/WR_ASO4=0.0
-!
-!WR_HNO3/WR_ASO5=0.0
-!
-!WR_HNO3/WR_AHSO5=0.0
-!
-!WR_HNO3/WR_AHMS=0.0
-!
-!WR_HNO4/NO=0.0
-!
-!WR_HNO4/NO2=0.0
-!
-!WR_HNO4/O3=0.0
-!
-!WR_HNO4/HONO=0.0
-!
-!WR_HNO4/HNO3=0.0
-!
-!WR_HNO4/HNO4=+KTR9
- PJAC(:,133,6)=+TPK%KTR9(:)
-!
-!WR_HNO4/N2O5=0.0
-!
-!WR_HNO4/NO3=0.0
-!
-!WR_HNO4/NH3=0.0
-!
-!WR_HNO4/HO2=0.0
-!
-!WR_HNO4/CO=0.0
-!
-!WR_HNO4/H2O2=0.0
-!
-!WR_HNO4/SO2=0.0
-!
-!WR_HNO4/H2SO4=0.0
-!
-!WR_HNO4/OH=0.0
-!
-!WR_HNO4/ETHE=0.0
-!
-!WR_HNO4/OLEL=0.0
-!
-!WR_HNO4/OLEH=0.0
-!
-!WR_HNO4/ALKL=0.0
-!
-!WR_HNO4/ALKM=0.0
-!
-!WR_HNO4/ALKH=0.0
-!
-!WR_HNO4/AROH=0.0
-!
-!WR_HNO4/AROL=0.0
-!
-!WR_HNO4/AROO=0.0
-!
-!WR_HNO4/ARAL=0.0
-!
-!WR_HNO4/ARAC=0.0
-!
-!WR_HNO4/PAH=0.0
-!
-!WR_HNO4/HCHO=0.0
-!
-!WR_HNO4/ALD2=0.0
-!
-!WR_HNO4/KETL=0.0
-!
-!WR_HNO4/KETH=0.0
-!
-!WR_HNO4/MEOH=0.0
-!
-!WR_HNO4/ETOH=0.0
-!
-!WR_HNO4/ALCH=0.0
-!
-!WR_HNO4/ISOP=0.0
-!
-!WR_HNO4/BIOL=0.0
-!
-!WR_HNO4/BIOH=0.0
-!
-!WR_HNO4/MTBE=0.0
-!
-!WR_HNO4/MVK=0.0
-!
-!WR_HNO4/MCR=0.0
-!
-!WR_HNO4/MGLY=0.0
-!
-!WR_HNO4/GLY=0.0
-!
-!WR_HNO4/ORA1=0.0
-!
-!WR_HNO4/ORA2=0.0
-!
-!WR_HNO4/ACID=0.0
-!
-!WR_HNO4/UR28=0.0
-!
-!WR_HNO4/UR21=0.0
-!
-!WR_HNO4/URG2=0.0
-!
-!WR_HNO4/UR26=0.0
-!
-!WR_HNO4/RPG2=0.0
-!
-!WR_HNO4/RP18=0.0
-!
-!WR_HNO4/RPG3=0.0
-!
-!WR_HNO4/URG4=0.0
-!
-!WR_HNO4/UR8=0.0
-!
-!WR_HNO4/UR17=0.0
-!
-!WR_HNO4/UR7=0.0
-!
-!WR_HNO4/RPR3=0.0
-!
-!WR_HNO4/URG6=0.0
-!
-!WR_HNO4/UR22=0.0
-!
-!WR_HNO4/URG7=0.0
-!
-!WR_HNO4/RPR4=0.0
-!
-!WR_HNO4/RPR7=0.0
-!
-!WR_HNO4/RPG7=0.0
-!
-!WR_HNO4/URG8=0.0
-!
-!WR_HNO4/UR19=0.0
-!
-!WR_HNO4/URG9=0.0
-!
-!WR_HNO4/AP7=0.0
-!
-!WR_HNO4/URG10=0.0
-!
-!WR_HNO4/RPR1=0.0
-!
-!WR_HNO4/RPR5=0.0
-!
-!WR_HNO4/RPR8=0.0
-!
-!WR_HNO4/RP10=0.0
-!
-!WR_HNO4/RP11=0.0
-!
-!WR_HNO4/RP16=0.0
-!
-!WR_HNO4/RPRL=0.0
-!
-!WR_HNO4/APAN=0.0
-!
-!WR_HNO4/PAN1=0.0
-!
-!WR_HNO4/PAN2=0.0
-!
-!WR_HNO4/PAN3=0.0
-!
-!WR_HNO4/PAN4=0.0
-!
-!WR_HNO4/PAN6=0.0
-!
-!WR_HNO4/PAN7=0.0
-!
-!WR_HNO4/PAN8=0.0
-!
-!WR_HNO4/PN10=0.0
-!
-!WR_HNO4/RO2T=0.0
-!
-!WR_HNO4/RO21=0.0
-!
-!WR_HNO4/RO25=0.0
-!
-!WR_HNO4/WC_O3=0.0
-!
-!WR_HNO4/WC_H2O2=0.0
-!
-!WR_HNO4/WC_NO=0.0
-!
-!WR_HNO4/WC_NO2=0.0
-!
-!WR_HNO4/WC_NO3=0.0
-!
-!WR_HNO4/WC_N2O5=0.0
-!
-!WR_HNO4/WC_HONO=0.0
-!
-!WR_HNO4/WC_HNO3=0.0
-!
-!WR_HNO4/WC_HNO4=0.0
-!
-!WR_HNO4/WC_NH3=0.0
-!
-!WR_HNO4/WC_OH=0.0
-!
-!WR_HNO4/WC_HO2=0.0
-!
-!WR_HNO4/WC_CO2=0.0
-!
-!WR_HNO4/WC_SO2=0.0
-!
-!WR_HNO4/WC_H2SO4=0.0
-!
-!WR_HNO4/WC_RO21=0.0
-!
-!WR_HNO4/WC_RO25=0.0
-!
-!WR_HNO4/WC_MEOH=0.0
-!
-!WR_HNO4/WC_ETOH=0.0
-!
-!WR_HNO4/WC_ALCH=0.0
-!
-!WR_HNO4/WC_HCHO=0.0
-!
-!WR_HNO4/WC_ALD2=0.0
-!
-!WR_HNO4/WC_GLY=0.0
-!
-!WR_HNO4/WC_MGLY=0.0
-!
-!WR_HNO4/WC_KETL=0.0
-!
-!WR_HNO4/WC_ORA1=0.0
-!
-!WR_HNO4/WC_ORA2=0.0
-!
-!WR_HNO4/WC_ACID=0.0
-!
-!WR_HNO4/WC_RP16=0.0
-!
-!WR_HNO4/WC_UR21=0.0
-!
-!WR_HNO4/WC_UR28=0.0
-!
-!WR_HNO4/WC_ACID2=0.0
-!
-!WR_HNO4/WC_ASO3=0.0
-!
-!WR_HNO4/WC_ASO4=0.0
-!
-!WR_HNO4/WC_ASO5=0.0
-!
-!WR_HNO4/WC_AHSO5=0.0
-!
-!WR_HNO4/WC_AHMS=0.0
-!
-!WR_HNO4/WR_O3=0.0
-!
-!WR_HNO4/WR_H2O2=0.0
-!
-!WR_HNO4/WR_NO=0.0
-!
-!WR_HNO4/WR_NO2=+KR9*<WR_HO2>
- PJAC(:,133,128)=+TPK%KR9(:)*PCONC(:,136)
-!
-!WR_HNO4/WR_NO3=0.0
-!
-!WR_HNO4/WR_N2O5=0.0
-!
-!WR_HNO4/WR_HONO=0.0
-!
-!WR_HNO4/WR_HNO3=0.0
-!
-!WR_HNO4/WR_HNO4=-KTR40-KR10-KR11-KR12*<WR_SO2>
- PJAC(:,133,133)=-TPK%KTR40(:)-TPK%KR10(:)-TPK%KR11(:)-TPK%KR12(:)*PCONC(:,138)
-!
-!WR_HNO4/WR_NH3=0.0
-!
-!WR_HNO4/WR_OH=0.0
-!
-!WR_HNO4/WR_HO2=+KR9*<WR_NO2>
- PJAC(:,133,136)=+TPK%KR9(:)*PCONC(:,128)
-!
-!WR_HNO4/WR_CO2=0.0
-!
-!WR_HNO4/WR_SO2=-KR12*<WR_HNO4>
- PJAC(:,133,138)=-TPK%KR12(:)*PCONC(:,133)
-!
-!WR_HNO4/WR_H2SO4=0.0
-!
-!WR_HNO4/WR_RO21=0.0
-!
-!WR_HNO4/WR_RO25=0.0
-!
-!WR_HNO4/WR_MEOH=0.0
-!
-!WR_HNO4/WR_ETOH=0.0
-!
-!WR_HNO4/WR_ALCH=0.0
-!
-!WR_HNO4/WR_HCHO=0.0
-!
-!WR_HNO4/WR_ALD2=0.0
-!
-!WR_HNO4/WR_GLY=0.0
-!
-!WR_HNO4/WR_MGLY=0.0
-!
-!WR_HNO4/WR_KETL=0.0
-!
-!WR_HNO4/WR_ORA1=0.0
-!
-!WR_HNO4/WR_ORA2=0.0
-!
-!WR_HNO4/WR_ACID=0.0
-!
-!WR_HNO4/WR_RP16=0.0
-!
-!WR_HNO4/WR_UR21=0.0
-!
-!WR_HNO4/WR_UR28=0.0
-!
-!WR_HNO4/WR_ACID2=0.0
-!
-!WR_HNO4/WR_ASO3=0.0
-!
-!WR_HNO4/WR_ASO4=0.0
-!
-!WR_HNO4/WR_ASO5=0.0
-!
-!WR_HNO4/WR_AHSO5=0.0
-!
-!WR_HNO4/WR_AHMS=0.0
-!
-!WR_NH3/NO=0.0
-!
-!WR_NH3/NO2=0.0
-!
-!WR_NH3/O3=0.0
-!
-!WR_NH3/HONO=0.0
-!
-!WR_NH3/HNO3=0.0
-!
-!WR_NH3/HNO4=0.0
-!
-!WR_NH3/N2O5=0.0
-!
-!WR_NH3/NO3=0.0
-!
-!WR_NH3/NH3=+KTR10
- PJAC(:,134,9)=+TPK%KTR10(:)
-!
-!WR_NH3/HO2=0.0
-!
-!WR_NH3/CO=0.0
-!
-!WR_NH3/H2O2=0.0
-!
-!WR_NH3/SO2=0.0
-!
-!WR_NH3/H2SO4=0.0
-!
-!WR_NH3/OH=0.0
-!
-!WR_NH3/ETHE=0.0
-!
-!WR_NH3/OLEL=0.0
-!
-!WR_NH3/OLEH=0.0
-!
-!WR_NH3/ALKL=0.0
-!
-!WR_NH3/ALKM=0.0
-!
-!WR_NH3/ALKH=0.0
-!
-!WR_NH3/AROH=0.0
-!
-!WR_NH3/AROL=0.0
-!
-!WR_NH3/AROO=0.0
-!
-!WR_NH3/ARAL=0.0
-!
-!WR_NH3/ARAC=0.0
-!
-!WR_NH3/PAH=0.0
-!
-!WR_NH3/HCHO=0.0
-!
-!WR_NH3/ALD2=0.0
-!
-!WR_NH3/KETL=0.0
-!
-!WR_NH3/KETH=0.0
-!
-!WR_NH3/MEOH=0.0
-!
-!WR_NH3/ETOH=0.0
-!
-!WR_NH3/ALCH=0.0
-!
-!WR_NH3/ISOP=0.0
-!
-!WR_NH3/BIOL=0.0
-!
-!WR_NH3/BIOH=0.0
-!
-!WR_NH3/MTBE=0.0
-!
-!WR_NH3/MVK=0.0
-!
-!WR_NH3/MCR=0.0
-!
-!WR_NH3/MGLY=0.0
-!
-!WR_NH3/GLY=0.0
-!
-!WR_NH3/ORA1=0.0
-!
-!WR_NH3/ORA2=0.0
-!
-!WR_NH3/ACID=0.0
-!
-!WR_NH3/UR28=0.0
-!
-!WR_NH3/UR21=0.0
-!
-!WR_NH3/URG2=0.0
-!
-!WR_NH3/UR26=0.0
-!
-!WR_NH3/RPG2=0.0
-!
-!WR_NH3/RP18=0.0
-!
-!WR_NH3/RPG3=0.0
-!
-!WR_NH3/URG4=0.0
-!
-!WR_NH3/UR8=0.0
-!
-!WR_NH3/UR17=0.0
-!
-!WR_NH3/UR7=0.0
-!
-!WR_NH3/RPR3=0.0
-!
-!WR_NH3/URG6=0.0
-!
-!WR_NH3/UR22=0.0
-!
-!WR_NH3/URG7=0.0
-!
-!WR_NH3/RPR4=0.0
-!
-!WR_NH3/RPR7=0.0
-!
-!WR_NH3/RPG7=0.0
-!
-!WR_NH3/URG8=0.0
-!
-!WR_NH3/UR19=0.0
-!
-!WR_NH3/URG9=0.0
-!
-!WR_NH3/AP7=0.0
-!
-!WR_NH3/URG10=0.0
-!
-!WR_NH3/RPR1=0.0
-!
-!WR_NH3/RPR5=0.0
-!
-!WR_NH3/RPR8=0.0
-!
-!WR_NH3/RP10=0.0
-!
-!WR_NH3/RP11=0.0
-!
-!WR_NH3/RP16=0.0
-!
-!WR_NH3/RPRL=0.0
-!
-!WR_NH3/APAN=0.0
-!
-!WR_NH3/PAN1=0.0
-!
-!WR_NH3/PAN2=0.0
-!
-!WR_NH3/PAN3=0.0
-!
-!WR_NH3/PAN4=0.0
-!
-!WR_NH3/PAN6=0.0
-!
-!WR_NH3/PAN7=0.0
-!
-!WR_NH3/PAN8=0.0
-!
-!WR_NH3/PN10=0.0
-!
-!WR_NH3/RO2T=0.0
-!
-!WR_NH3/RO21=0.0
-!
-!WR_NH3/RO25=0.0
-!
-!WR_NH3/WC_O3=0.0
-!
-!WR_NH3/WC_H2O2=0.0
-!
-!WR_NH3/WC_NO=0.0
-!
-!WR_NH3/WC_NO2=0.0
-!
-!WR_NH3/WC_NO3=0.0
-!
-!WR_NH3/WC_N2O5=0.0
-!
-!WR_NH3/WC_HONO=0.0
-!
-!WR_NH3/WC_HNO3=0.0
-!
-!WR_NH3/WC_HNO4=0.0
-!
-!WR_NH3/WC_NH3=0.0
-!
-!WR_NH3/WC_OH=0.0
-!
-!WR_NH3/WC_HO2=0.0
-!
-!WR_NH3/WC_CO2=0.0
-!
-!WR_NH3/WC_SO2=0.0
-!
-!WR_NH3/WC_H2SO4=0.0
-!
-!WR_NH3/WC_RO21=0.0
-!
-!WR_NH3/WC_RO25=0.0
-!
-!WR_NH3/WC_MEOH=0.0
-!
-!WR_NH3/WC_ETOH=0.0
-!
-!WR_NH3/WC_ALCH=0.0
-!
-!WR_NH3/WC_HCHO=0.0
-!
-!WR_NH3/WC_ALD2=0.0
-!
-!WR_NH3/WC_GLY=0.0
-!
-!WR_NH3/WC_MGLY=0.0
-!
-!WR_NH3/WC_KETL=0.0
-!
-!WR_NH3/WC_ORA1=0.0
-!
-!WR_NH3/WC_ORA2=0.0
-!
-!WR_NH3/WC_ACID=0.0
-!
-!WR_NH3/WC_RP16=0.0
-!
-!WR_NH3/WC_UR21=0.0
-!
-!WR_NH3/WC_UR28=0.0
-!
-!WR_NH3/WC_ACID2=0.0
-!
-!WR_NH3/WC_ASO3=0.0
-!
-!WR_NH3/WC_ASO4=0.0
-!
-!WR_NH3/WC_ASO5=0.0
-!
-!WR_NH3/WC_AHSO5=0.0
-!
-!WR_NH3/WC_AHMS=0.0
-!
-!WR_NH3/WR_O3=0.0
-!
-!WR_NH3/WR_H2O2=0.0
-!
-!WR_NH3/WR_NO=0.0
-!
-!WR_NH3/WR_NO2=0.0
-!
-!WR_NH3/WR_NO3=0.0
-!
-!WR_NH3/WR_N2O5=0.0
-!
-!WR_NH3/WR_HONO=0.0
-!
-!WR_NH3/WR_HNO3=0.0
-!
-!WR_NH3/WR_HNO4=0.0
-!
-!WR_NH3/WR_NH3=-KTR41
- PJAC(:,134,134)=-TPK%KTR41(:)
-!
-!WR_NH3/WR_OH=0.0
-!
-!WR_NH3/WR_HO2=0.0
-!
-!WR_NH3/WR_CO2=0.0
-!
-!WR_NH3/WR_SO2=0.0
-!
-!WR_NH3/WR_H2SO4=0.0
-!
-!WR_NH3/WR_RO21=0.0
-!
-!WR_NH3/WR_RO25=0.0
-!
-!WR_NH3/WR_MEOH=0.0
-!
-!WR_NH3/WR_ETOH=0.0
-!
-!WR_NH3/WR_ALCH=0.0
-!
-!WR_NH3/WR_HCHO=0.0
-!
-!WR_NH3/WR_ALD2=0.0
-!
-!WR_NH3/WR_GLY=0.0
-!
-!WR_NH3/WR_MGLY=0.0
-!
-!WR_NH3/WR_KETL=0.0
-!
-!WR_NH3/WR_ORA1=0.0
-!
-!WR_NH3/WR_ORA2=0.0
-!
-!WR_NH3/WR_ACID=0.0
-!
-!WR_NH3/WR_RP16=0.0
-!
-!WR_NH3/WR_UR21=0.0
-!
-!WR_NH3/WR_UR28=0.0
-!
-!WR_NH3/WR_ACID2=0.0
-!
-!WR_NH3/WR_ASO3=0.0
-!
-!WR_NH3/WR_ASO4=0.0
-!
-!WR_NH3/WR_ASO5=0.0
-!
-!WR_NH3/WR_AHSO5=0.0
-!
-!WR_NH3/WR_AHMS=0.0
-!
-!WR_OH/NO=0.0
-!
-!WR_OH/NO2=0.0
-!
-!WR_OH/O3=0.0
-!
-!WR_OH/HONO=0.0
-!
-!WR_OH/HNO3=0.0
-!
-!WR_OH/HNO4=0.0
-!
-!WR_OH/N2O5=0.0
-!
-!WR_OH/NO3=0.0
-!
-!WR_OH/NH3=0.0
-!
-!WR_OH/HO2=0.0
-!
-!WR_OH/CO=0.0
-!
-!WR_OH/H2O2=0.0
-!
-!WR_OH/SO2=0.0
-!
-!WR_OH/H2SO4=0.0
-!
-!WR_OH/OH=+KTR11
- PJAC(:,135,15)=+TPK%KTR11(:)
-!
-!WR_OH/ETHE=0.0
-!
-!WR_OH/OLEL=0.0
-!
-!WR_OH/OLEH=0.0
-!
-!WR_OH/ALKL=0.0
-!
-!WR_OH/ALKM=0.0
-!
-!WR_OH/ALKH=0.0
-!
-!WR_OH/AROH=0.0
-!
-!WR_OH/AROL=0.0
-!
-!WR_OH/AROO=0.0
-!
-!WR_OH/ARAL=0.0
-!
-!WR_OH/ARAC=0.0
-!
-!WR_OH/PAH=0.0
-!
-!WR_OH/HCHO=0.0
-!
-!WR_OH/ALD2=0.0
-!
-!WR_OH/KETL=0.0
-!
-!WR_OH/KETH=0.0
-!
-!WR_OH/MEOH=0.0
-!
-!WR_OH/ETOH=0.0
-!
-!WR_OH/ALCH=0.0
-!
-!WR_OH/ISOP=0.0
-!
-!WR_OH/BIOL=0.0
-!
-!WR_OH/BIOH=0.0
-!
-!WR_OH/MTBE=0.0
-!
-!WR_OH/MVK=0.0
-!
-!WR_OH/MCR=0.0
-!
-!WR_OH/MGLY=0.0
-!
-!WR_OH/GLY=0.0
-!
-!WR_OH/ORA1=0.0
-!
-!WR_OH/ORA2=0.0
-!
-!WR_OH/ACID=0.0
-!
-!WR_OH/UR28=0.0
-!
-!WR_OH/UR21=0.0
-!
-!WR_OH/URG2=0.0
-!
-!WR_OH/UR26=0.0
-!
-!WR_OH/RPG2=0.0
-!
-!WR_OH/RP18=0.0
-!
-!WR_OH/RPG3=0.0
-!
-!WR_OH/URG4=0.0
-!
-!WR_OH/UR8=0.0
-!
-!WR_OH/UR17=0.0
-!
-!WR_OH/UR7=0.0
-!
-!WR_OH/RPR3=0.0
-!
-!WR_OH/URG6=0.0
-!
-!WR_OH/UR22=0.0
-!
-!WR_OH/URG7=0.0
-!
-!WR_OH/RPR4=0.0
-!
-!WR_OH/RPR7=0.0
-!
-!WR_OH/RPG7=0.0
-!
-!WR_OH/URG8=0.0
-!
-!WR_OH/UR19=0.0
-!
-!WR_OH/URG9=0.0
-!
-!WR_OH/AP7=0.0
-!
-!WR_OH/URG10=0.0
-!
-!WR_OH/RPR1=0.0
-!
-!WR_OH/RPR5=0.0
-!
-!WR_OH/RPR8=0.0
-!
-!WR_OH/RP10=0.0
-!
-!WR_OH/RP11=0.0
-!
-!WR_OH/RP16=0.0
-!
-!WR_OH/RPRL=0.0
-!
-!WR_OH/APAN=0.0
-!
-!WR_OH/PAN1=0.0
-!
-!WR_OH/PAN2=0.0
-!
-!WR_OH/PAN3=0.0
-!
-!WR_OH/PAN4=0.0
-!
-!WR_OH/PAN6=0.0
-!
-!WR_OH/PAN7=0.0
-!
-!WR_OH/PAN8=0.0
-!
-!WR_OH/PN10=0.0
-!
-!WR_OH/RO2T=0.0
-!
-!WR_OH/RO21=0.0
-!
-!WR_OH/RO25=0.0
-!
-!WR_OH/WC_O3=0.0
-!
-!WR_OH/WC_H2O2=0.0
-!
-!WR_OH/WC_NO=0.0
-!
-!WR_OH/WC_NO2=0.0
-!
-!WR_OH/WC_NO3=0.0
-!
-!WR_OH/WC_N2O5=0.0
-!
-!WR_OH/WC_HONO=0.0
-!
-!WR_OH/WC_HNO3=0.0
-!
-!WR_OH/WC_HNO4=0.0
-!
-!WR_OH/WC_NH3=0.0
-!
-!WR_OH/WC_OH=0.0
-!
-!WR_OH/WC_HO2=0.0
-!
-!WR_OH/WC_CO2=0.0
-!
-!WR_OH/WC_SO2=0.0
-!
-!WR_OH/WC_H2SO4=0.0
-!
-!WR_OH/WC_RO21=0.0
-!
-!WR_OH/WC_RO25=0.0
-!
-!WR_OH/WC_MEOH=0.0
-!
-!WR_OH/WC_ETOH=0.0
-!
-!WR_OH/WC_ALCH=0.0
-!
-!WR_OH/WC_HCHO=0.0
-!
-!WR_OH/WC_ALD2=0.0
-!
-!WR_OH/WC_GLY=0.0
-!
-!WR_OH/WC_MGLY=0.0
-!
-!WR_OH/WC_KETL=0.0
-!
-!WR_OH/WC_ORA1=0.0
-!
-!WR_OH/WC_ORA2=0.0
-!
-!WR_OH/WC_ACID=0.0
-!
-!WR_OH/WC_RP16=0.0
-!
-!WR_OH/WC_UR21=0.0
-!
-!WR_OH/WC_UR28=0.0
-!
-!WR_OH/WC_ACID2=0.0
-!
-!WR_OH/WC_ASO3=0.0
-!
-!WR_OH/WC_ASO4=0.0
-!
-!WR_OH/WC_ASO5=0.0
-!
-!WR_OH/WC_AHSO5=0.0
-!
-!WR_OH/WC_AHMS=0.0
-!
-!WR_OH/WR_O3=+KR6*<WR_HO2>
- PJAC(:,135,125)=+TPK%KR6(:)*PCONC(:,136)
-!
-!WR_OH/WR_H2O2=+KR1+KR1-KR4*<WR_OH>
- PJAC(:,135,126)=+TPK%KR1(:)+TPK%KR1(:)-TPK%KR4(:)*PCONC(:,135)
-!
-!WR_OH/WR_NO=0.0
-!
-!WR_OH/WR_NO2=0.0
-!
-!WR_OH/WR_NO3=0.0
-!
-!WR_OH/WR_N2O5=0.0
-!
-!WR_OH/WR_HONO=-KR8*<WR_OH>
- PJAC(:,135,131)=-TPK%KR8(:)*PCONC(:,135)
-!
-!WR_OH/WR_HNO3=+KR13
- PJAC(:,135,132)=+TPK%KR13(:)
-!
-!WR_OH/WR_HNO4=0.0
-!
-!WR_OH/WR_NH3=0.0
-!
-!WR_OH/WR_OH=-KTR42-KR2*<WR_OH>-KR2*<WR_OH>-KR2*<WR_OH>-KR2*<WR_OH>-KR3*<WR_HO2
-!>-KR4*<WR_H2O2>-KR7*<WR_SO2>-KR8*<WR_HONO>-KR19*<WR_AHMS>-KR30*<WR_MEOH>-KR31*
-!<WR_ETOH>-KR32*<WR_ALCH>-KR33*<WR_HCHO>-KR34*<WR_ALD2>-KR35*<WR_GLY>-KR36*<WR_
-!MGLY>-KR37*<WR_KETL>-KR38*<WR_ORA1>-KR39*<WR_ORA2>-KR40*<WR_ACID>-KR41*<WR_ACI
-!D>-KR42*<WR_UR28>-KR43*<WR_UR21>-KR44*<WR_RP16>-KR45*<WR_RP16>-KR46*<WR_ACID2>
- PJAC(:,135,135)=-TPK%KTR42(:)-TPK%KR2(:)*PCONC(:,135)-TPK%KR2(:)*PCONC(:,135)-&
-&TPK%KR2(:)*PCONC(:,135)-TPK%KR2(:)*PCONC(:,135)-TPK%KR3(:)*PCONC(:,136)-TPK%KR&
-&4(:)*PCONC(:,126)-TPK%KR7(:)*PCONC(:,138)-TPK%KR8(:)*PCONC(:,131)-TPK%KR19(:)*&
-&PCONC(:,161)-TPK%KR30(:)*PCONC(:,142)-TPK%KR31(:)*PCONC(:,143)-TPK%KR32(:)*PCO&
-&NC(:,144)-TPK%KR33(:)*PCONC(:,145)-TPK%KR34(:)*PCONC(:,146)-TPK%KR35(:)*PCONC(&
-&:,147)-TPK%KR36(:)*PCONC(:,148)-TPK%KR37(:)*PCONC(:,149)-TPK%KR38(:)*PCONC(:,1&
-&50)-TPK%KR39(:)*PCONC(:,151)-TPK%KR40(:)*PCONC(:,152)-TPK%KR41(:)*PCONC(:,152)&
-&-TPK%KR42(:)*PCONC(:,155)-TPK%KR43(:)*PCONC(:,154)-TPK%KR44(:)*PCONC(:,153)-TP&
-&K%KR45(:)*PCONC(:,153)-TPK%KR46(:)*PCONC(:,156)
-!
-!WR_OH/WR_HO2=-KR3*<WR_OH>+KR6*<WR_O3>
- PJAC(:,135,136)=-TPK%KR3(:)*PCONC(:,135)+TPK%KR6(:)*PCONC(:,125)
-!
-!WR_OH/WR_CO2=0.0
-!
-!WR_OH/WR_SO2=-KR7*<WR_OH>
- PJAC(:,135,138)=-TPK%KR7(:)*PCONC(:,135)
-!
-!WR_OH/WR_H2SO4=0.0
-!
-!WR_OH/WR_RO21=0.0
-!
-!WR_OH/WR_RO25=0.0
-!
-!WR_OH/WR_MEOH=-KR30*<WR_OH>
- PJAC(:,135,142)=-TPK%KR30(:)*PCONC(:,135)
-!
-!WR_OH/WR_ETOH=-KR31*<WR_OH>
- PJAC(:,135,143)=-TPK%KR31(:)*PCONC(:,135)
-!
-!WR_OH/WR_ALCH=-KR32*<WR_OH>
- PJAC(:,135,144)=-TPK%KR32(:)*PCONC(:,135)
-!
-!WR_OH/WR_HCHO=-KR33*<WR_OH>
- PJAC(:,135,145)=-TPK%KR33(:)*PCONC(:,135)
-!
-!WR_OH/WR_ALD2=-KR34*<WR_OH>
- PJAC(:,135,146)=-TPK%KR34(:)*PCONC(:,135)
-!
-!WR_OH/WR_GLY=-KR35*<WR_OH>
- PJAC(:,135,147)=-TPK%KR35(:)*PCONC(:,135)
-!
-!WR_OH/WR_MGLY=-KR36*<WR_OH>
- PJAC(:,135,148)=-TPK%KR36(:)*PCONC(:,135)
-!
-!WR_OH/WR_KETL=-KR37*<WR_OH>
- PJAC(:,135,149)=-TPK%KR37(:)*PCONC(:,135)
-!
-!WR_OH/WR_ORA1=-KR38*<WR_OH>
- PJAC(:,135,150)=-TPK%KR38(:)*PCONC(:,135)
-!
-!WR_OH/WR_ORA2=-KR39*<WR_OH>
- PJAC(:,135,151)=-TPK%KR39(:)*PCONC(:,135)
-!
-!WR_OH/WR_ACID=-KR40*<WR_OH>-KR41*<WR_OH>
- PJAC(:,135,152)=-TPK%KR40(:)*PCONC(:,135)-TPK%KR41(:)*PCONC(:,135)
-!
-!WR_OH/WR_RP16=-KR44*<WR_OH>-KR45*<WR_OH>
- PJAC(:,135,153)=-TPK%KR44(:)*PCONC(:,135)-TPK%KR45(:)*PCONC(:,135)
-!
-!WR_OH/WR_UR21=-KR43*<WR_OH>
- PJAC(:,135,154)=-TPK%KR43(:)*PCONC(:,135)
-!
-!WR_OH/WR_UR28=-KR42*<WR_OH>
- PJAC(:,135,155)=-TPK%KR42(:)*PCONC(:,135)
-!
-!WR_OH/WR_ACID2=-KR46*<WR_OH>
- PJAC(:,135,156)=-TPK%KR46(:)*PCONC(:,135)
-!
-!WR_OH/WR_ASO3=0.0
-!
-!WR_OH/WR_ASO4=+KR24
- PJAC(:,135,158)=+TPK%KR24(:)
-!
-!WR_OH/WR_ASO5=0.0
-!
-!WR_OH/WR_AHSO5=0.0
-!
-!WR_OH/WR_AHMS=-KR19*<WR_OH>
- PJAC(:,135,161)=-TPK%KR19(:)*PCONC(:,135)
-!
-RETURN
-END SUBROUTINE SUBJ26
-!
-SUBROUTINE SUBJ27
-!
-!Indices 136 a 140
-!
-!
-!WR_HO2/NO=0.0
-!
-!WR_HO2/NO2=0.0
-!
-!WR_HO2/O3=0.0
-!
-!WR_HO2/HONO=0.0
-!
-!WR_HO2/HNO3=0.0
-!
-!WR_HO2/HNO4=0.0
-!
-!WR_HO2/N2O5=0.0
-!
-!WR_HO2/NO3=0.0
-!
-!WR_HO2/NH3=0.0
-!
-!WR_HO2/HO2=+KTR12
- PJAC(:,136,10)=+TPK%KTR12(:)
-!
-!WR_HO2/CO=0.0
-!
-!WR_HO2/H2O2=0.0
-!
-!WR_HO2/SO2=0.0
-!
-!WR_HO2/H2SO4=0.0
-!
-!WR_HO2/OH=0.0
-!
-!WR_HO2/ETHE=0.0
-!
-!WR_HO2/OLEL=0.0
-!
-!WR_HO2/OLEH=0.0
-!
-!WR_HO2/ALKL=0.0
-!
-!WR_HO2/ALKM=0.0
-!
-!WR_HO2/ALKH=0.0
-!
-!WR_HO2/AROH=0.0
-!
-!WR_HO2/AROL=0.0
-!
-!WR_HO2/AROO=0.0
-!
-!WR_HO2/ARAL=0.0
-!
-!WR_HO2/ARAC=0.0
-!
-!WR_HO2/PAH=0.0
-!
-!WR_HO2/HCHO=0.0
-!
-!WR_HO2/ALD2=0.0
-!
-!WR_HO2/KETL=0.0
-!
-!WR_HO2/KETH=0.0
-!
-!WR_HO2/MEOH=0.0
-!
-!WR_HO2/ETOH=0.0
-!
-!WR_HO2/ALCH=0.0
-!
-!WR_HO2/ISOP=0.0
-!
-!WR_HO2/BIOL=0.0
-!
-!WR_HO2/BIOH=0.0
-!
-!WR_HO2/MTBE=0.0
-!
-!WR_HO2/MVK=0.0
-!
-!WR_HO2/MCR=0.0
-!
-!WR_HO2/MGLY=0.0
-!
-!WR_HO2/GLY=0.0
-!
-!WR_HO2/ORA1=0.0
-!
-!WR_HO2/ORA2=0.0
-!
-!WR_HO2/ACID=0.0
-!
-!WR_HO2/UR28=0.0
-!
-!WR_HO2/UR21=0.0
-!
-!WR_HO2/URG2=0.0
-!
-!WR_HO2/UR26=0.0
-!
-!WR_HO2/RPG2=0.0
-!
-!WR_HO2/RP18=0.0
-!
-!WR_HO2/RPG3=0.0
-!
-!WR_HO2/URG4=0.0
-!
-!WR_HO2/UR8=0.0
-!
-!WR_HO2/UR17=0.0
-!
-!WR_HO2/UR7=0.0
-!
-!WR_HO2/RPR3=0.0
-!
-!WR_HO2/URG6=0.0
-!
-!WR_HO2/UR22=0.0
-!
-!WR_HO2/URG7=0.0
-!
-!WR_HO2/RPR4=0.0
-!
-!WR_HO2/RPR7=0.0
-!
-!WR_HO2/RPG7=0.0
-!
-!WR_HO2/URG8=0.0
-!
-!WR_HO2/UR19=0.0
-!
-!WR_HO2/URG9=0.0
-!
-!WR_HO2/AP7=0.0
-!
-!WR_HO2/URG10=0.0
-!
-!WR_HO2/RPR1=0.0
-!
-!WR_HO2/RPR5=0.0
-!
-!WR_HO2/RPR8=0.0
-!
-!WR_HO2/RP10=0.0
-!
-!WR_HO2/RP11=0.0
-!
-!WR_HO2/RP16=0.0
-!
-!WR_HO2/RPRL=0.0
-!
-!WR_HO2/APAN=0.0
-!
-!WR_HO2/PAN1=0.0
-!
-!WR_HO2/PAN2=0.0
-!
-!WR_HO2/PAN3=0.0
-!
-!WR_HO2/PAN4=0.0
-!
-!WR_HO2/PAN6=0.0
-!
-!WR_HO2/PAN7=0.0
-!
-!WR_HO2/PAN8=0.0
-!
-!WR_HO2/PN10=0.0
-!
-!WR_HO2/RO2T=0.0
-!
-!WR_HO2/RO21=0.0
-!
-!WR_HO2/RO25=0.0
-!
-!WR_HO2/WC_O3=0.0
-!
-!WR_HO2/WC_H2O2=0.0
-!
-!WR_HO2/WC_NO=0.0
-!
-!WR_HO2/WC_NO2=0.0
-!
-!WR_HO2/WC_NO3=0.0
-!
-!WR_HO2/WC_N2O5=0.0
-!
-!WR_HO2/WC_HONO=0.0
-!
-!WR_HO2/WC_HNO3=0.0
-!
-!WR_HO2/WC_HNO4=0.0
-!
-!WR_HO2/WC_NH3=0.0
-!
-!WR_HO2/WC_OH=0.0
-!
-!WR_HO2/WC_HO2=0.0
-!
-!WR_HO2/WC_CO2=0.0
-!
-!WR_HO2/WC_SO2=0.0
-!
-!WR_HO2/WC_H2SO4=0.0
-!
-!WR_HO2/WC_RO21=0.0
-!
-!WR_HO2/WC_RO25=0.0
-!
-!WR_HO2/WC_MEOH=0.0
-!
-!WR_HO2/WC_ETOH=0.0
-!
-!WR_HO2/WC_ALCH=0.0
-!
-!WR_HO2/WC_HCHO=0.0
-!
-!WR_HO2/WC_ALD2=0.0
-!
-!WR_HO2/WC_GLY=0.0
-!
-!WR_HO2/WC_MGLY=0.0
-!
-!WR_HO2/WC_KETL=0.0
-!
-!WR_HO2/WC_ORA1=0.0
-!
-!WR_HO2/WC_ORA2=0.0
-!
-!WR_HO2/WC_ACID=0.0
-!
-!WR_HO2/WC_RP16=0.0
-!
-!WR_HO2/WC_UR21=0.0
-!
-!WR_HO2/WC_UR28=0.0
-!
-!WR_HO2/WC_ACID2=0.0
-!
-!WR_HO2/WC_ASO3=0.0
-!
-!WR_HO2/WC_ASO4=0.0
-!
-!WR_HO2/WC_ASO5=0.0
-!
-!WR_HO2/WC_AHSO5=0.0
-!
-!WR_HO2/WC_AHMS=0.0
-!
-!WR_HO2/WR_O3=-KR6*<WR_HO2>
- PJAC(:,136,125)=-TPK%KR6(:)*PCONC(:,136)
-!
-!WR_HO2/WR_H2O2=+KR4*<WR_OH>
- PJAC(:,136,126)=+TPK%KR4(:)*PCONC(:,135)
-!
-!WR_HO2/WR_NO=0.0
-!
-!WR_HO2/WR_NO2=-KR9*<WR_HO2>
- PJAC(:,136,128)=-TPK%KR9(:)*PCONC(:,136)
-!
-!WR_HO2/WR_NO3=0.0
-!
-!WR_HO2/WR_N2O5=0.0
-!
-!WR_HO2/WR_HONO=0.0
-!
-!WR_HO2/WR_HNO3=0.0
-!
-!WR_HO2/WR_HNO4=+KR10
- PJAC(:,136,133)=+TPK%KR10(:)
-!
-!WR_HO2/WR_NH3=0.0
-!
-!WR_HO2/WR_OH=-KR3*<WR_HO2>+KR4*<WR_H2O2>+KR19*<WR_AHMS>+KR30*<WR_MEOH>+KR31*<W
-!R_ETOH>+KR32*<WR_ALCH>+KR33*<WR_HCHO>+KR35*<WR_GLY>+KR36*<WR_MGLY>+KR37*<WR_KE
-!TL>+KR38*<WR_ORA1>+0.11*KR41*<WR_ACID>+KR42*<WR_UR28>+0.81*KR43*<WR_UR21>+KR44
-!*<WR_RP16>+0.71*KR45*<WR_RP16>
- PJAC(:,136,135)=-TPK%KR3(:)*PCONC(:,136)+TPK%KR4(:)*PCONC(:,126)+TPK%KR19(:)*P&
-&CONC(:,161)+TPK%KR30(:)*PCONC(:,142)+TPK%KR31(:)*PCONC(:,143)+TPK%KR32(:)*PCON&
-&C(:,144)+TPK%KR33(:)*PCONC(:,145)+TPK%KR35(:)*PCONC(:,147)+TPK%KR36(:)*PCONC(:&
-&,148)+TPK%KR37(:)*PCONC(:,149)+TPK%KR38(:)*PCONC(:,150)+0.11*TPK%KR41(:)*PCONC&
-&(:,152)+TPK%KR42(:)*PCONC(:,155)+0.81*TPK%KR43(:)*PCONC(:,154)+TPK%KR44(:)*PCO&
-&NC(:,153)+0.71*TPK%KR45(:)*PCONC(:,153)
-!
-!WR_HO2/WR_HO2=-KTR43-KR3*<WR_OH>-KR5*<WR_HO2>-KR5*<WR_HO2>-KR5*<WR_HO2>-KR5*<W
-!R_HO2>-KR6*<WR_O3>-KR9*<WR_NO2>-KR21*<WR_ASO5>
- PJAC(:,136,136)=-TPK%KTR43(:)-TPK%KR3(:)*PCONC(:,135)-TPK%KR5(:)*PCONC(:,136)-&
-&TPK%KR5(:)*PCONC(:,136)-TPK%KR5(:)*PCONC(:,136)-TPK%KR5(:)*PCONC(:,136)-TPK%KR&
-&6(:)*PCONC(:,125)-TPK%KR9(:)*PCONC(:,128)-TPK%KR21(:)*PCONC(:,159)
-!
-!WR_HO2/WR_CO2=0.0
-!
-!WR_HO2/WR_SO2=0.0
-!
-!WR_HO2/WR_H2SO4=0.0
-!
-!WR_HO2/WR_RO21=+2.00*KR27*<WR_RO21>+2.00*KR27*<WR_RO21>
- PJAC(:,136,140)=+2.00*TPK%KR27(:)*PCONC(:,140)+2.00*TPK%KR27(:)*PCONC(:,140)
-!
-!WR_HO2/WR_RO25=+KR29*<WR_RO25>+KR29*<WR_RO25>
- PJAC(:,136,141)=+TPK%KR29(:)*PCONC(:,141)+TPK%KR29(:)*PCONC(:,141)
-!
-!WR_HO2/WR_MEOH=+KR30*<WR_OH>
- PJAC(:,136,142)=+TPK%KR30(:)*PCONC(:,135)
-!
-!WR_HO2/WR_ETOH=+KR31*<WR_OH>
- PJAC(:,136,143)=+TPK%KR31(:)*PCONC(:,135)
-!
-!WR_HO2/WR_ALCH=+KR32*<WR_OH>
- PJAC(:,136,144)=+TPK%KR32(:)*PCONC(:,135)
-!
-!WR_HO2/WR_HCHO=+KR33*<WR_OH>
- PJAC(:,136,145)=+TPK%KR33(:)*PCONC(:,135)
-!
-!WR_HO2/WR_ALD2=0.0
-!
-!WR_HO2/WR_GLY=+KR35*<WR_OH>
- PJAC(:,136,147)=+TPK%KR35(:)*PCONC(:,135)
-!
-!WR_HO2/WR_MGLY=+KR36*<WR_OH>
- PJAC(:,136,148)=+TPK%KR36(:)*PCONC(:,135)
-!
-!WR_HO2/WR_KETL=+KR37*<WR_OH>
- PJAC(:,136,149)=+TPK%KR37(:)*PCONC(:,135)
-!
-!WR_HO2/WR_ORA1=+KR38*<WR_OH>
- PJAC(:,136,150)=+TPK%KR38(:)*PCONC(:,135)
-!
-!WR_HO2/WR_ORA2=0.0
-!
-!WR_HO2/WR_ACID=+0.11*KR41*<WR_OH>
- PJAC(:,136,152)=+0.11*TPK%KR41(:)*PCONC(:,135)
-!
-!WR_HO2/WR_RP16=+KR44*<WR_OH>+0.71*KR45*<WR_OH>
- PJAC(:,136,153)=+TPK%KR44(:)*PCONC(:,135)+0.71*TPK%KR45(:)*PCONC(:,135)
-!
-!WR_HO2/WR_UR21=+0.81*KR43*<WR_OH>
- PJAC(:,136,154)=+0.81*TPK%KR43(:)*PCONC(:,135)
-!
-!WR_HO2/WR_UR28=+KR42*<WR_OH>
- PJAC(:,136,155)=+TPK%KR42(:)*PCONC(:,135)
-!
-!WR_HO2/WR_ACID2=0.0
-!
-!WR_HO2/WR_ASO3=0.0
-!
-!WR_HO2/WR_ASO4=0.0
-!
-!WR_HO2/WR_ASO5=-KR21*<WR_HO2>
- PJAC(:,136,159)=-TPK%KR21(:)*PCONC(:,136)
-!
-!WR_HO2/WR_AHSO5=0.0
-!
-!WR_HO2/WR_AHMS=+KR19*<WR_OH>
- PJAC(:,136,161)=+TPK%KR19(:)*PCONC(:,135)
-!
-!WR_CO2/NO=0.0
-!
-!WR_CO2/NO2=0.0
-!
-!WR_CO2/O3=0.0
-!
-!WR_CO2/HONO=0.0
-!
-!WR_CO2/HNO3=0.0
-!
-!WR_CO2/HNO4=0.0
-!
-!WR_CO2/N2O5=0.0
-!
-!WR_CO2/NO3=0.0
-!
-!WR_CO2/NH3=0.0
-!
-!WR_CO2/HO2=0.0
-!
-!WR_CO2/CO=0.0
-!
-!WR_CO2/H2O2=0.0
-!
-!WR_CO2/SO2=0.0
-!
-!WR_CO2/H2SO4=0.0
-!
-!WR_CO2/OH=0.0
-!
-!WR_CO2/ETHE=0.0
-!
-!WR_CO2/OLEL=0.0
-!
-!WR_CO2/OLEH=0.0
-!
-!WR_CO2/ALKL=0.0
-!
-!WR_CO2/ALKM=0.0
-!
-!WR_CO2/ALKH=0.0
-!
-!WR_CO2/AROH=0.0
-!
-!WR_CO2/AROL=0.0
-!
-!WR_CO2/AROO=0.0
-!
-!WR_CO2/ARAL=0.0
-!
-!WR_CO2/ARAC=0.0
-!
-!WR_CO2/PAH=0.0
-!
-!WR_CO2/HCHO=0.0
-!
-!WR_CO2/ALD2=0.0
-!
-!WR_CO2/KETL=0.0
-!
-!WR_CO2/KETH=0.0
-!
-!WR_CO2/MEOH=0.0
-!
-!WR_CO2/ETOH=0.0
-!
-!WR_CO2/ALCH=0.0
-!
-!WR_CO2/ISOP=0.0
-!
-!WR_CO2/BIOL=0.0
-!
-!WR_CO2/BIOH=0.0
-!
-!WR_CO2/MTBE=0.0
-!
-!WR_CO2/MVK=0.0
-!
-!WR_CO2/MCR=0.0
-!
-!WR_CO2/MGLY=0.0
-!
-!WR_CO2/GLY=0.0
-!
-!WR_CO2/ORA1=0.0
-!
-!WR_CO2/ORA2=0.0
-!
-!WR_CO2/ACID=0.0
-!
-!WR_CO2/UR28=0.0
-!
-!WR_CO2/UR21=0.0
-!
-!WR_CO2/URG2=0.0
-!
-!WR_CO2/UR26=0.0
-!
-!WR_CO2/RPG2=0.0
-!
-!WR_CO2/RP18=0.0
-!
-!WR_CO2/RPG3=0.0
-!
-!WR_CO2/URG4=0.0
-!
-!WR_CO2/UR8=0.0
-!
-!WR_CO2/UR17=0.0
-!
-!WR_CO2/UR7=0.0
-!
-!WR_CO2/RPR3=0.0
-!
-!WR_CO2/URG6=0.0
-!
-!WR_CO2/UR22=0.0
-!
-!WR_CO2/URG7=0.0
-!
-!WR_CO2/RPR4=0.0
-!
-!WR_CO2/RPR7=0.0
-!
-!WR_CO2/RPG7=0.0
-!
-!WR_CO2/URG8=0.0
-!
-!WR_CO2/UR19=0.0
-!
-!WR_CO2/URG9=0.0
-!
-!WR_CO2/AP7=0.0
-!
-!WR_CO2/URG10=0.0
-!
-!WR_CO2/RPR1=0.0
-!
-!WR_CO2/RPR5=0.0
-!
-!WR_CO2/RPR8=0.0
-!
-!WR_CO2/RP10=0.0
-!
-!WR_CO2/RP11=0.0
-!
-!WR_CO2/RP16=0.0
-!
-!WR_CO2/RPRL=0.0
-!
-!WR_CO2/APAN=0.0
-!
-!WR_CO2/PAN1=0.0
-!
-!WR_CO2/PAN2=0.0
-!
-!WR_CO2/PAN3=0.0
-!
-!WR_CO2/PAN4=0.0
-!
-!WR_CO2/PAN6=0.0
-!
-!WR_CO2/PAN7=0.0
-!
-!WR_CO2/PAN8=0.0
-!
-!WR_CO2/PN10=0.0
-!
-!WR_CO2/RO2T=0.0
-!
-!WR_CO2/RO21=0.0
-!
-!WR_CO2/RO25=0.0
-!
-!WR_CO2/WC_O3=0.0
-!
-!WR_CO2/WC_H2O2=0.0
-!
-!WR_CO2/WC_NO=0.0
-!
-!WR_CO2/WC_NO2=0.0
-!
-!WR_CO2/WC_NO3=0.0
-!
-!WR_CO2/WC_N2O5=0.0
-!
-!WR_CO2/WC_HONO=0.0
-!
-!WR_CO2/WC_HNO3=0.0
-!
-!WR_CO2/WC_HNO4=0.0
-!
-!WR_CO2/WC_NH3=0.0
-!
-!WR_CO2/WC_OH=0.0
-!
-!WR_CO2/WC_HO2=0.0
-!
-!WR_CO2/WC_CO2=0.0
-!
-!WR_CO2/WC_SO2=0.0
-!
-!WR_CO2/WC_H2SO4=0.0
-!
-!WR_CO2/WC_RO21=0.0
-!
-!WR_CO2/WC_RO25=0.0
-!
-!WR_CO2/WC_MEOH=0.0
-!
-!WR_CO2/WC_ETOH=0.0
-!
-!WR_CO2/WC_ALCH=0.0
-!
-!WR_CO2/WC_HCHO=0.0
-!
-!WR_CO2/WC_ALD2=0.0
-!
-!WR_CO2/WC_GLY=0.0
-!
-!WR_CO2/WC_MGLY=0.0
-!
-!WR_CO2/WC_KETL=0.0
-!
-!WR_CO2/WC_ORA1=0.0
-!
-!WR_CO2/WC_ORA2=0.0
-!
-!WR_CO2/WC_ACID=0.0
-!
-!WR_CO2/WC_RP16=0.0
-!
-!WR_CO2/WC_UR21=0.0
-!
-!WR_CO2/WC_UR28=0.0
-!
-!WR_CO2/WC_ACID2=0.0
-!
-!WR_CO2/WC_ASO3=0.0
-!
-!WR_CO2/WC_ASO4=0.0
-!
-!WR_CO2/WC_ASO5=0.0
-!
-!WR_CO2/WC_AHSO5=0.0
-!
-!WR_CO2/WC_AHMS=0.0
-!
-!WR_CO2/WR_O3=0.0
-!
-!WR_CO2/WR_H2O2=0.0
-!
-!WR_CO2/WR_NO=0.0
-!
-!WR_CO2/WR_NO2=0.0
-!
-!WR_CO2/WR_NO3=0.0
-!
-!WR_CO2/WR_N2O5=0.0
-!
-!WR_CO2/WR_HONO=0.0
-!
-!WR_CO2/WR_HNO3=0.0
-!
-!WR_CO2/WR_HNO4=0.0
-!
-!WR_CO2/WR_NH3=0.0
-!
-!WR_CO2/WR_OH=+KR34*<WR_ALD2>+KR37*<WR_KETL>+KR38*<WR_ORA1>+KR40*<WR_ACID>+2*KR
-!42*<WR_UR28>+0.43*KR43*<WR_UR21>+2*KR45*<WR_RP16>
- PJAC(:,137,135)=+TPK%KR34(:)*PCONC(:,146)+TPK%KR37(:)*PCONC(:,149)+TPK%KR38(:)&
-&*PCONC(:,150)+TPK%KR40(:)*PCONC(:,152)+2*TPK%KR42(:)*PCONC(:,155)+0.43*TPK%KR4&
-&3(:)*PCONC(:,154)+2*TPK%KR45(:)*PCONC(:,153)
-!
-!WR_CO2/WR_HO2=0.0
-!
-!WR_CO2/WR_CO2=-KTR44
- PJAC(:,137,137)=-TPK%KTR44(:)
-!
-!WR_CO2/WR_SO2=0.0
-!
-!WR_CO2/WR_H2SO4=0.0
-!
-!WR_CO2/WR_RO21=0.0
-!
-!WR_CO2/WR_RO25=0.0
-!
-!WR_CO2/WR_MEOH=0.0
-!
-!WR_CO2/WR_ETOH=0.0
-!
-!WR_CO2/WR_ALCH=0.0
-!
-!WR_CO2/WR_HCHO=0.0
-!
-!WR_CO2/WR_ALD2=+KR34*<WR_OH>
- PJAC(:,137,146)=+TPK%KR34(:)*PCONC(:,135)
-!
-!WR_CO2/WR_GLY=0.0
-!
-!WR_CO2/WR_MGLY=0.0
-!
-!WR_CO2/WR_KETL=+KR37*<WR_OH>
- PJAC(:,137,149)=+TPK%KR37(:)*PCONC(:,135)
-!
-!WR_CO2/WR_ORA1=+KR38*<WR_OH>
- PJAC(:,137,150)=+TPK%KR38(:)*PCONC(:,135)
-!
-!WR_CO2/WR_ORA2=0.0
-!
-!WR_CO2/WR_ACID=+KR40*<WR_OH>
- PJAC(:,137,152)=+TPK%KR40(:)*PCONC(:,135)
-!
-!WR_CO2/WR_RP16=+2*KR45*<WR_OH>
- PJAC(:,137,153)=+2*TPK%KR45(:)*PCONC(:,135)
-!
-!WR_CO2/WR_UR21=+0.43*KR43*<WR_OH>
- PJAC(:,137,154)=+0.43*TPK%KR43(:)*PCONC(:,135)
-!
-!WR_CO2/WR_UR28=+2*KR42*<WR_OH>
- PJAC(:,137,155)=+2*TPK%KR42(:)*PCONC(:,135)
-!
-!WR_CO2/WR_ACID2=0.0
-!
-!WR_CO2/WR_ASO3=0.0
-!
-!WR_CO2/WR_ASO4=0.0
-!
-!WR_CO2/WR_ASO5=0.0
-!
-!WR_CO2/WR_AHSO5=0.0
-!
-!WR_CO2/WR_AHMS=0.0
-!
-!WR_SO2/NO=0.0
-!
-!WR_SO2/NO2=0.0
-!
-!WR_SO2/O3=0.0
-!
-!WR_SO2/HONO=0.0
-!
-!WR_SO2/HNO3=0.0
-!
-!WR_SO2/HNO4=0.0
-!
-!WR_SO2/N2O5=0.0
-!
-!WR_SO2/NO3=0.0
-!
-!WR_SO2/NH3=0.0
-!
-!WR_SO2/HO2=0.0
-!
-!WR_SO2/CO=0.0
-!
-!WR_SO2/H2O2=0.0
-!
-!WR_SO2/SO2=+KTR14
- PJAC(:,138,13)=+TPK%KTR14(:)
-!
-!WR_SO2/H2SO4=0.0
-!
-!WR_SO2/OH=0.0
-!
-!WR_SO2/ETHE=0.0
-!
-!WR_SO2/OLEL=0.0
-!
-!WR_SO2/OLEH=0.0
-!
-!WR_SO2/ALKL=0.0
-!
-!WR_SO2/ALKM=0.0
-!
-!WR_SO2/ALKH=0.0
-!
-!WR_SO2/AROH=0.0
-!
-!WR_SO2/AROL=0.0
-!
-!WR_SO2/AROO=0.0
-!
-!WR_SO2/ARAL=0.0
-!
-!WR_SO2/ARAC=0.0
-!
-!WR_SO2/PAH=0.0
-!
-!WR_SO2/HCHO=0.0
-!
-!WR_SO2/ALD2=0.0
-!
-!WR_SO2/KETL=0.0
-!
-!WR_SO2/KETH=0.0
-!
-!WR_SO2/MEOH=0.0
-!
-!WR_SO2/ETOH=0.0
-!
-!WR_SO2/ALCH=0.0
-!
-!WR_SO2/ISOP=0.0
-!
-!WR_SO2/BIOL=0.0
-!
-!WR_SO2/BIOH=0.0
-!
-!WR_SO2/MTBE=0.0
-!
-!WR_SO2/MVK=0.0
-!
-!WR_SO2/MCR=0.0
-!
-!WR_SO2/MGLY=0.0
-!
-!WR_SO2/GLY=0.0
-!
-!WR_SO2/ORA1=0.0
-!
-!WR_SO2/ORA2=0.0
-!
-!WR_SO2/ACID=0.0
-!
-!WR_SO2/UR28=0.0
-!
-!WR_SO2/UR21=0.0
-!
-!WR_SO2/URG2=0.0
-!
-!WR_SO2/UR26=0.0
-!
-!WR_SO2/RPG2=0.0
-!
-!WR_SO2/RP18=0.0
-!
-!WR_SO2/RPG3=0.0
-!
-!WR_SO2/URG4=0.0
-!
-!WR_SO2/UR8=0.0
-!
-!WR_SO2/UR17=0.0
-!
-!WR_SO2/UR7=0.0
-!
-!WR_SO2/RPR3=0.0
-!
-!WR_SO2/URG6=0.0
-!
-!WR_SO2/UR22=0.0
-!
-!WR_SO2/URG7=0.0
-!
-!WR_SO2/RPR4=0.0
-!
-!WR_SO2/RPR7=0.0
-!
-!WR_SO2/RPG7=0.0
-!
-!WR_SO2/URG8=0.0
-!
-!WR_SO2/UR19=0.0
-!
-!WR_SO2/URG9=0.0
-!
-!WR_SO2/AP7=0.0
-!
-!WR_SO2/URG10=0.0
-!
-!WR_SO2/RPR1=0.0
-!
-!WR_SO2/RPR5=0.0
-!
-!WR_SO2/RPR8=0.0
-!
-!WR_SO2/RP10=0.0
-!
-!WR_SO2/RP11=0.0
-!
-!WR_SO2/RP16=0.0
-!
-!WR_SO2/RPRL=0.0
-!
-!WR_SO2/APAN=0.0
-!
-!WR_SO2/PAN1=0.0
-!
-!WR_SO2/PAN2=0.0
-!
-!WR_SO2/PAN3=0.0
-!
-!WR_SO2/PAN4=0.0
-!
-!WR_SO2/PAN6=0.0
-!
-!WR_SO2/PAN7=0.0
-!
-!WR_SO2/PAN8=0.0
-!
-!WR_SO2/PN10=0.0
-!
-!WR_SO2/RO2T=0.0
-!
-!WR_SO2/RO21=0.0
-!
-!WR_SO2/RO25=0.0
-!
-!WR_SO2/WC_O3=0.0
-!
-!WR_SO2/WC_H2O2=0.0
-!
-!WR_SO2/WC_NO=0.0
-!
-!WR_SO2/WC_NO2=0.0
-!
-!WR_SO2/WC_NO3=0.0
-!
-!WR_SO2/WC_N2O5=0.0
-!
-!WR_SO2/WC_HONO=0.0
-!
-!WR_SO2/WC_HNO3=0.0
-!
-!WR_SO2/WC_HNO4=0.0
-!
-!WR_SO2/WC_NH3=0.0
-!
-!WR_SO2/WC_OH=0.0
-!
-!WR_SO2/WC_HO2=0.0
-!
-!WR_SO2/WC_CO2=0.0
-!
-!WR_SO2/WC_SO2=0.0
-!
-!WR_SO2/WC_H2SO4=0.0
-!
-!WR_SO2/WC_RO21=0.0
-!
-!WR_SO2/WC_RO25=0.0
-!
-!WR_SO2/WC_MEOH=0.0
-!
-!WR_SO2/WC_ETOH=0.0
-!
-!WR_SO2/WC_ALCH=0.0
-!
-!WR_SO2/WC_HCHO=0.0
-!
-!WR_SO2/WC_ALD2=0.0
-!
-!WR_SO2/WC_GLY=0.0
-!
-!WR_SO2/WC_MGLY=0.0
-!
-!WR_SO2/WC_KETL=0.0
-!
-!WR_SO2/WC_ORA1=0.0
-!
-!WR_SO2/WC_ORA2=0.0
-!
-!WR_SO2/WC_ACID=0.0
-!
-!WR_SO2/WC_RP16=0.0
-!
-!WR_SO2/WC_UR21=0.0
-!
-!WR_SO2/WC_UR28=0.0
-!
-!WR_SO2/WC_ACID2=0.0
-!
-!WR_SO2/WC_ASO3=0.0
-!
-!WR_SO2/WC_ASO4=0.0
-!
-!WR_SO2/WC_ASO5=0.0
-!
-!WR_SO2/WC_AHSO5=0.0
-!
-!WR_SO2/WC_AHMS=0.0
-!
-!WR_SO2/WR_O3=-KR25*<WR_SO2>
- PJAC(:,138,125)=-TPK%KR25(:)*PCONC(:,138)
-!
-!WR_SO2/WR_H2O2=-KR26*<WR_SO2>
- PJAC(:,138,126)=-TPK%KR26(:)*PCONC(:,138)
-!
-!WR_SO2/WR_NO=0.0
-!
-!WR_SO2/WR_NO2=0.0
-!
-!WR_SO2/WR_NO3=-KR16*<WR_SO2>
- PJAC(:,138,129)=-TPK%KR16(:)*PCONC(:,138)
-!
-!WR_SO2/WR_N2O5=0.0
-!
-!WR_SO2/WR_HONO=0.0
-!
-!WR_SO2/WR_HNO3=0.0
-!
-!WR_SO2/WR_HNO4=-KR12*<WR_SO2>
- PJAC(:,138,133)=-TPK%KR12(:)*PCONC(:,138)
-!
-!WR_SO2/WR_NH3=0.0
-!
-!WR_SO2/WR_OH=-KR7*<WR_SO2>+KR19*<WR_AHMS>
- PJAC(:,138,135)=-TPK%KR7(:)*PCONC(:,138)+TPK%KR19(:)*PCONC(:,161)
-!
-!WR_SO2/WR_HO2=0.0
-!
-!WR_SO2/WR_CO2=0.0
-!
-!WR_SO2/WR_SO2=-KTR45-KR7*<WR_OH>-KR12*<WR_HNO4>-KR16*<WR_NO3>-KR17*<WR_HCHO>-K
-!R23*<WR_AHSO5>-KR25*<WR_O3>-KR26*<WR_H2O2>-KR28*<WR_RO21>
- PJAC(:,138,138)=-TPK%KTR45(:)-TPK%KR7(:)*PCONC(:,135)-TPK%KR12(:)*PCONC(:,133)&
-&-TPK%KR16(:)*PCONC(:,129)-TPK%KR17(:)*PCONC(:,145)-TPK%KR23(:)*PCONC(:,160)-TP&
-&K%KR25(:)*PCONC(:,125)-TPK%KR26(:)*PCONC(:,126)-TPK%KR28(:)*PCONC(:,140)
-!
-!WR_SO2/WR_H2SO4=0.0
-!
-!WR_SO2/WR_RO21=-KR28*<WR_SO2>
- PJAC(:,138,140)=-TPK%KR28(:)*PCONC(:,138)
-!
-!WR_SO2/WR_RO25=0.0
-!
-!WR_SO2/WR_MEOH=0.0
-!
-!WR_SO2/WR_ETOH=0.0
-!
-!WR_SO2/WR_ALCH=0.0
-!
-!WR_SO2/WR_HCHO=-KR17*<WR_SO2>
- PJAC(:,138,145)=-TPK%KR17(:)*PCONC(:,138)
-!
-!WR_SO2/WR_ALD2=0.0
-!
-!WR_SO2/WR_GLY=0.0
-!
-!WR_SO2/WR_MGLY=0.0
-!
-!WR_SO2/WR_KETL=0.0
-!
-!WR_SO2/WR_ORA1=0.0
-!
-!WR_SO2/WR_ORA2=0.0
-!
-!WR_SO2/WR_ACID=0.0
-!
-!WR_SO2/WR_RP16=0.0
-!
-!WR_SO2/WR_UR21=0.0
-!
-!WR_SO2/WR_UR28=0.0
-!
-!WR_SO2/WR_ACID2=0.0
-!
-!WR_SO2/WR_ASO3=0.0
-!
-!WR_SO2/WR_ASO4=0.0
-!
-!WR_SO2/WR_ASO5=0.0
-!
-!WR_SO2/WR_AHSO5=-KR23*<WR_SO2>
- PJAC(:,138,160)=-TPK%KR23(:)*PCONC(:,138)
-!
-!WR_SO2/WR_AHMS=+KR18+KR19*<WR_OH>
- PJAC(:,138,161)=+TPK%KR18(:)+TPK%KR19(:)*PCONC(:,135)
-!
-!WR_H2SO4/NO=0.0
-!
-!WR_H2SO4/NO2=0.0
-!
-!WR_H2SO4/O3=0.0
-!
-!WR_H2SO4/HONO=0.0
-!
-!WR_H2SO4/HNO3=0.0
-!
-!WR_H2SO4/HNO4=0.0
-!
-!WR_H2SO4/N2O5=0.0
-!
-!WR_H2SO4/NO3=0.0
-!
-!WR_H2SO4/NH3=0.0
-!
-!WR_H2SO4/HO2=0.0
-!
-!WR_H2SO4/CO=0.0
-!
-!WR_H2SO4/H2O2=0.0
-!
-!WR_H2SO4/SO2=0.0
-!
-!WR_H2SO4/H2SO4=+KTR15
- PJAC(:,139,14)=+TPK%KTR15(:)
-!
-!WR_H2SO4/OH=0.0
-!
-!WR_H2SO4/ETHE=0.0
-!
-!WR_H2SO4/OLEL=0.0
-!
-!WR_H2SO4/OLEH=0.0
-!
-!WR_H2SO4/ALKL=0.0
-!
-!WR_H2SO4/ALKM=0.0
-!
-!WR_H2SO4/ALKH=0.0
-!
-!WR_H2SO4/AROH=0.0
-!
-!WR_H2SO4/AROL=0.0
-!
-!WR_H2SO4/AROO=0.0
-!
-!WR_H2SO4/ARAL=0.0
-!
-!WR_H2SO4/ARAC=0.0
-!
-!WR_H2SO4/PAH=0.0
-!
-!WR_H2SO4/HCHO=0.0
-!
-!WR_H2SO4/ALD2=0.0
-!
-!WR_H2SO4/KETL=0.0
-!
-!WR_H2SO4/KETH=0.0
-!
-!WR_H2SO4/MEOH=0.0
-!
-!WR_H2SO4/ETOH=0.0
-!
-!WR_H2SO4/ALCH=0.0
-!
-!WR_H2SO4/ISOP=0.0
-!
-!WR_H2SO4/BIOL=0.0
-!
-!WR_H2SO4/BIOH=0.0
-!
-!WR_H2SO4/MTBE=0.0
-!
-!WR_H2SO4/MVK=0.0
-!
-!WR_H2SO4/MCR=0.0
-!
-!WR_H2SO4/MGLY=0.0
-!
-!WR_H2SO4/GLY=0.0
-!
-!WR_H2SO4/ORA1=0.0
-!
-!WR_H2SO4/ORA2=0.0
-!
-!WR_H2SO4/ACID=0.0
-!
-!WR_H2SO4/UR28=0.0
-!
-!WR_H2SO4/UR21=0.0
-!
-!WR_H2SO4/URG2=0.0
-!
-!WR_H2SO4/UR26=0.0
-!
-!WR_H2SO4/RPG2=0.0
-!
-!WR_H2SO4/RP18=0.0
-!
-!WR_H2SO4/RPG3=0.0
-!
-!WR_H2SO4/URG4=0.0
-!
-!WR_H2SO4/UR8=0.0
-!
-!WR_H2SO4/UR17=0.0
-!
-!WR_H2SO4/UR7=0.0
-!
-!WR_H2SO4/RPR3=0.0
-!
-!WR_H2SO4/URG6=0.0
-!
-!WR_H2SO4/UR22=0.0
-!
-!WR_H2SO4/URG7=0.0
-!
-!WR_H2SO4/RPR4=0.0
-!
-!WR_H2SO4/RPR7=0.0
-!
-!WR_H2SO4/RPG7=0.0
-!
-!WR_H2SO4/URG8=0.0
-!
-!WR_H2SO4/UR19=0.0
-!
-!WR_H2SO4/URG9=0.0
-!
-!WR_H2SO4/AP7=0.0
-!
-!WR_H2SO4/URG10=0.0
-!
-!WR_H2SO4/RPR1=0.0
-!
-!WR_H2SO4/RPR5=0.0
-!
-!WR_H2SO4/RPR8=0.0
-!
-!WR_H2SO4/RP10=0.0
-!
-!WR_H2SO4/RP11=0.0
-!
-!WR_H2SO4/RP16=0.0
-!
-!WR_H2SO4/RPRL=0.0
-!
-!WR_H2SO4/APAN=0.0
-!
-!WR_H2SO4/PAN1=0.0
-!
-!WR_H2SO4/PAN2=0.0
-!
-!WR_H2SO4/PAN3=0.0
-!
-!WR_H2SO4/PAN4=0.0
-!
-!WR_H2SO4/PAN6=0.0
-!
-!WR_H2SO4/PAN7=0.0
-!
-!WR_H2SO4/PAN8=0.0
-!
-!WR_H2SO4/PN10=0.0
-!
-!WR_H2SO4/RO2T=0.0
-!
-!WR_H2SO4/RO21=0.0
-!
-!WR_H2SO4/RO25=0.0
-!
-!WR_H2SO4/WC_O3=0.0
-!
-!WR_H2SO4/WC_H2O2=0.0
-!
-!WR_H2SO4/WC_NO=0.0
-!
-!WR_H2SO4/WC_NO2=0.0
-!
-!WR_H2SO4/WC_NO3=0.0
-!
-!WR_H2SO4/WC_N2O5=0.0
-!
-!WR_H2SO4/WC_HONO=0.0
-!
-!WR_H2SO4/WC_HNO3=0.0
-!
-!WR_H2SO4/WC_HNO4=0.0
-!
-!WR_H2SO4/WC_NH3=0.0
-!
-!WR_H2SO4/WC_OH=0.0
-!
-!WR_H2SO4/WC_HO2=0.0
-!
-!WR_H2SO4/WC_CO2=0.0
-!
-!WR_H2SO4/WC_SO2=0.0
-!
-!WR_H2SO4/WC_H2SO4=0.0
-!
-!WR_H2SO4/WC_RO21=0.0
-!
-!WR_H2SO4/WC_RO25=0.0
-!
-!WR_H2SO4/WC_MEOH=0.0
-!
-!WR_H2SO4/WC_ETOH=0.0
-!
-!WR_H2SO4/WC_ALCH=0.0
-!
-!WR_H2SO4/WC_HCHO=0.0
-!
-!WR_H2SO4/WC_ALD2=0.0
-!
-!WR_H2SO4/WC_GLY=0.0
-!
-!WR_H2SO4/WC_MGLY=0.0
-!
-!WR_H2SO4/WC_KETL=0.0
-!
-!WR_H2SO4/WC_ORA1=0.0
-!
-!WR_H2SO4/WC_ORA2=0.0
-!
-!WR_H2SO4/WC_ACID=0.0
-!
-!WR_H2SO4/WC_RP16=0.0
-!
-!WR_H2SO4/WC_UR21=0.0
-!
-!WR_H2SO4/WC_UR28=0.0
-!
-!WR_H2SO4/WC_ACID2=0.0
-!
-!WR_H2SO4/WC_ASO3=0.0
-!
-!WR_H2SO4/WC_ASO4=0.0
-!
-!WR_H2SO4/WC_ASO5=0.0
-!
-!WR_H2SO4/WC_AHSO5=0.0
-!
-!WR_H2SO4/WC_AHMS=0.0
-!
-!WR_H2SO4/WR_O3=+KR25*<WR_SO2>
- PJAC(:,139,125)=+TPK%KR25(:)*PCONC(:,138)
-!
-!WR_H2SO4/WR_H2O2=+KR26*<WR_SO2>
- PJAC(:,139,126)=+TPK%KR26(:)*PCONC(:,138)
-!
-!WR_H2SO4/WR_NO=0.0
-!
-!WR_H2SO4/WR_NO2=0.0
-!
-!WR_H2SO4/WR_NO3=-KR15*<WR_H2SO4>
- PJAC(:,139,129)=-TPK%KR15(:)*PCONC(:,139)
-!
-!WR_H2SO4/WR_N2O5=0.0
-!
-!WR_H2SO4/WR_HONO=0.0
-!
-!WR_H2SO4/WR_HNO3=0.0
-!
-!WR_H2SO4/WR_HNO4=+KR12*<WR_SO2>
- PJAC(:,139,133)=+TPK%KR12(:)*PCONC(:,138)
-!
-!WR_H2SO4/WR_NH3=0.0
-!
-!WR_H2SO4/WR_OH=0.0
-!
-!WR_H2SO4/WR_HO2=0.0
-!
-!WR_H2SO4/WR_CO2=0.0
-!
-!WR_H2SO4/WR_SO2=+KR12*<WR_HNO4>+2.00*KR23*<WR_AHSO5>+KR25*<WR_O3>+KR26*<WR_H2O
-!2>
- PJAC(:,139,138)=+TPK%KR12(:)*PCONC(:,133)+2.00*TPK%KR23(:)*PCONC(:,160)+TPK%KR&
-&25(:)*PCONC(:,125)+TPK%KR26(:)*PCONC(:,126)
-!
-!WR_H2SO4/WR_H2SO4=-KTR46-KR15*<WR_NO3>
- PJAC(:,139,139)=-TPK%KTR46(:)-TPK%KR15(:)*PCONC(:,129)
-!
-!WR_H2SO4/WR_RO21=0.0
-!
-!WR_H2SO4/WR_RO25=0.0
-!
-!WR_H2SO4/WR_MEOH=0.0
-!
-!WR_H2SO4/WR_ETOH=0.0
-!
-!WR_H2SO4/WR_ALCH=0.0
-!
-!WR_H2SO4/WR_HCHO=0.0
-!
-!WR_H2SO4/WR_ALD2=0.0
-!
-!WR_H2SO4/WR_GLY=0.0
-!
-!WR_H2SO4/WR_MGLY=0.0
-!
-!WR_H2SO4/WR_KETL=0.0
-!
-!WR_H2SO4/WR_ORA1=0.0
-!
-!WR_H2SO4/WR_ORA2=0.0
-!
-!WR_H2SO4/WR_ACID=0.0
-!
-!WR_H2SO4/WR_RP16=0.0
-!
-!WR_H2SO4/WR_UR21=0.0
-!
-!WR_H2SO4/WR_UR28=0.0
-!
-!WR_H2SO4/WR_ACID2=0.0
-!
-!WR_H2SO4/WR_ASO3=0.0
-!
-!WR_H2SO4/WR_ASO4=+KR24
- PJAC(:,139,158)=+TPK%KR24(:)
-!
-!WR_H2SO4/WR_ASO5=0.0
-!
-!WR_H2SO4/WR_AHSO5=+2.00*KR23*<WR_SO2>
- PJAC(:,139,160)=+2.00*TPK%KR23(:)*PCONC(:,138)
-!
-!WR_H2SO4/WR_AHMS=0.0
-!
-!WR_RO21/NO=0.0
-!
-!WR_RO21/NO2=0.0
-!
-!WR_RO21/O3=0.0
-!
-!WR_RO21/HONO=0.0
-!
-!WR_RO21/HNO3=0.0
-!
-!WR_RO21/HNO4=0.0
-!
-!WR_RO21/N2O5=0.0
-!
-!WR_RO21/NO3=0.0
-!
-!WR_RO21/NH3=0.0
-!
-!WR_RO21/HO2=0.0
-!
-!WR_RO21/CO=0.0
-!
-!WR_RO21/H2O2=0.0
-!
-!WR_RO21/SO2=0.0
-!
-!WR_RO21/H2SO4=0.0
-!
-!WR_RO21/OH=0.0
-!
-!WR_RO21/ETHE=0.0
-!
-!WR_RO21/OLEL=0.0
-!
-!WR_RO21/OLEH=0.0
-!
-!WR_RO21/ALKL=0.0
-!
-!WR_RO21/ALKM=0.0
-!
-!WR_RO21/ALKH=0.0
-!
-!WR_RO21/AROH=0.0
-!
-!WR_RO21/AROL=0.0
-!
-!WR_RO21/AROO=0.0
-!
-!WR_RO21/ARAL=0.0
-!
-!WR_RO21/ARAC=0.0
-!
-!WR_RO21/PAH=0.0
-!
-!WR_RO21/HCHO=0.0
-!
-!WR_RO21/ALD2=0.0
-!
-!WR_RO21/KETL=0.0
-!
-!WR_RO21/KETH=0.0
-!
-!WR_RO21/MEOH=0.0
-!
-!WR_RO21/ETOH=0.0
-!
-!WR_RO21/ALCH=0.0
-!
-!WR_RO21/ISOP=0.0
-!
-!WR_RO21/BIOL=0.0
-!
-!WR_RO21/BIOH=0.0
-!
-!WR_RO21/MTBE=0.0
-!
-!WR_RO21/MVK=0.0
-!
-!WR_RO21/MCR=0.0
-!
-!WR_RO21/MGLY=0.0
-!
-!WR_RO21/GLY=0.0
-!
-!WR_RO21/ORA1=0.0
-!
-!WR_RO21/ORA2=0.0
-!
-!WR_RO21/ACID=0.0
-!
-!WR_RO21/UR28=0.0
-!
-!WR_RO21/UR21=0.0
-!
-!WR_RO21/URG2=0.0
-!
-!WR_RO21/UR26=0.0
-!
-!WR_RO21/RPG2=0.0
-!
-!WR_RO21/RP18=0.0
-!
-!WR_RO21/RPG3=0.0
-!
-!WR_RO21/URG4=0.0
-!
-!WR_RO21/UR8=0.0
-!
-!WR_RO21/UR17=0.0
-!
-!WR_RO21/UR7=0.0
-!
-!WR_RO21/RPR3=0.0
-!
-!WR_RO21/URG6=0.0
-!
-!WR_RO21/UR22=0.0
-!
-!WR_RO21/URG7=0.0
-!
-!WR_RO21/RPR4=0.0
-!
-!WR_RO21/RPR7=0.0
-!
-!WR_RO21/RPG7=0.0
-!
-!WR_RO21/URG8=0.0
-!
-!WR_RO21/UR19=0.0
-!
-!WR_RO21/URG9=0.0
-!
-!WR_RO21/AP7=0.0
-!
-!WR_RO21/URG10=0.0
-!
-!WR_RO21/RPR1=0.0
-!
-!WR_RO21/RPR5=0.0
-!
-!WR_RO21/RPR8=0.0
-!
-!WR_RO21/RP10=0.0
-!
-!WR_RO21/RP11=0.0
-!
-!WR_RO21/RP16=0.0
-!
-!WR_RO21/RPRL=0.0
-!
-!WR_RO21/APAN=0.0
-!
-!WR_RO21/PAN1=0.0
-!
-!WR_RO21/PAN2=0.0
-!
-!WR_RO21/PAN3=0.0
-!
-!WR_RO21/PAN4=0.0
-!
-!WR_RO21/PAN6=0.0
-!
-!WR_RO21/PAN7=0.0
-!
-!WR_RO21/PAN8=0.0
-!
-!WR_RO21/PN10=0.0
-!
-!WR_RO21/RO2T=0.0
-!
-!WR_RO21/RO21=+KTR16
- PJAC(:,140,86)=+TPK%KTR16(:)
-!
-!WR_RO21/RO25=0.0
-!
-!WR_RO21/WC_O3=0.0
-!
-!WR_RO21/WC_H2O2=0.0
-!
-!WR_RO21/WC_NO=0.0
-!
-!WR_RO21/WC_NO2=0.0
-!
-!WR_RO21/WC_NO3=0.0
-!
-!WR_RO21/WC_N2O5=0.0
-!
-!WR_RO21/WC_HONO=0.0
-!
-!WR_RO21/WC_HNO3=0.0
-!
-!WR_RO21/WC_HNO4=0.0
-!
-!WR_RO21/WC_NH3=0.0
-!
-!WR_RO21/WC_OH=0.0
-!
-!WR_RO21/WC_HO2=0.0
-!
-!WR_RO21/WC_CO2=0.0
-!
-!WR_RO21/WC_SO2=0.0
-!
-!WR_RO21/WC_H2SO4=0.0
-!
-!WR_RO21/WC_RO21=0.0
-!
-!WR_RO21/WC_RO25=0.0
-!
-!WR_RO21/WC_MEOH=0.0
-!
-!WR_RO21/WC_ETOH=0.0
-!
-!WR_RO21/WC_ALCH=0.0
-!
-!WR_RO21/WC_HCHO=0.0
-!
-!WR_RO21/WC_ALD2=0.0
-!
-!WR_RO21/WC_GLY=0.0
-!
-!WR_RO21/WC_MGLY=0.0
-!
-!WR_RO21/WC_KETL=0.0
-!
-!WR_RO21/WC_ORA1=0.0
-!
-!WR_RO21/WC_ORA2=0.0
-!
-!WR_RO21/WC_ACID=0.0
-!
-!WR_RO21/WC_RP16=0.0
-!
-!WR_RO21/WC_UR21=0.0
-!
-!WR_RO21/WC_UR28=0.0
-!
-!WR_RO21/WC_ACID2=0.0
-!
-!WR_RO21/WC_ASO3=0.0
-!
-!WR_RO21/WC_ASO4=0.0
-!
-!WR_RO21/WC_ASO5=0.0
-!
-!WR_RO21/WC_AHSO5=0.0
-!
-!WR_RO21/WC_AHMS=0.0
-!
-!WR_RO21/WR_O3=0.0
-!
-!WR_RO21/WR_H2O2=0.0
-!
-!WR_RO21/WR_NO=0.0
-!
-!WR_RO21/WR_NO2=0.0
-!
-!WR_RO21/WR_NO3=0.0
-!
-!WR_RO21/WR_N2O5=0.0
-!
-!WR_RO21/WR_HONO=0.0
-!
-!WR_RO21/WR_HNO3=0.0
-!
-!WR_RO21/WR_HNO4=0.0
-!
-!WR_RO21/WR_NH3=0.0
-!
-!WR_RO21/WR_OH=+0.50*KR34*<WR_ALD2>+KR37*<WR_KETL>
- PJAC(:,140,135)=+0.50*TPK%KR34(:)*PCONC(:,146)+TPK%KR37(:)*PCONC(:,149)
-!
-!WR_RO21/WR_HO2=0.0
-!
-!WR_RO21/WR_CO2=0.0
-!
-!WR_RO21/WR_SO2=-KR28*<WR_RO21>
- PJAC(:,140,138)=-TPK%KR28(:)*PCONC(:,140)
-!
-!WR_RO21/WR_H2SO4=0.0
-!
-!WR_RO21/WR_RO21=-KTR47-KR27*<WR_RO21>-KR27*<WR_RO21>-KR27*<WR_RO21>-KR27*<WR_R
-!O21>-KR28*<WR_SO2>
- PJAC(:,140,140)=-TPK%KTR47(:)-TPK%KR27(:)*PCONC(:,140)-TPK%KR27(:)*PCONC(:,140&
-&)-TPK%KR27(:)*PCONC(:,140)-TPK%KR27(:)*PCONC(:,140)-TPK%KR28(:)*PCONC(:,138)
-!
-!WR_RO21/WR_RO25=0.0
-!
-!WR_RO21/WR_MEOH=0.0
-!
-!WR_RO21/WR_ETOH=0.0
-!
-!WR_RO21/WR_ALCH=0.0
-!
-!WR_RO21/WR_HCHO=0.0
-!
-!WR_RO21/WR_ALD2=+0.50*KR34*<WR_OH>
- PJAC(:,140,146)=+0.50*TPK%KR34(:)*PCONC(:,135)
-!
-!WR_RO21/WR_GLY=0.0
-!
-!WR_RO21/WR_MGLY=0.0
-!
-!WR_RO21/WR_KETL=+KR37*<WR_OH>
- PJAC(:,140,149)=+TPK%KR37(:)*PCONC(:,135)
-!
-!WR_RO21/WR_ORA1=0.0
-!
-!WR_RO21/WR_ORA2=0.0
-!
-!WR_RO21/WR_ACID=0.0
-!
-!WR_RO21/WR_RP16=0.0
-!
-!WR_RO21/WR_UR21=0.0
-!
-!WR_RO21/WR_UR28=0.0
-!
-!WR_RO21/WR_ACID2=0.0
-!
-!WR_RO21/WR_ASO3=0.0
-!
-!WR_RO21/WR_ASO4=0.0
-!
-!WR_RO21/WR_ASO5=0.0
-!
-!WR_RO21/WR_AHSO5=0.0
-!
-!WR_RO21/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ27
-!
-SUBROUTINE SUBJ28
-!
-!Indices 141 a 145
-!
-!
-!WR_RO25/NO=0.0
-!
-!WR_RO25/NO2=0.0
-!
-!WR_RO25/O3=0.0
-!
-!WR_RO25/HONO=0.0
-!
-!WR_RO25/HNO3=0.0
-!
-!WR_RO25/HNO4=0.0
-!
-!WR_RO25/N2O5=0.0
-!
-!WR_RO25/NO3=0.0
-!
-!WR_RO25/NH3=0.0
-!
-!WR_RO25/HO2=0.0
-!
-!WR_RO25/CO=0.0
-!
-!WR_RO25/H2O2=0.0
-!
-!WR_RO25/SO2=0.0
-!
-!WR_RO25/H2SO4=0.0
-!
-!WR_RO25/OH=0.0
-!
-!WR_RO25/ETHE=0.0
-!
-!WR_RO25/OLEL=0.0
-!
-!WR_RO25/OLEH=0.0
-!
-!WR_RO25/ALKL=0.0
-!
-!WR_RO25/ALKM=0.0
-!
-!WR_RO25/ALKH=0.0
-!
-!WR_RO25/AROH=0.0
-!
-!WR_RO25/AROL=0.0
-!
-!WR_RO25/AROO=0.0
-!
-!WR_RO25/ARAL=0.0
-!
-!WR_RO25/ARAC=0.0
-!
-!WR_RO25/PAH=0.0
-!
-!WR_RO25/HCHO=0.0
-!
-!WR_RO25/ALD2=0.0
-!
-!WR_RO25/KETL=0.0
-!
-!WR_RO25/KETH=0.0
-!
-!WR_RO25/MEOH=0.0
-!
-!WR_RO25/ETOH=0.0
-!
-!WR_RO25/ALCH=0.0
-!
-!WR_RO25/ISOP=0.0
-!
-!WR_RO25/BIOL=0.0
-!
-!WR_RO25/BIOH=0.0
-!
-!WR_RO25/MTBE=0.0
-!
-!WR_RO25/MVK=0.0
-!
-!WR_RO25/MCR=0.0
-!
-!WR_RO25/MGLY=0.0
-!
-!WR_RO25/GLY=0.0
-!
-!WR_RO25/ORA1=0.0
-!
-!WR_RO25/ORA2=0.0
-!
-!WR_RO25/ACID=0.0
-!
-!WR_RO25/UR28=0.0
-!
-!WR_RO25/UR21=0.0
-!
-!WR_RO25/URG2=0.0
-!
-!WR_RO25/UR26=0.0
-!
-!WR_RO25/RPG2=0.0
-!
-!WR_RO25/RP18=0.0
-!
-!WR_RO25/RPG3=0.0
-!
-!WR_RO25/URG4=0.0
-!
-!WR_RO25/UR8=0.0
-!
-!WR_RO25/UR17=0.0
-!
-!WR_RO25/UR7=0.0
-!
-!WR_RO25/RPR3=0.0
-!
-!WR_RO25/URG6=0.0
-!
-!WR_RO25/UR22=0.0
-!
-!WR_RO25/URG7=0.0
-!
-!WR_RO25/RPR4=0.0
-!
-!WR_RO25/RPR7=0.0
-!
-!WR_RO25/RPG7=0.0
-!
-!WR_RO25/URG8=0.0
-!
-!WR_RO25/UR19=0.0
-!
-!WR_RO25/URG9=0.0
-!
-!WR_RO25/AP7=0.0
-!
-!WR_RO25/URG10=0.0
-!
-!WR_RO25/RPR1=0.0
-!
-!WR_RO25/RPR5=0.0
-!
-!WR_RO25/RPR8=0.0
-!
-!WR_RO25/RP10=0.0
-!
-!WR_RO25/RP11=0.0
-!
-!WR_RO25/RP16=0.0
-!
-!WR_RO25/RPRL=0.0
-!
-!WR_RO25/APAN=0.0
-!
-!WR_RO25/PAN1=0.0
-!
-!WR_RO25/PAN2=0.0
-!
-!WR_RO25/PAN3=0.0
-!
-!WR_RO25/PAN4=0.0
-!
-!WR_RO25/PAN6=0.0
-!
-!WR_RO25/PAN7=0.0
-!
-!WR_RO25/PAN8=0.0
-!
-!WR_RO25/PN10=0.0
-!
-!WR_RO25/RO2T=0.0
-!
-!WR_RO25/RO21=0.0
-!
-!WR_RO25/RO25=+KTR17
- PJAC(:,141,87)=+TPK%KTR17(:)
-!
-!WR_RO25/WC_O3=0.0
-!
-!WR_RO25/WC_H2O2=0.0
-!
-!WR_RO25/WC_NO=0.0
-!
-!WR_RO25/WC_NO2=0.0
-!
-!WR_RO25/WC_NO3=0.0
-!
-!WR_RO25/WC_N2O5=0.0
-!
-!WR_RO25/WC_HONO=0.0
-!
-!WR_RO25/WC_HNO3=0.0
-!
-!WR_RO25/WC_HNO4=0.0
-!
-!WR_RO25/WC_NH3=0.0
-!
-!WR_RO25/WC_OH=0.0
-!
-!WR_RO25/WC_HO2=0.0
-!
-!WR_RO25/WC_CO2=0.0
-!
-!WR_RO25/WC_SO2=0.0
-!
-!WR_RO25/WC_H2SO4=0.0
-!
-!WR_RO25/WC_RO21=0.0
-!
-!WR_RO25/WC_RO25=0.0
-!
-!WR_RO25/WC_MEOH=0.0
-!
-!WR_RO25/WC_ETOH=0.0
-!
-!WR_RO25/WC_ALCH=0.0
-!
-!WR_RO25/WC_HCHO=0.0
-!
-!WR_RO25/WC_ALD2=0.0
-!
-!WR_RO25/WC_GLY=0.0
-!
-!WR_RO25/WC_MGLY=0.0
-!
-!WR_RO25/WC_KETL=0.0
-!
-!WR_RO25/WC_ORA1=0.0
-!
-!WR_RO25/WC_ORA2=0.0
-!
-!WR_RO25/WC_ACID=0.0
-!
-!WR_RO25/WC_RP16=0.0
-!
-!WR_RO25/WC_UR21=0.0
-!
-!WR_RO25/WC_UR28=0.0
-!
-!WR_RO25/WC_ACID2=0.0
-!
-!WR_RO25/WC_ASO3=0.0
-!
-!WR_RO25/WC_ASO4=0.0
-!
-!WR_RO25/WC_ASO5=0.0
-!
-!WR_RO25/WC_AHSO5=0.0
-!
-!WR_RO25/WC_AHMS=0.0
-!
-!WR_RO25/WR_O3=0.0
-!
-!WR_RO25/WR_H2O2=0.0
-!
-!WR_RO25/WR_NO=0.0
-!
-!WR_RO25/WR_NO2=0.0
-!
-!WR_RO25/WR_NO3=0.0
-!
-!WR_RO25/WR_N2O5=0.0
-!
-!WR_RO25/WR_HONO=0.0
-!
-!WR_RO25/WR_HNO3=0.0
-!
-!WR_RO25/WR_HNO4=0.0
-!
-!WR_RO25/WR_NH3=0.0
-!
-!WR_RO25/WR_OH=+0.50*KR34*<WR_ALD2>+KR40*<WR_ACID>
- PJAC(:,141,135)=+0.50*TPK%KR34(:)*PCONC(:,146)+TPK%KR40(:)*PCONC(:,152)
-!
-!WR_RO25/WR_HO2=0.0
-!
-!WR_RO25/WR_CO2=0.0
-!
-!WR_RO25/WR_SO2=0.0
-!
-!WR_RO25/WR_H2SO4=0.0
-!
-!WR_RO25/WR_RO21=0.0
-!
-!WR_RO25/WR_RO25=-KTR48-KR29*<WR_RO25>-KR29*<WR_RO25>-KR29*<WR_RO25>-KR29*<WR_R
-!O25>
- PJAC(:,141,141)=-TPK%KTR48(:)-TPK%KR29(:)*PCONC(:,141)-TPK%KR29(:)*PCONC(:,141&
-&)-TPK%KR29(:)*PCONC(:,141)-TPK%KR29(:)*PCONC(:,141)
-!
-!WR_RO25/WR_MEOH=0.0
-!
-!WR_RO25/WR_ETOH=0.0
-!
-!WR_RO25/WR_ALCH=0.0
-!
-!WR_RO25/WR_HCHO=0.0
-!
-!WR_RO25/WR_ALD2=+0.50*KR34*<WR_OH>
- PJAC(:,141,146)=+0.50*TPK%KR34(:)*PCONC(:,135)
-!
-!WR_RO25/WR_GLY=0.0
-!
-!WR_RO25/WR_MGLY=0.0
-!
-!WR_RO25/WR_KETL=0.0
-!
-!WR_RO25/WR_ORA1=0.0
-!
-!WR_RO25/WR_ORA2=0.0
-!
-!WR_RO25/WR_ACID=+KR40*<WR_OH>
- PJAC(:,141,152)=+TPK%KR40(:)*PCONC(:,135)
-!
-!WR_RO25/WR_RP16=0.0
-!
-!WR_RO25/WR_UR21=0.0
-!
-!WR_RO25/WR_UR28=0.0
-!
-!WR_RO25/WR_ACID2=0.0
-!
-!WR_RO25/WR_ASO3=0.0
-!
-!WR_RO25/WR_ASO4=0.0
-!
-!WR_RO25/WR_ASO5=0.0
-!
-!WR_RO25/WR_AHSO5=0.0
-!
-!WR_RO25/WR_AHMS=0.0
-!
-!WR_MEOH/NO=0.0
-!
-!WR_MEOH/NO2=0.0
-!
-!WR_MEOH/O3=0.0
-!
-!WR_MEOH/HONO=0.0
-!
-!WR_MEOH/HNO3=0.0
-!
-!WR_MEOH/HNO4=0.0
-!
-!WR_MEOH/N2O5=0.0
-!
-!WR_MEOH/NO3=0.0
-!
-!WR_MEOH/NH3=0.0
-!
-!WR_MEOH/HO2=0.0
-!
-!WR_MEOH/CO=0.0
-!
-!WR_MEOH/H2O2=0.0
-!
-!WR_MEOH/SO2=0.0
-!
-!WR_MEOH/H2SO4=0.0
-!
-!WR_MEOH/OH=0.0
-!
-!WR_MEOH/ETHE=0.0
-!
-!WR_MEOH/OLEL=0.0
-!
-!WR_MEOH/OLEH=0.0
-!
-!WR_MEOH/ALKL=0.0
-!
-!WR_MEOH/ALKM=0.0
-!
-!WR_MEOH/ALKH=0.0
-!
-!WR_MEOH/AROH=0.0
-!
-!WR_MEOH/AROL=0.0
-!
-!WR_MEOH/AROO=0.0
-!
-!WR_MEOH/ARAL=0.0
-!
-!WR_MEOH/ARAC=0.0
-!
-!WR_MEOH/PAH=0.0
-!
-!WR_MEOH/HCHO=0.0
-!
-!WR_MEOH/ALD2=0.0
-!
-!WR_MEOH/KETL=0.0
-!
-!WR_MEOH/KETH=0.0
-!
-!WR_MEOH/MEOH=+KTR18
- PJAC(:,142,32)=+TPK%KTR18(:)
-!
-!WR_MEOH/ETOH=0.0
-!
-!WR_MEOH/ALCH=0.0
-!
-!WR_MEOH/ISOP=0.0
-!
-!WR_MEOH/BIOL=0.0
-!
-!WR_MEOH/BIOH=0.0
-!
-!WR_MEOH/MTBE=0.0
-!
-!WR_MEOH/MVK=0.0
-!
-!WR_MEOH/MCR=0.0
-!
-!WR_MEOH/MGLY=0.0
-!
-!WR_MEOH/GLY=0.0
-!
-!WR_MEOH/ORA1=0.0
-!
-!WR_MEOH/ORA2=0.0
-!
-!WR_MEOH/ACID=0.0
-!
-!WR_MEOH/UR28=0.0
-!
-!WR_MEOH/UR21=0.0
-!
-!WR_MEOH/URG2=0.0
-!
-!WR_MEOH/UR26=0.0
-!
-!WR_MEOH/RPG2=0.0
-!
-!WR_MEOH/RP18=0.0
-!
-!WR_MEOH/RPG3=0.0
-!
-!WR_MEOH/URG4=0.0
-!
-!WR_MEOH/UR8=0.0
-!
-!WR_MEOH/UR17=0.0
-!
-!WR_MEOH/UR7=0.0
-!
-!WR_MEOH/RPR3=0.0
-!
-!WR_MEOH/URG6=0.0
-!
-!WR_MEOH/UR22=0.0
-!
-!WR_MEOH/URG7=0.0
-!
-!WR_MEOH/RPR4=0.0
-!
-!WR_MEOH/RPR7=0.0
-!
-!WR_MEOH/RPG7=0.0
-!
-!WR_MEOH/URG8=0.0
-!
-!WR_MEOH/UR19=0.0
-!
-!WR_MEOH/URG9=0.0
-!
-!WR_MEOH/AP7=0.0
-!
-!WR_MEOH/URG10=0.0
-!
-!WR_MEOH/RPR1=0.0
-!
-!WR_MEOH/RPR5=0.0
-!
-!WR_MEOH/RPR8=0.0
-!
-!WR_MEOH/RP10=0.0
-!
-!WR_MEOH/RP11=0.0
-!
-!WR_MEOH/RP16=0.0
-!
-!WR_MEOH/RPRL=0.0
-!
-!WR_MEOH/APAN=0.0
-!
-!WR_MEOH/PAN1=0.0
-!
-!WR_MEOH/PAN2=0.0
-!
-!WR_MEOH/PAN3=0.0
-!
-!WR_MEOH/PAN4=0.0
-!
-!WR_MEOH/PAN6=0.0
-!
-!WR_MEOH/PAN7=0.0
-!
-!WR_MEOH/PAN8=0.0
-!
-!WR_MEOH/PN10=0.0
-!
-!WR_MEOH/RO2T=0.0
-!
-!WR_MEOH/RO21=0.0
-!
-!WR_MEOH/RO25=0.0
-!
-!WR_MEOH/WC_O3=0.0
-!
-!WR_MEOH/WC_H2O2=0.0
-!
-!WR_MEOH/WC_NO=0.0
-!
-!WR_MEOH/WC_NO2=0.0
-!
-!WR_MEOH/WC_NO3=0.0
-!
-!WR_MEOH/WC_N2O5=0.0
-!
-!WR_MEOH/WC_HONO=0.0
-!
-!WR_MEOH/WC_HNO3=0.0
-!
-!WR_MEOH/WC_HNO4=0.0
-!
-!WR_MEOH/WC_NH3=0.0
-!
-!WR_MEOH/WC_OH=0.0
-!
-!WR_MEOH/WC_HO2=0.0
-!
-!WR_MEOH/WC_CO2=0.0
-!
-!WR_MEOH/WC_SO2=0.0
-!
-!WR_MEOH/WC_H2SO4=0.0
-!
-!WR_MEOH/WC_RO21=0.0
-!
-!WR_MEOH/WC_RO25=0.0
-!
-!WR_MEOH/WC_MEOH=0.0
-!
-!WR_MEOH/WC_ETOH=0.0
-!
-!WR_MEOH/WC_ALCH=0.0
-!
-!WR_MEOH/WC_HCHO=0.0
-!
-!WR_MEOH/WC_ALD2=0.0
-!
-!WR_MEOH/WC_GLY=0.0
-!
-!WR_MEOH/WC_MGLY=0.0
-!
-!WR_MEOH/WC_KETL=0.0
-!
-!WR_MEOH/WC_ORA1=0.0
-!
-!WR_MEOH/WC_ORA2=0.0
-!
-!WR_MEOH/WC_ACID=0.0
-!
-!WR_MEOH/WC_RP16=0.0
-!
-!WR_MEOH/WC_UR21=0.0
-!
-!WR_MEOH/WC_UR28=0.0
-!
-!WR_MEOH/WC_ACID2=0.0
-!
-!WR_MEOH/WC_ASO3=0.0
-!
-!WR_MEOH/WC_ASO4=0.0
-!
-!WR_MEOH/WC_ASO5=0.0
-!
-!WR_MEOH/WC_AHSO5=0.0
-!
-!WR_MEOH/WC_AHMS=0.0
-!
-!WR_MEOH/WR_O3=0.0
-!
-!WR_MEOH/WR_H2O2=0.0
-!
-!WR_MEOH/WR_NO=0.0
-!
-!WR_MEOH/WR_NO2=0.0
-!
-!WR_MEOH/WR_NO3=0.0
-!
-!WR_MEOH/WR_N2O5=0.0
-!
-!WR_MEOH/WR_HONO=0.0
-!
-!WR_MEOH/WR_HNO3=0.0
-!
-!WR_MEOH/WR_HNO4=0.0
-!
-!WR_MEOH/WR_NH3=0.0
-!
-!WR_MEOH/WR_OH=-KR30*<WR_MEOH>
- PJAC(:,142,135)=-TPK%KR30(:)*PCONC(:,142)
-!
-!WR_MEOH/WR_HO2=0.0
-!
-!WR_MEOH/WR_CO2=0.0
-!
-!WR_MEOH/WR_SO2=0.0
-!
-!WR_MEOH/WR_H2SO4=0.0
-!
-!WR_MEOH/WR_RO21=0.0
-!
-!WR_MEOH/WR_RO25=0.0
-!
-!WR_MEOH/WR_MEOH=-KTR49-KR30*<WR_OH>
- PJAC(:,142,142)=-TPK%KTR49(:)-TPK%KR30(:)*PCONC(:,135)
-!
-!WR_MEOH/WR_ETOH=0.0
-!
-!WR_MEOH/WR_ALCH=0.0
-!
-!WR_MEOH/WR_HCHO=0.0
-!
-!WR_MEOH/WR_ALD2=0.0
-!
-!WR_MEOH/WR_GLY=0.0
-!
-!WR_MEOH/WR_MGLY=0.0
-!
-!WR_MEOH/WR_KETL=0.0
-!
-!WR_MEOH/WR_ORA1=0.0
-!
-!WR_MEOH/WR_ORA2=0.0
-!
-!WR_MEOH/WR_ACID=0.0
-!
-!WR_MEOH/WR_RP16=0.0
-!
-!WR_MEOH/WR_UR21=0.0
-!
-!WR_MEOH/WR_UR28=0.0
-!
-!WR_MEOH/WR_ACID2=0.0
-!
-!WR_MEOH/WR_ASO3=0.0
-!
-!WR_MEOH/WR_ASO4=0.0
-!
-!WR_MEOH/WR_ASO5=0.0
-!
-!WR_MEOH/WR_AHSO5=0.0
-!
-!WR_MEOH/WR_AHMS=0.0
-!
-!WR_ETOH/NO=0.0
-!
-!WR_ETOH/NO2=0.0
-!
-!WR_ETOH/O3=0.0
-!
-!WR_ETOH/HONO=0.0
-!
-!WR_ETOH/HNO3=0.0
-!
-!WR_ETOH/HNO4=0.0
-!
-!WR_ETOH/N2O5=0.0
-!
-!WR_ETOH/NO3=0.0
-!
-!WR_ETOH/NH3=0.0
-!
-!WR_ETOH/HO2=0.0
-!
-!WR_ETOH/CO=0.0
-!
-!WR_ETOH/H2O2=0.0
-!
-!WR_ETOH/SO2=0.0
-!
-!WR_ETOH/H2SO4=0.0
-!
-!WR_ETOH/OH=0.0
-!
-!WR_ETOH/ETHE=0.0
-!
-!WR_ETOH/OLEL=0.0
-!
-!WR_ETOH/OLEH=0.0
-!
-!WR_ETOH/ALKL=0.0
-!
-!WR_ETOH/ALKM=0.0
-!
-!WR_ETOH/ALKH=0.0
-!
-!WR_ETOH/AROH=0.0
-!
-!WR_ETOH/AROL=0.0
-!
-!WR_ETOH/AROO=0.0
-!
-!WR_ETOH/ARAL=0.0
-!
-!WR_ETOH/ARAC=0.0
-!
-!WR_ETOH/PAH=0.0
-!
-!WR_ETOH/HCHO=0.0
-!
-!WR_ETOH/ALD2=0.0
-!
-!WR_ETOH/KETL=0.0
-!
-!WR_ETOH/KETH=0.0
-!
-!WR_ETOH/MEOH=0.0
-!
-!WR_ETOH/ETOH=+KTR19
- PJAC(:,143,33)=+TPK%KTR19(:)
-!
-!WR_ETOH/ALCH=0.0
-!
-!WR_ETOH/ISOP=0.0
-!
-!WR_ETOH/BIOL=0.0
-!
-!WR_ETOH/BIOH=0.0
-!
-!WR_ETOH/MTBE=0.0
-!
-!WR_ETOH/MVK=0.0
-!
-!WR_ETOH/MCR=0.0
-!
-!WR_ETOH/MGLY=0.0
-!
-!WR_ETOH/GLY=0.0
-!
-!WR_ETOH/ORA1=0.0
-!
-!WR_ETOH/ORA2=0.0
-!
-!WR_ETOH/ACID=0.0
-!
-!WR_ETOH/UR28=0.0
-!
-!WR_ETOH/UR21=0.0
-!
-!WR_ETOH/URG2=0.0
-!
-!WR_ETOH/UR26=0.0
-!
-!WR_ETOH/RPG2=0.0
-!
-!WR_ETOH/RP18=0.0
-!
-!WR_ETOH/RPG3=0.0
-!
-!WR_ETOH/URG4=0.0
-!
-!WR_ETOH/UR8=0.0
-!
-!WR_ETOH/UR17=0.0
-!
-!WR_ETOH/UR7=0.0
-!
-!WR_ETOH/RPR3=0.0
-!
-!WR_ETOH/URG6=0.0
-!
-!WR_ETOH/UR22=0.0
-!
-!WR_ETOH/URG7=0.0
-!
-!WR_ETOH/RPR4=0.0
-!
-!WR_ETOH/RPR7=0.0
-!
-!WR_ETOH/RPG7=0.0
-!
-!WR_ETOH/URG8=0.0
-!
-!WR_ETOH/UR19=0.0
-!
-!WR_ETOH/URG9=0.0
-!
-!WR_ETOH/AP7=0.0
-!
-!WR_ETOH/URG10=0.0
-!
-!WR_ETOH/RPR1=0.0
-!
-!WR_ETOH/RPR5=0.0
-!
-!WR_ETOH/RPR8=0.0
-!
-!WR_ETOH/RP10=0.0
-!
-!WR_ETOH/RP11=0.0
-!
-!WR_ETOH/RP16=0.0
-!
-!WR_ETOH/RPRL=0.0
-!
-!WR_ETOH/APAN=0.0
-!
-!WR_ETOH/PAN1=0.0
-!
-!WR_ETOH/PAN2=0.0
-!
-!WR_ETOH/PAN3=0.0
-!
-!WR_ETOH/PAN4=0.0
-!
-!WR_ETOH/PAN6=0.0
-!
-!WR_ETOH/PAN7=0.0
-!
-!WR_ETOH/PAN8=0.0
-!
-!WR_ETOH/PN10=0.0
-!
-!WR_ETOH/RO2T=0.0
-!
-!WR_ETOH/RO21=0.0
-!
-!WR_ETOH/RO25=0.0
-!
-!WR_ETOH/WC_O3=0.0
-!
-!WR_ETOH/WC_H2O2=0.0
-!
-!WR_ETOH/WC_NO=0.0
-!
-!WR_ETOH/WC_NO2=0.0
-!
-!WR_ETOH/WC_NO3=0.0
-!
-!WR_ETOH/WC_N2O5=0.0
-!
-!WR_ETOH/WC_HONO=0.0
-!
-!WR_ETOH/WC_HNO3=0.0
-!
-!WR_ETOH/WC_HNO4=0.0
-!
-!WR_ETOH/WC_NH3=0.0
-!
-!WR_ETOH/WC_OH=0.0
-!
-!WR_ETOH/WC_HO2=0.0
-!
-!WR_ETOH/WC_CO2=0.0
-!
-!WR_ETOH/WC_SO2=0.0
-!
-!WR_ETOH/WC_H2SO4=0.0
-!
-!WR_ETOH/WC_RO21=0.0
-!
-!WR_ETOH/WC_RO25=0.0
-!
-!WR_ETOH/WC_MEOH=0.0
-!
-!WR_ETOH/WC_ETOH=0.0
-!
-!WR_ETOH/WC_ALCH=0.0
-!
-!WR_ETOH/WC_HCHO=0.0
-!
-!WR_ETOH/WC_ALD2=0.0
-!
-!WR_ETOH/WC_GLY=0.0
-!
-!WR_ETOH/WC_MGLY=0.0
-!
-!WR_ETOH/WC_KETL=0.0
-!
-!WR_ETOH/WC_ORA1=0.0
-!
-!WR_ETOH/WC_ORA2=0.0
-!
-!WR_ETOH/WC_ACID=0.0
-!
-!WR_ETOH/WC_RP16=0.0
-!
-!WR_ETOH/WC_UR21=0.0
-!
-!WR_ETOH/WC_UR28=0.0
-!
-!WR_ETOH/WC_ACID2=0.0
-!
-!WR_ETOH/WC_ASO3=0.0
-!
-!WR_ETOH/WC_ASO4=0.0
-!
-!WR_ETOH/WC_ASO5=0.0
-!
-!WR_ETOH/WC_AHSO5=0.0
-!
-!WR_ETOH/WC_AHMS=0.0
-!
-!WR_ETOH/WR_O3=0.0
-!
-!WR_ETOH/WR_H2O2=0.0
-!
-!WR_ETOH/WR_NO=0.0
-!
-!WR_ETOH/WR_NO2=0.0
-!
-!WR_ETOH/WR_NO3=0.0
-!
-!WR_ETOH/WR_N2O5=0.0
-!
-!WR_ETOH/WR_HONO=0.0
-!
-!WR_ETOH/WR_HNO3=0.0
-!
-!WR_ETOH/WR_HNO4=0.0
-!
-!WR_ETOH/WR_NH3=0.0
-!
-!WR_ETOH/WR_OH=-KR31*<WR_ETOH>
- PJAC(:,143,135)=-TPK%KR31(:)*PCONC(:,143)
-!
-!WR_ETOH/WR_HO2=0.0
-!
-!WR_ETOH/WR_CO2=0.0
-!
-!WR_ETOH/WR_SO2=0.0
-!
-!WR_ETOH/WR_H2SO4=0.0
-!
-!WR_ETOH/WR_RO21=0.0
-!
-!WR_ETOH/WR_RO25=0.0
-!
-!WR_ETOH/WR_MEOH=0.0
-!
-!WR_ETOH/WR_ETOH=-KTR50-KR31*<WR_OH>
- PJAC(:,143,143)=-TPK%KTR50(:)-TPK%KR31(:)*PCONC(:,135)
-!
-!WR_ETOH/WR_ALCH=0.0
-!
-!WR_ETOH/WR_HCHO=0.0
-!
-!WR_ETOH/WR_ALD2=0.0
-!
-!WR_ETOH/WR_GLY=0.0
-!
-!WR_ETOH/WR_MGLY=0.0
-!
-!WR_ETOH/WR_KETL=0.0
-!
-!WR_ETOH/WR_ORA1=0.0
-!
-!WR_ETOH/WR_ORA2=0.0
-!
-!WR_ETOH/WR_ACID=0.0
-!
-!WR_ETOH/WR_RP16=0.0
-!
-!WR_ETOH/WR_UR21=0.0
-!
-!WR_ETOH/WR_UR28=0.0
-!
-!WR_ETOH/WR_ACID2=0.0
-!
-!WR_ETOH/WR_ASO3=0.0
-!
-!WR_ETOH/WR_ASO4=0.0
-!
-!WR_ETOH/WR_ASO5=0.0
-!
-!WR_ETOH/WR_AHSO5=0.0
-!
-!WR_ETOH/WR_AHMS=0.0
-!
-!WR_ALCH/NO=0.0
-!
-!WR_ALCH/NO2=0.0
-!
-!WR_ALCH/O3=0.0
-!
-!WR_ALCH/HONO=0.0
-!
-!WR_ALCH/HNO3=0.0
-!
-!WR_ALCH/HNO4=0.0
-!
-!WR_ALCH/N2O5=0.0
-!
-!WR_ALCH/NO3=0.0
-!
-!WR_ALCH/NH3=0.0
-!
-!WR_ALCH/HO2=0.0
-!
-!WR_ALCH/CO=0.0
-!
-!WR_ALCH/H2O2=0.0
-!
-!WR_ALCH/SO2=0.0
-!
-!WR_ALCH/H2SO4=0.0
-!
-!WR_ALCH/OH=0.0
-!
-!WR_ALCH/ETHE=0.0
-!
-!WR_ALCH/OLEL=0.0
-!
-!WR_ALCH/OLEH=0.0
-!
-!WR_ALCH/ALKL=0.0
-!
-!WR_ALCH/ALKM=0.0
-!
-!WR_ALCH/ALKH=0.0
-!
-!WR_ALCH/AROH=0.0
-!
-!WR_ALCH/AROL=0.0
-!
-!WR_ALCH/AROO=0.0
-!
-!WR_ALCH/ARAL=0.0
-!
-!WR_ALCH/ARAC=0.0
-!
-!WR_ALCH/PAH=0.0
-!
-!WR_ALCH/HCHO=0.0
-!
-!WR_ALCH/ALD2=0.0
-!
-!WR_ALCH/KETL=0.0
-!
-!WR_ALCH/KETH=0.0
-!
-!WR_ALCH/MEOH=0.0
-!
-!WR_ALCH/ETOH=0.0
-!
-!WR_ALCH/ALCH=+KTR20
- PJAC(:,144,34)=+TPK%KTR20(:)
-!
-!WR_ALCH/ISOP=0.0
-!
-!WR_ALCH/BIOL=0.0
-!
-!WR_ALCH/BIOH=0.0
-!
-!WR_ALCH/MTBE=0.0
-!
-!WR_ALCH/MVK=0.0
-!
-!WR_ALCH/MCR=0.0
-!
-!WR_ALCH/MGLY=0.0
-!
-!WR_ALCH/GLY=0.0
-!
-!WR_ALCH/ORA1=0.0
-!
-!WR_ALCH/ORA2=0.0
-!
-!WR_ALCH/ACID=0.0
-!
-!WR_ALCH/UR28=0.0
-!
-!WR_ALCH/UR21=0.0
-!
-!WR_ALCH/URG2=0.0
-!
-!WR_ALCH/UR26=0.0
-!
-!WR_ALCH/RPG2=0.0
-!
-!WR_ALCH/RP18=0.0
-!
-!WR_ALCH/RPG3=0.0
-!
-!WR_ALCH/URG4=0.0
-!
-!WR_ALCH/UR8=0.0
-!
-!WR_ALCH/UR17=0.0
-!
-!WR_ALCH/UR7=0.0
-!
-!WR_ALCH/RPR3=0.0
-!
-!WR_ALCH/URG6=0.0
-!
-!WR_ALCH/UR22=0.0
-!
-!WR_ALCH/URG7=0.0
-!
-!WR_ALCH/RPR4=0.0
-!
-!WR_ALCH/RPR7=0.0
-!
-!WR_ALCH/RPG7=0.0
-!
-!WR_ALCH/URG8=0.0
-!
-!WR_ALCH/UR19=0.0
-!
-!WR_ALCH/URG9=0.0
-!
-!WR_ALCH/AP7=0.0
-!
-!WR_ALCH/URG10=0.0
-!
-!WR_ALCH/RPR1=0.0
-!
-!WR_ALCH/RPR5=0.0
-!
-!WR_ALCH/RPR8=0.0
-!
-!WR_ALCH/RP10=0.0
-!
-!WR_ALCH/RP11=0.0
-!
-!WR_ALCH/RP16=0.0
-!
-!WR_ALCH/RPRL=0.0
-!
-!WR_ALCH/APAN=0.0
-!
-!WR_ALCH/PAN1=0.0
-!
-!WR_ALCH/PAN2=0.0
-!
-!WR_ALCH/PAN3=0.0
-!
-!WR_ALCH/PAN4=0.0
-!
-!WR_ALCH/PAN6=0.0
-!
-!WR_ALCH/PAN7=0.0
-!
-!WR_ALCH/PAN8=0.0
-!
-!WR_ALCH/PN10=0.0
-!
-!WR_ALCH/RO2T=0.0
-!
-!WR_ALCH/RO21=0.0
-!
-!WR_ALCH/RO25=0.0
-!
-!WR_ALCH/WC_O3=0.0
-!
-!WR_ALCH/WC_H2O2=0.0
-!
-!WR_ALCH/WC_NO=0.0
-!
-!WR_ALCH/WC_NO2=0.0
-!
-!WR_ALCH/WC_NO3=0.0
-!
-!WR_ALCH/WC_N2O5=0.0
-!
-!WR_ALCH/WC_HONO=0.0
-!
-!WR_ALCH/WC_HNO3=0.0
-!
-!WR_ALCH/WC_HNO4=0.0
-!
-!WR_ALCH/WC_NH3=0.0
-!
-!WR_ALCH/WC_OH=0.0
-!
-!WR_ALCH/WC_HO2=0.0
-!
-!WR_ALCH/WC_CO2=0.0
-!
-!WR_ALCH/WC_SO2=0.0
-!
-!WR_ALCH/WC_H2SO4=0.0
-!
-!WR_ALCH/WC_RO21=0.0
-!
-!WR_ALCH/WC_RO25=0.0
-!
-!WR_ALCH/WC_MEOH=0.0
-!
-!WR_ALCH/WC_ETOH=0.0
-!
-!WR_ALCH/WC_ALCH=0.0
-!
-!WR_ALCH/WC_HCHO=0.0
-!
-!WR_ALCH/WC_ALD2=0.0
-!
-!WR_ALCH/WC_GLY=0.0
-!
-!WR_ALCH/WC_MGLY=0.0
-!
-!WR_ALCH/WC_KETL=0.0
-!
-!WR_ALCH/WC_ORA1=0.0
-!
-!WR_ALCH/WC_ORA2=0.0
-!
-!WR_ALCH/WC_ACID=0.0
-!
-!WR_ALCH/WC_RP16=0.0
-!
-!WR_ALCH/WC_UR21=0.0
-!
-!WR_ALCH/WC_UR28=0.0
-!
-!WR_ALCH/WC_ACID2=0.0
-!
-!WR_ALCH/WC_ASO3=0.0
-!
-!WR_ALCH/WC_ASO4=0.0
-!
-!WR_ALCH/WC_ASO5=0.0
-!
-!WR_ALCH/WC_AHSO5=0.0
-!
-!WR_ALCH/WC_AHMS=0.0
-!
-!WR_ALCH/WR_O3=0.0
-!
-!WR_ALCH/WR_H2O2=0.0
-!
-!WR_ALCH/WR_NO=0.0
-!
-!WR_ALCH/WR_NO2=0.0
-!
-!WR_ALCH/WR_NO3=0.0
-!
-!WR_ALCH/WR_N2O5=0.0
-!
-!WR_ALCH/WR_HONO=0.0
-!
-!WR_ALCH/WR_HNO3=0.0
-!
-!WR_ALCH/WR_HNO4=0.0
-!
-!WR_ALCH/WR_NH3=0.0
-!
-!WR_ALCH/WR_OH=-KR32*<WR_ALCH>
- PJAC(:,144,135)=-TPK%KR32(:)*PCONC(:,144)
-!
-!WR_ALCH/WR_HO2=0.0
-!
-!WR_ALCH/WR_CO2=0.0
-!
-!WR_ALCH/WR_SO2=0.0
-!
-!WR_ALCH/WR_H2SO4=0.0
-!
-!WR_ALCH/WR_RO21=0.0
-!
-!WR_ALCH/WR_RO25=0.0
-!
-!WR_ALCH/WR_MEOH=0.0
-!
-!WR_ALCH/WR_ETOH=0.0
-!
-!WR_ALCH/WR_ALCH=-KTR51-KR32*<WR_OH>
- PJAC(:,144,144)=-TPK%KTR51(:)-TPK%KR32(:)*PCONC(:,135)
-!
-!WR_ALCH/WR_HCHO=0.0
-!
-!WR_ALCH/WR_ALD2=0.0
-!
-!WR_ALCH/WR_GLY=0.0
-!
-!WR_ALCH/WR_MGLY=0.0
-!
-!WR_ALCH/WR_KETL=0.0
-!
-!WR_ALCH/WR_ORA1=0.0
-!
-!WR_ALCH/WR_ORA2=0.0
-!
-!WR_ALCH/WR_ACID=0.0
-!
-!WR_ALCH/WR_RP16=0.0
-!
-!WR_ALCH/WR_UR21=0.0
-!
-!WR_ALCH/WR_UR28=0.0
-!
-!WR_ALCH/WR_ACID2=0.0
-!
-!WR_ALCH/WR_ASO3=0.0
-!
-!WR_ALCH/WR_ASO4=0.0
-!
-!WR_ALCH/WR_ASO5=0.0
-!
-!WR_ALCH/WR_AHSO5=0.0
-!
-!WR_ALCH/WR_AHMS=0.0
-!
-!WR_HCHO/NO=0.0
-!
-!WR_HCHO/NO2=0.0
-!
-!WR_HCHO/O3=0.0
-!
-!WR_HCHO/HONO=0.0
-!
-!WR_HCHO/HNO3=0.0
-!
-!WR_HCHO/HNO4=0.0
-!
-!WR_HCHO/N2O5=0.0
-!
-!WR_HCHO/NO3=0.0
-!
-!WR_HCHO/NH3=0.0
-!
-!WR_HCHO/HO2=0.0
-!
-!WR_HCHO/CO=0.0
-!
-!WR_HCHO/H2O2=0.0
-!
-!WR_HCHO/SO2=0.0
-!
-!WR_HCHO/H2SO4=0.0
-!
-!WR_HCHO/OH=0.0
-!
-!WR_HCHO/ETHE=0.0
-!
-!WR_HCHO/OLEL=0.0
-!
-!WR_HCHO/OLEH=0.0
-!
-!WR_HCHO/ALKL=0.0
-!
-!WR_HCHO/ALKM=0.0
-!
-!WR_HCHO/ALKH=0.0
-!
-!WR_HCHO/AROH=0.0
-!
-!WR_HCHO/AROL=0.0
-!
-!WR_HCHO/AROO=0.0
-!
-!WR_HCHO/ARAL=0.0
-!
-!WR_HCHO/ARAC=0.0
-!
-!WR_HCHO/PAH=0.0
-!
-!WR_HCHO/HCHO=+KTR21
- PJAC(:,145,28)=+TPK%KTR21(:)
-!
-!WR_HCHO/ALD2=0.0
-!
-!WR_HCHO/KETL=0.0
-!
-!WR_HCHO/KETH=0.0
-!
-!WR_HCHO/MEOH=0.0
-!
-!WR_HCHO/ETOH=0.0
-!
-!WR_HCHO/ALCH=0.0
-!
-!WR_HCHO/ISOP=0.0
-!
-!WR_HCHO/BIOL=0.0
-!
-!WR_HCHO/BIOH=0.0
-!
-!WR_HCHO/MTBE=0.0
-!
-!WR_HCHO/MVK=0.0
-!
-!WR_HCHO/MCR=0.0
-!
-!WR_HCHO/MGLY=0.0
-!
-!WR_HCHO/GLY=0.0
-!
-!WR_HCHO/ORA1=0.0
-!
-!WR_HCHO/ORA2=0.0
-!
-!WR_HCHO/ACID=0.0
-!
-!WR_HCHO/UR28=0.0
-!
-!WR_HCHO/UR21=0.0
-!
-!WR_HCHO/URG2=0.0
-!
-!WR_HCHO/UR26=0.0
-!
-!WR_HCHO/RPG2=0.0
-!
-!WR_HCHO/RP18=0.0
-!
-!WR_HCHO/RPG3=0.0
-!
-!WR_HCHO/URG4=0.0
-!
-!WR_HCHO/UR8=0.0
-!
-!WR_HCHO/UR17=0.0
-!
-!WR_HCHO/UR7=0.0
-!
-!WR_HCHO/RPR3=0.0
-!
-!WR_HCHO/URG6=0.0
-!
-!WR_HCHO/UR22=0.0
-!
-!WR_HCHO/URG7=0.0
-!
-!WR_HCHO/RPR4=0.0
-!
-!WR_HCHO/RPR7=0.0
-!
-!WR_HCHO/RPG7=0.0
-!
-!WR_HCHO/URG8=0.0
-!
-!WR_HCHO/UR19=0.0
-!
-!WR_HCHO/URG9=0.0
-!
-!WR_HCHO/AP7=0.0
-!
-!WR_HCHO/URG10=0.0
-!
-!WR_HCHO/RPR1=0.0
-!
-!WR_HCHO/RPR5=0.0
-!
-!WR_HCHO/RPR8=0.0
-!
-!WR_HCHO/RP10=0.0
-!
-!WR_HCHO/RP11=0.0
-!
-!WR_HCHO/RP16=0.0
-!
-!WR_HCHO/RPRL=0.0
-!
-!WR_HCHO/APAN=0.0
-!
-!WR_HCHO/PAN1=0.0
-!
-!WR_HCHO/PAN2=0.0
-!
-!WR_HCHO/PAN3=0.0
-!
-!WR_HCHO/PAN4=0.0
-!
-!WR_HCHO/PAN6=0.0
-!
-!WR_HCHO/PAN7=0.0
-!
-!WR_HCHO/PAN8=0.0
-!
-!WR_HCHO/PN10=0.0
-!
-!WR_HCHO/RO2T=0.0
-!
-!WR_HCHO/RO21=0.0
-!
-!WR_HCHO/RO25=0.0
-!
-!WR_HCHO/WC_O3=0.0
-!
-!WR_HCHO/WC_H2O2=0.0
-!
-!WR_HCHO/WC_NO=0.0
-!
-!WR_HCHO/WC_NO2=0.0
-!
-!WR_HCHO/WC_NO3=0.0
-!
-!WR_HCHO/WC_N2O5=0.0
-!
-!WR_HCHO/WC_HONO=0.0
-!
-!WR_HCHO/WC_HNO3=0.0
-!
-!WR_HCHO/WC_HNO4=0.0
-!
-!WR_HCHO/WC_NH3=0.0
-!
-!WR_HCHO/WC_OH=0.0
-!
-!WR_HCHO/WC_HO2=0.0
-!
-!WR_HCHO/WC_CO2=0.0
-!
-!WR_HCHO/WC_SO2=0.0
-!
-!WR_HCHO/WC_H2SO4=0.0
-!
-!WR_HCHO/WC_RO21=0.0
-!
-!WR_HCHO/WC_RO25=0.0
-!
-!WR_HCHO/WC_MEOH=0.0
-!
-!WR_HCHO/WC_ETOH=0.0
-!
-!WR_HCHO/WC_ALCH=0.0
-!
-!WR_HCHO/WC_HCHO=0.0
-!
-!WR_HCHO/WC_ALD2=0.0
-!
-!WR_HCHO/WC_GLY=0.0
-!
-!WR_HCHO/WC_MGLY=0.0
-!
-!WR_HCHO/WC_KETL=0.0
-!
-!WR_HCHO/WC_ORA1=0.0
-!
-!WR_HCHO/WC_ORA2=0.0
-!
-!WR_HCHO/WC_ACID=0.0
-!
-!WR_HCHO/WC_RP16=0.0
-!
-!WR_HCHO/WC_UR21=0.0
-!
-!WR_HCHO/WC_UR28=0.0
-!
-!WR_HCHO/WC_ACID2=0.0
-!
-!WR_HCHO/WC_ASO3=0.0
-!
-!WR_HCHO/WC_ASO4=0.0
-!
-!WR_HCHO/WC_ASO5=0.0
-!
-!WR_HCHO/WC_AHSO5=0.0
-!
-!WR_HCHO/WC_AHMS=0.0
-!
-!WR_HCHO/WR_O3=0.0
-!
-!WR_HCHO/WR_H2O2=0.0
-!
-!WR_HCHO/WR_NO=0.0
-!
-!WR_HCHO/WR_NO2=0.0
-!
-!WR_HCHO/WR_NO3=0.0
-!
-!WR_HCHO/WR_N2O5=0.0
-!
-!WR_HCHO/WR_HONO=0.0
-!
-!WR_HCHO/WR_HNO3=0.0
-!
-!WR_HCHO/WR_HNO4=0.0
-!
-!WR_HCHO/WR_NH3=0.0
-!
-!WR_HCHO/WR_OH=+KR30*<WR_MEOH>-KR33*<WR_HCHO>+KR37*<WR_KETL>
- PJAC(:,145,135)=+TPK%KR30(:)*PCONC(:,142)-TPK%KR33(:)*PCONC(:,145)+TPK%KR37(:)&
-&*PCONC(:,149)
-!
-!WR_HCHO/WR_HO2=0.0
-!
-!WR_HCHO/WR_CO2=0.0
-!
-!WR_HCHO/WR_SO2=-KR17*<WR_HCHO>+KR28*<WR_RO21>
- PJAC(:,145,138)=-TPK%KR17(:)*PCONC(:,145)+TPK%KR28(:)*PCONC(:,140)
-!
-!WR_HCHO/WR_H2SO4=0.0
-!
-!WR_HCHO/WR_RO21=+2.00*KR27*<WR_RO21>+2.00*KR27*<WR_RO21>+KR28*<WR_SO2>
- PJAC(:,145,140)=+2.00*TPK%KR27(:)*PCONC(:,140)+2.00*TPK%KR27(:)*PCONC(:,140)+T&
-&PK%KR28(:)*PCONC(:,138)
-!
-!WR_HCHO/WR_RO25=0.0
-!
-!WR_HCHO/WR_MEOH=+KR30*<WR_OH>
- PJAC(:,145,142)=+TPK%KR30(:)*PCONC(:,135)
-!
-!WR_HCHO/WR_ETOH=0.0
-!
-!WR_HCHO/WR_ALCH=0.0
-!
-!WR_HCHO/WR_HCHO=-KTR52-KR17*<WR_SO2>-KR33*<WR_OH>
- PJAC(:,145,145)=-TPK%KTR52(:)-TPK%KR17(:)*PCONC(:,138)-TPK%KR33(:)*PCONC(:,135&
-&)
-!
-!WR_HCHO/WR_ALD2=0.0
-!
-!WR_HCHO/WR_GLY=0.0
-!
-!WR_HCHO/WR_MGLY=0.0
-!
-!WR_HCHO/WR_KETL=+KR37*<WR_OH>
- PJAC(:,145,149)=+TPK%KR37(:)*PCONC(:,135)
-!
-!WR_HCHO/WR_ORA1=0.0
-!
-!WR_HCHO/WR_ORA2=0.0
-!
-!WR_HCHO/WR_ACID=0.0
-!
-!WR_HCHO/WR_RP16=0.0
-!
-!WR_HCHO/WR_UR21=0.0
-!
-!WR_HCHO/WR_UR28=0.0
-!
-!WR_HCHO/WR_ACID2=0.0
-!
-!WR_HCHO/WR_ASO3=0.0
-!
-!WR_HCHO/WR_ASO4=0.0
-!
-!WR_HCHO/WR_ASO5=0.0
-!
-!WR_HCHO/WR_AHSO5=0.0
-!
-!WR_HCHO/WR_AHMS=+KR18
- PJAC(:,145,161)=+TPK%KR18(:)
-!
-RETURN
-END SUBROUTINE SUBJ28
-!
-SUBROUTINE SUBJ29
-!
-!Indices 146 a 150
-!
-!
-!WR_ALD2/NO=0.0
-!
-!WR_ALD2/NO2=0.0
-!
-!WR_ALD2/O3=0.0
-!
-!WR_ALD2/HONO=0.0
-!
-!WR_ALD2/HNO3=0.0
-!
-!WR_ALD2/HNO4=0.0
-!
-!WR_ALD2/N2O5=0.0
-!
-!WR_ALD2/NO3=0.0
-!
-!WR_ALD2/NH3=0.0
-!
-!WR_ALD2/HO2=0.0
-!
-!WR_ALD2/CO=0.0
-!
-!WR_ALD2/H2O2=0.0
-!
-!WR_ALD2/SO2=0.0
-!
-!WR_ALD2/H2SO4=0.0
-!
-!WR_ALD2/OH=0.0
-!
-!WR_ALD2/ETHE=0.0
-!
-!WR_ALD2/OLEL=0.0
-!
-!WR_ALD2/OLEH=0.0
-!
-!WR_ALD2/ALKL=0.0
-!
-!WR_ALD2/ALKM=0.0
-!
-!WR_ALD2/ALKH=0.0
-!
-!WR_ALD2/AROH=0.0
-!
-!WR_ALD2/AROL=0.0
-!
-!WR_ALD2/AROO=0.0
-!
-!WR_ALD2/ARAL=0.0
-!
-!WR_ALD2/ARAC=0.0
-!
-!WR_ALD2/PAH=0.0
-!
-!WR_ALD2/HCHO=0.0
-!
-!WR_ALD2/ALD2=+KTR22
- PJAC(:,146,29)=+TPK%KTR22(:)
-!
-!WR_ALD2/KETL=0.0
-!
-!WR_ALD2/KETH=0.0
-!
-!WR_ALD2/MEOH=0.0
-!
-!WR_ALD2/ETOH=0.0
-!
-!WR_ALD2/ALCH=0.0
-!
-!WR_ALD2/ISOP=0.0
-!
-!WR_ALD2/BIOL=0.0
-!
-!WR_ALD2/BIOH=0.0
-!
-!WR_ALD2/MTBE=0.0
-!
-!WR_ALD2/MVK=0.0
-!
-!WR_ALD2/MCR=0.0
-!
-!WR_ALD2/MGLY=0.0
-!
-!WR_ALD2/GLY=0.0
-!
-!WR_ALD2/ORA1=0.0
-!
-!WR_ALD2/ORA2=0.0
-!
-!WR_ALD2/ACID=0.0
-!
-!WR_ALD2/UR28=0.0
-!
-!WR_ALD2/UR21=0.0
-!
-!WR_ALD2/URG2=0.0
-!
-!WR_ALD2/UR26=0.0
-!
-!WR_ALD2/RPG2=0.0
-!
-!WR_ALD2/RP18=0.0
-!
-!WR_ALD2/RPG3=0.0
-!
-!WR_ALD2/URG4=0.0
-!
-!WR_ALD2/UR8=0.0
-!
-!WR_ALD2/UR17=0.0
-!
-!WR_ALD2/UR7=0.0
-!
-!WR_ALD2/RPR3=0.0
-!
-!WR_ALD2/URG6=0.0
-!
-!WR_ALD2/UR22=0.0
-!
-!WR_ALD2/URG7=0.0
-!
-!WR_ALD2/RPR4=0.0
-!
-!WR_ALD2/RPR7=0.0
-!
-!WR_ALD2/RPG7=0.0
-!
-!WR_ALD2/URG8=0.0
-!
-!WR_ALD2/UR19=0.0
-!
-!WR_ALD2/URG9=0.0
-!
-!WR_ALD2/AP7=0.0
-!
-!WR_ALD2/URG10=0.0
-!
-!WR_ALD2/RPR1=0.0
-!
-!WR_ALD2/RPR5=0.0
-!
-!WR_ALD2/RPR8=0.0
-!
-!WR_ALD2/RP10=0.0
-!
-!WR_ALD2/RP11=0.0
-!
-!WR_ALD2/RP16=0.0
-!
-!WR_ALD2/RPRL=0.0
-!
-!WR_ALD2/APAN=0.0
-!
-!WR_ALD2/PAN1=0.0
-!
-!WR_ALD2/PAN2=0.0
-!
-!WR_ALD2/PAN3=0.0
-!
-!WR_ALD2/PAN4=0.0
-!
-!WR_ALD2/PAN6=0.0
-!
-!WR_ALD2/PAN7=0.0
-!
-!WR_ALD2/PAN8=0.0
-!
-!WR_ALD2/PN10=0.0
-!
-!WR_ALD2/RO2T=0.0
-!
-!WR_ALD2/RO21=0.0
-!
-!WR_ALD2/RO25=0.0
-!
-!WR_ALD2/WC_O3=0.0
-!
-!WR_ALD2/WC_H2O2=0.0
-!
-!WR_ALD2/WC_NO=0.0
-!
-!WR_ALD2/WC_NO2=0.0
-!
-!WR_ALD2/WC_NO3=0.0
-!
-!WR_ALD2/WC_N2O5=0.0
-!
-!WR_ALD2/WC_HONO=0.0
-!
-!WR_ALD2/WC_HNO3=0.0
-!
-!WR_ALD2/WC_HNO4=0.0
-!
-!WR_ALD2/WC_NH3=0.0
-!
-!WR_ALD2/WC_OH=0.0
-!
-!WR_ALD2/WC_HO2=0.0
-!
-!WR_ALD2/WC_CO2=0.0
-!
-!WR_ALD2/WC_SO2=0.0
-!
-!WR_ALD2/WC_H2SO4=0.0
-!
-!WR_ALD2/WC_RO21=0.0
-!
-!WR_ALD2/WC_RO25=0.0
-!
-!WR_ALD2/WC_MEOH=0.0
-!
-!WR_ALD2/WC_ETOH=0.0
-!
-!WR_ALD2/WC_ALCH=0.0
-!
-!WR_ALD2/WC_HCHO=0.0
-!
-!WR_ALD2/WC_ALD2=0.0
-!
-!WR_ALD2/WC_GLY=0.0
-!
-!WR_ALD2/WC_MGLY=0.0
-!
-!WR_ALD2/WC_KETL=0.0
-!
-!WR_ALD2/WC_ORA1=0.0
-!
-!WR_ALD2/WC_ORA2=0.0
-!
-!WR_ALD2/WC_ACID=0.0
-!
-!WR_ALD2/WC_RP16=0.0
-!
-!WR_ALD2/WC_UR21=0.0
-!
-!WR_ALD2/WC_UR28=0.0
-!
-!WR_ALD2/WC_ACID2=0.0
-!
-!WR_ALD2/WC_ASO3=0.0
-!
-!WR_ALD2/WC_ASO4=0.0
-!
-!WR_ALD2/WC_ASO5=0.0
-!
-!WR_ALD2/WC_AHSO5=0.0
-!
-!WR_ALD2/WC_AHMS=0.0
-!
-!WR_ALD2/WR_O3=0.0
-!
-!WR_ALD2/WR_H2O2=0.0
-!
-!WR_ALD2/WR_NO=0.0
-!
-!WR_ALD2/WR_NO2=0.0
-!
-!WR_ALD2/WR_NO3=0.0
-!
-!WR_ALD2/WR_N2O5=0.0
-!
-!WR_ALD2/WR_HONO=0.0
-!
-!WR_ALD2/WR_HNO3=0.0
-!
-!WR_ALD2/WR_HNO4=0.0
-!
-!WR_ALD2/WR_NH3=0.0
-!
-!WR_ALD2/WR_OH=+KR31*<WR_ETOH>+0.50*KR32*<WR_ALCH>-KR34*<WR_ALD2>+KR37*<WR_KETL
-!>+0.29*KR41*<WR_ACID>+0.43*KR43*<WR_UR21>
- PJAC(:,146,135)=+TPK%KR31(:)*PCONC(:,143)+0.50*TPK%KR32(:)*PCONC(:,144)-TPK%KR&
-&34(:)*PCONC(:,146)+TPK%KR37(:)*PCONC(:,149)+0.29*TPK%KR41(:)*PCONC(:,152)+0.43&
-&*TPK%KR43(:)*PCONC(:,154)
-!
-!WR_ALD2/WR_HO2=0.0
-!
-!WR_ALD2/WR_CO2=0.0
-!
-!WR_ALD2/WR_SO2=0.0
-!
-!WR_ALD2/WR_H2SO4=0.0
-!
-!WR_ALD2/WR_RO21=0.0
-!
-!WR_ALD2/WR_RO25=+KR29*<WR_RO25>+KR29*<WR_RO25>
- PJAC(:,146,141)=+TPK%KR29(:)*PCONC(:,141)+TPK%KR29(:)*PCONC(:,141)
-!
-!WR_ALD2/WR_MEOH=0.0
-!
-!WR_ALD2/WR_ETOH=+KR31*<WR_OH>
- PJAC(:,146,143)=+TPK%KR31(:)*PCONC(:,135)
-!
-!WR_ALD2/WR_ALCH=+0.50*KR32*<WR_OH>
- PJAC(:,146,144)=+0.50*TPK%KR32(:)*PCONC(:,135)
-!
-!WR_ALD2/WR_HCHO=0.0
-!
-!WR_ALD2/WR_ALD2=-KTR53-KR34*<WR_OH>
- PJAC(:,146,146)=-TPK%KTR53(:)-TPK%KR34(:)*PCONC(:,135)
-!
-!WR_ALD2/WR_GLY=0.0
-!
-!WR_ALD2/WR_MGLY=0.0
-!
-!WR_ALD2/WR_KETL=+KR37*<WR_OH>
- PJAC(:,146,149)=+TPK%KR37(:)*PCONC(:,135)
-!
-!WR_ALD2/WR_ORA1=0.0
-!
-!WR_ALD2/WR_ORA2=0.0
-!
-!WR_ALD2/WR_ACID=+0.29*KR41*<WR_OH>
- PJAC(:,146,152)=+0.29*TPK%KR41(:)*PCONC(:,135)
-!
-!WR_ALD2/WR_RP16=0.0
-!
-!WR_ALD2/WR_UR21=+0.43*KR43*<WR_OH>
- PJAC(:,146,154)=+0.43*TPK%KR43(:)*PCONC(:,135)
-!
-!WR_ALD2/WR_UR28=0.0
-!
-!WR_ALD2/WR_ACID2=0.0
-!
-!WR_ALD2/WR_ASO3=0.0
-!
-!WR_ALD2/WR_ASO4=0.0
-!
-!WR_ALD2/WR_ASO5=0.0
-!
-!WR_ALD2/WR_AHSO5=0.0
-!
-!WR_ALD2/WR_AHMS=0.0
-!
-!WR_GLY/NO=0.0
-!
-!WR_GLY/NO2=0.0
-!
-!WR_GLY/O3=0.0
-!
-!WR_GLY/HONO=0.0
-!
-!WR_GLY/HNO3=0.0
-!
-!WR_GLY/HNO4=0.0
-!
-!WR_GLY/N2O5=0.0
-!
-!WR_GLY/NO3=0.0
-!
-!WR_GLY/NH3=0.0
-!
-!WR_GLY/HO2=0.0
-!
-!WR_GLY/CO=0.0
-!
-!WR_GLY/H2O2=0.0
-!
-!WR_GLY/SO2=0.0
-!
-!WR_GLY/H2SO4=0.0
-!
-!WR_GLY/OH=0.0
-!
-!WR_GLY/ETHE=0.0
-!
-!WR_GLY/OLEL=0.0
-!
-!WR_GLY/OLEH=0.0
-!
-!WR_GLY/ALKL=0.0
-!
-!WR_GLY/ALKM=0.0
-!
-!WR_GLY/ALKH=0.0
-!
-!WR_GLY/AROH=0.0
-!
-!WR_GLY/AROL=0.0
-!
-!WR_GLY/AROO=0.0
-!
-!WR_GLY/ARAL=0.0
-!
-!WR_GLY/ARAC=0.0
-!
-!WR_GLY/PAH=0.0
-!
-!WR_GLY/HCHO=0.0
-!
-!WR_GLY/ALD2=0.0
-!
-!WR_GLY/KETL=0.0
-!
-!WR_GLY/KETH=0.0
-!
-!WR_GLY/MEOH=0.0
-!
-!WR_GLY/ETOH=0.0
-!
-!WR_GLY/ALCH=0.0
-!
-!WR_GLY/ISOP=0.0
-!
-!WR_GLY/BIOL=0.0
-!
-!WR_GLY/BIOH=0.0
-!
-!WR_GLY/MTBE=0.0
-!
-!WR_GLY/MVK=0.0
-!
-!WR_GLY/MCR=0.0
-!
-!WR_GLY/MGLY=0.0
-!
-!WR_GLY/GLY=+KTR23
- PJAC(:,147,42)=+TPK%KTR23(:)
-!
-!WR_GLY/ORA1=0.0
-!
-!WR_GLY/ORA2=0.0
-!
-!WR_GLY/ACID=0.0
-!
-!WR_GLY/UR28=0.0
-!
-!WR_GLY/UR21=0.0
-!
-!WR_GLY/URG2=0.0
-!
-!WR_GLY/UR26=0.0
-!
-!WR_GLY/RPG2=0.0
-!
-!WR_GLY/RP18=0.0
-!
-!WR_GLY/RPG3=0.0
-!
-!WR_GLY/URG4=0.0
-!
-!WR_GLY/UR8=0.0
-!
-!WR_GLY/UR17=0.0
-!
-!WR_GLY/UR7=0.0
-!
-!WR_GLY/RPR3=0.0
-!
-!WR_GLY/URG6=0.0
-!
-!WR_GLY/UR22=0.0
-!
-!WR_GLY/URG7=0.0
-!
-!WR_GLY/RPR4=0.0
-!
-!WR_GLY/RPR7=0.0
-!
-!WR_GLY/RPG7=0.0
-!
-!WR_GLY/URG8=0.0
-!
-!WR_GLY/UR19=0.0
-!
-!WR_GLY/URG9=0.0
-!
-!WR_GLY/AP7=0.0
-!
-!WR_GLY/URG10=0.0
-!
-!WR_GLY/RPR1=0.0
-!
-!WR_GLY/RPR5=0.0
-!
-!WR_GLY/RPR8=0.0
-!
-!WR_GLY/RP10=0.0
-!
-!WR_GLY/RP11=0.0
-!
-!WR_GLY/RP16=0.0
-!
-!WR_GLY/RPRL=0.0
-!
-!WR_GLY/APAN=0.0
-!
-!WR_GLY/PAN1=0.0
-!
-!WR_GLY/PAN2=0.0
-!
-!WR_GLY/PAN3=0.0
-!
-!WR_GLY/PAN4=0.0
-!
-!WR_GLY/PAN6=0.0
-!
-!WR_GLY/PAN7=0.0
-!
-!WR_GLY/PAN8=0.0
-!
-!WR_GLY/PN10=0.0
-!
-!WR_GLY/RO2T=0.0
-!
-!WR_GLY/RO21=0.0
-!
-!WR_GLY/RO25=0.0
-!
-!WR_GLY/WC_O3=0.0
-!
-!WR_GLY/WC_H2O2=0.0
-!
-!WR_GLY/WC_NO=0.0
-!
-!WR_GLY/WC_NO2=0.0
-!
-!WR_GLY/WC_NO3=0.0
-!
-!WR_GLY/WC_N2O5=0.0
-!
-!WR_GLY/WC_HONO=0.0
-!
-!WR_GLY/WC_HNO3=0.0
-!
-!WR_GLY/WC_HNO4=0.0
-!
-!WR_GLY/WC_NH3=0.0
-!
-!WR_GLY/WC_OH=0.0
-!
-!WR_GLY/WC_HO2=0.0
-!
-!WR_GLY/WC_CO2=0.0
-!
-!WR_GLY/WC_SO2=0.0
-!
-!WR_GLY/WC_H2SO4=0.0
-!
-!WR_GLY/WC_RO21=0.0
-!
-!WR_GLY/WC_RO25=0.0
-!
-!WR_GLY/WC_MEOH=0.0
-!
-!WR_GLY/WC_ETOH=0.0
-!
-!WR_GLY/WC_ALCH=0.0
-!
-!WR_GLY/WC_HCHO=0.0
-!
-!WR_GLY/WC_ALD2=0.0
-!
-!WR_GLY/WC_GLY=0.0
-!
-!WR_GLY/WC_MGLY=0.0
-!
-!WR_GLY/WC_KETL=0.0
-!
-!WR_GLY/WC_ORA1=0.0
-!
-!WR_GLY/WC_ORA2=0.0
-!
-!WR_GLY/WC_ACID=0.0
-!
-!WR_GLY/WC_RP16=0.0
-!
-!WR_GLY/WC_UR21=0.0
-!
-!WR_GLY/WC_UR28=0.0
-!
-!WR_GLY/WC_ACID2=0.0
-!
-!WR_GLY/WC_ASO3=0.0
-!
-!WR_GLY/WC_ASO4=0.0
-!
-!WR_GLY/WC_ASO5=0.0
-!
-!WR_GLY/WC_AHSO5=0.0
-!
-!WR_GLY/WC_AHMS=0.0
-!
-!WR_GLY/WR_O3=0.0
-!
-!WR_GLY/WR_H2O2=0.0
-!
-!WR_GLY/WR_NO=0.0
-!
-!WR_GLY/WR_NO2=0.0
-!
-!WR_GLY/WR_NO3=0.0
-!
-!WR_GLY/WR_N2O5=0.0
-!
-!WR_GLY/WR_HONO=0.0
-!
-!WR_GLY/WR_HNO3=0.0
-!
-!WR_GLY/WR_HNO4=0.0
-!
-!WR_GLY/WR_NH3=0.0
-!
-!WR_GLY/WR_OH=-KR35*<WR_GLY>
- PJAC(:,147,135)=-TPK%KR35(:)*PCONC(:,147)
-!
-!WR_GLY/WR_HO2=0.0
-!
-!WR_GLY/WR_CO2=0.0
-!
-!WR_GLY/WR_SO2=0.0
-!
-!WR_GLY/WR_H2SO4=0.0
-!
-!WR_GLY/WR_RO21=0.0
-!
-!WR_GLY/WR_RO25=0.0
-!
-!WR_GLY/WR_MEOH=0.0
-!
-!WR_GLY/WR_ETOH=0.0
-!
-!WR_GLY/WR_ALCH=0.0
-!
-!WR_GLY/WR_HCHO=0.0
-!
-!WR_GLY/WR_ALD2=0.0
-!
-!WR_GLY/WR_GLY=-KTR54-KR35*<WR_OH>
- PJAC(:,147,147)=-TPK%KTR54(:)-TPK%KR35(:)*PCONC(:,135)
-!
-!WR_GLY/WR_MGLY=0.0
-!
-!WR_GLY/WR_KETL=0.0
-!
-!WR_GLY/WR_ORA1=0.0
-!
-!WR_GLY/WR_ORA2=0.0
-!
-!WR_GLY/WR_ACID=0.0
-!
-!WR_GLY/WR_RP16=0.0
-!
-!WR_GLY/WR_UR21=0.0
-!
-!WR_GLY/WR_UR28=0.0
-!
-!WR_GLY/WR_ACID2=0.0
-!
-!WR_GLY/WR_ASO3=0.0
-!
-!WR_GLY/WR_ASO4=0.0
-!
-!WR_GLY/WR_ASO5=0.0
-!
-!WR_GLY/WR_AHSO5=0.0
-!
-!WR_GLY/WR_AHMS=0.0
-!
-!WR_MGLY/NO=0.0
-!
-!WR_MGLY/NO2=0.0
-!
-!WR_MGLY/O3=0.0
-!
-!WR_MGLY/HONO=0.0
-!
-!WR_MGLY/HNO3=0.0
-!
-!WR_MGLY/HNO4=0.0
-!
-!WR_MGLY/N2O5=0.0
-!
-!WR_MGLY/NO3=0.0
-!
-!WR_MGLY/NH3=0.0
-!
-!WR_MGLY/HO2=0.0
-!
-!WR_MGLY/CO=0.0
-!
-!WR_MGLY/H2O2=0.0
-!
-!WR_MGLY/SO2=0.0
-!
-!WR_MGLY/H2SO4=0.0
-!
-!WR_MGLY/OH=0.0
-!
-!WR_MGLY/ETHE=0.0
-!
-!WR_MGLY/OLEL=0.0
-!
-!WR_MGLY/OLEH=0.0
-!
-!WR_MGLY/ALKL=0.0
-!
-!WR_MGLY/ALKM=0.0
-!
-!WR_MGLY/ALKH=0.0
-!
-!WR_MGLY/AROH=0.0
-!
-!WR_MGLY/AROL=0.0
-!
-!WR_MGLY/AROO=0.0
-!
-!WR_MGLY/ARAL=0.0
-!
-!WR_MGLY/ARAC=0.0
-!
-!WR_MGLY/PAH=0.0
-!
-!WR_MGLY/HCHO=0.0
-!
-!WR_MGLY/ALD2=0.0
-!
-!WR_MGLY/KETL=0.0
-!
-!WR_MGLY/KETH=0.0
-!
-!WR_MGLY/MEOH=0.0
-!
-!WR_MGLY/ETOH=0.0
-!
-!WR_MGLY/ALCH=0.0
-!
-!WR_MGLY/ISOP=0.0
-!
-!WR_MGLY/BIOL=0.0
-!
-!WR_MGLY/BIOH=0.0
-!
-!WR_MGLY/MTBE=0.0
-!
-!WR_MGLY/MVK=0.0
-!
-!WR_MGLY/MCR=0.0
-!
-!WR_MGLY/MGLY=+KTR25
- PJAC(:,148,41)=+TPK%KTR25(:)
-!
-!WR_MGLY/GLY=0.0
-!
-!WR_MGLY/ORA1=0.0
-!
-!WR_MGLY/ORA2=0.0
-!
-!WR_MGLY/ACID=0.0
-!
-!WR_MGLY/UR28=0.0
-!
-!WR_MGLY/UR21=0.0
-!
-!WR_MGLY/URG2=0.0
-!
-!WR_MGLY/UR26=0.0
-!
-!WR_MGLY/RPG2=0.0
-!
-!WR_MGLY/RP18=0.0
-!
-!WR_MGLY/RPG3=0.0
-!
-!WR_MGLY/URG4=0.0
-!
-!WR_MGLY/UR8=0.0
-!
-!WR_MGLY/UR17=0.0
-!
-!WR_MGLY/UR7=0.0
-!
-!WR_MGLY/RPR3=0.0
-!
-!WR_MGLY/URG6=0.0
-!
-!WR_MGLY/UR22=0.0
-!
-!WR_MGLY/URG7=0.0
-!
-!WR_MGLY/RPR4=0.0
-!
-!WR_MGLY/RPR7=0.0
-!
-!WR_MGLY/RPG7=0.0
-!
-!WR_MGLY/URG8=0.0
-!
-!WR_MGLY/UR19=0.0
-!
-!WR_MGLY/URG9=0.0
-!
-!WR_MGLY/AP7=0.0
-!
-!WR_MGLY/URG10=0.0
-!
-!WR_MGLY/RPR1=0.0
-!
-!WR_MGLY/RPR5=0.0
-!
-!WR_MGLY/RPR8=0.0
-!
-!WR_MGLY/RP10=0.0
-!
-!WR_MGLY/RP11=0.0
-!
-!WR_MGLY/RP16=0.0
-!
-!WR_MGLY/RPRL=0.0
-!
-!WR_MGLY/APAN=0.0
-!
-!WR_MGLY/PAN1=0.0
-!
-!WR_MGLY/PAN2=0.0
-!
-!WR_MGLY/PAN3=0.0
-!
-!WR_MGLY/PAN4=0.0
-!
-!WR_MGLY/PAN6=0.0
-!
-!WR_MGLY/PAN7=0.0
-!
-!WR_MGLY/PAN8=0.0
-!
-!WR_MGLY/PN10=0.0
-!
-!WR_MGLY/RO2T=0.0
-!
-!WR_MGLY/RO21=0.0
-!
-!WR_MGLY/RO25=0.0
-!
-!WR_MGLY/WC_O3=0.0
-!
-!WR_MGLY/WC_H2O2=0.0
-!
-!WR_MGLY/WC_NO=0.0
-!
-!WR_MGLY/WC_NO2=0.0
-!
-!WR_MGLY/WC_NO3=0.0
-!
-!WR_MGLY/WC_N2O5=0.0
-!
-!WR_MGLY/WC_HONO=0.0
-!
-!WR_MGLY/WC_HNO3=0.0
-!
-!WR_MGLY/WC_HNO4=0.0
-!
-!WR_MGLY/WC_NH3=0.0
-!
-!WR_MGLY/WC_OH=0.0
-!
-!WR_MGLY/WC_HO2=0.0
-!
-!WR_MGLY/WC_CO2=0.0
-!
-!WR_MGLY/WC_SO2=0.0
-!
-!WR_MGLY/WC_H2SO4=0.0
-!
-!WR_MGLY/WC_RO21=0.0
-!
-!WR_MGLY/WC_RO25=0.0
-!
-!WR_MGLY/WC_MEOH=0.0
-!
-!WR_MGLY/WC_ETOH=0.0
-!
-!WR_MGLY/WC_ALCH=0.0
-!
-!WR_MGLY/WC_HCHO=0.0
-!
-!WR_MGLY/WC_ALD2=0.0
-!
-!WR_MGLY/WC_GLY=0.0
-!
-!WR_MGLY/WC_MGLY=0.0
-!
-!WR_MGLY/WC_KETL=0.0
-!
-!WR_MGLY/WC_ORA1=0.0
-!
-!WR_MGLY/WC_ORA2=0.0
-!
-!WR_MGLY/WC_ACID=0.0
-!
-!WR_MGLY/WC_RP16=0.0
-!
-!WR_MGLY/WC_UR21=0.0
-!
-!WR_MGLY/WC_UR28=0.0
-!
-!WR_MGLY/WC_ACID2=0.0
-!
-!WR_MGLY/WC_ASO3=0.0
-!
-!WR_MGLY/WC_ASO4=0.0
-!
-!WR_MGLY/WC_ASO5=0.0
-!
-!WR_MGLY/WC_AHSO5=0.0
-!
-!WR_MGLY/WC_AHMS=0.0
-!
-!WR_MGLY/WR_O3=0.0
-!
-!WR_MGLY/WR_H2O2=0.0
-!
-!WR_MGLY/WR_NO=0.0
-!
-!WR_MGLY/WR_NO2=0.0
-!
-!WR_MGLY/WR_NO3=0.0
-!
-!WR_MGLY/WR_N2O5=0.0
-!
-!WR_MGLY/WR_HONO=0.0
-!
-!WR_MGLY/WR_HNO3=0.0
-!
-!WR_MGLY/WR_HNO4=0.0
-!
-!WR_MGLY/WR_NH3=0.0
-!
-!WR_MGLY/WR_OH=-KR36*<WR_MGLY>+KR37*<WR_KETL>
- PJAC(:,148,135)=-TPK%KR36(:)*PCONC(:,148)+TPK%KR37(:)*PCONC(:,149)
-!
-!WR_MGLY/WR_HO2=0.0
-!
-!WR_MGLY/WR_CO2=0.0
-!
-!WR_MGLY/WR_SO2=0.0
-!
-!WR_MGLY/WR_H2SO4=0.0
-!
-!WR_MGLY/WR_RO21=0.0
-!
-!WR_MGLY/WR_RO25=0.0
-!
-!WR_MGLY/WR_MEOH=0.0
-!
-!WR_MGLY/WR_ETOH=0.0
-!
-!WR_MGLY/WR_ALCH=0.0
-!
-!WR_MGLY/WR_HCHO=0.0
-!
-!WR_MGLY/WR_ALD2=0.0
-!
-!WR_MGLY/WR_GLY=0.0
-!
-!WR_MGLY/WR_MGLY=-KTR56-KR36*<WR_OH>
- PJAC(:,148,148)=-TPK%KTR56(:)-TPK%KR36(:)*PCONC(:,135)
-!
-!WR_MGLY/WR_KETL=+KR37*<WR_OH>
- PJAC(:,148,149)=+TPK%KR37(:)*PCONC(:,135)
-!
-!WR_MGLY/WR_ORA1=0.0
-!
-!WR_MGLY/WR_ORA2=0.0
-!
-!WR_MGLY/WR_ACID=0.0
-!
-!WR_MGLY/WR_RP16=0.0
-!
-!WR_MGLY/WR_UR21=0.0
-!
-!WR_MGLY/WR_UR28=0.0
-!
-!WR_MGLY/WR_ACID2=0.0
-!
-!WR_MGLY/WR_ASO3=0.0
-!
-!WR_MGLY/WR_ASO4=0.0
-!
-!WR_MGLY/WR_ASO5=0.0
-!
-!WR_MGLY/WR_AHSO5=0.0
-!
-!WR_MGLY/WR_AHMS=0.0
-!
-!WR_KETL/NO=0.0
-!
-!WR_KETL/NO2=0.0
-!
-!WR_KETL/O3=0.0
-!
-!WR_KETL/HONO=0.0
-!
-!WR_KETL/HNO3=0.0
-!
-!WR_KETL/HNO4=0.0
-!
-!WR_KETL/N2O5=0.0
-!
-!WR_KETL/NO3=0.0
-!
-!WR_KETL/NH3=0.0
-!
-!WR_KETL/HO2=0.0
-!
-!WR_KETL/CO=0.0
-!
-!WR_KETL/H2O2=0.0
-!
-!WR_KETL/SO2=0.0
-!
-!WR_KETL/H2SO4=0.0
-!
-!WR_KETL/OH=0.0
-!
-!WR_KETL/ETHE=0.0
-!
-!WR_KETL/OLEL=0.0
-!
-!WR_KETL/OLEH=0.0
-!
-!WR_KETL/ALKL=0.0
-!
-!WR_KETL/ALKM=0.0
-!
-!WR_KETL/ALKH=0.0
-!
-!WR_KETL/AROH=0.0
-!
-!WR_KETL/AROL=0.0
-!
-!WR_KETL/AROO=0.0
-!
-!WR_KETL/ARAL=0.0
-!
-!WR_KETL/ARAC=0.0
-!
-!WR_KETL/PAH=0.0
-!
-!WR_KETL/HCHO=0.0
-!
-!WR_KETL/ALD2=0.0
-!
-!WR_KETL/KETL=+KTR24
- PJAC(:,149,30)=+TPK%KTR24(:)
-!
-!WR_KETL/KETH=0.0
-!
-!WR_KETL/MEOH=0.0
-!
-!WR_KETL/ETOH=0.0
-!
-!WR_KETL/ALCH=0.0
-!
-!WR_KETL/ISOP=0.0
-!
-!WR_KETL/BIOL=0.0
-!
-!WR_KETL/BIOH=0.0
-!
-!WR_KETL/MTBE=0.0
-!
-!WR_KETL/MVK=0.0
-!
-!WR_KETL/MCR=0.0
-!
-!WR_KETL/MGLY=0.0
-!
-!WR_KETL/GLY=0.0
-!
-!WR_KETL/ORA1=0.0
-!
-!WR_KETL/ORA2=0.0
-!
-!WR_KETL/ACID=0.0
-!
-!WR_KETL/UR28=0.0
-!
-!WR_KETL/UR21=0.0
-!
-!WR_KETL/URG2=0.0
-!
-!WR_KETL/UR26=0.0
-!
-!WR_KETL/RPG2=0.0
-!
-!WR_KETL/RP18=0.0
-!
-!WR_KETL/RPG3=0.0
-!
-!WR_KETL/URG4=0.0
-!
-!WR_KETL/UR8=0.0
-!
-!WR_KETL/UR17=0.0
-!
-!WR_KETL/UR7=0.0
-!
-!WR_KETL/RPR3=0.0
-!
-!WR_KETL/URG6=0.0
-!
-!WR_KETL/UR22=0.0
-!
-!WR_KETL/URG7=0.0
-!
-!WR_KETL/RPR4=0.0
-!
-!WR_KETL/RPR7=0.0
-!
-!WR_KETL/RPG7=0.0
-!
-!WR_KETL/URG8=0.0
-!
-!WR_KETL/UR19=0.0
-!
-!WR_KETL/URG9=0.0
-!
-!WR_KETL/AP7=0.0
-!
-!WR_KETL/URG10=0.0
-!
-!WR_KETL/RPR1=0.0
-!
-!WR_KETL/RPR5=0.0
-!
-!WR_KETL/RPR8=0.0
-!
-!WR_KETL/RP10=0.0
-!
-!WR_KETL/RP11=0.0
-!
-!WR_KETL/RP16=0.0
-!
-!WR_KETL/RPRL=0.0
-!
-!WR_KETL/APAN=0.0
-!
-!WR_KETL/PAN1=0.0
-!
-!WR_KETL/PAN2=0.0
-!
-!WR_KETL/PAN3=0.0
-!
-!WR_KETL/PAN4=0.0
-!
-!WR_KETL/PAN6=0.0
-!
-!WR_KETL/PAN7=0.0
-!
-!WR_KETL/PAN8=0.0
-!
-!WR_KETL/PN10=0.0
-!
-!WR_KETL/RO2T=0.0
-!
-!WR_KETL/RO21=0.0
-!
-!WR_KETL/RO25=0.0
-!
-!WR_KETL/WC_O3=0.0
-!
-!WR_KETL/WC_H2O2=0.0
-!
-!WR_KETL/WC_NO=0.0
-!
-!WR_KETL/WC_NO2=0.0
-!
-!WR_KETL/WC_NO3=0.0
-!
-!WR_KETL/WC_N2O5=0.0
-!
-!WR_KETL/WC_HONO=0.0
-!
-!WR_KETL/WC_HNO3=0.0
-!
-!WR_KETL/WC_HNO4=0.0
-!
-!WR_KETL/WC_NH3=0.0
-!
-!WR_KETL/WC_OH=0.0
-!
-!WR_KETL/WC_HO2=0.0
-!
-!WR_KETL/WC_CO2=0.0
-!
-!WR_KETL/WC_SO2=0.0
-!
-!WR_KETL/WC_H2SO4=0.0
-!
-!WR_KETL/WC_RO21=0.0
-!
-!WR_KETL/WC_RO25=0.0
-!
-!WR_KETL/WC_MEOH=0.0
-!
-!WR_KETL/WC_ETOH=0.0
-!
-!WR_KETL/WC_ALCH=0.0
-!
-!WR_KETL/WC_HCHO=0.0
-!
-!WR_KETL/WC_ALD2=0.0
-!
-!WR_KETL/WC_GLY=0.0
-!
-!WR_KETL/WC_MGLY=0.0
-!
-!WR_KETL/WC_KETL=0.0
-!
-!WR_KETL/WC_ORA1=0.0
-!
-!WR_KETL/WC_ORA2=0.0
-!
-!WR_KETL/WC_ACID=0.0
-!
-!WR_KETL/WC_RP16=0.0
-!
-!WR_KETL/WC_UR21=0.0
-!
-!WR_KETL/WC_UR28=0.0
-!
-!WR_KETL/WC_ACID2=0.0
-!
-!WR_KETL/WC_ASO3=0.0
-!
-!WR_KETL/WC_ASO4=0.0
-!
-!WR_KETL/WC_ASO5=0.0
-!
-!WR_KETL/WC_AHSO5=0.0
-!
-!WR_KETL/WC_AHMS=0.0
-!
-!WR_KETL/WR_O3=0.0
-!
-!WR_KETL/WR_H2O2=0.0
-!
-!WR_KETL/WR_NO=0.0
-!
-!WR_KETL/WR_NO2=0.0
-!
-!WR_KETL/WR_NO3=0.0
-!
-!WR_KETL/WR_N2O5=0.0
-!
-!WR_KETL/WR_HONO=0.0
-!
-!WR_KETL/WR_HNO3=0.0
-!
-!WR_KETL/WR_HNO4=0.0
-!
-!WR_KETL/WR_NH3=0.0
-!
-!WR_KETL/WR_OH=+0.50*KR32*<WR_ALCH>+KR37*<WR_KETL>-KR37*<WR_KETL>
- PJAC(:,149,135)=+0.50*TPK%KR32(:)*PCONC(:,144)+TPK%KR37(:)*PCONC(:,149)-TPK%KR&
-&37(:)*PCONC(:,149)
-!
-!WR_KETL/WR_HO2=0.0
-!
-!WR_KETL/WR_CO2=0.0
-!
-!WR_KETL/WR_SO2=0.0
-!
-!WR_KETL/WR_H2SO4=0.0
-!
-!WR_KETL/WR_RO21=0.0
-!
-!WR_KETL/WR_RO25=0.0
-!
-!WR_KETL/WR_MEOH=0.0
-!
-!WR_KETL/WR_ETOH=0.0
-!
-!WR_KETL/WR_ALCH=+0.50*KR32*<WR_OH>
- PJAC(:,149,144)=+0.50*TPK%KR32(:)*PCONC(:,135)
-!
-!WR_KETL/WR_HCHO=0.0
-!
-!WR_KETL/WR_ALD2=0.0
-!
-!WR_KETL/WR_GLY=0.0
-!
-!WR_KETL/WR_MGLY=0.0
-!
-!WR_KETL/WR_KETL=-KTR55+KR37*<WR_OH>-KR37*<WR_OH>
- PJAC(:,149,149)=-TPK%KTR55(:)+TPK%KR37(:)*PCONC(:,135)-TPK%KR37(:)*PCONC(:,135&
-&)
-!
-!WR_KETL/WR_ORA1=0.0
-!
-!WR_KETL/WR_ORA2=0.0
-!
-!WR_KETL/WR_ACID=0.0
-!
-!WR_KETL/WR_RP16=0.0
-!
-!WR_KETL/WR_UR21=0.0
-!
-!WR_KETL/WR_UR28=0.0
-!
-!WR_KETL/WR_ACID2=0.0
-!
-!WR_KETL/WR_ASO3=0.0
-!
-!WR_KETL/WR_ASO4=0.0
-!
-!WR_KETL/WR_ASO5=0.0
-!
-!WR_KETL/WR_AHSO5=0.0
-!
-!WR_KETL/WR_AHMS=0.0
-!
-!WR_ORA1/NO=0.0
-!
-!WR_ORA1/NO2=0.0
-!
-!WR_ORA1/O3=0.0
-!
-!WR_ORA1/HONO=0.0
-!
-!WR_ORA1/HNO3=0.0
-!
-!WR_ORA1/HNO4=0.0
-!
-!WR_ORA1/N2O5=0.0
-!
-!WR_ORA1/NO3=0.0
-!
-!WR_ORA1/NH3=0.0
-!
-!WR_ORA1/HO2=0.0
-!
-!WR_ORA1/CO=0.0
-!
-!WR_ORA1/H2O2=0.0
-!
-!WR_ORA1/SO2=0.0
-!
-!WR_ORA1/H2SO4=0.0
-!
-!WR_ORA1/OH=0.0
-!
-!WR_ORA1/ETHE=0.0
-!
-!WR_ORA1/OLEL=0.0
-!
-!WR_ORA1/OLEH=0.0
-!
-!WR_ORA1/ALKL=0.0
-!
-!WR_ORA1/ALKM=0.0
-!
-!WR_ORA1/ALKH=0.0
-!
-!WR_ORA1/AROH=0.0
-!
-!WR_ORA1/AROL=0.0
-!
-!WR_ORA1/AROO=0.0
-!
-!WR_ORA1/ARAL=0.0
-!
-!WR_ORA1/ARAC=0.0
-!
-!WR_ORA1/PAH=0.0
-!
-!WR_ORA1/HCHO=0.0
-!
-!WR_ORA1/ALD2=0.0
-!
-!WR_ORA1/KETL=0.0
-!
-!WR_ORA1/KETH=0.0
-!
-!WR_ORA1/MEOH=0.0
-!
-!WR_ORA1/ETOH=0.0
-!
-!WR_ORA1/ALCH=0.0
-!
-!WR_ORA1/ISOP=0.0
-!
-!WR_ORA1/BIOL=0.0
-!
-!WR_ORA1/BIOH=0.0
-!
-!WR_ORA1/MTBE=0.0
-!
-!WR_ORA1/MVK=0.0
-!
-!WR_ORA1/MCR=0.0
-!
-!WR_ORA1/MGLY=0.0
-!
-!WR_ORA1/GLY=0.0
-!
-!WR_ORA1/ORA1=+KTR26
- PJAC(:,150,43)=+TPK%KTR26(:)
-!
-!WR_ORA1/ORA2=0.0
-!
-!WR_ORA1/ACID=0.0
-!
-!WR_ORA1/UR28=0.0
-!
-!WR_ORA1/UR21=0.0
-!
-!WR_ORA1/URG2=0.0
-!
-!WR_ORA1/UR26=0.0
-!
-!WR_ORA1/RPG2=0.0
-!
-!WR_ORA1/RP18=0.0
-!
-!WR_ORA1/RPG3=0.0
-!
-!WR_ORA1/URG4=0.0
-!
-!WR_ORA1/UR8=0.0
-!
-!WR_ORA1/UR17=0.0
-!
-!WR_ORA1/UR7=0.0
-!
-!WR_ORA1/RPR3=0.0
-!
-!WR_ORA1/URG6=0.0
-!
-!WR_ORA1/UR22=0.0
-!
-!WR_ORA1/URG7=0.0
-!
-!WR_ORA1/RPR4=0.0
-!
-!WR_ORA1/RPR7=0.0
-!
-!WR_ORA1/RPG7=0.0
-!
-!WR_ORA1/URG8=0.0
-!
-!WR_ORA1/UR19=0.0
-!
-!WR_ORA1/URG9=0.0
-!
-!WR_ORA1/AP7=0.0
-!
-!WR_ORA1/URG10=0.0
-!
-!WR_ORA1/RPR1=0.0
-!
-!WR_ORA1/RPR5=0.0
-!
-!WR_ORA1/RPR8=0.0
-!
-!WR_ORA1/RP10=0.0
-!
-!WR_ORA1/RP11=0.0
-!
-!WR_ORA1/RP16=0.0
-!
-!WR_ORA1/RPRL=0.0
-!
-!WR_ORA1/APAN=0.0
-!
-!WR_ORA1/PAN1=0.0
-!
-!WR_ORA1/PAN2=0.0
-!
-!WR_ORA1/PAN3=0.0
-!
-!WR_ORA1/PAN4=0.0
-!
-!WR_ORA1/PAN6=0.0
-!
-!WR_ORA1/PAN7=0.0
-!
-!WR_ORA1/PAN8=0.0
-!
-!WR_ORA1/PN10=0.0
-!
-!WR_ORA1/RO2T=0.0
-!
-!WR_ORA1/RO21=0.0
-!
-!WR_ORA1/RO25=0.0
-!
-!WR_ORA1/WC_O3=0.0
-!
-!WR_ORA1/WC_H2O2=0.0
-!
-!WR_ORA1/WC_NO=0.0
-!
-!WR_ORA1/WC_NO2=0.0
-!
-!WR_ORA1/WC_NO3=0.0
-!
-!WR_ORA1/WC_N2O5=0.0
-!
-!WR_ORA1/WC_HONO=0.0
-!
-!WR_ORA1/WC_HNO3=0.0
-!
-!WR_ORA1/WC_HNO4=0.0
-!
-!WR_ORA1/WC_NH3=0.0
-!
-!WR_ORA1/WC_OH=0.0
-!
-!WR_ORA1/WC_HO2=0.0
-!
-!WR_ORA1/WC_CO2=0.0
-!
-!WR_ORA1/WC_SO2=0.0
-!
-!WR_ORA1/WC_H2SO4=0.0
-!
-!WR_ORA1/WC_RO21=0.0
-!
-!WR_ORA1/WC_RO25=0.0
-!
-!WR_ORA1/WC_MEOH=0.0
-!
-!WR_ORA1/WC_ETOH=0.0
-!
-!WR_ORA1/WC_ALCH=0.0
-!
-!WR_ORA1/WC_HCHO=0.0
-!
-!WR_ORA1/WC_ALD2=0.0
-!
-!WR_ORA1/WC_GLY=0.0
-!
-!WR_ORA1/WC_MGLY=0.0
-!
-!WR_ORA1/WC_KETL=0.0
-!
-!WR_ORA1/WC_ORA1=0.0
-!
-!WR_ORA1/WC_ORA2=0.0
-!
-!WR_ORA1/WC_ACID=0.0
-!
-!WR_ORA1/WC_RP16=0.0
-!
-!WR_ORA1/WC_UR21=0.0
-!
-!WR_ORA1/WC_UR28=0.0
-!
-!WR_ORA1/WC_ACID2=0.0
-!
-!WR_ORA1/WC_ASO3=0.0
-!
-!WR_ORA1/WC_ASO4=0.0
-!
-!WR_ORA1/WC_ASO5=0.0
-!
-!WR_ORA1/WC_AHSO5=0.0
-!
-!WR_ORA1/WC_AHMS=0.0
-!
-!WR_ORA1/WR_O3=0.0
-!
-!WR_ORA1/WR_H2O2=0.0
-!
-!WR_ORA1/WR_NO=0.0
-!
-!WR_ORA1/WR_NO2=0.0
-!
-!WR_ORA1/WR_NO3=0.0
-!
-!WR_ORA1/WR_N2O5=0.0
-!
-!WR_ORA1/WR_HONO=0.0
-!
-!WR_ORA1/WR_HNO3=0.0
-!
-!WR_ORA1/WR_HNO4=0.0
-!
-!WR_ORA1/WR_NH3=0.0
-!
-!WR_ORA1/WR_OH=+KR19*<WR_AHMS>+KR33*<WR_HCHO>-KR38*<WR_ORA1>
- PJAC(:,150,135)=+TPK%KR19(:)*PCONC(:,161)+TPK%KR33(:)*PCONC(:,145)-TPK%KR38(:)&
-&*PCONC(:,150)
-!
-!WR_ORA1/WR_HO2=0.0
-!
-!WR_ORA1/WR_CO2=0.0
-!
-!WR_ORA1/WR_SO2=0.0
-!
-!WR_ORA1/WR_H2SO4=0.0
-!
-!WR_ORA1/WR_RO21=0.0
-!
-!WR_ORA1/WR_RO25=0.0
-!
-!WR_ORA1/WR_MEOH=0.0
-!
-!WR_ORA1/WR_ETOH=0.0
-!
-!WR_ORA1/WR_ALCH=0.0
-!
-!WR_ORA1/WR_HCHO=+KR33*<WR_OH>
- PJAC(:,150,145)=+TPK%KR33(:)*PCONC(:,135)
-!
-!WR_ORA1/WR_ALD2=0.0
-!
-!WR_ORA1/WR_GLY=0.0
-!
-!WR_ORA1/WR_MGLY=0.0
-!
-!WR_ORA1/WR_KETL=0.0
-!
-!WR_ORA1/WR_ORA1=-KTR57-KR38*<WR_OH>
- PJAC(:,150,150)=-TPK%KTR57(:)-TPK%KR38(:)*PCONC(:,135)
-!
-!WR_ORA1/WR_ORA2=0.0
-!
-!WR_ORA1/WR_ACID=0.0
-!
-!WR_ORA1/WR_RP16=0.0
-!
-!WR_ORA1/WR_UR21=0.0
-!
-!WR_ORA1/WR_UR28=0.0
-!
-!WR_ORA1/WR_ACID2=0.0
-!
-!WR_ORA1/WR_ASO3=0.0
-!
-!WR_ORA1/WR_ASO4=0.0
-!
-!WR_ORA1/WR_ASO5=0.0
-!
-!WR_ORA1/WR_AHSO5=0.0
-!
-!WR_ORA1/WR_AHMS=+KR19*<WR_OH>
- PJAC(:,150,161)=+TPK%KR19(:)*PCONC(:,135)
-!
-RETURN
-END SUBROUTINE SUBJ29
-!
-SUBROUTINE SUBJ30
-!
-!Indices 151 a 155
-!
-!
-!WR_ORA2/NO=0.0
-!
-!WR_ORA2/NO2=0.0
-!
-!WR_ORA2/O3=0.0
-!
-!WR_ORA2/HONO=0.0
-!
-!WR_ORA2/HNO3=0.0
-!
-!WR_ORA2/HNO4=0.0
-!
-!WR_ORA2/N2O5=0.0
-!
-!WR_ORA2/NO3=0.0
-!
-!WR_ORA2/NH3=0.0
-!
-!WR_ORA2/HO2=0.0
-!
-!WR_ORA2/CO=0.0
-!
-!WR_ORA2/H2O2=0.0
-!
-!WR_ORA2/SO2=0.0
-!
-!WR_ORA2/H2SO4=0.0
-!
-!WR_ORA2/OH=0.0
-!
-!WR_ORA2/ETHE=0.0
-!
-!WR_ORA2/OLEL=0.0
-!
-!WR_ORA2/OLEH=0.0
-!
-!WR_ORA2/ALKL=0.0
-!
-!WR_ORA2/ALKM=0.0
-!
-!WR_ORA2/ALKH=0.0
-!
-!WR_ORA2/AROH=0.0
-!
-!WR_ORA2/AROL=0.0
-!
-!WR_ORA2/AROO=0.0
-!
-!WR_ORA2/ARAL=0.0
-!
-!WR_ORA2/ARAC=0.0
-!
-!WR_ORA2/PAH=0.0
-!
-!WR_ORA2/HCHO=0.0
-!
-!WR_ORA2/ALD2=0.0
-!
-!WR_ORA2/KETL=0.0
-!
-!WR_ORA2/KETH=0.0
-!
-!WR_ORA2/MEOH=0.0
-!
-!WR_ORA2/ETOH=0.0
-!
-!WR_ORA2/ALCH=0.0
-!
-!WR_ORA2/ISOP=0.0
-!
-!WR_ORA2/BIOL=0.0
-!
-!WR_ORA2/BIOH=0.0
-!
-!WR_ORA2/MTBE=0.0
-!
-!WR_ORA2/MVK=0.0
-!
-!WR_ORA2/MCR=0.0
-!
-!WR_ORA2/MGLY=0.0
-!
-!WR_ORA2/GLY=0.0
-!
-!WR_ORA2/ORA1=0.0
-!
-!WR_ORA2/ORA2=+KTR27
- PJAC(:,151,44)=+TPK%KTR27(:)
-!
-!WR_ORA2/ACID=0.0
-!
-!WR_ORA2/UR28=0.0
-!
-!WR_ORA2/UR21=0.0
-!
-!WR_ORA2/URG2=0.0
-!
-!WR_ORA2/UR26=0.0
-!
-!WR_ORA2/RPG2=0.0
-!
-!WR_ORA2/RP18=0.0
-!
-!WR_ORA2/RPG3=0.0
-!
-!WR_ORA2/URG4=0.0
-!
-!WR_ORA2/UR8=0.0
-!
-!WR_ORA2/UR17=0.0
-!
-!WR_ORA2/UR7=0.0
-!
-!WR_ORA2/RPR3=0.0
-!
-!WR_ORA2/URG6=0.0
-!
-!WR_ORA2/UR22=0.0
-!
-!WR_ORA2/URG7=0.0
-!
-!WR_ORA2/RPR4=0.0
-!
-!WR_ORA2/RPR7=0.0
-!
-!WR_ORA2/RPG7=0.0
-!
-!WR_ORA2/URG8=0.0
-!
-!WR_ORA2/UR19=0.0
-!
-!WR_ORA2/URG9=0.0
-!
-!WR_ORA2/AP7=0.0
-!
-!WR_ORA2/URG10=0.0
-!
-!WR_ORA2/RPR1=0.0
-!
-!WR_ORA2/RPR5=0.0
-!
-!WR_ORA2/RPR8=0.0
-!
-!WR_ORA2/RP10=0.0
-!
-!WR_ORA2/RP11=0.0
-!
-!WR_ORA2/RP16=0.0
-!
-!WR_ORA2/RPRL=0.0
-!
-!WR_ORA2/APAN=0.0
-!
-!WR_ORA2/PAN1=0.0
-!
-!WR_ORA2/PAN2=0.0
-!
-!WR_ORA2/PAN3=0.0
-!
-!WR_ORA2/PAN4=0.0
-!
-!WR_ORA2/PAN6=0.0
-!
-!WR_ORA2/PAN7=0.0
-!
-!WR_ORA2/PAN8=0.0
-!
-!WR_ORA2/PN10=0.0
-!
-!WR_ORA2/RO2T=0.0
-!
-!WR_ORA2/RO21=0.0
-!
-!WR_ORA2/RO25=0.0
-!
-!WR_ORA2/WC_O3=0.0
-!
-!WR_ORA2/WC_H2O2=0.0
-!
-!WR_ORA2/WC_NO=0.0
-!
-!WR_ORA2/WC_NO2=0.0
-!
-!WR_ORA2/WC_NO3=0.0
-!
-!WR_ORA2/WC_N2O5=0.0
-!
-!WR_ORA2/WC_HONO=0.0
-!
-!WR_ORA2/WC_HNO3=0.0
-!
-!WR_ORA2/WC_HNO4=0.0
-!
-!WR_ORA2/WC_NH3=0.0
-!
-!WR_ORA2/WC_OH=0.0
-!
-!WR_ORA2/WC_HO2=0.0
-!
-!WR_ORA2/WC_CO2=0.0
-!
-!WR_ORA2/WC_SO2=0.0
-!
-!WR_ORA2/WC_H2SO4=0.0
-!
-!WR_ORA2/WC_RO21=0.0
-!
-!WR_ORA2/WC_RO25=0.0
-!
-!WR_ORA2/WC_MEOH=0.0
-!
-!WR_ORA2/WC_ETOH=0.0
-!
-!WR_ORA2/WC_ALCH=0.0
-!
-!WR_ORA2/WC_HCHO=0.0
-!
-!WR_ORA2/WC_ALD2=0.0
-!
-!WR_ORA2/WC_GLY=0.0
-!
-!WR_ORA2/WC_MGLY=0.0
-!
-!WR_ORA2/WC_KETL=0.0
-!
-!WR_ORA2/WC_ORA1=0.0
-!
-!WR_ORA2/WC_ORA2=0.0
-!
-!WR_ORA2/WC_ACID=0.0
-!
-!WR_ORA2/WC_RP16=0.0
-!
-!WR_ORA2/WC_UR21=0.0
-!
-!WR_ORA2/WC_UR28=0.0
-!
-!WR_ORA2/WC_ACID2=0.0
-!
-!WR_ORA2/WC_ASO3=0.0
-!
-!WR_ORA2/WC_ASO4=0.0
-!
-!WR_ORA2/WC_ASO5=0.0
-!
-!WR_ORA2/WC_AHSO5=0.0
-!
-!WR_ORA2/WC_AHMS=0.0
-!
-!WR_ORA2/WR_O3=0.0
-!
-!WR_ORA2/WR_H2O2=0.0
-!
-!WR_ORA2/WR_NO=0.0
-!
-!WR_ORA2/WR_NO2=0.0
-!
-!WR_ORA2/WR_NO3=0.0
-!
-!WR_ORA2/WR_N2O5=0.0
-!
-!WR_ORA2/WR_HONO=0.0
-!
-!WR_ORA2/WR_HNO3=0.0
-!
-!WR_ORA2/WR_HNO4=0.0
-!
-!WR_ORA2/WR_NH3=0.0
-!
-!WR_ORA2/WR_OH=-KR39*<WR_ORA2>
- PJAC(:,151,135)=-TPK%KR39(:)*PCONC(:,151)
-!
-!WR_ORA2/WR_HO2=0.0
-!
-!WR_ORA2/WR_CO2=0.0
-!
-!WR_ORA2/WR_SO2=0.0
-!
-!WR_ORA2/WR_H2SO4=0.0
-!
-!WR_ORA2/WR_RO21=0.0
-!
-!WR_ORA2/WR_RO25=+KR29*<WR_RO25>+KR29*<WR_RO25>
- PJAC(:,151,141)=+TPK%KR29(:)*PCONC(:,141)+TPK%KR29(:)*PCONC(:,141)
-!
-!WR_ORA2/WR_MEOH=0.0
-!
-!WR_ORA2/WR_ETOH=0.0
-!
-!WR_ORA2/WR_ALCH=0.0
-!
-!WR_ORA2/WR_HCHO=0.0
-!
-!WR_ORA2/WR_ALD2=0.0
-!
-!WR_ORA2/WR_GLY=0.0
-!
-!WR_ORA2/WR_MGLY=0.0
-!
-!WR_ORA2/WR_KETL=0.0
-!
-!WR_ORA2/WR_ORA1=0.0
-!
-!WR_ORA2/WR_ORA2=-KTR58-KR39*<WR_OH>
- PJAC(:,151,151)=-TPK%KTR58(:)-TPK%KR39(:)*PCONC(:,135)
-!
-!WR_ORA2/WR_ACID=0.0
-!
-!WR_ORA2/WR_RP16=0.0
-!
-!WR_ORA2/WR_UR21=0.0
-!
-!WR_ORA2/WR_UR28=0.0
-!
-!WR_ORA2/WR_ACID2=0.0
-!
-!WR_ORA2/WR_ASO3=0.0
-!
-!WR_ORA2/WR_ASO4=0.0
-!
-!WR_ORA2/WR_ASO5=0.0
-!
-!WR_ORA2/WR_AHSO5=0.0
-!
-!WR_ORA2/WR_AHMS=0.0
-!
-!WR_ACID/NO=0.0
-!
-!WR_ACID/NO2=0.0
-!
-!WR_ACID/O3=0.0
-!
-!WR_ACID/HONO=0.0
-!
-!WR_ACID/HNO3=0.0
-!
-!WR_ACID/HNO4=0.0
-!
-!WR_ACID/N2O5=0.0
-!
-!WR_ACID/NO3=0.0
-!
-!WR_ACID/NH3=0.0
-!
-!WR_ACID/HO2=0.0
-!
-!WR_ACID/CO=0.0
-!
-!WR_ACID/H2O2=0.0
-!
-!WR_ACID/SO2=0.0
-!
-!WR_ACID/H2SO4=0.0
-!
-!WR_ACID/OH=0.0
-!
-!WR_ACID/ETHE=0.0
-!
-!WR_ACID/OLEL=0.0
-!
-!WR_ACID/OLEH=0.0
-!
-!WR_ACID/ALKL=0.0
-!
-!WR_ACID/ALKM=0.0
-!
-!WR_ACID/ALKH=0.0
-!
-!WR_ACID/AROH=0.0
-!
-!WR_ACID/AROL=0.0
-!
-!WR_ACID/AROO=0.0
-!
-!WR_ACID/ARAL=0.0
-!
-!WR_ACID/ARAC=0.0
-!
-!WR_ACID/PAH=0.0
-!
-!WR_ACID/HCHO=0.0
-!
-!WR_ACID/ALD2=0.0
-!
-!WR_ACID/KETL=0.0
-!
-!WR_ACID/KETH=0.0
-!
-!WR_ACID/MEOH=0.0
-!
-!WR_ACID/ETOH=0.0
-!
-!WR_ACID/ALCH=0.0
-!
-!WR_ACID/ISOP=0.0
-!
-!WR_ACID/BIOL=0.0
-!
-!WR_ACID/BIOH=0.0
-!
-!WR_ACID/MTBE=0.0
-!
-!WR_ACID/MVK=0.0
-!
-!WR_ACID/MCR=0.0
-!
-!WR_ACID/MGLY=0.0
-!
-!WR_ACID/GLY=0.0
-!
-!WR_ACID/ORA1=0.0
-!
-!WR_ACID/ORA2=0.0
-!
-!WR_ACID/ACID=+KTR28
- PJAC(:,152,45)=+TPK%KTR28(:)
-!
-!WR_ACID/UR28=0.0
-!
-!WR_ACID/UR21=0.0
-!
-!WR_ACID/URG2=0.0
-!
-!WR_ACID/UR26=0.0
-!
-!WR_ACID/RPG2=0.0
-!
-!WR_ACID/RP18=0.0
-!
-!WR_ACID/RPG3=0.0
-!
-!WR_ACID/URG4=0.0
-!
-!WR_ACID/UR8=0.0
-!
-!WR_ACID/UR17=0.0
-!
-!WR_ACID/UR7=0.0
-!
-!WR_ACID/RPR3=0.0
-!
-!WR_ACID/URG6=0.0
-!
-!WR_ACID/UR22=0.0
-!
-!WR_ACID/URG7=0.0
-!
-!WR_ACID/RPR4=0.0
-!
-!WR_ACID/RPR7=0.0
-!
-!WR_ACID/RPG7=0.0
-!
-!WR_ACID/URG8=0.0
-!
-!WR_ACID/UR19=0.0
-!
-!WR_ACID/URG9=0.0
-!
-!WR_ACID/AP7=0.0
-!
-!WR_ACID/URG10=0.0
-!
-!WR_ACID/RPR1=0.0
-!
-!WR_ACID/RPR5=0.0
-!
-!WR_ACID/RPR8=0.0
-!
-!WR_ACID/RP10=0.0
-!
-!WR_ACID/RP11=0.0
-!
-!WR_ACID/RP16=0.0
-!
-!WR_ACID/RPRL=0.0
-!
-!WR_ACID/APAN=0.0
-!
-!WR_ACID/PAN1=0.0
-!
-!WR_ACID/PAN2=0.0
-!
-!WR_ACID/PAN3=0.0
-!
-!WR_ACID/PAN4=0.0
-!
-!WR_ACID/PAN6=0.0
-!
-!WR_ACID/PAN7=0.0
-!
-!WR_ACID/PAN8=0.0
-!
-!WR_ACID/PN10=0.0
-!
-!WR_ACID/RO2T=0.0
-!
-!WR_ACID/RO21=0.0
-!
-!WR_ACID/RO25=0.0
-!
-!WR_ACID/WC_O3=0.0
-!
-!WR_ACID/WC_H2O2=0.0
-!
-!WR_ACID/WC_NO=0.0
-!
-!WR_ACID/WC_NO2=0.0
-!
-!WR_ACID/WC_NO3=0.0
-!
-!WR_ACID/WC_N2O5=0.0
-!
-!WR_ACID/WC_HONO=0.0
-!
-!WR_ACID/WC_HNO3=0.0
-!
-!WR_ACID/WC_HNO4=0.0
-!
-!WR_ACID/WC_NH3=0.0
-!
-!WR_ACID/WC_OH=0.0
-!
-!WR_ACID/WC_HO2=0.0
-!
-!WR_ACID/WC_CO2=0.0
-!
-!WR_ACID/WC_SO2=0.0
-!
-!WR_ACID/WC_H2SO4=0.0
-!
-!WR_ACID/WC_RO21=0.0
-!
-!WR_ACID/WC_RO25=0.0
-!
-!WR_ACID/WC_MEOH=0.0
-!
-!WR_ACID/WC_ETOH=0.0
-!
-!WR_ACID/WC_ALCH=0.0
-!
-!WR_ACID/WC_HCHO=0.0
-!
-!WR_ACID/WC_ALD2=0.0
-!
-!WR_ACID/WC_GLY=0.0
-!
-!WR_ACID/WC_MGLY=0.0
-!
-!WR_ACID/WC_KETL=0.0
-!
-!WR_ACID/WC_ORA1=0.0
-!
-!WR_ACID/WC_ORA2=0.0
-!
-!WR_ACID/WC_ACID=0.0
-!
-!WR_ACID/WC_RP16=0.0
-!
-!WR_ACID/WC_UR21=0.0
-!
-!WR_ACID/WC_UR28=0.0
-!
-!WR_ACID/WC_ACID2=0.0
-!
-!WR_ACID/WC_ASO3=0.0
-!
-!WR_ACID/WC_ASO4=0.0
-!
-!WR_ACID/WC_ASO5=0.0
-!
-!WR_ACID/WC_AHSO5=0.0
-!
-!WR_ACID/WC_AHMS=0.0
-!
-!WR_ACID/WR_O3=0.0
-!
-!WR_ACID/WR_H2O2=0.0
-!
-!WR_ACID/WR_NO=0.0
-!
-!WR_ACID/WR_NO2=0.0
-!
-!WR_ACID/WR_NO3=0.0
-!
-!WR_ACID/WR_N2O5=0.0
-!
-!WR_ACID/WR_HONO=0.0
-!
-!WR_ACID/WR_HNO3=0.0
-!
-!WR_ACID/WR_HNO4=0.0
-!
-!WR_ACID/WR_NH3=0.0
-!
-!WR_ACID/WR_OH=-KR40*<WR_ACID>-KR41*<WR_ACID>
- PJAC(:,152,135)=-TPK%KR40(:)*PCONC(:,152)-TPK%KR41(:)*PCONC(:,152)
-!
-!WR_ACID/WR_HO2=0.0
-!
-!WR_ACID/WR_CO2=0.0
-!
-!WR_ACID/WR_SO2=0.0
-!
-!WR_ACID/WR_H2SO4=0.0
-!
-!WR_ACID/WR_RO21=0.0
-!
-!WR_ACID/WR_RO25=0.0
-!
-!WR_ACID/WR_MEOH=0.0
-!
-!WR_ACID/WR_ETOH=0.0
-!
-!WR_ACID/WR_ALCH=0.0
-!
-!WR_ACID/WR_HCHO=0.0
-!
-!WR_ACID/WR_ALD2=0.0
-!
-!WR_ACID/WR_GLY=0.0
-!
-!WR_ACID/WR_MGLY=0.0
-!
-!WR_ACID/WR_KETL=0.0
-!
-!WR_ACID/WR_ORA1=0.0
-!
-!WR_ACID/WR_ORA2=0.0
-!
-!WR_ACID/WR_ACID=-KTR59-KR40*<WR_OH>-KR41*<WR_OH>
- PJAC(:,152,152)=-TPK%KTR59(:)-TPK%KR40(:)*PCONC(:,135)-TPK%KR41(:)*PCONC(:,135&
-&)
-!
-!WR_ACID/WR_RP16=0.0
-!
-!WR_ACID/WR_UR21=0.0
-!
-!WR_ACID/WR_UR28=0.0
-!
-!WR_ACID/WR_ACID2=0.0
-!
-!WR_ACID/WR_ASO3=0.0
-!
-!WR_ACID/WR_ASO4=0.0
-!
-!WR_ACID/WR_ASO5=0.0
-!
-!WR_ACID/WR_AHSO5=0.0
-!
-!WR_ACID/WR_AHMS=0.0
-!
-!WR_RP16/NO=0.0
-!
-!WR_RP16/NO2=0.0
-!
-!WR_RP16/O3=0.0
-!
-!WR_RP16/HONO=0.0
-!
-!WR_RP16/HNO3=0.0
-!
-!WR_RP16/HNO4=0.0
-!
-!WR_RP16/N2O5=0.0
-!
-!WR_RP16/NO3=0.0
-!
-!WR_RP16/NH3=0.0
-!
-!WR_RP16/HO2=0.0
-!
-!WR_RP16/CO=0.0
-!
-!WR_RP16/H2O2=0.0
-!
-!WR_RP16/SO2=0.0
-!
-!WR_RP16/H2SO4=0.0
-!
-!WR_RP16/OH=0.0
-!
-!WR_RP16/ETHE=0.0
-!
-!WR_RP16/OLEL=0.0
-!
-!WR_RP16/OLEH=0.0
-!
-!WR_RP16/ALKL=0.0
-!
-!WR_RP16/ALKM=0.0
-!
-!WR_RP16/ALKH=0.0
-!
-!WR_RP16/AROH=0.0
-!
-!WR_RP16/AROL=0.0
-!
-!WR_RP16/AROO=0.0
-!
-!WR_RP16/ARAL=0.0
-!
-!WR_RP16/ARAC=0.0
-!
-!WR_RP16/PAH=0.0
-!
-!WR_RP16/HCHO=0.0
-!
-!WR_RP16/ALD2=0.0
-!
-!WR_RP16/KETL=0.0
-!
-!WR_RP16/KETH=0.0
-!
-!WR_RP16/MEOH=0.0
-!
-!WR_RP16/ETOH=0.0
-!
-!WR_RP16/ALCH=0.0
-!
-!WR_RP16/ISOP=0.0
-!
-!WR_RP16/BIOL=0.0
-!
-!WR_RP16/BIOH=0.0
-!
-!WR_RP16/MTBE=0.0
-!
-!WR_RP16/MVK=0.0
-!
-!WR_RP16/MCR=0.0
-!
-!WR_RP16/MGLY=0.0
-!
-!WR_RP16/GLY=0.0
-!
-!WR_RP16/ORA1=0.0
-!
-!WR_RP16/ORA2=0.0
-!
-!WR_RP16/ACID=0.0
-!
-!WR_RP16/UR28=0.0
-!
-!WR_RP16/UR21=0.0
-!
-!WR_RP16/URG2=0.0
-!
-!WR_RP16/UR26=0.0
-!
-!WR_RP16/RPG2=0.0
-!
-!WR_RP16/RP18=0.0
-!
-!WR_RP16/RPG3=0.0
-!
-!WR_RP16/URG4=0.0
-!
-!WR_RP16/UR8=0.0
-!
-!WR_RP16/UR17=0.0
-!
-!WR_RP16/UR7=0.0
-!
-!WR_RP16/RPR3=0.0
-!
-!WR_RP16/URG6=0.0
-!
-!WR_RP16/UR22=0.0
-!
-!WR_RP16/URG7=0.0
-!
-!WR_RP16/RPR4=0.0
-!
-!WR_RP16/RPR7=0.0
-!
-!WR_RP16/RPG7=0.0
-!
-!WR_RP16/URG8=0.0
-!
-!WR_RP16/UR19=0.0
-!
-!WR_RP16/URG9=0.0
-!
-!WR_RP16/AP7=0.0
-!
-!WR_RP16/URG10=0.0
-!
-!WR_RP16/RPR1=0.0
-!
-!WR_RP16/RPR5=0.0
-!
-!WR_RP16/RPR8=0.0
-!
-!WR_RP16/RP10=0.0
-!
-!WR_RP16/RP11=0.0
-!
-!WR_RP16/RP16=+KTR29
- PJAC(:,153,74)=+TPK%KTR29(:)
-!
-!WR_RP16/RPRL=0.0
-!
-!WR_RP16/APAN=0.0
-!
-!WR_RP16/PAN1=0.0
-!
-!WR_RP16/PAN2=0.0
-!
-!WR_RP16/PAN3=0.0
-!
-!WR_RP16/PAN4=0.0
-!
-!WR_RP16/PAN6=0.0
-!
-!WR_RP16/PAN7=0.0
-!
-!WR_RP16/PAN8=0.0
-!
-!WR_RP16/PN10=0.0
-!
-!WR_RP16/RO2T=0.0
-!
-!WR_RP16/RO21=0.0
-!
-!WR_RP16/RO25=0.0
-!
-!WR_RP16/WC_O3=0.0
-!
-!WR_RP16/WC_H2O2=0.0
-!
-!WR_RP16/WC_NO=0.0
-!
-!WR_RP16/WC_NO2=0.0
-!
-!WR_RP16/WC_NO3=0.0
-!
-!WR_RP16/WC_N2O5=0.0
-!
-!WR_RP16/WC_HONO=0.0
-!
-!WR_RP16/WC_HNO3=0.0
-!
-!WR_RP16/WC_HNO4=0.0
-!
-!WR_RP16/WC_NH3=0.0
-!
-!WR_RP16/WC_OH=0.0
-!
-!WR_RP16/WC_HO2=0.0
-!
-!WR_RP16/WC_CO2=0.0
-!
-!WR_RP16/WC_SO2=0.0
-!
-!WR_RP16/WC_H2SO4=0.0
-!
-!WR_RP16/WC_RO21=0.0
-!
-!WR_RP16/WC_RO25=0.0
-!
-!WR_RP16/WC_MEOH=0.0
-!
-!WR_RP16/WC_ETOH=0.0
-!
-!WR_RP16/WC_ALCH=0.0
-!
-!WR_RP16/WC_HCHO=0.0
-!
-!WR_RP16/WC_ALD2=0.0
-!
-!WR_RP16/WC_GLY=0.0
-!
-!WR_RP16/WC_MGLY=0.0
-!
-!WR_RP16/WC_KETL=0.0
-!
-!WR_RP16/WC_ORA1=0.0
-!
-!WR_RP16/WC_ORA2=0.0
-!
-!WR_RP16/WC_ACID=0.0
-!
-!WR_RP16/WC_RP16=0.0
-!
-!WR_RP16/WC_UR21=0.0
-!
-!WR_RP16/WC_UR28=0.0
-!
-!WR_RP16/WC_ACID2=0.0
-!
-!WR_RP16/WC_ASO3=0.0
-!
-!WR_RP16/WC_ASO4=0.0
-!
-!WR_RP16/WC_ASO5=0.0
-!
-!WR_RP16/WC_AHSO5=0.0
-!
-!WR_RP16/WC_AHMS=0.0
-!
-!WR_RP16/WR_O3=0.0
-!
-!WR_RP16/WR_H2O2=0.0
-!
-!WR_RP16/WR_NO=0.0
-!
-!WR_RP16/WR_NO2=0.0
-!
-!WR_RP16/WR_NO3=0.0
-!
-!WR_RP16/WR_N2O5=0.0
-!
-!WR_RP16/WR_HONO=0.0
-!
-!WR_RP16/WR_HNO3=0.0
-!
-!WR_RP16/WR_HNO4=0.0
-!
-!WR_RP16/WR_NH3=0.0
-!
-!WR_RP16/WR_OH=+KR35*<WR_GLY>+KR39*<WR_ORA2>-KR44*<WR_RP16>-KR45*<WR_RP16>
- PJAC(:,153,135)=+TPK%KR35(:)*PCONC(:,147)+TPK%KR39(:)*PCONC(:,151)-TPK%KR44(:)&
-&*PCONC(:,153)-TPK%KR45(:)*PCONC(:,153)
-!
-!WR_RP16/WR_HO2=0.0
-!
-!WR_RP16/WR_CO2=0.0
-!
-!WR_RP16/WR_SO2=0.0
-!
-!WR_RP16/WR_H2SO4=0.0
-!
-!WR_RP16/WR_RO21=0.0
-!
-!WR_RP16/WR_RO25=0.0
-!
-!WR_RP16/WR_MEOH=0.0
-!
-!WR_RP16/WR_ETOH=0.0
-!
-!WR_RP16/WR_ALCH=0.0
-!
-!WR_RP16/WR_HCHO=0.0
-!
-!WR_RP16/WR_ALD2=0.0
-!
-!WR_RP16/WR_GLY=+KR35*<WR_OH>
- PJAC(:,153,147)=+TPK%KR35(:)*PCONC(:,135)
-!
-!WR_RP16/WR_MGLY=0.0
-!
-!WR_RP16/WR_KETL=0.0
-!
-!WR_RP16/WR_ORA1=0.0
-!
-!WR_RP16/WR_ORA2=+KR39*<WR_OH>
- PJAC(:,153,151)=+TPK%KR39(:)*PCONC(:,135)
-!
-!WR_RP16/WR_ACID=0.0
-!
-!WR_RP16/WR_RP16=-KTR60-KR44*<WR_OH>-KR45*<WR_OH>
- PJAC(:,153,153)=-TPK%KTR60(:)-TPK%KR44(:)*PCONC(:,135)-TPK%KR45(:)*PCONC(:,135&
-&)
-!
-!WR_RP16/WR_UR21=0.0
-!
-!WR_RP16/WR_UR28=0.0
-!
-!WR_RP16/WR_ACID2=0.0
-!
-!WR_RP16/WR_ASO3=0.0
-!
-!WR_RP16/WR_ASO4=0.0
-!
-!WR_RP16/WR_ASO5=0.0
-!
-!WR_RP16/WR_AHSO5=0.0
-!
-!WR_RP16/WR_AHMS=0.0
-!
-!WR_UR21/NO=0.0
-!
-!WR_UR21/NO2=0.0
-!
-!WR_UR21/O3=0.0
-!
-!WR_UR21/HONO=0.0
-!
-!WR_UR21/HNO3=0.0
-!
-!WR_UR21/HNO4=0.0
-!
-!WR_UR21/N2O5=0.0
-!
-!WR_UR21/NO3=0.0
-!
-!WR_UR21/NH3=0.0
-!
-!WR_UR21/HO2=0.0
-!
-!WR_UR21/CO=0.0
-!
-!WR_UR21/H2O2=0.0
-!
-!WR_UR21/SO2=0.0
-!
-!WR_UR21/H2SO4=0.0
-!
-!WR_UR21/OH=0.0
-!
-!WR_UR21/ETHE=0.0
-!
-!WR_UR21/OLEL=0.0
-!
-!WR_UR21/OLEH=0.0
-!
-!WR_UR21/ALKL=0.0
-!
-!WR_UR21/ALKM=0.0
-!
-!WR_UR21/ALKH=0.0
-!
-!WR_UR21/AROH=0.0
-!
-!WR_UR21/AROL=0.0
-!
-!WR_UR21/AROO=0.0
-!
-!WR_UR21/ARAL=0.0
-!
-!WR_UR21/ARAC=0.0
-!
-!WR_UR21/PAH=0.0
-!
-!WR_UR21/HCHO=0.0
-!
-!WR_UR21/ALD2=0.0
-!
-!WR_UR21/KETL=0.0
-!
-!WR_UR21/KETH=0.0
-!
-!WR_UR21/MEOH=0.0
-!
-!WR_UR21/ETOH=0.0
-!
-!WR_UR21/ALCH=0.0
-!
-!WR_UR21/ISOP=0.0
-!
-!WR_UR21/BIOL=0.0
-!
-!WR_UR21/BIOH=0.0
-!
-!WR_UR21/MTBE=0.0
-!
-!WR_UR21/MVK=0.0
-!
-!WR_UR21/MCR=0.0
-!
-!WR_UR21/MGLY=0.0
-!
-!WR_UR21/GLY=0.0
-!
-!WR_UR21/ORA1=0.0
-!
-!WR_UR21/ORA2=0.0
-!
-!WR_UR21/ACID=0.0
-!
-!WR_UR21/UR28=0.0
-!
-!WR_UR21/UR21=+KTR30
- PJAC(:,154,47)=+TPK%KTR30(:)
-!
-!WR_UR21/URG2=0.0
-!
-!WR_UR21/UR26=0.0
-!
-!WR_UR21/RPG2=0.0
-!
-!WR_UR21/RP18=0.0
-!
-!WR_UR21/RPG3=0.0
-!
-!WR_UR21/URG4=0.0
-!
-!WR_UR21/UR8=0.0
-!
-!WR_UR21/UR17=0.0
-!
-!WR_UR21/UR7=0.0
-!
-!WR_UR21/RPR3=0.0
-!
-!WR_UR21/URG6=0.0
-!
-!WR_UR21/UR22=0.0
-!
-!WR_UR21/URG7=0.0
-!
-!WR_UR21/RPR4=0.0
-!
-!WR_UR21/RPR7=0.0
-!
-!WR_UR21/RPG7=0.0
-!
-!WR_UR21/URG8=0.0
-!
-!WR_UR21/UR19=0.0
-!
-!WR_UR21/URG9=0.0
-!
-!WR_UR21/AP7=0.0
-!
-!WR_UR21/URG10=0.0
-!
-!WR_UR21/RPR1=0.0
-!
-!WR_UR21/RPR5=0.0
-!
-!WR_UR21/RPR8=0.0
-!
-!WR_UR21/RP10=0.0
-!
-!WR_UR21/RP11=0.0
-!
-!WR_UR21/RP16=0.0
-!
-!WR_UR21/RPRL=0.0
-!
-!WR_UR21/APAN=0.0
-!
-!WR_UR21/PAN1=0.0
-!
-!WR_UR21/PAN2=0.0
-!
-!WR_UR21/PAN3=0.0
-!
-!WR_UR21/PAN4=0.0
-!
-!WR_UR21/PAN6=0.0
-!
-!WR_UR21/PAN7=0.0
-!
-!WR_UR21/PAN8=0.0
-!
-!WR_UR21/PN10=0.0
-!
-!WR_UR21/RO2T=0.0
-!
-!WR_UR21/RO21=0.0
-!
-!WR_UR21/RO25=0.0
-!
-!WR_UR21/WC_O3=0.0
-!
-!WR_UR21/WC_H2O2=0.0
-!
-!WR_UR21/WC_NO=0.0
-!
-!WR_UR21/WC_NO2=0.0
-!
-!WR_UR21/WC_NO3=0.0
-!
-!WR_UR21/WC_N2O5=0.0
-!
-!WR_UR21/WC_HONO=0.0
-!
-!WR_UR21/WC_HNO3=0.0
-!
-!WR_UR21/WC_HNO4=0.0
-!
-!WR_UR21/WC_NH3=0.0
-!
-!WR_UR21/WC_OH=0.0
-!
-!WR_UR21/WC_HO2=0.0
-!
-!WR_UR21/WC_CO2=0.0
-!
-!WR_UR21/WC_SO2=0.0
-!
-!WR_UR21/WC_H2SO4=0.0
-!
-!WR_UR21/WC_RO21=0.0
-!
-!WR_UR21/WC_RO25=0.0
-!
-!WR_UR21/WC_MEOH=0.0
-!
-!WR_UR21/WC_ETOH=0.0
-!
-!WR_UR21/WC_ALCH=0.0
-!
-!WR_UR21/WC_HCHO=0.0
-!
-!WR_UR21/WC_ALD2=0.0
-!
-!WR_UR21/WC_GLY=0.0
-!
-!WR_UR21/WC_MGLY=0.0
-!
-!WR_UR21/WC_KETL=0.0
-!
-!WR_UR21/WC_ORA1=0.0
-!
-!WR_UR21/WC_ORA2=0.0
-!
-!WR_UR21/WC_ACID=0.0
-!
-!WR_UR21/WC_RP16=0.0
-!
-!WR_UR21/WC_UR21=0.0
-!
-!WR_UR21/WC_UR28=0.0
-!
-!WR_UR21/WC_ACID2=0.0
-!
-!WR_UR21/WC_ASO3=0.0
-!
-!WR_UR21/WC_ASO4=0.0
-!
-!WR_UR21/WC_ASO5=0.0
-!
-!WR_UR21/WC_AHSO5=0.0
-!
-!WR_UR21/WC_AHMS=0.0
-!
-!WR_UR21/WR_O3=0.0
-!
-!WR_UR21/WR_H2O2=0.0
-!
-!WR_UR21/WR_NO=0.0
-!
-!WR_UR21/WR_NO2=0.0
-!
-!WR_UR21/WR_NO3=0.0
-!
-!WR_UR21/WR_N2O5=0.0
-!
-!WR_UR21/WR_HONO=0.0
-!
-!WR_UR21/WR_HNO3=0.0
-!
-!WR_UR21/WR_HNO4=0.0
-!
-!WR_UR21/WR_NH3=0.0
-!
-!WR_UR21/WR_OH=+KR36*<WR_MGLY>+KR37*<WR_KETL>+0.56*KR41*<WR_ACID>-KR43*<WR_UR21
-!>
- PJAC(:,154,135)=+TPK%KR36(:)*PCONC(:,148)+TPK%KR37(:)*PCONC(:,149)+0.56*TPK%KR&
-&41(:)*PCONC(:,152)-TPK%KR43(:)*PCONC(:,154)
-!
-!WR_UR21/WR_HO2=0.0
-!
-!WR_UR21/WR_CO2=0.0
-!
-!WR_UR21/WR_SO2=0.0
-!
-!WR_UR21/WR_H2SO4=0.0
-!
-!WR_UR21/WR_RO21=0.0
-!
-!WR_UR21/WR_RO25=0.0
-!
-!WR_UR21/WR_MEOH=0.0
-!
-!WR_UR21/WR_ETOH=0.0
-!
-!WR_UR21/WR_ALCH=0.0
-!
-!WR_UR21/WR_HCHO=0.0
-!
-!WR_UR21/WR_ALD2=0.0
-!
-!WR_UR21/WR_GLY=0.0
-!
-!WR_UR21/WR_MGLY=+KR36*<WR_OH>
- PJAC(:,154,148)=+TPK%KR36(:)*PCONC(:,135)
-!
-!WR_UR21/WR_KETL=+KR37*<WR_OH>
- PJAC(:,154,149)=+TPK%KR37(:)*PCONC(:,135)
-!
-!WR_UR21/WR_ORA1=0.0
-!
-!WR_UR21/WR_ORA2=0.0
-!
-!WR_UR21/WR_ACID=+0.56*KR41*<WR_OH>
- PJAC(:,154,152)=+0.56*TPK%KR41(:)*PCONC(:,135)
-!
-!WR_UR21/WR_RP16=0.0
-!
-!WR_UR21/WR_UR21=-KTR61-KR43*<WR_OH>
- PJAC(:,154,154)=-TPK%KTR61(:)-TPK%KR43(:)*PCONC(:,135)
-!
-!WR_UR21/WR_UR28=0.0
-!
-!WR_UR21/WR_ACID2=0.0
-!
-!WR_UR21/WR_ASO3=0.0
-!
-!WR_UR21/WR_ASO4=0.0
-!
-!WR_UR21/WR_ASO5=0.0
-!
-!WR_UR21/WR_AHSO5=0.0
-!
-!WR_UR21/WR_AHMS=0.0
-!
-!WR_UR28/NO=0.0
-!
-!WR_UR28/NO2=0.0
-!
-!WR_UR28/O3=0.0
-!
-!WR_UR28/HONO=0.0
-!
-!WR_UR28/HNO3=0.0
-!
-!WR_UR28/HNO4=0.0
-!
-!WR_UR28/N2O5=0.0
-!
-!WR_UR28/NO3=0.0
-!
-!WR_UR28/NH3=0.0
-!
-!WR_UR28/HO2=0.0
-!
-!WR_UR28/CO=0.0
-!
-!WR_UR28/H2O2=0.0
-!
-!WR_UR28/SO2=0.0
-!
-!WR_UR28/H2SO4=0.0
-!
-!WR_UR28/OH=0.0
-!
-!WR_UR28/ETHE=0.0
-!
-!WR_UR28/OLEL=0.0
-!
-!WR_UR28/OLEH=0.0
-!
-!WR_UR28/ALKL=0.0
-!
-!WR_UR28/ALKM=0.0
-!
-!WR_UR28/ALKH=0.0
-!
-!WR_UR28/AROH=0.0
-!
-!WR_UR28/AROL=0.0
-!
-!WR_UR28/AROO=0.0
-!
-!WR_UR28/ARAL=0.0
-!
-!WR_UR28/ARAC=0.0
-!
-!WR_UR28/PAH=0.0
-!
-!WR_UR28/HCHO=0.0
-!
-!WR_UR28/ALD2=0.0
-!
-!WR_UR28/KETL=0.0
-!
-!WR_UR28/KETH=0.0
-!
-!WR_UR28/MEOH=0.0
-!
-!WR_UR28/ETOH=0.0
-!
-!WR_UR28/ALCH=0.0
-!
-!WR_UR28/ISOP=0.0
-!
-!WR_UR28/BIOL=0.0
-!
-!WR_UR28/BIOH=0.0
-!
-!WR_UR28/MTBE=0.0
-!
-!WR_UR28/MVK=0.0
-!
-!WR_UR28/MCR=0.0
-!
-!WR_UR28/MGLY=0.0
-!
-!WR_UR28/GLY=0.0
-!
-!WR_UR28/ORA1=0.0
-!
-!WR_UR28/ORA2=0.0
-!
-!WR_UR28/ACID=0.0
-!
-!WR_UR28/UR28=+KTR31
- PJAC(:,155,46)=+TPK%KTR31(:)
-!
-!WR_UR28/UR21=0.0
-!
-!WR_UR28/URG2=0.0
-!
-!WR_UR28/UR26=0.0
-!
-!WR_UR28/RPG2=0.0
-!
-!WR_UR28/RP18=0.0
-!
-!WR_UR28/RPG3=0.0
-!
-!WR_UR28/URG4=0.0
-!
-!WR_UR28/UR8=0.0
-!
-!WR_UR28/UR17=0.0
-!
-!WR_UR28/UR7=0.0
-!
-!WR_UR28/RPR3=0.0
-!
-!WR_UR28/URG6=0.0
-!
-!WR_UR28/UR22=0.0
-!
-!WR_UR28/URG7=0.0
-!
-!WR_UR28/RPR4=0.0
-!
-!WR_UR28/RPR7=0.0
-!
-!WR_UR28/RPG7=0.0
-!
-!WR_UR28/URG8=0.0
-!
-!WR_UR28/UR19=0.0
-!
-!WR_UR28/URG9=0.0
-!
-!WR_UR28/AP7=0.0
-!
-!WR_UR28/URG10=0.0
-!
-!WR_UR28/RPR1=0.0
-!
-!WR_UR28/RPR5=0.0
-!
-!WR_UR28/RPR8=0.0
-!
-!WR_UR28/RP10=0.0
-!
-!WR_UR28/RP11=0.0
-!
-!WR_UR28/RP16=0.0
-!
-!WR_UR28/RPRL=0.0
-!
-!WR_UR28/APAN=0.0
-!
-!WR_UR28/PAN1=0.0
-!
-!WR_UR28/PAN2=0.0
-!
-!WR_UR28/PAN3=0.0
-!
-!WR_UR28/PAN4=0.0
-!
-!WR_UR28/PAN6=0.0
-!
-!WR_UR28/PAN7=0.0
-!
-!WR_UR28/PAN8=0.0
-!
-!WR_UR28/PN10=0.0
-!
-!WR_UR28/RO2T=0.0
-!
-!WR_UR28/RO21=0.0
-!
-!WR_UR28/RO25=0.0
-!
-!WR_UR28/WC_O3=0.0
-!
-!WR_UR28/WC_H2O2=0.0
-!
-!WR_UR28/WC_NO=0.0
-!
-!WR_UR28/WC_NO2=0.0
-!
-!WR_UR28/WC_NO3=0.0
-!
-!WR_UR28/WC_N2O5=0.0
-!
-!WR_UR28/WC_HONO=0.0
-!
-!WR_UR28/WC_HNO3=0.0
-!
-!WR_UR28/WC_HNO4=0.0
-!
-!WR_UR28/WC_NH3=0.0
-!
-!WR_UR28/WC_OH=0.0
-!
-!WR_UR28/WC_HO2=0.0
-!
-!WR_UR28/WC_CO2=0.0
-!
-!WR_UR28/WC_SO2=0.0
-!
-!WR_UR28/WC_H2SO4=0.0
-!
-!WR_UR28/WC_RO21=0.0
-!
-!WR_UR28/WC_RO25=0.0
-!
-!WR_UR28/WC_MEOH=0.0
-!
-!WR_UR28/WC_ETOH=0.0
-!
-!WR_UR28/WC_ALCH=0.0
-!
-!WR_UR28/WC_HCHO=0.0
-!
-!WR_UR28/WC_ALD2=0.0
-!
-!WR_UR28/WC_GLY=0.0
-!
-!WR_UR28/WC_MGLY=0.0
-!
-!WR_UR28/WC_KETL=0.0
-!
-!WR_UR28/WC_ORA1=0.0
-!
-!WR_UR28/WC_ORA2=0.0
-!
-!WR_UR28/WC_ACID=0.0
-!
-!WR_UR28/WC_RP16=0.0
-!
-!WR_UR28/WC_UR21=0.0
-!
-!WR_UR28/WC_UR28=0.0
-!
-!WR_UR28/WC_ACID2=0.0
-!
-!WR_UR28/WC_ASO3=0.0
-!
-!WR_UR28/WC_ASO4=0.0
-!
-!WR_UR28/WC_ASO5=0.0
-!
-!WR_UR28/WC_AHSO5=0.0
-!
-!WR_UR28/WC_AHMS=0.0
-!
-!WR_UR28/WR_O3=0.0
-!
-!WR_UR28/WR_H2O2=0.0
-!
-!WR_UR28/WR_NO=0.0
-!
-!WR_UR28/WR_NO2=0.0
-!
-!WR_UR28/WR_NO3=0.0
-!
-!WR_UR28/WR_N2O5=0.0
-!
-!WR_UR28/WR_HONO=0.0
-!
-!WR_UR28/WR_HNO3=0.0
-!
-!WR_UR28/WR_HNO4=0.0
-!
-!WR_UR28/WR_NH3=0.0
-!
-!WR_UR28/WR_OH=-KR42*<WR_UR28>+KR44*<WR_RP16>
- PJAC(:,155,135)=-TPK%KR42(:)*PCONC(:,155)+TPK%KR44(:)*PCONC(:,153)
-!
-!WR_UR28/WR_HO2=0.0
-!
-!WR_UR28/WR_CO2=0.0
-!
-!WR_UR28/WR_SO2=0.0
-!
-!WR_UR28/WR_H2SO4=0.0
-!
-!WR_UR28/WR_RO21=0.0
-!
-!WR_UR28/WR_RO25=0.0
-!
-!WR_UR28/WR_MEOH=0.0
-!
-!WR_UR28/WR_ETOH=0.0
-!
-!WR_UR28/WR_ALCH=0.0
-!
-!WR_UR28/WR_HCHO=0.0
-!
-!WR_UR28/WR_ALD2=0.0
-!
-!WR_UR28/WR_GLY=0.0
-!
-!WR_UR28/WR_MGLY=0.0
-!
-!WR_UR28/WR_KETL=0.0
-!
-!WR_UR28/WR_ORA1=0.0
-!
-!WR_UR28/WR_ORA2=0.0
-!
-!WR_UR28/WR_ACID=0.0
-!
-!WR_UR28/WR_RP16=+KR44*<WR_OH>
- PJAC(:,155,153)=+TPK%KR44(:)*PCONC(:,135)
-!
-!WR_UR28/WR_UR21=0.0
-!
-!WR_UR28/WR_UR28=-KTR62-KR42*<WR_OH>
- PJAC(:,155,155)=-TPK%KTR62(:)-TPK%KR42(:)*PCONC(:,135)
-!
-!WR_UR28/WR_ACID2=0.0
-!
-!WR_UR28/WR_ASO3=0.0
-!
-!WR_UR28/WR_ASO4=0.0
-!
-!WR_UR28/WR_ASO5=0.0
-!
-!WR_UR28/WR_AHSO5=0.0
-!
-!WR_UR28/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ30
-!
-SUBROUTINE SUBJ31
-!
-!Indices 156 a 160
-!
-!
-!WR_ACID2/NO=0.0
-!
-!WR_ACID2/NO2=0.0
-!
-!WR_ACID2/O3=0.0
-!
-!WR_ACID2/HONO=0.0
-!
-!WR_ACID2/HNO3=0.0
-!
-!WR_ACID2/HNO4=0.0
-!
-!WR_ACID2/N2O5=0.0
-!
-!WR_ACID2/NO3=0.0
-!
-!WR_ACID2/NH3=0.0
-!
-!WR_ACID2/HO2=0.0
-!
-!WR_ACID2/CO=0.0
-!
-!WR_ACID2/H2O2=0.0
-!
-!WR_ACID2/SO2=0.0
-!
-!WR_ACID2/H2SO4=0.0
-!
-!WR_ACID2/OH=0.0
-!
-!WR_ACID2/ETHE=0.0
-!
-!WR_ACID2/OLEL=0.0
-!
-!WR_ACID2/OLEH=0.0
-!
-!WR_ACID2/ALKL=0.0
-!
-!WR_ACID2/ALKM=0.0
-!
-!WR_ACID2/ALKH=0.0
-!
-!WR_ACID2/AROH=0.0
-!
-!WR_ACID2/AROL=0.0
-!
-!WR_ACID2/AROO=0.0
-!
-!WR_ACID2/ARAL=0.0
-!
-!WR_ACID2/ARAC=0.0
-!
-!WR_ACID2/PAH=0.0
-!
-!WR_ACID2/HCHO=0.0
-!
-!WR_ACID2/ALD2=0.0
-!
-!WR_ACID2/KETL=0.0
-!
-!WR_ACID2/KETH=0.0
-!
-!WR_ACID2/MEOH=0.0
-!
-!WR_ACID2/ETOH=0.0
-!
-!WR_ACID2/ALCH=0.0
-!
-!WR_ACID2/ISOP=0.0
-!
-!WR_ACID2/BIOL=0.0
-!
-!WR_ACID2/BIOH=0.0
-!
-!WR_ACID2/MTBE=0.0
-!
-!WR_ACID2/MVK=0.0
-!
-!WR_ACID2/MCR=0.0
-!
-!WR_ACID2/MGLY=0.0
-!
-!WR_ACID2/GLY=0.0
-!
-!WR_ACID2/ORA1=0.0
-!
-!WR_ACID2/ORA2=0.0
-!
-!WR_ACID2/ACID=0.0
-!
-!WR_ACID2/UR28=0.0
-!
-!WR_ACID2/UR21=0.0
-!
-!WR_ACID2/URG2=0.0
-!
-!WR_ACID2/UR26=0.0
-!
-!WR_ACID2/RPG2=0.0
-!
-!WR_ACID2/RP18=0.0
-!
-!WR_ACID2/RPG3=0.0
-!
-!WR_ACID2/URG4=0.0
-!
-!WR_ACID2/UR8=0.0
-!
-!WR_ACID2/UR17=0.0
-!
-!WR_ACID2/UR7=0.0
-!
-!WR_ACID2/RPR3=0.0
-!
-!WR_ACID2/URG6=0.0
-!
-!WR_ACID2/UR22=0.0
-!
-!WR_ACID2/URG7=0.0
-!
-!WR_ACID2/RPR4=0.0
-!
-!WR_ACID2/RPR7=0.0
-!
-!WR_ACID2/RPG7=0.0
-!
-!WR_ACID2/URG8=0.0
-!
-!WR_ACID2/UR19=0.0
-!
-!WR_ACID2/URG9=0.0
-!
-!WR_ACID2/AP7=0.0
-!
-!WR_ACID2/URG10=0.0
-!
-!WR_ACID2/RPR1=0.0
-!
-!WR_ACID2/RPR5=0.0
-!
-!WR_ACID2/RPR8=0.0
-!
-!WR_ACID2/RP10=0.0
-!
-!WR_ACID2/RP11=0.0
-!
-!WR_ACID2/RP16=0.0
-!
-!WR_ACID2/RPRL=0.0
-!
-!WR_ACID2/APAN=0.0
-!
-!WR_ACID2/PAN1=0.0
-!
-!WR_ACID2/PAN2=0.0
-!
-!WR_ACID2/PAN3=0.0
-!
-!WR_ACID2/PAN4=0.0
-!
-!WR_ACID2/PAN6=0.0
-!
-!WR_ACID2/PAN7=0.0
-!
-!WR_ACID2/PAN8=0.0
-!
-!WR_ACID2/PN10=0.0
-!
-!WR_ACID2/RO2T=0.0
-!
-!WR_ACID2/RO21=0.0
-!
-!WR_ACID2/RO25=0.0
-!
-!WR_ACID2/WC_O3=0.0
-!
-!WR_ACID2/WC_H2O2=0.0
-!
-!WR_ACID2/WC_NO=0.0
-!
-!WR_ACID2/WC_NO2=0.0
-!
-!WR_ACID2/WC_NO3=0.0
-!
-!WR_ACID2/WC_N2O5=0.0
-!
-!WR_ACID2/WC_HONO=0.0
-!
-!WR_ACID2/WC_HNO3=0.0
-!
-!WR_ACID2/WC_HNO4=0.0
-!
-!WR_ACID2/WC_NH3=0.0
-!
-!WR_ACID2/WC_OH=0.0
-!
-!WR_ACID2/WC_HO2=0.0
-!
-!WR_ACID2/WC_CO2=0.0
-!
-!WR_ACID2/WC_SO2=0.0
-!
-!WR_ACID2/WC_H2SO4=0.0
-!
-!WR_ACID2/WC_RO21=0.0
-!
-!WR_ACID2/WC_RO25=0.0
-!
-!WR_ACID2/WC_MEOH=0.0
-!
-!WR_ACID2/WC_ETOH=0.0
-!
-!WR_ACID2/WC_ALCH=0.0
-!
-!WR_ACID2/WC_HCHO=0.0
-!
-!WR_ACID2/WC_ALD2=0.0
-!
-!WR_ACID2/WC_GLY=0.0
-!
-!WR_ACID2/WC_MGLY=0.0
-!
-!WR_ACID2/WC_KETL=0.0
-!
-!WR_ACID2/WC_ORA1=0.0
-!
-!WR_ACID2/WC_ORA2=0.0
-!
-!WR_ACID2/WC_ACID=0.0
-!
-!WR_ACID2/WC_RP16=0.0
-!
-!WR_ACID2/WC_UR21=0.0
-!
-!WR_ACID2/WC_UR28=0.0
-!
-!WR_ACID2/WC_ACID2=0.0
-!
-!WR_ACID2/WC_ASO3=0.0
-!
-!WR_ACID2/WC_ASO4=0.0
-!
-!WR_ACID2/WC_ASO5=0.0
-!
-!WR_ACID2/WC_AHSO5=0.0
-!
-!WR_ACID2/WC_AHMS=0.0
-!
-!WR_ACID2/WR_O3=0.0
-!
-!WR_ACID2/WR_H2O2=0.0
-!
-!WR_ACID2/WR_NO=0.0
-!
-!WR_ACID2/WR_NO2=0.0
-!
-!WR_ACID2/WR_NO3=0.0
-!
-!WR_ACID2/WR_N2O5=0.0
-!
-!WR_ACID2/WR_HONO=0.0
-!
-!WR_ACID2/WR_HNO3=0.0
-!
-!WR_ACID2/WR_HNO4=0.0
-!
-!WR_ACID2/WR_NH3=0.0
-!
-!WR_ACID2/WR_OH=+0.15*KR41*<WR_ACID>+0.56*KR43*<WR_UR21>-KR46*<WR_ACID2>
- PJAC(:,156,135)=+0.15*TPK%KR41(:)*PCONC(:,152)+0.56*TPK%KR43(:)*PCONC(:,154)-T&
-&PK%KR46(:)*PCONC(:,156)
-!
-!WR_ACID2/WR_HO2=0.0
-!
-!WR_ACID2/WR_CO2=0.0
-!
-!WR_ACID2/WR_SO2=0.0
-!
-!WR_ACID2/WR_H2SO4=0.0
-!
-!WR_ACID2/WR_RO21=0.0
-!
-!WR_ACID2/WR_RO25=0.0
-!
-!WR_ACID2/WR_MEOH=0.0
-!
-!WR_ACID2/WR_ETOH=0.0
-!
-!WR_ACID2/WR_ALCH=0.0
-!
-!WR_ACID2/WR_HCHO=0.0
-!
-!WR_ACID2/WR_ALD2=0.0
-!
-!WR_ACID2/WR_GLY=0.0
-!
-!WR_ACID2/WR_MGLY=0.0
-!
-!WR_ACID2/WR_KETL=0.0
-!
-!WR_ACID2/WR_ORA1=0.0
-!
-!WR_ACID2/WR_ORA2=0.0
-!
-!WR_ACID2/WR_ACID=+0.15*KR41*<WR_OH>
- PJAC(:,156,152)=+0.15*TPK%KR41(:)*PCONC(:,135)
-!
-!WR_ACID2/WR_RP16=0.0
-!
-!WR_ACID2/WR_UR21=+0.56*KR43*<WR_OH>
- PJAC(:,156,154)=+0.56*TPK%KR43(:)*PCONC(:,135)
-!
-!WR_ACID2/WR_UR28=0.0
-!
-!WR_ACID2/WR_ACID2=-KR46*<WR_OH>
- PJAC(:,156,156)=-TPK%KR46(:)*PCONC(:,135)
-!
-!WR_ACID2/WR_ASO3=0.0
-!
-!WR_ACID2/WR_ASO4=0.0
-!
-!WR_ACID2/WR_ASO5=0.0
-!
-!WR_ACID2/WR_AHSO5=0.0
-!
-!WR_ACID2/WR_AHMS=0.0
-!
-!WR_ASO3/NO=0.0
-!
-!WR_ASO3/NO2=0.0
-!
-!WR_ASO3/O3=0.0
-!
-!WR_ASO3/HONO=0.0
-!
-!WR_ASO3/HNO3=0.0
-!
-!WR_ASO3/HNO4=0.0
-!
-!WR_ASO3/N2O5=0.0
-!
-!WR_ASO3/NO3=0.0
-!
-!WR_ASO3/NH3=0.0
-!
-!WR_ASO3/HO2=0.0
-!
-!WR_ASO3/CO=0.0
-!
-!WR_ASO3/H2O2=0.0
-!
-!WR_ASO3/SO2=0.0
-!
-!WR_ASO3/H2SO4=0.0
-!
-!WR_ASO3/OH=0.0
-!
-!WR_ASO3/ETHE=0.0
-!
-!WR_ASO3/OLEL=0.0
-!
-!WR_ASO3/OLEH=0.0
-!
-!WR_ASO3/ALKL=0.0
-!
-!WR_ASO3/ALKM=0.0
-!
-!WR_ASO3/ALKH=0.0
-!
-!WR_ASO3/AROH=0.0
-!
-!WR_ASO3/AROL=0.0
-!
-!WR_ASO3/AROO=0.0
-!
-!WR_ASO3/ARAL=0.0
-!
-!WR_ASO3/ARAC=0.0
-!
-!WR_ASO3/PAH=0.0
-!
-!WR_ASO3/HCHO=0.0
-!
-!WR_ASO3/ALD2=0.0
-!
-!WR_ASO3/KETL=0.0
-!
-!WR_ASO3/KETH=0.0
-!
-!WR_ASO3/MEOH=0.0
-!
-!WR_ASO3/ETOH=0.0
-!
-!WR_ASO3/ALCH=0.0
-!
-!WR_ASO3/ISOP=0.0
-!
-!WR_ASO3/BIOL=0.0
-!
-!WR_ASO3/BIOH=0.0
-!
-!WR_ASO3/MTBE=0.0
-!
-!WR_ASO3/MVK=0.0
-!
-!WR_ASO3/MCR=0.0
-!
-!WR_ASO3/MGLY=0.0
-!
-!WR_ASO3/GLY=0.0
-!
-!WR_ASO3/ORA1=0.0
-!
-!WR_ASO3/ORA2=0.0
-!
-!WR_ASO3/ACID=0.0
-!
-!WR_ASO3/UR28=0.0
-!
-!WR_ASO3/UR21=0.0
-!
-!WR_ASO3/URG2=0.0
-!
-!WR_ASO3/UR26=0.0
-!
-!WR_ASO3/RPG2=0.0
-!
-!WR_ASO3/RP18=0.0
-!
-!WR_ASO3/RPG3=0.0
-!
-!WR_ASO3/URG4=0.0
-!
-!WR_ASO3/UR8=0.0
-!
-!WR_ASO3/UR17=0.0
-!
-!WR_ASO3/UR7=0.0
-!
-!WR_ASO3/RPR3=0.0
-!
-!WR_ASO3/URG6=0.0
-!
-!WR_ASO3/UR22=0.0
-!
-!WR_ASO3/URG7=0.0
-!
-!WR_ASO3/RPR4=0.0
-!
-!WR_ASO3/RPR7=0.0
-!
-!WR_ASO3/RPG7=0.0
-!
-!WR_ASO3/URG8=0.0
-!
-!WR_ASO3/UR19=0.0
-!
-!WR_ASO3/URG9=0.0
-!
-!WR_ASO3/AP7=0.0
-!
-!WR_ASO3/URG10=0.0
-!
-!WR_ASO3/RPR1=0.0
-!
-!WR_ASO3/RPR5=0.0
-!
-!WR_ASO3/RPR8=0.0
-!
-!WR_ASO3/RP10=0.0
-!
-!WR_ASO3/RP11=0.0
-!
-!WR_ASO3/RP16=0.0
-!
-!WR_ASO3/RPRL=0.0
-!
-!WR_ASO3/APAN=0.0
-!
-!WR_ASO3/PAN1=0.0
-!
-!WR_ASO3/PAN2=0.0
-!
-!WR_ASO3/PAN3=0.0
-!
-!WR_ASO3/PAN4=0.0
-!
-!WR_ASO3/PAN6=0.0
-!
-!WR_ASO3/PAN7=0.0
-!
-!WR_ASO3/PAN8=0.0
-!
-!WR_ASO3/PN10=0.0
-!
-!WR_ASO3/RO2T=0.0
-!
-!WR_ASO3/RO21=0.0
-!
-!WR_ASO3/RO25=0.0
-!
-!WR_ASO3/WC_O3=0.0
-!
-!WR_ASO3/WC_H2O2=0.0
-!
-!WR_ASO3/WC_NO=0.0
-!
-!WR_ASO3/WC_NO2=0.0
-!
-!WR_ASO3/WC_NO3=0.0
-!
-!WR_ASO3/WC_N2O5=0.0
-!
-!WR_ASO3/WC_HONO=0.0
-!
-!WR_ASO3/WC_HNO3=0.0
-!
-!WR_ASO3/WC_HNO4=0.0
-!
-!WR_ASO3/WC_NH3=0.0
-!
-!WR_ASO3/WC_OH=0.0
-!
-!WR_ASO3/WC_HO2=0.0
-!
-!WR_ASO3/WC_CO2=0.0
-!
-!WR_ASO3/WC_SO2=0.0
-!
-!WR_ASO3/WC_H2SO4=0.0
-!
-!WR_ASO3/WC_RO21=0.0
-!
-!WR_ASO3/WC_RO25=0.0
-!
-!WR_ASO3/WC_MEOH=0.0
-!
-!WR_ASO3/WC_ETOH=0.0
-!
-!WR_ASO3/WC_ALCH=0.0
-!
-!WR_ASO3/WC_HCHO=0.0
-!
-!WR_ASO3/WC_ALD2=0.0
-!
-!WR_ASO3/WC_GLY=0.0
-!
-!WR_ASO3/WC_MGLY=0.0
-!
-!WR_ASO3/WC_KETL=0.0
-!
-!WR_ASO3/WC_ORA1=0.0
-!
-!WR_ASO3/WC_ORA2=0.0
-!
-!WR_ASO3/WC_ACID=0.0
-!
-!WR_ASO3/WC_RP16=0.0
-!
-!WR_ASO3/WC_UR21=0.0
-!
-!WR_ASO3/WC_UR28=0.0
-!
-!WR_ASO3/WC_ACID2=0.0
-!
-!WR_ASO3/WC_ASO3=0.0
-!
-!WR_ASO3/WC_ASO4=0.0
-!
-!WR_ASO3/WC_ASO5=0.0
-!
-!WR_ASO3/WC_AHSO5=0.0
-!
-!WR_ASO3/WC_AHMS=0.0
-!
-!WR_ASO3/WR_O3=0.0
-!
-!WR_ASO3/WR_H2O2=0.0
-!
-!WR_ASO3/WR_NO=0.0
-!
-!WR_ASO3/WR_NO2=0.0
-!
-!WR_ASO3/WR_NO3=+KR16*<WR_SO2>
- PJAC(:,157,129)=+TPK%KR16(:)*PCONC(:,138)
-!
-!WR_ASO3/WR_N2O5=0.0
-!
-!WR_ASO3/WR_HONO=0.0
-!
-!WR_ASO3/WR_HNO3=0.0
-!
-!WR_ASO3/WR_HNO4=0.0
-!
-!WR_ASO3/WR_NH3=0.0
-!
-!WR_ASO3/WR_OH=+KR7*<WR_SO2>
- PJAC(:,157,135)=+TPK%KR7(:)*PCONC(:,138)
-!
-!WR_ASO3/WR_HO2=0.0
-!
-!WR_ASO3/WR_CO2=0.0
-!
-!WR_ASO3/WR_SO2=+KR7*<WR_OH>+KR16*<WR_NO3>+KR28*<WR_RO21>
- PJAC(:,157,138)=+TPK%KR7(:)*PCONC(:,135)+TPK%KR16(:)*PCONC(:,129)+TPK%KR28(:)*&
-&PCONC(:,140)
-!
-!WR_ASO3/WR_H2SO4=0.0
-!
-!WR_ASO3/WR_RO21=+KR28*<WR_SO2>
- PJAC(:,157,140)=+TPK%KR28(:)*PCONC(:,138)
-!
-!WR_ASO3/WR_RO25=0.0
-!
-!WR_ASO3/WR_MEOH=0.0
-!
-!WR_ASO3/WR_ETOH=0.0
-!
-!WR_ASO3/WR_ALCH=0.0
-!
-!WR_ASO3/WR_HCHO=0.0
-!
-!WR_ASO3/WR_ALD2=0.0
-!
-!WR_ASO3/WR_GLY=0.0
-!
-!WR_ASO3/WR_MGLY=0.0
-!
-!WR_ASO3/WR_KETL=0.0
-!
-!WR_ASO3/WR_ORA1=0.0
-!
-!WR_ASO3/WR_ORA2=0.0
-!
-!WR_ASO3/WR_ACID=0.0
-!
-!WR_ASO3/WR_RP16=0.0
-!
-!WR_ASO3/WR_UR21=0.0
-!
-!WR_ASO3/WR_UR28=0.0
-!
-!WR_ASO3/WR_ACID2=0.0
-!
-!WR_ASO3/WR_ASO3=-KR20*<W_O2>
- PJAC(:,157,157)=-TPK%KR20(:)*TPK%W_O2(:)
-!
-!WR_ASO3/WR_ASO4=0.0
-!
-!WR_ASO3/WR_ASO5=0.0
-!
-!WR_ASO3/WR_AHSO5=0.0
-!
-!WR_ASO3/WR_AHMS=0.0
-!
-!WR_ASO4/NO=0.0
-!
-!WR_ASO4/NO2=0.0
-!
-!WR_ASO4/O3=0.0
-!
-!WR_ASO4/HONO=0.0
-!
-!WR_ASO4/HNO3=0.0
-!
-!WR_ASO4/HNO4=0.0
-!
-!WR_ASO4/N2O5=0.0
-!
-!WR_ASO4/NO3=0.0
-!
-!WR_ASO4/NH3=0.0
-!
-!WR_ASO4/HO2=0.0
-!
-!WR_ASO4/CO=0.0
-!
-!WR_ASO4/H2O2=0.0
-!
-!WR_ASO4/SO2=0.0
-!
-!WR_ASO4/H2SO4=0.0
-!
-!WR_ASO4/OH=0.0
-!
-!WR_ASO4/ETHE=0.0
-!
-!WR_ASO4/OLEL=0.0
-!
-!WR_ASO4/OLEH=0.0
-!
-!WR_ASO4/ALKL=0.0
-!
-!WR_ASO4/ALKM=0.0
-!
-!WR_ASO4/ALKH=0.0
-!
-!WR_ASO4/AROH=0.0
-!
-!WR_ASO4/AROL=0.0
-!
-!WR_ASO4/AROO=0.0
-!
-!WR_ASO4/ARAL=0.0
-!
-!WR_ASO4/ARAC=0.0
-!
-!WR_ASO4/PAH=0.0
-!
-!WR_ASO4/HCHO=0.0
-!
-!WR_ASO4/ALD2=0.0
-!
-!WR_ASO4/KETL=0.0
-!
-!WR_ASO4/KETH=0.0
-!
-!WR_ASO4/MEOH=0.0
-!
-!WR_ASO4/ETOH=0.0
-!
-!WR_ASO4/ALCH=0.0
-!
-!WR_ASO4/ISOP=0.0
-!
-!WR_ASO4/BIOL=0.0
-!
-!WR_ASO4/BIOH=0.0
-!
-!WR_ASO4/MTBE=0.0
-!
-!WR_ASO4/MVK=0.0
-!
-!WR_ASO4/MCR=0.0
-!
-!WR_ASO4/MGLY=0.0
-!
-!WR_ASO4/GLY=0.0
-!
-!WR_ASO4/ORA1=0.0
-!
-!WR_ASO4/ORA2=0.0
-!
-!WR_ASO4/ACID=0.0
-!
-!WR_ASO4/UR28=0.0
-!
-!WR_ASO4/UR21=0.0
-!
-!WR_ASO4/URG2=0.0
-!
-!WR_ASO4/UR26=0.0
-!
-!WR_ASO4/RPG2=0.0
-!
-!WR_ASO4/RP18=0.0
-!
-!WR_ASO4/RPG3=0.0
-!
-!WR_ASO4/URG4=0.0
-!
-!WR_ASO4/UR8=0.0
-!
-!WR_ASO4/UR17=0.0
-!
-!WR_ASO4/UR7=0.0
-!
-!WR_ASO4/RPR3=0.0
-!
-!WR_ASO4/URG6=0.0
-!
-!WR_ASO4/UR22=0.0
-!
-!WR_ASO4/URG7=0.0
-!
-!WR_ASO4/RPR4=0.0
-!
-!WR_ASO4/RPR7=0.0
-!
-!WR_ASO4/RPG7=0.0
-!
-!WR_ASO4/URG8=0.0
-!
-!WR_ASO4/UR19=0.0
-!
-!WR_ASO4/URG9=0.0
-!
-!WR_ASO4/AP7=0.0
-!
-!WR_ASO4/URG10=0.0
-!
-!WR_ASO4/RPR1=0.0
-!
-!WR_ASO4/RPR5=0.0
-!
-!WR_ASO4/RPR8=0.0
-!
-!WR_ASO4/RP10=0.0
-!
-!WR_ASO4/RP11=0.0
-!
-!WR_ASO4/RP16=0.0
-!
-!WR_ASO4/RPRL=0.0
-!
-!WR_ASO4/APAN=0.0
-!
-!WR_ASO4/PAN1=0.0
-!
-!WR_ASO4/PAN2=0.0
-!
-!WR_ASO4/PAN3=0.0
-!
-!WR_ASO4/PAN4=0.0
-!
-!WR_ASO4/PAN6=0.0
-!
-!WR_ASO4/PAN7=0.0
-!
-!WR_ASO4/PAN8=0.0
-!
-!WR_ASO4/PN10=0.0
-!
-!WR_ASO4/RO2T=0.0
-!
-!WR_ASO4/RO21=0.0
-!
-!WR_ASO4/RO25=0.0
-!
-!WR_ASO4/WC_O3=0.0
-!
-!WR_ASO4/WC_H2O2=0.0
-!
-!WR_ASO4/WC_NO=0.0
-!
-!WR_ASO4/WC_NO2=0.0
-!
-!WR_ASO4/WC_NO3=0.0
-!
-!WR_ASO4/WC_N2O5=0.0
-!
-!WR_ASO4/WC_HONO=0.0
-!
-!WR_ASO4/WC_HNO3=0.0
-!
-!WR_ASO4/WC_HNO4=0.0
-!
-!WR_ASO4/WC_NH3=0.0
-!
-!WR_ASO4/WC_OH=0.0
-!
-!WR_ASO4/WC_HO2=0.0
-!
-!WR_ASO4/WC_CO2=0.0
-!
-!WR_ASO4/WC_SO2=0.0
-!
-!WR_ASO4/WC_H2SO4=0.0
-!
-!WR_ASO4/WC_RO21=0.0
-!
-!WR_ASO4/WC_RO25=0.0
-!
-!WR_ASO4/WC_MEOH=0.0
-!
-!WR_ASO4/WC_ETOH=0.0
-!
-!WR_ASO4/WC_ALCH=0.0
-!
-!WR_ASO4/WC_HCHO=0.0
-!
-!WR_ASO4/WC_ALD2=0.0
-!
-!WR_ASO4/WC_GLY=0.0
-!
-!WR_ASO4/WC_MGLY=0.0
-!
-!WR_ASO4/WC_KETL=0.0
-!
-!WR_ASO4/WC_ORA1=0.0
-!
-!WR_ASO4/WC_ORA2=0.0
-!
-!WR_ASO4/WC_ACID=0.0
-!
-!WR_ASO4/WC_RP16=0.0
-!
-!WR_ASO4/WC_UR21=0.0
-!
-!WR_ASO4/WC_UR28=0.0
-!
-!WR_ASO4/WC_ACID2=0.0
-!
-!WR_ASO4/WC_ASO3=0.0
-!
-!WR_ASO4/WC_ASO4=0.0
-!
-!WR_ASO4/WC_ASO5=0.0
-!
-!WR_ASO4/WC_AHSO5=0.0
-!
-!WR_ASO4/WC_AHMS=0.0
-!
-!WR_ASO4/WR_O3=0.0
-!
-!WR_ASO4/WR_H2O2=0.0
-!
-!WR_ASO4/WR_NO=0.0
-!
-!WR_ASO4/WR_NO2=0.0
-!
-!WR_ASO4/WR_NO3=+KR15*<WR_H2SO4>
- PJAC(:,158,129)=+TPK%KR15(:)*PCONC(:,139)
-!
-!WR_ASO4/WR_N2O5=0.0
-!
-!WR_ASO4/WR_HONO=0.0
-!
-!WR_ASO4/WR_HNO3=0.0
-!
-!WR_ASO4/WR_HNO4=0.0
-!
-!WR_ASO4/WR_NH3=0.0
-!
-!WR_ASO4/WR_OH=0.0
-!
-!WR_ASO4/WR_HO2=0.0
-!
-!WR_ASO4/WR_CO2=0.0
-!
-!WR_ASO4/WR_SO2=0.0
-!
-!WR_ASO4/WR_H2SO4=+KR15*<WR_NO3>
- PJAC(:,158,139)=+TPK%KR15(:)*PCONC(:,129)
-!
-!WR_ASO4/WR_RO21=0.0
-!
-!WR_ASO4/WR_RO25=0.0
-!
-!WR_ASO4/WR_MEOH=0.0
-!
-!WR_ASO4/WR_ETOH=0.0
-!
-!WR_ASO4/WR_ALCH=0.0
-!
-!WR_ASO4/WR_HCHO=0.0
-!
-!WR_ASO4/WR_ALD2=0.0
-!
-!WR_ASO4/WR_GLY=0.0
-!
-!WR_ASO4/WR_MGLY=0.0
-!
-!WR_ASO4/WR_KETL=0.0
-!
-!WR_ASO4/WR_ORA1=0.0
-!
-!WR_ASO4/WR_ORA2=0.0
-!
-!WR_ASO4/WR_ACID=0.0
-!
-!WR_ASO4/WR_RP16=0.0
-!
-!WR_ASO4/WR_UR21=0.0
-!
-!WR_ASO4/WR_UR28=0.0
-!
-!WR_ASO4/WR_ACID2=0.0
-!
-!WR_ASO4/WR_ASO3=0.0
-!
-!WR_ASO4/WR_ASO4=-KR24
- PJAC(:,158,158)=-TPK%KR24(:)
-!
-!WR_ASO4/WR_ASO5=+KR22*<WR_ASO5>+KR22*<WR_ASO5>+KR22*<WR_ASO5>+KR22*<WR_ASO5>
- PJAC(:,158,159)=+TPK%KR22(:)*PCONC(:,159)+TPK%KR22(:)*PCONC(:,159)+TPK%KR22(:)&
-&*PCONC(:,159)+TPK%KR22(:)*PCONC(:,159)
-!
-!WR_ASO4/WR_AHSO5=0.0
-!
-!WR_ASO4/WR_AHMS=0.0
-!
-!WR_ASO5/NO=0.0
-!
-!WR_ASO5/NO2=0.0
-!
-!WR_ASO5/O3=0.0
-!
-!WR_ASO5/HONO=0.0
-!
-!WR_ASO5/HNO3=0.0
-!
-!WR_ASO5/HNO4=0.0
-!
-!WR_ASO5/N2O5=0.0
-!
-!WR_ASO5/NO3=0.0
-!
-!WR_ASO5/NH3=0.0
-!
-!WR_ASO5/HO2=0.0
-!
-!WR_ASO5/CO=0.0
-!
-!WR_ASO5/H2O2=0.0
-!
-!WR_ASO5/SO2=0.0
-!
-!WR_ASO5/H2SO4=0.0
-!
-!WR_ASO5/OH=0.0
-!
-!WR_ASO5/ETHE=0.0
-!
-!WR_ASO5/OLEL=0.0
-!
-!WR_ASO5/OLEH=0.0
-!
-!WR_ASO5/ALKL=0.0
-!
-!WR_ASO5/ALKM=0.0
-!
-!WR_ASO5/ALKH=0.0
-!
-!WR_ASO5/AROH=0.0
-!
-!WR_ASO5/AROL=0.0
-!
-!WR_ASO5/AROO=0.0
-!
-!WR_ASO5/ARAL=0.0
-!
-!WR_ASO5/ARAC=0.0
-!
-!WR_ASO5/PAH=0.0
-!
-!WR_ASO5/HCHO=0.0
-!
-!WR_ASO5/ALD2=0.0
-!
-!WR_ASO5/KETL=0.0
-!
-!WR_ASO5/KETH=0.0
-!
-!WR_ASO5/MEOH=0.0
-!
-!WR_ASO5/ETOH=0.0
-!
-!WR_ASO5/ALCH=0.0
-!
-!WR_ASO5/ISOP=0.0
-!
-!WR_ASO5/BIOL=0.0
-!
-!WR_ASO5/BIOH=0.0
-!
-!WR_ASO5/MTBE=0.0
-!
-!WR_ASO5/MVK=0.0
-!
-!WR_ASO5/MCR=0.0
-!
-!WR_ASO5/MGLY=0.0
-!
-!WR_ASO5/GLY=0.0
-!
-!WR_ASO5/ORA1=0.0
-!
-!WR_ASO5/ORA2=0.0
-!
-!WR_ASO5/ACID=0.0
-!
-!WR_ASO5/UR28=0.0
-!
-!WR_ASO5/UR21=0.0
-!
-!WR_ASO5/URG2=0.0
-!
-!WR_ASO5/UR26=0.0
-!
-!WR_ASO5/RPG2=0.0
-!
-!WR_ASO5/RP18=0.0
-!
-!WR_ASO5/RPG3=0.0
-!
-!WR_ASO5/URG4=0.0
-!
-!WR_ASO5/UR8=0.0
-!
-!WR_ASO5/UR17=0.0
-!
-!WR_ASO5/UR7=0.0
-!
-!WR_ASO5/RPR3=0.0
-!
-!WR_ASO5/URG6=0.0
-!
-!WR_ASO5/UR22=0.0
-!
-!WR_ASO5/URG7=0.0
-!
-!WR_ASO5/RPR4=0.0
-!
-!WR_ASO5/RPR7=0.0
-!
-!WR_ASO5/RPG7=0.0
-!
-!WR_ASO5/URG8=0.0
-!
-!WR_ASO5/UR19=0.0
-!
-!WR_ASO5/URG9=0.0
-!
-!WR_ASO5/AP7=0.0
-!
-!WR_ASO5/URG10=0.0
-!
-!WR_ASO5/RPR1=0.0
-!
-!WR_ASO5/RPR5=0.0
-!
-!WR_ASO5/RPR8=0.0
-!
-!WR_ASO5/RP10=0.0
-!
-!WR_ASO5/RP11=0.0
-!
-!WR_ASO5/RP16=0.0
-!
-!WR_ASO5/RPRL=0.0
-!
-!WR_ASO5/APAN=0.0
-!
-!WR_ASO5/PAN1=0.0
-!
-!WR_ASO5/PAN2=0.0
-!
-!WR_ASO5/PAN3=0.0
-!
-!WR_ASO5/PAN4=0.0
-!
-!WR_ASO5/PAN6=0.0
-!
-!WR_ASO5/PAN7=0.0
-!
-!WR_ASO5/PAN8=0.0
-!
-!WR_ASO5/PN10=0.0
-!
-!WR_ASO5/RO2T=0.0
-!
-!WR_ASO5/RO21=0.0
-!
-!WR_ASO5/RO25=0.0
-!
-!WR_ASO5/WC_O3=0.0
-!
-!WR_ASO5/WC_H2O2=0.0
-!
-!WR_ASO5/WC_NO=0.0
-!
-!WR_ASO5/WC_NO2=0.0
-!
-!WR_ASO5/WC_NO3=0.0
-!
-!WR_ASO5/WC_N2O5=0.0
-!
-!WR_ASO5/WC_HONO=0.0
-!
-!WR_ASO5/WC_HNO3=0.0
-!
-!WR_ASO5/WC_HNO4=0.0
-!
-!WR_ASO5/WC_NH3=0.0
-!
-!WR_ASO5/WC_OH=0.0
-!
-!WR_ASO5/WC_HO2=0.0
-!
-!WR_ASO5/WC_CO2=0.0
-!
-!WR_ASO5/WC_SO2=0.0
-!
-!WR_ASO5/WC_H2SO4=0.0
-!
-!WR_ASO5/WC_RO21=0.0
-!
-!WR_ASO5/WC_RO25=0.0
-!
-!WR_ASO5/WC_MEOH=0.0
-!
-!WR_ASO5/WC_ETOH=0.0
-!
-!WR_ASO5/WC_ALCH=0.0
-!
-!WR_ASO5/WC_HCHO=0.0
-!
-!WR_ASO5/WC_ALD2=0.0
-!
-!WR_ASO5/WC_GLY=0.0
-!
-!WR_ASO5/WC_MGLY=0.0
-!
-!WR_ASO5/WC_KETL=0.0
-!
-!WR_ASO5/WC_ORA1=0.0
-!
-!WR_ASO5/WC_ORA2=0.0
-!
-!WR_ASO5/WC_ACID=0.0
-!
-!WR_ASO5/WC_RP16=0.0
-!
-!WR_ASO5/WC_UR21=0.0
-!
-!WR_ASO5/WC_UR28=0.0
-!
-!WR_ASO5/WC_ACID2=0.0
-!
-!WR_ASO5/WC_ASO3=0.0
-!
-!WR_ASO5/WC_ASO4=0.0
-!
-!WR_ASO5/WC_ASO5=0.0
-!
-!WR_ASO5/WC_AHSO5=0.0
-!
-!WR_ASO5/WC_AHMS=0.0
-!
-!WR_ASO5/WR_O3=0.0
-!
-!WR_ASO5/WR_H2O2=0.0
-!
-!WR_ASO5/WR_NO=0.0
-!
-!WR_ASO5/WR_NO2=0.0
-!
-!WR_ASO5/WR_NO3=0.0
-!
-!WR_ASO5/WR_N2O5=0.0
-!
-!WR_ASO5/WR_HONO=0.0
-!
-!WR_ASO5/WR_HNO3=0.0
-!
-!WR_ASO5/WR_HNO4=0.0
-!
-!WR_ASO5/WR_NH3=0.0
-!
-!WR_ASO5/WR_OH=0.0
-!
-!WR_ASO5/WR_HO2=-KR21*<WR_ASO5>
- PJAC(:,159,136)=-TPK%KR21(:)*PCONC(:,159)
-!
-!WR_ASO5/WR_CO2=0.0
-!
-!WR_ASO5/WR_SO2=0.0
-!
-!WR_ASO5/WR_H2SO4=0.0
-!
-!WR_ASO5/WR_RO21=0.0
-!
-!WR_ASO5/WR_RO25=0.0
-!
-!WR_ASO5/WR_MEOH=0.0
-!
-!WR_ASO5/WR_ETOH=0.0
-!
-!WR_ASO5/WR_ALCH=0.0
-!
-!WR_ASO5/WR_HCHO=0.0
-!
-!WR_ASO5/WR_ALD2=0.0
-!
-!WR_ASO5/WR_GLY=0.0
-!
-!WR_ASO5/WR_MGLY=0.0
-!
-!WR_ASO5/WR_KETL=0.0
-!
-!WR_ASO5/WR_ORA1=0.0
-!
-!WR_ASO5/WR_ORA2=0.0
-!
-!WR_ASO5/WR_ACID=0.0
-!
-!WR_ASO5/WR_RP16=0.0
-!
-!WR_ASO5/WR_UR21=0.0
-!
-!WR_ASO5/WR_UR28=0.0
-!
-!WR_ASO5/WR_ACID2=0.0
-!
-!WR_ASO5/WR_ASO3=+KR20*<W_O2>
- PJAC(:,159,157)=+TPK%KR20(:)*TPK%W_O2(:)
-!
-!WR_ASO5/WR_ASO4=0.0
-!
-!WR_ASO5/WR_ASO5=-KR21*<WR_HO2>-KR22*<WR_ASO5>-KR22*<WR_ASO5>-KR22*<WR_ASO5>-KR
-!22*<WR_ASO5>
- PJAC(:,159,159)=-TPK%KR21(:)*PCONC(:,136)-TPK%KR22(:)*PCONC(:,159)-TPK%KR22(:)&
-&*PCONC(:,159)-TPK%KR22(:)*PCONC(:,159)-TPK%KR22(:)*PCONC(:,159)
-!
-!WR_ASO5/WR_AHSO5=0.0
-!
-!WR_ASO5/WR_AHMS=0.0
-!
-!WR_AHSO5/NO=0.0
-!
-!WR_AHSO5/NO2=0.0
-!
-!WR_AHSO5/O3=0.0
-!
-!WR_AHSO5/HONO=0.0
-!
-!WR_AHSO5/HNO3=0.0
-!
-!WR_AHSO5/HNO4=0.0
-!
-!WR_AHSO5/N2O5=0.0
-!
-!WR_AHSO5/NO3=0.0
-!
-!WR_AHSO5/NH3=0.0
-!
-!WR_AHSO5/HO2=0.0
-!
-!WR_AHSO5/CO=0.0
-!
-!WR_AHSO5/H2O2=0.0
-!
-!WR_AHSO5/SO2=0.0
-!
-!WR_AHSO5/H2SO4=0.0
-!
-!WR_AHSO5/OH=0.0
-!
-!WR_AHSO5/ETHE=0.0
-!
-!WR_AHSO5/OLEL=0.0
-!
-!WR_AHSO5/OLEH=0.0
-!
-!WR_AHSO5/ALKL=0.0
-!
-!WR_AHSO5/ALKM=0.0
-!
-!WR_AHSO5/ALKH=0.0
-!
-!WR_AHSO5/AROH=0.0
-!
-!WR_AHSO5/AROL=0.0
-!
-!WR_AHSO5/AROO=0.0
-!
-!WR_AHSO5/ARAL=0.0
-!
-!WR_AHSO5/ARAC=0.0
-!
-!WR_AHSO5/PAH=0.0
-!
-!WR_AHSO5/HCHO=0.0
-!
-!WR_AHSO5/ALD2=0.0
-!
-!WR_AHSO5/KETL=0.0
-!
-!WR_AHSO5/KETH=0.0
-!
-!WR_AHSO5/MEOH=0.0
-!
-!WR_AHSO5/ETOH=0.0
-!
-!WR_AHSO5/ALCH=0.0
-!
-!WR_AHSO5/ISOP=0.0
-!
-!WR_AHSO5/BIOL=0.0
-!
-!WR_AHSO5/BIOH=0.0
-!
-!WR_AHSO5/MTBE=0.0
-!
-!WR_AHSO5/MVK=0.0
-!
-!WR_AHSO5/MCR=0.0
-!
-!WR_AHSO5/MGLY=0.0
-!
-!WR_AHSO5/GLY=0.0
-!
-!WR_AHSO5/ORA1=0.0
-!
-!WR_AHSO5/ORA2=0.0
-!
-!WR_AHSO5/ACID=0.0
-!
-!WR_AHSO5/UR28=0.0
-!
-!WR_AHSO5/UR21=0.0
-!
-!WR_AHSO5/URG2=0.0
-!
-!WR_AHSO5/UR26=0.0
-!
-!WR_AHSO5/RPG2=0.0
-!
-!WR_AHSO5/RP18=0.0
-!
-!WR_AHSO5/RPG3=0.0
-!
-!WR_AHSO5/URG4=0.0
-!
-!WR_AHSO5/UR8=0.0
-!
-!WR_AHSO5/UR17=0.0
-!
-!WR_AHSO5/UR7=0.0
-!
-!WR_AHSO5/RPR3=0.0
-!
-!WR_AHSO5/URG6=0.0
-!
-!WR_AHSO5/UR22=0.0
-!
-!WR_AHSO5/URG7=0.0
-!
-!WR_AHSO5/RPR4=0.0
-!
-!WR_AHSO5/RPR7=0.0
-!
-!WR_AHSO5/RPG7=0.0
-!
-!WR_AHSO5/URG8=0.0
-!
-!WR_AHSO5/UR19=0.0
-!
-!WR_AHSO5/URG9=0.0
-!
-!WR_AHSO5/AP7=0.0
-!
-!WR_AHSO5/URG10=0.0
-!
-!WR_AHSO5/RPR1=0.0
-!
-!WR_AHSO5/RPR5=0.0
-!
-!WR_AHSO5/RPR8=0.0
-!
-!WR_AHSO5/RP10=0.0
-!
-!WR_AHSO5/RP11=0.0
-!
-!WR_AHSO5/RP16=0.0
-!
-!WR_AHSO5/RPRL=0.0
-!
-!WR_AHSO5/APAN=0.0
-!
-!WR_AHSO5/PAN1=0.0
-!
-!WR_AHSO5/PAN2=0.0
-!
-!WR_AHSO5/PAN3=0.0
-!
-!WR_AHSO5/PAN4=0.0
-!
-!WR_AHSO5/PAN6=0.0
-!
-!WR_AHSO5/PAN7=0.0
-!
-!WR_AHSO5/PAN8=0.0
-!
-!WR_AHSO5/PN10=0.0
-!
-!WR_AHSO5/RO2T=0.0
-!
-!WR_AHSO5/RO21=0.0
-!
-!WR_AHSO5/RO25=0.0
-!
-!WR_AHSO5/WC_O3=0.0
-!
-!WR_AHSO5/WC_H2O2=0.0
-!
-!WR_AHSO5/WC_NO=0.0
-!
-!WR_AHSO5/WC_NO2=0.0
-!
-!WR_AHSO5/WC_NO3=0.0
-!
-!WR_AHSO5/WC_N2O5=0.0
-!
-!WR_AHSO5/WC_HONO=0.0
-!
-!WR_AHSO5/WC_HNO3=0.0
-!
-!WR_AHSO5/WC_HNO4=0.0
-!
-!WR_AHSO5/WC_NH3=0.0
-!
-!WR_AHSO5/WC_OH=0.0
-!
-!WR_AHSO5/WC_HO2=0.0
-!
-!WR_AHSO5/WC_CO2=0.0
-!
-!WR_AHSO5/WC_SO2=0.0
-!
-!WR_AHSO5/WC_H2SO4=0.0
-!
-!WR_AHSO5/WC_RO21=0.0
-!
-!WR_AHSO5/WC_RO25=0.0
-!
-!WR_AHSO5/WC_MEOH=0.0
-!
-!WR_AHSO5/WC_ETOH=0.0
-!
-!WR_AHSO5/WC_ALCH=0.0
-!
-!WR_AHSO5/WC_HCHO=0.0
-!
-!WR_AHSO5/WC_ALD2=0.0
-!
-!WR_AHSO5/WC_GLY=0.0
-!
-!WR_AHSO5/WC_MGLY=0.0
-!
-!WR_AHSO5/WC_KETL=0.0
-!
-!WR_AHSO5/WC_ORA1=0.0
-!
-!WR_AHSO5/WC_ORA2=0.0
-!
-!WR_AHSO5/WC_ACID=0.0
-!
-!WR_AHSO5/WC_RP16=0.0
-!
-!WR_AHSO5/WC_UR21=0.0
-!
-!WR_AHSO5/WC_UR28=0.0
-!
-!WR_AHSO5/WC_ACID2=0.0
-!
-!WR_AHSO5/WC_ASO3=0.0
-!
-!WR_AHSO5/WC_ASO4=0.0
-!
-!WR_AHSO5/WC_ASO5=0.0
-!
-!WR_AHSO5/WC_AHSO5=0.0
-!
-!WR_AHSO5/WC_AHMS=0.0
-!
-!WR_AHSO5/WR_O3=0.0
-!
-!WR_AHSO5/WR_H2O2=0.0
-!
-!WR_AHSO5/WR_NO=0.0
-!
-!WR_AHSO5/WR_NO2=0.0
-!
-!WR_AHSO5/WR_NO3=0.0
-!
-!WR_AHSO5/WR_N2O5=0.0
-!
-!WR_AHSO5/WR_HONO=0.0
-!
-!WR_AHSO5/WR_HNO3=0.0
-!
-!WR_AHSO5/WR_HNO4=0.0
-!
-!WR_AHSO5/WR_NH3=0.0
-!
-!WR_AHSO5/WR_OH=0.0
-!
-!WR_AHSO5/WR_HO2=+KR21*<WR_ASO5>
- PJAC(:,160,136)=+TPK%KR21(:)*PCONC(:,159)
-!
-!WR_AHSO5/WR_CO2=0.0
-!
-!WR_AHSO5/WR_SO2=-KR23*<WR_AHSO5>
- PJAC(:,160,138)=-TPK%KR23(:)*PCONC(:,160)
-!
-!WR_AHSO5/WR_H2SO4=0.0
-!
-!WR_AHSO5/WR_RO21=0.0
-!
-!WR_AHSO5/WR_RO25=0.0
-!
-!WR_AHSO5/WR_MEOH=0.0
-!
-!WR_AHSO5/WR_ETOH=0.0
-!
-!WR_AHSO5/WR_ALCH=0.0
-!
-!WR_AHSO5/WR_HCHO=0.0
-!
-!WR_AHSO5/WR_ALD2=0.0
-!
-!WR_AHSO5/WR_GLY=0.0
-!
-!WR_AHSO5/WR_MGLY=0.0
-!
-!WR_AHSO5/WR_KETL=0.0
-!
-!WR_AHSO5/WR_ORA1=0.0
-!
-!WR_AHSO5/WR_ORA2=0.0
-!
-!WR_AHSO5/WR_ACID=0.0
-!
-!WR_AHSO5/WR_RP16=0.0
-!
-!WR_AHSO5/WR_UR21=0.0
-!
-!WR_AHSO5/WR_UR28=0.0
-!
-!WR_AHSO5/WR_ACID2=0.0
-!
-!WR_AHSO5/WR_ASO3=0.0
-!
-!WR_AHSO5/WR_ASO4=0.0
-!
-!WR_AHSO5/WR_ASO5=+KR21*<WR_HO2>
- PJAC(:,160,159)=+TPK%KR21(:)*PCONC(:,136)
-!
-!WR_AHSO5/WR_AHSO5=-KR23*<WR_SO2>
- PJAC(:,160,160)=-TPK%KR23(:)*PCONC(:,138)
-!
-!WR_AHSO5/WR_AHMS=0.0
-!
-RETURN
-END SUBROUTINE SUBJ31
-!
-SUBROUTINE SUBJ32
-!
-!Indices 161 a 161
-!
-!
-!WR_AHMS/NO=0.0
-!
-!WR_AHMS/NO2=0.0
-!
-!WR_AHMS/O3=0.0
-!
-!WR_AHMS/HONO=0.0
-!
-!WR_AHMS/HNO3=0.0
-!
-!WR_AHMS/HNO4=0.0
-!
-!WR_AHMS/N2O5=0.0
-!
-!WR_AHMS/NO3=0.0
-!
-!WR_AHMS/NH3=0.0
-!
-!WR_AHMS/HO2=0.0
-!
-!WR_AHMS/CO=0.0
-!
-!WR_AHMS/H2O2=0.0
-!
-!WR_AHMS/SO2=0.0
-!
-!WR_AHMS/H2SO4=0.0
-!
-!WR_AHMS/OH=0.0
-!
-!WR_AHMS/ETHE=0.0
-!
-!WR_AHMS/OLEL=0.0
-!
-!WR_AHMS/OLEH=0.0
-!
-!WR_AHMS/ALKL=0.0
-!
-!WR_AHMS/ALKM=0.0
-!
-!WR_AHMS/ALKH=0.0
-!
-!WR_AHMS/AROH=0.0
-!
-!WR_AHMS/AROL=0.0
-!
-!WR_AHMS/AROO=0.0
-!
-!WR_AHMS/ARAL=0.0
-!
-!WR_AHMS/ARAC=0.0
-!
-!WR_AHMS/PAH=0.0
-!
-!WR_AHMS/HCHO=0.0
-!
-!WR_AHMS/ALD2=0.0
-!
-!WR_AHMS/KETL=0.0
-!
-!WR_AHMS/KETH=0.0
-!
-!WR_AHMS/MEOH=0.0
-!
-!WR_AHMS/ETOH=0.0
-!
-!WR_AHMS/ALCH=0.0
-!
-!WR_AHMS/ISOP=0.0
-!
-!WR_AHMS/BIOL=0.0
-!
-!WR_AHMS/BIOH=0.0
-!
-!WR_AHMS/MTBE=0.0
-!
-!WR_AHMS/MVK=0.0
-!
-!WR_AHMS/MCR=0.0
-!
-!WR_AHMS/MGLY=0.0
-!
-!WR_AHMS/GLY=0.0
-!
-!WR_AHMS/ORA1=0.0
-!
-!WR_AHMS/ORA2=0.0
-!
-!WR_AHMS/ACID=0.0
-!
-!WR_AHMS/UR28=0.0
-!
-!WR_AHMS/UR21=0.0
-!
-!WR_AHMS/URG2=0.0
-!
-!WR_AHMS/UR26=0.0
-!
-!WR_AHMS/RPG2=0.0
-!
-!WR_AHMS/RP18=0.0
-!
-!WR_AHMS/RPG3=0.0
-!
-!WR_AHMS/URG4=0.0
-!
-!WR_AHMS/UR8=0.0
-!
-!WR_AHMS/UR17=0.0
-!
-!WR_AHMS/UR7=0.0
-!
-!WR_AHMS/RPR3=0.0
-!
-!WR_AHMS/URG6=0.0
-!
-!WR_AHMS/UR22=0.0
-!
-!WR_AHMS/URG7=0.0
-!
-!WR_AHMS/RPR4=0.0
-!
-!WR_AHMS/RPR7=0.0
-!
-!WR_AHMS/RPG7=0.0
-!
-!WR_AHMS/URG8=0.0
-!
-!WR_AHMS/UR19=0.0
-!
-!WR_AHMS/URG9=0.0
-!
-!WR_AHMS/AP7=0.0
-!
-!WR_AHMS/URG10=0.0
-!
-!WR_AHMS/RPR1=0.0
-!
-!WR_AHMS/RPR5=0.0
-!
-!WR_AHMS/RPR8=0.0
-!
-!WR_AHMS/RP10=0.0
-!
-!WR_AHMS/RP11=0.0
-!
-!WR_AHMS/RP16=0.0
-!
-!WR_AHMS/RPRL=0.0
-!
-!WR_AHMS/APAN=0.0
-!
-!WR_AHMS/PAN1=0.0
-!
-!WR_AHMS/PAN2=0.0
-!
-!WR_AHMS/PAN3=0.0
-!
-!WR_AHMS/PAN4=0.0
-!
-!WR_AHMS/PAN6=0.0
-!
-!WR_AHMS/PAN7=0.0
-!
-!WR_AHMS/PAN8=0.0
-!
-!WR_AHMS/PN10=0.0
-!
-!WR_AHMS/RO2T=0.0
-!
-!WR_AHMS/RO21=0.0
-!
-!WR_AHMS/RO25=0.0
-!
-!WR_AHMS/WC_O3=0.0
-!
-!WR_AHMS/WC_H2O2=0.0
-!
-!WR_AHMS/WC_NO=0.0
-!
-!WR_AHMS/WC_NO2=0.0
-!
-!WR_AHMS/WC_NO3=0.0
-!
-!WR_AHMS/WC_N2O5=0.0
-!
-!WR_AHMS/WC_HONO=0.0
-!
-!WR_AHMS/WC_HNO3=0.0
-!
-!WR_AHMS/WC_HNO4=0.0
-!
-!WR_AHMS/WC_NH3=0.0
-!
-!WR_AHMS/WC_OH=0.0
-!
-!WR_AHMS/WC_HO2=0.0
-!
-!WR_AHMS/WC_CO2=0.0
-!
-!WR_AHMS/WC_SO2=0.0
-!
-!WR_AHMS/WC_H2SO4=0.0
-!
-!WR_AHMS/WC_RO21=0.0
-!
-!WR_AHMS/WC_RO25=0.0
-!
-!WR_AHMS/WC_MEOH=0.0
-!
-!WR_AHMS/WC_ETOH=0.0
-!
-!WR_AHMS/WC_ALCH=0.0
-!
-!WR_AHMS/WC_HCHO=0.0
-!
-!WR_AHMS/WC_ALD2=0.0
-!
-!WR_AHMS/WC_GLY=0.0
-!
-!WR_AHMS/WC_MGLY=0.0
-!
-!WR_AHMS/WC_KETL=0.0
-!
-!WR_AHMS/WC_ORA1=0.0
-!
-!WR_AHMS/WC_ORA2=0.0
-!
-!WR_AHMS/WC_ACID=0.0
-!
-!WR_AHMS/WC_RP16=0.0
-!
-!WR_AHMS/WC_UR21=0.0
-!
-!WR_AHMS/WC_UR28=0.0
-!
-!WR_AHMS/WC_ACID2=0.0
-!
-!WR_AHMS/WC_ASO3=0.0
-!
-!WR_AHMS/WC_ASO4=0.0
-!
-!WR_AHMS/WC_ASO5=0.0
-!
-!WR_AHMS/WC_AHSO5=0.0
-!
-!WR_AHMS/WC_AHMS=0.0
-!
-!WR_AHMS/WR_O3=0.0
-!
-!WR_AHMS/WR_H2O2=0.0
-!
-!WR_AHMS/WR_NO=0.0
-!
-!WR_AHMS/WR_NO2=0.0
-!
-!WR_AHMS/WR_NO3=0.0
-!
-!WR_AHMS/WR_N2O5=0.0
-!
-!WR_AHMS/WR_HONO=0.0
-!
-!WR_AHMS/WR_HNO3=0.0
-!
-!WR_AHMS/WR_HNO4=0.0
-!
-!WR_AHMS/WR_NH3=0.0
-!
-!WR_AHMS/WR_OH=-KR19*<WR_AHMS>
- PJAC(:,161,135)=-TPK%KR19(:)*PCONC(:,161)
-!
-!WR_AHMS/WR_HO2=0.0
-!
-!WR_AHMS/WR_CO2=0.0
-!
-!WR_AHMS/WR_SO2=+KR17*<WR_HCHO>
- PJAC(:,161,138)=+TPK%KR17(:)*PCONC(:,145)
-!
-!WR_AHMS/WR_H2SO4=0.0
-!
-!WR_AHMS/WR_RO21=0.0
-!
-!WR_AHMS/WR_RO25=0.0
-!
-!WR_AHMS/WR_MEOH=0.0
-!
-!WR_AHMS/WR_ETOH=0.0
-!
-!WR_AHMS/WR_ALCH=0.0
-!
-!WR_AHMS/WR_HCHO=+KR17*<WR_SO2>
- PJAC(:,161,145)=+TPK%KR17(:)*PCONC(:,138)
-!
-!WR_AHMS/WR_ALD2=0.0
-!
-!WR_AHMS/WR_GLY=0.0
-!
-!WR_AHMS/WR_MGLY=0.0
-!
-!WR_AHMS/WR_KETL=0.0
-!
-!WR_AHMS/WR_ORA1=0.0
-!
-!WR_AHMS/WR_ORA2=0.0
-!
-!WR_AHMS/WR_ACID=0.0
-!
-!WR_AHMS/WR_RP16=0.0
-!
-!WR_AHMS/WR_UR21=0.0
-!
-!WR_AHMS/WR_UR28=0.0
-!
-!WR_AHMS/WR_ACID2=0.0
-!
-!WR_AHMS/WR_ASO3=0.0
-!
-!WR_AHMS/WR_ASO4=0.0
-!
-!WR_AHMS/WR_ASO5=0.0
-!
-!WR_AHMS/WR_AHSO5=0.0
-!
-!WR_AHMS/WR_AHMS=-KR18-KR19*<WR_OH>
- PJAC(:,161,161)=-TPK%KR18(:)-TPK%KR19(:)*PCONC(:,135)
-!
-RETURN
-END SUBROUTINE SUBJ32
-!
-END SUBROUTINE CH_JAC_AQ
-!
-!
-!========================================================================
-!
-!! ########################
- MODULE MODI_CH_SET_RATES
-!! ########################
-!! This code has been created automatically by preprocessor m10,
-!! version: 9.7, copyright 1995-1999 by Meteo France/Universite Paul Sabatier.
-!! Please report all bugs to K. Suhre (Lab. d'Aerologie UPS/CNRS).
-INTERFACE
-SUBROUTINE CH_SET_RATES(PTIME,PCONC,TPM,KMI,KOUT,KVERB,KVECNPT,KEQ,KRRL,PPH)
-USE MODD_CH_M9_n, ONLY: METEOTRANSTYPE
-IMPLICIT NONE
-REAL, INTENT(IN) :: PTIME
-INTEGER, INTENT(IN) :: KVECNPT
-INTEGER, INTENT(IN) :: KEQ
-REAL, INTENT(IN), DIMENSION(KVECNPT,KEQ) :: PCONC
-TYPE(METEOTRANSTYPE), DIMENSION(KVECNPT), INTENT(IN):: TPM
-INTEGER, INTENT(IN) :: KMI
-INTEGER, INTENT(IN) :: KOUT,KVERB
-INTEGER, INTENT(INOUT) :: KRRL
-REAL, INTENT(INOUT), DIMENSION(:,:), OPTIONAL :: PPH
-END SUBROUTINE CH_SET_RATES
-END INTERFACE
-END MODULE MODI_CH_SET_RATES
-!
-!========================================================================
-!
-!! ############################################################################
- SUBROUTINE CH_SET_RATES(PTIME,PCONC,TPM,KMI,KOUT,KVERB,KVECNPT,KEQ,KRRL,PPH)
-!! ############################################################################
-!! This code has been created automatically by preprocessor m10,
-!! version: 9.7, copyright 1995-1999 by Meteo France/Universite Paul Sabatier.
-!! Please report all bugs to K. Suhre (Lab. d'Aerologie UPS/CNRS).
-!!*** *MODD_CH_SET_RATES*
-!!
-!! PURPOSE
-!! -------
-! set or calculate reaction rates
-!!
-!!** METHOD
-!! ------
-!! simple
-!!
-!! REFERENCE
-!! ---------
-!! none
-!!
-!! AUTHOR
-!! ------
-!! Karsten Suhre (LA)
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 26/07/96
-!! Modified 05/05/98: Vectorization (Vincent Crassier & KS)
-!! Modified 01/06/07: Add pH calculation (M. Leriche & JP Pinty)
-!! Modified 01/06/08: Add reaction constant in cloud/rain (M. Leriche)
-!! Modified 14/11/08: Put LWC and LWR to zero where <XRTMIN_AQ
-!!
-!!----------------------------------------------------------------------
-!!
-!! EXTERNAL
-!! --------
-!!
-USE MODI_CH_ALLOCATE_TACCS
-USE MODI_CH_DEALLOCATE_TACCS
-USE MODI_CH_SET_PH
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!!
-USE MODD_CH_M9_SCHEME
-USE MODD_CH_M9_n, ONLY : METEOTRANSTYPE
-USE MODD_CH_MNHC_n, ONLY : XRTMIN_AQ, XCH_PHINIT
-! USER DEFINED FUNCTIONS
-USE MODI_KT
-USE MODI_TROE
-USE MODI_TROE_KA
-USE MODI_TROE_KB
-USE MODI_HENRY
-USE MODI_TROE_EQUIL
-USE MODI_HEFFA
-USE MODI_HEFFB
-!!
-!! EXPLICIT ARGUMENTS
-!! ------------------
-IMPLICIT NONE
-REAL, INTENT(IN) :: PTIME
-INTEGER, INTENT(IN) :: KVECNPT
-INTEGER, INTENT(IN) :: KEQ
-REAL, INTENT(IN), DIMENSION(KVECNPT,KEQ) :: PCONC
-TYPE(METEOTRANSTYPE), DIMENSION(KVECNPT), INTENT(IN):: TPM
-INTEGER, INTENT(IN) :: KMI
-INTEGER, INTENT(IN) :: KOUT,KVERB
-INTEGER, INTENT(INOUT) :: KRRL
-REAL, INTENT(INOUT), DIMENSION(:,:), OPTIONAL :: PPH
-!!
-!!----------------------------------------------------------------------
-! /BEGIN_SET_RATES/
-!
-! transfer of meteo-variables into variables used by the
-! chemical core system (and some unit conversion):
-!
-! molecular weight of air: m_mol^air = 28.8 g/mol
-! molecular weight of H2O: m_mol^H2O = 18.0 g/mol
-! ==> m_mol^air / m_mol^H2O = 1.6
-! density conversion factor: 1 g/cm3 = 1E+3 kg/m3
-! n_molec (moelc./cm3): M = 1E-3*RHO(kg/m3) * Navo / m_mol
-! n_water: H2O = M * 1.6 * Rv
-! pressure = RHO * T * R * 1E-5 (in atm)
-! assuming 20.95 vol% O2
-!
-TYPE(CCSTYPE), POINTER :: TPK
-!
-REAL :: A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z
-REAL :: NC, YI300, Y300, MINF
-REAL, DIMENSION(KVECNPT) :: HF3, HF5, HF7, HF17, HF19, HF21, HF23,&
- HF25, HF27, HF29, HF31, HF33, HF35, HF41,&
- HF43
-!----------------------------------------------------------------------
-!
-IF (.NOT. ASSOCIATED(TACCS(KMI)%NVERB)) THEN
- CALL CH_ALLOCATE_TACCS(KMI,KVECNPT)
-END IF
-!
-IF (SIZE(TACCS(KMI)%NVERB) .NE. KVECNPT) THEN
- CALL CH_DEALLOCATE_TACCS(KMI)
- CALL CH_ALLOCATE_TACCS(KMI,KVECNPT)
-END IF
-!
-TPK=>TACCS(KMI)
-!
-TPK%MODELLEVEL = TPM%XMETEOVAR(1)
-TPK%M = 1E-3*TPM%XMETEOVAR(2) * 6.0221367E+23 / 28.9644
-TPK%T = TPM%XMETEOVAR(3)
-TPK%H2O = TPK%M*1.6077*TPM%XMETEOVAR(4)
-TPK%CLOUDWATER = TPM%XMETEOVAR(5)
-TPK%LAT = TPM%XMETEOVAR(6)
-TPK%LON = TPM%XMETEOVAR(7)
-TPK%YEAR = INT(TPM%XMETEOVAR(8))
-TPK%MONTH = INT(TPM%XMETEOVAR(9))
-TPK%DAY = INT(TPM%XMETEOVAR(10))
-TPK%RAINWATER = TPM%XMETEOVAR(11)
-TPK%RHODREF = TPM%XMETEOVAR(2)
-! derived variables
-TPK%PRESSURE = TPM%XMETEOVAR(2) * TPK%T * 288.290947 * 1E-5
-TPK%O2 = 0.2095 * TPK%M
-TPK%N2 = TPK%M - TPK%O2
-TPK%H2 = 1.23e13
-TPK%CH4 = 0.4335E+14
-! fixed concentration of CO2
-TPK%CO2 = 330. * 1.E-6 * TPK%M
-! for chemistry in aqueous phase, kinetic mass transfer
-! cloud lwc (vol/vol) = cloud m.r.(kg/kg) * rho_air(kg/m3) / rho_eau(kg/m3)
-TPK%LWC = TPM%XMETEOVAR(5)*TPM%XMETEOVAR(2) / 1.E3
-WHERE ( TPK%LWC < XRTMIN_AQ ) !to get reaction rate for mass transfer = 0
- TPK%LWC = 0.
-ENDWHERE
-TPK%RADC = TPM%XMETEOVAR(12)
-! conversion factor for reaction constant in cloud
-! give minimum value to avoir division by zero
-TPK%MOL2MOLECCLOUD = 6.023e+23*1.e-3*XRTMIN_AQ
-WHERE (TPK%LWC >= XRTMIN_AQ)
- TPK%MOL2MOLECCLOUD = 6.023e+23*1.e-3*TPK%LWC
-END WHERE
-!
-TPK%LWR = TPM%XMETEOVAR(11)*TPM%XMETEOVAR(2) / 1.E3
-WHERE ( TPK%LWR < XRTMIN_AQ ) !to get reaction rate for mass transfer = 0
- TPK%LWR = 0.
-ENDWHERE
-TPK%RADR = TPM%XMETEOVAR(13)
-! conversion factor for reaction constant in rain
-! give minimum value to avoir division by zero
-TPK%MOL2MOLECRAIN = 6.023e+23*1.e-3*XRTMIN_AQ
-WHERE (TPK%LWR >= XRTMIN_AQ)
- TPK%MOL2MOLECRAIN = 6.023e+23*1.e-3*TPK%LWR
-END WHERE
-!pH calculation if required
-IF (PRESENT(PPH)) THEN
- TPK%PHC(:)=PPH(:,1)
- CALL CH_SET_PH(KOUT,KMI,KVECNPT,PCONC,TPK%PHC(:),KVERB,2) ! pH cloud water
-! TPK%PHC(:) = 0.01*TPK%PHC(:) + 0.99*PPH(:,1) ! apply a strong filter
- PPH(:,1) = TPK%PHC(:)
- IF (KRRL>=2) THEN
- TPK%PHR(:)=PPH(:,2)
- CALL CH_SET_PH(KOUT,KMI,KVECNPT,PCONC,TPK%PHR(:),KVERB,3) ! pH rain water
-! TPK%PHR(:) = 0.01*TPK%PHR(:) + 0.99*PPH(:,2) ! apply a strong filter
- PPH(:,2) = TPK%PHR(:)
- ENDIF
-ELSE
- IF (.NOT.TPK%LCH_PH) TPK%PHC = XCH_PHINIT
- IF (KRRL>=2) THEN
- IF (.NOT.TPK%LCH_PH) TPK%PHR = XCH_PHINIT
- ENDIF
-ENDIF
-!
-TPK%RCH = 0.08206 ! R in atm M-1 K-1
-TPK%W_O2 = 1.3E-3*exp(-1500.*(1./TPK%T-1./298.15))*TPK%RCH*TPK%T*TPK%O2*1.e3/6.023e+23
-!
-!...VARIABLE STOICHIOMETRIC COEFFICIENTS...
-! EQUIVALENT TO CF1 through CF36, CF39 THROUGH CF47
-! P. Tulet from R. Griffin
-! (B01) ALD2 IN ETOH + OH->
-! (B02) RO22 IN ETOH + OH->
-! (B03) ALKL (ALK NIT) IN RO25 + NO->
-! (B04) ALD2 (NO->NO2) IN RO25 + NO->
-! (B05) OLEL (OLE NIT) IN RO29 + NO->
-! (B06) HCHO (NO->NO2) IN RO29 + NO->
-! (B07) OLEL (OLE NIT) IN RO214 + NO->
-! (B08) RO27 (NO->NO2) IN RO214 + NO->
-! (B09) ALD2 IN RO215 + NO->
-! (B10) HCHO IN RO215 + NO->
-! (B11) MEK IN RO215 + NO->
-! (B12) ALKL IN RO215 + NO->
-! (B13) ALD2 IN RO215 + RO2T->
-! (B14) HCHO IN RO215 + RO2T->
-! (B15) MEK IN RO215 + RO2T->
-! (B16) ALKL IN RO215 + RO2T->
-! (B17) AP3 (ALK NIT) IN RO220 + NO->
-! (B18) RO218(NO->NO2) IN RO220 + NO->
-! (B19) AP2 (ALK NIT) IN RO218 + NO->
-! (B20) UR16 (NO->NO2) IN RO218 + NO->
-! (B21) AP1 (ALK NIT) IN RO217 + NO->
-! (B22) RPR2 (NO->NO2) IN RO217 + NO->
-! (B23) AP4 (ALK NIT) IN RO221 + NO->
-! (B24) BALD (NO->NO2) IN RO221 + NO->
-! (B25) AP7 (ALK NIT) IN RO224 + NO->
-! (B26) RPR3 (NO->NO2) IN RO224 + NO->
-! (B27) AP8 (ALK NIT) IN RO227 + NO->
-! (B28) UR7 (NO->NO2) IN RO227 + NO->
-! (B29) AP9 (ALK NIT) IN RO229 + NO->
-! (B30) RO240(NO->NO2) IN RO229 + NO->
-! (B31) AP10 (ALK NIT) IN RO231 + NO->
-! (B32) UR19 (NO->NO2) IN RO231 + NO->
-! (B33) AP11 (ALK NIT) IN RO232 + NO->
-! (B34) RO241(NO->NO2) IN RO232 + NO->
-! (B35) AP12 (ALK NIT) IN RO241 + NO->
-! (B36) UR16 (NO->NO2) IN RO241 + NO->
-! (B39) OH ATTACK OF CHO IN BALD
-! (B40) RADICAL IN BALD/OH REACTION
-! (B41) AP5 (ALK NIT) IN RO222 + NO->
-! (B42) RPR6 (NO->NO2) IN RO222 + NO->
-! (B43) AP6 (ALK NIT) IN RO223 + NO->
-! (B44) RPR7 (NO->NO2) IN RO223 + NO->
-! (B45) SIDE CHAIN ATTACK OF BALD
-! (B46) ALDEHYDIC ATTACK IN MCR
-! (B47) DOUBLE BOND ATTACK IN MCR
-
- TPK%CF1 = 0.
- TPK%CF2 = 0.
- TPK%CF3 = 0.
- TPK%CF4 = 0.
- TPK%CF5 = 0.
- TPK%CF6 = 0.
- TPK%CF7 = 0.
- TPK%CF8 = 0.
- TPK%CF9 = 0.
- TPK%CF10 = 0.
- TPK%CF11 = 0.
- TPK%CF12 = 0.
- TPK%CF13 = 0.
- TPK%CF14 = 0.
- TPK%CF15 = 0.
- TPK%CF16 = 0.
- TPK%CF17 = 0.
- TPK%CF18 = 0.
- TPK%CF19 = 0.
- TPK%CF20 = 0.
- TPK%CF21 = 0.
- TPK%CF22 = 0.
- TPK%CF23 = 0.
- TPK%CF24 = 0.
- TPK%CF25 = 0.
- TPK%CF26 = 0.
- TPK%CF27 = 0.
- TPK%CF28 = 0.
- TPK%CF29 = 0.
- TPK%CF30 = 0.
- TPK%CF31 = 0.
- TPK%CF32 = 0.
- TPK%CF33 = 0.
- TPK%CF34 = 0.
- TPK%CF35 = 0.
- TPK%CF36 = 0.
- TPK%CF37 = 0.
- TPK%CF38 = 0.
- TPK%CF39 = 0.
- TPK%CF40 = 0.
- TPK%CF41 = 0.
- TPK%CF42 = 0.
- TPK%CF43 = 0.
- TPK%CF44 = 0.
- TPK%CF45 = 0.
- TPK%CF46 = 0.
- TPK%CF47 = 0.
- TPK%CF48 = 0.
- TPK%CF49 = 0.
-
- A = 4.49E-18
- B = -320.0
- C = 4.5E-18
- D = 253.0
- E = 61.69
- F = 2.12E-18
- G = 696.0
- H = 2.10E-18
- I = -85.0
- J = 373.32
- K = -85.73
- L= 2.63E-11
- P = 2.22E-11
- Q = 8.69E-11
- V = 1.1E-10
- S = 5.2E-13
- W = 6.4E-11
- T = 3.6E-13
- U = -959.23
- !
-
-TPK%CF1 = (C*EXP(D/TPK%T)*EXP(J/TPK%T)+ H*EXP(I/TPK%T)*EXP(E/TPK%T))&
- /(A*EXP(B/TPK%T)*EXP(E/TPK%T) + &
- C*EXP(D/TPK%T)*EXP(J/TPK%T) + H*EXP(I/TPK%T)*EXP(E/TPK%T))
-
-TPK%CF2 = 1.0 - TPK%CF1
- A = 1.94E-22
- B = 0.97
- NC = 3.0
- YI300 = 0.826
- Y300 = A*EXP(B*NC)
- MINF = 8.1
- F = 0.411
- C = 0.4
-
- HF3 = C*(Y300*TPK%M)/(1.0+(Y300*TPK%M/YI300/(TPK%T/300.0) &
- **(-1.*MINF)))*F**(1.0+(LOG10(Y300*TPK%M/YI300/ &
- (TPK%T/300.0)**(-1.*MINF)))**2)**(-1)
- !
-TPK%CF3= HF3/(1.0+HF3)
-TPK%CF4= 1.0 - TPK%CF3
- !
- NC = 5.0
- C = 0.3
- Y300 = A*EXP(B*NC)
- HF5 = 0.5 + 0.5*(C*(Y300*TPK%M)/(1.0+(Y300*TPK%M/YI300/ &
- (TPK%T/300.0)**(-1.*MINF)))*F**(1.0/(1.0+(LOG10 &
- (Y300*TPK%M/YI300/(TPK%T/300.0)**(-1.*MINF))) &
- **2)))
- !
-TPK%CF5 = HF5/(1.0+HF5)
-TPK%CF6 = 1 - TPK%CF5
- !
- NC = 3.0
- Y300 = A*EXP(B*NC)
- HF7 = C*(Y300*TPK%M)/(1.0+(Y300*TPK%M/YI300/(TPK%T/300.0) &
- **(-1.*MINF)))*F**(1.0+(LOG10(Y300*TPK%M/YI300/ &
- (TPK%T/300.0)**(-1.*MINF)))**2)**(-1)
-
-TPK%CF7 = HF7/(1.0+HF7)
-TPK%CF8 = 1.0 - TPK%CF7
- !
-TPK%CF9 = 0.2
-TPK%CF10 = 0.4
-TPK%CF11 = 0.2
-TPK%CF12 = 1.0 - TPK%CF9 - TPK%CF10 - TPK%CF11
- !
-TPK%CF13 = TPK%CF9
-TPK%CF14 = TPK%CF10
-TPK%CF15 = TPK%CF11
-TPK%CF16 = 1.0 - TPK%CF13 - TPK%CF14 - TPK%CF15
- !
- NC = 8.0
- C = 1.0
- Y300 = A*EXP(NC*B)
- HF17 = C*(Y300*TPK%M)/(1.0+(Y300*TPK%M/YI300/(TPK%T/300.0) &
- **(-1.*MINF)))*F**(1.0+(LOG10(Y300*TPK%M/YI300/ &
- (TPK%T/300.0)**(-1.*MINF)))**2)**(-1)
- !
-TPK%CF17 = HF17/(1.0+HF17)
-TPK%CF18 = 1.0 - TPK%CF17
- !
- HF19 = C*(Y300*TPK%M)/(1.0+(Y300*TPK%M/YI300/(TPK%T/300.0) &
- **(-1.*MINF)))*F**(1.0+(LOG10(Y300*TPK%M/YI300/ &
- (TPK%T/300.0)**(-1.*MINF)))**2)**(-1)
- !
-TPK%CF19 = HF19/(1.0+HF19)
-TPK%CF20 = 1.0 - TPK%CF19
- !
- C = 0.40
- HF21 = 0.4*(C*(Y300*TPK%M)/(1.0+(Y300*TPK%M/YI300/(TPK%T/300.0) &
- **(-1.*MINF)))*F**(1.0+(LOG10(Y300*TPK%M/YI300/ &
- (TPK%T/300.0)**(-1.*MINF)))**2)**(-1))+1.0-0.4
- !
-TPK%CF21 = HF21/(1.0 + HF21)
-TPK%CF22 = 1.0 - TPK%CF21
- !
- NC = 9.0
- Y300 = A*EXP(NC*B)
- HF23 = C*(Y300*TPK%M)/(1.0+(Y300*TPK%M/YI300/(TPK%T/300.0) &
- **(-1.*MINF)))*F**(1.0+(LOG10(Y300*TPK%M/YI300/ &
- (TPK%T/300.0)**(-1.*MINF)))**2)**(-1)
- !
-TPK%CF23 = HF23/(1.0 + HF23)
-TPK%CF24 = 1.0 - TPK%CF23
- !
- NC = 10.0
- Y300 = A*EXP(B*NC)
- C = 0.3
- HF25 = 0.5*(C*(Y300*TPK%M)/(1.0+(Y300*TPK%M/YI300/(TPK%T/300.0) &
- **(-1.*MINF)))*F**(1.0+(LOG10(Y300*TPK%M/YI300/ &
- (TPK%T/300.0)**(-1.*MINF)))**2)**(-1)) + 0.5
- !
-TPK%CF25 = HF25/(1.0 + HF25)
-TPK%CF26 = 1.0 - TPK%CF25
- !
- HF27 = 0.5*(C*(Y300*TPK%M)/(1.0+(Y300*TPK%M/YI300/(TPK%T/300.0) &
- **(-1.*MINF)))*F**(1.0+(LOG10(Y300*TPK%M/YI300/ &
- (TPK%T/300.0)**(-1.*MINF)))**2)**(-1)) + 0.5
- !
-TPK%CF27 = HF27/(1+HF27)
-TPK%CF28 = 1.0 - TPK%CF27
- !
- NC = 9.0
- Y300 = A*EXP(B*NC)
- C = 0.4
- HF29 = C*(Y300*TPK%M)/(1.0+(Y300*TPK%M/YI300/(TPK%T/300.0) &
- **(-1.*MINF)))*F**(1.0+(LOG10(Y300*TPK%M/YI300/ &
- (TPK%T/300.0)**(-1.*MINF)))**2)**(-1)
- !
-TPK%CF29 = HF29/(1.0 + HF29)
-TPK%CF30 = 1.0 - TPK%CF29
- !
- NC = 12.0
- Y300 = A*EXP(B*NC)
- HF31 = C*(Y300*TPK%M)/(1.0+(Y300*TPK%M/YI300/(TPK%T/300.0) &
- **(-1.*MINF)))*F**(1.0+(LOG10(Y300*TPK%M/YI300/ &
- (TPK%T/300.0)**(-1.*MINF)))**2)**(-1)
- !
-TPK%CF31 = HF31/(1.0 + HF31)
-TPK%CF32 = 1.0 - TPK%CF31
- !
- NC = 16.0
- Y300 = A*EXP(B*NC)
- C = 1.0
- !
- HF33 = C*(Y300*TPK%M)/(1.0+(Y300*TPK%M/YI300/(TPK%T/300.0) &
- **(-1.*MINF)))*F**(1.0+(LOG10(Y300*TPK%M/YI300/ &
- (TPK%T/300.0)**(-1.*MINF)))**2)**(-1)
- !
-TPK%CF33 = HF33/(1.0 + HF33)
-TPK%CF34 = 1.0 - TPK%CF33
- !
- HF35 = C*(Y300*TPK%M)/(1.0+(Y300*TPK%M/YI300/(TPK%T/300.0) &
- **(-1.*MINF)))*F**(1.0+(LOG10(Y300*TPK%M/YI300/ &
- (TPK%T/300.0)**(-1.*MINF)))**2)**(-1)
- !
-TPK%CF35 = HF35/(1.0 + HF35)
-TPK%CF36 = 1.0 - TPK%CF35
- !
-TPK%CF39 = 2.22E-11/(2.22E-11 + 7.66E-12 + (4.49E-18 * &
- TPK%T *TPK%T * EXP(-320.0/TPK%T)))
-TPK%CF45 = 4.49E-18*TPK%T*TPK%T*EXP(-320.0/TPK%T) &
- /(2.22E-11 + 7.66E-12 + (4.49E-18 * &
- TPK%T *TPK%T * EXP(-320.0/TPK%T)))
-TPK%CF40 = 0.84 - TPK%CF39 - TPK%CF45
- !
- NC = 8.0
- Y300 = A*EXP(B*NC)
- C = 0.4
- HF41 = C*(Y300*TPK%M)/(1.0+(Y300*TPK%M/YI300/(TPK%T/300.0) &
- **(-1.*MINF)))*F**(1.0+(LOG10(Y300*TPK%M/YI300/ &
- (TPK%T/300.0)**(-1.*MINF)))**2)**(-1)
- !
-TPK%CF41 = HF41/(1.0 + HF41)
-TPK%CF42 = 1.0 - TPK%CF41
- !
- !
- HF43 = C*(Y300*TPK%M)/(1.0+(Y300*TPK%M/YI300/(TPK%T/300.0) &
- **(-1.*MINF)))*F**(1.0+(LOG10(Y300*TPK%M/YI300/ &
- (TPK%T/300.0)**(-1.*MINF)))**2)**(-1)
- !
-TPK%CF43 = HF43/(1.0 + HF43)
-TPK%CF44 = 1.0 - TPK%CF43
- !
-TPK%CF46 = 2.22E-11/(2.22E-11 + 5.14E-11)
-TPK%CF47 = 1.0 - TPK%CF46
-
- ! for reaction 82: H2O stochiometric coef
-TPK%CF48 = .16 - TPK%CF39
-TPK%CF49 = TPK%CF39 + TPK%CF45
-
-TPK%CF1 = MAX(0., TPK%CF1)
-TPK%CF2 = MAX(0., TPK%CF2)
-TPK%CF3 = MAX(0., TPK%CF3)
-TPK%CF4 = MAX(0., TPK%CF4)
-TPK%CF5 = MAX(0., TPK%CF5)
-TPK%CF6 = MAX(0., TPK%CF6)
-TPK%CF7 = MAX(0., TPK%CF7)
-TPK%CF8 = MAX(0., TPK%CF8)
-TPK%CF9 = MAX(0., TPK%CF9)
-TPK%CF10 = MAX(0., TPK%CF10)
-TPK%CF11 = MAX(0., TPK%CF11)
-TPK%CF12 = MAX(0., TPK%CF12)
-TPK%CF13 = MAX(0., TPK%CF13)
-TPK%CF14 = MAX(0., TPK%CF14)
-TPK%CF15 = MAX(0., TPK%CF15)
-TPK%CF16 = MAX(0., TPK%CF16)
-TPK%CF17 = MAX(0., TPK%CF17)
-TPK%CF18 = MAX(0., TPK%CF18)
-TPK%CF19 = MAX(0., TPK%CF19)
-TPK%CF20 = MAX(0., TPK%CF20)
-TPK%CF21 = MAX(0., TPK%CF21)
-TPK%CF22 = MAX(0., TPK%CF22)
-TPK%CF23 = MAX(0., TPK%CF23)
-TPK%CF24 = MAX(0., TPK%CF24)
-TPK%CF25 = MAX(0., TPK%CF25)
-TPK%CF26 = MAX(0., TPK%CF26)
-TPK%CF27 = MAX(0., TPK%CF27)
-TPK%CF28 = MAX(0., TPK%CF28)
-TPK%CF29 = MAX(0., TPK%CF29)
-TPK%CF30 = MAX(0., TPK%CF30)
-TPK%CF31 = MAX(0., TPK%CF31)
-TPK%CF32 = MAX(0., TPK%CF32)
-TPK%CF33 = MAX(0., TPK%CF33)
-TPK%CF34 = MAX(0., TPK%CF34)
-TPK%CF35 = MAX(0., TPK%CF35)
-TPK%CF36 = MAX(0., TPK%CF36)
-TPK%CF37 = MAX(0., TPK%CF37)
-TPK%CF38 = MAX(0., TPK%CF38)
-TPK%CF39 = MAX(0., TPK%CF39)
-TPK%CF40 = MAX(0., TPK%CF40)
-TPK%CF41 = MAX(0., TPK%CF41)
-TPK%CF42 = MAX(0., TPK%CF42)
-TPK%CF43 = MAX(0., TPK%CF43)
-TPK%CF44 = MAX(0., TPK%CF44)
-TPK%CF45 = MAX(0., TPK%CF45)
-TPK%CF46 = MAX(0., TPK%CF46)
-TPK%CF47 = MAX(0., TPK%CF47)
-TPK%CF48 = MAX(0., TPK%CF48)
-TPK%CF49 = MAX(0., TPK%CF49)
-
-
-TPK%CFA2 = 0.9983609 *TPK%CF22
-TPK%CFA3 = 1.0000000 *TPK%CF19
-TPK%CFA4 = 1.0000000 *TPK%CF17
-TPK%CFA5 = 1.0000000 *TPK%CF23
-TPK%CFA6 = 1.0000000 *TPK%CF41
-TPK%CFA7 = 0.9983609 *TPK%CF42
-TPK%CFA9 = 1.0000000 *TPK%CF44
-TPK%CFA10 = TPK%CF26
-TPK%CFA12 = 0.3*TPK%CF28
-TPK%CFA13 = 1.0000000 *TPK%CF29
-TPK%CFA14 = 0.9999996 *TPK%CF33
-TPK%CFA15 = 0.9999996 *TPK%CF35
-TPK%CFA16 = 0.9999996 *TPK%CF36
-TPK%CFA17 = 0.8808107 *TPK%CF46
-TPK%CFA18 = 0.0000000E+00 *TPK%CF47
-TPK%CFA19 = TPK%CF6
-TPK%CFA20 = 1.0000005 *TPK%CF46
-TPK%CFA21 = 1.0000005 *TPK%CF46
-TPK%CFA22 = 0.5021558 *TPK%CF47
-TPK%CFA23 = 1.0000000 *TPK%CF25
-TPK%CFA24 = 1.0000000 *TPK%CF46
-!
-!
-! the following prints will be erased
-IF (KVERB >= 15) THEN
- WRITE(KOUT,*) "CH_SET_RATES: the following variables have been updated"
- WRITE(KOUT,*) "MODELLEVEL: ", TPK%MODELLEVEL(1)
- WRITE(KOUT,*) "M: ", TPK%M(1) , "molec/cm3"
- WRITE(KOUT,*) "T: ", TPK%T(1) , "K"
- WRITE(KOUT,*) "H2O ", TPK%H2O(1) , "molec/cm3"
- WRITE(KOUT,*) "CLOUDWATER: ", TPK%CLOUDWATER(1) , "kg/kg"
- WRITE(KOUT,*) "LATITUDE: ", TPK%LAT(1) , "degree"
- WRITE(KOUT,*) "LONGITUDE: ", TPK%LON(1) , "degree"
- WRITE(KOUT,*) "YEAR: ", TPK%YEAR(1)
- WRITE(KOUT,*) "MONTH: ", TPK%MONTH(1)
- WRITE(KOUT,*) "DAY: ", TPK%DAY(1)
- WRITE(KOUT,*) "RAINWATER: ", TPK%RAINWATER(1) , "kg/kg"
- WRITE(KOUT,*) "RHODREF: ", TPK%RHODREF(1) , "kg/m3"
- WRITE(KOUT,*) "PRESSURE: ", TPK%PRESSURE(1) , "atm"
- WRITE(KOUT,*) "O2: ", TPK%O2(1) , "molec/cm3"
- WRITE(KOUT,*) "N2: ", TPK%N2(1) , "molec/cm3"
- WRITE(KOUT,*) "H2: ", TPK%H2(1) , "molec/cm3"
- WRITE(KOUT,*) "CO2: ", TPK%CO2(1) , "molec/cm3"
- WRITE(KOUT,*) "LWC: ", TPK%LWC(1) , "m3/m3"
- WRITE(KOUT,*) "RADC: ", TPK%RADC(1) , "m"
- WRITE(KOUT,*) "PHC: ", TPK%PHC(1)
- WRITE(KOUT,*) "LWR: ", TPK%LWR(1) , "m3/m3"
- WRITE(KOUT,*) "RADR: ", TPK%RADR(1) , "m"
- WRITE(KOUT,*) "PHR: ", TPK%PHR(1)
- WRITE(KOUT,*) "W_O2: ", TPK%W_O2(1) , "M"
-END IF
-!
-! /END_SET_RATES/
-CALL SUBSRG0
-CALL SUBSRG1
-CALL SUBSRG2
-CALL SUBSRG3
-CALL SUBSRG4
-CALL SUBSRG5
-CALL SUBSRG6
-CALL SUBSRG7
-CALL SUBSRG8
-CALL SUBSRG9
-CALL SUBSRG10
-CALL SUBSRG11
-CALL SUBSRG12
-CALL SUBSRG13
-CALL SUBSRG14
-CALL SUBSRG15
-CALL SUBSRG16
-CALL SUBSRG17
-CALL SUBSRG18
-CALL SUBSRG19
-CALL SUBSRG20
-CALL SUBSRG21
-CALL SUBSRG22
-CALL SUBSRG23
-CALL SUBSRG24
-CALL SUBSRG25
-CALL SUBSRG26
-CALL SUBSRG27
-CALL SUBSRG28
-CALL SUBSRG29
-CALL SUBSRG30
-CALL SUBSRG31
-CALL SUBSRG32
-CALL SUBSRG33
-CALL SUBSRG34
-CALL SUBSRG35
-CALL SUBSRG36
-IF (TPK%LUSECHAQ) THEN
- CALL SUBSRW0
- CALL SUBSRW1
- CALL SUBSRW2
- CALL SUBSRW3
- CALL SUBSRW4
- CALL SUBSRW5
- CALL SUBSRW6
- CALL SUBSRW7
- CALL SUBSRW8
- CALL SUBSRW9
- CALL SUBSRW10
- CALL SUBSRW11
- CALL SUBSRW12
- CALL SUBSRW13
- CALL SUBSRW14
- CALL SUBSRW15
- CALL SUBSRW16
- CALL SUBSRW17
- CALL SUBSRW18
- CALL SUBSRW19
- CALL SUBSRW20
- CALL SUBSRW21
-END IF
-TPK%NOUT = KOUT
-TPK%NVERB(:) = KVERB
-RETURN
-
-CONTAINS
-
-SUBROUTINE SUBSRG0
-!
-!Indices 1 a 10
-!
- TPK%K002=TPK%M*5.60E-34*(TPK%T/300)**(-2.6)
- TPK%K003=6.5E-12*EXP(119.8/TPK%T)
- TPK%K004=TROE(1.,9.0E-32,2.,2.2E-11,0.,0.8,TPK%M,TPK%T,KVECNPT)
- TPK%K005=1.8E-12*EXP(-1368.9/TPK%T)
- TPK%K006=1.4E-13*EXP(-2471.1/TPK%T)
- TPK%K007=1.8E-11*EXP(110.7/TPK%T)
- TPK%K008=5.09E-18/TPK%T*EXP(528.4/TPK%T)
- TPK%K009=TROE(1.,2.8E-30,3.5,2.0E-12,0.2,0.45,TPK%M,TPK%T,KVECNPT)
- TPK%K010=TROE_EQUIL(2.8E-30,3.5,2.0E-12,0.2,3.70E+26,11000.0,0.45,TPK%M,TPK%T,&
-&KVECNPT)
-!
-RETURN
-END SUBROUTINE SUBSRG0
-!
-SUBROUTINE SUBSRG1
-!
-!Indices 11 a 20
-!
- TPK%K011=2.59E-22
- TPK%K012=4.5E-14*EXP(-1258.2/TPK%T)
- TPK%K017=2.2E-10
- TPK%K018A=1.80E-11*exp(-(-110.0/TPK%T))
- TPK%K018B=3.20E-11*exp(-(-70.0/TPK%T))
- TPK%K019=TROE(1.,7.0E-31,2.6,3.6E-11,0.1,0.6,TPK%M,TPK%T,KVECNPT)
-!
-RETURN
-END SUBROUTINE SUBSRG1
-!
-SUBROUTINE SUBSRG2
-!
-!Indices 21 a 30
-!
- TPK%K021=4.0E-24
- TPK%K022=TROE(1.,2.85E-30,2.67,3.13E-11,0.,0.6,TPK%M,TPK%T,KVECNPT)
- TPK%K023=TROE_KA(7.2E-15,785.1,4.1E-16,1439.4,1.9E-33,724.7,TPK%M,TPK%T,KVECNP&
-&T)
- TPK%K024=TROE_KB(1.3E-13,0.,3.19E-33,0.,TPK%M,TPK%T,KVECNPT)
- TPK%K025=1.9E-12*EXP(-1001.5/TPK%T)
- TPK%K026=3.41E-12*EXP(271.8/TPK%T)
- TPK%K027=TROE(1.,1.8E-31,3.2,4.7E-12,0.,0.6,TPK%M,TPK%T,KVECNPT)
- TPK%K028=TROE_EQUIL(1.8E-31,3.2,4.7E-12,0.,4.76E+26,10900.,0.6,TPK%M,TPK%T,KVE&
-&CNPT)
- TPK%K029=1.5E-12*EXP(362.4/TPK%T)
-!
-RETURN
-END SUBROUTINE SUBSRG2
-!
-SUBROUTINE SUBSRG3
-!
-!Indices 31 a 40
-!
- TPK%K030=1.4E-14*EXP(-598.9/TPK%T)
- TPK%K031=TROE_KB(2.2E-13,598.9,1.85E-33,981.4,TPK%M,TPK%T,KVECNPT)
- TPK%K032=TROE_KB(3.08E-34,2798.2,2.59E-54,3180.7,TPK%M,TPK%T,KVECNPT)
- TPK%K033=4.0E-12
- TPK%K034=8.0E-12*EXP(-2058.4/TPK%T)
- TPK%K035=TROE(1.,4.1E-31,3.3,2.0E-12,0.,0.45,TPK%M,TPK%T,KVECNPT)
- TPK%K037=2.91E-12*EXP(-161/TPK%T)
- TPK%K038=TROE(1.,9.00E-32,1.5,3.00E-11,0.0,0.6,TPK%M,TPK%T,KVECNPT)
- TPK%K039=2.7E-12*EXP(261.7/TPK%T)
-!
-RETURN
-END SUBROUTINE SUBSRG3
-!
-SUBROUTINE SUBSRG4
-!
-!Indices 41 a 50
-!
- TPK%K040=2.0E-11
- TPK%K041=8.5E-13*EXP(-2450.9/TPK%T)
- TPK%K042=4.8E-11*EXP(251.6/TPK%T)
- TPK%K043=2.66E-12*EXP(-1800.2/TPK%T)
- TPK%K046=1.2E-14*TPK%T*EXP(286.9/TPK%T)
- TPK%K047=2.0E-12*EXP(-2430.8/TPK%T)
- TPK%K048=6.0E-18*TPK%T**2*EXP(170.1/TPK%T)
- TPK%K049=1.96E-12*EXP(437.8/TPK%T)
-!
-RETURN
-END SUBROUTINE SUBSRG4
-!
-SUBROUTINE SUBSRG5
-!
-!Indices 51 a 60
-!
- TPK%K050=4.89E-18*TPK%T**2*EXP(-2282.3/TPK%T)
- TPK%K051=9.14E-15*EXP(-2580.3/TPK%T)
- TPK%K052=7.3E-13
- TPK%K053=6.18E-18*TPK%T**2*EXP(532/TPK%T)
- TPK%K054=5.86E-12*EXP(500.3/TPK%T)
- TPK%K055=1.0E-13*EXP(-800.2/TPK%T)
- TPK%K056=1.0E-17
- TPK%K057=4.66E-12
- TPK%K058=3.91E-12
-!
-RETURN
-END SUBROUTINE SUBSRG5
-!
-SUBROUTINE SUBSRG6
-!
-!Indices 61 a 70
-!
- TPK%K060=6.91E-12*EXP(250/TPK%T)
- TPK%K061=3.0E-13*EXP(-1427/TPK%T)
- TPK%K062=4.91E-12
- TPK%K064=2.55E-11*EXP(410.2/TPK%T)
- TPK%K065=3.02E-12*EXP(-445.9/TPK%T)
- TPK%K066=7.86E-15*EXP(-1912.9/TPK%T)
- TPK%K067=3.5E-11
- TPK%K068=3.2E-12
- TPK%K069=1.28E-11
-!
-RETURN
-END SUBROUTINE SUBSRG6
-!
-SUBROUTINE SUBSRG7
-!
-!Indices 71 a 80
-!
- TPK%K070=5.1E-12
- TPK%K072=3.77E-12
- TPK%K073=2.264E-10
- TPK%K074=3.47E-11
- TPK%K075=3.47E-11*1.0E-13*EXP(-800.2/TPK%T)/(5.86E-12*EXP(500.3/TPK%T))
- TPK%K076=3.47E-11*1.0E-17/(5.86E-12*EXP(500.3/TPK%T))
- TPK%K077=3.47E-11*4.66E-12/(5.86E-12*EXP(500.3/TPK%T))
- TPK%K078=1.03E-11
- TPK%K079=3.27E-11
-!
-RETURN
-END SUBROUTINE SUBSRG7
-!
-SUBROUTINE SUBSRG8
-!
-!Indices 81 a 90
-!
- TPK%K080=1.52E-11
- TPK%K081=1.4E-12*EXP(-1872.2/TPK%T)
- TPK%K082=1.29E-11
- TPK%K083=1.1E-12
- TPK%K084=1.7E-10
- TPK%K085=1.46E-11
- TPK%K086=2.5E-16
- TPK%K087=1.7E-10*4.66E-12/(5.86E-12*EXP(500.3/TPK%T))
- TPK%K088=1.77E-10
- TPK%K089=2.91E-11
-!
-RETURN
-END SUBROUTINE SUBSRG8
-!
-SUBROUTINE SUBSRG9
-!
-!Indices 91 a 100
-!
- TPK%K090=1.4E-16
- TPK%K091=8.59E-11
- TPK%K092=7.7E-11
- TPK%K093=1.97E-11
- TPK%K094=3.41E-13*EXP(800.2/TPK%T)
- TPK%K095=4.2E-12*EXP(181.2/TPK%T)
- TPK%K096=1.0E-15
- TPK%K097=0.9*7.7E5/TPK%T
- TPK%K098=0.9*7.7E5/TPK%T
- TPK%K099=0.9*7.7E5/TPK%T
-!
-RETURN
-END SUBROUTINE SUBSRG9
-!
-SUBROUTINE SUBSRG10
-!
-!Indices 101 a 110
-!
- TPK%K100=0.9*7.7E5/TPK%T
- TPK%K101=0.9*7.7E5/TPK%T
- TPK%K102=0.9*7.7E5/TPK%T
- TPK%K103=1.7*3.0E-11
- TPK%K104=1.7*3.0E-11
- TPK%K105=1.7*3.0E-11
- TPK%K106=1.7*3.0E-11
- TPK%K107=1.7*3.0E-11
- TPK%K108=1.7*3.0E-11
- TPK%K109=1.7*3.0E-11
-!
-RETURN
-END SUBROUTINE SUBSRG10
-!
-SUBROUTINE SUBSRG11
-!
-!Indices 111 a 120
-!
- TPK%K110=4.09E-12*EXP(180.2/TPK%T)
- TPK%K111=1.0E-15
- TPK%K112=3.41E-13*EXP(800.2/TPK%T)
- TPK%K113=2.45E-12*EXP(180.2/TPK%T)
- TPK%K114=1.0E-15
- TPK%K115=3.41E-13*EXP(800.2/TPK%T)
- TPK%K116=2.45E-12*EXP(180.2/TPK%T)
- TPK%K117=1.0E-15
- TPK%K118=3.41E-13*EXP(800.2/TPK%T)
- TPK%K119=3.45E-12*EXP(180.2/TPK%T)
-!
-RETURN
-END SUBROUTINE SUBSRG11
-!
-SUBROUTINE SUBSRG12
-!
-!Indices 121 a 130
-!
- TPK%K120=1.0E-15
- TPK%K121=3.41E-13*EXP(800.2/TPK%T)
- TPK%K122=2.91E-12*EXP(180.2/TPK%T)
- TPK%K123=1.0E-15
- TPK%K124=3.41E-13*EXP(800.2/TPK%T)
- TPK%K125=1.11E-11*EXP(180.2/TPK%T)
- TPK%K126=TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECNPT)
- TPK%K127=TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECNPT)
- TPK%K128=TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECNPT)
- TPK%K129=TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECNPT)
-!
-RETURN
-END SUBROUTINE SUBSRG12
-!
-SUBROUTINE SUBSRG13
-!
-!Indices 131 a 140
-!
- TPK%K130=TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECNPT)
- TPK%K131=TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECNPT)
- TPK%K132=TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECNPT)
- TPK%K133=TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECNPT)
- TPK%K134=TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECNPT)
- TPK%K135=TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.6,TPK%M,TPK%T,KV&
-&ECNPT)
- TPK%K136=TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.6,TPK%M,TPK%T,KV&
-&ECNPT)
- TPK%K137=TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.6,TPK%M,TPK%T,KV&
-&ECNPT)
- TPK%K138=TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.6,TPK%M,TPK%T,KV&
-&ECNPT)
- TPK%K139=TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.6,TPK%M,TPK%T,KV&
-&ECNPT)
-!
-RETURN
-END SUBROUTINE SUBSRG13
-!
-SUBROUTINE SUBSRG14
-!
-!Indices 141 a 150
-!
- TPK%K140=TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.6,TPK%M,TPK%T,KV&
-&ECNPT)
- TPK%K141=TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.6,TPK%M,TPK%T,KV&
-&ECNPT)
- TPK%K142=3.41E-13*EXP(800.2/TPK%T)/3.5
- TPK%K143=1.0E-15
- TPK%K144=2.45E-12*EXP(180.2/TPK%T)
- TPK%K145=1.0E-15
- TPK%K146=3.41E-13*EXP(800.2/TPK%T)
- TPK%K147=1.11E-11*EXP(180.2/TPK%T)
- TPK%K148=3.41E-13*EXP(800.2/TPK%T)/3.5
- TPK%K149=1.0E-15
-!
-RETURN
-END SUBROUTINE SUBSRG14
-!
-SUBROUTINE SUBSRG15
-!
-!Indices 151 a 160
-!
- TPK%K150=2.08E-12*EXP(180.2/TPK%T)
- TPK%K151=1.0E-15
- TPK%K152=3.41E-13*EXP(800.2/TPK%T)
- TPK%K153=2.08E-12*EXP(180.2/TPK%T)
- TPK%K154=1.0E-15
- TPK%K155=3.41E-13*EXP(800.2/TPK%T)
- TPK%K156=2.08E-12*EXP(180.2/TPK%T)
- TPK%K157=1.0E-15
- TPK%K158=3.41E-13*EXP(800.2/TPK%T)
- TPK%K159=2.08E-12*EXP(180.2/TPK%T)
-!
-RETURN
-END SUBROUTINE SUBSRG15
-!
-SUBROUTINE SUBSRG16
-!
-!Indices 161 a 170
-!
- TPK%K160=1.0E-15
- TPK%K161=3.41E-13*EXP(800.2/TPK%T)
- TPK%K162=2.45E-12*EXP(180.2/TPK%T)
- TPK%K163=1.0E-15
- TPK%K164=3.41E-13*EXP(800.2/TPK%T)
- TPK%K165=1.11E-11*EXP(180.2/TPK%T)
- TPK%K166=3.41E-13*EXP(800.2/TPK%T)/3.5
- TPK%K167=1.0E-15
- TPK%K168=2.91E-12*EXP(180.2/TPK%T)
- TPK%K169=1.0E-15
-!
-RETURN
-END SUBROUTINE SUBSRG16
-!
-SUBROUTINE SUBSRG17
-!
-!Indices 171 a 180
-!
- TPK%K170=3.41E-13*EXP(800.2/TPK%T)
- TPK%K171=2.08E-12*EXP(180.2/TPK%T)
- TPK%K172=1.0E-15
- TPK%K173=3.41E-13*EXP(800.2/TPK%T)
- TPK%K174=1.48E-12*EXP(180.2/TPK%T)
- TPK%K175=1.0E-15
- TPK%K176=3.41E-13*EXP(800.2/TPK%T)
- TPK%K177=1.25E-12*EXP(180.2/TPK%T)
- TPK%K178=1.0E-15
- TPK%K179=3.41E-13*EXP(800.2/TPK%T)
-!
-RETURN
-END SUBROUTINE SUBSRG17
-!
-SUBROUTINE SUBSRG18
-!
-!Indices 181 a 190
-!
- TPK%K180=1.25E-12*EXP(180.2/TPK%T)
- TPK%K181=1.0E-15
- TPK%K182=3.41E-13*EXP(800.2/TPK%T)
- TPK%K183=1.05E-12*EXP(180.2/TPK%T)
- TPK%K184=1.0E-15
- TPK%K185=3.41E-13*EXP(800.2/TPK%T)
- TPK%K186=1.25E-12*EXP(180.2/TPK%T)
- TPK%K187=1.0E-15
- TPK%K188=3.41E-13*EXP(800.2/TPK%T)
- TPK%K189=1.05E-12*EXP(180.2/TPK%T)
-!
-RETURN
-END SUBROUTINE SUBSRG18
-!
-SUBROUTINE SUBSRG19
-!
-!Indices 191 a 200
-!
- TPK%K190=1.0E-15
- TPK%K191=3.41E-13*EXP(800.2/TPK%T)
- TPK%K192=1.25E-12*EXP(180.2/TPK%T)
- TPK%K193=1.0E-15
- TPK%K194=3.41E-13*EXP(800.2/TPK%T)
- TPK%K195=1.25E-12*EXP(180.2/TPK%T)
- TPK%K196=1.0E-15
- TPK%K197=3.41E-13*EXP(800.2/TPK%T)
- TPK%K198=8.89E-13*EXP(180.2/TPK%T)
- TPK%K199=1.0E-15
-!
-RETURN
-END SUBROUTINE SUBSRG19
-!
-SUBROUTINE SUBSRG20
-!
-!Indices 201 a 210
-!
- TPK%K200=3.41E-13*EXP(800.2/TPK%T)
- TPK%K201=8.89E-13*EXP(180.2/TPK%T)
- TPK%K202=1.0E-15
- TPK%K203=3.41E-13*EXP(800.2/TPK%T)
- TPK%K204=8.89E-13*EXP(180.2/TPK%T)
- TPK%K205=1.0E-15
- TPK%K206=3.41E-13*EXP(800.2/TPK%T)
- TPK%K207=8.89E-13*EXP(180.2/TPK%T)
- TPK%K208=1.0E-15
- TPK%K209=3.41E-13*EXP(800.2/TPK%T)
-!
-RETURN
-END SUBROUTINE SUBSRG20
-!
-SUBROUTINE SUBSRG21
-!
-!Indices 211 a 220
-!
- TPK%K210=8.89E-13*EXP(180.2/TPK%T)
- TPK%K211=1.0E-15
- TPK%K212=3.41E-13*EXP(800.2/TPK%T)
- TPK%K213=1.05E-12*EXP(180.2/TPK%T)
- TPK%K214=1.0E-15
- TPK%K215=3.41E-13*EXP(800.2/TPK%T)
- TPK%K216=1.05E-12*EXP(180.2/TPK%T)
- TPK%K217=1.0E-15
- TPK%K218=3.41E-13*EXP(800.2/TPK%T)
- TPK%K219=1.0E-15
-!
-RETURN
-END SUBROUTINE SUBSRG21
-!
-SUBROUTINE SUBSRG22
-!
-!Indices 221 a 230
-!
- TPK%K220=3.41E-13*EXP(800.2/TPK%T)
- TPK%K221=6.32E-13*EXP(180.2/TPK%T)
- TPK%K222=1.0E-15
- TPK%K223=3.41E-13*EXP(800.2/TPK%T)
- TPK%K224=3.2E-13*EXP(180.2/TPK%T)
- TPK%K225=1.0E-15
- TPK%K226=3.41E-13*EXP(800.2/TPK%T)
- TPK%K227=3.2E-13*EXP(180.2/TPK%T)
- TPK%K228=1.0E-15
- TPK%K229=3.41E-13*EXP(800.2/TPK%T)
-!
-RETURN
-END SUBROUTINE SUBSRG22
-!
-SUBROUTINE SUBSRG23
-!
-!Indices 231 a 240
-!
- TPK%K230=1.2*1.64E+42/(TPK%T**11.4)*EXP(-9460/TPK%T)
- TPK%K231=1.25E-12*EXP(180.2/TPK%T)
- TPK%K232=1.0E-15
- TPK%K233=3.41E-13*EXP(800.2/TPK%T)
- TPK%K234=1.25E-12*EXP(180.2/TPK%T)
- TPK%K235=1.0E-15
- TPK%K236=3.41E-13*EXP(800.2/TPK%T)
- TPK%K237=1.2*1.64E+42/(TPK%T**11.4)*EXP(-9460/TPK%T)
- TPK%K238=1.05E-12*EXP(180.2/TPK%T)
- TPK%K239=1.0E-15
-!
-RETURN
-END SUBROUTINE SUBSRG23
-!
-SUBROUTINE SUBSRG24
-!
-!Indices 241 a 250
-!
- TPK%K240=3.41E-13*EXP(800.2/TPK%T)
- TPK%K241=1.05E-12*EXP(180.2/TPK%T)
- TPK%K242=1.0E-15
- TPK%K243=3.41E-13*EXP(800.2/TPK%T)
- TPK%K244=1.1*1.64E+42/(TPK%T**11.4)*EXP(-9460/TPK%T)
- TPK%K245=8.89E-13*EXP(180.2/TPK%T)
- TPK%K246=1.0E-15
- TPK%K247=3.41E-13*EXP(800.2/TPK%T)
- TPK%K248=8.89E-13*EXP(180.2/TPK%T)
- TPK%K249=1.0E-15
-!
-RETURN
-END SUBROUTINE SUBSRG24
-!
-SUBROUTINE SUBSRG25
-!
-!Indices 251 a 260
-!
- TPK%K250=3.41E-13*EXP(800.2/TPK%T)
- TPK%K251=1.2*1.64E+42/(TPK%T**11.4)*EXP(-9460/TPK%T)
- TPK%K252=1.25E-12*EXP(180.2/TPK%T)
- TPK%K253=1.0E-15
- TPK%K254=3.41E-13*EXP(800.2/TPK%T)
- TPK%K255=1.25E-12*EXP(180.2/TPK%T)
- TPK%K256=1.0E-15
- TPK%K257=3.41E-13*EXP(800.2/TPK%T)
- TPK%K258=1.2*1.64E+42/(TPK%T**11.4)*EXP(-9460/TPK%T)
- TPK%K259=1.25E-12*EXP(180.2/TPK%T)
-!
-RETURN
-END SUBROUTINE SUBSRG25
-!
-SUBROUTINE SUBSRG26
-!
-!Indices 261 a 270
-!
- TPK%K260=1.0E-15
- TPK%K261=3.41E-13*EXP(800.2/TPK%T)
- TPK%K262=1.25E-12*EXP(180.2/TPK%T)
- TPK%K263=1.0E-15
- TPK%K264=3.41E-13*EXP(800.2/TPK%T)
- TPK%K265=1.2*1.64E+42/(TPK%T**11.4)*EXP(-9460/TPK%T)
- TPK%K266=6.32E-13*EXP(180.2/TPK%T)
- TPK%K267=1.0E-15
- TPK%K268=3.41E-13*EXP(800.2/TPK%T)
- TPK%K269=6.32E-13*EXP(180.2/TPK%T)
-!
-RETURN
-END SUBROUTINE SUBSRG26
-!
-SUBROUTINE SUBSRG27
-!
-!Indices 271 a 280
-!
- TPK%K270=1.0E-15
- TPK%K271=3.41E-13*EXP(800.2/TPK%T)
- TPK%K272=4.14E-12*EXP(452.9/TPK%T)
- TPK%K273=1.86E-11*EXP(176.1/TPK%T)
- TPK%K274=1.72E-11
- TPK%K275=1.5E-12*EXP(-1726.2/TPK%T)
- TPK%K277=1.11E-11*EXP(180.2/TPK%T)
- TPK%K278=1.4E-12*EXP(-1897.3/TPK%T)
- TPK%K279=3.41E-13*EXP(800.2/TPK%T)/3.5
-!
-RETURN
-END SUBROUTINE SUBSRG27
-!
-SUBROUTINE SUBSRG28
-!
-!Indices 281 a 290
-!
- TPK%K280=1.0E-15
- TPK%K281=7.5E-16*EXP(-1519.9/TPK%T)
- TPK%K282=1.36E-15*EXP(-2113.7/TPK%T)
- TPK%K283=4.32E-12
- TPK%K284=6.34E-12
- TPK%K285=2.45E-12*EXP(180.2/TPK%T)
- TPK%K286=1.0E-15
- TPK%K287=3.41E-13*EXP(800.2/TPK%T)
- TPK%K288=1.11E-11*EXP(180.2/TPK%T)
- TPK%K289=3.41E-13*EXP(800.2/TPK%T)/3.5
-!
-RETURN
-END SUBROUTINE SUBSRG28
-!
-SUBROUTINE SUBSRG29
-!
-!Indices 291 a 300
-!
- TPK%K290=1.0E-15
- TPK%K291=2.45E-12*EXP(180.2/TPK%T)
- TPK%K292=3.41E-13*EXP(800.2/TPK%T)
- TPK%K293=1.0E-15
- TPK%K294=2.45E-12*EXP(180.2/TPK%T)
- TPK%K295=3.41E-13*EXP(800.2/TPK%T)
- TPK%K296=1.0E-15
- TPK%K297=2.91E-12*EXP(180.2/TPK%T)
- TPK%K298=3.41E-13*EXP(800.2/TPK%T)
- TPK%K299=1.0E-15
-!
-RETURN
-END SUBROUTINE SUBSRG29
-!
-SUBROUTINE SUBSRG30
-!
-!Indices 301 a 310
-!
- TPK%K300=1.11E-11*EXP(180.2/TPK%T)
- TPK%K301=3.41E-13*EXP(800.2/TPK%T)/3.5
- TPK%K302=1.0E-15
- TPK%K303=1.29E-11
- TPK%K304=3.54E-11
- TPK%K305=1.72E-11
- TPK%K306=1.2940467E-11
- TPK%K307=3.0E-13*EXP(-1427/TPK%T)*3.54E-11/(6.91E-12*EXP(250/TPK%T))
- TPK%K309=1.11E-11*EXP(180.2/TPK%T)
-!
-RETURN
-END SUBROUTINE SUBSRG30
-!
-SUBROUTINE SUBSRG31
-!
-!Indices 311 a 320
-!
- TPK%K310=3.41E-13*EXP(800.2/TPK%T)/3.5
- TPK%K311=1.0E-15
- TPK%K312=4.24E-11
- TPK%K313=3.0E-13*EXP(-1427/TPK%T)*4.24E-11/(6.91E-12*EXP(250/TPK%T))
- TPK%K315=1.11E-11*EXP(180.2/TPK%T)
- TPK%K316=TROE(1.,9.7E-29,5.6,9.3E-12,1.5,0.6,TPK%M,TPK%T,KVECNPT)
- TPK%K317=TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.6,TPK%M,TPK%T,KV&
-&ECNPT)
- TPK%K318=3.41E-13*EXP(800.2/TPK%T)/3.5
- TPK%K319=1.0E-15
-!
-RETURN
-END SUBROUTINE SUBSRG31
-!
-SUBROUTINE SUBSRG32
-!
-!Indices 321 a 330
-!
- TPK%K320=3.77E-12
- TPK%K321=2.30E-11*EXP(151.0/TPK%T)
- TPK%K322=1.29E-11
- TPK%K323=1.3918362E-10
- TPK%K324=1.145E-10
- TPK%K325=1.098E-10
- TPK%K326=1.964E-10
- TPK%K327=3.0E-13*EXP(-1427/TPK%T)*1.145E-10/(6.91E-12*EXP(250/TPK%T))
-!
-RETURN
-END SUBROUTINE SUBSRG32
-!
-SUBROUTINE SUBSRG33
-!
-!Indices 331 a 340
-!
- TPK%K331=1.11E-11*EXP(180.2/TPK%T)
- TPK%K332=3.41E-13*EXP(800.2/TPK%T)/3.5
- TPK%K333=1.0E-15
- TPK%K334=2.4131647E-10
- TPK%K335=2.1923330E-10
- TPK%K337=1.97E-10
- TPK%K338=1.4E-12*EXP(-1897.3/TPK%T)
- TPK%K340=1.11E-11*EXP(180.2/TPK%T)
-!
-RETURN
-END SUBROUTINE SUBSRG33
-!
-SUBROUTINE SUBSRG34
-!
-!Indices 341 a 350
-!
- TPK%K341=3.41E-13*EXP(800.2/TPK%T)
- TPK%K342=1.0E-15
- TPK%K343=TROE_EQUIL(9.7E-29,5.6,9.3E-12,1.5,1.16E+28,13954.,0.6,TPK%M,TPK%T,KV&
-&ECNPT)
- TPK%K344=8.89E-13*EXP(180.2/TPK%T)
- TPK%K345=3.30E-12*exp(-(900.0/TPK%T))
- TPK%K346=1.00E-40
- TPK%K347=4.50E-13
- TPK%K348=6.00E-13
- TPK%K349=1.20E-12
- TPK%K350=1.00E-40
-!
-RETURN
-END SUBROUTINE SUBSRG34
-!
-SUBROUTINE SUBSRG35
-!
-!Indices 351 a 360
-!
- TPK%K351=1.00E-40
- TPK%K352=1.00E-40
- TPK%K353=1.00E-40
- TPK%K354=1.00E-40
- TPK%K355=1.00E-40
- TPK%K356=1.00E-40
- TPK%K357=1.00E-40
- TPK%K358=1.00E-40
- TPK%K359=1.00E-40
- TPK%K360=1.00E-40
-!
-RETURN
-END SUBROUTINE SUBSRG35
-!
-SUBROUTINE SUBSRG36
-!
-!Indices 361 a 365
-!
- TPK%K361=1.00E-40
- TPK%K362=1.00E-40
- TPK%K363=1.00E-40
- TPK%K364=1.00E-40
- TPK%K365=1.00E-40
-!
-RETURN
-END SUBROUTINE SUBSRG36
-!
-SUBROUTINE SUBSRW0
-!
-!Indices 366 a 375
-!
- TPK%KTC1=KT(0.05,48.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC2=KT(0.11,34.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC3=KT(0.0001,30.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC4=KT(0.0015,46.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC5=KT(0.05,62.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC6=KT(0.0037,108.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC7=KT(0.05,47.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC8=KT(0.054,63.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC9=KT(0.05,79.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC10=KT(0.04,17.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
-!
-RETURN
-END SUBROUTINE SUBSRW0
-!
-SUBROUTINE SUBSRW1
-!
-!Indices 376 a 385
-!
- TPK%KTC11=KT(0.05,17.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC12=KT(0.2,30.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC13=KT(0.0002,44.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC14=KT(0.11,64.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC15=KT(0.07,98.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC16=KT(0.05,47.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC17=KT(0.05,75.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC18=KT(0.027,32.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC19=KT(0.017,46.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC20=KT(0.011,60.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
-!
-RETURN
-END SUBROUTINE SUBSRW1
-!
-SUBROUTINE SUBSRW2
-!
-!Indices 386 a 395
-!
- TPK%KTC21=KT(0.04,30.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC22=KT(0.03,44.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC23=KT(0.01,58.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC24=KT(0.008,58.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC25=KT(0.0003,72.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC26=KT(0.023,46.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC27=KT(0.032,60.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC28=KT(0.05,74.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC29=KT(0.05,74.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC30=KT(0.05,88.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
-!
-RETURN
-END SUBROUTINE SUBSRW2
-!
-SUBROUTINE SUBSRW3
-!
-!Indices 396 a 405
-!
- TPK%KTC31=KT(0.05,90.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC
- TPK%KTC32=KT(0.05,48.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(1.1e-2,-2830.,TPK%T,KVECN&
-&PT)*TPK%RCH*TPK%T)
- TPK%KTC33=KT(0.11,34.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(7.73e4,-7310.,TPK%T,KVECN&
-&PT)*TPK%RCH*TPK%T)
- TPK%KTC34=KT(0.0001,30.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(1.92e-3,-1790.,TPK%T,KV&
-&ECNPT)*TPK%RCH*TPK%T)
- TPK%KTC35=KT(0.0015,46.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(1.4e-2,-2516.,TPK%T,KVE&
-&CNPT)*TPK%RCH*TPK%T)
- TPK%KTC36=KT(0.05,62.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(3.8e-2,-8707.,TPK%T,KVECN&
-&PT)*TPK%RCH*TPK%T)
- TPK%KTC37=KT(0.0037,108.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(2.1e0,-3400.,TPK%T,KVE&
-&CNPT)*TPK%RCH*TPK%T)
- TPK%KTC38=KT(0.05,47.,TPK%T,TPK%RADC,KVECNPT)/(HEFFA(5.0e1,-4880.,1.6e-3,1760.&
-&,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
- TPK%KTC39=KT(0.054,63.,TPK%T,TPK%RADC,KVECNPT)/(HEFFA(2.1e5,-8700.,2.2e1,0.,0.&
-&,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
- TPK%KTC40=KT(0.05,79.,TPK%T,TPK%RADC,KVECNPT)/(HEFFA(1.2e4,-6900.,1.26e-6,0.,0&
-&.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
-!
-RETURN
-END SUBROUTINE SUBSRW3
-!
-SUBROUTINE SUBSRW4
-!
-!Indices 406 a 415
-!
- TPK%KTC41=KT(0.04,17.,TPK%T,TPK%RADC,KVECNPT)/(HEFFB(6.02e1,-4160.,1.7e-5,4350&
-&.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
- TPK%KTC42=KT(0.05,17.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(3.9e1,0.,TPK%T,KVECNPT)*T&
-&PK%RCH*TPK%T)
- TPK%KTC43=KT(0.2,30.,TPK%T,TPK%RADC,KVECNPT)/(HEFFA(6.9e2,-6643.,1.6e-5,0.,0.,&
-&0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
- TPK%KTC44=KT(0.0002,44.,TPK%T,TPK%RADC,KVECNPT)/(HEFFA(3.4e-2,-2710.,4.3e-7,92&
-&0.,4.7e-11,1780.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
- TPK%KTC45=KT(0.11,64.,TPK%T,TPK%RADC,KVECNPT)/(HEFFA(1.36,-2930.,1.3e-2,-1965.&
-&,6.4e-8,-1430.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
- TPK%KTC46=KT(0.07,98.,TPK%T,TPK%RADC,KVECNPT)/(HEFFA(2.1e5,-8700.,1.0e3,0.,1.0&
-&e-2,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
- TPK%KTC47=KT(0.05,47.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(2.7e0,0.,TPK%T,KVECNPT)*T&
-&PK%RCH*TPK%T)
- TPK%KTC48=KT(0.05,75.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(7.5e1,0.,TPK%T,KVECNPT)*T&
-&PK%RCH*TPK%T)
- TPK%KTC49=KT(0.027,32.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(2.2e2,-5210.,TPK%T,KVECN&
-&PT)*TPK%RCH*TPK%T)
- TPK%KTC50=KT(0.017,46.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(1.9e2,-6600.,TPK%T,KVECN&
-&PT)*TPK%RCH*TPK%T)
-!
-RETURN
-END SUBROUTINE SUBSRW4
-!
-SUBROUTINE SUBSRW5
-!
-!Indices 416 a 425
-!
- TPK%KTC51=KT(0.011,60.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(1.3e2,-7500.,TPK%T,KVECN&
-&PT)*TPK%RCH*TPK%T)
- TPK%KTC52=KT(0.04,30.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(3.23e3,-7100.,TPK%T,KVECN&
-&PT)*TPK%RCH*TPK%T)
- TPK%KTC53=KT(0.03,44.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(1.29e1,-5890.,TPK%T,KVECN&
-&PT)*TPK%RCH*TPK%T)
- TPK%KTC54=KT(0.01,58.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(3.6e5,0.,TPK%T,KVECNPT)*T&
-&PK%RCH*TPK%T)
- TPK%KTC55=KT(0.008,58.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(2.81e1,-5050.,TPK%T,KVEC&
-&NPT)*TPK%RCH*TPK%T)
- TPK%KTC56=KT(0.0003,72.,TPK%T,TPK%RADC,KVECNPT)/(HENRY(3.7e3,0.,TPK%T,KVECNPT)&
-&*TPK%RCH*TPK%T)
- TPK%KTC57=KT(0.023,46.,TPK%T,TPK%RADC,KVECNPT)/(HEFFA(8.9e3,-6100.,1.8e-4,150.&
-&,0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
- TPK%KTC58=KT(0.032,60.,TPK%T,TPK%RADC,KVECNPT)/(HEFFA(4.1e3,-6200.,1.75e-5,0.,&
-&0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
- TPK%KTC59=KT(0.05,74.,TPK%T,TPK%RADC,KVECNPT)/(HEFFA(5.7e3,0.,1.35e-5,0.,0.,0.&
-&,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
- TPK%KTC60=KT(0.05,74.,TPK%T,TPK%RADC,KVECNPT)/(HEFFA(9.0e3,0.,3.2e-4,0.,0.,0.,&
-&TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
-!
-RETURN
-END SUBROUTINE SUBSRW5
-!
-SUBROUTINE SUBSRW6
-!
-!Indices 426 a 435
-!
- TPK%KTC61=KT(0.05,88.,TPK%T,TPK%RADC,KVECNPT)/(HEFFA(3.11e5,-5090.,3.55e-3,0.,&
-&0.,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
- TPK%KTC62=KT(0.05,90.,TPK%T,TPK%RADC,KVECNPT)/(HEFFA(5.0e8,0.,5.6e-2,0.,5.4e-5&
-&,0.,TPK%PHC,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
- TPK%KTR1=KT(0.05,48.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR2=KT(0.11,34.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR3=KT(0.0001,30.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR4=KT(0.0015,46.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR5=KT(0.05,62.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR6=KT(0.0037,108.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR7=KT(0.05,47.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR8=KT(0.054,63.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
-!
-RETURN
-END SUBROUTINE SUBSRW6
-!
-SUBROUTINE SUBSRW7
-!
-!Indices 436 a 445
-!
- TPK%KTR9=KT(0.05,79.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR10=KT(0.04,17.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR11=KT(0.05,17.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR12=KT(0.2,30.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR13=KT(0.0002,44.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR14=KT(0.11,64.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR15=KT(0.07,98.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR16=KT(0.05,47.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR17=KT(0.05,75.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR18=KT(0.027,32.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
-!
-RETURN
-END SUBROUTINE SUBSRW7
-!
-SUBROUTINE SUBSRW8
-!
-!Indices 446 a 455
-!
- TPK%KTR19=KT(0.017,46.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR20=KT(0.011,60.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR21=KT(0.04,30.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR22=KT(0.03,44.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR23=KT(0.01,58.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR24=KT(0.008,58.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR25=KT(0.0003,72.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR26=KT(0.023,46.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR27=KT(0.032,60.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR28=KT(0.05,74.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
-!
-RETURN
-END SUBROUTINE SUBSRW8
-!
-SUBROUTINE SUBSRW9
-!
-!Indices 456 a 465
-!
- TPK%KTR29=KT(0.05,74.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR30=KT(0.05,88.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR31=KT(0.05,90.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR
- TPK%KTR32=KT(0.05,48.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(1.1e-2,-2830.,TPK%T,KVECN&
-&PT)*TPK%RCH*TPK%T)
- TPK%KTR33=KT(0.11,34.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(7.73e4,-7310.,TPK%T,KVECN&
-&PT)*TPK%RCH*TPK%T)
- TPK%KTR34=KT(0.0001,30.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(1.92e-3,-1790.,TPK%T,KV&
-&ECNPT)*TPK%RCH*TPK%T)
- TPK%KTR35=KT(0.0015,46.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(1.4e-2,-2516.,TPK%T,KVE&
-&CNPT)*TPK%RCH*TPK%T)
- TPK%KTR36=KT(0.05,62.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(3.8e-2,-8707.,TPK%T,KVECN&
-&PT)*TPK%RCH*TPK%T)
- TPK%KTR37=KT(0.0037,108.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(2.1e0,-3400.,TPK%T,KVE&
-&CNPT)*TPK%RCH*TPK%T)
- TPK%KTR38=KT(0.05,47.,TPK%T,TPK%RADR,KVECNPT)/(HEFFA(5.0e1,-4880.,1.6e-3,1760.&
-&,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
-!
-RETURN
-END SUBROUTINE SUBSRW9
-!
-SUBROUTINE SUBSRW10
-!
-!Indices 466 a 475
-!
- TPK%KTR39=KT(0.054,63.,TPK%T,TPK%RADR,KVECNPT)/(HEFFA(2.1e5,-8700.,2.2e1,0.,0.&
-&,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
- TPK%KTR40=KT(0.05,79.,TPK%T,TPK%RADR,KVECNPT)/(HEFFA(1.2e4,-6900.,1.26e-6,0.,0&
-&.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
- TPK%KTR41=KT(0.04,17.,TPK%T,TPK%RADR,KVECNPT)/(HEFFB(6.02e1,-4160.,1.7e-5,4350&
-&.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
- TPK%KTR42=KT(0.05,17.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(3.9e1,0.,TPK%T,KVECNPT)*T&
-&PK%RCH*TPK%T)
- TPK%KTR43=KT(0.2,30.,TPK%T,TPK%RADR,KVECNPT)/(HEFFA(6.9e2,-6643.,1.6e-5,0.,0.,&
-&0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
- TPK%KTR44=KT(0.0002,44.,TPK%T,TPK%RADR,KVECNPT)/(HEFFA(3.4e-2,-2710.,4.3e-7,92&
-&0.,4.7e-11,1780.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
- TPK%KTR45=KT(0.11,64.,TPK%T,TPK%RADR,KVECNPT)/(HEFFA(1.36,-2930.,1.3e-2,-1965.&
-&,6.4e-8,-1430.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
- TPK%KTR46=KT(0.07,98.,TPK%T,TPK%RADR,KVECNPT)/(HEFFA(2.1e5,-8700.,1.0e3,0.,1.0&
-&e-2,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
- TPK%KTR47=KT(0.05,47.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(2.7e0,0.,TPK%T,KVECNPT)*T&
-&PK%RCH*TPK%T)
- TPK%KTR48=KT(0.05,75.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(7.5e1,0.,TPK%T,KVECNPT)*T&
-&PK%RCH*TPK%T)
-!
-RETURN
-END SUBROUTINE SUBSRW10
-!
-SUBROUTINE SUBSRW11
-!
-!Indices 476 a 485
-!
- TPK%KTR49=KT(0.027,32.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(2.2e2,-5210.,TPK%T,KVECN&
-&PT)*TPK%RCH*TPK%T)
- TPK%KTR50=KT(0.017,46.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(1.9e2,-6600.,TPK%T,KVECN&
-&PT)*TPK%RCH*TPK%T)
- TPK%KTR51=KT(0.011,60.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(1.3e2,-7500.,TPK%T,KVECN&
-&PT)*TPK%RCH*TPK%T)
- TPK%KTR52=KT(0.04,30.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(3.23e3,-7100.,TPK%T,KVECN&
-&PT)*TPK%RCH*TPK%T)
- TPK%KTR53=KT(0.03,44.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(1.29e1,-5890.,TPK%T,KVECN&
-&PT)*TPK%RCH*TPK%T)
- TPK%KTR54=KT(0.01,58.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(3.6e5,0.,TPK%T,KVECNPT)*T&
-&PK%RCH*TPK%T)
- TPK%KTR55=KT(0.008,58.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(2.81e1,-5050.,TPK%T,KVEC&
-&NPT)*TPK%RCH*TPK%T)
- TPK%KTR56=KT(0.0003,72.,TPK%T,TPK%RADR,KVECNPT)/(HENRY(3.7e3,0.,TPK%T,KVECNPT)&
-&*TPK%RCH*TPK%T)
- TPK%KTR57=KT(0.023,46.,TPK%T,TPK%RADR,KVECNPT)/(HEFFA(8.9e3,-6100.,1.8e-4,150.&
-&,0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
- TPK%KTR58=KT(0.032,60.,TPK%T,TPK%RADR,KVECNPT)/(HEFFA(4.1e3,-6200.,1.75e-5,0.,&
-&0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
-!
-RETURN
-END SUBROUTINE SUBSRW11
-!
-SUBROUTINE SUBSRW12
-!
-!Indices 486 a 495
-!
- TPK%KTR59=KT(0.05,74.,TPK%T,TPK%RADR,KVECNPT)/(HEFFA(5.7e3,0.,1.35e-5,0.,0.,0.&
-&,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
- TPK%KTR60=KT(0.05,74.,TPK%T,TPK%RADR,KVECNPT)/(HEFFA(9.0e3,0.,3.2e-4,0.,0.,0.,&
-&TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
- TPK%KTR61=KT(0.05,88.,TPK%T,TPK%RADR,KVECNPT)/(HEFFA(3.11e5,-5090.,3.55e-3,0.,&
-&0.,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
- TPK%KTR62=KT(0.05,90.,TPK%T,TPK%RADR,KVECNPT)/(HEFFA(5.0e8,0.,5.6e-2,0.,5.4e-5&
-&,0.,TPK%PHR,TPK%T,KVECNPT)*TPK%RCH*TPK%T)
- TPK%KC2=(3.6E+9*exp(-930.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECCLOUD
- TPK%KC3=((2.8E+10*10.**(-TPK%PHC)+3.5E+10*exp(-720.*(1./TPK%T-1./298.15))*1.6e&
-&-5)/(1.6e-5+10.**(-TPK%PHC)))/TPK%MOL2MOLECCLOUD
- TPK%KC4=(3.2E+7*exp(-1700.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECCLOUD
- TPK%KC5=((8.3E+5*exp(-2700.*(1./TPK%T-1./298.15))*(10.**(-TPK%PHC))**2.+9.6E+7&
-&*exp(-910.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)*1.6e-5)/(1.6e-5+10.**(-TPK%PH&
-&C))**2.)/TPK%MOL2MOLECCLOUD
- TPK%KC6=(1.5E+9*exp(-1500.*(1./TPK%T-1./298.15))*1.6e-5/(1.6e-5+10.**(-TPK%PHC&
-&)))/TPK%MOL2MOLECCLOUD
-!
-RETURN
-END SUBROUTINE SUBSRW12
-!
-SUBROUTINE SUBSRW13
-!
-!Indices 496 a 505
-!
- TPK%KC7=(2.7E+9*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)/(1.3e-2&
-&*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2&
-&*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.))/TPK%M&
-&OL2MOLECCLOUD
- TPK%KC8=(1.0E+10*10.**(-TPK%PHC)/(1.6e-3*exp(-1760.*(1./TPK%T-1./298.15))+10.*&
-&*(-TPK%PHC)))/TPK%MOL2MOLECCLOUD
- TPK%KC9=((1.8E+9*10.**(-TPK%PHC)+4.5E+9*1.6e-5)/(1.6e-5+10.**(-TPK%PHC)))/TPK%&
-&MOL2MOLECCLOUD
- TPK%KC10=2.6E-2*10.**(-TPK%PHC)/(1.26e-6+10.**(-TPK%PHC))
- TPK%KC11=1.1E0*1.26e-6/(1.26e-6+10.**(-TPK%PHC))
- TPK%KC12=(3.3E+5*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*(10.**(-TPK%PHC))**2./&
-&((1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15)&
-&)+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.&
-&)*(1.26e-6+10.**(-TPK%PHC))))/TPK%MOL2MOLECCLOUD
- TPK%KC14=1.0E+10
- TPK%KC15=(1.0E+5*1.0e+3*1.0e-2/(1.0e+3*1.0e-2+1.0e+3*10.**(-TPK%PHC)+(10.**(-T&
-&PK%PHC))**2.))/TPK%MOL2MOLECCLOUD
- TPK%KC16=(1.3E+9*exp(-2200.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1&
-&./298.15))*10.**(-TPK%PHC)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(&
-&1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%&
-&PHC)+(10.**(-TPK%PHC))**2.))/TPK%MOL2MOLECCLOUD
-!
-RETURN
-END SUBROUTINE SUBSRW13
-!
-SUBROUTINE SUBSRW14
-!
-!Indices 506 a 515
-!
- TPK%KC17=((7.9E+2*exp(-2900.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-&
-&1./298.15))*10.**(-TPK%PHC)+2.5E+7*exp(-2450.*(1./TPK%T-1./298.15))*1.3e-2*exp&
-&(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15)))/((1.3e-2*&
-&exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*&
-&exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.)*(1.+2.5&
-&e3*exp(4030.*(1./TPK%T-1./298.15)))))/TPK%MOL2MOLECCLOUD
- TPK%KC18=7.7E-3*exp(-9200.*(1./TPK%T-1./298.15))+3.7E+3*1.e-14*EXP(-6716*(1./T&
-&PK%T-1./298.15))/10.**(-TPK%PHC)
- TPK%KC19=3.0E+8/TPK%MOL2MOLECCLOUD
- TPK%KC20=1.1E+9
- TPK%KC21=(1.7E+9*10.**(-TPK%PHC)/(1.6e-5+10.**(-TPK%PHC)))/TPK%MOL2MOLECCLOUD
- TPK%KC22=(2.2E+8*exp(-2600.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECCLOUD
- TPK%KC23=(7.1E+6*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)*10.**(&
-&-TPK%PHC)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1&
-&./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%&
-&PHC))**2.))/TPK%MOL2MOLECCLOUD
- TPK%KC24=4.6E+2*exp(-1100.*(1./TPK%T-1./298.15))
- TPK%KC25=((3.7E+5*exp(-5500.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-&
-&1./298.15))*10.**(-TPK%PHC)+1.5E+9*exp(-5300.*(1./TPK%T-1./298.15))*1.3e-2*exp&
-&(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15)))/(1.3e-2*e&
-&xp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*e&
-&xp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.))/TPK%MOL&
-&2MOLECCLOUD
- TPK%KC26=(9.1E+7*exp(-3600.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1&
-&./298.15))*10.**(-TPK%PHC)*10.**(-TPK%PHC)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.&
-&15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.&
-&15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.))/TPK%MOL2MOLECCLOUD
-!
-RETURN
-END SUBROUTINE SUBSRW14
-!
-SUBROUTINE SUBSRW15
-!
-!Indices 516 a 525
-!
- TPK%KC27=(1.7E+8*exp(-2200.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECCLOUD
- TPK%KC28=(5.0E+5*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)/(1.3e-&
-&2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-&
-&2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.))/TPK%&
-&MOL2MOLECCLOUD
- TPK%KC29=1.5E+8/TPK%MOL2MOLECCLOUD
- TPK%KC30=(1.7E+9*exp(-600.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECCLOUD
- TPK%KC31=(2.1E+9*exp(-1200.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECCLOUD
- TPK%KC32=(3.3E+9*exp(-1000.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECCLOUD
- TPK%KC33=(7.8E+8*exp(-1000.*(1./TPK%T-1./298.15))*2.5e3*exp(4030.*(1./TPK%T-1.&
-&/298.15))/(1.+2.5e3*exp(4030.*(1./TPK%T-1./298.15))))/TPK%MOL2MOLECCLOUD
- TPK%KC34=3.4E+9/TPK%MOL2MOLECCLOUD
- TPK%KC35=(1.1E+9*exp(-1500.*(1./TPK%T-1./298.15))*3.9e3/(1.+3.9e3))/TPK%MOL2MO&
-&LECCLOUD
- TPK%KC36=(7.9E+8*exp(-1600.*(1./TPK%T-1./298.15))*4.86e2/(1.+4.86e2))/TPK%MOL2&
-&MOLECCLOUD
-!
-RETURN
-END SUBROUTINE SUBSRW15
-!
-SUBROUTINE SUBSRW16
-!
-!Indices 526 a 535
-!
- TPK%KC37=(8.9E+8*exp(-1400.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECCLOUD
- TPK%KC38=((1.0E+8*exp(-1000.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+3.4E+9*exp(&
-&-1200.*(1./TPK%T-1./298.15))*1.8e-4*exp(150.*(1./TPK%T-1./298.15)))/(1.8e-4*ex&
-&p(150.*(1./TPK%T-1./298.15))+10.**(-TPK%PHC)))/TPK%MOL2MOLECCLOUD
- TPK%KC39=((1.5E+7*exp(-1300.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+1.0E+8*exp(&
-&-1800.*(1./TPK%T-1./298.15))*1.75e-5)/(1.75e-5+10.**(-TPK%PHC)))/TPK%MOL2MOLEC&
-&CLOUD
- TPK%KC40=(3.2E+8*exp(-2300.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)/(1.35e-5+10.&
-&**(-TPK%PHC)))/TPK%MOL2MOLECCLOUD
- TPK%KC41=(7.3E+8*exp(-1800.*(1./TPK%T-1./298.15))*1.35e-5/(1.35e-5+10.**(-TPK%&
-&PHC)))/TPK%MOL2MOLECCLOUD
- TPK%KC42=((4.7E+7*10.**(-TPK%PHC)*5.6E-2+7.7E+6*5.6E-2*5.4e-5)/(5.6E-2*5.4E-5+&
-&5.4E-5*10.**(-TPK%PHC)+(10.**(-TPK%PHC))**2.))/TPK%MOL2MOLECCLOUD
- TPK%KC43=((1.2E+8*exp(-2800.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)+7.0E+8*exp(&
-&-2300.*(1./TPK%T-1./298.15))*3.55E-3)/(3.55E-3+10.**(-TPK%PHC)))/TPK%MOL2MOLEC&
-&CLOUD
- TPK%KC44=(3.6E+8*exp(-1000.*(1./TPK%T-1./298.15))*10.**(-TPK%PHC)/(10.**(-TPK%&
-&PHC)+3.2E-4))/TPK%MOL2MOLECCLOUD
- TPK%KC45=(2.6E+9*exp(-4300.*(1./TPK%T-1./298.15))*3.2E-4/(10.**(-TPK%PHC)+3.2E&
-&-4))/TPK%MOL2MOLECCLOUD
- TPK%KC46=1.6E+7/TPK%MOL2MOLECCLOUD
-!
-RETURN
-END SUBROUTINE SUBSRW16
-!
-SUBROUTINE SUBSRW17
-!
-!Indices 536 a 545
-!
- TPK%KR2=(3.6E+9*exp(-930.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECRAIN
- TPK%KR3=((2.8E+10*10.**(-TPK%PHR)+3.5E+10*exp(-720.*(1./TPK%T-1./298.15))*1.6e&
-&-5)/(1.6e-5+10.**(-TPK%PHR)))/TPK%MOL2MOLECRAIN
- TPK%KR4=(3.2E+7*exp(-1700.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECRAIN
- TPK%KR5=((8.3E+5*exp(-2700.*(1./TPK%T-1./298.15))*(10.**(-TPK%PHR))**2.+9.6E+7&
-&*exp(-910.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)*1.6e-5)/(1.6e-5+10.**(-TPK%PH&
-&R))**2.)/TPK%MOL2MOLECRAIN
- TPK%KR6=(1.5E+9*exp(-1500.*(1./TPK%T-1./298.15))*1.6e-5/(1.6e-5+10.**(-TPK%PHR&
-&)))/TPK%MOL2MOLECRAIN
- TPK%KR7=(2.7E+9*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)/(1.3e-2&
-&*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2&
-&*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.))/TPK%M&
-&OL2MOLECRAIN
- TPK%KR8=(1.0E+10*10.**(-TPK%PHR)/(1.6e-3*exp(-1760.*(1./TPK%T-1./298.15))+10.*&
-&*(-TPK%PHR)))/TPK%MOL2MOLECRAIN
- TPK%KR9=((1.8E+9*10.**(-TPK%PHR)+4.5E+9*1.6e-5)/(1.6e-5+10.**(-TPK%PHR)))/TPK%&
-&MOL2MOLECRAIN
- TPK%KR10=2.6E-2*10.**(-TPK%PHR)/(1.26e-6+10.**(-TPK%PHR))
-!
-RETURN
-END SUBROUTINE SUBSRW17
-!
-SUBROUTINE SUBSRW18
-!
-!Indices 546 a 555
-!
- TPK%KR11=1.1E0*1.26e-6/(1.26e-6+10.**(-TPK%PHR))
- TPK%KR12=(3.3E+5*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*(10.**(-TPK%PHR))**2./&
-&((1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15)&
-&)+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.&
-&)*(1.26e-6+10.**(-TPK%PHR))))/TPK%MOL2MOLECRAIN
- TPK%KR14=1.0E+10
- TPK%KR15=(1.0E+5*1.0e+3*1.0e-2/(1.0e+3*1.0e-2+1.0e+3*10.**(-TPK%PHR)+(10.**(-T&
-&PK%PHR))**2.))/TPK%MOL2MOLECRAIN
- TPK%KR16=(1.3E+9*exp(-2200.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1&
-&./298.15))*10.**(-TPK%PHR)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(&
-&1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%&
-&PHR)+(10.**(-TPK%PHR))**2.))/TPK%MOL2MOLECRAIN
- TPK%KR17=((7.9E+2*exp(-2900.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-&
-&1./298.15))*10.**(-TPK%PHR)+2.5E+7*exp(-2450.*(1./TPK%T-1./298.15))*1.3e-2*exp&
-&(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15)))/((1.3e-2*&
-&exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*&
-&exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.)*(1.+2.5&
-&e3*exp(4030.*(1./TPK%T-1./298.15)))))/TPK%MOL2MOLECRAIN
- TPK%KR18=7.7E-3*exp(-9200.*(1./TPK%T-1./298.15))+3.7E+3*1.e-14*EXP(-6716*(1./T&
-&PK%T-1./298.15))/10.**(-TPK%PHR)
- TPK%KR19=3.0E+8/TPK%MOL2MOLECRAIN
- TPK%KR20=1.1E+9
-!
-RETURN
-END SUBROUTINE SUBSRW18
-!
-SUBROUTINE SUBSRW19
-!
-!Indices 556 a 565
-!
- TPK%KR21=(1.7E+9*10.**(-TPK%PHR)/(1.6e-5+10.**(-TPK%PHR)))/TPK%MOL2MOLECRAIN
- TPK%KR22=(2.2E+8*exp(-2600.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECRAIN
- TPK%KR23=(7.1E+6*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)*10.**(&
-&-TPK%PHR)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1&
-&./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%&
-&PHR))**2.))/TPK%MOL2MOLECRAIN
- TPK%KR24=4.6E+2*exp(-1100.*(1./TPK%T-1./298.15))
- TPK%KR25=((3.7E+5*exp(-5500.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-&
-&1./298.15))*10.**(-TPK%PHR)+1.5E+9*exp(-5300.*(1./TPK%T-1./298.15))*1.3e-2*exp&
-&(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15)))/(1.3e-2*e&
-&xp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*e&
-&xp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.))/TPK%MOL&
-&2MOLECRAIN
- TPK%KR26=(9.1E+7*exp(-3600.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1&
-&./298.15))*10.**(-TPK%PHR)*10.**(-TPK%PHR)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.&
-&15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.&
-&15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.))/TPK%MOL2MOLECRAIN
- TPK%KR27=(1.7E+8*exp(-2200.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECRAIN
- TPK%KR28=(5.0E+5*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)/(1.3e-&
-&2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-&
-&2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.))/TPK%&
-&MOL2MOLECRAIN
- TPK%KR29=1.5E+8/TPK%MOL2MOLECRAIN
- TPK%KR30=(1.7E+9*exp(-600.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECRAIN
-!
-RETURN
-END SUBROUTINE SUBSRW19
-!
-SUBROUTINE SUBSRW20
-!
-!Indices 566 a 575
-!
- TPK%KR31=(2.1E+9*exp(-1200.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECRAIN
- TPK%KR32=(3.3E+9*exp(-1000.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECRAIN
- TPK%KR33=(7.8E+8*exp(-1000.*(1./TPK%T-1./298.15))*2.5e3*exp(4030.*(1./TPK%T-1.&
-&/298.15))/(1.+2.5e3*exp(4030.*(1./TPK%T-1./298.15))))/TPK%MOL2MOLECRAIN
- TPK%KR34=3.4E+9/TPK%MOL2MOLECRAIN
- TPK%KR35=(1.1E+9*exp(-1500.*(1./TPK%T-1./298.15))*3.9e3/(1.+3.9e3))/TPK%MOL2MO&
-&LECRAIN
- TPK%KR36=(7.9E+8*exp(-1600.*(1./TPK%T-1./298.15))*4.86e2/(1.+4.86e2))/TPK%MOL2&
-&MOLECRAIN
- TPK%KR37=(8.9E+8*exp(-1400.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECRAIN
- TPK%KR38=((1.0E+8*exp(-1000.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+3.4E+9*exp(&
-&-1200.*(1./TPK%T-1./298.15))*1.8e-4*exp(150.*(1./TPK%T-1./298.15)))/(1.8e-4*ex&
-&p(150.*(1./TPK%T-1./298.15))+10.**(-TPK%PHR)))/TPK%MOL2MOLECRAIN
- TPK%KR39=((1.5E+7*exp(-1300.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+1.0E+8*exp(&
-&-1800.*(1./TPK%T-1./298.15))*1.75e-5)/(1.75e-5+10.**(-TPK%PHR)))/TPK%MOL2MOLEC&
-&RAIN
- TPK%KR40=(3.2E+8*exp(-2300.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)/(1.35e-5+10.&
-&**(-TPK%PHR)))/TPK%MOL2MOLECRAIN
-!
-RETURN
-END SUBROUTINE SUBSRW20
-!
-SUBROUTINE SUBSRW21
-!
-!Indices 576 a 581
-!
- TPK%KR41=(7.3E+8*exp(-1800.*(1./TPK%T-1./298.15))*1.35e-5/(1.35e-5+10.**(-TPK%&
-&PHR)))/TPK%MOL2MOLECRAIN
- TPK%KR42=((4.7E+7*10.**(-TPK%PHR)*5.6E-2+7.7E+6*5.6E-2*5.4e-5)/(5.6E-2*5.4E-5+&
-&5.4E-5*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.))/TPK%MOL2MOLECRAIN
- TPK%KR43=((1.2E+8*exp(-2800.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+7.0E+8*exp(&
-&-2300.*(1./TPK%T-1./298.15))*3.55E-3)/(3.55E-3+10.**(-TPK%PHR)))/TPK%MOL2MOLEC&
-&RAIN
- TPK%KR44=(3.6E+8*exp(-1000.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)/(10.**(-TPK%&
-&PHR)+3.2E-4))/TPK%MOL2MOLECRAIN
- TPK%KR45=(2.6E+9*exp(-4300.*(1./TPK%T-1./298.15))*3.2E-4/(10.**(-TPK%PHR)+3.2E&
-&-4))/TPK%MOL2MOLECRAIN
- TPK%KR46=1.6E+7/TPK%MOL2MOLECRAIN
-!
-RETURN
-END SUBROUTINE SUBSRW21
-!
-END SUBROUTINE CH_SET_RATES
-!
-!
-!========================================================================
-!
-!! ##############################
- MODULE MODI_CH_SET_PHOTO_RATES
-!! ##############################
-!! This code has been created automatically by preprocessor m10,
-!! version: 9.7, copyright 1995-1999 by Meteo France/Universite Paul Sabatier.
-!! Please report all bugs to K. Suhre (Lab. d'Aerologie UPS/CNRS).
-INTERFACE
-SUBROUTINE CH_SET_PHOTO_RATES(PTIME,PCONC,KL,TPM,KMI,KOUT,KVERB,KVECNPT,KVECMASK,KEQ,PJVALUES)
-USE MODD_CH_M9_n, ONLY: METEOTRANSTYPE
-IMPLICIT NONE
-REAL, INTENT(IN) :: PTIME
-INTEGER, INTENT(IN) :: KVECNPT,KL,KEQ,KMI
-INTEGER, DIMENSION(:,:), INTENT(IN) :: KVECMASK
-REAL, INTENT(IN), DIMENSION(KVECNPT,KEQ) :: PCONC
-TYPE(METEOTRANSTYPE), DIMENSION(KVECNPT), INTENT(IN) :: TPM
-INTEGER, INTENT(IN) :: KOUT,KVERB
-REAL,DIMENSION(:,:,:,:), INTENT(IN) :: PJVALUES ! Tuv coefficient
-END SUBROUTINE CH_SET_PHOTO_RATES
-END INTERFACE
-END MODULE MODI_CH_SET_PHOTO_RATES
-!
-!========================================================================
-!
-!! #############################################################
- SUBROUTINE CH_SET_PHOTO_RATES(PTIME,PCONC,KL,TPM,KMI,KOUT,KVERB,KVECNPT,KVECMASK,KEQ,PJVALUES)
-!! #############################################################
-!! This code has been created automatically by preprocessor m10,
-!! version: 9.7, copyright 1995-1999 by Meteo France/Universite Paul Sabatier.
-!! Please report all bugs to K. Suhre (Lab. d'Aerologie UPS/CNRS).
-!!*** *MODD_CH_SET_PHOTO_RATES*
-!!
-!! PURPOSE
-!! -------
-! set or calculate photolysis rates
-!!
-!!** METHOD
-!! ------
-!! simple
-!!
-!! REFERENCE
-!! ---------
-!! none
-!!
-!! AUTHOR
-!! ------
-!! Karsten Suhre (LA)
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 26/07/96
-!! Modified 05/05/98: Vectorization (Vincent Crassier & KS)
-!! Modified 29/03/01: Vectorization + nesting (C. Mari)
-!! Modified 31/10/03: New interface for better MesoNH compilation (D. Gazen)
-!!
-!!----------------------------------------------------------------------
-!!
-!! EXTERNAL
-!! --------
-!! none
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-USE MODD_CH_M9_SCHEME
-USE MODD_CH_M9_n, ONLY : METEOTRANSTYPE
-USE MODI_CH_ALLOCATE_TACCS
-! USER DEFINED FUNCTIONS
-USE MODI_KT
-USE MODI_TROE
-USE MODI_TROE_KA
-USE MODI_TROE_KB
-USE MODI_HENRY
-USE MODI_TROE_EQUIL
-USE MODI_HEFFA
-USE MODI_HEFFB
-!!
-!! EXPLICIT ARGUMENTS
-!! ------------------
-IMPLICIT NONE
-REAL, INTENT(IN) :: PTIME
-INTEGER, INTENT(IN) :: KVECNPT,KL,KEQ,KMI
-INTEGER, DIMENSION(:,:), INTENT(IN) :: KVECMASK
-REAL, INTENT(IN), DIMENSION(KVECNPT,KEQ) :: PCONC
-TYPE(METEOTRANSTYPE), DIMENSION(KVECNPT), INTENT(IN) :: TPM
-INTEGER, INTENT(IN) :: KOUT,KVERB
-REAL,DIMENSION(:,:,:,:), INTENT(IN) :: PJVALUES ! Tuv coefficient
-!!
-! /BEGIN_SET_PHOTO_RATES/
-! parameter for use by subroutine JVALUES,
-! contains the actual photolysis rates
-REAL, DIMENSION(KVECNPT,42) :: ZRATESIO ! TUV photolysis rates at one level
-REAL, DIMENSION(KVECNPT,25) :: ZRATES ! photolysis rates of ReLACS3 (vector)
-INTEGER :: JITPK ! loop counter for J-Value transfer
-INTEGER :: IDTI,IDTJ
-INTEGER :: JITPKPLUS
-INTEGER, DIMENSION(KVECNPT) :: ITABI, ITABJ
-INTEGER, DIMENSION(KVECNPT) :: IMODELLEVEL
-TYPE(CCSTYPE), POINTER :: TPK
-!
-! Normally allocated in CH_SET_RATES but who knows ?
-IF (.NOT. ASSOCIATED(TACCS(KMI)%NVERB)) THEN
- CALL CH_ALLOCATE_TACCS(KMI, KVECNPT)
-END IF
-!
-! TPK is set for current model
-TPK=>TACCS(KMI)
-!
-! calculation of photolysis rates and transfer into local variables
-!
-IDTI=KVECMASK(2,KL)-KVECMASK(1,KL)+1
-IDTJ=KVECMASK(4,KL)-KVECMASK(3,KL)+1
-DO JITPK = 0, KVECNPT-1
-!
- JITPKPLUS=JITPK+1
- ITABI(JITPKPLUS)=JITPK-IDTI*(JITPK/IDTI)+KVECMASK(1,KL)
- ITABJ(JITPKPLUS)=JITPK/IDTI-IDTJ*(JITPK/(IDTI*IDTJ))+KVECMASK(3,KL)
-!
-! modification for VPP optimization
- ZRATESIO(JITPK+1,:) = PJVALUES(ITABI(JITPKPLUS),ITABJ(JITPKPLUS),TPK%MODELLEVEL(JITPK+1),:)
-ENDDO
-!
-!
-DO JITPK = 0, KVECNPT-1
-!
-! associate TUV J-Values to CACM J-Values
-! update 03/2018 new TUV version and new data availables
-!
- ZRATES(JITPK+1, 1) = ZRATESIO(JITPK+1,5)
- ZRATES(JITPK+1, 2) = ZRATESIO(JITPK+1,2)
- ZRATES(JITPK+1, 3) = ZRATESIO(JITPK+1,3)
- ZRATES(JITPK+1, 4) = ZRATESIO(JITPK+1,8)
- ZRATES(JITPK+1, 7) = ZRATESIO(JITPK+1,6)
- ZRATES(JITPK+1, 8) = ZRATESIO(JITPK+1,7)
- ZRATES(JITPK+1, 9) = ZRATESIO(JITPK+1,4)
- ZRATES(JITPK+1, 10) = ZRATESIO(JITPK+1,12)
- ZRATES(JITPK+1, 11) = ZRATESIO(JITPK+1,11)
-! ALD2 data available for propionaldehyde
- ZRATES(JITPK+1, 12) = ZRATESIO(JITPK+1,16)
-! KETH use data for 2-pentanone
- ZRATES(JITPK+1, 16) = ZRATESIO(JITPK+1,39)
-! MGLY use data for methylglyoxal
- ZRATES(JITPK+1, 19) = ZRATESIO(JITPK+1,37)
- ZRATES(JITPK+1, 23) = ZRATESIO(JITPK+1,39)
-!
-! aqueous phase photolysis
- ZRATES(JITPK+1, 24) = ZRATESIO(JITPK+1,41)
- ZRATES(JITPK+1, 25) = ZRATESIO(JITPK+1,42)
-!
-END DO
-!
-! /END_SET_PHOTO_RATES/
- TPK%K001=ZRATES(:,001)
- TPK%K013=ZRATES(:,007)
- TPK%K014=ZRATES(:,008)
- TPK%K015=ZRATES(:,003)
- TPK%K016=ZRATES(:,002)
- TPK%K020=ZRATES(:,004)
- TPK%K036=ZRATES(:,009)
- TPK%K044=ZRATES(:,011)
- TPK%K045=ZRATES(:,010)
- TPK%K059=ZRATES(:,012)
- TPK%K063=ZRATES(:,023)
- TPK%K071=ZRATES(:,016)
- TPK%K276=ZRATES(:,019)
- TPK%K308=ZRATES(:,012)
- TPK%K314=ZRATES(:,012)
- TPK%K328=ZRATES(:,012)
- TPK%K329=ZRATES(:,012)
- TPK%K330=ZRATES(:,012)
- TPK%K339=ZRATES(:,019)
-IF (TPK%LUSECHAQ) THEN
- TPK%KC1=ZRATES(:,024)
- TPK%KC13=ZRATES(:,025)*2.2e+1/(2.2e+1+10.**(-TPK%PHC))
- TPK%KR1=ZRATES(:,024)
- TPK%KR13=ZRATES(:,025)*2.2e+1/(2.2e+1+10.**(-TPK%PHR))
-END IF
-TPK%NOUT = KOUT
-TPK%NVERB = KVERB
-RETURN
-END SUBROUTINE CH_SET_PHOTO_RATES
-!
-!
-!========================================================================
-!
-!! ########################
- MODULE MODI_CH_GET_RATES
-!! ########################
-!! This code has been created automatically by preprocessor m10,
-!! version: 9.7, copyright 1995-1999 by Meteo France/Universite Paul Sabatier.
-!! Please report all bugs to K. Suhre (Lab. d'Aerologie UPS/CNRS).
-INTERFACE
-SUBROUTINE CH_GET_RATES(PRATE,KMI,KVECNPT,KREAC)
-IMPLICIT NONE
-INTEGER, INTENT(IN) :: KVECNPT
-INTEGER, INTENT(IN) :: KREAC
-REAL, INTENT(OUT), DIMENSION(KVECNPT,KREAC) :: PRATE
-INTEGER, INTENT(IN) :: KMI
-END SUBROUTINE CH_GET_RATES
-END INTERFACE
-END MODULE MODI_CH_GET_RATES
-!
-!========================================================================
-!
-!! ############################################
- SUBROUTINE CH_GET_RATES(PRATE,KMI,KVECNPT,KREAC)
-!! ############################################
-!! This code has been created automatically by preprocessor m10,
-!! version: 9.7, copyright 1995-1999 by Meteo France/Universite Paul Sabatier.
-!! Please report all bugs to K. Suhre (Lab. d'Aerologie UPS/CNRS).
-!!
-!!*** *MODD_CH_GETRATES*
-!!
-!! PURPOSE
-!! -------
-! retrieve reaction rates from TPK in an array
-!!
-!!** METHOD
-!! ------
-!! simple
-!!
-!! REFERENCE
-!! ---------
-!! none
-!!
-!! AUTHOR
-!! ------
-!! Karsten Suhre (LA)
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 26/07/96
-!! Modified 05/05/98: Vectorization (Vincent Crassier & KS)
-!! Modified 31/10/03: New interface for better MesoNH compilation (D. Gazen)
-!!
-!!----------------------------------------------------------------------
-!!
-!! EXTERNAL
-!! --------
-!! none
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-USE MODD_CH_M9_SCHEME
-!!
-!! EXPLICIT ARGUMENTS
-!! ------------------
-IMPLICIT NONE
-INTEGER, INTENT(IN) :: KVECNPT
-INTEGER, INTENT(IN) :: KREAC
-REAL, INTENT(OUT), DIMENSION(KVECNPT,KREAC) :: PRATE
-INTEGER, INTENT(IN) :: KMI
-!!
-!! LOCAL VARIABLES
-!! ---------------
-TYPE(CCSTYPE), POINTER :: TPK
-!!----------------------------------------------------------------------
-!!
-!! EXECUTABLE STATEMENTS
-!! ---------------------
-TPK=>TACCS(KMI)
-!!
-PRATE(:,1) = TPK%K001(:)
-PRATE(:,2) = TPK%K002(:)
-PRATE(:,3) = TPK%K003(:)
-PRATE(:,4) = TPK%K004(:)
-PRATE(:,5) = TPK%K005(:)
-PRATE(:,6) = TPK%K006(:)
-PRATE(:,7) = TPK%K007(:)
-PRATE(:,8) = TPK%K008(:)
-PRATE(:,9) = TPK%K009(:)
-PRATE(:,10) = TPK%K010(:)
-PRATE(:,11) = TPK%K011(:)
-PRATE(:,12) = TPK%K012(:)
-PRATE(:,13) = TPK%K013(:)
-PRATE(:,14) = TPK%K014(:)
-PRATE(:,15) = TPK%K015(:)
-PRATE(:,16) = TPK%K016(:)
-PRATE(:,17) = TPK%K017(:)
-PRATE(:,18) = TPK%K018A(:)
-PRATE(:,19) = TPK%K018B(:)
-PRATE(:,20) = TPK%K019(:)
-PRATE(:,21) = TPK%K020(:)
-PRATE(:,22) = TPK%K021(:)
-PRATE(:,23) = TPK%K022(:)
-PRATE(:,24) = TPK%K023(:)
-PRATE(:,25) = TPK%K024(:)
-PRATE(:,26) = TPK%K025(:)
-PRATE(:,27) = TPK%K026(:)
-PRATE(:,28) = TPK%K027(:)
-PRATE(:,29) = TPK%K028(:)
-PRATE(:,30) = TPK%K029(:)
-PRATE(:,31) = TPK%K030(:)
-PRATE(:,32) = TPK%K031(:)
-PRATE(:,33) = TPK%K032(:)
-PRATE(:,34) = TPK%K033(:)
-PRATE(:,35) = TPK%K034(:)
-PRATE(:,36) = TPK%K035(:)
-PRATE(:,37) = TPK%K036(:)
-PRATE(:,38) = TPK%K037(:)
-PRATE(:,39) = TPK%K038(:)
-PRATE(:,40) = TPK%K039(:)
-PRATE(:,41) = TPK%K040(:)
-PRATE(:,42) = TPK%K041(:)
-PRATE(:,43) = TPK%K042(:)
-PRATE(:,44) = TPK%K043(:)
-PRATE(:,45) = TPK%K044(:)
-PRATE(:,46) = TPK%K045(:)
-PRATE(:,47) = TPK%K046(:)
-PRATE(:,48) = TPK%K047(:)
-PRATE(:,49) = TPK%K048(:)
-PRATE(:,50) = TPK%K049(:)
-PRATE(:,51) = TPK%K050(:)
-PRATE(:,52) = TPK%K051(:)
-PRATE(:,53) = TPK%K052(:)
-PRATE(:,54) = TPK%K053(:)
-PRATE(:,55) = TPK%K054(:)
-PRATE(:,56) = TPK%K055(:)
-PRATE(:,57) = TPK%K056(:)
-PRATE(:,58) = TPK%K057(:)
-PRATE(:,59) = TPK%K058(:)
-PRATE(:,60) = TPK%K059(:)
-PRATE(:,61) = TPK%K060(:)
-PRATE(:,62) = TPK%K061(:)
-PRATE(:,63) = TPK%K062(:)
-PRATE(:,64) = TPK%K063(:)
-PRATE(:,65) = TPK%K064(:)
-PRATE(:,66) = TPK%K065(:)
-PRATE(:,67) = TPK%K066(:)
-PRATE(:,68) = TPK%K067(:)
-PRATE(:,69) = TPK%K068(:)
-PRATE(:,70) = TPK%K069(:)
-PRATE(:,71) = TPK%K070(:)
-PRATE(:,72) = TPK%K071(:)
-PRATE(:,73) = TPK%K072(:)
-PRATE(:,74) = TPK%K073(:)
-PRATE(:,75) = TPK%K074(:)
-PRATE(:,76) = TPK%K075(:)
-PRATE(:,77) = TPK%K076(:)
-PRATE(:,78) = TPK%K077(:)
-PRATE(:,79) = TPK%K078(:)
-PRATE(:,80) = TPK%K079(:)
-PRATE(:,81) = TPK%K080(:)
-PRATE(:,82) = TPK%K081(:)
-PRATE(:,83) = TPK%K082(:)
-PRATE(:,84) = TPK%K083(:)
-PRATE(:,85) = TPK%K084(:)
-PRATE(:,86) = TPK%K085(:)
-PRATE(:,87) = TPK%K086(:)
-PRATE(:,88) = TPK%K087(:)
-PRATE(:,89) = TPK%K088(:)
-PRATE(:,90) = TPK%K089(:)
-PRATE(:,91) = TPK%K090(:)
-PRATE(:,92) = TPK%K091(:)
-PRATE(:,93) = TPK%K092(:)
-PRATE(:,94) = TPK%K093(:)
-PRATE(:,95) = TPK%K094(:)
-PRATE(:,96) = TPK%K095(:)
-PRATE(:,97) = TPK%K096(:)
-PRATE(:,98) = TPK%K097(:)
-PRATE(:,99) = TPK%K098(:)
-PRATE(:,100) = TPK%K099(:)
-PRATE(:,101) = TPK%K100(:)
-PRATE(:,102) = TPK%K101(:)
-PRATE(:,103) = TPK%K102(:)
-PRATE(:,104) = TPK%K103(:)
-PRATE(:,105) = TPK%K104(:)
-PRATE(:,106) = TPK%K105(:)
-PRATE(:,107) = TPK%K106(:)
-PRATE(:,108) = TPK%K107(:)
-PRATE(:,109) = TPK%K108(:)
-PRATE(:,110) = TPK%K109(:)
-PRATE(:,111) = TPK%K110(:)
-PRATE(:,112) = TPK%K111(:)
-PRATE(:,113) = TPK%K112(:)
-PRATE(:,114) = TPK%K113(:)
-PRATE(:,115) = TPK%K114(:)
-PRATE(:,116) = TPK%K115(:)
-PRATE(:,117) = TPK%K116(:)
-PRATE(:,118) = TPK%K117(:)
-PRATE(:,119) = TPK%K118(:)
-PRATE(:,120) = TPK%K119(:)
-PRATE(:,121) = TPK%K120(:)
-PRATE(:,122) = TPK%K121(:)
-PRATE(:,123) = TPK%K122(:)
-PRATE(:,124) = TPK%K123(:)
-PRATE(:,125) = TPK%K124(:)
-PRATE(:,126) = TPK%K125(:)
-PRATE(:,127) = TPK%K126(:)
-PRATE(:,128) = TPK%K127(:)
-PRATE(:,129) = TPK%K128(:)
-PRATE(:,130) = TPK%K129(:)
-PRATE(:,131) = TPK%K130(:)
-PRATE(:,132) = TPK%K131(:)
-PRATE(:,133) = TPK%K132(:)
-PRATE(:,134) = TPK%K133(:)
-PRATE(:,135) = TPK%K134(:)
-PRATE(:,136) = TPK%K135(:)
-PRATE(:,137) = TPK%K136(:)
-PRATE(:,138) = TPK%K137(:)
-PRATE(:,139) = TPK%K138(:)
-PRATE(:,140) = TPK%K139(:)
-PRATE(:,141) = TPK%K140(:)
-PRATE(:,142) = TPK%K141(:)
-PRATE(:,143) = TPK%K142(:)
-PRATE(:,144) = TPK%K143(:)
-PRATE(:,145) = TPK%K144(:)
-PRATE(:,146) = TPK%K145(:)
-PRATE(:,147) = TPK%K146(:)
-PRATE(:,148) = TPK%K147(:)
-PRATE(:,149) = TPK%K148(:)
-PRATE(:,150) = TPK%K149(:)
-PRATE(:,151) = TPK%K150(:)
-PRATE(:,152) = TPK%K151(:)
-PRATE(:,153) = TPK%K152(:)
-PRATE(:,154) = TPK%K153(:)
-PRATE(:,155) = TPK%K154(:)
-PRATE(:,156) = TPK%K155(:)
-PRATE(:,157) = TPK%K156(:)
-PRATE(:,158) = TPK%K157(:)
-PRATE(:,159) = TPK%K158(:)
-PRATE(:,160) = TPK%K159(:)
-PRATE(:,161) = TPK%K160(:)
-PRATE(:,162) = TPK%K161(:)
-PRATE(:,163) = TPK%K162(:)
-PRATE(:,164) = TPK%K163(:)
-PRATE(:,165) = TPK%K164(:)
-PRATE(:,166) = TPK%K165(:)
-PRATE(:,167) = TPK%K166(:)
-PRATE(:,168) = TPK%K167(:)
-PRATE(:,169) = TPK%K168(:)
-PRATE(:,170) = TPK%K169(:)
-PRATE(:,171) = TPK%K170(:)
-PRATE(:,172) = TPK%K171(:)
-PRATE(:,173) = TPK%K172(:)
-PRATE(:,174) = TPK%K173(:)
-PRATE(:,175) = TPK%K174(:)
-PRATE(:,176) = TPK%K175(:)
-PRATE(:,177) = TPK%K176(:)
-PRATE(:,178) = TPK%K177(:)
-PRATE(:,179) = TPK%K178(:)
-PRATE(:,180) = TPK%K179(:)
-PRATE(:,181) = TPK%K180(:)
-PRATE(:,182) = TPK%K181(:)
-PRATE(:,183) = TPK%K182(:)
-PRATE(:,184) = TPK%K183(:)
-PRATE(:,185) = TPK%K184(:)
-PRATE(:,186) = TPK%K185(:)
-PRATE(:,187) = TPK%K186(:)
-PRATE(:,188) = TPK%K187(:)
-PRATE(:,189) = TPK%K188(:)
-PRATE(:,190) = TPK%K189(:)
-PRATE(:,191) = TPK%K190(:)
-PRATE(:,192) = TPK%K191(:)
-PRATE(:,193) = TPK%K192(:)
-PRATE(:,194) = TPK%K193(:)
-PRATE(:,195) = TPK%K194(:)
-PRATE(:,196) = TPK%K195(:)
-PRATE(:,197) = TPK%K196(:)
-PRATE(:,198) = TPK%K197(:)
-PRATE(:,199) = TPK%K198(:)
-PRATE(:,200) = TPK%K199(:)
-PRATE(:,201) = TPK%K200(:)
-PRATE(:,202) = TPK%K201(:)
-PRATE(:,203) = TPK%K202(:)
-PRATE(:,204) = TPK%K203(:)
-PRATE(:,205) = TPK%K204(:)
-PRATE(:,206) = TPK%K205(:)
-PRATE(:,207) = TPK%K206(:)
-PRATE(:,208) = TPK%K207(:)
-PRATE(:,209) = TPK%K208(:)
-PRATE(:,210) = TPK%K209(:)
-PRATE(:,211) = TPK%K210(:)
-PRATE(:,212) = TPK%K211(:)
-PRATE(:,213) = TPK%K212(:)
-PRATE(:,214) = TPK%K213(:)
-PRATE(:,215) = TPK%K214(:)
-PRATE(:,216) = TPK%K215(:)
-PRATE(:,217) = TPK%K216(:)
-PRATE(:,218) = TPK%K217(:)
-PRATE(:,219) = TPK%K218(:)
-PRATE(:,220) = TPK%K219(:)
-PRATE(:,221) = TPK%K220(:)
-PRATE(:,222) = TPK%K221(:)
-PRATE(:,223) = TPK%K222(:)
-PRATE(:,224) = TPK%K223(:)
-PRATE(:,225) = TPK%K224(:)
-PRATE(:,226) = TPK%K225(:)
-PRATE(:,227) = TPK%K226(:)
-PRATE(:,228) = TPK%K227(:)
-PRATE(:,229) = TPK%K228(:)
-PRATE(:,230) = TPK%K229(:)
-PRATE(:,231) = TPK%K230(:)
-PRATE(:,232) = TPK%K231(:)
-PRATE(:,233) = TPK%K232(:)
-PRATE(:,234) = TPK%K233(:)
-PRATE(:,235) = TPK%K234(:)
-PRATE(:,236) = TPK%K235(:)
-PRATE(:,237) = TPK%K236(:)
-PRATE(:,238) = TPK%K237(:)
-PRATE(:,239) = TPK%K238(:)
-PRATE(:,240) = TPK%K239(:)
-PRATE(:,241) = TPK%K240(:)
-PRATE(:,242) = TPK%K241(:)
-PRATE(:,243) = TPK%K242(:)
-PRATE(:,244) = TPK%K243(:)
-PRATE(:,245) = TPK%K244(:)
-PRATE(:,246) = TPK%K245(:)
-PRATE(:,247) = TPK%K246(:)
-PRATE(:,248) = TPK%K247(:)
-PRATE(:,249) = TPK%K248(:)
-PRATE(:,250) = TPK%K249(:)
-PRATE(:,251) = TPK%K250(:)
-PRATE(:,252) = TPK%K251(:)
-PRATE(:,253) = TPK%K252(:)
-PRATE(:,254) = TPK%K253(:)
-PRATE(:,255) = TPK%K254(:)
-PRATE(:,256) = TPK%K255(:)
-PRATE(:,257) = TPK%K256(:)
-PRATE(:,258) = TPK%K257(:)
-PRATE(:,259) = TPK%K258(:)
-PRATE(:,260) = TPK%K259(:)
-PRATE(:,261) = TPK%K260(:)
-PRATE(:,262) = TPK%K261(:)
-PRATE(:,263) = TPK%K262(:)
-PRATE(:,264) = TPK%K263(:)
-PRATE(:,265) = TPK%K264(:)
-PRATE(:,266) = TPK%K265(:)
-PRATE(:,267) = TPK%K266(:)
-PRATE(:,268) = TPK%K267(:)
-PRATE(:,269) = TPK%K268(:)
-PRATE(:,270) = TPK%K269(:)
-PRATE(:,271) = TPK%K270(:)
-PRATE(:,272) = TPK%K271(:)
-PRATE(:,273) = TPK%K272(:)
-PRATE(:,274) = TPK%K273(:)
-PRATE(:,275) = TPK%K274(:)
-PRATE(:,276) = TPK%K275(:)
-PRATE(:,277) = TPK%K276(:)
-PRATE(:,278) = TPK%K277(:)
-PRATE(:,279) = TPK%K278(:)
-PRATE(:,280) = TPK%K279(:)
-PRATE(:,281) = TPK%K280(:)
-PRATE(:,282) = TPK%K281(:)
-PRATE(:,283) = TPK%K282(:)
-PRATE(:,284) = TPK%K283(:)
-PRATE(:,285) = TPK%K284(:)
-PRATE(:,286) = TPK%K285(:)
-PRATE(:,287) = TPK%K286(:)
-PRATE(:,288) = TPK%K287(:)
-PRATE(:,289) = TPK%K288(:)
-PRATE(:,290) = TPK%K289(:)
-PRATE(:,291) = TPK%K290(:)
-PRATE(:,292) = TPK%K291(:)
-PRATE(:,293) = TPK%K292(:)
-PRATE(:,294) = TPK%K293(:)
-PRATE(:,295) = TPK%K294(:)
-PRATE(:,296) = TPK%K295(:)
-PRATE(:,297) = TPK%K296(:)
-PRATE(:,298) = TPK%K297(:)
-PRATE(:,299) = TPK%K298(:)
-PRATE(:,300) = TPK%K299(:)
-PRATE(:,301) = TPK%K300(:)
-PRATE(:,302) = TPK%K301(:)
-PRATE(:,303) = TPK%K302(:)
-PRATE(:,304) = TPK%K303(:)
-PRATE(:,305) = TPK%K304(:)
-PRATE(:,306) = TPK%K305(:)
-PRATE(:,307) = TPK%K306(:)
-PRATE(:,308) = TPK%K307(:)
-PRATE(:,309) = TPK%K308(:)
-PRATE(:,310) = TPK%K309(:)
-PRATE(:,311) = TPK%K310(:)
-PRATE(:,312) = TPK%K311(:)
-PRATE(:,313) = TPK%K312(:)
-PRATE(:,314) = TPK%K313(:)
-PRATE(:,315) = TPK%K314(:)
-PRATE(:,316) = TPK%K315(:)
-PRATE(:,317) = TPK%K316(:)
-PRATE(:,318) = TPK%K317(:)
-PRATE(:,319) = TPK%K318(:)
-PRATE(:,320) = TPK%K319(:)
-PRATE(:,321) = TPK%K320(:)
-PRATE(:,322) = TPK%K321(:)
-PRATE(:,323) = TPK%K322(:)
-PRATE(:,324) = TPK%K323(:)
-PRATE(:,325) = TPK%K324(:)
-PRATE(:,326) = TPK%K325(:)
-PRATE(:,327) = TPK%K326(:)
-PRATE(:,328) = TPK%K327(:)
-PRATE(:,329) = TPK%K328(:)
-PRATE(:,330) = TPK%K329(:)
-PRATE(:,331) = TPK%K330(:)
-PRATE(:,332) = TPK%K331(:)
-PRATE(:,333) = TPK%K332(:)
-PRATE(:,334) = TPK%K333(:)
-PRATE(:,335) = TPK%K334(:)
-PRATE(:,336) = TPK%K335(:)
-PRATE(:,337) = TPK%K337(:)
-PRATE(:,338) = TPK%K338(:)
-PRATE(:,339) = TPK%K339(:)
-PRATE(:,340) = TPK%K340(:)
-PRATE(:,341) = TPK%K341(:)
-PRATE(:,342) = TPK%K342(:)
-PRATE(:,343) = TPK%K343(:)
-PRATE(:,344) = TPK%K344(:)
-PRATE(:,345) = TPK%K345(:)
-PRATE(:,346) = TPK%K346(:)
-PRATE(:,347) = TPK%K347(:)
-PRATE(:,348) = TPK%K348(:)
-PRATE(:,349) = TPK%K349(:)
-PRATE(:,350) = TPK%K350(:)
-PRATE(:,351) = TPK%K351(:)
-PRATE(:,352) = TPK%K352(:)
-PRATE(:,353) = TPK%K353(:)
-PRATE(:,354) = TPK%K354(:)
-PRATE(:,355) = TPK%K355(:)
-PRATE(:,356) = TPK%K356(:)
-PRATE(:,357) = TPK%K357(:)
-PRATE(:,358) = TPK%K358(:)
-PRATE(:,359) = TPK%K359(:)
-PRATE(:,360) = TPK%K360(:)
-PRATE(:,361) = TPK%K361(:)
-PRATE(:,362) = TPK%K362(:)
-PRATE(:,363) = TPK%K363(:)
-PRATE(:,364) = TPK%K364(:)
-PRATE(:,365) = TPK%K365(:)
-IF (TPK%LUSECHAQ) THEN
- PRATE(:,366) = TPK%KTC1(:)
- PRATE(:,367) = TPK%KTC2(:)
- PRATE(:,368) = TPK%KTC3(:)
- PRATE(:,369) = TPK%KTC4(:)
- PRATE(:,370) = TPK%KTC5(:)
- PRATE(:,371) = TPK%KTC6(:)
- PRATE(:,372) = TPK%KTC7(:)
- PRATE(:,373) = TPK%KTC8(:)
- PRATE(:,374) = TPK%KTC9(:)
- PRATE(:,375) = TPK%KTC10(:)
- PRATE(:,376) = TPK%KTC11(:)
- PRATE(:,377) = TPK%KTC12(:)
- PRATE(:,378) = TPK%KTC13(:)
- PRATE(:,379) = TPK%KTC14(:)
- PRATE(:,380) = TPK%KTC15(:)
- PRATE(:,381) = TPK%KTC16(:)
- PRATE(:,382) = TPK%KTC17(:)
- PRATE(:,383) = TPK%KTC18(:)
- PRATE(:,384) = TPK%KTC19(:)
- PRATE(:,385) = TPK%KTC20(:)
- PRATE(:,386) = TPK%KTC21(:)
- PRATE(:,387) = TPK%KTC22(:)
- PRATE(:,388) = TPK%KTC23(:)
- PRATE(:,389) = TPK%KTC24(:)
- PRATE(:,390) = TPK%KTC25(:)
- PRATE(:,391) = TPK%KTC26(:)
- PRATE(:,392) = TPK%KTC27(:)
- PRATE(:,393) = TPK%KTC28(:)
- PRATE(:,394) = TPK%KTC29(:)
- PRATE(:,395) = TPK%KTC30(:)
- PRATE(:,396) = TPK%KTC31(:)
- PRATE(:,397) = TPK%KTC32(:)
- PRATE(:,398) = TPK%KTC33(:)
- PRATE(:,399) = TPK%KTC34(:)
- PRATE(:,400) = TPK%KTC35(:)
- PRATE(:,401) = TPK%KTC36(:)
- PRATE(:,402) = TPK%KTC37(:)
- PRATE(:,403) = TPK%KTC38(:)
- PRATE(:,404) = TPK%KTC39(:)
- PRATE(:,405) = TPK%KTC40(:)
- PRATE(:,406) = TPK%KTC41(:)
- PRATE(:,407) = TPK%KTC42(:)
- PRATE(:,408) = TPK%KTC43(:)
- PRATE(:,409) = TPK%KTC44(:)
- PRATE(:,410) = TPK%KTC45(:)
- PRATE(:,411) = TPK%KTC46(:)
- PRATE(:,412) = TPK%KTC47(:)
- PRATE(:,413) = TPK%KTC48(:)
- PRATE(:,414) = TPK%KTC49(:)
- PRATE(:,415) = TPK%KTC50(:)
- PRATE(:,416) = TPK%KTC51(:)
- PRATE(:,417) = TPK%KTC52(:)
- PRATE(:,418) = TPK%KTC53(:)
- PRATE(:,419) = TPK%KTC54(:)
- PRATE(:,420) = TPK%KTC55(:)
- PRATE(:,421) = TPK%KTC56(:)
- PRATE(:,422) = TPK%KTC57(:)
- PRATE(:,423) = TPK%KTC58(:)
- PRATE(:,424) = TPK%KTC59(:)
- PRATE(:,425) = TPK%KTC60(:)
- PRATE(:,426) = TPK%KTC61(:)
- PRATE(:,427) = TPK%KTC62(:)
- PRATE(:,428) = TPK%KTR1(:)
- PRATE(:,429) = TPK%KTR2(:)
- PRATE(:,430) = TPK%KTR3(:)
- PRATE(:,431) = TPK%KTR4(:)
- PRATE(:,432) = TPK%KTR5(:)
- PRATE(:,433) = TPK%KTR6(:)
- PRATE(:,434) = TPK%KTR7(:)
- PRATE(:,435) = TPK%KTR8(:)
- PRATE(:,436) = TPK%KTR9(:)
- PRATE(:,437) = TPK%KTR10(:)
- PRATE(:,438) = TPK%KTR11(:)
- PRATE(:,439) = TPK%KTR12(:)
- PRATE(:,440) = TPK%KTR13(:)
- PRATE(:,441) = TPK%KTR14(:)
- PRATE(:,442) = TPK%KTR15(:)
- PRATE(:,443) = TPK%KTR16(:)
- PRATE(:,444) = TPK%KTR17(:)
- PRATE(:,445) = TPK%KTR18(:)
- PRATE(:,446) = TPK%KTR19(:)
- PRATE(:,447) = TPK%KTR20(:)
- PRATE(:,448) = TPK%KTR21(:)
- PRATE(:,449) = TPK%KTR22(:)
- PRATE(:,450) = TPK%KTR23(:)
- PRATE(:,451) = TPK%KTR24(:)
- PRATE(:,452) = TPK%KTR25(:)
- PRATE(:,453) = TPK%KTR26(:)
- PRATE(:,454) = TPK%KTR27(:)
- PRATE(:,455) = TPK%KTR28(:)
- PRATE(:,456) = TPK%KTR29(:)
- PRATE(:,457) = TPK%KTR30(:)
- PRATE(:,458) = TPK%KTR31(:)
- PRATE(:,459) = TPK%KTR32(:)
- PRATE(:,460) = TPK%KTR33(:)
- PRATE(:,461) = TPK%KTR34(:)
- PRATE(:,462) = TPK%KTR35(:)
- PRATE(:,463) = TPK%KTR36(:)
- PRATE(:,464) = TPK%KTR37(:)
- PRATE(:,465) = TPK%KTR38(:)
- PRATE(:,466) = TPK%KTR39(:)
- PRATE(:,467) = TPK%KTR40(:)
- PRATE(:,468) = TPK%KTR41(:)
- PRATE(:,469) = TPK%KTR42(:)
- PRATE(:,470) = TPK%KTR43(:)
- PRATE(:,471) = TPK%KTR44(:)
- PRATE(:,472) = TPK%KTR45(:)
- PRATE(:,473) = TPK%KTR46(:)
- PRATE(:,474) = TPK%KTR47(:)
- PRATE(:,475) = TPK%KTR48(:)
- PRATE(:,476) = TPK%KTR49(:)
- PRATE(:,477) = TPK%KTR50(:)
- PRATE(:,478) = TPK%KTR51(:)
- PRATE(:,479) = TPK%KTR52(:)
- PRATE(:,480) = TPK%KTR53(:)
- PRATE(:,481) = TPK%KTR54(:)
- PRATE(:,482) = TPK%KTR55(:)
- PRATE(:,483) = TPK%KTR56(:)
- PRATE(:,484) = TPK%KTR57(:)
- PRATE(:,485) = TPK%KTR58(:)
- PRATE(:,486) = TPK%KTR59(:)
- PRATE(:,487) = TPK%KTR60(:)
- PRATE(:,488) = TPK%KTR61(:)
- PRATE(:,489) = TPK%KTR62(:)
- PRATE(:,490) = TPK%KC1(:)
- PRATE(:,491) = TPK%KC2(:)
- PRATE(:,492) = TPK%KC3(:)
- PRATE(:,493) = TPK%KC4(:)
- PRATE(:,494) = TPK%KC5(:)
- PRATE(:,495) = TPK%KC6(:)
- PRATE(:,496) = TPK%KC7(:)
- PRATE(:,497) = TPK%KC8(:)
- PRATE(:,498) = TPK%KC9(:)
- PRATE(:,499) = TPK%KC10(:)
- PRATE(:,500) = TPK%KC11(:)
- PRATE(:,501) = TPK%KC12(:)
- PRATE(:,502) = TPK%KC13(:)
- PRATE(:,503) = TPK%KC14(:)
- PRATE(:,504) = TPK%KC15(:)
- PRATE(:,505) = TPK%KC16(:)
- PRATE(:,506) = TPK%KC17(:)
- PRATE(:,507) = TPK%KC18(:)
- PRATE(:,508) = TPK%KC19(:)
- PRATE(:,509) = TPK%KC20(:)
- PRATE(:,510) = TPK%KC21(:)
- PRATE(:,511) = TPK%KC22(:)
- PRATE(:,512) = TPK%KC23(:)
- PRATE(:,513) = TPK%KC24(:)
- PRATE(:,514) = TPK%KC25(:)
- PRATE(:,515) = TPK%KC26(:)
- PRATE(:,516) = TPK%KC27(:)
- PRATE(:,517) = TPK%KC28(:)
- PRATE(:,518) = TPK%KC29(:)
- PRATE(:,519) = TPK%KC30(:)
- PRATE(:,520) = TPK%KC31(:)
- PRATE(:,521) = TPK%KC32(:)
- PRATE(:,522) = TPK%KC33(:)
- PRATE(:,523) = TPK%KC34(:)
- PRATE(:,524) = TPK%KC35(:)
- PRATE(:,525) = TPK%KC36(:)
- PRATE(:,526) = TPK%KC37(:)
- PRATE(:,527) = TPK%KC38(:)
- PRATE(:,528) = TPK%KC39(:)
- PRATE(:,529) = TPK%KC40(:)
- PRATE(:,530) = TPK%KC41(:)
- PRATE(:,531) = TPK%KC42(:)
- PRATE(:,532) = TPK%KC43(:)
- PRATE(:,533) = TPK%KC44(:)
- PRATE(:,534) = TPK%KC45(:)
- PRATE(:,535) = TPK%KC46(:)
- PRATE(:,536) = TPK%KR1(:)
- PRATE(:,537) = TPK%KR2(:)
- PRATE(:,538) = TPK%KR3(:)
- PRATE(:,539) = TPK%KR4(:)
- PRATE(:,540) = TPK%KR5(:)
- PRATE(:,541) = TPK%KR6(:)
- PRATE(:,542) = TPK%KR7(:)
- PRATE(:,543) = TPK%KR8(:)
- PRATE(:,544) = TPK%KR9(:)
- PRATE(:,545) = TPK%KR10(:)
- PRATE(:,546) = TPK%KR11(:)
- PRATE(:,547) = TPK%KR12(:)
- PRATE(:,548) = TPK%KR13(:)
- PRATE(:,549) = TPK%KR14(:)
- PRATE(:,550) = TPK%KR15(:)
- PRATE(:,551) = TPK%KR16(:)
- PRATE(:,552) = TPK%KR17(:)
- PRATE(:,553) = TPK%KR18(:)
- PRATE(:,554) = TPK%KR19(:)
- PRATE(:,555) = TPK%KR20(:)
- PRATE(:,556) = TPK%KR21(:)
- PRATE(:,557) = TPK%KR22(:)
- PRATE(:,558) = TPK%KR23(:)
- PRATE(:,559) = TPK%KR24(:)
- PRATE(:,560) = TPK%KR25(:)
- PRATE(:,561) = TPK%KR26(:)
- PRATE(:,562) = TPK%KR27(:)
- PRATE(:,563) = TPK%KR28(:)
- PRATE(:,564) = TPK%KR29(:)
- PRATE(:,565) = TPK%KR30(:)
- PRATE(:,566) = TPK%KR31(:)
- PRATE(:,567) = TPK%KR32(:)
- PRATE(:,568) = TPK%KR33(:)
- PRATE(:,569) = TPK%KR34(:)
- PRATE(:,570) = TPK%KR35(:)
- PRATE(:,571) = TPK%KR36(:)
- PRATE(:,572) = TPK%KR37(:)
- PRATE(:,573) = TPK%KR38(:)
- PRATE(:,574) = TPK%KR39(:)
- PRATE(:,575) = TPK%KR40(:)
- PRATE(:,576) = TPK%KR41(:)
- PRATE(:,577) = TPK%KR42(:)
- PRATE(:,578) = TPK%KR43(:)
- PRATE(:,579) = TPK%KR44(:)
- PRATE(:,580) = TPK%KR45(:)
- PRATE(:,581) = TPK%KR46(:)
-END IF
-RETURN
-END SUBROUTINE CH_GET_RATES
-!
-!
-!========================================================================
-!
-!! ####################
- MODULE MODI_CH_TERMS
-!! ####################
-INTERFACE
-SUBROUTINE CH_TERMS(PTIME,PCONC,PTERMS,KMI,KVECNPT,KEQ,KREAC)
-IMPLICIT NONE
-REAL, INTENT(IN) :: PTIME
-INTEGER, INTENT(IN) :: KVECNPT
-INTEGER, INTENT(IN) :: KEQ, KREAC
-REAL, INTENT(IN), DIMENSION(KVECNPT,KEQ) :: PCONC
-REAL, INTENT(OUT), DIMENSION(KVECNPT,KEQ,KREAC):: PTERMS
-INTEGER, INTENT(IN) :: KMI
-END SUBROUTINE CH_TERMS
-END INTERFACE
-END MODULE MODI_CH_TERMS
-!
-!========================================================================
-!
-!! #############################################################
- SUBROUTINE CH_TERMS(PTIME,PCONC,PTERMS,KMI,KVECNPT,KEQ,KREAC)
-!! #############################################################
-!! This code has been created automatically by preprocessor m10,
-!! version: 9.7, copyright 1995-1999 by Meteo France/Universite Paul Sabatier.
-!! Please report all bugs to K. Suhre (Lab. d'Aerologie UPS/CNRS).
-!!
-!!*** *MODD_CH_TERMS*
-!!
-!! PURPOSE
-!! -------
-! calculation of the contribution of each term in each reaction
-!!
-!!** METHOD
-!! ------
-!! The contribution of reaction i to the evolution of species j
-!! is returned in PTERMS.
-!!
-!! REFERENCE
-!! ---------
-!! none
-!!
-!! AUTHOR
-!! ------
-!! Karsten Suhre (LA)
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 26/07/96
-!! Modified 05/05/98: Vectorization (Vincent Crassier & KS)
-!! Modified 31/10/03: New interface for better MesoNH compilation (D. Gazen)
-!!
-!!----------------------------------------------------------------------
-!!
-!! EXTERNAL
-!! --------
-!! none
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-USE MODD_CH_M9_SCHEME
-USE MODI_CH_TERMS_AQ
-USE MODI_CH_TERMS_GAZ
-!!
-!! EXPLICIT ARGUMENTS
-!! ------------------
-IMPLICIT NONE
-REAL, INTENT(IN) :: PTIME
-INTEGER, INTENT(IN) :: KVECNPT
-INTEGER, INTENT(IN) :: KEQ, KREAC
-REAL, INTENT(IN), DIMENSION(KVECNPT,KEQ) :: PCONC
-REAL, INTENT(OUT), DIMENSION(KVECNPT,KEQ,KREAC):: PTERMS
-INTEGER, INTENT(IN) :: KMI
-!!
-TYPE(CCSTYPE), POINTER :: TPK
-TPK=>TACCS(KMI)
-IF (TPK%LUSECHAQ) THEN
- CALL CH_TERMS_AQ(PTIME,PCONC,PTERMS,KMI,KVECNPT,KEQ,KREAC)
-ELSE
- CALL CH_TERMS_GAZ(PTIME,PCONC,PTERMS,KMI,KVECNPT,KEQ,KREAC)
-END IF
-END SUBROUTINE CH_TERMS
-!
-!========================================================================
-!
-!! ####################
- MODULE MODI_CH_TERMS_GAZ
-!! ####################
-INTERFACE
-SUBROUTINE CH_TERMS_GAZ(PTIME,PCONC,PTERMS,KMI,KVECNPT,KEQ,KREAC)
-IMPLICIT NONE
-REAL, INTENT(IN) :: PTIME
-INTEGER, INTENT(IN) :: KVECNPT
-INTEGER, INTENT(IN) :: KEQ, KREAC
-REAL, INTENT(IN), DIMENSION(KVECNPT,KEQ) :: PCONC
-REAL, INTENT(OUT), DIMENSION(KVECNPT,KEQ,KREAC):: PTERMS
-INTEGER, INTENT(IN) :: KMI
-END SUBROUTINE CH_TERMS_GAZ
-END INTERFACE
-END MODULE MODI_CH_TERMS_GAZ
-!
-!========================================================================
-!
-!!
-!! ######################
- SUBROUTINE CH_TERMS_GAZ(PTIME,PCONC,PTERMS,KMI,KVECNPT,KEQ,KREAC)
-!! ######################
-!! This code has been created automatically by preprocessor m10,
-!! version: 9.7, copyright 1995-1999 by Meteo France/Universite Paul Sabatier.
-!! Please report all bugs to K. Suhre (Lab. d'Aerologie UPS/CNRS).
-!!
-!!*** *MODD_CH_TERMS*
-!!
-!! PURPOSE
-!! -------
-! calculation of the contribution of each term in each reaction
-!!
-!!** METHOD
-!! ------
-!! The contribution of reaction i to the evolution of species j
-!! is returned in PTERMS.
-!!
-!! REFERENCE
-!! ---------
-!! none
-!!
-!! AUTHOR
-!! ------
-!! Karsten Suhre (LA)
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 26/07/96
-!! Modified 05/05/98: Vectorization (Vincent Crassier & KS)
-!! Modified 31/10/03: New interface for better MesoNH compilation (D. Gazen)
-!!
-!!----------------------------------------------------------------------
-!!
-!! EXTERNAL
-!! --------
-!! none
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-USE MODD_CH_M9_SCHEME
-!!
-!! EXPLICIT ARGUMENTS
-!! ------------------
-IMPLICIT NONE
-REAL, INTENT(IN) :: PTIME
-INTEGER, INTENT(IN) :: KVECNPT
-INTEGER, INTENT(IN) :: KEQ, KREAC
-REAL, INTENT(IN), DIMENSION(KVECNPT,KEQ) :: PCONC
-REAL, INTENT(OUT), DIMENSION(KVECNPT,KEQ,KREAC):: PTERMS
-INTEGER, INTENT(IN) :: KMI
-!!
-TYPE(CCSTYPE), POINTER :: TPK
-TPK=>TACCS(KMI)
-! /BEGIN_CODE/
-TPK%OSD = ( +TPK%K016*PCONC(:,JP_O3) ) / &
- ( +TPK%K017*TPK%H2O+TPK%K018A*TPK%N2(:)+TPK%K018B*TPK%O2(:) )
-!
-TPK%O = ( +TPK%K001*PCONC(:,JP_NO2)+TPK%K014*PCONC(:,JP_NO3)+TPK%&
-&K015*PCONC(:,JP_O3)+TPK%K018A*TPK%OSD*TPK%N2(:)+TPK%K018B*TPK%OSD*TPK%O2(:) ) / &
-( +TPK%K002*TPK%O2(:)+TPK%K003*PCONC(:,JP_NO2)+TPK%K004*PCONC(:,JP_NO2)+TPK%K034*&
-PCONC(:,JP_O3)+TPK%K038*PCONC(:,JP_NO)+TPK%K052*PCONC(:,JP_ETHE)+&
-&TPK%K057*PCONC(:,JP_OLEL)+TPK%K067*PCONC(:,JP_ISOP)+TPK%K077*PCONC(:,&
-&JP_OLEH)+TPK%K087*PCONC(:,JP_BIOL)+TPK%K091*PCONC(:,JP_BIOH)+TPK%K283&
-&*PCONC(:,JP_MVK)+TPK%K284*PCONC(:,JP_MCR) )
-!
-TPK%RO225 = ( TPK%K085*PCONC(:,JP_BIOL)*PCONC(:,JP_NO3) ) / &
-( +TPK%K201*PCONC(:,JP_NO)+TPK%K202*PCONC(:,JP_RO2T)+TPK%K203*PCONC(:,JP_HO2))
-!
-TPK%RO228 = ( TPK%K089*PCONC(:,JP_BIOH)*PCONC(:,JP_NO3) ) / &
-( +TPK%K210*PCONC(:,JP_NO)+TPK%K211*PCONC(:,JP_RO2T)+TPK%K212*PCONC(:,JP_HO2))
-
-!
-TPK%RO253 = ( +0.41*TPK%K282*PCONC(:,JP_MCR)*PCONC(:,JP_O3) ) / &
-( +TPK%K297*PCONC(:,JP_NO)+TPK%K298*PCONC(:,JP_HO2)+TPK%K299*PCONC(&
-&:,JP_RO2T) )
-!
-TPK%RO254 = ( +TPK%K140*PCONC(:,JP_PAN6)+TPK%K297*TPK%RO253*&
-&PCONC(:,JP_NO)+TPK%K298*TPK%RO253*PCONC(:,JP_HO2)+TPK%K299*&
-&TPK%RO253*PCONC(:,JP_RO2T) ) / &
-( +TPK%K131*PCONC(:,JP_NO2)+TPK%K300*PCONC(:,JP_NO)+TPK%K301*PCONC(&
-&:,JP_HO2)+TPK%K302*PCONC(:,JP_RO2T) )
-!
-TPK%RO213 = ( +0.271*TPK%K066*PCONC(:,JP_ISOP)*PCONC(:,JP_O3) ) / &
-( +TPK%K162*PCONC(:,JP_NO)+TPK%K163*PCONC(:,JP_RO2T)+TPK%K164*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO239 = ( +TPK%K137*PCONC(:,JP_PAN3)+TPK%K162*TPK%RO213*&
-&PCONC(:,JP_NO)+TPK%K163*TPK%RO213*PCONC(:,JP_RO2T)+TPK%K164*TPK%RO213*PCONC(:,JP_HO2) ) / &
-( +TPK%K128*PCONC(:,JP_NO2)+TPK%K165*PCONC(:,JP_NO)+TPK%K166*PCONC(&
-&:,JP_HO2)+TPK%K167*PCONC(:,JP_RO2T) )
-!
-TPK%RO248 = ( +TPK%K141*PCONC(:,JP_PAN4)+TPK%K274*PCONC(:,JP_MGLY)*P&
-&CONC(:,JP_OH)+TPK%K278*PCONC(:,JP_MGLY)*PCONC(:,JP_NO3) ) / &
-( +TPK%K129*PCONC(:,JP_NO2)+TPK%K277*PCONC(:,JP_NO)+TPK%K279*PCONC(&
-&:,JP_HO2)+TPK%K280*PCONC(:,JP_RO2T) )
-!
-TPK%RO249 = ( +TPK%K272*PCONC(:,JP_MVK)*PCONC(:,JP_OH) ) / &
-( +TPK%K285*PCONC(:,JP_NO)+TPK%K286*PCONC(:,JP_RO2T)+TPK%K287*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO250 = ( +0.3750353*TPK%K139*PCONC(:,JP_APAN)+TPK%CF46*TPK%K2&
-&73*PCONC(:,JP_MCR)*PCONC(:,JP_OH)+TPK%CF46*TPK%K275*PCONC(:,JP_MCR)*PCONC&
-&(:,JP_NO3) ) / &
-( +TPK%K130*PCONC(:,JP_NO2)+TPK%K288*PCONC(:,JP_NO)+TPK%K289*PCONC(&
-&:,JP_HO2)+TPK%K290*PCONC(:,JP_RO2T) )
-!
-TPK%RO214 = ( +0.095*TPK%K066*PCONC(:,JP_ISOP)*PCONC(:,JP_O3)+TPK%K1&
-&65*TPK%RO239*PCONC(:,JP_NO)+TPK%K167*TPK%RO239*PCONC(:,JP_R&
-&O2T)+TPK%K288*TPK%RO250*PCONC(:,JP_NO)+TPK%K290*TPK%RO250&
-&*PCONC(:,JP_RO2T) ) / &
-( +TPK%K168*PCONC(:,JP_NO)+TPK%K169*PCONC(:,JP_RO2T)+TPK%K170*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO251 = ( +TPK%CF47*TPK%K273*PCONC(:,JP_MCR)*PCONC(:,JP_OH) ) / &
-( +TPK%K291*PCONC(:,JP_NO)+TPK%K292*PCONC(:,JP_HO2)+TPK%K293*PCONC(&
-&:,JP_RO2T) )
-!
-TPK%RO252 = ( +TPK%CF47*TPK%K275*PCONC(:,JP_MCR)*PCONC(:,JP_NO3) ) /&
-( +TPK%K294*PCONC(:,JP_NO)+TPK%K295*PCONC(:,JP_HO2)+TPK%K296*PCONC(&
-&:,JP_RO2T) )
-!
-TPK%RO258 = ( +TPK%K138*PCONC(:,JP_PN10)+TPK%K305*PCONC(:,JP_RP16)*P&
-&CONC(:,JP_OH)+TPK%K338*PCONC(:,JP_RP16)*PCONC(:,JP_NO3) ) / &
-( +TPK%K134*PCONC(:,JP_NO2)+TPK%K340*PCONC(:,JP_NO)+TPK%K341*PCONC(&
-&:,JP_HO2)+TPK%K342*PCONC(:,JP_RO2T) )
-!
-TPK%RO255 = ( +TPK%K304*PCONC(:,JP_RPR1)*PCONC(:,JP_OH)+TPK%K307*PCO&
-&NC(:,JP_RPR1)*PCONC(:,JP_NO3)+TPK%K343*PCONC(:,JP_PAN7) ) / &
-( +TPK%K132*PCONC(:,JP_NO2)+TPK%K309*PCONC(:,JP_NO)+TPK%K310*PCONC(&
-&:,JP_HO2)+TPK%K311*PCONC(:,JP_RO2T) )
-!
-TPK%RO256 = ( +TPK%K312*PCONC(:,JP_RPR3)*PCONC(:,JP_OH)+TPK%K313*PCO&
-&NC(:,JP_RPR3)*PCONC(:,JP_NO3)+TPK%K317*PCONC(:,JP_PAN8) ) / &
-( +TPK%K315*PCONC(:,JP_NO)+TPK%K316*PCONC(:,JP_NO2)+TPK%K318*PCONC(&
-&:,JP_HO2)+TPK%K319*PCONC(:,JP_RO2T) )
-!
-TPK%RO257 = ( +0.6249651*TPK%K139*PCONC(:,JP_APAN)+TPK%K324*PCONC(:,&
-&JP_RPR8)*PCONC(:,JP_OH)+TPK%K327*PCONC(:,JP_RPR8)*PCONC(:,JP_NO3)+TPK%K3&
-&30*PCONC(:,JP_RPR8) ) / &
-( +TPK%K133*PCONC(:,JP_NO2)+TPK%K331*PCONC(:,JP_NO)+TPK%K332*PCONC(&
-&:,JP_HO2)+TPK%K333*PCONC(:,JP_RO2T) )
-!
-TPK%RO29 = ( +0.66*TPK%K064*PCONC(:,JP_ISOP)*PCONC(:,JP_OH)+TPK%K329&
-&*PCONC(:,JP_RPR8)+TPK%K331*TPK%RO257*PCONC(:,JP_NO)+TPK%K333*TPK%RO257*&
-PCONC(:,JP_RO2T) ) / &
-( +TPK%K150*PCONC(:,JP_NO)+TPK%K151*PCONC(:,JP_RO2T)+TPK%K152*PCONC&
-&(:,JP_HO2) )
-!
-!avoid division by zero in prodloss
-WHERE (PCONC(:,JP_NO2)>0.)
- TPK%RAD1 = ( +TPK%K072*PCONC(:,JP_AROO)*PCONC(:,JP_NO3) ) / &
- ( +TPK%K103*PCONC(:,JP_NO2) )
-!
- TPK%RAD8 = ( +TPK%K320*PCONC(:,JP_RPR4)*PCONC(:,JP_NO3) ) / &
- ( +TPK%K321*PCONC(:,JP_NO2) )
-ELSEWHERE
- TPK%RAD1 = 0.
- TPK%RAD8 = 0.
-ENDWHERE
-!
-TPK%RAD2 = ( +0.74*TPK%K073*PCONC(:,JP_AROO)*PCONC(:,JP_OH) ) / &
-( +TPK%K097+TPK%K104*PCONC(:,JP_NO2) )
-!
-TPK%RAD3 = ( +0.74*TPK%K079*PCONC(:,JP_AROL)*PCONC(:,JP_OH) ) / &
-( +TPK%K098+TPK%K105*PCONC(:,JP_NO2) )
-!
-TPK%RAD4 = ( +0.84*TPK%K080*PCONC(:,JP_AROH)*PCONC(:,JP_OH) ) / &
-( +TPK%K099+TPK%K106*PCONC(:,JP_NO2) )
-!
-TPK%RAD5 = ( +TPK%CF40*TPK%K082*PCONC(:,JP_ARAL)*PCONC(:,JP_OH) ) / &
-( +TPK%K100+TPK%K107*PCONC(:,JP_NO2) )
-!
-TPK%RAD6 = ( +0.74*TPK%K083*PCONC(:,JP_ARAC)*PCONC(:,JP_OH) ) / &
-( +TPK%K101+TPK%K108*PCONC(:,JP_NO2) )
-!
-TPK%RAD7 = ( +0.74*TPK%K092*PCONC(:,JP_PAH)*PCONC(:,JP_OH) ) / &
-( +TPK%K102+TPK%K109*PCONC(:,JP_NO2) )
-!
-TPK%RO22 = ( +TPK%K049*PCONC(:,JP_ETHE)*PCONC(:,JP_OH)+TPK%CF2*TPK&
-&%K053*PCONC(:,JP_ETOH)*PCONC(:,JP_OH)+TPK%K054*PCONC(:,JP_OLEL)*PCONC(:,JP_&
-&OH)+TPK%K069*PCONC(:,JP_ALCH)*PCONC(:,JP_OH) ) / &
-( +TPK%K113*PCONC(:,JP_NO)+TPK%K114*PCONC(:,JP_RO2T)+TPK%K115*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO23 = ( +TPK%K050*PCONC(:,JP_ETHE)*PCONC(:,JP_NO3)+TPK%K055*PCO&
-&NC(:,JP_OLEL)*PCONC(:,JP_NO3) ) / &
-( +TPK%K116*PCONC(:,JP_NO)+TPK%K117*PCONC(:,JP_RO2T)+TPK%K118*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO24 = ( +0.4*TPK%K052*PCONC(:,JP_ETHE)*TPK%O+0.1*TPK%K0&
-&57*PCONC(:,JP_OLEL)*TPK%O+0.1*TPK%K077*PCONC(:,JP_OLEH)*&
-&TPK%O+0.15*TPK%K283*PCONC(:,JP_MVK)*TPK%O ) / &
-( +TPK%K119*PCONC(:,JP_NO)+TPK%K120*PCONC(:,JP_RO2T)+TPK%K121*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO26 = ( +TPK%K060*PCONC(:,JP_ALD2)*PCONC(:,JP_OH)+TPK%K061*PCON&
-&C(:,JP_ALD2)*PCONC(:,JP_NO3)+TPK%K135*PCONC(:,JP_PAN1) ) / &
-( +TPK%K125*PCONC(:,JP_NO)+TPK%K126*PCONC(:,JP_NO2)+TPK%K142*PCONC(&
-&:,JP_HO2)+TPK%K143*PCONC(:,JP_RO2T) )
-!
-TPK%RO27 = ( +TPK%K062*PCONC(:,JP_KETL)*PCONC(:,JP_OH)+TPK%CF8*TPK&
-&%K168*TPK%RO214*PCONC(:,JP_NO)+TPK%K169*TPK%RO214*PCONC(:,J&
-&P_RO2T)+TPK%K170*TPK%RO214*PCONC(:,JP_HO2)+0.15*TPK%K284*PCONC(:&
-&,JP_MCR)*TPK%O ) / &
-( +TPK%K144*PCONC(:,JP_NO)+TPK%K145*PCONC(:,JP_RO2T)+TPK%K146*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO210 = ( +0.34*TPK%K064*PCONC(:,JP_ISOP)*PCONC(:,JP_OH) ) / &
-( +TPK%K153*PCONC(:,JP_NO)+TPK%K154*PCONC(:,JP_RO2T)+TPK%K155*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO211 = ( +0.66*TPK%K065*PCONC(:,JP_ISOP)*PCONC(:,JP_NO3) ) / &
-( +TPK%K156*PCONC(:,JP_NO)+TPK%K157*PCONC(:,JP_RO2T)+TPK%K158*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO212 = ( +0.34*TPK%K065*PCONC(:,JP_ISOP)*PCONC(:,JP_NO3) ) / &
-( +TPK%K159*PCONC(:,JP_NO)+TPK%K160*PCONC(:,JP_RO2T)+TPK%K161*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO215 = ( +TPK%K068*PCONC(:,JP_MTBE)*PCONC(:,JP_OH) ) / &
-( +TPK%K171*PCONC(:,JP_NO)+TPK%K172*PCONC(:,JP_RO2T)+TPK%K173*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO216 = ( +TPK%K070*PCONC(:,JP_KETH)*PCONC(:,JP_OH) ) / &
-( +TPK%K174*PCONC(:,JP_NO)+TPK%K175*PCONC(:,JP_RO2T)+TPK%K176*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO217 = ( +0.1*TPK%K073*PCONC(:,JP_AROO)*PCONC(:,JP_OH) ) / &
-( +TPK%K177*PCONC(:,JP_NO)+TPK%K178*PCONC(:,JP_RO2T)+TPK%K179*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO220 = ( +0.28*TPK%K076*PCONC(:,JP_OLEH)*PCONC(:,JP_O3)+0.1*TPK&
-&%K077*PCONC(:,JP_OLEH)*TPK%O+TPK%K078*PCONC(:,JP_ALKM)*PCONC(:,JP_O&
-&H)+TPK%K308*PCONC(:,JP_RPR1)+TPK%K309*TPK%RO255*PCONC(:,JP_NO)+T&
-&PK%K311*TPK%RO255*PCONC(:,JP_RO2T) ) / &
-( +TPK%K186*PCONC(:,JP_NO)+TPK%K187*PCONC(:,JP_RO2T)+TPK%K188*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO218 = ( +TPK%K074*PCONC(:,JP_OLEH)*PCONC(:,JP_OH)+TPK%CF18*TPK%K186*&
-TPK%RO220*PCONC(:,JP_NO)+TPK%K187*TPK%RO220*PCONC(:&
-&,JP_RO2T)+TPK%K188*TPK%RO220*PCONC(:,JP_HO2) ) / &
-( +TPK%K180*PCONC(:,JP_NO)+TPK%K181*PCONC(:,JP_RO2T)+TPK%K182*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO219 = ( +TPK%K075*PCONC(:,JP_OLEH)*PCONC(:,JP_NO3) ) / &
-( +TPK%K183*PCONC(:,JP_NO)+TPK%K184*PCONC(:,JP_RO2T)+TPK%K185*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO221 = ( +0.1*TPK%K079*PCONC(:,JP_AROL)*PCONC(:,JP_OH) ) / &
-( +TPK%K189*PCONC(:,JP_NO)+TPK%K190*PCONC(:,JP_RO2T)+TPK%K191*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO222 = ( +TPK%CF45*TPK%K082*PCONC(:,JP_ARAL)*PCONC(:,JP_OH) ) /&
-& &
-( +TPK%K192*PCONC(:,JP_NO)+TPK%K193*PCONC(:,JP_RO2T)+TPK%K194*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO223 = ( +0.1*TPK%K083*PCONC(:,JP_ARAC)*PCONC(:,JP_OH) ) / &
-( +TPK%K195*PCONC(:,JP_NO)+TPK%K196*PCONC(:,JP_RO2T)+TPK%K197*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO224 = ( +TPK%K084*PCONC(:,JP_BIOL)*PCONC(:,JP_OH) ) / &
-( +TPK%K198*PCONC(:,JP_NO)+TPK%K199*PCONC(:,JP_RO2T)+TPK%K200*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO226 = ( +0.445*TPK%K086*PCONC(:,JP_BIOL)*PCONC(:,JP_O3) ) / &
-( +TPK%K204*PCONC(:,JP_NO)+TPK%K205*PCONC(:,JP_RO2T)+TPK%K206*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO227 = ( +TPK%K088*PCONC(:,JP_BIOH)*PCONC(:,JP_OH) ) / &
-( +TPK%K207*PCONC(:,JP_NO)+TPK%K208*PCONC(:,JP_RO2T)+TPK%K209*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO229 = ( +0.445*TPK%K090*PCONC(:,JP_BIOH)*PCONC(:,JP_O3) ) / &
-( +TPK%K213*PCONC(:,JP_NO)+TPK%K214*PCONC(:,JP_RO2T)+TPK%K215*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO230 = ( +0.445*TPK%K090*PCONC(:,JP_BIOH)*PCONC(:,JP_O3) ) / &
-( +TPK%K219*PCONC(:,JP_RO2T)+TPK%K220*PCONC(:,JP_HO2)+TPK%K344*PCON&
-&C(:,JP_NO) )
-!
-TPK%RO231 = ( +0.1*TPK%K092*PCONC(:,JP_PAH)*PCONC(:,JP_OH) ) / &
-( +TPK%K221*PCONC(:,JP_NO)+TPK%K222*PCONC(:,JP_RO2T)+TPK%K223*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO232 = ( +TPK%K093*PCONC(:,JP_ALKH)*PCONC(:,JP_OH) ) / &
-( +TPK%K224*PCONC(:,JP_NO)+TPK%K225*PCONC(:,JP_RO2T)+TPK%K226*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO233 = ( +TPK%K097*TPK%RAD2 ) / &
-( +TPK%K230+TPK%K231*PCONC(:,JP_NO)+TPK%K232*PCONC(:,JP_RO2T)+TPK%K233*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO234 = ( +TPK%K098*TPK%RAD3 ) / &
-( +TPK%K237+TPK%K238*PCONC(:,JP_NO)+TPK%K239*PCONC(:,JP_RO2T)+TPK%K240*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO235 = ( +TPK%K099*TPK%RAD4 ) / &
-( +TPK%K244+TPK%K245*PCONC(:,JP_NO)+TPK%K246*PCONC(:,JP_RO2T)+TPK%K247*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO236 = ( +TPK%K100*TPK%RAD5 ) / &
-( +TPK%K251+TPK%K252*PCONC(:,JP_NO)+TPK%K253*PCONC(:,JP_RO2T)+TPK%K254*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO237 = ( +TPK%K101*TPK%RAD6 ) / &
-( +TPK%K258+TPK%K259*PCONC(:,JP_NO)+TPK%K260*PCONC(:,JP_RO2T)+TPK%K261*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO238 = ( +TPK%K102*TPK%RAD7 ) / &
-( +TPK%K265+TPK%K266*PCONC(:,JP_NO)+TPK%K267*PCONC(:,JP_RO2T)+TPK%K268*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO240 = ( +TPK%CF30*TPK%K213*TPK%RO229*PCONC(:,JP_NO)+TPK%K214*&
-TPK%RO229*PCONC(:,JP_RO2T)+TPK%K215*TPK%RO229*PCON&
-&C(:,JP_HO2) ) / &
-( +TPK%K216*PCONC(:,JP_NO)+TPK%K217*PCONC(:,JP_RO2T)+TPK%K218*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO241 = ( +TPK%CF34*TPK%K224*TPK%RO232*PCONC(:,JP_NO)+TPK%K225*&
-TPK%RO232*PCONC(:,JP_RO2T)+TPK%K226*TPK%RO232*PCON&
-&C(:,JP_HO2) ) / &
-( +TPK%K227*PCONC(:,JP_NO)+TPK%K228*PCONC(:,JP_RO2T)+TPK%K229*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO242 = ( +TPK%K230*TPK%RO233 ) / &
-( +TPK%K234*PCONC(:,JP_NO)+TPK%K235*PCONC(:,JP_RO2T)+TPK%K236*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO243 = ( +TPK%K237*TPK%RO234 ) / &
-( +TPK%K241*PCONC(:,JP_NO)+TPK%K242*PCONC(:,JP_RO2T)+TPK%K243*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO244 = ( +TPK%K244*TPK%RO235 ) / &
-( +TPK%K248*PCONC(:,JP_NO)+TPK%K249*PCONC(:,JP_RO2T)+TPK%K250*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO245 = ( +TPK%K251*TPK%RO236 ) / &
-( +TPK%K255*PCONC(:,JP_NO)+TPK%K256*PCONC(:,JP_RO2T)+TPK%K257*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO246 = ( +TPK%K258*TPK%RO237 ) / &
-( +TPK%K262*PCONC(:,JP_NO)+TPK%K263*PCONC(:,JP_RO2T)+TPK%K264*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO247 = ( +TPK%K265*TPK%RO238 ) / &
-( +TPK%K269*PCONC(:,JP_NO)+TPK%K270*PCONC(:,JP_RO2T)+TPK%K271*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO28 = ( +TPK%K063*PCONC(:,JP_KETL)+TPK%K071*PCONC(:,JP_KETH)+TP&
-&K%K136*PCONC(:,JP_PAN2)+TPK%K144*TPK%RO27*PCONC(:,JP_NO)+TPK%&
-&K145*TPK%RO27*PCONC(:,JP_RO2T)+TPK%K146*TPK%RO27*PCONC(:,JP&
-&_HO2)+TPK%K174*TPK%RO216*PCONC(:,JP_NO)+TPK%K175*TPK%RO21&
-&6*PCONC(:,JP_RO2T)+TPK%K176*TPK%RO216*PCONC(:,JP_HO2)+TPK%K204*&
-&TPK%RO226*PCONC(:,JP_NO)+TPK%K205*TPK%RO226*PCONC(:,JP_RO2T)&
-&+TPK%K206*TPK%RO226*PCONC(:,JP_HO2)+TPK%K216*TPK%RO240*&
-&PCONC(:,JP_NO)+TPK%K217*TPK%RO240*PCONC(:,JP_RO2T)+TPK%K218*&
-&TPK%RO240*PCONC(:,JP_HO2)+TPK%K219*TPK%RO230*PCONC(:,JP_RO2T)+T&
-&PK%K220*TPK%RO230*PCONC(:,JP_HO2)+TPK%K276*PCONC(:,JP_MGLY)+TPK%K277*&
-TPK%RO248*PCONC(:,JP_NO)+TPK%K280*TPK%RO248*PCONC(:&
-&,JP_RO2T)+0.28*TPK%K281*PCONC(:,JP_MVK)*PCONC(:,JP_O3)+0.15*TPK%K283*PCO&
-&NC(:,JP_MVK)*TPK%O+TPK%K344*TPK%RO230*PCONC(:,JP_NO) ) / &
-( +TPK%K127*PCONC(:,JP_NO2)+TPK%K147*PCONC(:,JP_NO)+TPK%K148*PCONC(&
-&:,JP_HO2)+TPK%K149*PCONC(:,JP_RO2T) )
-!
-! /END_CODE/
-PTERMS(:,:,:) = 0.0
-CALL SUBT0
-CALL SUBT1
-CALL SUBT2
-CALL SUBT3
-CALL SUBT4
-CALL SUBT5
-CALL SUBT6
-CALL SUBT7
-CALL SUBT8
-CALL SUBT9
-CALL SUBT10
-CALL SUBT11
-CALL SUBT12
-CALL SUBT13
-CALL SUBT14
-CALL SUBT15
-CALL SUBT16
-CALL SUBT17
-CALL SUBT18
-CALL SUBT19
-CALL SUBT20
-CALL SUBT21
-CALL SUBT22
-CALL SUBT23
-CALL SUBT24
-CALL SUBT25
-CALL SUBT26
-CALL SUBT27
-CALL SUBT28
-CALL SUBT29
-CALL SUBT30
-CALL SUBT31
-CALL SUBT32
-CALL SUBT33
-CALL SUBT34
-CALL SUBT35
-CALL SUBT36
-CALL SUBT37
-CALL SUBT38
-CALL SUBT39
-CALL SUBT40
-CALL SUBT41
-CALL SUBT42
-CALL SUBT43
-CALL SUBT44
-CALL SUBT45
-CALL SUBT46
-CALL SUBT47
-CALL SUBT48
-CALL SUBT49
-CALL SUBT50
-CALL SUBT51
-CALL SUBT52
-CALL SUBT53
-CALL SUBT54
-CALL SUBT55
-CALL SUBT56
-CALL SUBT57
-CALL SUBT58
-CALL SUBT59
-!
-
-CONTAINS
-
-SUBROUTINE SUBT0
-!
-!Indices 1 a 20
-!
-!PTERMS(NO,K001) = +K001*<NO2>
- PTERMS(:,1,1) = +TPK%K001(:)*PCONC(:,2)
-!
-!PTERMS(NO2,K001) = -K001*<NO2>
- PTERMS(:,2,1) = -TPK%K001(:)*PCONC(:,2)
-!
-!PTERMS(O3,K002) = +K002*<O2>*<O>
- PTERMS(:,3,2) = +TPK%K002(:)*TPK%O2(:)*TPK%O(:)
-!
-!PTERMS(NO,K003) = +K003*<NO2>*<O>
- PTERMS(:,1,3) = +TPK%K003(:)*PCONC(:,2)*TPK%O(:)
-!
-!PTERMS(NO2,K003) = -K003*<NO2>*<O>
- PTERMS(:,2,3) = -TPK%K003(:)*PCONC(:,2)*TPK%O(:)
-!
-!PTERMS(NO2,K004) = -K004*<NO2>*<O>
- PTERMS(:,2,4) = -TPK%K004(:)*PCONC(:,2)*TPK%O(:)
-!
-!PTERMS(NO3,K004) = +K004*<NO2>*<O>
- PTERMS(:,8,4) = +TPK%K004(:)*PCONC(:,2)*TPK%O(:)
-!
-!PTERMS(NO,K005) = -K005*<O3>*<NO>
- PTERMS(:,1,5) = -TPK%K005(:)*PCONC(:,3)*PCONC(:,1)
-!
-!PTERMS(NO2,K005) = +K005*<O3>*<NO>
- PTERMS(:,2,5) = +TPK%K005(:)*PCONC(:,3)*PCONC(:,1)
-!
-!PTERMS(O3,K005) = -K005*<O3>*<NO>
- PTERMS(:,3,5) = -TPK%K005(:)*PCONC(:,3)*PCONC(:,1)
-!
-!PTERMS(NO2,K006) = -K006*<O3>*<NO2>
- PTERMS(:,2,6) = -TPK%K006(:)*PCONC(:,3)*PCONC(:,2)
-!
-!PTERMS(O3,K006) = -K006*<O3>*<NO2>
- PTERMS(:,3,6) = -TPK%K006(:)*PCONC(:,3)*PCONC(:,2)
-!
-!PTERMS(NO3,K006) = +K006*<O3>*<NO2>
- PTERMS(:,8,6) = +TPK%K006(:)*PCONC(:,3)*PCONC(:,2)
-!
-!PTERMS(NO,K007) = -K007*<NO3>*<NO>
- PTERMS(:,1,7) = -TPK%K007(:)*PCONC(:,8)*PCONC(:,1)
-!
-!PTERMS(NO2,K007) = +2.*K007*<NO3>*<NO>
- PTERMS(:,2,7) = +2.*TPK%K007(:)*PCONC(:,8)*PCONC(:,1)
-!
-!PTERMS(NO3,K007) = -K007*<NO3>*<NO>
- PTERMS(:,8,7) = -TPK%K007(:)*PCONC(:,8)*PCONC(:,1)
-!
-!PTERMS(NO,K008) = -K008*<NO>*<NO>
- PTERMS(:,1,8) = -TPK%K008(:)*PCONC(:,1)*PCONC(:,1)
-!
-!PTERMS(NO2,K008) = +2.*K008*<NO>*<NO>
- PTERMS(:,2,8) = +2.*TPK%K008(:)*PCONC(:,1)*PCONC(:,1)
-!
-!PTERMS(NO2,K009) = -K009*<NO3>*<NO2>
- PTERMS(:,2,9) = -TPK%K009(:)*PCONC(:,8)*PCONC(:,2)
-!
-!PTERMS(N2O5,K009) = +K009*<NO3>*<NO2>
- PTERMS(:,7,9) = +TPK%K009(:)*PCONC(:,8)*PCONC(:,2)
-!
-!
-RETURN
-END SUBROUTINE SUBT0
-!
-SUBROUTINE SUBT1
-!
-!Indices 21 a 40
-!
-!PTERMS(NO3,K009) = -K009*<NO3>*<NO2>
- PTERMS(:,8,9) = -TPK%K009(:)*PCONC(:,8)*PCONC(:,2)
-!
-!PTERMS(NO2,K010) = +K010*<N2O5>
- PTERMS(:,2,10) = +TPK%K010(:)*PCONC(:,7)
-!
-!PTERMS(N2O5,K010) = -K010*<N2O5>
- PTERMS(:,7,10) = -TPK%K010(:)*PCONC(:,7)
-!
-!PTERMS(NO3,K010) = +K010*<N2O5>
- PTERMS(:,8,10) = +TPK%K010(:)*PCONC(:,7)
-!
-!PTERMS(HNO3,K011) = +2.*K011*<H2O>*<N2O5>
- PTERMS(:,5,11) = +2.*TPK%K011(:)*TPK%H2O(:)*PCONC(:,7)
-!
-!PTERMS(N2O5,K011) = -K011*<H2O>*<N2O5>
- PTERMS(:,7,11) = -TPK%K011(:)*TPK%H2O(:)*PCONC(:,7)
-!
-!PTERMS(NO,K012) = +K012*<NO3>*<NO2>
- PTERMS(:,1,12) = +TPK%K012(:)*PCONC(:,8)*PCONC(:,2)
-!
-!PTERMS(NO2,K012) = -K012*<NO3>*<NO2>
- PTERMS(:,2,12) = -TPK%K012(:)*PCONC(:,8)*PCONC(:,2)
-!
-!PTERMS(NO3,K012) = -K012*<NO3>*<NO2>
- PTERMS(:,8,12) = -TPK%K012(:)*PCONC(:,8)*PCONC(:,2)
-!
-!PTERMS(NO,K013) = +K013*<NO3>
- PTERMS(:,1,13) = +TPK%K013(:)*PCONC(:,8)
-!
-!PTERMS(NO3,K013) = -K013*<NO3>
- PTERMS(:,8,13) = -TPK%K013(:)*PCONC(:,8)
-!
-!PTERMS(NO2,K014) = +K014*<NO3>
- PTERMS(:,2,14) = +TPK%K014(:)*PCONC(:,8)
-!
-!PTERMS(NO3,K014) = -K014*<NO3>
- PTERMS(:,8,14) = -TPK%K014(:)*PCONC(:,8)
-!
-!PTERMS(O3,K015) = -K015*<O3>
- PTERMS(:,3,15) = -TPK%K015(:)*PCONC(:,3)
-!
-!PTERMS(O3,K016) = -K016*<O3>
- PTERMS(:,3,16) = -TPK%K016(:)*PCONC(:,3)
-!
-!PTERMS(OH,K017) = +K017*<H2O>*<OSD>
- PTERMS(:,15,17) = +TPK%K017(:)*TPK%H2O(:)*TPK%OSD(:)
-!
-!PTERMS(NO,K019) = -K019*<OH>*<NO>
- PTERMS(:,1,20) = -TPK%K019(:)*PCONC(:,15)*PCONC(:,1)
-!
-!PTERMS(HONO,K019) = +K019*<OH>*<NO>
- PTERMS(:,4,20) = +TPK%K019(:)*PCONC(:,15)*PCONC(:,1)
-!
-!PTERMS(OH,K019) = -K019*<OH>*<NO>
- PTERMS(:,15,20) = -TPK%K019(:)*PCONC(:,15)*PCONC(:,1)
-!
-!PTERMS(NO,K020) = +0.9*K020*<HONO>
- PTERMS(:,1,21) = +0.9*TPK%K020(:)*PCONC(:,4)
-!
-!
-RETURN
-END SUBROUTINE SUBT1
-!
-SUBROUTINE SUBT2
-!
-!Indices 41 a 60
-!
-!PTERMS(NO2,K020) = +0.1*K020*<HONO>
- PTERMS(:,2,21) = +0.1*TPK%K020(:)*PCONC(:,4)
-!
-!PTERMS(HONO,K020) = -K020*<HONO>
- PTERMS(:,4,21) = -TPK%K020(:)*PCONC(:,4)
-!
-!PTERMS(HO2,K020) = +0.1*K020*<HONO>
- PTERMS(:,10,21) = +0.1*TPK%K020(:)*PCONC(:,4)
-!
-!PTERMS(OH,K020) = +0.9*K020*<HONO>
- PTERMS(:,15,21) = +0.9*TPK%K020(:)*PCONC(:,4)
-!
-!PTERMS(NO2,K021) = -K021*<H2O>*<NO2>
- PTERMS(:,2,22) = -TPK%K021(:)*TPK%H2O(:)*PCONC(:,2)
-!
-!PTERMS(HONO,K021) = +0.5*K021*<H2O>*<NO2>
- PTERMS(:,4,22) = +0.5*TPK%K021(:)*TPK%H2O(:)*PCONC(:,2)
-!
-!PTERMS(HNO3,K021) = +0.5*K021*<H2O>*<NO2>
- PTERMS(:,5,22) = +0.5*TPK%K021(:)*TPK%H2O(:)*PCONC(:,2)
-!
-!PTERMS(NO2,K022) = -K022*<OH>*<NO2>
- PTERMS(:,2,23) = -TPK%K022(:)*PCONC(:,15)*PCONC(:,2)
-!
-!PTERMS(HNO3,K022) = +K022*<OH>*<NO2>
- PTERMS(:,5,23) = +TPK%K022(:)*PCONC(:,15)*PCONC(:,2)
-!
-!PTERMS(OH,K022) = -K022*<OH>*<NO2>
- PTERMS(:,15,23) = -TPK%K022(:)*PCONC(:,15)*PCONC(:,2)
-!
-!PTERMS(HNO3,K023) = -K023*<OH>*<HNO3>
- PTERMS(:,5,24) = -TPK%K023(:)*PCONC(:,15)*PCONC(:,5)
-!
-!PTERMS(NO3,K023) = +K023*<OH>*<HNO3>
- PTERMS(:,8,24) = +TPK%K023(:)*PCONC(:,15)*PCONC(:,5)
-!
-!PTERMS(OH,K023) = -K023*<OH>*<HNO3>
- PTERMS(:,15,24) = -TPK%K023(:)*PCONC(:,15)*PCONC(:,5)
-!
-!PTERMS(HO2,K024) = +K024*<OH>*<CO>
- PTERMS(:,10,25) = +TPK%K024(:)*PCONC(:,15)*PCONC(:,11)
-!
-!PTERMS(CO,K024) = -K024*<OH>*<CO>
- PTERMS(:,11,25) = -TPK%K024(:)*PCONC(:,15)*PCONC(:,11)
-!
-!PTERMS(OH,K024) = -K024*<OH>*<CO>
- PTERMS(:,15,25) = -TPK%K024(:)*PCONC(:,15)*PCONC(:,11)
-!
-!PTERMS(O3,K025) = -K025*<OH>*<O3>
- PTERMS(:,3,26) = -TPK%K025(:)*PCONC(:,15)*PCONC(:,3)
-!
-!PTERMS(HO2,K025) = +K025*<OH>*<O3>
- PTERMS(:,10,26) = +TPK%K025(:)*PCONC(:,15)*PCONC(:,3)
-!
-!PTERMS(OH,K025) = -K025*<OH>*<O3>
- PTERMS(:,15,26) = -TPK%K025(:)*PCONC(:,15)*PCONC(:,3)
-!
-!PTERMS(NO,K026) = -K026*<HO2>*<NO>
- PTERMS(:,1,27) = -TPK%K026(:)*PCONC(:,10)*PCONC(:,1)
-!
-!
-RETURN
-END SUBROUTINE SUBT2
-!
-SUBROUTINE SUBT3
-!
-!Indices 61 a 80
-!
-!PTERMS(NO2,K026) = +K026*<HO2>*<NO>
- PTERMS(:,2,27) = +TPK%K026(:)*PCONC(:,10)*PCONC(:,1)
-!
-!PTERMS(HO2,K026) = -K026*<HO2>*<NO>
- PTERMS(:,10,27) = -TPK%K026(:)*PCONC(:,10)*PCONC(:,1)
-!
-!PTERMS(OH,K026) = +K026*<HO2>*<NO>
- PTERMS(:,15,27) = +TPK%K026(:)*PCONC(:,10)*PCONC(:,1)
-!
-!PTERMS(NO2,K027) = -K027*<HO2>*<NO2>
- PTERMS(:,2,28) = -TPK%K027(:)*PCONC(:,10)*PCONC(:,2)
-!
-!PTERMS(HNO4,K027) = +K027*<HO2>*<NO2>
- PTERMS(:,6,28) = +TPK%K027(:)*PCONC(:,10)*PCONC(:,2)
-!
-!PTERMS(HO2,K027) = -K027*<HO2>*<NO2>
- PTERMS(:,10,28) = -TPK%K027(:)*PCONC(:,10)*PCONC(:,2)
-!
-!PTERMS(NO2,K028) = +K028*<HNO4>
- PTERMS(:,2,29) = +TPK%K028(:)*PCONC(:,6)
-!
-!PTERMS(HNO4,K028) = -K028*<HNO4>
- PTERMS(:,6,29) = -TPK%K028(:)*PCONC(:,6)
-!
-!PTERMS(HO2,K028) = +K028*<HNO4>
- PTERMS(:,10,29) = +TPK%K028(:)*PCONC(:,6)
-!
-!PTERMS(NO2,K029) = +K029*<OH>*<HNO4>
- PTERMS(:,2,30) = +TPK%K029(:)*PCONC(:,15)*PCONC(:,6)
-!
-!PTERMS(HNO4,K029) = -K029*<OH>*<HNO4>
- PTERMS(:,6,30) = -TPK%K029(:)*PCONC(:,15)*PCONC(:,6)
-!
-!PTERMS(OH,K029) = -K029*<OH>*<HNO4>
- PTERMS(:,15,30) = -TPK%K029(:)*PCONC(:,15)*PCONC(:,6)
-!
-!PTERMS(O3,K030) = -K030*<HO2>*<O3>
- PTERMS(:,3,31) = -TPK%K030(:)*PCONC(:,10)*PCONC(:,3)
-!
-!PTERMS(HO2,K030) = -K030*<HO2>*<O3>
- PTERMS(:,10,31) = -TPK%K030(:)*PCONC(:,10)*PCONC(:,3)
-!
-!PTERMS(OH,K030) = +K030*<HO2>*<O3>
- PTERMS(:,15,31) = +TPK%K030(:)*PCONC(:,10)*PCONC(:,3)
-!
-!PTERMS(HO2,K031) = -K031*<HO2>*<HO2>
- PTERMS(:,10,32) = -TPK%K031(:)*PCONC(:,10)*PCONC(:,10)
-!
-!PTERMS(H2O2,K031) = +K031*<HO2>*<HO2>
- PTERMS(:,12,32) = +TPK%K031(:)*PCONC(:,10)*PCONC(:,10)
-!
-!PTERMS(HO2,K032) = -K032*<HO2>*<H2O>*<HO2>
- PTERMS(:,10,33) = -TPK%K032(:)*PCONC(:,10)*TPK%H2O(:)*PCONC(:,10)
-!
-!PTERMS(H2O2,K032) = +K032*<HO2>*<H2O>*<HO2>
- PTERMS(:,12,33) = +TPK%K032(:)*PCONC(:,10)*TPK%H2O(:)*PCONC(:,10)
-!
-!PTERMS(NO2,K033) = +0.8*K033*<HO2>*<NO3>
- PTERMS(:,2,34) = +0.8*TPK%K033(:)*PCONC(:,10)*PCONC(:,8)
-!
-!
-RETURN
-END SUBROUTINE SUBT3
-!
-SUBROUTINE SUBT4
-!
-!Indices 81 a 100
-!
-!PTERMS(HNO3,K033) = +0.2*K033*<HO2>*<NO3>
- PTERMS(:,5,34) = +0.2*TPK%K033(:)*PCONC(:,10)*PCONC(:,8)
-!
-!PTERMS(NO3,K033) = -K033*<HO2>*<NO3>
- PTERMS(:,8,34) = -TPK%K033(:)*PCONC(:,10)*PCONC(:,8)
-!
-!PTERMS(HO2,K033) = -K033*<HO2>*<NO3>
- PTERMS(:,10,34) = -TPK%K033(:)*PCONC(:,10)*PCONC(:,8)
-!
-!PTERMS(OH,K033) = +0.8*K033*<HO2>*<NO3>
- PTERMS(:,15,34) = +0.8*TPK%K033(:)*PCONC(:,10)*PCONC(:,8)
-!
-!PTERMS(O3,K034) = -K034*<O3>*<O>
- PTERMS(:,3,35) = -TPK%K034(:)*PCONC(:,3)*TPK%O(:)
-!
-!PTERMS(HO2,K035) = +K035*<OH>*<SO2>
- PTERMS(:,10,36) = +TPK%K035(:)*PCONC(:,15)*PCONC(:,13)
-!
-!PTERMS(SO2,K035) = -K035*<OH>*<SO2>
- PTERMS(:,13,36) = -TPK%K035(:)*PCONC(:,15)*PCONC(:,13)
-!
-!PTERMS(H2SO4,K035) = +K035*<OH>*<SO2>
- PTERMS(:,14,36) = +TPK%K035(:)*PCONC(:,15)*PCONC(:,13)
-!
-!PTERMS(OH,K035) = -K035*<OH>*<SO2>
- PTERMS(:,15,36) = -TPK%K035(:)*PCONC(:,15)*PCONC(:,13)
-!
-!PTERMS(H2O2,K036) = -K036*<H2O2>
- PTERMS(:,12,37) = -TPK%K036(:)*PCONC(:,12)
-!
-!PTERMS(OH,K036) = +2.*K036*<H2O2>
- PTERMS(:,15,37) = +2.*TPK%K036(:)*PCONC(:,12)
-!
-!PTERMS(HO2,K037) = +K037*<OH>*<H2O2>
- PTERMS(:,10,38) = +TPK%K037(:)*PCONC(:,15)*PCONC(:,12)
-!
-!PTERMS(H2O2,K037) = -K037*<OH>*<H2O2>
- PTERMS(:,12,38) = -TPK%K037(:)*PCONC(:,15)*PCONC(:,12)
-!
-!PTERMS(OH,K037) = -K037*<OH>*<H2O2>
- PTERMS(:,15,38) = -TPK%K037(:)*PCONC(:,15)*PCONC(:,12)
-!
-!PTERMS(NO,K038) = -K038*<NO>*<O>
- PTERMS(:,1,39) = -TPK%K038(:)*PCONC(:,1)*TPK%O(:)
-!
-!PTERMS(NO2,K038) = +K038*<NO>*<O>
- PTERMS(:,2,39) = +TPK%K038(:)*PCONC(:,1)*TPK%O(:)
-!
-!PTERMS(NO2,K039) = +K039*<OH>*<HONO>
- PTERMS(:,2,40) = +TPK%K039(:)*PCONC(:,15)*PCONC(:,4)
-!
-!PTERMS(HONO,K039) = -K039*<OH>*<HONO>
- PTERMS(:,4,40) = -TPK%K039(:)*PCONC(:,15)*PCONC(:,4)
-!
-!PTERMS(OH,K039) = -K039*<OH>*<HONO>
- PTERMS(:,15,40) = -TPK%K039(:)*PCONC(:,15)*PCONC(:,4)
-!
-!PTERMS(NO2,K040) = +K040*<OH>*<NO3>
- PTERMS(:,2,41) = +TPK%K040(:)*PCONC(:,15)*PCONC(:,8)
-!
-!
-RETURN
-END SUBROUTINE SUBT4
-!
-SUBROUTINE SUBT5
-!
-!Indices 101 a 120
-!
-!PTERMS(NO3,K040) = -K040*<OH>*<NO3>
- PTERMS(:,8,41) = -TPK%K040(:)*PCONC(:,15)*PCONC(:,8)
-!
-!PTERMS(HO2,K040) = +K040*<OH>*<NO3>
- PTERMS(:,10,41) = +TPK%K040(:)*PCONC(:,15)*PCONC(:,8)
-!
-!PTERMS(OH,K040) = -K040*<OH>*<NO3>
- PTERMS(:,15,41) = -TPK%K040(:)*PCONC(:,15)*PCONC(:,8)
-!
-!PTERMS(NO2,K041) = +2.*K041*<NO3>*<NO3>
- PTERMS(:,2,42) = +2.*TPK%K041(:)*PCONC(:,8)*PCONC(:,8)
-!
-!PTERMS(NO3,K041) = -K041*<NO3>*<NO3>
- PTERMS(:,8,42) = -TPK%K041(:)*PCONC(:,8)*PCONC(:,8)
-!
-!PTERMS(HO2,K042) = -K042*<HO2>*<OH>
- PTERMS(:,10,43) = -TPK%K042(:)*PCONC(:,10)*PCONC(:,15)
-!
-!PTERMS(OH,K042) = -K042*<HO2>*<OH>
- PTERMS(:,15,43) = -TPK%K042(:)*PCONC(:,10)*PCONC(:,15)
-!
-!PTERMS(OH,K043) = -K043*<OH>*<CH4>
- PTERMS(:,15,44) = -TPK%K043(:)*PCONC(:,15)*TPK%CH4(:)
-!
-!PTERMS(RO2T,K043) = +K043*<OH>*<CH4>
- PTERMS(:,85,44) = +TPK%K043(:)*PCONC(:,15)*TPK%CH4(:)
-!
-!PTERMS(RO21,K043) = +K043*<OH>*<CH4>
- PTERMS(:,86,44) = +TPK%K043(:)*PCONC(:,15)*TPK%CH4(:)
-!
-!PTERMS(HO2,K044) = +2.0*K044*<HCHO>
- PTERMS(:,10,45) = +2.0*TPK%K044(:)*PCONC(:,28)
-!
-!PTERMS(CO,K044) = +K044*<HCHO>
- PTERMS(:,11,45) = +TPK%K044(:)*PCONC(:,28)
-!
-!PTERMS(HCHO,K044) = -K044*<HCHO>
- PTERMS(:,28,45) = -TPK%K044(:)*PCONC(:,28)
-!
-!PTERMS(CO,K045) = +K045*<HCHO>
- PTERMS(:,11,46) = +TPK%K045(:)*PCONC(:,28)
-!
-!PTERMS(HCHO,K045) = -K045*<HCHO>
- PTERMS(:,28,46) = -TPK%K045(:)*PCONC(:,28)
-!
-!PTERMS(HO2,K046) = +K046*<OH>*<HCHO>
- PTERMS(:,10,47) = +TPK%K046(:)*PCONC(:,15)*PCONC(:,28)
-!
-!PTERMS(CO,K046) = +K046*<OH>*<HCHO>
- PTERMS(:,11,47) = +TPK%K046(:)*PCONC(:,15)*PCONC(:,28)
-!
-!PTERMS(OH,K046) = -K046*<OH>*<HCHO>
- PTERMS(:,15,47) = -TPK%K046(:)*PCONC(:,15)*PCONC(:,28)
-!
-!PTERMS(HCHO,K046) = -K046*<OH>*<HCHO>
- PTERMS(:,28,47) = -TPK%K046(:)*PCONC(:,15)*PCONC(:,28)
-!
-!PTERMS(HNO3,K047) = +K047*<NO3>*<HCHO>
- PTERMS(:,5,48) = +TPK%K047(:)*PCONC(:,8)*PCONC(:,28)
-!
-!
-RETURN
-END SUBROUTINE SUBT5
-!
-SUBROUTINE SUBT6
-!
-!Indices 121 a 140
-!
-!PTERMS(NO3,K047) = -K047*<NO3>*<HCHO>
- PTERMS(:,8,48) = -TPK%K047(:)*PCONC(:,8)*PCONC(:,28)
-!
-!PTERMS(HO2,K047) = +K047*<NO3>*<HCHO>
- PTERMS(:,10,48) = +TPK%K047(:)*PCONC(:,8)*PCONC(:,28)
-!
-!PTERMS(CO,K047) = +K047*<NO3>*<HCHO>
- PTERMS(:,11,48) = +TPK%K047(:)*PCONC(:,8)*PCONC(:,28)
-!
-!PTERMS(HCHO,K047) = -K047*<NO3>*<HCHO>
- PTERMS(:,28,48) = -TPK%K047(:)*PCONC(:,8)*PCONC(:,28)
-!
-!PTERMS(HO2,K048) = +K048*<OH>*<MEOH>
- PTERMS(:,10,49) = +TPK%K048(:)*PCONC(:,15)*PCONC(:,32)
-!
-!PTERMS(OH,K048) = -K048*<OH>*<MEOH>
- PTERMS(:,15,49) = -TPK%K048(:)*PCONC(:,15)*PCONC(:,32)
-!
-!PTERMS(HCHO,K048) = +K048*<OH>*<MEOH>
- PTERMS(:,28,49) = +TPK%K048(:)*PCONC(:,15)*PCONC(:,32)
-!
-!PTERMS(MEOH,K048) = -K048*<OH>*<MEOH>
- PTERMS(:,32,49) = -TPK%K048(:)*PCONC(:,15)*PCONC(:,32)
-!
-!PTERMS(OH,K049) = -K049*<OH>*<ETHE>
- PTERMS(:,15,50) = -TPK%K049(:)*PCONC(:,15)*PCONC(:,16)
-!
-!PTERMS(ETHE,K049) = -K049*<OH>*<ETHE>
- PTERMS(:,16,50) = -TPK%K049(:)*PCONC(:,15)*PCONC(:,16)
-!
-!PTERMS(RO2T,K049) = +K049*<OH>*<ETHE>
- PTERMS(:,85,50) = +TPK%K049(:)*PCONC(:,15)*PCONC(:,16)
-!
-!PTERMS(NO3,K050) = -K050*<NO3>*<ETHE>
- PTERMS(:,8,51) = -TPK%K050(:)*PCONC(:,8)*PCONC(:,16)
-!
-!PTERMS(ETHE,K050) = -K050*<NO3>*<ETHE>
- PTERMS(:,16,51) = -TPK%K050(:)*PCONC(:,8)*PCONC(:,16)
-!
-!PTERMS(RO2T,K050) = +K050*<NO3>*<ETHE>
- PTERMS(:,85,51) = +TPK%K050(:)*PCONC(:,8)*PCONC(:,16)
-!
-!PTERMS(O3,K051) = -K051*<O3>*<ETHE>
- PTERMS(:,3,52) = -TPK%K051(:)*PCONC(:,3)*PCONC(:,16)
-!
-!PTERMS(HO2,K051) = +0.06*K051*<O3>*<ETHE>
- PTERMS(:,10,52) = +0.06*TPK%K051(:)*PCONC(:,3)*PCONC(:,16)
-!
-!PTERMS(CO,K051) = +0.315*K051*<O3>*<ETHE>
- PTERMS(:,11,52) = +0.315*TPK%K051(:)*PCONC(:,3)*PCONC(:,16)
-!
-!PTERMS(OH,K051) = +0.06*K051*<O3>*<ETHE>
- PTERMS(:,15,52) = +0.06*TPK%K051(:)*PCONC(:,3)*PCONC(:,16)
-!
-!PTERMS(ETHE,K051) = -K051*<O3>*<ETHE>
- PTERMS(:,16,52) = -TPK%K051(:)*PCONC(:,3)*PCONC(:,16)
-!
-!PTERMS(HCHO,K051) = +0.5*K051*<O3>*<ETHE>
- PTERMS(:,28,52) = +0.5*TPK%K051(:)*PCONC(:,3)*PCONC(:,16)
-!
-!
-RETURN
-END SUBROUTINE SUBT6
-!
-SUBROUTINE SUBT7
-!
-!Indices 141 a 160
-!
-!PTERMS(ORA1,K051) = +0.185*K051*<O3>*<ETHE>
- PTERMS(:,43,52) = +0.185*TPK%K051(:)*PCONC(:,3)*PCONC(:,16)
-!
-!PTERMS(HO2,K052) = +K052*<O>*<ETHE>
- PTERMS(:,10,53) = +TPK%K052(:)*TPK%O(:)*PCONC(:,16)
-!
-!PTERMS(CO,K052) = +0.6*K052*<O>*<ETHE>
- PTERMS(:,11,53) = +0.6*TPK%K052(:)*TPK%O(:)*PCONC(:,16)
-!
-!PTERMS(ETHE,K052) = -K052*<O>*<ETHE>
- PTERMS(:,16,53) = -TPK%K052(:)*TPK%O(:)*PCONC(:,16)
-!
-!PTERMS(RO2T,K052) = +K052*<O>*<ETHE>
- PTERMS(:,85,53) = +TPK%K052(:)*TPK%O(:)*PCONC(:,16)
-!
-!PTERMS(RO21,K052) = +0.6*K052*<O>*<ETHE>
- PTERMS(:,86,53) = +0.6*TPK%K052(:)*TPK%O(:)*PCONC(:,16)
-!
-!PTERMS(HO2,K053) = +TPK%CF1*K053*<OH>*<ETOH>
- PTERMS(:,10,54) = +TPK%CF1*TPK%K053(:)*PCONC(:,15)*PCONC(:,33)
-!
-!PTERMS(OH,K053) = -K053*<OH>*<ETOH>
- PTERMS(:,15,54) = -TPK%K053(:)*PCONC(:,15)*PCONC(:,33)
-!
-!PTERMS(ALD2,K053) = +TPK%CF1*K053*<OH>*<ETOH>
- PTERMS(:,29,54) = +TPK%CF1*TPK%K053(:)*PCONC(:,15)*PCONC(:,33)
-!
-!PTERMS(ETOH,K053) = -K053*<OH>*<ETOH>
- PTERMS(:,33,54) = -TPK%K053(:)*PCONC(:,15)*PCONC(:,33)
-!
-!PTERMS(RO2T,K053) = +TPK%CF2*K053*<OH>*<ETOH>
- PTERMS(:,85,54) = +TPK%CF2*TPK%K053(:)*PCONC(:,15)*PCONC(:,33)
-!
-!PTERMS(OH,K054) = -K054*<OH>*<OLEL>
- PTERMS(:,15,55) = -TPK%K054(:)*PCONC(:,15)*PCONC(:,17)
-!
-!PTERMS(OLEL,K054) = -K054*<OH>*<OLEL>
- PTERMS(:,17,55) = -TPK%K054(:)*PCONC(:,15)*PCONC(:,17)
-!
-!PTERMS(RO2T,K054) = +K054*<OH>*<OLEL>
- PTERMS(:,85,55) = +TPK%K054(:)*PCONC(:,15)*PCONC(:,17)
-!
-!PTERMS(NO3,K055) = -K055*<NO3>*<OLEL>
- PTERMS(:,8,56) = -TPK%K055(:)*PCONC(:,8)*PCONC(:,17)
-!
-!PTERMS(OLEL,K055) = -K055*<NO3>*<OLEL>
- PTERMS(:,17,56) = -TPK%K055(:)*PCONC(:,8)*PCONC(:,17)
-!
-!PTERMS(RO2T,K055) = +K055*<NO3>*<OLEL>
- PTERMS(:,85,56) = +TPK%K055(:)*PCONC(:,8)*PCONC(:,17)
-!
-!PTERMS(O3,K056) = -K056*<O3>*<OLEL>
- PTERMS(:,3,57) = -TPK%K056(:)*PCONC(:,3)*PCONC(:,17)
-!
-!PTERMS(HO2,K056) = +0.28*K056*<O3>*<OLEL>
- PTERMS(:,10,57) = +0.28*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)
-!
-!PTERMS(CO,K056) = +0.56*K056*<O3>*<OLEL>
- PTERMS(:,11,57) = +0.56*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)
-!
-!
-RETURN
-END SUBROUTINE SUBT7
-!
-SUBROUTINE SUBT8
-!
-!Indices 161 a 180
-!
-!PTERMS(OH,K056) = +0.36*K056*<O3>*<OLEL>
- PTERMS(:,15,57) = +0.36*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)
-!
-!PTERMS(OLEL,K056) = -K056*<O3>*<OLEL>
- PTERMS(:,17,57) = -TPK%K056(:)*PCONC(:,3)*PCONC(:,17)
-!
-!PTERMS(ALKL,K056) = +0.1*K056*<O3>*<OLEL>
- PTERMS(:,19,57) = +0.1*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)
-!
-!PTERMS(HCHO,K056) = +0.5*K056*<O3>*<OLEL>
- PTERMS(:,28,57) = +0.5*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)
-!
-!PTERMS(ALD2,K056) = +0.5*K056*<O3>*<OLEL>
- PTERMS(:,29,57) = +0.5*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)
-!
-!PTERMS(ORA1,K056) = +0.12*K056*<O3>*<OLEL>
- PTERMS(:,43,57) = +0.12*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)
-!
-!PTERMS(ORA2,K056) = +0.12*K056*<O3>*<OLEL>
- PTERMS(:,44,57) = +0.12*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)
-!
-!PTERMS(RO2T,K056) = +0.28*K056*<O3>*<OLEL>
- PTERMS(:,85,57) = +0.28*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)
-!
-!PTERMS(RO25,K056) = +0.28*K056*<O3>*<OLEL>
- PTERMS(:,87,57) = +0.28*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)
-!
-!PTERMS(OLEL,K057) = -K057*<O>*<OLEL>
- PTERMS(:,17,58) = -TPK%K057(:)*TPK%O(:)*PCONC(:,17)
-!
-!PTERMS(ALKL,K057) = +0.5*K057*<O>*<OLEL>
- PTERMS(:,19,58) = +0.5*TPK%K057(:)*TPK%O(:)*PCONC(:,17)
-!
-!PTERMS(ALD2,K057) = +0.4*K057*<O>*<OLEL>
- PTERMS(:,29,58) = +0.4*TPK%K057(:)*TPK%O(:)*PCONC(:,17)
-!
-!PTERMS(RO2T,K057) = +0.2*K057*<O>*<OLEL>
- PTERMS(:,85,58) = +0.2*TPK%K057(:)*TPK%O(:)*PCONC(:,17)
-!
-!PTERMS(RO25,K057) = +0.1*K057*<O>*<OLEL>
- PTERMS(:,87,58) = +0.1*TPK%K057(:)*TPK%O(:)*PCONC(:,17)
-!
-!PTERMS(OH,K058) = -K058*<OH>*<ALKL>
- PTERMS(:,15,59) = -TPK%K058(:)*PCONC(:,15)*PCONC(:,19)
-!
-!PTERMS(ALKL,K058) = -K058*<OH>*<ALKL>
- PTERMS(:,19,59) = -TPK%K058(:)*PCONC(:,15)*PCONC(:,19)
-!
-!PTERMS(RO2T,K058) = +K058*<OH>*<ALKL>
- PTERMS(:,85,59) = +TPK%K058(:)*PCONC(:,15)*PCONC(:,19)
-!
-!PTERMS(RO25,K058) = +K058*<OH>*<ALKL>
- PTERMS(:,87,59) = +TPK%K058(:)*PCONC(:,15)*PCONC(:,19)
-!
-!PTERMS(HO2,K059) = +K059*<ALD2>
- PTERMS(:,10,60) = +TPK%K059(:)*PCONC(:,29)
-!
-!PTERMS(CO,K059) = +K059*<ALD2>
- PTERMS(:,11,60) = +TPK%K059(:)*PCONC(:,29)
-!
-!
-RETURN
-END SUBROUTINE SUBT8
-!
-SUBROUTINE SUBT9
-!
-!Indices 181 a 200
-!
-!PTERMS(ALD2,K059) = -K059*<ALD2>
- PTERMS(:,29,60) = -TPK%K059(:)*PCONC(:,29)
-!
-!PTERMS(RO2T,K059) = +K059*<ALD2>
- PTERMS(:,85,60) = +TPK%K059(:)*PCONC(:,29)
-!
-!PTERMS(RO25,K059) = +K059*<ALD2>
- PTERMS(:,87,60) = +TPK%K059(:)*PCONC(:,29)
-!
-!PTERMS(OH,K060) = -K060*<OH>*<ALD2>
- PTERMS(:,15,61) = -TPK%K060(:)*PCONC(:,15)*PCONC(:,29)
-!
-!PTERMS(ALD2,K060) = -K060*<OH>*<ALD2>
- PTERMS(:,29,61) = -TPK%K060(:)*PCONC(:,15)*PCONC(:,29)
-!
-!PTERMS(RO2T,K060) = +K060*<OH>*<ALD2>
- PTERMS(:,85,61) = +TPK%K060(:)*PCONC(:,15)*PCONC(:,29)
-!
-!PTERMS(HNO3,K061) = +K061*<NO3>*<ALD2>
- PTERMS(:,5,62) = +TPK%K061(:)*PCONC(:,8)*PCONC(:,29)
-!
-!PTERMS(NO3,K061) = -K061*<NO3>*<ALD2>
- PTERMS(:,8,62) = -TPK%K061(:)*PCONC(:,8)*PCONC(:,29)
-!
-!PTERMS(ALD2,K061) = -K061*<NO3>*<ALD2>
- PTERMS(:,29,62) = -TPK%K061(:)*PCONC(:,8)*PCONC(:,29)
-!
-!PTERMS(RO2T,K061) = +K061*<NO3>*<ALD2>
- PTERMS(:,85,62) = +TPK%K061(:)*PCONC(:,8)*PCONC(:,29)
-!
-!PTERMS(OH,K062) = -K062*<OH>*<KETL>
- PTERMS(:,15,63) = -TPK%K062(:)*PCONC(:,15)*PCONC(:,30)
-!
-!PTERMS(KETL,K062) = -K062*<OH>*<KETL>
- PTERMS(:,30,63) = -TPK%K062(:)*PCONC(:,15)*PCONC(:,30)
-!
-!PTERMS(RO2T,K062) = +K062*<OH>*<KETL>
- PTERMS(:,85,63) = +TPK%K062(:)*PCONC(:,15)*PCONC(:,30)
-!
-!PTERMS(KETL,K063) = -K063*<KETL>
- PTERMS(:,30,64) = -TPK%K063(:)*PCONC(:,30)
-!
-!PTERMS(RO2T,K063) = +2.*K063*<KETL>
- PTERMS(:,85,64) = +2.*TPK%K063(:)*PCONC(:,30)
-!
-!PTERMS(RO25,K063) = +K063*<KETL>
- PTERMS(:,87,64) = +TPK%K063(:)*PCONC(:,30)
-!
-!PTERMS(OH,K064) = -K064*<OH>*<ISOP>
- PTERMS(:,15,65) = -TPK%K064(:)*PCONC(:,15)*PCONC(:,35)
-!
-!PTERMS(ISOP,K064) = -K064*<OH>*<ISOP>
- PTERMS(:,35,65) = -TPK%K064(:)*PCONC(:,15)*PCONC(:,35)
-!
-!PTERMS(RO2T,K064) = +K064*<OH>*<ISOP>
- PTERMS(:,85,65) = +TPK%K064(:)*PCONC(:,15)*PCONC(:,35)
-!
-!PTERMS(NO3,K065) = -K065*<NO3>*<ISOP>
- PTERMS(:,8,66) = -TPK%K065(:)*PCONC(:,8)*PCONC(:,35)
-!
-!
-RETURN
-END SUBROUTINE SUBT9
-!
-SUBROUTINE SUBT10
-!
-!Indices 201 a 220
-!
-!PTERMS(ISOP,K065) = -K065*<NO3>*<ISOP>
- PTERMS(:,35,66) = -TPK%K065(:)*PCONC(:,8)*PCONC(:,35)
-!
-!PTERMS(RO2T,K065) = +K065*<NO3>*<ISOP>
- PTERMS(:,85,66) = +TPK%K065(:)*PCONC(:,8)*PCONC(:,35)
-!
-!PTERMS(O3,K066) = -K066*<O3>*<ISOP>
- PTERMS(:,3,67) = -TPK%K066(:)*PCONC(:,3)*PCONC(:,35)
-!
-!PTERMS(HO2,K066) = +0.366*K066*<O3>*<ISOP>
- PTERMS(:,10,67) = +0.366*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)
-!
-!PTERMS(CO,K066) = +0.461*K066*<O3>*<ISOP>
- PTERMS(:,11,67) = +0.461*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)
-!
-!PTERMS(OH,K066) = +0.664*K066*<O3>*<ISOP>
- PTERMS(:,15,67) = +0.664*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)
-!
-!PTERMS(OLEL,K066) = +0.054*K066*<O3>*<ISOP>
- PTERMS(:,17,67) = +0.054*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)
-!
-!PTERMS(HCHO,K066) = +0.5*K066*<O3>*<ISOP>
- PTERMS(:,28,67) = +0.5*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)
-!
-!PTERMS(ISOP,K066) = -K066*<O3>*<ISOP>
- PTERMS(:,35,67) = -TPK%K066(:)*PCONC(:,3)*PCONC(:,35)
-!
-!PTERMS(MVK,K066) = +0.389*K066*<O3>*<ISOP>
- PTERMS(:,39,67) = +0.389*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)
-!
-!PTERMS(MCR,K066) = +0.17*K066*<O3>*<ISOP>
- PTERMS(:,40,67) = +0.17*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)
-!
-!PTERMS(ORA1,K066) = +0.121*K066*<O3>*<ISOP>
- PTERMS(:,43,67) = +0.121*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)
-!
-!PTERMS(RO2T,K066) = +0.366*K066*<O3>*<ISOP>
- PTERMS(:,85,67) = +0.366*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)
-!
-!PTERMS(OLEL,K067) = +0.925*K067*<O>*<ISOP>
- PTERMS(:,17,68) = +0.925*TPK%K067(:)*TPK%O(:)*PCONC(:,35)
-!
-!PTERMS(ALD2,K067) = +0.075*K067*<O>*<ISOP>
- PTERMS(:,29,68) = +0.075*TPK%K067(:)*TPK%O(:)*PCONC(:,35)
-!
-!PTERMS(ISOP,K067) = -K067*<O>*<ISOP>
- PTERMS(:,35,68) = -TPK%K067(:)*TPK%O(:)*PCONC(:,35)
-!
-!PTERMS(OH,K068) = -K068*<OH>*<MTBE>
- PTERMS(:,15,69) = -TPK%K068(:)*PCONC(:,15)*PCONC(:,38)
-!
-!PTERMS(MTBE,K068) = -K068*<OH>*<MTBE>
- PTERMS(:,38,69) = -TPK%K068(:)*PCONC(:,15)*PCONC(:,38)
-!
-!PTERMS(RO2T,K068) = +K068*<OH>*<MTBE>
- PTERMS(:,85,69) = +TPK%K068(:)*PCONC(:,15)*PCONC(:,38)
-!
-!PTERMS(OH,K069) = -K069*<OH>*<ALCH>
- PTERMS(:,15,70) = -TPK%K069(:)*PCONC(:,15)*PCONC(:,34)
-!
-!
-RETURN
-END SUBROUTINE SUBT10
-!
-SUBROUTINE SUBT11
-!
-!Indices 221 a 240
-!
-!PTERMS(ALCH,K069) = -K069*<OH>*<ALCH>
- PTERMS(:,34,70) = -TPK%K069(:)*PCONC(:,15)*PCONC(:,34)
-!
-!PTERMS(RO2T,K069) = +K069*<OH>*<ALCH>
- PTERMS(:,85,70) = +TPK%K069(:)*PCONC(:,15)*PCONC(:,34)
-!
-!PTERMS(OH,K070) = -K070*<OH>*<KETH>
- PTERMS(:,15,71) = -TPK%K070(:)*PCONC(:,15)*PCONC(:,31)
-!
-!PTERMS(KETH,K070) = -K070*<OH>*<KETH>
- PTERMS(:,31,71) = -TPK%K070(:)*PCONC(:,15)*PCONC(:,31)
-!
-!PTERMS(RO2T,K070) = +K070*<OH>*<KETH>
- PTERMS(:,85,71) = +TPK%K070(:)*PCONC(:,15)*PCONC(:,31)
-!
-!PTERMS(KETH,K071) = -K071*<KETH>
- PTERMS(:,31,72) = -TPK%K071(:)*PCONC(:,31)
-!
-!PTERMS(RO2T,K071) = +2.*K071*<KETH>
- PTERMS(:,85,72) = +2.*TPK%K071(:)*PCONC(:,31)
-!
-!PTERMS(RO25,K071) = +K071*<KETH>
- PTERMS(:,87,72) = +TPK%K071(:)*PCONC(:,31)
-!
-!PTERMS(HNO3,K072) = +K072*<NO3>*<AROO>
- PTERMS(:,5,73) = +TPK%K072(:)*PCONC(:,8)*PCONC(:,24)
-!
-!PTERMS(NO3,K072) = -K072*<NO3>*<AROO>
- PTERMS(:,8,73) = -TPK%K072(:)*PCONC(:,8)*PCONC(:,24)
-!
-!PTERMS(AROO,K072) = -K072*<NO3>*<AROO>
- PTERMS(:,24,73) = -TPK%K072(:)*PCONC(:,8)*PCONC(:,24)
-!
-!PTERMS(HO2,K073) = +0.16*K073*<OH>*<AROO>
- PTERMS(:,10,74) = +0.16*TPK%K073(:)*PCONC(:,15)*PCONC(:,24)
-!
-!PTERMS(OH,K073) = -K073*<OH>*<AROO>
- PTERMS(:,15,74) = -TPK%K073(:)*PCONC(:,15)*PCONC(:,24)
-!
-!PTERMS(AROO,K073) = -K073*<OH>*<AROO>
- PTERMS(:,24,74) = -TPK%K073(:)*PCONC(:,15)*PCONC(:,24)
-!
-!PTERMS(RO2T,K073) = +0.1*K073*<OH>*<AROO>
- PTERMS(:,85,74) = +0.1*TPK%K073(:)*PCONC(:,15)*PCONC(:,24)
-!
-!PTERMS(OH,K074) = -K074*<OH>*<OLEH>
- PTERMS(:,15,75) = -TPK%K074(:)*PCONC(:,15)*PCONC(:,18)
-!
-!PTERMS(OLEH,K074) = -K074*<OH>*<OLEH>
- PTERMS(:,18,75) = -TPK%K074(:)*PCONC(:,15)*PCONC(:,18)
-!
-!PTERMS(RO2T,K074) = +K074*<OH>*<OLEH>
- PTERMS(:,85,75) = +TPK%K074(:)*PCONC(:,15)*PCONC(:,18)
-!
-!PTERMS(NO3,K075) = -K075*<NO3>*<OLEH>
- PTERMS(:,8,76) = -TPK%K075(:)*PCONC(:,8)*PCONC(:,18)
-!
-!PTERMS(OLEH,K075) = -K075*<NO3>*<OLEH>
- PTERMS(:,18,76) = -TPK%K075(:)*PCONC(:,8)*PCONC(:,18)
-!
-!
-RETURN
-END SUBROUTINE SUBT11
-!
-SUBROUTINE SUBT12
-!
-!Indices 241 a 260
-!
-!PTERMS(RO2T,K075) = +K075*<NO3>*<OLEH>
- PTERMS(:,85,76) = +TPK%K075(:)*PCONC(:,8)*PCONC(:,18)
-!
-!PTERMS(O3,K076) = -K076*<O3>*<OLEH>
- PTERMS(:,3,77) = -TPK%K076(:)*PCONC(:,3)*PCONC(:,18)
-!
-!PTERMS(HO2,K076) = +0.28*K076*<O3>*<OLEH>
- PTERMS(:,10,77) = +0.28*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)
-!
-!PTERMS(CO,K076) = +0.56*K076*<O3>*<OLEH>
- PTERMS(:,11,77) = +0.56*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)
-!
-!PTERMS(OH,K076) = +0.36*K076*<O3>*<OLEH>
- PTERMS(:,15,77) = +0.36*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)
-!
-!PTERMS(OLEH,K076) = -K076*<O3>*<OLEH>
- PTERMS(:,18,77) = -TPK%K076(:)*PCONC(:,3)*PCONC(:,18)
-!
-!PTERMS(ALKM,K076) = +0.1*K076*<O3>*<OLEH>
- PTERMS(:,20,77) = +0.1*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)
-!
-!PTERMS(HCHO,K076) = +0.5*K076*<O3>*<OLEH>
- PTERMS(:,28,77) = +0.5*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)
-!
-!PTERMS(ACID,K076) = +0.12*K076*<O3>*<OLEH>
- PTERMS(:,45,77) = +0.12*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)
-!
-!PTERMS(RPR1,K076) = +0.5*K076*<O3>*<OLEH>
- PTERMS(:,69,77) = +0.5*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)
-!
-!PTERMS(RO2T,K076) = +0.28*K076*<O3>*<OLEH>
- PTERMS(:,85,77) = +0.28*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)
-!
-!PTERMS(OLEH,K077) = -K077*<O>*<OLEH>
- PTERMS(:,18,78) = -TPK%K077(:)*TPK%O(:)*PCONC(:,18)
-!
-!PTERMS(ALKM,K077) = +0.5*K077*<O>*<OLEH>
- PTERMS(:,20,78) = +0.5*TPK%K077(:)*TPK%O(:)*PCONC(:,18)
-!
-!PTERMS(RPR1,K077) = +0.4*K077*<O>*<OLEH>
- PTERMS(:,69,78) = +0.4*TPK%K077(:)*TPK%O(:)*PCONC(:,18)
-!
-!PTERMS(RO2T,K077) = +0.2*K077*<O>*<OLEH>
- PTERMS(:,85,78) = +0.2*TPK%K077(:)*TPK%O(:)*PCONC(:,18)
-!
-!PTERMS(OH,K078) = -K078*<OH>*<ALKM>
- PTERMS(:,15,79) = -TPK%K078(:)*PCONC(:,15)*PCONC(:,20)
-!
-!PTERMS(ALKM,K078) = -K078*<OH>*<ALKM>
- PTERMS(:,20,79) = -TPK%K078(:)*PCONC(:,15)*PCONC(:,20)
-!
-!PTERMS(RO2T,K078) = +K078*<OH>*<ALKM>
- PTERMS(:,85,79) = +TPK%K078(:)*PCONC(:,15)*PCONC(:,20)
-!
-!PTERMS(HO2,K079) = +0.16*K079*<OH>*<AROL>
- PTERMS(:,10,80) = +0.16*TPK%K079(:)*PCONC(:,15)*PCONC(:,23)
-!
-!PTERMS(OH,K079) = -K079*<OH>*<AROL>
- PTERMS(:,15,80) = -TPK%K079(:)*PCONC(:,15)*PCONC(:,23)
-!
-!
-RETURN
-END SUBROUTINE SUBT12
-!
-SUBROUTINE SUBT13
-!
-!Indices 261 a 280
-!
-!PTERMS(AROL,K079) = -K079*<OH>*<AROL>
- PTERMS(:,23,80) = -TPK%K079(:)*PCONC(:,15)*PCONC(:,23)
-!
-!PTERMS(AROO,K079) = +0.16*K079*<OH>*<AROL>
- PTERMS(:,24,80) = +0.16*TPK%K079(:)*PCONC(:,15)*PCONC(:,23)
-!
-!PTERMS(RO2T,K079) = +0.06*K079*<OH>*<AROL>
- PTERMS(:,85,80) = +0.06*TPK%K079(:)*PCONC(:,15)*PCONC(:,23)
-!
-!PTERMS(HO2,K080) = +0.16*K080*<OH>*<AROH>
- PTERMS(:,10,81) = +0.16*TPK%K080(:)*PCONC(:,15)*PCONC(:,22)
-!
-!PTERMS(OH,K080) = -K080*<OH>*<AROH>
- PTERMS(:,15,81) = -TPK%K080(:)*PCONC(:,15)*PCONC(:,22)
-!
-!PTERMS(AROH,K080) = -K080*<OH>*<AROH>
- PTERMS(:,22,81) = -TPK%K080(:)*PCONC(:,15)*PCONC(:,22)
-!
-!PTERMS(AROO,K080) = +0.16*K080*<OH>*<AROH>
- PTERMS(:,24,81) = +0.16*TPK%K080(:)*PCONC(:,15)*PCONC(:,22)
-!
-!PTERMS(O3,K081) = +K081*<NO3>*<ARAL>
- PTERMS(:,3,82) = +TPK%K081(:)*PCONC(:,8)*PCONC(:,25)
-!
-!PTERMS(HNO3,K081) = +K081*<NO3>*<ARAL>
- PTERMS(:,5,82) = +TPK%K081(:)*PCONC(:,8)*PCONC(:,25)
-!
-!PTERMS(NO3,K081) = -K081*<NO3>*<ARAL>
- PTERMS(:,8,82) = -TPK%K081(:)*PCONC(:,8)*PCONC(:,25)
-!
-!PTERMS(ARAL,K081) = -K081*<NO3>*<ARAL>
- PTERMS(:,25,82) = -TPK%K081(:)*PCONC(:,8)*PCONC(:,25)
-!
-!PTERMS(ARAC,K081) = +K081*<NO3>*<ARAL>
- PTERMS(:,26,82) = +TPK%K081(:)*PCONC(:,8)*PCONC(:,25)
-!
-!PTERMS(O3,K082) = +TPK%CF39*K082*<OH>*<ARAL>
- PTERMS(:,3,83) = +TPK%CF39*TPK%K082(:)*PCONC(:,15)*PCONC(:,25)
-!
-!PTERMS(HO2,K082) = +TPK%CF48*K082*<OH>*<ARAL>
- PTERMS(:,10,83) = +TPK%CF48*TPK%K082(:)*PCONC(:,15)*PCONC(:,25)
-!
-!PTERMS(OH,K082) = -K082*<OH>*<ARAL>
- PTERMS(:,15,83) = -TPK%K082(:)*PCONC(:,15)*PCONC(:,25)
-!
-!PTERMS(ARAL,K082) = -K082*<OH>*<ARAL>
- PTERMS(:,25,83) = -TPK%K082(:)*PCONC(:,15)*PCONC(:,25)
-!
-!PTERMS(ARAC,K082) = +TPK%CF39*K082*<OH>*<ARAL>
- PTERMS(:,26,83) = +TPK%CF39*TPK%K082(:)*PCONC(:,15)*PCONC(:,25)
-!
-!PTERMS(RPRL,K082) = +0.9983609*K082*<OH>*<ARAL>
- PTERMS(:,75,83) = +0.9983609*TPK%K082(:)*PCONC(:,15)*PCONC(:,25)
-!
-!PTERMS(RO2T,K082) = +TPK%CF45*K082*<OH>*<ARAL>
- PTERMS(:,85,83) = +TPK%CF45*TPK%K082(:)*PCONC(:,15)*PCONC(:,25)
-!
-!PTERMS(HO2,K083) = +0.16*K083*<OH>*<ARAC>
- PTERMS(:,10,84) = +0.16*TPK%K083(:)*PCONC(:,15)*PCONC(:,26)
-!
-!
-RETURN
-END SUBROUTINE SUBT13
-!
-SUBROUTINE SUBT14
-!
-!Indices 281 a 300
-!
-!PTERMS(OH,K083) = -K083*<OH>*<ARAC>
- PTERMS(:,15,84) = -TPK%K083(:)*PCONC(:,15)*PCONC(:,26)
-!
-!PTERMS(ARAC,K083) = -K083*<OH>*<ARAC>
- PTERMS(:,26,84) = -TPK%K083(:)*PCONC(:,15)*PCONC(:,26)
-!
-!PTERMS(URG7,K083) = +0.1599999*K083*<OH>*<ARAC>
- PTERMS(:,60,84) = +0.1599999*TPK%K083(:)*PCONC(:,15)*PCONC(:,26)
-!
-!PTERMS(RO2T,K083) = +0.1*K083*<OH>*<ARAC>
- PTERMS(:,85,84) = +0.1*TPK%K083(:)*PCONC(:,15)*PCONC(:,26)
-!
-!PTERMS(OH,K084) = -K084*<OH>*<BIOL>
- PTERMS(:,15,85) = -TPK%K084(:)*PCONC(:,15)*PCONC(:,36)
-!
-!PTERMS(BIOL,K084) = -K084*<OH>*<BIOL>
- PTERMS(:,36,85) = -TPK%K084(:)*PCONC(:,15)*PCONC(:,36)
-!
-!PTERMS(RO2T,K084) = +K084*<OH>*<BIOL>
- PTERMS(:,85,85) = +TPK%K084(:)*PCONC(:,15)*PCONC(:,36)
-!
-!PTERMS(NO3,K085) = -K085*<NO3>*<BIOL>
- PTERMS(:,8,86) = -TPK%K085(:)*PCONC(:,8)*PCONC(:,36)
-!
-!PTERMS(BIOL,K085) = -K085*<NO3>*<BIOL>
- PTERMS(:,36,86) = -TPK%K085(:)*PCONC(:,8)*PCONC(:,36)
-!
-!PTERMS(RO2T,K085) = +K085*<NO3>*<BIOL>
- PTERMS(:,85,86) = +TPK%K085(:)*PCONC(:,8)*PCONC(:,36)
-!
-!PTERMS(O3,K086) = -K086*<O3>*<BIOL>
- PTERMS(:,3,87) = -TPK%K086(:)*PCONC(:,3)*PCONC(:,36)
-!
-!PTERMS(HO2,K086) = +0.445*K086*<O3>*<BIOL>
- PTERMS(:,10,87) = +0.445*TPK%K086(:)*PCONC(:,3)*PCONC(:,36)
-!
-!PTERMS(CO,K086) = +0.445*K086*<O3>*<BIOL>
- PTERMS(:,11,87) = +0.445*TPK%K086(:)*PCONC(:,3)*PCONC(:,36)
-!
-!PTERMS(H2O2,K086) = +0.055*K086*<O3>*<BIOL>
- PTERMS(:,12,87) = +0.055*TPK%K086(:)*PCONC(:,3)*PCONC(:,36)
-!
-!PTERMS(OH,K086) = +0.89*K086*<O3>*<BIOL>
- PTERMS(:,15,87) = +0.89*TPK%K086(:)*PCONC(:,3)*PCONC(:,36)
-!
-!PTERMS(BIOL,K086) = -K086*<O3>*<BIOL>
- PTERMS(:,36,87) = -TPK%K086(:)*PCONC(:,3)*PCONC(:,36)
-!
-!PTERMS(URG4,K086) = +5.5000000E-02*K086*<O3>*<BIOL>
- PTERMS(:,53,87) = +5.5000000E-02*TPK%K086(:)*PCONC(:,3)*PCONC(:,36)
-!
-!PTERMS(RPR3,K086) = +0.055*K086*<O3>*<BIOL>
- PTERMS(:,57,87) = +0.055*TPK%K086(:)*PCONC(:,3)*PCONC(:,36)
-!
-!PTERMS(RO2T,K086) = +0.445*K086*<O3>*<BIOL>
- PTERMS(:,85,87) = +0.445*TPK%K086(:)*PCONC(:,3)*PCONC(:,36)
-!
-!PTERMS(BIOL,K087) = -K087*<O>*<BIOL>
- PTERMS(:,36,88) = -TPK%K087(:)*TPK%O(:)*PCONC(:,36)
-!
-!
-RETURN
-END SUBROUTINE SUBT14
-!
-SUBROUTINE SUBT15
-!
-!Indices 301 a 320
-!
-!PTERMS(URG10,K087) = +0.7500000*K087*<O>*<BIOL>
- PTERMS(:,68,88) = +0.7500000*TPK%K087(:)*TPK%O(:)*PCONC(:,36)
-!
-!PTERMS(OH,K088) = -K088*<OH>*<BIOH>
- PTERMS(:,15,89) = -TPK%K088(:)*PCONC(:,15)*PCONC(:,37)
-!
-!PTERMS(BIOH,K088) = -K088*<OH>*<BIOH>
- PTERMS(:,37,89) = -TPK%K088(:)*PCONC(:,15)*PCONC(:,37)
-!
-!PTERMS(RO2T,K088) = +K088*<OH>*<BIOH>
- PTERMS(:,85,89) = +TPK%K088(:)*PCONC(:,15)*PCONC(:,37)
-!
-!PTERMS(NO3,K089) = -K089*<NO3>*<BIOH>
- PTERMS(:,8,90) = -TPK%K089(:)*PCONC(:,8)*PCONC(:,37)
-!
-!PTERMS(BIOH,K089) = -K089*<NO3>*<BIOH>
- PTERMS(:,37,90) = -TPK%K089(:)*PCONC(:,8)*PCONC(:,37)
-!
-!PTERMS(RO2T,K089) = +K089*<NO3>*<BIOH>
- PTERMS(:,85,90) = +TPK%K089(:)*PCONC(:,8)*PCONC(:,37)
-!
-!PTERMS(O3,K090) = -K090*<O3>*<BIOH>
- PTERMS(:,3,91) = -TPK%K090(:)*PCONC(:,3)*PCONC(:,37)
-!
-!PTERMS(CO,K090) = +0.445*K090*<O3>*<BIOH>
- PTERMS(:,11,91) = +0.445*TPK%K090(:)*PCONC(:,3)*PCONC(:,37)
-!
-!PTERMS(H2O2,K090) = +0.055*K090*<O3>*<BIOH>
- PTERMS(:,12,91) = +0.055*TPK%K090(:)*PCONC(:,3)*PCONC(:,37)
-!
-!PTERMS(OH,K090) = +0.89*K090*<O3>*<BIOH>
- PTERMS(:,15,91) = +0.89*TPK%K090(:)*PCONC(:,3)*PCONC(:,37)
-!
-!PTERMS(BIOH,K090) = -K090*<O3>*<BIOH>
- PTERMS(:,37,91) = -TPK%K090(:)*PCONC(:,3)*PCONC(:,37)
-!
-!PTERMS(UR8,K090) = +0.055*K090*<O3>*<BIOH>
- PTERMS(:,54,91) = +0.055*TPK%K090(:)*PCONC(:,3)*PCONC(:,37)
-!
-!PTERMS(UR7,K090) = +0.055*K090*<O3>*<BIOH>
- PTERMS(:,56,91) = +0.055*TPK%K090(:)*PCONC(:,3)*PCONC(:,37)
-!
-!PTERMS(RO2T,K090) = +0.89*K090*<O3>*<BIOH>
- PTERMS(:,85,91) = +0.89*TPK%K090(:)*PCONC(:,3)*PCONC(:,37)
-!
-!PTERMS(BIOH,K091) = -K091*<O>*<BIOH>
- PTERMS(:,37,92) = -TPK%K091(:)*TPK%O(:)*PCONC(:,37)
-!
-!PTERMS(HO2,K092) = +0.16*K092*<OH>*<PAH>
- PTERMS(:,10,93) = +0.16*TPK%K092(:)*PCONC(:,15)*PCONC(:,27)
-!
-!PTERMS(OH,K092) = -K092*<OH>*<PAH>
- PTERMS(:,15,93) = -TPK%K092(:)*PCONC(:,15)*PCONC(:,27)
-!
-!PTERMS(PAH,K092) = -K092*<OH>*<PAH>
- PTERMS(:,27,93) = -TPK%K092(:)*PCONC(:,15)*PCONC(:,27)
-!
-!PTERMS(URG8,K092) = +0.1600000*K092*<OH>*<PAH>
- PTERMS(:,64,93) = +0.1600000*TPK%K092(:)*PCONC(:,15)*PCONC(:,27)
-!
-!
-RETURN
-END SUBROUTINE SUBT15
-!
-SUBROUTINE SUBT16
-!
-!Indices 321 a 340
-!
-!PTERMS(RO2T,K092) = +0.1*K092*<OH>*<PAH>
- PTERMS(:,85,93) = +0.1*TPK%K092(:)*PCONC(:,15)*PCONC(:,27)
-!
-!PTERMS(OH,K093) = -K093*<OH>*<ALKH>
- PTERMS(:,15,94) = -TPK%K093(:)*PCONC(:,15)*PCONC(:,21)
-!
-!PTERMS(ALKH,K093) = -K093*<OH>*<ALKH>
- PTERMS(:,21,94) = -TPK%K093(:)*PCONC(:,15)*PCONC(:,21)
-!
-!PTERMS(RO2T,K093) = +K093*<OH>*<ALKH>
- PTERMS(:,85,94) = +TPK%K093(:)*PCONC(:,15)*PCONC(:,21)
-!
-!PTERMS(HO2,K094) = -K094*<HO2>*<RO2T>
- PTERMS(:,10,95) = -TPK%K094(:)*PCONC(:,10)*PCONC(:,85)
-!
-!PTERMS(RO2T,K094) = -K094*<HO2>*<RO2T>
- PTERMS(:,85,95) = -TPK%K094(:)*PCONC(:,10)*PCONC(:,85)
-!
-!PTERMS(NO,K095) = -K095*<NO>*<RO2T>
- PTERMS(:,1,96) = -TPK%K095(:)*PCONC(:,1)*PCONC(:,85)
-!
-!PTERMS(RO2T,K095) = -K095*<NO>*<RO2T>
- PTERMS(:,85,96) = -TPK%K095(:)*PCONC(:,1)*PCONC(:,85)
-!
-!PTERMS(RO2T,K096) = -K096*<RO2T>*<RO2T>
- PTERMS(:,85,97) = -TPK%K096(:)*PCONC(:,85)*PCONC(:,85)
-!
-!PTERMS(RO2T,K097) = +K097*<RAD2>
- PTERMS(:,85,98) = +TPK%K097(:)*TPK%RAD2(:)
-!
-!PTERMS(RO2T,K098) = +K098*<RAD3>
- PTERMS(:,85,99) = +TPK%K098(:)*TPK%RAD3(:)
-!
-!PTERMS(RO2T,K099) = +K099*<RAD4>
- PTERMS(:,85,100) = +TPK%K099(:)*TPK%RAD4(:)
-!
-!PTERMS(RO2T,K100) = +K100*<RAD5>
- PTERMS(:,85,101) = +TPK%K100(:)*TPK%RAD5(:)
-!
-!PTERMS(RO2T,K101) = +K101*<RAD6>
- PTERMS(:,85,102) = +TPK%K101(:)*TPK%RAD6(:)
-!
-!PTERMS(RO2T,K102) = +K102*<RAD7>
- PTERMS(:,85,103) = +TPK%K102(:)*TPK%RAD7(:)
-!
-!PTERMS(NO2,K103) = -K103*<NO2>*<RAD1>
- PTERMS(:,2,104) = -TPK%K103(:)*PCONC(:,2)*TPK%RAD1(:)
-!
-!PTERMS(RPR4,K103) = +K103*<NO2>*<RAD1>
- PTERMS(:,61,104) = +TPK%K103(:)*PCONC(:,2)*TPK%RAD1(:)
-!
-!PTERMS(NO2,K104) = -K104*<NO2>*<RAD2>
- PTERMS(:,2,105) = -TPK%K104(:)*PCONC(:,2)*TPK%RAD2(:)
-!
-!PTERMS(RPR4,K104) = +K104*<NO2>*<RAD2>
- PTERMS(:,61,105) = +TPK%K104(:)*PCONC(:,2)*TPK%RAD2(:)
-!
-!PTERMS(NO2,K105) = -K105*<NO2>*<RAD3>
- PTERMS(:,2,106) = -TPK%K105(:)*PCONC(:,2)*TPK%RAD3(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT16
-!
-SUBROUTINE SUBT17
-!
-!Indices 341 a 360
-!
-!PTERMS(NO2,K106) = -K106*<NO2>*<RAD4>
- PTERMS(:,2,107) = -TPK%K106(:)*PCONC(:,2)*TPK%RAD4(:)
-!
-!PTERMS(NO2,K107) = -K107*<NO2>*<RAD5>
- PTERMS(:,2,108) = -TPK%K107(:)*PCONC(:,2)*TPK%RAD5(:)
-!
-!PTERMS(RPR5,K107) = +K107*<NO2>*<RAD5>
- PTERMS(:,70,108) = +TPK%K107(:)*PCONC(:,2)*TPK%RAD5(:)
-!
-!PTERMS(NO2,K108) = -K108*<NO2>*<RAD6>
- PTERMS(:,2,109) = -TPK%K108(:)*PCONC(:,2)*TPK%RAD6(:)
-!
-!PTERMS(URG7,K108) = +0.9999993*K108*<NO2>*<RAD6>
- PTERMS(:,60,109) = +0.9999993*TPK%K108(:)*PCONC(:,2)*TPK%RAD6(:)
-!
-!PTERMS(NO2,K109) = -K109*<NO2>*<RAD7>
- PTERMS(:,2,110) = -TPK%K109(:)*PCONC(:,2)*TPK%RAD7(:)
-!
-!PTERMS(URG8,K109) = +1.0000000*K109*<NO2>*<RAD7>
- PTERMS(:,64,110) = +1.0000000*TPK%K109(:)*PCONC(:,2)*TPK%RAD7(:)
-!
-!PTERMS(NO,K110) = -K110*<NO>*<RO21>
- PTERMS(:,1,111) = -TPK%K110(:)*PCONC(:,1)*PCONC(:,86)
-!
-!PTERMS(NO2,K110) = +K110*<NO>*<RO21>
- PTERMS(:,2,111) = +TPK%K110(:)*PCONC(:,1)*PCONC(:,86)
-!
-!PTERMS(HO2,K110) = +K110*<NO>*<RO21>
- PTERMS(:,10,111) = +TPK%K110(:)*PCONC(:,1)*PCONC(:,86)
-!
-!PTERMS(HCHO,K110) = +K110*<NO>*<RO21>
- PTERMS(:,28,111) = +TPK%K110(:)*PCONC(:,1)*PCONC(:,86)
-!
-!PTERMS(RO21,K110) = -K110*<NO>*<RO21>
- PTERMS(:,86,111) = -TPK%K110(:)*PCONC(:,1)*PCONC(:,86)
-!
-!PTERMS(HO2,K111) = +K111*<RO2T>*<RO21>
- PTERMS(:,10,112) = +TPK%K111(:)*PCONC(:,85)*PCONC(:,86)
-!
-!PTERMS(HCHO,K111) = +K111*<RO2T>*<RO21>
- PTERMS(:,28,112) = +TPK%K111(:)*PCONC(:,85)*PCONC(:,86)
-!
-!PTERMS(RO2T,K111) = -K111*<RO2T>*<RO21>
- PTERMS(:,85,112) = -TPK%K111(:)*PCONC(:,85)*PCONC(:,86)
-!
-!PTERMS(RO21,K111) = -K111*<RO2T>*<RO21>
- PTERMS(:,86,112) = -TPK%K111(:)*PCONC(:,85)*PCONC(:,86)
-!
-!PTERMS(HO2,K112) = -K112*<HO2>*<RO21>
- PTERMS(:,10,113) = -TPK%K112(:)*PCONC(:,10)*PCONC(:,86)
-!
-!PTERMS(OH,K112) = +K112*<HO2>*<RO21>
- PTERMS(:,15,113) = +TPK%K112(:)*PCONC(:,10)*PCONC(:,86)
-!
-!PTERMS(HCHO,K112) = +K112*<HO2>*<RO21>
- PTERMS(:,28,113) = +TPK%K112(:)*PCONC(:,10)*PCONC(:,86)
-!
-!PTERMS(RO21,K112) = -K112*<HO2>*<RO21>
- PTERMS(:,86,113) = -TPK%K112(:)*PCONC(:,10)*PCONC(:,86)
-!
-!
-RETURN
-END SUBROUTINE SUBT17
-!
-SUBROUTINE SUBT18
-!
-!Indices 361 a 380
-!
-!PTERMS(NO,K113) = -K113*<NO>*<RO22>
- PTERMS(:,1,114) = -TPK%K113(:)*PCONC(:,1)*TPK%RO22(:)
-!
-!PTERMS(NO2,K113) = +K113*<NO>*<RO22>
- PTERMS(:,2,114) = +TPK%K113(:)*PCONC(:,1)*TPK%RO22(:)
-!
-!PTERMS(HO2,K113) = +K113*<NO>*<RO22>
- PTERMS(:,10,114) = +TPK%K113(:)*PCONC(:,1)*TPK%RO22(:)
-!
-!PTERMS(HCHO,K113) = +K113*<NO>*<RO22>
- PTERMS(:,28,114) = +TPK%K113(:)*PCONC(:,1)*TPK%RO22(:)
-!
-!PTERMS(ALD2,K113) = +K113*<NO>*<RO22>
- PTERMS(:,29,114) = +TPK%K113(:)*PCONC(:,1)*TPK%RO22(:)
-!
-!PTERMS(HO2,K114) = +K114*<RO2T>*<RO22>
- PTERMS(:,10,115) = +TPK%K114(:)*PCONC(:,85)*TPK%RO22(:)
-!
-!PTERMS(HCHO,K114) = +K114*<RO2T>*<RO22>
- PTERMS(:,28,115) = +TPK%K114(:)*PCONC(:,85)*TPK%RO22(:)
-!
-!PTERMS(ALD2,K114) = +K114*<RO2T>*<RO22>
- PTERMS(:,29,115) = +TPK%K114(:)*PCONC(:,85)*TPK%RO22(:)
-!
-!PTERMS(RO2T,K114) = -K114*<RO2T>*<RO22>
- PTERMS(:,85,115) = -TPK%K114(:)*PCONC(:,85)*TPK%RO22(:)
-!
-!PTERMS(HO2,K115) = -K115*<HO2>*<RO22>
- PTERMS(:,10,116) = -TPK%K115(:)*PCONC(:,10)*TPK%RO22(:)
-!
-!PTERMS(OH,K115) = +K115*<HO2>*<RO22>
- PTERMS(:,15,116) = +TPK%K115(:)*PCONC(:,10)*TPK%RO22(:)
-!
-!PTERMS(HCHO,K115) = +K115*<HO2>*<RO22>
- PTERMS(:,28,116) = +TPK%K115(:)*PCONC(:,10)*TPK%RO22(:)
-!
-!PTERMS(ALD2,K115) = +K115*<HO2>*<RO22>
- PTERMS(:,29,116) = +TPK%K115(:)*PCONC(:,10)*TPK%RO22(:)
-!
-!PTERMS(NO,K116) = -K116*<NO>*<RO23>
- PTERMS(:,1,117) = -TPK%K116(:)*PCONC(:,1)*TPK%RO23(:)
-!
-!PTERMS(NO2,K116) = +2.*K116*<NO>*<RO23>
- PTERMS(:,2,117) = +2.*TPK%K116(:)*PCONC(:,1)*TPK%RO23(:)
-!
-!PTERMS(HCHO,K116) = +K116*<NO>*<RO23>
- PTERMS(:,28,117) = +TPK%K116(:)*PCONC(:,1)*TPK%RO23(:)
-!
-!PTERMS(ALD2,K116) = +K116*<NO>*<RO23>
- PTERMS(:,29,117) = +TPK%K116(:)*PCONC(:,1)*TPK%RO23(:)
-!
-!PTERMS(NO2,K117) = +K117*<RO2T>*<RO23>
- PTERMS(:,2,118) = +TPK%K117(:)*PCONC(:,85)*TPK%RO23(:)
-!
-!PTERMS(HO2,K117) = +K117*<RO2T>*<RO23>
- PTERMS(:,10,118) = +TPK%K117(:)*PCONC(:,85)*TPK%RO23(:)
-!
-!PTERMS(HCHO,K117) = +K117*<RO2T>*<RO23>
- PTERMS(:,28,118) = +TPK%K117(:)*PCONC(:,85)*TPK%RO23(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT18
-!
-SUBROUTINE SUBT19
-!
-!Indices 381 a 400
-!
-!PTERMS(ALD2,K117) = +K117*<RO2T>*<RO23>
- PTERMS(:,29,118) = +TPK%K117(:)*PCONC(:,85)*TPK%RO23(:)
-!
-!PTERMS(RO2T,K117) = -K117*<RO2T>*<RO23>
- PTERMS(:,85,118) = -TPK%K117(:)*PCONC(:,85)*TPK%RO23(:)
-!
-!PTERMS(NO2,K118) = +K118*<HO2>*<RO23>
- PTERMS(:,2,119) = +TPK%K118(:)*PCONC(:,10)*TPK%RO23(:)
-!
-!PTERMS(HO2,K118) = -K118*<HO2>*<RO23>
- PTERMS(:,10,119) = -TPK%K118(:)*PCONC(:,10)*TPK%RO23(:)
-!
-!PTERMS(OH,K118) = +K118*<HO2>*<RO23>
- PTERMS(:,15,119) = +TPK%K118(:)*PCONC(:,10)*TPK%RO23(:)
-!
-!PTERMS(HCHO,K118) = +K118*<HO2>*<RO23>
- PTERMS(:,28,119) = +TPK%K118(:)*PCONC(:,10)*TPK%RO23(:)
-!
-!PTERMS(ALD2,K118) = +K118*<HO2>*<RO23>
- PTERMS(:,29,119) = +TPK%K118(:)*PCONC(:,10)*TPK%RO23(:)
-!
-!PTERMS(NO,K119) = -K119*<NO>*<RO24>
- PTERMS(:,1,120) = -TPK%K119(:)*PCONC(:,1)*TPK%RO24(:)
-!
-!PTERMS(NO2,K119) = +K119*<NO>*<RO24>
- PTERMS(:,2,120) = +TPK%K119(:)*PCONC(:,1)*TPK%RO24(:)
-!
-!PTERMS(HO2,K119) = +K119*<NO>*<RO24>
- PTERMS(:,10,120) = +TPK%K119(:)*PCONC(:,1)*TPK%RO24(:)
-!
-!PTERMS(CO,K119) = +K119*<NO>*<RO24>
- PTERMS(:,11,120) = +TPK%K119(:)*PCONC(:,1)*TPK%RO24(:)
-!
-!PTERMS(HCHO,K119) = +K119*<NO>*<RO24>
- PTERMS(:,28,120) = +TPK%K119(:)*PCONC(:,1)*TPK%RO24(:)
-!
-!PTERMS(HO2,K120) = +K120*<RO2T>*<RO24>
- PTERMS(:,10,121) = +TPK%K120(:)*PCONC(:,85)*TPK%RO24(:)
-!
-!PTERMS(CO,K120) = +K120*<RO2T>*<RO24>
- PTERMS(:,11,121) = +TPK%K120(:)*PCONC(:,85)*TPK%RO24(:)
-!
-!PTERMS(HCHO,K120) = +K120*<RO2T>*<RO24>
- PTERMS(:,28,121) = +TPK%K120(:)*PCONC(:,85)*TPK%RO24(:)
-!
-!PTERMS(RO2T,K120) = -K120*<RO2T>*<RO24>
- PTERMS(:,85,121) = -TPK%K120(:)*PCONC(:,85)*TPK%RO24(:)
-!
-!PTERMS(HO2,K121) = -K121*<HO2>*<RO24>
- PTERMS(:,10,122) = -TPK%K121(:)*PCONC(:,10)*TPK%RO24(:)
-!
-!PTERMS(CO,K121) = +K121*<HO2>*<RO24>
- PTERMS(:,11,122) = +TPK%K121(:)*PCONC(:,10)*TPK%RO24(:)
-!
-!PTERMS(OH,K121) = +K121*<HO2>*<RO24>
- PTERMS(:,15,122) = +TPK%K121(:)*PCONC(:,10)*TPK%RO24(:)
-!
-!PTERMS(HCHO,K121) = +K121*<HO2>*<RO24>
- PTERMS(:,28,122) = +TPK%K121(:)*PCONC(:,10)*TPK%RO24(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT19
-!
-SUBROUTINE SUBT20
-!
-!Indices 401 a 420
-!
-!PTERMS(NO,K122) = -K122*<NO>*<RO25>
- PTERMS(:,1,123) = -TPK%K122(:)*PCONC(:,1)*PCONC(:,87)
-!
-!PTERMS(NO2,K122) = +TPK%CF4*K122*<NO>*<RO25>
- PTERMS(:,2,123) = +TPK%CF4*TPK%K122(:)*PCONC(:,1)*PCONC(:,87)
-!
-!PTERMS(HO2,K122) = +TPK%CF4*K122*<NO>*<RO25>
- PTERMS(:,10,123) = +TPK%CF4*TPK%K122(:)*PCONC(:,1)*PCONC(:,87)
-!
-!PTERMS(ALKL,K122) = +TPK%CF3*K122*<NO>*<RO25>
- PTERMS(:,19,123) = +TPK%CF3*TPK%K122(:)*PCONC(:,1)*PCONC(:,87)
-!
-!PTERMS(ALD2,K122) = +TPK%CF4*K122*<NO>*<RO25>
- PTERMS(:,29,123) = +TPK%CF4*TPK%K122(:)*PCONC(:,1)*PCONC(:,87)
-!
-!PTERMS(RO25,K122) = -K122*<NO>*<RO25>
- PTERMS(:,87,123) = -TPK%K122(:)*PCONC(:,1)*PCONC(:,87)
-!
-!PTERMS(HO2,K123) = +K123*<RO2T>*<RO25>
- PTERMS(:,10,124) = +TPK%K123(:)*PCONC(:,85)*PCONC(:,87)
-!
-!PTERMS(ALD2,K123) = +K123*<RO2T>*<RO25>
- PTERMS(:,29,124) = +TPK%K123(:)*PCONC(:,85)*PCONC(:,87)
-!
-!PTERMS(RO2T,K123) = -K123*<RO2T>*<RO25>
- PTERMS(:,85,124) = -TPK%K123(:)*PCONC(:,85)*PCONC(:,87)
-!
-!PTERMS(RO25,K123) = -K123*<RO2T>*<RO25>
- PTERMS(:,87,124) = -TPK%K123(:)*PCONC(:,85)*PCONC(:,87)
-!
-!PTERMS(HO2,K124) = -K124*<HO2>*<RO25>
- PTERMS(:,10,125) = -TPK%K124(:)*PCONC(:,10)*PCONC(:,87)
-!
-!PTERMS(OH,K124) = +K124*<HO2>*<RO25>
- PTERMS(:,15,125) = +TPK%K124(:)*PCONC(:,10)*PCONC(:,87)
-!
-!PTERMS(ALD2,K124) = +K124*<HO2>*<RO25>
- PTERMS(:,29,125) = +TPK%K124(:)*PCONC(:,10)*PCONC(:,87)
-!
-!PTERMS(RO25,K124) = -K124*<HO2>*<RO25>
- PTERMS(:,87,125) = -TPK%K124(:)*PCONC(:,10)*PCONC(:,87)
-!
-!PTERMS(NO,K125) = -K125*<NO>*<RO26>
- PTERMS(:,1,126) = -TPK%K125(:)*PCONC(:,1)*TPK%RO26(:)
-!
-!PTERMS(NO2,K125) = +K125*<NO>*<RO26>
- PTERMS(:,2,126) = +TPK%K125(:)*PCONC(:,1)*TPK%RO26(:)
-!
-!PTERMS(RO2T,K125) = +K125*<NO>*<RO26>
- PTERMS(:,85,126) = +TPK%K125(:)*PCONC(:,1)*TPK%RO26(:)
-!
-!PTERMS(RO25,K125) = +K125*<NO>*<RO26>
- PTERMS(:,87,126) = +TPK%K125(:)*PCONC(:,1)*TPK%RO26(:)
-!
-!PTERMS(NO2,K126) = -K126*<NO2>*<RO26>
- PTERMS(:,2,127) = -TPK%K126(:)*PCONC(:,2)*TPK%RO26(:)
-!
-!PTERMS(PAN1,K126) = +K126*<NO2>*<RO26>
- PTERMS(:,77,127) = +TPK%K126(:)*PCONC(:,2)*TPK%RO26(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT20
-!
-SUBROUTINE SUBT21
-!
-!Indices 421 a 440
-!
-!PTERMS(NO2,K127) = -K127*<NO2>*<RO28>
- PTERMS(:,2,128) = -TPK%K127(:)*PCONC(:,2)*TPK%RO28(:)
-!
-!PTERMS(PAN2,K127) = +K127*<NO2>*<RO28>
- PTERMS(:,78,128) = +TPK%K127(:)*PCONC(:,2)*TPK%RO28(:)
-!
-!PTERMS(NO2,K128) = -K128*<NO2>*<RO239>
- PTERMS(:,2,129) = -TPK%K128(:)*PCONC(:,2)*TPK%RO239(:)
-!
-!PTERMS(PAN3,K128) = +K128*<NO2>*<RO239>
- PTERMS(:,79,129) = +TPK%K128(:)*PCONC(:,2)*TPK%RO239(:)
-!
-!PTERMS(NO2,K129) = -K129*<NO2>*<RO248>
- PTERMS(:,2,130) = -TPK%K129(:)*PCONC(:,2)*TPK%RO248(:)
-!
-!PTERMS(PAN4,K129) = +K129*<NO2>*<RO248>
- PTERMS(:,80,130) = +TPK%K129(:)*PCONC(:,2)*TPK%RO248(:)
-!
-!PTERMS(NO2,K130) = -K130*<NO2>*<RO250>
- PTERMS(:,2,131) = -TPK%K130(:)*PCONC(:,2)*TPK%RO250(:)
-!
-!PTERMS(APAN,K130) = +K130*<NO2>*<RO250>
- PTERMS(:,76,131) = +TPK%K130(:)*PCONC(:,2)*TPK%RO250(:)
-!
-!PTERMS(NO2,K131) = -K131*<NO2>*<RO254>
- PTERMS(:,2,132) = -TPK%K131(:)*PCONC(:,2)*TPK%RO254(:)
-!
-!PTERMS(PAN6,K131) = +K131*<NO2>*<RO254>
- PTERMS(:,81,132) = +TPK%K131(:)*PCONC(:,2)*TPK%RO254(:)
-!
-!PTERMS(NO2,K132) = -K132*<NO2>*<RO255>
- PTERMS(:,2,133) = -TPK%K132(:)*PCONC(:,2)*TPK%RO255(:)
-!
-!PTERMS(PAN7,K132) = +K132*<NO2>*<RO255>
- PTERMS(:,82,133) = +TPK%K132(:)*PCONC(:,2)*TPK%RO255(:)
-!
-!PTERMS(NO2,K133) = -K133*<NO2>*<RO257>
- PTERMS(:,2,134) = -TPK%K133(:)*PCONC(:,2)*TPK%RO257(:)
-!
-!PTERMS(APAN,K133) = +K133*<NO2>*<RO257>
- PTERMS(:,76,134) = +TPK%K133(:)*PCONC(:,2)*TPK%RO257(:)
-!
-!PTERMS(NO2,K134) = -K134*<NO2>*<RO258>
- PTERMS(:,2,135) = -TPK%K134(:)*PCONC(:,2)*TPK%RO258(:)
-!
-!PTERMS(PN10,K134) = +K134*<NO2>*<RO258>
- PTERMS(:,84,135) = +TPK%K134(:)*PCONC(:,2)*TPK%RO258(:)
-!
-!PTERMS(NO2,K135) = +K135*<PAN1>
- PTERMS(:,2,136) = +TPK%K135(:)*PCONC(:,77)
-!
-!PTERMS(PAN1,K135) = -K135*<PAN1>
- PTERMS(:,77,136) = -TPK%K135(:)*PCONC(:,77)
-!
-!PTERMS(RO2T,K135) = +K135*<PAN1>
- PTERMS(:,85,136) = +TPK%K135(:)*PCONC(:,77)
-!
-!PTERMS(NO2,K136) = +K136*<PAN2>
- PTERMS(:,2,137) = +TPK%K136(:)*PCONC(:,78)
-!
-!
-RETURN
-END SUBROUTINE SUBT21
-!
-SUBROUTINE SUBT22
-!
-!Indices 441 a 460
-!
-!PTERMS(PAN2,K136) = -K136*<PAN2>
- PTERMS(:,78,137) = -TPK%K136(:)*PCONC(:,78)
-!
-!PTERMS(RO2T,K136) = +K136*<PAN2>
- PTERMS(:,85,137) = +TPK%K136(:)*PCONC(:,78)
-!
-!PTERMS(NO2,K137) = +K137*<PAN3>
- PTERMS(:,2,138) = +TPK%K137(:)*PCONC(:,79)
-!
-!PTERMS(PAN3,K137) = -K137*<PAN3>
- PTERMS(:,79,138) = -TPK%K137(:)*PCONC(:,79)
-!
-!PTERMS(RO2T,K137) = +K137*<PAN3>
- PTERMS(:,85,138) = +TPK%K137(:)*PCONC(:,79)
-!
-!PTERMS(NO2,K138) = +K138*<PN10>
- PTERMS(:,2,139) = +TPK%K138(:)*PCONC(:,84)
-!
-!PTERMS(PN10,K138) = -K138*<PN10>
- PTERMS(:,84,139) = -TPK%K138(:)*PCONC(:,84)
-!
-!PTERMS(RO2T,K138) = +K138*<PN10>
- PTERMS(:,85,139) = +TPK%K138(:)*PCONC(:,84)
-!
-!PTERMS(NO2,K139) = +1.0000000*K139*<APAN>
- PTERMS(:,2,140) = +1.0000000*TPK%K139(:)*PCONC(:,76)
-!
-!PTERMS(APAN,K139) = -K139*<APAN>
- PTERMS(:,76,140) = -TPK%K139(:)*PCONC(:,76)
-!
-!PTERMS(RO2T,K139) = +1.0000000*K139*<APAN>
- PTERMS(:,85,140) = +1.0000000*TPK%K139(:)*PCONC(:,76)
-!
-!PTERMS(NO2,K140) = +K140*<PAN6>
- PTERMS(:,2,141) = +TPK%K140(:)*PCONC(:,81)
-!
-!PTERMS(PAN6,K140) = -K140*<PAN6>
- PTERMS(:,81,141) = -TPK%K140(:)*PCONC(:,81)
-!
-!PTERMS(RO2T,K140) = +K140*<PAN6>
- PTERMS(:,85,141) = +TPK%K140(:)*PCONC(:,81)
-!
-!PTERMS(NO2,K141) = +K141*<PAN4>
- PTERMS(:,2,142) = +TPK%K141(:)*PCONC(:,80)
-!
-!PTERMS(PAN4,K141) = -K141*<PAN4>
- PTERMS(:,80,142) = -TPK%K141(:)*PCONC(:,80)
-!
-!PTERMS(RO2T,K141) = +K141*<PAN4>
- PTERMS(:,85,142) = +TPK%K141(:)*PCONC(:,80)
-!
-!PTERMS(O3,K142) = +K142*<HO2>*<RO26>
- PTERMS(:,3,143) = +TPK%K142(:)*PCONC(:,10)*TPK%RO26(:)
-!
-!PTERMS(HO2,K142) = -K142*<HO2>*<RO26>
- PTERMS(:,10,143) = -TPK%K142(:)*PCONC(:,10)*TPK%RO26(:)
-!
-!PTERMS(ORA2,K142) = +K142*<HO2>*<RO26>
- PTERMS(:,44,143) = +TPK%K142(:)*PCONC(:,10)*TPK%RO26(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT22
-!
-SUBROUTINE SUBT23
-!
-!Indices 461 a 480
-!
-!PTERMS(ACID,K142) = +K142*<HO2>*<RO26>
- PTERMS(:,45,143) = +TPK%K142(:)*PCONC(:,10)*TPK%RO26(:)
-!
-!PTERMS(RO2T,K143) = -K143*<RO2T>*<RO26>
- PTERMS(:,85,144) = -TPK%K143(:)*PCONC(:,85)*TPK%RO26(:)
-!
-!PTERMS(RO25,K143) = +K143*<RO2T>*<RO26>
- PTERMS(:,87,144) = +TPK%K143(:)*PCONC(:,85)*TPK%RO26(:)
-!
-!PTERMS(NO,K144) = -K144*<NO>*<RO27>
- PTERMS(:,1,145) = -TPK%K144(:)*PCONC(:,1)*TPK%RO27(:)
-!
-!PTERMS(NO2,K144) = +K144*<NO>*<RO27>
- PTERMS(:,2,145) = +TPK%K144(:)*PCONC(:,1)*TPK%RO27(:)
-!
-!PTERMS(ALD2,K144) = +K144*<NO>*<RO27>
- PTERMS(:,29,145) = +TPK%K144(:)*PCONC(:,1)*TPK%RO27(:)
-!
-!PTERMS(RO2T,K144) = +K144*<NO>*<RO27>
- PTERMS(:,85,145) = +TPK%K144(:)*PCONC(:,1)*TPK%RO27(:)
-!
-!PTERMS(ALD2,K145) = +K145*<RO2T>*<RO27>
- PTERMS(:,29,146) = +TPK%K145(:)*PCONC(:,85)*TPK%RO27(:)
-!
-!PTERMS(RO2T,K145) = -K145*<RO2T>*<RO27>
- PTERMS(:,85,146) = -TPK%K145(:)*PCONC(:,85)*TPK%RO27(:)
-!
-!PTERMS(HO2,K146) = -K146*<HO2>*<RO27>
- PTERMS(:,10,147) = -TPK%K146(:)*PCONC(:,10)*TPK%RO27(:)
-!
-!PTERMS(OH,K146) = +K146*<HO2>*<RO27>
- PTERMS(:,15,147) = +TPK%K146(:)*PCONC(:,10)*TPK%RO27(:)
-!
-!PTERMS(ALD2,K146) = +K146*<HO2>*<RO27>
- PTERMS(:,29,147) = +TPK%K146(:)*PCONC(:,10)*TPK%RO27(:)
-!
-!PTERMS(RO2T,K146) = +K146*<HO2>*<RO27>
- PTERMS(:,85,147) = +TPK%K146(:)*PCONC(:,10)*TPK%RO27(:)
-!
-!PTERMS(NO,K147) = -K147*<NO>*<RO28>
- PTERMS(:,1,148) = -TPK%K147(:)*PCONC(:,1)*TPK%RO28(:)
-!
-!PTERMS(NO2,K147) = +K147*<NO>*<RO28>
- PTERMS(:,2,148) = +TPK%K147(:)*PCONC(:,1)*TPK%RO28(:)
-!
-!PTERMS(RO2T,K147) = +K147*<NO>*<RO28>
- PTERMS(:,85,148) = +TPK%K147(:)*PCONC(:,1)*TPK%RO28(:)
-!
-!PTERMS(RO21,K147) = +K147*<NO>*<RO28>
- PTERMS(:,86,148) = +TPK%K147(:)*PCONC(:,1)*TPK%RO28(:)
-!
-!PTERMS(O3,K148) = +K148*<HO2>*<RO28>
- PTERMS(:,3,149) = +TPK%K148(:)*PCONC(:,10)*TPK%RO28(:)
-!
-!PTERMS(HO2,K148) = -K148*<HO2>*<RO28>
- PTERMS(:,10,149) = -TPK%K148(:)*PCONC(:,10)*TPK%RO28(:)
-!
-!PTERMS(ORA2,K148) = +K148*<HO2>*<RO28>
- PTERMS(:,44,149) = +TPK%K148(:)*PCONC(:,10)*TPK%RO28(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT23
-!
-SUBROUTINE SUBT24
-!
-!Indices 481 a 500
-!
-!PTERMS(RO2T,K149) = -K149*<RO2T>*<RO28>
- PTERMS(:,85,150) = -TPK%K149(:)*PCONC(:,85)*TPK%RO28(:)
-!
-!PTERMS(RO21,K149) = +K149*<RO2T>*<RO28>
- PTERMS(:,86,150) = +TPK%K149(:)*PCONC(:,85)*TPK%RO28(:)
-!
-!PTERMS(NO,K150) = -K150*<NO>*<RO29>
- PTERMS(:,1,151) = -TPK%K150(:)*PCONC(:,1)*TPK%RO29(:)
-!
-!PTERMS(NO2,K150) = +TPK%CF6*K150*<NO>*<RO29>
- PTERMS(:,2,151) = +TPK%CF6*TPK%K150(:)*PCONC(:,1)*TPK%RO29(:)
-!
-!PTERMS(HO2,K150) = +TPK%CF6*K150*<NO>*<RO29>
- PTERMS(:,10,151) = +TPK%CF6*TPK%K150(:)*PCONC(:,1)*TPK%RO29(:)
-!
-!PTERMS(OLEL,K150) = +TPK%CF5*K150*<NO>*<RO29>
- PTERMS(:,17,151) = +TPK%CF5*TPK%K150(:)*PCONC(:,1)*TPK%RO29(:)
-!
-!PTERMS(HCHO,K150) = +TPK%CF6*K150*<NO>*<RO29>
- PTERMS(:,28,151) = +TPK%CF6*TPK%K150(:)*PCONC(:,1)*TPK%RO29(:)
-!
-!PTERMS(MVK,K150) = +TPK%CF6*K150*<NO>*<RO29>
- PTERMS(:,39,151) = +TPK%CF6*TPK%K150(:)*PCONC(:,1)*TPK%RO29(:)
-!
-!PTERMS(HO2,K151) = +K151*<RO2T>*<RO29>
- PTERMS(:,10,152) = +TPK%K151(:)*PCONC(:,85)*TPK%RO29(:)
-!
-!PTERMS(HCHO,K151) = +K151*<RO2T>*<RO29>
- PTERMS(:,28,152) = +TPK%K151(:)*PCONC(:,85)*TPK%RO29(:)
-!
-!PTERMS(MVK,K151) = +K151*<RO2T>*<RO29>
- PTERMS(:,39,152) = +TPK%K151(:)*PCONC(:,85)*TPK%RO29(:)
-!
-!PTERMS(RO2T,K151) = -K151*<RO2T>*<RO29>
- PTERMS(:,85,152) = -TPK%K151(:)*PCONC(:,85)*TPK%RO29(:)
-!
-!PTERMS(HO2,K152) = -K152*<HO2>*<RO29>
- PTERMS(:,10,153) = -TPK%K152(:)*PCONC(:,10)*TPK%RO29(:)
-!
-!PTERMS(OH,K152) = +K152*<HO2>*<RO29>
- PTERMS(:,15,153) = +TPK%K152(:)*PCONC(:,10)*TPK%RO29(:)
-!
-!PTERMS(HCHO,K152) = +K152*<HO2>*<RO29>
- PTERMS(:,28,153) = +TPK%K152(:)*PCONC(:,10)*TPK%RO29(:)
-!
-!PTERMS(MVK,K152) = +K152*<HO2>*<RO29>
- PTERMS(:,39,153) = +TPK%K152(:)*PCONC(:,10)*TPK%RO29(:)
-!
-!PTERMS(NO,K153) = -K153*<NO>*<RO210>
- PTERMS(:,1,154) = -TPK%K153(:)*PCONC(:,1)*TPK%RO210(:)
-!
-!PTERMS(NO2,K153) = +K153*<NO>*<RO210>
- PTERMS(:,2,154) = +TPK%K153(:)*PCONC(:,1)*TPK%RO210(:)
-!
-!PTERMS(HO2,K153) = +K153*<NO>*<RO210>
- PTERMS(:,10,154) = +TPK%K153(:)*PCONC(:,1)*TPK%RO210(:)
-!
-!PTERMS(HCHO,K153) = +K153*<NO>*<RO210>
- PTERMS(:,28,154) = +TPK%K153(:)*PCONC(:,1)*TPK%RO210(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT24
-!
-SUBROUTINE SUBT25
-!
-!Indices 501 a 520
-!
-!PTERMS(MCR,K153) = +K153*<NO>*<RO210>
- PTERMS(:,40,154) = +TPK%K153(:)*PCONC(:,1)*TPK%RO210(:)
-!
-!PTERMS(HO2,K154) = +K154*<RO2T>*<RO210>
- PTERMS(:,10,155) = +TPK%K154(:)*PCONC(:,85)*TPK%RO210(:)
-!
-!PTERMS(HCHO,K154) = +K154*<RO2T>*<RO210>
- PTERMS(:,28,155) = +TPK%K154(:)*PCONC(:,85)*TPK%RO210(:)
-!
-!PTERMS(MCR,K154) = +K154*<RO2T>*<RO210>
- PTERMS(:,40,155) = +TPK%K154(:)*PCONC(:,85)*TPK%RO210(:)
-!
-!PTERMS(RO2T,K154) = -K154*<RO2T>*<RO210>
- PTERMS(:,85,155) = -TPK%K154(:)*PCONC(:,85)*TPK%RO210(:)
-!
-!PTERMS(HO2,K155) = -K155*<HO2>*<RO210>
- PTERMS(:,10,156) = -TPK%K155(:)*PCONC(:,10)*TPK%RO210(:)
-!
-!PTERMS(OH,K155) = +K155*<HO2>*<RO210>
- PTERMS(:,15,156) = +TPK%K155(:)*PCONC(:,10)*TPK%RO210(:)
-!
-!PTERMS(HCHO,K155) = +K155*<HO2>*<RO210>
- PTERMS(:,28,156) = +TPK%K155(:)*PCONC(:,10)*TPK%RO210(:)
-!
-!PTERMS(MCR,K155) = +K155*<HO2>*<RO210>
- PTERMS(:,40,156) = +TPK%K155(:)*PCONC(:,10)*TPK%RO210(:)
-!
-!PTERMS(NO,K156) = -K156*<NO>*<RO211>
- PTERMS(:,1,157) = -TPK%K156(:)*PCONC(:,1)*TPK%RO211(:)
-!
-!PTERMS(NO2,K156) = +2.*K156*<NO>*<RO211>
- PTERMS(:,2,157) = +2.*TPK%K156(:)*PCONC(:,1)*TPK%RO211(:)
-!
-!PTERMS(HCHO,K156) = +K156*<NO>*<RO211>
- PTERMS(:,28,157) = +TPK%K156(:)*PCONC(:,1)*TPK%RO211(:)
-!
-!PTERMS(MVK,K156) = +K156*<NO>*<RO211>
- PTERMS(:,39,157) = +TPK%K156(:)*PCONC(:,1)*TPK%RO211(:)
-!
-!PTERMS(NO2,K157) = +K157*<RO2T>*<RO211>
- PTERMS(:,2,158) = +TPK%K157(:)*PCONC(:,85)*TPK%RO211(:)
-!
-!PTERMS(HCHO,K157) = +K157*<RO2T>*<RO211>
- PTERMS(:,28,158) = +TPK%K157(:)*PCONC(:,85)*TPK%RO211(:)
-!
-!PTERMS(MVK,K157) = +K157*<RO2T>*<RO211>
- PTERMS(:,39,158) = +TPK%K157(:)*PCONC(:,85)*TPK%RO211(:)
-!
-!PTERMS(RO2T,K157) = -K157*<RO2T>*<RO211>
- PTERMS(:,85,158) = -TPK%K157(:)*PCONC(:,85)*TPK%RO211(:)
-!
-!PTERMS(NO2,K158) = +K158*<HO2>*<RO211>
- PTERMS(:,2,159) = +TPK%K158(:)*PCONC(:,10)*TPK%RO211(:)
-!
-!PTERMS(HO2,K158) = -K158*<HO2>*<RO211>
- PTERMS(:,10,159) = -TPK%K158(:)*PCONC(:,10)*TPK%RO211(:)
-!
-!PTERMS(OH,K158) = +K158*<HO2>*<RO211>
- PTERMS(:,15,159) = +TPK%K158(:)*PCONC(:,10)*TPK%RO211(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT25
-!
-SUBROUTINE SUBT26
-!
-!Indices 521 a 540
-!
-!PTERMS(HCHO,K158) = +K158*<HO2>*<RO211>
- PTERMS(:,28,159) = +TPK%K158(:)*PCONC(:,10)*TPK%RO211(:)
-!
-!PTERMS(MVK,K158) = +K158*<HO2>*<RO211>
- PTERMS(:,39,159) = +TPK%K158(:)*PCONC(:,10)*TPK%RO211(:)
-!
-!PTERMS(NO,K159) = -K159*<NO>*<RO212>
- PTERMS(:,1,160) = -TPK%K159(:)*PCONC(:,1)*TPK%RO212(:)
-!
-!PTERMS(NO2,K159) = +2.*K159*<NO>*<RO212>
- PTERMS(:,2,160) = +2.*TPK%K159(:)*PCONC(:,1)*TPK%RO212(:)
-!
-!PTERMS(HCHO,K159) = +K159*<NO>*<RO212>
- PTERMS(:,28,160) = +TPK%K159(:)*PCONC(:,1)*TPK%RO212(:)
-!
-!PTERMS(MCR,K159) = +K159*<NO>*<RO212>
- PTERMS(:,40,160) = +TPK%K159(:)*PCONC(:,1)*TPK%RO212(:)
-!
-!PTERMS(NO2,K160) = +K160*<RO2T>*<RO212>
- PTERMS(:,2,161) = +TPK%K160(:)*PCONC(:,85)*TPK%RO212(:)
-!
-!PTERMS(HCHO,K160) = +K160*<RO2T>*<RO212>
- PTERMS(:,28,161) = +TPK%K160(:)*PCONC(:,85)*TPK%RO212(:)
-!
-!PTERMS(MCR,K160) = +K160*<RO2T>*<RO212>
- PTERMS(:,40,161) = +TPK%K160(:)*PCONC(:,85)*TPK%RO212(:)
-!
-!PTERMS(RO2T,K160) = -K160*<RO2T>*<RO212>
- PTERMS(:,85,161) = -TPK%K160(:)*PCONC(:,85)*TPK%RO212(:)
-!
-!PTERMS(NO2,K161) = +K161*<HO2>*<RO212>
- PTERMS(:,2,162) = +TPK%K161(:)*PCONC(:,10)*TPK%RO212(:)
-!
-!PTERMS(HO2,K161) = -K161*<HO2>*<RO212>
- PTERMS(:,10,162) = -TPK%K161(:)*PCONC(:,10)*TPK%RO212(:)
-!
-!PTERMS(OH,K161) = +K161*<HO2>*<RO212>
- PTERMS(:,15,162) = +TPK%K161(:)*PCONC(:,10)*TPK%RO212(:)
-!
-!PTERMS(HCHO,K161) = +K161*<HO2>*<RO212>
- PTERMS(:,28,162) = +TPK%K161(:)*PCONC(:,10)*TPK%RO212(:)
-!
-!PTERMS(MCR,K161) = +K161*<HO2>*<RO212>
- PTERMS(:,40,162) = +TPK%K161(:)*PCONC(:,10)*TPK%RO212(:)
-!
-!PTERMS(NO,K162) = -K162*<NO>*<RO213>
- PTERMS(:,1,163) = -TPK%K162(:)*PCONC(:,1)*TPK%RO213(:)
-!
-!PTERMS(NO2,K162) = +K162*<NO>*<RO213>
- PTERMS(:,2,163) = +TPK%K162(:)*PCONC(:,1)*TPK%RO213(:)
-!
-!PTERMS(HCHO,K162) = +K162*<NO>*<RO213>
- PTERMS(:,28,163) = +TPK%K162(:)*PCONC(:,1)*TPK%RO213(:)
-!
-!PTERMS(RO2T,K162) = +K162*<NO>*<RO213>
- PTERMS(:,85,163) = +TPK%K162(:)*PCONC(:,1)*TPK%RO213(:)
-!
-!PTERMS(HCHO,K163) = +K163*<RO2T>*<RO213>
- PTERMS(:,28,164) = +TPK%K163(:)*PCONC(:,85)*TPK%RO213(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT26
-!
-SUBROUTINE SUBT27
-!
-!Indices 541 a 560
-!
-!PTERMS(RO2T,K163) = -K163*<RO2T>*<RO213>
- PTERMS(:,85,164) = -TPK%K163(:)*PCONC(:,85)*TPK%RO213(:)
-!
-!PTERMS(HO2,K164) = -K164*<HO2>*<RO213>
- PTERMS(:,10,165) = -TPK%K164(:)*PCONC(:,10)*TPK%RO213(:)
-!
-!PTERMS(OH,K164) = +K164*<HO2>*<RO213>
- PTERMS(:,15,165) = +TPK%K164(:)*PCONC(:,10)*TPK%RO213(:)
-!
-!PTERMS(HCHO,K164) = +K164*<HO2>*<RO213>
- PTERMS(:,28,165) = +TPK%K164(:)*PCONC(:,10)*TPK%RO213(:)
-!
-!PTERMS(RO2T,K164) = +K164*<HO2>*<RO213>
- PTERMS(:,85,165) = +TPK%K164(:)*PCONC(:,10)*TPK%RO213(:)
-!
-!PTERMS(NO,K165) = -K165*<NO>*<RO239>
- PTERMS(:,1,166) = -TPK%K165(:)*PCONC(:,1)*TPK%RO239(:)
-!
-!PTERMS(NO2,K165) = +K165*<NO>*<RO239>
- PTERMS(:,2,166) = +TPK%K165(:)*PCONC(:,1)*TPK%RO239(:)
-!
-!PTERMS(RO2T,K165) = +K165*<NO>*<RO239>
- PTERMS(:,85,166) = +TPK%K165(:)*PCONC(:,1)*TPK%RO239(:)
-!
-!PTERMS(O3,K166) = +K166*<HO2>*<RO239>
- PTERMS(:,3,167) = +TPK%K166(:)*PCONC(:,10)*TPK%RO239(:)
-!
-!PTERMS(HO2,K166) = -K166*<HO2>*<RO239>
- PTERMS(:,10,167) = -TPK%K166(:)*PCONC(:,10)*TPK%RO239(:)
-!
-!PTERMS(OLEL,K166) = +0.5*K166*<HO2>*<RO239>
- PTERMS(:,17,167) = +0.5*TPK%K166(:)*PCONC(:,10)*TPK%RO239(:)
-!
-!PTERMS(ORA2,K166) = +0.5*K166*<HO2>*<RO239>
- PTERMS(:,44,167) = +0.5*TPK%K166(:)*PCONC(:,10)*TPK%RO239(:)
-!
-!PTERMS(RO2T,K167) = -K167*<RO2T>*<RO239>
- PTERMS(:,85,168) = -TPK%K167(:)*PCONC(:,85)*TPK%RO239(:)
-!
-!PTERMS(NO,K168) = -K168*<NO>*<RO214>
- PTERMS(:,1,169) = -TPK%K168(:)*PCONC(:,1)*TPK%RO214(:)
-!
-!PTERMS(NO2,K168) = +TPK%CF8*K168*<NO>*<RO214>
- PTERMS(:,2,169) = +TPK%CF8*TPK%K168(:)*PCONC(:,1)*TPK%RO214(:)
-!
-!PTERMS(OLEL,K168) = +TPK%CF7*K168*<NO>*<RO214>
- PTERMS(:,17,169) = +TPK%CF7*TPK%K168(:)*PCONC(:,1)*TPK%RO214(:)
-!
-!PTERMS(RO2T,K168) = +TPK%CF8*K168*<NO>*<RO214>
- PTERMS(:,85,169) = +TPK%CF8*TPK%K168(:)*PCONC(:,1)*TPK%RO214(:)
-!
-!PTERMS(RO2T,K169) = -K169*<RO2T>*<RO214>
- PTERMS(:,85,170) = -TPK%K169(:)*PCONC(:,85)*TPK%RO214(:)
-!
-!PTERMS(HO2,K170) = -K170*<HO2>*<RO214>
- PTERMS(:,10,171) = -TPK%K170(:)*PCONC(:,10)*TPK%RO214(:)
-!
-!PTERMS(OH,K170) = +K170*<HO2>*<RO214>
- PTERMS(:,15,171) = +TPK%K170(:)*PCONC(:,10)*TPK%RO214(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT27
-!
-SUBROUTINE SUBT28
-!
-!Indices 561 a 580
-!
-!PTERMS(RO2T,K170) = +K170*<HO2>*<RO214>
- PTERMS(:,85,171) = +TPK%K170(:)*PCONC(:,10)*TPK%RO214(:)
-!
-!PTERMS(NO,K171) = -K171*<NO>*<RO215>
- PTERMS(:,1,172) = -TPK%K171(:)*PCONC(:,1)*TPK%RO215(:)
-!
-!PTERMS(NO2,K171) = +K171*<NO>*<RO215>
- PTERMS(:,2,172) = +TPK%K171(:)*PCONC(:,1)*TPK%RO215(:)
-!
-!PTERMS(HO2,K171) = +K171*<NO>*<RO215>
- PTERMS(:,10,172) = +TPK%K171(:)*PCONC(:,1)*TPK%RO215(:)
-!
-!PTERMS(ALKL,K171) = +TPK%CF12*K171*<NO>*<RO215>
- PTERMS(:,19,172) = +TPK%CF12*TPK%K171(:)*PCONC(:,1)*TPK%RO215(:)
-!
-!PTERMS(HCHO,K171) = +TPK%CF10*K171*<NO>*<RO215>
- PTERMS(:,28,172) = +TPK%CF10*TPK%K171(:)*PCONC(:,1)*TPK%RO215(:)
-!
-!PTERMS(ALD2,K171) = +TPK%CF9*K171*<NO>*<RO215>
- PTERMS(:,29,172) = +TPK%CF9*TPK%K171(:)*PCONC(:,1)*TPK%RO215(:)
-!
-!PTERMS(KETL,K171) = +TPK%CF11*K171*<NO>*<RO215>
- PTERMS(:,30,172) = +TPK%CF11*TPK%K171(:)*PCONC(:,1)*TPK%RO215(:)
-!
-!PTERMS(HO2,K172) = +K172*<RO2T>*<RO215>
- PTERMS(:,10,173) = +TPK%K172(:)*PCONC(:,85)*TPK%RO215(:)
-!
-!PTERMS(ALKL,K172) = +TPK%CF16*K172*<RO2T>*<RO215>
- PTERMS(:,19,173) = +TPK%CF16*TPK%K172(:)*PCONC(:,85)*TPK%RO215(:)
-!
-!PTERMS(HCHO,K172) = +TPK%CF14*K172*<RO2T>*<RO215>
- PTERMS(:,28,173) = +TPK%CF14*TPK%K172(:)*PCONC(:,85)*TPK%RO215(:)
-!
-!PTERMS(ALD2,K172) = +TPK%CF13*K172*<RO2T>*<RO215>
- PTERMS(:,29,173) = +TPK%CF13*TPK%K172(:)*PCONC(:,85)*TPK%RO215(:)
-!
-!PTERMS(KETL,K172) = +TPK%CF15*K172*<RO2T>*<RO215>
- PTERMS(:,30,173) = +TPK%CF15*TPK%K172(:)*PCONC(:,85)*TPK%RO215(:)
-!
-!PTERMS(RO2T,K172) = -K172*<RO2T>*<RO215>
- PTERMS(:,85,173) = -TPK%K172(:)*PCONC(:,85)*TPK%RO215(:)
-!
-!PTERMS(HO2,K173) = -K173*<HO2>*<RO215>
- PTERMS(:,10,174) = -TPK%K173(:)*PCONC(:,10)*TPK%RO215(:)
-!
-!PTERMS(OH,K173) = +K173*<HO2>*<RO215>
- PTERMS(:,15,174) = +TPK%K173(:)*PCONC(:,10)*TPK%RO215(:)
-!
-!PTERMS(ALKL,K173) = +TPK%CF16*K173*<HO2>*<RO215>
- PTERMS(:,19,174) = +TPK%CF16*TPK%K173(:)*PCONC(:,10)*TPK%RO215(:)
-!
-!PTERMS(HCHO,K173) = +TPK%CF14*K173*<HO2>*<RO215>
- PTERMS(:,28,174) = +TPK%CF14*TPK%K173(:)*PCONC(:,10)*TPK%RO215(:)
-!
-!PTERMS(ALD2,K173) = +TPK%CF13*K173*<HO2>*<RO215>
- PTERMS(:,29,174) = +TPK%CF13*TPK%K173(:)*PCONC(:,10)*TPK%RO215(:)
-!
-!PTERMS(KETL,K173) = +TPK%CF15*K173*<HO2>*<RO215>
- PTERMS(:,30,174) = +TPK%CF15*TPK%K173(:)*PCONC(:,10)*TPK%RO215(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT28
-!
-SUBROUTINE SUBT29
-!
-!Indices 581 a 600
-!
-!PTERMS(NO,K174) = -K174*<NO>*<RO216>
- PTERMS(:,1,175) = -TPK%K174(:)*PCONC(:,1)*TPK%RO216(:)
-!
-!PTERMS(NO2,K174) = +K174*<NO>*<RO216>
- PTERMS(:,2,175) = +TPK%K174(:)*PCONC(:,1)*TPK%RO216(:)
-!
-!PTERMS(ALD2,K174) = +K174*<NO>*<RO216>
- PTERMS(:,29,175) = +TPK%K174(:)*PCONC(:,1)*TPK%RO216(:)
-!
-!PTERMS(RO2T,K174) = +K174*<NO>*<RO216>
- PTERMS(:,85,175) = +TPK%K174(:)*PCONC(:,1)*TPK%RO216(:)
-!
-!PTERMS(ALD2,K175) = +K175*<RO2T>*<RO216>
- PTERMS(:,29,176) = +TPK%K175(:)*PCONC(:,85)*TPK%RO216(:)
-!
-!PTERMS(RO2T,K175) = -K175*<RO2T>*<RO216>
- PTERMS(:,85,176) = -TPK%K175(:)*PCONC(:,85)*TPK%RO216(:)
-!
-!PTERMS(HO2,K176) = -K176*<HO2>*<RO216>
- PTERMS(:,10,177) = -TPK%K176(:)*PCONC(:,10)*TPK%RO216(:)
-!
-!PTERMS(OH,K176) = +K176*<HO2>*<RO216>
- PTERMS(:,15,177) = +TPK%K176(:)*PCONC(:,10)*TPK%RO216(:)
-!
-!PTERMS(ALD2,K176) = +K176*<HO2>*<RO216>
- PTERMS(:,29,177) = +TPK%K176(:)*PCONC(:,10)*TPK%RO216(:)
-!
-!PTERMS(RO2T,K176) = +K176*<HO2>*<RO216>
- PTERMS(:,85,177) = +TPK%K176(:)*PCONC(:,10)*TPK%RO216(:)
-!
-!PTERMS(NO,K177) = -K177*<NO>*<RO217>
- PTERMS(:,1,178) = -TPK%K177(:)*PCONC(:,1)*TPK%RO217(:)
-!
-!PTERMS(NO2,K177) = +TPK%CF22*K177*<NO>*<RO217>
- PTERMS(:,2,178) = +TPK%CF22*TPK%K177(:)*PCONC(:,1)*TPK%RO217(:)
-!
-!PTERMS(HO2,K177) = +TPK%CF22*K177*<NO>*<RO217>
- PTERMS(:,10,178) = +TPK%CF22*TPK%K177(:)*PCONC(:,1)*TPK%RO217(:)
-!
-!PTERMS(URG6,K177) = +TPK%CF21*K177*<NO>*<RO217>
- PTERMS(:,58,178) = +TPK%CF21*TPK%K177(:)*PCONC(:,1)*TPK%RO217(:)
-!
-!PTERMS(RPRL,K177) = +TPK%CFA2*K177*<NO>*<RO217>
- PTERMS(:,75,178) = +TPK%CFA2*TPK%K177(:)*PCONC(:,1)*TPK%RO217(:)
-!
-!PTERMS(HO2,K178) = +K178*<RO2T>*<RO217>
- PTERMS(:,10,179) = +TPK%K178(:)*PCONC(:,85)*TPK%RO217(:)
-!
-!PTERMS(RPRL,K178) = +0.9983609*K178*<RO2T>*<RO217>
- PTERMS(:,75,179) = +0.9983609*TPK%K178(:)*PCONC(:,85)*TPK%RO217(:)
-!
-!PTERMS(RO2T,K178) = -K178*<RO2T>*<RO217>
- PTERMS(:,85,179) = -TPK%K178(:)*PCONC(:,85)*TPK%RO217(:)
-!
-!PTERMS(HO2,K179) = -K179*<HO2>*<RO217>
- PTERMS(:,10,180) = -TPK%K179(:)*PCONC(:,10)*TPK%RO217(:)
-!
-!PTERMS(OH,K179) = +K179*<HO2>*<RO217>
- PTERMS(:,15,180) = +TPK%K179(:)*PCONC(:,10)*TPK%RO217(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT29
-!
-SUBROUTINE SUBT30
-!
-!Indices 601 a 620
-!
-!PTERMS(RPRL,K179) = +0.9983609*K179*<HO2>*<RO217>
- PTERMS(:,75,180) = +0.9983609*TPK%K179(:)*PCONC(:,10)*TPK%RO217(:)
-!
-!PTERMS(NO,K180) = -K180*<NO>*<RO218>
- PTERMS(:,1,181) = -TPK%K180(:)*PCONC(:,1)*TPK%RO218(:)
-!
-!PTERMS(NO2,K180) = +TPK%CF20*K180*<NO>*<RO218>
- PTERMS(:,2,181) = +TPK%CF20*TPK%K180(:)*PCONC(:,1)*TPK%RO218(:)
-!
-!PTERMS(HO2,K180) = +TPK%CF20*K180*<NO>*<RO218>
- PTERMS(:,10,181) = +TPK%CF20*TPK%K180(:)*PCONC(:,1)*TPK%RO218(:)
-!
-!PTERMS(HO2,K181) = +K181*<RO2T>*<RO218>
- PTERMS(:,10,182) = +TPK%K181(:)*PCONC(:,85)*TPK%RO218(:)
-!
-!PTERMS(RO2T,K181) = -K181*<RO2T>*<RO218>
- PTERMS(:,85,182) = -TPK%K181(:)*PCONC(:,85)*TPK%RO218(:)
-!
-!PTERMS(HO2,K182) = -K182*<HO2>*<RO218>
- PTERMS(:,10,183) = -TPK%K182(:)*PCONC(:,10)*TPK%RO218(:)
-!
-!PTERMS(OH,K182) = +K182*<HO2>*<RO218>
- PTERMS(:,15,183) = +TPK%K182(:)*PCONC(:,10)*TPK%RO218(:)
-!
-!PTERMS(NO,K183) = -K183*<NO>*<RO219>
- PTERMS(:,1,184) = -TPK%K183(:)*PCONC(:,1)*TPK%RO219(:)
-!
-!PTERMS(NO2,K183) = +2.*K183*<NO>*<RO219>
- PTERMS(:,2,184) = +2.*TPK%K183(:)*PCONC(:,1)*TPK%RO219(:)
-!
-!PTERMS(HCHO,K183) = +K183*<NO>*<RO219>
- PTERMS(:,28,184) = +TPK%K183(:)*PCONC(:,1)*TPK%RO219(:)
-!
-!PTERMS(RPR1,K183) = +K183*<NO>*<RO219>
- PTERMS(:,69,184) = +TPK%K183(:)*PCONC(:,1)*TPK%RO219(:)
-!
-!PTERMS(NO2,K184) = +K184*<RO2T>*<RO219>
- PTERMS(:,2,185) = +TPK%K184(:)*PCONC(:,85)*TPK%RO219(:)
-!
-!PTERMS(HCHO,K184) = +K184*<RO2T>*<RO219>
- PTERMS(:,28,185) = +TPK%K184(:)*PCONC(:,85)*TPK%RO219(:)
-!
-!PTERMS(RPR1,K184) = +K184*<RO2T>*<RO219>
- PTERMS(:,69,185) = +TPK%K184(:)*PCONC(:,85)*TPK%RO219(:)
-!
-!PTERMS(RO2T,K184) = -K184*<RO2T>*<RO219>
- PTERMS(:,85,185) = -TPK%K184(:)*PCONC(:,85)*TPK%RO219(:)
-!
-!PTERMS(NO2,K185) = +K185*<HO2>*<RO219>
- PTERMS(:,2,186) = +TPK%K185(:)*PCONC(:,10)*TPK%RO219(:)
-!
-!PTERMS(HO2,K185) = -K185*<HO2>*<RO219>
- PTERMS(:,10,186) = -TPK%K185(:)*PCONC(:,10)*TPK%RO219(:)
-!
-!PTERMS(OH,K185) = +K185*<HO2>*<RO219>
- PTERMS(:,15,186) = +TPK%K185(:)*PCONC(:,10)*TPK%RO219(:)
-!
-!PTERMS(HCHO,K185) = +K185*<HO2>*<RO219>
- PTERMS(:,28,186) = +TPK%K185(:)*PCONC(:,10)*TPK%RO219(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT30
-!
-SUBROUTINE SUBT31
-!
-!Indices 621 a 640
-!
-!PTERMS(RPR1,K185) = +K185*<HO2>*<RO219>
- PTERMS(:,69,186) = +TPK%K185(:)*PCONC(:,10)*TPK%RO219(:)
-!
-!PTERMS(NO,K186) = -K186*<NO>*<RO220>
- PTERMS(:,1,187) = -TPK%K186(:)*PCONC(:,1)*TPK%RO220(:)
-!
-!PTERMS(NO2,K186) = +TPK%CF18*K186*<NO>*<RO220>
- PTERMS(:,2,187) = +TPK%CF18*TPK%K186(:)*PCONC(:,1)*TPK%RO220(:)
-!
-!PTERMS(RO2T,K186) = +TPK%CF18*K186*<NO>*<RO220>
- PTERMS(:,85,187) = +TPK%CF18*TPK%K186(:)*PCONC(:,1)*TPK%RO220(:)
-!
-!PTERMS(RO2T,K187) = -K187*<RO2T>*<RO220>
- PTERMS(:,85,188) = -TPK%K187(:)*PCONC(:,85)*TPK%RO220(:)
-!
-!PTERMS(HO2,K188) = -K188*<HO2>*<RO220>
- PTERMS(:,10,189) = -TPK%K188(:)*PCONC(:,10)*TPK%RO220(:)
-!
-!PTERMS(OH,K188) = +K188*<HO2>*<RO220>
- PTERMS(:,15,189) = +TPK%K188(:)*PCONC(:,10)*TPK%RO220(:)
-!
-!PTERMS(RO2T,K188) = +K188*<HO2>*<RO220>
- PTERMS(:,85,189) = +TPK%K188(:)*PCONC(:,10)*TPK%RO220(:)
-!
-!PTERMS(NO,K189) = -K189*<NO>*<RO221>
- PTERMS(:,1,190) = -TPK%K189(:)*PCONC(:,1)*TPK%RO221(:)
-!
-!PTERMS(NO2,K189) = +TPK%CF24*K189*<NO>*<RO221>
- PTERMS(:,2,190) = +TPK%CF24*TPK%K189(:)*PCONC(:,1)*TPK%RO221(:)
-!
-!PTERMS(HO2,K189) = +TPK%CF24*K189*<NO>*<RO221>
- PTERMS(:,10,190) = +TPK%CF24*TPK%K189(:)*PCONC(:,1)*TPK%RO221(:)
-!
-!PTERMS(ARAL,K189) = +TPK%CF24*K189*<NO>*<RO221>
- PTERMS(:,25,190) = +TPK%CF24*TPK%K189(:)*PCONC(:,1)*TPK%RO221(:)
-!
-!PTERMS(HO2,K190) = +K190*<RO2T>*<RO221>
- PTERMS(:,10,191) = +TPK%K190(:)*PCONC(:,85)*TPK%RO221(:)
-!
-!PTERMS(ARAL,K190) = +K190*<RO2T>*<RO221>
- PTERMS(:,25,191) = +TPK%K190(:)*PCONC(:,85)*TPK%RO221(:)
-!
-!PTERMS(RO2T,K190) = -K190*<RO2T>*<RO221>
- PTERMS(:,85,191) = -TPK%K190(:)*PCONC(:,85)*TPK%RO221(:)
-!
-!PTERMS(HO2,K191) = -K191*<HO2>*<RO221>
- PTERMS(:,10,192) = -TPK%K191(:)*PCONC(:,10)*TPK%RO221(:)
-!
-!PTERMS(OH,K191) = +K191*<HO2>*<RO221>
- PTERMS(:,15,192) = +TPK%K191(:)*PCONC(:,10)*TPK%RO221(:)
-!
-!PTERMS(ARAL,K191) = +K191*<HO2>*<RO221>
- PTERMS(:,25,192) = +TPK%K191(:)*PCONC(:,10)*TPK%RO221(:)
-!
-!PTERMS(NO,K192) = -K192*<NO>*<RO222>
- PTERMS(:,1,193) = -TPK%K192(:)*PCONC(:,1)*TPK%RO222(:)
-!
-!PTERMS(NO2,K192) = +TPK%CF42*K192*<NO>*<RO222>
- PTERMS(:,2,193) = +TPK%CF42*TPK%K192(:)*PCONC(:,1)*TPK%RO222(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT31
-!
-SUBROUTINE SUBT32
-!
-!Indices 641 a 660
-!
-!PTERMS(HO2,K192) = +TPK%CF42*K192*<NO>*<RO222>
- PTERMS(:,10,193) = +TPK%CF42*TPK%K192(:)*PCONC(:,1)*TPK%RO222(:)
-!
-!PTERMS(RPRL,K192) = +TPK%CFA7*K192*<NO>*<RO222>
- PTERMS(:,75,193) = +TPK%CFA7*TPK%K192(:)*PCONC(:,1)*TPK%RO222(:)
-!
-!PTERMS(HO2,K193) = +K193*<RO2T>*<RO222>
- PTERMS(:,10,194) = +TPK%K193(:)*PCONC(:,85)*TPK%RO222(:)
-!
-!PTERMS(RPRL,K193) = +0.9983609*K193*<RO2T>*<RO222>
- PTERMS(:,75,194) = +0.9983609*TPK%K193(:)*PCONC(:,85)*TPK%RO222(:)
-!
-!PTERMS(RO2T,K193) = -K193*<RO2T>*<RO222>
- PTERMS(:,85,194) = -TPK%K193(:)*PCONC(:,85)*TPK%RO222(:)
-!
-!PTERMS(HO2,K194) = -K194*<HO2>*<RO222>
- PTERMS(:,10,195) = -TPK%K194(:)*PCONC(:,10)*TPK%RO222(:)
-!
-!PTERMS(OH,K194) = +K194*<HO2>*<RO222>
- PTERMS(:,15,195) = +TPK%K194(:)*PCONC(:,10)*TPK%RO222(:)
-!
-!PTERMS(RPRL,K194) = +0.9983609*K194*<HO2>*<RO222>
- PTERMS(:,75,195) = +0.9983609*TPK%K194(:)*PCONC(:,10)*TPK%RO222(:)
-!
-!PTERMS(NO,K195) = -K195*<NO>*<RO223>
- PTERMS(:,1,196) = -TPK%K195(:)*PCONC(:,1)*TPK%RO223(:)
-!
-!PTERMS(NO2,K195) = +TPK%CF44*K195*<NO>*<RO223>
- PTERMS(:,2,196) = +TPK%CF44*TPK%K195(:)*PCONC(:,1)*TPK%RO223(:)
-!
-!PTERMS(HO2,K195) = +TPK%CF44*K195*<NO>*<RO223>
- PTERMS(:,10,196) = +TPK%CF44*TPK%K195(:)*PCONC(:,1)*TPK%RO223(:)
-!
-!PTERMS(URG6,K195) = +TPK%CF43*K195*<NO>*<RO223>
- PTERMS(:,58,196) = +TPK%CF43*TPK%K195(:)*PCONC(:,1)*TPK%RO223(:)
-!
-!PTERMS(RPR7,K195) = +TPK%CF44*K195*<NO>*<RO223>
- PTERMS(:,62,196) = +TPK%CF44*TPK%K195(:)*PCONC(:,1)*TPK%RO223(:)
-!
-!PTERMS(HO2,K196) = +K196*<RO2T>*<RO223>
- PTERMS(:,10,197) = +TPK%K196(:)*PCONC(:,85)*TPK%RO223(:)
-!
-!PTERMS(RPR7,K196) = +K196*<RO2T>*<RO223>
- PTERMS(:,62,197) = +TPK%K196(:)*PCONC(:,85)*TPK%RO223(:)
-!
-!PTERMS(RO2T,K196) = -K196*<RO2T>*<RO223>
- PTERMS(:,85,197) = -TPK%K196(:)*PCONC(:,85)*TPK%RO223(:)
-!
-!PTERMS(HO2,K197) = -K197*<HO2>*<RO223>
- PTERMS(:,10,198) = -TPK%K197(:)*PCONC(:,10)*TPK%RO223(:)
-!
-!PTERMS(OH,K197) = +K197*<HO2>*<RO223>
- PTERMS(:,15,198) = +TPK%K197(:)*PCONC(:,10)*TPK%RO223(:)
-!
-!PTERMS(RPR7,K197) = +K197*<HO2>*<RO223>
- PTERMS(:,62,198) = +TPK%K197(:)*PCONC(:,10)*TPK%RO223(:)
-!
-!PTERMS(NO,K198) = -K198*<NO>*<RO224>
- PTERMS(:,1,199) = -TPK%K198(:)*PCONC(:,1)*TPK%RO224(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT32
-!
-SUBROUTINE SUBT33
-!
-!Indices 661 a 680
-!
-!PTERMS(NO2,K198) = +TPK%CF26*K198*<NO>*<RO224>
- PTERMS(:,2,199) = +TPK%CF26*TPK%K198(:)*PCONC(:,1)*TPK%RO224(:)
-!
-!PTERMS(HO2,K198) = +TPK%CF26*K198*<NO>*<RO224>
- PTERMS(:,10,199) = +TPK%CF26*TPK%K198(:)*PCONC(:,1)*TPK%RO224(:)
-!
-!PTERMS(RPR3,K198) = +TPK%CFA10*K198*<NO>*<RO224>
- PTERMS(:,57,199) = +TPK%CFA10*TPK%K198(:)*PCONC(:,1)*TPK%RO224(:)
-!
-!PTERMS(AP7,K198) = +TPK%CFA23*K198*<NO>*<RO224>
- PTERMS(:,67,199) = +TPK%CFA23*TPK%K198(:)*PCONC(:,1)*TPK%RO224(:)
-!
-!PTERMS(HO2,K199) = +K199*<RO2T>*<RO224>
- PTERMS(:,10,200) = +TPK%K199(:)*PCONC(:,85)*TPK%RO224(:)
-!
-!PTERMS(RPR3,K199) = +K199*<RO2T>*<RO224>
- PTERMS(:,57,200) = +TPK%K199(:)*PCONC(:,85)*TPK%RO224(:)
-!
-!PTERMS(RO2T,K199) = -K199*<RO2T>*<RO224>
- PTERMS(:,85,200) = -TPK%K199(:)*PCONC(:,85)*TPK%RO224(:)
-!
-!PTERMS(HO2,K200) = -K200*<HO2>*<RO224>
- PTERMS(:,10,201) = -TPK%K200(:)*PCONC(:,10)*TPK%RO224(:)
-!
-!PTERMS(OH,K200) = +K200*<HO2>*<RO224>
- PTERMS(:,15,201) = +TPK%K200(:)*PCONC(:,10)*TPK%RO224(:)
-!
-!PTERMS(RPR3,K200) = +K200*<HO2>*<RO224>
- PTERMS(:,57,201) = +TPK%K200(:)*PCONC(:,10)*TPK%RO224(:)
-!
-!PTERMS(NO,K201) = -K201*<NO>*<RO225>
- PTERMS(:,1,202) = -TPK%K201(:)*PCONC(:,1)*TPK%RO225(:)
-!
-!PTERMS(NO2,K201) = +2.*K201*<NO>*<RO225>
- PTERMS(:,2,202) = +2.*TPK%K201(:)*PCONC(:,1)*TPK%RO225(:)
-!
-!PTERMS(RPR3,K201) = +K201*<NO>*<RO225>
- PTERMS(:,57,202) = +TPK%K201(:)*PCONC(:,1)*TPK%RO225(:)
-!
-!PTERMS(NO2,K202) = +K202*<RO2T>*<RO225>
- PTERMS(:,2,203) = +TPK%K202(:)*PCONC(:,85)*TPK%RO225(:)
-!
-!PTERMS(RPR3,K202) = +K202*<RO2T>*<RO225>
- PTERMS(:,57,203) = +TPK%K202(:)*PCONC(:,85)*TPK%RO225(:)
-!
-!PTERMS(RO2T,K202) = -K202*<RO2T>*<RO225>
- PTERMS(:,85,203) = -TPK%K202(:)*PCONC(:,85)*TPK%RO225(:)
-!
-!PTERMS(NO2,K203) = +K203*<HO2>*<RO225>
- PTERMS(:,2,204) = +TPK%K203(:)*PCONC(:,10)*TPK%RO225(:)
-!
-!PTERMS(HO2,K203) = -K203*<HO2>*<RO225>
- PTERMS(:,10,204) = -TPK%K203(:)*PCONC(:,10)*TPK%RO225(:)
-!
-!PTERMS(OH,K203) = +K203*<HO2>*<RO225>
- PTERMS(:,15,204) = +TPK%K203(:)*PCONC(:,10)*TPK%RO225(:)
-!
-!PTERMS(RPR3,K203) = +K203*<HO2>*<RO225>
- PTERMS(:,57,204) = +TPK%K203(:)*PCONC(:,10)*TPK%RO225(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT33
-!
-SUBROUTINE SUBT34
-!
-!Indices 681 a 700
-!
-!PTERMS(NO,K204) = -K204*<NO>*<RO226>
- PTERMS(:,1,205) = -TPK%K204(:)*PCONC(:,1)*TPK%RO226(:)
-!
-!PTERMS(NO2,K204) = +K204*<NO>*<RO226>
- PTERMS(:,2,205) = +TPK%K204(:)*PCONC(:,1)*TPK%RO226(:)
-!
-!PTERMS(UR17,K204) = +1.0000000*K204*<NO>*<RO226>
- PTERMS(:,55,205) = +1.0000000*TPK%K204(:)*PCONC(:,1)*TPK%RO226(:)
-!
-!PTERMS(RO2T,K204) = +K204*<NO>*<RO226>
- PTERMS(:,85,205) = +TPK%K204(:)*PCONC(:,1)*TPK%RO226(:)
-!
-!PTERMS(UR17,K205) = +1.0000000*K205*<RO2T>*<RO226>
- PTERMS(:,55,206) = +1.0000000*TPK%K205(:)*PCONC(:,85)*TPK%RO226(:)
-!
-!PTERMS(RO2T,K205) = -K205*<RO2T>*<RO226>
- PTERMS(:,85,206) = -TPK%K205(:)*PCONC(:,85)*TPK%RO226(:)
-!
-!PTERMS(HO2,K206) = -K206*<HO2>*<RO226>
- PTERMS(:,10,207) = -TPK%K206(:)*PCONC(:,10)*TPK%RO226(:)
-!
-!PTERMS(OH,K206) = +K206*<HO2>*<RO226>
- PTERMS(:,15,207) = +TPK%K206(:)*PCONC(:,10)*TPK%RO226(:)
-!
-!PTERMS(UR17,K206) = +1.0000000*K206*<HO2>*<RO226>
- PTERMS(:,55,207) = +1.0000000*TPK%K206(:)*PCONC(:,10)*TPK%RO226(:)
-!
-!PTERMS(RO2T,K206) = +K206*<HO2>*<RO226>
- PTERMS(:,85,207) = +TPK%K206(:)*PCONC(:,10)*TPK%RO226(:)
-!
-!PTERMS(NO,K207) = -K207*<NO>*<RO227>
- PTERMS(:,1,208) = -TPK%K207(:)*PCONC(:,1)*TPK%RO227(:)
-!
-!PTERMS(NO2,K207) = +TPK%CF28*K207*<NO>*<RO227>
- PTERMS(:,2,208) = +TPK%CF28*TPK%K207(:)*PCONC(:,1)*TPK%RO227(:)
-!
-!PTERMS(HO2,K207) = +TPK%CF28*K207*<NO>*<RO227>
- PTERMS(:,10,208) = +TPK%CF28*TPK%K207(:)*PCONC(:,1)*TPK%RO227(:)
-!
-!PTERMS(UR7,K207) = +TPK%CFA12*K207*<NO>*<RO227>
- PTERMS(:,56,208) = +TPK%CFA12*TPK%K207(:)*PCONC(:,1)*TPK%RO227(:)
-!
-!PTERMS(URG10,K207) = +TPK%CF27*K207*<NO>*<RO227>
- PTERMS(:,68,208) = +TPK%CF27*TPK%K207(:)*PCONC(:,1)*TPK%RO227(:)
-!
-!PTERMS(HO2,K208) = +K208*<RO2T>*<RO227>
- PTERMS(:,10,209) = +TPK%K208(:)*PCONC(:,85)*TPK%RO227(:)
-!
-!PTERMS(UR7,K208) = +K208*<RO2T>*<RO227>
- PTERMS(:,56,209) = +TPK%K208(:)*PCONC(:,85)*TPK%RO227(:)
-!
-!PTERMS(RO2T,K208) = -K208*<RO2T>*<RO227>
- PTERMS(:,85,209) = -TPK%K208(:)*PCONC(:,85)*TPK%RO227(:)
-!
-!PTERMS(HO2,K209) = -K209*<HO2>*<RO227>
- PTERMS(:,10,210) = -TPK%K209(:)*PCONC(:,10)*TPK%RO227(:)
-!
-!PTERMS(OH,K209) = +K209*<HO2>*<RO227>
- PTERMS(:,15,210) = +TPK%K209(:)*PCONC(:,10)*TPK%RO227(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT34
-!
-SUBROUTINE SUBT35
-!
-!Indices 701 a 720
-!
-!PTERMS(UR7,K209) = +0.3*K209*<HO2>*<RO227>
- PTERMS(:,56,210) = +0.3*TPK%K209(:)*PCONC(:,10)*TPK%RO227(:)
-!
-!PTERMS(NO,K210) = -K210*<NO>*<RO228>
- PTERMS(:,1,211) = -TPK%K210(:)*PCONC(:,1)*TPK%RO228(:)
-!
-!PTERMS(NO2,K210) = +2.*K210*<NO>*<RO228>
- PTERMS(:,2,211) = +2.*TPK%K210(:)*PCONC(:,1)*TPK%RO228(:)
-!
-!PTERMS(UR7,K210) = +0.3*K210*<NO>*<RO228>
- PTERMS(:,56,211) = +0.3*TPK%K210(:)*PCONC(:,1)*TPK%RO228(:)
-!
-!PTERMS(NO2,K211) = +K211*<RO2T>*<RO228>
- PTERMS(:,2,212) = +TPK%K211(:)*PCONC(:,85)*TPK%RO228(:)
-!
-!PTERMS(UR7,K211) = +0.3*K211*<RO2T>*<RO228>
- PTERMS(:,56,212) = +0.3*TPK%K211(:)*PCONC(:,85)*TPK%RO228(:)
-!
-!PTERMS(RO2T,K211) = -K211*<RO2T>*<RO228>
- PTERMS(:,85,212) = -TPK%K211(:)*PCONC(:,85)*TPK%RO228(:)
-!
-!PTERMS(NO2,K212) = +K212*<HO2>*<RO228>
- PTERMS(:,2,213) = +TPK%K212(:)*PCONC(:,10)*TPK%RO228(:)
-!
-!PTERMS(HO2,K212) = -K212*<HO2>*<RO228>
- PTERMS(:,10,213) = -TPK%K212(:)*PCONC(:,10)*TPK%RO228(:)
-!
-!PTERMS(OH,K212) = +K212*<HO2>*<RO228>
- PTERMS(:,15,213) = +TPK%K212(:)*PCONC(:,10)*TPK%RO228(:)
-!
-!PTERMS(UR7,K212) = +0.3*K212*<HO2>*<RO228>
- PTERMS(:,56,213) = +0.3*TPK%K212(:)*PCONC(:,10)*TPK%RO228(:)
-!
-!PTERMS(NO,K213) = -K213*<NO>*<RO229>
- PTERMS(:,1,214) = -TPK%K213(:)*PCONC(:,1)*TPK%RO229(:)
-!
-!PTERMS(NO2,K213) = +TPK%CF30*K213*<NO>*<RO229>
- PTERMS(:,2,214) = +TPK%CF30*TPK%K213(:)*PCONC(:,1)*TPK%RO229(:)
-!
-!PTERMS(RO2T,K213) = +TPK%CF30*K213*<NO>*<RO229>
- PTERMS(:,85,214) = +TPK%CF30*TPK%K213(:)*PCONC(:,1)*TPK%RO229(:)
-!
-!PTERMS(RO2T,K214) = -K214*<RO2T>*<RO229>
- PTERMS(:,85,215) = -TPK%K214(:)*PCONC(:,85)*TPK%RO229(:)
-!
-!PTERMS(HO2,K215) = -K215*<HO2>*<RO229>
- PTERMS(:,10,216) = -TPK%K215(:)*PCONC(:,10)*TPK%RO229(:)
-!
-!PTERMS(OH,K215) = +K215*<HO2>*<RO229>
- PTERMS(:,15,216) = +TPK%K215(:)*PCONC(:,10)*TPK%RO229(:)
-!
-!PTERMS(RO2T,K215) = +K215*<HO2>*<RO229>
- PTERMS(:,85,216) = +TPK%K215(:)*PCONC(:,10)*TPK%RO229(:)
-!
-!PTERMS(NO,K216) = -K216*<NO>*<RO240>
- PTERMS(:,1,217) = -TPK%K216(:)*PCONC(:,1)*TPK%RO240(:)
-!
-!PTERMS(NO2,K216) = +K216*<NO>*<RO240>
- PTERMS(:,2,217) = +TPK%K216(:)*PCONC(:,1)*TPK%RO240(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT35
-!
-SUBROUTINE SUBT36
-!
-!Indices 721 a 740
-!
-!PTERMS(RPR8,K216) = +K216*<NO>*<RO240>
- PTERMS(:,71,217) = +TPK%K216(:)*PCONC(:,1)*TPK%RO240(:)
-!
-!PTERMS(RO2T,K216) = +K216*<NO>*<RO240>
- PTERMS(:,85,217) = +TPK%K216(:)*PCONC(:,1)*TPK%RO240(:)
-!
-!PTERMS(RPR8,K217) = +K217*<RO2T>*<RO240>
- PTERMS(:,71,218) = +TPK%K217(:)*PCONC(:,85)*TPK%RO240(:)
-!
-!PTERMS(RO2T,K217) = -K217*<RO2T>*<RO240>
- PTERMS(:,85,218) = -TPK%K217(:)*PCONC(:,85)*TPK%RO240(:)
-!
-!PTERMS(HO2,K218) = -K218*<HO2>*<RO240>
- PTERMS(:,10,219) = -TPK%K218(:)*PCONC(:,10)*TPK%RO240(:)
-!
-!PTERMS(OH,K218) = +K218*<HO2>*<RO240>
- PTERMS(:,15,219) = +TPK%K218(:)*PCONC(:,10)*TPK%RO240(:)
-!
-!PTERMS(RPR8,K218) = +K218*<HO2>*<RO240>
- PTERMS(:,71,219) = +TPK%K218(:)*PCONC(:,10)*TPK%RO240(:)
-!
-!PTERMS(RO2T,K218) = +K218*<HO2>*<RO240>
- PTERMS(:,85,219) = +TPK%K218(:)*PCONC(:,10)*TPK%RO240(:)
-!
-!PTERMS(RO2T,K219) = -K219*<RO2T>*<RO230>
- PTERMS(:,85,220) = -TPK%K219(:)*PCONC(:,85)*TPK%RO230(:)
-!
-!PTERMS(HO2,K220) = -K220*<HO2>*<RO230>
- PTERMS(:,10,221) = -TPK%K220(:)*PCONC(:,10)*TPK%RO230(:)
-!
-!PTERMS(OH,K220) = +K220*<HO2>*<RO230>
- PTERMS(:,15,221) = +TPK%K220(:)*PCONC(:,10)*TPK%RO230(:)
-!
-!PTERMS(RO2T,K220) = +K220*<HO2>*<RO230>
- PTERMS(:,85,221) = +TPK%K220(:)*PCONC(:,10)*TPK%RO230(:)
-!
-!PTERMS(NO,K221) = -K221*<NO>*<RO231>
- PTERMS(:,1,222) = -TPK%K221(:)*PCONC(:,1)*TPK%RO231(:)
-!
-!PTERMS(NO2,K221) = +TPK%CF32*K221*<NO>*<RO231>
- PTERMS(:,2,222) = +TPK%CF32*TPK%K221(:)*PCONC(:,1)*TPK%RO231(:)
-!
-!PTERMS(HO2,K221) = +TPK%CF32*K221*<NO>*<RO231>
- PTERMS(:,10,222) = +TPK%CF32*TPK%K221(:)*PCONC(:,1)*TPK%RO231(:)
-!
-!PTERMS(URG8,K221) = +TPK%CF31*K221*<NO>*<RO231>
- PTERMS(:,64,222) = +TPK%CF31*TPK%K221(:)*PCONC(:,1)*TPK%RO231(:)
-!
-!PTERMS(UR19,K221) = +TPK%CF32*K221*<NO>*<RO231>
- PTERMS(:,65,222) = +TPK%CF32*TPK%K221(:)*PCONC(:,1)*TPK%RO231(:)
-!
-!PTERMS(HO2,K222) = +K222*<RO2T>*<RO231>
- PTERMS(:,10,223) = +TPK%K222(:)*PCONC(:,85)*TPK%RO231(:)
-!
-!PTERMS(UR19,K222) = +K222*<RO2T>*<RO231>
- PTERMS(:,65,223) = +TPK%K222(:)*PCONC(:,85)*TPK%RO231(:)
-!
-!PTERMS(RO2T,K222) = -K222*<RO2T>*<RO231>
- PTERMS(:,85,223) = -TPK%K222(:)*PCONC(:,85)*TPK%RO231(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT36
-!
-SUBROUTINE SUBT37
-!
-!Indices 741 a 760
-!
-!PTERMS(HO2,K223) = -K223*<HO2>*<RO231>
- PTERMS(:,10,224) = -TPK%K223(:)*PCONC(:,10)*TPK%RO231(:)
-!
-!PTERMS(OH,K223) = +K223*<HO2>*<RO231>
- PTERMS(:,15,224) = +TPK%K223(:)*PCONC(:,10)*TPK%RO231(:)
-!
-!PTERMS(UR19,K223) = +K223*<HO2>*<RO231>
- PTERMS(:,65,224) = +TPK%K223(:)*PCONC(:,10)*TPK%RO231(:)
-!
-!PTERMS(NO,K224) = -K224*<NO>*<RO232>
- PTERMS(:,1,225) = -TPK%K224(:)*PCONC(:,1)*TPK%RO232(:)
-!
-!PTERMS(NO2,K224) = +TPK%CF34*K224*<NO>*<RO232>
- PTERMS(:,2,225) = +TPK%CF34*TPK%K224(:)*PCONC(:,1)*TPK%RO232(:)
-!
-!PTERMS(URG9,K224) = +TPK%CFA14*K224*<NO>*<RO232>
- PTERMS(:,66,225) = +TPK%CFA14*TPK%K224(:)*PCONC(:,1)*TPK%RO232(:)
-!
-!PTERMS(RO2T,K224) = +TPK%CF34*K224*<NO>*<RO232>
- PTERMS(:,85,225) = +TPK%CF34*TPK%K224(:)*PCONC(:,1)*TPK%RO232(:)
-!
-!PTERMS(RO2T,K225) = -K225*<RO2T>*<RO232>
- PTERMS(:,85,226) = -TPK%K225(:)*PCONC(:,85)*TPK%RO232(:)
-!
-!PTERMS(HO2,K226) = -K226*<HO2>*<RO232>
- PTERMS(:,10,227) = -TPK%K226(:)*PCONC(:,10)*TPK%RO232(:)
-!
-!PTERMS(OH,K226) = +K226*<HO2>*<RO232>
- PTERMS(:,15,227) = +TPK%K226(:)*PCONC(:,10)*TPK%RO232(:)
-!
-!PTERMS(RO2T,K226) = +K226*<HO2>*<RO232>
- PTERMS(:,85,227) = +TPK%K226(:)*PCONC(:,10)*TPK%RO232(:)
-!
-!PTERMS(NO,K227) = -K227*<NO>*<RO241>
- PTERMS(:,1,228) = -TPK%K227(:)*PCONC(:,1)*TPK%RO241(:)
-!
-!PTERMS(NO2,K227) = +TPK%CF36*K227*<NO>*<RO241>
- PTERMS(:,2,228) = +TPK%CF36*TPK%K227(:)*PCONC(:,1)*TPK%RO241(:)
-!
-!PTERMS(HO2,K227) = +TPK%CF36*K227*<NO>*<RO241>
- PTERMS(:,10,228) = +TPK%CF36*TPK%K227(:)*PCONC(:,1)*TPK%RO241(:)
-!
-!PTERMS(URG9,K227) = +TPK%CFA15*K227*<NO>*<RO241>
- PTERMS(:,66,228) = +TPK%CFA15*TPK%K227(:)*PCONC(:,1)*TPK%RO241(:)
-!
-!PTERMS(HO2,K228) = +K228*<RO2T>*<RO241>
- PTERMS(:,10,229) = +TPK%K228(:)*PCONC(:,85)*TPK%RO241(:)
-!
-!PTERMS(URG9,K228) = +0.9999996*K228*<RO2T>*<RO241>
- PTERMS(:,66,229) = +0.9999996*TPK%K228(:)*PCONC(:,85)*TPK%RO241(:)
-!
-!PTERMS(RO2T,K228) = -K228*<RO2T>*<RO241>
- PTERMS(:,85,229) = -TPK%K228(:)*PCONC(:,85)*TPK%RO241(:)
-!
-!PTERMS(HO2,K229) = -K229*<HO2>*<RO241>
- PTERMS(:,10,230) = -TPK%K229(:)*PCONC(:,10)*TPK%RO241(:)
-!
-!PTERMS(OH,K229) = +K229*<HO2>*<RO241>
- PTERMS(:,15,230) = +TPK%K229(:)*PCONC(:,10)*TPK%RO241(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT37
-!
-SUBROUTINE SUBT38
-!
-!Indices 761 a 780
-!
-!PTERMS(URG9,K229) = +0.9999996*K229*<HO2>*<RO241>
- PTERMS(:,66,230) = +0.9999996*TPK%K229(:)*PCONC(:,10)*TPK%RO241(:)
-!
-!PTERMS(RO2T,K230) = +K230*<RO233>
- PTERMS(:,85,231) = +TPK%K230(:)*TPK%RO233(:)
-!
-!PTERMS(NO,K231) = -K231*<NO>*<RO233>
- PTERMS(:,1,232) = -TPK%K231(:)*PCONC(:,1)*TPK%RO233(:)
-!
-!PTERMS(NO2,K231) = +K231*<NO>*<RO233>
- PTERMS(:,2,232) = +TPK%K231(:)*PCONC(:,1)*TPK%RO233(:)
-!
-!PTERMS(HO2,K231) = +K231*<NO>*<RO233>
- PTERMS(:,10,232) = +TPK%K231(:)*PCONC(:,1)*TPK%RO233(:)
-!
-!PTERMS(RPG3,K231) = +0.3000000*K231*<NO>*<RO233>
- PTERMS(:,52,232) = +0.3000000*TPK%K231(:)*PCONC(:,1)*TPK%RO233(:)
-!
-!PTERMS(HO2,K232) = +K232*<RO2T>*<RO233>
- PTERMS(:,10,233) = +TPK%K232(:)*PCONC(:,85)*TPK%RO233(:)
-!
-!PTERMS(RPG3,K232) = +1.0000000*K232*<RO2T>*<RO233>
- PTERMS(:,52,233) = +1.0000000*TPK%K232(:)*PCONC(:,85)*TPK%RO233(:)
-!
-!PTERMS(RO2T,K232) = -K232*<RO2T>*<RO233>
- PTERMS(:,85,233) = -TPK%K232(:)*PCONC(:,85)*TPK%RO233(:)
-!
-!PTERMS(HO2,K233) = -K233*<HO2>*<RO233>
- PTERMS(:,10,234) = -TPK%K233(:)*PCONC(:,10)*TPK%RO233(:)
-!
-!PTERMS(OH,K233) = +K233*<HO2>*<RO233>
- PTERMS(:,15,234) = +TPK%K233(:)*PCONC(:,10)*TPK%RO233(:)
-!
-!PTERMS(RPG3,K233) = +0.3000000*K233*<HO2>*<RO233>
- PTERMS(:,52,234) = +0.3000000*TPK%K233(:)*PCONC(:,10)*TPK%RO233(:)
-!
-!PTERMS(NO,K234) = -K234*<NO>*<RO242>
- PTERMS(:,1,235) = -TPK%K234(:)*PCONC(:,1)*TPK%RO242(:)
-!
-!PTERMS(NO2,K234) = +K234*<NO>*<RO242>
- PTERMS(:,2,235) = +TPK%K234(:)*PCONC(:,1)*TPK%RO242(:)
-!
-!PTERMS(HO2,K234) = +K234*<NO>*<RO242>
- PTERMS(:,10,235) = +TPK%K234(:)*PCONC(:,1)*TPK%RO242(:)
-!
-!PTERMS(MGLY,K234) = +K234*<NO>*<RO242>
- PTERMS(:,41,235) = +TPK%K234(:)*PCONC(:,1)*TPK%RO242(:)
-!
-!PTERMS(RP10,K234) = +K234*<NO>*<RO242>
- PTERMS(:,72,235) = +TPK%K234(:)*PCONC(:,1)*TPK%RO242(:)
-!
-!PTERMS(HO2,K235) = +K235*<RO2T>*<RO242>
- PTERMS(:,10,236) = +TPK%K235(:)*PCONC(:,85)*TPK%RO242(:)
-!
-!PTERMS(MGLY,K235) = +K235*<RO2T>*<RO242>
- PTERMS(:,41,236) = +TPK%K235(:)*PCONC(:,85)*TPK%RO242(:)
-!
-!PTERMS(RP10,K235) = +K235*<RO2T>*<RO242>
- PTERMS(:,72,236) = +TPK%K235(:)*PCONC(:,85)*TPK%RO242(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT38
-!
-SUBROUTINE SUBT39
-!
-!Indices 781 a 800
-!
-!PTERMS(RO2T,K235) = -K235*<RO2T>*<RO242>
- PTERMS(:,85,236) = -TPK%K235(:)*PCONC(:,85)*TPK%RO242(:)
-!
-!PTERMS(HO2,K236) = -K236*<HO2>*<RO242>
- PTERMS(:,10,237) = -TPK%K236(:)*PCONC(:,10)*TPK%RO242(:)
-!
-!PTERMS(OH,K236) = +K236*<HO2>*<RO242>
- PTERMS(:,15,237) = +TPK%K236(:)*PCONC(:,10)*TPK%RO242(:)
-!
-!PTERMS(MGLY,K236) = +K236*<HO2>*<RO242>
- PTERMS(:,41,237) = +TPK%K236(:)*PCONC(:,10)*TPK%RO242(:)
-!
-!PTERMS(RP10,K236) = +K236*<HO2>*<RO242>
- PTERMS(:,72,237) = +TPK%K236(:)*PCONC(:,10)*TPK%RO242(:)
-!
-!PTERMS(RO2T,K237) = +K237*<RO234>
- PTERMS(:,85,238) = +TPK%K237(:)*TPK%RO234(:)
-!
-!PTERMS(NO,K238) = -K238*<NO>*<RO234>
- PTERMS(:,1,239) = -TPK%K238(:)*PCONC(:,1)*TPK%RO234(:)
-!
-!PTERMS(NO2,K238) = +K238*<NO>*<RO234>
- PTERMS(:,2,239) = +TPK%K238(:)*PCONC(:,1)*TPK%RO234(:)
-!
-!PTERMS(HO2,K238) = +K238*<NO>*<RO234>
- PTERMS(:,10,239) = +TPK%K238(:)*PCONC(:,1)*TPK%RO234(:)
-!
-!PTERMS(RP11,K238) = +0.3*K238*<NO>*<RO234>
- PTERMS(:,73,239) = +0.3*TPK%K238(:)*PCONC(:,1)*TPK%RO234(:)
-!
-!PTERMS(HO2,K239) = +K239*<RO2T>*<RO234>
- PTERMS(:,10,240) = +TPK%K239(:)*PCONC(:,85)*TPK%RO234(:)
-!
-!PTERMS(RP11,K239) = +K239*<RO2T>*<RO234>
- PTERMS(:,73,240) = +TPK%K239(:)*PCONC(:,85)*TPK%RO234(:)
-!
-!PTERMS(RO2T,K239) = -K239*<RO2T>*<RO234>
- PTERMS(:,85,240) = -TPK%K239(:)*PCONC(:,85)*TPK%RO234(:)
-!
-!PTERMS(HO2,K240) = -K240*<HO2>*<RO234>
- PTERMS(:,10,241) = -TPK%K240(:)*PCONC(:,10)*TPK%RO234(:)
-!
-!PTERMS(OH,K240) = +K240*<HO2>*<RO234>
- PTERMS(:,15,241) = +TPK%K240(:)*PCONC(:,10)*TPK%RO234(:)
-!
-!PTERMS(RP11,K240) = +0.3*K240*<HO2>*<RO234>
- PTERMS(:,73,241) = +0.3*TPK%K240(:)*PCONC(:,10)*TPK%RO234(:)
-!
-!PTERMS(NO,K241) = -K241*<NO>*<RO243>
- PTERMS(:,1,242) = -TPK%K241(:)*PCONC(:,1)*TPK%RO243(:)
-!
-!PTERMS(NO2,K241) = +K241*<NO>*<RO243>
- PTERMS(:,2,242) = +TPK%K241(:)*PCONC(:,1)*TPK%RO243(:)
-!
-!PTERMS(HO2,K241) = +K241*<NO>*<RO243>
- PTERMS(:,10,242) = +TPK%K241(:)*PCONC(:,1)*TPK%RO243(:)
-!
-!PTERMS(MGLY,K241) = +K241*<NO>*<RO243>
- PTERMS(:,41,242) = +TPK%K241(:)*PCONC(:,1)*TPK%RO243(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT39
-!
-SUBROUTINE SUBT40
-!
-!Indices 801 a 820
-!
-!PTERMS(RP10,K241) = +K241*<NO>*<RO243>
- PTERMS(:,72,242) = +TPK%K241(:)*PCONC(:,1)*TPK%RO243(:)
-!
-!PTERMS(HO2,K242) = +K242*<RO2T>*<RO243>
- PTERMS(:,10,243) = +TPK%K242(:)*PCONC(:,85)*TPK%RO243(:)
-!
-!PTERMS(MGLY,K242) = +K242*<RO2T>*<RO243>
- PTERMS(:,41,243) = +TPK%K242(:)*PCONC(:,85)*TPK%RO243(:)
-!
-!PTERMS(RP10,K242) = +K242*<RO2T>*<RO243>
- PTERMS(:,72,243) = +TPK%K242(:)*PCONC(:,85)*TPK%RO243(:)
-!
-!PTERMS(RO2T,K242) = -K242*<RO2T>*<RO243>
- PTERMS(:,85,243) = -TPK%K242(:)*PCONC(:,85)*TPK%RO243(:)
-!
-!PTERMS(HO2,K243) = -K243*<HO2>*<RO243>
- PTERMS(:,10,244) = -TPK%K243(:)*PCONC(:,10)*TPK%RO243(:)
-!
-!PTERMS(OH,K243) = +K243*<HO2>*<RO243>
- PTERMS(:,15,244) = +TPK%K243(:)*PCONC(:,10)*TPK%RO243(:)
-!
-!PTERMS(MGLY,K243) = +K243*<HO2>*<RO243>
- PTERMS(:,41,244) = +TPK%K243(:)*PCONC(:,10)*TPK%RO243(:)
-!
-!PTERMS(RP10,K243) = +K243*<HO2>*<RO243>
- PTERMS(:,72,244) = +TPK%K243(:)*PCONC(:,10)*TPK%RO243(:)
-!
-!PTERMS(RO2T,K244) = +K244*<RO235>
- PTERMS(:,85,245) = +TPK%K244(:)*TPK%RO235(:)
-!
-!PTERMS(NO,K245) = -K245*<NO>*<RO235>
- PTERMS(:,1,246) = -TPK%K245(:)*PCONC(:,1)*TPK%RO235(:)
-!
-!PTERMS(NO2,K245) = +K245*<NO>*<RO235>
- PTERMS(:,2,246) = +TPK%K245(:)*PCONC(:,1)*TPK%RO235(:)
-!
-!PTERMS(HO2,K245) = +K245*<NO>*<RO235>
- PTERMS(:,10,246) = +TPK%K245(:)*PCONC(:,1)*TPK%RO235(:)
-!
-!PTERMS(RP11,K245) = +0.5*K245*<NO>*<RO235>
- PTERMS(:,73,246) = +0.5*TPK%K245(:)*PCONC(:,1)*TPK%RO235(:)
-!
-!PTERMS(HO2,K246) = +K246*<RO2T>*<RO235>
- PTERMS(:,10,247) = +TPK%K246(:)*PCONC(:,85)*TPK%RO235(:)
-!
-!PTERMS(RP11,K246) = +K246*<RO2T>*<RO235>
- PTERMS(:,73,247) = +TPK%K246(:)*PCONC(:,85)*TPK%RO235(:)
-!
-!PTERMS(RO2T,K246) = -K246*<RO2T>*<RO235>
- PTERMS(:,85,247) = -TPK%K246(:)*PCONC(:,85)*TPK%RO235(:)
-!
-!PTERMS(HO2,K247) = -K247*<HO2>*<RO235>
- PTERMS(:,10,248) = -TPK%K247(:)*PCONC(:,10)*TPK%RO235(:)
-!
-!PTERMS(OH,K247) = +K247*<HO2>*<RO235>
- PTERMS(:,15,248) = +TPK%K247(:)*PCONC(:,10)*TPK%RO235(:)
-!
-!PTERMS(RP11,K247) = +K247*<HO2>*<RO235>
- PTERMS(:,73,248) = +TPK%K247(:)*PCONC(:,10)*TPK%RO235(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT40
-!
-SUBROUTINE SUBT41
-!
-!Indices 821 a 840
-!
-!PTERMS(NO,K248) = -K248*<NO>*<RO244>
- PTERMS(:,1,249) = -TPK%K248(:)*PCONC(:,1)*TPK%RO244(:)
-!
-!PTERMS(NO2,K248) = +K248*<NO>*<RO244>
- PTERMS(:,2,249) = +TPK%K248(:)*PCONC(:,1)*TPK%RO244(:)
-!
-!PTERMS(HO2,K248) = +K248*<NO>*<RO244>
- PTERMS(:,10,249) = +TPK%K248(:)*PCONC(:,1)*TPK%RO244(:)
-!
-!PTERMS(MGLY,K248) = +K248*<NO>*<RO244>
- PTERMS(:,41,249) = +TPK%K248(:)*PCONC(:,1)*TPK%RO244(:)
-!
-!PTERMS(RP10,K248) = +K248*<NO>*<RO244>
- PTERMS(:,72,249) = +TPK%K248(:)*PCONC(:,1)*TPK%RO244(:)
-!
-!PTERMS(HO2,K249) = +K249*<RO2T>*<RO244>
- PTERMS(:,10,250) = +TPK%K249(:)*PCONC(:,85)*TPK%RO244(:)
-!
-!PTERMS(MGLY,K249) = +K249*<RO2T>*<RO244>
- PTERMS(:,41,250) = +TPK%K249(:)*PCONC(:,85)*TPK%RO244(:)
-!
-!PTERMS(RP10,K249) = +K249*<RO2T>*<RO244>
- PTERMS(:,72,250) = +TPK%K249(:)*PCONC(:,85)*TPK%RO244(:)
-!
-!PTERMS(RO2T,K249) = -K249*<RO2T>*<RO244>
- PTERMS(:,85,250) = -TPK%K249(:)*PCONC(:,85)*TPK%RO244(:)
-!
-!PTERMS(HO2,K250) = -K250*<HO2>*<RO244>
- PTERMS(:,10,251) = -TPK%K250(:)*PCONC(:,10)*TPK%RO244(:)
-!
-!PTERMS(OH,K250) = +K250*<HO2>*<RO244>
- PTERMS(:,15,251) = +TPK%K250(:)*PCONC(:,10)*TPK%RO244(:)
-!
-!PTERMS(MGLY,K250) = +K250*<HO2>*<RO244>
- PTERMS(:,41,251) = +TPK%K250(:)*PCONC(:,10)*TPK%RO244(:)
-!
-!PTERMS(RP10,K250) = +K250*<HO2>*<RO244>
- PTERMS(:,72,251) = +TPK%K250(:)*PCONC(:,10)*TPK%RO244(:)
-!
-!PTERMS(RO2T,K251) = +K251*<RO236>
- PTERMS(:,85,252) = +TPK%K251(:)*TPK%RO236(:)
-!
-!PTERMS(NO,K252) = -K252*<NO>*<RO236>
- PTERMS(:,1,253) = -TPK%K252(:)*PCONC(:,1)*TPK%RO236(:)
-!
-!PTERMS(NO2,K252) = +K252*<NO>*<RO236>
- PTERMS(:,2,253) = +TPK%K252(:)*PCONC(:,1)*TPK%RO236(:)
-!
-!PTERMS(HO2,K252) = +K252*<NO>*<RO236>
- PTERMS(:,10,253) = +TPK%K252(:)*PCONC(:,1)*TPK%RO236(:)
-!
-!PTERMS(RPG3,K252) = +0.3000000*K252*<NO>*<RO236>
- PTERMS(:,52,253) = +0.3000000*TPK%K252(:)*PCONC(:,1)*TPK%RO236(:)
-!
-!PTERMS(HO2,K253) = +K253*<RO2T>*<RO236>
- PTERMS(:,10,254) = +TPK%K253(:)*PCONC(:,85)*TPK%RO236(:)
-!
-!PTERMS(RPG3,K253) = +1.0000000*K253*<RO2T>*<RO236>
- PTERMS(:,52,254) = +1.0000000*TPK%K253(:)*PCONC(:,85)*TPK%RO236(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT41
-!
-SUBROUTINE SUBT42
-!
-!Indices 841 a 860
-!
-!PTERMS(RO2T,K253) = -K253*<RO2T>*<RO236>
- PTERMS(:,85,254) = -TPK%K253(:)*PCONC(:,85)*TPK%RO236(:)
-!
-!PTERMS(HO2,K254) = -K254*<HO2>*<RO236>
- PTERMS(:,10,255) = -TPK%K254(:)*PCONC(:,10)*TPK%RO236(:)
-!
-!PTERMS(OH,K254) = +K254*<HO2>*<RO236>
- PTERMS(:,15,255) = +TPK%K254(:)*PCONC(:,10)*TPK%RO236(:)
-!
-!PTERMS(RPG3,K254) = +0.3000000*K254*<HO2>*<RO236>
- PTERMS(:,52,255) = +0.3000000*TPK%K254(:)*PCONC(:,10)*TPK%RO236(:)
-!
-!PTERMS(NO,K255) = -K255*<NO>*<RO245>
- PTERMS(:,1,256) = -TPK%K255(:)*PCONC(:,1)*TPK%RO245(:)
-!
-!PTERMS(NO2,K255) = +K255*<NO>*<RO245>
- PTERMS(:,2,256) = +TPK%K255(:)*PCONC(:,1)*TPK%RO245(:)
-!
-!PTERMS(HO2,K255) = +K255*<NO>*<RO245>
- PTERMS(:,10,256) = +TPK%K255(:)*PCONC(:,1)*TPK%RO245(:)
-!
-!PTERMS(MGLY,K255) = +K255*<NO>*<RO245>
- PTERMS(:,41,256) = +TPK%K255(:)*PCONC(:,1)*TPK%RO245(:)
-!
-!PTERMS(RP10,K255) = +K255*<NO>*<RO245>
- PTERMS(:,72,256) = +TPK%K255(:)*PCONC(:,1)*TPK%RO245(:)
-!
-!PTERMS(HO2,K256) = +K256*<RO2T>*<RO245>
- PTERMS(:,10,257) = +TPK%K256(:)*PCONC(:,85)*TPK%RO245(:)
-!
-!PTERMS(MGLY,K256) = +K256*<RO2T>*<RO245>
- PTERMS(:,41,257) = +TPK%K256(:)*PCONC(:,85)*TPK%RO245(:)
-!
-!PTERMS(RP10,K256) = +K256*<RO2T>*<RO245>
- PTERMS(:,72,257) = +TPK%K256(:)*PCONC(:,85)*TPK%RO245(:)
-!
-!PTERMS(RO2T,K256) = -K256*<RO2T>*<RO245>
- PTERMS(:,85,257) = -TPK%K256(:)*PCONC(:,85)*TPK%RO245(:)
-!
-!PTERMS(HO2,K257) = -K257*<HO2>*<RO245>
- PTERMS(:,10,258) = -TPK%K257(:)*PCONC(:,10)*TPK%RO245(:)
-!
-!PTERMS(OH,K257) = +K257*<HO2>*<RO245>
- PTERMS(:,15,258) = +TPK%K257(:)*PCONC(:,10)*TPK%RO245(:)
-!
-!PTERMS(MGLY,K257) = +K257*<HO2>*<RO245>
- PTERMS(:,41,258) = +TPK%K257(:)*PCONC(:,10)*TPK%RO245(:)
-!
-!PTERMS(RP10,K257) = +K257*<HO2>*<RO245>
- PTERMS(:,72,258) = +TPK%K257(:)*PCONC(:,10)*TPK%RO245(:)
-!
-!PTERMS(RO2T,K258) = +K258*<RO237>
- PTERMS(:,85,259) = +TPK%K258(:)*TPK%RO237(:)
-!
-!PTERMS(NO,K259) = -K259*<NO>*<RO237>
- PTERMS(:,1,260) = -TPK%K259(:)*PCONC(:,1)*TPK%RO237(:)
-!
-!PTERMS(NO2,K259) = +K259*<NO>*<RO237>
- PTERMS(:,2,260) = +TPK%K259(:)*PCONC(:,1)*TPK%RO237(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT42
-!
-SUBROUTINE SUBT43
-!
-!Indices 861 a 880
-!
-!PTERMS(HO2,K259) = +K259*<NO>*<RO237>
- PTERMS(:,10,260) = +TPK%K259(:)*PCONC(:,1)*TPK%RO237(:)
-!
-!PTERMS(RPG2,K259) = +0.3000000*K259*<NO>*<RO237>
- PTERMS(:,50,260) = +0.3000000*TPK%K259(:)*PCONC(:,1)*TPK%RO237(:)
-!
-!PTERMS(HO2,K260) = +K260*<RO2T>*<RO237>
- PTERMS(:,10,261) = +TPK%K260(:)*PCONC(:,85)*TPK%RO237(:)
-!
-!PTERMS(RPG2,K260) = +1.0000000*K260*<RO2T>*<RO237>
- PTERMS(:,50,261) = +1.0000000*TPK%K260(:)*PCONC(:,85)*TPK%RO237(:)
-!
-!PTERMS(RO2T,K260) = -K260*<RO2T>*<RO237>
- PTERMS(:,85,261) = -TPK%K260(:)*PCONC(:,85)*TPK%RO237(:)
-!
-!PTERMS(HO2,K261) = -K261*<HO2>*<RO237>
- PTERMS(:,10,262) = -TPK%K261(:)*PCONC(:,10)*TPK%RO237(:)
-!
-!PTERMS(OH,K261) = +K261*<HO2>*<RO237>
- PTERMS(:,15,262) = +TPK%K261(:)*PCONC(:,10)*TPK%RO237(:)
-!
-!PTERMS(RPG2,K261) = +0.3000000*K261*<HO2>*<RO237>
- PTERMS(:,50,262) = +0.3000000*TPK%K261(:)*PCONC(:,10)*TPK%RO237(:)
-!
-!PTERMS(NO,K262) = -K262*<NO>*<RO246>
- PTERMS(:,1,263) = -TPK%K262(:)*PCONC(:,1)*TPK%RO246(:)
-!
-!PTERMS(NO2,K262) = +K262*<NO>*<RO246>
- PTERMS(:,2,263) = +TPK%K262(:)*PCONC(:,1)*TPK%RO246(:)
-!
-!PTERMS(HO2,K262) = +K262*<NO>*<RO246>
- PTERMS(:,10,263) = +TPK%K262(:)*PCONC(:,1)*TPK%RO246(:)
-!
-!PTERMS(MGLY,K262) = +K262*<NO>*<RO246>
- PTERMS(:,41,263) = +TPK%K262(:)*PCONC(:,1)*TPK%RO246(:)
-!
-!PTERMS(RP10,K262) = +K262*<NO>*<RO246>
- PTERMS(:,72,263) = +TPK%K262(:)*PCONC(:,1)*TPK%RO246(:)
-!
-!PTERMS(HO2,K263) = +K263*<RO2T>*<RO246>
- PTERMS(:,10,264) = +TPK%K263(:)*PCONC(:,85)*TPK%RO246(:)
-!
-!PTERMS(MGLY,K263) = +K263*<RO2T>*<RO246>
- PTERMS(:,41,264) = +TPK%K263(:)*PCONC(:,85)*TPK%RO246(:)
-!
-!PTERMS(RP10,K263) = +K263*<RO2T>*<RO246>
- PTERMS(:,72,264) = +TPK%K263(:)*PCONC(:,85)*TPK%RO246(:)
-!
-!PTERMS(RO2T,K263) = -K263*<RO2T>*<RO246>
- PTERMS(:,85,264) = -TPK%K263(:)*PCONC(:,85)*TPK%RO246(:)
-!
-!PTERMS(HO2,K264) = -K264*<HO2>*<RO246>
- PTERMS(:,10,265) = -TPK%K264(:)*PCONC(:,10)*TPK%RO246(:)
-!
-!PTERMS(OH,K264) = +K264*<HO2>*<RO246>
- PTERMS(:,15,265) = +TPK%K264(:)*PCONC(:,10)*TPK%RO246(:)
-!
-!PTERMS(MGLY,K264) = +K264*<HO2>*<RO246>
- PTERMS(:,41,265) = +TPK%K264(:)*PCONC(:,10)*TPK%RO246(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT43
-!
-SUBROUTINE SUBT44
-!
-!Indices 881 a 900
-!
-!PTERMS(RP10,K264) = +K264*<HO2>*<RO246>
- PTERMS(:,72,265) = +TPK%K264(:)*PCONC(:,10)*TPK%RO246(:)
-!
-!PTERMS(RO2T,K265) = +K265*<RO238>
- PTERMS(:,85,266) = +TPK%K265(:)*TPK%RO238(:)
-!
-!PTERMS(NO,K266) = -K266*<NO>*<RO238>
- PTERMS(:,1,267) = -TPK%K266(:)*PCONC(:,1)*TPK%RO238(:)
-!
-!PTERMS(NO2,K266) = +K266*<NO>*<RO238>
- PTERMS(:,2,267) = +TPK%K266(:)*PCONC(:,1)*TPK%RO238(:)
-!
-!PTERMS(HO2,K266) = +K266*<NO>*<RO238>
- PTERMS(:,10,267) = +TPK%K266(:)*PCONC(:,1)*TPK%RO238(:)
-!
-!PTERMS(RPG7,K266) = +1.0000013*K266*<NO>*<RO238>
- PTERMS(:,63,267) = +1.0000013*TPK%K266(:)*PCONC(:,1)*TPK%RO238(:)
-!
-!PTERMS(HO2,K267) = +K267*<RO2T>*<RO238>
- PTERMS(:,10,268) = +TPK%K267(:)*PCONC(:,85)*TPK%RO238(:)
-!
-!PTERMS(RPG7,K267) = +1.0000013*K267*<RO2T>*<RO238>
- PTERMS(:,63,268) = +1.0000013*TPK%K267(:)*PCONC(:,85)*TPK%RO238(:)
-!
-!PTERMS(RO2T,K267) = -K267*<RO2T>*<RO238>
- PTERMS(:,85,268) = -TPK%K267(:)*PCONC(:,85)*TPK%RO238(:)
-!
-!PTERMS(HO2,K268) = -K268*<HO2>*<RO238>
- PTERMS(:,10,269) = -TPK%K268(:)*PCONC(:,10)*TPK%RO238(:)
-!
-!PTERMS(OH,K268) = +K268*<HO2>*<RO238>
- PTERMS(:,15,269) = +TPK%K268(:)*PCONC(:,10)*TPK%RO238(:)
-!
-!PTERMS(RPG7,K268) = +1.0000013*K268*<HO2>*<RO238>
- PTERMS(:,63,269) = +1.0000013*TPK%K268(:)*PCONC(:,10)*TPK%RO238(:)
-!
-!PTERMS(NO,K269) = -K269*<NO>*<RO247>
- PTERMS(:,1,270) = -TPK%K269(:)*PCONC(:,1)*TPK%RO247(:)
-!
-!PTERMS(NO2,K269) = +K269*<NO>*<RO247>
- PTERMS(:,2,270) = +TPK%K269(:)*PCONC(:,1)*TPK%RO247(:)
-!
-!PTERMS(HO2,K269) = +K269*<NO>*<RO247>
- PTERMS(:,10,270) = +TPK%K269(:)*PCONC(:,1)*TPK%RO247(:)
-!
-!PTERMS(MGLY,K269) = +K269*<NO>*<RO247>
- PTERMS(:,41,270) = +TPK%K269(:)*PCONC(:,1)*TPK%RO247(:)
-!
-!PTERMS(RPRL,K269) = +1.0023998*K269*<NO>*<RO247>
- PTERMS(:,75,270) = +1.0023998*TPK%K269(:)*PCONC(:,1)*TPK%RO247(:)
-!
-!PTERMS(HO2,K270) = +K270*<RO2T>*<RO247>
- PTERMS(:,10,271) = +TPK%K270(:)*PCONC(:,85)*TPK%RO247(:)
-!
-!PTERMS(MGLY,K270) = +K270*<RO2T>*<RO247>
- PTERMS(:,41,271) = +TPK%K270(:)*PCONC(:,85)*TPK%RO247(:)
-!
-!PTERMS(RPRL,K270) = +1.0023998*K270*<RO2T>*<RO247>
- PTERMS(:,75,271) = +1.0023998*TPK%K270(:)*PCONC(:,85)*TPK%RO247(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT44
-!
-SUBROUTINE SUBT45
-!
-!Indices 901 a 920
-!
-!PTERMS(RO2T,K270) = -K270*<RO2T>*<RO247>
- PTERMS(:,85,271) = -TPK%K270(:)*PCONC(:,85)*TPK%RO247(:)
-!
-!PTERMS(HO2,K271) = -K271*<HO2>*<RO247>
- PTERMS(:,10,272) = -TPK%K271(:)*PCONC(:,10)*TPK%RO247(:)
-!
-!PTERMS(OH,K271) = +K271*<HO2>*<RO247>
- PTERMS(:,15,272) = +TPK%K271(:)*PCONC(:,10)*TPK%RO247(:)
-!
-!PTERMS(MGLY,K271) = +K271*<HO2>*<RO247>
- PTERMS(:,41,272) = +TPK%K271(:)*PCONC(:,10)*TPK%RO247(:)
-!
-!PTERMS(RPRL,K271) = +1.0023998*K271*<HO2>*<RO247>
- PTERMS(:,75,272) = +1.0023998*TPK%K271(:)*PCONC(:,10)*TPK%RO247(:)
-!
-!PTERMS(OH,K272) = -K272*<OH>*<MVK>
- PTERMS(:,15,273) = -TPK%K272(:)*PCONC(:,15)*PCONC(:,39)
-!
-!PTERMS(MVK,K272) = -K272*<OH>*<MVK>
- PTERMS(:,39,273) = -TPK%K272(:)*PCONC(:,15)*PCONC(:,39)
-!
-!PTERMS(RO2T,K272) = +K272*<OH>*<MVK>
- PTERMS(:,85,273) = +TPK%K272(:)*PCONC(:,15)*PCONC(:,39)
-!
-!PTERMS(OH,K273) = -K273*<OH>*<MCR>
- PTERMS(:,15,274) = -TPK%K273(:)*PCONC(:,15)*PCONC(:,40)
-!
-!PTERMS(MCR,K273) = -K273*<OH>*<MCR>
- PTERMS(:,40,274) = -TPK%K273(:)*PCONC(:,15)*PCONC(:,40)
-!
-!PTERMS(RO2T,K273) = +K273*<OH>*<MCR>
- PTERMS(:,85,274) = +TPK%K273(:)*PCONC(:,15)*PCONC(:,40)
-!
-!PTERMS(OH,K274) = -K274*<OH>*<MGLY>
- PTERMS(:,15,275) = -TPK%K274(:)*PCONC(:,15)*PCONC(:,41)
-!
-!PTERMS(MGLY,K274) = -K274*<OH>*<MGLY>
- PTERMS(:,41,275) = -TPK%K274(:)*PCONC(:,15)*PCONC(:,41)
-!
-!PTERMS(RO2T,K274) = +K274*<OH>*<MGLY>
- PTERMS(:,85,275) = +TPK%K274(:)*PCONC(:,15)*PCONC(:,41)
-!
-!PTERMS(HNO3,K275) = +TPK%CF46*K275*<NO3>*<MCR>
- PTERMS(:,5,276) = +TPK%CF46*TPK%K275(:)*PCONC(:,8)*PCONC(:,40)
-!
-!PTERMS(NO3,K275) = -K275*<NO3>*<MCR>
- PTERMS(:,8,276) = -TPK%K275(:)*PCONC(:,8)*PCONC(:,40)
-!
-!PTERMS(MCR,K275) = -K275*<NO3>*<MCR>
- PTERMS(:,40,276) = -TPK%K275(:)*PCONC(:,8)*PCONC(:,40)
-!
-!PTERMS(RO2T,K275) = +K275*<NO3>*<MCR>
- PTERMS(:,85,276) = +TPK%K275(:)*PCONC(:,8)*PCONC(:,40)
-!
-!PTERMS(HO2,K276) = +K276*<MGLY>
- PTERMS(:,10,277) = +TPK%K276(:)*PCONC(:,41)
-!
-!PTERMS(CO,K276) = +K276*<MGLY>
- PTERMS(:,11,277) = +TPK%K276(:)*PCONC(:,41)
-!
-!
-RETURN
-END SUBROUTINE SUBT45
-!
-SUBROUTINE SUBT46
-!
-!Indices 921 a 940
-!
-!PTERMS(MGLY,K276) = -K276*<MGLY>
- PTERMS(:,41,277) = -TPK%K276(:)*PCONC(:,41)
-!
-!PTERMS(RO2T,K276) = +K276*<MGLY>
- PTERMS(:,85,277) = +TPK%K276(:)*PCONC(:,41)
-!
-!PTERMS(NO,K277) = -K277*<NO>*<RO248>
- PTERMS(:,1,278) = -TPK%K277(:)*PCONC(:,1)*TPK%RO248(:)
-!
-!PTERMS(NO2,K277) = +K277*<NO>*<RO248>
- PTERMS(:,2,278) = +TPK%K277(:)*PCONC(:,1)*TPK%RO248(:)
-!
-!PTERMS(RO2T,K277) = +K277*<NO>*<RO248>
- PTERMS(:,85,278) = +TPK%K277(:)*PCONC(:,1)*TPK%RO248(:)
-!
-!PTERMS(HNO3,K278) = +K278*<NO3>*<MGLY>
- PTERMS(:,5,279) = +TPK%K278(:)*PCONC(:,8)*PCONC(:,41)
-!
-!PTERMS(NO3,K278) = -K278*<NO3>*<MGLY>
- PTERMS(:,8,279) = -TPK%K278(:)*PCONC(:,8)*PCONC(:,41)
-!
-!PTERMS(MGLY,K278) = -K278*<NO3>*<MGLY>
- PTERMS(:,41,279) = -TPK%K278(:)*PCONC(:,8)*PCONC(:,41)
-!
-!PTERMS(RO2T,K278) = +K278*<NO3>*<MGLY>
- PTERMS(:,85,279) = +TPK%K278(:)*PCONC(:,8)*PCONC(:,41)
-!
-!PTERMS(O3,K279) = +K279*<HO2>*<RO248>
- PTERMS(:,3,280) = +TPK%K279(:)*PCONC(:,10)*TPK%RO248(:)
-!
-!PTERMS(HO2,K279) = -K279*<HO2>*<RO248>
- PTERMS(:,10,280) = -TPK%K279(:)*PCONC(:,10)*TPK%RO248(:)
-!
-!PTERMS(UR21,K279) = +K279*<HO2>*<RO248>
- PTERMS(:,47,280) = +TPK%K279(:)*PCONC(:,10)*TPK%RO248(:)
-!
-!PTERMS(RO2T,K280) = -K280*<RO2T>*<RO248>
- PTERMS(:,85,281) = -TPK%K280(:)*PCONC(:,85)*TPK%RO248(:)
-!
-!PTERMS(O3,K281) = -K281*<O3>*<MVK>
- PTERMS(:,3,282) = -TPK%K281(:)*PCONC(:,3)*PCONC(:,39)
-!
-!PTERMS(HO2,K281) = +0.28*K281*<O3>*<MVK>
- PTERMS(:,10,282) = +0.28*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)
-!
-!PTERMS(CO,K281) = +0.56*K281*<O3>*<MVK>
- PTERMS(:,11,282) = +0.56*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)
-!
-!PTERMS(OH,K281) = +0.36*K281*<O3>*<MVK>
- PTERMS(:,15,282) = +0.36*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)
-!
-!PTERMS(HCHO,K281) = +0.5*K281*<O3>*<MVK>
- PTERMS(:,28,282) = +0.5*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)
-!
-!PTERMS(ALD2,K281) = +0.1*K281*<O3>*<MVK>
- PTERMS(:,29,282) = +0.1*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)
-!
-!PTERMS(MVK,K281) = -K281*<O3>*<MVK>
- PTERMS(:,39,282) = -TPK%K281(:)*PCONC(:,3)*PCONC(:,39)
-!
-!
-RETURN
-END SUBROUTINE SUBT46
-!
-SUBROUTINE SUBT47
-!
-!Indices 941 a 960
-!
-!PTERMS(MGLY,K281) = +0.5*K281*<O3>*<MVK>
- PTERMS(:,41,282) = +0.5*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)
-!
-!PTERMS(ORA1,K281) = +0.12*K281*<O3>*<MVK>
- PTERMS(:,43,282) = +0.12*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)
-!
-!PTERMS(UR21,K281) = +0.12*K281*<O3>*<MVK>
- PTERMS(:,47,282) = +0.12*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)
-!
-!PTERMS(RO2T,K281) = +0.28*K281*<O3>*<MVK>
- PTERMS(:,85,282) = +0.28*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)
-!
-!PTERMS(O3,K282) = -K282*<O3>*<MCR>
- PTERMS(:,3,283) = -TPK%K282(:)*PCONC(:,3)*PCONC(:,40)
-!
-!PTERMS(HO2,K282) = +0.41*K282*<O3>*<MCR>
- PTERMS(:,10,283) = +0.41*TPK%K282(:)*PCONC(:,3)*PCONC(:,40)
-!
-!PTERMS(CO,K282) = +0.41*K282*<O3>*<MCR>
- PTERMS(:,11,283) = +0.41*TPK%K282(:)*PCONC(:,3)*PCONC(:,40)
-!
-!PTERMS(OH,K282) = +0.82*K282*<O3>*<MCR>
- PTERMS(:,15,283) = +0.82*TPK%K282(:)*PCONC(:,3)*PCONC(:,40)
-!
-!PTERMS(HCHO,K282) = +0.5*K282*<O3>*<MCR>
- PTERMS(:,28,283) = +0.5*TPK%K282(:)*PCONC(:,3)*PCONC(:,40)
-!
-!PTERMS(MCR,K282) = -K282*<O3>*<MCR>
- PTERMS(:,40,283) = -TPK%K282(:)*PCONC(:,3)*PCONC(:,40)
-!
-!PTERMS(MGLY,K282) = +0.59*K282*<O3>*<MCR>
- PTERMS(:,41,283) = +0.59*TPK%K282(:)*PCONC(:,3)*PCONC(:,40)
-!
-!PTERMS(ORA1,K282) = +0.09*K282*<O3>*<MCR>
- PTERMS(:,43,283) = +0.09*TPK%K282(:)*PCONC(:,3)*PCONC(:,40)
-!
-!PTERMS(RO2T,K282) = +0.41*K282*<O3>*<MCR>
- PTERMS(:,85,283) = +0.41*TPK%K282(:)*PCONC(:,3)*PCONC(:,40)
-!
-!PTERMS(KETL,K283) = +0.85*K283*<O>*<MVK>
- PTERMS(:,30,284) = +0.85*TPK%K283(:)*TPK%O(:)*PCONC(:,39)
-!
-!PTERMS(MVK,K283) = -K283*<O>*<MVK>
- PTERMS(:,39,284) = -TPK%K283(:)*TPK%O(:)*PCONC(:,39)
-!
-!PTERMS(RO2T,K283) = +0.3*K283*<O>*<MVK>
- PTERMS(:,85,284) = +0.3*TPK%K283(:)*TPK%O(:)*PCONC(:,39)
-!
-!PTERMS(HO2,K284) = +0.15*K284*<O>*<MCR>
- PTERMS(:,10,285) = +0.15*TPK%K284(:)*TPK%O(:)*PCONC(:,40)
-!
-!PTERMS(CO,K284) = +0.15*K284*<O>*<MCR>
- PTERMS(:,11,285) = +0.15*TPK%K284(:)*TPK%O(:)*PCONC(:,40)
-!
-!PTERMS(ALD2,K284) = +0.85*K284*<O>*<MCR>
- PTERMS(:,29,285) = +0.85*TPK%K284(:)*TPK%O(:)*PCONC(:,40)
-!
-!PTERMS(MCR,K284) = -K284*<O>*<MCR>
- PTERMS(:,40,285) = -TPK%K284(:)*TPK%O(:)*PCONC(:,40)
-!
-!
-RETURN
-END SUBROUTINE SUBT47
-!
-SUBROUTINE SUBT48
-!
-!Indices 961 a 980
-!
-!PTERMS(RO2T,K284) = +0.15*K284*<O>*<MCR>
- PTERMS(:,85,285) = +0.15*TPK%K284(:)*TPK%O(:)*PCONC(:,40)
-!
-!PTERMS(NO,K285) = -K285*<NO>*<RO249>
- PTERMS(:,1,286) = -TPK%K285(:)*PCONC(:,1)*TPK%RO249(:)
-!
-!PTERMS(NO2,K285) = +K285*<NO>*<RO249>
- PTERMS(:,2,286) = +TPK%K285(:)*PCONC(:,1)*TPK%RO249(:)
-!
-!PTERMS(HO2,K285) = +K285*<NO>*<RO249>
- PTERMS(:,10,286) = +TPK%K285(:)*PCONC(:,1)*TPK%RO249(:)
-!
-!PTERMS(HCHO,K285) = +K285*<NO>*<RO249>
- PTERMS(:,28,286) = +TPK%K285(:)*PCONC(:,1)*TPK%RO249(:)
-!
-!PTERMS(MGLY,K285) = +K285*<NO>*<RO249>
- PTERMS(:,41,286) = +TPK%K285(:)*PCONC(:,1)*TPK%RO249(:)
-!
-!PTERMS(HO2,K286) = +K286*<RO2T>*<RO249>
- PTERMS(:,10,287) = +TPK%K286(:)*PCONC(:,85)*TPK%RO249(:)
-!
-!PTERMS(HCHO,K286) = +K286*<RO2T>*<RO249>
- PTERMS(:,28,287) = +TPK%K286(:)*PCONC(:,85)*TPK%RO249(:)
-!
-!PTERMS(MGLY,K286) = +K286*<RO2T>*<RO249>
- PTERMS(:,41,287) = +TPK%K286(:)*PCONC(:,85)*TPK%RO249(:)
-!
-!PTERMS(RO2T,K286) = -K286*<RO2T>*<RO249>
- PTERMS(:,85,287) = -TPK%K286(:)*PCONC(:,85)*TPK%RO249(:)
-!
-!PTERMS(HO2,K287) = -K287*<HO2>*<RO249>
- PTERMS(:,10,288) = -TPK%K287(:)*PCONC(:,10)*TPK%RO249(:)
-!
-!PTERMS(OH,K287) = +K287*<HO2>*<RO249>
- PTERMS(:,15,288) = +TPK%K287(:)*PCONC(:,10)*TPK%RO249(:)
-!
-!PTERMS(HCHO,K287) = +K287*<HO2>*<RO249>
- PTERMS(:,28,288) = +TPK%K287(:)*PCONC(:,10)*TPK%RO249(:)
-!
-!PTERMS(MGLY,K287) = +K287*<HO2>*<RO249>
- PTERMS(:,41,288) = +TPK%K287(:)*PCONC(:,10)*TPK%RO249(:)
-!
-!PTERMS(NO,K288) = -K288*<NO>*<RO250>
- PTERMS(:,1,289) = -TPK%K288(:)*PCONC(:,1)*TPK%RO250(:)
-!
-!PTERMS(NO2,K288) = +K288*<NO>*<RO250>
- PTERMS(:,2,289) = +TPK%K288(:)*PCONC(:,1)*TPK%RO250(:)
-!
-!PTERMS(RO2T,K288) = +K288*<NO>*<RO250>
- PTERMS(:,85,289) = +TPK%K288(:)*PCONC(:,1)*TPK%RO250(:)
-!
-!PTERMS(O3,K289) = +K289*<HO2>*<RO250>
- PTERMS(:,3,290) = +TPK%K289(:)*PCONC(:,10)*TPK%RO250(:)
-!
-!PTERMS(HO2,K289) = -K289*<HO2>*<RO250>
- PTERMS(:,10,290) = -TPK%K289(:)*PCONC(:,10)*TPK%RO250(:)
-!
-!PTERMS(OLEL,K289) = +0.5*K289*<HO2>*<RO250>
- PTERMS(:,17,290) = +0.5*TPK%K289(:)*PCONC(:,10)*TPK%RO250(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT48
-!
-SUBROUTINE SUBT49
-!
-!Indices 981 a 1000
-!
-!PTERMS(ORA2,K289) = +0.5*K289*<HO2>*<RO250>
- PTERMS(:,44,290) = +0.5*TPK%K289(:)*PCONC(:,10)*TPK%RO250(:)
-!
-!PTERMS(RO2T,K290) = -K290*<RO2T>*<RO250>
- PTERMS(:,85,291) = -TPK%K290(:)*PCONC(:,85)*TPK%RO250(:)
-!
-!PTERMS(NO,K291) = -K291*<NO>*<RO251>
- PTERMS(:,1,292) = -TPK%K291(:)*PCONC(:,1)*TPK%RO251(:)
-!
-!PTERMS(NO2,K291) = +K291*<NO>*<RO251>
- PTERMS(:,2,292) = +TPK%K291(:)*PCONC(:,1)*TPK%RO251(:)
-!
-!PTERMS(HO2,K291) = +K291*<NO>*<RO251>
- PTERMS(:,10,292) = +TPK%K291(:)*PCONC(:,1)*TPK%RO251(:)
-!
-!PTERMS(HCHO,K291) = +K291*<NO>*<RO251>
- PTERMS(:,28,292) = +TPK%K291(:)*PCONC(:,1)*TPK%RO251(:)
-!
-!PTERMS(MGLY,K291) = +K291*<NO>*<RO251>
- PTERMS(:,41,292) = +TPK%K291(:)*PCONC(:,1)*TPK%RO251(:)
-!
-!PTERMS(HO2,K292) = -K292*<HO2>*<RO251>
- PTERMS(:,10,293) = -TPK%K292(:)*PCONC(:,10)*TPK%RO251(:)
-!
-!PTERMS(HCHO,K292) = +K292*<HO2>*<RO251>
- PTERMS(:,28,293) = +TPK%K292(:)*PCONC(:,10)*TPK%RO251(:)
-!
-!PTERMS(MGLY,K292) = +K292*<HO2>*<RO251>
- PTERMS(:,41,293) = +TPK%K292(:)*PCONC(:,10)*TPK%RO251(:)
-!
-!PTERMS(RO2T,K292) = +K292*<HO2>*<RO251>
- PTERMS(:,85,293) = +TPK%K292(:)*PCONC(:,10)*TPK%RO251(:)
-!
-!PTERMS(HO2,K293) = +K293*<RO2T>*<RO251>
- PTERMS(:,10,294) = +TPK%K293(:)*PCONC(:,85)*TPK%RO251(:)
-!
-!PTERMS(OH,K293) = +K293*<RO2T>*<RO251>
- PTERMS(:,15,294) = +TPK%K293(:)*PCONC(:,85)*TPK%RO251(:)
-!
-!PTERMS(HCHO,K293) = +K293*<RO2T>*<RO251>
- PTERMS(:,28,294) = +TPK%K293(:)*PCONC(:,85)*TPK%RO251(:)
-!
-!PTERMS(MGLY,K293) = +K293*<RO2T>*<RO251>
- PTERMS(:,41,294) = +TPK%K293(:)*PCONC(:,85)*TPK%RO251(:)
-!
-!PTERMS(RO2T,K293) = -K293*<RO2T>*<RO251>
- PTERMS(:,85,294) = -TPK%K293(:)*PCONC(:,85)*TPK%RO251(:)
-!
-!PTERMS(NO,K294) = -K294*<NO>*<RO252>
- PTERMS(:,1,295) = -TPK%K294(:)*PCONC(:,1)*TPK%RO252(:)
-!
-!PTERMS(NO2,K294) = +2.*K294*<NO>*<RO252>
- PTERMS(:,2,295) = +2.*TPK%K294(:)*PCONC(:,1)*TPK%RO252(:)
-!
-!PTERMS(HCHO,K294) = +K294*<NO>*<RO252>
- PTERMS(:,28,295) = +TPK%K294(:)*PCONC(:,1)*TPK%RO252(:)
-!
-!PTERMS(MGLY,K294) = +K294*<NO>*<RO252>
- PTERMS(:,41,295) = +TPK%K294(:)*PCONC(:,1)*TPK%RO252(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT49
-!
-SUBROUTINE SUBT50
-!
-!Indices 1001 a 1020
-!
-!PTERMS(NO2,K295) = +K295*<HO2>*<RO252>
- PTERMS(:,2,296) = +TPK%K295(:)*PCONC(:,10)*TPK%RO252(:)
-!
-!PTERMS(HO2,K295) = -K295*<HO2>*<RO252>
- PTERMS(:,10,296) = -TPK%K295(:)*PCONC(:,10)*TPK%RO252(:)
-!
-!PTERMS(HCHO,K295) = +K295*<HO2>*<RO252>
- PTERMS(:,28,296) = +TPK%K295(:)*PCONC(:,10)*TPK%RO252(:)
-!
-!PTERMS(MGLY,K295) = +K295*<HO2>*<RO252>
- PTERMS(:,41,296) = +TPK%K295(:)*PCONC(:,10)*TPK%RO252(:)
-!
-!PTERMS(RO2T,K295) = +K295*<HO2>*<RO252>
- PTERMS(:,85,296) = +TPK%K295(:)*PCONC(:,10)*TPK%RO252(:)
-!
-!PTERMS(NO2,K296) = +K296*<RO2T>*<RO252>
- PTERMS(:,2,297) = +TPK%K296(:)*PCONC(:,85)*TPK%RO252(:)
-!
-!PTERMS(OH,K296) = +K296*<RO2T>*<RO252>
- PTERMS(:,15,297) = +TPK%K296(:)*PCONC(:,85)*TPK%RO252(:)
-!
-!PTERMS(HCHO,K296) = +K296*<RO2T>*<RO252>
- PTERMS(:,28,297) = +TPK%K296(:)*PCONC(:,85)*TPK%RO252(:)
-!
-!PTERMS(MGLY,K296) = +K296*<RO2T>*<RO252>
- PTERMS(:,41,297) = +TPK%K296(:)*PCONC(:,85)*TPK%RO252(:)
-!
-!PTERMS(RO2T,K296) = -K296*<RO2T>*<RO252>
- PTERMS(:,85,297) = -TPK%K296(:)*PCONC(:,85)*TPK%RO252(:)
-!
-!PTERMS(NO,K297) = -K297*<NO>*<RO253>
- PTERMS(:,1,298) = -TPK%K297(:)*PCONC(:,1)*TPK%RO253(:)
-!
-!PTERMS(NO2,K297) = +K297*<NO>*<RO253>
- PTERMS(:,2,298) = +TPK%K297(:)*PCONC(:,1)*TPK%RO253(:)
-!
-!PTERMS(HCHO,K297) = +K297*<NO>*<RO253>
- PTERMS(:,28,298) = +TPK%K297(:)*PCONC(:,1)*TPK%RO253(:)
-!
-!PTERMS(RO2T,K297) = +K297*<NO>*<RO253>
- PTERMS(:,85,298) = +TPK%K297(:)*PCONC(:,1)*TPK%RO253(:)
-!
-!PTERMS(HO2,K298) = -K298*<HO2>*<RO253>
- PTERMS(:,10,299) = -TPK%K298(:)*PCONC(:,10)*TPK%RO253(:)
-!
-!PTERMS(HCHO,K298) = +K298*<HO2>*<RO253>
- PTERMS(:,28,299) = +TPK%K298(:)*PCONC(:,10)*TPK%RO253(:)
-!
-!PTERMS(RO2T,K298) = +2.*K298*<HO2>*<RO253>
- PTERMS(:,85,299) = +2.*TPK%K298(:)*PCONC(:,10)*TPK%RO253(:)
-!
-!PTERMS(OH,K299) = +K299*<RO2T>*<RO253>
- PTERMS(:,15,300) = +TPK%K299(:)*PCONC(:,85)*TPK%RO253(:)
-!
-!PTERMS(HCHO,K299) = +K299*<RO2T>*<RO253>
- PTERMS(:,28,300) = +TPK%K299(:)*PCONC(:,85)*TPK%RO253(:)
-!
-!PTERMS(RO2T,K299) = -K299*<RO2T>*<RO253>
- PTERMS(:,85,300) = -TPK%K299(:)*PCONC(:,85)*TPK%RO253(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT50
-!
-SUBROUTINE SUBT51
-!
-!Indices 1021 a 1040
-!
-!PTERMS(NO,K300) = -K300*<NO>*<RO254>
- PTERMS(:,1,301) = -TPK%K300(:)*PCONC(:,1)*TPK%RO254(:)
-!
-!PTERMS(NO2,K300) = +K300*<NO>*<RO254>
- PTERMS(:,2,301) = +TPK%K300(:)*PCONC(:,1)*TPK%RO254(:)
-!
-!PTERMS(HO2,K300) = +K300*<NO>*<RO254>
- PTERMS(:,10,301) = +TPK%K300(:)*PCONC(:,1)*TPK%RO254(:)
-!
-!PTERMS(CO,K300) = +K300*<NO>*<RO254>
- PTERMS(:,11,301) = +TPK%K300(:)*PCONC(:,1)*TPK%RO254(:)
-!
-!PTERMS(O3,K301) = +K301*<HO2>*<RO254>
- PTERMS(:,3,302) = +TPK%K301(:)*PCONC(:,10)*TPK%RO254(:)
-!
-!PTERMS(HO2,K301) = -K301*<HO2>*<RO254>
- PTERMS(:,10,302) = -TPK%K301(:)*PCONC(:,10)*TPK%RO254(:)
-!
-!PTERMS(RP16,K301) = +K301*<HO2>*<RO254>
- PTERMS(:,74,302) = +TPK%K301(:)*PCONC(:,10)*TPK%RO254(:)
-!
-!PTERMS(HO2,K302) = +K302*<RO2T>*<RO254>
- PTERMS(:,10,303) = +TPK%K302(:)*PCONC(:,85)*TPK%RO254(:)
-!
-!PTERMS(CO,K302) = +K302*<RO2T>*<RO254>
- PTERMS(:,11,303) = +TPK%K302(:)*PCONC(:,85)*TPK%RO254(:)
-!
-!PTERMS(RO2T,K302) = -K302*<RO2T>*<RO254>
- PTERMS(:,85,303) = -TPK%K302(:)*PCONC(:,85)*TPK%RO254(:)
-!
-!PTERMS(O3,K303) = +K303*<OH>*<RPR5>
- PTERMS(:,3,304) = +TPK%K303(:)*PCONC(:,15)*PCONC(:,70)
-!
-!PTERMS(OH,K303) = -K303*<OH>*<RPR5>
- PTERMS(:,15,304) = -TPK%K303(:)*PCONC(:,15)*PCONC(:,70)
-!
-!PTERMS(URG7,K303) = +0.9999993*K303*<OH>*<RPR5>
- PTERMS(:,60,304) = +0.9999993*TPK%K303(:)*PCONC(:,15)*PCONC(:,70)
-!
-!PTERMS(RPR5,K303) = -K303*<OH>*<RPR5>
- PTERMS(:,70,304) = -TPK%K303(:)*PCONC(:,15)*PCONC(:,70)
-!
-!PTERMS(OH,K304) = -K304*<OH>*<RPR1>
- PTERMS(:,15,305) = -TPK%K304(:)*PCONC(:,15)*PCONC(:,69)
-!
-!PTERMS(RPR1,K304) = -K304*<OH>*<RPR1>
- PTERMS(:,69,305) = -TPK%K304(:)*PCONC(:,15)*PCONC(:,69)
-!
-!PTERMS(RO2T,K304) = +K304*<OH>*<RPR1>
- PTERMS(:,85,305) = +TPK%K304(:)*PCONC(:,15)*PCONC(:,69)
-!
-!PTERMS(OH,K305) = -K305*<OH>*<RP16>
- PTERMS(:,15,306) = -TPK%K305(:)*PCONC(:,15)*PCONC(:,74)
-!
-!PTERMS(RP16,K305) = -K305*<OH>*<RP16>
- PTERMS(:,74,306) = -TPK%K305(:)*PCONC(:,15)*PCONC(:,74)
-!
-!PTERMS(RO2T,K305) = +K305*<OH>*<RP16>
- PTERMS(:,85,306) = +TPK%K305(:)*PCONC(:,15)*PCONC(:,74)
-!
-!
-RETURN
-END SUBROUTINE SUBT51
-!
-SUBROUTINE SUBT52
-!
-!Indices 1041 a 1060
-!
-!PTERMS(O3,K306) = +1.0000011*K306*<OH>*<RPRL>
- PTERMS(:,3,307) = +1.0000011*TPK%K306(:)*PCONC(:,15)*PCONC(:,75)
-!
-!PTERMS(OH,K306) = -K306*<OH>*<RPRL>
- PTERMS(:,15,307) = -TPK%K306(:)*PCONC(:,15)*PCONC(:,75)
-!
-!PTERMS(URG7,K306) = +0.9979297*K306*<OH>*<RPRL>
- PTERMS(:,60,307) = +0.9979297*TPK%K306(:)*PCONC(:,15)*PCONC(:,75)
-!
-!PTERMS(RPR7,K306) = +2.0714202E-03*K306*<OH>*<RPRL>
- PTERMS(:,62,307) = +2.0714202E-03*TPK%K306(:)*PCONC(:,15)*PCONC(:,75)
-!
-!PTERMS(RPRL,K306) = -K306*<OH>*<RPRL>
- PTERMS(:,75,307) = -TPK%K306(:)*PCONC(:,15)*PCONC(:,75)
-!
-!PTERMS(HNO3,K307) = +K307*<NO3>*<RPR1>
- PTERMS(:,5,308) = +TPK%K307(:)*PCONC(:,8)*PCONC(:,69)
-!
-!PTERMS(NO3,K307) = -K307*<NO3>*<RPR1>
- PTERMS(:,8,308) = -TPK%K307(:)*PCONC(:,8)*PCONC(:,69)
-!
-!PTERMS(RPR1,K307) = -K307*<NO3>*<RPR1>
- PTERMS(:,69,308) = -TPK%K307(:)*PCONC(:,8)*PCONC(:,69)
-!
-!PTERMS(RO2T,K307) = +K307*<NO3>*<RPR1>
- PTERMS(:,85,308) = +TPK%K307(:)*PCONC(:,8)*PCONC(:,69)
-!
-!PTERMS(HO2,K308) = +K308*<RPR1>
- PTERMS(:,10,309) = +TPK%K308(:)*PCONC(:,69)
-!
-!PTERMS(CO,K308) = +K308*<RPR1>
- PTERMS(:,11,309) = +TPK%K308(:)*PCONC(:,69)
-!
-!PTERMS(RPR1,K308) = -K308*<RPR1>
- PTERMS(:,69,309) = -TPK%K308(:)*PCONC(:,69)
-!
-!PTERMS(RO2T,K308) = +K308*<RPR1>
- PTERMS(:,85,309) = +TPK%K308(:)*PCONC(:,69)
-!
-!PTERMS(NO,K309) = -K309*<NO>*<RO255>
- PTERMS(:,1,310) = -TPK%K309(:)*PCONC(:,1)*TPK%RO255(:)
-!
-!PTERMS(NO2,K309) = +K309*<NO>*<RO255>
- PTERMS(:,2,310) = +TPK%K309(:)*PCONC(:,1)*TPK%RO255(:)
-!
-!PTERMS(RO2T,K309) = +K309*<NO>*<RO255>
- PTERMS(:,85,310) = +TPK%K309(:)*PCONC(:,1)*TPK%RO255(:)
-!
-!PTERMS(O3,K310) = +K310*<HO2>*<RO255>
- PTERMS(:,3,311) = +TPK%K310(:)*PCONC(:,10)*TPK%RO255(:)
-!
-!PTERMS(HO2,K310) = -K310*<HO2>*<RO255>
- PTERMS(:,10,311) = -TPK%K310(:)*PCONC(:,10)*TPK%RO255(:)
-!
-!PTERMS(ACID,K310) = +K310*<HO2>*<RO255>
- PTERMS(:,45,311) = +TPK%K310(:)*PCONC(:,10)*TPK%RO255(:)
-!
-!PTERMS(RO2T,K311) = -K311*<RO2T>*<RO255>
- PTERMS(:,85,312) = -TPK%K311(:)*PCONC(:,85)*TPK%RO255(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT52
-!
-SUBROUTINE SUBT53
-!
-!Indices 1061 a 1080
-!
-!PTERMS(OH,K312) = -K312*<OH>*<RPR3>
- PTERMS(:,15,313) = -TPK%K312(:)*PCONC(:,15)*PCONC(:,57)
-!
-!PTERMS(RPR3,K312) = -K312*<OH>*<RPR3>
- PTERMS(:,57,313) = -TPK%K312(:)*PCONC(:,15)*PCONC(:,57)
-!
-!PTERMS(RO2T,K312) = +K312*<OH>*<RPR3>
- PTERMS(:,85,313) = +TPK%K312(:)*PCONC(:,15)*PCONC(:,57)
-!
-!PTERMS(HNO3,K313) = +K313*<NO3>*<RPR3>
- PTERMS(:,5,314) = +TPK%K313(:)*PCONC(:,8)*PCONC(:,57)
-!
-!PTERMS(NO3,K313) = -K313*<NO3>*<RPR3>
- PTERMS(:,8,314) = -TPK%K313(:)*PCONC(:,8)*PCONC(:,57)
-!
-!PTERMS(RPR3,K313) = -K313*<NO3>*<RPR3>
- PTERMS(:,57,314) = -TPK%K313(:)*PCONC(:,8)*PCONC(:,57)
-!
-!PTERMS(RO2T,K313) = +K313*<NO3>*<RPR3>
- PTERMS(:,85,314) = +TPK%K313(:)*PCONC(:,8)*PCONC(:,57)
-!
-!PTERMS(HO2,K314) = +2.*K314*<RPR3>
- PTERMS(:,10,315) = +2.*TPK%K314(:)*PCONC(:,57)
-!
-!PTERMS(CO,K314) = +K314*<RPR3>
- PTERMS(:,11,315) = +TPK%K314(:)*PCONC(:,57)
-!
-!PTERMS(RPR3,K314) = -K314*<RPR3>
- PTERMS(:,57,315) = -TPK%K314(:)*PCONC(:,57)
-!
-!PTERMS(NO,K315) = -K315*<NO>*<RO256>
- PTERMS(:,1,316) = -TPK%K315(:)*PCONC(:,1)*TPK%RO256(:)
-!
-!PTERMS(NO2,K315) = +K315*<NO>*<RO256>
- PTERMS(:,2,316) = +TPK%K315(:)*PCONC(:,1)*TPK%RO256(:)
-!
-!PTERMS(HO2,K315) = +K315*<NO>*<RO256>
- PTERMS(:,10,316) = +TPK%K315(:)*PCONC(:,1)*TPK%RO256(:)
-!
-!PTERMS(NO2,K316) = -K316*<NO2>*<RO256>
- PTERMS(:,2,317) = -TPK%K316(:)*PCONC(:,2)*TPK%RO256(:)
-!
-!PTERMS(PAN8,K316) = +K316*<NO2>*<RO256>
- PTERMS(:,83,317) = +TPK%K316(:)*PCONC(:,2)*TPK%RO256(:)
-!
-!PTERMS(NO2,K317) = +K317*<PAN8>
- PTERMS(:,2,318) = +TPK%K317(:)*PCONC(:,83)
-!
-!PTERMS(PAN8,K317) = -K317*<PAN8>
- PTERMS(:,83,318) = -TPK%K317(:)*PCONC(:,83)
-!
-!PTERMS(RO2T,K317) = +K317*<PAN8>
- PTERMS(:,85,318) = +TPK%K317(:)*PCONC(:,83)
-!
-!PTERMS(O3,K318) = +K318*<HO2>*<RO256>
- PTERMS(:,3,319) = +TPK%K318(:)*PCONC(:,10)*TPK%RO256(:)
-!
-!PTERMS(HO2,K318) = -K318*<HO2>*<RO256>
- PTERMS(:,10,319) = -TPK%K318(:)*PCONC(:,10)*TPK%RO256(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT53
-!
-SUBROUTINE SUBT54
-!
-!Indices 1081 a 1100
-!
-!PTERMS(URG4,K318) = +1.0000000*K318*<HO2>*<RO256>
- PTERMS(:,53,319) = +1.0000000*TPK%K318(:)*PCONC(:,10)*TPK%RO256(:)
-!
-!PTERMS(HO2,K319) = +K319*<RO2T>*<RO256>
- PTERMS(:,10,320) = +TPK%K319(:)*PCONC(:,85)*TPK%RO256(:)
-!
-!PTERMS(RO2T,K319) = -K319*<RO2T>*<RO256>
- PTERMS(:,85,320) = -TPK%K319(:)*PCONC(:,85)*TPK%RO256(:)
-!
-!PTERMS(HNO3,K320) = +K320*<NO3>*<RPR4>
- PTERMS(:,5,321) = +TPK%K320(:)*PCONC(:,8)*PCONC(:,61)
-!
-!PTERMS(NO3,K320) = -K320*<NO3>*<RPR4>
- PTERMS(:,8,321) = -TPK%K320(:)*PCONC(:,8)*PCONC(:,61)
-!
-!PTERMS(RPR4,K320) = -K320*<NO3>*<RPR4>
- PTERMS(:,61,321) = -TPK%K320(:)*PCONC(:,8)*PCONC(:,61)
-!
-!PTERMS(NO2,K321) = -K321*<NO2>*<RAD8>
- PTERMS(:,2,322) = -TPK%K321(:)*PCONC(:,2)*TPK%RAD8(:)
-!
-!PTERMS(UR22,K321) = +K321*<NO2>*<RAD8>
- PTERMS(:,59,322) = +TPK%K321(:)*PCONC(:,2)*TPK%RAD8(:)
-!
-!PTERMS(O3,K322) = +K322*<OH>*<RPR7>
- PTERMS(:,3,323) = +TPK%K322(:)*PCONC(:,15)*PCONC(:,62)
-!
-!PTERMS(OH,K322) = -K322*<OH>*<RPR7>
- PTERMS(:,15,323) = -TPK%K322(:)*PCONC(:,15)*PCONC(:,62)
-!
-!PTERMS(URG7,K322) = +0.9999993*K322*<OH>*<RPR7>
- PTERMS(:,60,323) = +0.9999993*TPK%K322(:)*PCONC(:,15)*PCONC(:,62)
-!
-!PTERMS(RPR7,K322) = -K322*<OH>*<RPR7>
- PTERMS(:,62,323) = -TPK%K322(:)*PCONC(:,15)*PCONC(:,62)
-!
-!PTERMS(O3,K323) = +1.0000005*K323*<OH>*<RPG7>
- PTERMS(:,3,324) = +1.0000005*TPK%K323(:)*PCONC(:,15)*PCONC(:,63)
-!
-!PTERMS(OH,K323) = -K323*<OH>*<RPG7>
- PTERMS(:,15,324) = -TPK%K323(:)*PCONC(:,15)*PCONC(:,63)
-!
-!PTERMS(URG6,K323) = +0.4978440*K323*<OH>*<RPG7>
- PTERMS(:,58,324) = +0.4978440*TPK%K323(:)*PCONC(:,15)*PCONC(:,63)
-!
-!PTERMS(RPG7,K323) = -K323*<OH>*<RPG7>
- PTERMS(:,63,324) = -TPK%K323(:)*PCONC(:,15)*PCONC(:,63)
-!
-!PTERMS(OH,K324) = -K324*<OH>*<RPR8>
- PTERMS(:,15,325) = -TPK%K324(:)*PCONC(:,15)*PCONC(:,71)
-!
-!PTERMS(RPR8,K324) = -K324*<OH>*<RPR8>
- PTERMS(:,71,325) = -TPK%K324(:)*PCONC(:,15)*PCONC(:,71)
-!
-!PTERMS(RO2T,K324) = +K324*<OH>*<RPR8>
- PTERMS(:,85,325) = +TPK%K324(:)*PCONC(:,15)*PCONC(:,71)
-!
-!PTERMS(HO2,K325) = +K325*<OH>*<RP10>
- PTERMS(:,10,326) = +TPK%K325(:)*PCONC(:,15)*PCONC(:,72)
-!
-!
-RETURN
-END SUBROUTINE SUBT54
-!
-SUBROUTINE SUBT55
-!
-!Indices 1101 a 1120
-!
-!PTERMS(OH,K325) = -K325*<OH>*<RP10>
- PTERMS(:,15,326) = -TPK%K325(:)*PCONC(:,15)*PCONC(:,72)
-!
-!PTERMS(RP10,K325) = -K325*<OH>*<RP10>
- PTERMS(:,72,326) = -TPK%K325(:)*PCONC(:,15)*PCONC(:,72)
-!
-!PTERMS(O3,K326) = +K326*<OH>*<RP11>
- PTERMS(:,3,327) = +TPK%K326(:)*PCONC(:,15)*PCONC(:,73)
-!
-!PTERMS(OH,K326) = -K326*<OH>*<RP11>
- PTERMS(:,15,327) = -TPK%K326(:)*PCONC(:,15)*PCONC(:,73)
-!
-!PTERMS(UR26,K326) = +0.67*K326*<OH>*<RP11>
- PTERMS(:,49,327) = +0.67*TPK%K326(:)*PCONC(:,15)*PCONC(:,73)
-!
-!PTERMS(RP11,K326) = -K326*<OH>*<RP11>
- PTERMS(:,73,327) = -TPK%K326(:)*PCONC(:,15)*PCONC(:,73)
-!
-!PTERMS(HNO3,K327) = +K327*<NO3>*<RPR8>
- PTERMS(:,5,328) = +TPK%K327(:)*PCONC(:,8)*PCONC(:,71)
-!
-!PTERMS(NO3,K327) = -K327*<NO3>*<RPR8>
- PTERMS(:,8,328) = -TPK%K327(:)*PCONC(:,8)*PCONC(:,71)
-!
-!PTERMS(RPR8,K327) = -K327*<NO3>*<RPR8>
- PTERMS(:,71,328) = -TPK%K327(:)*PCONC(:,8)*PCONC(:,71)
-!
-!PTERMS(RO2T,K327) = +K327*<NO3>*<RPR8>
- PTERMS(:,85,328) = +TPK%K327(:)*PCONC(:,8)*PCONC(:,71)
-!
-!PTERMS(RP10,K328) = -K328*<RP10>
- PTERMS(:,72,329) = -TPK%K328(:)*PCONC(:,72)
-!
-!PTERMS(HO2,K329) = +K329*<RPR8>
- PTERMS(:,10,330) = +TPK%K329(:)*PCONC(:,71)
-!
-!PTERMS(CO,K329) = +K329*<RPR8>
- PTERMS(:,11,330) = +TPK%K329(:)*PCONC(:,71)
-!
-!PTERMS(RPR8,K329) = -K329*<RPR8>
- PTERMS(:,71,330) = -TPK%K329(:)*PCONC(:,71)
-!
-!PTERMS(RO2T,K329) = +K329*<RPR8>
- PTERMS(:,85,330) = +TPK%K329(:)*PCONC(:,71)
-!
-!PTERMS(HO2,K330) = +K330*<RPR8>
- PTERMS(:,10,331) = +TPK%K330(:)*PCONC(:,71)
-!
-!PTERMS(RPR8,K330) = -K330*<RPR8>
- PTERMS(:,71,331) = -TPK%K330(:)*PCONC(:,71)
-!
-!PTERMS(RO2T,K330) = +K330*<RPR8>
- PTERMS(:,85,331) = +TPK%K330(:)*PCONC(:,71)
-!
-!PTERMS(NO,K331) = -K331*<NO>*<RO257>
- PTERMS(:,1,332) = -TPK%K331(:)*PCONC(:,1)*TPK%RO257(:)
-!
-!PTERMS(NO2,K331) = +K331*<NO>*<RO257>
- PTERMS(:,2,332) = +TPK%K331(:)*PCONC(:,1)*TPK%RO257(:)
+!Indices 243 a 252
!
+ TPK%KR2=(3.6E+9*exp(-930.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECRAIN
+ TPK%KR3=((2.8E+10*10.**(-TPK%PHR)+3.5E+10*exp(-720.*(1./TPK%T-1./298.15))*1.6e&
+&-5)/(1.6e-5+10.**(-TPK%PHR)))/TPK%MOL2MOLECRAIN
+ TPK%KR4=(3.2E+7*exp(-1700.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECRAIN
+ TPK%KR5=((8.3E+5*exp(-2700.*(1./TPK%T-1./298.15))*(10.**(-TPK%PHR))**2.+9.6E+7&
+&*exp(-910.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)*1.6e-5)/(1.6e-5+10.**(-TPK%PH&
+&R))**2.)/TPK%MOL2MOLECRAIN
+ TPK%KR6=(1.5E+9*exp(-1500.*(1./TPK%T-1./298.15))*1.6e-5/(1.6e-5+10.**(-TPK%PHR&
+&)))/TPK%MOL2MOLECRAIN
+ TPK%KR7=(2.7E+9*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)/(1.3e-2&
+&*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2&
+&*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.))/TPK%M&
+&OL2MOLECRAIN
+ TPK%KR8=(1.0E+10*10.**(-TPK%PHR)/(1.6e-3*exp(-1760.*(1./TPK%T-1./298.15))+10.*&
+&*(-TPK%PHR)))/TPK%MOL2MOLECRAIN
+ TPK%KR9=((1.8E+9*10.**(-TPK%PHR)+4.5E+9*1.6e-5)/(1.6e-5+10.**(-TPK%PHR)))/TPK%&
+&MOL2MOLECRAIN
+ TPK%KR10=2.6E-2*10.**(-TPK%PHR)/(1.26e-6+10.**(-TPK%PHR))
!
RETURN
-END SUBROUTINE SUBT55
-!
-SUBROUTINE SUBT56
-!
-!Indices 1121 a 1140
-!
-!PTERMS(RO2T,K331) = +K331*<NO>*<RO257>
- PTERMS(:,85,332) = +TPK%K331(:)*PCONC(:,1)*TPK%RO257(:)
-!
-!PTERMS(O3,K332) = +K332*<HO2>*<RO257>
- PTERMS(:,3,333) = +TPK%K332(:)*PCONC(:,10)*TPK%RO257(:)
-!
-!PTERMS(HO2,K332) = -K332*<HO2>*<RO257>
- PTERMS(:,10,333) = -TPK%K332(:)*PCONC(:,10)*TPK%RO257(:)
-!
-!PTERMS(URG4,K332) = +1.0000000*K332*<HO2>*<RO257>
- PTERMS(:,53,333) = +1.0000000*TPK%K332(:)*PCONC(:,10)*TPK%RO257(:)
-!
-!PTERMS(RO2T,K333) = -K333*<RO2T>*<RO257>
- PTERMS(:,85,334) = -TPK%K333(:)*PCONC(:,85)*TPK%RO257(:)
-!
-!PTERMS(O3,K334) = +1.0000000*K334*<OH>*<RPG3>
- PTERMS(:,3,335) = +1.0000000*TPK%K334(:)*PCONC(:,15)*PCONC(:,52)
-!
-!PTERMS(OH,K334) = -K334*<OH>*<RPG3>
- PTERMS(:,15,335) = -TPK%K334(:)*PCONC(:,15)*PCONC(:,52)
-!
-!PTERMS(RPG2,K334) = +0.8808107*K334*<OH>*<RPG3>
- PTERMS(:,50,335) = +0.8808107*TPK%K334(:)*PCONC(:,15)*PCONC(:,52)
-!
-!PTERMS(RPG3,K334) = -K334*<OH>*<RPG3>
- PTERMS(:,52,335) = -TPK%K334(:)*PCONC(:,15)*PCONC(:,52)
-!
-!PTERMS(O3,K335) = +1.0000000*K335*<OH>*<RPG2>
- PTERMS(:,3,336) = +1.0000000*TPK%K335(:)*PCONC(:,15)*PCONC(:,50)
-!
-!PTERMS(OH,K335) = -K335*<OH>*<RPG2>
- PTERMS(:,15,336) = -TPK%K335(:)*PCONC(:,15)*PCONC(:,50)
-!
-!PTERMS(URG2,K335) = +0.5562513*K335*<OH>*<RPG2>
- PTERMS(:,48,336) = +0.5562513*TPK%K335(:)*PCONC(:,15)*PCONC(:,50)
-!
-!PTERMS(RPG2,K335) = -K335*<OH>*<RPG2>
- PTERMS(:,50,336) = -TPK%K335(:)*PCONC(:,15)*PCONC(:,50)
-!
-!PTERMS(RP18,K335) = +0.4437492*K335*<OH>*<RPG2>
- PTERMS(:,51,336) = +0.4437492*TPK%K335(:)*PCONC(:,15)*PCONC(:,50)
-!
-!PTERMS(O3,K337) = +K337*<OH>*<RP18>
- PTERMS(:,3,337) = +TPK%K337(:)*PCONC(:,15)*PCONC(:,51)
-!
-!PTERMS(OH,K337) = -K337*<OH>*<RP18>
- PTERMS(:,15,337) = -TPK%K337(:)*PCONC(:,15)*PCONC(:,51)
-!
-!PTERMS(URG2,K337) = +K337*<OH>*<RP18>
- PTERMS(:,48,337) = +TPK%K337(:)*PCONC(:,15)*PCONC(:,51)
-!
-!PTERMS(RP18,K337) = -K337*<OH>*<RP18>
- PTERMS(:,51,337) = -TPK%K337(:)*PCONC(:,15)*PCONC(:,51)
+END SUBROUTINE SUBSRW11
!
-!PTERMS(HNO3,K338) = +K338*<NO3>*<RP16>
- PTERMS(:,5,338) = +TPK%K338(:)*PCONC(:,8)*PCONC(:,74)
+SUBROUTINE SUBSRW12
!
-!PTERMS(NO3,K338) = -K338*<NO3>*<RP16>
- PTERMS(:,8,338) = -TPK%K338(:)*PCONC(:,8)*PCONC(:,74)
+!Indices 253 a 262
!
+ TPK%KR11=1.1E0*1.26e-6/(1.26e-6+10.**(-TPK%PHR))
+ TPK%KR12=(3.3E+5*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*(10.**(-TPK%PHR))**2./&
+&((1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15)&
+&)+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.&
+&)*(1.26e-6+10.**(-TPK%PHR))))/TPK%MOL2MOLECRAIN
+ TPK%KR14=1.0E+10
+ TPK%KR15=(1.0E+5*1.0e+3*1.0e-2/(1.0e+3*1.0e-2+1.0e+3*10.**(-TPK%PHR)+(10.**(-T&
+&PK%PHR))**2.))/TPK%MOL2MOLECRAIN
+ TPK%KR16=(1.3E+9*exp(-2200.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1&
+&./298.15))*10.**(-TPK%PHR)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(&
+&1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%&
+&PHR)+(10.**(-TPK%PHR))**2.))/TPK%MOL2MOLECRAIN
+ TPK%KR17=(1.7E+8*exp(-2200.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECRAIN
+ TPK%KR18=(5.0E+5*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)/(1.3e-&
+&2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-&
+&2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.))/TPK%&
+&MOL2MOLECRAIN
+ TPK%KR19=(7.8E+8*exp(-1000.*(1./TPK%T-1./298.15))*2.5e3*exp(4030.*(1./TPK%T-1.&
+&/298.15))/(1.+2.5e3*exp(4030.*(1./TPK%T-1./298.15))))/TPK%MOL2MOLECRAIN
+ TPK%KR20=((1.0E+8*exp(-1000.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+3.4E+9*exp(&
+&-1200.*(1./TPK%T-1./298.15))*1.8e-4*exp(150.*(1./TPK%T-1./298.15)))/(1.8e-4*ex&
+&p(150.*(1./TPK%T-1./298.15))+10.**(-TPK%PHR)))/TPK%MOL2MOLECRAIN
!
RETURN
-END SUBROUTINE SUBT56
-!
-SUBROUTINE SUBT57
-!
-!Indices 1141 a 1160
-!
-!PTERMS(RP16,K338) = -K338*<NO3>*<RP16>
- PTERMS(:,74,338) = -TPK%K338(:)*PCONC(:,8)*PCONC(:,74)
-!
-!PTERMS(RO2T,K338) = +K338*<NO3>*<RP16>
- PTERMS(:,85,338) = +TPK%K338(:)*PCONC(:,8)*PCONC(:,74)
-!
-!PTERMS(HO2,K339) = +K339*<RP16>
- PTERMS(:,10,339) = +TPK%K339(:)*PCONC(:,74)
-!
-!PTERMS(CO,K339) = +2.*K339*<RP16>
- PTERMS(:,11,339) = +2.*TPK%K339(:)*PCONC(:,74)
-!
-!PTERMS(OH,K339) = +K339*<RP16>
- PTERMS(:,15,339) = +TPK%K339(:)*PCONC(:,74)
-!
-!PTERMS(RP16,K339) = -K339*<RP16>
- PTERMS(:,74,339) = -TPK%K339(:)*PCONC(:,74)
-!
-!PTERMS(NO,K340) = -K340*<NO>*<RO258>
- PTERMS(:,1,340) = -TPK%K340(:)*PCONC(:,1)*TPK%RO258(:)
-!
-!PTERMS(NO2,K340) = +K340*<NO>*<RO258>
- PTERMS(:,2,340) = +TPK%K340(:)*PCONC(:,1)*TPK%RO258(:)
-!
-!PTERMS(CO,K340) = +K340*<NO>*<RO258>
- PTERMS(:,11,340) = +TPK%K340(:)*PCONC(:,1)*TPK%RO258(:)
-!
-!PTERMS(OH,K340) = +K340*<NO>*<RO258>
- PTERMS(:,15,340) = +TPK%K340(:)*PCONC(:,1)*TPK%RO258(:)
-!
-!PTERMS(O3,K341) = +K341*<HO2>*<RO258>
- PTERMS(:,3,341) = +TPK%K341(:)*PCONC(:,10)*TPK%RO258(:)
-!
-!PTERMS(HO2,K341) = -K341*<HO2>*<RO258>
- PTERMS(:,10,341) = -TPK%K341(:)*PCONC(:,10)*TPK%RO258(:)
-!
-!PTERMS(UR28,K341) = +K341*<HO2>*<RO258>
- PTERMS(:,46,341) = +TPK%K341(:)*PCONC(:,10)*TPK%RO258(:)
-!
-!PTERMS(CO,K342) = +K342*<RO2T>*<RO258>
- PTERMS(:,11,342) = +TPK%K342(:)*PCONC(:,85)*TPK%RO258(:)
-!
-!PTERMS(OH,K342) = +K342*<RO2T>*<RO258>
- PTERMS(:,15,342) = +TPK%K342(:)*PCONC(:,85)*TPK%RO258(:)
-!
-!PTERMS(RO2T,K342) = -K342*<RO2T>*<RO258>
- PTERMS(:,85,342) = -TPK%K342(:)*PCONC(:,85)*TPK%RO258(:)
-!
-!PTERMS(NO2,K343) = +K343*<PAN7>
- PTERMS(:,2,343) = +TPK%K343(:)*PCONC(:,82)
-!
-!PTERMS(PAN7,K343) = -K343*<PAN7>
- PTERMS(:,82,343) = -TPK%K343(:)*PCONC(:,82)
+END SUBROUTINE SUBSRW12
!
-!PTERMS(RO2T,K343) = +K343*<PAN7>
- PTERMS(:,85,343) = +TPK%K343(:)*PCONC(:,82)
+SUBROUTINE SUBSRW13
!
-!PTERMS(NO,K344) = -K344*<NO>*<RO230>
- PTERMS(:,1,344) = -TPK%K344(:)*PCONC(:,1)*TPK%RO230(:)
+!Indices 263 a 272
!
+ TPK%KR21=((7.9E+2*exp(-2900.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-&
+&1./298.15))*10.**(-TPK%PHR)+2.5E+7*exp(-2450.*(1./TPK%T-1./298.15))*1.3e-2*exp&
+&(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15)))/((1.3e-2*&
+&exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*&
+&exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.)*(1.+2.5&
+&e3*exp(4030.*(1./TPK%T-1./298.15)))))/TPK%MOL2MOLECRAIN
+ TPK%KR22=7.7E-3*exp(-9200.*(1./TPK%T-1./298.15))+3.7E+3*1.e-14*EXP(-6716*(1./T&
+&PK%T-1./298.15))/10.**(-TPK%PHR)
+ TPK%KR23=3.0E+8/TPK%MOL2MOLECRAIN
+ TPK%KR24=1.1E+9
+ TPK%KR25=(1.7E+9*10.**(-TPK%PHR)/(1.6e-5+10.**(-TPK%PHR)))/TPK%MOL2MOLECRAIN
+ TPK%KR26=(2.2E+8*exp(-2600.*(1./TPK%T-1./298.15)))/TPK%MOL2MOLECRAIN
+ TPK%KR27=(7.1E+6*1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)*10.**(&
+&-TPK%PHR)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1&
+&./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%&
+&PHR))**2.))/TPK%MOL2MOLECRAIN
+ TPK%KR28=4.6E+2*exp(-1100.*(1./TPK%T-1./298.15))
+ TPK%KR29=((3.7E+5*exp(-5500.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-&
+&1./298.15))*10.**(-TPK%PHR)+1.5E+9*exp(-5300.*(1./TPK%T-1./298.15))*1.3e-2*exp&
+&(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15)))/(1.3e-2*e&
+&xp(1965.*(1./TPK%T-1./298.15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*e&
+&xp(1965.*(1./TPK%T-1./298.15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.))/TPK%MOL&
+&2MOLECRAIN
+ TPK%KR30=(9.1E+7*exp(-3600.*(1./TPK%T-1./298.15))*1.3e-2*exp(1965.*(1./TPK%T-1&
+&./298.15))*10.**(-TPK%PHR)*10.**(-TPK%PHR)/(1.3e-2*exp(1965.*(1./TPK%T-1./298.&
+&15))*6.4e-8*exp(1430.*(1./TPK%T-1./298.15))+1.3e-2*exp(1965.*(1./TPK%T-1./298.&
+&15))*10.**(-TPK%PHR)+(10.**(-TPK%PHR))**2.))/TPK%MOL2MOLECRAIN
!
RETURN
-END SUBROUTINE SUBT57
-!
-SUBROUTINE SUBT58
-!
-!Indices 1161 a 1180
-!
-!PTERMS(NO2,K344) = +K344*<NO>*<RO230>
- PTERMS(:,2,344) = +TPK%K344(:)*PCONC(:,1)*TPK%RO230(:)
-!
-!PTERMS(RO2T,K344) = +K344*<NO>*<RO230>
- PTERMS(:,85,344) = +TPK%K344(:)*PCONC(:,1)*TPK%RO230(:)
-!
-!PTERMS(NH3,K345) = -K345*<OH>*<NH3>
- PTERMS(:,9,345) = -TPK%K345(:)*PCONC(:,15)*PCONC(:,9)
+END SUBROUTINE SUBSRW13
!
-!PTERMS(OH,K345) = -K345*<OH>*<NH3>
- PTERMS(:,15,345) = -TPK%K345(:)*PCONC(:,15)*PCONC(:,9)
+END SUBROUTINE CH_SET_RATES
!
-!PTERMS(H2SO4,K346) = -K346*<H2SO4>
- PTERMS(:,14,346) = -TPK%K346(:)*PCONC(:,14)
!
-!PTERMS(HO2,K347) = +K347*<OH>*<ORA1>
- PTERMS(:,10,347) = +TPK%K347(:)*PCONC(:,15)*PCONC(:,43)
+!========================================================================
!
-!PTERMS(OH,K347) = -K347*<OH>*<ORA1>
- PTERMS(:,15,347) = -TPK%K347(:)*PCONC(:,15)*PCONC(:,43)
+!! ##############################
+ MODULE MODI_CH_SET_PHOTO_RATES
+!! ##############################
+!! This code has been created automatically by preprocessor m10,
+!! version: 9.7, copyright 1995-1999 by Meteo France/Universite Paul Sabatier.
+!! Please report all bugs to K. Suhre (Lab. d'Aerologie UPS/CNRS).
+INTERFACE
+SUBROUTINE CH_SET_PHOTO_RATES(PTIME,PCONC,KL,TPM,KMI,KOUT,KVERB,KVECNPT,KVECMASK,KEQ,PJVALUES)
+USE MODD_CH_M9_n, ONLY: METEOTRANSTYPE
+IMPLICIT NONE
+REAL, INTENT(IN) :: PTIME
+INTEGER, INTENT(IN) :: KVECNPT,KL,KEQ,KMI
+INTEGER, DIMENSION(:,:), INTENT(IN) :: KVECMASK
+REAL, INTENT(IN), DIMENSION(KVECNPT,KEQ) :: PCONC
+TYPE(METEOTRANSTYPE), DIMENSION(KVECNPT), INTENT(IN) :: TPM
+INTEGER, INTENT(IN) :: KOUT,KVERB
+REAL,DIMENSION(:,:,:,:), INTENT(IN) :: PJVALUES ! Tuv coefficient
+END SUBROUTINE CH_SET_PHOTO_RATES
+END INTERFACE
+END MODULE MODI_CH_SET_PHOTO_RATES
!
-!PTERMS(ORA1,K347) = -K347*<OH>*<ORA1>
- PTERMS(:,43,347) = -TPK%K347(:)*PCONC(:,15)*PCONC(:,43)
+!========================================================================
!
-!PTERMS(OH,K348) = -K348*<OH>*<ORA2>
- PTERMS(:,15,348) = -TPK%K348(:)*PCONC(:,15)*PCONC(:,44)
+!! #############################################################
+ SUBROUTINE CH_SET_PHOTO_RATES(PTIME,PCONC,KL,TPM,KMI,KOUT,KVERB,KVECNPT,KVECMASK,KEQ,PJVALUES)
+!! #############################################################
+!! This code has been created automatically by preprocessor m10,
+!! version: 9.7, copyright 1995-1999 by Meteo France/Universite Paul Sabatier.
+!! Please report all bugs to K. Suhre (Lab. d'Aerologie UPS/CNRS).
+!!*** *MODD_CH_SET_PHOTO_RATES*
+!!
+!! PURPOSE
+!! -------
+! set or calculate photolysis rates
+!!
+!!** METHOD
+!! ------
+!! simple
+!!
+!! REFERENCE
+!! ---------
+!! none
+!!
+!! AUTHOR
+!! ------
+!! Karsten Suhre (LA)
+!!
+!! MODIFICATIONS
+!! -------------
+!! Original 26/07/96
+!! Modified 05/05/98: Vectorization (Vincent Crassier & KS)
+!! Modified 29/03/01: Vectorization + nesting (C. Mari)
+!! Modified 31/10/03: New interface for better MesoNH compilation (D. Gazen)
+!!
+!!----------------------------------------------------------------------
+!!
+!! EXTERNAL
+!! --------
+!! none
+!!
+!! IMPLICIT ARGUMENTS
+!! ------------------
+USE MODD_CH_M9_SCHEME
+USE MODD_CH_M9_n, ONLY : METEOTRANSTYPE
+USE MODI_CH_ALLOCATE_TACCS
+! USER DEFINED FUNCTIONS
+USE MODI_KT
+USE MODI_TROE
+USE MODI_HENRY
+USE MODI_HEFFA
+USE MODI_TROE_EQUIL
+USE MODI_HEFFB
+!!
+!! EXPLICIT ARGUMENTS
+!! ------------------
+IMPLICIT NONE
+REAL, INTENT(IN) :: PTIME
+INTEGER, INTENT(IN) :: KVECNPT,KL,KEQ,KMI
+INTEGER, DIMENSION(:,:), INTENT(IN) :: KVECMASK
+REAL, INTENT(IN), DIMENSION(KVECNPT,KEQ) :: PCONC
+TYPE(METEOTRANSTYPE), DIMENSION(KVECNPT), INTENT(IN) :: TPM
+INTEGER, INTENT(IN) :: KOUT,KVERB
+REAL,DIMENSION(:,:,:,:), INTENT(IN) :: PJVALUES ! Tuv coefficient
+!!
+! /BEGIN_SET_PHOTO_RATES/
+! parameter for use by subroutine JVALUES,
+! contains the actual photolysis rates
+REAL, DIMENSION(KVECNPT,42) :: ZRATESIO ! TUV photolysis rates at one level
+REAL, DIMENSION(KVECNPT,19) :: ZRATES ! photolysis rates of RACM (vector)
+INTEGER :: JITPK ! loop counter for J-Value transfer
+INTEGER :: IDTI,IDTJ
+INTEGER :: JITPKPLUS
+INTEGER, DIMENSION(KVECNPT) :: ITABI, ITABJ
+INTEGER, DIMENSION(KVECNPT) :: IMODELLEVEL
+TYPE(CCSTYPE), POINTER :: TPK
!
-!PTERMS(ORA2,K348) = -K348*<OH>*<ORA2>
- PTERMS(:,44,348) = -TPK%K348(:)*PCONC(:,15)*PCONC(:,44)
+! Normally allocated in CH_SET_RATES but who knows ?
+IF (.NOT. ASSOCIATED(TACCS(KMI)%NVERB)) THEN
+ CALL CH_ALLOCATE_TACCS(KMI, KVECNPT)
+END IF
!
-!PTERMS(OH,K349) = -K349*<OH>*<ACID>
- PTERMS(:,15,349) = -TPK%K349(:)*PCONC(:,15)*PCONC(:,45)
+! TPK is set for current model
+TPK=>TACCS(KMI)
!
-!PTERMS(ACID,K349) = -K349*<OH>*<ACID>
- PTERMS(:,45,349) = -TPK%K349(:)*PCONC(:,15)*PCONC(:,45)
+! calculation of photolysis rates and transfer into local variables
!
-!PTERMS(URG2,K350) = -K350*<URG2>
- PTERMS(:,48,350) = -TPK%K350(:)*PCONC(:,48)
+IDTI=KVECMASK(2,KL)-KVECMASK(1,KL)+1
+IDTJ=KVECMASK(4,KL)-KVECMASK(3,KL)+1
+DO JITPK = 0, KVECNPT-1
!
-!PTERMS(URG4,K351) = -K351*<URG4>
- PTERMS(:,53,351) = -TPK%K351(:)*PCONC(:,53)
+ JITPKPLUS=JITPK+1
+ ITABI(JITPKPLUS)=JITPK-IDTI*(JITPK/IDTI)+KVECMASK(1,KL)
+ ITABJ(JITPKPLUS)=JITPK/IDTI-IDTJ*(JITPK/(IDTI*IDTJ))+KVECMASK(3,KL)
!
-!PTERMS(URG6,K352) = -K352*<URG6>
- PTERMS(:,58,352) = -TPK%K352(:)*PCONC(:,58)
+ ZRATESIO(JITPKPLUS,:) = PJVALUES(ITABI(JITPKPLUS),ITABJ(JITPKPLUS),TPK%MODELLEVEL(JITPKPLUS),:)
!
-!PTERMS(URG7,K353) = -K353*<URG7>
- PTERMS(:,60,353) = -TPK%K353(:)*PCONC(:,60)
+ENDDO
!
-!PTERMS(URG8,K354) = -K354*<URG8>
- PTERMS(:,64,354) = -TPK%K354(:)*PCONC(:,64)
!
-!PTERMS(URG9,K355) = -K355*<URG9>
- PTERMS(:,66,355) = -TPK%K355(:)*PCONC(:,66)
+DO JITPK = 0, KVECNPT-1
!
-!PTERMS(URG10,K356) = -K356*<URG10>
- PTERMS(:,68,356) = -TPK%K356(:)*PCONC(:,68)
+! associate TUV J-Values to ReLACS J-Values
+!
+! change according to original coefficients and modified RACM
!
-!PTERMS(UR7,K357) = -K357*<UR7>
- PTERMS(:,56,357) = -TPK%K357(:)*PCONC(:,56)
+ ZRATES(JITPK+1, 1) = ZRATESIO(JITPK+1,5)
+ ZRATES(JITPK+1, 2) = ZRATESIO(JITPK+1,2)
+ ZRATES(JITPK+1, 3) = ZRATESIO(JITPK+1,3)
+ ZRATES(JITPK+1, 4) = ZRATESIO(JITPK+1,8)
+ ZRATES(JITPK+1, 5) = ZRATESIO(JITPK+1,9)
+ ZRATES(JITPK+1, 6) = ZRATESIO(JITPK+1,10)
+ ZRATES(JITPK+1, 7) = ZRATESIO(JITPK+1,6)
+ ZRATES(JITPK+1, 8) = ZRATESIO(JITPK+1,7)
+ ZRATES(JITPK+1, 9) = ZRATESIO(JITPK+1,4)
+ ZRATES(JITPK+1, 10) = ZRATESIO(JITPK+1,12)
+ ZRATES(JITPK+1, 11) = ZRATESIO(JITPK+1,11)
+ ZRATES(JITPK+1, 12) = ZRATESIO(JITPK+1,13)
+ ZRATES(JITPK+1, 13) = ZRATESIO(JITPK+1,17)
+ ZRATES(JITPK+1, 14) = 0.962055 *ZRATESIO(JITPK+1,17)+&
+ & 3.79454E-02 *ZRATESIO(JITPK+1,38)
+ ZRATES(JITPK+1, 15) = ZRATESIO(JITPK+1,33)
+ ZRATES(JITPK+1, 16) = 0.20842 *ZRATESIO(JITPK+1,35)&
+ &+ 6.43207E-02 *ZRATESIO(JITPK+1,36)&
+ &+ 3.10372E-02 *ZRATESIO(JITPK+1,34)&
+ &+ 0.376 *ZRATESIO(JITPK+1,37)&
+ &+ 0.31937 *ZRATESIO(JITPK+1,26)
+ ZRATES(JITPK+1, 17) = 0.20*ZRATESIO(JITPK+1,20)&
+ &+ 0.80*ZRATESIO(JITPK+1,21)
+! aqueous phase photolysis
+ ZRATES(JITPK+1, 18) = ZRATESIO(JITPK+1,41)
+ ZRATES(JITPK+1, 19) = ZRATESIO(JITPK+1,42)
!
+END DO
!
+! /END_SET_PHOTO_RATES/
+ TPK%K001=ZRATES(:,001)
+ TPK%K002=ZRATES(:,002)
+ TPK%K003=ZRATES(:,003)
+ TPK%K004=ZRATES(:,004)
+ TPK%K005=ZRATES(:,005)
+ TPK%K006=ZRATES(:,006)
+ TPK%K007=ZRATES(:,007)
+ TPK%K008=ZRATES(:,008)
+ TPK%K009=ZRATES(:,009)
+ TPK%K010=ZRATES(:,010)
+ TPK%K011=ZRATES(:,011)
+ TPK%K012=ZRATES(:,012)
+ TPK%K013=ZRATES(:,013)
+ TPK%K014=ZRATES(:,014)
+ TPK%K015=ZRATES(:,015)
+ TPK%K016=ZRATES(:,016)
+ TPK%K017=ZRATES(:,017)
+IF (TPK%LUSECHAQ) THEN
+ TPK%KC1=ZRATES(:,018)
+ TPK%KC13=ZRATES(:,019)*2.2e+1/(2.2e+1+10.**(-TPK%PHC))
+ TPK%KR1=ZRATES(:,018)
+ TPK%KR13=ZRATES(:,019)*2.2e+1/(2.2e+1+10.**(-TPK%PHR))
+END IF
+TPK%NOUT = KOUT
+TPK%NVERB = KVERB
RETURN
-END SUBROUTINE SUBT58
-!
-SUBROUTINE SUBT59
-!
-!Indices 1181 a 1188
-!
-!PTERMS(UR8,K358) = -K358*<UR8>
- PTERMS(:,54,358) = -TPK%K358(:)*PCONC(:,54)
+END SUBROUTINE CH_SET_PHOTO_RATES
!
-!PTERMS(UR17,K359) = -K359*<UR17>
- PTERMS(:,55,359) = -TPK%K359(:)*PCONC(:,55)
!
-!PTERMS(UR19,K360) = -K360*<UR19>
- PTERMS(:,65,360) = -TPK%K360(:)*PCONC(:,65)
+!========================================================================
!
-!PTERMS(UR21,K361) = -K361*<UR21>
- PTERMS(:,47,361) = -TPK%K361(:)*PCONC(:,47)
+!! ########################
+ MODULE MODI_CH_GET_RATES
+!! ########################
+!! This code has been created automatically by preprocessor m10,
+!! version: 9.7, copyright 1995-1999 by Meteo France/Universite Paul Sabatier.
+!! Please report all bugs to K. Suhre (Lab. d'Aerologie UPS/CNRS).
+INTERFACE
+SUBROUTINE CH_GET_RATES(PRATE,KMI,KVECNPT,KREAC)
+IMPLICIT NONE
+INTEGER, INTENT(IN) :: KVECNPT
+INTEGER, INTENT(IN) :: KREAC
+REAL, INTENT(OUT), DIMENSION(KVECNPT,KREAC) :: PRATE
+INTEGER, INTENT(IN) :: KMI
+END SUBROUTINE CH_GET_RATES
+END INTERFACE
+END MODULE MODI_CH_GET_RATES
!
-!PTERMS(UR22,K362) = -K362*<UR22>
- PTERMS(:,59,362) = -TPK%K362(:)*PCONC(:,59)
+!========================================================================
!
-!PTERMS(UR26,K363) = -K363*<UR26>
- PTERMS(:,49,363) = -TPK%K363(:)*PCONC(:,49)
+!! ############################################
+ SUBROUTINE CH_GET_RATES(PRATE,KMI,KVECNPT,KREAC)
+!! ############################################
+!! This code has been created automatically by preprocessor m10,
+!! version: 9.7, copyright 1995-1999 by Meteo France/Universite Paul Sabatier.
+!! Please report all bugs to K. Suhre (Lab. d'Aerologie UPS/CNRS).
+!!
+!!*** *MODD_CH_GETRATES*
+!!
+!! PURPOSE
+!! -------
+! retrieve reaction rates from TPK in an array
+!!
+!!** METHOD
+!! ------
+!! simple
+!!
+!! REFERENCE
+!! ---------
+!! none
+!!
+!! AUTHOR
+!! ------
+!! Karsten Suhre (LA)
+!!
+!! MODIFICATIONS
+!! -------------
+!! Original 26/07/96
+!! Modified 05/05/98: Vectorization (Vincent Crassier & KS)
+!! Modified 31/10/03: New interface for better MesoNH compilation (D. Gazen)
+!!
+!!----------------------------------------------------------------------
+!!
+!! EXTERNAL
+!! --------
+!! none
+!!
+!! IMPLICIT ARGUMENTS
+!! ------------------
+USE MODD_CH_M9_SCHEME
+!!
+!! EXPLICIT ARGUMENTS
+!! ------------------
+IMPLICIT NONE
+INTEGER, INTENT(IN) :: KVECNPT
+INTEGER, INTENT(IN) :: KREAC
+REAL, INTENT(OUT), DIMENSION(KVECNPT,KREAC) :: PRATE
+INTEGER, INTENT(IN) :: KMI
+!!
+!! LOCAL VARIABLES
+!! ---------------
+TYPE(CCSTYPE), POINTER :: TPK
+!!----------------------------------------------------------------------
+!!
+!! EXECUTABLE STATEMENTS
+!! ---------------------
+TPK=>TACCS(KMI)
+!!
+PRATE(:,1) = TPK%K001(:)
+PRATE(:,2) = TPK%K002(:)
+PRATE(:,3) = TPK%K003(:)
+PRATE(:,4) = TPK%K004(:)
+PRATE(:,5) = TPK%K005(:)
+PRATE(:,6) = TPK%K006(:)
+PRATE(:,7) = TPK%K007(:)
+PRATE(:,8) = TPK%K008(:)
+PRATE(:,9) = TPK%K009(:)
+PRATE(:,10) = TPK%K010(:)
+PRATE(:,11) = TPK%K011(:)
+PRATE(:,12) = TPK%K012(:)
+PRATE(:,13) = TPK%K013(:)
+PRATE(:,14) = TPK%K014(:)
+PRATE(:,15) = TPK%K015(:)
+PRATE(:,16) = TPK%K016(:)
+PRATE(:,17) = TPK%K017(:)
+PRATE(:,18) = TPK%K018(:)
+PRATE(:,19) = TPK%K019(:)
+PRATE(:,20) = TPK%K020(:)
+PRATE(:,21) = TPK%K021(:)
+PRATE(:,22) = TPK%K022(:)
+PRATE(:,23) = TPK%K023(:)
+PRATE(:,24) = TPK%K024(:)
+PRATE(:,25) = TPK%K025(:)
+PRATE(:,26) = TPK%K026(:)
+PRATE(:,27) = TPK%K027(:)
+PRATE(:,28) = TPK%K028(:)
+PRATE(:,29) = TPK%K029(:)
+PRATE(:,30) = TPK%K030(:)
+PRATE(:,31) = TPK%K031(:)
+PRATE(:,32) = TPK%K032(:)
+PRATE(:,33) = TPK%K033(:)
+PRATE(:,34) = TPK%K034(:)
+PRATE(:,35) = TPK%K035(:)
+PRATE(:,36) = TPK%K036(:)
+PRATE(:,37) = TPK%K037(:)
+PRATE(:,38) = TPK%K038(:)
+PRATE(:,39) = TPK%K039(:)
+PRATE(:,40) = TPK%K040(:)
+PRATE(:,41) = TPK%K041(:)
+PRATE(:,42) = TPK%K042(:)
+PRATE(:,43) = TPK%K043(:)
+PRATE(:,44) = TPK%K044(:)
+PRATE(:,45) = TPK%K045(:)
+PRATE(:,46) = TPK%K046(:)
+PRATE(:,47) = TPK%K047(:)
+PRATE(:,48) = TPK%K048(:)
+PRATE(:,49) = TPK%K049(:)
+PRATE(:,50) = TPK%K050(:)
+PRATE(:,51) = TPK%K051(:)
+PRATE(:,52) = TPK%K052(:)
+PRATE(:,53) = TPK%K053(:)
+PRATE(:,54) = TPK%K054(:)
+PRATE(:,55) = TPK%K055(:)
+PRATE(:,56) = TPK%K056(:)
+PRATE(:,57) = TPK%K057(:)
+PRATE(:,58) = TPK%K058(:)
+PRATE(:,59) = TPK%K059(:)
+PRATE(:,60) = TPK%K060(:)
+PRATE(:,61) = TPK%K061(:)
+PRATE(:,62) = TPK%K062(:)
+PRATE(:,63) = TPK%K063(:)
+PRATE(:,64) = TPK%K064(:)
+PRATE(:,65) = TPK%K065(:)
+PRATE(:,66) = TPK%K066(:)
+PRATE(:,67) = TPK%K067(:)
+PRATE(:,68) = TPK%K068(:)
+PRATE(:,69) = TPK%K069(:)
+PRATE(:,70) = TPK%K070(:)
+PRATE(:,71) = TPK%K071(:)
+PRATE(:,72) = TPK%K072(:)
+PRATE(:,73) = TPK%K073(:)
+PRATE(:,74) = TPK%K074(:)
+PRATE(:,75) = TPK%K075(:)
+PRATE(:,76) = TPK%K076(:)
+PRATE(:,77) = TPK%K077(:)
+PRATE(:,78) = TPK%K078(:)
+PRATE(:,79) = TPK%K079(:)
+PRATE(:,80) = TPK%K080(:)
+PRATE(:,81) = TPK%K081(:)
+PRATE(:,82) = TPK%K082(:)
+PRATE(:,83) = TPK%K083(:)
+PRATE(:,84) = TPK%K084(:)
+PRATE(:,85) = TPK%K085(:)
+PRATE(:,86) = TPK%K086(:)
+PRATE(:,87) = TPK%K087(:)
+PRATE(:,88) = TPK%K088(:)
+PRATE(:,89) = TPK%K089(:)
+PRATE(:,90) = TPK%K090(:)
+PRATE(:,91) = TPK%K091(:)
+PRATE(:,92) = TPK%K092(:)
+PRATE(:,93) = TPK%K093(:)
+PRATE(:,94) = TPK%K094(:)
+PRATE(:,95) = TPK%K095(:)
+PRATE(:,96) = TPK%K096(:)
+PRATE(:,97) = TPK%K097(:)
+PRATE(:,98) = TPK%K098(:)
+PRATE(:,99) = TPK%K099(:)
+PRATE(:,100) = TPK%K0100(:)
+PRATE(:,101) = TPK%K0101(:)
+PRATE(:,102) = TPK%K0102(:)
+PRATE(:,103) = TPK%K103(:)
+PRATE(:,104) = TPK%K104(:)
+PRATE(:,105) = TPK%K105(:)
+PRATE(:,106) = TPK%K106(:)
+PRATE(:,107) = TPK%K107(:)
+PRATE(:,108) = TPK%K108(:)
+PRATE(:,109) = TPK%K109(:)
+PRATE(:,110) = TPK%K110(:)
+PRATE(:,111) = TPK%K111(:)
+PRATE(:,112) = TPK%K112(:)
+PRATE(:,113) = TPK%K113(:)
+PRATE(:,114) = TPK%K114(:)
+PRATE(:,115) = TPK%K115(:)
+PRATE(:,116) = TPK%K116(:)
+PRATE(:,117) = TPK%K117(:)
+PRATE(:,118) = TPK%K118(:)
+PRATE(:,119) = TPK%K119(:)
+PRATE(:,120) = TPK%K120(:)
+PRATE(:,121) = TPK%K121(:)
+PRATE(:,122) = TPK%K122(:)
+PRATE(:,123) = TPK%K123(:)
+PRATE(:,124) = TPK%K124(:)
+PRATE(:,125) = TPK%K125(:)
+PRATE(:,126) = TPK%K126(:)
+PRATE(:,127) = TPK%K127(:)
+PRATE(:,128) = TPK%K128(:)
+PRATE(:,129) = TPK%K129(:)
+PRATE(:,130) = TPK%K130(:)
+PRATE(:,131) = TPK%K131(:)
+PRATE(:,132) = TPK%K132(:)
+IF (TPK%LUSECHAQ) THEN
+ PRATE(:,133) = TPK%KTC1(:)
+ PRATE(:,134) = TPK%KTC2(:)
+ PRATE(:,135) = TPK%KTC3(:)
+ PRATE(:,136) = TPK%KTC4(:)
+ PRATE(:,137) = TPK%KTC5(:)
+ PRATE(:,138) = TPK%KTC6(:)
+ PRATE(:,139) = TPK%KTC7(:)
+ PRATE(:,140) = TPK%KTC8(:)
+ PRATE(:,141) = TPK%KTC9(:)
+ PRATE(:,142) = TPK%KTC10(:)
+ PRATE(:,143) = TPK%KTC11(:)
+ PRATE(:,144) = TPK%KTC12(:)
+ PRATE(:,145) = TPK%KTC13(:)
+ PRATE(:,146) = TPK%KTC14(:)
+ PRATE(:,147) = TPK%KTC15(:)
+ PRATE(:,148) = TPK%KTC16(:)
+ PRATE(:,149) = TPK%KTC17(:)
+ PRATE(:,150) = TPK%KTC18(:)
+ PRATE(:,151) = TPK%KTC19(:)
+ PRATE(:,152) = TPK%KTC20(:)
+ PRATE(:,153) = TPK%KTC21(:)
+ PRATE(:,154) = TPK%KTC22(:)
+ PRATE(:,155) = TPK%KTC23(:)
+ PRATE(:,156) = TPK%KTC24(:)
+ PRATE(:,157) = TPK%KTC25(:)
+ PRATE(:,158) = TPK%KTC26(:)
+ PRATE(:,159) = TPK%KTC27(:)
+ PRATE(:,160) = TPK%KTC28(:)
+ PRATE(:,161) = TPK%KTC29(:)
+ PRATE(:,162) = TPK%KTC30(:)
+ PRATE(:,163) = TPK%KTC31(:)
+ PRATE(:,164) = TPK%KTC32(:)
+ PRATE(:,165) = TPK%KTC33(:)
+ PRATE(:,166) = TPK%KTC34(:)
+ PRATE(:,167) = TPK%KTC35(:)
+ PRATE(:,168) = TPK%KTC36(:)
+ PRATE(:,169) = TPK%KTC37(:)
+ PRATE(:,170) = TPK%KTC38(:)
+ PRATE(:,171) = TPK%KTC39(:)
+ PRATE(:,172) = TPK%KTC40(:)
+ PRATE(:,173) = TPK%KTR1(:)
+ PRATE(:,174) = TPK%KTR2(:)
+ PRATE(:,175) = TPK%KTR3(:)
+ PRATE(:,176) = TPK%KTR4(:)
+ PRATE(:,177) = TPK%KTR5(:)
+ PRATE(:,178) = TPK%KTR6(:)
+ PRATE(:,179) = TPK%KTR7(:)
+ PRATE(:,180) = TPK%KTR8(:)
+ PRATE(:,181) = TPK%KTR9(:)
+ PRATE(:,182) = TPK%KTR10(:)
+ PRATE(:,183) = TPK%KTR11(:)
+ PRATE(:,184) = TPK%KTR12(:)
+ PRATE(:,185) = TPK%KTR13(:)
+ PRATE(:,186) = TPK%KTR14(:)
+ PRATE(:,187) = TPK%KTR15(:)
+ PRATE(:,188) = TPK%KTR16(:)
+ PRATE(:,189) = TPK%KTR17(:)
+ PRATE(:,190) = TPK%KTR18(:)
+ PRATE(:,191) = TPK%KTR19(:)
+ PRATE(:,192) = TPK%KTR20(:)
+ PRATE(:,193) = TPK%KTR21(:)
+ PRATE(:,194) = TPK%KTR22(:)
+ PRATE(:,195) = TPK%KTR23(:)
+ PRATE(:,196) = TPK%KTR24(:)
+ PRATE(:,197) = TPK%KTR25(:)
+ PRATE(:,198) = TPK%KTR26(:)
+ PRATE(:,199) = TPK%KTR27(:)
+ PRATE(:,200) = TPK%KTR28(:)
+ PRATE(:,201) = TPK%KTR29(:)
+ PRATE(:,202) = TPK%KTR30(:)
+ PRATE(:,203) = TPK%KTR31(:)
+ PRATE(:,204) = TPK%KTR32(:)
+ PRATE(:,205) = TPK%KTR33(:)
+ PRATE(:,206) = TPK%KTR34(:)
+ PRATE(:,207) = TPK%KTR35(:)
+ PRATE(:,208) = TPK%KTR36(:)
+ PRATE(:,209) = TPK%KTR37(:)
+ PRATE(:,210) = TPK%KTR38(:)
+ PRATE(:,211) = TPK%KTR39(:)
+ PRATE(:,212) = TPK%KTR40(:)
+ PRATE(:,213) = TPK%KC1(:)
+ PRATE(:,214) = TPK%KC2(:)
+ PRATE(:,215) = TPK%KC3(:)
+ PRATE(:,216) = TPK%KC4(:)
+ PRATE(:,217) = TPK%KC5(:)
+ PRATE(:,218) = TPK%KC6(:)
+ PRATE(:,219) = TPK%KC7(:)
+ PRATE(:,220) = TPK%KC8(:)
+ PRATE(:,221) = TPK%KC9(:)
+ PRATE(:,222) = TPK%KC10(:)
+ PRATE(:,223) = TPK%KC11(:)
+ PRATE(:,224) = TPK%KC12(:)
+ PRATE(:,225) = TPK%KC13(:)
+ PRATE(:,226) = TPK%KC14(:)
+ PRATE(:,227) = TPK%KC15(:)
+ PRATE(:,228) = TPK%KC16(:)
+ PRATE(:,229) = TPK%KC17(:)
+ PRATE(:,230) = TPK%KC18(:)
+ PRATE(:,231) = TPK%KC19(:)
+ PRATE(:,232) = TPK%KC20(:)
+ PRATE(:,233) = TPK%KC21(:)
+ PRATE(:,234) = TPK%KC22(:)
+ PRATE(:,235) = TPK%KC23(:)
+ PRATE(:,236) = TPK%KC24(:)
+ PRATE(:,237) = TPK%KC25(:)
+ PRATE(:,238) = TPK%KC26(:)
+ PRATE(:,239) = TPK%KC27(:)
+ PRATE(:,240) = TPK%KC28(:)
+ PRATE(:,241) = TPK%KC29(:)
+ PRATE(:,242) = TPK%KC30(:)
+ PRATE(:,243) = TPK%KR1(:)
+ PRATE(:,244) = TPK%KR2(:)
+ PRATE(:,245) = TPK%KR3(:)
+ PRATE(:,246) = TPK%KR4(:)
+ PRATE(:,247) = TPK%KR5(:)
+ PRATE(:,248) = TPK%KR6(:)
+ PRATE(:,249) = TPK%KR7(:)
+ PRATE(:,250) = TPK%KR8(:)
+ PRATE(:,251) = TPK%KR9(:)
+ PRATE(:,252) = TPK%KR10(:)
+ PRATE(:,253) = TPK%KR11(:)
+ PRATE(:,254) = TPK%KR12(:)
+ PRATE(:,255) = TPK%KR13(:)
+ PRATE(:,256) = TPK%KR14(:)
+ PRATE(:,257) = TPK%KR15(:)
+ PRATE(:,258) = TPK%KR16(:)
+ PRATE(:,259) = TPK%KR17(:)
+ PRATE(:,260) = TPK%KR18(:)
+ PRATE(:,261) = TPK%KR19(:)
+ PRATE(:,262) = TPK%KR20(:)
+ PRATE(:,263) = TPK%KR21(:)
+ PRATE(:,264) = TPK%KR22(:)
+ PRATE(:,265) = TPK%KR23(:)
+ PRATE(:,266) = TPK%KR24(:)
+ PRATE(:,267) = TPK%KR25(:)
+ PRATE(:,268) = TPK%KR26(:)
+ PRATE(:,269) = TPK%KR27(:)
+ PRATE(:,270) = TPK%KR28(:)
+ PRATE(:,271) = TPK%KR29(:)
+ PRATE(:,272) = TPK%KR30(:)
+END IF
+RETURN
+END SUBROUTINE CH_GET_RATES
!
-!PTERMS(UR28,K364) = -K364*<UR28>
- PTERMS(:,46,364) = -TPK%K364(:)*PCONC(:,46)
!
-!PTERMS(AP7,K365) = -K365*<AP7>
- PTERMS(:,67,365) = -TPK%K365(:)*PCONC(:,67)
+!========================================================================
!
+!! ####################
+ MODULE MODI_CH_TERMS
+!! ####################
+INTERFACE
+SUBROUTINE CH_TERMS(PTIME,PCONC,PTERMS,KMI,KVECNPT,KEQ,KREAC)
+IMPLICIT NONE
+REAL, INTENT(IN) :: PTIME
+INTEGER, INTENT(IN) :: KVECNPT
+INTEGER, INTENT(IN) :: KEQ, KREAC
+REAL, INTENT(IN), DIMENSION(KVECNPT,KEQ) :: PCONC
+REAL, INTENT(OUT), DIMENSION(KVECNPT,KEQ,KREAC):: PTERMS
+INTEGER, INTENT(IN) :: KMI
+END SUBROUTINE CH_TERMS
+END INTERFACE
+END MODULE MODI_CH_TERMS
!
-RETURN
-END SUBROUTINE SUBT59
+!========================================================================
!
-END SUBROUTINE CH_TERMS_GAZ
+!! #############################################################
+ SUBROUTINE CH_TERMS(PTIME,PCONC,PTERMS,KMI,KVECNPT,KEQ,KREAC)
+!! #############################################################
+!! This code has been created automatically by preprocessor m10,
+!! version: 9.7, copyright 1995-1999 by Meteo France/Universite Paul Sabatier.
+!! Please report all bugs to K. Suhre (Lab. d'Aerologie UPS/CNRS).
+!!
+!!*** *MODD_CH_TERMS*
+!!
+!! PURPOSE
+!! -------
+! calculation of the contribution of each term in each reaction
+!!
+!!** METHOD
+!! ------
+!! The contribution of reaction i to the evolution of species j
+!! is returned in PTERMS.
+!!
+!! REFERENCE
+!! ---------
+!! none
+!!
+!! AUTHOR
+!! ------
+!! Karsten Suhre (LA)
+!!
+!! MODIFICATIONS
+!! -------------
+!! Original 26/07/96
+!! Modified 05/05/98: Vectorization (Vincent Crassier & KS)
+!! Modified 31/10/03: New interface for better MesoNH compilation (D. Gazen)
+!!
+!!----------------------------------------------------------------------
+!!
+!! EXTERNAL
+!! --------
+!! none
+!!
+!! IMPLICIT ARGUMENTS
+!! ------------------
+USE MODD_CH_M9_SCHEME
+USE MODI_CH_TERMS_AQ
+USE MODI_CH_TERMS_GAZ
+!!
+!! EXPLICIT ARGUMENTS
+!! ------------------
+IMPLICIT NONE
+REAL, INTENT(IN) :: PTIME
+INTEGER, INTENT(IN) :: KVECNPT
+INTEGER, INTENT(IN) :: KEQ, KREAC
+REAL, INTENT(IN), DIMENSION(KVECNPT,KEQ) :: PCONC
+REAL, INTENT(OUT), DIMENSION(KVECNPT,KEQ,KREAC):: PTERMS
+INTEGER, INTENT(IN) :: KMI
+!!
+TYPE(CCSTYPE), POINTER :: TPK
+TPK=>TACCS(KMI)
+IF (TPK%LUSECHAQ) THEN
+ CALL CH_TERMS_AQ(PTIME,PCONC,PTERMS,KMI,KVECNPT,KEQ,KREAC)
+ELSE
+ CALL CH_TERMS_GAZ(PTIME,PCONC,PTERMS,KMI,KVECNPT,KEQ,KREAC)
+END IF
+END SUBROUTINE CH_TERMS
!
!========================================================================
!
@@ -90007,317 +29798,15 @@ INTEGER, INTENT(IN) :: KMI
TYPE(CCSTYPE), POINTER :: TPK
TPK=>TACCS(KMI)
! /BEGIN_CODE/
-TPK%OSD = ( +TPK%K016*PCONC(:,JP_O3) ) / &
- ( +TPK%K017*TPK%H2O+TPK%K018A*TPK%N2(:)+TPK%K018B*TPK%O2(:) )
-!
-TPK%O = ( +TPK%K001*PCONC(:,JP_NO2)+TPK%K014*PCONC(:,JP_NO3)+TPK%&
-&K015*PCONC(:,JP_O3)+TPK%K018A*TPK%OSD*TPK%N2(:)+TPK%K018B*TPK%OSD*TPK%O2(:) ) / &
-( +TPK%K002*TPK%O2(:)+TPK%K003*PCONC(:,JP_NO2)+TPK%K004*PCONC(:,JP_NO2)+TPK%K034*&
-PCONC(:,JP_O3)+TPK%K038*PCONC(:,JP_NO)+TPK%K052*PCONC(:,JP_ETHE)+&
-&TPK%K057*PCONC(:,JP_OLEL)+TPK%K067*PCONC(:,JP_ISOP)+TPK%K077*PCONC(:,&
-&JP_OLEH)+TPK%K087*PCONC(:,JP_BIOL)+TPK%K091*PCONC(:,JP_BIOH)+TPK%K283&
-&*PCONC(:,JP_MVK)+TPK%K284*PCONC(:,JP_MCR) )
-!
-TPK%RO225 = ( TPK%K085*PCONC(:,JP_BIOL)*PCONC(:,JP_NO3) ) / &
-( +TPK%K201*PCONC(:,JP_NO)+TPK%K202*PCONC(:,JP_RO2T)+TPK%K203*PCONC(:,JP_HO2))
-!
-TPK%RO228 = ( TPK%K089*PCONC(:,JP_BIOH)*PCONC(:,JP_NO3) ) / &
-( +TPK%K210*PCONC(:,JP_NO)+TPK%K211*PCONC(:,JP_RO2T)+TPK%K212*PCONC(:,JP_HO2))
-
-!
-TPK%RO253 = ( +0.41*TPK%K282*PCONC(:,JP_MCR)*PCONC(:,JP_O3) ) / &
-( +TPK%K297*PCONC(:,JP_NO)+TPK%K298*PCONC(:,JP_HO2)+TPK%K299*PCONC(&
-&:,JP_RO2T) )
-!
-TPK%RO254 = ( +TPK%K140*PCONC(:,JP_PAN6)+TPK%K297*TPK%RO253*&
-&PCONC(:,JP_NO)+TPK%K298*TPK%RO253*PCONC(:,JP_HO2)+TPK%K299*&
-&TPK%RO253*PCONC(:,JP_RO2T) ) / &
-( +TPK%K131*PCONC(:,JP_NO2)+TPK%K300*PCONC(:,JP_NO)+TPK%K301*PCONC(&
-&:,JP_HO2)+TPK%K302*PCONC(:,JP_RO2T) )
-!
-TPK%RO213 = ( +0.271*TPK%K066*PCONC(:,JP_ISOP)*PCONC(:,JP_O3) ) / &
-( +TPK%K162*PCONC(:,JP_NO)+TPK%K163*PCONC(:,JP_RO2T)+TPK%K164*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO239 = ( +TPK%K137*PCONC(:,JP_PAN3)+TPK%K162*TPK%RO213*&
-&PCONC(:,JP_NO)+TPK%K163*TPK%RO213*PCONC(:,JP_RO2T)+TPK%K164*TPK%RO213*PCONC(:,JP_HO2) ) / &
-( +TPK%K128*PCONC(:,JP_NO2)+TPK%K165*PCONC(:,JP_NO)+TPK%K166*PCONC(&
-&:,JP_HO2)+TPK%K167*PCONC(:,JP_RO2T) )
-!
-TPK%RO248 = ( +TPK%K141*PCONC(:,JP_PAN4)+TPK%K274*PCONC(:,JP_MGLY)*P&
-&CONC(:,JP_OH)+TPK%K278*PCONC(:,JP_MGLY)*PCONC(:,JP_NO3) ) / &
-( +TPK%K129*PCONC(:,JP_NO2)+TPK%K277*PCONC(:,JP_NO)+TPK%K279*PCONC(&
-&:,JP_HO2)+TPK%K280*PCONC(:,JP_RO2T) )
-!
-TPK%RO249 = ( +TPK%K272*PCONC(:,JP_MVK)*PCONC(:,JP_OH) ) / &
-( +TPK%K285*PCONC(:,JP_NO)+TPK%K286*PCONC(:,JP_RO2T)+TPK%K287*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO250 = ( +0.3750353*TPK%K139*PCONC(:,JP_APAN)+TPK%CF46*TPK%K2&
-&73*PCONC(:,JP_MCR)*PCONC(:,JP_OH)+TPK%CF46*TPK%K275*PCONC(:,JP_MCR)*PCONC&
-&(:,JP_NO3) ) / &
-( +TPK%K130*PCONC(:,JP_NO2)+TPK%K288*PCONC(:,JP_NO)+TPK%K289*PCONC(&
-&:,JP_HO2)+TPK%K290*PCONC(:,JP_RO2T) )
-!
-TPK%RO214 = ( +0.095*TPK%K066*PCONC(:,JP_ISOP)*PCONC(:,JP_O3)+TPK%K1&
-&65*TPK%RO239*PCONC(:,JP_NO)+TPK%K167*TPK%RO239*PCONC(:,JP_R&
-&O2T)+TPK%K288*TPK%RO250*PCONC(:,JP_NO)+TPK%K290*TPK%RO250&
-&*PCONC(:,JP_RO2T) ) / &
-( +TPK%K168*PCONC(:,JP_NO)+TPK%K169*PCONC(:,JP_RO2T)+TPK%K170*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO251 = ( +TPK%CF47*TPK%K273*PCONC(:,JP_MCR)*PCONC(:,JP_OH) ) / &
-( +TPK%K291*PCONC(:,JP_NO)+TPK%K292*PCONC(:,JP_HO2)+TPK%K293*PCONC(&
-&:,JP_RO2T) )
-!
-TPK%RO252 = ( +TPK%CF47*TPK%K275*PCONC(:,JP_MCR)*PCONC(:,JP_NO3) ) /&
-( +TPK%K294*PCONC(:,JP_NO)+TPK%K295*PCONC(:,JP_HO2)+TPK%K296*PCONC(&
-&:,JP_RO2T) )
-!
-TPK%RO258 = ( +TPK%K138*PCONC(:,JP_PN10)+TPK%K305*PCONC(:,JP_RP16)*P&
-&CONC(:,JP_OH)+TPK%K338*PCONC(:,JP_RP16)*PCONC(:,JP_NO3) ) / &
-( +TPK%K134*PCONC(:,JP_NO2)+TPK%K340*PCONC(:,JP_NO)+TPK%K341*PCONC(&
-&:,JP_HO2)+TPK%K342*PCONC(:,JP_RO2T) )
-!
-TPK%RO255 = ( +TPK%K304*PCONC(:,JP_RPR1)*PCONC(:,JP_OH)+TPK%K307*PCO&
-&NC(:,JP_RPR1)*PCONC(:,JP_NO3)+TPK%K343*PCONC(:,JP_PAN7) ) / &
-( +TPK%K132*PCONC(:,JP_NO2)+TPK%K309*PCONC(:,JP_NO)+TPK%K310*PCONC(&
-&:,JP_HO2)+TPK%K311*PCONC(:,JP_RO2T) )
-!
-TPK%RO256 = ( +TPK%K312*PCONC(:,JP_RPR3)*PCONC(:,JP_OH)+TPK%K313*PCO&
-&NC(:,JP_RPR3)*PCONC(:,JP_NO3)+TPK%K317*PCONC(:,JP_PAN8) ) / &
-( +TPK%K315*PCONC(:,JP_NO)+TPK%K316*PCONC(:,JP_NO2)+TPK%K318*PCONC(&
-&:,JP_HO2)+TPK%K319*PCONC(:,JP_RO2T) )
-!
-TPK%RO257 = ( +0.6249651*TPK%K139*PCONC(:,JP_APAN)+TPK%K324*PCONC(:,&
-&JP_RPR8)*PCONC(:,JP_OH)+TPK%K327*PCONC(:,JP_RPR8)*PCONC(:,JP_NO3)+TPK%K3&
-&30*PCONC(:,JP_RPR8) ) / &
-( +TPK%K133*PCONC(:,JP_NO2)+TPK%K331*PCONC(:,JP_NO)+TPK%K332*PCONC(&
-&:,JP_HO2)+TPK%K333*PCONC(:,JP_RO2T) )
-!
-TPK%RO29 = ( +0.66*TPK%K064*PCONC(:,JP_ISOP)*PCONC(:,JP_OH)+TPK%K329&
-&*PCONC(:,JP_RPR8)+TPK%K331*TPK%RO257*PCONC(:,JP_NO)+TPK%K333*TPK%RO257*&
-PCONC(:,JP_RO2T) ) / &
-( +TPK%K150*PCONC(:,JP_NO)+TPK%K151*PCONC(:,JP_RO2T)+TPK%K152*PCONC&
-&(:,JP_HO2) )
-!
-!avoid division by zero in prodloss
-WHERE (PCONC(:,JP_NO2)>0.)
- TPK%RAD1 = ( +TPK%K072*PCONC(:,JP_AROO)*PCONC(:,JP_NO3) ) / &
- ( +TPK%K103*PCONC(:,JP_NO2) )
-!
- TPK%RAD8 = ( +TPK%K320*PCONC(:,JP_RPR4)*PCONC(:,JP_NO3) ) / &
- ( +TPK%K321*PCONC(:,JP_NO2) )
-ELSEWHERE
- TPK%RAD1 = 0.
- TPK%RAD8 = 0.
-ENDWHERE
-!
-TPK%RAD2 = ( +0.74*TPK%K073*PCONC(:,JP_AROO)*PCONC(:,JP_OH) ) / &
-( +TPK%K097+TPK%K104*PCONC(:,JP_NO2) )
-!
-TPK%RAD3 = ( +0.74*TPK%K079*PCONC(:,JP_AROL)*PCONC(:,JP_OH) ) / &
-( +TPK%K098+TPK%K105*PCONC(:,JP_NO2) )
-!
-TPK%RAD4 = ( +0.84*TPK%K080*PCONC(:,JP_AROH)*PCONC(:,JP_OH) ) / &
-( +TPK%K099+TPK%K106*PCONC(:,JP_NO2) )
-!
-TPK%RAD5 = ( +TPK%CF40*TPK%K082*PCONC(:,JP_ARAL)*PCONC(:,JP_OH) ) / &
-( +TPK%K100+TPK%K107*PCONC(:,JP_NO2) )
-!
-TPK%RAD6 = ( +0.74*TPK%K083*PCONC(:,JP_ARAC)*PCONC(:,JP_OH) ) / &
-( +TPK%K101+TPK%K108*PCONC(:,JP_NO2) )
-!
-TPK%RAD7 = ( +0.74*TPK%K092*PCONC(:,JP_PAH)*PCONC(:,JP_OH) ) / &
-( +TPK%K102+TPK%K109*PCONC(:,JP_NO2) )
-!
-TPK%RO22 = ( +TPK%K049*PCONC(:,JP_ETHE)*PCONC(:,JP_OH)+TPK%CF2*TPK&
-&%K053*PCONC(:,JP_ETOH)*PCONC(:,JP_OH)+TPK%K054*PCONC(:,JP_OLEL)*PCONC(:,JP_&
-&OH)+TPK%K069*PCONC(:,JP_ALCH)*PCONC(:,JP_OH) ) / &
-( +TPK%K113*PCONC(:,JP_NO)+TPK%K114*PCONC(:,JP_RO2T)+TPK%K115*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO23 = ( +TPK%K050*PCONC(:,JP_ETHE)*PCONC(:,JP_NO3)+TPK%K055*PCO&
-&NC(:,JP_OLEL)*PCONC(:,JP_NO3) ) / &
-( +TPK%K116*PCONC(:,JP_NO)+TPK%K117*PCONC(:,JP_RO2T)+TPK%K118*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO24 = ( +0.4*TPK%K052*PCONC(:,JP_ETHE)*TPK%O+0.1*TPK%K0&
-&57*PCONC(:,JP_OLEL)*TPK%O+0.1*TPK%K077*PCONC(:,JP_OLEH)*&
-&TPK%O+0.15*TPK%K283*PCONC(:,JP_MVK)*TPK%O ) / &
-( +TPK%K119*PCONC(:,JP_NO)+TPK%K120*PCONC(:,JP_RO2T)+TPK%K121*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO26 = ( +TPK%K060*PCONC(:,JP_ALD2)*PCONC(:,JP_OH)+TPK%K061*PCON&
-&C(:,JP_ALD2)*PCONC(:,JP_NO3)+TPK%K135*PCONC(:,JP_PAN1) ) / &
-( +TPK%K125*PCONC(:,JP_NO)+TPK%K126*PCONC(:,JP_NO2)+TPK%K142*PCONC(&
-&:,JP_HO2)+TPK%K143*PCONC(:,JP_RO2T) )
-!
-TPK%RO27 = ( +TPK%K062*PCONC(:,JP_KETL)*PCONC(:,JP_OH)+TPK%CF8*TPK&
-&%K168*TPK%RO214*PCONC(:,JP_NO)+TPK%K169*TPK%RO214*PCONC(:,J&
-&P_RO2T)+TPK%K170*TPK%RO214*PCONC(:,JP_HO2)+0.15*TPK%K284*PCONC(:&
-&,JP_MCR)*TPK%O ) / &
-( +TPK%K144*PCONC(:,JP_NO)+TPK%K145*PCONC(:,JP_RO2T)+TPK%K146*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO210 = ( +0.34*TPK%K064*PCONC(:,JP_ISOP)*PCONC(:,JP_OH) ) / &
-( +TPK%K153*PCONC(:,JP_NO)+TPK%K154*PCONC(:,JP_RO2T)+TPK%K155*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO211 = ( +0.66*TPK%K065*PCONC(:,JP_ISOP)*PCONC(:,JP_NO3) ) / &
-( +TPK%K156*PCONC(:,JP_NO)+TPK%K157*PCONC(:,JP_RO2T)+TPK%K158*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO212 = ( +0.34*TPK%K065*PCONC(:,JP_ISOP)*PCONC(:,JP_NO3) ) / &
-( +TPK%K159*PCONC(:,JP_NO)+TPK%K160*PCONC(:,JP_RO2T)+TPK%K161*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO215 = ( +TPK%K068*PCONC(:,JP_MTBE)*PCONC(:,JP_OH) ) / &
-( +TPK%K171*PCONC(:,JP_NO)+TPK%K172*PCONC(:,JP_RO2T)+TPK%K173*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO216 = ( +TPK%K070*PCONC(:,JP_KETH)*PCONC(:,JP_OH) ) / &
-( +TPK%K174*PCONC(:,JP_NO)+TPK%K175*PCONC(:,JP_RO2T)+TPK%K176*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO217 = ( +0.1*TPK%K073*PCONC(:,JP_AROO)*PCONC(:,JP_OH) ) / &
-( +TPK%K177*PCONC(:,JP_NO)+TPK%K178*PCONC(:,JP_RO2T)+TPK%K179*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO220 = ( +0.28*TPK%K076*PCONC(:,JP_OLEH)*PCONC(:,JP_O3)+0.1*TPK&
-&%K077*PCONC(:,JP_OLEH)*TPK%O+TPK%K078*PCONC(:,JP_ALKM)*PCONC(:,JP_O&
-&H)+TPK%K308*PCONC(:,JP_RPR1)+TPK%K309*TPK%RO255*PCONC(:,JP_NO)+T&
-&PK%K311*TPK%RO255*PCONC(:,JP_RO2T) ) / &
-( +TPK%K186*PCONC(:,JP_NO)+TPK%K187*PCONC(:,JP_RO2T)+TPK%K188*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO218 = ( +TPK%K074*PCONC(:,JP_OLEH)*PCONC(:,JP_OH)+TPK%CF18*TPK%K186*&
-TPK%RO220*PCONC(:,JP_NO)+TPK%K187*TPK%RO220*PCONC(:&
-&,JP_RO2T)+TPK%K188*TPK%RO220*PCONC(:,JP_HO2) ) / &
-( +TPK%K180*PCONC(:,JP_NO)+TPK%K181*PCONC(:,JP_RO2T)+TPK%K182*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO219 = ( +TPK%K075*PCONC(:,JP_OLEH)*PCONC(:,JP_NO3) ) / &
-( +TPK%K183*PCONC(:,JP_NO)+TPK%K184*PCONC(:,JP_RO2T)+TPK%K185*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO221 = ( +0.1*TPK%K079*PCONC(:,JP_AROL)*PCONC(:,JP_OH) ) / &
-( +TPK%K189*PCONC(:,JP_NO)+TPK%K190*PCONC(:,JP_RO2T)+TPK%K191*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO222 = ( +TPK%CF45*TPK%K082*PCONC(:,JP_ARAL)*PCONC(:,JP_OH) ) /&
-& &
-( +TPK%K192*PCONC(:,JP_NO)+TPK%K193*PCONC(:,JP_RO2T)+TPK%K194*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO223 = ( +0.1*TPK%K083*PCONC(:,JP_ARAC)*PCONC(:,JP_OH) ) / &
-( +TPK%K195*PCONC(:,JP_NO)+TPK%K196*PCONC(:,JP_RO2T)+TPK%K197*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO224 = ( +TPK%K084*PCONC(:,JP_BIOL)*PCONC(:,JP_OH) ) / &
-( +TPK%K198*PCONC(:,JP_NO)+TPK%K199*PCONC(:,JP_RO2T)+TPK%K200*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO226 = ( +0.445*TPK%K086*PCONC(:,JP_BIOL)*PCONC(:,JP_O3) ) / &
-( +TPK%K204*PCONC(:,JP_NO)+TPK%K205*PCONC(:,JP_RO2T)+TPK%K206*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO227 = ( +TPK%K088*PCONC(:,JP_BIOH)*PCONC(:,JP_OH) ) / &
-( +TPK%K207*PCONC(:,JP_NO)+TPK%K208*PCONC(:,JP_RO2T)+TPK%K209*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO229 = ( +0.445*TPK%K090*PCONC(:,JP_BIOH)*PCONC(:,JP_O3) ) / &
-( +TPK%K213*PCONC(:,JP_NO)+TPK%K214*PCONC(:,JP_RO2T)+TPK%K215*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO230 = ( +0.445*TPK%K090*PCONC(:,JP_BIOH)*PCONC(:,JP_O3) ) / &
-( +TPK%K219*PCONC(:,JP_RO2T)+TPK%K220*PCONC(:,JP_HO2)+TPK%K344*PCON&
-&C(:,JP_NO) )
-!
-TPK%RO231 = ( +0.1*TPK%K092*PCONC(:,JP_PAH)*PCONC(:,JP_OH) ) / &
-( +TPK%K221*PCONC(:,JP_NO)+TPK%K222*PCONC(:,JP_RO2T)+TPK%K223*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO232 = ( +TPK%K093*PCONC(:,JP_ALKH)*PCONC(:,JP_OH) ) / &
-( +TPK%K224*PCONC(:,JP_NO)+TPK%K225*PCONC(:,JP_RO2T)+TPK%K226*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO233 = ( +TPK%K097*TPK%RAD2 ) / &
-( +TPK%K230+TPK%K231*PCONC(:,JP_NO)+TPK%K232*PCONC(:,JP_RO2T)+TPK%K233*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO234 = ( +TPK%K098*TPK%RAD3 ) / &
-( +TPK%K237+TPK%K238*PCONC(:,JP_NO)+TPK%K239*PCONC(:,JP_RO2T)+TPK%K240*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO235 = ( +TPK%K099*TPK%RAD4 ) / &
-( +TPK%K244+TPK%K245*PCONC(:,JP_NO)+TPK%K246*PCONC(:,JP_RO2T)+TPK%K247*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO236 = ( +TPK%K100*TPK%RAD5 ) / &
-( +TPK%K251+TPK%K252*PCONC(:,JP_NO)+TPK%K253*PCONC(:,JP_RO2T)+TPK%K254*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO237 = ( +TPK%K101*TPK%RAD6 ) / &
-( +TPK%K258+TPK%K259*PCONC(:,JP_NO)+TPK%K260*PCONC(:,JP_RO2T)+TPK%K261*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO238 = ( +TPK%K102*TPK%RAD7 ) / &
-( +TPK%K265+TPK%K266*PCONC(:,JP_NO)+TPK%K267*PCONC(:,JP_RO2T)+TPK%K268*&
-PCONC(:,JP_HO2) )
-!
-TPK%RO240 = ( +TPK%CF30*TPK%K213*TPK%RO229*PCONC(:,JP_NO)+TPK%K214*&
-TPK%RO229*PCONC(:,JP_RO2T)+TPK%K215*TPK%RO229*PCON&
-&C(:,JP_HO2) ) / &
-( +TPK%K216*PCONC(:,JP_NO)+TPK%K217*PCONC(:,JP_RO2T)+TPK%K218*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO241 = ( +TPK%CF34*TPK%K224*TPK%RO232*PCONC(:,JP_NO)+TPK%K225*&
-TPK%RO232*PCONC(:,JP_RO2T)+TPK%K226*TPK%RO232*PCON&
-&C(:,JP_HO2) ) / &
-( +TPK%K227*PCONC(:,JP_NO)+TPK%K228*PCONC(:,JP_RO2T)+TPK%K229*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO242 = ( +TPK%K230*TPK%RO233 ) / &
-( +TPK%K234*PCONC(:,JP_NO)+TPK%K235*PCONC(:,JP_RO2T)+TPK%K236*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO243 = ( +TPK%K237*TPK%RO234 ) / &
-( +TPK%K241*PCONC(:,JP_NO)+TPK%K242*PCONC(:,JP_RO2T)+TPK%K243*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO244 = ( +TPK%K244*TPK%RO235 ) / &
-( +TPK%K248*PCONC(:,JP_NO)+TPK%K249*PCONC(:,JP_RO2T)+TPK%K250*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO245 = ( +TPK%K251*TPK%RO236 ) / &
-( +TPK%K255*PCONC(:,JP_NO)+TPK%K256*PCONC(:,JP_RO2T)+TPK%K257*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO246 = ( +TPK%K258*TPK%RO237 ) / &
-( +TPK%K262*PCONC(:,JP_NO)+TPK%K263*PCONC(:,JP_RO2T)+TPK%K264*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO247 = ( +TPK%K265*TPK%RO238 ) / &
-( +TPK%K269*PCONC(:,JP_NO)+TPK%K270*PCONC(:,JP_RO2T)+TPK%K271*PCONC&
-&(:,JP_HO2) )
-!
-TPK%RO28 = ( +TPK%K063*PCONC(:,JP_KETL)+TPK%K071*PCONC(:,JP_KETH)+TP&
-&K%K136*PCONC(:,JP_PAN2)+TPK%K144*TPK%RO27*PCONC(:,JP_NO)+TPK%&
-&K145*TPK%RO27*PCONC(:,JP_RO2T)+TPK%K146*TPK%RO27*PCONC(:,JP&
-&_HO2)+TPK%K174*TPK%RO216*PCONC(:,JP_NO)+TPK%K175*TPK%RO21&
-&6*PCONC(:,JP_RO2T)+TPK%K176*TPK%RO216*PCONC(:,JP_HO2)+TPK%K204*&
-&TPK%RO226*PCONC(:,JP_NO)+TPK%K205*TPK%RO226*PCONC(:,JP_RO2T)&
-&+TPK%K206*TPK%RO226*PCONC(:,JP_HO2)+TPK%K216*TPK%RO240*&
-&PCONC(:,JP_NO)+TPK%K217*TPK%RO240*PCONC(:,JP_RO2T)+TPK%K218*&
-&TPK%RO240*PCONC(:,JP_HO2)+TPK%K219*TPK%RO230*PCONC(:,JP_RO2T)+T&
-&PK%K220*TPK%RO230*PCONC(:,JP_HO2)+TPK%K276*PCONC(:,JP_MGLY)+TPK%K277*&
-TPK%RO248*PCONC(:,JP_NO)+TPK%K280*TPK%RO248*PCONC(:&
-&,JP_RO2T)+0.28*TPK%K281*PCONC(:,JP_MVK)*PCONC(:,JP_O3)+0.15*TPK%K283*PCO&
-&NC(:,JP_MVK)*TPK%O+TPK%K344*TPK%RO230*PCONC(:,JP_NO) ) / &
-( +TPK%K127*PCONC(:,JP_NO2)+TPK%K147*PCONC(:,JP_NO)+TPK%K148*PCONC(&
-&:,JP_HO2)+TPK%K149*PCONC(:,JP_RO2T) )
-!
+TPK%O1D(:)=(TPK%K002(:)*PCONC(:,JP_O3))/(TPK%K020(:)*TPK%N2(:)+TPK%K021(:)*TPK%O2(:)+&
+ &TPK%K022(:)*TPK%H2O(:))
+TPK%O3P(:)=(TPK%K001(:)*PCONC(:,JP_NO2)+TPK%K003(:)*PCONC(:,JP_O3)+TPK%K008(:)*PCONC(:,JP_NO3)+&
+ &TPK%K020(:)*TPK%O1D(:)*TPK%N2(:)+TPK%K021(:)*TPK%O1D(:)*TPK%O2(:)+&
+ &0.00000*TPK%K079(:)*PCONC(:,JP_ALKE)*PCONC(:,JP_O3)+&
+ &0.09000*TPK%K080(:)*PCONC(:,JP_BIO)*PCONC(:,JP_O3))/&
+ &(TPK%K018(:)*TPK%O2(:)+TPK%K019(:)*PCONC(:,JP_O3)+TPK%K029(:)*PCONC(:,JP_NO)+&
+ &TPK%K030(:)*PCONC(:,JP_NO2)+TPK%K031(:)*PCONC(:,JP_NO2)+TPK%K054(:)*PCONC(:,JP_BIO)+&
+ &TPK%K055(:)*PCONC(:,JP_CARBO))
! /END_CODE/
PTERMS(:,:,:) = 0.0
CALL SUBT0
@@ -90368,47 +29857,6 @@ CALL SUBT44
CALL SUBT45
CALL SUBT46
CALL SUBT47
-CALL SUBT48
-CALL SUBT49
-CALL SUBT50
-CALL SUBT51
-CALL SUBT52
-CALL SUBT53
-CALL SUBT54
-CALL SUBT55
-CALL SUBT56
-CALL SUBT57
-CALL SUBT58
-CALL SUBT59
-CALL SUBT60
-CALL SUBT61
-CALL SUBT62
-CALL SUBT63
-CALL SUBT64
-CALL SUBT65
-CALL SUBT66
-CALL SUBT67
-CALL SUBT68
-CALL SUBT69
-CALL SUBT70
-CALL SUBT71
-CALL SUBT72
-CALL SUBT73
-CALL SUBT74
-CALL SUBT75
-CALL SUBT76
-CALL SUBT77
-CALL SUBT78
-CALL SUBT79
-CALL SUBT80
-CALL SUBT81
-CALL SUBT82
-CALL SUBT83
-CALL SUBT84
-CALL SUBT85
-CALL SUBT86
-CALL SUBT87
-CALL SUBT88
!
CONTAINS
@@ -90418,64 +29866,64 @@ SUBROUTINE SUBT0
!Indices 1 a 20
!
!PTERMS(NO,K001) = +K001*<NO2>
- PTERMS(:,1,1) = +TPK%K001(:)*PCONC(:,2)
+ PTERMS(:,3,1) = +TPK%K001(:)*PCONC(:,4)
!
!PTERMS(NO2,K001) = -K001*<NO2>
- PTERMS(:,2,1) = -TPK%K001(:)*PCONC(:,2)
+ PTERMS(:,4,1) = -TPK%K001(:)*PCONC(:,4)
!
-!PTERMS(O3,K002) = +K002*<O2>*<O>
- PTERMS(:,3,2) = +TPK%K002(:)*TPK%O2(:)*TPK%O(:)
+!PTERMS(O3,K002) = -K002*<O3>
+ PTERMS(:,1,2) = -TPK%K002(:)*PCONC(:,1)
!
-!PTERMS(NO,K003) = +K003*<NO2>*<O>
- PTERMS(:,1,3) = +TPK%K003(:)*PCONC(:,2)*TPK%O(:)
+!PTERMS(O3,K003) = -K003*<O3>
+ PTERMS(:,1,3) = -TPK%K003(:)*PCONC(:,1)
!
-!PTERMS(NO2,K003) = -K003*<NO2>*<O>
- PTERMS(:,2,3) = -TPK%K003(:)*PCONC(:,2)*TPK%O(:)
+!PTERMS(NO,K004) = +K004*<HONO>
+ PTERMS(:,3,4) = +TPK%K004(:)*PCONC(:,7)
!
-!PTERMS(NO2,K004) = -K004*<NO2>*<O>
- PTERMS(:,2,4) = -TPK%K004(:)*PCONC(:,2)*TPK%O(:)
+!PTERMS(HONO,K004) = -K004*<HONO>
+ PTERMS(:,7,4) = -TPK%K004(:)*PCONC(:,7)
!
-!PTERMS(NO3,K004) = +K004*<NO2>*<O>
- PTERMS(:,8,4) = +TPK%K004(:)*PCONC(:,2)*TPK%O(:)
+!PTERMS(OH,K004) = +K004*<HONO>
+ PTERMS(:,14,4) = +TPK%K004(:)*PCONC(:,7)
!
-!PTERMS(NO,K005) = -K005*<O3>*<NO>
- PTERMS(:,1,5) = -TPK%K005(:)*PCONC(:,3)*PCONC(:,1)
+!PTERMS(NO2,K005) = +K005*<HNO3>
+ PTERMS(:,4,5) = +TPK%K005(:)*PCONC(:,8)
!
-!PTERMS(NO2,K005) = +K005*<O3>*<NO>
- PTERMS(:,2,5) = +TPK%K005(:)*PCONC(:,3)*PCONC(:,1)
+!PTERMS(HNO3,K005) = -K005*<HNO3>
+ PTERMS(:,8,5) = -TPK%K005(:)*PCONC(:,8)
!
-!PTERMS(O3,K005) = -K005*<O3>*<NO>
- PTERMS(:,3,5) = -TPK%K005(:)*PCONC(:,3)*PCONC(:,1)
+!PTERMS(OH,K005) = +K005*<HNO3>
+ PTERMS(:,14,5) = +TPK%K005(:)*PCONC(:,8)
!
-!PTERMS(NO2,K006) = -K006*<O3>*<NO2>
- PTERMS(:,2,6) = -TPK%K006(:)*PCONC(:,3)*PCONC(:,2)
+!PTERMS(NO2,K006) = +0.65*K006*<HNO4>
+ PTERMS(:,4,6) = +0.65*TPK%K006(:)*PCONC(:,9)
!
-!PTERMS(O3,K006) = -K006*<O3>*<NO2>
- PTERMS(:,3,6) = -TPK%K006(:)*PCONC(:,3)*PCONC(:,2)
+!PTERMS(NO3,K006) = +0.35*K006*<HNO4>
+ PTERMS(:,5,6) = +0.35*TPK%K006(:)*PCONC(:,9)
!
-!PTERMS(NO3,K006) = +K006*<O3>*<NO2>
- PTERMS(:,8,6) = +TPK%K006(:)*PCONC(:,3)*PCONC(:,2)
+!PTERMS(HNO4,K006) = -K006*<HNO4>
+ PTERMS(:,9,6) = -TPK%K006(:)*PCONC(:,9)
!
-!PTERMS(NO,K007) = -K007*<NO3>*<NO>
- PTERMS(:,1,7) = -TPK%K007(:)*PCONC(:,8)*PCONC(:,1)
+!PTERMS(OH,K006) = +0.35*K006*<HNO4>
+ PTERMS(:,14,6) = +0.35*TPK%K006(:)*PCONC(:,9)
!
-!PTERMS(NO2,K007) = +2.*K007*<NO3>*<NO>
- PTERMS(:,2,7) = +2.*TPK%K007(:)*PCONC(:,8)*PCONC(:,1)
+!PTERMS(HO2,K006) = +0.65*K006*<HNO4>
+ PTERMS(:,15,6) = +0.65*TPK%K006(:)*PCONC(:,9)
!
-!PTERMS(NO3,K007) = -K007*<NO3>*<NO>
- PTERMS(:,8,7) = -TPK%K007(:)*PCONC(:,8)*PCONC(:,1)
+!PTERMS(NO,K007) = +K007*<NO3>
+ PTERMS(:,3,7) = +TPK%K007(:)*PCONC(:,5)
!
-!PTERMS(NO,K008) = -K008*<NO>*<NO>
- PTERMS(:,1,8) = -TPK%K008(:)*PCONC(:,1)*PCONC(:,1)
+!PTERMS(NO3,K007) = -K007*<NO3>
+ PTERMS(:,5,7) = -TPK%K007(:)*PCONC(:,5)
!
-!PTERMS(NO2,K008) = +2.*K008*<NO>*<NO>
- PTERMS(:,2,8) = +2.*TPK%K008(:)*PCONC(:,1)*PCONC(:,1)
+!PTERMS(NO2,K008) = +K008*<NO3>
+ PTERMS(:,4,8) = +TPK%K008(:)*PCONC(:,5)
!
-!PTERMS(NO2,K009) = -K009*<NO3>*<NO2>
- PTERMS(:,2,9) = -TPK%K009(:)*PCONC(:,8)*PCONC(:,2)
+!PTERMS(NO3,K008) = -K008*<NO3>
+ PTERMS(:,5,8) = -TPK%K008(:)*PCONC(:,5)
!
-!PTERMS(N2O5,K009) = +K009*<NO3>*<NO2>
- PTERMS(:,7,9) = +TPK%K009(:)*PCONC(:,8)*PCONC(:,2)
+!PTERMS(H2O2,K009) = -K009*<H2O2>
+ PTERMS(:,2,9) = -TPK%K009(:)*PCONC(:,2)
!
!
RETURN
@@ -90485,65 +29933,65 @@ SUBROUTINE SUBT1
!
!Indices 21 a 40
!
-!PTERMS(NO3,K009) = -K009*<NO3>*<NO2>
- PTERMS(:,8,9) = -TPK%K009(:)*PCONC(:,8)*PCONC(:,2)
+!PTERMS(OH,K009) = +K009*<H2O2>
+ PTERMS(:,14,9) = +TPK%K009(:)*PCONC(:,2)
!
-!PTERMS(NO2,K010) = +K010*<N2O5>
- PTERMS(:,2,10) = +TPK%K010(:)*PCONC(:,7)
+!PTERMS(CO,K010) = +K010*<HCHO>
+ PTERMS(:,13,10) = +TPK%K010(:)*PCONC(:,22)
!
-!PTERMS(N2O5,K010) = -K010*<N2O5>
- PTERMS(:,7,10) = -TPK%K010(:)*PCONC(:,7)
+!PTERMS(HCHO,K010) = -K010*<HCHO>
+ PTERMS(:,22,10) = -TPK%K010(:)*PCONC(:,22)
!
-!PTERMS(NO3,K010) = +K010*<N2O5>
- PTERMS(:,8,10) = +TPK%K010(:)*PCONC(:,7)
+!PTERMS(CO,K011) = +K011*<HCHO>
+ PTERMS(:,13,11) = +TPK%K011(:)*PCONC(:,22)
!
-!PTERMS(HNO3,K011) = +2.*K011*<H2O>*<N2O5>
- PTERMS(:,5,11) = +2.*TPK%K011(:)*TPK%H2O(:)*PCONC(:,7)
+!PTERMS(HO2,K011) = +K011*<HCHO>
+ PTERMS(:,15,11) = +TPK%K011(:)*PCONC(:,22)
!
-!PTERMS(N2O5,K011) = -K011*<H2O>*<N2O5>
- PTERMS(:,7,11) = -TPK%K011(:)*TPK%H2O(:)*PCONC(:,7)
+!PTERMS(HCHO,K011) = -K011*<HCHO>
+ PTERMS(:,22,11) = -TPK%K011(:)*PCONC(:,22)
!
-!PTERMS(NO,K012) = +K012*<NO3>*<NO2>
- PTERMS(:,1,12) = +TPK%K012(:)*PCONC(:,8)*PCONC(:,2)
+!PTERMS(CO,K012) = +K012*<ALD>
+ PTERMS(:,13,12) = +TPK%K012(:)*PCONC(:,23)
!
-!PTERMS(NO2,K012) = -K012*<NO3>*<NO2>
- PTERMS(:,2,12) = -TPK%K012(:)*PCONC(:,8)*PCONC(:,2)
+!PTERMS(HO2,K012) = +K012*<ALD>
+ PTERMS(:,15,12) = +TPK%K012(:)*PCONC(:,23)
!
-!PTERMS(NO3,K012) = -K012*<NO3>*<NO2>
- PTERMS(:,8,12) = -TPK%K012(:)*PCONC(:,8)*PCONC(:,2)
+!PTERMS(ALD,K012) = -K012*<ALD>
+ PTERMS(:,23,12) = -TPK%K012(:)*PCONC(:,23)
!
-!PTERMS(NO,K013) = +K013*<NO3>
- PTERMS(:,1,13) = +TPK%K013(:)*PCONC(:,8)
+!PTERMS(MO2,K012) = +K012*<ALD>
+ PTERMS(:,32,12) = +TPK%K012(:)*PCONC(:,23)
!
-!PTERMS(NO3,K013) = -K013*<NO3>
- PTERMS(:,8,13) = -TPK%K013(:)*PCONC(:,8)
+!PTERMS(OH,K013) = +K013*<OP1>
+ PTERMS(:,14,13) = +TPK%K013(:)*PCONC(:,28)
!
-!PTERMS(NO2,K014) = +K014*<NO3>
- PTERMS(:,2,14) = +TPK%K014(:)*PCONC(:,8)
+!PTERMS(HO2,K013) = +K013*<OP1>
+ PTERMS(:,15,13) = +TPK%K013(:)*PCONC(:,28)
!
-!PTERMS(NO3,K014) = -K014*<NO3>
- PTERMS(:,8,14) = -TPK%K014(:)*PCONC(:,8)
+!PTERMS(HCHO,K013) = +K013*<OP1>
+ PTERMS(:,22,13) = +TPK%K013(:)*PCONC(:,28)
!
-!PTERMS(O3,K015) = -K015*<O3>
- PTERMS(:,3,15) = -TPK%K015(:)*PCONC(:,3)
+!PTERMS(OP1,K013) = -K013*<OP1>
+ PTERMS(:,28,13) = -TPK%K013(:)*PCONC(:,28)
!
-!PTERMS(O3,K016) = -K016*<O3>
- PTERMS(:,3,16) = -TPK%K016(:)*PCONC(:,3)
+!PTERMS(OH,K014) = +K014*<OP2>
+ PTERMS(:,14,14) = +TPK%K014(:)*PCONC(:,29)
!
-!PTERMS(OH,K017) = +K017*<H2O>*<OSD>
- PTERMS(:,15,17) = +TPK%K017(:)*TPK%H2O(:)*TPK%OSD(:)
+!PTERMS(HO2,K014) = +0.96205*K014*<OP2>
+ PTERMS(:,15,14) = +0.96205*TPK%K014(:)*PCONC(:,29)
!
-!PTERMS(NO,K019) = -K019*<OH>*<NO>
- PTERMS(:,1,20) = -TPK%K019(:)*PCONC(:,15)*PCONC(:,1)
+!PTERMS(ALD,K014) = +0.96205*K014*<OP2>
+ PTERMS(:,23,14) = +0.96205*TPK%K014(:)*PCONC(:,29)
!
-!PTERMS(HONO,K019) = +K019*<OH>*<NO>
- PTERMS(:,4,20) = +TPK%K019(:)*PCONC(:,15)*PCONC(:,1)
+!PTERMS(OP2,K014) = -K014*<OP2>
+ PTERMS(:,29,14) = -TPK%K014(:)*PCONC(:,29)
!
-!PTERMS(OH,K019) = -K019*<OH>*<NO>
- PTERMS(:,15,20) = -TPK%K019(:)*PCONC(:,15)*PCONC(:,1)
+!PTERMS(MO2,K014) = +0.03795*K014*<OP2>
+ PTERMS(:,32,14) = +0.03795*TPK%K014(:)*PCONC(:,29)
!
-!PTERMS(NO,K020) = +0.9*K020*<HONO>
- PTERMS(:,1,21) = +0.9*TPK%K020(:)*PCONC(:,4)
+!PTERMS(KET,K015) = -K015*<KET>
+ PTERMS(:,24,15) = -TPK%K015(:)*PCONC(:,24)
!
!
RETURN
@@ -90553,65 +30001,65 @@ SUBROUTINE SUBT2
!
!Indices 41 a 60
!
-!PTERMS(NO2,K020) = +0.1*K020*<HONO>
- PTERMS(:,2,21) = +0.1*TPK%K020(:)*PCONC(:,4)
+!PTERMS(ALKAP,K015) = +1.00000*K015*<KET>
+ PTERMS(:,33,15) = +1.00000*TPK%K015(:)*PCONC(:,24)
!
-!PTERMS(HONO,K020) = -K020*<HONO>
- PTERMS(:,4,21) = -TPK%K020(:)*PCONC(:,4)
+!PTERMS(CARBOP,K015) = +1.00000*K015*<KET>
+ PTERMS(:,39,15) = +1.00000*TPK%K015(:)*PCONC(:,24)
!
-!PTERMS(HO2,K020) = +0.1*K020*<HONO>
- PTERMS(:,10,21) = +0.1*TPK%K020(:)*PCONC(:,4)
+!PTERMS(CO,K016) = +0.91924*K016*<CARBO>
+ PTERMS(:,13,16) = +0.91924*TPK%K016(:)*PCONC(:,25)
!
-!PTERMS(OH,K020) = +0.9*K020*<HONO>
- PTERMS(:,15,21) = +0.9*TPK%K020(:)*PCONC(:,4)
+!PTERMS(HO2,K016) = +0.75830*K016*<CARBO>
+ PTERMS(:,15,16) = +0.75830*TPK%K016(:)*PCONC(:,25)
!
-!PTERMS(NO2,K021) = -K021*<H2O>*<NO2>
- PTERMS(:,2,22) = -TPK%K021(:)*TPK%H2O(:)*PCONC(:,2)
+!PTERMS(HCHO,K016) = +0.06517*K016*<CARBO>
+ PTERMS(:,22,16) = +0.06517*TPK%K016(:)*PCONC(:,25)
!
-!PTERMS(HONO,K021) = +0.5*K021*<H2O>*<NO2>
- PTERMS(:,4,22) = +0.5*TPK%K021(:)*TPK%H2O(:)*PCONC(:,2)
+!PTERMS(CARBO,K016) = -K016*<CARBO>
+ PTERMS(:,25,16) = -TPK%K016(:)*PCONC(:,25)
!
-!PTERMS(HNO3,K021) = +0.5*K021*<H2O>*<NO2>
- PTERMS(:,5,22) = +0.5*TPK%K021(:)*TPK%H2O(:)*PCONC(:,2)
+!PTERMS(CARBOP,K016) = +0.69622*K016*<CARBO>
+ PTERMS(:,39,16) = +0.69622*TPK%K016(:)*PCONC(:,25)
!
-!PTERMS(NO2,K022) = -K022*<OH>*<NO2>
- PTERMS(:,2,23) = -TPK%K022(:)*PCONC(:,15)*PCONC(:,2)
+!PTERMS(NO2,K017) = +K017*<ONIT>
+ PTERMS(:,4,17) = +TPK%K017(:)*PCONC(:,26)
!
-!PTERMS(HNO3,K022) = +K022*<OH>*<NO2>
- PTERMS(:,5,23) = +TPK%K022(:)*PCONC(:,15)*PCONC(:,2)
+!PTERMS(HO2,K017) = +K017*<ONIT>
+ PTERMS(:,15,17) = +TPK%K017(:)*PCONC(:,26)
!
-!PTERMS(OH,K022) = -K022*<OH>*<NO2>
- PTERMS(:,15,23) = -TPK%K022(:)*PCONC(:,15)*PCONC(:,2)
+!PTERMS(ALD,K017) = +0.20*K017*<ONIT>
+ PTERMS(:,23,17) = +0.20*TPK%K017(:)*PCONC(:,26)
!
-!PTERMS(HNO3,K023) = -K023*<OH>*<HNO3>
- PTERMS(:,5,24) = -TPK%K023(:)*PCONC(:,15)*PCONC(:,5)
+!PTERMS(KET,K017) = +0.80*K017*<ONIT>
+ PTERMS(:,24,17) = +0.80*TPK%K017(:)*PCONC(:,26)
!
-!PTERMS(NO3,K023) = +K023*<OH>*<HNO3>
- PTERMS(:,8,24) = +TPK%K023(:)*PCONC(:,15)*PCONC(:,5)
+!PTERMS(ONIT,K017) = -K017*<ONIT>
+ PTERMS(:,26,17) = -TPK%K017(:)*PCONC(:,26)
!
-!PTERMS(OH,K023) = -K023*<OH>*<HNO3>
- PTERMS(:,15,24) = -TPK%K023(:)*PCONC(:,15)*PCONC(:,5)
+!PTERMS(O3,K018) = +K018*<O3P>*<O2>
+ PTERMS(:,1,18) = +TPK%K018(:)*TPK%O3P(:)*TPK%O2(:)
!
-!PTERMS(HO2,K024) = +K024*<OH>*<CO>
- PTERMS(:,10,25) = +TPK%K024(:)*PCONC(:,15)*PCONC(:,11)
+!PTERMS(O3,K019) = -K019*<O3P>*<O3>
+ PTERMS(:,1,19) = -TPK%K019(:)*TPK%O3P(:)*PCONC(:,1)
!
-!PTERMS(CO,K024) = -K024*<OH>*<CO>
- PTERMS(:,11,25) = -TPK%K024(:)*PCONC(:,15)*PCONC(:,11)
+!PTERMS(OH,K022) = +K022*<O1D>*<H2O>
+ PTERMS(:,14,22) = +TPK%K022(:)*TPK%O1D(:)*TPK%H2O(:)
!
-!PTERMS(OH,K024) = -K024*<OH>*<CO>
- PTERMS(:,15,25) = -TPK%K024(:)*PCONC(:,15)*PCONC(:,11)
+!PTERMS(O3,K023) = -K023*<O3>*<OH>
+ PTERMS(:,1,23) = -TPK%K023(:)*PCONC(:,1)*PCONC(:,14)
!
-!PTERMS(O3,K025) = -K025*<OH>*<O3>
- PTERMS(:,3,26) = -TPK%K025(:)*PCONC(:,15)*PCONC(:,3)
+!PTERMS(OH,K023) = -K023*<O3>*<OH>
+ PTERMS(:,14,23) = -TPK%K023(:)*PCONC(:,1)*PCONC(:,14)
!
-!PTERMS(HO2,K025) = +K025*<OH>*<O3>
- PTERMS(:,10,26) = +TPK%K025(:)*PCONC(:,15)*PCONC(:,3)
+!PTERMS(HO2,K023) = +K023*<O3>*<OH>
+ PTERMS(:,15,23) = +TPK%K023(:)*PCONC(:,1)*PCONC(:,14)
!
-!PTERMS(OH,K025) = -K025*<OH>*<O3>
- PTERMS(:,15,26) = -TPK%K025(:)*PCONC(:,15)*PCONC(:,3)
+!PTERMS(O3,K024) = -K024*<O3>*<HO2>
+ PTERMS(:,1,24) = -TPK%K024(:)*PCONC(:,1)*PCONC(:,15)
!
-!PTERMS(NO,K026) = -K026*<HO2>*<NO>
- PTERMS(:,1,27) = -TPK%K026(:)*PCONC(:,10)*PCONC(:,1)
+!PTERMS(OH,K024) = +K024*<O3>*<HO2>
+ PTERMS(:,14,24) = +TPK%K024(:)*PCONC(:,1)*PCONC(:,15)
!
!
RETURN
@@ -90621,65 +30069,65 @@ SUBROUTINE SUBT3
!
!Indices 61 a 80
!
-!PTERMS(NO2,K026) = +K026*<HO2>*<NO>
- PTERMS(:,2,27) = +TPK%K026(:)*PCONC(:,10)*PCONC(:,1)
+!PTERMS(HO2,K024) = -K024*<O3>*<HO2>
+ PTERMS(:,15,24) = -TPK%K024(:)*PCONC(:,1)*PCONC(:,15)
!
-!PTERMS(HO2,K026) = -K026*<HO2>*<NO>
- PTERMS(:,10,27) = -TPK%K026(:)*PCONC(:,10)*PCONC(:,1)
+!PTERMS(OH,K025) = -K025*<OH>*<HO2>
+ PTERMS(:,14,25) = -TPK%K025(:)*PCONC(:,14)*PCONC(:,15)
!
-!PTERMS(OH,K026) = +K026*<HO2>*<NO>
- PTERMS(:,15,27) = +TPK%K026(:)*PCONC(:,10)*PCONC(:,1)
+!PTERMS(HO2,K025) = -K025*<OH>*<HO2>
+ PTERMS(:,15,25) = -TPK%K025(:)*PCONC(:,14)*PCONC(:,15)
!
-!PTERMS(NO2,K027) = -K027*<HO2>*<NO2>
- PTERMS(:,2,28) = -TPK%K027(:)*PCONC(:,10)*PCONC(:,2)
+!PTERMS(H2O2,K026) = -K026*<H2O2>*<OH>
+ PTERMS(:,2,26) = -TPK%K026(:)*PCONC(:,2)*PCONC(:,14)
!
-!PTERMS(HNO4,K027) = +K027*<HO2>*<NO2>
- PTERMS(:,6,28) = +TPK%K027(:)*PCONC(:,10)*PCONC(:,2)
+!PTERMS(OH,K026) = -K026*<H2O2>*<OH>
+ PTERMS(:,14,26) = -TPK%K026(:)*PCONC(:,2)*PCONC(:,14)
!
-!PTERMS(HO2,K027) = -K027*<HO2>*<NO2>
- PTERMS(:,10,28) = -TPK%K027(:)*PCONC(:,10)*PCONC(:,2)
+!PTERMS(HO2,K026) = +K026*<H2O2>*<OH>
+ PTERMS(:,15,26) = +TPK%K026(:)*PCONC(:,2)*PCONC(:,14)
!
-!PTERMS(NO2,K028) = +K028*<HNO4>
- PTERMS(:,2,29) = +TPK%K028(:)*PCONC(:,6)
+!PTERMS(H2O2,K027) = +K027*<HO2>*<HO2>
+ PTERMS(:,2,27) = +TPK%K027(:)*PCONC(:,15)*PCONC(:,15)
!
-!PTERMS(HNO4,K028) = -K028*<HNO4>
- PTERMS(:,6,29) = -TPK%K028(:)*PCONC(:,6)
+!PTERMS(HO2,K027) = -K027*<HO2>*<HO2>
+ PTERMS(:,15,27) = -TPK%K027(:)*PCONC(:,15)*PCONC(:,15)
!
-!PTERMS(HO2,K028) = +K028*<HNO4>
- PTERMS(:,10,29) = +TPK%K028(:)*PCONC(:,6)
+!PTERMS(H2O2,K028) = +K028*<HO2>*<HO2>*<H2O>
+ PTERMS(:,2,28) = +TPK%K028(:)*PCONC(:,15)*PCONC(:,15)*TPK%H2O(:)
!
-!PTERMS(NO2,K029) = +K029*<OH>*<HNO4>
- PTERMS(:,2,30) = +TPK%K029(:)*PCONC(:,15)*PCONC(:,6)
+!PTERMS(HO2,K028) = -K028*<HO2>*<HO2>*<H2O>
+ PTERMS(:,15,28) = -TPK%K028(:)*PCONC(:,15)*PCONC(:,15)*TPK%H2O(:)
!
-!PTERMS(HNO4,K029) = -K029*<OH>*<HNO4>
- PTERMS(:,6,30) = -TPK%K029(:)*PCONC(:,15)*PCONC(:,6)
+!PTERMS(NO,K029) = -K029*<O3P>*<NO>
+ PTERMS(:,3,29) = -TPK%K029(:)*TPK%O3P(:)*PCONC(:,3)
!
-!PTERMS(OH,K029) = -K029*<OH>*<HNO4>
- PTERMS(:,15,30) = -TPK%K029(:)*PCONC(:,15)*PCONC(:,6)
+!PTERMS(NO2,K029) = +K029*<O3P>*<NO>
+ PTERMS(:,4,29) = +TPK%K029(:)*TPK%O3P(:)*PCONC(:,3)
!
-!PTERMS(O3,K030) = -K030*<HO2>*<O3>
- PTERMS(:,3,31) = -TPK%K030(:)*PCONC(:,10)*PCONC(:,3)
+!PTERMS(NO,K030) = +K030*<O3P>*<NO2>
+ PTERMS(:,3,30) = +TPK%K030(:)*TPK%O3P(:)*PCONC(:,4)
!
-!PTERMS(HO2,K030) = -K030*<HO2>*<O3>
- PTERMS(:,10,31) = -TPK%K030(:)*PCONC(:,10)*PCONC(:,3)
+!PTERMS(NO2,K030) = -K030*<O3P>*<NO2>
+ PTERMS(:,4,30) = -TPK%K030(:)*TPK%O3P(:)*PCONC(:,4)
!
-!PTERMS(OH,K030) = +K030*<HO2>*<O3>
- PTERMS(:,15,31) = +TPK%K030(:)*PCONC(:,10)*PCONC(:,3)
+!PTERMS(NO2,K031) = -K031*<O3P>*<NO2>
+ PTERMS(:,4,31) = -TPK%K031(:)*TPK%O3P(:)*PCONC(:,4)
!
-!PTERMS(HO2,K031) = -K031*<HO2>*<HO2>
- PTERMS(:,10,32) = -TPK%K031(:)*PCONC(:,10)*PCONC(:,10)
+!PTERMS(NO3,K031) = +K031*<O3P>*<NO2>
+ PTERMS(:,5,31) = +TPK%K031(:)*TPK%O3P(:)*PCONC(:,4)
!
-!PTERMS(H2O2,K031) = +K031*<HO2>*<HO2>
- PTERMS(:,12,32) = +TPK%K031(:)*PCONC(:,10)*PCONC(:,10)
+!PTERMS(NO,K032) = -K032*<OH>*<NO>
+ PTERMS(:,3,32) = -TPK%K032(:)*PCONC(:,14)*PCONC(:,3)
!
-!PTERMS(HO2,K032) = -K032*<HO2>*<H2O>*<HO2>
- PTERMS(:,10,33) = -TPK%K032(:)*PCONC(:,10)*TPK%H2O(:)*PCONC(:,10)
+!PTERMS(HONO,K032) = +K032*<OH>*<NO>
+ PTERMS(:,7,32) = +TPK%K032(:)*PCONC(:,14)*PCONC(:,3)
!
-!PTERMS(H2O2,K032) = +K032*<HO2>*<H2O>*<HO2>
- PTERMS(:,12,33) = +TPK%K032(:)*PCONC(:,10)*TPK%H2O(:)*PCONC(:,10)
+!PTERMS(OH,K032) = -K032*<OH>*<NO>
+ PTERMS(:,14,32) = -TPK%K032(:)*PCONC(:,14)*PCONC(:,3)
!
-!PTERMS(NO2,K033) = +0.8*K033*<HO2>*<NO3>
- PTERMS(:,2,34) = +0.8*TPK%K033(:)*PCONC(:,10)*PCONC(:,8)
+!PTERMS(NO2,K033) = -K033*<OH>*<NO2>
+ PTERMS(:,4,33) = -TPK%K033(:)*PCONC(:,14)*PCONC(:,4)
!
!
RETURN
@@ -90689,65 +30137,65 @@ SUBROUTINE SUBT4
!
!Indices 81 a 100
!
-!PTERMS(HNO3,K033) = +0.2*K033*<HO2>*<NO3>
- PTERMS(:,5,34) = +0.2*TPK%K033(:)*PCONC(:,10)*PCONC(:,8)
+!PTERMS(HNO3,K033) = +K033*<OH>*<NO2>
+ PTERMS(:,8,33) = +TPK%K033(:)*PCONC(:,14)*PCONC(:,4)
!
-!PTERMS(NO3,K033) = -K033*<HO2>*<NO3>
- PTERMS(:,8,34) = -TPK%K033(:)*PCONC(:,10)*PCONC(:,8)
+!PTERMS(OH,K033) = -K033*<OH>*<NO2>
+ PTERMS(:,14,33) = -TPK%K033(:)*PCONC(:,14)*PCONC(:,4)
!
-!PTERMS(HO2,K033) = -K033*<HO2>*<NO3>
- PTERMS(:,10,34) = -TPK%K033(:)*PCONC(:,10)*PCONC(:,8)
+!PTERMS(NO2,K034) = +K034*<OH>*<NO3>
+ PTERMS(:,4,34) = +TPK%K034(:)*PCONC(:,14)*PCONC(:,5)
!
-!PTERMS(OH,K033) = +0.8*K033*<HO2>*<NO3>
- PTERMS(:,15,34) = +0.8*TPK%K033(:)*PCONC(:,10)*PCONC(:,8)
+!PTERMS(NO3,K034) = -K034*<OH>*<NO3>
+ PTERMS(:,5,34) = -TPK%K034(:)*PCONC(:,14)*PCONC(:,5)
!
-!PTERMS(O3,K034) = -K034*<O3>*<O>
- PTERMS(:,3,35) = -TPK%K034(:)*PCONC(:,3)*TPK%O(:)
+!PTERMS(OH,K034) = -K034*<OH>*<NO3>
+ PTERMS(:,14,34) = -TPK%K034(:)*PCONC(:,14)*PCONC(:,5)
!
-!PTERMS(HO2,K035) = +K035*<OH>*<SO2>
- PTERMS(:,10,36) = +TPK%K035(:)*PCONC(:,15)*PCONC(:,13)
+!PTERMS(HO2,K034) = +K034*<OH>*<NO3>
+ PTERMS(:,15,34) = +TPK%K034(:)*PCONC(:,14)*PCONC(:,5)
!
-!PTERMS(SO2,K035) = -K035*<OH>*<SO2>
- PTERMS(:,13,36) = -TPK%K035(:)*PCONC(:,15)*PCONC(:,13)
+!PTERMS(NO,K035) = -K035*<HO2>*<NO>
+ PTERMS(:,3,35) = -TPK%K035(:)*PCONC(:,15)*PCONC(:,3)
!
-!PTERMS(H2SO4,K035) = +K035*<OH>*<SO2>
- PTERMS(:,14,36) = +TPK%K035(:)*PCONC(:,15)*PCONC(:,13)
+!PTERMS(NO2,K035) = +K035*<HO2>*<NO>
+ PTERMS(:,4,35) = +TPK%K035(:)*PCONC(:,15)*PCONC(:,3)
!
-!PTERMS(OH,K035) = -K035*<OH>*<SO2>
- PTERMS(:,15,36) = -TPK%K035(:)*PCONC(:,15)*PCONC(:,13)
+!PTERMS(OH,K035) = +K035*<HO2>*<NO>
+ PTERMS(:,14,35) = +TPK%K035(:)*PCONC(:,15)*PCONC(:,3)
!
-!PTERMS(H2O2,K036) = -K036*<H2O2>
- PTERMS(:,12,37) = -TPK%K036(:)*PCONC(:,12)
+!PTERMS(HO2,K035) = -K035*<HO2>*<NO>
+ PTERMS(:,15,35) = -TPK%K035(:)*PCONC(:,15)*PCONC(:,3)
!
-!PTERMS(OH,K036) = +2.*K036*<H2O2>
- PTERMS(:,15,37) = +2.*TPK%K036(:)*PCONC(:,12)
+!PTERMS(NO2,K036) = -K036*<HO2>*<NO2>
+ PTERMS(:,4,36) = -TPK%K036(:)*PCONC(:,15)*PCONC(:,4)
!
-!PTERMS(HO2,K037) = +K037*<OH>*<H2O2>
- PTERMS(:,10,38) = +TPK%K037(:)*PCONC(:,15)*PCONC(:,12)
+!PTERMS(HNO4,K036) = +K036*<HO2>*<NO2>
+ PTERMS(:,9,36) = +TPK%K036(:)*PCONC(:,15)*PCONC(:,4)
!
-!PTERMS(H2O2,K037) = -K037*<OH>*<H2O2>
- PTERMS(:,12,38) = -TPK%K037(:)*PCONC(:,15)*PCONC(:,12)
+!PTERMS(HO2,K036) = -K036*<HO2>*<NO2>
+ PTERMS(:,15,36) = -TPK%K036(:)*PCONC(:,15)*PCONC(:,4)
!
-!PTERMS(OH,K037) = -K037*<OH>*<H2O2>
- PTERMS(:,15,38) = -TPK%K037(:)*PCONC(:,15)*PCONC(:,12)
+!PTERMS(NO2,K037) = +K037*<HNO4>
+ PTERMS(:,4,37) = +TPK%K037(:)*PCONC(:,9)
!
-!PTERMS(NO,K038) = -K038*<NO>*<O>
- PTERMS(:,1,39) = -TPK%K038(:)*PCONC(:,1)*TPK%O(:)
+!PTERMS(HNO4,K037) = -K037*<HNO4>
+ PTERMS(:,9,37) = -TPK%K037(:)*PCONC(:,9)
!
-!PTERMS(NO2,K038) = +K038*<NO>*<O>
- PTERMS(:,2,39) = +TPK%K038(:)*PCONC(:,1)*TPK%O(:)
+!PTERMS(HO2,K037) = +K037*<HNO4>
+ PTERMS(:,15,37) = +TPK%K037(:)*PCONC(:,9)
!
-!PTERMS(NO2,K039) = +K039*<OH>*<HONO>
- PTERMS(:,2,40) = +TPK%K039(:)*PCONC(:,15)*PCONC(:,4)
+!PTERMS(NO2,K038) = +0.7*K038*<HO2>*<NO3>
+ PTERMS(:,4,38) = +0.7*TPK%K038(:)*PCONC(:,15)*PCONC(:,5)
!
-!PTERMS(HONO,K039) = -K039*<OH>*<HONO>
- PTERMS(:,4,40) = -TPK%K039(:)*PCONC(:,15)*PCONC(:,4)
+!PTERMS(NO3,K038) = -K038*<HO2>*<NO3>
+ PTERMS(:,5,38) = -TPK%K038(:)*PCONC(:,15)*PCONC(:,5)
!
-!PTERMS(OH,K039) = -K039*<OH>*<HONO>
- PTERMS(:,15,40) = -TPK%K039(:)*PCONC(:,15)*PCONC(:,4)
+!PTERMS(HNO3,K038) = +0.3*K038*<HO2>*<NO3>
+ PTERMS(:,8,38) = +0.3*TPK%K038(:)*PCONC(:,15)*PCONC(:,5)
!
-!PTERMS(NO2,K040) = +K040*<OH>*<NO3>
- PTERMS(:,2,41) = +TPK%K040(:)*PCONC(:,15)*PCONC(:,8)
+!PTERMS(OH,K038) = +0.7*K038*<HO2>*<NO3>
+ PTERMS(:,14,38) = +0.7*TPK%K038(:)*PCONC(:,15)*PCONC(:,5)
!
!
RETURN
@@ -90757,65 +30205,65 @@ SUBROUTINE SUBT5
!
!Indices 101 a 120
!
-!PTERMS(NO3,K040) = -K040*<OH>*<NO3>
- PTERMS(:,8,41) = -TPK%K040(:)*PCONC(:,15)*PCONC(:,8)
+!PTERMS(HO2,K038) = -K038*<HO2>*<NO3>
+ PTERMS(:,15,38) = -TPK%K038(:)*PCONC(:,15)*PCONC(:,5)
!
-!PTERMS(HO2,K040) = +K040*<OH>*<NO3>
- PTERMS(:,10,41) = +TPK%K040(:)*PCONC(:,15)*PCONC(:,8)
+!PTERMS(NO2,K039) = +K039*<OH>*<HONO>
+ PTERMS(:,4,39) = +TPK%K039(:)*PCONC(:,14)*PCONC(:,7)
!
-!PTERMS(OH,K040) = -K040*<OH>*<NO3>
- PTERMS(:,15,41) = -TPK%K040(:)*PCONC(:,15)*PCONC(:,8)
+!PTERMS(HONO,K039) = -K039*<OH>*<HONO>
+ PTERMS(:,7,39) = -TPK%K039(:)*PCONC(:,14)*PCONC(:,7)
!
-!PTERMS(NO2,K041) = +2.*K041*<NO3>*<NO3>
- PTERMS(:,2,42) = +2.*TPK%K041(:)*PCONC(:,8)*PCONC(:,8)
+!PTERMS(OH,K039) = -K039*<OH>*<HONO>
+ PTERMS(:,14,39) = -TPK%K039(:)*PCONC(:,14)*PCONC(:,7)
!
-!PTERMS(NO3,K041) = -K041*<NO3>*<NO3>
- PTERMS(:,8,42) = -TPK%K041(:)*PCONC(:,8)*PCONC(:,8)
+!PTERMS(NO3,K040) = +K040*<OH>*<HNO3>
+ PTERMS(:,5,40) = +TPK%K040(:)*PCONC(:,14)*PCONC(:,8)
!
-!PTERMS(HO2,K042) = -K042*<HO2>*<OH>
- PTERMS(:,10,43) = -TPK%K042(:)*PCONC(:,10)*PCONC(:,15)
+!PTERMS(HNO3,K040) = -K040*<OH>*<HNO3>
+ PTERMS(:,8,40) = -TPK%K040(:)*PCONC(:,14)*PCONC(:,8)
!
-!PTERMS(OH,K042) = -K042*<HO2>*<OH>
- PTERMS(:,15,43) = -TPK%K042(:)*PCONC(:,10)*PCONC(:,15)
+!PTERMS(OH,K040) = -K040*<OH>*<HNO3>
+ PTERMS(:,14,40) = -TPK%K040(:)*PCONC(:,14)*PCONC(:,8)
!
-!PTERMS(OH,K043) = -K043*<OH>*<CH4>
- PTERMS(:,15,44) = -TPK%K043(:)*PCONC(:,15)*TPK%CH4(:)
+!PTERMS(NO2,K041) = +K041*<OH>*<HNO4>
+ PTERMS(:,4,41) = +TPK%K041(:)*PCONC(:,14)*PCONC(:,9)
!
-!PTERMS(RO2T,K043) = +K043*<OH>*<CH4>
- PTERMS(:,85,44) = +TPK%K043(:)*PCONC(:,15)*TPK%CH4(:)
+!PTERMS(HNO4,K041) = -K041*<OH>*<HNO4>
+ PTERMS(:,9,41) = -TPK%K041(:)*PCONC(:,14)*PCONC(:,9)
!
-!PTERMS(RO21,K043) = +K043*<OH>*<CH4>
- PTERMS(:,86,44) = +TPK%K043(:)*PCONC(:,15)*TPK%CH4(:)
+!PTERMS(OH,K041) = -K041*<OH>*<HNO4>
+ PTERMS(:,14,41) = -TPK%K041(:)*PCONC(:,14)*PCONC(:,9)
!
-!PTERMS(HO2,K044) = +2.0*K044*<HCHO>
- PTERMS(:,10,45) = +2.0*TPK%K044(:)*PCONC(:,28)
+!PTERMS(O3,K042) = -K042*<O3>*<NO>
+ PTERMS(:,1,42) = -TPK%K042(:)*PCONC(:,1)*PCONC(:,3)
!
-!PTERMS(CO,K044) = +K044*<HCHO>
- PTERMS(:,11,45) = +TPK%K044(:)*PCONC(:,28)
+!PTERMS(NO,K042) = -K042*<O3>*<NO>
+ PTERMS(:,3,42) = -TPK%K042(:)*PCONC(:,1)*PCONC(:,3)
!
-!PTERMS(HCHO,K044) = -K044*<HCHO>
- PTERMS(:,28,45) = -TPK%K044(:)*PCONC(:,28)
+!PTERMS(NO2,K042) = +K042*<O3>*<NO>
+ PTERMS(:,4,42) = +TPK%K042(:)*PCONC(:,1)*PCONC(:,3)
!
-!PTERMS(CO,K045) = +K045*<HCHO>
- PTERMS(:,11,46) = +TPK%K045(:)*PCONC(:,28)
+!PTERMS(O3,K043) = -K043*<O3>*<NO2>
+ PTERMS(:,1,43) = -TPK%K043(:)*PCONC(:,1)*PCONC(:,4)
!
-!PTERMS(HCHO,K045) = -K045*<HCHO>
- PTERMS(:,28,46) = -TPK%K045(:)*PCONC(:,28)
+!PTERMS(NO2,K043) = -K043*<O3>*<NO2>
+ PTERMS(:,4,43) = -TPK%K043(:)*PCONC(:,1)*PCONC(:,4)
!
-!PTERMS(HO2,K046) = +K046*<OH>*<HCHO>
- PTERMS(:,10,47) = +TPK%K046(:)*PCONC(:,15)*PCONC(:,28)
+!PTERMS(NO3,K043) = +K043*<O3>*<NO2>
+ PTERMS(:,5,43) = +TPK%K043(:)*PCONC(:,1)*PCONC(:,4)
!
-!PTERMS(CO,K046) = +K046*<OH>*<HCHO>
- PTERMS(:,11,47) = +TPK%K046(:)*PCONC(:,15)*PCONC(:,28)
+!PTERMS(NO,K044) = -K044*<NO>*<NO>*<O2>
+ PTERMS(:,3,44) = -TPK%K044(:)*PCONC(:,3)*PCONC(:,3)*TPK%O2(:)
!
-!PTERMS(OH,K046) = -K046*<OH>*<HCHO>
- PTERMS(:,15,47) = -TPK%K046(:)*PCONC(:,15)*PCONC(:,28)
+!PTERMS(NO2,K044) = +K044*<NO>*<NO>*<O2>
+ PTERMS(:,4,44) = +TPK%K044(:)*PCONC(:,3)*PCONC(:,3)*TPK%O2(:)
!
-!PTERMS(HCHO,K046) = -K046*<OH>*<HCHO>
- PTERMS(:,28,47) = -TPK%K046(:)*PCONC(:,15)*PCONC(:,28)
+!PTERMS(NO,K045) = -K045*<NO3>*<NO>
+ PTERMS(:,3,45) = -TPK%K045(:)*PCONC(:,5)*PCONC(:,3)
!
-!PTERMS(HNO3,K047) = +K047*<NO3>*<HCHO>
- PTERMS(:,5,48) = +TPK%K047(:)*PCONC(:,8)*PCONC(:,28)
+!PTERMS(NO2,K045) = +K045*<NO3>*<NO>
+ PTERMS(:,4,45) = +TPK%K045(:)*PCONC(:,5)*PCONC(:,3)
!
!
RETURN
@@ -90825,65 +30273,65 @@ SUBROUTINE SUBT6
!
!Indices 121 a 140
!
-!PTERMS(NO3,K047) = -K047*<NO3>*<HCHO>
- PTERMS(:,8,48) = -TPK%K047(:)*PCONC(:,8)*PCONC(:,28)
+!PTERMS(NO3,K045) = -K045*<NO3>*<NO>
+ PTERMS(:,5,45) = -TPK%K045(:)*PCONC(:,5)*PCONC(:,3)
!
-!PTERMS(HO2,K047) = +K047*<NO3>*<HCHO>
- PTERMS(:,10,48) = +TPK%K047(:)*PCONC(:,8)*PCONC(:,28)
+!PTERMS(NO,K046) = +K046*<NO3>*<NO2>
+ PTERMS(:,3,46) = +TPK%K046(:)*PCONC(:,5)*PCONC(:,4)
!
-!PTERMS(CO,K047) = +K047*<NO3>*<HCHO>
- PTERMS(:,11,48) = +TPK%K047(:)*PCONC(:,8)*PCONC(:,28)
+!PTERMS(NO2,K046) = -K046*<NO3>*<NO2>
+ PTERMS(:,4,46) = -TPK%K046(:)*PCONC(:,5)*PCONC(:,4)
!
-!PTERMS(HCHO,K047) = -K047*<NO3>*<HCHO>
- PTERMS(:,28,48) = -TPK%K047(:)*PCONC(:,8)*PCONC(:,28)
+!PTERMS(NO3,K046) = -K046*<NO3>*<NO2>
+ PTERMS(:,5,46) = -TPK%K046(:)*PCONC(:,5)*PCONC(:,4)
!
-!PTERMS(HO2,K048) = +K048*<OH>*<MEOH>
- PTERMS(:,10,49) = +TPK%K048(:)*PCONC(:,15)*PCONC(:,32)
+!PTERMS(NO2,K047) = -K047*<NO3>*<NO2>
+ PTERMS(:,4,47) = -TPK%K047(:)*PCONC(:,5)*PCONC(:,4)
!
-!PTERMS(OH,K048) = -K048*<OH>*<MEOH>
- PTERMS(:,15,49) = -TPK%K048(:)*PCONC(:,15)*PCONC(:,32)
+!PTERMS(NO3,K047) = -K047*<NO3>*<NO2>
+ PTERMS(:,5,47) = -TPK%K047(:)*PCONC(:,5)*PCONC(:,4)
!
-!PTERMS(HCHO,K048) = +K048*<OH>*<MEOH>
- PTERMS(:,28,49) = +TPK%K048(:)*PCONC(:,15)*PCONC(:,32)
+!PTERMS(N2O5,K047) = +K047*<NO3>*<NO2>
+ PTERMS(:,6,47) = +TPK%K047(:)*PCONC(:,5)*PCONC(:,4)
!
-!PTERMS(MEOH,K048) = -K048*<OH>*<MEOH>
- PTERMS(:,32,49) = -TPK%K048(:)*PCONC(:,15)*PCONC(:,32)
+!PTERMS(NO2,K048) = +K048*<N2O5>
+ PTERMS(:,4,48) = +TPK%K048(:)*PCONC(:,6)
!
-!PTERMS(OH,K049) = -K049*<OH>*<ETHE>
- PTERMS(:,15,50) = -TPK%K049(:)*PCONC(:,15)*PCONC(:,16)
+!PTERMS(NO3,K048) = +K048*<N2O5>
+ PTERMS(:,5,48) = +TPK%K048(:)*PCONC(:,6)
!
-!PTERMS(ETHE,K049) = -K049*<OH>*<ETHE>
- PTERMS(:,16,50) = -TPK%K049(:)*PCONC(:,15)*PCONC(:,16)
+!PTERMS(N2O5,K048) = -K048*<N2O5>
+ PTERMS(:,6,48) = -TPK%K048(:)*PCONC(:,6)
!
-!PTERMS(RO2T,K049) = +K049*<OH>*<ETHE>
- PTERMS(:,85,50) = +TPK%K049(:)*PCONC(:,15)*PCONC(:,16)
+!PTERMS(NO2,K049) = +K049*<NO3>*<NO3>
+ PTERMS(:,4,49) = +TPK%K049(:)*PCONC(:,5)*PCONC(:,5)
!
-!PTERMS(NO3,K050) = -K050*<NO3>*<ETHE>
- PTERMS(:,8,51) = -TPK%K050(:)*PCONC(:,8)*PCONC(:,16)
+!PTERMS(NO3,K049) = -K049*<NO3>*<NO3>
+ PTERMS(:,5,49) = -TPK%K049(:)*PCONC(:,5)*PCONC(:,5)
!
-!PTERMS(ETHE,K050) = -K050*<NO3>*<ETHE>
- PTERMS(:,16,51) = -TPK%K050(:)*PCONC(:,8)*PCONC(:,16)
+!PTERMS(NH3,K050) = -K050*<NH3>*<OH>
+ PTERMS(:,10,50) = -TPK%K050(:)*PCONC(:,10)*PCONC(:,14)
!
-!PTERMS(RO2T,K050) = +K050*<NO3>*<ETHE>
- PTERMS(:,85,51) = +TPK%K050(:)*PCONC(:,8)*PCONC(:,16)
+!PTERMS(OH,K050) = -K050*<NH3>*<OH>
+ PTERMS(:,14,50) = -TPK%K050(:)*PCONC(:,10)*PCONC(:,14)
!
-!PTERMS(O3,K051) = -K051*<O3>*<ETHE>
- PTERMS(:,3,52) = -TPK%K051(:)*PCONC(:,3)*PCONC(:,16)
+!PTERMS(OH,K051) = -K051*<OH>*<H2>
+ PTERMS(:,14,51) = -TPK%K051(:)*PCONC(:,14)*TPK%H2(:)
!
-!PTERMS(HO2,K051) = +0.06*K051*<O3>*<ETHE>
- PTERMS(:,10,52) = +0.06*TPK%K051(:)*PCONC(:,3)*PCONC(:,16)
+!PTERMS(HO2,K051) = +K051*<OH>*<H2>
+ PTERMS(:,15,51) = +TPK%K051(:)*PCONC(:,14)*TPK%H2(:)
!
-!PTERMS(CO,K051) = +0.315*K051*<O3>*<ETHE>
- PTERMS(:,11,52) = +0.315*TPK%K051(:)*PCONC(:,3)*PCONC(:,16)
+!PTERMS(SO2,K052) = -K052*<OH>*<SO2>
+ PTERMS(:,11,52) = -TPK%K052(:)*PCONC(:,14)*PCONC(:,11)
!
-!PTERMS(OH,K051) = +0.06*K051*<O3>*<ETHE>
- PTERMS(:,15,52) = +0.06*TPK%K051(:)*PCONC(:,3)*PCONC(:,16)
+!PTERMS(SULF,K052) = +K052*<OH>*<SO2>
+ PTERMS(:,12,52) = +TPK%K052(:)*PCONC(:,14)*PCONC(:,11)
!
-!PTERMS(ETHE,K051) = -K051*<O3>*<ETHE>
- PTERMS(:,16,52) = -TPK%K051(:)*PCONC(:,3)*PCONC(:,16)
+!PTERMS(OH,K052) = -K052*<OH>*<SO2>
+ PTERMS(:,14,52) = -TPK%K052(:)*PCONC(:,14)*PCONC(:,11)
!
-!PTERMS(HCHO,K051) = +0.5*K051*<O3>*<ETHE>
- PTERMS(:,28,52) = +0.5*TPK%K051(:)*PCONC(:,3)*PCONC(:,16)
+!PTERMS(HO2,K052) = +K052*<OH>*<SO2>
+ PTERMS(:,15,52) = +TPK%K052(:)*PCONC(:,14)*PCONC(:,11)
!
!
RETURN
@@ -90893,65 +30341,65 @@ SUBROUTINE SUBT7
!
!Indices 141 a 160
!
-!PTERMS(ORA1,K051) = +0.185*K051*<O3>*<ETHE>
- PTERMS(:,43,52) = +0.185*TPK%K051(:)*PCONC(:,3)*PCONC(:,16)
+!PTERMS(CO,K053) = -K053*<CO>*<OH>
+ PTERMS(:,13,53) = -TPK%K053(:)*PCONC(:,13)*PCONC(:,14)
!
-!PTERMS(HO2,K052) = +K052*<O>*<ETHE>
- PTERMS(:,10,53) = +TPK%K052(:)*TPK%O(:)*PCONC(:,16)
+!PTERMS(OH,K053) = -K053*<CO>*<OH>
+ PTERMS(:,14,53) = -TPK%K053(:)*PCONC(:,13)*PCONC(:,14)
!
-!PTERMS(CO,K052) = +0.6*K052*<O>*<ETHE>
- PTERMS(:,11,53) = +0.6*TPK%K052(:)*TPK%O(:)*PCONC(:,16)
+!PTERMS(HO2,K053) = +K053*<CO>*<OH>
+ PTERMS(:,15,53) = +TPK%K053(:)*PCONC(:,13)*PCONC(:,14)
!
-!PTERMS(ETHE,K052) = -K052*<O>*<ETHE>
- PTERMS(:,16,53) = -TPK%K052(:)*TPK%O(:)*PCONC(:,16)
+!PTERMS(CO,K054) = +0.01*K054*<BIO>*<O3P>
+ PTERMS(:,13,54) = +0.01*TPK%K054(:)*PCONC(:,20)*TPK%O3P(:)
!
-!PTERMS(RO2T,K052) = +K052*<O>*<ETHE>
- PTERMS(:,85,53) = +TPK%K052(:)*TPK%O(:)*PCONC(:,16)
+!PTERMS(OH,K054) = +0.02*K054*<BIO>*<O3P>
+ PTERMS(:,14,54) = +0.02*TPK%K054(:)*PCONC(:,20)*TPK%O3P(:)
!
-!PTERMS(RO21,K052) = +0.6*K052*<O>*<ETHE>
- PTERMS(:,86,53) = +0.6*TPK%K052(:)*TPK%O(:)*PCONC(:,16)
+!PTERMS(HO2,K054) = +0.28*K054*<BIO>*<O3P>
+ PTERMS(:,15,54) = +0.28*TPK%K054(:)*PCONC(:,20)*TPK%O3P(:)
!
-!PTERMS(HO2,K053) = +TPK%CF1*K053*<OH>*<ETOH>
- PTERMS(:,10,54) = +TPK%CF1*TPK%K053(:)*PCONC(:,15)*PCONC(:,33)
+!PTERMS(ALKE,K054) = +0.91868*K054*<BIO>*<O3P>
+ PTERMS(:,19,54) = +0.91868*TPK%K054(:)*PCONC(:,20)*TPK%O3P(:)
!
-!PTERMS(OH,K053) = -K053*<OH>*<ETOH>
- PTERMS(:,15,54) = -TPK%K053(:)*PCONC(:,15)*PCONC(:,33)
+!PTERMS(BIO,K054) = -K054*<BIO>*<O3P>
+ PTERMS(:,20,54) = -TPK%K054(:)*PCONC(:,20)*TPK%O3P(:)
!
-!PTERMS(ALD2,K053) = +TPK%CF1*K053*<OH>*<ETOH>
- PTERMS(:,29,54) = +TPK%CF1*TPK%K053(:)*PCONC(:,15)*PCONC(:,33)
+!PTERMS(HCHO,K054) = +0.05*K054*<BIO>*<O3P>
+ PTERMS(:,22,54) = +0.05*TPK%K054(:)*PCONC(:,20)*TPK%O3P(:)
!
-!PTERMS(ETOH,K053) = -K053*<OH>*<ETOH>
- PTERMS(:,33,54) = -TPK%K053(:)*PCONC(:,15)*PCONC(:,33)
+!PTERMS(CARBO,K054) = +0.13255*K054*<BIO>*<O3P>
+ PTERMS(:,25,54) = +0.13255*TPK%K054(:)*PCONC(:,20)*TPK%O3P(:)
!
-!PTERMS(RO2T,K053) = +TPK%CF2*K053*<OH>*<ETOH>
- PTERMS(:,85,54) = +TPK%CF2*TPK%K053(:)*PCONC(:,15)*PCONC(:,33)
+!PTERMS(XO2,K054) = +0.15*K054*<BIO>*<O3P>
+ PTERMS(:,41,54) = +0.15*TPK%K054(:)*PCONC(:,20)*TPK%O3P(:)
!
-!PTERMS(OH,K054) = -K054*<OH>*<OLEL>
- PTERMS(:,15,55) = -TPK%K054(:)*PCONC(:,15)*PCONC(:,17)
+!PTERMS(ALD,K055) = +K055*<CARBO>*<O3P>
+ PTERMS(:,23,55) = +TPK%K055(:)*PCONC(:,25)*TPK%O3P(:)
!
-!PTERMS(OLEL,K054) = -K054*<OH>*<OLEL>
- PTERMS(:,17,55) = -TPK%K054(:)*PCONC(:,15)*PCONC(:,17)
+!PTERMS(CARBO,K055) = -K055*<CARBO>*<O3P>
+ PTERMS(:,25,55) = -TPK%K055(:)*PCONC(:,25)*TPK%O3P(:)
!
-!PTERMS(RO2T,K054) = +K054*<OH>*<OLEL>
- PTERMS(:,85,55) = +TPK%K054(:)*PCONC(:,15)*PCONC(:,17)
+!PTERMS(OH,K056) = -K056*<CH4>*<OH>
+ PTERMS(:,14,56) = -TPK%K056(:)*PCONC(:,16)*PCONC(:,14)
!
-!PTERMS(NO3,K055) = -K055*<NO3>*<OLEL>
- PTERMS(:,8,56) = -TPK%K055(:)*PCONC(:,8)*PCONC(:,17)
+!PTERMS(CH4,K056) = -K056*<CH4>*<OH>
+ PTERMS(:,16,56) = -TPK%K056(:)*PCONC(:,16)*PCONC(:,14)
!
-!PTERMS(OLEL,K055) = -K055*<NO3>*<OLEL>
- PTERMS(:,17,56) = -TPK%K055(:)*PCONC(:,8)*PCONC(:,17)
+!PTERMS(MO2,K056) = +K056*<CH4>*<OH>
+ PTERMS(:,32,56) = +TPK%K056(:)*PCONC(:,16)*PCONC(:,14)
!
-!PTERMS(RO2T,K055) = +K055*<NO3>*<OLEL>
- PTERMS(:,85,56) = +TPK%K055(:)*PCONC(:,8)*PCONC(:,17)
+!PTERMS(OH,K057) = -K057*<ETH>*<OH>
+ PTERMS(:,14,57) = -TPK%K057(:)*PCONC(:,17)*PCONC(:,14)
!
-!PTERMS(O3,K056) = -K056*<O3>*<OLEL>
- PTERMS(:,3,57) = -TPK%K056(:)*PCONC(:,3)*PCONC(:,17)
+!PTERMS(ETH,K057) = -K057*<ETH>*<OH>
+ PTERMS(:,17,57) = -TPK%K057(:)*PCONC(:,17)*PCONC(:,14)
!
-!PTERMS(HO2,K056) = +0.28*K056*<O3>*<OLEL>
- PTERMS(:,10,57) = +0.28*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)
+!PTERMS(ALKAP,K057) = +K057*<ETH>*<OH>
+ PTERMS(:,33,57) = +TPK%K057(:)*PCONC(:,17)*PCONC(:,14)
!
-!PTERMS(CO,K056) = +0.56*K056*<O3>*<OLEL>
- PTERMS(:,11,57) = +0.56*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)
+!PTERMS(CO,K058) = +0.00878*K058*<ALKA>*<OH>
+ PTERMS(:,13,58) = +0.00878*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)
!
!
RETURN
@@ -90961,65 +30409,65 @@ SUBROUTINE SUBT8
!
!Indices 161 a 180
!
-!PTERMS(OH,K056) = +0.36*K056*<O3>*<OLEL>
- PTERMS(:,15,57) = +0.36*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)
+!PTERMS(OH,K058) = -K058*<ALKA>*<OH>
+ PTERMS(:,14,58) = -TPK%K058(:)*PCONC(:,18)*PCONC(:,14)
!
-!PTERMS(OLEL,K056) = -K056*<O3>*<OLEL>
- PTERMS(:,17,57) = -TPK%K056(:)*PCONC(:,3)*PCONC(:,17)
+!PTERMS(HO2,K058) = +0.12793*K058*<ALKA>*<OH>
+ PTERMS(:,15,58) = +0.12793*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)
!
-!PTERMS(ALKL,K056) = +0.1*K056*<O3>*<OLEL>
- PTERMS(:,19,57) = +0.1*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)
+!PTERMS(ALKA,K058) = -K058*<ALKA>*<OH>
+ PTERMS(:,18,58) = -TPK%K058(:)*PCONC(:,18)*PCONC(:,14)
!
-!PTERMS(HCHO,K056) = +0.5*K056*<O3>*<OLEL>
- PTERMS(:,28,57) = +0.5*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)
+!PTERMS(HCHO,K058) = +0.00140*K058*<ALKA>*<OH>
+ PTERMS(:,22,58) = +0.00140*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)
!
-!PTERMS(ALD2,K056) = +0.5*K056*<O3>*<OLEL>
- PTERMS(:,29,57) = +0.5*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)
+!PTERMS(ALD,K058) = +0.08173*K058*<ALKA>*<OH>
+ PTERMS(:,23,58) = +0.08173*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)
!
-!PTERMS(ORA1,K056) = +0.12*K056*<O3>*<OLEL>
- PTERMS(:,43,57) = +0.12*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)
+!PTERMS(KET,K058) = +0.03498*K058*<ALKA>*<OH>
+ PTERMS(:,24,58) = +0.03498*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)
!
-!PTERMS(ORA2,K056) = +0.12*K056*<O3>*<OLEL>
- PTERMS(:,44,57) = +0.12*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)
+!PTERMS(CARBO,K058) = +0.00835*K058*<ALKA>*<OH>
+ PTERMS(:,25,58) = +0.00835*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)
!
-!PTERMS(RO2T,K056) = +0.28*K056*<O3>*<OLEL>
- PTERMS(:,85,57) = +0.28*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)
+!PTERMS(ORA1,K058) = +0.00878*K058*<ALKA>*<OH>
+ PTERMS(:,30,58) = +0.00878*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)
!
-!PTERMS(RO25,K056) = +0.28*K056*<O3>*<OLEL>
- PTERMS(:,87,57) = +0.28*TPK%K056(:)*PCONC(:,3)*PCONC(:,17)
+!PTERMS(ALKAP,K058) = +0.87811*K058*<ALKA>*<OH>
+ PTERMS(:,33,58) = +0.87811*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)
!
-!PTERMS(OLEL,K057) = -K057*<O>*<OLEL>
- PTERMS(:,17,58) = -TPK%K057(:)*TPK%O(:)*PCONC(:,17)
+!PTERMS(OH,K059) = -K059*<ALKE>*<OH>
+ PTERMS(:,14,59) = -TPK%K059(:)*PCONC(:,19)*PCONC(:,14)
!
-!PTERMS(ALKL,K057) = +0.5*K057*<O>*<OLEL>
- PTERMS(:,19,58) = +0.5*TPK%K057(:)*TPK%O(:)*PCONC(:,17)
+!PTERMS(ALKE,K059) = -K059*<ALKE>*<OH>
+ PTERMS(:,19,59) = -TPK%K059(:)*PCONC(:,19)*PCONC(:,14)
!
-!PTERMS(ALD2,K057) = +0.4*K057*<O>*<OLEL>
- PTERMS(:,29,58) = +0.4*TPK%K057(:)*TPK%O(:)*PCONC(:,17)
+!PTERMS(ALKEP,K059) = +1.02529*K059*<ALKE>*<OH>
+ PTERMS(:,34,59) = +1.02529*TPK%K059(:)*PCONC(:,19)*PCONC(:,14)
!
-!PTERMS(RO2T,K057) = +0.2*K057*<O>*<OLEL>
- PTERMS(:,85,58) = +0.2*TPK%K057(:)*TPK%O(:)*PCONC(:,17)
+!PTERMS(BIOP,K059) = +0.00000*K059*<ALKE>*<OH>
+ PTERMS(:,35,59) = +0.00000*TPK%K059(:)*PCONC(:,19)*PCONC(:,14)
!
-!PTERMS(RO25,K057) = +0.1*K057*<O>*<OLEL>
- PTERMS(:,87,58) = +0.1*TPK%K057(:)*TPK%O(:)*PCONC(:,17)
+!PTERMS(OH,K060) = -K060*<BIO>*<OH>
+ PTERMS(:,14,60) = -TPK%K060(:)*PCONC(:,20)*PCONC(:,14)
!
-!PTERMS(OH,K058) = -K058*<OH>*<ALKL>
- PTERMS(:,15,59) = -TPK%K058(:)*PCONC(:,15)*PCONC(:,19)
+!PTERMS(BIO,K060) = -K060*<BIO>*<OH>
+ PTERMS(:,20,60) = -TPK%K060(:)*PCONC(:,20)*PCONC(:,14)
!
-!PTERMS(ALKL,K058) = -K058*<OH>*<ALKL>
- PTERMS(:,19,59) = -TPK%K058(:)*PCONC(:,15)*PCONC(:,19)
+!PTERMS(BIOP,K060) = +1.00000*K060*<BIO>*<OH>
+ PTERMS(:,35,60) = +1.00000*TPK%K060(:)*PCONC(:,20)*PCONC(:,14)
!
-!PTERMS(RO2T,K058) = +K058*<OH>*<ALKL>
- PTERMS(:,85,59) = +TPK%K058(:)*PCONC(:,15)*PCONC(:,19)
+!PTERMS(OH,K061) = -K061*<ARO>*<OH>
+ PTERMS(:,14,61) = -TPK%K061(:)*PCONC(:,21)*PCONC(:,14)
!
-!PTERMS(RO25,K058) = +K058*<OH>*<ALKL>
- PTERMS(:,87,59) = +TPK%K058(:)*PCONC(:,15)*PCONC(:,19)
+!PTERMS(HO2,K061) = +0.10318*K061*<ARO>*<OH>
+ PTERMS(:,15,61) = +0.10318*TPK%K061(:)*PCONC(:,21)*PCONC(:,14)
!
-!PTERMS(HO2,K059) = +K059*<ALD2>
- PTERMS(:,10,60) = +TPK%K059(:)*PCONC(:,29)
+!PTERMS(ARO,K061) = -K061*<ARO>*<OH>
+ PTERMS(:,21,61) = -TPK%K061(:)*PCONC(:,21)*PCONC(:,14)
!
-!PTERMS(CO,K059) = +K059*<ALD2>
- PTERMS(:,11,60) = +TPK%K059(:)*PCONC(:,29)
+!PTERMS(PHO,K061) = +0.00276*K061*<ARO>*<OH>
+ PTERMS(:,36,61) = +0.00276*TPK%K061(:)*PCONC(:,21)*PCONC(:,14)
!
!
RETURN
@@ -91029,65 +30477,65 @@ SUBROUTINE SUBT9
!
!Indices 181 a 200
!
-!PTERMS(ALD2,K059) = -K059*<ALD2>
- PTERMS(:,29,60) = -TPK%K059(:)*PCONC(:,29)
+!PTERMS(ADD,K061) = +0.93968*K061*<ARO>*<OH>
+ PTERMS(:,37,61) = +0.93968*TPK%K061(:)*PCONC(:,21)*PCONC(:,14)
!
-!PTERMS(RO2T,K059) = +K059*<ALD2>
- PTERMS(:,85,60) = +TPK%K059(:)*PCONC(:,29)
+!PTERMS(XO2,K061) = +0.10318*K061*<ARO>*<OH>
+ PTERMS(:,41,61) = +0.10318*TPK%K061(:)*PCONC(:,21)*PCONC(:,14)
!
-!PTERMS(RO25,K059) = +K059*<ALD2>
- PTERMS(:,87,60) = +TPK%K059(:)*PCONC(:,29)
+!PTERMS(CO,K062) = +K062*<HCHO>*<OH>
+ PTERMS(:,13,62) = +TPK%K062(:)*PCONC(:,22)*PCONC(:,14)
!
-!PTERMS(OH,K060) = -K060*<OH>*<ALD2>
- PTERMS(:,15,61) = -TPK%K060(:)*PCONC(:,15)*PCONC(:,29)
+!PTERMS(OH,K062) = -K062*<HCHO>*<OH>
+ PTERMS(:,14,62) = -TPK%K062(:)*PCONC(:,22)*PCONC(:,14)
!
-!PTERMS(ALD2,K060) = -K060*<OH>*<ALD2>
- PTERMS(:,29,61) = -TPK%K060(:)*PCONC(:,15)*PCONC(:,29)
+!PTERMS(HO2,K062) = +K062*<HCHO>*<OH>
+ PTERMS(:,15,62) = +TPK%K062(:)*PCONC(:,22)*PCONC(:,14)
!
-!PTERMS(RO2T,K060) = +K060*<OH>*<ALD2>
- PTERMS(:,85,61) = +TPK%K060(:)*PCONC(:,15)*PCONC(:,29)
+!PTERMS(HCHO,K062) = -K062*<HCHO>*<OH>
+ PTERMS(:,22,62) = -TPK%K062(:)*PCONC(:,22)*PCONC(:,14)
!
-!PTERMS(HNO3,K061) = +K061*<NO3>*<ALD2>
- PTERMS(:,5,62) = +TPK%K061(:)*PCONC(:,8)*PCONC(:,29)
+!PTERMS(OH,K063) = -K063*<ALD>*<OH>
+ PTERMS(:,14,63) = -TPK%K063(:)*PCONC(:,23)*PCONC(:,14)
!
-!PTERMS(NO3,K061) = -K061*<NO3>*<ALD2>
- PTERMS(:,8,62) = -TPK%K061(:)*PCONC(:,8)*PCONC(:,29)
+!PTERMS(ALD,K063) = -K063*<ALD>*<OH>
+ PTERMS(:,23,63) = -TPK%K063(:)*PCONC(:,23)*PCONC(:,14)
!
-!PTERMS(ALD2,K061) = -K061*<NO3>*<ALD2>
- PTERMS(:,29,62) = -TPK%K061(:)*PCONC(:,8)*PCONC(:,29)
+!PTERMS(CARBOP,K063) = +1.00000*K063*<ALD>*<OH>
+ PTERMS(:,39,63) = +1.00000*TPK%K063(:)*PCONC(:,23)*PCONC(:,14)
!
-!PTERMS(RO2T,K061) = +K061*<NO3>*<ALD2>
- PTERMS(:,85,62) = +TPK%K061(:)*PCONC(:,8)*PCONC(:,29)
+!PTERMS(OH,K064) = -K064*<KET>*<OH>
+ PTERMS(:,14,64) = -TPK%K064(:)*PCONC(:,24)*PCONC(:,14)
!
-!PTERMS(OH,K062) = -K062*<OH>*<KETL>
- PTERMS(:,15,63) = -TPK%K062(:)*PCONC(:,15)*PCONC(:,30)
+!PTERMS(KET,K064) = -K064*<KET>*<OH>
+ PTERMS(:,24,64) = -TPK%K064(:)*PCONC(:,24)*PCONC(:,14)
!
-!PTERMS(KETL,K062) = -K062*<OH>*<KETL>
- PTERMS(:,30,63) = -TPK%K062(:)*PCONC(:,15)*PCONC(:,30)
+!PTERMS(CARBOP,K064) = +1.00000*K064*<KET>*<OH>
+ PTERMS(:,39,64) = +1.00000*TPK%K064(:)*PCONC(:,24)*PCONC(:,14)
!
-!PTERMS(RO2T,K062) = +K062*<OH>*<KETL>
- PTERMS(:,85,63) = +TPK%K062(:)*PCONC(:,15)*PCONC(:,30)
+!PTERMS(CO,K065) = +1.01732*K065*<CARBO>*<OH>
+ PTERMS(:,13,65) = +1.01732*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)
!
-!PTERMS(KETL,K063) = -K063*<KETL>
- PTERMS(:,30,64) = -TPK%K063(:)*PCONC(:,30)
+!PTERMS(OH,K065) = -K065*<CARBO>*<OH>
+ PTERMS(:,14,65) = -TPK%K065(:)*PCONC(:,25)*PCONC(:,14)
!
-!PTERMS(RO2T,K063) = +2.*K063*<KETL>
- PTERMS(:,85,64) = +2.*TPK%K063(:)*PCONC(:,30)
+!PTERMS(HO2,K065) = +0.51208*K065*<CARBO>*<OH>
+ PTERMS(:,15,65) = +0.51208*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)
!
-!PTERMS(RO25,K063) = +K063*<KETL>
- PTERMS(:,87,64) = +TPK%K063(:)*PCONC(:,30)
+!PTERMS(HCHO,K065) = +0.00000*K065*<CARBO>*<OH>
+ PTERMS(:,22,65) = +0.00000*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)
!
-!PTERMS(OH,K064) = -K064*<OH>*<ISOP>
- PTERMS(:,15,65) = -TPK%K064(:)*PCONC(:,15)*PCONC(:,35)
+!PTERMS(ALD,K065) = +0.06253*K065*<CARBO>*<OH>
+ PTERMS(:,23,65) = +0.06253*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)
!
-!PTERMS(ISOP,K064) = -K064*<OH>*<ISOP>
- PTERMS(:,35,65) = -TPK%K064(:)*PCONC(:,15)*PCONC(:,35)
+!PTERMS(KET,K065) = +0.00853*K065*<CARBO>*<OH>
+ PTERMS(:,24,65) = +0.00853*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)
!
-!PTERMS(RO2T,K064) = +K064*<OH>*<ISOP>
- PTERMS(:,85,65) = +TPK%K064(:)*PCONC(:,15)*PCONC(:,35)
+!PTERMS(CARBO,K065) = -K065*<CARBO>*<OH>
+ PTERMS(:,25,65) = -TPK%K065(:)*PCONC(:,25)*PCONC(:,14)
!
-!PTERMS(NO3,K065) = -K065*<NO3>*<ISOP>
- PTERMS(:,8,66) = -TPK%K065(:)*PCONC(:,8)*PCONC(:,35)
+!PTERMS(CARBOP,K065) = +0.51419*K065*<CARBO>*<OH>
+ PTERMS(:,39,65) = +0.51419*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)
!
!
RETURN
@@ -91097,65 +30545,65 @@ SUBROUTINE SUBT10
!
!Indices 201 a 220
!
-!PTERMS(ISOP,K065) = -K065*<NO3>*<ISOP>
- PTERMS(:,35,66) = -TPK%K065(:)*PCONC(:,8)*PCONC(:,35)
+!PTERMS(XO2,K065) = +0.10162*K065*<CARBO>*<OH>
+ PTERMS(:,41,65) = +0.10162*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)
!
-!PTERMS(RO2T,K065) = +K065*<NO3>*<ISOP>
- PTERMS(:,85,66) = +TPK%K065(:)*PCONC(:,8)*PCONC(:,35)
+!PTERMS(OH,K066) = -K066*<ORA1>*<OH>
+ PTERMS(:,14,66) = -TPK%K066(:)*PCONC(:,30)*PCONC(:,14)
!
-!PTERMS(O3,K066) = -K066*<O3>*<ISOP>
- PTERMS(:,3,67) = -TPK%K066(:)*PCONC(:,3)*PCONC(:,35)
+!PTERMS(HO2,K066) = +K066*<ORA1>*<OH>
+ PTERMS(:,15,66) = +TPK%K066(:)*PCONC(:,30)*PCONC(:,14)
!
-!PTERMS(HO2,K066) = +0.366*K066*<O3>*<ISOP>
- PTERMS(:,10,67) = +0.366*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)
+!PTERMS(ORA1,K066) = -K066*<ORA1>*<OH>
+ PTERMS(:,30,66) = -TPK%K066(:)*PCONC(:,30)*PCONC(:,14)
!
-!PTERMS(CO,K066) = +0.461*K066*<O3>*<ISOP>
- PTERMS(:,11,67) = +0.461*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)
+!PTERMS(OH,K067) = -K067*<ORA2>*<OH>
+ PTERMS(:,14,67) = -TPK%K067(:)*PCONC(:,31)*PCONC(:,14)
!
-!PTERMS(OH,K066) = +0.664*K066*<O3>*<ISOP>
- PTERMS(:,15,67) = +0.664*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)
+!PTERMS(ORA2,K067) = -K067*<ORA2>*<OH>
+ PTERMS(:,31,67) = -TPK%K067(:)*PCONC(:,31)*PCONC(:,14)
!
-!PTERMS(OLEL,K066) = +0.054*K066*<O3>*<ISOP>
- PTERMS(:,17,67) = +0.054*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)
+!PTERMS(OH,K068) = -K068*<OP1>*<OH>
+ PTERMS(:,14,68) = -TPK%K068(:)*PCONC(:,28)*PCONC(:,14)
!
-!PTERMS(HCHO,K066) = +0.5*K066*<O3>*<ISOP>
- PTERMS(:,28,67) = +0.5*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)
+!PTERMS(HCHO,K068) = +0.35*K068*<OP1>*<OH>
+ PTERMS(:,22,68) = +0.35*TPK%K068(:)*PCONC(:,28)*PCONC(:,14)
!
-!PTERMS(ISOP,K066) = -K066*<O3>*<ISOP>
- PTERMS(:,35,67) = -TPK%K066(:)*PCONC(:,3)*PCONC(:,35)
+!PTERMS(OP1,K068) = -K068*<OP1>*<OH>
+ PTERMS(:,28,68) = -TPK%K068(:)*PCONC(:,28)*PCONC(:,14)
!
-!PTERMS(MVK,K066) = +0.389*K066*<O3>*<ISOP>
- PTERMS(:,39,67) = +0.389*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)
+!PTERMS(MO2,K068) = +0.65*K068*<OP1>*<OH>
+ PTERMS(:,32,68) = +0.65*TPK%K068(:)*PCONC(:,28)*PCONC(:,14)
!
-!PTERMS(MCR,K066) = +0.17*K066*<O3>*<ISOP>
- PTERMS(:,40,67) = +0.17*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)
+!PTERMS(OH,K069) = -K069*<OP2>*<OH>
+ PTERMS(:,14,69) = -TPK%K069(:)*PCONC(:,29)*PCONC(:,14)
!
-!PTERMS(ORA1,K066) = +0.121*K066*<O3>*<ISOP>
- PTERMS(:,43,67) = +0.121*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)
+!PTERMS(HO2,K069) = +0.02915*K069*<OP2>*<OH>
+ PTERMS(:,15,69) = +0.02915*TPK%K069(:)*PCONC(:,29)*PCONC(:,14)
!
-!PTERMS(RO2T,K066) = +0.366*K066*<O3>*<ISOP>
- PTERMS(:,85,67) = +0.366*TPK%K066(:)*PCONC(:,3)*PCONC(:,35)
+!PTERMS(HCHO,K069) = +0.02915*K069*<OP2>*<OH>
+ PTERMS(:,22,69) = +0.02915*TPK%K069(:)*PCONC(:,29)*PCONC(:,14)
!
-!PTERMS(OLEL,K067) = +0.925*K067*<O>*<ISOP>
- PTERMS(:,17,68) = +0.925*TPK%K067(:)*TPK%O(:)*PCONC(:,35)
+!PTERMS(ALD,K069) = +0.07335*K069*<OP2>*<OH>
+ PTERMS(:,23,69) = +0.07335*TPK%K069(:)*PCONC(:,29)*PCONC(:,14)
!
-!PTERMS(ALD2,K067) = +0.075*K067*<O>*<ISOP>
- PTERMS(:,29,68) = +0.075*TPK%K067(:)*TPK%O(:)*PCONC(:,35)
+!PTERMS(KET,K069) = +0.37591*K069*<OP2>*<OH>
+ PTERMS(:,24,69) = +0.37591*TPK%K069(:)*PCONC(:,29)*PCONC(:,14)
!
-!PTERMS(ISOP,K067) = -K067*<O>*<ISOP>
- PTERMS(:,35,68) = -TPK%K067(:)*TPK%O(:)*PCONC(:,35)
+!PTERMS(OP2,K069) = -K069*<OP2>*<OH>
+ PTERMS(:,29,69) = -TPK%K069(:)*PCONC(:,29)*PCONC(:,14)
!
-!PTERMS(OH,K068) = -K068*<OH>*<MTBE>
- PTERMS(:,15,69) = -TPK%K068(:)*PCONC(:,15)*PCONC(:,38)
+!PTERMS(ALKAP,K069) = +0.40341*K069*<OP2>*<OH>
+ PTERMS(:,33,69) = +0.40341*TPK%K069(:)*PCONC(:,29)*PCONC(:,14)
!
-!PTERMS(MTBE,K068) = -K068*<OH>*<MTBE>
- PTERMS(:,38,69) = -TPK%K068(:)*PCONC(:,15)*PCONC(:,38)
+!PTERMS(CARBOP,K069) = +0.05413*K069*<OP2>*<OH>
+ PTERMS(:,39,69) = +0.05413*TPK%K069(:)*PCONC(:,29)*PCONC(:,14)
!
-!PTERMS(RO2T,K068) = +K068*<OH>*<MTBE>
- PTERMS(:,85,69) = +TPK%K068(:)*PCONC(:,15)*PCONC(:,38)
+!PTERMS(XO2,K069) = +0.09333*K069*<OP2>*<OH>
+ PTERMS(:,41,69) = +0.09333*TPK%K069(:)*PCONC(:,29)*PCONC(:,14)
!
-!PTERMS(OH,K069) = -K069*<OH>*<ALCH>
- PTERMS(:,15,70) = -TPK%K069(:)*PCONC(:,15)*PCONC(:,34)
+!PTERMS(NO3,K070) = +0.71893*K070*<PAN>*<OH>
+ PTERMS(:,5,70) = +0.71893*TPK%K070(:)*PCONC(:,27)*PCONC(:,14)
!
!
RETURN
@@ -91165,65 +30613,65 @@ SUBROUTINE SUBT11
!
!Indices 221 a 240
!
-!PTERMS(ALCH,K069) = -K069*<OH>*<ALCH>
- PTERMS(:,34,70) = -TPK%K069(:)*PCONC(:,15)*PCONC(:,34)
+!PTERMS(OH,K070) = -K070*<PAN>*<OH>
+ PTERMS(:,14,70) = -TPK%K070(:)*PCONC(:,27)*PCONC(:,14)
!
-!PTERMS(RO2T,K069) = +K069*<OH>*<ALCH>
- PTERMS(:,85,70) = +TPK%K069(:)*PCONC(:,15)*PCONC(:,34)
+!PTERMS(HO2,K070) = +0.28107*K070*<PAN>*<OH>
+ PTERMS(:,15,70) = +0.28107*TPK%K070(:)*PCONC(:,27)*PCONC(:,14)
!
-!PTERMS(OH,K070) = -K070*<OH>*<KETH>
- PTERMS(:,15,71) = -TPK%K070(:)*PCONC(:,15)*PCONC(:,31)
+!PTERMS(HCHO,K070) = +0.57839*K070*<PAN>*<OH>
+ PTERMS(:,22,70) = +0.57839*TPK%K070(:)*PCONC(:,27)*PCONC(:,14)
!
-!PTERMS(KETH,K070) = -K070*<OH>*<KETH>
- PTERMS(:,31,71) = -TPK%K070(:)*PCONC(:,15)*PCONC(:,31)
+!PTERMS(CARBO,K070) = +0.21863*K070*<PAN>*<OH>
+ PTERMS(:,25,70) = +0.21863*TPK%K070(:)*PCONC(:,27)*PCONC(:,14)
!
-!PTERMS(RO2T,K070) = +K070*<OH>*<KETH>
- PTERMS(:,85,71) = +TPK%K070(:)*PCONC(:,15)*PCONC(:,31)
+!PTERMS(PAN,K070) = -K070*<PAN>*<OH>
+ PTERMS(:,27,70) = -TPK%K070(:)*PCONC(:,27)*PCONC(:,14)
!
-!PTERMS(KETH,K071) = -K071*<KETH>
- PTERMS(:,31,72) = -TPK%K071(:)*PCONC(:,31)
+!PTERMS(XO2,K070) = +K070*<PAN>*<OH>
+ PTERMS(:,41,70) = +TPK%K070(:)*PCONC(:,27)*PCONC(:,14)
!
-!PTERMS(RO2T,K071) = +2.*K071*<KETH>
- PTERMS(:,85,72) = +2.*TPK%K071(:)*PCONC(:,31)
+!PTERMS(NO2,K071) = +K071*<ONIT>*<OH>
+ PTERMS(:,4,71) = +TPK%K071(:)*PCONC(:,26)*PCONC(:,14)
!
-!PTERMS(RO25,K071) = +K071*<KETH>
- PTERMS(:,87,72) = +TPK%K071(:)*PCONC(:,31)
+!PTERMS(OH,K071) = -K071*<ONIT>*<OH>
+ PTERMS(:,14,71) = -TPK%K071(:)*PCONC(:,26)*PCONC(:,14)
!
-!PTERMS(HNO3,K072) = +K072*<NO3>*<AROO>
- PTERMS(:,5,73) = +TPK%K072(:)*PCONC(:,8)*PCONC(:,24)
+!PTERMS(ONIT,K071) = -K071*<ONIT>*<OH>
+ PTERMS(:,26,71) = -TPK%K071(:)*PCONC(:,26)*PCONC(:,14)
!
-!PTERMS(NO3,K072) = -K072*<NO3>*<AROO>
- PTERMS(:,8,73) = -TPK%K072(:)*PCONC(:,8)*PCONC(:,24)
+!PTERMS(ALKAP,K071) = +1.00000*K071*<ONIT>*<OH>
+ PTERMS(:,33,71) = +1.00000*TPK%K071(:)*PCONC(:,26)*PCONC(:,14)
!
-!PTERMS(AROO,K072) = -K072*<NO3>*<AROO>
- PTERMS(:,24,73) = -TPK%K072(:)*PCONC(:,8)*PCONC(:,24)
+!PTERMS(NO3,K072) = -K072*<HCHO>*<NO3>
+ PTERMS(:,5,72) = -TPK%K072(:)*PCONC(:,22)*PCONC(:,5)
!
-!PTERMS(HO2,K073) = +0.16*K073*<OH>*<AROO>
- PTERMS(:,10,74) = +0.16*TPK%K073(:)*PCONC(:,15)*PCONC(:,24)
+!PTERMS(HNO3,K072) = +K072*<HCHO>*<NO3>
+ PTERMS(:,8,72) = +TPK%K072(:)*PCONC(:,22)*PCONC(:,5)
!
-!PTERMS(OH,K073) = -K073*<OH>*<AROO>
- PTERMS(:,15,74) = -TPK%K073(:)*PCONC(:,15)*PCONC(:,24)
+!PTERMS(CO,K072) = +K072*<HCHO>*<NO3>
+ PTERMS(:,13,72) = +TPK%K072(:)*PCONC(:,22)*PCONC(:,5)
!
-!PTERMS(AROO,K073) = -K073*<OH>*<AROO>
- PTERMS(:,24,74) = -TPK%K073(:)*PCONC(:,15)*PCONC(:,24)
+!PTERMS(HO2,K072) = +K072*<HCHO>*<NO3>
+ PTERMS(:,15,72) = +TPK%K072(:)*PCONC(:,22)*PCONC(:,5)
!
-!PTERMS(RO2T,K073) = +0.1*K073*<OH>*<AROO>
- PTERMS(:,85,74) = +0.1*TPK%K073(:)*PCONC(:,15)*PCONC(:,24)
+!PTERMS(HCHO,K072) = -K072*<HCHO>*<NO3>
+ PTERMS(:,22,72) = -TPK%K072(:)*PCONC(:,22)*PCONC(:,5)
!
-!PTERMS(OH,K074) = -K074*<OH>*<OLEH>
- PTERMS(:,15,75) = -TPK%K074(:)*PCONC(:,15)*PCONC(:,18)
+!PTERMS(NO3,K073) = -K073*<ALD>*<NO3>
+ PTERMS(:,5,73) = -TPK%K073(:)*PCONC(:,23)*PCONC(:,5)
!
-!PTERMS(OLEH,K074) = -K074*<OH>*<OLEH>
- PTERMS(:,18,75) = -TPK%K074(:)*PCONC(:,15)*PCONC(:,18)
+!PTERMS(HNO3,K073) = +K073*<ALD>*<NO3>
+ PTERMS(:,8,73) = +TPK%K073(:)*PCONC(:,23)*PCONC(:,5)
!
-!PTERMS(RO2T,K074) = +K074*<OH>*<OLEH>
- PTERMS(:,85,75) = +TPK%K074(:)*PCONC(:,15)*PCONC(:,18)
+!PTERMS(ALD,K073) = -K073*<ALD>*<NO3>
+ PTERMS(:,23,73) = -TPK%K073(:)*PCONC(:,23)*PCONC(:,5)
!
-!PTERMS(NO3,K075) = -K075*<NO3>*<OLEH>
- PTERMS(:,8,76) = -TPK%K075(:)*PCONC(:,8)*PCONC(:,18)
+!PTERMS(CARBOP,K073) = +1.00000*K073*<ALD>*<NO3>
+ PTERMS(:,39,73) = +1.00000*TPK%K073(:)*PCONC(:,23)*PCONC(:,5)
!
-!PTERMS(OLEH,K075) = -K075*<NO3>*<OLEH>
- PTERMS(:,18,76) = -TPK%K075(:)*PCONC(:,8)*PCONC(:,18)
+!PTERMS(NO2,K074) = +0.10530*K074*<CARBO>*<NO3>
+ PTERMS(:,4,74) = +0.10530*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)
!
!
RETURN
@@ -91233,5203 +30681,4587 @@ SUBROUTINE SUBT12
!
!Indices 241 a 260
!
-!PTERMS(RO2T,K075) = +K075*<NO3>*<OLEH>
- PTERMS(:,85,76) = +TPK%K075(:)*PCONC(:,8)*PCONC(:,18)
-!
-!PTERMS(O3,K076) = -K076*<O3>*<OLEH>
- PTERMS(:,3,77) = -TPK%K076(:)*PCONC(:,3)*PCONC(:,18)
-!
-!PTERMS(HO2,K076) = +0.28*K076*<O3>*<OLEH>
- PTERMS(:,10,77) = +0.28*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)
-!
-!PTERMS(CO,K076) = +0.56*K076*<O3>*<OLEH>
- PTERMS(:,11,77) = +0.56*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)
-!
-!PTERMS(OH,K076) = +0.36*K076*<O3>*<OLEH>
- PTERMS(:,15,77) = +0.36*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)
-!
-!PTERMS(OLEH,K076) = -K076*<O3>*<OLEH>
- PTERMS(:,18,77) = -TPK%K076(:)*PCONC(:,3)*PCONC(:,18)
-!
-!PTERMS(ALKM,K076) = +0.1*K076*<O3>*<OLEH>
- PTERMS(:,20,77) = +0.1*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)
-!
-!PTERMS(HCHO,K076) = +0.5*K076*<O3>*<OLEH>
- PTERMS(:,28,77) = +0.5*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)
-!
-!PTERMS(ACID,K076) = +0.12*K076*<O3>*<OLEH>
- PTERMS(:,45,77) = +0.12*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)
-!
-!PTERMS(RPR1,K076) = +0.5*K076*<O3>*<OLEH>
- PTERMS(:,69,77) = +0.5*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)
-!
-!PTERMS(RO2T,K076) = +0.28*K076*<O3>*<OLEH>
- PTERMS(:,85,77) = +0.28*TPK%K076(:)*PCONC(:,3)*PCONC(:,18)
-!
-!PTERMS(OLEH,K077) = -K077*<O>*<OLEH>
- PTERMS(:,18,78) = -TPK%K077(:)*TPK%O(:)*PCONC(:,18)
-!
-!PTERMS(ALKM,K077) = +0.5*K077*<O>*<OLEH>
- PTERMS(:,20,78) = +0.5*TPK%K077(:)*TPK%O(:)*PCONC(:,18)
-!
-!PTERMS(RPR1,K077) = +0.4*K077*<O>*<OLEH>
- PTERMS(:,69,78) = +0.4*TPK%K077(:)*TPK%O(:)*PCONC(:,18)
-!
-!PTERMS(RO2T,K077) = +0.2*K077*<O>*<OLEH>
- PTERMS(:,85,78) = +0.2*TPK%K077(:)*TPK%O(:)*PCONC(:,18)
-!
-!PTERMS(OH,K078) = -K078*<OH>*<ALKM>
- PTERMS(:,15,79) = -TPK%K078(:)*PCONC(:,15)*PCONC(:,20)
-!
-!PTERMS(ALKM,K078) = -K078*<OH>*<ALKM>
- PTERMS(:,20,79) = -TPK%K078(:)*PCONC(:,15)*PCONC(:,20)
-!
-!PTERMS(RO2T,K078) = +K078*<OH>*<ALKM>
- PTERMS(:,85,79) = +TPK%K078(:)*PCONC(:,15)*PCONC(:,20)
-!
-!PTERMS(HO2,K079) = +0.16*K079*<OH>*<AROL>
- PTERMS(:,10,80) = +0.16*TPK%K079(:)*PCONC(:,15)*PCONC(:,23)
-!
-!PTERMS(OH,K079) = -K079*<OH>*<AROL>
- PTERMS(:,15,80) = -TPK%K079(:)*PCONC(:,15)*PCONC(:,23)
-!
-!
-RETURN
-END SUBROUTINE SUBT12
-!
-SUBROUTINE SUBT13
-!
-!Indices 261 a 280
-!
-!PTERMS(AROL,K079) = -K079*<OH>*<AROL>
- PTERMS(:,23,80) = -TPK%K079(:)*PCONC(:,15)*PCONC(:,23)
-!
-!PTERMS(AROO,K079) = +0.16*K079*<OH>*<AROL>
- PTERMS(:,24,80) = +0.16*TPK%K079(:)*PCONC(:,15)*PCONC(:,23)
-!
-!PTERMS(RO2T,K079) = +0.06*K079*<OH>*<AROL>
- PTERMS(:,85,80) = +0.06*TPK%K079(:)*PCONC(:,15)*PCONC(:,23)
-!
-!PTERMS(HO2,K080) = +0.16*K080*<OH>*<AROH>
- PTERMS(:,10,81) = +0.16*TPK%K080(:)*PCONC(:,15)*PCONC(:,22)
-!
-!PTERMS(OH,K080) = -K080*<OH>*<AROH>
- PTERMS(:,15,81) = -TPK%K080(:)*PCONC(:,15)*PCONC(:,22)
-!
-!PTERMS(AROH,K080) = -K080*<OH>*<AROH>
- PTERMS(:,22,81) = -TPK%K080(:)*PCONC(:,15)*PCONC(:,22)
-!
-!PTERMS(AROO,K080) = +0.16*K080*<OH>*<AROH>
- PTERMS(:,24,81) = +0.16*TPK%K080(:)*PCONC(:,15)*PCONC(:,22)
-!
-!PTERMS(O3,K081) = +K081*<NO3>*<ARAL>
- PTERMS(:,3,82) = +TPK%K081(:)*PCONC(:,8)*PCONC(:,25)
-!
-!PTERMS(HNO3,K081) = +K081*<NO3>*<ARAL>
- PTERMS(:,5,82) = +TPK%K081(:)*PCONC(:,8)*PCONC(:,25)
-!
-!PTERMS(NO3,K081) = -K081*<NO3>*<ARAL>
- PTERMS(:,8,82) = -TPK%K081(:)*PCONC(:,8)*PCONC(:,25)
-!
-!PTERMS(ARAL,K081) = -K081*<NO3>*<ARAL>
- PTERMS(:,25,82) = -TPK%K081(:)*PCONC(:,8)*PCONC(:,25)
-!
-!PTERMS(ARAC,K081) = +K081*<NO3>*<ARAL>
- PTERMS(:,26,82) = +TPK%K081(:)*PCONC(:,8)*PCONC(:,25)
-!
-!PTERMS(O3,K082) = +TPK%CF39*K082*<OH>*<ARAL>
- PTERMS(:,3,83) = +TPK%CF39*TPK%K082(:)*PCONC(:,15)*PCONC(:,25)
-!
-!PTERMS(HO2,K082) = +TPK%CF48*K082*<OH>*<ARAL>
- PTERMS(:,10,83) = +TPK%CF48*TPK%K082(:)*PCONC(:,15)*PCONC(:,25)
-!
-!PTERMS(OH,K082) = -K082*<OH>*<ARAL>
- PTERMS(:,15,83) = -TPK%K082(:)*PCONC(:,15)*PCONC(:,25)
-!
-!PTERMS(ARAL,K082) = -K082*<OH>*<ARAL>
- PTERMS(:,25,83) = -TPK%K082(:)*PCONC(:,15)*PCONC(:,25)
-!
-!PTERMS(ARAC,K082) = +TPK%CF39*K082*<OH>*<ARAL>
- PTERMS(:,26,83) = +TPK%CF39*TPK%K082(:)*PCONC(:,15)*PCONC(:,25)
-!
-!PTERMS(RPRL,K082) = +0.9983609*K082*<OH>*<ARAL>
- PTERMS(:,75,83) = +0.9983609*TPK%K082(:)*PCONC(:,15)*PCONC(:,25)
-!
-!PTERMS(RO2T,K082) = +TPK%CF45*K082*<OH>*<ARAL>
- PTERMS(:,85,83) = +TPK%CF45*TPK%K082(:)*PCONC(:,15)*PCONC(:,25)
-!
-!PTERMS(HO2,K083) = +0.16*K083*<OH>*<ARAC>
- PTERMS(:,10,84) = +0.16*TPK%K083(:)*PCONC(:,15)*PCONC(:,26)
-!
-!
-RETURN
-END SUBROUTINE SUBT13
-!
-SUBROUTINE SUBT14
-!
-!Indices 281 a 300
-!
-!PTERMS(OH,K083) = -K083*<OH>*<ARAC>
- PTERMS(:,15,84) = -TPK%K083(:)*PCONC(:,15)*PCONC(:,26)
-!
-!PTERMS(ARAC,K083) = -K083*<OH>*<ARAC>
- PTERMS(:,26,84) = -TPK%K083(:)*PCONC(:,15)*PCONC(:,26)
-!
-!PTERMS(URG7,K083) = +0.1599999*K083*<OH>*<ARAC>
- PTERMS(:,60,84) = +0.1599999*TPK%K083(:)*PCONC(:,15)*PCONC(:,26)
-!
-!PTERMS(RO2T,K083) = +0.1*K083*<OH>*<ARAC>
- PTERMS(:,85,84) = +0.1*TPK%K083(:)*PCONC(:,15)*PCONC(:,26)
-!
-!PTERMS(OH,K084) = -K084*<OH>*<BIOL>
- PTERMS(:,15,85) = -TPK%K084(:)*PCONC(:,15)*PCONC(:,36)
-!
-!PTERMS(BIOL,K084) = -K084*<OH>*<BIOL>
- PTERMS(:,36,85) = -TPK%K084(:)*PCONC(:,15)*PCONC(:,36)
-!
-!PTERMS(RO2T,K084) = +K084*<OH>*<BIOL>
- PTERMS(:,85,85) = +TPK%K084(:)*PCONC(:,15)*PCONC(:,36)
-!
-!PTERMS(NO3,K085) = -K085*<NO3>*<BIOL>
- PTERMS(:,8,86) = -TPK%K085(:)*PCONC(:,8)*PCONC(:,36)
-!
-!PTERMS(BIOL,K085) = -K085*<NO3>*<BIOL>
- PTERMS(:,36,86) = -TPK%K085(:)*PCONC(:,8)*PCONC(:,36)
-!
-!PTERMS(RO2T,K085) = +K085*<NO3>*<BIOL>
- PTERMS(:,85,86) = +TPK%K085(:)*PCONC(:,8)*PCONC(:,36)
-!
-!PTERMS(O3,K086) = -K086*<O3>*<BIOL>
- PTERMS(:,3,87) = -TPK%K086(:)*PCONC(:,3)*PCONC(:,36)
-!
-!PTERMS(HO2,K086) = +0.445*K086*<O3>*<BIOL>
- PTERMS(:,10,87) = +0.445*TPK%K086(:)*PCONC(:,3)*PCONC(:,36)
-!
-!PTERMS(CO,K086) = +0.445*K086*<O3>*<BIOL>
- PTERMS(:,11,87) = +0.445*TPK%K086(:)*PCONC(:,3)*PCONC(:,36)
-!
-!PTERMS(H2O2,K086) = +0.055*K086*<O3>*<BIOL>
- PTERMS(:,12,87) = +0.055*TPK%K086(:)*PCONC(:,3)*PCONC(:,36)
-!
-!PTERMS(OH,K086) = +0.89*K086*<O3>*<BIOL>
- PTERMS(:,15,87) = +0.89*TPK%K086(:)*PCONC(:,3)*PCONC(:,36)
-!
-!PTERMS(BIOL,K086) = -K086*<O3>*<BIOL>
- PTERMS(:,36,87) = -TPK%K086(:)*PCONC(:,3)*PCONC(:,36)
-!
-!PTERMS(URG4,K086) = +5.5000000E-02*K086*<O3>*<BIOL>
- PTERMS(:,53,87) = +5.5000000E-02*TPK%K086(:)*PCONC(:,3)*PCONC(:,36)
-!
-!PTERMS(RPR3,K086) = +0.055*K086*<O3>*<BIOL>
- PTERMS(:,57,87) = +0.055*TPK%K086(:)*PCONC(:,3)*PCONC(:,36)
-!
-!PTERMS(RO2T,K086) = +0.445*K086*<O3>*<BIOL>
- PTERMS(:,85,87) = +0.445*TPK%K086(:)*PCONC(:,3)*PCONC(:,36)
-!
-!PTERMS(BIOL,K087) = -K087*<O>*<BIOL>
- PTERMS(:,36,88) = -TPK%K087(:)*TPK%O(:)*PCONC(:,36)
-!
-!
-RETURN
-END SUBROUTINE SUBT14
-!
-SUBROUTINE SUBT15
-!
-!Indices 301 a 320
-!
-!PTERMS(URG10,K087) = +0.7500000*K087*<O>*<BIOL>
- PTERMS(:,68,88) = +0.7500000*TPK%K087(:)*TPK%O(:)*PCONC(:,36)
-!
-!PTERMS(OH,K088) = -K088*<OH>*<BIOH>
- PTERMS(:,15,89) = -TPK%K088(:)*PCONC(:,15)*PCONC(:,37)
-!
-!PTERMS(BIOH,K088) = -K088*<OH>*<BIOH>
- PTERMS(:,37,89) = -TPK%K088(:)*PCONC(:,15)*PCONC(:,37)
-!
-!PTERMS(RO2T,K088) = +K088*<OH>*<BIOH>
- PTERMS(:,85,89) = +TPK%K088(:)*PCONC(:,15)*PCONC(:,37)
-!
-!PTERMS(NO3,K089) = -K089*<NO3>*<BIOH>
- PTERMS(:,8,90) = -TPK%K089(:)*PCONC(:,8)*PCONC(:,37)
-!
-!PTERMS(BIOH,K089) = -K089*<NO3>*<BIOH>
- PTERMS(:,37,90) = -TPK%K089(:)*PCONC(:,8)*PCONC(:,37)
-!
-!PTERMS(RO2T,K089) = +K089*<NO3>*<BIOH>
- PTERMS(:,85,90) = +TPK%K089(:)*PCONC(:,8)*PCONC(:,37)
-!
-!PTERMS(O3,K090) = -K090*<O3>*<BIOH>
- PTERMS(:,3,91) = -TPK%K090(:)*PCONC(:,3)*PCONC(:,37)
-!
-!PTERMS(CO,K090) = +0.445*K090*<O3>*<BIOH>
- PTERMS(:,11,91) = +0.445*TPK%K090(:)*PCONC(:,3)*PCONC(:,37)
-!
-!PTERMS(H2O2,K090) = +0.055*K090*<O3>*<BIOH>
- PTERMS(:,12,91) = +0.055*TPK%K090(:)*PCONC(:,3)*PCONC(:,37)
-!
-!PTERMS(OH,K090) = +0.89*K090*<O3>*<BIOH>
- PTERMS(:,15,91) = +0.89*TPK%K090(:)*PCONC(:,3)*PCONC(:,37)
-!
-!PTERMS(BIOH,K090) = -K090*<O3>*<BIOH>
- PTERMS(:,37,91) = -TPK%K090(:)*PCONC(:,3)*PCONC(:,37)
-!
-!PTERMS(UR8,K090) = +0.055*K090*<O3>*<BIOH>
- PTERMS(:,54,91) = +0.055*TPK%K090(:)*PCONC(:,3)*PCONC(:,37)
-!
-!PTERMS(UR7,K090) = +0.055*K090*<O3>*<BIOH>
- PTERMS(:,56,91) = +0.055*TPK%K090(:)*PCONC(:,3)*PCONC(:,37)
-!
-!PTERMS(RO2T,K090) = +0.89*K090*<O3>*<BIOH>
- PTERMS(:,85,91) = +0.89*TPK%K090(:)*PCONC(:,3)*PCONC(:,37)
-!
-!PTERMS(BIOH,K091) = -K091*<O>*<BIOH>
- PTERMS(:,37,92) = -TPK%K091(:)*TPK%O(:)*PCONC(:,37)
-!
-!PTERMS(HO2,K092) = +0.16*K092*<OH>*<PAH>
- PTERMS(:,10,93) = +0.16*TPK%K092(:)*PCONC(:,15)*PCONC(:,27)
-!
-!PTERMS(OH,K092) = -K092*<OH>*<PAH>
- PTERMS(:,15,93) = -TPK%K092(:)*PCONC(:,15)*PCONC(:,27)
-!
-!PTERMS(PAH,K092) = -K092*<OH>*<PAH>
- PTERMS(:,27,93) = -TPK%K092(:)*PCONC(:,15)*PCONC(:,27)
-!
-!PTERMS(URG8,K092) = +0.1600000*K092*<OH>*<PAH>
- PTERMS(:,64,93) = +0.1600000*TPK%K092(:)*PCONC(:,15)*PCONC(:,27)
-!
-!
-RETURN
-END SUBROUTINE SUBT15
-!
-SUBROUTINE SUBT16
-!
-!Indices 321 a 340
-!
-!PTERMS(RO2T,K092) = +0.1*K092*<OH>*<PAH>
- PTERMS(:,85,93) = +0.1*TPK%K092(:)*PCONC(:,15)*PCONC(:,27)
-!
-!PTERMS(OH,K093) = -K093*<OH>*<ALKH>
- PTERMS(:,15,94) = -TPK%K093(:)*PCONC(:,15)*PCONC(:,21)
-!
-!PTERMS(ALKH,K093) = -K093*<OH>*<ALKH>
- PTERMS(:,21,94) = -TPK%K093(:)*PCONC(:,15)*PCONC(:,21)
-!
-!PTERMS(RO2T,K093) = +K093*<OH>*<ALKH>
- PTERMS(:,85,94) = +TPK%K093(:)*PCONC(:,15)*PCONC(:,21)
-!
-!PTERMS(HO2,K094) = -K094*<HO2>*<RO2T>
- PTERMS(:,10,95) = -TPK%K094(:)*PCONC(:,10)*PCONC(:,85)
-!
-!PTERMS(RO2T,K094) = -K094*<HO2>*<RO2T>
- PTERMS(:,85,95) = -TPK%K094(:)*PCONC(:,10)*PCONC(:,85)
-!
-!PTERMS(NO,K095) = -K095*<NO>*<RO2T>
- PTERMS(:,1,96) = -TPK%K095(:)*PCONC(:,1)*PCONC(:,85)
-!
-!PTERMS(RO2T,K095) = -K095*<NO>*<RO2T>
- PTERMS(:,85,96) = -TPK%K095(:)*PCONC(:,1)*PCONC(:,85)
-!
-!PTERMS(RO2T,K096) = -K096*<RO2T>*<RO2T>
- PTERMS(:,85,97) = -TPK%K096(:)*PCONC(:,85)*PCONC(:,85)
-!
-!PTERMS(RO2T,K097) = +K097*<RAD2>
- PTERMS(:,85,98) = +TPK%K097(:)*TPK%RAD2(:)
-!
-!PTERMS(RO2T,K098) = +K098*<RAD3>
- PTERMS(:,85,99) = +TPK%K098(:)*TPK%RAD3(:)
-!
-!PTERMS(RO2T,K099) = +K099*<RAD4>
- PTERMS(:,85,100) = +TPK%K099(:)*TPK%RAD4(:)
-!
-!PTERMS(RO2T,K100) = +K100*<RAD5>
- PTERMS(:,85,101) = +TPK%K100(:)*TPK%RAD5(:)
-!
-!PTERMS(RO2T,K101) = +K101*<RAD6>
- PTERMS(:,85,102) = +TPK%K101(:)*TPK%RAD6(:)
-!
-!PTERMS(RO2T,K102) = +K102*<RAD7>
- PTERMS(:,85,103) = +TPK%K102(:)*TPK%RAD7(:)
-!
-!PTERMS(NO2,K103) = -K103*<NO2>*<RAD1>
- PTERMS(:,2,104) = -TPK%K103(:)*PCONC(:,2)*TPK%RAD1(:)
-!
-!PTERMS(RPR4,K103) = +K103*<NO2>*<RAD1>
- PTERMS(:,61,104) = +TPK%K103(:)*PCONC(:,2)*TPK%RAD1(:)
-!
-!PTERMS(NO2,K104) = -K104*<NO2>*<RAD2>
- PTERMS(:,2,105) = -TPK%K104(:)*PCONC(:,2)*TPK%RAD2(:)
-!
-!PTERMS(RPR4,K104) = +K104*<NO2>*<RAD2>
- PTERMS(:,61,105) = +TPK%K104(:)*PCONC(:,2)*TPK%RAD2(:)
-!
-!PTERMS(NO2,K105) = -K105*<NO2>*<RAD3>
- PTERMS(:,2,106) = -TPK%K105(:)*PCONC(:,2)*TPK%RAD3(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT16
-!
-SUBROUTINE SUBT17
-!
-!Indices 341 a 360
-!
-!PTERMS(NO2,K106) = -K106*<NO2>*<RAD4>
- PTERMS(:,2,107) = -TPK%K106(:)*PCONC(:,2)*TPK%RAD4(:)
-!
-!PTERMS(NO2,K107) = -K107*<NO2>*<RAD5>
- PTERMS(:,2,108) = -TPK%K107(:)*PCONC(:,2)*TPK%RAD5(:)
-!
-!PTERMS(RPR5,K107) = +K107*<NO2>*<RAD5>
- PTERMS(:,70,108) = +TPK%K107(:)*PCONC(:,2)*TPK%RAD5(:)
-!
-!PTERMS(NO2,K108) = -K108*<NO2>*<RAD6>
- PTERMS(:,2,109) = -TPK%K108(:)*PCONC(:,2)*TPK%RAD6(:)
-!
-!PTERMS(URG7,K108) = +0.9999993*K108*<NO2>*<RAD6>
- PTERMS(:,60,109) = +0.9999993*TPK%K108(:)*PCONC(:,2)*TPK%RAD6(:)
-!
-!PTERMS(NO2,K109) = -K109*<NO2>*<RAD7>
- PTERMS(:,2,110) = -TPK%K109(:)*PCONC(:,2)*TPK%RAD7(:)
-!
-!PTERMS(URG8,K109) = +1.0000000*K109*<NO2>*<RAD7>
- PTERMS(:,64,110) = +1.0000000*TPK%K109(:)*PCONC(:,2)*TPK%RAD7(:)
-!
-!PTERMS(NO,K110) = -K110*<NO>*<RO21>
- PTERMS(:,1,111) = -TPK%K110(:)*PCONC(:,1)*PCONC(:,86)
-!
-!PTERMS(NO2,K110) = +K110*<NO>*<RO21>
- PTERMS(:,2,111) = +TPK%K110(:)*PCONC(:,1)*PCONC(:,86)
-!
-!PTERMS(HO2,K110) = +K110*<NO>*<RO21>
- PTERMS(:,10,111) = +TPK%K110(:)*PCONC(:,1)*PCONC(:,86)
-!
-!PTERMS(HCHO,K110) = +K110*<NO>*<RO21>
- PTERMS(:,28,111) = +TPK%K110(:)*PCONC(:,1)*PCONC(:,86)
-!
-!PTERMS(RO21,K110) = -K110*<NO>*<RO21>
- PTERMS(:,86,111) = -TPK%K110(:)*PCONC(:,1)*PCONC(:,86)
-!
-!PTERMS(HO2,K111) = +K111*<RO2T>*<RO21>
- PTERMS(:,10,112) = +TPK%K111(:)*PCONC(:,85)*PCONC(:,86)
-!
-!PTERMS(HCHO,K111) = +K111*<RO2T>*<RO21>
- PTERMS(:,28,112) = +TPK%K111(:)*PCONC(:,85)*PCONC(:,86)
-!
-!PTERMS(RO2T,K111) = -K111*<RO2T>*<RO21>
- PTERMS(:,85,112) = -TPK%K111(:)*PCONC(:,85)*PCONC(:,86)
-!
-!PTERMS(RO21,K111) = -K111*<RO2T>*<RO21>
- PTERMS(:,86,112) = -TPK%K111(:)*PCONC(:,85)*PCONC(:,86)
-!
-!PTERMS(HO2,K112) = -K112*<HO2>*<RO21>
- PTERMS(:,10,113) = -TPK%K112(:)*PCONC(:,10)*PCONC(:,86)
-!
-!PTERMS(OH,K112) = +K112*<HO2>*<RO21>
- PTERMS(:,15,113) = +TPK%K112(:)*PCONC(:,10)*PCONC(:,86)
-!
-!PTERMS(HCHO,K112) = +K112*<HO2>*<RO21>
- PTERMS(:,28,113) = +TPK%K112(:)*PCONC(:,10)*PCONC(:,86)
-!
-!PTERMS(RO21,K112) = -K112*<HO2>*<RO21>
- PTERMS(:,86,113) = -TPK%K112(:)*PCONC(:,10)*PCONC(:,86)
-!
-!
-RETURN
-END SUBROUTINE SUBT17
-!
-SUBROUTINE SUBT18
-!
-!Indices 361 a 380
-!
-!PTERMS(NO,K113) = -K113*<NO>*<RO22>
- PTERMS(:,1,114) = -TPK%K113(:)*PCONC(:,1)*TPK%RO22(:)
-!
-!PTERMS(NO2,K113) = +K113*<NO>*<RO22>
- PTERMS(:,2,114) = +TPK%K113(:)*PCONC(:,1)*TPK%RO22(:)
-!
-!PTERMS(HO2,K113) = +K113*<NO>*<RO22>
- PTERMS(:,10,114) = +TPK%K113(:)*PCONC(:,1)*TPK%RO22(:)
-!
-!PTERMS(HCHO,K113) = +K113*<NO>*<RO22>
- PTERMS(:,28,114) = +TPK%K113(:)*PCONC(:,1)*TPK%RO22(:)
-!
-!PTERMS(ALD2,K113) = +K113*<NO>*<RO22>
- PTERMS(:,29,114) = +TPK%K113(:)*PCONC(:,1)*TPK%RO22(:)
-!
-!PTERMS(HO2,K114) = +K114*<RO2T>*<RO22>
- PTERMS(:,10,115) = +TPK%K114(:)*PCONC(:,85)*TPK%RO22(:)
-!
-!PTERMS(HCHO,K114) = +K114*<RO2T>*<RO22>
- PTERMS(:,28,115) = +TPK%K114(:)*PCONC(:,85)*TPK%RO22(:)
-!
-!PTERMS(ALD2,K114) = +K114*<RO2T>*<RO22>
- PTERMS(:,29,115) = +TPK%K114(:)*PCONC(:,85)*TPK%RO22(:)
-!
-!PTERMS(RO2T,K114) = -K114*<RO2T>*<RO22>
- PTERMS(:,85,115) = -TPK%K114(:)*PCONC(:,85)*TPK%RO22(:)
-!
-!PTERMS(HO2,K115) = -K115*<HO2>*<RO22>
- PTERMS(:,10,116) = -TPK%K115(:)*PCONC(:,10)*TPK%RO22(:)
-!
-!PTERMS(OH,K115) = +K115*<HO2>*<RO22>
- PTERMS(:,15,116) = +TPK%K115(:)*PCONC(:,10)*TPK%RO22(:)
-!
-!PTERMS(HCHO,K115) = +K115*<HO2>*<RO22>
- PTERMS(:,28,116) = +TPK%K115(:)*PCONC(:,10)*TPK%RO22(:)
-!
-!PTERMS(ALD2,K115) = +K115*<HO2>*<RO22>
- PTERMS(:,29,116) = +TPK%K115(:)*PCONC(:,10)*TPK%RO22(:)
-!
-!PTERMS(NO,K116) = -K116*<NO>*<RO23>
- PTERMS(:,1,117) = -TPK%K116(:)*PCONC(:,1)*TPK%RO23(:)
-!
-!PTERMS(NO2,K116) = +2.*K116*<NO>*<RO23>
- PTERMS(:,2,117) = +2.*TPK%K116(:)*PCONC(:,1)*TPK%RO23(:)
-!
-!PTERMS(HCHO,K116) = +K116*<NO>*<RO23>
- PTERMS(:,28,117) = +TPK%K116(:)*PCONC(:,1)*TPK%RO23(:)
-!
-!PTERMS(ALD2,K116) = +K116*<NO>*<RO23>
- PTERMS(:,29,117) = +TPK%K116(:)*PCONC(:,1)*TPK%RO23(:)
-!
-!PTERMS(NO2,K117) = +K117*<RO2T>*<RO23>
- PTERMS(:,2,118) = +TPK%K117(:)*PCONC(:,85)*TPK%RO23(:)
-!
-!PTERMS(HO2,K117) = +K117*<RO2T>*<RO23>
- PTERMS(:,10,118) = +TPK%K117(:)*PCONC(:,85)*TPK%RO23(:)
-!
-!PTERMS(HCHO,K117) = +K117*<RO2T>*<RO23>
- PTERMS(:,28,118) = +TPK%K117(:)*PCONC(:,85)*TPK%RO23(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT18
-!
-SUBROUTINE SUBT19
-!
-!Indices 381 a 400
-!
-!PTERMS(ALD2,K117) = +K117*<RO2T>*<RO23>
- PTERMS(:,29,118) = +TPK%K117(:)*PCONC(:,85)*TPK%RO23(:)
-!
-!PTERMS(RO2T,K117) = -K117*<RO2T>*<RO23>
- PTERMS(:,85,118) = -TPK%K117(:)*PCONC(:,85)*TPK%RO23(:)
-!
-!PTERMS(NO2,K118) = +K118*<HO2>*<RO23>
- PTERMS(:,2,119) = +TPK%K118(:)*PCONC(:,10)*TPK%RO23(:)
-!
-!PTERMS(HO2,K118) = -K118*<HO2>*<RO23>
- PTERMS(:,10,119) = -TPK%K118(:)*PCONC(:,10)*TPK%RO23(:)
-!
-!PTERMS(OH,K118) = +K118*<HO2>*<RO23>
- PTERMS(:,15,119) = +TPK%K118(:)*PCONC(:,10)*TPK%RO23(:)
-!
-!PTERMS(HCHO,K118) = +K118*<HO2>*<RO23>
- PTERMS(:,28,119) = +TPK%K118(:)*PCONC(:,10)*TPK%RO23(:)
-!
-!PTERMS(ALD2,K118) = +K118*<HO2>*<RO23>
- PTERMS(:,29,119) = +TPK%K118(:)*PCONC(:,10)*TPK%RO23(:)
-!
-!PTERMS(NO,K119) = -K119*<NO>*<RO24>
- PTERMS(:,1,120) = -TPK%K119(:)*PCONC(:,1)*TPK%RO24(:)
-!
-!PTERMS(NO2,K119) = +K119*<NO>*<RO24>
- PTERMS(:,2,120) = +TPK%K119(:)*PCONC(:,1)*TPK%RO24(:)
-!
-!PTERMS(HO2,K119) = +K119*<NO>*<RO24>
- PTERMS(:,10,120) = +TPK%K119(:)*PCONC(:,1)*TPK%RO24(:)
-!
-!PTERMS(CO,K119) = +K119*<NO>*<RO24>
- PTERMS(:,11,120) = +TPK%K119(:)*PCONC(:,1)*TPK%RO24(:)
-!
-!PTERMS(HCHO,K119) = +K119*<NO>*<RO24>
- PTERMS(:,28,120) = +TPK%K119(:)*PCONC(:,1)*TPK%RO24(:)
-!
-!PTERMS(HO2,K120) = +K120*<RO2T>*<RO24>
- PTERMS(:,10,121) = +TPK%K120(:)*PCONC(:,85)*TPK%RO24(:)
-!
-!PTERMS(CO,K120) = +K120*<RO2T>*<RO24>
- PTERMS(:,11,121) = +TPK%K120(:)*PCONC(:,85)*TPK%RO24(:)
-!
-!PTERMS(HCHO,K120) = +K120*<RO2T>*<RO24>
- PTERMS(:,28,121) = +TPK%K120(:)*PCONC(:,85)*TPK%RO24(:)
-!
-!PTERMS(RO2T,K120) = -K120*<RO2T>*<RO24>
- PTERMS(:,85,121) = -TPK%K120(:)*PCONC(:,85)*TPK%RO24(:)
-!
-!PTERMS(HO2,K121) = -K121*<HO2>*<RO24>
- PTERMS(:,10,122) = -TPK%K121(:)*PCONC(:,10)*TPK%RO24(:)
-!
-!PTERMS(CO,K121) = +K121*<HO2>*<RO24>
- PTERMS(:,11,122) = +TPK%K121(:)*PCONC(:,10)*TPK%RO24(:)
-!
-!PTERMS(OH,K121) = +K121*<HO2>*<RO24>
- PTERMS(:,15,122) = +TPK%K121(:)*PCONC(:,10)*TPK%RO24(:)
-!
-!PTERMS(HCHO,K121) = +K121*<HO2>*<RO24>
- PTERMS(:,28,122) = +TPK%K121(:)*PCONC(:,10)*TPK%RO24(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT19
-!
-SUBROUTINE SUBT20
-!
-!Indices 401 a 420
-!
-!PTERMS(NO,K122) = -K122*<NO>*<RO25>
- PTERMS(:,1,123) = -TPK%K122(:)*PCONC(:,1)*PCONC(:,87)
-!
-!PTERMS(NO2,K122) = +TPK%CF4*K122*<NO>*<RO25>
- PTERMS(:,2,123) = +TPK%CF4*TPK%K122(:)*PCONC(:,1)*PCONC(:,87)
-!
-!PTERMS(HO2,K122) = +TPK%CF4*K122*<NO>*<RO25>
- PTERMS(:,10,123) = +TPK%CF4*TPK%K122(:)*PCONC(:,1)*PCONC(:,87)
-!
-!PTERMS(ALKL,K122) = +TPK%CF3*K122*<NO>*<RO25>
- PTERMS(:,19,123) = +TPK%CF3*TPK%K122(:)*PCONC(:,1)*PCONC(:,87)
-!
-!PTERMS(ALD2,K122) = +TPK%CF4*K122*<NO>*<RO25>
- PTERMS(:,29,123) = +TPK%CF4*TPK%K122(:)*PCONC(:,1)*PCONC(:,87)
-!
-!PTERMS(RO25,K122) = -K122*<NO>*<RO25>
- PTERMS(:,87,123) = -TPK%K122(:)*PCONC(:,1)*PCONC(:,87)
-!
-!PTERMS(HO2,K123) = +K123*<RO2T>*<RO25>
- PTERMS(:,10,124) = +TPK%K123(:)*PCONC(:,85)*PCONC(:,87)
-!
-!PTERMS(ALD2,K123) = +K123*<RO2T>*<RO25>
- PTERMS(:,29,124) = +TPK%K123(:)*PCONC(:,85)*PCONC(:,87)
-!
-!PTERMS(RO2T,K123) = -K123*<RO2T>*<RO25>
- PTERMS(:,85,124) = -TPK%K123(:)*PCONC(:,85)*PCONC(:,87)
-!
-!PTERMS(RO25,K123) = -K123*<RO2T>*<RO25>
- PTERMS(:,87,124) = -TPK%K123(:)*PCONC(:,85)*PCONC(:,87)
-!
-!PTERMS(HO2,K124) = -K124*<HO2>*<RO25>
- PTERMS(:,10,125) = -TPK%K124(:)*PCONC(:,10)*PCONC(:,87)
-!
-!PTERMS(OH,K124) = +K124*<HO2>*<RO25>
- PTERMS(:,15,125) = +TPK%K124(:)*PCONC(:,10)*PCONC(:,87)
-!
-!PTERMS(ALD2,K124) = +K124*<HO2>*<RO25>
- PTERMS(:,29,125) = +TPK%K124(:)*PCONC(:,10)*PCONC(:,87)
-!
-!PTERMS(RO25,K124) = -K124*<HO2>*<RO25>
- PTERMS(:,87,125) = -TPK%K124(:)*PCONC(:,10)*PCONC(:,87)
-!
-!PTERMS(NO,K125) = -K125*<NO>*<RO26>
- PTERMS(:,1,126) = -TPK%K125(:)*PCONC(:,1)*TPK%RO26(:)
-!
-!PTERMS(NO2,K125) = +K125*<NO>*<RO26>
- PTERMS(:,2,126) = +TPK%K125(:)*PCONC(:,1)*TPK%RO26(:)
-!
-!PTERMS(RO2T,K125) = +K125*<NO>*<RO26>
- PTERMS(:,85,126) = +TPK%K125(:)*PCONC(:,1)*TPK%RO26(:)
-!
-!PTERMS(RO25,K125) = +K125*<NO>*<RO26>
- PTERMS(:,87,126) = +TPK%K125(:)*PCONC(:,1)*TPK%RO26(:)
-!
-!PTERMS(NO2,K126) = -K126*<NO2>*<RO26>
- PTERMS(:,2,127) = -TPK%K126(:)*PCONC(:,2)*TPK%RO26(:)
-!
-!PTERMS(PAN1,K126) = +K126*<NO2>*<RO26>
- PTERMS(:,77,127) = +TPK%K126(:)*PCONC(:,2)*TPK%RO26(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT20
-!
-SUBROUTINE SUBT21
-!
-!Indices 421 a 440
-!
-!PTERMS(NO2,K127) = -K127*<NO2>*<RO28>
- PTERMS(:,2,128) = -TPK%K127(:)*PCONC(:,2)*TPK%RO28(:)
-!
-!PTERMS(PAN2,K127) = +K127*<NO2>*<RO28>
- PTERMS(:,78,128) = +TPK%K127(:)*PCONC(:,2)*TPK%RO28(:)
-!
-!PTERMS(NO2,K128) = -K128*<NO2>*<RO239>
- PTERMS(:,2,129) = -TPK%K128(:)*PCONC(:,2)*TPK%RO239(:)
-!
-!PTERMS(PAN3,K128) = +K128*<NO2>*<RO239>
- PTERMS(:,79,129) = +TPK%K128(:)*PCONC(:,2)*TPK%RO239(:)
-!
-!PTERMS(NO2,K129) = -K129*<NO2>*<RO248>
- PTERMS(:,2,130) = -TPK%K129(:)*PCONC(:,2)*TPK%RO248(:)
-!
-!PTERMS(PAN4,K129) = +K129*<NO2>*<RO248>
- PTERMS(:,80,130) = +TPK%K129(:)*PCONC(:,2)*TPK%RO248(:)
-!
-!PTERMS(NO2,K130) = -K130*<NO2>*<RO250>
- PTERMS(:,2,131) = -TPK%K130(:)*PCONC(:,2)*TPK%RO250(:)
-!
-!PTERMS(APAN,K130) = +K130*<NO2>*<RO250>
- PTERMS(:,76,131) = +TPK%K130(:)*PCONC(:,2)*TPK%RO250(:)
-!
-!PTERMS(NO2,K131) = -K131*<NO2>*<RO254>
- PTERMS(:,2,132) = -TPK%K131(:)*PCONC(:,2)*TPK%RO254(:)
-!
-!PTERMS(PAN6,K131) = +K131*<NO2>*<RO254>
- PTERMS(:,81,132) = +TPK%K131(:)*PCONC(:,2)*TPK%RO254(:)
-!
-!PTERMS(NO2,K132) = -K132*<NO2>*<RO255>
- PTERMS(:,2,133) = -TPK%K132(:)*PCONC(:,2)*TPK%RO255(:)
-!
-!PTERMS(PAN7,K132) = +K132*<NO2>*<RO255>
- PTERMS(:,82,133) = +TPK%K132(:)*PCONC(:,2)*TPK%RO255(:)
-!
-!PTERMS(NO2,K133) = -K133*<NO2>*<RO257>
- PTERMS(:,2,134) = -TPK%K133(:)*PCONC(:,2)*TPK%RO257(:)
-!
-!PTERMS(APAN,K133) = +K133*<NO2>*<RO257>
- PTERMS(:,76,134) = +TPK%K133(:)*PCONC(:,2)*TPK%RO257(:)
-!
-!PTERMS(NO2,K134) = -K134*<NO2>*<RO258>
- PTERMS(:,2,135) = -TPK%K134(:)*PCONC(:,2)*TPK%RO258(:)
-!
-!PTERMS(PN10,K134) = +K134*<NO2>*<RO258>
- PTERMS(:,84,135) = +TPK%K134(:)*PCONC(:,2)*TPK%RO258(:)
-!
-!PTERMS(NO2,K135) = +K135*<PAN1>
- PTERMS(:,2,136) = +TPK%K135(:)*PCONC(:,77)
-!
-!PTERMS(PAN1,K135) = -K135*<PAN1>
- PTERMS(:,77,136) = -TPK%K135(:)*PCONC(:,77)
-!
-!PTERMS(RO2T,K135) = +K135*<PAN1>
- PTERMS(:,85,136) = +TPK%K135(:)*PCONC(:,77)
-!
-!PTERMS(NO2,K136) = +K136*<PAN2>
- PTERMS(:,2,137) = +TPK%K136(:)*PCONC(:,78)
-!
-!
-RETURN
-END SUBROUTINE SUBT21
-!
-SUBROUTINE SUBT22
-!
-!Indices 441 a 460
-!
-!PTERMS(PAN2,K136) = -K136*<PAN2>
- PTERMS(:,78,137) = -TPK%K136(:)*PCONC(:,78)
-!
-!PTERMS(RO2T,K136) = +K136*<PAN2>
- PTERMS(:,85,137) = +TPK%K136(:)*PCONC(:,78)
-!
-!PTERMS(NO2,K137) = +K137*<PAN3>
- PTERMS(:,2,138) = +TPK%K137(:)*PCONC(:,79)
-!
-!PTERMS(PAN3,K137) = -K137*<PAN3>
- PTERMS(:,79,138) = -TPK%K137(:)*PCONC(:,79)
-!
-!PTERMS(RO2T,K137) = +K137*<PAN3>
- PTERMS(:,85,138) = +TPK%K137(:)*PCONC(:,79)
-!
-!PTERMS(NO2,K138) = +K138*<PN10>
- PTERMS(:,2,139) = +TPK%K138(:)*PCONC(:,84)
-!
-!PTERMS(PN10,K138) = -K138*<PN10>
- PTERMS(:,84,139) = -TPK%K138(:)*PCONC(:,84)
-!
-!PTERMS(RO2T,K138) = +K138*<PN10>
- PTERMS(:,85,139) = +TPK%K138(:)*PCONC(:,84)
-!
-!PTERMS(NO2,K139) = +1.0000000*K139*<APAN>
- PTERMS(:,2,140) = +1.0000000*TPK%K139(:)*PCONC(:,76)
-!
-!PTERMS(APAN,K139) = -K139*<APAN>
- PTERMS(:,76,140) = -TPK%K139(:)*PCONC(:,76)
-!
-!PTERMS(RO2T,K139) = +1.0000000*K139*<APAN>
- PTERMS(:,85,140) = +1.0000000*TPK%K139(:)*PCONC(:,76)
-!
-!PTERMS(NO2,K140) = +K140*<PAN6>
- PTERMS(:,2,141) = +TPK%K140(:)*PCONC(:,81)
-!
-!PTERMS(PAN6,K140) = -K140*<PAN6>
- PTERMS(:,81,141) = -TPK%K140(:)*PCONC(:,81)
-!
-!PTERMS(RO2T,K140) = +K140*<PAN6>
- PTERMS(:,85,141) = +TPK%K140(:)*PCONC(:,81)
-!
-!PTERMS(NO2,K141) = +K141*<PAN4>
- PTERMS(:,2,142) = +TPK%K141(:)*PCONC(:,80)
-!
-!PTERMS(PAN4,K141) = -K141*<PAN4>
- PTERMS(:,80,142) = -TPK%K141(:)*PCONC(:,80)
-!
-!PTERMS(RO2T,K141) = +K141*<PAN4>
- PTERMS(:,85,142) = +TPK%K141(:)*PCONC(:,80)
-!
-!PTERMS(O3,K142) = +K142*<HO2>*<RO26>
- PTERMS(:,3,143) = +TPK%K142(:)*PCONC(:,10)*TPK%RO26(:)
-!
-!PTERMS(HO2,K142) = -K142*<HO2>*<RO26>
- PTERMS(:,10,143) = -TPK%K142(:)*PCONC(:,10)*TPK%RO26(:)
-!
-!PTERMS(ORA2,K142) = +K142*<HO2>*<RO26>
- PTERMS(:,44,143) = +TPK%K142(:)*PCONC(:,10)*TPK%RO26(:)
-!
-!
-RETURN
-END SUBROUTINE SUBT22
-!
-SUBROUTINE SUBT23
-!
-!Indices 461 a 480
-!
-!PTERMS(ACID,K142) = +K142*<HO2>*<RO26>
- PTERMS(:,45,143) = +TPK%K142(:)*PCONC(:,10)*TPK%RO26(:)
+!PTERMS(NO3,K074) = -K074*<CARBO>*<NO3>
+ PTERMS(:,5,74) = -TPK%K074(:)*PCONC(:,25)*PCONC(:,5)
!
-!PTERMS(RO2T,K143) = -K143*<RO2T>*<RO26>
- PTERMS(:,85,144) = -TPK%K143(:)*PCONC(:,85)*TPK%RO26(:)
+!PTERMS(HNO3,K074) = +0.91567*K074*<CARBO>*<NO3>
+ PTERMS(:,8,74) = +0.91567*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)
!
-!PTERMS(RO25,K143) = +K143*<RO2T>*<RO26>
- PTERMS(:,87,144) = +TPK%K143(:)*PCONC(:,85)*TPK%RO26(:)
+!PTERMS(CO,K074) = +1.33723*K074*<CARBO>*<NO3>
+ PTERMS(:,13,74) = +1.33723*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)
!
-!PTERMS(NO,K144) = -K144*<NO>*<RO27>
- PTERMS(:,1,145) = -TPK%K144(:)*PCONC(:,1)*TPK%RO27(:)
+!PTERMS(HO2,K074) = +0.63217*K074*<CARBO>*<NO3>
+ PTERMS(:,15,74) = +0.63217*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)
!
-!PTERMS(NO2,K144) = +K144*<NO>*<RO27>
- PTERMS(:,2,145) = +TPK%K144(:)*PCONC(:,1)*TPK%RO27(:)
+!PTERMS(ALD,K074) = +0.05265*K074*<CARBO>*<NO3>
+ PTERMS(:,23,74) = +0.05265*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)
!
-!PTERMS(ALD2,K144) = +K144*<NO>*<RO27>
- PTERMS(:,29,145) = +TPK%K144(:)*PCONC(:,1)*TPK%RO27(:)
+!PTERMS(KET,K074) = +0.00632*K074*<CARBO>*<NO3>
+ PTERMS(:,24,74) = +0.00632*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)
!
-!PTERMS(RO2T,K144) = +K144*<NO>*<RO27>
- PTERMS(:,85,145) = +TPK%K144(:)*PCONC(:,1)*TPK%RO27(:)
+!PTERMS(CARBO,K074) = -K074*<CARBO>*<NO3>
+ PTERMS(:,25,74) = -TPK%K074(:)*PCONC(:,25)*PCONC(:,5)
!
-!PTERMS(ALD2,K145) = +K145*<RO2T>*<RO27>
- PTERMS(:,29,146) = +TPK%K145(:)*PCONC(:,85)*TPK%RO27(:)
+!PTERMS(CARBOP,K074) = +0.38881*K074*<CARBO>*<NO3>
+ PTERMS(:,39,74) = +0.38881*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)
!
-!PTERMS(RO2T,K145) = -K145*<RO2T>*<RO27>
- PTERMS(:,85,146) = -TPK%K145(:)*PCONC(:,85)*TPK%RO27(:)
+!PTERMS(OLN,K074) = +0.00000*K074*<CARBO>*<NO3>
+ PTERMS(:,40,74) = +0.00000*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)
!
-!PTERMS(HO2,K146) = -K146*<HO2>*<RO27>
- PTERMS(:,10,147) = -TPK%K146(:)*PCONC(:,10)*TPK%RO27(:)
+!PTERMS(XO2,K074) = +0.10530*K074*<CARBO>*<NO3>
+ PTERMS(:,41,74) = +0.10530*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)
!
-!PTERMS(OH,K146) = +K146*<HO2>*<RO27>
- PTERMS(:,15,147) = +TPK%K146(:)*PCONC(:,10)*TPK%RO27(:)
+!PTERMS(NO3,K075) = -K075*<ARO>*<NO3>
+ PTERMS(:,5,75) = -TPK%K075(:)*PCONC(:,21)*PCONC(:,5)
!
-!PTERMS(ALD2,K146) = +K146*<HO2>*<RO27>
- PTERMS(:,29,147) = +TPK%K146(:)*PCONC(:,10)*TPK%RO27(:)
+!PTERMS(HNO3,K075) = +K075*<ARO>*<NO3>
+ PTERMS(:,8,75) = +TPK%K075(:)*PCONC(:,21)*PCONC(:,5)
!
-!PTERMS(RO2T,K146) = +K146*<HO2>*<RO27>
- PTERMS(:,85,147) = +TPK%K146(:)*PCONC(:,10)*TPK%RO27(:)
+!PTERMS(ARO,K075) = -K075*<ARO>*<NO3>
+ PTERMS(:,21,75) = -TPK%K075(:)*PCONC(:,21)*PCONC(:,5)
!
-!PTERMS(NO,K147) = -K147*<NO>*<RO28>
- PTERMS(:,1,148) = -TPK%K147(:)*PCONC(:,1)*TPK%RO28(:)
+!PTERMS(PHO,K075) = +K075*<ARO>*<NO3>
+ PTERMS(:,36,75) = +TPK%K075(:)*PCONC(:,21)*PCONC(:,5)
!
-!PTERMS(NO2,K147) = +K147*<NO>*<RO28>
- PTERMS(:,2,148) = +TPK%K147(:)*PCONC(:,1)*TPK%RO28(:)
+!PTERMS(NO3,K076) = -K076*<ALKE>*<NO3>
+ PTERMS(:,5,76) = -TPK%K076(:)*PCONC(:,19)*PCONC(:,5)
!
-!PTERMS(RO2T,K147) = +K147*<NO>*<RO28>
- PTERMS(:,85,148) = +TPK%K147(:)*PCONC(:,1)*TPK%RO28(:)
+!PTERMS(ALKE,K076) = -K076*<ALKE>*<NO3>
+ PTERMS(:,19,76) = -TPK%K076(:)*PCONC(:,19)*PCONC(:,5)
!
-!PTERMS(RO21,K147) = +K147*<NO>*<RO28>
- PTERMS(:,86,148) = +TPK%K147(:)*PCONC(:,1)*TPK%RO28(:)
+!PTERMS(CARBO,K076) = +0.00000*K076*<ALKE>*<NO3>
+ PTERMS(:,25,76) = +0.00000*TPK%K076(:)*PCONC(:,19)*PCONC(:,5)
!
-!PTERMS(O3,K148) = +K148*<HO2>*<RO28>
- PTERMS(:,3,149) = +TPK%K148(:)*PCONC(:,10)*TPK%RO28(:)
+!PTERMS(OLN,K076) = +0.93768*K076*<ALKE>*<NO3>
+ PTERMS(:,40,76) = +0.93768*TPK%K076(:)*PCONC(:,19)*PCONC(:,5)
!
-!PTERMS(HO2,K148) = -K148*<HO2>*<RO28>
- PTERMS(:,10,149) = -TPK%K148(:)*PCONC(:,10)*TPK%RO28(:)
+!PTERMS(NO3,K077) = -K077*<BIO>*<NO3>
+ PTERMS(:,5,77) = -TPK%K077(:)*PCONC(:,20)*PCONC(:,5)
!
-!PTERMS(ORA2,K148) = +K148*<HO2>*<RO28>
- PTERMS(:,44,149) = +TPK%K148(:)*PCONC(:,10)*TPK%RO28(:)
+!PTERMS(BIO,K077) = -K077*<BIO>*<NO3>
+ PTERMS(:,20,77) = -TPK%K077(:)*PCONC(:,20)*PCONC(:,5)
!
!
RETURN
-END SUBROUTINE SUBT23
+END SUBROUTINE SUBT12
!
-SUBROUTINE SUBT24
+SUBROUTINE SUBT13
!
-!Indices 481 a 500
+!Indices 261 a 280
!
-!PTERMS(RO2T,K149) = -K149*<RO2T>*<RO28>
- PTERMS(:,85,150) = -TPK%K149(:)*PCONC(:,85)*TPK%RO28(:)
+!PTERMS(CARBO,K077) = +0.91741*K077*<BIO>*<NO3>
+ PTERMS(:,25,77) = +0.91741*TPK%K077(:)*PCONC(:,20)*PCONC(:,5)
!
-!PTERMS(RO21,K149) = +K149*<RO2T>*<RO28>
- PTERMS(:,86,150) = +TPK%K149(:)*PCONC(:,85)*TPK%RO28(:)
+!PTERMS(OLN,K077) = +1.00000*K077*<BIO>*<NO3>
+ PTERMS(:,40,77) = +1.00000*TPK%K077(:)*PCONC(:,20)*PCONC(:,5)
!
-!PTERMS(NO,K150) = -K150*<NO>*<RO29>
- PTERMS(:,1,151) = -TPK%K150(:)*PCONC(:,1)*TPK%RO29(:)
+!PTERMS(NO2,K078) = +0.40*K078*<PAN>*<NO3>
+ PTERMS(:,4,78) = +0.40*TPK%K078(:)*PCONC(:,27)*PCONC(:,5)
!
-!PTERMS(NO2,K150) = +TPK%CF6*K150*<NO>*<RO29>
- PTERMS(:,2,151) = +TPK%CF6*TPK%K150(:)*PCONC(:,1)*TPK%RO29(:)
+!PTERMS(NO3,K078) = -K078*<PAN>*<NO3>
+ PTERMS(:,5,78) = -TPK%K078(:)*PCONC(:,27)*PCONC(:,5)
!
-!PTERMS(HO2,K150) = +TPK%CF6*K150*<NO>*<RO29>
- PTERMS(:,10,151) = +TPK%CF6*TPK%K150(:)*PCONC(:,1)*TPK%RO29(:)
+!PTERMS(HCHO,K078) = +0.40*K078*<PAN>*<NO3>
+ PTERMS(:,22,78) = +0.40*TPK%K078(:)*PCONC(:,27)*PCONC(:,5)
!
-!PTERMS(OLEL,K150) = +TPK%CF5*K150*<NO>*<RO29>
- PTERMS(:,17,151) = +TPK%CF5*TPK%K150(:)*PCONC(:,1)*TPK%RO29(:)
+!PTERMS(ONIT,K078) = +0.60*K078*<PAN>*<NO3>
+ PTERMS(:,26,78) = +0.60*TPK%K078(:)*PCONC(:,27)*PCONC(:,5)
!
-!PTERMS(HCHO,K150) = +TPK%CF6*K150*<NO>*<RO29>
- PTERMS(:,28,151) = +TPK%CF6*TPK%K150(:)*PCONC(:,1)*TPK%RO29(:)
+!PTERMS(PAN,K078) = -K078*<PAN>*<NO3>
+ PTERMS(:,27,78) = -TPK%K078(:)*PCONC(:,27)*PCONC(:,5)
!
-!PTERMS(MVK,K150) = +TPK%CF6*K150*<NO>*<RO29>
- PTERMS(:,39,151) = +TPK%CF6*TPK%K150(:)*PCONC(:,1)*TPK%RO29(:)
+!PTERMS(XO2,K078) = +K078*<PAN>*<NO3>
+ PTERMS(:,41,78) = +TPK%K078(:)*PCONC(:,27)*PCONC(:,5)
!
-!PTERMS(HO2,K151) = +K151*<RO2T>*<RO29>
- PTERMS(:,10,152) = +TPK%K151(:)*PCONC(:,85)*TPK%RO29(:)
+!PTERMS(O3,K079) = -K079*<ALKE>*<O3>
+ PTERMS(:,1,79) = -TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(HCHO,K151) = +K151*<RO2T>*<RO29>
- PTERMS(:,28,152) = +TPK%K151(:)*PCONC(:,85)*TPK%RO29(:)
+!PTERMS(H2O2,K079) = +0.01833*K079*<ALKE>*<O3>
+ PTERMS(:,2,79) = +0.01833*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(MVK,K151) = +K151*<RO2T>*<RO29>
- PTERMS(:,39,152) = +TPK%K151(:)*PCONC(:,85)*TPK%RO29(:)
+!PTERMS(CO,K079) = +0.35120*K079*<ALKE>*<O3>
+ PTERMS(:,13,79) = +0.35120*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(RO2T,K151) = -K151*<RO2T>*<RO29>
- PTERMS(:,85,152) = -TPK%K151(:)*PCONC(:,85)*TPK%RO29(:)
+!PTERMS(OH,K079) = +0.39435*K079*<ALKE>*<O3>
+ PTERMS(:,14,79) = +0.39435*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(HO2,K152) = -K152*<HO2>*<RO29>
- PTERMS(:,10,153) = -TPK%K152(:)*PCONC(:,10)*TPK%RO29(:)
+!PTERMS(HO2,K079) = +0.23451*K079*<ALKE>*<O3>
+ PTERMS(:,15,79) = +0.23451*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(OH,K152) = +K152*<HO2>*<RO29>
- PTERMS(:,15,153) = +TPK%K152(:)*PCONC(:,10)*TPK%RO29(:)
+!PTERMS(CH4,K079) = +0.04300*K079*<ALKE>*<O3>
+ PTERMS(:,16,79) = +0.04300*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(HCHO,K152) = +K152*<HO2>*<RO29>
- PTERMS(:,28,153) = +TPK%K152(:)*PCONC(:,10)*TPK%RO29(:)
+!PTERMS(ETH,K079) = +0.03196*K079*<ALKE>*<O3>
+ PTERMS(:,17,79) = +0.03196*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(MVK,K152) = +K152*<HO2>*<RO29>
- PTERMS(:,39,153) = +TPK%K152(:)*PCONC(:,10)*TPK%RO29(:)
+!PTERMS(ALKE,K079) = -K079*<ALKE>*<O3>
+ PTERMS(:,19,79) = -TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(NO,K153) = -K153*<NO>*<RO210>
- PTERMS(:,1,154) = -TPK%K153(:)*PCONC(:,1)*TPK%RO210(:)
+!PTERMS(HCHO,K079) = +0.48290*K079*<ALKE>*<O3>
+ PTERMS(:,22,79) = +0.48290*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(NO2,K153) = +K153*<NO>*<RO210>
- PTERMS(:,2,154) = +TPK%K153(:)*PCONC(:,1)*TPK%RO210(:)
+!PTERMS(ALD,K079) = +0.51468*K079*<ALKE>*<O3>
+ PTERMS(:,23,79) = +0.51468*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(HO2,K153) = +K153*<NO>*<RO210>
- PTERMS(:,10,154) = +TPK%K153(:)*PCONC(:,1)*TPK%RO210(:)
+!PTERMS(KET,K079) = +0.07377*K079*<ALKE>*<O3>
+ PTERMS(:,24,79) = +0.07377*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(HCHO,K153) = +K153*<NO>*<RO210>
- PTERMS(:,28,154) = +TPK%K153(:)*PCONC(:,1)*TPK%RO210(:)
+!PTERMS(CARBO,K079) = +0.00000*K079*<ALKE>*<O3>
+ PTERMS(:,25,79) = +0.00000*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
!
RETURN
-END SUBROUTINE SUBT24
+END SUBROUTINE SUBT13
!
-SUBROUTINE SUBT25
+SUBROUTINE SUBT14
!
-!Indices 501 a 520
+!Indices 281 a 300
!
-!PTERMS(MCR,K153) = +K153*<NO>*<RO210>
- PTERMS(:,40,154) = +TPK%K153(:)*PCONC(:,1)*TPK%RO210(:)
+!PTERMS(ORA1,K079) = +0.15343*K079*<ALKE>*<O3>
+ PTERMS(:,30,79) = +0.15343*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(HO2,K154) = +K154*<RO2T>*<RO210>
- PTERMS(:,10,155) = +TPK%K154(:)*PCONC(:,85)*TPK%RO210(:)
+!PTERMS(ORA2,K079) = +0.08143*K079*<ALKE>*<O3>
+ PTERMS(:,31,79) = +0.08143*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(HCHO,K154) = +K154*<RO2T>*<RO210>
- PTERMS(:,28,155) = +TPK%K154(:)*PCONC(:,85)*TPK%RO210(:)
+!PTERMS(MO2,K079) = +0.13966*K079*<ALKE>*<O3>
+ PTERMS(:,32,79) = +0.13966*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(MCR,K154) = +K154*<RO2T>*<RO210>
- PTERMS(:,40,155) = +TPK%K154(:)*PCONC(:,85)*TPK%RO210(:)
+!PTERMS(ALKAP,K079) = +0.09815*K079*<ALKE>*<O3>
+ PTERMS(:,33,79) = +0.09815*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(RO2T,K154) = -K154*<RO2T>*<RO210>
- PTERMS(:,85,155) = -TPK%K154(:)*PCONC(:,85)*TPK%RO210(:)
+!PTERMS(CARBOP,K079) = +0.05705*K079*<ALKE>*<O3>
+ PTERMS(:,39,79) = +0.05705*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(HO2,K155) = -K155*<HO2>*<RO210>
- PTERMS(:,10,156) = -TPK%K155(:)*PCONC(:,10)*TPK%RO210(:)
+!PTERMS(XO2,K079) = +0.00000*K079*<ALKE>*<O3>
+ PTERMS(:,41,79) = +0.00000*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(OH,K155) = +K155*<HO2>*<RO210>
- PTERMS(:,15,156) = +TPK%K155(:)*PCONC(:,10)*TPK%RO210(:)
+!PTERMS(O3,K080) = -K080*<BIO>*<O3>
+ PTERMS(:,1,80) = -TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(HCHO,K155) = +K155*<HO2>*<RO210>
- PTERMS(:,28,156) = +TPK%K155(:)*PCONC(:,10)*TPK%RO210(:)
+!PTERMS(H2O2,K080) = +0.00100*K080*<BIO>*<O3>
+ PTERMS(:,2,80) = +0.00100*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(MCR,K155) = +K155*<HO2>*<RO210>
- PTERMS(:,40,156) = +TPK%K155(:)*PCONC(:,10)*TPK%RO210(:)
+!PTERMS(CO,K080) = +0.36000*K080*<BIO>*<O3>
+ PTERMS(:,13,80) = +0.36000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(NO,K156) = -K156*<NO>*<RO211>
- PTERMS(:,1,157) = -TPK%K156(:)*PCONC(:,1)*TPK%RO211(:)
+!PTERMS(OH,K080) = +0.28000*K080*<BIO>*<O3>
+ PTERMS(:,14,80) = +0.28000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(NO2,K156) = +2.*K156*<NO>*<RO211>
- PTERMS(:,2,157) = +2.*TPK%K156(:)*PCONC(:,1)*TPK%RO211(:)
+!PTERMS(HO2,K080) = +0.30000*K080*<BIO>*<O3>
+ PTERMS(:,15,80) = +0.30000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(HCHO,K156) = +K156*<NO>*<RO211>
- PTERMS(:,28,157) = +TPK%K156(:)*PCONC(:,1)*TPK%RO211(:)
+!PTERMS(ALKE,K080) = +0.37388*K080*<BIO>*<O3>
+ PTERMS(:,19,80) = +0.37388*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(MVK,K156) = +K156*<NO>*<RO211>
- PTERMS(:,39,157) = +TPK%K156(:)*PCONC(:,1)*TPK%RO211(:)
+!PTERMS(BIO,K080) = -K080*<BIO>*<O3>
+ PTERMS(:,20,80) = -TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(NO2,K157) = +K157*<RO2T>*<RO211>
- PTERMS(:,2,158) = +TPK%K157(:)*PCONC(:,85)*TPK%RO211(:)
+!PTERMS(HCHO,K080) = +0.90000*K080*<BIO>*<O3>
+ PTERMS(:,22,80) = +0.90000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(HCHO,K157) = +K157*<RO2T>*<RO211>
- PTERMS(:,28,158) = +TPK%K157(:)*PCONC(:,85)*TPK%RO211(:)
+!PTERMS(ALD,K080) = +0.00000*K080*<BIO>*<O3>
+ PTERMS(:,23,80) = +0.00000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(MVK,K157) = +K157*<RO2T>*<RO211>
- PTERMS(:,39,158) = +TPK%K157(:)*PCONC(:,85)*TPK%RO211(:)
+!PTERMS(KET,K080) = +0.00000*K080*<BIO>*<O3>
+ PTERMS(:,24,80) = +0.00000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(RO2T,K157) = -K157*<RO2T>*<RO211>
- PTERMS(:,85,158) = -TPK%K157(:)*PCONC(:,85)*TPK%RO211(:)
+!PTERMS(CARBO,K080) = +0.39754*K080*<BIO>*<O3>
+ PTERMS(:,25,80) = +0.39754*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(NO2,K158) = +K158*<HO2>*<RO211>
- PTERMS(:,2,159) = +TPK%K158(:)*PCONC(:,10)*TPK%RO211(:)
+!PTERMS(ORA1,K080) = +0.15000*K080*<BIO>*<O3>
+ PTERMS(:,30,80) = +0.15000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(HO2,K158) = -K158*<HO2>*<RO211>
- PTERMS(:,10,159) = -TPK%K158(:)*PCONC(:,10)*TPK%RO211(:)
+!PTERMS(ORA2,K080) = +0.00000*K080*<BIO>*<O3>
+ PTERMS(:,31,80) = +0.00000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(OH,K158) = +K158*<HO2>*<RO211>
- PTERMS(:,15,159) = +TPK%K158(:)*PCONC(:,10)*TPK%RO211(:)
+!PTERMS(MO2,K080) = +0.03000*K080*<BIO>*<O3>
+ PTERMS(:,32,80) = +0.03000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
!
RETURN
-END SUBROUTINE SUBT25
+END SUBROUTINE SUBT14
!
-SUBROUTINE SUBT26
+SUBROUTINE SUBT15
!
-!Indices 521 a 540
+!Indices 301 a 320
!
-!PTERMS(HCHO,K158) = +K158*<HO2>*<RO211>
- PTERMS(:,28,159) = +TPK%K158(:)*PCONC(:,10)*TPK%RO211(:)
+!PTERMS(ALKAP,K080) = +0.00000*K080*<BIO>*<O3>
+ PTERMS(:,33,80) = +0.00000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(MVK,K158) = +K158*<HO2>*<RO211>
- PTERMS(:,39,159) = +TPK%K158(:)*PCONC(:,10)*TPK%RO211(:)
+!PTERMS(CARBOP,K080) = +0.17000*K080*<BIO>*<O3>
+ PTERMS(:,39,80) = +0.17000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(NO,K159) = -K159*<NO>*<RO212>
- PTERMS(:,1,160) = -TPK%K159(:)*PCONC(:,1)*TPK%RO212(:)
+!PTERMS(XO2,K080) = +0.13000*K080*<BIO>*<O3>
+ PTERMS(:,41,80) = +0.13000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(NO2,K159) = +2.*K159*<NO>*<RO212>
- PTERMS(:,2,160) = +2.*TPK%K159(:)*PCONC(:,1)*TPK%RO212(:)
+!PTERMS(O3,K081) = -K081*<CARBO>*<O3>
+ PTERMS(:,1,81) = -TPK%K081(:)*PCONC(:,25)*PCONC(:,1)
!
-!PTERMS(HCHO,K159) = +K159*<NO>*<RO212>
- PTERMS(:,28,160) = +TPK%K159(:)*PCONC(:,1)*TPK%RO212(:)
+!PTERMS(CO,K081) = +0.64728*K081*<CARBO>*<O3>
+ PTERMS(:,13,81) = +0.64728*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)
!
-!PTERMS(MCR,K159) = +K159*<NO>*<RO212>
- PTERMS(:,40,160) = +TPK%K159(:)*PCONC(:,1)*TPK%RO212(:)
+!PTERMS(OH,K081) = +0.20595*K081*<CARBO>*<O3>
+ PTERMS(:,14,81) = +0.20595*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)
!
-!PTERMS(NO2,K160) = +K160*<RO2T>*<RO212>
- PTERMS(:,2,161) = +TPK%K160(:)*PCONC(:,85)*TPK%RO212(:)
+!PTERMS(HO2,K081) = +0.28441*K081*<CARBO>*<O3>
+ PTERMS(:,15,81) = +0.28441*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)
!
-!PTERMS(HCHO,K160) = +K160*<RO2T>*<RO212>
- PTERMS(:,28,161) = +TPK%K160(:)*PCONC(:,85)*TPK%RO212(:)
+!PTERMS(HCHO,K081) = +0.00000*K081*<CARBO>*<O3>
+ PTERMS(:,22,81) = +0.00000*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)
!
-!PTERMS(MCR,K160) = +K160*<RO2T>*<RO212>
- PTERMS(:,40,161) = +TPK%K160(:)*PCONC(:,85)*TPK%RO212(:)
+!PTERMS(ALD,K081) = +0.15692*K081*<CARBO>*<O3>
+ PTERMS(:,23,81) = +0.15692*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)
!
-!PTERMS(RO2T,K160) = -K160*<RO2T>*<RO212>
- PTERMS(:,85,161) = -TPK%K160(:)*PCONC(:,85)*TPK%RO212(:)
+!PTERMS(CARBO,K081) = -K081*<CARBO>*<O3>
+ PTERMS(:,25,81) = -TPK%K081(:)*PCONC(:,25)*PCONC(:,1)
!
-!PTERMS(NO2,K161) = +K161*<HO2>*<RO212>
- PTERMS(:,2,162) = +TPK%K161(:)*PCONC(:,10)*TPK%RO212(:)
+!PTERMS(OP2,K081) = +0.10149*K081*<CARBO>*<O3>
+ PTERMS(:,29,81) = +0.10149*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)
!
-!PTERMS(HO2,K161) = -K161*<HO2>*<RO212>
- PTERMS(:,10,162) = -TPK%K161(:)*PCONC(:,10)*TPK%RO212(:)
+!PTERMS(ORA1,K081) = +0.10788*K081*<CARBO>*<O3>
+ PTERMS(:,30,81) = +0.10788*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)
!
-!PTERMS(OH,K161) = +K161*<HO2>*<RO212>
- PTERMS(:,15,162) = +TPK%K161(:)*PCONC(:,10)*TPK%RO212(:)
+!PTERMS(ORA2,K081) = +0.20595*K081*<CARBO>*<O3>
+ PTERMS(:,31,81) = +0.20595*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)
!
-!PTERMS(HCHO,K161) = +K161*<HO2>*<RO212>
- PTERMS(:,28,162) = +TPK%K161(:)*PCONC(:,10)*TPK%RO212(:)
+!PTERMS(CARBOP,K081) = +0.27460*K081*<CARBO>*<O3>
+ PTERMS(:,39,81) = +0.27460*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)
!
-!PTERMS(MCR,K161) = +K161*<HO2>*<RO212>
- PTERMS(:,40,162) = +TPK%K161(:)*PCONC(:,10)*TPK%RO212(:)
+!PTERMS(O3,K082) = -K082*<PAN>*<O3>
+ PTERMS(:,1,82) = -TPK%K082(:)*PCONC(:,27)*PCONC(:,1)
!
-!PTERMS(NO,K162) = -K162*<NO>*<RO213>
- PTERMS(:,1,163) = -TPK%K162(:)*PCONC(:,1)*TPK%RO213(:)
+!PTERMS(NO2,K082) = +0.70*K082*<PAN>*<O3>
+ PTERMS(:,4,82) = +0.70*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)
!
-!PTERMS(NO2,K162) = +K162*<NO>*<RO213>
- PTERMS(:,2,163) = +TPK%K162(:)*PCONC(:,1)*TPK%RO213(:)
+!PTERMS(CO,K082) = +0.13*K082*<PAN>*<O3>
+ PTERMS(:,13,82) = +0.13*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)
!
-!PTERMS(HCHO,K162) = +K162*<NO>*<RO213>
- PTERMS(:,28,163) = +TPK%K162(:)*PCONC(:,1)*TPK%RO213(:)
+!PTERMS(OH,K082) = +0.036*K082*<PAN>*<O3>
+ PTERMS(:,14,82) = +0.036*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)
!
-!PTERMS(RO2T,K162) = +K162*<NO>*<RO213>
- PTERMS(:,85,163) = +TPK%K162(:)*PCONC(:,1)*TPK%RO213(:)
+!PTERMS(HO2,K082) = +0.08*K082*<PAN>*<O3>
+ PTERMS(:,15,82) = +0.08*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)
!
-!PTERMS(HCHO,K163) = +K163*<RO2T>*<RO213>
- PTERMS(:,28,164) = +TPK%K163(:)*PCONC(:,85)*TPK%RO213(:)
+!PTERMS(HCHO,K082) = +0.70*K082*<PAN>*<O3>
+ PTERMS(:,22,82) = +0.70*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)
!
!
RETURN
-END SUBROUTINE SUBT26
+END SUBROUTINE SUBT15
!
-SUBROUTINE SUBT27
+SUBROUTINE SUBT16
!
-!Indices 541 a 560
+!Indices 321 a 340
!
-!PTERMS(RO2T,K163) = -K163*<RO2T>*<RO213>
- PTERMS(:,85,164) = -TPK%K163(:)*PCONC(:,85)*TPK%RO213(:)
+!PTERMS(PAN,K082) = -K082*<PAN>*<O3>
+ PTERMS(:,27,82) = -TPK%K082(:)*PCONC(:,27)*PCONC(:,1)
!
-!PTERMS(HO2,K164) = -K164*<HO2>*<RO213>
- PTERMS(:,10,165) = -TPK%K164(:)*PCONC(:,10)*TPK%RO213(:)
+!PTERMS(ORA1,K082) = +0.11*K082*<PAN>*<O3>
+ PTERMS(:,30,82) = +0.11*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)
!
-!PTERMS(OH,K164) = +K164*<HO2>*<RO213>
- PTERMS(:,15,165) = +TPK%K164(:)*PCONC(:,10)*TPK%RO213(:)
+!PTERMS(CARBOP,K082) = +0.70000*K082*<PAN>*<O3>
+ PTERMS(:,39,82) = +0.70000*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)
!
-!PTERMS(HCHO,K164) = +K164*<HO2>*<RO213>
- PTERMS(:,28,165) = +TPK%K164(:)*PCONC(:,10)*TPK%RO213(:)
+!PTERMS(NO2,K083) = -K083*<PHO>*<NO2>
+ PTERMS(:,4,83) = -TPK%K083(:)*PCONC(:,36)*PCONC(:,4)
!
-!PTERMS(RO2T,K164) = +K164*<HO2>*<RO213>
- PTERMS(:,85,165) = +TPK%K164(:)*PCONC(:,10)*TPK%RO213(:)
+!PTERMS(ARO,K083) = +0.10670*K083*<PHO>*<NO2>
+ PTERMS(:,21,83) = +0.10670*TPK%K083(:)*PCONC(:,36)*PCONC(:,4)
!
-!PTERMS(NO,K165) = -K165*<NO>*<RO239>
- PTERMS(:,1,166) = -TPK%K165(:)*PCONC(:,1)*TPK%RO239(:)
+!PTERMS(ONIT,K083) = +K083*<PHO>*<NO2>
+ PTERMS(:,26,83) = +TPK%K083(:)*PCONC(:,36)*PCONC(:,4)
!
-!PTERMS(NO2,K165) = +K165*<NO>*<RO239>
- PTERMS(:,2,166) = +TPK%K165(:)*PCONC(:,1)*TPK%RO239(:)
+!PTERMS(PHO,K083) = -K083*<PHO>*<NO2>
+ PTERMS(:,36,83) = -TPK%K083(:)*PCONC(:,36)*PCONC(:,4)
!
-!PTERMS(RO2T,K165) = +K165*<NO>*<RO239>
- PTERMS(:,85,166) = +TPK%K165(:)*PCONC(:,1)*TPK%RO239(:)
+!PTERMS(HO2,K084) = -K084*<PHO>*<HO2>
+ PTERMS(:,15,84) = -TPK%K084(:)*PCONC(:,36)*PCONC(:,15)
!
-!PTERMS(O3,K166) = +K166*<HO2>*<RO239>
- PTERMS(:,3,167) = +TPK%K166(:)*PCONC(:,10)*TPK%RO239(:)
+!PTERMS(ARO,K084) = +1.06698*K084*<PHO>*<HO2>
+ PTERMS(:,21,84) = +1.06698*TPK%K084(:)*PCONC(:,36)*PCONC(:,15)
!
-!PTERMS(HO2,K166) = -K166*<HO2>*<RO239>
- PTERMS(:,10,167) = -TPK%K166(:)*PCONC(:,10)*TPK%RO239(:)
+!PTERMS(PHO,K084) = -K084*<PHO>*<HO2>
+ PTERMS(:,36,84) = -TPK%K084(:)*PCONC(:,36)*PCONC(:,15)
!
-!PTERMS(OLEL,K166) = +0.5*K166*<HO2>*<RO239>
- PTERMS(:,17,167) = +0.5*TPK%K166(:)*PCONC(:,10)*TPK%RO239(:)
+!PTERMS(NO2,K085) = -K085*<ADD>*<NO2>
+ PTERMS(:,4,85) = -TPK%K085(:)*PCONC(:,37)*PCONC(:,4)
!
-!PTERMS(ORA2,K166) = +0.5*K166*<HO2>*<RO239>
- PTERMS(:,44,167) = +0.5*TPK%K166(:)*PCONC(:,10)*TPK%RO239(:)
+!PTERMS(HONO,K085) = +K085*<ADD>*<NO2>
+ PTERMS(:,7,85) = +TPK%K085(:)*PCONC(:,37)*PCONC(:,4)
!
-!PTERMS(RO2T,K167) = -K167*<RO2T>*<RO239>
- PTERMS(:,85,168) = -TPK%K167(:)*PCONC(:,85)*TPK%RO239(:)
+!PTERMS(ARO,K085) = +K085*<ADD>*<NO2>
+ PTERMS(:,21,85) = +TPK%K085(:)*PCONC(:,37)*PCONC(:,4)
!
-!PTERMS(NO,K168) = -K168*<NO>*<RO214>
- PTERMS(:,1,169) = -TPK%K168(:)*PCONC(:,1)*TPK%RO214(:)
+!PTERMS(ADD,K085) = -K085*<ADD>*<NO2>
+ PTERMS(:,37,85) = -TPK%K085(:)*PCONC(:,37)*PCONC(:,4)
!
-!PTERMS(NO2,K168) = +TPK%CF8*K168*<NO>*<RO214>
- PTERMS(:,2,169) = +TPK%CF8*TPK%K168(:)*PCONC(:,1)*TPK%RO214(:)
+!PTERMS(HO2,K086) = +0.02*K086*<ADD>*<O2>
+ PTERMS(:,15,86) = +0.02*TPK%K086(:)*PCONC(:,37)*TPK%O2(:)
!
-!PTERMS(OLEL,K168) = +TPK%CF7*K168*<NO>*<RO214>
- PTERMS(:,17,169) = +TPK%CF7*TPK%K168(:)*PCONC(:,1)*TPK%RO214(:)
+!PTERMS(ARO,K086) = +0.02*K086*<ADD>*<O2>
+ PTERMS(:,21,86) = +0.02*TPK%K086(:)*PCONC(:,37)*TPK%O2(:)
!
-!PTERMS(RO2T,K168) = +TPK%CF8*K168*<NO>*<RO214>
- PTERMS(:,85,169) = +TPK%CF8*TPK%K168(:)*PCONC(:,1)*TPK%RO214(:)
+!PTERMS(ADD,K086) = -K086*<ADD>*<O2>
+ PTERMS(:,37,86) = -TPK%K086(:)*PCONC(:,37)*TPK%O2(:)
!
-!PTERMS(RO2T,K169) = -K169*<RO2T>*<RO214>
- PTERMS(:,85,170) = -TPK%K169(:)*PCONC(:,85)*TPK%RO214(:)
+!PTERMS(AROP,K086) = +0.98*K086*<ADD>*<O2>
+ PTERMS(:,38,86) = +0.98*TPK%K086(:)*PCONC(:,37)*TPK%O2(:)
!
-!PTERMS(HO2,K170) = -K170*<HO2>*<RO214>
- PTERMS(:,10,171) = -TPK%K170(:)*PCONC(:,10)*TPK%RO214(:)
+!PTERMS(O3,K087) = -K087*<ADD>*<O3>
+ PTERMS(:,1,87) = -TPK%K087(:)*PCONC(:,37)*PCONC(:,1)
!
-!PTERMS(OH,K170) = +K170*<HO2>*<RO214>
- PTERMS(:,15,171) = +TPK%K170(:)*PCONC(:,10)*TPK%RO214(:)
+!PTERMS(OH,K087) = +K087*<ADD>*<O3>
+ PTERMS(:,14,87) = +TPK%K087(:)*PCONC(:,37)*PCONC(:,1)
!
!
RETURN
-END SUBROUTINE SUBT27
+END SUBROUTINE SUBT16
!
-SUBROUTINE SUBT28
+SUBROUTINE SUBT17
!
-!Indices 561 a 580
+!Indices 341 a 360
!
-!PTERMS(RO2T,K170) = +K170*<HO2>*<RO214>
- PTERMS(:,85,171) = +TPK%K170(:)*PCONC(:,10)*TPK%RO214(:)
+!PTERMS(ARO,K087) = +K087*<ADD>*<O3>
+ PTERMS(:,21,87) = +TPK%K087(:)*PCONC(:,37)*PCONC(:,1)
!
-!PTERMS(NO,K171) = -K171*<NO>*<RO215>
- PTERMS(:,1,172) = -TPK%K171(:)*PCONC(:,1)*TPK%RO215(:)
+!PTERMS(ADD,K087) = -K087*<ADD>*<O3>
+ PTERMS(:,37,87) = -TPK%K087(:)*PCONC(:,37)*PCONC(:,1)
!
-!PTERMS(NO2,K171) = +K171*<NO>*<RO215>
- PTERMS(:,2,172) = +TPK%K171(:)*PCONC(:,1)*TPK%RO215(:)
+!PTERMS(NO2,K088) = -K088*<CARBOP>*<NO2>
+ PTERMS(:,4,88) = -TPK%K088(:)*PCONC(:,39)*PCONC(:,4)
!
-!PTERMS(HO2,K171) = +K171*<NO>*<RO215>
- PTERMS(:,10,172) = +TPK%K171(:)*PCONC(:,1)*TPK%RO215(:)
+!PTERMS(PAN,K088) = +1.00000*K088*<CARBOP>*<NO2>
+ PTERMS(:,27,88) = +1.00000*TPK%K088(:)*PCONC(:,39)*PCONC(:,4)
!
-!PTERMS(ALKL,K171) = +TPK%CF12*K171*<NO>*<RO215>
- PTERMS(:,19,172) = +TPK%CF12*TPK%K171(:)*PCONC(:,1)*TPK%RO215(:)
+!PTERMS(CARBOP,K088) = -K088*<CARBOP>*<NO2>
+ PTERMS(:,39,88) = -TPK%K088(:)*PCONC(:,39)*PCONC(:,4)
!
-!PTERMS(HCHO,K171) = +TPK%CF10*K171*<NO>*<RO215>
- PTERMS(:,28,172) = +TPK%CF10*TPK%K171(:)*PCONC(:,1)*TPK%RO215(:)
+!PTERMS(NO2,K089) = +K089*<PAN>
+ PTERMS(:,4,89) = +TPK%K089(:)*PCONC(:,27)
!
-!PTERMS(ALD2,K171) = +TPK%CF9*K171*<NO>*<RO215>
- PTERMS(:,29,172) = +TPK%CF9*TPK%K171(:)*PCONC(:,1)*TPK%RO215(:)
+!PTERMS(PAN,K089) = -K089*<PAN>
+ PTERMS(:,27,89) = -TPK%K089(:)*PCONC(:,27)
!
-!PTERMS(KETL,K171) = +TPK%CF11*K171*<NO>*<RO215>
- PTERMS(:,30,172) = +TPK%CF11*TPK%K171(:)*PCONC(:,1)*TPK%RO215(:)
+!PTERMS(CARBOP,K089) = +1.00000*K089*<PAN>
+ PTERMS(:,39,89) = +1.00000*TPK%K089(:)*PCONC(:,27)
!
-!PTERMS(HO2,K172) = +K172*<RO2T>*<RO215>
- PTERMS(:,10,173) = +TPK%K172(:)*PCONC(:,85)*TPK%RO215(:)
+!PTERMS(NO,K090) = -K090*<MO2>*<NO>
+ PTERMS(:,3,90) = -TPK%K090(:)*PCONC(:,32)*PCONC(:,3)
!
-!PTERMS(ALKL,K172) = +TPK%CF16*K172*<RO2T>*<RO215>
- PTERMS(:,19,173) = +TPK%CF16*TPK%K172(:)*PCONC(:,85)*TPK%RO215(:)
+!PTERMS(NO2,K090) = +K090*<MO2>*<NO>
+ PTERMS(:,4,90) = +TPK%K090(:)*PCONC(:,32)*PCONC(:,3)
!
-!PTERMS(HCHO,K172) = +TPK%CF14*K172*<RO2T>*<RO215>
- PTERMS(:,28,173) = +TPK%CF14*TPK%K172(:)*PCONC(:,85)*TPK%RO215(:)
+!PTERMS(HO2,K090) = +K090*<MO2>*<NO>
+ PTERMS(:,15,90) = +TPK%K090(:)*PCONC(:,32)*PCONC(:,3)
!
-!PTERMS(ALD2,K172) = +TPK%CF13*K172*<RO2T>*<RO215>
- PTERMS(:,29,173) = +TPK%CF13*TPK%K172(:)*PCONC(:,85)*TPK%RO215(:)
+!PTERMS(HCHO,K090) = +K090*<MO2>*<NO>
+ PTERMS(:,22,90) = +TPK%K090(:)*PCONC(:,32)*PCONC(:,3)
!
-!PTERMS(KETL,K172) = +TPK%CF15*K172*<RO2T>*<RO215>
- PTERMS(:,30,173) = +TPK%CF15*TPK%K172(:)*PCONC(:,85)*TPK%RO215(:)
+!PTERMS(MO2,K090) = -K090*<MO2>*<NO>
+ PTERMS(:,32,90) = -TPK%K090(:)*PCONC(:,32)*PCONC(:,3)
!
-!PTERMS(RO2T,K172) = -K172*<RO2T>*<RO215>
- PTERMS(:,85,173) = -TPK%K172(:)*PCONC(:,85)*TPK%RO215(:)
+!PTERMS(NO,K091) = -K091*<ALKAP>*<NO>
+ PTERMS(:,3,91) = -TPK%K091(:)*PCONC(:,33)*PCONC(:,3)
!
-!PTERMS(HO2,K173) = -K173*<HO2>*<RO215>
- PTERMS(:,10,174) = -TPK%K173(:)*PCONC(:,10)*TPK%RO215(:)
+!PTERMS(NO2,K091) = +0.91541*K091*<ALKAP>*<NO>
+ PTERMS(:,4,91) = +0.91541*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)
!
-!PTERMS(OH,K173) = +K173*<HO2>*<RO215>
- PTERMS(:,15,174) = +TPK%K173(:)*PCONC(:,10)*TPK%RO215(:)
+!PTERMS(HO2,K091) = +0.74265*K091*<ALKAP>*<NO>
+ PTERMS(:,15,91) = +0.74265*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)
!
-!PTERMS(ALKL,K173) = +TPK%CF16*K173*<HO2>*<RO215>
- PTERMS(:,19,174) = +TPK%CF16*TPK%K173(:)*PCONC(:,10)*TPK%RO215(:)
+!PTERMS(HCHO,K091) = +0.03002*K091*<ALKAP>*<NO>
+ PTERMS(:,22,91) = +0.03002*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)
!
-!PTERMS(HCHO,K173) = +TPK%CF14*K173*<HO2>*<RO215>
- PTERMS(:,28,174) = +TPK%CF14*TPK%K173(:)*PCONC(:,10)*TPK%RO215(:)
+!PTERMS(ALD,K091) = +0.33144*K091*<ALKAP>*<NO>
+ PTERMS(:,23,91) = +0.33144*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)
!
-!PTERMS(ALD2,K173) = +TPK%CF13*K173*<HO2>*<RO215>
- PTERMS(:,29,174) = +TPK%CF13*TPK%K173(:)*PCONC(:,10)*TPK%RO215(:)
+!PTERMS(KET,K091) = +0.54531*K091*<ALKAP>*<NO>
+ PTERMS(:,24,91) = +0.54531*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)
!
-!PTERMS(KETL,K173) = +TPK%CF15*K173*<HO2>*<RO215>
- PTERMS(:,30,174) = +TPK%CF15*TPK%K173(:)*PCONC(:,10)*TPK%RO215(:)
+!PTERMS(CARBO,K091) = +0.03407*K091*<ALKAP>*<NO>
+ PTERMS(:,25,91) = +0.03407*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)
!
!
RETURN
-END SUBROUTINE SUBT28
+END SUBROUTINE SUBT17
!
-SUBROUTINE SUBT29
+SUBROUTINE SUBT18
!
-!Indices 581 a 600
+!Indices 361 a 380
!
-!PTERMS(NO,K174) = -K174*<NO>*<RO216>
- PTERMS(:,1,175) = -TPK%K174(:)*PCONC(:,1)*TPK%RO216(:)
+!PTERMS(ONIT,K091) = +0.08459*K091*<ALKAP>*<NO>
+ PTERMS(:,26,91) = +0.08459*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)
!
-!PTERMS(NO2,K174) = +K174*<NO>*<RO216>
- PTERMS(:,2,175) = +TPK%K174(:)*PCONC(:,1)*TPK%RO216(:)
+!PTERMS(MO2,K091) = +0.09016*K091*<ALKAP>*<NO>
+ PTERMS(:,32,91) = +0.09016*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)
!
-!PTERMS(ALD2,K174) = +K174*<NO>*<RO216>
- PTERMS(:,29,175) = +TPK%K174(:)*PCONC(:,1)*TPK%RO216(:)
+!PTERMS(ALKAP,K091) = -K091*<ALKAP>*<NO>
+ PTERMS(:,33,91) = -TPK%K091(:)*PCONC(:,33)*PCONC(:,3)
!
-!PTERMS(RO2T,K174) = +K174*<NO>*<RO216>
- PTERMS(:,85,175) = +TPK%K174(:)*PCONC(:,1)*TPK%RO216(:)
+!PTERMS(XO2,K091) = +0.13007*K091*<ALKAP>*<NO>
+ PTERMS(:,41,91) = +0.13007*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)
!
-!PTERMS(ALD2,K175) = +K175*<RO2T>*<RO216>
- PTERMS(:,29,176) = +TPK%K175(:)*PCONC(:,85)*TPK%RO216(:)
+!PTERMS(NO,K092) = -K092*<ALKEP>*<NO>
+ PTERMS(:,3,92) = -TPK%K092(:)*PCONC(:,34)*PCONC(:,3)
!
-!PTERMS(RO2T,K175) = -K175*<RO2T>*<RO216>
- PTERMS(:,85,176) = -TPK%K175(:)*PCONC(:,85)*TPK%RO216(:)
+!PTERMS(NO2,K092) = +K092*<ALKEP>*<NO>
+ PTERMS(:,4,92) = +TPK%K092(:)*PCONC(:,34)*PCONC(:,3)
!
-!PTERMS(HO2,K176) = -K176*<HO2>*<RO216>
- PTERMS(:,10,177) = -TPK%K176(:)*PCONC(:,10)*TPK%RO216(:)
+!PTERMS(HO2,K092) = +K092*<ALKEP>*<NO>
+ PTERMS(:,15,92) = +TPK%K092(:)*PCONC(:,34)*PCONC(:,3)
!
-!PTERMS(OH,K176) = +K176*<HO2>*<RO216>
- PTERMS(:,15,177) = +TPK%K176(:)*PCONC(:,10)*TPK%RO216(:)
+!PTERMS(HCHO,K092) = +1.39870*K092*<ALKEP>*<NO>
+ PTERMS(:,22,92) = +1.39870*TPK%K092(:)*PCONC(:,34)*PCONC(:,3)
!
-!PTERMS(ALD2,K176) = +K176*<HO2>*<RO216>
- PTERMS(:,29,177) = +TPK%K176(:)*PCONC(:,10)*TPK%RO216(:)
+!PTERMS(ALD,K092) = +0.42125*K092*<ALKEP>*<NO>
+ PTERMS(:,23,92) = +0.42125*TPK%K092(:)*PCONC(:,34)*PCONC(:,3)
!
-!PTERMS(RO2T,K176) = +K176*<HO2>*<RO216>
- PTERMS(:,85,177) = +TPK%K176(:)*PCONC(:,10)*TPK%RO216(:)
+!PTERMS(KET,K092) = +0.05220*K092*<ALKEP>*<NO>
+ PTERMS(:,24,92) = +0.05220*TPK%K092(:)*PCONC(:,34)*PCONC(:,3)
!
-!PTERMS(NO,K177) = -K177*<NO>*<RO217>
- PTERMS(:,1,178) = -TPK%K177(:)*PCONC(:,1)*TPK%RO217(:)
+!PTERMS(ALKEP,K092) = -K092*<ALKEP>*<NO>
+ PTERMS(:,34,92) = -TPK%K092(:)*PCONC(:,34)*PCONC(:,3)
!
-!PTERMS(NO2,K177) = +TPK%CF22*K177*<NO>*<RO217>
- PTERMS(:,2,178) = +TPK%CF22*TPK%K177(:)*PCONC(:,1)*TPK%RO217(:)
+!PTERMS(NO,K093) = -K093*<BIOP>*<NO>
+ PTERMS(:,3,93) = -TPK%K093(:)*PCONC(:,35)*PCONC(:,3)
!
-!PTERMS(HO2,K177) = +TPK%CF22*K177*<NO>*<RO217>
- PTERMS(:,10,178) = +TPK%CF22*TPK%K177(:)*PCONC(:,1)*TPK%RO217(:)
+!PTERMS(NO2,K093) = +0.84700*K093*<BIOP>*<NO>
+ PTERMS(:,4,93) = +0.84700*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)
!
-!PTERMS(URG6,K177) = +TPK%CF21*K177*<NO>*<RO217>
- PTERMS(:,58,178) = +TPK%CF21*TPK%K177(:)*PCONC(:,1)*TPK%RO217(:)
+!PTERMS(HO2,K093) = +0.84700*K093*<BIOP>*<NO>
+ PTERMS(:,15,93) = +0.84700*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)
!
-!PTERMS(RPRL,K177) = +TPK%CFA2*K177*<NO>*<RO217>
- PTERMS(:,75,178) = +TPK%CFA2*TPK%K177(:)*PCONC(:,1)*TPK%RO217(:)
+!PTERMS(ALKE,K093) = +0.37815*K093*<BIOP>*<NO>
+ PTERMS(:,19,93) = +0.37815*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)
!
-!PTERMS(HO2,K178) = +K178*<RO2T>*<RO217>
- PTERMS(:,10,179) = +TPK%K178(:)*PCONC(:,85)*TPK%RO217(:)
+!PTERMS(HCHO,K093) = +0.60600*K093*<BIOP>*<NO>
+ PTERMS(:,22,93) = +0.60600*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)
!
-!PTERMS(RPRL,K178) = +0.9983609*K178*<RO2T>*<RO217>
- PTERMS(:,75,179) = +0.9983609*TPK%K178(:)*PCONC(:,85)*TPK%RO217(:)
+!PTERMS(ALD,K093) = +0.00000*K093*<BIOP>*<NO>
+ PTERMS(:,23,93) = +0.00000*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)
!
-!PTERMS(RO2T,K178) = -K178*<RO2T>*<RO217>
- PTERMS(:,85,179) = -TPK%K178(:)*PCONC(:,85)*TPK%RO217(:)
+!PTERMS(KET,K093) = +0.00000*K093*<BIOP>*<NO>
+ PTERMS(:,24,93) = +0.00000*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)
!
-!PTERMS(HO2,K179) = -K179*<HO2>*<RO217>
- PTERMS(:,10,180) = -TPK%K179(:)*PCONC(:,10)*TPK%RO217(:)
+!PTERMS(CARBO,K093) = +0.45463*K093*<BIOP>*<NO>
+ PTERMS(:,25,93) = +0.45463*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)
!
-!PTERMS(OH,K179) = +K179*<HO2>*<RO217>
- PTERMS(:,15,180) = +TPK%K179(:)*PCONC(:,10)*TPK%RO217(:)
+!PTERMS(ONIT,K093) = +0.15300*K093*<BIOP>*<NO>
+ PTERMS(:,26,93) = +0.15300*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)
!
!
RETURN
-END SUBROUTINE SUBT29
+END SUBROUTINE SUBT18
!
-SUBROUTINE SUBT30
+SUBROUTINE SUBT19
!
-!Indices 601 a 620
+!Indices 381 a 400
!
-!PTERMS(RPRL,K179) = +0.9983609*K179*<HO2>*<RO217>
- PTERMS(:,75,180) = +0.9983609*TPK%K179(:)*PCONC(:,10)*TPK%RO217(:)
+!PTERMS(BIOP,K093) = -K093*<BIOP>*<NO>
+ PTERMS(:,35,93) = -TPK%K093(:)*PCONC(:,35)*PCONC(:,3)
!
-!PTERMS(NO,K180) = -K180*<NO>*<RO218>
- PTERMS(:,1,181) = -TPK%K180(:)*PCONC(:,1)*TPK%RO218(:)
+!PTERMS(NO,K094) = -K094*<AROP>*<NO>
+ PTERMS(:,3,94) = -TPK%K094(:)*PCONC(:,38)*PCONC(:,3)
!
-!PTERMS(NO2,K180) = +TPK%CF20*K180*<NO>*<RO218>
- PTERMS(:,2,181) = +TPK%CF20*TPK%K180(:)*PCONC(:,1)*TPK%RO218(:)
+!PTERMS(NO2,K094) = +0.95115*K094*<AROP>*<NO>
+ PTERMS(:,4,94) = +0.95115*TPK%K094(:)*PCONC(:,38)*PCONC(:,3)
!
-!PTERMS(HO2,K180) = +TPK%CF20*K180*<NO>*<RO218>
- PTERMS(:,10,181) = +TPK%CF20*TPK%K180(:)*PCONC(:,1)*TPK%RO218(:)
+!PTERMS(HO2,K094) = +0.95115*K094*<AROP>*<NO>
+ PTERMS(:,15,94) = +0.95115*TPK%K094(:)*PCONC(:,38)*PCONC(:,3)
!
-!PTERMS(HO2,K181) = +K181*<RO2T>*<RO218>
- PTERMS(:,10,182) = +TPK%K181(:)*PCONC(:,85)*TPK%RO218(:)
+!PTERMS(CARBO,K094) = +2.06993*K094*<AROP>*<NO>
+ PTERMS(:,25,94) = +2.06993*TPK%K094(:)*PCONC(:,38)*PCONC(:,3)
!
-!PTERMS(RO2T,K181) = -K181*<RO2T>*<RO218>
- PTERMS(:,85,182) = -TPK%K181(:)*PCONC(:,85)*TPK%RO218(:)
+!PTERMS(ONIT,K094) = +0.04885*K094*<AROP>*<NO>
+ PTERMS(:,26,94) = +0.04885*TPK%K094(:)*PCONC(:,38)*PCONC(:,3)
!
-!PTERMS(HO2,K182) = -K182*<HO2>*<RO218>
- PTERMS(:,10,183) = -TPK%K182(:)*PCONC(:,10)*TPK%RO218(:)
+!PTERMS(AROP,K094) = -K094*<AROP>*<NO>
+ PTERMS(:,38,94) = -TPK%K094(:)*PCONC(:,38)*PCONC(:,3)
!
-!PTERMS(OH,K182) = +K182*<HO2>*<RO218>
- PTERMS(:,15,183) = +TPK%K182(:)*PCONC(:,10)*TPK%RO218(:)
+!PTERMS(NO,K095) = -K095*<CARBOP>*<NO>
+ PTERMS(:,3,95) = -TPK%K095(:)*PCONC(:,39)*PCONC(:,3)
!
-!PTERMS(NO,K183) = -K183*<NO>*<RO219>
- PTERMS(:,1,184) = -TPK%K183(:)*PCONC(:,1)*TPK%RO219(:)
+!PTERMS(NO2,K095) = +K095*<CARBOP>*<NO>
+ PTERMS(:,4,95) = +TPK%K095(:)*PCONC(:,39)*PCONC(:,3)
!
-!PTERMS(NO2,K183) = +2.*K183*<NO>*<RO219>
- PTERMS(:,2,184) = +2.*TPK%K183(:)*PCONC(:,1)*TPK%RO219(:)
+!PTERMS(HO2,K095) = +0.12334*K095*<CARBOP>*<NO>
+ PTERMS(:,15,95) = +0.12334*TPK%K095(:)*PCONC(:,39)*PCONC(:,3)
!
-!PTERMS(HCHO,K183) = +K183*<NO>*<RO219>
- PTERMS(:,28,184) = +TPK%K183(:)*PCONC(:,1)*TPK%RO219(:)
+!PTERMS(HCHO,K095) = +0.05848*K095*<CARBOP>*<NO>
+ PTERMS(:,22,95) = +0.05848*TPK%K095(:)*PCONC(:,39)*PCONC(:,3)
!
-!PTERMS(RPR1,K183) = +K183*<NO>*<RO219>
- PTERMS(:,69,184) = +TPK%K183(:)*PCONC(:,1)*TPK%RO219(:)
+!PTERMS(ALD,K095) = +0.07368*K095*<CARBOP>*<NO>
+ PTERMS(:,23,95) = +0.07368*TPK%K095(:)*PCONC(:,39)*PCONC(:,3)
!
-!PTERMS(NO2,K184) = +K184*<RO2T>*<RO219>
- PTERMS(:,2,185) = +TPK%K184(:)*PCONC(:,85)*TPK%RO219(:)
+!PTERMS(CARBO,K095) = +0.08670*K095*<CARBOP>*<NO>
+ PTERMS(:,25,95) = +0.08670*TPK%K095(:)*PCONC(:,39)*PCONC(:,3)
!
-!PTERMS(HCHO,K184) = +K184*<RO2T>*<RO219>
- PTERMS(:,28,185) = +TPK%K184(:)*PCONC(:,85)*TPK%RO219(:)
+!PTERMS(MO2,K095) = +0.78134*K095*<CARBOP>*<NO>
+ PTERMS(:,32,95) = +0.78134*TPK%K095(:)*PCONC(:,39)*PCONC(:,3)
!
-!PTERMS(RPR1,K184) = +K184*<RO2T>*<RO219>
- PTERMS(:,69,185) = +TPK%K184(:)*PCONC(:,85)*TPK%RO219(:)
+!PTERMS(CARBOP,K095) = -K095*<CARBOP>*<NO>
+ PTERMS(:,39,95) = -TPK%K095(:)*PCONC(:,39)*PCONC(:,3)
!
-!PTERMS(RO2T,K184) = -K184*<RO2T>*<RO219>
- PTERMS(:,85,185) = -TPK%K184(:)*PCONC(:,85)*TPK%RO219(:)
+!PTERMS(XO2,K095) = +0.02563*K095*<CARBOP>*<NO>
+ PTERMS(:,41,95) = +0.02563*TPK%K095(:)*PCONC(:,39)*PCONC(:,3)
!
-!PTERMS(NO2,K185) = +K185*<HO2>*<RO219>
- PTERMS(:,2,186) = +TPK%K185(:)*PCONC(:,10)*TPK%RO219(:)
+!PTERMS(NO,K096) = -K096*<OLN>*<NO>
+ PTERMS(:,3,96) = -TPK%K096(:)*PCONC(:,40)*PCONC(:,3)
!
-!PTERMS(HO2,K185) = -K185*<HO2>*<RO219>
- PTERMS(:,10,186) = -TPK%K185(:)*PCONC(:,10)*TPK%RO219(:)
+!PTERMS(NO2,K096) = +1.81599*K096*<OLN>*<NO>
+ PTERMS(:,4,96) = +1.81599*TPK%K096(:)*PCONC(:,40)*PCONC(:,3)
!
-!PTERMS(OH,K185) = +K185*<HO2>*<RO219>
- PTERMS(:,15,186) = +TPK%K185(:)*PCONC(:,10)*TPK%RO219(:)
+!PTERMS(HO2,K096) = +0.18401*K096*<OLN>*<NO>
+ PTERMS(:,15,96) = +0.18401*TPK%K096(:)*PCONC(:,40)*PCONC(:,3)
!
-!PTERMS(HCHO,K185) = +K185*<HO2>*<RO219>
- PTERMS(:,28,186) = +TPK%K185(:)*PCONC(:,10)*TPK%RO219(:)
+!PTERMS(HCHO,K096) = +0.23419*K096*<OLN>*<NO>
+ PTERMS(:,22,96) = +0.23419*TPK%K096(:)*PCONC(:,40)*PCONC(:,3)
!
!
RETURN
-END SUBROUTINE SUBT30
+END SUBROUTINE SUBT19
!
-SUBROUTINE SUBT31
+SUBROUTINE SUBT20
!
-!Indices 621 a 640
+!Indices 401 a 420
!
-!PTERMS(RPR1,K185) = +K185*<HO2>*<RO219>
- PTERMS(:,69,186) = +TPK%K185(:)*PCONC(:,10)*TPK%RO219(:)
+!PTERMS(ALD,K096) = +1.01182*K096*<OLN>*<NO>
+ PTERMS(:,23,96) = +1.01182*TPK%K096(:)*PCONC(:,40)*PCONC(:,3)
!
-!PTERMS(NO,K186) = -K186*<NO>*<RO220>
- PTERMS(:,1,187) = -TPK%K186(:)*PCONC(:,1)*TPK%RO220(:)
+!PTERMS(KET,K096) = +0.37862*K096*<OLN>*<NO>
+ PTERMS(:,24,96) = +0.37862*TPK%K096(:)*PCONC(:,40)*PCONC(:,3)
!
-!PTERMS(NO2,K186) = +TPK%CF18*K186*<NO>*<RO220>
- PTERMS(:,2,187) = +TPK%CF18*TPK%K186(:)*PCONC(:,1)*TPK%RO220(:)
+!PTERMS(ONIT,K096) = +0.18401*K096*<OLN>*<NO>
+ PTERMS(:,26,96) = +0.18401*TPK%K096(:)*PCONC(:,40)*PCONC(:,3)
!
-!PTERMS(RO2T,K186) = +TPK%CF18*K186*<NO>*<RO220>
- PTERMS(:,85,187) = +TPK%CF18*TPK%K186(:)*PCONC(:,1)*TPK%RO220(:)
+!PTERMS(OLN,K096) = -K096*<OLN>*<NO>
+ PTERMS(:,40,96) = -TPK%K096(:)*PCONC(:,40)*PCONC(:,3)
!
-!PTERMS(RO2T,K187) = -K187*<RO2T>*<RO220>
- PTERMS(:,85,188) = -TPK%K187(:)*PCONC(:,85)*TPK%RO220(:)
+!PTERMS(HO2,K097) = -K097*<MO2>*<HO2>
+ PTERMS(:,15,97) = -TPK%K097(:)*PCONC(:,32)*PCONC(:,15)
!
-!PTERMS(HO2,K188) = -K188*<HO2>*<RO220>
- PTERMS(:,10,189) = -TPK%K188(:)*PCONC(:,10)*TPK%RO220(:)
+!PTERMS(OP1,K097) = +K097*<MO2>*<HO2>
+ PTERMS(:,28,97) = +TPK%K097(:)*PCONC(:,32)*PCONC(:,15)
!
-!PTERMS(OH,K188) = +K188*<HO2>*<RO220>
- PTERMS(:,15,189) = +TPK%K188(:)*PCONC(:,10)*TPK%RO220(:)
+!PTERMS(MO2,K097) = -K097*<MO2>*<HO2>
+ PTERMS(:,32,97) = -TPK%K097(:)*PCONC(:,32)*PCONC(:,15)
!
-!PTERMS(RO2T,K188) = +K188*<HO2>*<RO220>
- PTERMS(:,85,189) = +TPK%K188(:)*PCONC(:,10)*TPK%RO220(:)
+!PTERMS(HO2,K098) = -K098*<ALKAP>*<HO2>
+ PTERMS(:,15,98) = -TPK%K098(:)*PCONC(:,33)*PCONC(:,15)
!
-!PTERMS(NO,K189) = -K189*<NO>*<RO221>
- PTERMS(:,1,190) = -TPK%K189(:)*PCONC(:,1)*TPK%RO221(:)
+!PTERMS(OP2,K098) = +1.00524*K098*<ALKAP>*<HO2>
+ PTERMS(:,29,98) = +1.00524*TPK%K098(:)*PCONC(:,33)*PCONC(:,15)
!
-!PTERMS(NO2,K189) = +TPK%CF24*K189*<NO>*<RO221>
- PTERMS(:,2,190) = +TPK%CF24*TPK%K189(:)*PCONC(:,1)*TPK%RO221(:)
+!PTERMS(ALKAP,K098) = -K098*<ALKAP>*<HO2>
+ PTERMS(:,33,98) = -TPK%K098(:)*PCONC(:,33)*PCONC(:,15)
!
-!PTERMS(HO2,K189) = +TPK%CF24*K189*<NO>*<RO221>
- PTERMS(:,10,190) = +TPK%CF24*TPK%K189(:)*PCONC(:,1)*TPK%RO221(:)
+!PTERMS(HO2,K099) = -K099*<ALKEP>*<HO2>
+ PTERMS(:,15,99) = -TPK%K099(:)*PCONC(:,34)*PCONC(:,15)
!
-!PTERMS(ARAL,K189) = +TPK%CF24*K189*<NO>*<RO221>
- PTERMS(:,25,190) = +TPK%CF24*TPK%K189(:)*PCONC(:,1)*TPK%RO221(:)
+!PTERMS(OP2,K099) = +1.00524*K099*<ALKEP>*<HO2>
+ PTERMS(:,29,99) = +1.00524*TPK%K099(:)*PCONC(:,34)*PCONC(:,15)
!
-!PTERMS(HO2,K190) = +K190*<RO2T>*<RO221>
- PTERMS(:,10,191) = +TPK%K190(:)*PCONC(:,85)*TPK%RO221(:)
+!PTERMS(ALKEP,K099) = -K099*<ALKEP>*<HO2>
+ PTERMS(:,34,99) = -TPK%K099(:)*PCONC(:,34)*PCONC(:,15)
!
-!PTERMS(ARAL,K190) = +K190*<RO2T>*<RO221>
- PTERMS(:,25,191) = +TPK%K190(:)*PCONC(:,85)*TPK%RO221(:)
+!PTERMS(HO2,K0100) = -K0100*<BIOP>*<HO2>
+ PTERMS(:,15,100) = -TPK%K0100(:)*PCONC(:,35)*PCONC(:,15)
!
-!PTERMS(RO2T,K190) = -K190*<RO2T>*<RO221>
- PTERMS(:,85,191) = -TPK%K190(:)*PCONC(:,85)*TPK%RO221(:)
+!PTERMS(OP2,K0100) = +1.00524*K0100*<BIOP>*<HO2>
+ PTERMS(:,29,100) = +1.00524*TPK%K0100(:)*PCONC(:,35)*PCONC(:,15)
!
-!PTERMS(HO2,K191) = -K191*<HO2>*<RO221>
- PTERMS(:,10,192) = -TPK%K191(:)*PCONC(:,10)*TPK%RO221(:)
+!PTERMS(BIOP,K0100) = -K0100*<BIOP>*<HO2>
+ PTERMS(:,35,100) = -TPK%K0100(:)*PCONC(:,35)*PCONC(:,15)
!
-!PTERMS(OH,K191) = +K191*<HO2>*<RO221>
- PTERMS(:,15,192) = +TPK%K191(:)*PCONC(:,10)*TPK%RO221(:)
+!PTERMS(HO2,K0101) = -K0101*<AROP>*<HO2>
+ PTERMS(:,15,101) = -TPK%K0101(:)*PCONC(:,38)*PCONC(:,15)
!
-!PTERMS(ARAL,K191) = +K191*<HO2>*<RO221>
- PTERMS(:,25,192) = +TPK%K191(:)*PCONC(:,10)*TPK%RO221(:)
+!PTERMS(OP2,K0101) = +1.00524*K0101*<AROP>*<HO2>
+ PTERMS(:,29,101) = +1.00524*TPK%K0101(:)*PCONC(:,38)*PCONC(:,15)
!
-!PTERMS(NO,K192) = -K192*<NO>*<RO222>
- PTERMS(:,1,193) = -TPK%K192(:)*PCONC(:,1)*TPK%RO222(:)
+!PTERMS(AROP,K0101) = -K0101*<AROP>*<HO2>
+ PTERMS(:,38,101) = -TPK%K0101(:)*PCONC(:,38)*PCONC(:,15)
!
-!PTERMS(NO2,K192) = +TPK%CF42*K192*<NO>*<RO222>
- PTERMS(:,2,193) = +TPK%CF42*TPK%K192(:)*PCONC(:,1)*TPK%RO222(:)
+!PTERMS(O3,K0102) = +0.17307*K0102*<CARBOP>*<HO2>
+ PTERMS(:,1,102) = +0.17307*TPK%K0102(:)*PCONC(:,39)*PCONC(:,15)
!
!
RETURN
-END SUBROUTINE SUBT31
+END SUBROUTINE SUBT20
!
-SUBROUTINE SUBT32
+SUBROUTINE SUBT21
!
-!Indices 641 a 660
+!Indices 421 a 440
!
-!PTERMS(HO2,K192) = +TPK%CF42*K192*<NO>*<RO222>
- PTERMS(:,10,193) = +TPK%CF42*TPK%K192(:)*PCONC(:,1)*TPK%RO222(:)
+!PTERMS(HO2,K0102) = -K0102*<CARBOP>*<HO2>
+ PTERMS(:,15,102) = -TPK%K0102(:)*PCONC(:,39)*PCONC(:,15)
!
-!PTERMS(RPRL,K192) = +TPK%CFA7*K192*<NO>*<RO222>
- PTERMS(:,75,193) = +TPK%CFA7*TPK%K192(:)*PCONC(:,1)*TPK%RO222(:)
+!PTERMS(OP2,K0102) = +0.80904*K0102*<CARBOP>*<HO2>
+ PTERMS(:,29,102) = +0.80904*TPK%K0102(:)*PCONC(:,39)*PCONC(:,15)
!
-!PTERMS(HO2,K193) = +K193*<RO2T>*<RO222>
- PTERMS(:,10,194) = +TPK%K193(:)*PCONC(:,85)*TPK%RO222(:)
+!PTERMS(ORA2,K0102) = +0.17307*K0102*<CARBOP>*<HO2>
+ PTERMS(:,31,102) = +0.17307*TPK%K0102(:)*PCONC(:,39)*PCONC(:,15)
!
-!PTERMS(RPRL,K193) = +0.9983609*K193*<RO2T>*<RO222>
- PTERMS(:,75,194) = +0.9983609*TPK%K193(:)*PCONC(:,85)*TPK%RO222(:)
+!PTERMS(CARBOP,K0102) = -K0102*<CARBOP>*<HO2>
+ PTERMS(:,39,102) = -TPK%K0102(:)*PCONC(:,39)*PCONC(:,15)
!
-!PTERMS(RO2T,K193) = -K193*<RO2T>*<RO222>
- PTERMS(:,85,194) = -TPK%K193(:)*PCONC(:,85)*TPK%RO222(:)
+!PTERMS(HO2,K103) = -K103*<OLN>*<HO2>
+ PTERMS(:,15,103) = -TPK%K103(:)*PCONC(:,40)*PCONC(:,15)
!
-!PTERMS(HO2,K194) = -K194*<HO2>*<RO222>
- PTERMS(:,10,195) = -TPK%K194(:)*PCONC(:,10)*TPK%RO222(:)
+!PTERMS(ONIT,K103) = +K103*<OLN>*<HO2>
+ PTERMS(:,26,103) = +TPK%K103(:)*PCONC(:,40)*PCONC(:,15)
!
-!PTERMS(OH,K194) = +K194*<HO2>*<RO222>
- PTERMS(:,15,195) = +TPK%K194(:)*PCONC(:,10)*TPK%RO222(:)
+!PTERMS(OLN,K103) = -K103*<OLN>*<HO2>
+ PTERMS(:,40,103) = -TPK%K103(:)*PCONC(:,40)*PCONC(:,15)
!
-!PTERMS(RPRL,K194) = +0.9983609*K194*<HO2>*<RO222>
- PTERMS(:,75,195) = +0.9983609*TPK%K194(:)*PCONC(:,10)*TPK%RO222(:)
+!PTERMS(HO2,K104) = +0.66*K104*<MO2>*<MO2>
+ PTERMS(:,15,104) = +0.66*TPK%K104(:)*PCONC(:,32)*PCONC(:,32)
!
-!PTERMS(NO,K195) = -K195*<NO>*<RO223>
- PTERMS(:,1,196) = -TPK%K195(:)*PCONC(:,1)*TPK%RO223(:)
+!PTERMS(HCHO,K104) = +1.33*K104*<MO2>*<MO2>
+ PTERMS(:,22,104) = +1.33*TPK%K104(:)*PCONC(:,32)*PCONC(:,32)
!
-!PTERMS(NO2,K195) = +TPK%CF44*K195*<NO>*<RO223>
- PTERMS(:,2,196) = +TPK%CF44*TPK%K195(:)*PCONC(:,1)*TPK%RO223(:)
+!PTERMS(MO2,K104) = -K104*<MO2>*<MO2>
+ PTERMS(:,32,104) = -TPK%K104(:)*PCONC(:,32)*PCONC(:,32)
!
-!PTERMS(HO2,K195) = +TPK%CF44*K195*<NO>*<RO223>
- PTERMS(:,10,196) = +TPK%CF44*TPK%K195(:)*PCONC(:,1)*TPK%RO223(:)
+!PTERMS(HO2,K105) = +0.98383*K105*<ALKAP>*<MO2>
+ PTERMS(:,15,105) = +0.98383*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)
!
-!PTERMS(URG6,K195) = +TPK%CF43*K195*<NO>*<RO223>
- PTERMS(:,58,196) = +TPK%CF43*TPK%K195(:)*PCONC(:,1)*TPK%RO223(:)
+!PTERMS(HCHO,K105) = +0.80556*K105*<ALKAP>*<MO2>
+ PTERMS(:,22,105) = +0.80556*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)
!
-!PTERMS(RPR7,K195) = +TPK%CF44*K195*<NO>*<RO223>
- PTERMS(:,62,196) = +TPK%CF44*TPK%K195(:)*PCONC(:,1)*TPK%RO223(:)
+!PTERMS(ALD,K105) = +0.56070*K105*<ALKAP>*<MO2>
+ PTERMS(:,23,105) = +0.56070*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)
!
-!PTERMS(HO2,K196) = +K196*<RO2T>*<RO223>
- PTERMS(:,10,197) = +TPK%K196(:)*PCONC(:,85)*TPK%RO223(:)
+!PTERMS(KET,K105) = +0.09673*K105*<ALKAP>*<MO2>
+ PTERMS(:,24,105) = +0.09673*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)
!
-!PTERMS(RPR7,K196) = +K196*<RO2T>*<RO223>
- PTERMS(:,62,197) = +TPK%K196(:)*PCONC(:,85)*TPK%RO223(:)
+!PTERMS(CARBO,K105) = +0.07976*K105*<ALKAP>*<MO2>
+ PTERMS(:,25,105) = +0.07976*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)
!
-!PTERMS(RO2T,K196) = -K196*<RO2T>*<RO223>
- PTERMS(:,85,197) = -TPK%K196(:)*PCONC(:,85)*TPK%RO223(:)
+!PTERMS(MO2,K105) = -K105*<ALKAP>*<MO2>
+ PTERMS(:,32,105) = -TPK%K105(:)*PCONC(:,33)*PCONC(:,32)
!
-!PTERMS(HO2,K197) = -K197*<HO2>*<RO223>
- PTERMS(:,10,198) = -TPK%K197(:)*PCONC(:,10)*TPK%RO223(:)
+!PTERMS(ALKAP,K105) = -K105*<ALKAP>*<MO2>
+ PTERMS(:,33,105) = -TPK%K105(:)*PCONC(:,33)*PCONC(:,32)
!
-!PTERMS(OH,K197) = +K197*<HO2>*<RO223>
- PTERMS(:,15,198) = +TPK%K197(:)*PCONC(:,10)*TPK%RO223(:)
+!PTERMS(XO2,K105) = +0.13370*K105*<ALKAP>*<MO2>
+ PTERMS(:,41,105) = +0.13370*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)
!
-!PTERMS(RPR7,K197) = +K197*<HO2>*<RO223>
- PTERMS(:,62,198) = +TPK%K197(:)*PCONC(:,10)*TPK%RO223(:)
+!PTERMS(HO2,K106) = +K106*<ALKEP>*<MO2>
+ PTERMS(:,15,106) = +TPK%K106(:)*PCONC(:,34)*PCONC(:,32)
!
-!PTERMS(NO,K198) = -K198*<NO>*<RO224>
- PTERMS(:,1,199) = -TPK%K198(:)*PCONC(:,1)*TPK%RO224(:)
+!PTERMS(HCHO,K106) = +1.42894*K106*<ALKEP>*<MO2>
+ PTERMS(:,22,106) = +1.42894*TPK%K106(:)*PCONC(:,34)*PCONC(:,32)
!
!
RETURN
-END SUBROUTINE SUBT32
+END SUBROUTINE SUBT21
!
-SUBROUTINE SUBT33
+SUBROUTINE SUBT22
!
-!Indices 661 a 680
+!Indices 441 a 460
!
-!PTERMS(NO2,K198) = +TPK%CF26*K198*<NO>*<RO224>
- PTERMS(:,2,199) = +TPK%CF26*TPK%K198(:)*PCONC(:,1)*TPK%RO224(:)
+!PTERMS(ALD,K106) = +0.46413*K106*<ALKEP>*<MO2>
+ PTERMS(:,23,106) = +0.46413*TPK%K106(:)*PCONC(:,34)*PCONC(:,32)
!
-!PTERMS(HO2,K198) = +TPK%CF26*K198*<NO>*<RO224>
- PTERMS(:,10,199) = +TPK%CF26*TPK%K198(:)*PCONC(:,1)*TPK%RO224(:)
+!PTERMS(KET,K106) = +0.03814*K106*<ALKEP>*<MO2>
+ PTERMS(:,24,106) = +0.03814*TPK%K106(:)*PCONC(:,34)*PCONC(:,32)
!
-!PTERMS(RPR3,K198) = +TPK%CFA10*K198*<NO>*<RO224>
- PTERMS(:,57,199) = +TPK%CFA10*TPK%K198(:)*PCONC(:,1)*TPK%RO224(:)
+!PTERMS(MO2,K106) = -K106*<ALKEP>*<MO2>
+ PTERMS(:,32,106) = -TPK%K106(:)*PCONC(:,34)*PCONC(:,32)
!
-!PTERMS(AP7,K198) = +TPK%CFA23*K198*<NO>*<RO224>
- PTERMS(:,67,199) = +TPK%CFA23*TPK%K198(:)*PCONC(:,1)*TPK%RO224(:)
+!PTERMS(ALKEP,K106) = -K106*<ALKEP>*<MO2>
+ PTERMS(:,34,106) = -TPK%K106(:)*PCONC(:,34)*PCONC(:,32)
!
-!PTERMS(HO2,K199) = +K199*<RO2T>*<RO224>
- PTERMS(:,10,200) = +TPK%K199(:)*PCONC(:,85)*TPK%RO224(:)
+!PTERMS(HO2,K107) = +1.00000*K107*<BIOP>*<MO2>
+ PTERMS(:,15,107) = +1.00000*TPK%K107(:)*PCONC(:,35)*PCONC(:,32)
!
-!PTERMS(RPR3,K199) = +K199*<RO2T>*<RO224>
- PTERMS(:,57,200) = +TPK%K199(:)*PCONC(:,85)*TPK%RO224(:)
+!PTERMS(ALKE,K107) = +0.48074*K107*<BIOP>*<MO2>
+ PTERMS(:,19,107) = +0.48074*TPK%K107(:)*PCONC(:,35)*PCONC(:,32)
!
-!PTERMS(RO2T,K199) = -K199*<RO2T>*<RO224>
- PTERMS(:,85,200) = -TPK%K199(:)*PCONC(:,85)*TPK%RO224(:)
+!PTERMS(HCHO,K107) = +1.09000*K107*<BIOP>*<MO2>
+ PTERMS(:,22,107) = +1.09000*TPK%K107(:)*PCONC(:,35)*PCONC(:,32)
!
-!PTERMS(HO2,K200) = -K200*<HO2>*<RO224>
- PTERMS(:,10,201) = -TPK%K200(:)*PCONC(:,10)*TPK%RO224(:)
+!PTERMS(ALD,K107) = +0.00000*K107*<BIOP>*<MO2>
+ PTERMS(:,23,107) = +0.00000*TPK%K107(:)*PCONC(:,35)*PCONC(:,32)
!
-!PTERMS(OH,K200) = +K200*<HO2>*<RO224>
- PTERMS(:,15,201) = +TPK%K200(:)*PCONC(:,10)*TPK%RO224(:)
+!PTERMS(KET,K107) = +0.00000*K107*<BIOP>*<MO2>
+ PTERMS(:,24,107) = +0.00000*TPK%K107(:)*PCONC(:,35)*PCONC(:,32)
!
-!PTERMS(RPR3,K200) = +K200*<HO2>*<RO224>
- PTERMS(:,57,201) = +TPK%K200(:)*PCONC(:,10)*TPK%RO224(:)
+!PTERMS(CARBO,K107) = +0.56064*K107*<BIOP>*<MO2>
+ PTERMS(:,25,107) = +0.56064*TPK%K107(:)*PCONC(:,35)*PCONC(:,32)
!
-!PTERMS(NO,K201) = -K201*<NO>*<RO225>
- PTERMS(:,1,202) = -TPK%K201(:)*PCONC(:,1)*TPK%RO225(:)
+!PTERMS(MO2,K107) = -K107*<BIOP>*<MO2>
+ PTERMS(:,32,107) = -TPK%K107(:)*PCONC(:,35)*PCONC(:,32)
!
-!PTERMS(NO2,K201) = +2.*K201*<NO>*<RO225>
- PTERMS(:,2,202) = +2.*TPK%K201(:)*PCONC(:,1)*TPK%RO225(:)
+!PTERMS(BIOP,K107) = -K107*<BIOP>*<MO2>
+ PTERMS(:,35,107) = -TPK%K107(:)*PCONC(:,35)*PCONC(:,32)
!
-!PTERMS(RPR3,K201) = +K201*<NO>*<RO225>
- PTERMS(:,57,202) = +TPK%K201(:)*PCONC(:,1)*TPK%RO225(:)
+!PTERMS(HO2,K108) = +1.02767*K108*<AROP>*<MO2>
+ PTERMS(:,15,108) = +1.02767*TPK%K108(:)*PCONC(:,38)*PCONC(:,32)
!
-!PTERMS(NO2,K202) = +K202*<RO2T>*<RO225>
- PTERMS(:,2,203) = +TPK%K202(:)*PCONC(:,85)*TPK%RO225(:)
+!PTERMS(HCHO,K108) = +K108*<AROP>*<MO2>
+ PTERMS(:,22,108) = +TPK%K108(:)*PCONC(:,38)*PCONC(:,32)
!
-!PTERMS(RPR3,K202) = +K202*<RO2T>*<RO225>
- PTERMS(:,57,203) = +TPK%K202(:)*PCONC(:,85)*TPK%RO225(:)
+!PTERMS(CARBO,K108) = +1.99461*K108*<AROP>*<MO2>
+ PTERMS(:,25,108) = +1.99461*TPK%K108(:)*PCONC(:,38)*PCONC(:,32)
!
-!PTERMS(RO2T,K202) = -K202*<RO2T>*<RO225>
- PTERMS(:,85,203) = -TPK%K202(:)*PCONC(:,85)*TPK%RO225(:)
+!PTERMS(MO2,K108) = -K108*<AROP>*<MO2>
+ PTERMS(:,32,108) = -TPK%K108(:)*PCONC(:,38)*PCONC(:,32)
!
-!PTERMS(NO2,K203) = +K203*<HO2>*<RO225>
- PTERMS(:,2,204) = +TPK%K203(:)*PCONC(:,10)*TPK%RO225(:)
+!PTERMS(AROP,K108) = -K108*<AROP>*<MO2>
+ PTERMS(:,38,108) = -TPK%K108(:)*PCONC(:,38)*PCONC(:,32)
!
-!PTERMS(HO2,K203) = -K203*<HO2>*<RO225>
- PTERMS(:,10,204) = -TPK%K203(:)*PCONC(:,10)*TPK%RO225(:)
+!PTERMS(HO2,K109) = +0.82998*K109*<CARBOP>*<MO2>
+ PTERMS(:,15,109) = +0.82998*TPK%K109(:)*PCONC(:,39)*PCONC(:,32)
!
-!PTERMS(OH,K203) = +K203*<HO2>*<RO225>
- PTERMS(:,15,204) = +TPK%K203(:)*PCONC(:,10)*TPK%RO225(:)
+!PTERMS(HCHO,K109) = +0.95723*K109*<CARBOP>*<MO2>
+ PTERMS(:,22,109) = +0.95723*TPK%K109(:)*PCONC(:,39)*PCONC(:,32)
!
-!PTERMS(RPR3,K203) = +K203*<HO2>*<RO225>
- PTERMS(:,57,204) = +TPK%K203(:)*PCONC(:,10)*TPK%RO225(:)
+!PTERMS(ALD,K109) = +0.08295*K109*<CARBOP>*<MO2>
+ PTERMS(:,23,109) = +0.08295*TPK%K109(:)*PCONC(:,39)*PCONC(:,32)
!
!
RETURN
-END SUBROUTINE SUBT33
+END SUBROUTINE SUBT22
!
-SUBROUTINE SUBT34
+SUBROUTINE SUBT23
!
-!Indices 681 a 700
+!Indices 461 a 480
!
-!PTERMS(NO,K204) = -K204*<NO>*<RO226>
- PTERMS(:,1,205) = -TPK%K204(:)*PCONC(:,1)*TPK%RO226(:)
+!PTERMS(CARBO,K109) = +0.15387*K109*<CARBOP>*<MO2>
+ PTERMS(:,25,109) = +0.15387*TPK%K109(:)*PCONC(:,39)*PCONC(:,32)
!
-!PTERMS(NO2,K204) = +K204*<NO>*<RO226>
- PTERMS(:,2,205) = +TPK%K204(:)*PCONC(:,1)*TPK%RO226(:)
+!PTERMS(ORA2,K109) = +0.13684*K109*<CARBOP>*<MO2>
+ PTERMS(:,31,109) = +0.13684*TPK%K109(:)*PCONC(:,39)*PCONC(:,32)
!
-!PTERMS(UR17,K204) = +1.0000000*K204*<NO>*<RO226>
- PTERMS(:,55,205) = +1.0000000*TPK%K204(:)*PCONC(:,1)*TPK%RO226(:)
+!PTERMS(MO2,K109) = -K109*<CARBOP>*<MO2>
+ PTERMS(:,32,109) = -TPK%K109(:)*PCONC(:,39)*PCONC(:,32)
!
-!PTERMS(RO2T,K204) = +K204*<NO>*<RO226>
- PTERMS(:,85,205) = +TPK%K204(:)*PCONC(:,1)*TPK%RO226(:)
+!PTERMS(CARBOP,K109) = -K109*<CARBOP>*<MO2>
+ PTERMS(:,39,109) = -TPK%K109(:)*PCONC(:,39)*PCONC(:,32)
!
-!PTERMS(UR17,K205) = +1.0000000*K205*<RO2T>*<RO226>
- PTERMS(:,55,206) = +1.0000000*TPK%K205(:)*PCONC(:,85)*TPK%RO226(:)
+!PTERMS(XO2,K109) = +0.02212*K109*<CARBOP>*<MO2>
+ PTERMS(:,41,109) = +0.02212*TPK%K109(:)*PCONC(:,39)*PCONC(:,32)
!
-!PTERMS(RO2T,K205) = -K205*<RO2T>*<RO226>
- PTERMS(:,85,206) = -TPK%K205(:)*PCONC(:,85)*TPK%RO226(:)
+!PTERMS(NO2,K110) = +0.32440*K110*<OLN>*<MO2>
+ PTERMS(:,4,110) = +0.32440*TPK%K110(:)*PCONC(:,40)*PCONC(:,32)
!
-!PTERMS(HO2,K206) = -K206*<HO2>*<RO226>
- PTERMS(:,10,207) = -TPK%K206(:)*PCONC(:,10)*TPK%RO226(:)
+!PTERMS(HO2,K110) = +0.67560*K110*<OLN>*<MO2>
+ PTERMS(:,15,110) = +0.67560*TPK%K110(:)*PCONC(:,40)*PCONC(:,32)
!
-!PTERMS(OH,K206) = +K206*<HO2>*<RO226>
- PTERMS(:,15,207) = +TPK%K206(:)*PCONC(:,10)*TPK%RO226(:)
+!PTERMS(HCHO,K110) = +0.88625*K110*<OLN>*<MO2>
+ PTERMS(:,22,110) = +0.88625*TPK%K110(:)*PCONC(:,40)*PCONC(:,32)
!
-!PTERMS(UR17,K206) = +1.0000000*K206*<HO2>*<RO226>
- PTERMS(:,55,207) = +1.0000000*TPK%K206(:)*PCONC(:,10)*TPK%RO226(:)
+!PTERMS(ALD,K110) = +0.41524*K110*<OLN>*<MO2>
+ PTERMS(:,23,110) = +0.41524*TPK%K110(:)*PCONC(:,40)*PCONC(:,32)
!
-!PTERMS(RO2T,K206) = +K206*<HO2>*<RO226>
- PTERMS(:,85,207) = +TPK%K206(:)*PCONC(:,10)*TPK%RO226(:)
+!PTERMS(KET,K110) = +0.09667*K110*<OLN>*<MO2>
+ PTERMS(:,24,110) = +0.09667*TPK%K110(:)*PCONC(:,40)*PCONC(:,32)
!
-!PTERMS(NO,K207) = -K207*<NO>*<RO227>
- PTERMS(:,1,208) = -TPK%K207(:)*PCONC(:,1)*TPK%RO227(:)
+!PTERMS(ONIT,K110) = +0.67560*K110*<OLN>*<MO2>
+ PTERMS(:,26,110) = +0.67560*TPK%K110(:)*PCONC(:,40)*PCONC(:,32)
!
-!PTERMS(NO2,K207) = +TPK%CF28*K207*<NO>*<RO227>
- PTERMS(:,2,208) = +TPK%CF28*TPK%K207(:)*PCONC(:,1)*TPK%RO227(:)
+!PTERMS(MO2,K110) = -K110*<OLN>*<MO2>
+ PTERMS(:,32,110) = -TPK%K110(:)*PCONC(:,40)*PCONC(:,32)
!
-!PTERMS(HO2,K207) = +TPK%CF28*K207*<NO>*<RO227>
- PTERMS(:,10,208) = +TPK%CF28*TPK%K207(:)*PCONC(:,1)*TPK%RO227(:)
+!PTERMS(OLN,K110) = -K110*<OLN>*<MO2>
+ PTERMS(:,40,110) = -TPK%K110(:)*PCONC(:,40)*PCONC(:,32)
!
-!PTERMS(UR7,K207) = +TPK%CFA12*K207*<NO>*<RO227>
- PTERMS(:,56,208) = +TPK%CFA12*TPK%K207(:)*PCONC(:,1)*TPK%RO227(:)
+!PTERMS(HO2,K111) = +0.48079*K111*<ALKAP>*<CARBOP>
+ PTERMS(:,15,111) = +0.48079*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)
!
-!PTERMS(URG10,K207) = +TPK%CF27*K207*<NO>*<RO227>
- PTERMS(:,68,208) = +TPK%CF27*TPK%K207(:)*PCONC(:,1)*TPK%RO227(:)
+!PTERMS(HCHO,K111) = +0.07600*K111*<ALKAP>*<CARBOP>
+ PTERMS(:,22,111) = +0.07600*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)
!
-!PTERMS(HO2,K208) = +K208*<RO2T>*<RO227>
- PTERMS(:,10,209) = +TPK%K208(:)*PCONC(:,85)*TPK%RO227(:)
+!PTERMS(ALD,K111) = +0.71461*K111*<ALKAP>*<CARBOP>
+ PTERMS(:,23,111) = +0.71461*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)
!
-!PTERMS(UR7,K208) = +K208*<RO2T>*<RO227>
- PTERMS(:,56,209) = +TPK%K208(:)*PCONC(:,85)*TPK%RO227(:)
+!PTERMS(KET,K111) = +0.18819*K111*<ALKAP>*<CARBOP>
+ PTERMS(:,24,111) = +0.18819*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)
!
-!PTERMS(RO2T,K208) = -K208*<RO2T>*<RO227>
- PTERMS(:,85,209) = -TPK%K208(:)*PCONC(:,85)*TPK%RO227(:)
+!PTERMS(CARBO,K111) = +0.06954*K111*<ALKAP>*<CARBOP>
+ PTERMS(:,25,111) = +0.06954*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)
!
-!PTERMS(HO2,K209) = -K209*<HO2>*<RO227>
- PTERMS(:,10,210) = -TPK%K209(:)*PCONC(:,10)*TPK%RO227(:)
+!PTERMS(ORA2,K111) = +0.49810*K111*<ALKAP>*<CARBOP>
+ PTERMS(:,31,111) = +0.49810*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)
!
-!PTERMS(OH,K209) = +K209*<HO2>*<RO227>
- PTERMS(:,15,210) = +TPK%K209(:)*PCONC(:,10)*TPK%RO227(:)
+!PTERMS(MO2,K111) = +0.51480*K111*<ALKAP>*<CARBOP>
+ PTERMS(:,32,111) = +0.51480*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)
!
!
RETURN
-END SUBROUTINE SUBT34
+END SUBROUTINE SUBT23
!
-SUBROUTINE SUBT35
+SUBROUTINE SUBT24
!
-!Indices 701 a 720
+!Indices 481 a 500
!
-!PTERMS(UR7,K209) = +0.3*K209*<HO2>*<RO227>
- PTERMS(:,56,210) = +0.3*TPK%K209(:)*PCONC(:,10)*TPK%RO227(:)
+!PTERMS(ALKAP,K111) = -K111*<ALKAP>*<CARBOP>
+ PTERMS(:,33,111) = -TPK%K111(:)*PCONC(:,33)*PCONC(:,39)
!
-!PTERMS(NO,K210) = -K210*<NO>*<RO228>
- PTERMS(:,1,211) = -TPK%K210(:)*PCONC(:,1)*TPK%RO228(:)
+!PTERMS(CARBOP,K111) = -K111*<ALKAP>*<CARBOP>
+ PTERMS(:,39,111) = -TPK%K111(:)*PCONC(:,33)*PCONC(:,39)
!
-!PTERMS(NO2,K210) = +2.*K210*<NO>*<RO228>
- PTERMS(:,2,211) = +2.*TPK%K210(:)*PCONC(:,1)*TPK%RO228(:)
+!PTERMS(XO2,K111) = +0.11306*K111*<ALKAP>*<CARBOP>
+ PTERMS(:,41,111) = +0.11306*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)
!
-!PTERMS(UR7,K210) = +0.3*K210*<NO>*<RO228>
- PTERMS(:,56,211) = +0.3*TPK%K210(:)*PCONC(:,1)*TPK%RO228(:)
+!PTERMS(HO2,K112) = +0.50078*K112*<ALKEP>*<CARBOP>
+ PTERMS(:,15,112) = +0.50078*TPK%K112(:)*PCONC(:,34)*PCONC(:,39)
!
-!PTERMS(NO2,K211) = +K211*<RO2T>*<RO228>
- PTERMS(:,2,212) = +TPK%K211(:)*PCONC(:,85)*TPK%RO228(:)
+!PTERMS(HCHO,K112) = +0.68192*K112*<ALKEP>*<CARBOP>
+ PTERMS(:,22,112) = +0.68192*TPK%K112(:)*PCONC(:,34)*PCONC(:,39)
!
-!PTERMS(UR7,K211) = +0.3*K211*<RO2T>*<RO228>
- PTERMS(:,56,212) = +0.3*TPK%K211(:)*PCONC(:,85)*TPK%RO228(:)
+!PTERMS(ALD,K112) = +0.68374*K112*<ALKEP>*<CARBOP>
+ PTERMS(:,23,112) = +0.68374*TPK%K112(:)*PCONC(:,34)*PCONC(:,39)
!
-!PTERMS(RO2T,K211) = -K211*<RO2T>*<RO228>
- PTERMS(:,85,212) = -TPK%K211(:)*PCONC(:,85)*TPK%RO228(:)
+!PTERMS(KET,K112) = +0.06579*K112*<ALKEP>*<CARBOP>
+ PTERMS(:,24,112) = +0.06579*TPK%K112(:)*PCONC(:,34)*PCONC(:,39)
!
-!PTERMS(NO2,K212) = +K212*<HO2>*<RO228>
- PTERMS(:,2,213) = +TPK%K212(:)*PCONC(:,10)*TPK%RO228(:)
+!PTERMS(ORA2,K112) = +0.49922*K112*<ALKEP>*<CARBOP>
+ PTERMS(:,31,112) = +0.49922*TPK%K112(:)*PCONC(:,34)*PCONC(:,39)
!
-!PTERMS(HO2,K212) = -K212*<HO2>*<RO228>
- PTERMS(:,10,213) = -TPK%K212(:)*PCONC(:,10)*TPK%RO228(:)
+!PTERMS(MO2,K112) = +0.50078*K112*<ALKEP>*<CARBOP>
+ PTERMS(:,32,112) = +0.50078*TPK%K112(:)*PCONC(:,34)*PCONC(:,39)
!
-!PTERMS(OH,K212) = +K212*<HO2>*<RO228>
- PTERMS(:,15,213) = +TPK%K212(:)*PCONC(:,10)*TPK%RO228(:)
+!PTERMS(ALKEP,K112) = -K112*<ALKEP>*<CARBOP>
+ PTERMS(:,34,112) = -TPK%K112(:)*PCONC(:,34)*PCONC(:,39)
!
-!PTERMS(UR7,K212) = +0.3*K212*<HO2>*<RO228>
- PTERMS(:,56,213) = +0.3*TPK%K212(:)*PCONC(:,10)*TPK%RO228(:)
+!PTERMS(CARBOP,K112) = -K112*<ALKEP>*<CARBOP>
+ PTERMS(:,39,112) = -TPK%K112(:)*PCONC(:,34)*PCONC(:,39)
!
-!PTERMS(NO,K213) = -K213*<NO>*<RO229>
- PTERMS(:,1,214) = -TPK%K213(:)*PCONC(:,1)*TPK%RO229(:)
+!PTERMS(HO2,K113) = +0.50600*K113*<BIOP>*<CARBOP>
+ PTERMS(:,15,113) = +0.50600*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)
!
-!PTERMS(NO2,K213) = +TPK%CF30*K213*<NO>*<RO229>
- PTERMS(:,2,214) = +TPK%CF30*TPK%K213(:)*PCONC(:,1)*TPK%RO229(:)
+!PTERMS(ALKE,K113) = +0.24463*K113*<BIOP>*<CARBOP>
+ PTERMS(:,19,113) = +0.24463*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)
!
-!PTERMS(RO2T,K213) = +TPK%CF30*K213*<NO>*<RO229>
- PTERMS(:,85,214) = +TPK%CF30*TPK%K213(:)*PCONC(:,1)*TPK%RO229(:)
+!PTERMS(HCHO,K113) = +0.34000*K113*<BIOP>*<CARBOP>
+ PTERMS(:,22,113) = +0.34000*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)
!
-!PTERMS(RO2T,K214) = -K214*<RO2T>*<RO229>
- PTERMS(:,85,215) = -TPK%K214(:)*PCONC(:,85)*TPK%RO229(:)
+!PTERMS(ALD,K113) = +0.00000*K113*<BIOP>*<CARBOP>
+ PTERMS(:,23,113) = +0.00000*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)
!
-!PTERMS(HO2,K215) = -K215*<HO2>*<RO229>
- PTERMS(:,10,216) = -TPK%K215(:)*PCONC(:,10)*TPK%RO229(:)
+!PTERMS(KET,K113) = +0.00000*K113*<BIOP>*<CARBOP>
+ PTERMS(:,24,113) = +0.00000*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)
!
-!PTERMS(OH,K215) = +K215*<HO2>*<RO229>
- PTERMS(:,15,216) = +TPK%K215(:)*PCONC(:,10)*TPK%RO229(:)
+!PTERMS(CARBO,K113) = +0.78591*K113*<BIOP>*<CARBOP>
+ PTERMS(:,25,113) = +0.78591*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)
!
-!PTERMS(RO2T,K215) = +K215*<HO2>*<RO229>
- PTERMS(:,85,216) = +TPK%K215(:)*PCONC(:,10)*TPK%RO229(:)
+!PTERMS(ORA2,K113) = +0.49400*K113*<BIOP>*<CARBOP>
+ PTERMS(:,31,113) = +0.49400*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)
!
-!PTERMS(NO,K216) = -K216*<NO>*<RO240>
- PTERMS(:,1,217) = -TPK%K216(:)*PCONC(:,1)*TPK%RO240(:)
+!PTERMS(MO2,K113) = +0.50600*K113*<BIOP>*<CARBOP>
+ PTERMS(:,32,113) = +0.50600*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)
!
-!PTERMS(NO2,K216) = +K216*<NO>*<RO240>
- PTERMS(:,2,217) = +TPK%K216(:)*PCONC(:,1)*TPK%RO240(:)
+!PTERMS(BIOP,K113) = -K113*<BIOP>*<CARBOP>
+ PTERMS(:,35,113) = -TPK%K113(:)*PCONC(:,35)*PCONC(:,39)
!
!
RETURN
-END SUBROUTINE SUBT35
+END SUBROUTINE SUBT24
!
-SUBROUTINE SUBT36
+SUBROUTINE SUBT25
!
-!Indices 721 a 740
+!Indices 501 a 520
!
-!PTERMS(RPR8,K216) = +K216*<NO>*<RO240>
- PTERMS(:,71,217) = +TPK%K216(:)*PCONC(:,1)*TPK%RO240(:)
+!PTERMS(CARBOP,K113) = -K113*<BIOP>*<CARBOP>
+ PTERMS(:,39,113) = -TPK%K113(:)*PCONC(:,35)*PCONC(:,39)
!
-!PTERMS(RO2T,K216) = +K216*<NO>*<RO240>
- PTERMS(:,85,217) = +TPK%K216(:)*PCONC(:,1)*TPK%RO240(:)
+!PTERMS(HO2,K114) = +K114*<AROP>*<CARBOP>
+ PTERMS(:,15,114) = +TPK%K114(:)*PCONC(:,38)*PCONC(:,39)
!
-!PTERMS(RPR8,K217) = +K217*<RO2T>*<RO240>
- PTERMS(:,71,218) = +TPK%K217(:)*PCONC(:,85)*TPK%RO240(:)
+!PTERMS(CARBO,K114) = +1.99455*K114*<AROP>*<CARBOP>
+ PTERMS(:,25,114) = +1.99455*TPK%K114(:)*PCONC(:,38)*PCONC(:,39)
!
-!PTERMS(RO2T,K217) = -K217*<RO2T>*<RO240>
- PTERMS(:,85,218) = -TPK%K217(:)*PCONC(:,85)*TPK%RO240(:)
+!PTERMS(MO2,K114) = +K114*<AROP>*<CARBOP>
+ PTERMS(:,32,114) = +TPK%K114(:)*PCONC(:,38)*PCONC(:,39)
!
-!PTERMS(HO2,K218) = -K218*<HO2>*<RO240>
- PTERMS(:,10,219) = -TPK%K218(:)*PCONC(:,10)*TPK%RO240(:)
+!PTERMS(AROP,K114) = -K114*<AROP>*<CARBOP>
+ PTERMS(:,38,114) = -TPK%K114(:)*PCONC(:,38)*PCONC(:,39)
!
-!PTERMS(OH,K218) = +K218*<HO2>*<RO240>
- PTERMS(:,15,219) = +TPK%K218(:)*PCONC(:,10)*TPK%RO240(:)
+!PTERMS(CARBOP,K114) = -K114*<AROP>*<CARBOP>
+ PTERMS(:,39,114) = -TPK%K114(:)*PCONC(:,38)*PCONC(:,39)
!
-!PTERMS(RPR8,K218) = +K218*<HO2>*<RO240>
- PTERMS(:,71,219) = +TPK%K218(:)*PCONC(:,10)*TPK%RO240(:)
+!PTERMS(HO2,K115) = +0.07566*K115*<CARBOP>*<CARBOP>
+ PTERMS(:,15,115) = +0.07566*TPK%K115(:)*PCONC(:,39)*PCONC(:,39)
!
-!PTERMS(RO2T,K218) = +K218*<HO2>*<RO240>
- PTERMS(:,85,219) = +TPK%K218(:)*PCONC(:,10)*TPK%RO240(:)
+!PTERMS(HCHO,K115) = +0.03432*K115*<CARBOP>*<CARBOP>
+ PTERMS(:,22,115) = +0.03432*TPK%K115(:)*PCONC(:,39)*PCONC(:,39)
!
-!PTERMS(RO2T,K219) = -K219*<RO2T>*<RO230>
- PTERMS(:,85,220) = -TPK%K219(:)*PCONC(:,85)*TPK%RO230(:)
+!PTERMS(ALD,K115) = +0.06969*K115*<CARBOP>*<CARBOP>
+ PTERMS(:,23,115) = +0.06969*TPK%K115(:)*PCONC(:,39)*PCONC(:,39)
!
-!PTERMS(HO2,K220) = -K220*<HO2>*<RO230>
- PTERMS(:,10,221) = -TPK%K220(:)*PCONC(:,10)*TPK%RO230(:)
+!PTERMS(KET,K115) = +0.02190*K115*<CARBOP>*<CARBOP>
+ PTERMS(:,24,115) = +0.02190*TPK%K115(:)*PCONC(:,39)*PCONC(:,39)
!
-!PTERMS(OH,K220) = +K220*<HO2>*<RO230>
- PTERMS(:,15,221) = +TPK%K220(:)*PCONC(:,10)*TPK%RO230(:)
+!PTERMS(CARBO,K115) = +0.10777*K115*<CARBOP>*<CARBOP>
+ PTERMS(:,25,115) = +0.10777*TPK%K115(:)*PCONC(:,39)*PCONC(:,39)
!
-!PTERMS(RO2T,K220) = +K220*<HO2>*<RO230>
- PTERMS(:,85,221) = +TPK%K220(:)*PCONC(:,10)*TPK%RO230(:)
+!PTERMS(ORA2,K115) = +0.09955*K115*<CARBOP>*<CARBOP>
+ PTERMS(:,31,115) = +0.09955*TPK%K115(:)*PCONC(:,39)*PCONC(:,39)
!
-!PTERMS(NO,K221) = -K221*<NO>*<RO231>
- PTERMS(:,1,222) = -TPK%K221(:)*PCONC(:,1)*TPK%RO231(:)
+!PTERMS(MO2,K115) = +1.66702*K115*<CARBOP>*<CARBOP>
+ PTERMS(:,32,115) = +1.66702*TPK%K115(:)*PCONC(:,39)*PCONC(:,39)
!
-!PTERMS(NO2,K221) = +TPK%CF32*K221*<NO>*<RO231>
- PTERMS(:,2,222) = +TPK%CF32*TPK%K221(:)*PCONC(:,1)*TPK%RO231(:)
+!PTERMS(CARBOP,K115) = -K115*<CARBOP>*<CARBOP>
+ PTERMS(:,39,115) = -TPK%K115(:)*PCONC(:,39)*PCONC(:,39)
!
-!PTERMS(HO2,K221) = +TPK%CF32*K221*<NO>*<RO231>
- PTERMS(:,10,222) = +TPK%CF32*TPK%K221(:)*PCONC(:,1)*TPK%RO231(:)
+!PTERMS(XO2,K115) = +0.01593*K115*<CARBOP>*<CARBOP>
+ PTERMS(:,41,115) = +0.01593*TPK%K115(:)*PCONC(:,39)*PCONC(:,39)
!
-!PTERMS(URG8,K221) = +TPK%CF31*K221*<NO>*<RO231>
- PTERMS(:,64,222) = +TPK%CF31*TPK%K221(:)*PCONC(:,1)*TPK%RO231(:)
+!PTERMS(NO2,K116) = +0.00000*K116*<OLN>*<CARBOP>
+ PTERMS(:,4,116) = +0.00000*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)
!
-!PTERMS(UR19,K221) = +TPK%CF32*K221*<NO>*<RO231>
- PTERMS(:,65,222) = +TPK%CF32*TPK%K221(:)*PCONC(:,1)*TPK%RO231(:)
+!PTERMS(HO2,K116) = +0.17599*K116*<OLN>*<CARBOP>
+ PTERMS(:,15,116) = +0.17599*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)
!
-!PTERMS(HO2,K222) = +K222*<RO2T>*<RO231>
- PTERMS(:,10,223) = +TPK%K222(:)*PCONC(:,85)*TPK%RO231(:)
+!PTERMS(HCHO,K116) = +0.13414*K116*<OLN>*<CARBOP>
+ PTERMS(:,22,116) = +0.13414*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)
!
-!PTERMS(UR19,K222) = +K222*<RO2T>*<RO231>
- PTERMS(:,65,223) = +TPK%K222(:)*PCONC(:,85)*TPK%RO231(:)
+!PTERMS(ALD,K116) = +0.42122*K116*<OLN>*<CARBOP>
+ PTERMS(:,23,116) = +0.42122*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)
!
-!PTERMS(RO2T,K222) = -K222*<RO2T>*<RO231>
- PTERMS(:,85,223) = -TPK%K222(:)*PCONC(:,85)*TPK%RO231(:)
+!PTERMS(KET,K116) = +0.10822*K116*<OLN>*<CARBOP>
+ PTERMS(:,24,116) = +0.10822*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)
!
!
RETURN
-END SUBROUTINE SUBT36
+END SUBROUTINE SUBT25
!
-SUBROUTINE SUBT37
+SUBROUTINE SUBT26
!
-!Indices 741 a 760
+!Indices 521 a 540
!
-!PTERMS(HO2,K223) = -K223*<HO2>*<RO231>
- PTERMS(:,10,224) = -TPK%K223(:)*PCONC(:,10)*TPK%RO231(:)
+!PTERMS(ONIT,K116) = +0.66562*K116*<OLN>*<CARBOP>
+ PTERMS(:,26,116) = +0.66562*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)
!
-!PTERMS(OH,K223) = +K223*<HO2>*<RO231>
- PTERMS(:,15,224) = +TPK%K223(:)*PCONC(:,10)*TPK%RO231(:)
+!PTERMS(ORA2,K116) = +0.48963*K116*<OLN>*<CARBOP>
+ PTERMS(:,31,116) = +0.48963*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)
!
-!PTERMS(UR19,K223) = +K223*<HO2>*<RO231>
- PTERMS(:,65,224) = +TPK%K223(:)*PCONC(:,10)*TPK%RO231(:)
+!PTERMS(MO2,K116) = +0.51037*K116*<OLN>*<CARBOP>
+ PTERMS(:,32,116) = +0.51037*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)
!
-!PTERMS(NO,K224) = -K224*<NO>*<RO232>
- PTERMS(:,1,225) = -TPK%K224(:)*PCONC(:,1)*TPK%RO232(:)
+!PTERMS(CARBOP,K116) = -K116*<OLN>*<CARBOP>
+ PTERMS(:,39,116) = -TPK%K116(:)*PCONC(:,40)*PCONC(:,39)
!
-!PTERMS(NO2,K224) = +TPK%CF34*K224*<NO>*<RO232>
- PTERMS(:,2,225) = +TPK%CF34*TPK%K224(:)*PCONC(:,1)*TPK%RO232(:)
+!PTERMS(OLN,K116) = -K116*<OLN>*<CARBOP>
+ PTERMS(:,40,116) = -TPK%K116(:)*PCONC(:,40)*PCONC(:,39)
!
-!PTERMS(URG9,K224) = +TPK%CFA14*K224*<NO>*<RO232>
- PTERMS(:,66,225) = +TPK%CFA14*TPK%K224(:)*PCONC(:,1)*TPK%RO232(:)
+!PTERMS(HO2,K117) = +K117*<OLN>*<OLN>
+ PTERMS(:,15,117) = +TPK%K117(:)*PCONC(:,40)*PCONC(:,40)
!
-!PTERMS(RO2T,K224) = +TPK%CF34*K224*<NO>*<RO232>
- PTERMS(:,85,225) = +TPK%CF34*TPK%K224(:)*PCONC(:,1)*TPK%RO232(:)
+!PTERMS(ONIT,K117) = +2.00*K117*<OLN>*<OLN>
+ PTERMS(:,26,117) = +2.00*TPK%K117(:)*PCONC(:,40)*PCONC(:,40)
!
-!PTERMS(RO2T,K225) = -K225*<RO2T>*<RO232>
- PTERMS(:,85,226) = -TPK%K225(:)*PCONC(:,85)*TPK%RO232(:)
+!PTERMS(OLN,K117) = -K117*<OLN>*<OLN>
+ PTERMS(:,40,117) = -TPK%K117(:)*PCONC(:,40)*PCONC(:,40)
!
-!PTERMS(HO2,K226) = -K226*<HO2>*<RO232>
- PTERMS(:,10,227) = -TPK%K226(:)*PCONC(:,10)*TPK%RO232(:)
+!PTERMS(NO2,K118) = +0.00000*K118*<OLN>*<OLN>
+ PTERMS(:,4,118) = +0.00000*TPK%K118(:)*PCONC(:,40)*PCONC(:,40)
!
-!PTERMS(OH,K226) = +K226*<HO2>*<RO232>
- PTERMS(:,15,227) = +TPK%K226(:)*PCONC(:,10)*TPK%RO232(:)
+!PTERMS(HO2,K118) = +0.00000*K118*<OLN>*<OLN>
+ PTERMS(:,15,118) = +0.00000*TPK%K118(:)*PCONC(:,40)*PCONC(:,40)
!
-!PTERMS(RO2T,K226) = +K226*<HO2>*<RO232>
- PTERMS(:,85,227) = +TPK%K226(:)*PCONC(:,10)*TPK%RO232(:)
+!PTERMS(HCHO,K118) = +0.00000*K118*<OLN>*<OLN>
+ PTERMS(:,22,118) = +0.00000*TPK%K118(:)*PCONC(:,40)*PCONC(:,40)
!
-!PTERMS(NO,K227) = -K227*<NO>*<RO241>
- PTERMS(:,1,228) = -TPK%K227(:)*PCONC(:,1)*TPK%RO241(:)
+!PTERMS(ALD,K118) = +0.00000*K118*<OLN>*<OLN>
+ PTERMS(:,23,118) = +0.00000*TPK%K118(:)*PCONC(:,40)*PCONC(:,40)
!
-!PTERMS(NO2,K227) = +TPK%CF36*K227*<NO>*<RO241>
- PTERMS(:,2,228) = +TPK%CF36*TPK%K227(:)*PCONC(:,1)*TPK%RO241(:)
+!PTERMS(KET,K118) = +0.00000*K118*<OLN>*<OLN>
+ PTERMS(:,24,118) = +0.00000*TPK%K118(:)*PCONC(:,40)*PCONC(:,40)
!
-!PTERMS(HO2,K227) = +TPK%CF36*K227*<NO>*<RO241>
- PTERMS(:,10,228) = +TPK%CF36*TPK%K227(:)*PCONC(:,1)*TPK%RO241(:)
+!PTERMS(ONIT,K118) = +0.00000*K118*<OLN>*<OLN>
+ PTERMS(:,26,118) = +0.00000*TPK%K118(:)*PCONC(:,40)*PCONC(:,40)
!
-!PTERMS(URG9,K227) = +TPK%CFA15*K227*<NO>*<RO241>
- PTERMS(:,66,228) = +TPK%CFA15*TPK%K227(:)*PCONC(:,1)*TPK%RO241(:)
+!PTERMS(OLN,K118) = -K118*<OLN>*<OLN>
+ PTERMS(:,40,118) = -TPK%K118(:)*PCONC(:,40)*PCONC(:,40)
!
-!PTERMS(HO2,K228) = +K228*<RO2T>*<RO241>
- PTERMS(:,10,229) = +TPK%K228(:)*PCONC(:,85)*TPK%RO241(:)
+!PTERMS(NO2,K119) = +K119*<MO2>*<NO3>
+ PTERMS(:,4,119) = +TPK%K119(:)*PCONC(:,32)*PCONC(:,5)
!
-!PTERMS(URG9,K228) = +0.9999996*K228*<RO2T>*<RO241>
- PTERMS(:,66,229) = +0.9999996*TPK%K228(:)*PCONC(:,85)*TPK%RO241(:)
+!PTERMS(NO3,K119) = -K119*<MO2>*<NO3>
+ PTERMS(:,5,119) = -TPK%K119(:)*PCONC(:,32)*PCONC(:,5)
!
-!PTERMS(RO2T,K228) = -K228*<RO2T>*<RO241>
- PTERMS(:,85,229) = -TPK%K228(:)*PCONC(:,85)*TPK%RO241(:)
+!PTERMS(HO2,K119) = +K119*<MO2>*<NO3>
+ PTERMS(:,15,119) = +TPK%K119(:)*PCONC(:,32)*PCONC(:,5)
!
-!PTERMS(HO2,K229) = -K229*<HO2>*<RO241>
- PTERMS(:,10,230) = -TPK%K229(:)*PCONC(:,10)*TPK%RO241(:)
+!PTERMS(HCHO,K119) = +K119*<MO2>*<NO3>
+ PTERMS(:,22,119) = +TPK%K119(:)*PCONC(:,32)*PCONC(:,5)
!
-!PTERMS(OH,K229) = +K229*<HO2>*<RO241>
- PTERMS(:,15,230) = +TPK%K229(:)*PCONC(:,10)*TPK%RO241(:)
+!PTERMS(MO2,K119) = -K119*<MO2>*<NO3>
+ PTERMS(:,32,119) = -TPK%K119(:)*PCONC(:,32)*PCONC(:,5)
!
!
RETURN
-END SUBROUTINE SUBT37
+END SUBROUTINE SUBT26
!
-SUBROUTINE SUBT38
+SUBROUTINE SUBT27
!
-!Indices 761 a 780
+!Indices 541 a 560
!
-!PTERMS(URG9,K229) = +0.9999996*K229*<HO2>*<RO241>
- PTERMS(:,66,230) = +0.9999996*TPK%K229(:)*PCONC(:,10)*TPK%RO241(:)
+!PTERMS(NO2,K120) = +K120*<ALKAP>*<NO3>
+ PTERMS(:,4,120) = +TPK%K120(:)*PCONC(:,33)*PCONC(:,5)
!
-!PTERMS(RO2T,K230) = +K230*<RO233>
- PTERMS(:,85,231) = +TPK%K230(:)*TPK%RO233(:)
+!PTERMS(NO3,K120) = -K120*<ALKAP>*<NO3>
+ PTERMS(:,5,120) = -TPK%K120(:)*PCONC(:,33)*PCONC(:,5)
!
-!PTERMS(NO,K231) = -K231*<NO>*<RO233>
- PTERMS(:,1,232) = -TPK%K231(:)*PCONC(:,1)*TPK%RO233(:)
+!PTERMS(HO2,K120) = +0.81290*K120*<ALKAP>*<NO3>
+ PTERMS(:,15,120) = +0.81290*TPK%K120(:)*PCONC(:,33)*PCONC(:,5)
!
-!PTERMS(NO2,K231) = +K231*<NO>*<RO233>
- PTERMS(:,2,232) = +TPK%K231(:)*PCONC(:,1)*TPK%RO233(:)
+!PTERMS(HCHO,K120) = +0.03142*K120*<ALKAP>*<NO3>
+ PTERMS(:,22,120) = +0.03142*TPK%K120(:)*PCONC(:,33)*PCONC(:,5)
!
-!PTERMS(HO2,K231) = +K231*<NO>*<RO233>
- PTERMS(:,10,232) = +TPK%K231(:)*PCONC(:,1)*TPK%RO233(:)
+!PTERMS(ALD,K120) = +0.33743*K120*<ALKAP>*<NO3>
+ PTERMS(:,23,120) = +0.33743*TPK%K120(:)*PCONC(:,33)*PCONC(:,5)
!
-!PTERMS(RPG3,K231) = +0.3000000*K231*<NO>*<RO233>
- PTERMS(:,52,232) = +0.3000000*TPK%K231(:)*PCONC(:,1)*TPK%RO233(:)
+!PTERMS(KET,K120) = +0.62978*K120*<ALKAP>*<NO3>
+ PTERMS(:,24,120) = +0.62978*TPK%K120(:)*PCONC(:,33)*PCONC(:,5)
!
-!PTERMS(HO2,K232) = +K232*<RO2T>*<RO233>
- PTERMS(:,10,233) = +TPK%K232(:)*PCONC(:,85)*TPK%RO233(:)
+!PTERMS(CARBO,K120) = +0.03531*K120*<ALKAP>*<NO3>
+ PTERMS(:,25,120) = +0.03531*TPK%K120(:)*PCONC(:,33)*PCONC(:,5)
!
-!PTERMS(RPG3,K232) = +1.0000000*K232*<RO2T>*<RO233>
- PTERMS(:,52,233) = +1.0000000*TPK%K232(:)*PCONC(:,85)*TPK%RO233(:)
+!PTERMS(MO2,K120) = +0.09731*K120*<ALKAP>*<NO3>
+ PTERMS(:,32,120) = +0.09731*TPK%K120(:)*PCONC(:,33)*PCONC(:,5)
!
-!PTERMS(RO2T,K232) = -K232*<RO2T>*<RO233>
- PTERMS(:,85,233) = -TPK%K232(:)*PCONC(:,85)*TPK%RO233(:)
+!PTERMS(ALKAP,K120) = -K120*<ALKAP>*<NO3>
+ PTERMS(:,33,120) = -TPK%K120(:)*PCONC(:,33)*PCONC(:,5)
!
-!PTERMS(HO2,K233) = -K233*<HO2>*<RO233>
- PTERMS(:,10,234) = -TPK%K233(:)*PCONC(:,10)*TPK%RO233(:)
+!PTERMS(XO2,K120) = +0.16271*K120*<ALKAP>*<NO3>
+ PTERMS(:,41,120) = +0.16271*TPK%K120(:)*PCONC(:,33)*PCONC(:,5)
!
-!PTERMS(OH,K233) = +K233*<HO2>*<RO233>
- PTERMS(:,15,234) = +TPK%K233(:)*PCONC(:,10)*TPK%RO233(:)
+!PTERMS(NO2,K121) = +K121*<ALKEP>*<NO3>
+ PTERMS(:,4,121) = +TPK%K121(:)*PCONC(:,34)*PCONC(:,5)
!
-!PTERMS(RPG3,K233) = +0.3000000*K233*<HO2>*<RO233>
- PTERMS(:,52,234) = +0.3000000*TPK%K233(:)*PCONC(:,10)*TPK%RO233(:)
+!PTERMS(NO3,K121) = -K121*<ALKEP>*<NO3>
+ PTERMS(:,5,121) = -TPK%K121(:)*PCONC(:,34)*PCONC(:,5)
!
-!PTERMS(NO,K234) = -K234*<NO>*<RO242>
- PTERMS(:,1,235) = -TPK%K234(:)*PCONC(:,1)*TPK%RO242(:)
+!PTERMS(HO2,K121) = +K121*<ALKEP>*<NO3>
+ PTERMS(:,15,121) = +TPK%K121(:)*PCONC(:,34)*PCONC(:,5)
!
-!PTERMS(NO2,K234) = +K234*<NO>*<RO242>
- PTERMS(:,2,235) = +TPK%K234(:)*PCONC(:,1)*TPK%RO242(:)
+!PTERMS(HCHO,K121) = +1.40909*K121*<ALKEP>*<NO3>
+ PTERMS(:,22,121) = +1.40909*TPK%K121(:)*PCONC(:,34)*PCONC(:,5)
!
-!PTERMS(HO2,K234) = +K234*<NO>*<RO242>
- PTERMS(:,10,235) = +TPK%K234(:)*PCONC(:,1)*TPK%RO242(:)
+!PTERMS(ALD,K121) = +0.43039*K121*<ALKEP>*<NO3>
+ PTERMS(:,23,121) = +0.43039*TPK%K121(:)*PCONC(:,34)*PCONC(:,5)
!
-!PTERMS(MGLY,K234) = +K234*<NO>*<RO242>
- PTERMS(:,41,235) = +TPK%K234(:)*PCONC(:,1)*TPK%RO242(:)
+!PTERMS(KET,K121) = +0.02051*K121*<ALKEP>*<NO3>
+ PTERMS(:,24,121) = +0.02051*TPK%K121(:)*PCONC(:,34)*PCONC(:,5)
!
-!PTERMS(RP10,K234) = +K234*<NO>*<RO242>
- PTERMS(:,72,235) = +TPK%K234(:)*PCONC(:,1)*TPK%RO242(:)
+!PTERMS(ALKEP,K121) = -K121*<ALKEP>*<NO3>
+ PTERMS(:,34,121) = -TPK%K121(:)*PCONC(:,34)*PCONC(:,5)
!
-!PTERMS(HO2,K235) = +K235*<RO2T>*<RO242>
- PTERMS(:,10,236) = +TPK%K235(:)*PCONC(:,85)*TPK%RO242(:)
+!PTERMS(NO2,K122) = +K122*<BIOP>*<NO3>
+ PTERMS(:,4,122) = +TPK%K122(:)*PCONC(:,35)*PCONC(:,5)
!
-!PTERMS(MGLY,K235) = +K235*<RO2T>*<RO242>
- PTERMS(:,41,236) = +TPK%K235(:)*PCONC(:,85)*TPK%RO242(:)
+!PTERMS(NO3,K122) = -K122*<BIOP>*<NO3>
+ PTERMS(:,5,122) = -TPK%K122(:)*PCONC(:,35)*PCONC(:,5)
!
-!PTERMS(RP10,K235) = +K235*<RO2T>*<RO242>
- PTERMS(:,72,236) = +TPK%K235(:)*PCONC(:,85)*TPK%RO242(:)
+!PTERMS(HO2,K122) = +K122*<BIOP>*<NO3>
+ PTERMS(:,15,122) = +TPK%K122(:)*PCONC(:,35)*PCONC(:,5)
!
!
RETURN
-END SUBROUTINE SUBT38
+END SUBROUTINE SUBT27
!
-SUBROUTINE SUBT39
+SUBROUTINE SUBT28
!
-!Indices 781 a 800
+!Indices 561 a 580
!
-!PTERMS(RO2T,K235) = -K235*<RO2T>*<RO242>
- PTERMS(:,85,236) = -TPK%K235(:)*PCONC(:,85)*TPK%RO242(:)
+!PTERMS(ALKE,K122) = +0.42729*K122*<BIOP>*<NO3>
+ PTERMS(:,19,122) = +0.42729*TPK%K122(:)*PCONC(:,35)*PCONC(:,5)
!
-!PTERMS(HO2,K236) = -K236*<HO2>*<RO242>
- PTERMS(:,10,237) = -TPK%K236(:)*PCONC(:,10)*TPK%RO242(:)
+!PTERMS(HCHO,K122) = +0.68600*K122*<BIOP>*<NO3>
+ PTERMS(:,22,122) = +0.68600*TPK%K122(:)*PCONC(:,35)*PCONC(:,5)
!
-!PTERMS(OH,K236) = +K236*<HO2>*<RO242>
- PTERMS(:,15,237) = +TPK%K236(:)*PCONC(:,10)*TPK%RO242(:)
+!PTERMS(ALD,K122) = +0.00000*K122*<BIOP>*<NO3>
+ PTERMS(:,23,122) = +0.00000*TPK%K122(:)*PCONC(:,35)*PCONC(:,5)
!
-!PTERMS(MGLY,K236) = +K236*<HO2>*<RO242>
- PTERMS(:,41,237) = +TPK%K236(:)*PCONC(:,10)*TPK%RO242(:)
+!PTERMS(KET,K122) = +0.00000*K122*<BIOP>*<NO3>
+ PTERMS(:,24,122) = +0.00000*TPK%K122(:)*PCONC(:,35)*PCONC(:,5)
!
-!PTERMS(RP10,K236) = +K236*<HO2>*<RO242>
- PTERMS(:,72,237) = +TPK%K236(:)*PCONC(:,10)*TPK%RO242(:)
+!PTERMS(CARBO,K122) = +0.61160*K122*<BIOP>*<NO3>
+ PTERMS(:,25,122) = +0.61160*TPK%K122(:)*PCONC(:,35)*PCONC(:,5)
!
-!PTERMS(RO2T,K237) = +K237*<RO234>
- PTERMS(:,85,238) = +TPK%K237(:)*TPK%RO234(:)
+!PTERMS(BIOP,K122) = -K122*<BIOP>*<NO3>
+ PTERMS(:,35,122) = -TPK%K122(:)*PCONC(:,35)*PCONC(:,5)
!
-!PTERMS(NO,K238) = -K238*<NO>*<RO234>
- PTERMS(:,1,239) = -TPK%K238(:)*PCONC(:,1)*TPK%RO234(:)
+!PTERMS(NO2,K123) = +K123*<AROP>*<NO3>
+ PTERMS(:,4,123) = +TPK%K123(:)*PCONC(:,38)*PCONC(:,5)
!
-!PTERMS(NO2,K238) = +K238*<NO>*<RO234>
- PTERMS(:,2,239) = +TPK%K238(:)*PCONC(:,1)*TPK%RO234(:)
+!PTERMS(NO3,K123) = -K123*<AROP>*<NO3>
+ PTERMS(:,5,123) = -TPK%K123(:)*PCONC(:,38)*PCONC(:,5)
!
-!PTERMS(HO2,K238) = +K238*<NO>*<RO234>
- PTERMS(:,10,239) = +TPK%K238(:)*PCONC(:,1)*TPK%RO234(:)
+!PTERMS(HO2,K123) = +K123*<AROP>*<NO3>
+ PTERMS(:,15,123) = +TPK%K123(:)*PCONC(:,38)*PCONC(:,5)
!
-!PTERMS(RP11,K238) = +0.3*K238*<NO>*<RO234>
- PTERMS(:,73,239) = +0.3*TPK%K238(:)*PCONC(:,1)*TPK%RO234(:)
+!PTERMS(CARBO,K123) = +2.81904*K123*<AROP>*<NO3>
+ PTERMS(:,25,123) = +2.81904*TPK%K123(:)*PCONC(:,38)*PCONC(:,5)
!
-!PTERMS(HO2,K239) = +K239*<RO2T>*<RO234>
- PTERMS(:,10,240) = +TPK%K239(:)*PCONC(:,85)*TPK%RO234(:)
+!PTERMS(AROP,K123) = -K123*<AROP>*<NO3>
+ PTERMS(:,38,123) = -TPK%K123(:)*PCONC(:,38)*PCONC(:,5)
!
-!PTERMS(RP11,K239) = +K239*<RO2T>*<RO234>
- PTERMS(:,73,240) = +TPK%K239(:)*PCONC(:,85)*TPK%RO234(:)
+!PTERMS(NO2,K124) = +K124*<CARBOP>*<NO3>
+ PTERMS(:,4,124) = +TPK%K124(:)*PCONC(:,39)*PCONC(:,5)
!
-!PTERMS(RO2T,K239) = -K239*<RO2T>*<RO234>
- PTERMS(:,85,240) = -TPK%K239(:)*PCONC(:,85)*TPK%RO234(:)
+!PTERMS(NO3,K124) = -K124*<CARBOP>*<NO3>
+ PTERMS(:,5,124) = -TPK%K124(:)*PCONC(:,39)*PCONC(:,5)
!
-!PTERMS(HO2,K240) = -K240*<HO2>*<RO234>
- PTERMS(:,10,241) = -TPK%K240(:)*PCONC(:,10)*TPK%RO234(:)
+!PTERMS(HO2,K124) = +0.04915*K124*<CARBOP>*<NO3>
+ PTERMS(:,15,124) = +0.04915*TPK%K124(:)*PCONC(:,39)*PCONC(:,5)
!
-!PTERMS(OH,K240) = +K240*<HO2>*<RO234>
- PTERMS(:,15,241) = +TPK%K240(:)*PCONC(:,10)*TPK%RO234(:)
+!PTERMS(HCHO,K124) = +0.03175*K124*<CARBOP>*<NO3>
+ PTERMS(:,22,124) = +0.03175*TPK%K124(:)*PCONC(:,39)*PCONC(:,5)
!
-!PTERMS(RP11,K240) = +0.3*K240*<HO2>*<RO234>
- PTERMS(:,73,241) = +0.3*TPK%K240(:)*PCONC(:,10)*TPK%RO234(:)
+!PTERMS(ALD,K124) = +0.02936*K124*<CARBOP>*<NO3>
+ PTERMS(:,23,124) = +0.02936*TPK%K124(:)*PCONC(:,39)*PCONC(:,5)
!
-!PTERMS(NO,K241) = -K241*<NO>*<RO243>
- PTERMS(:,1,242) = -TPK%K241(:)*PCONC(:,1)*TPK%RO243(:)
+!PTERMS(CARBO,K124) = +0.03455*K124*<CARBOP>*<NO3>
+ PTERMS(:,25,124) = +0.03455*TPK%K124(:)*PCONC(:,39)*PCONC(:,5)
!
-!PTERMS(NO2,K241) = +K241*<NO>*<RO243>
- PTERMS(:,2,242) = +TPK%K241(:)*PCONC(:,1)*TPK%RO243(:)
+!PTERMS(MO2,K124) = +0.91910*K124*<CARBOP>*<NO3>
+ PTERMS(:,32,124) = +0.91910*TPK%K124(:)*PCONC(:,39)*PCONC(:,5)
!
-!PTERMS(HO2,K241) = +K241*<NO>*<RO243>
- PTERMS(:,10,242) = +TPK%K241(:)*PCONC(:,1)*TPK%RO243(:)
+!PTERMS(CARBOP,K124) = -K124*<CARBOP>*<NO3>
+ PTERMS(:,39,124) = -TPK%K124(:)*PCONC(:,39)*PCONC(:,5)
!
-!PTERMS(MGLY,K241) = +K241*<NO>*<RO243>
- PTERMS(:,41,242) = +TPK%K241(:)*PCONC(:,1)*TPK%RO243(:)
+!PTERMS(XO2,K124) = +0.01021*K124*<CARBOP>*<NO3>
+ PTERMS(:,41,124) = +0.01021*TPK%K124(:)*PCONC(:,39)*PCONC(:,5)
!
!
RETURN
-END SUBROUTINE SUBT39
+END SUBROUTINE SUBT28
!
-SUBROUTINE SUBT40
+SUBROUTINE SUBT29
!
-!Indices 801 a 820
+!Indices 581 a 600
!
-!PTERMS(RP10,K241) = +K241*<NO>*<RO243>
- PTERMS(:,72,242) = +TPK%K241(:)*PCONC(:,1)*TPK%RO243(:)
+!PTERMS(NO2,K125) = +1.74072*K125*<OLN>*<NO3>
+ PTERMS(:,4,125) = +1.74072*TPK%K125(:)*PCONC(:,40)*PCONC(:,5)
!
-!PTERMS(HO2,K242) = +K242*<RO2T>*<RO243>
- PTERMS(:,10,243) = +TPK%K242(:)*PCONC(:,85)*TPK%RO243(:)
+!PTERMS(NO3,K125) = -K125*<OLN>*<NO3>
+ PTERMS(:,5,125) = -TPK%K125(:)*PCONC(:,40)*PCONC(:,5)
!
-!PTERMS(MGLY,K242) = +K242*<RO2T>*<RO243>
- PTERMS(:,41,243) = +TPK%K242(:)*PCONC(:,85)*TPK%RO243(:)
+!PTERMS(HO2,K125) = +0.25928*K125*<OLN>*<NO3>
+ PTERMS(:,15,125) = +0.25928*TPK%K125(:)*PCONC(:,40)*PCONC(:,5)
!
-!PTERMS(RP10,K242) = +K242*<RO2T>*<RO243>
- PTERMS(:,72,243) = +TPK%K242(:)*PCONC(:,85)*TPK%RO243(:)
+!PTERMS(HCHO,K125) = +0.20740*K125*<OLN>*<NO3>
+ PTERMS(:,22,125) = +0.20740*TPK%K125(:)*PCONC(:,40)*PCONC(:,5)
!
-!PTERMS(RO2T,K242) = -K242*<RO2T>*<RO243>
- PTERMS(:,85,243) = -TPK%K242(:)*PCONC(:,85)*TPK%RO243(:)
+!PTERMS(ALD,K125) = +0.91850*K125*<OLN>*<NO3>
+ PTERMS(:,23,125) = +0.91850*TPK%K125(:)*PCONC(:,40)*PCONC(:,5)
!
-!PTERMS(HO2,K243) = -K243*<HO2>*<RO243>
- PTERMS(:,10,244) = -TPK%K243(:)*PCONC(:,10)*TPK%RO243(:)
+!PTERMS(KET,K125) = +0.34740*K125*<OLN>*<NO3>
+ PTERMS(:,24,125) = +0.34740*TPK%K125(:)*PCONC(:,40)*PCONC(:,5)
!
-!PTERMS(OH,K243) = +K243*<HO2>*<RO243>
- PTERMS(:,15,244) = +TPK%K243(:)*PCONC(:,10)*TPK%RO243(:)
+!PTERMS(ONIT,K125) = +0.25928*K125*<OLN>*<NO3>
+ PTERMS(:,26,125) = +0.25928*TPK%K125(:)*PCONC(:,40)*PCONC(:,5)
!
-!PTERMS(MGLY,K243) = +K243*<HO2>*<RO243>
- PTERMS(:,41,244) = +TPK%K243(:)*PCONC(:,10)*TPK%RO243(:)
+!PTERMS(OLN,K125) = -K125*<OLN>*<NO3>
+ PTERMS(:,40,125) = -TPK%K125(:)*PCONC(:,40)*PCONC(:,5)
!
-!PTERMS(RP10,K243) = +K243*<HO2>*<RO243>
- PTERMS(:,72,244) = +TPK%K243(:)*PCONC(:,10)*TPK%RO243(:)
+!PTERMS(HO2,K126) = -K126*<XO2>*<HO2>
+ PTERMS(:,15,126) = -TPK%K126(:)*PCONC(:,41)*PCONC(:,15)
!
-!PTERMS(RO2T,K244) = +K244*<RO235>
- PTERMS(:,85,245) = +TPK%K244(:)*TPK%RO235(:)
+!PTERMS(OP2,K126) = +1.00524*K126*<XO2>*<HO2>
+ PTERMS(:,29,126) = +1.00524*TPK%K126(:)*PCONC(:,41)*PCONC(:,15)
!
-!PTERMS(NO,K245) = -K245*<NO>*<RO235>
- PTERMS(:,1,246) = -TPK%K245(:)*PCONC(:,1)*TPK%RO235(:)
+!PTERMS(XO2,K126) = -K126*<XO2>*<HO2>
+ PTERMS(:,41,126) = -TPK%K126(:)*PCONC(:,41)*PCONC(:,15)
!
-!PTERMS(NO2,K245) = +K245*<NO>*<RO235>
- PTERMS(:,2,246) = +TPK%K245(:)*PCONC(:,1)*TPK%RO235(:)
+!PTERMS(HO2,K127) = +K127*<XO2>*<MO2>
+ PTERMS(:,15,127) = +TPK%K127(:)*PCONC(:,41)*PCONC(:,32)
!
-!PTERMS(HO2,K245) = +K245*<NO>*<RO235>
- PTERMS(:,10,246) = +TPK%K245(:)*PCONC(:,1)*TPK%RO235(:)
+!PTERMS(HCHO,K127) = +K127*<XO2>*<MO2>
+ PTERMS(:,22,127) = +TPK%K127(:)*PCONC(:,41)*PCONC(:,32)
!
-!PTERMS(RP11,K245) = +0.5*K245*<NO>*<RO235>
- PTERMS(:,73,246) = +0.5*TPK%K245(:)*PCONC(:,1)*TPK%RO235(:)
+!PTERMS(MO2,K127) = -K127*<XO2>*<MO2>
+ PTERMS(:,32,127) = -TPK%K127(:)*PCONC(:,41)*PCONC(:,32)
!
-!PTERMS(HO2,K246) = +K246*<RO2T>*<RO235>
- PTERMS(:,10,247) = +TPK%K246(:)*PCONC(:,85)*TPK%RO235(:)
+!PTERMS(XO2,K127) = -K127*<XO2>*<MO2>
+ PTERMS(:,41,127) = -TPK%K127(:)*PCONC(:,41)*PCONC(:,32)
!
-!PTERMS(RP11,K246) = +K246*<RO2T>*<RO235>
- PTERMS(:,73,247) = +TPK%K246(:)*PCONC(:,85)*TPK%RO235(:)
+!PTERMS(MO2,K128) = +K128*<XO2>*<CARBOP>
+ PTERMS(:,32,128) = +TPK%K128(:)*PCONC(:,41)*PCONC(:,39)
!
-!PTERMS(RO2T,K246) = -K246*<RO2T>*<RO235>
- PTERMS(:,85,247) = -TPK%K246(:)*PCONC(:,85)*TPK%RO235(:)
+!PTERMS(CARBOP,K128) = -K128*<XO2>*<CARBOP>
+ PTERMS(:,39,128) = -TPK%K128(:)*PCONC(:,41)*PCONC(:,39)
!
-!PTERMS(HO2,K247) = -K247*<HO2>*<RO235>
- PTERMS(:,10,248) = -TPK%K247(:)*PCONC(:,10)*TPK%RO235(:)
+!PTERMS(XO2,K128) = -K128*<XO2>*<CARBOP>
+ PTERMS(:,41,128) = -TPK%K128(:)*PCONC(:,41)*PCONC(:,39)
!
-!PTERMS(OH,K247) = +K247*<HO2>*<RO235>
- PTERMS(:,15,248) = +TPK%K247(:)*PCONC(:,10)*TPK%RO235(:)
+!PTERMS(XO2,K129) = -K129*<XO2>*<XO2>
+ PTERMS(:,41,129) = -TPK%K129(:)*PCONC(:,41)*PCONC(:,41)
!
-!PTERMS(RP11,K247) = +K247*<HO2>*<RO235>
- PTERMS(:,73,248) = +TPK%K247(:)*PCONC(:,10)*TPK%RO235(:)
+!PTERMS(NO,K130) = -K130*<XO2>*<NO>
+ PTERMS(:,3,130) = -TPK%K130(:)*PCONC(:,41)*PCONC(:,3)
!
!
RETURN
-END SUBROUTINE SUBT40
+END SUBROUTINE SUBT29
!
-SUBROUTINE SUBT41
+SUBROUTINE SUBT30
!
-!Indices 821 a 840
+!Indices 601 a 620
!
-!PTERMS(NO,K248) = -K248*<NO>*<RO244>
- PTERMS(:,1,249) = -TPK%K248(:)*PCONC(:,1)*TPK%RO244(:)
+!PTERMS(NO2,K130) = +K130*<XO2>*<NO>
+ PTERMS(:,4,130) = +TPK%K130(:)*PCONC(:,41)*PCONC(:,3)
!
-!PTERMS(NO2,K248) = +K248*<NO>*<RO244>
- PTERMS(:,2,249) = +TPK%K248(:)*PCONC(:,1)*TPK%RO244(:)
+!PTERMS(XO2,K130) = -K130*<XO2>*<NO>
+ PTERMS(:,41,130) = -TPK%K130(:)*PCONC(:,41)*PCONC(:,3)
!
-!PTERMS(HO2,K248) = +K248*<NO>*<RO244>
- PTERMS(:,10,249) = +TPK%K248(:)*PCONC(:,1)*TPK%RO244(:)
+!PTERMS(NO2,K131) = +K131*<XO2>*<NO3>
+ PTERMS(:,4,131) = +TPK%K131(:)*PCONC(:,41)*PCONC(:,5)
!
-!PTERMS(MGLY,K248) = +K248*<NO>*<RO244>
- PTERMS(:,41,249) = +TPK%K248(:)*PCONC(:,1)*TPK%RO244(:)
+!PTERMS(NO3,K131) = -K131*<XO2>*<NO3>
+ PTERMS(:,5,131) = -TPK%K131(:)*PCONC(:,41)*PCONC(:,5)
!
-!PTERMS(RP10,K248) = +K248*<NO>*<RO244>
- PTERMS(:,72,249) = +TPK%K248(:)*PCONC(:,1)*TPK%RO244(:)
+!PTERMS(XO2,K131) = -K131*<XO2>*<NO3>
+ PTERMS(:,41,131) = -TPK%K131(:)*PCONC(:,41)*PCONC(:,5)
!
-!PTERMS(HO2,K249) = +K249*<RO2T>*<RO244>
- PTERMS(:,10,250) = +TPK%K249(:)*PCONC(:,85)*TPK%RO244(:)
+!PTERMS(SULF,K132) = -K132*<SULF>
+ PTERMS(:,12,132) = -TPK%K132(:)*PCONC(:,12)
!
-!PTERMS(MGLY,K249) = +K249*<RO2T>*<RO244>
- PTERMS(:,41,250) = +TPK%K249(:)*PCONC(:,85)*TPK%RO244(:)
+!PTERMS(O3,KTC1) = -KTC1*<O3>
+ PTERMS(:,1,133) = -TPK%KTC1(:)*PCONC(:,1)
!
-!PTERMS(RP10,K249) = +K249*<RO2T>*<RO244>
- PTERMS(:,72,250) = +TPK%K249(:)*PCONC(:,85)*TPK%RO244(:)
+!PTERMS(WC_O3,KTC1) = +KTC1*<O3>
+ PTERMS(:,42,133) = +TPK%KTC1(:)*PCONC(:,1)
!
-!PTERMS(RO2T,K249) = -K249*<RO2T>*<RO244>
- PTERMS(:,85,250) = -TPK%K249(:)*PCONC(:,85)*TPK%RO244(:)
+!PTERMS(H2O2,KTC2) = -KTC2*<H2O2>
+ PTERMS(:,2,134) = -TPK%KTC2(:)*PCONC(:,2)
!
-!PTERMS(HO2,K250) = -K250*<HO2>*<RO244>
- PTERMS(:,10,251) = -TPK%K250(:)*PCONC(:,10)*TPK%RO244(:)
+!PTERMS(WC_H2O2,KTC2) = +KTC2*<H2O2>
+ PTERMS(:,43,134) = +TPK%KTC2(:)*PCONC(:,2)
!
-!PTERMS(OH,K250) = +K250*<HO2>*<RO244>
- PTERMS(:,15,251) = +TPK%K250(:)*PCONC(:,10)*TPK%RO244(:)
+!PTERMS(NO,KTC3) = -KTC3*<NO>
+ PTERMS(:,3,135) = -TPK%KTC3(:)*PCONC(:,3)
!
-!PTERMS(MGLY,K250) = +K250*<HO2>*<RO244>
- PTERMS(:,41,251) = +TPK%K250(:)*PCONC(:,10)*TPK%RO244(:)
+!PTERMS(WC_NO,KTC3) = +KTC3*<NO>
+ PTERMS(:,44,135) = +TPK%KTC3(:)*PCONC(:,3)
!
-!PTERMS(RP10,K250) = +K250*<HO2>*<RO244>
- PTERMS(:,72,251) = +TPK%K250(:)*PCONC(:,10)*TPK%RO244(:)
+!PTERMS(NO2,KTC4) = -KTC4*<NO2>
+ PTERMS(:,4,136) = -TPK%KTC4(:)*PCONC(:,4)
!
-!PTERMS(RO2T,K251) = +K251*<RO236>
- PTERMS(:,85,252) = +TPK%K251(:)*TPK%RO236(:)
+!PTERMS(WC_NO2,KTC4) = +KTC4*<NO2>
+ PTERMS(:,45,136) = +TPK%KTC4(:)*PCONC(:,4)
!
-!PTERMS(NO,K252) = -K252*<NO>*<RO236>
- PTERMS(:,1,253) = -TPK%K252(:)*PCONC(:,1)*TPK%RO236(:)
+!PTERMS(NO3,KTC5) = -KTC5*<NO3>
+ PTERMS(:,5,137) = -TPK%KTC5(:)*PCONC(:,5)
!
-!PTERMS(NO2,K252) = +K252*<NO>*<RO236>
- PTERMS(:,2,253) = +TPK%K252(:)*PCONC(:,1)*TPK%RO236(:)
+!PTERMS(WC_NO3,KTC5) = +KTC5*<NO3>
+ PTERMS(:,46,137) = +TPK%KTC5(:)*PCONC(:,5)
!
-!PTERMS(HO2,K252) = +K252*<NO>*<RO236>
- PTERMS(:,10,253) = +TPK%K252(:)*PCONC(:,1)*TPK%RO236(:)
+!PTERMS(N2O5,KTC6) = -KTC6*<N2O5>
+ PTERMS(:,6,138) = -TPK%KTC6(:)*PCONC(:,6)
!
-!PTERMS(RPG3,K252) = +0.3000000*K252*<NO>*<RO236>
- PTERMS(:,52,253) = +0.3000000*TPK%K252(:)*PCONC(:,1)*TPK%RO236(:)
+!PTERMS(WC_N2O5,KTC6) = +KTC6*<N2O5>
+ PTERMS(:,47,138) = +TPK%KTC6(:)*PCONC(:,6)
!
-!PTERMS(HO2,K253) = +K253*<RO2T>*<RO236>
- PTERMS(:,10,254) = +TPK%K253(:)*PCONC(:,85)*TPK%RO236(:)
+!PTERMS(HONO,KTC7) = -KTC7*<HONO>
+ PTERMS(:,7,139) = -TPK%KTC7(:)*PCONC(:,7)
!
-!PTERMS(RPG3,K253) = +1.0000000*K253*<RO2T>*<RO236>
- PTERMS(:,52,254) = +1.0000000*TPK%K253(:)*PCONC(:,85)*TPK%RO236(:)
+!PTERMS(WC_HONO,KTC7) = +KTC7*<HONO>
+ PTERMS(:,48,139) = +TPK%KTC7(:)*PCONC(:,7)
!
!
RETURN
-END SUBROUTINE SUBT41
+END SUBROUTINE SUBT30
!
-SUBROUTINE SUBT42
+SUBROUTINE SUBT31
!
-!Indices 841 a 860
+!Indices 621 a 640
!
-!PTERMS(RO2T,K253) = -K253*<RO2T>*<RO236>
- PTERMS(:,85,254) = -TPK%K253(:)*PCONC(:,85)*TPK%RO236(:)
+!PTERMS(HNO3,KTC8) = -KTC8*<HNO3>
+ PTERMS(:,8,140) = -TPK%KTC8(:)*PCONC(:,8)
!
-!PTERMS(HO2,K254) = -K254*<HO2>*<RO236>
- PTERMS(:,10,255) = -TPK%K254(:)*PCONC(:,10)*TPK%RO236(:)
+!PTERMS(WC_HNO3,KTC8) = +KTC8*<HNO3>
+ PTERMS(:,49,140) = +TPK%KTC8(:)*PCONC(:,8)
!
-!PTERMS(OH,K254) = +K254*<HO2>*<RO236>
- PTERMS(:,15,255) = +TPK%K254(:)*PCONC(:,10)*TPK%RO236(:)
+!PTERMS(HNO4,KTC9) = -KTC9*<HNO4>
+ PTERMS(:,9,141) = -TPK%KTC9(:)*PCONC(:,9)
!
-!PTERMS(RPG3,K254) = +0.3000000*K254*<HO2>*<RO236>
- PTERMS(:,52,255) = +0.3000000*TPK%K254(:)*PCONC(:,10)*TPK%RO236(:)
+!PTERMS(WC_HNO4,KTC9) = +KTC9*<HNO4>
+ PTERMS(:,50,141) = +TPK%KTC9(:)*PCONC(:,9)
!
-!PTERMS(NO,K255) = -K255*<NO>*<RO245>
- PTERMS(:,1,256) = -TPK%K255(:)*PCONC(:,1)*TPK%RO245(:)
+!PTERMS(NH3,KTC10) = -KTC10*<NH3>
+ PTERMS(:,10,142) = -TPK%KTC10(:)*PCONC(:,10)
!
-!PTERMS(NO2,K255) = +K255*<NO>*<RO245>
- PTERMS(:,2,256) = +TPK%K255(:)*PCONC(:,1)*TPK%RO245(:)
+!PTERMS(WC_NH3,KTC10) = +KTC10*<NH3>
+ PTERMS(:,51,142) = +TPK%KTC10(:)*PCONC(:,10)
!
-!PTERMS(HO2,K255) = +K255*<NO>*<RO245>
- PTERMS(:,10,256) = +TPK%K255(:)*PCONC(:,1)*TPK%RO245(:)
+!PTERMS(OH,KTC11) = -KTC11*<OH>
+ PTERMS(:,14,143) = -TPK%KTC11(:)*PCONC(:,14)
!
-!PTERMS(MGLY,K255) = +K255*<NO>*<RO245>
- PTERMS(:,41,256) = +TPK%K255(:)*PCONC(:,1)*TPK%RO245(:)
+!PTERMS(WC_OH,KTC11) = +KTC11*<OH>
+ PTERMS(:,52,143) = +TPK%KTC11(:)*PCONC(:,14)
!
-!PTERMS(RP10,K255) = +K255*<NO>*<RO245>
- PTERMS(:,72,256) = +TPK%K255(:)*PCONC(:,1)*TPK%RO245(:)
+!PTERMS(HO2,KTC12) = -KTC12*<HO2>
+ PTERMS(:,15,144) = -TPK%KTC12(:)*PCONC(:,15)
!
-!PTERMS(HO2,K256) = +K256*<RO2T>*<RO245>
- PTERMS(:,10,257) = +TPK%K256(:)*PCONC(:,85)*TPK%RO245(:)
+!PTERMS(WC_HO2,KTC12) = +KTC12*<HO2>
+ PTERMS(:,53,144) = +TPK%KTC12(:)*PCONC(:,15)
!
-!PTERMS(MGLY,K256) = +K256*<RO2T>*<RO245>
- PTERMS(:,41,257) = +TPK%K256(:)*PCONC(:,85)*TPK%RO245(:)
+!PTERMS(WC_CO2,KTC13) = +KTC13*<CO2>
+ PTERMS(:,54,145) = +TPK%KTC13(:)*TPK%CO2(:)
!
-!PTERMS(RP10,K256) = +K256*<RO2T>*<RO245>
- PTERMS(:,72,257) = +TPK%K256(:)*PCONC(:,85)*TPK%RO245(:)
+!PTERMS(SO2,KTC14) = -KTC14*<SO2>
+ PTERMS(:,11,146) = -TPK%KTC14(:)*PCONC(:,11)
!
-!PTERMS(RO2T,K256) = -K256*<RO2T>*<RO245>
- PTERMS(:,85,257) = -TPK%K256(:)*PCONC(:,85)*TPK%RO245(:)
+!PTERMS(WC_SO2,KTC14) = +KTC14*<SO2>
+ PTERMS(:,55,146) = +TPK%KTC14(:)*PCONC(:,11)
!
-!PTERMS(HO2,K257) = -K257*<HO2>*<RO245>
- PTERMS(:,10,258) = -TPK%K257(:)*PCONC(:,10)*TPK%RO245(:)
+!PTERMS(SULF,KTC15) = -KTC15*<SULF>
+ PTERMS(:,12,147) = -TPK%KTC15(:)*PCONC(:,12)
!
-!PTERMS(OH,K257) = +K257*<HO2>*<RO245>
- PTERMS(:,15,258) = +TPK%K257(:)*PCONC(:,10)*TPK%RO245(:)
+!PTERMS(WC_SULF,KTC15) = +KTC15*<SULF>
+ PTERMS(:,56,147) = +TPK%KTC15(:)*PCONC(:,12)
!
-!PTERMS(MGLY,K257) = +K257*<HO2>*<RO245>
- PTERMS(:,41,258) = +TPK%K257(:)*PCONC(:,10)*TPK%RO245(:)
+!PTERMS(HCHO,KTC16) = -KTC16*<HCHO>
+ PTERMS(:,22,148) = -TPK%KTC16(:)*PCONC(:,22)
!
-!PTERMS(RP10,K257) = +K257*<HO2>*<RO245>
- PTERMS(:,72,258) = +TPK%K257(:)*PCONC(:,10)*TPK%RO245(:)
+!PTERMS(WC_HCHO,KTC16) = +KTC16*<HCHO>
+ PTERMS(:,57,148) = +TPK%KTC16(:)*PCONC(:,22)
!
-!PTERMS(RO2T,K258) = +K258*<RO237>
- PTERMS(:,85,259) = +TPK%K258(:)*TPK%RO237(:)
+!PTERMS(ORA1,KTC17) = -KTC17*<ORA1>
+ PTERMS(:,30,149) = -TPK%KTC17(:)*PCONC(:,30)
!
-!PTERMS(NO,K259) = -K259*<NO>*<RO237>
- PTERMS(:,1,260) = -TPK%K259(:)*PCONC(:,1)*TPK%RO237(:)
+!PTERMS(WC_ORA1,KTC17) = +KTC17*<ORA1>
+ PTERMS(:,58,149) = +TPK%KTC17(:)*PCONC(:,30)
!
-!PTERMS(NO2,K259) = +K259*<NO>*<RO237>
- PTERMS(:,2,260) = +TPK%K259(:)*PCONC(:,1)*TPK%RO237(:)
+!PTERMS(ORA2,KTC18) = -KTC18*<ORA2>
+ PTERMS(:,31,150) = -TPK%KTC18(:)*PCONC(:,31)
!
!
RETURN
-END SUBROUTINE SUBT42
+END SUBROUTINE SUBT31
!
-SUBROUTINE SUBT43
+SUBROUTINE SUBT32
!
-!Indices 861 a 880
+!Indices 641 a 660
!
-!PTERMS(HO2,K259) = +K259*<NO>*<RO237>
- PTERMS(:,10,260) = +TPK%K259(:)*PCONC(:,1)*TPK%RO237(:)
+!PTERMS(WC_ORA2,KTC18) = +KTC18*<ORA2>
+ PTERMS(:,59,150) = +TPK%KTC18(:)*PCONC(:,31)
!
-!PTERMS(RPG2,K259) = +0.3000000*K259*<NO>*<RO237>
- PTERMS(:,50,260) = +0.3000000*TPK%K259(:)*PCONC(:,1)*TPK%RO237(:)
+!PTERMS(MO2,KTC19) = -KTC19*<MO2>
+ PTERMS(:,32,151) = -TPK%KTC19(:)*PCONC(:,32)
!
-!PTERMS(HO2,K260) = +K260*<RO2T>*<RO237>
- PTERMS(:,10,261) = +TPK%K260(:)*PCONC(:,85)*TPK%RO237(:)
+!PTERMS(WC_MO2,KTC19) = +KTC19*<MO2>
+ PTERMS(:,60,151) = +TPK%KTC19(:)*PCONC(:,32)
!
-!PTERMS(RPG2,K260) = +1.0000000*K260*<RO2T>*<RO237>
- PTERMS(:,50,261) = +1.0000000*TPK%K260(:)*PCONC(:,85)*TPK%RO237(:)
+!PTERMS(OP1,KTC20) = -KTC20*<OP1>
+ PTERMS(:,28,152) = -TPK%KTC20(:)*PCONC(:,28)
!
-!PTERMS(RO2T,K260) = -K260*<RO2T>*<RO237>
- PTERMS(:,85,261) = -TPK%K260(:)*PCONC(:,85)*TPK%RO237(:)
+!PTERMS(WC_OP1,KTC20) = +KTC20*<OP1>
+ PTERMS(:,61,152) = +TPK%KTC20(:)*PCONC(:,28)
!
-!PTERMS(HO2,K261) = -K261*<HO2>*<RO237>
- PTERMS(:,10,262) = -TPK%K261(:)*PCONC(:,10)*TPK%RO237(:)
+!PTERMS(O3,KTC21) = +KTC21*<WC_O3>
+ PTERMS(:,1,153) = +TPK%KTC21(:)*PCONC(:,42)
!
-!PTERMS(OH,K261) = +K261*<HO2>*<RO237>
- PTERMS(:,15,262) = +TPK%K261(:)*PCONC(:,10)*TPK%RO237(:)
+!PTERMS(WC_O3,KTC21) = -KTC21*<WC_O3>
+ PTERMS(:,42,153) = -TPK%KTC21(:)*PCONC(:,42)
!
-!PTERMS(RPG2,K261) = +0.3000000*K261*<HO2>*<RO237>
- PTERMS(:,50,262) = +0.3000000*TPK%K261(:)*PCONC(:,10)*TPK%RO237(:)
+!PTERMS(H2O2,KTC22) = +KTC22*<WC_H2O2>
+ PTERMS(:,2,154) = +TPK%KTC22(:)*PCONC(:,43)
!
-!PTERMS(NO,K262) = -K262*<NO>*<RO246>
- PTERMS(:,1,263) = -TPK%K262(:)*PCONC(:,1)*TPK%RO246(:)
+!PTERMS(WC_H2O2,KTC22) = -KTC22*<WC_H2O2>
+ PTERMS(:,43,154) = -TPK%KTC22(:)*PCONC(:,43)
!
-!PTERMS(NO2,K262) = +K262*<NO>*<RO246>
- PTERMS(:,2,263) = +TPK%K262(:)*PCONC(:,1)*TPK%RO246(:)
+!PTERMS(NO,KTC23) = +KTC23*<WC_NO>
+ PTERMS(:,3,155) = +TPK%KTC23(:)*PCONC(:,44)
!
-!PTERMS(HO2,K262) = +K262*<NO>*<RO246>
- PTERMS(:,10,263) = +TPK%K262(:)*PCONC(:,1)*TPK%RO246(:)
+!PTERMS(WC_NO,KTC23) = -KTC23*<WC_NO>
+ PTERMS(:,44,155) = -TPK%KTC23(:)*PCONC(:,44)
!
-!PTERMS(MGLY,K262) = +K262*<NO>*<RO246>
- PTERMS(:,41,263) = +TPK%K262(:)*PCONC(:,1)*TPK%RO246(:)
+!PTERMS(NO2,KTC24) = +KTC24*<WC_NO2>
+ PTERMS(:,4,156) = +TPK%KTC24(:)*PCONC(:,45)
!
-!PTERMS(RP10,K262) = +K262*<NO>*<RO246>
- PTERMS(:,72,263) = +TPK%K262(:)*PCONC(:,1)*TPK%RO246(:)
+!PTERMS(WC_NO2,KTC24) = -KTC24*<WC_NO2>
+ PTERMS(:,45,156) = -TPK%KTC24(:)*PCONC(:,45)
!
-!PTERMS(HO2,K263) = +K263*<RO2T>*<RO246>
- PTERMS(:,10,264) = +TPK%K263(:)*PCONC(:,85)*TPK%RO246(:)
+!PTERMS(NO3,KTC25) = +KTC25*<WC_NO3>
+ PTERMS(:,5,157) = +TPK%KTC25(:)*PCONC(:,46)
!
-!PTERMS(MGLY,K263) = +K263*<RO2T>*<RO246>
- PTERMS(:,41,264) = +TPK%K263(:)*PCONC(:,85)*TPK%RO246(:)
+!PTERMS(WC_NO3,KTC25) = -KTC25*<WC_NO3>
+ PTERMS(:,46,157) = -TPK%KTC25(:)*PCONC(:,46)
!
-!PTERMS(RP10,K263) = +K263*<RO2T>*<RO246>
- PTERMS(:,72,264) = +TPK%K263(:)*PCONC(:,85)*TPK%RO246(:)
+!PTERMS(N2O5,KTC26) = +KTC26*<WC_N2O5>
+ PTERMS(:,6,158) = +TPK%KTC26(:)*PCONC(:,47)
!
-!PTERMS(RO2T,K263) = -K263*<RO2T>*<RO246>
- PTERMS(:,85,264) = -TPK%K263(:)*PCONC(:,85)*TPK%RO246(:)
+!PTERMS(WC_N2O5,KTC26) = -KTC26*<WC_N2O5>
+ PTERMS(:,47,158) = -TPK%KTC26(:)*PCONC(:,47)
!
-!PTERMS(HO2,K264) = -K264*<HO2>*<RO246>
- PTERMS(:,10,265) = -TPK%K264(:)*PCONC(:,10)*TPK%RO246(:)
+!PTERMS(HONO,KTC27) = +KTC27*<WC_HONO>
+ PTERMS(:,7,159) = +TPK%KTC27(:)*PCONC(:,48)
!
-!PTERMS(OH,K264) = +K264*<HO2>*<RO246>
- PTERMS(:,15,265) = +TPK%K264(:)*PCONC(:,10)*TPK%RO246(:)
+!PTERMS(WC_HONO,KTC27) = -KTC27*<WC_HONO>
+ PTERMS(:,48,159) = -TPK%KTC27(:)*PCONC(:,48)
!
-!PTERMS(MGLY,K264) = +K264*<HO2>*<RO246>
- PTERMS(:,41,265) = +TPK%K264(:)*PCONC(:,10)*TPK%RO246(:)
+!PTERMS(HNO3,KTC28) = +KTC28*<WC_HNO3>
+ PTERMS(:,8,160) = +TPK%KTC28(:)*PCONC(:,49)
!
!
RETURN
-END SUBROUTINE SUBT43
+END SUBROUTINE SUBT32
!
-SUBROUTINE SUBT44
+SUBROUTINE SUBT33
!
-!Indices 881 a 900
+!Indices 661 a 680
!
-!PTERMS(RP10,K264) = +K264*<HO2>*<RO246>
- PTERMS(:,72,265) = +TPK%K264(:)*PCONC(:,10)*TPK%RO246(:)
+!PTERMS(WC_HNO3,KTC28) = -KTC28*<WC_HNO3>
+ PTERMS(:,49,160) = -TPK%KTC28(:)*PCONC(:,49)
!
-!PTERMS(RO2T,K265) = +K265*<RO238>
- PTERMS(:,85,266) = +TPK%K265(:)*TPK%RO238(:)
+!PTERMS(HNO4,KTC29) = +KTC29*<WC_HNO4>
+ PTERMS(:,9,161) = +TPK%KTC29(:)*PCONC(:,50)
!
-!PTERMS(NO,K266) = -K266*<NO>*<RO238>
- PTERMS(:,1,267) = -TPK%K266(:)*PCONC(:,1)*TPK%RO238(:)
+!PTERMS(WC_HNO4,KTC29) = -KTC29*<WC_HNO4>
+ PTERMS(:,50,161) = -TPK%KTC29(:)*PCONC(:,50)
!
-!PTERMS(NO2,K266) = +K266*<NO>*<RO238>
- PTERMS(:,2,267) = +TPK%K266(:)*PCONC(:,1)*TPK%RO238(:)
+!PTERMS(NH3,KTC30) = +KTC30*<WC_NH3>
+ PTERMS(:,10,162) = +TPK%KTC30(:)*PCONC(:,51)
!
-!PTERMS(HO2,K266) = +K266*<NO>*<RO238>
- PTERMS(:,10,267) = +TPK%K266(:)*PCONC(:,1)*TPK%RO238(:)
+!PTERMS(WC_NH3,KTC30) = -KTC30*<WC_NH3>
+ PTERMS(:,51,162) = -TPK%KTC30(:)*PCONC(:,51)
!
-!PTERMS(RPG7,K266) = +1.0000013*K266*<NO>*<RO238>
- PTERMS(:,63,267) = +1.0000013*TPK%K266(:)*PCONC(:,1)*TPK%RO238(:)
+!PTERMS(OH,KTC31) = +KTC31*<WC_OH>
+ PTERMS(:,14,163) = +TPK%KTC31(:)*PCONC(:,52)
!
-!PTERMS(HO2,K267) = +K267*<RO2T>*<RO238>
- PTERMS(:,10,268) = +TPK%K267(:)*PCONC(:,85)*TPK%RO238(:)
+!PTERMS(WC_OH,KTC31) = -KTC31*<WC_OH>
+ PTERMS(:,52,163) = -TPK%KTC31(:)*PCONC(:,52)
!
-!PTERMS(RPG7,K267) = +1.0000013*K267*<RO2T>*<RO238>
- PTERMS(:,63,268) = +1.0000013*TPK%K267(:)*PCONC(:,85)*TPK%RO238(:)
+!PTERMS(HO2,KTC32) = +KTC32*<WC_HO2>
+ PTERMS(:,15,164) = +TPK%KTC32(:)*PCONC(:,53)
!
-!PTERMS(RO2T,K267) = -K267*<RO2T>*<RO238>
- PTERMS(:,85,268) = -TPK%K267(:)*PCONC(:,85)*TPK%RO238(:)
+!PTERMS(WC_HO2,KTC32) = -KTC32*<WC_HO2>
+ PTERMS(:,53,164) = -TPK%KTC32(:)*PCONC(:,53)
!
-!PTERMS(HO2,K268) = -K268*<HO2>*<RO238>
- PTERMS(:,10,269) = -TPK%K268(:)*PCONC(:,10)*TPK%RO238(:)
+!PTERMS(WC_CO2,KTC33) = -KTC33*<WC_CO2>
+ PTERMS(:,54,165) = -TPK%KTC33(:)*PCONC(:,54)
!
-!PTERMS(OH,K268) = +K268*<HO2>*<RO238>
- PTERMS(:,15,269) = +TPK%K268(:)*PCONC(:,10)*TPK%RO238(:)
+!PTERMS(SO2,KTC34) = +KTC34*<WC_SO2>
+ PTERMS(:,11,166) = +TPK%KTC34(:)*PCONC(:,55)
!
-!PTERMS(RPG7,K268) = +1.0000013*K268*<HO2>*<RO238>
- PTERMS(:,63,269) = +1.0000013*TPK%K268(:)*PCONC(:,10)*TPK%RO238(:)
+!PTERMS(WC_SO2,KTC34) = -KTC34*<WC_SO2>
+ PTERMS(:,55,166) = -TPK%KTC34(:)*PCONC(:,55)
!
-!PTERMS(NO,K269) = -K269*<NO>*<RO247>
- PTERMS(:,1,270) = -TPK%K269(:)*PCONC(:,1)*TPK%RO247(:)
+!PTERMS(SULF,KTC35) = +KTC35*<WC_SULF>
+ PTERMS(:,12,167) = +TPK%KTC35(:)*PCONC(:,56)
!
-!PTERMS(NO2,K269) = +K269*<NO>*<RO247>
- PTERMS(:,2,270) = +TPK%K269(:)*PCONC(:,1)*TPK%RO247(:)
+!PTERMS(WC_SULF,KTC35) = -KTC35*<WC_SULF>
+ PTERMS(:,56,167) = -TPK%KTC35(:)*PCONC(:,56)
!
-!PTERMS(HO2,K269) = +K269*<NO>*<RO247>
- PTERMS(:,10,270) = +TPK%K269(:)*PCONC(:,1)*TPK%RO247(:)
+!PTERMS(HCHO,KTC36) = +KTC36*<WC_HCHO>
+ PTERMS(:,22,168) = +TPK%KTC36(:)*PCONC(:,57)
!
-!PTERMS(MGLY,K269) = +K269*<NO>*<RO247>
- PTERMS(:,41,270) = +TPK%K269(:)*PCONC(:,1)*TPK%RO247(:)
+!PTERMS(WC_HCHO,KTC36) = -KTC36*<WC_HCHO>
+ PTERMS(:,57,168) = -TPK%KTC36(:)*PCONC(:,57)
!
-!PTERMS(RPRL,K269) = +1.0023998*K269*<NO>*<RO247>
- PTERMS(:,75,270) = +1.0023998*TPK%K269(:)*PCONC(:,1)*TPK%RO247(:)
+!PTERMS(ORA1,KTC37) = +KTC37*<WC_ORA1>
+ PTERMS(:,30,169) = +TPK%KTC37(:)*PCONC(:,58)
!
-!PTERMS(HO2,K270) = +K270*<RO2T>*<RO247>
- PTERMS(:,10,271) = +TPK%K270(:)*PCONC(:,85)*TPK%RO247(:)
+!PTERMS(WC_ORA1,KTC37) = -KTC37*<WC_ORA1>
+ PTERMS(:,58,169) = -TPK%KTC37(:)*PCONC(:,58)
!
-!PTERMS(MGLY,K270) = +K270*<RO2T>*<RO247>
- PTERMS(:,41,271) = +TPK%K270(:)*PCONC(:,85)*TPK%RO247(:)
+!PTERMS(ORA2,KTC38) = +KTC38*<WC_ORA2>
+ PTERMS(:,31,170) = +TPK%KTC38(:)*PCONC(:,59)
!
-!PTERMS(RPRL,K270) = +1.0023998*K270*<RO2T>*<RO247>
- PTERMS(:,75,271) = +1.0023998*TPK%K270(:)*PCONC(:,85)*TPK%RO247(:)
+!PTERMS(WC_ORA2,KTC38) = -KTC38*<WC_ORA2>
+ PTERMS(:,59,170) = -TPK%KTC38(:)*PCONC(:,59)
!
!
RETURN
-END SUBROUTINE SUBT44
+END SUBROUTINE SUBT33
!
-SUBROUTINE SUBT45
+SUBROUTINE SUBT34
!
-!Indices 901 a 920
+!Indices 681 a 700
!
-!PTERMS(RO2T,K270) = -K270*<RO2T>*<RO247>
- PTERMS(:,85,271) = -TPK%K270(:)*PCONC(:,85)*TPK%RO247(:)
+!PTERMS(MO2,KTC39) = +KTC39*<WC_MO2>
+ PTERMS(:,32,171) = +TPK%KTC39(:)*PCONC(:,60)
!
-!PTERMS(HO2,K271) = -K271*<HO2>*<RO247>
- PTERMS(:,10,272) = -TPK%K271(:)*PCONC(:,10)*TPK%RO247(:)
+!PTERMS(WC_MO2,KTC39) = -KTC39*<WC_MO2>
+ PTERMS(:,60,171) = -TPK%KTC39(:)*PCONC(:,60)
!
-!PTERMS(OH,K271) = +K271*<HO2>*<RO247>
- PTERMS(:,15,272) = +TPK%K271(:)*PCONC(:,10)*TPK%RO247(:)
+!PTERMS(OP1,KTC40) = +KTC40*<WC_OP1>
+ PTERMS(:,28,172) = +TPK%KTC40(:)*PCONC(:,61)
!
-!PTERMS(MGLY,K271) = +K271*<HO2>*<RO247>
- PTERMS(:,41,272) = +TPK%K271(:)*PCONC(:,10)*TPK%RO247(:)
+!PTERMS(WC_OP1,KTC40) = -KTC40*<WC_OP1>
+ PTERMS(:,61,172) = -TPK%KTC40(:)*PCONC(:,61)
!
-!PTERMS(RPRL,K271) = +1.0023998*K271*<HO2>*<RO247>
- PTERMS(:,75,272) = +1.0023998*TPK%K271(:)*PCONC(:,10)*TPK%RO247(:)
+!PTERMS(O3,KTR1) = -KTR1*<O3>
+ PTERMS(:,1,173) = -TPK%KTR1(:)*PCONC(:,1)
!
-!PTERMS(OH,K272) = -K272*<OH>*<MVK>
- PTERMS(:,15,273) = -TPK%K272(:)*PCONC(:,15)*PCONC(:,39)
+!PTERMS(WR_O3,KTR1) = +KTR1*<O3>
+ PTERMS(:,67,173) = +TPK%KTR1(:)*PCONC(:,1)
!
-!PTERMS(MVK,K272) = -K272*<OH>*<MVK>
- PTERMS(:,39,273) = -TPK%K272(:)*PCONC(:,15)*PCONC(:,39)
+!PTERMS(H2O2,KTR2) = -KTR2*<H2O2>
+ PTERMS(:,2,174) = -TPK%KTR2(:)*PCONC(:,2)
!
-!PTERMS(RO2T,K272) = +K272*<OH>*<MVK>
- PTERMS(:,85,273) = +TPK%K272(:)*PCONC(:,15)*PCONC(:,39)
+!PTERMS(WR_H2O2,KTR2) = +KTR2*<H2O2>
+ PTERMS(:,68,174) = +TPK%KTR2(:)*PCONC(:,2)
!
-!PTERMS(OH,K273) = -K273*<OH>*<MCR>
- PTERMS(:,15,274) = -TPK%K273(:)*PCONC(:,15)*PCONC(:,40)
+!PTERMS(NO,KTR3) = -KTR3*<NO>
+ PTERMS(:,3,175) = -TPK%KTR3(:)*PCONC(:,3)
!
-!PTERMS(MCR,K273) = -K273*<OH>*<MCR>
- PTERMS(:,40,274) = -TPK%K273(:)*PCONC(:,15)*PCONC(:,40)
+!PTERMS(WR_NO,KTR3) = +KTR3*<NO>
+ PTERMS(:,69,175) = +TPK%KTR3(:)*PCONC(:,3)
!
-!PTERMS(RO2T,K273) = +K273*<OH>*<MCR>
- PTERMS(:,85,274) = +TPK%K273(:)*PCONC(:,15)*PCONC(:,40)
+!PTERMS(NO2,KTR4) = -KTR4*<NO2>
+ PTERMS(:,4,176) = -TPK%KTR4(:)*PCONC(:,4)
!
-!PTERMS(OH,K274) = -K274*<OH>*<MGLY>
- PTERMS(:,15,275) = -TPK%K274(:)*PCONC(:,15)*PCONC(:,41)
+!PTERMS(WR_NO2,KTR4) = +KTR4*<NO2>
+ PTERMS(:,70,176) = +TPK%KTR4(:)*PCONC(:,4)
!
-!PTERMS(MGLY,K274) = -K274*<OH>*<MGLY>
- PTERMS(:,41,275) = -TPK%K274(:)*PCONC(:,15)*PCONC(:,41)
+!PTERMS(NO3,KTR5) = -KTR5*<NO3>
+ PTERMS(:,5,177) = -TPK%KTR5(:)*PCONC(:,5)
!
-!PTERMS(RO2T,K274) = +K274*<OH>*<MGLY>
- PTERMS(:,85,275) = +TPK%K274(:)*PCONC(:,15)*PCONC(:,41)
+!PTERMS(WR_NO3,KTR5) = +KTR5*<NO3>
+ PTERMS(:,71,177) = +TPK%KTR5(:)*PCONC(:,5)
!
-!PTERMS(HNO3,K275) = +TPK%CF46*K275*<NO3>*<MCR>
- PTERMS(:,5,276) = +TPK%CF46*TPK%K275(:)*PCONC(:,8)*PCONC(:,40)
+!PTERMS(N2O5,KTR6) = -KTR6*<N2O5>
+ PTERMS(:,6,178) = -TPK%KTR6(:)*PCONC(:,6)
!
-!PTERMS(NO3,K275) = -K275*<NO3>*<MCR>
- PTERMS(:,8,276) = -TPK%K275(:)*PCONC(:,8)*PCONC(:,40)
+!PTERMS(WR_N2O5,KTR6) = +KTR6*<N2O5>
+ PTERMS(:,72,178) = +TPK%KTR6(:)*PCONC(:,6)
!
-!PTERMS(MCR,K275) = -K275*<NO3>*<MCR>
- PTERMS(:,40,276) = -TPK%K275(:)*PCONC(:,8)*PCONC(:,40)
+!PTERMS(HONO,KTR7) = -KTR7*<HONO>
+ PTERMS(:,7,179) = -TPK%KTR7(:)*PCONC(:,7)
!
-!PTERMS(RO2T,K275) = +K275*<NO3>*<MCR>
- PTERMS(:,85,276) = +TPK%K275(:)*PCONC(:,8)*PCONC(:,40)
+!PTERMS(WR_HONO,KTR7) = +KTR7*<HONO>
+ PTERMS(:,73,179) = +TPK%KTR7(:)*PCONC(:,7)
!
-!PTERMS(HO2,K276) = +K276*<MGLY>
- PTERMS(:,10,277) = +TPK%K276(:)*PCONC(:,41)
+!PTERMS(HNO3,KTR8) = -KTR8*<HNO3>
+ PTERMS(:,8,180) = -TPK%KTR8(:)*PCONC(:,8)
!
-!PTERMS(CO,K276) = +K276*<MGLY>
- PTERMS(:,11,277) = +TPK%K276(:)*PCONC(:,41)
+!PTERMS(WR_HNO3,KTR8) = +KTR8*<HNO3>
+ PTERMS(:,74,180) = +TPK%KTR8(:)*PCONC(:,8)
!
!
RETURN
-END SUBROUTINE SUBT45
+END SUBROUTINE SUBT34
!
-SUBROUTINE SUBT46
+SUBROUTINE SUBT35
!
-!Indices 921 a 940
+!Indices 701 a 720
!
-!PTERMS(MGLY,K276) = -K276*<MGLY>
- PTERMS(:,41,277) = -TPK%K276(:)*PCONC(:,41)
+!PTERMS(HNO4,KTR9) = -KTR9*<HNO4>
+ PTERMS(:,9,181) = -TPK%KTR9(:)*PCONC(:,9)
!
-!PTERMS(RO2T,K276) = +K276*<MGLY>
- PTERMS(:,85,277) = +TPK%K276(:)*PCONC(:,41)
+!PTERMS(WR_HNO4,KTR9) = +KTR9*<HNO4>
+ PTERMS(:,75,181) = +TPK%KTR9(:)*PCONC(:,9)
!
-!PTERMS(NO,K277) = -K277*<NO>*<RO248>
- PTERMS(:,1,278) = -TPK%K277(:)*PCONC(:,1)*TPK%RO248(:)
+!PTERMS(NH3,KTR10) = -KTR10*<NH3>
+ PTERMS(:,10,182) = -TPK%KTR10(:)*PCONC(:,10)
!
-!PTERMS(NO2,K277) = +K277*<NO>*<RO248>
- PTERMS(:,2,278) = +TPK%K277(:)*PCONC(:,1)*TPK%RO248(:)
+!PTERMS(WR_NH3,KTR10) = +KTR10*<NH3>
+ PTERMS(:,76,182) = +TPK%KTR10(:)*PCONC(:,10)
!
-!PTERMS(RO2T,K277) = +K277*<NO>*<RO248>
- PTERMS(:,85,278) = +TPK%K277(:)*PCONC(:,1)*TPK%RO248(:)
+!PTERMS(OH,KTR11) = -KTR11*<OH>
+ PTERMS(:,14,183) = -TPK%KTR11(:)*PCONC(:,14)
!
-!PTERMS(HNO3,K278) = +K278*<NO3>*<MGLY>
- PTERMS(:,5,279) = +TPK%K278(:)*PCONC(:,8)*PCONC(:,41)
+!PTERMS(WR_OH,KTR11) = +KTR11*<OH>
+ PTERMS(:,77,183) = +TPK%KTR11(:)*PCONC(:,14)
!
-!PTERMS(NO3,K278) = -K278*<NO3>*<MGLY>
- PTERMS(:,8,279) = -TPK%K278(:)*PCONC(:,8)*PCONC(:,41)
+!PTERMS(HO2,KTR12) = -KTR12*<HO2>
+ PTERMS(:,15,184) = -TPK%KTR12(:)*PCONC(:,15)
!
-!PTERMS(MGLY,K278) = -K278*<NO3>*<MGLY>
- PTERMS(:,41,279) = -TPK%K278(:)*PCONC(:,8)*PCONC(:,41)
+!PTERMS(WR_HO2,KTR12) = +KTR12*<HO2>
+ PTERMS(:,78,184) = +TPK%KTR12(:)*PCONC(:,15)
!
-!PTERMS(RO2T,K278) = +K278*<NO3>*<MGLY>
- PTERMS(:,85,279) = +TPK%K278(:)*PCONC(:,8)*PCONC(:,41)
+!PTERMS(WR_CO2,KTR13) = +KTR13*<CO2>
+ PTERMS(:,79,185) = +TPK%KTR13(:)*TPK%CO2(:)
!
-!PTERMS(O3,K279) = +K279*<HO2>*<RO248>
- PTERMS(:,3,280) = +TPK%K279(:)*PCONC(:,10)*TPK%RO248(:)
+!PTERMS(SO2,KTR14) = -KTR14*<SO2>
+ PTERMS(:,11,186) = -TPK%KTR14(:)*PCONC(:,11)
!
-!PTERMS(HO2,K279) = -K279*<HO2>*<RO248>
- PTERMS(:,10,280) = -TPK%K279(:)*PCONC(:,10)*TPK%RO248(:)
+!PTERMS(WR_SO2,KTR14) = +KTR14*<SO2>
+ PTERMS(:,80,186) = +TPK%KTR14(:)*PCONC(:,11)
!
-!PTERMS(UR21,K279) = +K279*<HO2>*<RO248>
- PTERMS(:,47,280) = +TPK%K279(:)*PCONC(:,10)*TPK%RO248(:)
+!PTERMS(SULF,KTR15) = -KTR15*<SULF>
+ PTERMS(:,12,187) = -TPK%KTR15(:)*PCONC(:,12)
!
-!PTERMS(RO2T,K280) = -K280*<RO2T>*<RO248>
- PTERMS(:,85,281) = -TPK%K280(:)*PCONC(:,85)*TPK%RO248(:)
+!PTERMS(WR_SULF,KTR15) = +KTR15*<SULF>
+ PTERMS(:,81,187) = +TPK%KTR15(:)*PCONC(:,12)
!
-!PTERMS(O3,K281) = -K281*<O3>*<MVK>
- PTERMS(:,3,282) = -TPK%K281(:)*PCONC(:,3)*PCONC(:,39)
+!PTERMS(HCHO,KTR16) = -KTR16*<HCHO>
+ PTERMS(:,22,188) = -TPK%KTR16(:)*PCONC(:,22)
!
-!PTERMS(HO2,K281) = +0.28*K281*<O3>*<MVK>
- PTERMS(:,10,282) = +0.28*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)
+!PTERMS(WR_HCHO,KTR16) = +KTR16*<HCHO>
+ PTERMS(:,82,188) = +TPK%KTR16(:)*PCONC(:,22)
!
-!PTERMS(CO,K281) = +0.56*K281*<O3>*<MVK>
- PTERMS(:,11,282) = +0.56*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)
+!PTERMS(ORA1,KTR17) = -KTR17*<ORA1>
+ PTERMS(:,30,189) = -TPK%KTR17(:)*PCONC(:,30)
!
-!PTERMS(OH,K281) = +0.36*K281*<O3>*<MVK>
- PTERMS(:,15,282) = +0.36*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)
+!PTERMS(WR_ORA1,KTR17) = +KTR17*<ORA1>
+ PTERMS(:,83,189) = +TPK%KTR17(:)*PCONC(:,30)
!
-!PTERMS(HCHO,K281) = +0.5*K281*<O3>*<MVK>
- PTERMS(:,28,282) = +0.5*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)
+!PTERMS(ORA2,KTR18) = -KTR18*<ORA2>
+ PTERMS(:,31,190) = -TPK%KTR18(:)*PCONC(:,31)
!
-!PTERMS(ALD2,K281) = +0.1*K281*<O3>*<MVK>
- PTERMS(:,29,282) = +0.1*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)
+!PTERMS(WR_ORA2,KTR18) = +KTR18*<ORA2>
+ PTERMS(:,84,190) = +TPK%KTR18(:)*PCONC(:,31)
!
-!PTERMS(MVK,K281) = -K281*<O3>*<MVK>
- PTERMS(:,39,282) = -TPK%K281(:)*PCONC(:,3)*PCONC(:,39)
+!PTERMS(MO2,KTR19) = -KTR19*<MO2>
+ PTERMS(:,32,191) = -TPK%KTR19(:)*PCONC(:,32)
!
!
RETURN
-END SUBROUTINE SUBT46
+END SUBROUTINE SUBT35
!
-SUBROUTINE SUBT47
+SUBROUTINE SUBT36
!
-!Indices 941 a 960
+!Indices 721 a 740
!
-!PTERMS(MGLY,K281) = +0.5*K281*<O3>*<MVK>
- PTERMS(:,41,282) = +0.5*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)
+!PTERMS(WR_MO2,KTR19) = +KTR19*<MO2>
+ PTERMS(:,85,191) = +TPK%KTR19(:)*PCONC(:,32)
!
-!PTERMS(ORA1,K281) = +0.12*K281*<O3>*<MVK>
- PTERMS(:,43,282) = +0.12*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)
+!PTERMS(OP1,KTR20) = -KTR20*<OP1>
+ PTERMS(:,28,192) = -TPK%KTR20(:)*PCONC(:,28)
!
-!PTERMS(UR21,K281) = +0.12*K281*<O3>*<MVK>
- PTERMS(:,47,282) = +0.12*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)
+!PTERMS(WR_OP1,KTR20) = +KTR20*<OP1>
+ PTERMS(:,86,192) = +TPK%KTR20(:)*PCONC(:,28)
!
-!PTERMS(RO2T,K281) = +0.28*K281*<O3>*<MVK>
- PTERMS(:,85,282) = +0.28*TPK%K281(:)*PCONC(:,3)*PCONC(:,39)
+!PTERMS(O3,KTR21) = +KTR21*<WR_O3>
+ PTERMS(:,1,193) = +TPK%KTR21(:)*PCONC(:,67)
!
-!PTERMS(O3,K282) = -K282*<O3>*<MCR>
- PTERMS(:,3,283) = -TPK%K282(:)*PCONC(:,3)*PCONC(:,40)
+!PTERMS(WR_O3,KTR21) = -KTR21*<WR_O3>
+ PTERMS(:,67,193) = -TPK%KTR21(:)*PCONC(:,67)
!
-!PTERMS(HO2,K282) = +0.41*K282*<O3>*<MCR>
- PTERMS(:,10,283) = +0.41*TPK%K282(:)*PCONC(:,3)*PCONC(:,40)
+!PTERMS(H2O2,KTR22) = +KTR22*<WR_H2O2>
+ PTERMS(:,2,194) = +TPK%KTR22(:)*PCONC(:,68)
!
-!PTERMS(CO,K282) = +0.41*K282*<O3>*<MCR>
- PTERMS(:,11,283) = +0.41*TPK%K282(:)*PCONC(:,3)*PCONC(:,40)
+!PTERMS(WR_H2O2,KTR22) = -KTR22*<WR_H2O2>
+ PTERMS(:,68,194) = -TPK%KTR22(:)*PCONC(:,68)
!
-!PTERMS(OH,K282) = +0.82*K282*<O3>*<MCR>
- PTERMS(:,15,283) = +0.82*TPK%K282(:)*PCONC(:,3)*PCONC(:,40)
+!PTERMS(NO,KTR23) = +KTR23*<WR_NO>
+ PTERMS(:,3,195) = +TPK%KTR23(:)*PCONC(:,69)
!
-!PTERMS(HCHO,K282) = +0.5*K282*<O3>*<MCR>
- PTERMS(:,28,283) = +0.5*TPK%K282(:)*PCONC(:,3)*PCONC(:,40)
+!PTERMS(WR_NO,KTR23) = -KTR23*<WR_NO>
+ PTERMS(:,69,195) = -TPK%KTR23(:)*PCONC(:,69)
!
-!PTERMS(MCR,K282) = -K282*<O3>*<MCR>
- PTERMS(:,40,283) = -TPK%K282(:)*PCONC(:,3)*PCONC(:,40)
+!PTERMS(NO2,KTR24) = +KTR24*<WR_NO2>
+ PTERMS(:,4,196) = +TPK%KTR24(:)*PCONC(:,70)
!
-!PTERMS(MGLY,K282) = +0.59*K282*<O3>*<MCR>
- PTERMS(:,41,283) = +0.59*TPK%K282(:)*PCONC(:,3)*PCONC(:,40)
+!PTERMS(WR_NO2,KTR24) = -KTR24*<WR_NO2>
+ PTERMS(:,70,196) = -TPK%KTR24(:)*PCONC(:,70)
!
-!PTERMS(ORA1,K282) = +0.09*K282*<O3>*<MCR>
- PTERMS(:,43,283) = +0.09*TPK%K282(:)*PCONC(:,3)*PCONC(:,40)
+!PTERMS(NO3,KTR25) = +KTR25*<WR_NO3>
+ PTERMS(:,5,197) = +TPK%KTR25(:)*PCONC(:,71)
!
-!PTERMS(RO2T,K282) = +0.41*K282*<O3>*<MCR>
- PTERMS(:,85,283) = +0.41*TPK%K282(:)*PCONC(:,3)*PCONC(:,40)
+!PTERMS(WR_NO3,KTR25) = -KTR25*<WR_NO3>
+ PTERMS(:,71,197) = -TPK%KTR25(:)*PCONC(:,71)
!
-!PTERMS(KETL,K283) = +0.85*K283*<O>*<MVK>
- PTERMS(:,30,284) = +0.85*TPK%K283(:)*TPK%O(:)*PCONC(:,39)
+!PTERMS(N2O5,KTR26) = +KTR26*<WR_N2O5>
+ PTERMS(:,6,198) = +TPK%KTR26(:)*PCONC(:,72)
!
-!PTERMS(MVK,K283) = -K283*<O>*<MVK>
- PTERMS(:,39,284) = -TPK%K283(:)*TPK%O(:)*PCONC(:,39)
+!PTERMS(WR_N2O5,KTR26) = -KTR26*<WR_N2O5>
+ PTERMS(:,72,198) = -TPK%KTR26(:)*PCONC(:,72)
!
-!PTERMS(RO2T,K283) = +0.3*K283*<O>*<MVK>
- PTERMS(:,85,284) = +0.3*TPK%K283(:)*TPK%O(:)*PCONC(:,39)
+!PTERMS(HONO,KTR27) = +KTR27*<WR_HONO>
+ PTERMS(:,7,199) = +TPK%KTR27(:)*PCONC(:,73)
!
-!PTERMS(HO2,K284) = +0.15*K284*<O>*<MCR>
- PTERMS(:,10,285) = +0.15*TPK%K284(:)*TPK%O(:)*PCONC(:,40)
+!PTERMS(WR_HONO,KTR27) = -KTR27*<WR_HONO>
+ PTERMS(:,73,199) = -TPK%KTR27(:)*PCONC(:,73)
!
-!PTERMS(CO,K284) = +0.15*K284*<O>*<MCR>
- PTERMS(:,11,285) = +0.15*TPK%K284(:)*TPK%O(:)*PCONC(:,40)
+!PTERMS(HNO3,KTR28) = +KTR28*<WR_HNO3>
+ PTERMS(:,8,200) = +TPK%KTR28(:)*PCONC(:,74)
!
-!PTERMS(ALD2,K284) = +0.85*K284*<O>*<MCR>
- PTERMS(:,29,285) = +0.85*TPK%K284(:)*TPK%O(:)*PCONC(:,40)
+!PTERMS(WR_HNO3,KTR28) = -KTR28*<WR_HNO3>
+ PTERMS(:,74,200) = -TPK%KTR28(:)*PCONC(:,74)
!
-!PTERMS(MCR,K284) = -K284*<O>*<MCR>
- PTERMS(:,40,285) = -TPK%K284(:)*TPK%O(:)*PCONC(:,40)
+!PTERMS(HNO4,KTR29) = +KTR29*<WR_HNO4>
+ PTERMS(:,9,201) = +TPK%KTR29(:)*PCONC(:,75)
!
!
RETURN
-END SUBROUTINE SUBT47
+END SUBROUTINE SUBT36
!
-SUBROUTINE SUBT48
+SUBROUTINE SUBT37
!
-!Indices 961 a 980
+!Indices 741 a 760
!
-!PTERMS(RO2T,K284) = +0.15*K284*<O>*<MCR>
- PTERMS(:,85,285) = +0.15*TPK%K284(:)*TPK%O(:)*PCONC(:,40)
+!PTERMS(WR_HNO4,KTR29) = -KTR29*<WR_HNO4>
+ PTERMS(:,75,201) = -TPK%KTR29(:)*PCONC(:,75)
!
-!PTERMS(NO,K285) = -K285*<NO>*<RO249>
- PTERMS(:,1,286) = -TPK%K285(:)*PCONC(:,1)*TPK%RO249(:)
+!PTERMS(NH3,KTR30) = +KTR30*<WR_NH3>
+ PTERMS(:,10,202) = +TPK%KTR30(:)*PCONC(:,76)
!
-!PTERMS(NO2,K285) = +K285*<NO>*<RO249>
- PTERMS(:,2,286) = +TPK%K285(:)*PCONC(:,1)*TPK%RO249(:)
+!PTERMS(WR_NH3,KTR30) = -KTR30*<WR_NH3>
+ PTERMS(:,76,202) = -TPK%KTR30(:)*PCONC(:,76)
!
-!PTERMS(HO2,K285) = +K285*<NO>*<RO249>
- PTERMS(:,10,286) = +TPK%K285(:)*PCONC(:,1)*TPK%RO249(:)
+!PTERMS(OH,KTR31) = +KTR31*<WR_OH>
+ PTERMS(:,14,203) = +TPK%KTR31(:)*PCONC(:,77)
!
-!PTERMS(HCHO,K285) = +K285*<NO>*<RO249>
- PTERMS(:,28,286) = +TPK%K285(:)*PCONC(:,1)*TPK%RO249(:)
+!PTERMS(WR_OH,KTR31) = -KTR31*<WR_OH>
+ PTERMS(:,77,203) = -TPK%KTR31(:)*PCONC(:,77)
!
-!PTERMS(MGLY,K285) = +K285*<NO>*<RO249>
- PTERMS(:,41,286) = +TPK%K285(:)*PCONC(:,1)*TPK%RO249(:)
+!PTERMS(HO2,KTR32) = +KTR32*<WR_HO2>
+ PTERMS(:,15,204) = +TPK%KTR32(:)*PCONC(:,78)
!
-!PTERMS(HO2,K286) = +K286*<RO2T>*<RO249>
- PTERMS(:,10,287) = +TPK%K286(:)*PCONC(:,85)*TPK%RO249(:)
+!PTERMS(WR_HO2,KTR32) = -KTR32*<WR_HO2>
+ PTERMS(:,78,204) = -TPK%KTR32(:)*PCONC(:,78)
!
-!PTERMS(HCHO,K286) = +K286*<RO2T>*<RO249>
- PTERMS(:,28,287) = +TPK%K286(:)*PCONC(:,85)*TPK%RO249(:)
+!PTERMS(WR_CO2,KTR33) = -KTR33*<WR_CO2>
+ PTERMS(:,79,205) = -TPK%KTR33(:)*PCONC(:,79)
!
-!PTERMS(MGLY,K286) = +K286*<RO2T>*<RO249>
- PTERMS(:,41,287) = +TPK%K286(:)*PCONC(:,85)*TPK%RO249(:)
+!PTERMS(SO2,KTR34) = +KTR34*<WR_SO2>
+ PTERMS(:,11,206) = +TPK%KTR34(:)*PCONC(:,80)
!
-!PTERMS(RO2T,K286) = -K286*<RO2T>*<RO249>
- PTERMS(:,85,287) = -TPK%K286(:)*PCONC(:,85)*TPK%RO249(:)
+!PTERMS(WR_SO2,KTR34) = -KTR34*<WR_SO2>
+ PTERMS(:,80,206) = -TPK%KTR34(:)*PCONC(:,80)
!
-!PTERMS(HO2,K287) = -K287*<HO2>*<RO249>
- PTERMS(:,10,288) = -TPK%K287(:)*PCONC(:,10)*TPK%RO249(:)
+!PTERMS(SULF,KTR35) = +KTR35*<WR_SULF>
+ PTERMS(:,12,207) = +TPK%KTR35(:)*PCONC(:,81)
!
-!PTERMS(OH,K287) = +K287*<HO2>*<RO249>
- PTERMS(:,15,288) = +TPK%K287(:)*PCONC(:,10)*TPK%RO249(:)
+!PTERMS(WR_SULF,KTR35) = -KTR35*<WR_SULF>
+ PTERMS(:,81,207) = -TPK%KTR35(:)*PCONC(:,81)
!
-!PTERMS(HCHO,K287) = +K287*<HO2>*<RO249>
- PTERMS(:,28,288) = +TPK%K287(:)*PCONC(:,10)*TPK%RO249(:)
+!PTERMS(HCHO,KTR36) = +KTR36*<WR_HCHO>
+ PTERMS(:,22,208) = +TPK%KTR36(:)*PCONC(:,82)
!
-!PTERMS(MGLY,K287) = +K287*<HO2>*<RO249>
- PTERMS(:,41,288) = +TPK%K287(:)*PCONC(:,10)*TPK%RO249(:)
+!PTERMS(WR_HCHO,KTR36) = -KTR36*<WR_HCHO>
+ PTERMS(:,82,208) = -TPK%KTR36(:)*PCONC(:,82)
!
-!PTERMS(NO,K288) = -K288*<NO>*<RO250>
- PTERMS(:,1,289) = -TPK%K288(:)*PCONC(:,1)*TPK%RO250(:)
+!PTERMS(ORA1,KTR37) = +KTR37*<WR_ORA1>
+ PTERMS(:,30,209) = +TPK%KTR37(:)*PCONC(:,83)
!
-!PTERMS(NO2,K288) = +K288*<NO>*<RO250>
- PTERMS(:,2,289) = +TPK%K288(:)*PCONC(:,1)*TPK%RO250(:)
+!PTERMS(WR_ORA1,KTR37) = -KTR37*<WR_ORA1>
+ PTERMS(:,83,209) = -TPK%KTR37(:)*PCONC(:,83)
!
-!PTERMS(RO2T,K288) = +K288*<NO>*<RO250>
- PTERMS(:,85,289) = +TPK%K288(:)*PCONC(:,1)*TPK%RO250(:)
+!PTERMS(ORA2,KTR38) = +KTR38*<WR_ORA2>
+ PTERMS(:,31,210) = +TPK%KTR38(:)*PCONC(:,84)
!
-!PTERMS(O3,K289) = +K289*<HO2>*<RO250>
- PTERMS(:,3,290) = +TPK%K289(:)*PCONC(:,10)*TPK%RO250(:)
+!PTERMS(WR_ORA2,KTR38) = -KTR38*<WR_ORA2>
+ PTERMS(:,84,210) = -TPK%KTR38(:)*PCONC(:,84)
!
-!PTERMS(HO2,K289) = -K289*<HO2>*<RO250>
- PTERMS(:,10,290) = -TPK%K289(:)*PCONC(:,10)*TPK%RO250(:)
+!PTERMS(MO2,KTR39) = +KTR39*<WR_MO2>
+ PTERMS(:,32,211) = +TPK%KTR39(:)*PCONC(:,85)
!
-!PTERMS(OLEL,K289) = +0.5*K289*<HO2>*<RO250>
- PTERMS(:,17,290) = +0.5*TPK%K289(:)*PCONC(:,10)*TPK%RO250(:)
+!PTERMS(WR_MO2,KTR39) = -KTR39*<WR_MO2>
+ PTERMS(:,85,211) = -TPK%KTR39(:)*PCONC(:,85)
!
!
RETURN
-END SUBROUTINE SUBT48
+END SUBROUTINE SUBT37
!
-SUBROUTINE SUBT49
+SUBROUTINE SUBT38
!
-!Indices 981 a 1000
+!Indices 761 a 780
!
-!PTERMS(ORA2,K289) = +0.5*K289*<HO2>*<RO250>
- PTERMS(:,44,290) = +0.5*TPK%K289(:)*PCONC(:,10)*TPK%RO250(:)
+!PTERMS(OP1,KTR40) = +KTR40*<WR_OP1>
+ PTERMS(:,28,212) = +TPK%KTR40(:)*PCONC(:,86)
!
-!PTERMS(RO2T,K290) = -K290*<RO2T>*<RO250>
- PTERMS(:,85,291) = -TPK%K290(:)*PCONC(:,85)*TPK%RO250(:)
+!PTERMS(WR_OP1,KTR40) = -KTR40*<WR_OP1>
+ PTERMS(:,86,212) = -TPK%KTR40(:)*PCONC(:,86)
!
-!PTERMS(NO,K291) = -K291*<NO>*<RO251>
- PTERMS(:,1,292) = -TPK%K291(:)*PCONC(:,1)*TPK%RO251(:)
+!PTERMS(WC_H2O2,KC1) = -KC1*<WC_H2O2>
+ PTERMS(:,43,213) = -TPK%KC1(:)*PCONC(:,43)
!
-!PTERMS(NO2,K291) = +K291*<NO>*<RO251>
- PTERMS(:,2,292) = +TPK%K291(:)*PCONC(:,1)*TPK%RO251(:)
+!PTERMS(WC_OH,KC1) = +KC1*<WC_H2O2>
+ PTERMS(:,52,213) = +TPK%KC1(:)*PCONC(:,43)
!
-!PTERMS(HO2,K291) = +K291*<NO>*<RO251>
- PTERMS(:,10,292) = +TPK%K291(:)*PCONC(:,1)*TPK%RO251(:)
+!PTERMS(WC_H2O2,KC2) = +KC2*<WC_OH>*<WC_OH>
+ PTERMS(:,43,214) = +TPK%KC2(:)*PCONC(:,52)*PCONC(:,52)
!
-!PTERMS(HCHO,K291) = +K291*<NO>*<RO251>
- PTERMS(:,28,292) = +TPK%K291(:)*PCONC(:,1)*TPK%RO251(:)
+!PTERMS(WC_OH,KC2) = -KC2*<WC_OH>*<WC_OH>
+ PTERMS(:,52,214) = -TPK%KC2(:)*PCONC(:,52)*PCONC(:,52)
!
-!PTERMS(MGLY,K291) = +K291*<NO>*<RO251>
- PTERMS(:,41,292) = +TPK%K291(:)*PCONC(:,1)*TPK%RO251(:)
+!PTERMS(WC_OH,KC3) = -KC3*<WC_OH>*<WC_HO2>
+ PTERMS(:,52,215) = -TPK%KC3(:)*PCONC(:,52)*PCONC(:,53)
!
-!PTERMS(HO2,K292) = -K292*<HO2>*<RO251>
- PTERMS(:,10,293) = -TPK%K292(:)*PCONC(:,10)*TPK%RO251(:)
+!PTERMS(WC_HO2,KC3) = -KC3*<WC_OH>*<WC_HO2>
+ PTERMS(:,53,215) = -TPK%KC3(:)*PCONC(:,52)*PCONC(:,53)
!
-!PTERMS(HCHO,K292) = +K292*<HO2>*<RO251>
- PTERMS(:,28,293) = +TPK%K292(:)*PCONC(:,10)*TPK%RO251(:)
+!PTERMS(WC_H2O2,KC4) = -KC4*<WC_H2O2>*<WC_OH>
+ PTERMS(:,43,216) = -TPK%KC4(:)*PCONC(:,43)*PCONC(:,52)
!
-!PTERMS(MGLY,K292) = +K292*<HO2>*<RO251>
- PTERMS(:,41,293) = +TPK%K292(:)*PCONC(:,10)*TPK%RO251(:)
+!PTERMS(WC_OH,KC4) = -KC4*<WC_H2O2>*<WC_OH>
+ PTERMS(:,52,216) = -TPK%KC4(:)*PCONC(:,43)*PCONC(:,52)
!
-!PTERMS(RO2T,K292) = +K292*<HO2>*<RO251>
- PTERMS(:,85,293) = +TPK%K292(:)*PCONC(:,10)*TPK%RO251(:)
+!PTERMS(WC_HO2,KC4) = +KC4*<WC_H2O2>*<WC_OH>
+ PTERMS(:,53,216) = +TPK%KC4(:)*PCONC(:,43)*PCONC(:,52)
!
-!PTERMS(HO2,K293) = +K293*<RO2T>*<RO251>
- PTERMS(:,10,294) = +TPK%K293(:)*PCONC(:,85)*TPK%RO251(:)
+!PTERMS(WC_H2O2,KC5) = +KC5*<WC_HO2>*<WC_HO2>
+ PTERMS(:,43,217) = +TPK%KC5(:)*PCONC(:,53)*PCONC(:,53)
!
-!PTERMS(OH,K293) = +K293*<RO2T>*<RO251>
- PTERMS(:,15,294) = +TPK%K293(:)*PCONC(:,85)*TPK%RO251(:)
+!PTERMS(WC_HO2,KC5) = -KC5*<WC_HO2>*<WC_HO2>
+ PTERMS(:,53,217) = -TPK%KC5(:)*PCONC(:,53)*PCONC(:,53)
!
-!PTERMS(HCHO,K293) = +K293*<RO2T>*<RO251>
- PTERMS(:,28,294) = +TPK%K293(:)*PCONC(:,85)*TPK%RO251(:)
+!PTERMS(WC_O3,KC6) = -KC6*<WC_O3>*<WC_HO2>
+ PTERMS(:,42,218) = -TPK%KC6(:)*PCONC(:,42)*PCONC(:,53)
!
-!PTERMS(MGLY,K293) = +K293*<RO2T>*<RO251>
- PTERMS(:,41,294) = +TPK%K293(:)*PCONC(:,85)*TPK%RO251(:)
+!PTERMS(WC_OH,KC6) = +KC6*<WC_O3>*<WC_HO2>
+ PTERMS(:,52,218) = +TPK%KC6(:)*PCONC(:,42)*PCONC(:,53)
!
-!PTERMS(RO2T,K293) = -K293*<RO2T>*<RO251>
- PTERMS(:,85,294) = -TPK%K293(:)*PCONC(:,85)*TPK%RO251(:)
+!PTERMS(WC_HO2,KC6) = -KC6*<WC_O3>*<WC_HO2>
+ PTERMS(:,53,218) = -TPK%KC6(:)*PCONC(:,42)*PCONC(:,53)
!
-!PTERMS(NO,K294) = -K294*<NO>*<RO252>
- PTERMS(:,1,295) = -TPK%K294(:)*PCONC(:,1)*TPK%RO252(:)
+!PTERMS(WC_OH,KC7) = -KC7*<WC_OH>*<WC_SO2>
+ PTERMS(:,52,219) = -TPK%KC7(:)*PCONC(:,52)*PCONC(:,55)
!
-!PTERMS(NO2,K294) = +2.*K294*<NO>*<RO252>
- PTERMS(:,2,295) = +2.*TPK%K294(:)*PCONC(:,1)*TPK%RO252(:)
+!PTERMS(WC_SO2,KC7) = -KC7*<WC_OH>*<WC_SO2>
+ PTERMS(:,55,219) = -TPK%KC7(:)*PCONC(:,52)*PCONC(:,55)
!
-!PTERMS(HCHO,K294) = +K294*<NO>*<RO252>
- PTERMS(:,28,295) = +TPK%K294(:)*PCONC(:,1)*TPK%RO252(:)
+!PTERMS(WC_ASO3,KC7) = +KC7*<WC_OH>*<WC_SO2>
+ PTERMS(:,62,219) = +TPK%KC7(:)*PCONC(:,52)*PCONC(:,55)
!
-!PTERMS(MGLY,K294) = +K294*<NO>*<RO252>
- PTERMS(:,41,295) = +TPK%K294(:)*PCONC(:,1)*TPK%RO252(:)
+!PTERMS(WC_NO2,KC8) = +KC8*<WC_HONO>*<WC_OH>
+ PTERMS(:,45,220) = +TPK%KC8(:)*PCONC(:,48)*PCONC(:,52)
!
!
RETURN
-END SUBROUTINE SUBT49
+END SUBROUTINE SUBT38
!
-SUBROUTINE SUBT50
+SUBROUTINE SUBT39
!
-!Indices 1001 a 1020
+!Indices 781 a 800
!
-!PTERMS(NO2,K295) = +K295*<HO2>*<RO252>
- PTERMS(:,2,296) = +TPK%K295(:)*PCONC(:,10)*TPK%RO252(:)
+!PTERMS(WC_HONO,KC8) = -KC8*<WC_HONO>*<WC_OH>
+ PTERMS(:,48,220) = -TPK%KC8(:)*PCONC(:,48)*PCONC(:,52)
!
-!PTERMS(HO2,K295) = -K295*<HO2>*<RO252>
- PTERMS(:,10,296) = -TPK%K295(:)*PCONC(:,10)*TPK%RO252(:)
+!PTERMS(WC_OH,KC8) = -KC8*<WC_HONO>*<WC_OH>
+ PTERMS(:,52,220) = -TPK%KC8(:)*PCONC(:,48)*PCONC(:,52)
!
-!PTERMS(HCHO,K295) = +K295*<HO2>*<RO252>
- PTERMS(:,28,296) = +TPK%K295(:)*PCONC(:,10)*TPK%RO252(:)
+!PTERMS(WC_NO2,KC9) = -KC9*<WC_NO2>*<WC_HO2>
+ PTERMS(:,45,221) = -TPK%KC9(:)*PCONC(:,45)*PCONC(:,53)
!
-!PTERMS(MGLY,K295) = +K295*<HO2>*<RO252>
- PTERMS(:,41,296) = +TPK%K295(:)*PCONC(:,10)*TPK%RO252(:)
+!PTERMS(WC_HNO4,KC9) = +KC9*<WC_NO2>*<WC_HO2>
+ PTERMS(:,50,221) = +TPK%KC9(:)*PCONC(:,45)*PCONC(:,53)
!
-!PTERMS(RO2T,K295) = +K295*<HO2>*<RO252>
- PTERMS(:,85,296) = +TPK%K295(:)*PCONC(:,10)*TPK%RO252(:)
+!PTERMS(WC_HO2,KC9) = -KC9*<WC_NO2>*<WC_HO2>
+ PTERMS(:,53,221) = -TPK%KC9(:)*PCONC(:,45)*PCONC(:,53)
!
-!PTERMS(NO2,K296) = +K296*<RO2T>*<RO252>
- PTERMS(:,2,297) = +TPK%K296(:)*PCONC(:,85)*TPK%RO252(:)
+!PTERMS(WC_NO2,KC10) = +KC10*<WC_HNO4>
+ PTERMS(:,45,222) = +TPK%KC10(:)*PCONC(:,50)
!
-!PTERMS(OH,K296) = +K296*<RO2T>*<RO252>
- PTERMS(:,15,297) = +TPK%K296(:)*PCONC(:,85)*TPK%RO252(:)
+!PTERMS(WC_HNO4,KC10) = -KC10*<WC_HNO4>
+ PTERMS(:,50,222) = -TPK%KC10(:)*PCONC(:,50)
!
-!PTERMS(HCHO,K296) = +K296*<RO2T>*<RO252>
- PTERMS(:,28,297) = +TPK%K296(:)*PCONC(:,85)*TPK%RO252(:)
+!PTERMS(WC_HO2,KC10) = +KC10*<WC_HNO4>
+ PTERMS(:,53,222) = +TPK%KC10(:)*PCONC(:,50)
!
-!PTERMS(MGLY,K296) = +K296*<RO2T>*<RO252>
- PTERMS(:,41,297) = +TPK%K296(:)*PCONC(:,85)*TPK%RO252(:)
+!PTERMS(WC_HONO,KC11) = +KC11*<WC_HNO4>
+ PTERMS(:,48,223) = +TPK%KC11(:)*PCONC(:,50)
!
-!PTERMS(RO2T,K296) = -K296*<RO2T>*<RO252>
- PTERMS(:,85,297) = -TPK%K296(:)*PCONC(:,85)*TPK%RO252(:)
+!PTERMS(WC_HNO4,KC11) = -KC11*<WC_HNO4>
+ PTERMS(:,50,223) = -TPK%KC11(:)*PCONC(:,50)
!
-!PTERMS(NO,K297) = -K297*<NO>*<RO253>
- PTERMS(:,1,298) = -TPK%K297(:)*PCONC(:,1)*TPK%RO253(:)
+!PTERMS(WC_HNO3,KC12) = +KC12*<WC_HNO4>*<WC_SO2>
+ PTERMS(:,49,224) = +TPK%KC12(:)*PCONC(:,50)*PCONC(:,55)
!
-!PTERMS(NO2,K297) = +K297*<NO>*<RO253>
- PTERMS(:,2,298) = +TPK%K297(:)*PCONC(:,1)*TPK%RO253(:)
+!PTERMS(WC_HNO4,KC12) = -KC12*<WC_HNO4>*<WC_SO2>
+ PTERMS(:,50,224) = -TPK%KC12(:)*PCONC(:,50)*PCONC(:,55)
!
-!PTERMS(HCHO,K297) = +K297*<NO>*<RO253>
- PTERMS(:,28,298) = +TPK%K297(:)*PCONC(:,1)*TPK%RO253(:)
+!PTERMS(WC_SO2,KC12) = -KC12*<WC_HNO4>*<WC_SO2>
+ PTERMS(:,55,224) = -TPK%KC12(:)*PCONC(:,50)*PCONC(:,55)
!
-!PTERMS(RO2T,K297) = +K297*<NO>*<RO253>
- PTERMS(:,85,298) = +TPK%K297(:)*PCONC(:,1)*TPK%RO253(:)
+!PTERMS(WC_SULF,KC12) = +KC12*<WC_HNO4>*<WC_SO2>
+ PTERMS(:,56,224) = +TPK%KC12(:)*PCONC(:,50)*PCONC(:,55)
!
-!PTERMS(HO2,K298) = -K298*<HO2>*<RO253>
- PTERMS(:,10,299) = -TPK%K298(:)*PCONC(:,10)*TPK%RO253(:)
+!PTERMS(WC_NO2,KC13) = +KC13*<WC_HNO3>
+ PTERMS(:,45,225) = +TPK%KC13(:)*PCONC(:,49)
!
-!PTERMS(HCHO,K298) = +K298*<HO2>*<RO253>
- PTERMS(:,28,299) = +TPK%K298(:)*PCONC(:,10)*TPK%RO253(:)
+!PTERMS(WC_HNO3,KC13) = -KC13*<WC_HNO3>
+ PTERMS(:,49,225) = -TPK%KC13(:)*PCONC(:,49)
!
-!PTERMS(RO2T,K298) = +2.*K298*<HO2>*<RO253>
- PTERMS(:,85,299) = +2.*TPK%K298(:)*PCONC(:,10)*TPK%RO253(:)
+!PTERMS(WC_OH,KC13) = +KC13*<WC_HNO3>
+ PTERMS(:,52,225) = +TPK%KC13(:)*PCONC(:,49)
!
-!PTERMS(OH,K299) = +K299*<RO2T>*<RO253>
- PTERMS(:,15,300) = +TPK%K299(:)*PCONC(:,85)*TPK%RO253(:)
+!PTERMS(WC_N2O5,KC14) = -KC14*<WC_N2O5>
+ PTERMS(:,47,226) = -TPK%KC14(:)*PCONC(:,47)
!
-!PTERMS(HCHO,K299) = +K299*<RO2T>*<RO253>
- PTERMS(:,28,300) = +TPK%K299(:)*PCONC(:,85)*TPK%RO253(:)
+!PTERMS(WC_HNO3,KC14) = +KC14*<WC_N2O5>
+ PTERMS(:,49,226) = +TPK%KC14(:)*PCONC(:,47)
!
-!PTERMS(RO2T,K299) = -K299*<RO2T>*<RO253>
- PTERMS(:,85,300) = -TPK%K299(:)*PCONC(:,85)*TPK%RO253(:)
+!PTERMS(WC_NO3,KC15) = -KC15*<WC_NO3>*<WC_SULF>
+ PTERMS(:,46,227) = -TPK%KC15(:)*PCONC(:,46)*PCONC(:,56)
!
!
RETURN
-END SUBROUTINE SUBT50
+END SUBROUTINE SUBT39
!
-SUBROUTINE SUBT51
+SUBROUTINE SUBT40
!
-!Indices 1021 a 1040
+!Indices 801 a 820
!
-!PTERMS(NO,K300) = -K300*<NO>*<RO254>
- PTERMS(:,1,301) = -TPK%K300(:)*PCONC(:,1)*TPK%RO254(:)
+!PTERMS(WC_HNO3,KC15) = +KC15*<WC_NO3>*<WC_SULF>
+ PTERMS(:,49,227) = +TPK%KC15(:)*PCONC(:,46)*PCONC(:,56)
!
-!PTERMS(NO2,K300) = +K300*<NO>*<RO254>
- PTERMS(:,2,301) = +TPK%K300(:)*PCONC(:,1)*TPK%RO254(:)
+!PTERMS(WC_SULF,KC15) = -KC15*<WC_NO3>*<WC_SULF>
+ PTERMS(:,56,227) = -TPK%KC15(:)*PCONC(:,46)*PCONC(:,56)
!
-!PTERMS(HO2,K300) = +K300*<NO>*<RO254>
- PTERMS(:,10,301) = +TPK%K300(:)*PCONC(:,1)*TPK%RO254(:)
+!PTERMS(WC_ASO4,KC15) = +KC15*<WC_NO3>*<WC_SULF>
+ PTERMS(:,63,227) = +TPK%KC15(:)*PCONC(:,46)*PCONC(:,56)
!
-!PTERMS(CO,K300) = +K300*<NO>*<RO254>
- PTERMS(:,11,301) = +TPK%K300(:)*PCONC(:,1)*TPK%RO254(:)
+!PTERMS(WC_NO3,KC16) = -KC16*<WC_NO3>*<WC_SO2>
+ PTERMS(:,46,228) = -TPK%KC16(:)*PCONC(:,46)*PCONC(:,55)
!
-!PTERMS(O3,K301) = +K301*<HO2>*<RO254>
- PTERMS(:,3,302) = +TPK%K301(:)*PCONC(:,10)*TPK%RO254(:)
+!PTERMS(WC_HNO3,KC16) = +KC16*<WC_NO3>*<WC_SO2>
+ PTERMS(:,49,228) = +TPK%KC16(:)*PCONC(:,46)*PCONC(:,55)
!
-!PTERMS(HO2,K301) = -K301*<HO2>*<RO254>
- PTERMS(:,10,302) = -TPK%K301(:)*PCONC(:,10)*TPK%RO254(:)
+!PTERMS(WC_SO2,KC16) = -KC16*<WC_NO3>*<WC_SO2>
+ PTERMS(:,55,228) = -TPK%KC16(:)*PCONC(:,46)*PCONC(:,55)
!
-!PTERMS(RP16,K301) = +K301*<HO2>*<RO254>
- PTERMS(:,74,302) = +TPK%K301(:)*PCONC(:,10)*TPK%RO254(:)
+!PTERMS(WC_ASO3,KC16) = +KC16*<WC_NO3>*<WC_SO2>
+ PTERMS(:,62,228) = +TPK%KC16(:)*PCONC(:,46)*PCONC(:,55)
!
-!PTERMS(HO2,K302) = +K302*<RO2T>*<RO254>
- PTERMS(:,10,303) = +TPK%K302(:)*PCONC(:,85)*TPK%RO254(:)
+!PTERMS(WC_HO2,KC17) = +2.00*KC17*<WC_MO2>*<WC_MO2>
+ PTERMS(:,53,229) = +2.00*TPK%KC17(:)*PCONC(:,60)*PCONC(:,60)
!
-!PTERMS(CO,K302) = +K302*<RO2T>*<RO254>
- PTERMS(:,11,303) = +TPK%K302(:)*PCONC(:,85)*TPK%RO254(:)
+!PTERMS(WC_HCHO,KC17) = +2.00*KC17*<WC_MO2>*<WC_MO2>
+ PTERMS(:,57,229) = +2.00*TPK%KC17(:)*PCONC(:,60)*PCONC(:,60)
!
-!PTERMS(RO2T,K302) = -K302*<RO2T>*<RO254>
- PTERMS(:,85,303) = -TPK%K302(:)*PCONC(:,85)*TPK%RO254(:)
+!PTERMS(WC_MO2,KC17) = -KC17*<WC_MO2>*<WC_MO2>
+ PTERMS(:,60,229) = -TPK%KC17(:)*PCONC(:,60)*PCONC(:,60)
!
-!PTERMS(O3,K303) = +K303*<OH>*<RPR5>
- PTERMS(:,3,304) = +TPK%K303(:)*PCONC(:,15)*PCONC(:,70)
+!PTERMS(WC_SO2,KC18) = -KC18*<WC_MO2>*<WC_SO2>
+ PTERMS(:,55,230) = -TPK%KC18(:)*PCONC(:,60)*PCONC(:,55)
!
-!PTERMS(OH,K303) = -K303*<OH>*<RPR5>
- PTERMS(:,15,304) = -TPK%K303(:)*PCONC(:,15)*PCONC(:,70)
+!PTERMS(WC_MO2,KC18) = -KC18*<WC_MO2>*<WC_SO2>
+ PTERMS(:,60,230) = -TPK%KC18(:)*PCONC(:,60)*PCONC(:,55)
!
-!PTERMS(URG7,K303) = +0.9999993*K303*<OH>*<RPR5>
- PTERMS(:,60,304) = +0.9999993*TPK%K303(:)*PCONC(:,15)*PCONC(:,70)
+!PTERMS(WC_OP1,KC18) = +KC18*<WC_MO2>*<WC_SO2>
+ PTERMS(:,61,230) = +TPK%KC18(:)*PCONC(:,60)*PCONC(:,55)
!
-!PTERMS(RPR5,K303) = -K303*<OH>*<RPR5>
- PTERMS(:,70,304) = -TPK%K303(:)*PCONC(:,15)*PCONC(:,70)
+!PTERMS(WC_ASO3,KC18) = +KC18*<WC_MO2>*<WC_SO2>
+ PTERMS(:,62,230) = +TPK%KC18(:)*PCONC(:,60)*PCONC(:,55)
!
-!PTERMS(OH,K304) = -K304*<OH>*<RPR1>
- PTERMS(:,15,305) = -TPK%K304(:)*PCONC(:,15)*PCONC(:,69)
+!PTERMS(WC_OH,KC19) = -KC19*<WC_HCHO>*<WC_OH>
+ PTERMS(:,52,231) = -TPK%KC19(:)*PCONC(:,57)*PCONC(:,52)
!
-!PTERMS(RPR1,K304) = -K304*<OH>*<RPR1>
- PTERMS(:,69,305) = -TPK%K304(:)*PCONC(:,15)*PCONC(:,69)
+!PTERMS(WC_HO2,KC19) = +KC19*<WC_HCHO>*<WC_OH>
+ PTERMS(:,53,231) = +TPK%KC19(:)*PCONC(:,57)*PCONC(:,52)
!
-!PTERMS(RO2T,K304) = +K304*<OH>*<RPR1>
- PTERMS(:,85,305) = +TPK%K304(:)*PCONC(:,15)*PCONC(:,69)
+!PTERMS(WC_HCHO,KC19) = -KC19*<WC_HCHO>*<WC_OH>
+ PTERMS(:,57,231) = -TPK%KC19(:)*PCONC(:,57)*PCONC(:,52)
!
-!PTERMS(OH,K305) = -K305*<OH>*<RP16>
- PTERMS(:,15,306) = -TPK%K305(:)*PCONC(:,15)*PCONC(:,74)
+!PTERMS(WC_ORA1,KC19) = +KC19*<WC_HCHO>*<WC_OH>
+ PTERMS(:,58,231) = +TPK%KC19(:)*PCONC(:,57)*PCONC(:,52)
!
-!PTERMS(RP16,K305) = -K305*<OH>*<RP16>
- PTERMS(:,74,306) = -TPK%K305(:)*PCONC(:,15)*PCONC(:,74)
+!PTERMS(WC_OH,KC20) = -KC20*<WC_ORA1>*<WC_OH>
+ PTERMS(:,52,232) = -TPK%KC20(:)*PCONC(:,58)*PCONC(:,52)
!
-!PTERMS(RO2T,K305) = +K305*<OH>*<RP16>
- PTERMS(:,85,306) = +TPK%K305(:)*PCONC(:,15)*PCONC(:,74)
+!PTERMS(WC_HO2,KC20) = +KC20*<WC_ORA1>*<WC_OH>
+ PTERMS(:,53,232) = +TPK%KC20(:)*PCONC(:,58)*PCONC(:,52)
!
!
RETURN
-END SUBROUTINE SUBT51
+END SUBROUTINE SUBT40
!
-SUBROUTINE SUBT52
+SUBROUTINE SUBT41
!
-!Indices 1041 a 1060
+!Indices 821 a 840
!
-!PTERMS(O3,K306) = +1.0000011*K306*<OH>*<RPRL>
- PTERMS(:,3,307) = +1.0000011*TPK%K306(:)*PCONC(:,15)*PCONC(:,75)
+!PTERMS(WC_CO2,KC20) = +KC20*<WC_ORA1>*<WC_OH>
+ PTERMS(:,54,232) = +TPK%KC20(:)*PCONC(:,58)*PCONC(:,52)
!
-!PTERMS(OH,K306) = -K306*<OH>*<RPRL>
- PTERMS(:,15,307) = -TPK%K306(:)*PCONC(:,15)*PCONC(:,75)
+!PTERMS(WC_ORA1,KC20) = -KC20*<WC_ORA1>*<WC_OH>
+ PTERMS(:,58,232) = -TPK%KC20(:)*PCONC(:,58)*PCONC(:,52)
!
-!PTERMS(URG7,K306) = +0.9979297*K306*<OH>*<RPRL>
- PTERMS(:,60,307) = +0.9979297*TPK%K306(:)*PCONC(:,15)*PCONC(:,75)
+!PTERMS(WC_SO2,KC21) = -KC21*<WC_SO2>*<WC_HCHO>
+ PTERMS(:,55,233) = -TPK%KC21(:)*PCONC(:,55)*PCONC(:,57)
!
-!PTERMS(RPR7,K306) = +2.0714202E-03*K306*<OH>*<RPRL>
- PTERMS(:,62,307) = +2.0714202E-03*TPK%K306(:)*PCONC(:,15)*PCONC(:,75)
+!PTERMS(WC_HCHO,KC21) = -KC21*<WC_SO2>*<WC_HCHO>
+ PTERMS(:,57,233) = -TPK%KC21(:)*PCONC(:,55)*PCONC(:,57)
!
-!PTERMS(RPRL,K306) = -K306*<OH>*<RPRL>
- PTERMS(:,75,307) = -TPK%K306(:)*PCONC(:,15)*PCONC(:,75)
+!PTERMS(WC_AHMS,KC21) = +KC21*<WC_SO2>*<WC_HCHO>
+ PTERMS(:,66,233) = +TPK%KC21(:)*PCONC(:,55)*PCONC(:,57)
!
-!PTERMS(HNO3,K307) = +K307*<NO3>*<RPR1>
- PTERMS(:,5,308) = +TPK%K307(:)*PCONC(:,8)*PCONC(:,69)
+!PTERMS(WC_SO2,KC22) = +KC22*<WC_AHMS>
+ PTERMS(:,55,234) = +TPK%KC22(:)*PCONC(:,66)
!
-!PTERMS(NO3,K307) = -K307*<NO3>*<RPR1>
- PTERMS(:,8,308) = -TPK%K307(:)*PCONC(:,8)*PCONC(:,69)
+!PTERMS(WC_HCHO,KC22) = +KC22*<WC_AHMS>
+ PTERMS(:,57,234) = +TPK%KC22(:)*PCONC(:,66)
!
-!PTERMS(RPR1,K307) = -K307*<NO3>*<RPR1>
- PTERMS(:,69,308) = -TPK%K307(:)*PCONC(:,8)*PCONC(:,69)
+!PTERMS(WC_AHMS,KC22) = -KC22*<WC_AHMS>
+ PTERMS(:,66,234) = -TPK%KC22(:)*PCONC(:,66)
!
-!PTERMS(RO2T,K307) = +K307*<NO3>*<RPR1>
- PTERMS(:,85,308) = +TPK%K307(:)*PCONC(:,8)*PCONC(:,69)
+!PTERMS(WC_OH,KC23) = -KC23*<WC_AHMS>*<WC_OH>
+ PTERMS(:,52,235) = -TPK%KC23(:)*PCONC(:,66)*PCONC(:,52)
!
-!PTERMS(HO2,K308) = +K308*<RPR1>
- PTERMS(:,10,309) = +TPK%K308(:)*PCONC(:,69)
+!PTERMS(WC_HO2,KC23) = +KC23*<WC_AHMS>*<WC_OH>
+ PTERMS(:,53,235) = +TPK%KC23(:)*PCONC(:,66)*PCONC(:,52)
!
-!PTERMS(CO,K308) = +K308*<RPR1>
- PTERMS(:,11,309) = +TPK%K308(:)*PCONC(:,69)
+!PTERMS(WC_SO2,KC23) = +KC23*<WC_AHMS>*<WC_OH>
+ PTERMS(:,55,235) = +TPK%KC23(:)*PCONC(:,66)*PCONC(:,52)
!
-!PTERMS(RPR1,K308) = -K308*<RPR1>
- PTERMS(:,69,309) = -TPK%K308(:)*PCONC(:,69)
+!PTERMS(WC_ORA1,KC23) = +KC23*<WC_AHMS>*<WC_OH>
+ PTERMS(:,58,235) = +TPK%KC23(:)*PCONC(:,66)*PCONC(:,52)
!
-!PTERMS(RO2T,K308) = +K308*<RPR1>
- PTERMS(:,85,309) = +TPK%K308(:)*PCONC(:,69)
+!PTERMS(WC_AHMS,KC23) = -KC23*<WC_AHMS>*<WC_OH>
+ PTERMS(:,66,235) = -TPK%KC23(:)*PCONC(:,66)*PCONC(:,52)
!
-!PTERMS(NO,K309) = -K309*<NO>*<RO255>
- PTERMS(:,1,310) = -TPK%K309(:)*PCONC(:,1)*TPK%RO255(:)
+!PTERMS(WC_ASO3,KC24) = -KC24*<WC_ASO3>*<W_O2>
+ PTERMS(:,62,236) = -TPK%KC24(:)*PCONC(:,62)*TPK%W_O2(:)
!
-!PTERMS(NO2,K309) = +K309*<NO>*<RO255>
- PTERMS(:,2,310) = +TPK%K309(:)*PCONC(:,1)*TPK%RO255(:)
+!PTERMS(WC_ASO5,KC24) = +KC24*<WC_ASO3>*<W_O2>
+ PTERMS(:,64,236) = +TPK%KC24(:)*PCONC(:,62)*TPK%W_O2(:)
!
-!PTERMS(RO2T,K309) = +K309*<NO>*<RO255>
- PTERMS(:,85,310) = +TPK%K309(:)*PCONC(:,1)*TPK%RO255(:)
+!PTERMS(WC_HO2,KC25) = -KC25*<WC_ASO5>*<WC_HO2>
+ PTERMS(:,53,237) = -TPK%KC25(:)*PCONC(:,64)*PCONC(:,53)
!
-!PTERMS(O3,K310) = +K310*<HO2>*<RO255>
- PTERMS(:,3,311) = +TPK%K310(:)*PCONC(:,10)*TPK%RO255(:)
+!PTERMS(WC_ASO5,KC25) = -KC25*<WC_ASO5>*<WC_HO2>
+ PTERMS(:,64,237) = -TPK%KC25(:)*PCONC(:,64)*PCONC(:,53)
!
-!PTERMS(HO2,K310) = -K310*<HO2>*<RO255>
- PTERMS(:,10,311) = -TPK%K310(:)*PCONC(:,10)*TPK%RO255(:)
+!PTERMS(WC_AHSO5,KC25) = +KC25*<WC_ASO5>*<WC_HO2>
+ PTERMS(:,65,237) = +TPK%KC25(:)*PCONC(:,64)*PCONC(:,53)
!
-!PTERMS(ACID,K310) = +K310*<HO2>*<RO255>
- PTERMS(:,45,311) = +TPK%K310(:)*PCONC(:,10)*TPK%RO255(:)
+!PTERMS(WC_ASO4,KC26) = +KC26*<WC_ASO5>*<WC_ASO5>
+ PTERMS(:,63,238) = +TPK%KC26(:)*PCONC(:,64)*PCONC(:,64)
!
-!PTERMS(RO2T,K311) = -K311*<RO2T>*<RO255>
- PTERMS(:,85,312) = -TPK%K311(:)*PCONC(:,85)*TPK%RO255(:)
+!PTERMS(WC_ASO5,KC26) = -KC26*<WC_ASO5>*<WC_ASO5>
+ PTERMS(:,64,238) = -TPK%KC26(:)*PCONC(:,64)*PCONC(:,64)
!
!
RETURN
-END SUBROUTINE SUBT52
+END SUBROUTINE SUBT41
!
-SUBROUTINE SUBT53
+SUBROUTINE SUBT42
!
-!Indices 1061 a 1080
+!Indices 841 a 860
!
-!PTERMS(OH,K312) = -K312*<OH>*<RPR3>
- PTERMS(:,15,313) = -TPK%K312(:)*PCONC(:,15)*PCONC(:,57)
+!PTERMS(WC_SO2,KC27) = -KC27*<WC_AHSO5>*<WC_SO2>
+ PTERMS(:,55,239) = -TPK%KC27(:)*PCONC(:,65)*PCONC(:,55)
!
-!PTERMS(RPR3,K312) = -K312*<OH>*<RPR3>
- PTERMS(:,57,313) = -TPK%K312(:)*PCONC(:,15)*PCONC(:,57)
+!PTERMS(WC_SULF,KC27) = +2.00*KC27*<WC_AHSO5>*<WC_SO2>
+ PTERMS(:,56,239) = +2.00*TPK%KC27(:)*PCONC(:,65)*PCONC(:,55)
!
-!PTERMS(RO2T,K312) = +K312*<OH>*<RPR3>
- PTERMS(:,85,313) = +TPK%K312(:)*PCONC(:,15)*PCONC(:,57)
+!PTERMS(WC_AHSO5,KC27) = -KC27*<WC_AHSO5>*<WC_SO2>
+ PTERMS(:,65,239) = -TPK%KC27(:)*PCONC(:,65)*PCONC(:,55)
!
-!PTERMS(HNO3,K313) = +K313*<NO3>*<RPR3>
- PTERMS(:,5,314) = +TPK%K313(:)*PCONC(:,8)*PCONC(:,57)
+!PTERMS(WC_OH,KC28) = +KC28*<WC_ASO4>
+ PTERMS(:,52,240) = +TPK%KC28(:)*PCONC(:,63)
!
-!PTERMS(NO3,K313) = -K313*<NO3>*<RPR3>
- PTERMS(:,8,314) = -TPK%K313(:)*PCONC(:,8)*PCONC(:,57)
+!PTERMS(WC_SULF,KC28) = +KC28*<WC_ASO4>
+ PTERMS(:,56,240) = +TPK%KC28(:)*PCONC(:,63)
!
-!PTERMS(RPR3,K313) = -K313*<NO3>*<RPR3>
- PTERMS(:,57,314) = -TPK%K313(:)*PCONC(:,8)*PCONC(:,57)
+!PTERMS(WC_ASO4,KC28) = -KC28*<WC_ASO4>
+ PTERMS(:,63,240) = -TPK%KC28(:)*PCONC(:,63)
!
-!PTERMS(RO2T,K313) = +K313*<NO3>*<RPR3>
- PTERMS(:,85,314) = +TPK%K313(:)*PCONC(:,8)*PCONC(:,57)
+!PTERMS(WC_O3,KC29) = -KC29*<WC_SO2>*<WC_O3>
+ PTERMS(:,42,241) = -TPK%KC29(:)*PCONC(:,55)*PCONC(:,42)
!
-!PTERMS(HO2,K314) = +2.*K314*<RPR3>
- PTERMS(:,10,315) = +2.*TPK%K314(:)*PCONC(:,57)
+!PTERMS(WC_SO2,KC29) = -KC29*<WC_SO2>*<WC_O3>
+ PTERMS(:,55,241) = -TPK%KC29(:)*PCONC(:,55)*PCONC(:,42)
!
-!PTERMS(CO,K314) = +K314*<RPR3>
- PTERMS(:,11,315) = +TPK%K314(:)*PCONC(:,57)
+!PTERMS(WC_SULF,KC29) = +KC29*<WC_SO2>*<WC_O3>
+ PTERMS(:,56,241) = +TPK%KC29(:)*PCONC(:,55)*PCONC(:,42)
!
-!PTERMS(RPR3,K314) = -K314*<RPR3>
- PTERMS(:,57,315) = -TPK%K314(:)*PCONC(:,57)
+!PTERMS(WC_H2O2,KC30) = -KC30*<WC_SO2>*<WC_H2O2>
+ PTERMS(:,43,242) = -TPK%KC30(:)*PCONC(:,55)*PCONC(:,43)
!
-!PTERMS(NO,K315) = -K315*<NO>*<RO256>
- PTERMS(:,1,316) = -TPK%K315(:)*PCONC(:,1)*TPK%RO256(:)
+!PTERMS(WC_SO2,KC30) = -KC30*<WC_SO2>*<WC_H2O2>
+ PTERMS(:,55,242) = -TPK%KC30(:)*PCONC(:,55)*PCONC(:,43)
!
-!PTERMS(NO2,K315) = +K315*<NO>*<RO256>
- PTERMS(:,2,316) = +TPK%K315(:)*PCONC(:,1)*TPK%RO256(:)
+!PTERMS(WC_SULF,KC30) = +KC30*<WC_SO2>*<WC_H2O2>
+ PTERMS(:,56,242) = +TPK%KC30(:)*PCONC(:,55)*PCONC(:,43)
!
-!PTERMS(HO2,K315) = +K315*<NO>*<RO256>
- PTERMS(:,10,316) = +TPK%K315(:)*PCONC(:,1)*TPK%RO256(:)
+!PTERMS(WR_H2O2,KR1) = -KR1*<WR_H2O2>
+ PTERMS(:,68,243) = -TPK%KR1(:)*PCONC(:,68)
!
-!PTERMS(NO2,K316) = -K316*<NO2>*<RO256>
- PTERMS(:,2,317) = -TPK%K316(:)*PCONC(:,2)*TPK%RO256(:)
+!PTERMS(WR_OH,KR1) = +KR1*<WR_H2O2>
+ PTERMS(:,77,243) = +TPK%KR1(:)*PCONC(:,68)
!
-!PTERMS(PAN8,K316) = +K316*<NO2>*<RO256>
- PTERMS(:,83,317) = +TPK%K316(:)*PCONC(:,2)*TPK%RO256(:)
+!PTERMS(WR_H2O2,KR2) = +KR2*<WR_OH>*<WR_OH>
+ PTERMS(:,68,244) = +TPK%KR2(:)*PCONC(:,77)*PCONC(:,77)
!
-!PTERMS(NO2,K317) = +K317*<PAN8>
- PTERMS(:,2,318) = +TPK%K317(:)*PCONC(:,83)
+!PTERMS(WR_OH,KR2) = -KR2*<WR_OH>*<WR_OH>
+ PTERMS(:,77,244) = -TPK%KR2(:)*PCONC(:,77)*PCONC(:,77)
!
-!PTERMS(PAN8,K317) = -K317*<PAN8>
- PTERMS(:,83,318) = -TPK%K317(:)*PCONC(:,83)
+!PTERMS(WR_OH,KR3) = -KR3*<WR_OH>*<WR_HO2>
+ PTERMS(:,77,245) = -TPK%KR3(:)*PCONC(:,77)*PCONC(:,78)
!
-!PTERMS(RO2T,K317) = +K317*<PAN8>
- PTERMS(:,85,318) = +TPK%K317(:)*PCONC(:,83)
+!PTERMS(WR_HO2,KR3) = -KR3*<WR_OH>*<WR_HO2>
+ PTERMS(:,78,245) = -TPK%KR3(:)*PCONC(:,77)*PCONC(:,78)
!
-!PTERMS(O3,K318) = +K318*<HO2>*<RO256>
- PTERMS(:,3,319) = +TPK%K318(:)*PCONC(:,10)*TPK%RO256(:)
+!PTERMS(WR_H2O2,KR4) = -KR4*<WR_H2O2>*<WR_OH>
+ PTERMS(:,68,246) = -TPK%KR4(:)*PCONC(:,68)*PCONC(:,77)
!
-!PTERMS(HO2,K318) = -K318*<HO2>*<RO256>
- PTERMS(:,10,319) = -TPK%K318(:)*PCONC(:,10)*TPK%RO256(:)
+!PTERMS(WR_OH,KR4) = -KR4*<WR_H2O2>*<WR_OH>
+ PTERMS(:,77,246) = -TPK%KR4(:)*PCONC(:,68)*PCONC(:,77)
!
!
RETURN
-END SUBROUTINE SUBT53
+END SUBROUTINE SUBT42
!
-SUBROUTINE SUBT54
+SUBROUTINE SUBT43
!
-!Indices 1081 a 1100
+!Indices 861 a 880
!
-!PTERMS(URG4,K318) = +1.0000000*K318*<HO2>*<RO256>
- PTERMS(:,53,319) = +1.0000000*TPK%K318(:)*PCONC(:,10)*TPK%RO256(:)
+!PTERMS(WR_HO2,KR4) = +KR4*<WR_H2O2>*<WR_OH>
+ PTERMS(:,78,246) = +TPK%KR4(:)*PCONC(:,68)*PCONC(:,77)
!
-!PTERMS(HO2,K319) = +K319*<RO2T>*<RO256>
- PTERMS(:,10,320) = +TPK%K319(:)*PCONC(:,85)*TPK%RO256(:)
+!PTERMS(WR_H2O2,KR5) = +KR5*<WR_HO2>*<WR_HO2>
+ PTERMS(:,68,247) = +TPK%KR5(:)*PCONC(:,78)*PCONC(:,78)
!
-!PTERMS(RO2T,K319) = -K319*<RO2T>*<RO256>
- PTERMS(:,85,320) = -TPK%K319(:)*PCONC(:,85)*TPK%RO256(:)
+!PTERMS(WR_HO2,KR5) = -KR5*<WR_HO2>*<WR_HO2>
+ PTERMS(:,78,247) = -TPK%KR5(:)*PCONC(:,78)*PCONC(:,78)
!
-!PTERMS(HNO3,K320) = +K320*<NO3>*<RPR4>
- PTERMS(:,5,321) = +TPK%K320(:)*PCONC(:,8)*PCONC(:,61)
+!PTERMS(WR_O3,KR6) = -KR6*<WR_O3>*<WR_HO2>
+ PTERMS(:,67,248) = -TPK%KR6(:)*PCONC(:,67)*PCONC(:,78)
!
-!PTERMS(NO3,K320) = -K320*<NO3>*<RPR4>
- PTERMS(:,8,321) = -TPK%K320(:)*PCONC(:,8)*PCONC(:,61)
+!PTERMS(WR_OH,KR6) = +KR6*<WR_O3>*<WR_HO2>
+ PTERMS(:,77,248) = +TPK%KR6(:)*PCONC(:,67)*PCONC(:,78)
!
-!PTERMS(RPR4,K320) = -K320*<NO3>*<RPR4>
- PTERMS(:,61,321) = -TPK%K320(:)*PCONC(:,8)*PCONC(:,61)
+!PTERMS(WR_HO2,KR6) = -KR6*<WR_O3>*<WR_HO2>
+ PTERMS(:,78,248) = -TPK%KR6(:)*PCONC(:,67)*PCONC(:,78)
!
-!PTERMS(NO2,K321) = -K321*<NO2>*<RAD8>
- PTERMS(:,2,322) = -TPK%K321(:)*PCONC(:,2)*TPK%RAD8(:)
+!PTERMS(WR_OH,KR7) = -KR7*<WR_OH>*<WR_SO2>
+ PTERMS(:,77,249) = -TPK%KR7(:)*PCONC(:,77)*PCONC(:,80)
!
-!PTERMS(UR22,K321) = +K321*<NO2>*<RAD8>
- PTERMS(:,59,322) = +TPK%K321(:)*PCONC(:,2)*TPK%RAD8(:)
+!PTERMS(WR_SO2,KR7) = -KR7*<WR_OH>*<WR_SO2>
+ PTERMS(:,80,249) = -TPK%KR7(:)*PCONC(:,77)*PCONC(:,80)
!
-!PTERMS(O3,K322) = +K322*<OH>*<RPR7>
- PTERMS(:,3,323) = +TPK%K322(:)*PCONC(:,15)*PCONC(:,62)
+!PTERMS(WR_ASO3,KR7) = +KR7*<WR_OH>*<WR_SO2>
+ PTERMS(:,87,249) = +TPK%KR7(:)*PCONC(:,77)*PCONC(:,80)
!
-!PTERMS(OH,K322) = -K322*<OH>*<RPR7>
- PTERMS(:,15,323) = -TPK%K322(:)*PCONC(:,15)*PCONC(:,62)
+!PTERMS(WR_NO2,KR8) = +KR8*<WR_HONO>*<WR_OH>
+ PTERMS(:,70,250) = +TPK%KR8(:)*PCONC(:,73)*PCONC(:,77)
!
-!PTERMS(URG7,K322) = +0.9999993*K322*<OH>*<RPR7>
- PTERMS(:,60,323) = +0.9999993*TPK%K322(:)*PCONC(:,15)*PCONC(:,62)
+!PTERMS(WR_HONO,KR8) = -KR8*<WR_HONO>*<WR_OH>
+ PTERMS(:,73,250) = -TPK%KR8(:)*PCONC(:,73)*PCONC(:,77)
!
-!PTERMS(RPR7,K322) = -K322*<OH>*<RPR7>
- PTERMS(:,62,323) = -TPK%K322(:)*PCONC(:,15)*PCONC(:,62)
+!PTERMS(WR_OH,KR8) = -KR8*<WR_HONO>*<WR_OH>
+ PTERMS(:,77,250) = -TPK%KR8(:)*PCONC(:,73)*PCONC(:,77)
!
-!PTERMS(O3,K323) = +1.0000005*K323*<OH>*<RPG7>
- PTERMS(:,3,324) = +1.0000005*TPK%K323(:)*PCONC(:,15)*PCONC(:,63)
+!PTERMS(WR_NO2,KR9) = -KR9*<WR_NO2>*<WR_HO2>
+ PTERMS(:,70,251) = -TPK%KR9(:)*PCONC(:,70)*PCONC(:,78)
!
-!PTERMS(OH,K323) = -K323*<OH>*<RPG7>
- PTERMS(:,15,324) = -TPK%K323(:)*PCONC(:,15)*PCONC(:,63)
+!PTERMS(WR_HNO4,KR9) = +KR9*<WR_NO2>*<WR_HO2>
+ PTERMS(:,75,251) = +TPK%KR9(:)*PCONC(:,70)*PCONC(:,78)
!
-!PTERMS(URG6,K323) = +0.4978440*K323*<OH>*<RPG7>
- PTERMS(:,58,324) = +0.4978440*TPK%K323(:)*PCONC(:,15)*PCONC(:,63)
+!PTERMS(WR_HO2,KR9) = -KR9*<WR_NO2>*<WR_HO2>
+ PTERMS(:,78,251) = -TPK%KR9(:)*PCONC(:,70)*PCONC(:,78)
!
-!PTERMS(RPG7,K323) = -K323*<OH>*<RPG7>
- PTERMS(:,63,324) = -TPK%K323(:)*PCONC(:,15)*PCONC(:,63)
+!PTERMS(WR_NO2,KR10) = +KR10*<WR_HNO4>
+ PTERMS(:,70,252) = +TPK%KR10(:)*PCONC(:,75)
!
-!PTERMS(OH,K324) = -K324*<OH>*<RPR8>
- PTERMS(:,15,325) = -TPK%K324(:)*PCONC(:,15)*PCONC(:,71)
+!PTERMS(WR_HNO4,KR10) = -KR10*<WR_HNO4>
+ PTERMS(:,75,252) = -TPK%KR10(:)*PCONC(:,75)
!
-!PTERMS(RPR8,K324) = -K324*<OH>*<RPR8>
- PTERMS(:,71,325) = -TPK%K324(:)*PCONC(:,15)*PCONC(:,71)
+!PTERMS(WR_HO2,KR10) = +KR10*<WR_HNO4>
+ PTERMS(:,78,252) = +TPK%KR10(:)*PCONC(:,75)
!
-!PTERMS(RO2T,K324) = +K324*<OH>*<RPR8>
- PTERMS(:,85,325) = +TPK%K324(:)*PCONC(:,15)*PCONC(:,71)
+!PTERMS(WR_HONO,KR11) = +KR11*<WR_HNO4>
+ PTERMS(:,73,253) = +TPK%KR11(:)*PCONC(:,75)
!
-!PTERMS(HO2,K325) = +K325*<OH>*<RP10>
- PTERMS(:,10,326) = +TPK%K325(:)*PCONC(:,15)*PCONC(:,72)
+!PTERMS(WR_HNO4,KR11) = -KR11*<WR_HNO4>
+ PTERMS(:,75,253) = -TPK%KR11(:)*PCONC(:,75)
!
!
RETURN
-END SUBROUTINE SUBT54
+END SUBROUTINE SUBT43
!
-SUBROUTINE SUBT55
+SUBROUTINE SUBT44
!
-!Indices 1101 a 1120
+!Indices 881 a 900
!
-!PTERMS(OH,K325) = -K325*<OH>*<RP10>
- PTERMS(:,15,326) = -TPK%K325(:)*PCONC(:,15)*PCONC(:,72)
+!PTERMS(WR_HNO3,KR12) = +KR12*<WR_HNO4>*<WR_SO2>
+ PTERMS(:,74,254) = +TPK%KR12(:)*PCONC(:,75)*PCONC(:,80)
!
-!PTERMS(RP10,K325) = -K325*<OH>*<RP10>
- PTERMS(:,72,326) = -TPK%K325(:)*PCONC(:,15)*PCONC(:,72)
+!PTERMS(WR_HNO4,KR12) = -KR12*<WR_HNO4>*<WR_SO2>
+ PTERMS(:,75,254) = -TPK%KR12(:)*PCONC(:,75)*PCONC(:,80)
!
-!PTERMS(O3,K326) = +K326*<OH>*<RP11>
- PTERMS(:,3,327) = +TPK%K326(:)*PCONC(:,15)*PCONC(:,73)
+!PTERMS(WR_SO2,KR12) = -KR12*<WR_HNO4>*<WR_SO2>
+ PTERMS(:,80,254) = -TPK%KR12(:)*PCONC(:,75)*PCONC(:,80)
!
-!PTERMS(OH,K326) = -K326*<OH>*<RP11>
- PTERMS(:,15,327) = -TPK%K326(:)*PCONC(:,15)*PCONC(:,73)
+!PTERMS(WR_SULF,KR12) = +KR12*<WR_HNO4>*<WR_SO2>
+ PTERMS(:,81,254) = +TPK%KR12(:)*PCONC(:,75)*PCONC(:,80)
!
-!PTERMS(UR26,K326) = +0.67*K326*<OH>*<RP11>
- PTERMS(:,49,327) = +0.67*TPK%K326(:)*PCONC(:,15)*PCONC(:,73)
+!PTERMS(WR_NO2,KR13) = +KR13*<WR_HNO3>
+ PTERMS(:,70,255) = +TPK%KR13(:)*PCONC(:,74)
!
-!PTERMS(RP11,K326) = -K326*<OH>*<RP11>
- PTERMS(:,73,327) = -TPK%K326(:)*PCONC(:,15)*PCONC(:,73)
+!PTERMS(WR_HNO3,KR13) = -KR13*<WR_HNO3>
+ PTERMS(:,74,255) = -TPK%KR13(:)*PCONC(:,74)
!
-!PTERMS(HNO3,K327) = +K327*<NO3>*<RPR8>
- PTERMS(:,5,328) = +TPK%K327(:)*PCONC(:,8)*PCONC(:,71)
+!PTERMS(WR_OH,KR13) = +KR13*<WR_HNO3>
+ PTERMS(:,77,255) = +TPK%KR13(:)*PCONC(:,74)
!
-!PTERMS(NO3,K327) = -K327*<NO3>*<RPR8>
- PTERMS(:,8,328) = -TPK%K327(:)*PCONC(:,8)*PCONC(:,71)
+!PTERMS(WR_N2O5,KR14) = -KR14*<WR_N2O5>
+ PTERMS(:,72,256) = -TPK%KR14(:)*PCONC(:,72)
!
-!PTERMS(RPR8,K327) = -K327*<NO3>*<RPR8>
- PTERMS(:,71,328) = -TPK%K327(:)*PCONC(:,8)*PCONC(:,71)
+!PTERMS(WR_HNO3,KR14) = +KR14*<WR_N2O5>
+ PTERMS(:,74,256) = +TPK%KR14(:)*PCONC(:,72)
!
-!PTERMS(RO2T,K327) = +K327*<NO3>*<RPR8>
- PTERMS(:,85,328) = +TPK%K327(:)*PCONC(:,8)*PCONC(:,71)
+!PTERMS(WR_NO3,KR15) = -KR15*<WR_NO3>*<WR_SULF>
+ PTERMS(:,71,257) = -TPK%KR15(:)*PCONC(:,71)*PCONC(:,81)
!
-!PTERMS(RP10,K328) = -K328*<RP10>
- PTERMS(:,72,329) = -TPK%K328(:)*PCONC(:,72)
+!PTERMS(WR_HNO3,KR15) = +KR15*<WR_NO3>*<WR_SULF>
+ PTERMS(:,74,257) = +TPK%KR15(:)*PCONC(:,71)*PCONC(:,81)
!
-!PTERMS(HO2,K329) = +K329*<RPR8>
- PTERMS(:,10,330) = +TPK%K329(:)*PCONC(:,71)
+!PTERMS(WR_SULF,KR15) = -KR15*<WR_NO3>*<WR_SULF>
+ PTERMS(:,81,257) = -TPK%KR15(:)*PCONC(:,71)*PCONC(:,81)
!
-!PTERMS(CO,K329) = +K329*<RPR8>
- PTERMS(:,11,330) = +TPK%K329(:)*PCONC(:,71)
+!PTERMS(WR_ASO4,KR15) = +KR15*<WR_NO3>*<WR_SULF>
+ PTERMS(:,88,257) = +TPK%KR15(:)*PCONC(:,71)*PCONC(:,81)
!
-!PTERMS(RPR8,K329) = -K329*<RPR8>
- PTERMS(:,71,330) = -TPK%K329(:)*PCONC(:,71)
+!PTERMS(WR_NO3,KR16) = -KR16*<WR_NO3>*<WR_SO2>
+ PTERMS(:,71,258) = -TPK%KR16(:)*PCONC(:,71)*PCONC(:,80)
!
-!PTERMS(RO2T,K329) = +K329*<RPR8>
- PTERMS(:,85,330) = +TPK%K329(:)*PCONC(:,71)
+!PTERMS(WR_HNO3,KR16) = +KR16*<WR_NO3>*<WR_SO2>
+ PTERMS(:,74,258) = +TPK%KR16(:)*PCONC(:,71)*PCONC(:,80)
!
-!PTERMS(HO2,K330) = +K330*<RPR8>
- PTERMS(:,10,331) = +TPK%K330(:)*PCONC(:,71)
+!PTERMS(WR_SO2,KR16) = -KR16*<WR_NO3>*<WR_SO2>
+ PTERMS(:,80,258) = -TPK%KR16(:)*PCONC(:,71)*PCONC(:,80)
!
-!PTERMS(RPR8,K330) = -K330*<RPR8>
- PTERMS(:,71,331) = -TPK%K330(:)*PCONC(:,71)
+!PTERMS(WR_ASO3,KR16) = +KR16*<WR_NO3>*<WR_SO2>
+ PTERMS(:,87,258) = +TPK%KR16(:)*PCONC(:,71)*PCONC(:,80)
!
-!PTERMS(RO2T,K330) = +K330*<RPR8>
- PTERMS(:,85,331) = +TPK%K330(:)*PCONC(:,71)
+!PTERMS(WR_HO2,KR17) = +2.00*KR17*<WR_MO2>*<WR_MO2>
+ PTERMS(:,78,259) = +2.00*TPK%KR17(:)*PCONC(:,85)*PCONC(:,85)
!
-!PTERMS(NO,K331) = -K331*<NO>*<RO257>
- PTERMS(:,1,332) = -TPK%K331(:)*PCONC(:,1)*TPK%RO257(:)
+!PTERMS(WR_HCHO,KR17) = +2.00*KR17*<WR_MO2>*<WR_MO2>
+ PTERMS(:,82,259) = +2.00*TPK%KR17(:)*PCONC(:,85)*PCONC(:,85)
!
-!PTERMS(NO2,K331) = +K331*<NO>*<RO257>
- PTERMS(:,2,332) = +TPK%K331(:)*PCONC(:,1)*TPK%RO257(:)
+!PTERMS(WR_MO2,KR17) = -KR17*<WR_MO2>*<WR_MO2>
+ PTERMS(:,85,259) = -TPK%KR17(:)*PCONC(:,85)*PCONC(:,85)
!
!
RETURN
-END SUBROUTINE SUBT55
+END SUBROUTINE SUBT44
+!
+SUBROUTINE SUBT45
+!
+!Indices 901 a 920
!
-SUBROUTINE SUBT56
+!PTERMS(WR_SO2,KR18) = -KR18*<WR_MO2>*<WR_SO2>
+ PTERMS(:,80,260) = -TPK%KR18(:)*PCONC(:,85)*PCONC(:,80)
!
-!Indices 1121 a 1140
+!PTERMS(WR_MO2,KR18) = -KR18*<WR_MO2>*<WR_SO2>
+ PTERMS(:,85,260) = -TPK%KR18(:)*PCONC(:,85)*PCONC(:,80)
!
-!PTERMS(RO2T,K331) = +K331*<NO>*<RO257>
- PTERMS(:,85,332) = +TPK%K331(:)*PCONC(:,1)*TPK%RO257(:)
+!PTERMS(WR_OP1,KR18) = +KR18*<WR_MO2>*<WR_SO2>
+ PTERMS(:,86,260) = +TPK%KR18(:)*PCONC(:,85)*PCONC(:,80)
!
-!PTERMS(O3,K332) = +K332*<HO2>*<RO257>
- PTERMS(:,3,333) = +TPK%K332(:)*PCONC(:,10)*TPK%RO257(:)
+!PTERMS(WR_ASO3,KR18) = +KR18*<WR_MO2>*<WR_SO2>
+ PTERMS(:,87,260) = +TPK%KR18(:)*PCONC(:,85)*PCONC(:,80)
!
-!PTERMS(HO2,K332) = -K332*<HO2>*<RO257>
- PTERMS(:,10,333) = -TPK%K332(:)*PCONC(:,10)*TPK%RO257(:)
+!PTERMS(WR_OH,KR19) = -KR19*<WR_HCHO>*<WR_OH>
+ PTERMS(:,77,261) = -TPK%KR19(:)*PCONC(:,82)*PCONC(:,77)
!
-!PTERMS(URG4,K332) = +1.0000000*K332*<HO2>*<RO257>
- PTERMS(:,53,333) = +1.0000000*TPK%K332(:)*PCONC(:,10)*TPK%RO257(:)
+!PTERMS(WR_HO2,KR19) = +KR19*<WR_HCHO>*<WR_OH>
+ PTERMS(:,78,261) = +TPK%KR19(:)*PCONC(:,82)*PCONC(:,77)
!
-!PTERMS(RO2T,K333) = -K333*<RO2T>*<RO257>
- PTERMS(:,85,334) = -TPK%K333(:)*PCONC(:,85)*TPK%RO257(:)
+!PTERMS(WR_HCHO,KR19) = -KR19*<WR_HCHO>*<WR_OH>
+ PTERMS(:,82,261) = -TPK%KR19(:)*PCONC(:,82)*PCONC(:,77)
!
-!PTERMS(O3,K334) = +1.0000000*K334*<OH>*<RPG3>
- PTERMS(:,3,335) = +1.0000000*TPK%K334(:)*PCONC(:,15)*PCONC(:,52)
+!PTERMS(WR_ORA1,KR19) = +KR19*<WR_HCHO>*<WR_OH>
+ PTERMS(:,83,261) = +TPK%KR19(:)*PCONC(:,82)*PCONC(:,77)
!
-!PTERMS(OH,K334) = -K334*<OH>*<RPG3>
- PTERMS(:,15,335) = -TPK%K334(:)*PCONC(:,15)*PCONC(:,52)
+!PTERMS(WR_OH,KR20) = -KR20*<WR_ORA1>*<WR_OH>
+ PTERMS(:,77,262) = -TPK%KR20(:)*PCONC(:,83)*PCONC(:,77)
!
-!PTERMS(RPG2,K334) = +0.8808107*K334*<OH>*<RPG3>
- PTERMS(:,50,335) = +0.8808107*TPK%K334(:)*PCONC(:,15)*PCONC(:,52)
+!PTERMS(WR_HO2,KR20) = +KR20*<WR_ORA1>*<WR_OH>
+ PTERMS(:,78,262) = +TPK%KR20(:)*PCONC(:,83)*PCONC(:,77)
!
-!PTERMS(RPG3,K334) = -K334*<OH>*<RPG3>
- PTERMS(:,52,335) = -TPK%K334(:)*PCONC(:,15)*PCONC(:,52)
+!PTERMS(WR_CO2,KR20) = +KR20*<WR_ORA1>*<WR_OH>
+ PTERMS(:,79,262) = +TPK%KR20(:)*PCONC(:,83)*PCONC(:,77)
!
-!PTERMS(O3,K335) = +1.0000000*K335*<OH>*<RPG2>
- PTERMS(:,3,336) = +1.0000000*TPK%K335(:)*PCONC(:,15)*PCONC(:,50)
+!PTERMS(WR_ORA1,KR20) = -KR20*<WR_ORA1>*<WR_OH>
+ PTERMS(:,83,262) = -TPK%KR20(:)*PCONC(:,83)*PCONC(:,77)
!
-!PTERMS(OH,K335) = -K335*<OH>*<RPG2>
- PTERMS(:,15,336) = -TPK%K335(:)*PCONC(:,15)*PCONC(:,50)
+!PTERMS(WR_SO2,KR21) = -KR21*<WR_SO2>*<WR_HCHO>
+ PTERMS(:,80,263) = -TPK%KR21(:)*PCONC(:,80)*PCONC(:,82)
!
-!PTERMS(URG2,K335) = +0.5562513*K335*<OH>*<RPG2>
- PTERMS(:,48,336) = +0.5562513*TPK%K335(:)*PCONC(:,15)*PCONC(:,50)
+!PTERMS(WR_HCHO,KR21) = -KR21*<WR_SO2>*<WR_HCHO>
+ PTERMS(:,82,263) = -TPK%KR21(:)*PCONC(:,80)*PCONC(:,82)
!
-!PTERMS(RPG2,K335) = -K335*<OH>*<RPG2>
- PTERMS(:,50,336) = -TPK%K335(:)*PCONC(:,15)*PCONC(:,50)
+!PTERMS(WR_AHMS,KR21) = +KR21*<WR_SO2>*<WR_HCHO>
+ PTERMS(:,91,263) = +TPK%KR21(:)*PCONC(:,80)*PCONC(:,82)
!
-!PTERMS(RP18,K335) = +0.4437492*K335*<OH>*<RPG2>
- PTERMS(:,51,336) = +0.4437492*TPK%K335(:)*PCONC(:,15)*PCONC(:,50)
+!PTERMS(WR_SO2,KR22) = +KR22*<WR_AHMS>
+ PTERMS(:,80,264) = +TPK%KR22(:)*PCONC(:,91)
!
-!PTERMS(O3,K337) = +K337*<OH>*<RP18>
- PTERMS(:,3,337) = +TPK%K337(:)*PCONC(:,15)*PCONC(:,51)
+!PTERMS(WR_HCHO,KR22) = +KR22*<WR_AHMS>
+ PTERMS(:,82,264) = +TPK%KR22(:)*PCONC(:,91)
!
-!PTERMS(OH,K337) = -K337*<OH>*<RP18>
- PTERMS(:,15,337) = -TPK%K337(:)*PCONC(:,15)*PCONC(:,51)
+!PTERMS(WR_AHMS,KR22) = -KR22*<WR_AHMS>
+ PTERMS(:,91,264) = -TPK%KR22(:)*PCONC(:,91)
!
-!PTERMS(URG2,K337) = +K337*<OH>*<RP18>
- PTERMS(:,48,337) = +TPK%K337(:)*PCONC(:,15)*PCONC(:,51)
+!PTERMS(WR_OH,KR23) = -KR23*<WR_AHMS>*<WR_OH>
+ PTERMS(:,77,265) = -TPK%KR23(:)*PCONC(:,91)*PCONC(:,77)
!
-!PTERMS(RP18,K337) = -K337*<OH>*<RP18>
- PTERMS(:,51,337) = -TPK%K337(:)*PCONC(:,15)*PCONC(:,51)
+!PTERMS(WR_HO2,KR23) = +KR23*<WR_AHMS>*<WR_OH>
+ PTERMS(:,78,265) = +TPK%KR23(:)*PCONC(:,91)*PCONC(:,77)
!
-!PTERMS(HNO3,K338) = +K338*<NO3>*<RP16>
- PTERMS(:,5,338) = +TPK%K338(:)*PCONC(:,8)*PCONC(:,74)
!
-!PTERMS(NO3,K338) = -K338*<NO3>*<RP16>
- PTERMS(:,8,338) = -TPK%K338(:)*PCONC(:,8)*PCONC(:,74)
+RETURN
+END SUBROUTINE SUBT45
!
+SUBROUTINE SUBT46
!
-RETURN
-END SUBROUTINE SUBT56
+!Indices 921 a 940
!
-SUBROUTINE SUBT57
+!PTERMS(WR_SO2,KR23) = +KR23*<WR_AHMS>*<WR_OH>
+ PTERMS(:,80,265) = +TPK%KR23(:)*PCONC(:,91)*PCONC(:,77)
!
-!Indices 1141 a 1160
+!PTERMS(WR_ORA1,KR23) = +KR23*<WR_AHMS>*<WR_OH>
+ PTERMS(:,83,265) = +TPK%KR23(:)*PCONC(:,91)*PCONC(:,77)
!
-!PTERMS(RP16,K338) = -K338*<NO3>*<RP16>
- PTERMS(:,74,338) = -TPK%K338(:)*PCONC(:,8)*PCONC(:,74)
+!PTERMS(WR_AHMS,KR23) = -KR23*<WR_AHMS>*<WR_OH>
+ PTERMS(:,91,265) = -TPK%KR23(:)*PCONC(:,91)*PCONC(:,77)
!
-!PTERMS(RO2T,K338) = +K338*<NO3>*<RP16>
- PTERMS(:,85,338) = +TPK%K338(:)*PCONC(:,8)*PCONC(:,74)
+!PTERMS(WR_ASO3,KR24) = -KR24*<WR_ASO3>*<W_O2>
+ PTERMS(:,87,266) = -TPK%KR24(:)*PCONC(:,87)*TPK%W_O2(:)
!
-!PTERMS(HO2,K339) = +K339*<RP16>
- PTERMS(:,10,339) = +TPK%K339(:)*PCONC(:,74)
+!PTERMS(WR_ASO5,KR24) = +KR24*<WR_ASO3>*<W_O2>
+ PTERMS(:,89,266) = +TPK%KR24(:)*PCONC(:,87)*TPK%W_O2(:)
!
-!PTERMS(CO,K339) = +2.*K339*<RP16>
- PTERMS(:,11,339) = +2.*TPK%K339(:)*PCONC(:,74)
+!PTERMS(WR_HO2,KR25) = -KR25*<WR_ASO5>*<WR_HO2>
+ PTERMS(:,78,267) = -TPK%KR25(:)*PCONC(:,89)*PCONC(:,78)
!
-!PTERMS(OH,K339) = +K339*<RP16>
- PTERMS(:,15,339) = +TPK%K339(:)*PCONC(:,74)
+!PTERMS(WR_ASO5,KR25) = -KR25*<WR_ASO5>*<WR_HO2>
+ PTERMS(:,89,267) = -TPK%KR25(:)*PCONC(:,89)*PCONC(:,78)
!
-!PTERMS(RP16,K339) = -K339*<RP16>
- PTERMS(:,74,339) = -TPK%K339(:)*PCONC(:,74)
+!PTERMS(WR_AHSO5,KR25) = +KR25*<WR_ASO5>*<WR_HO2>
+ PTERMS(:,90,267) = +TPK%KR25(:)*PCONC(:,89)*PCONC(:,78)
!
-!PTERMS(NO,K340) = -K340*<NO>*<RO258>
- PTERMS(:,1,340) = -TPK%K340(:)*PCONC(:,1)*TPK%RO258(:)
+!PTERMS(WR_ASO4,KR26) = +KR26*<WR_ASO5>*<WR_ASO5>
+ PTERMS(:,88,268) = +TPK%KR26(:)*PCONC(:,89)*PCONC(:,89)
!
-!PTERMS(NO2,K340) = +K340*<NO>*<RO258>
- PTERMS(:,2,340) = +TPK%K340(:)*PCONC(:,1)*TPK%RO258(:)
+!PTERMS(WR_ASO5,KR26) = -KR26*<WR_ASO5>*<WR_ASO5>
+ PTERMS(:,89,268) = -TPK%KR26(:)*PCONC(:,89)*PCONC(:,89)
!
-!PTERMS(CO,K340) = +K340*<NO>*<RO258>
- PTERMS(:,11,340) = +TPK%K340(:)*PCONC(:,1)*TPK%RO258(:)
+!PTERMS(WR_SO2,KR27) = -KR27*<WR_AHSO5>*<WR_SO2>
+ PTERMS(:,80,269) = -TPK%KR27(:)*PCONC(:,90)*PCONC(:,80)
!
-!PTERMS(OH,K340) = +K340*<NO>*<RO258>
- PTERMS(:,15,340) = +TPK%K340(:)*PCONC(:,1)*TPK%RO258(:)
+!PTERMS(WR_SULF,KR27) = +2.00*KR27*<WR_AHSO5>*<WR_SO2>
+ PTERMS(:,81,269) = +2.00*TPK%KR27(:)*PCONC(:,90)*PCONC(:,80)
!
-!PTERMS(O3,K341) = +K341*<HO2>*<RO258>
- PTERMS(:,3,341) = +TPK%K341(:)*PCONC(:,10)*TPK%RO258(:)
+!PTERMS(WR_AHSO5,KR27) = -KR27*<WR_AHSO5>*<WR_SO2>
+ PTERMS(:,90,269) = -TPK%KR27(:)*PCONC(:,90)*PCONC(:,80)
!
-!PTERMS(HO2,K341) = -K341*<HO2>*<RO258>
- PTERMS(:,10,341) = -TPK%K341(:)*PCONC(:,10)*TPK%RO258(:)
+!PTERMS(WR_OH,KR28) = +KR28*<WR_ASO4>
+ PTERMS(:,77,270) = +TPK%KR28(:)*PCONC(:,88)
!
-!PTERMS(UR28,K341) = +K341*<HO2>*<RO258>
- PTERMS(:,46,341) = +TPK%K341(:)*PCONC(:,10)*TPK%RO258(:)
+!PTERMS(WR_SULF,KR28) = +KR28*<WR_ASO4>
+ PTERMS(:,81,270) = +TPK%KR28(:)*PCONC(:,88)
!
-!PTERMS(CO,K342) = +K342*<RO2T>*<RO258>
- PTERMS(:,11,342) = +TPK%K342(:)*PCONC(:,85)*TPK%RO258(:)
+!PTERMS(WR_ASO4,KR28) = -KR28*<WR_ASO4>
+ PTERMS(:,88,270) = -TPK%KR28(:)*PCONC(:,88)
!
-!PTERMS(OH,K342) = +K342*<RO2T>*<RO258>
- PTERMS(:,15,342) = +TPK%K342(:)*PCONC(:,85)*TPK%RO258(:)
+!PTERMS(WR_O3,KR29) = -KR29*<WR_SO2>*<WR_O3>
+ PTERMS(:,67,271) = -TPK%KR29(:)*PCONC(:,80)*PCONC(:,67)
!
-!PTERMS(RO2T,K342) = -K342*<RO2T>*<RO258>
- PTERMS(:,85,342) = -TPK%K342(:)*PCONC(:,85)*TPK%RO258(:)
+!PTERMS(WR_SO2,KR29) = -KR29*<WR_SO2>*<WR_O3>
+ PTERMS(:,80,271) = -TPK%KR29(:)*PCONC(:,80)*PCONC(:,67)
!
-!PTERMS(NO2,K343) = +K343*<PAN7>
- PTERMS(:,2,343) = +TPK%K343(:)*PCONC(:,82)
+!PTERMS(WR_SULF,KR29) = +KR29*<WR_SO2>*<WR_O3>
+ PTERMS(:,81,271) = +TPK%KR29(:)*PCONC(:,80)*PCONC(:,67)
!
-!PTERMS(PAN7,K343) = -K343*<PAN7>
- PTERMS(:,82,343) = -TPK%K343(:)*PCONC(:,82)
+!PTERMS(WR_H2O2,KR30) = -KR30*<WR_SO2>*<WR_H2O2>
+ PTERMS(:,68,272) = -TPK%KR30(:)*PCONC(:,80)*PCONC(:,68)
!
-!PTERMS(RO2T,K343) = +K343*<PAN7>
- PTERMS(:,85,343) = +TPK%K343(:)*PCONC(:,82)
!
-!PTERMS(NO,K344) = -K344*<NO>*<RO230>
- PTERMS(:,1,344) = -TPK%K344(:)*PCONC(:,1)*TPK%RO230(:)
+RETURN
+END SUBROUTINE SUBT46
+!
+SUBROUTINE SUBT47
+!
+!Indices 941 a 942
+!
+!PTERMS(WR_SO2,KR30) = -KR30*<WR_SO2>*<WR_H2O2>
+ PTERMS(:,80,272) = -TPK%KR30(:)*PCONC(:,80)*PCONC(:,68)
+!
+!PTERMS(WR_SULF,KR30) = +KR30*<WR_SO2>*<WR_H2O2>
+ PTERMS(:,81,272) = +TPK%KR30(:)*PCONC(:,80)*PCONC(:,68)
!
!
RETURN
-END SUBROUTINE SUBT57
+END SUBROUTINE SUBT47
!
-SUBROUTINE SUBT58
+END SUBROUTINE CH_TERMS_AQ
+!
+!========================================================================
!
-!Indices 1161 a 1180
+!! ####################
+ MODULE MODI_CH_TERMS_GAZ
+!! ####################
+INTERFACE
+SUBROUTINE CH_TERMS_GAZ(PTIME,PCONC,PTERMS,KMI,KVECNPT,KEQ,KREAC)
+IMPLICIT NONE
+REAL, INTENT(IN) :: PTIME
+INTEGER, INTENT(IN) :: KVECNPT
+INTEGER, INTENT(IN) :: KEQ, KREAC
+REAL, INTENT(IN), DIMENSION(KVECNPT,KEQ) :: PCONC
+REAL, INTENT(OUT), DIMENSION(KVECNPT,KEQ,KREAC):: PTERMS
+INTEGER, INTENT(IN) :: KMI
+END SUBROUTINE CH_TERMS_GAZ
+END INTERFACE
+END MODULE MODI_CH_TERMS_GAZ
+!
+!========================================================================
!
-!PTERMS(NO2,K344) = +K344*<NO>*<RO230>
- PTERMS(:,2,344) = +TPK%K344(:)*PCONC(:,1)*TPK%RO230(:)
+!!
+!! ######################
+ SUBROUTINE CH_TERMS_GAZ(PTIME,PCONC,PTERMS,KMI,KVECNPT,KEQ,KREAC)
+!! ######################
+!! This code has been created automatically by preprocessor m10,
+!! version: 9.7, copyright 1995-1999 by Meteo France/Universite Paul Sabatier.
+!! Please report all bugs to K. Suhre (Lab. d'Aerologie UPS/CNRS).
+!!
+!!*** *MODD_CH_TERMS*
+!!
+!! PURPOSE
+!! -------
+! calculation of the contribution of each term in each reaction
+!!
+!!** METHOD
+!! ------
+!! The contribution of reaction i to the evolution of species j
+!! is returned in PTERMS.
+!!
+!! REFERENCE
+!! ---------
+!! none
+!!
+!! AUTHOR
+!! ------
+!! Karsten Suhre (LA)
+!!
+!! MODIFICATIONS
+!! -------------
+!! Original 26/07/96
+!! Modified 05/05/98: Vectorization (Vincent Crassier & KS)
+!! Modified 31/10/03: New interface for better MesoNH compilation (D. Gazen)
+!!
+!!----------------------------------------------------------------------
+!!
+!! EXTERNAL
+!! --------
+!! none
+!!
+!! IMPLICIT ARGUMENTS
+!! ------------------
+USE MODD_CH_M9_SCHEME
+!!
+!! EXPLICIT ARGUMENTS
+!! ------------------
+IMPLICIT NONE
+REAL, INTENT(IN) :: PTIME
+INTEGER, INTENT(IN) :: KVECNPT
+INTEGER, INTENT(IN) :: KEQ, KREAC
+REAL, INTENT(IN), DIMENSION(KVECNPT,KEQ) :: PCONC
+REAL, INTENT(OUT), DIMENSION(KVECNPT,KEQ,KREAC):: PTERMS
+INTEGER, INTENT(IN) :: KMI
+!!
+TYPE(CCSTYPE), POINTER :: TPK
+TPK=>TACCS(KMI)
+! /BEGIN_CODE/
+TPK%O1D(:)=(TPK%K002(:)*PCONC(:,JP_O3))/(TPK%K020(:)*TPK%N2(:)+TPK%K021(:)*TPK%O2(:)+&
+ &TPK%K022(:)*TPK%H2O(:))
+TPK%O3P(:)=(TPK%K001(:)*PCONC(:,JP_NO2)+TPK%K003(:)*PCONC(:,JP_O3)+TPK%K008(:)*PCONC(:,JP_NO3)+&
+ &TPK%K020(:)*TPK%O1D(:)*TPK%N2(:)+TPK%K021(:)*TPK%O1D(:)*TPK%O2(:)+&
+ &0.00000*TPK%K079(:)*PCONC(:,JP_ALKE)*PCONC(:,JP_O3)+&
+ &0.09000*TPK%K080(:)*PCONC(:,JP_BIO)*PCONC(:,JP_O3))/&
+ &(TPK%K018(:)*TPK%O2(:)+TPK%K019(:)*PCONC(:,JP_O3)+TPK%K029(:)*PCONC(:,JP_NO)+&
+ &TPK%K030(:)*PCONC(:,JP_NO2)+TPK%K031(:)*PCONC(:,JP_NO2)+TPK%K054(:)*PCONC(:,JP_BIO)+&
+ &TPK%K055(:)*PCONC(:,JP_CARBO))
+! /END_CODE/
+PTERMS(:,:,:) = 0.0
+CALL SUBT0
+CALL SUBT1
+CALL SUBT2
+CALL SUBT3
+CALL SUBT4
+CALL SUBT5
+CALL SUBT6
+CALL SUBT7
+CALL SUBT8
+CALL SUBT9
+CALL SUBT10
+CALL SUBT11
+CALL SUBT12
+CALL SUBT13
+CALL SUBT14
+CALL SUBT15
+CALL SUBT16
+CALL SUBT17
+CALL SUBT18
+CALL SUBT19
+CALL SUBT20
+CALL SUBT21
+CALL SUBT22
+CALL SUBT23
+CALL SUBT24
+CALL SUBT25
+CALL SUBT26
+CALL SUBT27
+CALL SUBT28
+CALL SUBT29
+CALL SUBT30
+!
+
+CONTAINS
+
+SUBROUTINE SUBT0
+!
+!Indices 1 a 20
+!
+!PTERMS(NO,K001) = +K001*<NO2>
+ PTERMS(:,3,1) = +TPK%K001(:)*PCONC(:,4)
!
-!PTERMS(RO2T,K344) = +K344*<NO>*<RO230>
- PTERMS(:,85,344) = +TPK%K344(:)*PCONC(:,1)*TPK%RO230(:)
+!PTERMS(NO2,K001) = -K001*<NO2>
+ PTERMS(:,4,1) = -TPK%K001(:)*PCONC(:,4)
!
-!PTERMS(NH3,K345) = -K345*<OH>*<NH3>
- PTERMS(:,9,345) = -TPK%K345(:)*PCONC(:,15)*PCONC(:,9)
+!PTERMS(O3,K002) = -K002*<O3>
+ PTERMS(:,1,2) = -TPK%K002(:)*PCONC(:,1)
!
-!PTERMS(OH,K345) = -K345*<OH>*<NH3>
- PTERMS(:,15,345) = -TPK%K345(:)*PCONC(:,15)*PCONC(:,9)
+!PTERMS(O3,K003) = -K003*<O3>
+ PTERMS(:,1,3) = -TPK%K003(:)*PCONC(:,1)
!
-!PTERMS(H2SO4,K346) = -K346*<H2SO4>
- PTERMS(:,14,346) = -TPK%K346(:)*PCONC(:,14)
+!PTERMS(NO,K004) = +K004*<HONO>
+ PTERMS(:,3,4) = +TPK%K004(:)*PCONC(:,7)
!
-!PTERMS(HO2,K347) = +K347*<OH>*<ORA1>
- PTERMS(:,10,347) = +TPK%K347(:)*PCONC(:,15)*PCONC(:,43)
+!PTERMS(HONO,K004) = -K004*<HONO>
+ PTERMS(:,7,4) = -TPK%K004(:)*PCONC(:,7)
!
-!PTERMS(OH,K347) = -K347*<OH>*<ORA1>
- PTERMS(:,15,347) = -TPK%K347(:)*PCONC(:,15)*PCONC(:,43)
+!PTERMS(OH,K004) = +K004*<HONO>
+ PTERMS(:,14,4) = +TPK%K004(:)*PCONC(:,7)
!
-!PTERMS(ORA1,K347) = -K347*<OH>*<ORA1>
- PTERMS(:,43,347) = -TPK%K347(:)*PCONC(:,15)*PCONC(:,43)
+!PTERMS(NO2,K005) = +K005*<HNO3>
+ PTERMS(:,4,5) = +TPK%K005(:)*PCONC(:,8)
!
-!PTERMS(OH,K348) = -K348*<OH>*<ORA2>
- PTERMS(:,15,348) = -TPK%K348(:)*PCONC(:,15)*PCONC(:,44)
+!PTERMS(HNO3,K005) = -K005*<HNO3>
+ PTERMS(:,8,5) = -TPK%K005(:)*PCONC(:,8)
!
-!PTERMS(ORA2,K348) = -K348*<OH>*<ORA2>
- PTERMS(:,44,348) = -TPK%K348(:)*PCONC(:,15)*PCONC(:,44)
+!PTERMS(OH,K005) = +K005*<HNO3>
+ PTERMS(:,14,5) = +TPK%K005(:)*PCONC(:,8)
!
-!PTERMS(OH,K349) = -K349*<OH>*<ACID>
- PTERMS(:,15,349) = -TPK%K349(:)*PCONC(:,15)*PCONC(:,45)
+!PTERMS(NO2,K006) = +0.65*K006*<HNO4>
+ PTERMS(:,4,6) = +0.65*TPK%K006(:)*PCONC(:,9)
!
-!PTERMS(ACID,K349) = -K349*<OH>*<ACID>
- PTERMS(:,45,349) = -TPK%K349(:)*PCONC(:,15)*PCONC(:,45)
+!PTERMS(NO3,K006) = +0.35*K006*<HNO4>
+ PTERMS(:,5,6) = +0.35*TPK%K006(:)*PCONC(:,9)
!
-!PTERMS(URG2,K350) = -K350*<URG2>
- PTERMS(:,48,350) = -TPK%K350(:)*PCONC(:,48)
+!PTERMS(HNO4,K006) = -K006*<HNO4>
+ PTERMS(:,9,6) = -TPK%K006(:)*PCONC(:,9)
!
-!PTERMS(URG4,K351) = -K351*<URG4>
- PTERMS(:,53,351) = -TPK%K351(:)*PCONC(:,53)
+!PTERMS(OH,K006) = +0.35*K006*<HNO4>
+ PTERMS(:,14,6) = +0.35*TPK%K006(:)*PCONC(:,9)
!
-!PTERMS(URG6,K352) = -K352*<URG6>
- PTERMS(:,58,352) = -TPK%K352(:)*PCONC(:,58)
+!PTERMS(HO2,K006) = +0.65*K006*<HNO4>
+ PTERMS(:,15,6) = +0.65*TPK%K006(:)*PCONC(:,9)
!
-!PTERMS(URG7,K353) = -K353*<URG7>
- PTERMS(:,60,353) = -TPK%K353(:)*PCONC(:,60)
+!PTERMS(NO,K007) = +K007*<NO3>
+ PTERMS(:,3,7) = +TPK%K007(:)*PCONC(:,5)
!
-!PTERMS(URG8,K354) = -K354*<URG8>
- PTERMS(:,64,354) = -TPK%K354(:)*PCONC(:,64)
+!PTERMS(NO3,K007) = -K007*<NO3>
+ PTERMS(:,5,7) = -TPK%K007(:)*PCONC(:,5)
!
-!PTERMS(URG9,K355) = -K355*<URG9>
- PTERMS(:,66,355) = -TPK%K355(:)*PCONC(:,66)
+!PTERMS(NO2,K008) = +K008*<NO3>
+ PTERMS(:,4,8) = +TPK%K008(:)*PCONC(:,5)
!
-!PTERMS(URG10,K356) = -K356*<URG10>
- PTERMS(:,68,356) = -TPK%K356(:)*PCONC(:,68)
+!PTERMS(NO3,K008) = -K008*<NO3>
+ PTERMS(:,5,8) = -TPK%K008(:)*PCONC(:,5)
!
-!PTERMS(UR7,K357) = -K357*<UR7>
- PTERMS(:,56,357) = -TPK%K357(:)*PCONC(:,56)
+!PTERMS(H2O2,K009) = -K009*<H2O2>
+ PTERMS(:,2,9) = -TPK%K009(:)*PCONC(:,2)
!
!
RETURN
-END SUBROUTINE SUBT58
+END SUBROUTINE SUBT0
!
-SUBROUTINE SUBT59
+SUBROUTINE SUBT1
!
-!Indices 1181 a 1200
+!Indices 21 a 40
!
-!PTERMS(UR8,K358) = -K358*<UR8>
- PTERMS(:,54,358) = -TPK%K358(:)*PCONC(:,54)
+!PTERMS(OH,K009) = +K009*<H2O2>
+ PTERMS(:,14,9) = +TPK%K009(:)*PCONC(:,2)
!
-!PTERMS(UR17,K359) = -K359*<UR17>
- PTERMS(:,55,359) = -TPK%K359(:)*PCONC(:,55)
+!PTERMS(CO,K010) = +K010*<HCHO>
+ PTERMS(:,13,10) = +TPK%K010(:)*PCONC(:,22)
!
-!PTERMS(UR19,K360) = -K360*<UR19>
- PTERMS(:,65,360) = -TPK%K360(:)*PCONC(:,65)
+!PTERMS(HCHO,K010) = -K010*<HCHO>
+ PTERMS(:,22,10) = -TPK%K010(:)*PCONC(:,22)
!
-!PTERMS(UR21,K361) = -K361*<UR21>
- PTERMS(:,47,361) = -TPK%K361(:)*PCONC(:,47)
+!PTERMS(CO,K011) = +K011*<HCHO>
+ PTERMS(:,13,11) = +TPK%K011(:)*PCONC(:,22)
!
-!PTERMS(UR22,K362) = -K362*<UR22>
- PTERMS(:,59,362) = -TPK%K362(:)*PCONC(:,59)
+!PTERMS(HO2,K011) = +K011*<HCHO>
+ PTERMS(:,15,11) = +TPK%K011(:)*PCONC(:,22)
!
-!PTERMS(UR26,K363) = -K363*<UR26>
- PTERMS(:,49,363) = -TPK%K363(:)*PCONC(:,49)
+!PTERMS(HCHO,K011) = -K011*<HCHO>
+ PTERMS(:,22,11) = -TPK%K011(:)*PCONC(:,22)
!
-!PTERMS(UR28,K364) = -K364*<UR28>
- PTERMS(:,46,364) = -TPK%K364(:)*PCONC(:,46)
+!PTERMS(CO,K012) = +K012*<ALD>
+ PTERMS(:,13,12) = +TPK%K012(:)*PCONC(:,23)
!
-!PTERMS(AP7,K365) = -K365*<AP7>
- PTERMS(:,67,365) = -TPK%K365(:)*PCONC(:,67)
+!PTERMS(HO2,K012) = +K012*<ALD>
+ PTERMS(:,15,12) = +TPK%K012(:)*PCONC(:,23)
!
-!PTERMS(O3,KTC1) = -KTC1*<O3>
- PTERMS(:,3,366) = -TPK%KTC1(:)*PCONC(:,3)
+!PTERMS(ALD,K012) = -K012*<ALD>
+ PTERMS(:,23,12) = -TPK%K012(:)*PCONC(:,23)
!
-!PTERMS(WC_O3,KTC1) = +KTC1*<O3>
- PTERMS(:,88,366) = +TPK%KTC1(:)*PCONC(:,3)
+!PTERMS(MO2,K012) = +K012*<ALD>
+ PTERMS(:,32,12) = +TPK%K012(:)*PCONC(:,23)
!
-!PTERMS(H2O2,KTC2) = -KTC2*<H2O2>
- PTERMS(:,12,367) = -TPK%KTC2(:)*PCONC(:,12)
+!PTERMS(OH,K013) = +K013*<OP1>
+ PTERMS(:,14,13) = +TPK%K013(:)*PCONC(:,28)
!
-!PTERMS(WC_H2O2,KTC2) = +KTC2*<H2O2>
- PTERMS(:,89,367) = +TPK%KTC2(:)*PCONC(:,12)
+!PTERMS(HO2,K013) = +K013*<OP1>
+ PTERMS(:,15,13) = +TPK%K013(:)*PCONC(:,28)
!
-!PTERMS(NO,KTC3) = -KTC3*<NO>
- PTERMS(:,1,368) = -TPK%KTC3(:)*PCONC(:,1)
+!PTERMS(HCHO,K013) = +K013*<OP1>
+ PTERMS(:,22,13) = +TPK%K013(:)*PCONC(:,28)
!
-!PTERMS(WC_NO,KTC3) = +KTC3*<NO>
- PTERMS(:,90,368) = +TPK%KTC3(:)*PCONC(:,1)
+!PTERMS(OP1,K013) = -K013*<OP1>
+ PTERMS(:,28,13) = -TPK%K013(:)*PCONC(:,28)
!
-!PTERMS(NO2,KTC4) = -KTC4*<NO2>
- PTERMS(:,2,369) = -TPK%KTC4(:)*PCONC(:,2)
+!PTERMS(OH,K014) = +K014*<OP2>
+ PTERMS(:,14,14) = +TPK%K014(:)*PCONC(:,29)
!
-!PTERMS(WC_NO2,KTC4) = +KTC4*<NO2>
- PTERMS(:,91,369) = +TPK%KTC4(:)*PCONC(:,2)
+!PTERMS(HO2,K014) = +0.96205*K014*<OP2>
+ PTERMS(:,15,14) = +0.96205*TPK%K014(:)*PCONC(:,29)
!
-!PTERMS(NO3,KTC5) = -KTC5*<NO3>
- PTERMS(:,8,370) = -TPK%KTC5(:)*PCONC(:,8)
+!PTERMS(ALD,K014) = +0.96205*K014*<OP2>
+ PTERMS(:,23,14) = +0.96205*TPK%K014(:)*PCONC(:,29)
!
-!PTERMS(WC_NO3,KTC5) = +KTC5*<NO3>
- PTERMS(:,92,370) = +TPK%KTC5(:)*PCONC(:,8)
+!PTERMS(OP2,K014) = -K014*<OP2>
+ PTERMS(:,29,14) = -TPK%K014(:)*PCONC(:,29)
!
-!PTERMS(N2O5,KTC6) = -KTC6*<N2O5>
- PTERMS(:,7,371) = -TPK%KTC6(:)*PCONC(:,7)
+!PTERMS(MO2,K014) = +0.03795*K014*<OP2>
+ PTERMS(:,32,14) = +0.03795*TPK%K014(:)*PCONC(:,29)
!
-!PTERMS(WC_N2O5,KTC6) = +KTC6*<N2O5>
- PTERMS(:,93,371) = +TPK%KTC6(:)*PCONC(:,7)
+!PTERMS(KET,K015) = -K015*<KET>
+ PTERMS(:,24,15) = -TPK%K015(:)*PCONC(:,24)
!
!
RETURN
-END SUBROUTINE SUBT59
+END SUBROUTINE SUBT1
!
-SUBROUTINE SUBT60
+SUBROUTINE SUBT2
!
-!Indices 1201 a 1220
+!Indices 41 a 60
!
-!PTERMS(HONO,KTC7) = -KTC7*<HONO>
- PTERMS(:,4,372) = -TPK%KTC7(:)*PCONC(:,4)
+!PTERMS(ALKAP,K015) = +1.00000*K015*<KET>
+ PTERMS(:,33,15) = +1.00000*TPK%K015(:)*PCONC(:,24)
!
-!PTERMS(WC_HONO,KTC7) = +KTC7*<HONO>
- PTERMS(:,94,372) = +TPK%KTC7(:)*PCONC(:,4)
+!PTERMS(CARBOP,K015) = +1.00000*K015*<KET>
+ PTERMS(:,39,15) = +1.00000*TPK%K015(:)*PCONC(:,24)
!
-!PTERMS(HNO3,KTC8) = -KTC8*<HNO3>
- PTERMS(:,5,373) = -TPK%KTC8(:)*PCONC(:,5)
+!PTERMS(CO,K016) = +0.91924*K016*<CARBO>
+ PTERMS(:,13,16) = +0.91924*TPK%K016(:)*PCONC(:,25)
!
-!PTERMS(WC_HNO3,KTC8) = +KTC8*<HNO3>
- PTERMS(:,95,373) = +TPK%KTC8(:)*PCONC(:,5)
+!PTERMS(HO2,K016) = +0.75830*K016*<CARBO>
+ PTERMS(:,15,16) = +0.75830*TPK%K016(:)*PCONC(:,25)
!
-!PTERMS(HNO4,KTC9) = -KTC9*<HNO4>
- PTERMS(:,6,374) = -TPK%KTC9(:)*PCONC(:,6)
+!PTERMS(HCHO,K016) = +0.06517*K016*<CARBO>
+ PTERMS(:,22,16) = +0.06517*TPK%K016(:)*PCONC(:,25)
!
-!PTERMS(WC_HNO4,KTC9) = +KTC9*<HNO4>
- PTERMS(:,96,374) = +TPK%KTC9(:)*PCONC(:,6)
+!PTERMS(CARBO,K016) = -K016*<CARBO>
+ PTERMS(:,25,16) = -TPK%K016(:)*PCONC(:,25)
!
-!PTERMS(NH3,KTC10) = -KTC10*<NH3>
- PTERMS(:,9,375) = -TPK%KTC10(:)*PCONC(:,9)
+!PTERMS(CARBOP,K016) = +0.69622*K016*<CARBO>
+ PTERMS(:,39,16) = +0.69622*TPK%K016(:)*PCONC(:,25)
!
-!PTERMS(WC_NH3,KTC10) = +KTC10*<NH3>
- PTERMS(:,97,375) = +TPK%KTC10(:)*PCONC(:,9)
+!PTERMS(NO2,K017) = +K017*<ONIT>
+ PTERMS(:,4,17) = +TPK%K017(:)*PCONC(:,26)
!
-!PTERMS(OH,KTC11) = -KTC11*<OH>
- PTERMS(:,15,376) = -TPK%KTC11(:)*PCONC(:,15)
+!PTERMS(HO2,K017) = +K017*<ONIT>
+ PTERMS(:,15,17) = +TPK%K017(:)*PCONC(:,26)
!
-!PTERMS(WC_OH,KTC11) = +KTC11*<OH>
- PTERMS(:,98,376) = +TPK%KTC11(:)*PCONC(:,15)
+!PTERMS(ALD,K017) = +0.20*K017*<ONIT>
+ PTERMS(:,23,17) = +0.20*TPK%K017(:)*PCONC(:,26)
!
-!PTERMS(HO2,KTC12) = -KTC12*<HO2>
- PTERMS(:,10,377) = -TPK%KTC12(:)*PCONC(:,10)
+!PTERMS(KET,K017) = +0.80*K017*<ONIT>
+ PTERMS(:,24,17) = +0.80*TPK%K017(:)*PCONC(:,26)
!
-!PTERMS(WC_HO2,KTC12) = +KTC12*<HO2>
- PTERMS(:,99,377) = +TPK%KTC12(:)*PCONC(:,10)
+!PTERMS(ONIT,K017) = -K017*<ONIT>
+ PTERMS(:,26,17) = -TPK%K017(:)*PCONC(:,26)
!
-!PTERMS(WC_CO2,KTC13) = +KTC13*<CO2>
- PTERMS(:,100,378) = +TPK%KTC13(:)*TPK%CO2(:)
+!PTERMS(O3,K018) = +K018*<O3P>*<O2>
+ PTERMS(:,1,18) = +TPK%K018(:)*TPK%O3P(:)*TPK%O2(:)
!
-!PTERMS(SO2,KTC14) = -KTC14*<SO2>
- PTERMS(:,13,379) = -TPK%KTC14(:)*PCONC(:,13)
+!PTERMS(O3,K019) = -K019*<O3P>*<O3>
+ PTERMS(:,1,19) = -TPK%K019(:)*TPK%O3P(:)*PCONC(:,1)
!
-!PTERMS(WC_SO2,KTC14) = +KTC14*<SO2>
- PTERMS(:,101,379) = +TPK%KTC14(:)*PCONC(:,13)
+!PTERMS(OH,K022) = +K022*<O1D>*<H2O>
+ PTERMS(:,14,22) = +TPK%K022(:)*TPK%O1D(:)*TPK%H2O(:)
!
-!PTERMS(H2SO4,KTC15) = -KTC15*<H2SO4>
- PTERMS(:,14,380) = -TPK%KTC15(:)*PCONC(:,14)
+!PTERMS(O3,K023) = -K023*<O3>*<OH>
+ PTERMS(:,1,23) = -TPK%K023(:)*PCONC(:,1)*PCONC(:,14)
!
-!PTERMS(WC_H2SO4,KTC15) = +KTC15*<H2SO4>
- PTERMS(:,102,380) = +TPK%KTC15(:)*PCONC(:,14)
+!PTERMS(OH,K023) = -K023*<O3>*<OH>
+ PTERMS(:,14,23) = -TPK%K023(:)*PCONC(:,1)*PCONC(:,14)
!
-!PTERMS(RO21,KTC16) = -KTC16*<RO21>
- PTERMS(:,86,381) = -TPK%KTC16(:)*PCONC(:,86)
+!PTERMS(HO2,K023) = +K023*<O3>*<OH>
+ PTERMS(:,15,23) = +TPK%K023(:)*PCONC(:,1)*PCONC(:,14)
!
-!PTERMS(WC_RO21,KTC16) = +KTC16*<RO21>
- PTERMS(:,103,381) = +TPK%KTC16(:)*PCONC(:,86)
+!PTERMS(O3,K024) = -K024*<O3>*<HO2>
+ PTERMS(:,1,24) = -TPK%K024(:)*PCONC(:,1)*PCONC(:,15)
!
-!PTERMS(RO25,KTC17) = -KTC17*<RO25>
- PTERMS(:,87,382) = -TPK%KTC17(:)*PCONC(:,87)
+!PTERMS(OH,K024) = +K024*<O3>*<HO2>
+ PTERMS(:,14,24) = +TPK%K024(:)*PCONC(:,1)*PCONC(:,15)
!
!
RETURN
-END SUBROUTINE SUBT60
+END SUBROUTINE SUBT2
!
-SUBROUTINE SUBT61
+SUBROUTINE SUBT3
!
-!Indices 1221 a 1240
+!Indices 61 a 80
!
-!PTERMS(WC_RO25,KTC17) = +KTC17*<RO25>
- PTERMS(:,104,382) = +TPK%KTC17(:)*PCONC(:,87)
+!PTERMS(HO2,K024) = -K024*<O3>*<HO2>
+ PTERMS(:,15,24) = -TPK%K024(:)*PCONC(:,1)*PCONC(:,15)
!
-!PTERMS(MEOH,KTC18) = -KTC18*<MEOH>
- PTERMS(:,32,383) = -TPK%KTC18(:)*PCONC(:,32)
+!PTERMS(OH,K025) = -K025*<OH>*<HO2>
+ PTERMS(:,14,25) = -TPK%K025(:)*PCONC(:,14)*PCONC(:,15)
!
-!PTERMS(WC_MEOH,KTC18) = +KTC18*<MEOH>
- PTERMS(:,105,383) = +TPK%KTC18(:)*PCONC(:,32)
+!PTERMS(HO2,K025) = -K025*<OH>*<HO2>
+ PTERMS(:,15,25) = -TPK%K025(:)*PCONC(:,14)*PCONC(:,15)
!
-!PTERMS(ETOH,KTC19) = -KTC19*<ETOH>
- PTERMS(:,33,384) = -TPK%KTC19(:)*PCONC(:,33)
+!PTERMS(H2O2,K026) = -K026*<H2O2>*<OH>
+ PTERMS(:,2,26) = -TPK%K026(:)*PCONC(:,2)*PCONC(:,14)
!
-!PTERMS(WC_ETOH,KTC19) = +KTC19*<ETOH>
- PTERMS(:,106,384) = +TPK%KTC19(:)*PCONC(:,33)
+!PTERMS(OH,K026) = -K026*<H2O2>*<OH>
+ PTERMS(:,14,26) = -TPK%K026(:)*PCONC(:,2)*PCONC(:,14)
!
-!PTERMS(ALCH,KTC20) = -KTC20*<ALCH>
- PTERMS(:,34,385) = -TPK%KTC20(:)*PCONC(:,34)
+!PTERMS(HO2,K026) = +K026*<H2O2>*<OH>
+ PTERMS(:,15,26) = +TPK%K026(:)*PCONC(:,2)*PCONC(:,14)
!
-!PTERMS(WC_ALCH,KTC20) = +KTC20*<ALCH>
- PTERMS(:,107,385) = +TPK%KTC20(:)*PCONC(:,34)
+!PTERMS(H2O2,K027) = +K027*<HO2>*<HO2>
+ PTERMS(:,2,27) = +TPK%K027(:)*PCONC(:,15)*PCONC(:,15)
!
-!PTERMS(HCHO,KTC21) = -KTC21*<HCHO>
- PTERMS(:,28,386) = -TPK%KTC21(:)*PCONC(:,28)
+!PTERMS(HO2,K027) = -K027*<HO2>*<HO2>
+ PTERMS(:,15,27) = -TPK%K027(:)*PCONC(:,15)*PCONC(:,15)
!
-!PTERMS(WC_HCHO,KTC21) = +KTC21*<HCHO>
- PTERMS(:,108,386) = +TPK%KTC21(:)*PCONC(:,28)
+!PTERMS(H2O2,K028) = +K028*<HO2>*<HO2>*<H2O>
+ PTERMS(:,2,28) = +TPK%K028(:)*PCONC(:,15)*PCONC(:,15)*TPK%H2O(:)
!
-!PTERMS(ALD2,KTC22) = -KTC22*<ALD2>
- PTERMS(:,29,387) = -TPK%KTC22(:)*PCONC(:,29)
+!PTERMS(HO2,K028) = -K028*<HO2>*<HO2>*<H2O>
+ PTERMS(:,15,28) = -TPK%K028(:)*PCONC(:,15)*PCONC(:,15)*TPK%H2O(:)
!
-!PTERMS(WC_ALD2,KTC22) = +KTC22*<ALD2>
- PTERMS(:,109,387) = +TPK%KTC22(:)*PCONC(:,29)
+!PTERMS(NO,K029) = -K029*<O3P>*<NO>
+ PTERMS(:,3,29) = -TPK%K029(:)*TPK%O3P(:)*PCONC(:,3)
!
-!PTERMS(GLY,KTC23) = -KTC23*<GLY>
- PTERMS(:,42,388) = -TPK%KTC23(:)*PCONC(:,42)
+!PTERMS(NO2,K029) = +K029*<O3P>*<NO>
+ PTERMS(:,4,29) = +TPK%K029(:)*TPK%O3P(:)*PCONC(:,3)
!
-!PTERMS(WC_GLY,KTC23) = +KTC23*<GLY>
- PTERMS(:,110,388) = +TPK%KTC23(:)*PCONC(:,42)
+!PTERMS(NO,K030) = +K030*<O3P>*<NO2>
+ PTERMS(:,3,30) = +TPK%K030(:)*TPK%O3P(:)*PCONC(:,4)
!
-!PTERMS(KETL,KTC24) = -KTC24*<KETL>
- PTERMS(:,30,389) = -TPK%KTC24(:)*PCONC(:,30)
+!PTERMS(NO2,K030) = -K030*<O3P>*<NO2>
+ PTERMS(:,4,30) = -TPK%K030(:)*TPK%O3P(:)*PCONC(:,4)
!
-!PTERMS(WC_KETL,KTC24) = +KTC24*<KETL>
- PTERMS(:,112,389) = +TPK%KTC24(:)*PCONC(:,30)
+!PTERMS(NO2,K031) = -K031*<O3P>*<NO2>
+ PTERMS(:,4,31) = -TPK%K031(:)*TPK%O3P(:)*PCONC(:,4)
!
-!PTERMS(MGLY,KTC25) = -KTC25*<MGLY>
- PTERMS(:,41,390) = -TPK%KTC25(:)*PCONC(:,41)
+!PTERMS(NO3,K031) = +K031*<O3P>*<NO2>
+ PTERMS(:,5,31) = +TPK%K031(:)*TPK%O3P(:)*PCONC(:,4)
!
-!PTERMS(WC_MGLY,KTC25) = +KTC25*<MGLY>
- PTERMS(:,111,390) = +TPK%KTC25(:)*PCONC(:,41)
+!PTERMS(NO,K032) = -K032*<OH>*<NO>
+ PTERMS(:,3,32) = -TPK%K032(:)*PCONC(:,14)*PCONC(:,3)
!
-!PTERMS(ORA1,KTC26) = -KTC26*<ORA1>
- PTERMS(:,43,391) = -TPK%KTC26(:)*PCONC(:,43)
+!PTERMS(HONO,K032) = +K032*<OH>*<NO>
+ PTERMS(:,7,32) = +TPK%K032(:)*PCONC(:,14)*PCONC(:,3)
!
-!PTERMS(WC_ORA1,KTC26) = +KTC26*<ORA1>
- PTERMS(:,113,391) = +TPK%KTC26(:)*PCONC(:,43)
+!PTERMS(OH,K032) = -K032*<OH>*<NO>
+ PTERMS(:,14,32) = -TPK%K032(:)*PCONC(:,14)*PCONC(:,3)
!
-!PTERMS(ORA2,KTC27) = -KTC27*<ORA2>
- PTERMS(:,44,392) = -TPK%KTC27(:)*PCONC(:,44)
+!PTERMS(NO2,K033) = -K033*<OH>*<NO2>
+ PTERMS(:,4,33) = -TPK%K033(:)*PCONC(:,14)*PCONC(:,4)
!
!
RETURN
-END SUBROUTINE SUBT61
+END SUBROUTINE SUBT3
!
-SUBROUTINE SUBT62
+SUBROUTINE SUBT4
!
-!Indices 1241 a 1260
+!Indices 81 a 100
!
-!PTERMS(WC_ORA2,KTC27) = +KTC27*<ORA2>
- PTERMS(:,114,392) = +TPK%KTC27(:)*PCONC(:,44)
+!PTERMS(HNO3,K033) = +K033*<OH>*<NO2>
+ PTERMS(:,8,33) = +TPK%K033(:)*PCONC(:,14)*PCONC(:,4)
!
-!PTERMS(ACID,KTC28) = -KTC28*<ACID>
- PTERMS(:,45,393) = -TPK%KTC28(:)*PCONC(:,45)
+!PTERMS(OH,K033) = -K033*<OH>*<NO2>
+ PTERMS(:,14,33) = -TPK%K033(:)*PCONC(:,14)*PCONC(:,4)
!
-!PTERMS(WC_ACID,KTC28) = +KTC28*<ACID>
- PTERMS(:,115,393) = +TPK%KTC28(:)*PCONC(:,45)
+!PTERMS(NO2,K034) = +K034*<OH>*<NO3>
+ PTERMS(:,4,34) = +TPK%K034(:)*PCONC(:,14)*PCONC(:,5)
!
-!PTERMS(RP16,KTC29) = -KTC29*<RP16>
- PTERMS(:,74,394) = -TPK%KTC29(:)*PCONC(:,74)
+!PTERMS(NO3,K034) = -K034*<OH>*<NO3>
+ PTERMS(:,5,34) = -TPK%K034(:)*PCONC(:,14)*PCONC(:,5)
!
-!PTERMS(WC_RP16,KTC29) = +KTC29*<RP16>
- PTERMS(:,116,394) = +TPK%KTC29(:)*PCONC(:,74)
+!PTERMS(OH,K034) = -K034*<OH>*<NO3>
+ PTERMS(:,14,34) = -TPK%K034(:)*PCONC(:,14)*PCONC(:,5)
!
-!PTERMS(UR21,KTC30) = -KTC30*<UR21>
- PTERMS(:,47,395) = -TPK%KTC30(:)*PCONC(:,47)
+!PTERMS(HO2,K034) = +K034*<OH>*<NO3>
+ PTERMS(:,15,34) = +TPK%K034(:)*PCONC(:,14)*PCONC(:,5)
!
-!PTERMS(WC_UR21,KTC30) = +KTC30*<UR21>
- PTERMS(:,117,395) = +TPK%KTC30(:)*PCONC(:,47)
+!PTERMS(NO,K035) = -K035*<HO2>*<NO>
+ PTERMS(:,3,35) = -TPK%K035(:)*PCONC(:,15)*PCONC(:,3)
!
-!PTERMS(UR28,KTC31) = -KTC31*<UR28>
- PTERMS(:,46,396) = -TPK%KTC31(:)*PCONC(:,46)
+!PTERMS(NO2,K035) = +K035*<HO2>*<NO>
+ PTERMS(:,4,35) = +TPK%K035(:)*PCONC(:,15)*PCONC(:,3)
!
-!PTERMS(WC_UR28,KTC31) = +KTC31*<UR28>
- PTERMS(:,118,396) = +TPK%KTC31(:)*PCONC(:,46)
+!PTERMS(OH,K035) = +K035*<HO2>*<NO>
+ PTERMS(:,14,35) = +TPK%K035(:)*PCONC(:,15)*PCONC(:,3)
!
-!PTERMS(O3,KTC32) = +KTC32*<WC_O3>
- PTERMS(:,3,397) = +TPK%KTC32(:)*PCONC(:,88)
+!PTERMS(HO2,K035) = -K035*<HO2>*<NO>
+ PTERMS(:,15,35) = -TPK%K035(:)*PCONC(:,15)*PCONC(:,3)
!
-!PTERMS(WC_O3,KTC32) = -KTC32*<WC_O3>
- PTERMS(:,88,397) = -TPK%KTC32(:)*PCONC(:,88)
+!PTERMS(NO2,K036) = -K036*<HO2>*<NO2>
+ PTERMS(:,4,36) = -TPK%K036(:)*PCONC(:,15)*PCONC(:,4)
!
-!PTERMS(H2O2,KTC33) = +KTC33*<WC_H2O2>
- PTERMS(:,12,398) = +TPK%KTC33(:)*PCONC(:,89)
+!PTERMS(HNO4,K036) = +K036*<HO2>*<NO2>
+ PTERMS(:,9,36) = +TPK%K036(:)*PCONC(:,15)*PCONC(:,4)
!
-!PTERMS(WC_H2O2,KTC33) = -KTC33*<WC_H2O2>
- PTERMS(:,89,398) = -TPK%KTC33(:)*PCONC(:,89)
+!PTERMS(HO2,K036) = -K036*<HO2>*<NO2>
+ PTERMS(:,15,36) = -TPK%K036(:)*PCONC(:,15)*PCONC(:,4)
!
-!PTERMS(NO,KTC34) = +KTC34*<WC_NO>
- PTERMS(:,1,399) = +TPK%KTC34(:)*PCONC(:,90)
+!PTERMS(NO2,K037) = +K037*<HNO4>
+ PTERMS(:,4,37) = +TPK%K037(:)*PCONC(:,9)
!
-!PTERMS(WC_NO,KTC34) = -KTC34*<WC_NO>
- PTERMS(:,90,399) = -TPK%KTC34(:)*PCONC(:,90)
+!PTERMS(HNO4,K037) = -K037*<HNO4>
+ PTERMS(:,9,37) = -TPK%K037(:)*PCONC(:,9)
!
-!PTERMS(NO2,KTC35) = +KTC35*<WC_NO2>
- PTERMS(:,2,400) = +TPK%KTC35(:)*PCONC(:,91)
+!PTERMS(HO2,K037) = +K037*<HNO4>
+ PTERMS(:,15,37) = +TPK%K037(:)*PCONC(:,9)
!
-!PTERMS(WC_NO2,KTC35) = -KTC35*<WC_NO2>
- PTERMS(:,91,400) = -TPK%KTC35(:)*PCONC(:,91)
+!PTERMS(NO2,K038) = +0.7*K038*<HO2>*<NO3>
+ PTERMS(:,4,38) = +0.7*TPK%K038(:)*PCONC(:,15)*PCONC(:,5)
!
-!PTERMS(NO3,KTC36) = +KTC36*<WC_NO3>
- PTERMS(:,8,401) = +TPK%KTC36(:)*PCONC(:,92)
+!PTERMS(NO3,K038) = -K038*<HO2>*<NO3>
+ PTERMS(:,5,38) = -TPK%K038(:)*PCONC(:,15)*PCONC(:,5)
!
-!PTERMS(WC_NO3,KTC36) = -KTC36*<WC_NO3>
- PTERMS(:,92,401) = -TPK%KTC36(:)*PCONC(:,92)
+!PTERMS(HNO3,K038) = +0.3*K038*<HO2>*<NO3>
+ PTERMS(:,8,38) = +0.3*TPK%K038(:)*PCONC(:,15)*PCONC(:,5)
!
-!PTERMS(N2O5,KTC37) = +KTC37*<WC_N2O5>
- PTERMS(:,7,402) = +TPK%KTC37(:)*PCONC(:,93)
+!PTERMS(OH,K038) = +0.7*K038*<HO2>*<NO3>
+ PTERMS(:,14,38) = +0.7*TPK%K038(:)*PCONC(:,15)*PCONC(:,5)
!
!
RETURN
-END SUBROUTINE SUBT62
+END SUBROUTINE SUBT4
!
-SUBROUTINE SUBT63
+SUBROUTINE SUBT5
!
-!Indices 1261 a 1280
+!Indices 101 a 120
!
-!PTERMS(WC_N2O5,KTC37) = -KTC37*<WC_N2O5>
- PTERMS(:,93,402) = -TPK%KTC37(:)*PCONC(:,93)
+!PTERMS(HO2,K038) = -K038*<HO2>*<NO3>
+ PTERMS(:,15,38) = -TPK%K038(:)*PCONC(:,15)*PCONC(:,5)
!
-!PTERMS(HONO,KTC38) = +KTC38*<WC_HONO>
- PTERMS(:,4,403) = +TPK%KTC38(:)*PCONC(:,94)
+!PTERMS(NO2,K039) = +K039*<OH>*<HONO>
+ PTERMS(:,4,39) = +TPK%K039(:)*PCONC(:,14)*PCONC(:,7)
!
-!PTERMS(WC_HONO,KTC38) = -KTC38*<WC_HONO>
- PTERMS(:,94,403) = -TPK%KTC38(:)*PCONC(:,94)
+!PTERMS(HONO,K039) = -K039*<OH>*<HONO>
+ PTERMS(:,7,39) = -TPK%K039(:)*PCONC(:,14)*PCONC(:,7)
!
-!PTERMS(HNO3,KTC39) = +KTC39*<WC_HNO3>
- PTERMS(:,5,404) = +TPK%KTC39(:)*PCONC(:,95)
+!PTERMS(OH,K039) = -K039*<OH>*<HONO>
+ PTERMS(:,14,39) = -TPK%K039(:)*PCONC(:,14)*PCONC(:,7)
!
-!PTERMS(WC_HNO3,KTC39) = -KTC39*<WC_HNO3>
- PTERMS(:,95,404) = -TPK%KTC39(:)*PCONC(:,95)
+!PTERMS(NO3,K040) = +K040*<OH>*<HNO3>
+ PTERMS(:,5,40) = +TPK%K040(:)*PCONC(:,14)*PCONC(:,8)
!
-!PTERMS(HNO4,KTC40) = +KTC40*<WC_HNO4>
- PTERMS(:,6,405) = +TPK%KTC40(:)*PCONC(:,96)
+!PTERMS(HNO3,K040) = -K040*<OH>*<HNO3>
+ PTERMS(:,8,40) = -TPK%K040(:)*PCONC(:,14)*PCONC(:,8)
!
-!PTERMS(WC_HNO4,KTC40) = -KTC40*<WC_HNO4>
- PTERMS(:,96,405) = -TPK%KTC40(:)*PCONC(:,96)
+!PTERMS(OH,K040) = -K040*<OH>*<HNO3>
+ PTERMS(:,14,40) = -TPK%K040(:)*PCONC(:,14)*PCONC(:,8)
!
-!PTERMS(NH3,KTC41) = +KTC41*<WC_NH3>
- PTERMS(:,9,406) = +TPK%KTC41(:)*PCONC(:,97)
+!PTERMS(NO2,K041) = +K041*<OH>*<HNO4>
+ PTERMS(:,4,41) = +TPK%K041(:)*PCONC(:,14)*PCONC(:,9)
!
-!PTERMS(WC_NH3,KTC41) = -KTC41*<WC_NH3>
- PTERMS(:,97,406) = -TPK%KTC41(:)*PCONC(:,97)
+!PTERMS(HNO4,K041) = -K041*<OH>*<HNO4>
+ PTERMS(:,9,41) = -TPK%K041(:)*PCONC(:,14)*PCONC(:,9)
!
-!PTERMS(OH,KTC42) = +KTC42*<WC_OH>
- PTERMS(:,15,407) = +TPK%KTC42(:)*PCONC(:,98)
+!PTERMS(OH,K041) = -K041*<OH>*<HNO4>
+ PTERMS(:,14,41) = -TPK%K041(:)*PCONC(:,14)*PCONC(:,9)
!
-!PTERMS(WC_OH,KTC42) = -KTC42*<WC_OH>
- PTERMS(:,98,407) = -TPK%KTC42(:)*PCONC(:,98)
+!PTERMS(O3,K042) = -K042*<O3>*<NO>
+ PTERMS(:,1,42) = -TPK%K042(:)*PCONC(:,1)*PCONC(:,3)
!
-!PTERMS(HO2,KTC43) = +KTC43*<WC_HO2>
- PTERMS(:,10,408) = +TPK%KTC43(:)*PCONC(:,99)
+!PTERMS(NO,K042) = -K042*<O3>*<NO>
+ PTERMS(:,3,42) = -TPK%K042(:)*PCONC(:,1)*PCONC(:,3)
!
-!PTERMS(WC_HO2,KTC43) = -KTC43*<WC_HO2>
- PTERMS(:,99,408) = -TPK%KTC43(:)*PCONC(:,99)
+!PTERMS(NO2,K042) = +K042*<O3>*<NO>
+ PTERMS(:,4,42) = +TPK%K042(:)*PCONC(:,1)*PCONC(:,3)
!
-!PTERMS(WC_CO2,KTC44) = -KTC44*<WC_CO2>
- PTERMS(:,100,409) = -TPK%KTC44(:)*PCONC(:,100)
+!PTERMS(O3,K043) = -K043*<O3>*<NO2>
+ PTERMS(:,1,43) = -TPK%K043(:)*PCONC(:,1)*PCONC(:,4)
!
-!PTERMS(SO2,KTC45) = +KTC45*<WC_SO2>
- PTERMS(:,13,410) = +TPK%KTC45(:)*PCONC(:,101)
+!PTERMS(NO2,K043) = -K043*<O3>*<NO2>
+ PTERMS(:,4,43) = -TPK%K043(:)*PCONC(:,1)*PCONC(:,4)
!
-!PTERMS(WC_SO2,KTC45) = -KTC45*<WC_SO2>
- PTERMS(:,101,410) = -TPK%KTC45(:)*PCONC(:,101)
+!PTERMS(NO3,K043) = +K043*<O3>*<NO2>
+ PTERMS(:,5,43) = +TPK%K043(:)*PCONC(:,1)*PCONC(:,4)
!
-!PTERMS(H2SO4,KTC46) = +KTC46*<WC_H2SO4>
- PTERMS(:,14,411) = +TPK%KTC46(:)*PCONC(:,102)
+!PTERMS(NO,K044) = -K044*<NO>*<NO>*<O2>
+ PTERMS(:,3,44) = -TPK%K044(:)*PCONC(:,3)*PCONC(:,3)*TPK%O2(:)
!
-!PTERMS(WC_H2SO4,KTC46) = -KTC46*<WC_H2SO4>
- PTERMS(:,102,411) = -TPK%KTC46(:)*PCONC(:,102)
+!PTERMS(NO2,K044) = +K044*<NO>*<NO>*<O2>
+ PTERMS(:,4,44) = +TPK%K044(:)*PCONC(:,3)*PCONC(:,3)*TPK%O2(:)
!
-!PTERMS(RO21,KTC47) = +KTC47*<WC_RO21>
- PTERMS(:,86,412) = +TPK%KTC47(:)*PCONC(:,103)
+!PTERMS(NO,K045) = -K045*<NO3>*<NO>
+ PTERMS(:,3,45) = -TPK%K045(:)*PCONC(:,5)*PCONC(:,3)
!
-!PTERMS(WC_RO21,KTC47) = -KTC47*<WC_RO21>
- PTERMS(:,103,412) = -TPK%KTC47(:)*PCONC(:,103)
+!PTERMS(NO2,K045) = +K045*<NO3>*<NO>
+ PTERMS(:,4,45) = +TPK%K045(:)*PCONC(:,5)*PCONC(:,3)
!
!
RETURN
-END SUBROUTINE SUBT63
+END SUBROUTINE SUBT5
!
-SUBROUTINE SUBT64
+SUBROUTINE SUBT6
!
-!Indices 1281 a 1300
+!Indices 121 a 140
!
-!PTERMS(RO25,KTC48) = +KTC48*<WC_RO25>
- PTERMS(:,87,413) = +TPK%KTC48(:)*PCONC(:,104)
+!PTERMS(NO3,K045) = -K045*<NO3>*<NO>
+ PTERMS(:,5,45) = -TPK%K045(:)*PCONC(:,5)*PCONC(:,3)
!
-!PTERMS(WC_RO25,KTC48) = -KTC48*<WC_RO25>
- PTERMS(:,104,413) = -TPK%KTC48(:)*PCONC(:,104)
+!PTERMS(NO,K046) = +K046*<NO3>*<NO2>
+ PTERMS(:,3,46) = +TPK%K046(:)*PCONC(:,5)*PCONC(:,4)
!
-!PTERMS(MEOH,KTC49) = +KTC49*<WC_MEOH>
- PTERMS(:,32,414) = +TPK%KTC49(:)*PCONC(:,105)
+!PTERMS(NO2,K046) = -K046*<NO3>*<NO2>
+ PTERMS(:,4,46) = -TPK%K046(:)*PCONC(:,5)*PCONC(:,4)
!
-!PTERMS(WC_MEOH,KTC49) = -KTC49*<WC_MEOH>
- PTERMS(:,105,414) = -TPK%KTC49(:)*PCONC(:,105)
+!PTERMS(NO3,K046) = -K046*<NO3>*<NO2>
+ PTERMS(:,5,46) = -TPK%K046(:)*PCONC(:,5)*PCONC(:,4)
!
-!PTERMS(ETOH,KTC50) = +KTC50*<WC_ETOH>
- PTERMS(:,33,415) = +TPK%KTC50(:)*PCONC(:,106)
+!PTERMS(NO2,K047) = -K047*<NO3>*<NO2>
+ PTERMS(:,4,47) = -TPK%K047(:)*PCONC(:,5)*PCONC(:,4)
!
-!PTERMS(WC_ETOH,KTC50) = -KTC50*<WC_ETOH>
- PTERMS(:,106,415) = -TPK%KTC50(:)*PCONC(:,106)
+!PTERMS(NO3,K047) = -K047*<NO3>*<NO2>
+ PTERMS(:,5,47) = -TPK%K047(:)*PCONC(:,5)*PCONC(:,4)
!
-!PTERMS(ALCH,KTC51) = +KTC51*<WC_ALCH>
- PTERMS(:,34,416) = +TPK%KTC51(:)*PCONC(:,107)
+!PTERMS(N2O5,K047) = +K047*<NO3>*<NO2>
+ PTERMS(:,6,47) = +TPK%K047(:)*PCONC(:,5)*PCONC(:,4)
!
-!PTERMS(WC_ALCH,KTC51) = -KTC51*<WC_ALCH>
- PTERMS(:,107,416) = -TPK%KTC51(:)*PCONC(:,107)
+!PTERMS(NO2,K048) = +K048*<N2O5>
+ PTERMS(:,4,48) = +TPK%K048(:)*PCONC(:,6)
!
-!PTERMS(HCHO,KTC52) = +KTC52*<WC_HCHO>
- PTERMS(:,28,417) = +TPK%KTC52(:)*PCONC(:,108)
+!PTERMS(NO3,K048) = +K048*<N2O5>
+ PTERMS(:,5,48) = +TPK%K048(:)*PCONC(:,6)
!
-!PTERMS(WC_HCHO,KTC52) = -KTC52*<WC_HCHO>
- PTERMS(:,108,417) = -TPK%KTC52(:)*PCONC(:,108)
+!PTERMS(N2O5,K048) = -K048*<N2O5>
+ PTERMS(:,6,48) = -TPK%K048(:)*PCONC(:,6)
!
-!PTERMS(ALD2,KTC53) = +KTC53*<WC_ALD2>
- PTERMS(:,29,418) = +TPK%KTC53(:)*PCONC(:,109)
+!PTERMS(NO2,K049) = +K049*<NO3>*<NO3>
+ PTERMS(:,4,49) = +TPK%K049(:)*PCONC(:,5)*PCONC(:,5)
!
-!PTERMS(WC_ALD2,KTC53) = -KTC53*<WC_ALD2>
- PTERMS(:,109,418) = -TPK%KTC53(:)*PCONC(:,109)
+!PTERMS(NO3,K049) = -K049*<NO3>*<NO3>
+ PTERMS(:,5,49) = -TPK%K049(:)*PCONC(:,5)*PCONC(:,5)
!
-!PTERMS(GLY,KTC54) = +KTC54*<WC_GLY>
- PTERMS(:,42,419) = +TPK%KTC54(:)*PCONC(:,110)
+!PTERMS(NH3,K050) = -K050*<NH3>*<OH>
+ PTERMS(:,10,50) = -TPK%K050(:)*PCONC(:,10)*PCONC(:,14)
!
-!PTERMS(WC_GLY,KTC54) = -KTC54*<WC_GLY>
- PTERMS(:,110,419) = -TPK%KTC54(:)*PCONC(:,110)
+!PTERMS(OH,K050) = -K050*<NH3>*<OH>
+ PTERMS(:,14,50) = -TPK%K050(:)*PCONC(:,10)*PCONC(:,14)
!
-!PTERMS(KETL,KTC55) = +KTC55*<WC_KETL>
- PTERMS(:,30,420) = +TPK%KTC55(:)*PCONC(:,112)
+!PTERMS(OH,K051) = -K051*<OH>*<H2>
+ PTERMS(:,14,51) = -TPK%K051(:)*PCONC(:,14)*TPK%H2(:)
!
-!PTERMS(WC_KETL,KTC55) = -KTC55*<WC_KETL>
- PTERMS(:,112,420) = -TPK%KTC55(:)*PCONC(:,112)
+!PTERMS(HO2,K051) = +K051*<OH>*<H2>
+ PTERMS(:,15,51) = +TPK%K051(:)*PCONC(:,14)*TPK%H2(:)
!
-!PTERMS(MGLY,KTC56) = +KTC56*<WC_MGLY>
- PTERMS(:,41,421) = +TPK%KTC56(:)*PCONC(:,111)
+!PTERMS(SO2,K052) = -K052*<OH>*<SO2>
+ PTERMS(:,11,52) = -TPK%K052(:)*PCONC(:,14)*PCONC(:,11)
!
-!PTERMS(WC_MGLY,KTC56) = -KTC56*<WC_MGLY>
- PTERMS(:,111,421) = -TPK%KTC56(:)*PCONC(:,111)
+!PTERMS(SULF,K052) = +K052*<OH>*<SO2>
+ PTERMS(:,12,52) = +TPK%K052(:)*PCONC(:,14)*PCONC(:,11)
!
-!PTERMS(ORA1,KTC57) = +KTC57*<WC_ORA1>
- PTERMS(:,43,422) = +TPK%KTC57(:)*PCONC(:,113)
+!PTERMS(OH,K052) = -K052*<OH>*<SO2>
+ PTERMS(:,14,52) = -TPK%K052(:)*PCONC(:,14)*PCONC(:,11)
!
-!PTERMS(WC_ORA1,KTC57) = -KTC57*<WC_ORA1>
- PTERMS(:,113,422) = -TPK%KTC57(:)*PCONC(:,113)
+!PTERMS(HO2,K052) = +K052*<OH>*<SO2>
+ PTERMS(:,15,52) = +TPK%K052(:)*PCONC(:,14)*PCONC(:,11)
!
!
RETURN
-END SUBROUTINE SUBT64
+END SUBROUTINE SUBT6
!
-SUBROUTINE SUBT65
+SUBROUTINE SUBT7
!
-!Indices 1301 a 1320
+!Indices 141 a 160
!
-!PTERMS(ORA2,KTC58) = +KTC58*<WC_ORA2>
- PTERMS(:,44,423) = +TPK%KTC58(:)*PCONC(:,114)
+!PTERMS(CO,K053) = -K053*<CO>*<OH>
+ PTERMS(:,13,53) = -TPK%K053(:)*PCONC(:,13)*PCONC(:,14)
!
-!PTERMS(WC_ORA2,KTC58) = -KTC58*<WC_ORA2>
- PTERMS(:,114,423) = -TPK%KTC58(:)*PCONC(:,114)
+!PTERMS(OH,K053) = -K053*<CO>*<OH>
+ PTERMS(:,14,53) = -TPK%K053(:)*PCONC(:,13)*PCONC(:,14)
!
-!PTERMS(ACID,KTC59) = +KTC59*<WC_ACID>
- PTERMS(:,45,424) = +TPK%KTC59(:)*PCONC(:,115)
+!PTERMS(HO2,K053) = +K053*<CO>*<OH>
+ PTERMS(:,15,53) = +TPK%K053(:)*PCONC(:,13)*PCONC(:,14)
!
-!PTERMS(WC_ACID,KTC59) = -KTC59*<WC_ACID>
- PTERMS(:,115,424) = -TPK%KTC59(:)*PCONC(:,115)
+!PTERMS(CO,K054) = +0.01*K054*<BIO>*<O3P>
+ PTERMS(:,13,54) = +0.01*TPK%K054(:)*PCONC(:,20)*TPK%O3P(:)
!
-!PTERMS(RP16,KTC60) = +KTC60*<WC_RP16>
- PTERMS(:,74,425) = +TPK%KTC60(:)*PCONC(:,116)
+!PTERMS(OH,K054) = +0.02*K054*<BIO>*<O3P>
+ PTERMS(:,14,54) = +0.02*TPK%K054(:)*PCONC(:,20)*TPK%O3P(:)
!
-!PTERMS(WC_RP16,KTC60) = -KTC60*<WC_RP16>
- PTERMS(:,116,425) = -TPK%KTC60(:)*PCONC(:,116)
+!PTERMS(HO2,K054) = +0.28*K054*<BIO>*<O3P>
+ PTERMS(:,15,54) = +0.28*TPK%K054(:)*PCONC(:,20)*TPK%O3P(:)
!
-!PTERMS(UR21,KTC61) = +KTC61*<WC_UR21>
- PTERMS(:,47,426) = +TPK%KTC61(:)*PCONC(:,117)
+!PTERMS(ALKE,K054) = +0.91868*K054*<BIO>*<O3P>
+ PTERMS(:,19,54) = +0.91868*TPK%K054(:)*PCONC(:,20)*TPK%O3P(:)
!
-!PTERMS(WC_UR21,KTC61) = -KTC61*<WC_UR21>
- PTERMS(:,117,426) = -TPK%KTC61(:)*PCONC(:,117)
+!PTERMS(BIO,K054) = -K054*<BIO>*<O3P>
+ PTERMS(:,20,54) = -TPK%K054(:)*PCONC(:,20)*TPK%O3P(:)
!
-!PTERMS(UR28,KTC62) = +KTC62*<WC_UR28>
- PTERMS(:,46,427) = +TPK%KTC62(:)*PCONC(:,118)
+!PTERMS(HCHO,K054) = +0.05*K054*<BIO>*<O3P>
+ PTERMS(:,22,54) = +0.05*TPK%K054(:)*PCONC(:,20)*TPK%O3P(:)
!
-!PTERMS(WC_UR28,KTC62) = -KTC62*<WC_UR28>
- PTERMS(:,118,427) = -TPK%KTC62(:)*PCONC(:,118)
+!PTERMS(CARBO,K054) = +0.13255*K054*<BIO>*<O3P>
+ PTERMS(:,25,54) = +0.13255*TPK%K054(:)*PCONC(:,20)*TPK%O3P(:)
!
-!PTERMS(O3,KTR1) = -KTR1*<O3>
- PTERMS(:,3,428) = -TPK%KTR1(:)*PCONC(:,3)
+!PTERMS(XO2,K054) = +0.15*K054*<BIO>*<O3P>
+ PTERMS(:,41,54) = +0.15*TPK%K054(:)*PCONC(:,20)*TPK%O3P(:)
!
-!PTERMS(WR_O3,KTR1) = +KTR1*<O3>
- PTERMS(:,125,428) = +TPK%KTR1(:)*PCONC(:,3)
+!PTERMS(ALD,K055) = +K055*<CARBO>*<O3P>
+ PTERMS(:,23,55) = +TPK%K055(:)*PCONC(:,25)*TPK%O3P(:)
!
-!PTERMS(H2O2,KTR2) = -KTR2*<H2O2>
- PTERMS(:,12,429) = -TPK%KTR2(:)*PCONC(:,12)
+!PTERMS(CARBO,K055) = -K055*<CARBO>*<O3P>
+ PTERMS(:,25,55) = -TPK%K055(:)*PCONC(:,25)*TPK%O3P(:)
!
-!PTERMS(WR_H2O2,KTR2) = +KTR2*<H2O2>
- PTERMS(:,126,429) = +TPK%KTR2(:)*PCONC(:,12)
+!PTERMS(OH,K056) = -K056*<CH4>*<OH>
+ PTERMS(:,14,56) = -TPK%K056(:)*PCONC(:,16)*PCONC(:,14)
!
-!PTERMS(NO,KTR3) = -KTR3*<NO>
- PTERMS(:,1,430) = -TPK%KTR3(:)*PCONC(:,1)
+!PTERMS(CH4,K056) = -K056*<CH4>*<OH>
+ PTERMS(:,16,56) = -TPK%K056(:)*PCONC(:,16)*PCONC(:,14)
!
-!PTERMS(WR_NO,KTR3) = +KTR3*<NO>
- PTERMS(:,127,430) = +TPK%KTR3(:)*PCONC(:,1)
+!PTERMS(MO2,K056) = +K056*<CH4>*<OH>
+ PTERMS(:,32,56) = +TPK%K056(:)*PCONC(:,16)*PCONC(:,14)
!
-!PTERMS(NO2,KTR4) = -KTR4*<NO2>
- PTERMS(:,2,431) = -TPK%KTR4(:)*PCONC(:,2)
+!PTERMS(OH,K057) = -K057*<ETH>*<OH>
+ PTERMS(:,14,57) = -TPK%K057(:)*PCONC(:,17)*PCONC(:,14)
!
-!PTERMS(WR_NO2,KTR4) = +KTR4*<NO2>
- PTERMS(:,128,431) = +TPK%KTR4(:)*PCONC(:,2)
+!PTERMS(ETH,K057) = -K057*<ETH>*<OH>
+ PTERMS(:,17,57) = -TPK%K057(:)*PCONC(:,17)*PCONC(:,14)
!
-!PTERMS(NO3,KTR5) = -KTR5*<NO3>
- PTERMS(:,8,432) = -TPK%KTR5(:)*PCONC(:,8)
+!PTERMS(ALKAP,K057) = +K057*<ETH>*<OH>
+ PTERMS(:,33,57) = +TPK%K057(:)*PCONC(:,17)*PCONC(:,14)
!
-!PTERMS(WR_NO3,KTR5) = +KTR5*<NO3>
- PTERMS(:,129,432) = +TPK%KTR5(:)*PCONC(:,8)
+!PTERMS(CO,K058) = +0.00878*K058*<ALKA>*<OH>
+ PTERMS(:,13,58) = +0.00878*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)
!
!
RETURN
-END SUBROUTINE SUBT65
+END SUBROUTINE SUBT7
!
-SUBROUTINE SUBT66
+SUBROUTINE SUBT8
!
-!Indices 1321 a 1340
+!Indices 161 a 180
!
-!PTERMS(N2O5,KTR6) = -KTR6*<N2O5>
- PTERMS(:,7,433) = -TPK%KTR6(:)*PCONC(:,7)
+!PTERMS(OH,K058) = -K058*<ALKA>*<OH>
+ PTERMS(:,14,58) = -TPK%K058(:)*PCONC(:,18)*PCONC(:,14)
!
-!PTERMS(WR_N2O5,KTR6) = +KTR6*<N2O5>
- PTERMS(:,130,433) = +TPK%KTR6(:)*PCONC(:,7)
+!PTERMS(HO2,K058) = +0.12793*K058*<ALKA>*<OH>
+ PTERMS(:,15,58) = +0.12793*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)
!
-!PTERMS(HONO,KTR7) = -KTR7*<HONO>
- PTERMS(:,4,434) = -TPK%KTR7(:)*PCONC(:,4)
+!PTERMS(ALKA,K058) = -K058*<ALKA>*<OH>
+ PTERMS(:,18,58) = -TPK%K058(:)*PCONC(:,18)*PCONC(:,14)
!
-!PTERMS(WR_HONO,KTR7) = +KTR7*<HONO>
- PTERMS(:,131,434) = +TPK%KTR7(:)*PCONC(:,4)
+!PTERMS(HCHO,K058) = +0.00140*K058*<ALKA>*<OH>
+ PTERMS(:,22,58) = +0.00140*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)
!
-!PTERMS(HNO3,KTR8) = -KTR8*<HNO3>
- PTERMS(:,5,435) = -TPK%KTR8(:)*PCONC(:,5)
+!PTERMS(ALD,K058) = +0.08173*K058*<ALKA>*<OH>
+ PTERMS(:,23,58) = +0.08173*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)
!
-!PTERMS(WR_HNO3,KTR8) = +KTR8*<HNO3>
- PTERMS(:,132,435) = +TPK%KTR8(:)*PCONC(:,5)
+!PTERMS(KET,K058) = +0.03498*K058*<ALKA>*<OH>
+ PTERMS(:,24,58) = +0.03498*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)
!
-!PTERMS(HNO4,KTR9) = -KTR9*<HNO4>
- PTERMS(:,6,436) = -TPK%KTR9(:)*PCONC(:,6)
+!PTERMS(CARBO,K058) = +0.00835*K058*<ALKA>*<OH>
+ PTERMS(:,25,58) = +0.00835*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)
!
-!PTERMS(WR_HNO4,KTR9) = +KTR9*<HNO4>
- PTERMS(:,133,436) = +TPK%KTR9(:)*PCONC(:,6)
+!PTERMS(ORA1,K058) = +0.00878*K058*<ALKA>*<OH>
+ PTERMS(:,30,58) = +0.00878*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)
!
-!PTERMS(NH3,KTR10) = -KTR10*<NH3>
- PTERMS(:,9,437) = -TPK%KTR10(:)*PCONC(:,9)
+!PTERMS(ALKAP,K058) = +0.87811*K058*<ALKA>*<OH>
+ PTERMS(:,33,58) = +0.87811*TPK%K058(:)*PCONC(:,18)*PCONC(:,14)
!
-!PTERMS(WR_NH3,KTR10) = +KTR10*<NH3>
- PTERMS(:,134,437) = +TPK%KTR10(:)*PCONC(:,9)
+!PTERMS(OH,K059) = -K059*<ALKE>*<OH>
+ PTERMS(:,14,59) = -TPK%K059(:)*PCONC(:,19)*PCONC(:,14)
!
-!PTERMS(OH,KTR11) = -KTR11*<OH>
- PTERMS(:,15,438) = -TPK%KTR11(:)*PCONC(:,15)
+!PTERMS(ALKE,K059) = -K059*<ALKE>*<OH>
+ PTERMS(:,19,59) = -TPK%K059(:)*PCONC(:,19)*PCONC(:,14)
!
-!PTERMS(WR_OH,KTR11) = +KTR11*<OH>
- PTERMS(:,135,438) = +TPK%KTR11(:)*PCONC(:,15)
+!PTERMS(ALKEP,K059) = +1.02529*K059*<ALKE>*<OH>
+ PTERMS(:,34,59) = +1.02529*TPK%K059(:)*PCONC(:,19)*PCONC(:,14)
!
-!PTERMS(HO2,KTR12) = -KTR12*<HO2>
- PTERMS(:,10,439) = -TPK%KTR12(:)*PCONC(:,10)
+!PTERMS(BIOP,K059) = +0.00000*K059*<ALKE>*<OH>
+ PTERMS(:,35,59) = +0.00000*TPK%K059(:)*PCONC(:,19)*PCONC(:,14)
!
-!PTERMS(WR_HO2,KTR12) = +KTR12*<HO2>
- PTERMS(:,136,439) = +TPK%KTR12(:)*PCONC(:,10)
+!PTERMS(OH,K060) = -K060*<BIO>*<OH>
+ PTERMS(:,14,60) = -TPK%K060(:)*PCONC(:,20)*PCONC(:,14)
!
-!PTERMS(WR_CO2,KTR13) = +KTR13*<CO2>
- PTERMS(:,137,440) = +TPK%KTR13(:)*TPK%CO2(:)
+!PTERMS(BIO,K060) = -K060*<BIO>*<OH>
+ PTERMS(:,20,60) = -TPK%K060(:)*PCONC(:,20)*PCONC(:,14)
!
-!PTERMS(SO2,KTR14) = -KTR14*<SO2>
- PTERMS(:,13,441) = -TPK%KTR14(:)*PCONC(:,13)
+!PTERMS(BIOP,K060) = +1.00000*K060*<BIO>*<OH>
+ PTERMS(:,35,60) = +1.00000*TPK%K060(:)*PCONC(:,20)*PCONC(:,14)
!
-!PTERMS(WR_SO2,KTR14) = +KTR14*<SO2>
- PTERMS(:,138,441) = +TPK%KTR14(:)*PCONC(:,13)
+!PTERMS(OH,K061) = -K061*<ARO>*<OH>
+ PTERMS(:,14,61) = -TPK%K061(:)*PCONC(:,21)*PCONC(:,14)
!
-!PTERMS(H2SO4,KTR15) = -KTR15*<H2SO4>
- PTERMS(:,14,442) = -TPK%KTR15(:)*PCONC(:,14)
+!PTERMS(HO2,K061) = +0.10318*K061*<ARO>*<OH>
+ PTERMS(:,15,61) = +0.10318*TPK%K061(:)*PCONC(:,21)*PCONC(:,14)
!
-!PTERMS(WR_H2SO4,KTR15) = +KTR15*<H2SO4>
- PTERMS(:,139,442) = +TPK%KTR15(:)*PCONC(:,14)
+!PTERMS(ARO,K061) = -K061*<ARO>*<OH>
+ PTERMS(:,21,61) = -TPK%K061(:)*PCONC(:,21)*PCONC(:,14)
!
-!PTERMS(RO21,KTR16) = -KTR16*<RO21>
- PTERMS(:,86,443) = -TPK%KTR16(:)*PCONC(:,86)
+!PTERMS(PHO,K061) = +0.00276*K061*<ARO>*<OH>
+ PTERMS(:,36,61) = +0.00276*TPK%K061(:)*PCONC(:,21)*PCONC(:,14)
!
!
RETURN
-END SUBROUTINE SUBT66
+END SUBROUTINE SUBT8
!
-SUBROUTINE SUBT67
+SUBROUTINE SUBT9
!
-!Indices 1341 a 1360
+!Indices 181 a 200
!
-!PTERMS(WR_RO21,KTR16) = +KTR16*<RO21>
- PTERMS(:,140,443) = +TPK%KTR16(:)*PCONC(:,86)
+!PTERMS(ADD,K061) = +0.93968*K061*<ARO>*<OH>
+ PTERMS(:,37,61) = +0.93968*TPK%K061(:)*PCONC(:,21)*PCONC(:,14)
!
-!PTERMS(RO25,KTR17) = -KTR17*<RO25>
- PTERMS(:,87,444) = -TPK%KTR17(:)*PCONC(:,87)
+!PTERMS(XO2,K061) = +0.10318*K061*<ARO>*<OH>
+ PTERMS(:,41,61) = +0.10318*TPK%K061(:)*PCONC(:,21)*PCONC(:,14)
!
-!PTERMS(WR_RO25,KTR17) = +KTR17*<RO25>
- PTERMS(:,141,444) = +TPK%KTR17(:)*PCONC(:,87)
+!PTERMS(CO,K062) = +K062*<HCHO>*<OH>
+ PTERMS(:,13,62) = +TPK%K062(:)*PCONC(:,22)*PCONC(:,14)
!
-!PTERMS(MEOH,KTR18) = -KTR18*<MEOH>
- PTERMS(:,32,445) = -TPK%KTR18(:)*PCONC(:,32)
+!PTERMS(OH,K062) = -K062*<HCHO>*<OH>
+ PTERMS(:,14,62) = -TPK%K062(:)*PCONC(:,22)*PCONC(:,14)
!
-!PTERMS(WR_MEOH,KTR18) = +KTR18*<MEOH>
- PTERMS(:,142,445) = +TPK%KTR18(:)*PCONC(:,32)
+!PTERMS(HO2,K062) = +K062*<HCHO>*<OH>
+ PTERMS(:,15,62) = +TPK%K062(:)*PCONC(:,22)*PCONC(:,14)
!
-!PTERMS(ETOH,KTR19) = -KTR19*<ETOH>
- PTERMS(:,33,446) = -TPK%KTR19(:)*PCONC(:,33)
+!PTERMS(HCHO,K062) = -K062*<HCHO>*<OH>
+ PTERMS(:,22,62) = -TPK%K062(:)*PCONC(:,22)*PCONC(:,14)
!
-!PTERMS(WR_ETOH,KTR19) = +KTR19*<ETOH>
- PTERMS(:,143,446) = +TPK%KTR19(:)*PCONC(:,33)
+!PTERMS(OH,K063) = -K063*<ALD>*<OH>
+ PTERMS(:,14,63) = -TPK%K063(:)*PCONC(:,23)*PCONC(:,14)
!
-!PTERMS(ALCH,KTR20) = -KTR20*<ALCH>
- PTERMS(:,34,447) = -TPK%KTR20(:)*PCONC(:,34)
+!PTERMS(ALD,K063) = -K063*<ALD>*<OH>
+ PTERMS(:,23,63) = -TPK%K063(:)*PCONC(:,23)*PCONC(:,14)
!
-!PTERMS(WR_ALCH,KTR20) = +KTR20*<ALCH>
- PTERMS(:,144,447) = +TPK%KTR20(:)*PCONC(:,34)
+!PTERMS(CARBOP,K063) = +1.00000*K063*<ALD>*<OH>
+ PTERMS(:,39,63) = +1.00000*TPK%K063(:)*PCONC(:,23)*PCONC(:,14)
!
-!PTERMS(HCHO,KTR21) = -KTR21*<HCHO>
- PTERMS(:,28,448) = -TPK%KTR21(:)*PCONC(:,28)
+!PTERMS(OH,K064) = -K064*<KET>*<OH>
+ PTERMS(:,14,64) = -TPK%K064(:)*PCONC(:,24)*PCONC(:,14)
!
-!PTERMS(WR_HCHO,KTR21) = +KTR21*<HCHO>
- PTERMS(:,145,448) = +TPK%KTR21(:)*PCONC(:,28)
+!PTERMS(KET,K064) = -K064*<KET>*<OH>
+ PTERMS(:,24,64) = -TPK%K064(:)*PCONC(:,24)*PCONC(:,14)
!
-!PTERMS(ALD2,KTR22) = -KTR22*<ALD2>
- PTERMS(:,29,449) = -TPK%KTR22(:)*PCONC(:,29)
+!PTERMS(CARBOP,K064) = +1.00000*K064*<KET>*<OH>
+ PTERMS(:,39,64) = +1.00000*TPK%K064(:)*PCONC(:,24)*PCONC(:,14)
!
-!PTERMS(WR_ALD2,KTR22) = +KTR22*<ALD2>
- PTERMS(:,146,449) = +TPK%KTR22(:)*PCONC(:,29)
+!PTERMS(CO,K065) = +1.01732*K065*<CARBO>*<OH>
+ PTERMS(:,13,65) = +1.01732*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)
!
-!PTERMS(GLY,KTR23) = -KTR23*<GLY>
- PTERMS(:,42,450) = -TPK%KTR23(:)*PCONC(:,42)
+!PTERMS(OH,K065) = -K065*<CARBO>*<OH>
+ PTERMS(:,14,65) = -TPK%K065(:)*PCONC(:,25)*PCONC(:,14)
!
-!PTERMS(WR_GLY,KTR23) = +KTR23*<GLY>
- PTERMS(:,147,450) = +TPK%KTR23(:)*PCONC(:,42)
+!PTERMS(HO2,K065) = +0.51208*K065*<CARBO>*<OH>
+ PTERMS(:,15,65) = +0.51208*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)
!
-!PTERMS(KETL,KTR24) = -KTR24*<KETL>
- PTERMS(:,30,451) = -TPK%KTR24(:)*PCONC(:,30)
+!PTERMS(HCHO,K065) = +0.00000*K065*<CARBO>*<OH>
+ PTERMS(:,22,65) = +0.00000*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)
!
-!PTERMS(WR_KETL,KTR24) = +KTR24*<KETL>
- PTERMS(:,149,451) = +TPK%KTR24(:)*PCONC(:,30)
+!PTERMS(ALD,K065) = +0.06253*K065*<CARBO>*<OH>
+ PTERMS(:,23,65) = +0.06253*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)
!
-!PTERMS(MGLY,KTR25) = -KTR25*<MGLY>
- PTERMS(:,41,452) = -TPK%KTR25(:)*PCONC(:,41)
+!PTERMS(KET,K065) = +0.00853*K065*<CARBO>*<OH>
+ PTERMS(:,24,65) = +0.00853*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)
!
-!PTERMS(WR_MGLY,KTR25) = +KTR25*<MGLY>
- PTERMS(:,148,452) = +TPK%KTR25(:)*PCONC(:,41)
+!PTERMS(CARBO,K065) = -K065*<CARBO>*<OH>
+ PTERMS(:,25,65) = -TPK%K065(:)*PCONC(:,25)*PCONC(:,14)
!
-!PTERMS(ORA1,KTR26) = -KTR26*<ORA1>
- PTERMS(:,43,453) = -TPK%KTR26(:)*PCONC(:,43)
+!PTERMS(CARBOP,K065) = +0.51419*K065*<CARBO>*<OH>
+ PTERMS(:,39,65) = +0.51419*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)
!
!
RETURN
-END SUBROUTINE SUBT67
+END SUBROUTINE SUBT9
!
-SUBROUTINE SUBT68
+SUBROUTINE SUBT10
!
-!Indices 1361 a 1380
+!Indices 201 a 220
!
-!PTERMS(WR_ORA1,KTR26) = +KTR26*<ORA1>
- PTERMS(:,150,453) = +TPK%KTR26(:)*PCONC(:,43)
+!PTERMS(XO2,K065) = +0.10162*K065*<CARBO>*<OH>
+ PTERMS(:,41,65) = +0.10162*TPK%K065(:)*PCONC(:,25)*PCONC(:,14)
!
-!PTERMS(ORA2,KTR27) = -KTR27*<ORA2>
- PTERMS(:,44,454) = -TPK%KTR27(:)*PCONC(:,44)
+!PTERMS(OH,K066) = -K066*<ORA1>*<OH>
+ PTERMS(:,14,66) = -TPK%K066(:)*PCONC(:,30)*PCONC(:,14)
!
-!PTERMS(WR_ORA2,KTR27) = +KTR27*<ORA2>
- PTERMS(:,151,454) = +TPK%KTR27(:)*PCONC(:,44)
+!PTERMS(HO2,K066) = +K066*<ORA1>*<OH>
+ PTERMS(:,15,66) = +TPK%K066(:)*PCONC(:,30)*PCONC(:,14)
!
-!PTERMS(ACID,KTR28) = -KTR28*<ACID>
- PTERMS(:,45,455) = -TPK%KTR28(:)*PCONC(:,45)
+!PTERMS(ORA1,K066) = -K066*<ORA1>*<OH>
+ PTERMS(:,30,66) = -TPK%K066(:)*PCONC(:,30)*PCONC(:,14)
!
-!PTERMS(WR_ACID,KTR28) = +KTR28*<ACID>
- PTERMS(:,152,455) = +TPK%KTR28(:)*PCONC(:,45)
+!PTERMS(OH,K067) = -K067*<ORA2>*<OH>
+ PTERMS(:,14,67) = -TPK%K067(:)*PCONC(:,31)*PCONC(:,14)
!
-!PTERMS(RP16,KTR29) = -KTR29*<RP16>
- PTERMS(:,74,456) = -TPK%KTR29(:)*PCONC(:,74)
+!PTERMS(ORA2,K067) = -K067*<ORA2>*<OH>
+ PTERMS(:,31,67) = -TPK%K067(:)*PCONC(:,31)*PCONC(:,14)
!
-!PTERMS(WR_RP16,KTR29) = +KTR29*<RP16>
- PTERMS(:,153,456) = +TPK%KTR29(:)*PCONC(:,74)
+!PTERMS(OH,K068) = -K068*<OP1>*<OH>
+ PTERMS(:,14,68) = -TPK%K068(:)*PCONC(:,28)*PCONC(:,14)
!
-!PTERMS(UR21,KTR30) = -KTR30*<UR21>
- PTERMS(:,47,457) = -TPK%KTR30(:)*PCONC(:,47)
+!PTERMS(HCHO,K068) = +0.35*K068*<OP1>*<OH>
+ PTERMS(:,22,68) = +0.35*TPK%K068(:)*PCONC(:,28)*PCONC(:,14)
!
-!PTERMS(WR_UR21,KTR30) = +KTR30*<UR21>
- PTERMS(:,154,457) = +TPK%KTR30(:)*PCONC(:,47)
+!PTERMS(OP1,K068) = -K068*<OP1>*<OH>
+ PTERMS(:,28,68) = -TPK%K068(:)*PCONC(:,28)*PCONC(:,14)
!
-!PTERMS(UR28,KTR31) = -KTR31*<UR28>
- PTERMS(:,46,458) = -TPK%KTR31(:)*PCONC(:,46)
+!PTERMS(MO2,K068) = +0.65*K068*<OP1>*<OH>
+ PTERMS(:,32,68) = +0.65*TPK%K068(:)*PCONC(:,28)*PCONC(:,14)
!
-!PTERMS(WR_UR28,KTR31) = +KTR31*<UR28>
- PTERMS(:,155,458) = +TPK%KTR31(:)*PCONC(:,46)
+!PTERMS(OH,K069) = -K069*<OP2>*<OH>
+ PTERMS(:,14,69) = -TPK%K069(:)*PCONC(:,29)*PCONC(:,14)
!
-!PTERMS(O3,KTR32) = +KTR32*<WR_O3>
- PTERMS(:,3,459) = +TPK%KTR32(:)*PCONC(:,125)
+!PTERMS(HO2,K069) = +0.02915*K069*<OP2>*<OH>
+ PTERMS(:,15,69) = +0.02915*TPK%K069(:)*PCONC(:,29)*PCONC(:,14)
!
-!PTERMS(WR_O3,KTR32) = -KTR32*<WR_O3>
- PTERMS(:,125,459) = -TPK%KTR32(:)*PCONC(:,125)
+!PTERMS(HCHO,K069) = +0.02915*K069*<OP2>*<OH>
+ PTERMS(:,22,69) = +0.02915*TPK%K069(:)*PCONC(:,29)*PCONC(:,14)
!
-!PTERMS(H2O2,KTR33) = +KTR33*<WR_H2O2>
- PTERMS(:,12,460) = +TPK%KTR33(:)*PCONC(:,126)
+!PTERMS(ALD,K069) = +0.07335*K069*<OP2>*<OH>
+ PTERMS(:,23,69) = +0.07335*TPK%K069(:)*PCONC(:,29)*PCONC(:,14)
!
-!PTERMS(WR_H2O2,KTR33) = -KTR33*<WR_H2O2>
- PTERMS(:,126,460) = -TPK%KTR33(:)*PCONC(:,126)
+!PTERMS(KET,K069) = +0.37591*K069*<OP2>*<OH>
+ PTERMS(:,24,69) = +0.37591*TPK%K069(:)*PCONC(:,29)*PCONC(:,14)
!
-!PTERMS(NO,KTR34) = +KTR34*<WR_NO>
- PTERMS(:,1,461) = +TPK%KTR34(:)*PCONC(:,127)
+!PTERMS(OP2,K069) = -K069*<OP2>*<OH>
+ PTERMS(:,29,69) = -TPK%K069(:)*PCONC(:,29)*PCONC(:,14)
!
-!PTERMS(WR_NO,KTR34) = -KTR34*<WR_NO>
- PTERMS(:,127,461) = -TPK%KTR34(:)*PCONC(:,127)
+!PTERMS(ALKAP,K069) = +0.40341*K069*<OP2>*<OH>
+ PTERMS(:,33,69) = +0.40341*TPK%K069(:)*PCONC(:,29)*PCONC(:,14)
!
-!PTERMS(NO2,KTR35) = +KTR35*<WR_NO2>
- PTERMS(:,2,462) = +TPK%KTR35(:)*PCONC(:,128)
+!PTERMS(CARBOP,K069) = +0.05413*K069*<OP2>*<OH>
+ PTERMS(:,39,69) = +0.05413*TPK%K069(:)*PCONC(:,29)*PCONC(:,14)
!
-!PTERMS(WR_NO2,KTR35) = -KTR35*<WR_NO2>
- PTERMS(:,128,462) = -TPK%KTR35(:)*PCONC(:,128)
+!PTERMS(XO2,K069) = +0.09333*K069*<OP2>*<OH>
+ PTERMS(:,41,69) = +0.09333*TPK%K069(:)*PCONC(:,29)*PCONC(:,14)
!
-!PTERMS(NO3,KTR36) = +KTR36*<WR_NO3>
- PTERMS(:,8,463) = +TPK%KTR36(:)*PCONC(:,129)
+!PTERMS(NO3,K070) = +0.71893*K070*<PAN>*<OH>
+ PTERMS(:,5,70) = +0.71893*TPK%K070(:)*PCONC(:,27)*PCONC(:,14)
!
!
RETURN
-END SUBROUTINE SUBT68
+END SUBROUTINE SUBT10
!
-SUBROUTINE SUBT69
+SUBROUTINE SUBT11
!
-!Indices 1381 a 1400
+!Indices 221 a 240
!
-!PTERMS(WR_NO3,KTR36) = -KTR36*<WR_NO3>
- PTERMS(:,129,463) = -TPK%KTR36(:)*PCONC(:,129)
+!PTERMS(OH,K070) = -K070*<PAN>*<OH>
+ PTERMS(:,14,70) = -TPK%K070(:)*PCONC(:,27)*PCONC(:,14)
!
-!PTERMS(N2O5,KTR37) = +KTR37*<WR_N2O5>
- PTERMS(:,7,464) = +TPK%KTR37(:)*PCONC(:,130)
+!PTERMS(HO2,K070) = +0.28107*K070*<PAN>*<OH>
+ PTERMS(:,15,70) = +0.28107*TPK%K070(:)*PCONC(:,27)*PCONC(:,14)
!
-!PTERMS(WR_N2O5,KTR37) = -KTR37*<WR_N2O5>
- PTERMS(:,130,464) = -TPK%KTR37(:)*PCONC(:,130)
+!PTERMS(HCHO,K070) = +0.57839*K070*<PAN>*<OH>
+ PTERMS(:,22,70) = +0.57839*TPK%K070(:)*PCONC(:,27)*PCONC(:,14)
!
-!PTERMS(HONO,KTR38) = +KTR38*<WR_HONO>
- PTERMS(:,4,465) = +TPK%KTR38(:)*PCONC(:,131)
+!PTERMS(CARBO,K070) = +0.21863*K070*<PAN>*<OH>
+ PTERMS(:,25,70) = +0.21863*TPK%K070(:)*PCONC(:,27)*PCONC(:,14)
!
-!PTERMS(WR_HONO,KTR38) = -KTR38*<WR_HONO>
- PTERMS(:,131,465) = -TPK%KTR38(:)*PCONC(:,131)
+!PTERMS(PAN,K070) = -K070*<PAN>*<OH>
+ PTERMS(:,27,70) = -TPK%K070(:)*PCONC(:,27)*PCONC(:,14)
!
-!PTERMS(HNO3,KTR39) = +KTR39*<WR_HNO3>
- PTERMS(:,5,466) = +TPK%KTR39(:)*PCONC(:,132)
+!PTERMS(XO2,K070) = +K070*<PAN>*<OH>
+ PTERMS(:,41,70) = +TPK%K070(:)*PCONC(:,27)*PCONC(:,14)
!
-!PTERMS(WR_HNO3,KTR39) = -KTR39*<WR_HNO3>
- PTERMS(:,132,466) = -TPK%KTR39(:)*PCONC(:,132)
+!PTERMS(NO2,K071) = +K071*<ONIT>*<OH>
+ PTERMS(:,4,71) = +TPK%K071(:)*PCONC(:,26)*PCONC(:,14)
!
-!PTERMS(HNO4,KTR40) = +KTR40*<WR_HNO4>
- PTERMS(:,6,467) = +TPK%KTR40(:)*PCONC(:,133)
+!PTERMS(OH,K071) = -K071*<ONIT>*<OH>
+ PTERMS(:,14,71) = -TPK%K071(:)*PCONC(:,26)*PCONC(:,14)
!
-!PTERMS(WR_HNO4,KTR40) = -KTR40*<WR_HNO4>
- PTERMS(:,133,467) = -TPK%KTR40(:)*PCONC(:,133)
+!PTERMS(ONIT,K071) = -K071*<ONIT>*<OH>
+ PTERMS(:,26,71) = -TPK%K071(:)*PCONC(:,26)*PCONC(:,14)
!
-!PTERMS(NH3,KTR41) = +KTR41*<WR_NH3>
- PTERMS(:,9,468) = +TPK%KTR41(:)*PCONC(:,134)
+!PTERMS(ALKAP,K071) = +1.00000*K071*<ONIT>*<OH>
+ PTERMS(:,33,71) = +1.00000*TPK%K071(:)*PCONC(:,26)*PCONC(:,14)
!
-!PTERMS(WR_NH3,KTR41) = -KTR41*<WR_NH3>
- PTERMS(:,134,468) = -TPK%KTR41(:)*PCONC(:,134)
+!PTERMS(NO3,K072) = -K072*<HCHO>*<NO3>
+ PTERMS(:,5,72) = -TPK%K072(:)*PCONC(:,22)*PCONC(:,5)
!
-!PTERMS(OH,KTR42) = +KTR42*<WR_OH>
- PTERMS(:,15,469) = +TPK%KTR42(:)*PCONC(:,135)
+!PTERMS(HNO3,K072) = +K072*<HCHO>*<NO3>
+ PTERMS(:,8,72) = +TPK%K072(:)*PCONC(:,22)*PCONC(:,5)
!
-!PTERMS(WR_OH,KTR42) = -KTR42*<WR_OH>
- PTERMS(:,135,469) = -TPK%KTR42(:)*PCONC(:,135)
+!PTERMS(CO,K072) = +K072*<HCHO>*<NO3>
+ PTERMS(:,13,72) = +TPK%K072(:)*PCONC(:,22)*PCONC(:,5)
!
-!PTERMS(HO2,KTR43) = +KTR43*<WR_HO2>
- PTERMS(:,10,470) = +TPK%KTR43(:)*PCONC(:,136)
+!PTERMS(HO2,K072) = +K072*<HCHO>*<NO3>
+ PTERMS(:,15,72) = +TPK%K072(:)*PCONC(:,22)*PCONC(:,5)
!
-!PTERMS(WR_HO2,KTR43) = -KTR43*<WR_HO2>
- PTERMS(:,136,470) = -TPK%KTR43(:)*PCONC(:,136)
+!PTERMS(HCHO,K072) = -K072*<HCHO>*<NO3>
+ PTERMS(:,22,72) = -TPK%K072(:)*PCONC(:,22)*PCONC(:,5)
!
-!PTERMS(WR_CO2,KTR44) = -KTR44*<WR_CO2>
- PTERMS(:,137,471) = -TPK%KTR44(:)*PCONC(:,137)
+!PTERMS(NO3,K073) = -K073*<ALD>*<NO3>
+ PTERMS(:,5,73) = -TPK%K073(:)*PCONC(:,23)*PCONC(:,5)
!
-!PTERMS(SO2,KTR45) = +KTR45*<WR_SO2>
- PTERMS(:,13,472) = +TPK%KTR45(:)*PCONC(:,138)
+!PTERMS(HNO3,K073) = +K073*<ALD>*<NO3>
+ PTERMS(:,8,73) = +TPK%K073(:)*PCONC(:,23)*PCONC(:,5)
!
-!PTERMS(WR_SO2,KTR45) = -KTR45*<WR_SO2>
- PTERMS(:,138,472) = -TPK%KTR45(:)*PCONC(:,138)
+!PTERMS(ALD,K073) = -K073*<ALD>*<NO3>
+ PTERMS(:,23,73) = -TPK%K073(:)*PCONC(:,23)*PCONC(:,5)
!
-!PTERMS(H2SO4,KTR46) = +KTR46*<WR_H2SO4>
- PTERMS(:,14,473) = +TPK%KTR46(:)*PCONC(:,139)
+!PTERMS(CARBOP,K073) = +1.00000*K073*<ALD>*<NO3>
+ PTERMS(:,39,73) = +1.00000*TPK%K073(:)*PCONC(:,23)*PCONC(:,5)
!
-!PTERMS(WR_H2SO4,KTR46) = -KTR46*<WR_H2SO4>
- PTERMS(:,139,473) = -TPK%KTR46(:)*PCONC(:,139)
+!PTERMS(NO2,K074) = +0.10530*K074*<CARBO>*<NO3>
+ PTERMS(:,4,74) = +0.10530*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)
!
!
RETURN
-END SUBROUTINE SUBT69
+END SUBROUTINE SUBT11
!
-SUBROUTINE SUBT70
+SUBROUTINE SUBT12
!
-!Indices 1401 a 1420
+!Indices 241 a 260
!
-!PTERMS(RO21,KTR47) = +KTR47*<WR_RO21>
- PTERMS(:,86,474) = +TPK%KTR47(:)*PCONC(:,140)
+!PTERMS(NO3,K074) = -K074*<CARBO>*<NO3>
+ PTERMS(:,5,74) = -TPK%K074(:)*PCONC(:,25)*PCONC(:,5)
!
-!PTERMS(WR_RO21,KTR47) = -KTR47*<WR_RO21>
- PTERMS(:,140,474) = -TPK%KTR47(:)*PCONC(:,140)
+!PTERMS(HNO3,K074) = +0.91567*K074*<CARBO>*<NO3>
+ PTERMS(:,8,74) = +0.91567*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)
!
-!PTERMS(RO25,KTR48) = +KTR48*<WR_RO25>
- PTERMS(:,87,475) = +TPK%KTR48(:)*PCONC(:,141)
+!PTERMS(CO,K074) = +1.33723*K074*<CARBO>*<NO3>
+ PTERMS(:,13,74) = +1.33723*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)
!
-!PTERMS(WR_RO25,KTR48) = -KTR48*<WR_RO25>
- PTERMS(:,141,475) = -TPK%KTR48(:)*PCONC(:,141)
+!PTERMS(HO2,K074) = +0.63217*K074*<CARBO>*<NO3>
+ PTERMS(:,15,74) = +0.63217*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)
!
-!PTERMS(MEOH,KTR49) = +KTR49*<WR_MEOH>
- PTERMS(:,32,476) = +TPK%KTR49(:)*PCONC(:,142)
+!PTERMS(ALD,K074) = +0.05265*K074*<CARBO>*<NO3>
+ PTERMS(:,23,74) = +0.05265*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)
!
-!PTERMS(WR_MEOH,KTR49) = -KTR49*<WR_MEOH>
- PTERMS(:,142,476) = -TPK%KTR49(:)*PCONC(:,142)
+!PTERMS(KET,K074) = +0.00632*K074*<CARBO>*<NO3>
+ PTERMS(:,24,74) = +0.00632*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)
!
-!PTERMS(ETOH,KTR50) = +KTR50*<WR_ETOH>
- PTERMS(:,33,477) = +TPK%KTR50(:)*PCONC(:,143)
+!PTERMS(CARBO,K074) = -K074*<CARBO>*<NO3>
+ PTERMS(:,25,74) = -TPK%K074(:)*PCONC(:,25)*PCONC(:,5)
!
-!PTERMS(WR_ETOH,KTR50) = -KTR50*<WR_ETOH>
- PTERMS(:,143,477) = -TPK%KTR50(:)*PCONC(:,143)
+!PTERMS(CARBOP,K074) = +0.38881*K074*<CARBO>*<NO3>
+ PTERMS(:,39,74) = +0.38881*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)
!
-!PTERMS(ALCH,KTR51) = +KTR51*<WR_ALCH>
- PTERMS(:,34,478) = +TPK%KTR51(:)*PCONC(:,144)
+!PTERMS(OLN,K074) = +0.00000*K074*<CARBO>*<NO3>
+ PTERMS(:,40,74) = +0.00000*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)
!
-!PTERMS(WR_ALCH,KTR51) = -KTR51*<WR_ALCH>
- PTERMS(:,144,478) = -TPK%KTR51(:)*PCONC(:,144)
+!PTERMS(XO2,K074) = +0.10530*K074*<CARBO>*<NO3>
+ PTERMS(:,41,74) = +0.10530*TPK%K074(:)*PCONC(:,25)*PCONC(:,5)
!
-!PTERMS(HCHO,KTR52) = +KTR52*<WR_HCHO>
- PTERMS(:,28,479) = +TPK%KTR52(:)*PCONC(:,145)
+!PTERMS(NO3,K075) = -K075*<ARO>*<NO3>
+ PTERMS(:,5,75) = -TPK%K075(:)*PCONC(:,21)*PCONC(:,5)
!
-!PTERMS(WR_HCHO,KTR52) = -KTR52*<WR_HCHO>
- PTERMS(:,145,479) = -TPK%KTR52(:)*PCONC(:,145)
+!PTERMS(HNO3,K075) = +K075*<ARO>*<NO3>
+ PTERMS(:,8,75) = +TPK%K075(:)*PCONC(:,21)*PCONC(:,5)
!
-!PTERMS(ALD2,KTR53) = +KTR53*<WR_ALD2>
- PTERMS(:,29,480) = +TPK%KTR53(:)*PCONC(:,146)
+!PTERMS(ARO,K075) = -K075*<ARO>*<NO3>
+ PTERMS(:,21,75) = -TPK%K075(:)*PCONC(:,21)*PCONC(:,5)
!
-!PTERMS(WR_ALD2,KTR53) = -KTR53*<WR_ALD2>
- PTERMS(:,146,480) = -TPK%KTR53(:)*PCONC(:,146)
+!PTERMS(PHO,K075) = +K075*<ARO>*<NO3>
+ PTERMS(:,36,75) = +TPK%K075(:)*PCONC(:,21)*PCONC(:,5)
!
-!PTERMS(GLY,KTR54) = +KTR54*<WR_GLY>
- PTERMS(:,42,481) = +TPK%KTR54(:)*PCONC(:,147)
+!PTERMS(NO3,K076) = -K076*<ALKE>*<NO3>
+ PTERMS(:,5,76) = -TPK%K076(:)*PCONC(:,19)*PCONC(:,5)
!
-!PTERMS(WR_GLY,KTR54) = -KTR54*<WR_GLY>
- PTERMS(:,147,481) = -TPK%KTR54(:)*PCONC(:,147)
+!PTERMS(ALKE,K076) = -K076*<ALKE>*<NO3>
+ PTERMS(:,19,76) = -TPK%K076(:)*PCONC(:,19)*PCONC(:,5)
!
-!PTERMS(KETL,KTR55) = +KTR55*<WR_KETL>
- PTERMS(:,30,482) = +TPK%KTR55(:)*PCONC(:,149)
+!PTERMS(CARBO,K076) = +0.00000*K076*<ALKE>*<NO3>
+ PTERMS(:,25,76) = +0.00000*TPK%K076(:)*PCONC(:,19)*PCONC(:,5)
!
-!PTERMS(WR_KETL,KTR55) = -KTR55*<WR_KETL>
- PTERMS(:,149,482) = -TPK%KTR55(:)*PCONC(:,149)
+!PTERMS(OLN,K076) = +0.93768*K076*<ALKE>*<NO3>
+ PTERMS(:,40,76) = +0.93768*TPK%K076(:)*PCONC(:,19)*PCONC(:,5)
!
-!PTERMS(MGLY,KTR56) = +KTR56*<WR_MGLY>
- PTERMS(:,41,483) = +TPK%KTR56(:)*PCONC(:,148)
+!PTERMS(NO3,K077) = -K077*<BIO>*<NO3>
+ PTERMS(:,5,77) = -TPK%K077(:)*PCONC(:,20)*PCONC(:,5)
!
-!PTERMS(WR_MGLY,KTR56) = -KTR56*<WR_MGLY>
- PTERMS(:,148,483) = -TPK%KTR56(:)*PCONC(:,148)
+!PTERMS(BIO,K077) = -K077*<BIO>*<NO3>
+ PTERMS(:,20,77) = -TPK%K077(:)*PCONC(:,20)*PCONC(:,5)
!
!
RETURN
-END SUBROUTINE SUBT70
+END SUBROUTINE SUBT12
!
-SUBROUTINE SUBT71
+SUBROUTINE SUBT13
!
-!Indices 1421 a 1440
+!Indices 261 a 280
!
-!PTERMS(ORA1,KTR57) = +KTR57*<WR_ORA1>
- PTERMS(:,43,484) = +TPK%KTR57(:)*PCONC(:,150)
+!PTERMS(CARBO,K077) = +0.91741*K077*<BIO>*<NO3>
+ PTERMS(:,25,77) = +0.91741*TPK%K077(:)*PCONC(:,20)*PCONC(:,5)
!
-!PTERMS(WR_ORA1,KTR57) = -KTR57*<WR_ORA1>
- PTERMS(:,150,484) = -TPK%KTR57(:)*PCONC(:,150)
+!PTERMS(OLN,K077) = +1.00000*K077*<BIO>*<NO3>
+ PTERMS(:,40,77) = +1.00000*TPK%K077(:)*PCONC(:,20)*PCONC(:,5)
!
-!PTERMS(ORA2,KTR58) = +KTR58*<WR_ORA2>
- PTERMS(:,44,485) = +TPK%KTR58(:)*PCONC(:,151)
+!PTERMS(NO2,K078) = +0.40*K078*<PAN>*<NO3>
+ PTERMS(:,4,78) = +0.40*TPK%K078(:)*PCONC(:,27)*PCONC(:,5)
!
-!PTERMS(WR_ORA2,KTR58) = -KTR58*<WR_ORA2>
- PTERMS(:,151,485) = -TPK%KTR58(:)*PCONC(:,151)
+!PTERMS(NO3,K078) = -K078*<PAN>*<NO3>
+ PTERMS(:,5,78) = -TPK%K078(:)*PCONC(:,27)*PCONC(:,5)
!
-!PTERMS(ACID,KTR59) = +KTR59*<WR_ACID>
- PTERMS(:,45,486) = +TPK%KTR59(:)*PCONC(:,152)
+!PTERMS(HCHO,K078) = +0.40*K078*<PAN>*<NO3>
+ PTERMS(:,22,78) = +0.40*TPK%K078(:)*PCONC(:,27)*PCONC(:,5)
!
-!PTERMS(WR_ACID,KTR59) = -KTR59*<WR_ACID>
- PTERMS(:,152,486) = -TPK%KTR59(:)*PCONC(:,152)
+!PTERMS(ONIT,K078) = +0.60*K078*<PAN>*<NO3>
+ PTERMS(:,26,78) = +0.60*TPK%K078(:)*PCONC(:,27)*PCONC(:,5)
!
-!PTERMS(RP16,KTR60) = +KTR60*<WR_RP16>
- PTERMS(:,74,487) = +TPK%KTR60(:)*PCONC(:,153)
+!PTERMS(PAN,K078) = -K078*<PAN>*<NO3>
+ PTERMS(:,27,78) = -TPK%K078(:)*PCONC(:,27)*PCONC(:,5)
!
-!PTERMS(WR_RP16,KTR60) = -KTR60*<WR_RP16>
- PTERMS(:,153,487) = -TPK%KTR60(:)*PCONC(:,153)
+!PTERMS(XO2,K078) = +K078*<PAN>*<NO3>
+ PTERMS(:,41,78) = +TPK%K078(:)*PCONC(:,27)*PCONC(:,5)
!
-!PTERMS(UR21,KTR61) = +KTR61*<WR_UR21>
- PTERMS(:,47,488) = +TPK%KTR61(:)*PCONC(:,154)
+!PTERMS(O3,K079) = -K079*<ALKE>*<O3>
+ PTERMS(:,1,79) = -TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(WR_UR21,KTR61) = -KTR61*<WR_UR21>
- PTERMS(:,154,488) = -TPK%KTR61(:)*PCONC(:,154)
+!PTERMS(H2O2,K079) = +0.01833*K079*<ALKE>*<O3>
+ PTERMS(:,2,79) = +0.01833*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(UR28,KTR62) = +KTR62*<WR_UR28>
- PTERMS(:,46,489) = +TPK%KTR62(:)*PCONC(:,155)
+!PTERMS(CO,K079) = +0.35120*K079*<ALKE>*<O3>
+ PTERMS(:,13,79) = +0.35120*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(WR_UR28,KTR62) = -KTR62*<WR_UR28>
- PTERMS(:,155,489) = -TPK%KTR62(:)*PCONC(:,155)
+!PTERMS(OH,K079) = +0.39435*K079*<ALKE>*<O3>
+ PTERMS(:,14,79) = +0.39435*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(WC_H2O2,KC1) = -KC1*<WC_H2O2>
- PTERMS(:,89,490) = -TPK%KC1(:)*PCONC(:,89)
+!PTERMS(HO2,K079) = +0.23451*K079*<ALKE>*<O3>
+ PTERMS(:,15,79) = +0.23451*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(WC_OH,KC1) = +KC1*<WC_H2O2>
- PTERMS(:,98,490) = +TPK%KC1(:)*PCONC(:,89)
+!PTERMS(CH4,K079) = +0.04300*K079*<ALKE>*<O3>
+ PTERMS(:,16,79) = +0.04300*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(WC_H2O2,KC2) = +KC2*<WC_OH>*<WC_OH>
- PTERMS(:,89,491) = +TPK%KC2(:)*PCONC(:,98)*PCONC(:,98)
+!PTERMS(ETH,K079) = +0.03196*K079*<ALKE>*<O3>
+ PTERMS(:,17,79) = +0.03196*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(WC_OH,KC2) = -KC2*<WC_OH>*<WC_OH>
- PTERMS(:,98,491) = -TPK%KC2(:)*PCONC(:,98)*PCONC(:,98)
+!PTERMS(ALKE,K079) = -K079*<ALKE>*<O3>
+ PTERMS(:,19,79) = -TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(WC_OH,KC3) = -KC3*<WC_HO2>*<WC_OH>
- PTERMS(:,98,492) = -TPK%KC3(:)*PCONC(:,99)*PCONC(:,98)
+!PTERMS(HCHO,K079) = +0.48290*K079*<ALKE>*<O3>
+ PTERMS(:,22,79) = +0.48290*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(WC_HO2,KC3) = -KC3*<WC_HO2>*<WC_OH>
- PTERMS(:,99,492) = -TPK%KC3(:)*PCONC(:,99)*PCONC(:,98)
+!PTERMS(ALD,K079) = +0.51468*K079*<ALKE>*<O3>
+ PTERMS(:,23,79) = +0.51468*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(WC_H2O2,KC4) = -KC4*<WC_OH>*<WC_H2O2>
- PTERMS(:,89,493) = -TPK%KC4(:)*PCONC(:,98)*PCONC(:,89)
+!PTERMS(KET,K079) = +0.07377*K079*<ALKE>*<O3>
+ PTERMS(:,24,79) = +0.07377*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(WC_OH,KC4) = -KC4*<WC_OH>*<WC_H2O2>
- PTERMS(:,98,493) = -TPK%KC4(:)*PCONC(:,98)*PCONC(:,89)
+!PTERMS(CARBO,K079) = +0.00000*K079*<ALKE>*<O3>
+ PTERMS(:,25,79) = +0.00000*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
!
RETURN
-END SUBROUTINE SUBT71
+END SUBROUTINE SUBT13
!
-SUBROUTINE SUBT72
+SUBROUTINE SUBT14
!
-!Indices 1441 a 1460
+!Indices 281 a 300
!
-!PTERMS(WC_HO2,KC4) = +KC4*<WC_OH>*<WC_H2O2>
- PTERMS(:,99,493) = +TPK%KC4(:)*PCONC(:,98)*PCONC(:,89)
+!PTERMS(ORA1,K079) = +0.15343*K079*<ALKE>*<O3>
+ PTERMS(:,30,79) = +0.15343*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(WC_H2O2,KC5) = +KC5*<WC_HO2>*<WC_HO2>
- PTERMS(:,89,494) = +TPK%KC5(:)*PCONC(:,99)*PCONC(:,99)
+!PTERMS(ORA2,K079) = +0.08143*K079*<ALKE>*<O3>
+ PTERMS(:,31,79) = +0.08143*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(WC_HO2,KC5) = -KC5*<WC_HO2>*<WC_HO2>
- PTERMS(:,99,494) = -TPK%KC5(:)*PCONC(:,99)*PCONC(:,99)
+!PTERMS(MO2,K079) = +0.13966*K079*<ALKE>*<O3>
+ PTERMS(:,32,79) = +0.13966*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(WC_O3,KC6) = -KC6*<WC_HO2>*<WC_O3>
- PTERMS(:,88,495) = -TPK%KC6(:)*PCONC(:,99)*PCONC(:,88)
+!PTERMS(ALKAP,K079) = +0.09815*K079*<ALKE>*<O3>
+ PTERMS(:,33,79) = +0.09815*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(WC_OH,KC6) = +KC6*<WC_HO2>*<WC_O3>
- PTERMS(:,98,495) = +TPK%KC6(:)*PCONC(:,99)*PCONC(:,88)
+!PTERMS(CARBOP,K079) = +0.05705*K079*<ALKE>*<O3>
+ PTERMS(:,39,79) = +0.05705*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(WC_HO2,KC6) = -KC6*<WC_HO2>*<WC_O3>
- PTERMS(:,99,495) = -TPK%KC6(:)*PCONC(:,99)*PCONC(:,88)
+!PTERMS(XO2,K079) = +0.00000*K079*<ALKE>*<O3>
+ PTERMS(:,41,79) = +0.00000*TPK%K079(:)*PCONC(:,19)*PCONC(:,1)
!
-!PTERMS(WC_OH,KC7) = -KC7*<WC_SO2>*<WC_OH>
- PTERMS(:,98,496) = -TPK%KC7(:)*PCONC(:,101)*PCONC(:,98)
+!PTERMS(O3,K080) = -K080*<BIO>*<O3>
+ PTERMS(:,1,80) = -TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(WC_SO2,KC7) = -KC7*<WC_SO2>*<WC_OH>
- PTERMS(:,101,496) = -TPK%KC7(:)*PCONC(:,101)*PCONC(:,98)
+!PTERMS(H2O2,K080) = +0.00100*K080*<BIO>*<O3>
+ PTERMS(:,2,80) = +0.00100*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(WC_ASO3,KC7) = +KC7*<WC_SO2>*<WC_OH>
- PTERMS(:,120,496) = +TPK%KC7(:)*PCONC(:,101)*PCONC(:,98)
+!PTERMS(CO,K080) = +0.36000*K080*<BIO>*<O3>
+ PTERMS(:,13,80) = +0.36000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(WC_NO2,KC8) = +KC8*<WC_OH>*<WC_HONO>
- PTERMS(:,91,497) = +TPK%KC8(:)*PCONC(:,98)*PCONC(:,94)
+!PTERMS(OH,K080) = +0.28000*K080*<BIO>*<O3>
+ PTERMS(:,14,80) = +0.28000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(WC_HONO,KC8) = -KC8*<WC_OH>*<WC_HONO>
- PTERMS(:,94,497) = -TPK%KC8(:)*PCONC(:,98)*PCONC(:,94)
+!PTERMS(HO2,K080) = +0.30000*K080*<BIO>*<O3>
+ PTERMS(:,15,80) = +0.30000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(WC_OH,KC8) = -KC8*<WC_OH>*<WC_HONO>
- PTERMS(:,98,497) = -TPK%KC8(:)*PCONC(:,98)*PCONC(:,94)
+!PTERMS(ALKE,K080) = +0.37388*K080*<BIO>*<O3>
+ PTERMS(:,19,80) = +0.37388*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(WC_NO2,KC9) = -KC9*<WC_HO2>*<WC_NO2>
- PTERMS(:,91,498) = -TPK%KC9(:)*PCONC(:,99)*PCONC(:,91)
+!PTERMS(BIO,K080) = -K080*<BIO>*<O3>
+ PTERMS(:,20,80) = -TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(WC_HNO4,KC9) = +KC9*<WC_HO2>*<WC_NO2>
- PTERMS(:,96,498) = +TPK%KC9(:)*PCONC(:,99)*PCONC(:,91)
+!PTERMS(HCHO,K080) = +0.90000*K080*<BIO>*<O3>
+ PTERMS(:,22,80) = +0.90000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(WC_HO2,KC9) = -KC9*<WC_HO2>*<WC_NO2>
- PTERMS(:,99,498) = -TPK%KC9(:)*PCONC(:,99)*PCONC(:,91)
+!PTERMS(ALD,K080) = +0.00000*K080*<BIO>*<O3>
+ PTERMS(:,23,80) = +0.00000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(WC_NO2,KC10) = +KC10*<WC_HNO4>
- PTERMS(:,91,499) = +TPK%KC10(:)*PCONC(:,96)
+!PTERMS(KET,K080) = +0.00000*K080*<BIO>*<O3>
+ PTERMS(:,24,80) = +0.00000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(WC_HNO4,KC10) = -KC10*<WC_HNO4>
- PTERMS(:,96,499) = -TPK%KC10(:)*PCONC(:,96)
+!PTERMS(CARBO,K080) = +0.39754*K080*<BIO>*<O3>
+ PTERMS(:,25,80) = +0.39754*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(WC_HO2,KC10) = +KC10*<WC_HNO4>
- PTERMS(:,99,499) = +TPK%KC10(:)*PCONC(:,96)
+!PTERMS(ORA1,K080) = +0.15000*K080*<BIO>*<O3>
+ PTERMS(:,30,80) = +0.15000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(WC_HONO,KC11) = +KC11*<WC_HNO4>
- PTERMS(:,94,500) = +TPK%KC11(:)*PCONC(:,96)
+!PTERMS(ORA2,K080) = +0.00000*K080*<BIO>*<O3>
+ PTERMS(:,31,80) = +0.00000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(WC_HNO4,KC11) = -KC11*<WC_HNO4>
- PTERMS(:,96,500) = -TPK%KC11(:)*PCONC(:,96)
+!PTERMS(MO2,K080) = +0.03000*K080*<BIO>*<O3>
+ PTERMS(:,32,80) = +0.03000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
!
RETURN
-END SUBROUTINE SUBT72
+END SUBROUTINE SUBT14
!
-SUBROUTINE SUBT73
+SUBROUTINE SUBT15
!
-!Indices 1461 a 1480
+!Indices 301 a 320
!
-!PTERMS(WC_HNO3,KC12) = +KC12*<WC_SO2>*<WC_HNO4>
- PTERMS(:,95,501) = +TPK%KC12(:)*PCONC(:,101)*PCONC(:,96)
+!PTERMS(ALKAP,K080) = +0.00000*K080*<BIO>*<O3>
+ PTERMS(:,33,80) = +0.00000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(WC_HNO4,KC12) = -KC12*<WC_SO2>*<WC_HNO4>
- PTERMS(:,96,501) = -TPK%KC12(:)*PCONC(:,101)*PCONC(:,96)
+!PTERMS(CARBOP,K080) = +0.17000*K080*<BIO>*<O3>
+ PTERMS(:,39,80) = +0.17000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(WC_SO2,KC12) = -KC12*<WC_SO2>*<WC_HNO4>
- PTERMS(:,101,501) = -TPK%KC12(:)*PCONC(:,101)*PCONC(:,96)
+!PTERMS(XO2,K080) = +0.13000*K080*<BIO>*<O3>
+ PTERMS(:,41,80) = +0.13000*TPK%K080(:)*PCONC(:,20)*PCONC(:,1)
!
-!PTERMS(WC_H2SO4,KC12) = +KC12*<WC_SO2>*<WC_HNO4>
- PTERMS(:,102,501) = +TPK%KC12(:)*PCONC(:,101)*PCONC(:,96)
+!PTERMS(O3,K081) = -K081*<CARBO>*<O3>
+ PTERMS(:,1,81) = -TPK%K081(:)*PCONC(:,25)*PCONC(:,1)
!
-!PTERMS(WC_NO2,KC13) = +KC13*<WC_HNO3>
- PTERMS(:,91,502) = +TPK%KC13(:)*PCONC(:,95)
+!PTERMS(CO,K081) = +0.64728*K081*<CARBO>*<O3>
+ PTERMS(:,13,81) = +0.64728*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)
!
-!PTERMS(WC_HNO3,KC13) = -KC13*<WC_HNO3>
- PTERMS(:,95,502) = -TPK%KC13(:)*PCONC(:,95)
+!PTERMS(OH,K081) = +0.20595*K081*<CARBO>*<O3>
+ PTERMS(:,14,81) = +0.20595*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)
!
-!PTERMS(WC_OH,KC13) = +KC13*<WC_HNO3>
- PTERMS(:,98,502) = +TPK%KC13(:)*PCONC(:,95)
+!PTERMS(HO2,K081) = +0.28441*K081*<CARBO>*<O3>
+ PTERMS(:,15,81) = +0.28441*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)
!
-!PTERMS(WC_N2O5,KC14) = -KC14*<WC_N2O5>
- PTERMS(:,93,503) = -TPK%KC14(:)*PCONC(:,93)
+!PTERMS(HCHO,K081) = +0.00000*K081*<CARBO>*<O3>
+ PTERMS(:,22,81) = +0.00000*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)
!
-!PTERMS(WC_HNO3,KC14) = +KC14*<WC_N2O5>
- PTERMS(:,95,503) = +TPK%KC14(:)*PCONC(:,93)
+!PTERMS(ALD,K081) = +0.15692*K081*<CARBO>*<O3>
+ PTERMS(:,23,81) = +0.15692*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)
!
-!PTERMS(WC_NO3,KC15) = -KC15*<WC_H2SO4>*<WC_NO3>
- PTERMS(:,92,504) = -TPK%KC15(:)*PCONC(:,102)*PCONC(:,92)
+!PTERMS(CARBO,K081) = -K081*<CARBO>*<O3>
+ PTERMS(:,25,81) = -TPK%K081(:)*PCONC(:,25)*PCONC(:,1)
!
-!PTERMS(WC_HNO3,KC15) = +KC15*<WC_H2SO4>*<WC_NO3>
- PTERMS(:,95,504) = +TPK%KC15(:)*PCONC(:,102)*PCONC(:,92)
+!PTERMS(OP2,K081) = +0.10149*K081*<CARBO>*<O3>
+ PTERMS(:,29,81) = +0.10149*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)
!
-!PTERMS(WC_H2SO4,KC15) = -KC15*<WC_H2SO4>*<WC_NO3>
- PTERMS(:,102,504) = -TPK%KC15(:)*PCONC(:,102)*PCONC(:,92)
+!PTERMS(ORA1,K081) = +0.10788*K081*<CARBO>*<O3>
+ PTERMS(:,30,81) = +0.10788*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)
!
-!PTERMS(WC_ASO4,KC15) = +KC15*<WC_H2SO4>*<WC_NO3>
- PTERMS(:,121,504) = +TPK%KC15(:)*PCONC(:,102)*PCONC(:,92)
+!PTERMS(ORA2,K081) = +0.20595*K081*<CARBO>*<O3>
+ PTERMS(:,31,81) = +0.20595*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)
!
-!PTERMS(WC_NO3,KC16) = -KC16*<WC_SO2>*<WC_NO3>
- PTERMS(:,92,505) = -TPK%KC16(:)*PCONC(:,101)*PCONC(:,92)
+!PTERMS(CARBOP,K081) = +0.27460*K081*<CARBO>*<O3>
+ PTERMS(:,39,81) = +0.27460*TPK%K081(:)*PCONC(:,25)*PCONC(:,1)
!
-!PTERMS(WC_HNO3,KC16) = +KC16*<WC_SO2>*<WC_NO3>
- PTERMS(:,95,505) = +TPK%KC16(:)*PCONC(:,101)*PCONC(:,92)
+!PTERMS(O3,K082) = -K082*<PAN>*<O3>
+ PTERMS(:,1,82) = -TPK%K082(:)*PCONC(:,27)*PCONC(:,1)
!
-!PTERMS(WC_SO2,KC16) = -KC16*<WC_SO2>*<WC_NO3>
- PTERMS(:,101,505) = -TPK%KC16(:)*PCONC(:,101)*PCONC(:,92)
+!PTERMS(NO2,K082) = +0.70*K082*<PAN>*<O3>
+ PTERMS(:,4,82) = +0.70*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)
!
-!PTERMS(WC_ASO3,KC16) = +KC16*<WC_SO2>*<WC_NO3>
- PTERMS(:,120,505) = +TPK%KC16(:)*PCONC(:,101)*PCONC(:,92)
+!PTERMS(CO,K082) = +0.13*K082*<PAN>*<O3>
+ PTERMS(:,13,82) = +0.13*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)
!
-!PTERMS(WC_SO2,KC17) = -KC17*<WC_HCHO>*<WC_SO2>
- PTERMS(:,101,506) = -TPK%KC17(:)*PCONC(:,108)*PCONC(:,101)
+!PTERMS(OH,K082) = +0.036*K082*<PAN>*<O3>
+ PTERMS(:,14,82) = +0.036*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)
!
-!PTERMS(WC_HCHO,KC17) = -KC17*<WC_HCHO>*<WC_SO2>
- PTERMS(:,108,506) = -TPK%KC17(:)*PCONC(:,108)*PCONC(:,101)
+!PTERMS(HO2,K082) = +0.08*K082*<PAN>*<O3>
+ PTERMS(:,15,82) = +0.08*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)
!
-!PTERMS(WC_AHMS,KC17) = +KC17*<WC_HCHO>*<WC_SO2>
- PTERMS(:,124,506) = +TPK%KC17(:)*PCONC(:,108)*PCONC(:,101)
+!PTERMS(HCHO,K082) = +0.70*K082*<PAN>*<O3>
+ PTERMS(:,22,82) = +0.70*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)
!
!
RETURN
-END SUBROUTINE SUBT73
+END SUBROUTINE SUBT15
!
-SUBROUTINE SUBT74
+SUBROUTINE SUBT16
!
-!Indices 1481 a 1500
+!Indices 321 a 340
!
-!PTERMS(WC_SO2,KC18) = +KC18*<WC_AHMS>
- PTERMS(:,101,507) = +TPK%KC18(:)*PCONC(:,124)
+!PTERMS(PAN,K082) = -K082*<PAN>*<O3>
+ PTERMS(:,27,82) = -TPK%K082(:)*PCONC(:,27)*PCONC(:,1)
!
-!PTERMS(WC_HCHO,KC18) = +KC18*<WC_AHMS>
- PTERMS(:,108,507) = +TPK%KC18(:)*PCONC(:,124)
+!PTERMS(ORA1,K082) = +0.11*K082*<PAN>*<O3>
+ PTERMS(:,30,82) = +0.11*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)
!
-!PTERMS(WC_AHMS,KC18) = -KC18*<WC_AHMS>
- PTERMS(:,124,507) = -TPK%KC18(:)*PCONC(:,124)
+!PTERMS(CARBOP,K082) = +0.70000*K082*<PAN>*<O3>
+ PTERMS(:,39,82) = +0.70000*TPK%K082(:)*PCONC(:,27)*PCONC(:,1)
!
-!PTERMS(WC_OH,KC19) = -KC19*<WC_OH>*<WC_AHMS>
- PTERMS(:,98,508) = -TPK%KC19(:)*PCONC(:,98)*PCONC(:,124)
+!PTERMS(NO2,K083) = -K083*<PHO>*<NO2>
+ PTERMS(:,4,83) = -TPK%K083(:)*PCONC(:,36)*PCONC(:,4)
!
-!PTERMS(WC_HO2,KC19) = +KC19*<WC_OH>*<WC_AHMS>
- PTERMS(:,99,508) = +TPK%KC19(:)*PCONC(:,98)*PCONC(:,124)
+!PTERMS(ARO,K083) = +0.10670*K083*<PHO>*<NO2>
+ PTERMS(:,21,83) = +0.10670*TPK%K083(:)*PCONC(:,36)*PCONC(:,4)
!
-!PTERMS(WC_SO2,KC19) = +KC19*<WC_OH>*<WC_AHMS>
- PTERMS(:,101,508) = +TPK%KC19(:)*PCONC(:,98)*PCONC(:,124)
+!PTERMS(ONIT,K083) = +K083*<PHO>*<NO2>
+ PTERMS(:,26,83) = +TPK%K083(:)*PCONC(:,36)*PCONC(:,4)
!
-!PTERMS(WC_ORA1,KC19) = +KC19*<WC_OH>*<WC_AHMS>
- PTERMS(:,113,508) = +TPK%KC19(:)*PCONC(:,98)*PCONC(:,124)
+!PTERMS(PHO,K083) = -K083*<PHO>*<NO2>
+ PTERMS(:,36,83) = -TPK%K083(:)*PCONC(:,36)*PCONC(:,4)
!
-!PTERMS(WC_AHMS,KC19) = -KC19*<WC_OH>*<WC_AHMS>
- PTERMS(:,124,508) = -TPK%KC19(:)*PCONC(:,98)*PCONC(:,124)
+!PTERMS(HO2,K084) = -K084*<PHO>*<HO2>
+ PTERMS(:,15,84) = -TPK%K084(:)*PCONC(:,36)*PCONC(:,15)
!
-!PTERMS(WC_ASO3,KC20) = -KC20*<W_O2>*<WC_ASO3>
- PTERMS(:,120,509) = -TPK%KC20(:)*TPK%W_O2(:)*PCONC(:,120)
+!PTERMS(ARO,K084) = +1.06698*K084*<PHO>*<HO2>
+ PTERMS(:,21,84) = +1.06698*TPK%K084(:)*PCONC(:,36)*PCONC(:,15)
!
-!PTERMS(WC_ASO5,KC20) = +KC20*<W_O2>*<WC_ASO3>
- PTERMS(:,122,509) = +TPK%KC20(:)*TPK%W_O2(:)*PCONC(:,120)
+!PTERMS(PHO,K084) = -K084*<PHO>*<HO2>
+ PTERMS(:,36,84) = -TPK%K084(:)*PCONC(:,36)*PCONC(:,15)
!
-!PTERMS(WC_HO2,KC21) = -KC21*<WC_HO2>*<WC_ASO5>
- PTERMS(:,99,510) = -TPK%KC21(:)*PCONC(:,99)*PCONC(:,122)
+!PTERMS(NO2,K085) = -K085*<ADD>*<NO2>
+ PTERMS(:,4,85) = -TPK%K085(:)*PCONC(:,37)*PCONC(:,4)
!
-!PTERMS(WC_ASO5,KC21) = -KC21*<WC_HO2>*<WC_ASO5>
- PTERMS(:,122,510) = -TPK%KC21(:)*PCONC(:,99)*PCONC(:,122)
+!PTERMS(HONO,K085) = +K085*<ADD>*<NO2>
+ PTERMS(:,7,85) = +TPK%K085(:)*PCONC(:,37)*PCONC(:,4)
!
-!PTERMS(WC_AHSO5,KC21) = +KC21*<WC_HO2>*<WC_ASO5>
- PTERMS(:,123,510) = +TPK%KC21(:)*PCONC(:,99)*PCONC(:,122)
+!PTERMS(ARO,K085) = +K085*<ADD>*<NO2>
+ PTERMS(:,21,85) = +TPK%K085(:)*PCONC(:,37)*PCONC(:,4)
!
-!PTERMS(WC_ASO4,KC22) = +KC22*<WC_ASO5>*<WC_ASO5>
- PTERMS(:,121,511) = +TPK%KC22(:)*PCONC(:,122)*PCONC(:,122)
+!PTERMS(ADD,K085) = -K085*<ADD>*<NO2>
+ PTERMS(:,37,85) = -TPK%K085(:)*PCONC(:,37)*PCONC(:,4)
!
-!PTERMS(WC_ASO5,KC22) = -KC22*<WC_ASO5>*<WC_ASO5>
- PTERMS(:,122,511) = -TPK%KC22(:)*PCONC(:,122)*PCONC(:,122)
+!PTERMS(HO2,K086) = +0.02*K086*<ADD>*<O2>
+ PTERMS(:,15,86) = +0.02*TPK%K086(:)*PCONC(:,37)*TPK%O2(:)
!
-!PTERMS(WC_SO2,KC23) = -KC23*<WC_SO2>*<WC_AHSO5>
- PTERMS(:,101,512) = -TPK%KC23(:)*PCONC(:,101)*PCONC(:,123)
+!PTERMS(ARO,K086) = +0.02*K086*<ADD>*<O2>
+ PTERMS(:,21,86) = +0.02*TPK%K086(:)*PCONC(:,37)*TPK%O2(:)
!
-!PTERMS(WC_H2SO4,KC23) = +2.00*KC23*<WC_SO2>*<WC_AHSO5>
- PTERMS(:,102,512) = +2.00*TPK%KC23(:)*PCONC(:,101)*PCONC(:,123)
+!PTERMS(ADD,K086) = -K086*<ADD>*<O2>
+ PTERMS(:,37,86) = -TPK%K086(:)*PCONC(:,37)*TPK%O2(:)
!
-!PTERMS(WC_AHSO5,KC23) = -KC23*<WC_SO2>*<WC_AHSO5>
- PTERMS(:,123,512) = -TPK%KC23(:)*PCONC(:,101)*PCONC(:,123)
+!PTERMS(AROP,K086) = +0.98*K086*<ADD>*<O2>
+ PTERMS(:,38,86) = +0.98*TPK%K086(:)*PCONC(:,37)*TPK%O2(:)
!
-!PTERMS(WC_OH,KC24) = +KC24*<WC_ASO4>
- PTERMS(:,98,513) = +TPK%KC24(:)*PCONC(:,121)
+!PTERMS(O3,K087) = -K087*<ADD>*<O3>
+ PTERMS(:,1,87) = -TPK%K087(:)*PCONC(:,37)*PCONC(:,1)
!
-!PTERMS(WC_H2SO4,KC24) = +KC24*<WC_ASO4>
- PTERMS(:,102,513) = +TPK%KC24(:)*PCONC(:,121)
+!PTERMS(OH,K087) = +K087*<ADD>*<O3>
+ PTERMS(:,14,87) = +TPK%K087(:)*PCONC(:,37)*PCONC(:,1)
!
!
RETURN
-END SUBROUTINE SUBT74
+END SUBROUTINE SUBT16
!
-SUBROUTINE SUBT75
+SUBROUTINE SUBT17
!
-!Indices 1501 a 1520
+!Indices 341 a 360
!
-!PTERMS(WC_ASO4,KC24) = -KC24*<WC_ASO4>
- PTERMS(:,121,513) = -TPK%KC24(:)*PCONC(:,121)
+!PTERMS(ARO,K087) = +K087*<ADD>*<O3>
+ PTERMS(:,21,87) = +TPK%K087(:)*PCONC(:,37)*PCONC(:,1)
!
-!PTERMS(WC_O3,KC25) = -KC25*<WC_O3>*<WC_SO2>
- PTERMS(:,88,514) = -TPK%KC25(:)*PCONC(:,88)*PCONC(:,101)
+!PTERMS(ADD,K087) = -K087*<ADD>*<O3>
+ PTERMS(:,37,87) = -TPK%K087(:)*PCONC(:,37)*PCONC(:,1)
!
-!PTERMS(WC_SO2,KC25) = -KC25*<WC_O3>*<WC_SO2>
- PTERMS(:,101,514) = -TPK%KC25(:)*PCONC(:,88)*PCONC(:,101)
+!PTERMS(NO2,K088) = -K088*<CARBOP>*<NO2>
+ PTERMS(:,4,88) = -TPK%K088(:)*PCONC(:,39)*PCONC(:,4)
!
-!PTERMS(WC_H2SO4,KC25) = +KC25*<WC_O3>*<WC_SO2>
- PTERMS(:,102,514) = +TPK%KC25(:)*PCONC(:,88)*PCONC(:,101)
+!PTERMS(PAN,K088) = +1.00000*K088*<CARBOP>*<NO2>
+ PTERMS(:,27,88) = +1.00000*TPK%K088(:)*PCONC(:,39)*PCONC(:,4)
!
-!PTERMS(WC_H2O2,KC26) = -KC26*<WC_H2O2>*<WC_SO2>
- PTERMS(:,89,515) = -TPK%KC26(:)*PCONC(:,89)*PCONC(:,101)
+!PTERMS(CARBOP,K088) = -K088*<CARBOP>*<NO2>
+ PTERMS(:,39,88) = -TPK%K088(:)*PCONC(:,39)*PCONC(:,4)
!
-!PTERMS(WC_SO2,KC26) = -KC26*<WC_H2O2>*<WC_SO2>
- PTERMS(:,101,515) = -TPK%KC26(:)*PCONC(:,89)*PCONC(:,101)
+!PTERMS(NO2,K089) = +K089*<PAN>
+ PTERMS(:,4,89) = +TPK%K089(:)*PCONC(:,27)
!
-!PTERMS(WC_H2SO4,KC26) = +KC26*<WC_H2O2>*<WC_SO2>
- PTERMS(:,102,515) = +TPK%KC26(:)*PCONC(:,89)*PCONC(:,101)
+!PTERMS(PAN,K089) = -K089*<PAN>
+ PTERMS(:,27,89) = -TPK%K089(:)*PCONC(:,27)
!
-!PTERMS(WC_HO2,KC27) = +2.00*KC27*<WC_RO21>*<WC_RO21>
- PTERMS(:,99,516) = +2.00*TPK%KC27(:)*PCONC(:,103)*PCONC(:,103)
+!PTERMS(CARBOP,K089) = +1.00000*K089*<PAN>
+ PTERMS(:,39,89) = +1.00000*TPK%K089(:)*PCONC(:,27)
!
-!PTERMS(WC_RO21,KC27) = -KC27*<WC_RO21>*<WC_RO21>
- PTERMS(:,103,516) = -TPK%KC27(:)*PCONC(:,103)*PCONC(:,103)
+!PTERMS(NO,K090) = -K090*<MO2>*<NO>
+ PTERMS(:,3,90) = -TPK%K090(:)*PCONC(:,32)*PCONC(:,3)
!
-!PTERMS(WC_HCHO,KC27) = +2.00*KC27*<WC_RO21>*<WC_RO21>
- PTERMS(:,108,516) = +2.00*TPK%KC27(:)*PCONC(:,103)*PCONC(:,103)
+!PTERMS(NO2,K090) = +K090*<MO2>*<NO>
+ PTERMS(:,4,90) = +TPK%K090(:)*PCONC(:,32)*PCONC(:,3)
!
-!PTERMS(WC_SO2,KC28) = -KC28*<WC_SO2>*<WC_RO21>
- PTERMS(:,101,517) = -TPK%KC28(:)*PCONC(:,101)*PCONC(:,103)
+!PTERMS(HO2,K090) = +K090*<MO2>*<NO>
+ PTERMS(:,15,90) = +TPK%K090(:)*PCONC(:,32)*PCONC(:,3)
!
-!PTERMS(WC_RO21,KC28) = -KC28*<WC_SO2>*<WC_RO21>
- PTERMS(:,103,517) = -TPK%KC28(:)*PCONC(:,101)*PCONC(:,103)
+!PTERMS(HCHO,K090) = +K090*<MO2>*<NO>
+ PTERMS(:,22,90) = +TPK%K090(:)*PCONC(:,32)*PCONC(:,3)
!
-!PTERMS(WC_HCHO,KC28) = +KC28*<WC_SO2>*<WC_RO21>
- PTERMS(:,108,517) = +TPK%KC28(:)*PCONC(:,101)*PCONC(:,103)
+!PTERMS(MO2,K090) = -K090*<MO2>*<NO>
+ PTERMS(:,32,90) = -TPK%K090(:)*PCONC(:,32)*PCONC(:,3)
!
-!PTERMS(WC_ASO3,KC28) = +KC28*<WC_SO2>*<WC_RO21>
- PTERMS(:,120,517) = +TPK%KC28(:)*PCONC(:,101)*PCONC(:,103)
+!PTERMS(NO,K091) = -K091*<ALKAP>*<NO>
+ PTERMS(:,3,91) = -TPK%K091(:)*PCONC(:,33)*PCONC(:,3)
!
-!PTERMS(WC_H2O2,KC29) = +KC29*<WC_RO25>*<WC_RO25>
- PTERMS(:,89,518) = +TPK%KC29(:)*PCONC(:,104)*PCONC(:,104)
+!PTERMS(NO2,K091) = +0.91541*K091*<ALKAP>*<NO>
+ PTERMS(:,4,91) = +0.91541*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)
!
-!PTERMS(WC_HO2,KC29) = +KC29*<WC_RO25>*<WC_RO25>
- PTERMS(:,99,518) = +TPK%KC29(:)*PCONC(:,104)*PCONC(:,104)
+!PTERMS(HO2,K091) = +0.74265*K091*<ALKAP>*<NO>
+ PTERMS(:,15,91) = +0.74265*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)
!
-!PTERMS(WC_RO25,KC29) = -KC29*<WC_RO25>*<WC_RO25>
- PTERMS(:,104,518) = -TPK%KC29(:)*PCONC(:,104)*PCONC(:,104)
+!PTERMS(HCHO,K091) = +0.03002*K091*<ALKAP>*<NO>
+ PTERMS(:,22,91) = +0.03002*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)
!
-!PTERMS(WC_ALD2,KC29) = +KC29*<WC_RO25>*<WC_RO25>
- PTERMS(:,109,518) = +TPK%KC29(:)*PCONC(:,104)*PCONC(:,104)
+!PTERMS(ALD,K091) = +0.33144*K091*<ALKAP>*<NO>
+ PTERMS(:,23,91) = +0.33144*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)
!
-!PTERMS(WC_ORA2,KC29) = +KC29*<WC_RO25>*<WC_RO25>
- PTERMS(:,114,518) = +TPK%KC29(:)*PCONC(:,104)*PCONC(:,104)
+!PTERMS(KET,K091) = +0.54531*K091*<ALKAP>*<NO>
+ PTERMS(:,24,91) = +0.54531*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)
!
-!PTERMS(WC_OH,KC30) = -KC30*<WC_OH>*<WC_MEOH>
- PTERMS(:,98,519) = -TPK%KC30(:)*PCONC(:,98)*PCONC(:,105)
+!PTERMS(CARBO,K091) = +0.03407*K091*<ALKAP>*<NO>
+ PTERMS(:,25,91) = +0.03407*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)
!
!
RETURN
-END SUBROUTINE SUBT75
+END SUBROUTINE SUBT17
!
-SUBROUTINE SUBT76
+SUBROUTINE SUBT18
!
-!Indices 1521 a 1540
+!Indices 361 a 380
!
-!PTERMS(WC_HO2,KC30) = +KC30*<WC_OH>*<WC_MEOH>
- PTERMS(:,99,519) = +TPK%KC30(:)*PCONC(:,98)*PCONC(:,105)
+!PTERMS(ONIT,K091) = +0.08459*K091*<ALKAP>*<NO>
+ PTERMS(:,26,91) = +0.08459*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)
!
-!PTERMS(WC_MEOH,KC30) = -KC30*<WC_OH>*<WC_MEOH>
- PTERMS(:,105,519) = -TPK%KC30(:)*PCONC(:,98)*PCONC(:,105)
+!PTERMS(MO2,K091) = +0.09016*K091*<ALKAP>*<NO>
+ PTERMS(:,32,91) = +0.09016*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)
!
-!PTERMS(WC_HCHO,KC30) = +KC30*<WC_OH>*<WC_MEOH>
- PTERMS(:,108,519) = +TPK%KC30(:)*PCONC(:,98)*PCONC(:,105)
+!PTERMS(ALKAP,K091) = -K091*<ALKAP>*<NO>
+ PTERMS(:,33,91) = -TPK%K091(:)*PCONC(:,33)*PCONC(:,3)
!
-!PTERMS(WC_OH,KC31) = -KC31*<WC_OH>*<WC_ETOH>
- PTERMS(:,98,520) = -TPK%KC31(:)*PCONC(:,98)*PCONC(:,106)
+!PTERMS(XO2,K091) = +0.13007*K091*<ALKAP>*<NO>
+ PTERMS(:,41,91) = +0.13007*TPK%K091(:)*PCONC(:,33)*PCONC(:,3)
!
-!PTERMS(WC_HO2,KC31) = +KC31*<WC_OH>*<WC_ETOH>
- PTERMS(:,99,520) = +TPK%KC31(:)*PCONC(:,98)*PCONC(:,106)
+!PTERMS(NO,K092) = -K092*<ALKEP>*<NO>
+ PTERMS(:,3,92) = -TPK%K092(:)*PCONC(:,34)*PCONC(:,3)
!
-!PTERMS(WC_ETOH,KC31) = -KC31*<WC_OH>*<WC_ETOH>
- PTERMS(:,106,520) = -TPK%KC31(:)*PCONC(:,98)*PCONC(:,106)
+!PTERMS(NO2,K092) = +K092*<ALKEP>*<NO>
+ PTERMS(:,4,92) = +TPK%K092(:)*PCONC(:,34)*PCONC(:,3)
!
-!PTERMS(WC_ALD2,KC31) = +KC31*<WC_OH>*<WC_ETOH>
- PTERMS(:,109,520) = +TPK%KC31(:)*PCONC(:,98)*PCONC(:,106)
+!PTERMS(HO2,K092) = +K092*<ALKEP>*<NO>
+ PTERMS(:,15,92) = +TPK%K092(:)*PCONC(:,34)*PCONC(:,3)
!
-!PTERMS(WC_OH,KC32) = -KC32*<WC_OH>*<WC_ALCH>
- PTERMS(:,98,521) = -TPK%KC32(:)*PCONC(:,98)*PCONC(:,107)
+!PTERMS(HCHO,K092) = +1.39870*K092*<ALKEP>*<NO>
+ PTERMS(:,22,92) = +1.39870*TPK%K092(:)*PCONC(:,34)*PCONC(:,3)
!
-!PTERMS(WC_HO2,KC32) = +KC32*<WC_OH>*<WC_ALCH>
- PTERMS(:,99,521) = +TPK%KC32(:)*PCONC(:,98)*PCONC(:,107)
+!PTERMS(ALD,K092) = +0.42125*K092*<ALKEP>*<NO>
+ PTERMS(:,23,92) = +0.42125*TPK%K092(:)*PCONC(:,34)*PCONC(:,3)
!
-!PTERMS(WC_ALCH,KC32) = -KC32*<WC_OH>*<WC_ALCH>
- PTERMS(:,107,521) = -TPK%KC32(:)*PCONC(:,98)*PCONC(:,107)
+!PTERMS(KET,K092) = +0.05220*K092*<ALKEP>*<NO>
+ PTERMS(:,24,92) = +0.05220*TPK%K092(:)*PCONC(:,34)*PCONC(:,3)
!
-!PTERMS(WC_ALD2,KC32) = +0.50*KC32*<WC_OH>*<WC_ALCH>
- PTERMS(:,109,521) = +0.50*TPK%KC32(:)*PCONC(:,98)*PCONC(:,107)
+!PTERMS(ALKEP,K092) = -K092*<ALKEP>*<NO>
+ PTERMS(:,34,92) = -TPK%K092(:)*PCONC(:,34)*PCONC(:,3)
!
-!PTERMS(WC_KETL,KC32) = +0.50*KC32*<WC_OH>*<WC_ALCH>
- PTERMS(:,112,521) = +0.50*TPK%KC32(:)*PCONC(:,98)*PCONC(:,107)
+!PTERMS(NO,K093) = -K093*<BIOP>*<NO>
+ PTERMS(:,3,93) = -TPK%K093(:)*PCONC(:,35)*PCONC(:,3)
!
-!PTERMS(WC_OH,KC33) = -KC33*<WC_OH>*<WC_HCHO>
- PTERMS(:,98,522) = -TPK%KC33(:)*PCONC(:,98)*PCONC(:,108)
+!PTERMS(NO2,K093) = +0.84700*K093*<BIOP>*<NO>
+ PTERMS(:,4,93) = +0.84700*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)
!
-!PTERMS(WC_HO2,KC33) = +KC33*<WC_OH>*<WC_HCHO>
- PTERMS(:,99,522) = +TPK%KC33(:)*PCONC(:,98)*PCONC(:,108)
+!PTERMS(HO2,K093) = +0.84700*K093*<BIOP>*<NO>
+ PTERMS(:,15,93) = +0.84700*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)
!
-!PTERMS(WC_HCHO,KC33) = -KC33*<WC_OH>*<WC_HCHO>
- PTERMS(:,108,522) = -TPK%KC33(:)*PCONC(:,98)*PCONC(:,108)
+!PTERMS(ALKE,K093) = +0.37815*K093*<BIOP>*<NO>
+ PTERMS(:,19,93) = +0.37815*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)
!
-!PTERMS(WC_ORA1,KC33) = +KC33*<WC_OH>*<WC_HCHO>
- PTERMS(:,113,522) = +TPK%KC33(:)*PCONC(:,98)*PCONC(:,108)
+!PTERMS(HCHO,K093) = +0.60600*K093*<BIOP>*<NO>
+ PTERMS(:,22,93) = +0.60600*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)
!
-!PTERMS(WC_OH,KC34) = -KC34*<WC_OH>*<WC_ALD2>
- PTERMS(:,98,523) = -TPK%KC34(:)*PCONC(:,98)*PCONC(:,109)
+!PTERMS(ALD,K093) = +0.00000*K093*<BIOP>*<NO>
+ PTERMS(:,23,93) = +0.00000*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)
!
-!PTERMS(WC_CO2,KC34) = +KC34*<WC_OH>*<WC_ALD2>
- PTERMS(:,100,523) = +TPK%KC34(:)*PCONC(:,98)*PCONC(:,109)
+!PTERMS(KET,K093) = +0.00000*K093*<BIOP>*<NO>
+ PTERMS(:,24,93) = +0.00000*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)
!
-!PTERMS(WC_RO21,KC34) = +0.50*KC34*<WC_OH>*<WC_ALD2>
- PTERMS(:,103,523) = +0.50*TPK%KC34(:)*PCONC(:,98)*PCONC(:,109)
+!PTERMS(CARBO,K093) = +0.45463*K093*<BIOP>*<NO>
+ PTERMS(:,25,93) = +0.45463*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)
!
-!PTERMS(WC_RO25,KC34) = +0.50*KC34*<WC_OH>*<WC_ALD2>
- PTERMS(:,104,523) = +0.50*TPK%KC34(:)*PCONC(:,98)*PCONC(:,109)
+!PTERMS(ONIT,K093) = +0.15300*K093*<BIOP>*<NO>
+ PTERMS(:,26,93) = +0.15300*TPK%K093(:)*PCONC(:,35)*PCONC(:,3)
!
!
RETURN
-END SUBROUTINE SUBT76
+END SUBROUTINE SUBT18
!
-SUBROUTINE SUBT77
+SUBROUTINE SUBT19
!
-!Indices 1541 a 1560
+!Indices 381 a 400
!
-!PTERMS(WC_ALD2,KC34) = -KC34*<WC_OH>*<WC_ALD2>
- PTERMS(:,109,523) = -TPK%KC34(:)*PCONC(:,98)*PCONC(:,109)
+!PTERMS(BIOP,K093) = -K093*<BIOP>*<NO>
+ PTERMS(:,35,93) = -TPK%K093(:)*PCONC(:,35)*PCONC(:,3)
!
-!PTERMS(WC_OH,KC35) = -KC35*<WC_OH>*<WC_GLY>
- PTERMS(:,98,524) = -TPK%KC35(:)*PCONC(:,98)*PCONC(:,110)
+!PTERMS(NO,K094) = -K094*<AROP>*<NO>
+ PTERMS(:,3,94) = -TPK%K094(:)*PCONC(:,38)*PCONC(:,3)
!
-!PTERMS(WC_HO2,KC35) = +KC35*<WC_OH>*<WC_GLY>
- PTERMS(:,99,524) = +TPK%KC35(:)*PCONC(:,98)*PCONC(:,110)
+!PTERMS(NO2,K094) = +0.95115*K094*<AROP>*<NO>
+ PTERMS(:,4,94) = +0.95115*TPK%K094(:)*PCONC(:,38)*PCONC(:,3)
!
-!PTERMS(WC_GLY,KC35) = -KC35*<WC_OH>*<WC_GLY>
- PTERMS(:,110,524) = -TPK%KC35(:)*PCONC(:,98)*PCONC(:,110)
+!PTERMS(HO2,K094) = +0.95115*K094*<AROP>*<NO>
+ PTERMS(:,15,94) = +0.95115*TPK%K094(:)*PCONC(:,38)*PCONC(:,3)
!
-!PTERMS(WC_RP16,KC35) = +KC35*<WC_OH>*<WC_GLY>
- PTERMS(:,116,524) = +TPK%KC35(:)*PCONC(:,98)*PCONC(:,110)
+!PTERMS(CARBO,K094) = +2.06993*K094*<AROP>*<NO>
+ PTERMS(:,25,94) = +2.06993*TPK%K094(:)*PCONC(:,38)*PCONC(:,3)
!
-!PTERMS(WC_OH,KC36) = -KC36*<WC_OH>*<WC_MGLY>
- PTERMS(:,98,525) = -TPK%KC36(:)*PCONC(:,98)*PCONC(:,111)
+!PTERMS(ONIT,K094) = +0.04885*K094*<AROP>*<NO>
+ PTERMS(:,26,94) = +0.04885*TPK%K094(:)*PCONC(:,38)*PCONC(:,3)
!
-!PTERMS(WC_HO2,KC36) = +KC36*<WC_OH>*<WC_MGLY>
- PTERMS(:,99,525) = +TPK%KC36(:)*PCONC(:,98)*PCONC(:,111)
+!PTERMS(AROP,K094) = -K094*<AROP>*<NO>
+ PTERMS(:,38,94) = -TPK%K094(:)*PCONC(:,38)*PCONC(:,3)
!
-!PTERMS(WC_MGLY,KC36) = -KC36*<WC_OH>*<WC_MGLY>
- PTERMS(:,111,525) = -TPK%KC36(:)*PCONC(:,98)*PCONC(:,111)
+!PTERMS(NO,K095) = -K095*<CARBOP>*<NO>
+ PTERMS(:,3,95) = -TPK%K095(:)*PCONC(:,39)*PCONC(:,3)
!
-!PTERMS(WC_UR21,KC36) = +KC36*<WC_OH>*<WC_MGLY>
- PTERMS(:,117,525) = +TPK%KC36(:)*PCONC(:,98)*PCONC(:,111)
+!PTERMS(NO2,K095) = +K095*<CARBOP>*<NO>
+ PTERMS(:,4,95) = +TPK%K095(:)*PCONC(:,39)*PCONC(:,3)
!
-!PTERMS(WC_H2O2,KC37) = +KC37*<WC_OH>*<WC_KETL>
- PTERMS(:,89,526) = +TPK%KC37(:)*PCONC(:,98)*PCONC(:,112)
+!PTERMS(HO2,K095) = +0.12334*K095*<CARBOP>*<NO>
+ PTERMS(:,15,95) = +0.12334*TPK%K095(:)*PCONC(:,39)*PCONC(:,3)
!
-!PTERMS(WC_OH,KC37) = -KC37*<WC_OH>*<WC_KETL>
- PTERMS(:,98,526) = -TPK%KC37(:)*PCONC(:,98)*PCONC(:,112)
+!PTERMS(HCHO,K095) = +0.05848*K095*<CARBOP>*<NO>
+ PTERMS(:,22,95) = +0.05848*TPK%K095(:)*PCONC(:,39)*PCONC(:,3)
!
-!PTERMS(WC_HO2,KC37) = +KC37*<WC_OH>*<WC_KETL>
- PTERMS(:,99,526) = +TPK%KC37(:)*PCONC(:,98)*PCONC(:,112)
+!PTERMS(ALD,K095) = +0.07368*K095*<CARBOP>*<NO>
+ PTERMS(:,23,95) = +0.07368*TPK%K095(:)*PCONC(:,39)*PCONC(:,3)
!
-!PTERMS(WC_CO2,KC37) = +KC37*<WC_OH>*<WC_KETL>
- PTERMS(:,100,526) = +TPK%KC37(:)*PCONC(:,98)*PCONC(:,112)
+!PTERMS(CARBO,K095) = +0.08670*K095*<CARBOP>*<NO>
+ PTERMS(:,25,95) = +0.08670*TPK%K095(:)*PCONC(:,39)*PCONC(:,3)
!
-!PTERMS(WC_RO21,KC37) = +KC37*<WC_OH>*<WC_KETL>
- PTERMS(:,103,526) = +TPK%KC37(:)*PCONC(:,98)*PCONC(:,112)
+!PTERMS(MO2,K095) = +0.78134*K095*<CARBOP>*<NO>
+ PTERMS(:,32,95) = +0.78134*TPK%K095(:)*PCONC(:,39)*PCONC(:,3)
!
-!PTERMS(WC_HCHO,KC37) = +KC37*<WC_OH>*<WC_KETL>
- PTERMS(:,108,526) = +TPK%KC37(:)*PCONC(:,98)*PCONC(:,112)
+!PTERMS(CARBOP,K095) = -K095*<CARBOP>*<NO>
+ PTERMS(:,39,95) = -TPK%K095(:)*PCONC(:,39)*PCONC(:,3)
!
-!PTERMS(WC_ALD2,KC37) = +KC37*<WC_OH>*<WC_KETL>
- PTERMS(:,109,526) = +TPK%KC37(:)*PCONC(:,98)*PCONC(:,112)
+!PTERMS(XO2,K095) = +0.02563*K095*<CARBOP>*<NO>
+ PTERMS(:,41,95) = +0.02563*TPK%K095(:)*PCONC(:,39)*PCONC(:,3)
!
-!PTERMS(WC_MGLY,KC37) = +KC37*<WC_OH>*<WC_KETL>
- PTERMS(:,111,526) = +TPK%KC37(:)*PCONC(:,98)*PCONC(:,112)
+!PTERMS(NO,K096) = -K096*<OLN>*<NO>
+ PTERMS(:,3,96) = -TPK%K096(:)*PCONC(:,40)*PCONC(:,3)
!
-!PTERMS(WC_KETL,KC37) = -KC37*<WC_OH>*<WC_KETL>
- PTERMS(:,112,526) = -TPK%KC37(:)*PCONC(:,98)*PCONC(:,112)
+!PTERMS(NO2,K096) = +1.81599*K096*<OLN>*<NO>
+ PTERMS(:,4,96) = +1.81599*TPK%K096(:)*PCONC(:,40)*PCONC(:,3)
!
-!PTERMS(WC_UR21,KC37) = +KC37*<WC_OH>*<WC_KETL>
- PTERMS(:,117,526) = +TPK%KC37(:)*PCONC(:,98)*PCONC(:,112)
+!PTERMS(HO2,K096) = +0.18401*K096*<OLN>*<NO>
+ PTERMS(:,15,96) = +0.18401*TPK%K096(:)*PCONC(:,40)*PCONC(:,3)
!
-!PTERMS(WC_OH,KC38) = -KC38*<WC_OH>*<WC_ORA1>
- PTERMS(:,98,527) = -TPK%KC38(:)*PCONC(:,98)*PCONC(:,113)
+!PTERMS(HCHO,K096) = +0.23419*K096*<OLN>*<NO>
+ PTERMS(:,22,96) = +0.23419*TPK%K096(:)*PCONC(:,40)*PCONC(:,3)
!
!
RETURN
-END SUBROUTINE SUBT77
+END SUBROUTINE SUBT19
!
-SUBROUTINE SUBT78
+SUBROUTINE SUBT20
!
-!Indices 1561 a 1580
+!Indices 401 a 420
!
-!PTERMS(WC_HO2,KC38) = +KC38*<WC_OH>*<WC_ORA1>
- PTERMS(:,99,527) = +TPK%KC38(:)*PCONC(:,98)*PCONC(:,113)
+!PTERMS(ALD,K096) = +1.01182*K096*<OLN>*<NO>
+ PTERMS(:,23,96) = +1.01182*TPK%K096(:)*PCONC(:,40)*PCONC(:,3)
!
-!PTERMS(WC_CO2,KC38) = +KC38*<WC_OH>*<WC_ORA1>
- PTERMS(:,100,527) = +TPK%KC38(:)*PCONC(:,98)*PCONC(:,113)
+!PTERMS(KET,K096) = +0.37862*K096*<OLN>*<NO>
+ PTERMS(:,24,96) = +0.37862*TPK%K096(:)*PCONC(:,40)*PCONC(:,3)
!
-!PTERMS(WC_ORA1,KC38) = -KC38*<WC_OH>*<WC_ORA1>
- PTERMS(:,113,527) = -TPK%KC38(:)*PCONC(:,98)*PCONC(:,113)
+!PTERMS(ONIT,K096) = +0.18401*K096*<OLN>*<NO>
+ PTERMS(:,26,96) = +0.18401*TPK%K096(:)*PCONC(:,40)*PCONC(:,3)
!
-!PTERMS(WC_H2O2,KC39) = +0.5*KC39*<WC_OH>*<WC_ORA2>
- PTERMS(:,89,528) = +0.5*TPK%KC39(:)*PCONC(:,98)*PCONC(:,114)
+!PTERMS(OLN,K096) = -K096*<OLN>*<NO>
+ PTERMS(:,40,96) = -TPK%K096(:)*PCONC(:,40)*PCONC(:,3)
!
-!PTERMS(WC_OH,KC39) = -KC39*<WC_OH>*<WC_ORA2>
- PTERMS(:,98,528) = -TPK%KC39(:)*PCONC(:,98)*PCONC(:,114)
+!PTERMS(HO2,K097) = -K097*<MO2>*<HO2>
+ PTERMS(:,15,97) = -TPK%K097(:)*PCONC(:,32)*PCONC(:,15)
!
-!PTERMS(WC_ORA2,KC39) = -KC39*<WC_OH>*<WC_ORA2>
- PTERMS(:,114,528) = -TPK%KC39(:)*PCONC(:,98)*PCONC(:,114)
+!PTERMS(OP1,K097) = +K097*<MO2>*<HO2>
+ PTERMS(:,28,97) = +TPK%K097(:)*PCONC(:,32)*PCONC(:,15)
!
-!PTERMS(WC_RP16,KC39) = +KC39*<WC_OH>*<WC_ORA2>
- PTERMS(:,116,528) = +TPK%KC39(:)*PCONC(:,98)*PCONC(:,114)
+!PTERMS(MO2,K097) = -K097*<MO2>*<HO2>
+ PTERMS(:,32,97) = -TPK%K097(:)*PCONC(:,32)*PCONC(:,15)
!
-!PTERMS(WC_OH,KC40) = -KC40*<WC_OH>*<WC_ACID>
- PTERMS(:,98,529) = -TPK%KC40(:)*PCONC(:,98)*PCONC(:,115)
+!PTERMS(HO2,K098) = -K098*<ALKAP>*<HO2>
+ PTERMS(:,15,98) = -TPK%K098(:)*PCONC(:,33)*PCONC(:,15)
!
-!PTERMS(WC_CO2,KC40) = +KC40*<WC_OH>*<WC_ACID>
- PTERMS(:,100,529) = +TPK%KC40(:)*PCONC(:,98)*PCONC(:,115)
+!PTERMS(OP2,K098) = +1.00524*K098*<ALKAP>*<HO2>
+ PTERMS(:,29,98) = +1.00524*TPK%K098(:)*PCONC(:,33)*PCONC(:,15)
!
-!PTERMS(WC_RO25,KC40) = +KC40*<WC_OH>*<WC_ACID>
- PTERMS(:,104,529) = +TPK%KC40(:)*PCONC(:,98)*PCONC(:,115)
+!PTERMS(ALKAP,K098) = -K098*<ALKAP>*<HO2>
+ PTERMS(:,33,98) = -TPK%K098(:)*PCONC(:,33)*PCONC(:,15)
!
-!PTERMS(WC_ACID,KC40) = -KC40*<WC_OH>*<WC_ACID>
- PTERMS(:,115,529) = -TPK%KC40(:)*PCONC(:,98)*PCONC(:,115)
+!PTERMS(HO2,K099) = -K099*<ALKEP>*<HO2>
+ PTERMS(:,15,99) = -TPK%K099(:)*PCONC(:,34)*PCONC(:,15)
!
-!PTERMS(WC_H2O2,KC41) = +0.29*KC41*<WC_OH>*<WC_ACID>
- PTERMS(:,89,530) = +0.29*TPK%KC41(:)*PCONC(:,98)*PCONC(:,115)
+!PTERMS(OP2,K099) = +1.00524*K099*<ALKEP>*<HO2>
+ PTERMS(:,29,99) = +1.00524*TPK%K099(:)*PCONC(:,34)*PCONC(:,15)
!
-!PTERMS(WC_OH,KC41) = -KC41*<WC_OH>*<WC_ACID>
- PTERMS(:,98,530) = -TPK%KC41(:)*PCONC(:,98)*PCONC(:,115)
+!PTERMS(ALKEP,K099) = -K099*<ALKEP>*<HO2>
+ PTERMS(:,34,99) = -TPK%K099(:)*PCONC(:,34)*PCONC(:,15)
!
-!PTERMS(WC_HO2,KC41) = +0.11*KC41*<WC_OH>*<WC_ACID>
- PTERMS(:,99,530) = +0.11*TPK%KC41(:)*PCONC(:,98)*PCONC(:,115)
+!PTERMS(HO2,K0100) = -K0100*<BIOP>*<HO2>
+ PTERMS(:,15,100) = -TPK%K0100(:)*PCONC(:,35)*PCONC(:,15)
!
-!PTERMS(WC_ALD2,KC41) = +0.29*KC41*<WC_OH>*<WC_ACID>
- PTERMS(:,109,530) = +0.29*TPK%KC41(:)*PCONC(:,98)*PCONC(:,115)
+!PTERMS(OP2,K0100) = +1.00524*K0100*<BIOP>*<HO2>
+ PTERMS(:,29,100) = +1.00524*TPK%K0100(:)*PCONC(:,35)*PCONC(:,15)
!
-!PTERMS(WC_ACID,KC41) = -KC41*<WC_OH>*<WC_ACID>
- PTERMS(:,115,530) = -TPK%KC41(:)*PCONC(:,98)*PCONC(:,115)
+!PTERMS(BIOP,K0100) = -K0100*<BIOP>*<HO2>
+ PTERMS(:,35,100) = -TPK%K0100(:)*PCONC(:,35)*PCONC(:,15)
!
-!PTERMS(WC_UR21,KC41) = +0.56*KC41*<WC_OH>*<WC_ACID>
- PTERMS(:,117,530) = +0.56*TPK%KC41(:)*PCONC(:,98)*PCONC(:,115)
+!PTERMS(HO2,K0101) = -K0101*<AROP>*<HO2>
+ PTERMS(:,15,101) = -TPK%K0101(:)*PCONC(:,38)*PCONC(:,15)
!
-!PTERMS(WC_ACID2,KC41) = +0.15*KC41*<WC_OH>*<WC_ACID>
- PTERMS(:,119,530) = +0.15*TPK%KC41(:)*PCONC(:,98)*PCONC(:,115)
+!PTERMS(OP2,K0101) = +1.00524*K0101*<AROP>*<HO2>
+ PTERMS(:,29,101) = +1.00524*TPK%K0101(:)*PCONC(:,38)*PCONC(:,15)
!
-!PTERMS(WC_OH,KC42) = -KC42*<WC_OH>*<WC_UR28>
- PTERMS(:,98,531) = -TPK%KC42(:)*PCONC(:,98)*PCONC(:,118)
+!PTERMS(AROP,K0101) = -K0101*<AROP>*<HO2>
+ PTERMS(:,38,101) = -TPK%K0101(:)*PCONC(:,38)*PCONC(:,15)
!
-!PTERMS(WC_HO2,KC42) = +KC42*<WC_OH>*<WC_UR28>
- PTERMS(:,99,531) = +TPK%KC42(:)*PCONC(:,98)*PCONC(:,118)
+!PTERMS(O3,K0102) = +0.17307*K0102*<CARBOP>*<HO2>
+ PTERMS(:,1,102) = +0.17307*TPK%K0102(:)*PCONC(:,39)*PCONC(:,15)
!
!
RETURN
-END SUBROUTINE SUBT78
+END SUBROUTINE SUBT20
!
-SUBROUTINE SUBT79
+SUBROUTINE SUBT21
!
-!Indices 1581 a 1600
+!Indices 421 a 440
!
-!PTERMS(WC_CO2,KC42) = +2*KC42*<WC_OH>*<WC_UR28>
- PTERMS(:,100,531) = +2*TPK%KC42(:)*PCONC(:,98)*PCONC(:,118)
+!PTERMS(HO2,K0102) = -K0102*<CARBOP>*<HO2>
+ PTERMS(:,15,102) = -TPK%K0102(:)*PCONC(:,39)*PCONC(:,15)
!
-!PTERMS(WC_UR28,KC42) = -KC42*<WC_OH>*<WC_UR28>
- PTERMS(:,118,531) = -TPK%KC42(:)*PCONC(:,98)*PCONC(:,118)
+!PTERMS(OP2,K0102) = +0.80904*K0102*<CARBOP>*<HO2>
+ PTERMS(:,29,102) = +0.80904*TPK%K0102(:)*PCONC(:,39)*PCONC(:,15)
!
-!PTERMS(WC_H2O2,KC43) = +0.3*KC43*<WC_OH>*<WC_UR21>
- PTERMS(:,89,532) = +0.3*TPK%KC43(:)*PCONC(:,98)*PCONC(:,117)
+!PTERMS(ORA2,K0102) = +0.17307*K0102*<CARBOP>*<HO2>
+ PTERMS(:,31,102) = +0.17307*TPK%K0102(:)*PCONC(:,39)*PCONC(:,15)
!
-!PTERMS(WC_OH,KC43) = -KC43*<WC_OH>*<WC_UR21>
- PTERMS(:,98,532) = -TPK%KC43(:)*PCONC(:,98)*PCONC(:,117)
+!PTERMS(CARBOP,K0102) = -K0102*<CARBOP>*<HO2>
+ PTERMS(:,39,102) = -TPK%K0102(:)*PCONC(:,39)*PCONC(:,15)
!
-!PTERMS(WC_HO2,KC43) = +0.81*KC43*<WC_OH>*<WC_UR21>
- PTERMS(:,99,532) = +0.81*TPK%KC43(:)*PCONC(:,98)*PCONC(:,117)
+!PTERMS(HO2,K103) = -K103*<OLN>*<HO2>
+ PTERMS(:,15,103) = -TPK%K103(:)*PCONC(:,40)*PCONC(:,15)
!
-!PTERMS(WC_CO2,KC43) = +0.43*KC43*<WC_OH>*<WC_UR21>
- PTERMS(:,100,532) = +0.43*TPK%KC43(:)*PCONC(:,98)*PCONC(:,117)
+!PTERMS(ONIT,K103) = +K103*<OLN>*<HO2>
+ PTERMS(:,26,103) = +TPK%K103(:)*PCONC(:,40)*PCONC(:,15)
!
-!PTERMS(WC_ALD2,KC43) = +0.43*KC43*<WC_OH>*<WC_UR21>
- PTERMS(:,109,532) = +0.43*TPK%KC43(:)*PCONC(:,98)*PCONC(:,117)
+!PTERMS(OLN,K103) = -K103*<OLN>*<HO2>
+ PTERMS(:,40,103) = -TPK%K103(:)*PCONC(:,40)*PCONC(:,15)
!
-!PTERMS(WC_UR21,KC43) = -KC43*<WC_OH>*<WC_UR21>
- PTERMS(:,117,532) = -TPK%KC43(:)*PCONC(:,98)*PCONC(:,117)
+!PTERMS(HO2,K104) = +0.66*K104*<MO2>*<MO2>
+ PTERMS(:,15,104) = +0.66*TPK%K104(:)*PCONC(:,32)*PCONC(:,32)
!
-!PTERMS(WC_ACID2,KC43) = +0.56*KC43*<WC_OH>*<WC_UR21>
- PTERMS(:,119,532) = +0.56*TPK%KC43(:)*PCONC(:,98)*PCONC(:,117)
+!PTERMS(HCHO,K104) = +1.33*K104*<MO2>*<MO2>
+ PTERMS(:,22,104) = +1.33*TPK%K104(:)*PCONC(:,32)*PCONC(:,32)
!
-!PTERMS(WC_OH,KC44) = -KC44*<WC_OH>*<WC_RP16>
- PTERMS(:,98,533) = -TPK%KC44(:)*PCONC(:,98)*PCONC(:,116)
+!PTERMS(MO2,K104) = -K104*<MO2>*<MO2>
+ PTERMS(:,32,104) = -TPK%K104(:)*PCONC(:,32)*PCONC(:,32)
!
-!PTERMS(WC_HO2,KC44) = +KC44*<WC_OH>*<WC_RP16>
- PTERMS(:,99,533) = +TPK%KC44(:)*PCONC(:,98)*PCONC(:,116)
+!PTERMS(HO2,K105) = +0.98383*K105*<ALKAP>*<MO2>
+ PTERMS(:,15,105) = +0.98383*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)
!
-!PTERMS(WC_RP16,KC44) = -KC44*<WC_OH>*<WC_RP16>
- PTERMS(:,116,533) = -TPK%KC44(:)*PCONC(:,98)*PCONC(:,116)
+!PTERMS(HCHO,K105) = +0.80556*K105*<ALKAP>*<MO2>
+ PTERMS(:,22,105) = +0.80556*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)
!
-!PTERMS(WC_UR28,KC44) = +KC44*<WC_OH>*<WC_RP16>
- PTERMS(:,118,533) = +TPK%KC44(:)*PCONC(:,98)*PCONC(:,116)
+!PTERMS(ALD,K105) = +0.56070*K105*<ALKAP>*<MO2>
+ PTERMS(:,23,105) = +0.56070*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)
!
-!PTERMS(WC_H2O2,KC45) = +0.45*KC45*<WC_OH>*<WC_RP16>
- PTERMS(:,89,534) = +0.45*TPK%KC45(:)*PCONC(:,98)*PCONC(:,116)
+!PTERMS(KET,K105) = +0.09673*K105*<ALKAP>*<MO2>
+ PTERMS(:,24,105) = +0.09673*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)
!
-!PTERMS(WC_OH,KC45) = -KC45*<WC_OH>*<WC_RP16>
- PTERMS(:,98,534) = -TPK%KC45(:)*PCONC(:,98)*PCONC(:,116)
+!PTERMS(CARBO,K105) = +0.07976*K105*<ALKAP>*<MO2>
+ PTERMS(:,25,105) = +0.07976*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)
!
-!PTERMS(WC_HO2,KC45) = +0.71*KC45*<WC_OH>*<WC_RP16>
- PTERMS(:,99,534) = +0.71*TPK%KC45(:)*PCONC(:,98)*PCONC(:,116)
+!PTERMS(MO2,K105) = -K105*<ALKAP>*<MO2>
+ PTERMS(:,32,105) = -TPK%K105(:)*PCONC(:,33)*PCONC(:,32)
!
-!PTERMS(WC_CO2,KC45) = +2*KC45*<WC_OH>*<WC_RP16>
- PTERMS(:,100,534) = +2*TPK%KC45(:)*PCONC(:,98)*PCONC(:,116)
+!PTERMS(ALKAP,K105) = -K105*<ALKAP>*<MO2>
+ PTERMS(:,33,105) = -TPK%K105(:)*PCONC(:,33)*PCONC(:,32)
!
-!PTERMS(WC_RP16,KC45) = -KC45*<WC_OH>*<WC_RP16>
- PTERMS(:,116,534) = -TPK%KC45(:)*PCONC(:,98)*PCONC(:,116)
+!PTERMS(XO2,K105) = +0.13370*K105*<ALKAP>*<MO2>
+ PTERMS(:,41,105) = +0.13370*TPK%K105(:)*PCONC(:,33)*PCONC(:,32)
!
-!PTERMS(WC_OH,KC46) = -KC46*<WC_OH>*<WC_ACID2>
- PTERMS(:,98,535) = -TPK%KC46(:)*PCONC(:,98)*PCONC(:,119)
+!PTERMS(HO2,K106) = +K106*<ALKEP>*<MO2>
+ PTERMS(:,15,106) = +TPK%K106(:)*PCONC(:,34)*PCONC(:,32)
!
-!PTERMS(WC_ACID2,KC46) = -KC46*<WC_OH>*<WC_ACID2>
- PTERMS(:,119,535) = -TPK%KC46(:)*PCONC(:,98)*PCONC(:,119)
+!PTERMS(HCHO,K106) = +1.42894*K106*<ALKEP>*<MO2>
+ PTERMS(:,22,106) = +1.42894*TPK%K106(:)*PCONC(:,34)*PCONC(:,32)
!
!
RETURN
-END SUBROUTINE SUBT79
+END SUBROUTINE SUBT21
!
-SUBROUTINE SUBT80
+SUBROUTINE SUBT22
!
-!Indices 1601 a 1620
+!Indices 441 a 460
!
-!PTERMS(WR_H2O2,KR1) = -KR1*<WR_H2O2>
- PTERMS(:,126,536) = -TPK%KR1(:)*PCONC(:,126)
+!PTERMS(ALD,K106) = +0.46413*K106*<ALKEP>*<MO2>
+ PTERMS(:,23,106) = +0.46413*TPK%K106(:)*PCONC(:,34)*PCONC(:,32)
!
-!PTERMS(WR_OH,KR1) = +KR1*<WR_H2O2>
- PTERMS(:,135,536) = +TPK%KR1(:)*PCONC(:,126)
+!PTERMS(KET,K106) = +0.03814*K106*<ALKEP>*<MO2>
+ PTERMS(:,24,106) = +0.03814*TPK%K106(:)*PCONC(:,34)*PCONC(:,32)
!
-!PTERMS(WR_H2O2,KR2) = +KR2*<WR_OH>*<WR_OH>
- PTERMS(:,126,537) = +TPK%KR2(:)*PCONC(:,135)*PCONC(:,135)
+!PTERMS(MO2,K106) = -K106*<ALKEP>*<MO2>
+ PTERMS(:,32,106) = -TPK%K106(:)*PCONC(:,34)*PCONC(:,32)
!
-!PTERMS(WR_OH,KR2) = -KR2*<WR_OH>*<WR_OH>
- PTERMS(:,135,537) = -TPK%KR2(:)*PCONC(:,135)*PCONC(:,135)
+!PTERMS(ALKEP,K106) = -K106*<ALKEP>*<MO2>
+ PTERMS(:,34,106) = -TPK%K106(:)*PCONC(:,34)*PCONC(:,32)
!
-!PTERMS(WR_OH,KR3) = -KR3*<WR_HO2>*<WR_OH>
- PTERMS(:,135,538) = -TPK%KR3(:)*PCONC(:,136)*PCONC(:,135)
+!PTERMS(HO2,K107) = +1.00000*K107*<BIOP>*<MO2>
+ PTERMS(:,15,107) = +1.00000*TPK%K107(:)*PCONC(:,35)*PCONC(:,32)
!
-!PTERMS(WR_HO2,KR3) = -KR3*<WR_HO2>*<WR_OH>
- PTERMS(:,136,538) = -TPK%KR3(:)*PCONC(:,136)*PCONC(:,135)
+!PTERMS(ALKE,K107) = +0.48074*K107*<BIOP>*<MO2>
+ PTERMS(:,19,107) = +0.48074*TPK%K107(:)*PCONC(:,35)*PCONC(:,32)
!
-!PTERMS(WR_H2O2,KR4) = -KR4*<WR_OH>*<WR_H2O2>
- PTERMS(:,126,539) = -TPK%KR4(:)*PCONC(:,135)*PCONC(:,126)
+!PTERMS(HCHO,K107) = +1.09000*K107*<BIOP>*<MO2>
+ PTERMS(:,22,107) = +1.09000*TPK%K107(:)*PCONC(:,35)*PCONC(:,32)
!
-!PTERMS(WR_OH,KR4) = -KR4*<WR_OH>*<WR_H2O2>
- PTERMS(:,135,539) = -TPK%KR4(:)*PCONC(:,135)*PCONC(:,126)
+!PTERMS(ALD,K107) = +0.00000*K107*<BIOP>*<MO2>
+ PTERMS(:,23,107) = +0.00000*TPK%K107(:)*PCONC(:,35)*PCONC(:,32)
!
-!PTERMS(WR_HO2,KR4) = +KR4*<WR_OH>*<WR_H2O2>
- PTERMS(:,136,539) = +TPK%KR4(:)*PCONC(:,135)*PCONC(:,126)
+!PTERMS(KET,K107) = +0.00000*K107*<BIOP>*<MO2>
+ PTERMS(:,24,107) = +0.00000*TPK%K107(:)*PCONC(:,35)*PCONC(:,32)
!
-!PTERMS(WR_H2O2,KR5) = +KR5*<WR_HO2>*<WR_HO2>
- PTERMS(:,126,540) = +TPK%KR5(:)*PCONC(:,136)*PCONC(:,136)
+!PTERMS(CARBO,K107) = +0.56064*K107*<BIOP>*<MO2>
+ PTERMS(:,25,107) = +0.56064*TPK%K107(:)*PCONC(:,35)*PCONC(:,32)
!
-!PTERMS(WR_HO2,KR5) = -KR5*<WR_HO2>*<WR_HO2>
- PTERMS(:,136,540) = -TPK%KR5(:)*PCONC(:,136)*PCONC(:,136)
+!PTERMS(MO2,K107) = -K107*<BIOP>*<MO2>
+ PTERMS(:,32,107) = -TPK%K107(:)*PCONC(:,35)*PCONC(:,32)
!
-!PTERMS(WR_O3,KR6) = -KR6*<WR_HO2>*<WR_O3>
- PTERMS(:,125,541) = -TPK%KR6(:)*PCONC(:,136)*PCONC(:,125)
+!PTERMS(BIOP,K107) = -K107*<BIOP>*<MO2>
+ PTERMS(:,35,107) = -TPK%K107(:)*PCONC(:,35)*PCONC(:,32)
!
-!PTERMS(WR_OH,KR6) = +KR6*<WR_HO2>*<WR_O3>
- PTERMS(:,135,541) = +TPK%KR6(:)*PCONC(:,136)*PCONC(:,125)
+!PTERMS(HO2,K108) = +1.02767*K108*<AROP>*<MO2>
+ PTERMS(:,15,108) = +1.02767*TPK%K108(:)*PCONC(:,38)*PCONC(:,32)
!
-!PTERMS(WR_HO2,KR6) = -KR6*<WR_HO2>*<WR_O3>
- PTERMS(:,136,541) = -TPK%KR6(:)*PCONC(:,136)*PCONC(:,125)
+!PTERMS(HCHO,K108) = +K108*<AROP>*<MO2>
+ PTERMS(:,22,108) = +TPK%K108(:)*PCONC(:,38)*PCONC(:,32)
!
-!PTERMS(WR_OH,KR7) = -KR7*<WR_SO2>*<WR_OH>
- PTERMS(:,135,542) = -TPK%KR7(:)*PCONC(:,138)*PCONC(:,135)
+!PTERMS(CARBO,K108) = +1.99461*K108*<AROP>*<MO2>
+ PTERMS(:,25,108) = +1.99461*TPK%K108(:)*PCONC(:,38)*PCONC(:,32)
!
-!PTERMS(WR_SO2,KR7) = -KR7*<WR_SO2>*<WR_OH>
- PTERMS(:,138,542) = -TPK%KR7(:)*PCONC(:,138)*PCONC(:,135)
+!PTERMS(MO2,K108) = -K108*<AROP>*<MO2>
+ PTERMS(:,32,108) = -TPK%K108(:)*PCONC(:,38)*PCONC(:,32)
!
-!PTERMS(WR_ASO3,KR7) = +KR7*<WR_SO2>*<WR_OH>
- PTERMS(:,157,542) = +TPK%KR7(:)*PCONC(:,138)*PCONC(:,135)
+!PTERMS(AROP,K108) = -K108*<AROP>*<MO2>
+ PTERMS(:,38,108) = -TPK%K108(:)*PCONC(:,38)*PCONC(:,32)
!
-!PTERMS(WR_NO2,KR8) = +KR8*<WR_OH>*<WR_HONO>
- PTERMS(:,128,543) = +TPK%KR8(:)*PCONC(:,135)*PCONC(:,131)
+!PTERMS(HO2,K109) = +0.82998*K109*<CARBOP>*<MO2>
+ PTERMS(:,15,109) = +0.82998*TPK%K109(:)*PCONC(:,39)*PCONC(:,32)
!
-!PTERMS(WR_HONO,KR8) = -KR8*<WR_OH>*<WR_HONO>
- PTERMS(:,131,543) = -TPK%KR8(:)*PCONC(:,135)*PCONC(:,131)
+!PTERMS(HCHO,K109) = +0.95723*K109*<CARBOP>*<MO2>
+ PTERMS(:,22,109) = +0.95723*TPK%K109(:)*PCONC(:,39)*PCONC(:,32)
!
-!PTERMS(WR_OH,KR8) = -KR8*<WR_OH>*<WR_HONO>
- PTERMS(:,135,543) = -TPK%KR8(:)*PCONC(:,135)*PCONC(:,131)
+!PTERMS(ALD,K109) = +0.08295*K109*<CARBOP>*<MO2>
+ PTERMS(:,23,109) = +0.08295*TPK%K109(:)*PCONC(:,39)*PCONC(:,32)
!
!
RETURN
-END SUBROUTINE SUBT80
+END SUBROUTINE SUBT22
!
-SUBROUTINE SUBT81
+SUBROUTINE SUBT23
!
-!Indices 1621 a 1640
+!Indices 461 a 480
!
-!PTERMS(WR_NO2,KR9) = -KR9*<WR_HO2>*<WR_NO2>
- PTERMS(:,128,544) = -TPK%KR9(:)*PCONC(:,136)*PCONC(:,128)
+!PTERMS(CARBO,K109) = +0.15387*K109*<CARBOP>*<MO2>
+ PTERMS(:,25,109) = +0.15387*TPK%K109(:)*PCONC(:,39)*PCONC(:,32)
!
-!PTERMS(WR_HNO4,KR9) = +KR9*<WR_HO2>*<WR_NO2>
- PTERMS(:,133,544) = +TPK%KR9(:)*PCONC(:,136)*PCONC(:,128)
+!PTERMS(ORA2,K109) = +0.13684*K109*<CARBOP>*<MO2>
+ PTERMS(:,31,109) = +0.13684*TPK%K109(:)*PCONC(:,39)*PCONC(:,32)
!
-!PTERMS(WR_HO2,KR9) = -KR9*<WR_HO2>*<WR_NO2>
- PTERMS(:,136,544) = -TPK%KR9(:)*PCONC(:,136)*PCONC(:,128)
+!PTERMS(MO2,K109) = -K109*<CARBOP>*<MO2>
+ PTERMS(:,32,109) = -TPK%K109(:)*PCONC(:,39)*PCONC(:,32)
!
-!PTERMS(WR_NO2,KR10) = +KR10*<WR_HNO4>
- PTERMS(:,128,545) = +TPK%KR10(:)*PCONC(:,133)
+!PTERMS(CARBOP,K109) = -K109*<CARBOP>*<MO2>
+ PTERMS(:,39,109) = -TPK%K109(:)*PCONC(:,39)*PCONC(:,32)
!
-!PTERMS(WR_HNO4,KR10) = -KR10*<WR_HNO4>
- PTERMS(:,133,545) = -TPK%KR10(:)*PCONC(:,133)
+!PTERMS(XO2,K109) = +0.02212*K109*<CARBOP>*<MO2>
+ PTERMS(:,41,109) = +0.02212*TPK%K109(:)*PCONC(:,39)*PCONC(:,32)
!
-!PTERMS(WR_HO2,KR10) = +KR10*<WR_HNO4>
- PTERMS(:,136,545) = +TPK%KR10(:)*PCONC(:,133)
+!PTERMS(NO2,K110) = +0.32440*K110*<OLN>*<MO2>
+ PTERMS(:,4,110) = +0.32440*TPK%K110(:)*PCONC(:,40)*PCONC(:,32)
!
-!PTERMS(WR_HONO,KR11) = +KR11*<WR_HNO4>
- PTERMS(:,131,546) = +TPK%KR11(:)*PCONC(:,133)
+!PTERMS(HO2,K110) = +0.67560*K110*<OLN>*<MO2>
+ PTERMS(:,15,110) = +0.67560*TPK%K110(:)*PCONC(:,40)*PCONC(:,32)
!
-!PTERMS(WR_HNO4,KR11) = -KR11*<WR_HNO4>
- PTERMS(:,133,546) = -TPK%KR11(:)*PCONC(:,133)
+!PTERMS(HCHO,K110) = +0.88625*K110*<OLN>*<MO2>
+ PTERMS(:,22,110) = +0.88625*TPK%K110(:)*PCONC(:,40)*PCONC(:,32)
!
-!PTERMS(WR_HNO3,KR12) = +KR12*<WR_SO2>*<WR_HNO4>
- PTERMS(:,132,547) = +TPK%KR12(:)*PCONC(:,138)*PCONC(:,133)
+!PTERMS(ALD,K110) = +0.41524*K110*<OLN>*<MO2>
+ PTERMS(:,23,110) = +0.41524*TPK%K110(:)*PCONC(:,40)*PCONC(:,32)
!
-!PTERMS(WR_HNO4,KR12) = -KR12*<WR_SO2>*<WR_HNO4>
- PTERMS(:,133,547) = -TPK%KR12(:)*PCONC(:,138)*PCONC(:,133)
+!PTERMS(KET,K110) = +0.09667*K110*<OLN>*<MO2>
+ PTERMS(:,24,110) = +0.09667*TPK%K110(:)*PCONC(:,40)*PCONC(:,32)
!
-!PTERMS(WR_SO2,KR12) = -KR12*<WR_SO2>*<WR_HNO4>
- PTERMS(:,138,547) = -TPK%KR12(:)*PCONC(:,138)*PCONC(:,133)
+!PTERMS(ONIT,K110) = +0.67560*K110*<OLN>*<MO2>
+ PTERMS(:,26,110) = +0.67560*TPK%K110(:)*PCONC(:,40)*PCONC(:,32)
!
-!PTERMS(WR_H2SO4,KR12) = +KR12*<WR_SO2>*<WR_HNO4>
- PTERMS(:,139,547) = +TPK%KR12(:)*PCONC(:,138)*PCONC(:,133)
+!PTERMS(MO2,K110) = -K110*<OLN>*<MO2>
+ PTERMS(:,32,110) = -TPK%K110(:)*PCONC(:,40)*PCONC(:,32)
!
-!PTERMS(WR_NO2,KR13) = +KR13*<WR_HNO3>
- PTERMS(:,128,548) = +TPK%KR13(:)*PCONC(:,132)
+!PTERMS(OLN,K110) = -K110*<OLN>*<MO2>
+ PTERMS(:,40,110) = -TPK%K110(:)*PCONC(:,40)*PCONC(:,32)
!
-!PTERMS(WR_HNO3,KR13) = -KR13*<WR_HNO3>
- PTERMS(:,132,548) = -TPK%KR13(:)*PCONC(:,132)
+!PTERMS(HO2,K111) = +0.48079*K111*<ALKAP>*<CARBOP>
+ PTERMS(:,15,111) = +0.48079*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)
!
-!PTERMS(WR_OH,KR13) = +KR13*<WR_HNO3>
- PTERMS(:,135,548) = +TPK%KR13(:)*PCONC(:,132)
+!PTERMS(HCHO,K111) = +0.07600*K111*<ALKAP>*<CARBOP>
+ PTERMS(:,22,111) = +0.07600*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)
!
-!PTERMS(WR_N2O5,KR14) = -KR14*<WR_N2O5>
- PTERMS(:,130,549) = -TPK%KR14(:)*PCONC(:,130)
+!PTERMS(ALD,K111) = +0.71461*K111*<ALKAP>*<CARBOP>
+ PTERMS(:,23,111) = +0.71461*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)
!
-!PTERMS(WR_HNO3,KR14) = +KR14*<WR_N2O5>
- PTERMS(:,132,549) = +TPK%KR14(:)*PCONC(:,130)
+!PTERMS(KET,K111) = +0.18819*K111*<ALKAP>*<CARBOP>
+ PTERMS(:,24,111) = +0.18819*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)
!
-!PTERMS(WR_NO3,KR15) = -KR15*<WR_H2SO4>*<WR_NO3>
- PTERMS(:,129,550) = -TPK%KR15(:)*PCONC(:,139)*PCONC(:,129)
+!PTERMS(CARBO,K111) = +0.06954*K111*<ALKAP>*<CARBOP>
+ PTERMS(:,25,111) = +0.06954*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)
!
-!PTERMS(WR_HNO3,KR15) = +KR15*<WR_H2SO4>*<WR_NO3>
- PTERMS(:,132,550) = +TPK%KR15(:)*PCONC(:,139)*PCONC(:,129)
+!PTERMS(ORA2,K111) = +0.49810*K111*<ALKAP>*<CARBOP>
+ PTERMS(:,31,111) = +0.49810*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)
!
-!PTERMS(WR_H2SO4,KR15) = -KR15*<WR_H2SO4>*<WR_NO3>
- PTERMS(:,139,550) = -TPK%KR15(:)*PCONC(:,139)*PCONC(:,129)
+!PTERMS(MO2,K111) = +0.51480*K111*<ALKAP>*<CARBOP>
+ PTERMS(:,32,111) = +0.51480*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)
!
!
RETURN
-END SUBROUTINE SUBT81
+END SUBROUTINE SUBT23
!
-SUBROUTINE SUBT82
+SUBROUTINE SUBT24
!
-!Indices 1641 a 1660
+!Indices 481 a 500
!
-!PTERMS(WR_ASO4,KR15) = +KR15*<WR_H2SO4>*<WR_NO3>
- PTERMS(:,158,550) = +TPK%KR15(:)*PCONC(:,139)*PCONC(:,129)
+!PTERMS(ALKAP,K111) = -K111*<ALKAP>*<CARBOP>
+ PTERMS(:,33,111) = -TPK%K111(:)*PCONC(:,33)*PCONC(:,39)
!
-!PTERMS(WR_NO3,KR16) = -KR16*<WR_SO2>*<WR_NO3>
- PTERMS(:,129,551) = -TPK%KR16(:)*PCONC(:,138)*PCONC(:,129)
+!PTERMS(CARBOP,K111) = -K111*<ALKAP>*<CARBOP>
+ PTERMS(:,39,111) = -TPK%K111(:)*PCONC(:,33)*PCONC(:,39)
!
-!PTERMS(WR_HNO3,KR16) = +KR16*<WR_SO2>*<WR_NO3>
- PTERMS(:,132,551) = +TPK%KR16(:)*PCONC(:,138)*PCONC(:,129)
+!PTERMS(XO2,K111) = +0.11306*K111*<ALKAP>*<CARBOP>
+ PTERMS(:,41,111) = +0.11306*TPK%K111(:)*PCONC(:,33)*PCONC(:,39)
!
-!PTERMS(WR_SO2,KR16) = -KR16*<WR_SO2>*<WR_NO3>
- PTERMS(:,138,551) = -TPK%KR16(:)*PCONC(:,138)*PCONC(:,129)
+!PTERMS(HO2,K112) = +0.50078*K112*<ALKEP>*<CARBOP>
+ PTERMS(:,15,112) = +0.50078*TPK%K112(:)*PCONC(:,34)*PCONC(:,39)
!
-!PTERMS(WR_ASO3,KR16) = +KR16*<WR_SO2>*<WR_NO3>
- PTERMS(:,157,551) = +TPK%KR16(:)*PCONC(:,138)*PCONC(:,129)
+!PTERMS(HCHO,K112) = +0.68192*K112*<ALKEP>*<CARBOP>
+ PTERMS(:,22,112) = +0.68192*TPK%K112(:)*PCONC(:,34)*PCONC(:,39)
!
-!PTERMS(WR_SO2,KR17) = -KR17*<WR_HCHO>*<WR_SO2>
- PTERMS(:,138,552) = -TPK%KR17(:)*PCONC(:,145)*PCONC(:,138)
+!PTERMS(ALD,K112) = +0.68374*K112*<ALKEP>*<CARBOP>
+ PTERMS(:,23,112) = +0.68374*TPK%K112(:)*PCONC(:,34)*PCONC(:,39)
!
-!PTERMS(WR_HCHO,KR17) = -KR17*<WR_HCHO>*<WR_SO2>
- PTERMS(:,145,552) = -TPK%KR17(:)*PCONC(:,145)*PCONC(:,138)
+!PTERMS(KET,K112) = +0.06579*K112*<ALKEP>*<CARBOP>
+ PTERMS(:,24,112) = +0.06579*TPK%K112(:)*PCONC(:,34)*PCONC(:,39)
!
-!PTERMS(WR_AHMS,KR17) = +KR17*<WR_HCHO>*<WR_SO2>
- PTERMS(:,161,552) = +TPK%KR17(:)*PCONC(:,145)*PCONC(:,138)
+!PTERMS(ORA2,K112) = +0.49922*K112*<ALKEP>*<CARBOP>
+ PTERMS(:,31,112) = +0.49922*TPK%K112(:)*PCONC(:,34)*PCONC(:,39)
!
-!PTERMS(WR_SO2,KR18) = +KR18*<WR_AHMS>
- PTERMS(:,138,553) = +TPK%KR18(:)*PCONC(:,161)
+!PTERMS(MO2,K112) = +0.50078*K112*<ALKEP>*<CARBOP>
+ PTERMS(:,32,112) = +0.50078*TPK%K112(:)*PCONC(:,34)*PCONC(:,39)
!
-!PTERMS(WR_HCHO,KR18) = +KR18*<WR_AHMS>
- PTERMS(:,145,553) = +TPK%KR18(:)*PCONC(:,161)
+!PTERMS(ALKEP,K112) = -K112*<ALKEP>*<CARBOP>
+ PTERMS(:,34,112) = -TPK%K112(:)*PCONC(:,34)*PCONC(:,39)
!
-!PTERMS(WR_AHMS,KR18) = -KR18*<WR_AHMS>
- PTERMS(:,161,553) = -TPK%KR18(:)*PCONC(:,161)
+!PTERMS(CARBOP,K112) = -K112*<ALKEP>*<CARBOP>
+ PTERMS(:,39,112) = -TPK%K112(:)*PCONC(:,34)*PCONC(:,39)
!
-!PTERMS(WR_OH,KR19) = -KR19*<WR_OH>*<WR_AHMS>
- PTERMS(:,135,554) = -TPK%KR19(:)*PCONC(:,135)*PCONC(:,161)
+!PTERMS(HO2,K113) = +0.50600*K113*<BIOP>*<CARBOP>
+ PTERMS(:,15,113) = +0.50600*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)
!
-!PTERMS(WR_HO2,KR19) = +KR19*<WR_OH>*<WR_AHMS>
- PTERMS(:,136,554) = +TPK%KR19(:)*PCONC(:,135)*PCONC(:,161)
+!PTERMS(ALKE,K113) = +0.24463*K113*<BIOP>*<CARBOP>
+ PTERMS(:,19,113) = +0.24463*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)
!
-!PTERMS(WR_SO2,KR19) = +KR19*<WR_OH>*<WR_AHMS>
- PTERMS(:,138,554) = +TPK%KR19(:)*PCONC(:,135)*PCONC(:,161)
+!PTERMS(HCHO,K113) = +0.34000*K113*<BIOP>*<CARBOP>
+ PTERMS(:,22,113) = +0.34000*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)
!
-!PTERMS(WR_ORA1,KR19) = +KR19*<WR_OH>*<WR_AHMS>
- PTERMS(:,150,554) = +TPK%KR19(:)*PCONC(:,135)*PCONC(:,161)
+!PTERMS(ALD,K113) = +0.00000*K113*<BIOP>*<CARBOP>
+ PTERMS(:,23,113) = +0.00000*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)
!
-!PTERMS(WR_AHMS,KR19) = -KR19*<WR_OH>*<WR_AHMS>
- PTERMS(:,161,554) = -TPK%KR19(:)*PCONC(:,135)*PCONC(:,161)
+!PTERMS(KET,K113) = +0.00000*K113*<BIOP>*<CARBOP>
+ PTERMS(:,24,113) = +0.00000*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)
!
-!PTERMS(WR_ASO3,KR20) = -KR20*<W_O2>*<WR_ASO3>
- PTERMS(:,157,555) = -TPK%KR20(:)*TPK%W_O2(:)*PCONC(:,157)
+!PTERMS(CARBO,K113) = +0.78591*K113*<BIOP>*<CARBOP>
+ PTERMS(:,25,113) = +0.78591*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)
!
-!PTERMS(WR_ASO5,KR20) = +KR20*<W_O2>*<WR_ASO3>
- PTERMS(:,159,555) = +TPK%KR20(:)*TPK%W_O2(:)*PCONC(:,157)
+!PTERMS(ORA2,K113) = +0.49400*K113*<BIOP>*<CARBOP>
+ PTERMS(:,31,113) = +0.49400*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)
!
-!PTERMS(WR_HO2,KR21) = -KR21*<WR_HO2>*<WR_ASO5>
- PTERMS(:,136,556) = -TPK%KR21(:)*PCONC(:,136)*PCONC(:,159)
+!PTERMS(MO2,K113) = +0.50600*K113*<BIOP>*<CARBOP>
+ PTERMS(:,32,113) = +0.50600*TPK%K113(:)*PCONC(:,35)*PCONC(:,39)
!
-!PTERMS(WR_ASO5,KR21) = -KR21*<WR_HO2>*<WR_ASO5>
- PTERMS(:,159,556) = -TPK%KR21(:)*PCONC(:,136)*PCONC(:,159)
+!PTERMS(BIOP,K113) = -K113*<BIOP>*<CARBOP>
+ PTERMS(:,35,113) = -TPK%K113(:)*PCONC(:,35)*PCONC(:,39)
!
!
RETURN
-END SUBROUTINE SUBT82
+END SUBROUTINE SUBT24
!
-SUBROUTINE SUBT83
+SUBROUTINE SUBT25
!
-!Indices 1661 a 1680
+!Indices 501 a 520
!
-!PTERMS(WR_AHSO5,KR21) = +KR21*<WR_HO2>*<WR_ASO5>
- PTERMS(:,160,556) = +TPK%KR21(:)*PCONC(:,136)*PCONC(:,159)
+!PTERMS(CARBOP,K113) = -K113*<BIOP>*<CARBOP>
+ PTERMS(:,39,113) = -TPK%K113(:)*PCONC(:,35)*PCONC(:,39)
!
-!PTERMS(WR_ASO4,KR22) = +KR22*<WR_ASO5>*<WR_ASO5>
- PTERMS(:,158,557) = +TPK%KR22(:)*PCONC(:,159)*PCONC(:,159)
+!PTERMS(HO2,K114) = +K114*<AROP>*<CARBOP>
+ PTERMS(:,15,114) = +TPK%K114(:)*PCONC(:,38)*PCONC(:,39)
!
-!PTERMS(WR_ASO5,KR22) = -KR22*<WR_ASO5>*<WR_ASO5>
- PTERMS(:,159,557) = -TPK%KR22(:)*PCONC(:,159)*PCONC(:,159)
+!PTERMS(CARBO,K114) = +1.99455*K114*<AROP>*<CARBOP>
+ PTERMS(:,25,114) = +1.99455*TPK%K114(:)*PCONC(:,38)*PCONC(:,39)
!
-!PTERMS(WR_SO2,KR23) = -KR23*<WR_SO2>*<WR_AHSO5>
- PTERMS(:,138,558) = -TPK%KR23(:)*PCONC(:,138)*PCONC(:,160)
+!PTERMS(MO2,K114) = +K114*<AROP>*<CARBOP>
+ PTERMS(:,32,114) = +TPK%K114(:)*PCONC(:,38)*PCONC(:,39)
!
-!PTERMS(WR_H2SO4,KR23) = +2.00*KR23*<WR_SO2>*<WR_AHSO5>
- PTERMS(:,139,558) = +2.00*TPK%KR23(:)*PCONC(:,138)*PCONC(:,160)
+!PTERMS(AROP,K114) = -K114*<AROP>*<CARBOP>
+ PTERMS(:,38,114) = -TPK%K114(:)*PCONC(:,38)*PCONC(:,39)
!
-!PTERMS(WR_AHSO5,KR23) = -KR23*<WR_SO2>*<WR_AHSO5>
- PTERMS(:,160,558) = -TPK%KR23(:)*PCONC(:,138)*PCONC(:,160)
+!PTERMS(CARBOP,K114) = -K114*<AROP>*<CARBOP>
+ PTERMS(:,39,114) = -TPK%K114(:)*PCONC(:,38)*PCONC(:,39)
!
-!PTERMS(WR_OH,KR24) = +KR24*<WR_ASO4>
- PTERMS(:,135,559) = +TPK%KR24(:)*PCONC(:,158)
+!PTERMS(HO2,K115) = +0.07566*K115*<CARBOP>*<CARBOP>
+ PTERMS(:,15,115) = +0.07566*TPK%K115(:)*PCONC(:,39)*PCONC(:,39)
!
-!PTERMS(WR_H2SO4,KR24) = +KR24*<WR_ASO4>
- PTERMS(:,139,559) = +TPK%KR24(:)*PCONC(:,158)
+!PTERMS(HCHO,K115) = +0.03432*K115*<CARBOP>*<CARBOP>
+ PTERMS(:,22,115) = +0.03432*TPK%K115(:)*PCONC(:,39)*PCONC(:,39)
!
-!PTERMS(WR_ASO4,KR24) = -KR24*<WR_ASO4>
- PTERMS(:,158,559) = -TPK%KR24(:)*PCONC(:,158)
+!PTERMS(ALD,K115) = +0.06969*K115*<CARBOP>*<CARBOP>
+ PTERMS(:,23,115) = +0.06969*TPK%K115(:)*PCONC(:,39)*PCONC(:,39)
!
-!PTERMS(WR_O3,KR25) = -KR25*<WR_O3>*<WR_SO2>
- PTERMS(:,125,560) = -TPK%KR25(:)*PCONC(:,125)*PCONC(:,138)
+!PTERMS(KET,K115) = +0.02190*K115*<CARBOP>*<CARBOP>
+ PTERMS(:,24,115) = +0.02190*TPK%K115(:)*PCONC(:,39)*PCONC(:,39)
!
-!PTERMS(WR_SO2,KR25) = -KR25*<WR_O3>*<WR_SO2>
- PTERMS(:,138,560) = -TPK%KR25(:)*PCONC(:,125)*PCONC(:,138)
+!PTERMS(CARBO,K115) = +0.10777*K115*<CARBOP>*<CARBOP>
+ PTERMS(:,25,115) = +0.10777*TPK%K115(:)*PCONC(:,39)*PCONC(:,39)
!
-!PTERMS(WR_H2SO4,KR25) = +KR25*<WR_O3>*<WR_SO2>
- PTERMS(:,139,560) = +TPK%KR25(:)*PCONC(:,125)*PCONC(:,138)
+!PTERMS(ORA2,K115) = +0.09955*K115*<CARBOP>*<CARBOP>
+ PTERMS(:,31,115) = +0.09955*TPK%K115(:)*PCONC(:,39)*PCONC(:,39)
!
-!PTERMS(WR_H2O2,KR26) = -KR26*<WR_H2O2>*<WR_SO2>
- PTERMS(:,126,561) = -TPK%KR26(:)*PCONC(:,126)*PCONC(:,138)
+!PTERMS(MO2,K115) = +1.66702*K115*<CARBOP>*<CARBOP>
+ PTERMS(:,32,115) = +1.66702*TPK%K115(:)*PCONC(:,39)*PCONC(:,39)
!
-!PTERMS(WR_SO2,KR26) = -KR26*<WR_H2O2>*<WR_SO2>
- PTERMS(:,138,561) = -TPK%KR26(:)*PCONC(:,126)*PCONC(:,138)
+!PTERMS(CARBOP,K115) = -K115*<CARBOP>*<CARBOP>
+ PTERMS(:,39,115) = -TPK%K115(:)*PCONC(:,39)*PCONC(:,39)
!
-!PTERMS(WR_H2SO4,KR26) = +KR26*<WR_H2O2>*<WR_SO2>
- PTERMS(:,139,561) = +TPK%KR26(:)*PCONC(:,126)*PCONC(:,138)
+!PTERMS(XO2,K115) = +0.01593*K115*<CARBOP>*<CARBOP>
+ PTERMS(:,41,115) = +0.01593*TPK%K115(:)*PCONC(:,39)*PCONC(:,39)
!
-!PTERMS(WR_HO2,KR27) = +2.00*KR27*<WR_RO21>*<WR_RO21>
- PTERMS(:,136,562) = +2.00*TPK%KR27(:)*PCONC(:,140)*PCONC(:,140)
+!PTERMS(NO2,K116) = +0.00000*K116*<OLN>*<CARBOP>
+ PTERMS(:,4,116) = +0.00000*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)
!
-!PTERMS(WR_RO21,KR27) = -KR27*<WR_RO21>*<WR_RO21>
- PTERMS(:,140,562) = -TPK%KR27(:)*PCONC(:,140)*PCONC(:,140)
+!PTERMS(HO2,K116) = +0.17599*K116*<OLN>*<CARBOP>
+ PTERMS(:,15,116) = +0.17599*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)
!
-!PTERMS(WR_HCHO,KR27) = +2.00*KR27*<WR_RO21>*<WR_RO21>
- PTERMS(:,145,562) = +2.00*TPK%KR27(:)*PCONC(:,140)*PCONC(:,140)
+!PTERMS(HCHO,K116) = +0.13414*K116*<OLN>*<CARBOP>
+ PTERMS(:,22,116) = +0.13414*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)
!
-!PTERMS(WR_SO2,KR28) = -KR28*<WR_SO2>*<WR_RO21>
- PTERMS(:,138,563) = -TPK%KR28(:)*PCONC(:,138)*PCONC(:,140)
+!PTERMS(ALD,K116) = +0.42122*K116*<OLN>*<CARBOP>
+ PTERMS(:,23,116) = +0.42122*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)
!
-!PTERMS(WR_RO21,KR28) = -KR28*<WR_SO2>*<WR_RO21>
- PTERMS(:,140,563) = -TPK%KR28(:)*PCONC(:,138)*PCONC(:,140)
+!PTERMS(KET,K116) = +0.10822*K116*<OLN>*<CARBOP>
+ PTERMS(:,24,116) = +0.10822*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)
!
!
RETURN
-END SUBROUTINE SUBT83
+END SUBROUTINE SUBT25
!
-SUBROUTINE SUBT84
+SUBROUTINE SUBT26
!
-!Indices 1681 a 1700
+!Indices 521 a 540
!
-!PTERMS(WR_HCHO,KR28) = +KR28*<WR_SO2>*<WR_RO21>
- PTERMS(:,145,563) = +TPK%KR28(:)*PCONC(:,138)*PCONC(:,140)
+!PTERMS(ONIT,K116) = +0.66562*K116*<OLN>*<CARBOP>
+ PTERMS(:,26,116) = +0.66562*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)
!
-!PTERMS(WR_ASO3,KR28) = +KR28*<WR_SO2>*<WR_RO21>
- PTERMS(:,157,563) = +TPK%KR28(:)*PCONC(:,138)*PCONC(:,140)
+!PTERMS(ORA2,K116) = +0.48963*K116*<OLN>*<CARBOP>
+ PTERMS(:,31,116) = +0.48963*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)
!
-!PTERMS(WR_H2O2,KR29) = +KR29*<WR_RO25>*<WR_RO25>
- PTERMS(:,126,564) = +TPK%KR29(:)*PCONC(:,141)*PCONC(:,141)
+!PTERMS(MO2,K116) = +0.51037*K116*<OLN>*<CARBOP>
+ PTERMS(:,32,116) = +0.51037*TPK%K116(:)*PCONC(:,40)*PCONC(:,39)
!
-!PTERMS(WR_HO2,KR29) = +KR29*<WR_RO25>*<WR_RO25>
- PTERMS(:,136,564) = +TPK%KR29(:)*PCONC(:,141)*PCONC(:,141)
+!PTERMS(CARBOP,K116) = -K116*<OLN>*<CARBOP>
+ PTERMS(:,39,116) = -TPK%K116(:)*PCONC(:,40)*PCONC(:,39)
!
-!PTERMS(WR_RO25,KR29) = -KR29*<WR_RO25>*<WR_RO25>
- PTERMS(:,141,564) = -TPK%KR29(:)*PCONC(:,141)*PCONC(:,141)
+!PTERMS(OLN,K116) = -K116*<OLN>*<CARBOP>
+ PTERMS(:,40,116) = -TPK%K116(:)*PCONC(:,40)*PCONC(:,39)
!
-!PTERMS(WR_ALD2,KR29) = +KR29*<WR_RO25>*<WR_RO25>
- PTERMS(:,146,564) = +TPK%KR29(:)*PCONC(:,141)*PCONC(:,141)
+!PTERMS(HO2,K117) = +K117*<OLN>*<OLN>
+ PTERMS(:,15,117) = +TPK%K117(:)*PCONC(:,40)*PCONC(:,40)
!
-!PTERMS(WR_ORA2,KR29) = +KR29*<WR_RO25>*<WR_RO25>
- PTERMS(:,151,564) = +TPK%KR29(:)*PCONC(:,141)*PCONC(:,141)
+!PTERMS(ONIT,K117) = +2.00*K117*<OLN>*<OLN>
+ PTERMS(:,26,117) = +2.00*TPK%K117(:)*PCONC(:,40)*PCONC(:,40)
!
-!PTERMS(WR_OH,KR30) = -KR30*<WR_OH>*<WR_MEOH>
- PTERMS(:,135,565) = -TPK%KR30(:)*PCONC(:,135)*PCONC(:,142)
+!PTERMS(OLN,K117) = -K117*<OLN>*<OLN>
+ PTERMS(:,40,117) = -TPK%K117(:)*PCONC(:,40)*PCONC(:,40)
!
-!PTERMS(WR_HO2,KR30) = +KR30*<WR_OH>*<WR_MEOH>
- PTERMS(:,136,565) = +TPK%KR30(:)*PCONC(:,135)*PCONC(:,142)
+!PTERMS(NO2,K118) = +0.00000*K118*<OLN>*<OLN>
+ PTERMS(:,4,118) = +0.00000*TPK%K118(:)*PCONC(:,40)*PCONC(:,40)
!
-!PTERMS(WR_MEOH,KR30) = -KR30*<WR_OH>*<WR_MEOH>
- PTERMS(:,142,565) = -TPK%KR30(:)*PCONC(:,135)*PCONC(:,142)
+!PTERMS(HO2,K118) = +0.00000*K118*<OLN>*<OLN>
+ PTERMS(:,15,118) = +0.00000*TPK%K118(:)*PCONC(:,40)*PCONC(:,40)
!
-!PTERMS(WR_HCHO,KR30) = +KR30*<WR_OH>*<WR_MEOH>
- PTERMS(:,145,565) = +TPK%KR30(:)*PCONC(:,135)*PCONC(:,142)
+!PTERMS(HCHO,K118) = +0.00000*K118*<OLN>*<OLN>
+ PTERMS(:,22,118) = +0.00000*TPK%K118(:)*PCONC(:,40)*PCONC(:,40)
!
-!PTERMS(WR_OH,KR31) = -KR31*<WR_OH>*<WR_ETOH>
- PTERMS(:,135,566) = -TPK%KR31(:)*PCONC(:,135)*PCONC(:,143)
+!PTERMS(ALD,K118) = +0.00000*K118*<OLN>*<OLN>
+ PTERMS(:,23,118) = +0.00000*TPK%K118(:)*PCONC(:,40)*PCONC(:,40)
!
-!PTERMS(WR_HO2,KR31) = +KR31*<WR_OH>*<WR_ETOH>
- PTERMS(:,136,566) = +TPK%KR31(:)*PCONC(:,135)*PCONC(:,143)
+!PTERMS(KET,K118) = +0.00000*K118*<OLN>*<OLN>
+ PTERMS(:,24,118) = +0.00000*TPK%K118(:)*PCONC(:,40)*PCONC(:,40)
!
-!PTERMS(WR_ETOH,KR31) = -KR31*<WR_OH>*<WR_ETOH>
- PTERMS(:,143,566) = -TPK%KR31(:)*PCONC(:,135)*PCONC(:,143)
+!PTERMS(ONIT,K118) = +0.00000*K118*<OLN>*<OLN>
+ PTERMS(:,26,118) = +0.00000*TPK%K118(:)*PCONC(:,40)*PCONC(:,40)
!
-!PTERMS(WR_ALD2,KR31) = +KR31*<WR_OH>*<WR_ETOH>
- PTERMS(:,146,566) = +TPK%KR31(:)*PCONC(:,135)*PCONC(:,143)
+!PTERMS(OLN,K118) = -K118*<OLN>*<OLN>
+ PTERMS(:,40,118) = -TPK%K118(:)*PCONC(:,40)*PCONC(:,40)
!
-!PTERMS(WR_OH,KR32) = -KR32*<WR_OH>*<WR_ALCH>
- PTERMS(:,135,567) = -TPK%KR32(:)*PCONC(:,135)*PCONC(:,144)
+!PTERMS(NO2,K119) = +K119*<MO2>*<NO3>
+ PTERMS(:,4,119) = +TPK%K119(:)*PCONC(:,32)*PCONC(:,5)
!
-!PTERMS(WR_HO2,KR32) = +KR32*<WR_OH>*<WR_ALCH>
- PTERMS(:,136,567) = +TPK%KR32(:)*PCONC(:,135)*PCONC(:,144)
+!PTERMS(NO3,K119) = -K119*<MO2>*<NO3>
+ PTERMS(:,5,119) = -TPK%K119(:)*PCONC(:,32)*PCONC(:,5)
!
-!PTERMS(WR_ALCH,KR32) = -KR32*<WR_OH>*<WR_ALCH>
- PTERMS(:,144,567) = -TPK%KR32(:)*PCONC(:,135)*PCONC(:,144)
+!PTERMS(HO2,K119) = +K119*<MO2>*<NO3>
+ PTERMS(:,15,119) = +TPK%K119(:)*PCONC(:,32)*PCONC(:,5)
!
-!PTERMS(WR_ALD2,KR32) = +0.50*KR32*<WR_OH>*<WR_ALCH>
- PTERMS(:,146,567) = +0.50*TPK%KR32(:)*PCONC(:,135)*PCONC(:,144)
+!PTERMS(HCHO,K119) = +K119*<MO2>*<NO3>
+ PTERMS(:,22,119) = +TPK%K119(:)*PCONC(:,32)*PCONC(:,5)
!
-!PTERMS(WR_KETL,KR32) = +0.50*KR32*<WR_OH>*<WR_ALCH>
- PTERMS(:,149,567) = +0.50*TPK%KR32(:)*PCONC(:,135)*PCONC(:,144)
+!PTERMS(MO2,K119) = -K119*<MO2>*<NO3>
+ PTERMS(:,32,119) = -TPK%K119(:)*PCONC(:,32)*PCONC(:,5)
!
!
RETURN
-END SUBROUTINE SUBT84
+END SUBROUTINE SUBT26
!
-SUBROUTINE SUBT85
+SUBROUTINE SUBT27
!
-!Indices 1701 a 1720
+!Indices 541 a 560
!
-!PTERMS(WR_OH,KR33) = -KR33*<WR_OH>*<WR_HCHO>
- PTERMS(:,135,568) = -TPK%KR33(:)*PCONC(:,135)*PCONC(:,145)
+!PTERMS(NO2,K120) = +K120*<ALKAP>*<NO3>
+ PTERMS(:,4,120) = +TPK%K120(:)*PCONC(:,33)*PCONC(:,5)
!
-!PTERMS(WR_HO2,KR33) = +KR33*<WR_OH>*<WR_HCHO>
- PTERMS(:,136,568) = +TPK%KR33(:)*PCONC(:,135)*PCONC(:,145)
+!PTERMS(NO3,K120) = -K120*<ALKAP>*<NO3>
+ PTERMS(:,5,120) = -TPK%K120(:)*PCONC(:,33)*PCONC(:,5)
!
-!PTERMS(WR_HCHO,KR33) = -KR33*<WR_OH>*<WR_HCHO>
- PTERMS(:,145,568) = -TPK%KR33(:)*PCONC(:,135)*PCONC(:,145)
+!PTERMS(HO2,K120) = +0.81290*K120*<ALKAP>*<NO3>
+ PTERMS(:,15,120) = +0.81290*TPK%K120(:)*PCONC(:,33)*PCONC(:,5)
!
-!PTERMS(WR_ORA1,KR33) = +KR33*<WR_OH>*<WR_HCHO>
- PTERMS(:,150,568) = +TPK%KR33(:)*PCONC(:,135)*PCONC(:,145)
+!PTERMS(HCHO,K120) = +0.03142*K120*<ALKAP>*<NO3>
+ PTERMS(:,22,120) = +0.03142*TPK%K120(:)*PCONC(:,33)*PCONC(:,5)
!
-!PTERMS(WR_OH,KR34) = -KR34*<WR_OH>*<WR_ALD2>
- PTERMS(:,135,569) = -TPK%KR34(:)*PCONC(:,135)*PCONC(:,146)
+!PTERMS(ALD,K120) = +0.33743*K120*<ALKAP>*<NO3>
+ PTERMS(:,23,120) = +0.33743*TPK%K120(:)*PCONC(:,33)*PCONC(:,5)
!
-!PTERMS(WR_CO2,KR34) = +KR34*<WR_OH>*<WR_ALD2>
- PTERMS(:,137,569) = +TPK%KR34(:)*PCONC(:,135)*PCONC(:,146)
+!PTERMS(KET,K120) = +0.62978*K120*<ALKAP>*<NO3>
+ PTERMS(:,24,120) = +0.62978*TPK%K120(:)*PCONC(:,33)*PCONC(:,5)
!
-!PTERMS(WR_RO21,KR34) = +0.50*KR34*<WR_OH>*<WR_ALD2>
- PTERMS(:,140,569) = +0.50*TPK%KR34(:)*PCONC(:,135)*PCONC(:,146)
+!PTERMS(CARBO,K120) = +0.03531*K120*<ALKAP>*<NO3>
+ PTERMS(:,25,120) = +0.03531*TPK%K120(:)*PCONC(:,33)*PCONC(:,5)
!
-!PTERMS(WR_RO25,KR34) = +0.50*KR34*<WR_OH>*<WR_ALD2>
- PTERMS(:,141,569) = +0.50*TPK%KR34(:)*PCONC(:,135)*PCONC(:,146)
+!PTERMS(MO2,K120) = +0.09731*K120*<ALKAP>*<NO3>
+ PTERMS(:,32,120) = +0.09731*TPK%K120(:)*PCONC(:,33)*PCONC(:,5)
!
-!PTERMS(WR_ALD2,KR34) = -KR34*<WR_OH>*<WR_ALD2>
- PTERMS(:,146,569) = -TPK%KR34(:)*PCONC(:,135)*PCONC(:,146)
+!PTERMS(ALKAP,K120) = -K120*<ALKAP>*<NO3>
+ PTERMS(:,33,120) = -TPK%K120(:)*PCONC(:,33)*PCONC(:,5)
!
-!PTERMS(WR_OH,KR35) = -KR35*<WR_OH>*<WR_GLY>
- PTERMS(:,135,570) = -TPK%KR35(:)*PCONC(:,135)*PCONC(:,147)
+!PTERMS(XO2,K120) = +0.16271*K120*<ALKAP>*<NO3>
+ PTERMS(:,41,120) = +0.16271*TPK%K120(:)*PCONC(:,33)*PCONC(:,5)
!
-!PTERMS(WR_HO2,KR35) = +KR35*<WR_OH>*<WR_GLY>
- PTERMS(:,136,570) = +TPK%KR35(:)*PCONC(:,135)*PCONC(:,147)
+!PTERMS(NO2,K121) = +K121*<ALKEP>*<NO3>
+ PTERMS(:,4,121) = +TPK%K121(:)*PCONC(:,34)*PCONC(:,5)
!
-!PTERMS(WR_GLY,KR35) = -KR35*<WR_OH>*<WR_GLY>
- PTERMS(:,147,570) = -TPK%KR35(:)*PCONC(:,135)*PCONC(:,147)
+!PTERMS(NO3,K121) = -K121*<ALKEP>*<NO3>
+ PTERMS(:,5,121) = -TPK%K121(:)*PCONC(:,34)*PCONC(:,5)
!
-!PTERMS(WR_RP16,KR35) = +KR35*<WR_OH>*<WR_GLY>
- PTERMS(:,153,570) = +TPK%KR35(:)*PCONC(:,135)*PCONC(:,147)
+!PTERMS(HO2,K121) = +K121*<ALKEP>*<NO3>
+ PTERMS(:,15,121) = +TPK%K121(:)*PCONC(:,34)*PCONC(:,5)
!
-!PTERMS(WR_OH,KR36) = -KR36*<WR_OH>*<WR_MGLY>
- PTERMS(:,135,571) = -TPK%KR36(:)*PCONC(:,135)*PCONC(:,148)
+!PTERMS(HCHO,K121) = +1.40909*K121*<ALKEP>*<NO3>
+ PTERMS(:,22,121) = +1.40909*TPK%K121(:)*PCONC(:,34)*PCONC(:,5)
!
-!PTERMS(WR_HO2,KR36) = +KR36*<WR_OH>*<WR_MGLY>
- PTERMS(:,136,571) = +TPK%KR36(:)*PCONC(:,135)*PCONC(:,148)
+!PTERMS(ALD,K121) = +0.43039*K121*<ALKEP>*<NO3>
+ PTERMS(:,23,121) = +0.43039*TPK%K121(:)*PCONC(:,34)*PCONC(:,5)
!
-!PTERMS(WR_MGLY,KR36) = -KR36*<WR_OH>*<WR_MGLY>
- PTERMS(:,148,571) = -TPK%KR36(:)*PCONC(:,135)*PCONC(:,148)
+!PTERMS(KET,K121) = +0.02051*K121*<ALKEP>*<NO3>
+ PTERMS(:,24,121) = +0.02051*TPK%K121(:)*PCONC(:,34)*PCONC(:,5)
!
-!PTERMS(WR_UR21,KR36) = +KR36*<WR_OH>*<WR_MGLY>
- PTERMS(:,154,571) = +TPK%KR36(:)*PCONC(:,135)*PCONC(:,148)
+!PTERMS(ALKEP,K121) = -K121*<ALKEP>*<NO3>
+ PTERMS(:,34,121) = -TPK%K121(:)*PCONC(:,34)*PCONC(:,5)
!
-!PTERMS(WR_H2O2,KR37) = +KR37*<WR_OH>*<WR_KETL>
- PTERMS(:,126,572) = +TPK%KR37(:)*PCONC(:,135)*PCONC(:,149)
+!PTERMS(NO2,K122) = +K122*<BIOP>*<NO3>
+ PTERMS(:,4,122) = +TPK%K122(:)*PCONC(:,35)*PCONC(:,5)
!
-!PTERMS(WR_OH,KR37) = -KR37*<WR_OH>*<WR_KETL>
- PTERMS(:,135,572) = -TPK%KR37(:)*PCONC(:,135)*PCONC(:,149)
+!PTERMS(NO3,K122) = -K122*<BIOP>*<NO3>
+ PTERMS(:,5,122) = -TPK%K122(:)*PCONC(:,35)*PCONC(:,5)
!
-!PTERMS(WR_HO2,KR37) = +KR37*<WR_OH>*<WR_KETL>
- PTERMS(:,136,572) = +TPK%KR37(:)*PCONC(:,135)*PCONC(:,149)
+!PTERMS(HO2,K122) = +K122*<BIOP>*<NO3>
+ PTERMS(:,15,122) = +TPK%K122(:)*PCONC(:,35)*PCONC(:,5)
!
!
RETURN
-END SUBROUTINE SUBT85
+END SUBROUTINE SUBT27
!
-SUBROUTINE SUBT86
+SUBROUTINE SUBT28
!
-!Indices 1721 a 1740
+!Indices 561 a 580
!
-!PTERMS(WR_CO2,KR37) = +KR37*<WR_OH>*<WR_KETL>
- PTERMS(:,137,572) = +TPK%KR37(:)*PCONC(:,135)*PCONC(:,149)
+!PTERMS(ALKE,K122) = +0.42729*K122*<BIOP>*<NO3>
+ PTERMS(:,19,122) = +0.42729*TPK%K122(:)*PCONC(:,35)*PCONC(:,5)
!
-!PTERMS(WR_RO21,KR37) = +KR37*<WR_OH>*<WR_KETL>
- PTERMS(:,140,572) = +TPK%KR37(:)*PCONC(:,135)*PCONC(:,149)
+!PTERMS(HCHO,K122) = +0.68600*K122*<BIOP>*<NO3>
+ PTERMS(:,22,122) = +0.68600*TPK%K122(:)*PCONC(:,35)*PCONC(:,5)
!
-!PTERMS(WR_HCHO,KR37) = +KR37*<WR_OH>*<WR_KETL>
- PTERMS(:,145,572) = +TPK%KR37(:)*PCONC(:,135)*PCONC(:,149)
+!PTERMS(ALD,K122) = +0.00000*K122*<BIOP>*<NO3>
+ PTERMS(:,23,122) = +0.00000*TPK%K122(:)*PCONC(:,35)*PCONC(:,5)
!
-!PTERMS(WR_ALD2,KR37) = +KR37*<WR_OH>*<WR_KETL>
- PTERMS(:,146,572) = +TPK%KR37(:)*PCONC(:,135)*PCONC(:,149)
+!PTERMS(KET,K122) = +0.00000*K122*<BIOP>*<NO3>
+ PTERMS(:,24,122) = +0.00000*TPK%K122(:)*PCONC(:,35)*PCONC(:,5)
!
-!PTERMS(WR_MGLY,KR37) = +KR37*<WR_OH>*<WR_KETL>
- PTERMS(:,148,572) = +TPK%KR37(:)*PCONC(:,135)*PCONC(:,149)
+!PTERMS(CARBO,K122) = +0.61160*K122*<BIOP>*<NO3>
+ PTERMS(:,25,122) = +0.61160*TPK%K122(:)*PCONC(:,35)*PCONC(:,5)
!
-!PTERMS(WR_KETL,KR37) = -KR37*<WR_OH>*<WR_KETL>
- PTERMS(:,149,572) = -TPK%KR37(:)*PCONC(:,135)*PCONC(:,149)
+!PTERMS(BIOP,K122) = -K122*<BIOP>*<NO3>
+ PTERMS(:,35,122) = -TPK%K122(:)*PCONC(:,35)*PCONC(:,5)
!
-!PTERMS(WR_UR21,KR37) = +KR37*<WR_OH>*<WR_KETL>
- PTERMS(:,154,572) = +TPK%KR37(:)*PCONC(:,135)*PCONC(:,149)
+!PTERMS(NO2,K123) = +K123*<AROP>*<NO3>
+ PTERMS(:,4,123) = +TPK%K123(:)*PCONC(:,38)*PCONC(:,5)
!
-!PTERMS(WR_OH,KR38) = -KR38*<WR_OH>*<WR_ORA1>
- PTERMS(:,135,573) = -TPK%KR38(:)*PCONC(:,135)*PCONC(:,150)
+!PTERMS(NO3,K123) = -K123*<AROP>*<NO3>
+ PTERMS(:,5,123) = -TPK%K123(:)*PCONC(:,38)*PCONC(:,5)
!
-!PTERMS(WR_HO2,KR38) = +KR38*<WR_OH>*<WR_ORA1>
- PTERMS(:,136,573) = +TPK%KR38(:)*PCONC(:,135)*PCONC(:,150)
+!PTERMS(HO2,K123) = +K123*<AROP>*<NO3>
+ PTERMS(:,15,123) = +TPK%K123(:)*PCONC(:,38)*PCONC(:,5)
!
-!PTERMS(WR_CO2,KR38) = +KR38*<WR_OH>*<WR_ORA1>
- PTERMS(:,137,573) = +TPK%KR38(:)*PCONC(:,135)*PCONC(:,150)
+!PTERMS(CARBO,K123) = +2.81904*K123*<AROP>*<NO3>
+ PTERMS(:,25,123) = +2.81904*TPK%K123(:)*PCONC(:,38)*PCONC(:,5)
!
-!PTERMS(WR_ORA1,KR38) = -KR38*<WR_OH>*<WR_ORA1>
- PTERMS(:,150,573) = -TPK%KR38(:)*PCONC(:,135)*PCONC(:,150)
+!PTERMS(AROP,K123) = -K123*<AROP>*<NO3>
+ PTERMS(:,38,123) = -TPK%K123(:)*PCONC(:,38)*PCONC(:,5)
!
-!PTERMS(WR_H2O2,KR39) = +0.5*KR39*<WR_OH>*<WR_ORA2>
- PTERMS(:,126,574) = +0.5*TPK%KR39(:)*PCONC(:,135)*PCONC(:,151)
+!PTERMS(NO2,K124) = +K124*<CARBOP>*<NO3>
+ PTERMS(:,4,124) = +TPK%K124(:)*PCONC(:,39)*PCONC(:,5)
!
-!PTERMS(WR_OH,KR39) = -KR39*<WR_OH>*<WR_ORA2>
- PTERMS(:,135,574) = -TPK%KR39(:)*PCONC(:,135)*PCONC(:,151)
+!PTERMS(NO3,K124) = -K124*<CARBOP>*<NO3>
+ PTERMS(:,5,124) = -TPK%K124(:)*PCONC(:,39)*PCONC(:,5)
!
-!PTERMS(WR_ORA2,KR39) = -KR39*<WR_OH>*<WR_ORA2>
- PTERMS(:,151,574) = -TPK%KR39(:)*PCONC(:,135)*PCONC(:,151)
+!PTERMS(HO2,K124) = +0.04915*K124*<CARBOP>*<NO3>
+ PTERMS(:,15,124) = +0.04915*TPK%K124(:)*PCONC(:,39)*PCONC(:,5)
!
-!PTERMS(WR_RP16,KR39) = +KR39*<WR_OH>*<WR_ORA2>
- PTERMS(:,153,574) = +TPK%KR39(:)*PCONC(:,135)*PCONC(:,151)
+!PTERMS(HCHO,K124) = +0.03175*K124*<CARBOP>*<NO3>
+ PTERMS(:,22,124) = +0.03175*TPK%K124(:)*PCONC(:,39)*PCONC(:,5)
!
-!PTERMS(WR_OH,KR40) = -KR40*<WR_OH>*<WR_ACID>
- PTERMS(:,135,575) = -TPK%KR40(:)*PCONC(:,135)*PCONC(:,152)
+!PTERMS(ALD,K124) = +0.02936*K124*<CARBOP>*<NO3>
+ PTERMS(:,23,124) = +0.02936*TPK%K124(:)*PCONC(:,39)*PCONC(:,5)
!
-!PTERMS(WR_CO2,KR40) = +KR40*<WR_OH>*<WR_ACID>
- PTERMS(:,137,575) = +TPK%KR40(:)*PCONC(:,135)*PCONC(:,152)
+!PTERMS(CARBO,K124) = +0.03455*K124*<CARBOP>*<NO3>
+ PTERMS(:,25,124) = +0.03455*TPK%K124(:)*PCONC(:,39)*PCONC(:,5)
!
-!PTERMS(WR_RO25,KR40) = +KR40*<WR_OH>*<WR_ACID>
- PTERMS(:,141,575) = +TPK%KR40(:)*PCONC(:,135)*PCONC(:,152)
+!PTERMS(MO2,K124) = +0.91910*K124*<CARBOP>*<NO3>
+ PTERMS(:,32,124) = +0.91910*TPK%K124(:)*PCONC(:,39)*PCONC(:,5)
!
-!PTERMS(WR_ACID,KR40) = -KR40*<WR_OH>*<WR_ACID>
- PTERMS(:,152,575) = -TPK%KR40(:)*PCONC(:,135)*PCONC(:,152)
+!PTERMS(CARBOP,K124) = -K124*<CARBOP>*<NO3>
+ PTERMS(:,39,124) = -TPK%K124(:)*PCONC(:,39)*PCONC(:,5)
!
-!PTERMS(WR_H2O2,KR41) = +0.29*KR41*<WR_OH>*<WR_ACID>
- PTERMS(:,126,576) = +0.29*TPK%KR41(:)*PCONC(:,135)*PCONC(:,152)
+!PTERMS(XO2,K124) = +0.01021*K124*<CARBOP>*<NO3>
+ PTERMS(:,41,124) = +0.01021*TPK%K124(:)*PCONC(:,39)*PCONC(:,5)
!
!
RETURN
-END SUBROUTINE SUBT86
+END SUBROUTINE SUBT28
!
-SUBROUTINE SUBT87
+SUBROUTINE SUBT29
!
-!Indices 1741 a 1760
+!Indices 581 a 600
!
-!PTERMS(WR_OH,KR41) = -KR41*<WR_OH>*<WR_ACID>
- PTERMS(:,135,576) = -TPK%KR41(:)*PCONC(:,135)*PCONC(:,152)
+!PTERMS(NO2,K125) = +1.74072*K125*<OLN>*<NO3>
+ PTERMS(:,4,125) = +1.74072*TPK%K125(:)*PCONC(:,40)*PCONC(:,5)
!
-!PTERMS(WR_HO2,KR41) = +0.11*KR41*<WR_OH>*<WR_ACID>
- PTERMS(:,136,576) = +0.11*TPK%KR41(:)*PCONC(:,135)*PCONC(:,152)
+!PTERMS(NO3,K125) = -K125*<OLN>*<NO3>
+ PTERMS(:,5,125) = -TPK%K125(:)*PCONC(:,40)*PCONC(:,5)
!
-!PTERMS(WR_ALD2,KR41) = +0.29*KR41*<WR_OH>*<WR_ACID>
- PTERMS(:,146,576) = +0.29*TPK%KR41(:)*PCONC(:,135)*PCONC(:,152)
+!PTERMS(HO2,K125) = +0.25928*K125*<OLN>*<NO3>
+ PTERMS(:,15,125) = +0.25928*TPK%K125(:)*PCONC(:,40)*PCONC(:,5)
!
-!PTERMS(WR_ACID,KR41) = -KR41*<WR_OH>*<WR_ACID>
- PTERMS(:,152,576) = -TPK%KR41(:)*PCONC(:,135)*PCONC(:,152)
+!PTERMS(HCHO,K125) = +0.20740*K125*<OLN>*<NO3>
+ PTERMS(:,22,125) = +0.20740*TPK%K125(:)*PCONC(:,40)*PCONC(:,5)
!
-!PTERMS(WR_UR21,KR41) = +0.56*KR41*<WR_OH>*<WR_ACID>
- PTERMS(:,154,576) = +0.56*TPK%KR41(:)*PCONC(:,135)*PCONC(:,152)
+!PTERMS(ALD,K125) = +0.91850*K125*<OLN>*<NO3>
+ PTERMS(:,23,125) = +0.91850*TPK%K125(:)*PCONC(:,40)*PCONC(:,5)
!
-!PTERMS(WR_ACID2,KR41) = +0.15*KR41*<WR_OH>*<WR_ACID>
- PTERMS(:,156,576) = +0.15*TPK%KR41(:)*PCONC(:,135)*PCONC(:,152)
+!PTERMS(KET,K125) = +0.34740*K125*<OLN>*<NO3>
+ PTERMS(:,24,125) = +0.34740*TPK%K125(:)*PCONC(:,40)*PCONC(:,5)
!
-!PTERMS(WR_OH,KR42) = -KR42*<WR_OH>*<WR_UR28>
- PTERMS(:,135,577) = -TPK%KR42(:)*PCONC(:,135)*PCONC(:,155)
+!PTERMS(ONIT,K125) = +0.25928*K125*<OLN>*<NO3>
+ PTERMS(:,26,125) = +0.25928*TPK%K125(:)*PCONC(:,40)*PCONC(:,5)
!
-!PTERMS(WR_HO2,KR42) = +KR42*<WR_OH>*<WR_UR28>
- PTERMS(:,136,577) = +TPK%KR42(:)*PCONC(:,135)*PCONC(:,155)
+!PTERMS(OLN,K125) = -K125*<OLN>*<NO3>
+ PTERMS(:,40,125) = -TPK%K125(:)*PCONC(:,40)*PCONC(:,5)
!
-!PTERMS(WR_CO2,KR42) = +2*KR42*<WR_OH>*<WR_UR28>
- PTERMS(:,137,577) = +2*TPK%KR42(:)*PCONC(:,135)*PCONC(:,155)
+!PTERMS(HO2,K126) = -K126*<XO2>*<HO2>
+ PTERMS(:,15,126) = -TPK%K126(:)*PCONC(:,41)*PCONC(:,15)
!
-!PTERMS(WR_UR28,KR42) = -KR42*<WR_OH>*<WR_UR28>
- PTERMS(:,155,577) = -TPK%KR42(:)*PCONC(:,135)*PCONC(:,155)
+!PTERMS(OP2,K126) = +1.00524*K126*<XO2>*<HO2>
+ PTERMS(:,29,126) = +1.00524*TPK%K126(:)*PCONC(:,41)*PCONC(:,15)
!
-!PTERMS(WR_H2O2,KR43) = +0.3*KR43*<WR_OH>*<WR_UR21>
- PTERMS(:,126,578) = +0.3*TPK%KR43(:)*PCONC(:,135)*PCONC(:,154)
+!PTERMS(XO2,K126) = -K126*<XO2>*<HO2>
+ PTERMS(:,41,126) = -TPK%K126(:)*PCONC(:,41)*PCONC(:,15)
!
-!PTERMS(WR_OH,KR43) = -KR43*<WR_OH>*<WR_UR21>
- PTERMS(:,135,578) = -TPK%KR43(:)*PCONC(:,135)*PCONC(:,154)
+!PTERMS(HO2,K127) = +K127*<XO2>*<MO2>
+ PTERMS(:,15,127) = +TPK%K127(:)*PCONC(:,41)*PCONC(:,32)
!
-!PTERMS(WR_HO2,KR43) = +0.81*KR43*<WR_OH>*<WR_UR21>
- PTERMS(:,136,578) = +0.81*TPK%KR43(:)*PCONC(:,135)*PCONC(:,154)
+!PTERMS(HCHO,K127) = +K127*<XO2>*<MO2>
+ PTERMS(:,22,127) = +TPK%K127(:)*PCONC(:,41)*PCONC(:,32)
!
-!PTERMS(WR_CO2,KR43) = +0.43*KR43*<WR_OH>*<WR_UR21>
- PTERMS(:,137,578) = +0.43*TPK%KR43(:)*PCONC(:,135)*PCONC(:,154)
+!PTERMS(MO2,K127) = -K127*<XO2>*<MO2>
+ PTERMS(:,32,127) = -TPK%K127(:)*PCONC(:,41)*PCONC(:,32)
!
-!PTERMS(WR_ALD2,KR43) = +0.43*KR43*<WR_OH>*<WR_UR21>
- PTERMS(:,146,578) = +0.43*TPK%KR43(:)*PCONC(:,135)*PCONC(:,154)
+!PTERMS(XO2,K127) = -K127*<XO2>*<MO2>
+ PTERMS(:,41,127) = -TPK%K127(:)*PCONC(:,41)*PCONC(:,32)
!
-!PTERMS(WR_UR21,KR43) = -KR43*<WR_OH>*<WR_UR21>
- PTERMS(:,154,578) = -TPK%KR43(:)*PCONC(:,135)*PCONC(:,154)
+!PTERMS(MO2,K128) = +K128*<XO2>*<CARBOP>
+ PTERMS(:,32,128) = +TPK%K128(:)*PCONC(:,41)*PCONC(:,39)
!
-!PTERMS(WR_ACID2,KR43) = +0.56*KR43*<WR_OH>*<WR_UR21>
- PTERMS(:,156,578) = +0.56*TPK%KR43(:)*PCONC(:,135)*PCONC(:,154)
+!PTERMS(CARBOP,K128) = -K128*<XO2>*<CARBOP>
+ PTERMS(:,39,128) = -TPK%K128(:)*PCONC(:,41)*PCONC(:,39)
!
-!PTERMS(WR_OH,KR44) = -KR44*<WR_OH>*<WR_RP16>
- PTERMS(:,135,579) = -TPK%KR44(:)*PCONC(:,135)*PCONC(:,153)
+!PTERMS(XO2,K128) = -K128*<XO2>*<CARBOP>
+ PTERMS(:,41,128) = -TPK%K128(:)*PCONC(:,41)*PCONC(:,39)
!
-!PTERMS(WR_HO2,KR44) = +KR44*<WR_OH>*<WR_RP16>
- PTERMS(:,136,579) = +TPK%KR44(:)*PCONC(:,135)*PCONC(:,153)
+!PTERMS(XO2,K129) = -K129*<XO2>*<XO2>
+ PTERMS(:,41,129) = -TPK%K129(:)*PCONC(:,41)*PCONC(:,41)
!
-!PTERMS(WR_RP16,KR44) = -KR44*<WR_OH>*<WR_RP16>
- PTERMS(:,153,579) = -TPK%KR44(:)*PCONC(:,135)*PCONC(:,153)
+!PTERMS(NO,K130) = -K130*<XO2>*<NO>
+ PTERMS(:,3,130) = -TPK%K130(:)*PCONC(:,41)*PCONC(:,3)
!
!
RETURN
-END SUBROUTINE SUBT87
-!
-SUBROUTINE SUBT88
-!
-!Indices 1761 a 1768
+END SUBROUTINE SUBT29
!
-!PTERMS(WR_UR28,KR44) = +KR44*<WR_OH>*<WR_RP16>
- PTERMS(:,155,579) = +TPK%KR44(:)*PCONC(:,135)*PCONC(:,153)
+SUBROUTINE SUBT30
!
-!PTERMS(WR_H2O2,KR45) = +0.45*KR45*<WR_OH>*<WR_RP16>
- PTERMS(:,126,580) = +0.45*TPK%KR45(:)*PCONC(:,135)*PCONC(:,153)
+!Indices 601 a 606
!
-!PTERMS(WR_OH,KR45) = -KR45*<WR_OH>*<WR_RP16>
- PTERMS(:,135,580) = -TPK%KR45(:)*PCONC(:,135)*PCONC(:,153)
+!PTERMS(NO2,K130) = +K130*<XO2>*<NO>
+ PTERMS(:,4,130) = +TPK%K130(:)*PCONC(:,41)*PCONC(:,3)
!
-!PTERMS(WR_HO2,KR45) = +0.71*KR45*<WR_OH>*<WR_RP16>
- PTERMS(:,136,580) = +0.71*TPK%KR45(:)*PCONC(:,135)*PCONC(:,153)
+!PTERMS(XO2,K130) = -K130*<XO2>*<NO>
+ PTERMS(:,41,130) = -TPK%K130(:)*PCONC(:,41)*PCONC(:,3)
!
-!PTERMS(WR_CO2,KR45) = +2*KR45*<WR_OH>*<WR_RP16>
- PTERMS(:,137,580) = +2*TPK%KR45(:)*PCONC(:,135)*PCONC(:,153)
+!PTERMS(NO2,K131) = +K131*<XO2>*<NO3>
+ PTERMS(:,4,131) = +TPK%K131(:)*PCONC(:,41)*PCONC(:,5)
!
-!PTERMS(WR_RP16,KR45) = -KR45*<WR_OH>*<WR_RP16>
- PTERMS(:,153,580) = -TPK%KR45(:)*PCONC(:,135)*PCONC(:,153)
+!PTERMS(NO3,K131) = -K131*<XO2>*<NO3>
+ PTERMS(:,5,131) = -TPK%K131(:)*PCONC(:,41)*PCONC(:,5)
!
-!PTERMS(WR_OH,KR46) = -KR46*<WR_OH>*<WR_ACID2>
- PTERMS(:,135,581) = -TPK%KR46(:)*PCONC(:,135)*PCONC(:,156)
+!PTERMS(XO2,K131) = -K131*<XO2>*<NO3>
+ PTERMS(:,41,131) = -TPK%K131(:)*PCONC(:,41)*PCONC(:,5)
!
-!PTERMS(WR_ACID2,KR46) = -KR46*<WR_OH>*<WR_ACID2>
- PTERMS(:,156,581) = -TPK%KR46(:)*PCONC(:,135)*PCONC(:,156)
+!PTERMS(SULF,K132) = -K132*<SULF>
+ PTERMS(:,12,132) = -TPK%K132(:)*PCONC(:,12)
!
!
RETURN
-END SUBROUTINE SUBT88
+END SUBROUTINE SUBT30
!
-END SUBROUTINE CH_TERMS_AQ
+END SUBROUTINE CH_TERMS_GAZ
!
!========================================================================
!
@@ -96503,7 +35335,7 @@ END IF
CONTAINS
!!
!! #############################
- SUBROUTINE CH_NONZEROTERMS_GAZ
+ SUBROUTINE CH_NONZEROTERMS_AQ
!! #############################
!! This code has been created automatically by preprocessor m10,
!! version: 9.7, copyright 1995-1999 by Meteo France/Universite Paul Sabatier.
@@ -96547,2391 +35379,1899 @@ CONTAINS
!! ------------------
IMPLICIT NONE
! check if output array is large enough
-IF (KINDEXDIM.LT.1188) THEN
+IF (KINDEXDIM.LT.942) THEN
STOP 'CH_NONZEROTERMS ERROR: array KINDEX is too small!'
END IF
- KINDEX(1, 1)=1
+ KINDEX(1, 1)=3
KINDEX(2, 1)=1
- KINDEX(1, 2)=2
+ KINDEX(1, 2)=4
KINDEX(2, 2)=1
- KINDEX(1, 3)=3
+ KINDEX(1, 3)=1
KINDEX(2, 3)=2
KINDEX(1, 4)=1
KINDEX(2, 4)=3
- KINDEX(1, 5)=2
- KINDEX(2, 5)=3
- KINDEX(1, 6)=2
+ KINDEX(1, 5)=3
+ KINDEX(2, 5)=4
+ KINDEX(1, 6)=7
KINDEX(2, 6)=4
- KINDEX(1, 7)=8
+ KINDEX(1, 7)=14
KINDEX(2, 7)=4
- KINDEX(1, 8)=1
+ KINDEX(1, 8)=4
KINDEX(2, 8)=5
- KINDEX(1, 9)=2
+ KINDEX(1, 9)=8
KINDEX(2, 9)=5
- KINDEX(1, 10)=3
+ KINDEX(1, 10)=14
KINDEX(2, 10)=5
- KINDEX(1, 11)=2
+ KINDEX(1, 11)=4
KINDEX(2, 11)=6
- KINDEX(1, 12)=3
+ KINDEX(1, 12)=5
KINDEX(2, 12)=6
- KINDEX(1, 13)=8
+ KINDEX(1, 13)=9
KINDEX(2, 13)=6
- KINDEX(1, 14)=1
- KINDEX(2, 14)=7
- KINDEX(1, 15)=2
- KINDEX(2, 15)=7
- KINDEX(1, 16)=8
+ KINDEX(1, 14)=14
+ KINDEX(2, 14)=6
+ KINDEX(1, 15)=15
+ KINDEX(2, 15)=6
+ KINDEX(1, 16)=3
KINDEX(2, 16)=7
- KINDEX(1, 17)=1
- KINDEX(2, 17)=8
- KINDEX(1, 18)=2
+ KINDEX(1, 17)=5
+ KINDEX(2, 17)=7
+ KINDEX(1, 18)=4
KINDEX(2, 18)=8
- KINDEX(1, 19)=2
- KINDEX(2, 19)=9
- KINDEX(1, 20)=7
+ KINDEX(1, 19)=5
+ KINDEX(2, 19)=8
+ KINDEX(1, 20)=2
KINDEX(2, 20)=9
- KINDEX(1, 21)=8
+ KINDEX(1, 21)=14
KINDEX(2, 21)=9
- KINDEX(1, 22)=2
+ KINDEX(1, 22)=13
KINDEX(2, 22)=10
- KINDEX(1, 23)=7
+ KINDEX(1, 23)=22
KINDEX(2, 23)=10
- KINDEX(1, 24)=8
- KINDEX(2, 24)=10
- KINDEX(1, 25)=5
+ KINDEX(1, 24)=13
+ KINDEX(2, 24)=11
+ KINDEX(1, 25)=15
KINDEX(2, 25)=11
- KINDEX(1, 26)=7
+ KINDEX(1, 26)=22
KINDEX(2, 26)=11
- KINDEX(1, 27)=1
+ KINDEX(1, 27)=13
KINDEX(2, 27)=12
- KINDEX(1, 28)=2
+ KINDEX(1, 28)=15
KINDEX(2, 28)=12
- KINDEX(1, 29)=8
+ KINDEX(1, 29)=23
KINDEX(2, 29)=12
- KINDEX(1, 30)=1
- KINDEX(2, 30)=13
- KINDEX(1, 31)=8
+ KINDEX(1, 30)=32
+ KINDEX(2, 30)=12
+ KINDEX(1, 31)=14
KINDEX(2, 31)=13
- KINDEX(1, 32)=2
- KINDEX(2, 32)=14
- KINDEX(1, 33)=8
- KINDEX(2, 33)=14
- KINDEX(1, 34)=3
- KINDEX(2, 34)=15
- KINDEX(1, 35)=3
- KINDEX(2, 35)=16
+ KINDEX(1, 32)=15
+ KINDEX(2, 32)=13
+ KINDEX(1, 33)=22
+ KINDEX(2, 33)=13
+ KINDEX(1, 34)=28
+ KINDEX(2, 34)=13
+ KINDEX(1, 35)=14
+ KINDEX(2, 35)=14
KINDEX(1, 36)=15
- KINDEX(2, 36)=17
- KINDEX(1, 37)=1
- KINDEX(2, 37)=20
- KINDEX(1, 38)=4
- KINDEX(2, 38)=20
- KINDEX(1, 39)=15
- KINDEX(2, 39)=20
- KINDEX(1, 40)=1
- KINDEX(2, 40)=21
- KINDEX(1, 41)=2
- KINDEX(2, 41)=21
- KINDEX(1, 42)=4
- KINDEX(2, 42)=21
- KINDEX(1, 43)=10
- KINDEX(2, 43)=21
+ KINDEX(2, 36)=14
+ KINDEX(1, 37)=23
+ KINDEX(2, 37)=14
+ KINDEX(1, 38)=29
+ KINDEX(2, 38)=14
+ KINDEX(1, 39)=32
+ KINDEX(2, 39)=14
+ KINDEX(1, 40)=24
+ KINDEX(2, 40)=15
+ KINDEX(1, 41)=33
+ KINDEX(2, 41)=15
+ KINDEX(1, 42)=39
+ KINDEX(2, 42)=15
+ KINDEX(1, 43)=13
+ KINDEX(2, 43)=16
KINDEX(1, 44)=15
- KINDEX(2, 44)=21
- KINDEX(1, 45)=2
- KINDEX(2, 45)=22
- KINDEX(1, 46)=4
- KINDEX(2, 46)=22
- KINDEX(1, 47)=5
- KINDEX(2, 47)=22
- KINDEX(1, 48)=2
- KINDEX(2, 48)=23
- KINDEX(1, 49)=5
- KINDEX(2, 49)=23
- KINDEX(1, 50)=15
- KINDEX(2, 50)=23
- KINDEX(1, 51)=5
- KINDEX(2, 51)=24
- KINDEX(1, 52)=8
- KINDEX(2, 52)=24
- KINDEX(1, 53)=15
- KINDEX(2, 53)=24
- KINDEX(1, 54)=10
- KINDEX(2, 54)=25
- KINDEX(1, 55)=11
- KINDEX(2, 55)=25
- KINDEX(1, 56)=15
- KINDEX(2, 56)=25
- KINDEX(1, 57)=3
- KINDEX(2, 57)=26
- KINDEX(1, 58)=10
- KINDEX(2, 58)=26
- KINDEX(1, 59)=15
- KINDEX(2, 59)=26
- KINDEX(1, 60)=1
- KINDEX(2, 60)=27
- KINDEX(1, 61)=2
- KINDEX(2, 61)=27
- KINDEX(1, 62)=10
- KINDEX(2, 62)=27
+ KINDEX(2, 44)=16
+ KINDEX(1, 45)=22
+ KINDEX(2, 45)=16
+ KINDEX(1, 46)=25
+ KINDEX(2, 46)=16
+ KINDEX(1, 47)=39
+ KINDEX(2, 47)=16
+ KINDEX(1, 48)=4
+ KINDEX(2, 48)=17
+ KINDEX(1, 49)=15
+ KINDEX(2, 49)=17
+ KINDEX(1, 50)=23
+ KINDEX(2, 50)=17
+ KINDEX(1, 51)=24
+ KINDEX(2, 51)=17
+ KINDEX(1, 52)=26
+ KINDEX(2, 52)=17
+ KINDEX(1, 53)=1
+ KINDEX(2, 53)=18
+ KINDEX(1, 54)=1
+ KINDEX(2, 54)=19
+ KINDEX(1, 55)=14
+ KINDEX(2, 55)=22
+ KINDEX(1, 56)=1
+ KINDEX(2, 56)=23
+ KINDEX(1, 57)=14
+ KINDEX(2, 57)=23
+ KINDEX(1, 58)=15
+ KINDEX(2, 58)=23
+ KINDEX(1, 59)=1
+ KINDEX(2, 59)=24
+ KINDEX(1, 60)=14
+ KINDEX(2, 60)=24
+ KINDEX(1, 61)=15
+ KINDEX(2, 61)=24
+ KINDEX(1, 62)=14
+ KINDEX(2, 62)=25
KINDEX(1, 63)=15
- KINDEX(2, 63)=27
+ KINDEX(2, 63)=25
KINDEX(1, 64)=2
- KINDEX(2, 64)=28
- KINDEX(1, 65)=6
- KINDEX(2, 65)=28
- KINDEX(1, 66)=10
- KINDEX(2, 66)=28
+ KINDEX(2, 64)=26
+ KINDEX(1, 65)=14
+ KINDEX(2, 65)=26
+ KINDEX(1, 66)=15
+ KINDEX(2, 66)=26
KINDEX(1, 67)=2
- KINDEX(2, 67)=29
- KINDEX(1, 68)=6
- KINDEX(2, 68)=29
- KINDEX(1, 69)=10
- KINDEX(2, 69)=29
- KINDEX(1, 70)=2
- KINDEX(2, 70)=30
- KINDEX(1, 71)=6
- KINDEX(2, 71)=30
- KINDEX(1, 72)=15
- KINDEX(2, 72)=30
+ KINDEX(2, 67)=27
+ KINDEX(1, 68)=15
+ KINDEX(2, 68)=27
+ KINDEX(1, 69)=2
+ KINDEX(2, 69)=28
+ KINDEX(1, 70)=15
+ KINDEX(2, 70)=28
+ KINDEX(1, 71)=3
+ KINDEX(2, 71)=29
+ KINDEX(1, 72)=4
+ KINDEX(2, 72)=29
KINDEX(1, 73)=3
- KINDEX(2, 73)=31
- KINDEX(1, 74)=10
- KINDEX(2, 74)=31
- KINDEX(1, 75)=15
+ KINDEX(2, 73)=30
+ KINDEX(1, 74)=4
+ KINDEX(2, 74)=30
+ KINDEX(1, 75)=4
KINDEX(2, 75)=31
- KINDEX(1, 76)=10
- KINDEX(2, 76)=32
- KINDEX(1, 77)=12
+ KINDEX(1, 76)=5
+ KINDEX(2, 76)=31
+ KINDEX(1, 77)=3
KINDEX(2, 77)=32
- KINDEX(1, 78)=10
- KINDEX(2, 78)=33
- KINDEX(1, 79)=12
- KINDEX(2, 79)=33
- KINDEX(1, 80)=2
- KINDEX(2, 80)=34
- KINDEX(1, 81)=5
- KINDEX(2, 81)=34
- KINDEX(1, 82)=8
- KINDEX(2, 82)=34
- KINDEX(1, 83)=10
+ KINDEX(1, 78)=7
+ KINDEX(2, 78)=32
+ KINDEX(1, 79)=14
+ KINDEX(2, 79)=32
+ KINDEX(1, 80)=4
+ KINDEX(2, 80)=33
+ KINDEX(1, 81)=8
+ KINDEX(2, 81)=33
+ KINDEX(1, 82)=14
+ KINDEX(2, 82)=33
+ KINDEX(1, 83)=4
KINDEX(2, 83)=34
- KINDEX(1, 84)=15
+ KINDEX(1, 84)=5
KINDEX(2, 84)=34
- KINDEX(1, 85)=3
- KINDEX(2, 85)=35
- KINDEX(1, 86)=10
- KINDEX(2, 86)=36
- KINDEX(1, 87)=13
- KINDEX(2, 87)=36
- KINDEX(1, 88)=14
- KINDEX(2, 88)=36
- KINDEX(1, 89)=15
- KINDEX(2, 89)=36
- KINDEX(1, 90)=12
- KINDEX(2, 90)=37
- KINDEX(1, 91)=15
- KINDEX(2, 91)=37
- KINDEX(1, 92)=10
- KINDEX(2, 92)=38
- KINDEX(1, 93)=12
- KINDEX(2, 93)=38
- KINDEX(1, 94)=15
- KINDEX(2, 94)=38
- KINDEX(1, 95)=1
- KINDEX(2, 95)=39
- KINDEX(1, 96)=2
- KINDEX(2, 96)=39
- KINDEX(1, 97)=2
- KINDEX(2, 97)=40
- KINDEX(1, 98)=4
- KINDEX(2, 98)=40
- KINDEX(1, 99)=15
- KINDEX(2, 99)=40
- KINDEX(1, 100)=2
- KINDEX(2, 100)=41
- KINDEX(1, 101)=8
- KINDEX(2, 101)=41
- KINDEX(1, 102)=10
- KINDEX(2, 102)=41
- KINDEX(1, 103)=15
- KINDEX(2, 103)=41
- KINDEX(1, 104)=2
- KINDEX(2, 104)=42
- KINDEX(1, 105)=8
- KINDEX(2, 105)=42
- KINDEX(1, 106)=10
- KINDEX(2, 106)=43
- KINDEX(1, 107)=15
- KINDEX(2, 107)=43
- KINDEX(1, 108)=15
- KINDEX(2, 108)=44
- KINDEX(1, 109)=85
- KINDEX(2, 109)=44
- KINDEX(1, 110)=86
- KINDEX(2, 110)=44
- KINDEX(1, 111)=10
- KINDEX(2, 111)=45
- KINDEX(1, 112)=11
- KINDEX(2, 112)=45
- KINDEX(1, 113)=28
- KINDEX(2, 113)=45
- KINDEX(1, 114)=11
- KINDEX(2, 114)=46
- KINDEX(1, 115)=28
- KINDEX(2, 115)=46
- KINDEX(1, 116)=10
- KINDEX(2, 116)=47
- KINDEX(1, 117)=11
- KINDEX(2, 117)=47
- KINDEX(1, 118)=15
- KINDEX(2, 118)=47
- KINDEX(1, 119)=28
- KINDEX(2, 119)=47
- KINDEX(1, 120)=5
- KINDEX(2, 120)=48
- KINDEX(1, 121)=8
- KINDEX(2, 121)=48
- KINDEX(1, 122)=10
- KINDEX(2, 122)=48
- KINDEX(1, 123)=11
- KINDEX(2, 123)=48
- KINDEX(1, 124)=28
- KINDEX(2, 124)=48
- KINDEX(1, 125)=10
- KINDEX(2, 125)=49
- KINDEX(1, 126)=15
- KINDEX(2, 126)=49
- KINDEX(1, 127)=28
- KINDEX(2, 127)=49
- KINDEX(1, 128)=32
- KINDEX(2, 128)=49
- KINDEX(1, 129)=15
- KINDEX(2, 129)=50
- KINDEX(1, 130)=16
- KINDEX(2, 130)=50
- KINDEX(1, 131)=85
- KINDEX(2, 131)=50
- KINDEX(1, 132)=8
- KINDEX(2, 132)=51
- KINDEX(1, 133)=16
- KINDEX(2, 133)=51
- KINDEX(1, 134)=85
- KINDEX(2, 134)=51
- KINDEX(1, 135)=3
- KINDEX(2, 135)=52
- KINDEX(1, 136)=10
- KINDEX(2, 136)=52
+ KINDEX(1, 85)=14
+ KINDEX(2, 85)=34
+ KINDEX(1, 86)=15
+ KINDEX(2, 86)=34
+ KINDEX(1, 87)=3
+ KINDEX(2, 87)=35
+ KINDEX(1, 88)=4
+ KINDEX(2, 88)=35
+ KINDEX(1, 89)=14
+ KINDEX(2, 89)=35
+ KINDEX(1, 90)=15
+ KINDEX(2, 90)=35
+ KINDEX(1, 91)=4
+ KINDEX(2, 91)=36
+ KINDEX(1, 92)=9
+ KINDEX(2, 92)=36
+ KINDEX(1, 93)=15
+ KINDEX(2, 93)=36
+ KINDEX(1, 94)=4
+ KINDEX(2, 94)=37
+ KINDEX(1, 95)=9
+ KINDEX(2, 95)=37
+ KINDEX(1, 96)=15
+ KINDEX(2, 96)=37
+ KINDEX(1, 97)=4
+ KINDEX(2, 97)=38
+ KINDEX(1, 98)=5
+ KINDEX(2, 98)=38
+ KINDEX(1, 99)=8
+ KINDEX(2, 99)=38
+ KINDEX(1, 100)=14
+ KINDEX(2, 100)=38
+ KINDEX(1, 101)=15
+ KINDEX(2, 101)=38
+ KINDEX(1, 102)=4
+ KINDEX(2, 102)=39
+ KINDEX(1, 103)=7
+ KINDEX(2, 103)=39
+ KINDEX(1, 104)=14
+ KINDEX(2, 104)=39
+ KINDEX(1, 105)=5
+ KINDEX(2, 105)=40
+ KINDEX(1, 106)=8
+ KINDEX(2, 106)=40
+ KINDEX(1, 107)=14
+ KINDEX(2, 107)=40
+ KINDEX(1, 108)=4
+ KINDEX(2, 108)=41
+ KINDEX(1, 109)=9
+ KINDEX(2, 109)=41
+ KINDEX(1, 110)=14
+ KINDEX(2, 110)=41
+ KINDEX(1, 111)=1
+ KINDEX(2, 111)=42
+ KINDEX(1, 112)=3
+ KINDEX(2, 112)=42
+ KINDEX(1, 113)=4
+ KINDEX(2, 113)=42
+ KINDEX(1, 114)=1
+ KINDEX(2, 114)=43
+ KINDEX(1, 115)=4
+ KINDEX(2, 115)=43
+ KINDEX(1, 116)=5
+ KINDEX(2, 116)=43
+ KINDEX(1, 117)=3
+ KINDEX(2, 117)=44
+ KINDEX(1, 118)=4
+ KINDEX(2, 118)=44
+ KINDEX(1, 119)=3
+ KINDEX(2, 119)=45
+ KINDEX(1, 120)=4
+ KINDEX(2, 120)=45
+ KINDEX(1, 121)=5
+ KINDEX(2, 121)=45
+ KINDEX(1, 122)=3
+ KINDEX(2, 122)=46
+ KINDEX(1, 123)=4
+ KINDEX(2, 123)=46
+ KINDEX(1, 124)=5
+ KINDEX(2, 124)=46
+ KINDEX(1, 125)=4
+ KINDEX(2, 125)=47
+ KINDEX(1, 126)=5
+ KINDEX(2, 126)=47
+ KINDEX(1, 127)=6
+ KINDEX(2, 127)=47
+ KINDEX(1, 128)=4
+ KINDEX(2, 128)=48
+ KINDEX(1, 129)=5
+ KINDEX(2, 129)=48
+ KINDEX(1, 130)=6
+ KINDEX(2, 130)=48
+ KINDEX(1, 131)=4
+ KINDEX(2, 131)=49
+ KINDEX(1, 132)=5
+ KINDEX(2, 132)=49
+ KINDEX(1, 133)=10
+ KINDEX(2, 133)=50
+ KINDEX(1, 134)=14
+ KINDEX(2, 134)=50
+ KINDEX(1, 135)=14
+ KINDEX(2, 135)=51
+ KINDEX(1, 136)=15
+ KINDEX(2, 136)=51
KINDEX(1, 137)=11
KINDEX(2, 137)=52
- KINDEX(1, 138)=15
+ KINDEX(1, 138)=12
KINDEX(2, 138)=52
- KINDEX(1, 139)=16
+ KINDEX(1, 139)=14
KINDEX(2, 139)=52
- KINDEX(1, 140)=28
+ KINDEX(1, 140)=15
KINDEX(2, 140)=52
- KINDEX(1, 141)=43
- KINDEX(2, 141)=52
- KINDEX(1, 142)=10
+ KINDEX(1, 141)=13
+ KINDEX(2, 141)=53
+ KINDEX(1, 142)=14
KINDEX(2, 142)=53
- KINDEX(1, 143)=11
+ KINDEX(1, 143)=15
KINDEX(2, 143)=53
- KINDEX(1, 144)=16
- KINDEX(2, 144)=53
- KINDEX(1, 145)=85
- KINDEX(2, 145)=53
- KINDEX(1, 146)=86
- KINDEX(2, 146)=53
- KINDEX(1, 147)=10
+ KINDEX(1, 144)=13
+ KINDEX(2, 144)=54
+ KINDEX(1, 145)=14
+ KINDEX(2, 145)=54
+ KINDEX(1, 146)=15
+ KINDEX(2, 146)=54
+ KINDEX(1, 147)=19
KINDEX(2, 147)=54
- KINDEX(1, 148)=15
+ KINDEX(1, 148)=20
KINDEX(2, 148)=54
- KINDEX(1, 149)=29
+ KINDEX(1, 149)=22
KINDEX(2, 149)=54
- KINDEX(1, 150)=33
+ KINDEX(1, 150)=25
KINDEX(2, 150)=54
- KINDEX(1, 151)=85
+ KINDEX(1, 151)=41
KINDEX(2, 151)=54
- KINDEX(1, 152)=15
+ KINDEX(1, 152)=23
KINDEX(2, 152)=55
- KINDEX(1, 153)=17
+ KINDEX(1, 153)=25
KINDEX(2, 153)=55
- KINDEX(1, 154)=85
- KINDEX(2, 154)=55
- KINDEX(1, 155)=8
+ KINDEX(1, 154)=14
+ KINDEX(2, 154)=56
+ KINDEX(1, 155)=16
KINDEX(2, 155)=56
- KINDEX(1, 156)=17
+ KINDEX(1, 156)=32
KINDEX(2, 156)=56
- KINDEX(1, 157)=85
- KINDEX(2, 157)=56
- KINDEX(1, 158)=3
+ KINDEX(1, 157)=14
+ KINDEX(2, 157)=57
+ KINDEX(1, 158)=17
KINDEX(2, 158)=57
- KINDEX(1, 159)=10
+ KINDEX(1, 159)=33
KINDEX(2, 159)=57
- KINDEX(1, 160)=11
- KINDEX(2, 160)=57
- KINDEX(1, 161)=15
- KINDEX(2, 161)=57
- KINDEX(1, 162)=17
- KINDEX(2, 162)=57
- KINDEX(1, 163)=19
- KINDEX(2, 163)=57
- KINDEX(1, 164)=28
- KINDEX(2, 164)=57
- KINDEX(1, 165)=29
- KINDEX(2, 165)=57
- KINDEX(1, 166)=43
- KINDEX(2, 166)=57
- KINDEX(1, 167)=44
- KINDEX(2, 167)=57
- KINDEX(1, 168)=85
- KINDEX(2, 168)=57
- KINDEX(1, 169)=87
- KINDEX(2, 169)=57
- KINDEX(1, 170)=17
- KINDEX(2, 170)=58
+ KINDEX(1, 160)=13
+ KINDEX(2, 160)=58
+ KINDEX(1, 161)=14
+ KINDEX(2, 161)=58
+ KINDEX(1, 162)=15
+ KINDEX(2, 162)=58
+ KINDEX(1, 163)=18
+ KINDEX(2, 163)=58
+ KINDEX(1, 164)=22
+ KINDEX(2, 164)=58
+ KINDEX(1, 165)=23
+ KINDEX(2, 165)=58
+ KINDEX(1, 166)=24
+ KINDEX(2, 166)=58
+ KINDEX(1, 167)=25
+ KINDEX(2, 167)=58
+ KINDEX(1, 168)=30
+ KINDEX(2, 168)=58
+ KINDEX(1, 169)=33
+ KINDEX(2, 169)=58
+ KINDEX(1, 170)=14
+ KINDEX(2, 170)=59
KINDEX(1, 171)=19
- KINDEX(2, 171)=58
- KINDEX(1, 172)=29
- KINDEX(2, 172)=58
- KINDEX(1, 173)=85
- KINDEX(2, 173)=58
- KINDEX(1, 174)=87
- KINDEX(2, 174)=58
- KINDEX(1, 175)=15
- KINDEX(2, 175)=59
- KINDEX(1, 176)=19
- KINDEX(2, 176)=59
- KINDEX(1, 177)=85
- KINDEX(2, 177)=59
- KINDEX(1, 178)=87
- KINDEX(2, 178)=59
- KINDEX(1, 179)=10
- KINDEX(2, 179)=60
- KINDEX(1, 180)=11
- KINDEX(2, 180)=60
- KINDEX(1, 181)=29
- KINDEX(2, 181)=60
- KINDEX(1, 182)=85
- KINDEX(2, 182)=60
- KINDEX(1, 183)=87
- KINDEX(2, 183)=60
- KINDEX(1, 184)=15
- KINDEX(2, 184)=61
- KINDEX(1, 185)=29
- KINDEX(2, 185)=61
- KINDEX(1, 186)=85
- KINDEX(2, 186)=61
- KINDEX(1, 187)=5
- KINDEX(2, 187)=62
- KINDEX(1, 188)=8
- KINDEX(2, 188)=62
- KINDEX(1, 189)=29
- KINDEX(2, 189)=62
- KINDEX(1, 190)=85
- KINDEX(2, 190)=62
- KINDEX(1, 191)=15
- KINDEX(2, 191)=63
- KINDEX(1, 192)=30
- KINDEX(2, 192)=63
- KINDEX(1, 193)=85
- KINDEX(2, 193)=63
- KINDEX(1, 194)=30
- KINDEX(2, 194)=64
- KINDEX(1, 195)=85
- KINDEX(2, 195)=64
- KINDEX(1, 196)=87
- KINDEX(2, 196)=64
- KINDEX(1, 197)=15
+ KINDEX(2, 171)=59
+ KINDEX(1, 172)=34
+ KINDEX(2, 172)=59
+ KINDEX(1, 173)=35
+ KINDEX(2, 173)=59
+ KINDEX(1, 174)=14
+ KINDEX(2, 174)=60
+ KINDEX(1, 175)=20
+ KINDEX(2, 175)=60
+ KINDEX(1, 176)=35
+ KINDEX(2, 176)=60
+ KINDEX(1, 177)=14
+ KINDEX(2, 177)=61
+ KINDEX(1, 178)=15
+ KINDEX(2, 178)=61
+ KINDEX(1, 179)=21
+ KINDEX(2, 179)=61
+ KINDEX(1, 180)=36
+ KINDEX(2, 180)=61
+ KINDEX(1, 181)=37
+ KINDEX(2, 181)=61
+ KINDEX(1, 182)=41
+ KINDEX(2, 182)=61
+ KINDEX(1, 183)=13
+ KINDEX(2, 183)=62
+ KINDEX(1, 184)=14
+ KINDEX(2, 184)=62
+ KINDEX(1, 185)=15
+ KINDEX(2, 185)=62
+ KINDEX(1, 186)=22
+ KINDEX(2, 186)=62
+ KINDEX(1, 187)=14
+ KINDEX(2, 187)=63
+ KINDEX(1, 188)=23
+ KINDEX(2, 188)=63
+ KINDEX(1, 189)=39
+ KINDEX(2, 189)=63
+ KINDEX(1, 190)=14
+ KINDEX(2, 190)=64
+ KINDEX(1, 191)=24
+ KINDEX(2, 191)=64
+ KINDEX(1, 192)=39
+ KINDEX(2, 192)=64
+ KINDEX(1, 193)=13
+ KINDEX(2, 193)=65
+ KINDEX(1, 194)=14
+ KINDEX(2, 194)=65
+ KINDEX(1, 195)=15
+ KINDEX(2, 195)=65
+ KINDEX(1, 196)=22
+ KINDEX(2, 196)=65
+ KINDEX(1, 197)=23
KINDEX(2, 197)=65
- KINDEX(1, 198)=35
+ KINDEX(1, 198)=24
KINDEX(2, 198)=65
- KINDEX(1, 199)=85
+ KINDEX(1, 199)=25
KINDEX(2, 199)=65
- KINDEX(1, 200)=8
- KINDEX(2, 200)=66
- KINDEX(1, 201)=35
- KINDEX(2, 201)=66
- KINDEX(1, 202)=85
+ KINDEX(1, 200)=39
+ KINDEX(2, 200)=65
+ KINDEX(1, 201)=41
+ KINDEX(2, 201)=65
+ KINDEX(1, 202)=14
KINDEX(2, 202)=66
- KINDEX(1, 203)=3
- KINDEX(2, 203)=67
- KINDEX(1, 204)=10
- KINDEX(2, 204)=67
- KINDEX(1, 205)=11
+ KINDEX(1, 203)=15
+ KINDEX(2, 203)=66
+ KINDEX(1, 204)=30
+ KINDEX(2, 204)=66
+ KINDEX(1, 205)=14
KINDEX(2, 205)=67
- KINDEX(1, 206)=15
+ KINDEX(1, 206)=31
KINDEX(2, 206)=67
- KINDEX(1, 207)=17
- KINDEX(2, 207)=67
- KINDEX(1, 208)=28
- KINDEX(2, 208)=67
- KINDEX(1, 209)=35
- KINDEX(2, 209)=67
- KINDEX(1, 210)=39
- KINDEX(2, 210)=67
- KINDEX(1, 211)=40
- KINDEX(2, 211)=67
- KINDEX(1, 212)=43
- KINDEX(2, 212)=67
- KINDEX(1, 213)=85
- KINDEX(2, 213)=67
- KINDEX(1, 214)=17
- KINDEX(2, 214)=68
- KINDEX(1, 215)=29
- KINDEX(2, 215)=68
- KINDEX(1, 216)=35
- KINDEX(2, 216)=68
- KINDEX(1, 217)=15
+ KINDEX(1, 207)=14
+ KINDEX(2, 207)=68
+ KINDEX(1, 208)=22
+ KINDEX(2, 208)=68
+ KINDEX(1, 209)=28
+ KINDEX(2, 209)=68
+ KINDEX(1, 210)=32
+ KINDEX(2, 210)=68
+ KINDEX(1, 211)=14
+ KINDEX(2, 211)=69
+ KINDEX(1, 212)=15
+ KINDEX(2, 212)=69
+ KINDEX(1, 213)=22
+ KINDEX(2, 213)=69
+ KINDEX(1, 214)=23
+ KINDEX(2, 214)=69
+ KINDEX(1, 215)=24
+ KINDEX(2, 215)=69
+ KINDEX(1, 216)=29
+ KINDEX(2, 216)=69
+ KINDEX(1, 217)=33
KINDEX(2, 217)=69
- KINDEX(1, 218)=38
+ KINDEX(1, 218)=39
KINDEX(2, 218)=69
- KINDEX(1, 219)=85
+ KINDEX(1, 219)=41
KINDEX(2, 219)=69
- KINDEX(1, 220)=15
+ KINDEX(1, 220)=5
KINDEX(2, 220)=70
- KINDEX(1, 221)=34
+ KINDEX(1, 221)=14
KINDEX(2, 221)=70
- KINDEX(1, 222)=85
+ KINDEX(1, 222)=15
KINDEX(2, 222)=70
- KINDEX(1, 223)=15
- KINDEX(2, 223)=71
- KINDEX(1, 224)=31
- KINDEX(2, 224)=71
- KINDEX(1, 225)=85
- KINDEX(2, 225)=71
- KINDEX(1, 226)=31
- KINDEX(2, 226)=72
- KINDEX(1, 227)=85
- KINDEX(2, 227)=72
- KINDEX(1, 228)=87
- KINDEX(2, 228)=72
- KINDEX(1, 229)=5
- KINDEX(2, 229)=73
- KINDEX(1, 230)=8
- KINDEX(2, 230)=73
- KINDEX(1, 231)=24
- KINDEX(2, 231)=73
- KINDEX(1, 232)=10
- KINDEX(2, 232)=74
- KINDEX(1, 233)=15
- KINDEX(2, 233)=74
- KINDEX(1, 234)=24
- KINDEX(2, 234)=74
- KINDEX(1, 235)=85
- KINDEX(2, 235)=74
- KINDEX(1, 236)=15
- KINDEX(2, 236)=75
- KINDEX(1, 237)=18
- KINDEX(2, 237)=75
- KINDEX(1, 238)=85
- KINDEX(2, 238)=75
- KINDEX(1, 239)=8
- KINDEX(2, 239)=76
- KINDEX(1, 240)=18
- KINDEX(2, 240)=76
- KINDEX(1, 241)=85
- KINDEX(2, 241)=76
- KINDEX(1, 242)=3
- KINDEX(2, 242)=77
- KINDEX(1, 243)=10
- KINDEX(2, 243)=77
- KINDEX(1, 244)=11
- KINDEX(2, 244)=77
- KINDEX(1, 245)=15
- KINDEX(2, 245)=77
- KINDEX(1, 246)=18
- KINDEX(2, 246)=77
- KINDEX(1, 247)=20
- KINDEX(2, 247)=77
- KINDEX(1, 248)=28
- KINDEX(2, 248)=77
- KINDEX(1, 249)=45
- KINDEX(2, 249)=77
- KINDEX(1, 250)=69
- KINDEX(2, 250)=77
- KINDEX(1, 251)=85
- KINDEX(2, 251)=77
- KINDEX(1, 252)=18
- KINDEX(2, 252)=78
- KINDEX(1, 253)=20
- KINDEX(2, 253)=78
- KINDEX(1, 254)=69
- KINDEX(2, 254)=78
- KINDEX(1, 255)=85
- KINDEX(2, 255)=78
- KINDEX(1, 256)=15
- KINDEX(2, 256)=79
- KINDEX(1, 257)=20
- KINDEX(2, 257)=79
- KINDEX(1, 258)=85
- KINDEX(2, 258)=79
- KINDEX(1, 259)=10
- KINDEX(2, 259)=80
- KINDEX(1, 260)=15
- KINDEX(2, 260)=80
- KINDEX(1, 261)=23
- KINDEX(2, 261)=80
- KINDEX(1, 262)=24
- KINDEX(2, 262)=80
- KINDEX(1, 263)=85
- KINDEX(2, 263)=80
- KINDEX(1, 264)=10
- KINDEX(2, 264)=81
- KINDEX(1, 265)=15
- KINDEX(2, 265)=81
- KINDEX(1, 266)=22
- KINDEX(2, 266)=81
- KINDEX(1, 267)=24
- KINDEX(2, 267)=81
- KINDEX(1, 268)=3
- KINDEX(2, 268)=82
- KINDEX(1, 269)=5
- KINDEX(2, 269)=82
- KINDEX(1, 270)=8
- KINDEX(2, 270)=82
- KINDEX(1, 271)=25
- KINDEX(2, 271)=82
- KINDEX(1, 272)=26
- KINDEX(2, 272)=82
- KINDEX(1, 273)=3
- KINDEX(2, 273)=83
- KINDEX(1, 274)=10
- KINDEX(2, 274)=83
- KINDEX(1, 275)=15
- KINDEX(2, 275)=83
- KINDEX(1, 276)=25
- KINDEX(2, 276)=83
- KINDEX(1, 277)=26
- KINDEX(2, 277)=83
- KINDEX(1, 278)=75
- KINDEX(2, 278)=83
- KINDEX(1, 279)=85
- KINDEX(2, 279)=83
- KINDEX(1, 280)=10
- KINDEX(2, 280)=84
- KINDEX(1, 281)=15
- KINDEX(2, 281)=84
- KINDEX(1, 282)=26
- KINDEX(2, 282)=84
- KINDEX(1, 283)=60
- KINDEX(2, 283)=84
- KINDEX(1, 284)=85
- KINDEX(2, 284)=84
- KINDEX(1, 285)=15
- KINDEX(2, 285)=85
- KINDEX(1, 286)=36
- KINDEX(2, 286)=85
- KINDEX(1, 287)=85
- KINDEX(2, 287)=85
- KINDEX(1, 288)=8
- KINDEX(2, 288)=86
- KINDEX(1, 289)=36
- KINDEX(2, 289)=86
- KINDEX(1, 290)=85
- KINDEX(2, 290)=86
- KINDEX(1, 291)=3
- KINDEX(2, 291)=87
- KINDEX(1, 292)=10
- KINDEX(2, 292)=87
- KINDEX(1, 293)=11
- KINDEX(2, 293)=87
- KINDEX(1, 294)=12
- KINDEX(2, 294)=87
- KINDEX(1, 295)=15
- KINDEX(2, 295)=87
- KINDEX(1, 296)=36
- KINDEX(2, 296)=87
- KINDEX(1, 297)=53
- KINDEX(2, 297)=87
- KINDEX(1, 298)=57
- KINDEX(2, 298)=87
- KINDEX(1, 299)=85
- KINDEX(2, 299)=87
- KINDEX(1, 300)=36
- KINDEX(2, 300)=88
- KINDEX(1, 301)=68
- KINDEX(2, 301)=88
- KINDEX(1, 302)=15
- KINDEX(2, 302)=89
- KINDEX(1, 303)=37
- KINDEX(2, 303)=89
- KINDEX(1, 304)=85
- KINDEX(2, 304)=89
- KINDEX(1, 305)=8
- KINDEX(2, 305)=90
- KINDEX(1, 306)=37
- KINDEX(2, 306)=90
- KINDEX(1, 307)=85
- KINDEX(2, 307)=90
- KINDEX(1, 308)=3
- KINDEX(2, 308)=91
- KINDEX(1, 309)=11
- KINDEX(2, 309)=91
- KINDEX(1, 310)=12
- KINDEX(2, 310)=91
- KINDEX(1, 311)=15
- KINDEX(2, 311)=91
- KINDEX(1, 312)=37
- KINDEX(2, 312)=91
- KINDEX(1, 313)=54
- KINDEX(2, 313)=91
- KINDEX(1, 314)=56
- KINDEX(2, 314)=91
- KINDEX(1, 315)=85
- KINDEX(2, 315)=91
- KINDEX(1, 316)=37
- KINDEX(2, 316)=92
- KINDEX(1, 317)=10
- KINDEX(2, 317)=93
- KINDEX(1, 318)=15
- KINDEX(2, 318)=93
- KINDEX(1, 319)=27
- KINDEX(2, 319)=93
- KINDEX(1, 320)=64
- KINDEX(2, 320)=93
- KINDEX(1, 321)=85
- KINDEX(2, 321)=93
- KINDEX(1, 322)=15
- KINDEX(2, 322)=94
- KINDEX(1, 323)=21
- KINDEX(2, 323)=94
- KINDEX(1, 324)=85
- KINDEX(2, 324)=94
- KINDEX(1, 325)=10
- KINDEX(2, 325)=95
- KINDEX(1, 326)=85
- KINDEX(2, 326)=95
- KINDEX(1, 327)=1
- KINDEX(2, 327)=96
- KINDEX(1, 328)=85
- KINDEX(2, 328)=96
- KINDEX(1, 329)=85
- KINDEX(2, 329)=97
- KINDEX(1, 330)=85
- KINDEX(2, 330)=98
- KINDEX(1, 331)=85
- KINDEX(2, 331)=99
- KINDEX(1, 332)=85
- KINDEX(2, 332)=100
- KINDEX(1, 333)=85
- KINDEX(2, 333)=101
- KINDEX(1, 334)=85
- KINDEX(2, 334)=102
- KINDEX(1, 335)=85
- KINDEX(2, 335)=103
- KINDEX(1, 336)=2
- KINDEX(2, 336)=104
- KINDEX(1, 337)=61
- KINDEX(2, 337)=104
- KINDEX(1, 338)=2
- KINDEX(2, 338)=105
- KINDEX(1, 339)=61
- KINDEX(2, 339)=105
- KINDEX(1, 340)=2
- KINDEX(2, 340)=106
- KINDEX(1, 341)=2
- KINDEX(2, 341)=107
- KINDEX(1, 342)=2
- KINDEX(2, 342)=108
- KINDEX(1, 343)=70
- KINDEX(2, 343)=108
- KINDEX(1, 344)=2
- KINDEX(2, 344)=109
- KINDEX(1, 345)=60
- KINDEX(2, 345)=109
- KINDEX(1, 346)=2
- KINDEX(2, 346)=110
- KINDEX(1, 347)=64
- KINDEX(2, 347)=110
- KINDEX(1, 348)=1
- KINDEX(2, 348)=111
- KINDEX(1, 349)=2
- KINDEX(2, 349)=111
- KINDEX(1, 350)=10
- KINDEX(2, 350)=111
- KINDEX(1, 351)=28
- KINDEX(2, 351)=111
- KINDEX(1, 352)=86
- KINDEX(2, 352)=111
- KINDEX(1, 353)=10
- KINDEX(2, 353)=112
- KINDEX(1, 354)=28
- KINDEX(2, 354)=112
- KINDEX(1, 355)=85
- KINDEX(2, 355)=112
- KINDEX(1, 356)=86
- KINDEX(2, 356)=112
- KINDEX(1, 357)=10
- KINDEX(2, 357)=113
- KINDEX(1, 358)=15
- KINDEX(2, 358)=113
- KINDEX(1, 359)=28
- KINDEX(2, 359)=113
- KINDEX(1, 360)=86
- KINDEX(2, 360)=113
- KINDEX(1, 361)=1
- KINDEX(2, 361)=114
- KINDEX(1, 362)=2
- KINDEX(2, 362)=114
- KINDEX(1, 363)=10
- KINDEX(2, 363)=114
- KINDEX(1, 364)=28
- KINDEX(2, 364)=114
- KINDEX(1, 365)=29
- KINDEX(2, 365)=114
- KINDEX(1, 366)=10
- KINDEX(2, 366)=115
- KINDEX(1, 367)=28
- KINDEX(2, 367)=115
- KINDEX(1, 368)=29
- KINDEX(2, 368)=115
- KINDEX(1, 369)=85
- KINDEX(2, 369)=115
- KINDEX(1, 370)=10
- KINDEX(2, 370)=116
- KINDEX(1, 371)=15
- KINDEX(2, 371)=116
- KINDEX(1, 372)=28
- KINDEX(2, 372)=116
- KINDEX(1, 373)=29
- KINDEX(2, 373)=116
- KINDEX(1, 374)=1
- KINDEX(2, 374)=117
- KINDEX(1, 375)=2
- KINDEX(2, 375)=117
- KINDEX(1, 376)=28
- KINDEX(2, 376)=117
- KINDEX(1, 377)=29
- KINDEX(2, 377)=117
- KINDEX(1, 378)=2
- KINDEX(2, 378)=118
- KINDEX(1, 379)=10
- KINDEX(2, 379)=118
- KINDEX(1, 380)=28
- KINDEX(2, 380)=118
- KINDEX(1, 381)=29
- KINDEX(2, 381)=118
- KINDEX(1, 382)=85
- KINDEX(2, 382)=118
- KINDEX(1, 383)=2
- KINDEX(2, 383)=119
- KINDEX(1, 384)=10
- KINDEX(2, 384)=119
- KINDEX(1, 385)=15
- KINDEX(2, 385)=119
- KINDEX(1, 386)=28
- KINDEX(2, 386)=119
- KINDEX(1, 387)=29
- KINDEX(2, 387)=119
- KINDEX(1, 388)=1
- KINDEX(2, 388)=120
- KINDEX(1, 389)=2
- KINDEX(2, 389)=120
- KINDEX(1, 390)=10
- KINDEX(2, 390)=120
- KINDEX(1, 391)=11
- KINDEX(2, 391)=120
- KINDEX(1, 392)=28
- KINDEX(2, 392)=120
- KINDEX(1, 393)=10
- KINDEX(2, 393)=121
- KINDEX(1, 394)=11
- KINDEX(2, 394)=121
- KINDEX(1, 395)=28
- KINDEX(2, 395)=121
- KINDEX(1, 396)=85
- KINDEX(2, 396)=121
- KINDEX(1, 397)=10
- KINDEX(2, 397)=122
- KINDEX(1, 398)=11
- KINDEX(2, 398)=122
+ KINDEX(1, 223)=22
+ KINDEX(2, 223)=70
+ KINDEX(1, 224)=25
+ KINDEX(2, 224)=70
+ KINDEX(1, 225)=27
+ KINDEX(2, 225)=70
+ KINDEX(1, 226)=41
+ KINDEX(2, 226)=70
+ KINDEX(1, 227)=4
+ KINDEX(2, 227)=71
+ KINDEX(1, 228)=14
+ KINDEX(2, 228)=71
+ KINDEX(1, 229)=26
+ KINDEX(2, 229)=71
+ KINDEX(1, 230)=33
+ KINDEX(2, 230)=71
+ KINDEX(1, 231)=5
+ KINDEX(2, 231)=72
+ KINDEX(1, 232)=8
+ KINDEX(2, 232)=72
+ KINDEX(1, 233)=13
+ KINDEX(2, 233)=72
+ KINDEX(1, 234)=15
+ KINDEX(2, 234)=72
+ KINDEX(1, 235)=22
+ KINDEX(2, 235)=72
+ KINDEX(1, 236)=5
+ KINDEX(2, 236)=73
+ KINDEX(1, 237)=8
+ KINDEX(2, 237)=73
+ KINDEX(1, 238)=23
+ KINDEX(2, 238)=73
+ KINDEX(1, 239)=39
+ KINDEX(2, 239)=73
+ KINDEX(1, 240)=4
+ KINDEX(2, 240)=74
+ KINDEX(1, 241)=5
+ KINDEX(2, 241)=74
+ KINDEX(1, 242)=8
+ KINDEX(2, 242)=74
+ KINDEX(1, 243)=13
+ KINDEX(2, 243)=74
+ KINDEX(1, 244)=15
+ KINDEX(2, 244)=74
+ KINDEX(1, 245)=23
+ KINDEX(2, 245)=74
+ KINDEX(1, 246)=24
+ KINDEX(2, 246)=74
+ KINDEX(1, 247)=25
+ KINDEX(2, 247)=74
+ KINDEX(1, 248)=39
+ KINDEX(2, 248)=74
+ KINDEX(1, 249)=40
+ KINDEX(2, 249)=74
+ KINDEX(1, 250)=41
+ KINDEX(2, 250)=74
+ KINDEX(1, 251)=5
+ KINDEX(2, 251)=75
+ KINDEX(1, 252)=8
+ KINDEX(2, 252)=75
+ KINDEX(1, 253)=21
+ KINDEX(2, 253)=75
+ KINDEX(1, 254)=36
+ KINDEX(2, 254)=75
+ KINDEX(1, 255)=5
+ KINDEX(2, 255)=76
+ KINDEX(1, 256)=19
+ KINDEX(2, 256)=76
+ KINDEX(1, 257)=25
+ KINDEX(2, 257)=76
+ KINDEX(1, 258)=40
+ KINDEX(2, 258)=76
+ KINDEX(1, 259)=5
+ KINDEX(2, 259)=77
+ KINDEX(1, 260)=20
+ KINDEX(2, 260)=77
+ KINDEX(1, 261)=25
+ KINDEX(2, 261)=77
+ KINDEX(1, 262)=40
+ KINDEX(2, 262)=77
+ KINDEX(1, 263)=4
+ KINDEX(2, 263)=78
+ KINDEX(1, 264)=5
+ KINDEX(2, 264)=78
+ KINDEX(1, 265)=22
+ KINDEX(2, 265)=78
+ KINDEX(1, 266)=26
+ KINDEX(2, 266)=78
+ KINDEX(1, 267)=27
+ KINDEX(2, 267)=78
+ KINDEX(1, 268)=41
+ KINDEX(2, 268)=78
+ KINDEX(1, 269)=1
+ KINDEX(2, 269)=79
+ KINDEX(1, 270)=2
+ KINDEX(2, 270)=79
+ KINDEX(1, 271)=13
+ KINDEX(2, 271)=79
+ KINDEX(1, 272)=14
+ KINDEX(2, 272)=79
+ KINDEX(1, 273)=15
+ KINDEX(2, 273)=79
+ KINDEX(1, 274)=16
+ KINDEX(2, 274)=79
+ KINDEX(1, 275)=17
+ KINDEX(2, 275)=79
+ KINDEX(1, 276)=19
+ KINDEX(2, 276)=79
+ KINDEX(1, 277)=22
+ KINDEX(2, 277)=79
+ KINDEX(1, 278)=23
+ KINDEX(2, 278)=79
+ KINDEX(1, 279)=24
+ KINDEX(2, 279)=79
+ KINDEX(1, 280)=25
+ KINDEX(2, 280)=79
+ KINDEX(1, 281)=30
+ KINDEX(2, 281)=79
+ KINDEX(1, 282)=31
+ KINDEX(2, 282)=79
+ KINDEX(1, 283)=32
+ KINDEX(2, 283)=79
+ KINDEX(1, 284)=33
+ KINDEX(2, 284)=79
+ KINDEX(1, 285)=39
+ KINDEX(2, 285)=79
+ KINDEX(1, 286)=41
+ KINDEX(2, 286)=79
+ KINDEX(1, 287)=1
+ KINDEX(2, 287)=80
+ KINDEX(1, 288)=2
+ KINDEX(2, 288)=80
+ KINDEX(1, 289)=13
+ KINDEX(2, 289)=80
+ KINDEX(1, 290)=14
+ KINDEX(2, 290)=80
+ KINDEX(1, 291)=15
+ KINDEX(2, 291)=80
+ KINDEX(1, 292)=19
+ KINDEX(2, 292)=80
+ KINDEX(1, 293)=20
+ KINDEX(2, 293)=80
+ KINDEX(1, 294)=22
+ KINDEX(2, 294)=80
+ KINDEX(1, 295)=23
+ KINDEX(2, 295)=80
+ KINDEX(1, 296)=24
+ KINDEX(2, 296)=80
+ KINDEX(1, 297)=25
+ KINDEX(2, 297)=80
+ KINDEX(1, 298)=30
+ KINDEX(2, 298)=80
+ KINDEX(1, 299)=31
+ KINDEX(2, 299)=80
+ KINDEX(1, 300)=32
+ KINDEX(2, 300)=80
+ KINDEX(1, 301)=33
+ KINDEX(2, 301)=80
+ KINDEX(1, 302)=39
+ KINDEX(2, 302)=80
+ KINDEX(1, 303)=41
+ KINDEX(2, 303)=80
+ KINDEX(1, 304)=1
+ KINDEX(2, 304)=81
+ KINDEX(1, 305)=13
+ KINDEX(2, 305)=81
+ KINDEX(1, 306)=14
+ KINDEX(2, 306)=81
+ KINDEX(1, 307)=15
+ KINDEX(2, 307)=81
+ KINDEX(1, 308)=22
+ KINDEX(2, 308)=81
+ KINDEX(1, 309)=23
+ KINDEX(2, 309)=81
+ KINDEX(1, 310)=25
+ KINDEX(2, 310)=81
+ KINDEX(1, 311)=29
+ KINDEX(2, 311)=81
+ KINDEX(1, 312)=30
+ KINDEX(2, 312)=81
+ KINDEX(1, 313)=31
+ KINDEX(2, 313)=81
+ KINDEX(1, 314)=39
+ KINDEX(2, 314)=81
+ KINDEX(1, 315)=1
+ KINDEX(2, 315)=82
+ KINDEX(1, 316)=4
+ KINDEX(2, 316)=82
+ KINDEX(1, 317)=13
+ KINDEX(2, 317)=82
+ KINDEX(1, 318)=14
+ KINDEX(2, 318)=82
+ KINDEX(1, 319)=15
+ KINDEX(2, 319)=82
+ KINDEX(1, 320)=22
+ KINDEX(2, 320)=82
+ KINDEX(1, 321)=27
+ KINDEX(2, 321)=82
+ KINDEX(1, 322)=30
+ KINDEX(2, 322)=82
+ KINDEX(1, 323)=39
+ KINDEX(2, 323)=82
+ KINDEX(1, 324)=4
+ KINDEX(2, 324)=83
+ KINDEX(1, 325)=21
+ KINDEX(2, 325)=83
+ KINDEX(1, 326)=26
+ KINDEX(2, 326)=83
+ KINDEX(1, 327)=36
+ KINDEX(2, 327)=83
+ KINDEX(1, 328)=15
+ KINDEX(2, 328)=84
+ KINDEX(1, 329)=21
+ KINDEX(2, 329)=84
+ KINDEX(1, 330)=36
+ KINDEX(2, 330)=84
+ KINDEX(1, 331)=4
+ KINDEX(2, 331)=85
+ KINDEX(1, 332)=7
+ KINDEX(2, 332)=85
+ KINDEX(1, 333)=21
+ KINDEX(2, 333)=85
+ KINDEX(1, 334)=37
+ KINDEX(2, 334)=85
+ KINDEX(1, 335)=15
+ KINDEX(2, 335)=86
+ KINDEX(1, 336)=21
+ KINDEX(2, 336)=86
+ KINDEX(1, 337)=37
+ KINDEX(2, 337)=86
+ KINDEX(1, 338)=38
+ KINDEX(2, 338)=86
+ KINDEX(1, 339)=1
+ KINDEX(2, 339)=87
+ KINDEX(1, 340)=14
+ KINDEX(2, 340)=87
+ KINDEX(1, 341)=21
+ KINDEX(2, 341)=87
+ KINDEX(1, 342)=37
+ KINDEX(2, 342)=87
+ KINDEX(1, 343)=4
+ KINDEX(2, 343)=88
+ KINDEX(1, 344)=27
+ KINDEX(2, 344)=88
+ KINDEX(1, 345)=39
+ KINDEX(2, 345)=88
+ KINDEX(1, 346)=4
+ KINDEX(2, 346)=89
+ KINDEX(1, 347)=27
+ KINDEX(2, 347)=89
+ KINDEX(1, 348)=39
+ KINDEX(2, 348)=89
+ KINDEX(1, 349)=3
+ KINDEX(2, 349)=90
+ KINDEX(1, 350)=4
+ KINDEX(2, 350)=90
+ KINDEX(1, 351)=15
+ KINDEX(2, 351)=90
+ KINDEX(1, 352)=22
+ KINDEX(2, 352)=90
+ KINDEX(1, 353)=32
+ KINDEX(2, 353)=90
+ KINDEX(1, 354)=3
+ KINDEX(2, 354)=91
+ KINDEX(1, 355)=4
+ KINDEX(2, 355)=91
+ KINDEX(1, 356)=15
+ KINDEX(2, 356)=91
+ KINDEX(1, 357)=22
+ KINDEX(2, 357)=91
+ KINDEX(1, 358)=23
+ KINDEX(2, 358)=91
+ KINDEX(1, 359)=24
+ KINDEX(2, 359)=91
+ KINDEX(1, 360)=25
+ KINDEX(2, 360)=91
+ KINDEX(1, 361)=26
+ KINDEX(2, 361)=91
+ KINDEX(1, 362)=32
+ KINDEX(2, 362)=91
+ KINDEX(1, 363)=33
+ KINDEX(2, 363)=91
+ KINDEX(1, 364)=41
+ KINDEX(2, 364)=91
+ KINDEX(1, 365)=3
+ KINDEX(2, 365)=92
+ KINDEX(1, 366)=4
+ KINDEX(2, 366)=92
+ KINDEX(1, 367)=15
+ KINDEX(2, 367)=92
+ KINDEX(1, 368)=22
+ KINDEX(2, 368)=92
+ KINDEX(1, 369)=23
+ KINDEX(2, 369)=92
+ KINDEX(1, 370)=24
+ KINDEX(2, 370)=92
+ KINDEX(1, 371)=34
+ KINDEX(2, 371)=92
+ KINDEX(1, 372)=3
+ KINDEX(2, 372)=93
+ KINDEX(1, 373)=4
+ KINDEX(2, 373)=93
+ KINDEX(1, 374)=15
+ KINDEX(2, 374)=93
+ KINDEX(1, 375)=19
+ KINDEX(2, 375)=93
+ KINDEX(1, 376)=22
+ KINDEX(2, 376)=93
+ KINDEX(1, 377)=23
+ KINDEX(2, 377)=93
+ KINDEX(1, 378)=24
+ KINDEX(2, 378)=93
+ KINDEX(1, 379)=25
+ KINDEX(2, 379)=93
+ KINDEX(1, 380)=26
+ KINDEX(2, 380)=93
+ KINDEX(1, 381)=35
+ KINDEX(2, 381)=93
+ KINDEX(1, 382)=3
+ KINDEX(2, 382)=94
+ KINDEX(1, 383)=4
+ KINDEX(2, 383)=94
+ KINDEX(1, 384)=15
+ KINDEX(2, 384)=94
+ KINDEX(1, 385)=25
+ KINDEX(2, 385)=94
+ KINDEX(1, 386)=26
+ KINDEX(2, 386)=94
+ KINDEX(1, 387)=38
+ KINDEX(2, 387)=94
+ KINDEX(1, 388)=3
+ KINDEX(2, 388)=95
+ KINDEX(1, 389)=4
+ KINDEX(2, 389)=95
+ KINDEX(1, 390)=15
+ KINDEX(2, 390)=95
+ KINDEX(1, 391)=22
+ KINDEX(2, 391)=95
+ KINDEX(1, 392)=23
+ KINDEX(2, 392)=95
+ KINDEX(1, 393)=25
+ KINDEX(2, 393)=95
+ KINDEX(1, 394)=32
+ KINDEX(2, 394)=95
+ KINDEX(1, 395)=39
+ KINDEX(2, 395)=95
+ KINDEX(1, 396)=41
+ KINDEX(2, 396)=95
+ KINDEX(1, 397)=3
+ KINDEX(2, 397)=96
+ KINDEX(1, 398)=4
+ KINDEX(2, 398)=96
KINDEX(1, 399)=15
- KINDEX(2, 399)=122
- KINDEX(1, 400)=28
- KINDEX(2, 400)=122
- KINDEX(1, 401)=1
- KINDEX(2, 401)=123
- KINDEX(1, 402)=2
- KINDEX(2, 402)=123
- KINDEX(1, 403)=10
- KINDEX(2, 403)=123
- KINDEX(1, 404)=19
- KINDEX(2, 404)=123
- KINDEX(1, 405)=29
- KINDEX(2, 405)=123
- KINDEX(1, 406)=87
- KINDEX(2, 406)=123
- KINDEX(1, 407)=10
- KINDEX(2, 407)=124
- KINDEX(1, 408)=29
- KINDEX(2, 408)=124
- KINDEX(1, 409)=85
- KINDEX(2, 409)=124
- KINDEX(1, 410)=87
- KINDEX(2, 410)=124
- KINDEX(1, 411)=10
- KINDEX(2, 411)=125
- KINDEX(1, 412)=15
- KINDEX(2, 412)=125
- KINDEX(1, 413)=29
- KINDEX(2, 413)=125
- KINDEX(1, 414)=87
- KINDEX(2, 414)=125
- KINDEX(1, 415)=1
- KINDEX(2, 415)=126
- KINDEX(1, 416)=2
- KINDEX(2, 416)=126
- KINDEX(1, 417)=85
- KINDEX(2, 417)=126
- KINDEX(1, 418)=87
- KINDEX(2, 418)=126
- KINDEX(1, 419)=2
- KINDEX(2, 419)=127
- KINDEX(1, 420)=77
- KINDEX(2, 420)=127
- KINDEX(1, 421)=2
- KINDEX(2, 421)=128
- KINDEX(1, 422)=78
- KINDEX(2, 422)=128
- KINDEX(1, 423)=2
- KINDEX(2, 423)=129
- KINDEX(1, 424)=79
- KINDEX(2, 424)=129
- KINDEX(1, 425)=2
- KINDEX(2, 425)=130
- KINDEX(1, 426)=80
- KINDEX(2, 426)=130
- KINDEX(1, 427)=2
- KINDEX(2, 427)=131
- KINDEX(1, 428)=76
- KINDEX(2, 428)=131
- KINDEX(1, 429)=2
- KINDEX(2, 429)=132
- KINDEX(1, 430)=81
- KINDEX(2, 430)=132
- KINDEX(1, 431)=2
- KINDEX(2, 431)=133
- KINDEX(1, 432)=82
- KINDEX(2, 432)=133
- KINDEX(1, 433)=2
- KINDEX(2, 433)=134
- KINDEX(1, 434)=76
- KINDEX(2, 434)=134
- KINDEX(1, 435)=2
- KINDEX(2, 435)=135
- KINDEX(1, 436)=84
- KINDEX(2, 436)=135
- KINDEX(1, 437)=2
- KINDEX(2, 437)=136
- KINDEX(1, 438)=77
- KINDEX(2, 438)=136
- KINDEX(1, 439)=85
- KINDEX(2, 439)=136
- KINDEX(1, 440)=2
- KINDEX(2, 440)=137
- KINDEX(1, 441)=78
- KINDEX(2, 441)=137
- KINDEX(1, 442)=85
- KINDEX(2, 442)=137
- KINDEX(1, 443)=2
- KINDEX(2, 443)=138
- KINDEX(1, 444)=79
- KINDEX(2, 444)=138
- KINDEX(1, 445)=85
- KINDEX(2, 445)=138
- KINDEX(1, 446)=2
- KINDEX(2, 446)=139
- KINDEX(1, 447)=84
- KINDEX(2, 447)=139
- KINDEX(1, 448)=85
- KINDEX(2, 448)=139
- KINDEX(1, 449)=2
- KINDEX(2, 449)=140
- KINDEX(1, 450)=76
- KINDEX(2, 450)=140
- KINDEX(1, 451)=85
- KINDEX(2, 451)=140
- KINDEX(1, 452)=2
- KINDEX(2, 452)=141
- KINDEX(1, 453)=81
- KINDEX(2, 453)=141
- KINDEX(1, 454)=85
- KINDEX(2, 454)=141
- KINDEX(1, 455)=2
- KINDEX(2, 455)=142
- KINDEX(1, 456)=80
- KINDEX(2, 456)=142
- KINDEX(1, 457)=85
- KINDEX(2, 457)=142
- KINDEX(1, 458)=3
- KINDEX(2, 458)=143
- KINDEX(1, 459)=10
- KINDEX(2, 459)=143
- KINDEX(1, 460)=44
- KINDEX(2, 460)=143
- KINDEX(1, 461)=45
- KINDEX(2, 461)=143
- KINDEX(1, 462)=85
- KINDEX(2, 462)=144
- KINDEX(1, 463)=87
- KINDEX(2, 463)=144
- KINDEX(1, 464)=1
- KINDEX(2, 464)=145
- KINDEX(1, 465)=2
- KINDEX(2, 465)=145
- KINDEX(1, 466)=29
- KINDEX(2, 466)=145
- KINDEX(1, 467)=85
- KINDEX(2, 467)=145
- KINDEX(1, 468)=29
- KINDEX(2, 468)=146
- KINDEX(1, 469)=85
- KINDEX(2, 469)=146
- KINDEX(1, 470)=10
- KINDEX(2, 470)=147
- KINDEX(1, 471)=15
- KINDEX(2, 471)=147
- KINDEX(1, 472)=29
- KINDEX(2, 472)=147
- KINDEX(1, 473)=85
- KINDEX(2, 473)=147
- KINDEX(1, 474)=1
- KINDEX(2, 474)=148
- KINDEX(1, 475)=2
- KINDEX(2, 475)=148
- KINDEX(1, 476)=85
- KINDEX(2, 476)=148
- KINDEX(1, 477)=86
- KINDEX(2, 477)=148
- KINDEX(1, 478)=3
- KINDEX(2, 478)=149
- KINDEX(1, 479)=10
- KINDEX(2, 479)=149
- KINDEX(1, 480)=44
- KINDEX(2, 480)=149
- KINDEX(1, 481)=85
- KINDEX(2, 481)=150
- KINDEX(1, 482)=86
- KINDEX(2, 482)=150
- KINDEX(1, 483)=1
- KINDEX(2, 483)=151
- KINDEX(1, 484)=2
- KINDEX(2, 484)=151
- KINDEX(1, 485)=10
- KINDEX(2, 485)=151
- KINDEX(1, 486)=17
- KINDEX(2, 486)=151
- KINDEX(1, 487)=28
- KINDEX(2, 487)=151
- KINDEX(1, 488)=39
- KINDEX(2, 488)=151
- KINDEX(1, 489)=10
- KINDEX(2, 489)=152
- KINDEX(1, 490)=28
- KINDEX(2, 490)=152
+ KINDEX(2, 399)=96
+ KINDEX(1, 400)=22
+ KINDEX(2, 400)=96
+ KINDEX(1, 401)=23
+ KINDEX(2, 401)=96
+ KINDEX(1, 402)=24
+ KINDEX(2, 402)=96
+ KINDEX(1, 403)=26
+ KINDEX(2, 403)=96
+ KINDEX(1, 404)=40
+ KINDEX(2, 404)=96
+ KINDEX(1, 405)=15
+ KINDEX(2, 405)=97
+ KINDEX(1, 406)=28
+ KINDEX(2, 406)=97
+ KINDEX(1, 407)=32
+ KINDEX(2, 407)=97
+ KINDEX(1, 408)=15
+ KINDEX(2, 408)=98
+ KINDEX(1, 409)=29
+ KINDEX(2, 409)=98
+ KINDEX(1, 410)=33
+ KINDEX(2, 410)=98
+ KINDEX(1, 411)=15
+ KINDEX(2, 411)=99
+ KINDEX(1, 412)=29
+ KINDEX(2, 412)=99
+ KINDEX(1, 413)=34
+ KINDEX(2, 413)=99
+ KINDEX(1, 414)=15
+ KINDEX(2, 414)=100
+ KINDEX(1, 415)=29
+ KINDEX(2, 415)=100
+ KINDEX(1, 416)=35
+ KINDEX(2, 416)=100
+ KINDEX(1, 417)=15
+ KINDEX(2, 417)=101
+ KINDEX(1, 418)=29
+ KINDEX(2, 418)=101
+ KINDEX(1, 419)=38
+ KINDEX(2, 419)=101
+ KINDEX(1, 420)=1
+ KINDEX(2, 420)=102
+ KINDEX(1, 421)=15
+ KINDEX(2, 421)=102
+ KINDEX(1, 422)=29
+ KINDEX(2, 422)=102
+ KINDEX(1, 423)=31
+ KINDEX(2, 423)=102
+ KINDEX(1, 424)=39
+ KINDEX(2, 424)=102
+ KINDEX(1, 425)=15
+ KINDEX(2, 425)=103
+ KINDEX(1, 426)=26
+ KINDEX(2, 426)=103
+ KINDEX(1, 427)=40
+ KINDEX(2, 427)=103
+ KINDEX(1, 428)=15
+ KINDEX(2, 428)=104
+ KINDEX(1, 429)=22
+ KINDEX(2, 429)=104
+ KINDEX(1, 430)=32
+ KINDEX(2, 430)=104
+ KINDEX(1, 431)=15
+ KINDEX(2, 431)=105
+ KINDEX(1, 432)=22
+ KINDEX(2, 432)=105
+ KINDEX(1, 433)=23
+ KINDEX(2, 433)=105
+ KINDEX(1, 434)=24
+ KINDEX(2, 434)=105
+ KINDEX(1, 435)=25
+ KINDEX(2, 435)=105
+ KINDEX(1, 436)=32
+ KINDEX(2, 436)=105
+ KINDEX(1, 437)=33
+ KINDEX(2, 437)=105
+ KINDEX(1, 438)=41
+ KINDEX(2, 438)=105
+ KINDEX(1, 439)=15
+ KINDEX(2, 439)=106
+ KINDEX(1, 440)=22
+ KINDEX(2, 440)=106
+ KINDEX(1, 441)=23
+ KINDEX(2, 441)=106
+ KINDEX(1, 442)=24
+ KINDEX(2, 442)=106
+ KINDEX(1, 443)=32
+ KINDEX(2, 443)=106
+ KINDEX(1, 444)=34
+ KINDEX(2, 444)=106
+ KINDEX(1, 445)=15
+ KINDEX(2, 445)=107
+ KINDEX(1, 446)=19
+ KINDEX(2, 446)=107
+ KINDEX(1, 447)=22
+ KINDEX(2, 447)=107
+ KINDEX(1, 448)=23
+ KINDEX(2, 448)=107
+ KINDEX(1, 449)=24
+ KINDEX(2, 449)=107
+ KINDEX(1, 450)=25
+ KINDEX(2, 450)=107
+ KINDEX(1, 451)=32
+ KINDEX(2, 451)=107
+ KINDEX(1, 452)=35
+ KINDEX(2, 452)=107
+ KINDEX(1, 453)=15
+ KINDEX(2, 453)=108
+ KINDEX(1, 454)=22
+ KINDEX(2, 454)=108
+ KINDEX(1, 455)=25
+ KINDEX(2, 455)=108
+ KINDEX(1, 456)=32
+ KINDEX(2, 456)=108
+ KINDEX(1, 457)=38
+ KINDEX(2, 457)=108
+ KINDEX(1, 458)=15
+ KINDEX(2, 458)=109
+ KINDEX(1, 459)=22
+ KINDEX(2, 459)=109
+ KINDEX(1, 460)=23
+ KINDEX(2, 460)=109
+ KINDEX(1, 461)=25
+ KINDEX(2, 461)=109
+ KINDEX(1, 462)=31
+ KINDEX(2, 462)=109
+ KINDEX(1, 463)=32
+ KINDEX(2, 463)=109
+ KINDEX(1, 464)=39
+ KINDEX(2, 464)=109
+ KINDEX(1, 465)=41
+ KINDEX(2, 465)=109
+ KINDEX(1, 466)=4
+ KINDEX(2, 466)=110
+ KINDEX(1, 467)=15
+ KINDEX(2, 467)=110
+ KINDEX(1, 468)=22
+ KINDEX(2, 468)=110
+ KINDEX(1, 469)=23
+ KINDEX(2, 469)=110
+ KINDEX(1, 470)=24
+ KINDEX(2, 470)=110
+ KINDEX(1, 471)=26
+ KINDEX(2, 471)=110
+ KINDEX(1, 472)=32
+ KINDEX(2, 472)=110
+ KINDEX(1, 473)=40
+ KINDEX(2, 473)=110
+ KINDEX(1, 474)=15
+ KINDEX(2, 474)=111
+ KINDEX(1, 475)=22
+ KINDEX(2, 475)=111
+ KINDEX(1, 476)=23
+ KINDEX(2, 476)=111
+ KINDEX(1, 477)=24
+ KINDEX(2, 477)=111
+ KINDEX(1, 478)=25
+ KINDEX(2, 478)=111
+ KINDEX(1, 479)=31
+ KINDEX(2, 479)=111
+ KINDEX(1, 480)=32
+ KINDEX(2, 480)=111
+ KINDEX(1, 481)=33
+ KINDEX(2, 481)=111
+ KINDEX(1, 482)=39
+ KINDEX(2, 482)=111
+ KINDEX(1, 483)=41
+ KINDEX(2, 483)=111
+ KINDEX(1, 484)=15
+ KINDEX(2, 484)=112
+ KINDEX(1, 485)=22
+ KINDEX(2, 485)=112
+ KINDEX(1, 486)=23
+ KINDEX(2, 486)=112
+ KINDEX(1, 487)=24
+ KINDEX(2, 487)=112
+ KINDEX(1, 488)=31
+ KINDEX(2, 488)=112
+ KINDEX(1, 489)=32
+ KINDEX(2, 489)=112
+ KINDEX(1, 490)=34
+ KINDEX(2, 490)=112
KINDEX(1, 491)=39
- KINDEX(2, 491)=152
- KINDEX(1, 492)=85
- KINDEX(2, 492)=152
- KINDEX(1, 493)=10
- KINDEX(2, 493)=153
- KINDEX(1, 494)=15
- KINDEX(2, 494)=153
- KINDEX(1, 495)=28
- KINDEX(2, 495)=153
- KINDEX(1, 496)=39
- KINDEX(2, 496)=153
- KINDEX(1, 497)=1
- KINDEX(2, 497)=154
- KINDEX(1, 498)=2
- KINDEX(2, 498)=154
- KINDEX(1, 499)=10
- KINDEX(2, 499)=154
- KINDEX(1, 500)=28
- KINDEX(2, 500)=154
- KINDEX(1, 501)=40
- KINDEX(2, 501)=154
- KINDEX(1, 502)=10
- KINDEX(2, 502)=155
- KINDEX(1, 503)=28
- KINDEX(2, 503)=155
- KINDEX(1, 504)=40
- KINDEX(2, 504)=155
- KINDEX(1, 505)=85
- KINDEX(2, 505)=155
- KINDEX(1, 506)=10
- KINDEX(2, 506)=156
+ KINDEX(2, 491)=112
+ KINDEX(1, 492)=15
+ KINDEX(2, 492)=113
+ KINDEX(1, 493)=19
+ KINDEX(2, 493)=113
+ KINDEX(1, 494)=22
+ KINDEX(2, 494)=113
+ KINDEX(1, 495)=23
+ KINDEX(2, 495)=113
+ KINDEX(1, 496)=24
+ KINDEX(2, 496)=113
+ KINDEX(1, 497)=25
+ KINDEX(2, 497)=113
+ KINDEX(1, 498)=31
+ KINDEX(2, 498)=113
+ KINDEX(1, 499)=32
+ KINDEX(2, 499)=113
+ KINDEX(1, 500)=35
+ KINDEX(2, 500)=113
+ KINDEX(1, 501)=39
+ KINDEX(2, 501)=113
+ KINDEX(1, 502)=15
+ KINDEX(2, 502)=114
+ KINDEX(1, 503)=25
+ KINDEX(2, 503)=114
+ KINDEX(1, 504)=32
+ KINDEX(2, 504)=114
+ KINDEX(1, 505)=38
+ KINDEX(2, 505)=114
+ KINDEX(1, 506)=39
+ KINDEX(2, 506)=114
KINDEX(1, 507)=15
- KINDEX(2, 507)=156
- KINDEX(1, 508)=28
- KINDEX(2, 508)=156
- KINDEX(1, 509)=40
- KINDEX(2, 509)=156
- KINDEX(1, 510)=1
- KINDEX(2, 510)=157
- KINDEX(1, 511)=2
- KINDEX(2, 511)=157
- KINDEX(1, 512)=28
- KINDEX(2, 512)=157
- KINDEX(1, 513)=39
- KINDEX(2, 513)=157
- KINDEX(1, 514)=2
- KINDEX(2, 514)=158
- KINDEX(1, 515)=28
- KINDEX(2, 515)=158
- KINDEX(1, 516)=39
- KINDEX(2, 516)=158
- KINDEX(1, 517)=85
- KINDEX(2, 517)=158
- KINDEX(1, 518)=2
- KINDEX(2, 518)=159
- KINDEX(1, 519)=10
- KINDEX(2, 519)=159
- KINDEX(1, 520)=15
- KINDEX(2, 520)=159
- KINDEX(1, 521)=28
- KINDEX(2, 521)=159
- KINDEX(1, 522)=39
- KINDEX(2, 522)=159
- KINDEX(1, 523)=1
- KINDEX(2, 523)=160
- KINDEX(1, 524)=2
- KINDEX(2, 524)=160
- KINDEX(1, 525)=28
- KINDEX(2, 525)=160
- KINDEX(1, 526)=40
- KINDEX(2, 526)=160
- KINDEX(1, 527)=2
- KINDEX(2, 527)=161
- KINDEX(1, 528)=28
- KINDEX(2, 528)=161
- KINDEX(1, 529)=40
- KINDEX(2, 529)=161
- KINDEX(1, 530)=85
- KINDEX(2, 530)=161
- KINDEX(1, 531)=2
- KINDEX(2, 531)=162
- KINDEX(1, 532)=10
- KINDEX(2, 532)=162
- KINDEX(1, 533)=15
- KINDEX(2, 533)=162
- KINDEX(1, 534)=28
- KINDEX(2, 534)=162
+ KINDEX(2, 507)=115
+ KINDEX(1, 508)=22
+ KINDEX(2, 508)=115
+ KINDEX(1, 509)=23
+ KINDEX(2, 509)=115
+ KINDEX(1, 510)=24
+ KINDEX(2, 510)=115
+ KINDEX(1, 511)=25
+ KINDEX(2, 511)=115
+ KINDEX(1, 512)=31
+ KINDEX(2, 512)=115
+ KINDEX(1, 513)=32
+ KINDEX(2, 513)=115
+ KINDEX(1, 514)=39
+ KINDEX(2, 514)=115
+ KINDEX(1, 515)=41
+ KINDEX(2, 515)=115
+ KINDEX(1, 516)=4
+ KINDEX(2, 516)=116
+ KINDEX(1, 517)=15
+ KINDEX(2, 517)=116
+ KINDEX(1, 518)=22
+ KINDEX(2, 518)=116
+ KINDEX(1, 519)=23
+ KINDEX(2, 519)=116
+ KINDEX(1, 520)=24
+ KINDEX(2, 520)=116
+ KINDEX(1, 521)=26
+ KINDEX(2, 521)=116
+ KINDEX(1, 522)=31
+ KINDEX(2, 522)=116
+ KINDEX(1, 523)=32
+ KINDEX(2, 523)=116
+ KINDEX(1, 524)=39
+ KINDEX(2, 524)=116
+ KINDEX(1, 525)=40
+ KINDEX(2, 525)=116
+ KINDEX(1, 526)=15
+ KINDEX(2, 526)=117
+ KINDEX(1, 527)=26
+ KINDEX(2, 527)=117
+ KINDEX(1, 528)=40
+ KINDEX(2, 528)=117
+ KINDEX(1, 529)=4
+ KINDEX(2, 529)=118
+ KINDEX(1, 530)=15
+ KINDEX(2, 530)=118
+ KINDEX(1, 531)=22
+ KINDEX(2, 531)=118
+ KINDEX(1, 532)=23
+ KINDEX(2, 532)=118
+ KINDEX(1, 533)=24
+ KINDEX(2, 533)=118
+ KINDEX(1, 534)=26
+ KINDEX(2, 534)=118
KINDEX(1, 535)=40
- KINDEX(2, 535)=162
- KINDEX(1, 536)=1
- KINDEX(2, 536)=163
- KINDEX(1, 537)=2
- KINDEX(2, 537)=163
- KINDEX(1, 538)=28
- KINDEX(2, 538)=163
- KINDEX(1, 539)=85
- KINDEX(2, 539)=163
- KINDEX(1, 540)=28
- KINDEX(2, 540)=164
- KINDEX(1, 541)=85
- KINDEX(2, 541)=164
- KINDEX(1, 542)=10
- KINDEX(2, 542)=165
+ KINDEX(2, 535)=118
+ KINDEX(1, 536)=4
+ KINDEX(2, 536)=119
+ KINDEX(1, 537)=5
+ KINDEX(2, 537)=119
+ KINDEX(1, 538)=15
+ KINDEX(2, 538)=119
+ KINDEX(1, 539)=22
+ KINDEX(2, 539)=119
+ KINDEX(1, 540)=32
+ KINDEX(2, 540)=119
+ KINDEX(1, 541)=4
+ KINDEX(2, 541)=120
+ KINDEX(1, 542)=5
+ KINDEX(2, 542)=120
KINDEX(1, 543)=15
- KINDEX(2, 543)=165
- KINDEX(1, 544)=28
- KINDEX(2, 544)=165
- KINDEX(1, 545)=85
- KINDEX(2, 545)=165
- KINDEX(1, 546)=1
- KINDEX(2, 546)=166
- KINDEX(1, 547)=2
- KINDEX(2, 547)=166
- KINDEX(1, 548)=85
- KINDEX(2, 548)=166
- KINDEX(1, 549)=3
- KINDEX(2, 549)=167
- KINDEX(1, 550)=10
- KINDEX(2, 550)=167
- KINDEX(1, 551)=17
- KINDEX(2, 551)=167
- KINDEX(1, 552)=44
- KINDEX(2, 552)=167
- KINDEX(1, 553)=85
- KINDEX(2, 553)=168
- KINDEX(1, 554)=1
- KINDEX(2, 554)=169
- KINDEX(1, 555)=2
- KINDEX(2, 555)=169
- KINDEX(1, 556)=17
- KINDEX(2, 556)=169
- KINDEX(1, 557)=85
- KINDEX(2, 557)=169
- KINDEX(1, 558)=85
- KINDEX(2, 558)=170
- KINDEX(1, 559)=10
- KINDEX(2, 559)=171
+ KINDEX(2, 543)=120
+ KINDEX(1, 544)=22
+ KINDEX(2, 544)=120
+ KINDEX(1, 545)=23
+ KINDEX(2, 545)=120
+ KINDEX(1, 546)=24
+ KINDEX(2, 546)=120
+ KINDEX(1, 547)=25
+ KINDEX(2, 547)=120
+ KINDEX(1, 548)=32
+ KINDEX(2, 548)=120
+ KINDEX(1, 549)=33
+ KINDEX(2, 549)=120
+ KINDEX(1, 550)=41
+ KINDEX(2, 550)=120
+ KINDEX(1, 551)=4
+ KINDEX(2, 551)=121
+ KINDEX(1, 552)=5
+ KINDEX(2, 552)=121
+ KINDEX(1, 553)=15
+ KINDEX(2, 553)=121
+ KINDEX(1, 554)=22
+ KINDEX(2, 554)=121
+ KINDEX(1, 555)=23
+ KINDEX(2, 555)=121
+ KINDEX(1, 556)=24
+ KINDEX(2, 556)=121
+ KINDEX(1, 557)=34
+ KINDEX(2, 557)=121
+ KINDEX(1, 558)=4
+ KINDEX(2, 558)=122
+ KINDEX(1, 559)=5
+ KINDEX(2, 559)=122
KINDEX(1, 560)=15
- KINDEX(2, 560)=171
- KINDEX(1, 561)=85
- KINDEX(2, 561)=171
- KINDEX(1, 562)=1
- KINDEX(2, 562)=172
- KINDEX(1, 563)=2
- KINDEX(2, 563)=172
- KINDEX(1, 564)=10
- KINDEX(2, 564)=172
- KINDEX(1, 565)=19
- KINDEX(2, 565)=172
- KINDEX(1, 566)=28
- KINDEX(2, 566)=172
- KINDEX(1, 567)=29
- KINDEX(2, 567)=172
- KINDEX(1, 568)=30
- KINDEX(2, 568)=172
- KINDEX(1, 569)=10
- KINDEX(2, 569)=173
- KINDEX(1, 570)=19
- KINDEX(2, 570)=173
- KINDEX(1, 571)=28
- KINDEX(2, 571)=173
- KINDEX(1, 572)=29
- KINDEX(2, 572)=173
- KINDEX(1, 573)=30
- KINDEX(2, 573)=173
- KINDEX(1, 574)=85
- KINDEX(2, 574)=173
- KINDEX(1, 575)=10
- KINDEX(2, 575)=174
- KINDEX(1, 576)=15
- KINDEX(2, 576)=174
- KINDEX(1, 577)=19
- KINDEX(2, 577)=174
- KINDEX(1, 578)=28
- KINDEX(2, 578)=174
- KINDEX(1, 579)=29
- KINDEX(2, 579)=174
- KINDEX(1, 580)=30
- KINDEX(2, 580)=174
- KINDEX(1, 581)=1
- KINDEX(2, 581)=175
- KINDEX(1, 582)=2
- KINDEX(2, 582)=175
- KINDEX(1, 583)=29
- KINDEX(2, 583)=175
- KINDEX(1, 584)=85
- KINDEX(2, 584)=175
- KINDEX(1, 585)=29
- KINDEX(2, 585)=176
- KINDEX(1, 586)=85
- KINDEX(2, 586)=176
- KINDEX(1, 587)=10
- KINDEX(2, 587)=177
- KINDEX(1, 588)=15
- KINDEX(2, 588)=177
- KINDEX(1, 589)=29
- KINDEX(2, 589)=177
- KINDEX(1, 590)=85
- KINDEX(2, 590)=177
- KINDEX(1, 591)=1
- KINDEX(2, 591)=178
- KINDEX(1, 592)=2
- KINDEX(2, 592)=178
- KINDEX(1, 593)=10
- KINDEX(2, 593)=178
- KINDEX(1, 594)=58
- KINDEX(2, 594)=178
- KINDEX(1, 595)=75
- KINDEX(2, 595)=178
- KINDEX(1, 596)=10
- KINDEX(2, 596)=179
- KINDEX(1, 597)=75
- KINDEX(2, 597)=179
- KINDEX(1, 598)=85
- KINDEX(2, 598)=179
- KINDEX(1, 599)=10
- KINDEX(2, 599)=180
- KINDEX(1, 600)=15
- KINDEX(2, 600)=180
- KINDEX(1, 601)=75
- KINDEX(2, 601)=180
- KINDEX(1, 602)=1
- KINDEX(2, 602)=181
- KINDEX(1, 603)=2
- KINDEX(2, 603)=181
- KINDEX(1, 604)=10
- KINDEX(2, 604)=181
- KINDEX(1, 605)=10
- KINDEX(2, 605)=182
- KINDEX(1, 606)=85
- KINDEX(2, 606)=182
- KINDEX(1, 607)=10
- KINDEX(2, 607)=183
- KINDEX(1, 608)=15
- KINDEX(2, 608)=183
- KINDEX(1, 609)=1
- KINDEX(2, 609)=184
- KINDEX(1, 610)=2
- KINDEX(2, 610)=184
- KINDEX(1, 611)=28
- KINDEX(2, 611)=184
- KINDEX(1, 612)=69
- KINDEX(2, 612)=184
- KINDEX(1, 613)=2
- KINDEX(2, 613)=185
- KINDEX(1, 614)=28
- KINDEX(2, 614)=185
- KINDEX(1, 615)=69
- KINDEX(2, 615)=185
- KINDEX(1, 616)=85
- KINDEX(2, 616)=185
- KINDEX(1, 617)=2
- KINDEX(2, 617)=186
- KINDEX(1, 618)=10
- KINDEX(2, 618)=186
- KINDEX(1, 619)=15
- KINDEX(2, 619)=186
- KINDEX(1, 620)=28
- KINDEX(2, 620)=186
- KINDEX(1, 621)=69
- KINDEX(2, 621)=186
- KINDEX(1, 622)=1
- KINDEX(2, 622)=187
- KINDEX(1, 623)=2
- KINDEX(2, 623)=187
- KINDEX(1, 624)=85
- KINDEX(2, 624)=187
- KINDEX(1, 625)=85
- KINDEX(2, 625)=188
- KINDEX(1, 626)=10
- KINDEX(2, 626)=189
- KINDEX(1, 627)=15
- KINDEX(2, 627)=189
- KINDEX(1, 628)=85
- KINDEX(2, 628)=189
- KINDEX(1, 629)=1
- KINDEX(2, 629)=190
- KINDEX(1, 630)=2
- KINDEX(2, 630)=190
- KINDEX(1, 631)=10
- KINDEX(2, 631)=190
- KINDEX(1, 632)=25
- KINDEX(2, 632)=190
- KINDEX(1, 633)=10
- KINDEX(2, 633)=191
- KINDEX(1, 634)=25
- KINDEX(2, 634)=191
- KINDEX(1, 635)=85
- KINDEX(2, 635)=191
- KINDEX(1, 636)=10
- KINDEX(2, 636)=192
- KINDEX(1, 637)=15
- KINDEX(2, 637)=192
- KINDEX(1, 638)=25
- KINDEX(2, 638)=192
- KINDEX(1, 639)=1
- KINDEX(2, 639)=193
- KINDEX(1, 640)=2
- KINDEX(2, 640)=193
- KINDEX(1, 641)=10
- KINDEX(2, 641)=193
- KINDEX(1, 642)=75
- KINDEX(2, 642)=193
- KINDEX(1, 643)=10
- KINDEX(2, 643)=194
- KINDEX(1, 644)=75
- KINDEX(2, 644)=194
- KINDEX(1, 645)=85
- KINDEX(2, 645)=194
- KINDEX(1, 646)=10
- KINDEX(2, 646)=195
- KINDEX(1, 647)=15
- KINDEX(2, 647)=195
- KINDEX(1, 648)=75
- KINDEX(2, 648)=195
- KINDEX(1, 649)=1
- KINDEX(2, 649)=196
- KINDEX(1, 650)=2
- KINDEX(2, 650)=196
- KINDEX(1, 651)=10
- KINDEX(2, 651)=196
- KINDEX(1, 652)=58
- KINDEX(2, 652)=196
- KINDEX(1, 653)=62
- KINDEX(2, 653)=196
- KINDEX(1, 654)=10
- KINDEX(2, 654)=197
- KINDEX(1, 655)=62
- KINDEX(2, 655)=197
- KINDEX(1, 656)=85
- KINDEX(2, 656)=197
- KINDEX(1, 657)=10
- KINDEX(2, 657)=198
- KINDEX(1, 658)=15
- KINDEX(2, 658)=198
- KINDEX(1, 659)=62
- KINDEX(2, 659)=198
- KINDEX(1, 660)=1
- KINDEX(2, 660)=199
- KINDEX(1, 661)=2
- KINDEX(2, 661)=199
- KINDEX(1, 662)=10
- KINDEX(2, 662)=199
- KINDEX(1, 663)=57
- KINDEX(2, 663)=199
- KINDEX(1, 664)=67
- KINDEX(2, 664)=199
- KINDEX(1, 665)=10
- KINDEX(2, 665)=200
- KINDEX(1, 666)=57
- KINDEX(2, 666)=200
- KINDEX(1, 667)=85
- KINDEX(2, 667)=200
- KINDEX(1, 668)=10
- KINDEX(2, 668)=201
- KINDEX(1, 669)=15
- KINDEX(2, 669)=201
- KINDEX(1, 670)=57
- KINDEX(2, 670)=201
- KINDEX(1, 671)=1
- KINDEX(2, 671)=202
- KINDEX(1, 672)=2
- KINDEX(2, 672)=202
- KINDEX(1, 673)=57
- KINDEX(2, 673)=202
- KINDEX(1, 674)=2
- KINDEX(2, 674)=203
- KINDEX(1, 675)=57
- KINDEX(2, 675)=203
- KINDEX(1, 676)=85
- KINDEX(2, 676)=203
- KINDEX(1, 677)=2
- KINDEX(2, 677)=204
- KINDEX(1, 678)=10
- KINDEX(2, 678)=204
- KINDEX(1, 679)=15
- KINDEX(2, 679)=204
- KINDEX(1, 680)=57
- KINDEX(2, 680)=204
- KINDEX(1, 681)=1
- KINDEX(2, 681)=205
- KINDEX(1, 682)=2
- KINDEX(2, 682)=205
- KINDEX(1, 683)=55
- KINDEX(2, 683)=205
- KINDEX(1, 684)=85
- KINDEX(2, 684)=205
- KINDEX(1, 685)=55
- KINDEX(2, 685)=206
- KINDEX(1, 686)=85
- KINDEX(2, 686)=206
- KINDEX(1, 687)=10
- KINDEX(2, 687)=207
- KINDEX(1, 688)=15
- KINDEX(2, 688)=207
- KINDEX(1, 689)=55
- KINDEX(2, 689)=207
- KINDEX(1, 690)=85
- KINDEX(2, 690)=207
- KINDEX(1, 691)=1
- KINDEX(2, 691)=208
- KINDEX(1, 692)=2
- KINDEX(2, 692)=208
- KINDEX(1, 693)=10
- KINDEX(2, 693)=208
- KINDEX(1, 694)=56
- KINDEX(2, 694)=208
- KINDEX(1, 695)=68
- KINDEX(2, 695)=208
- KINDEX(1, 696)=10
- KINDEX(2, 696)=209
- KINDEX(1, 697)=56
- KINDEX(2, 697)=209
- KINDEX(1, 698)=85
- KINDEX(2, 698)=209
- KINDEX(1, 699)=10
- KINDEX(2, 699)=210
- KINDEX(1, 700)=15
- KINDEX(2, 700)=210
- KINDEX(1, 701)=56
- KINDEX(2, 701)=210
- KINDEX(1, 702)=1
- KINDEX(2, 702)=211
- KINDEX(1, 703)=2
- KINDEX(2, 703)=211
- KINDEX(1, 704)=56
- KINDEX(2, 704)=211
- KINDEX(1, 705)=2
- KINDEX(2, 705)=212
- KINDEX(1, 706)=56
- KINDEX(2, 706)=212
- KINDEX(1, 707)=85
- KINDEX(2, 707)=212
- KINDEX(1, 708)=2
- KINDEX(2, 708)=213
- KINDEX(1, 709)=10
- KINDEX(2, 709)=213
- KINDEX(1, 710)=15
- KINDEX(2, 710)=213
- KINDEX(1, 711)=56
- KINDEX(2, 711)=213
- KINDEX(1, 712)=1
- KINDEX(2, 712)=214
- KINDEX(1, 713)=2
- KINDEX(2, 713)=214
- KINDEX(1, 714)=85
- KINDEX(2, 714)=214
- KINDEX(1, 715)=85
- KINDEX(2, 715)=215
- KINDEX(1, 716)=10
- KINDEX(2, 716)=216
- KINDEX(1, 717)=15
- KINDEX(2, 717)=216
- KINDEX(1, 718)=85
- KINDEX(2, 718)=216
- KINDEX(1, 719)=1
- KINDEX(2, 719)=217
- KINDEX(1, 720)=2
- KINDEX(2, 720)=217
- KINDEX(1, 721)=71
- KINDEX(2, 721)=217
- KINDEX(1, 722)=85
- KINDEX(2, 722)=217
- KINDEX(1, 723)=71
- KINDEX(2, 723)=218
- KINDEX(1, 724)=85
- KINDEX(2, 724)=218
- KINDEX(1, 725)=10
- KINDEX(2, 725)=219
- KINDEX(1, 726)=15
- KINDEX(2, 726)=219
- KINDEX(1, 727)=71
- KINDEX(2, 727)=219
- KINDEX(1, 728)=85
- KINDEX(2, 728)=219
- KINDEX(1, 729)=85
- KINDEX(2, 729)=220
- KINDEX(1, 730)=10
- KINDEX(2, 730)=221
- KINDEX(1, 731)=15
- KINDEX(2, 731)=221
- KINDEX(1, 732)=85
- KINDEX(2, 732)=221
- KINDEX(1, 733)=1
- KINDEX(2, 733)=222
- KINDEX(1, 734)=2
- KINDEX(2, 734)=222
- KINDEX(1, 735)=10
- KINDEX(2, 735)=222
- KINDEX(1, 736)=64
- KINDEX(2, 736)=222
- KINDEX(1, 737)=65
- KINDEX(2, 737)=222
- KINDEX(1, 738)=10
- KINDEX(2, 738)=223
- KINDEX(1, 739)=65
- KINDEX(2, 739)=223
- KINDEX(1, 740)=85
- KINDEX(2, 740)=223
- KINDEX(1, 741)=10
- KINDEX(2, 741)=224
- KINDEX(1, 742)=15
- KINDEX(2, 742)=224
- KINDEX(1, 743)=65
- KINDEX(2, 743)=224
- KINDEX(1, 744)=1
- KINDEX(2, 744)=225
- KINDEX(1, 745)=2
- KINDEX(2, 745)=225
- KINDEX(1, 746)=66
- KINDEX(2, 746)=225
- KINDEX(1, 747)=85
- KINDEX(2, 747)=225
- KINDEX(1, 748)=85
- KINDEX(2, 748)=226
- KINDEX(1, 749)=10
- KINDEX(2, 749)=227
- KINDEX(1, 750)=15
- KINDEX(2, 750)=227
- KINDEX(1, 751)=85
- KINDEX(2, 751)=227
- KINDEX(1, 752)=1
- KINDEX(2, 752)=228
- KINDEX(1, 753)=2
- KINDEX(2, 753)=228
- KINDEX(1, 754)=10
- KINDEX(2, 754)=228
- KINDEX(1, 755)=66
- KINDEX(2, 755)=228
- KINDEX(1, 756)=10
- KINDEX(2, 756)=229
- KINDEX(1, 757)=66
- KINDEX(2, 757)=229
- KINDEX(1, 758)=85
- KINDEX(2, 758)=229
- KINDEX(1, 759)=10
- KINDEX(2, 759)=230
- KINDEX(1, 760)=15
- KINDEX(2, 760)=230
- KINDEX(1, 761)=66
- KINDEX(2, 761)=230
- KINDEX(1, 762)=85
- KINDEX(2, 762)=231
- KINDEX(1, 763)=1
- KINDEX(2, 763)=232
- KINDEX(1, 764)=2
- KINDEX(2, 764)=232
- KINDEX(1, 765)=10
- KINDEX(2, 765)=232
+ KINDEX(2, 560)=122
+ KINDEX(1, 561)=19
+ KINDEX(2, 561)=122
+ KINDEX(1, 562)=22
+ KINDEX(2, 562)=122
+ KINDEX(1, 563)=23
+ KINDEX(2, 563)=122
+ KINDEX(1, 564)=24
+ KINDEX(2, 564)=122
+ KINDEX(1, 565)=25
+ KINDEX(2, 565)=122
+ KINDEX(1, 566)=35
+ KINDEX(2, 566)=122
+ KINDEX(1, 567)=4
+ KINDEX(2, 567)=123
+ KINDEX(1, 568)=5
+ KINDEX(2, 568)=123
+ KINDEX(1, 569)=15
+ KINDEX(2, 569)=123
+ KINDEX(1, 570)=25
+ KINDEX(2, 570)=123
+ KINDEX(1, 571)=38
+ KINDEX(2, 571)=123
+ KINDEX(1, 572)=4
+ KINDEX(2, 572)=124
+ KINDEX(1, 573)=5
+ KINDEX(2, 573)=124
+ KINDEX(1, 574)=15
+ KINDEX(2, 574)=124
+ KINDEX(1, 575)=22
+ KINDEX(2, 575)=124
+ KINDEX(1, 576)=23
+ KINDEX(2, 576)=124
+ KINDEX(1, 577)=25
+ KINDEX(2, 577)=124
+ KINDEX(1, 578)=32
+ KINDEX(2, 578)=124
+ KINDEX(1, 579)=39
+ KINDEX(2, 579)=124
+ KINDEX(1, 580)=41
+ KINDEX(2, 580)=124
+ KINDEX(1, 581)=4
+ KINDEX(2, 581)=125
+ KINDEX(1, 582)=5
+ KINDEX(2, 582)=125
+ KINDEX(1, 583)=15
+ KINDEX(2, 583)=125
+ KINDEX(1, 584)=22
+ KINDEX(2, 584)=125
+ KINDEX(1, 585)=23
+ KINDEX(2, 585)=125
+ KINDEX(1, 586)=24
+ KINDEX(2, 586)=125
+ KINDEX(1, 587)=26
+ KINDEX(2, 587)=125
+ KINDEX(1, 588)=40
+ KINDEX(2, 588)=125
+ KINDEX(1, 589)=15
+ KINDEX(2, 589)=126
+ KINDEX(1, 590)=29
+ KINDEX(2, 590)=126
+ KINDEX(1, 591)=41
+ KINDEX(2, 591)=126
+ KINDEX(1, 592)=15
+ KINDEX(2, 592)=127
+ KINDEX(1, 593)=22
+ KINDEX(2, 593)=127
+ KINDEX(1, 594)=32
+ KINDEX(2, 594)=127
+ KINDEX(1, 595)=41
+ KINDEX(2, 595)=127
+ KINDEX(1, 596)=32
+ KINDEX(2, 596)=128
+ KINDEX(1, 597)=39
+ KINDEX(2, 597)=128
+ KINDEX(1, 598)=41
+ KINDEX(2, 598)=128
+ KINDEX(1, 599)=41
+ KINDEX(2, 599)=129
+ KINDEX(1, 600)=3
+ KINDEX(2, 600)=130
+ KINDEX(1, 601)=4
+ KINDEX(2, 601)=130
+ KINDEX(1, 602)=41
+ KINDEX(2, 602)=130
+ KINDEX(1, 603)=4
+ KINDEX(2, 603)=131
+ KINDEX(1, 604)=5
+ KINDEX(2, 604)=131
+ KINDEX(1, 605)=41
+ KINDEX(2, 605)=131
+ KINDEX(1, 606)=12
+ KINDEX(2, 606)=132
+ KINDEX(1, 607)=1
+ KINDEX(2, 607)=133
+ KINDEX(1, 608)=42
+ KINDEX(2, 608)=133
+ KINDEX(1, 609)=2
+ KINDEX(2, 609)=134
+ KINDEX(1, 610)=43
+ KINDEX(2, 610)=134
+ KINDEX(1, 611)=3
+ KINDEX(2, 611)=135
+ KINDEX(1, 612)=44
+ KINDEX(2, 612)=135
+ KINDEX(1, 613)=4
+ KINDEX(2, 613)=136
+ KINDEX(1, 614)=45
+ KINDEX(2, 614)=136
+ KINDEX(1, 615)=5
+ KINDEX(2, 615)=137
+ KINDEX(1, 616)=46
+ KINDEX(2, 616)=137
+ KINDEX(1, 617)=6
+ KINDEX(2, 617)=138
+ KINDEX(1, 618)=47
+ KINDEX(2, 618)=138
+ KINDEX(1, 619)=7
+ KINDEX(2, 619)=139
+ KINDEX(1, 620)=48
+ KINDEX(2, 620)=139
+ KINDEX(1, 621)=8
+ KINDEX(2, 621)=140
+ KINDEX(1, 622)=49
+ KINDEX(2, 622)=140
+ KINDEX(1, 623)=9
+ KINDEX(2, 623)=141
+ KINDEX(1, 624)=50
+ KINDEX(2, 624)=141
+ KINDEX(1, 625)=10
+ KINDEX(2, 625)=142
+ KINDEX(1, 626)=51
+ KINDEX(2, 626)=142
+ KINDEX(1, 627)=14
+ KINDEX(2, 627)=143
+ KINDEX(1, 628)=52
+ KINDEX(2, 628)=143
+ KINDEX(1, 629)=15
+ KINDEX(2, 629)=144
+ KINDEX(1, 630)=53
+ KINDEX(2, 630)=144
+ KINDEX(1, 631)=54
+ KINDEX(2, 631)=145
+ KINDEX(1, 632)=11
+ KINDEX(2, 632)=146
+ KINDEX(1, 633)=55
+ KINDEX(2, 633)=146
+ KINDEX(1, 634)=12
+ KINDEX(2, 634)=147
+ KINDEX(1, 635)=56
+ KINDEX(2, 635)=147
+ KINDEX(1, 636)=22
+ KINDEX(2, 636)=148
+ KINDEX(1, 637)=57
+ KINDEX(2, 637)=148
+ KINDEX(1, 638)=30
+ KINDEX(2, 638)=149
+ KINDEX(1, 639)=58
+ KINDEX(2, 639)=149
+ KINDEX(1, 640)=31
+ KINDEX(2, 640)=150
+ KINDEX(1, 641)=59
+ KINDEX(2, 641)=150
+ KINDEX(1, 642)=32
+ KINDEX(2, 642)=151
+ KINDEX(1, 643)=60
+ KINDEX(2, 643)=151
+ KINDEX(1, 644)=28
+ KINDEX(2, 644)=152
+ KINDEX(1, 645)=61
+ KINDEX(2, 645)=152
+ KINDEX(1, 646)=1
+ KINDEX(2, 646)=153
+ KINDEX(1, 647)=42
+ KINDEX(2, 647)=153
+ KINDEX(1, 648)=2
+ KINDEX(2, 648)=154
+ KINDEX(1, 649)=43
+ KINDEX(2, 649)=154
+ KINDEX(1, 650)=3
+ KINDEX(2, 650)=155
+ KINDEX(1, 651)=44
+ KINDEX(2, 651)=155
+ KINDEX(1, 652)=4
+ KINDEX(2, 652)=156
+ KINDEX(1, 653)=45
+ KINDEX(2, 653)=156
+ KINDEX(1, 654)=5
+ KINDEX(2, 654)=157
+ KINDEX(1, 655)=46
+ KINDEX(2, 655)=157
+ KINDEX(1, 656)=6
+ KINDEX(2, 656)=158
+ KINDEX(1, 657)=47
+ KINDEX(2, 657)=158
+ KINDEX(1, 658)=7
+ KINDEX(2, 658)=159
+ KINDEX(1, 659)=48
+ KINDEX(2, 659)=159
+ KINDEX(1, 660)=8
+ KINDEX(2, 660)=160
+ KINDEX(1, 661)=49
+ KINDEX(2, 661)=160
+ KINDEX(1, 662)=9
+ KINDEX(2, 662)=161
+ KINDEX(1, 663)=50
+ KINDEX(2, 663)=161
+ KINDEX(1, 664)=10
+ KINDEX(2, 664)=162
+ KINDEX(1, 665)=51
+ KINDEX(2, 665)=162
+ KINDEX(1, 666)=14
+ KINDEX(2, 666)=163
+ KINDEX(1, 667)=52
+ KINDEX(2, 667)=163
+ KINDEX(1, 668)=15
+ KINDEX(2, 668)=164
+ KINDEX(1, 669)=53
+ KINDEX(2, 669)=164
+ KINDEX(1, 670)=54
+ KINDEX(2, 670)=165
+ KINDEX(1, 671)=11
+ KINDEX(2, 671)=166
+ KINDEX(1, 672)=55
+ KINDEX(2, 672)=166
+ KINDEX(1, 673)=12
+ KINDEX(2, 673)=167
+ KINDEX(1, 674)=56
+ KINDEX(2, 674)=167
+ KINDEX(1, 675)=22
+ KINDEX(2, 675)=168
+ KINDEX(1, 676)=57
+ KINDEX(2, 676)=168
+ KINDEX(1, 677)=30
+ KINDEX(2, 677)=169
+ KINDEX(1, 678)=58
+ KINDEX(2, 678)=169
+ KINDEX(1, 679)=31
+ KINDEX(2, 679)=170
+ KINDEX(1, 680)=59
+ KINDEX(2, 680)=170
+ KINDEX(1, 681)=32
+ KINDEX(2, 681)=171
+ KINDEX(1, 682)=60
+ KINDEX(2, 682)=171
+ KINDEX(1, 683)=28
+ KINDEX(2, 683)=172
+ KINDEX(1, 684)=61
+ KINDEX(2, 684)=172
+ KINDEX(1, 685)=1
+ KINDEX(2, 685)=173
+ KINDEX(1, 686)=67
+ KINDEX(2, 686)=173
+ KINDEX(1, 687)=2
+ KINDEX(2, 687)=174
+ KINDEX(1, 688)=68
+ KINDEX(2, 688)=174
+ KINDEX(1, 689)=3
+ KINDEX(2, 689)=175
+ KINDEX(1, 690)=69
+ KINDEX(2, 690)=175
+ KINDEX(1, 691)=4
+ KINDEX(2, 691)=176
+ KINDEX(1, 692)=70
+ KINDEX(2, 692)=176
+ KINDEX(1, 693)=5
+ KINDEX(2, 693)=177
+ KINDEX(1, 694)=71
+ KINDEX(2, 694)=177
+ KINDEX(1, 695)=6
+ KINDEX(2, 695)=178
+ KINDEX(1, 696)=72
+ KINDEX(2, 696)=178
+ KINDEX(1, 697)=7
+ KINDEX(2, 697)=179
+ KINDEX(1, 698)=73
+ KINDEX(2, 698)=179
+ KINDEX(1, 699)=8
+ KINDEX(2, 699)=180
+ KINDEX(1, 700)=74
+ KINDEX(2, 700)=180
+ KINDEX(1, 701)=9
+ KINDEX(2, 701)=181
+ KINDEX(1, 702)=75
+ KINDEX(2, 702)=181
+ KINDEX(1, 703)=10
+ KINDEX(2, 703)=182
+ KINDEX(1, 704)=76
+ KINDEX(2, 704)=182
+ KINDEX(1, 705)=14
+ KINDEX(2, 705)=183
+ KINDEX(1, 706)=77
+ KINDEX(2, 706)=183
+ KINDEX(1, 707)=15
+ KINDEX(2, 707)=184
+ KINDEX(1, 708)=78
+ KINDEX(2, 708)=184
+ KINDEX(1, 709)=79
+ KINDEX(2, 709)=185
+ KINDEX(1, 710)=11
+ KINDEX(2, 710)=186
+ KINDEX(1, 711)=80
+ KINDEX(2, 711)=186
+ KINDEX(1, 712)=12
+ KINDEX(2, 712)=187
+ KINDEX(1, 713)=81
+ KINDEX(2, 713)=187
+ KINDEX(1, 714)=22
+ KINDEX(2, 714)=188
+ KINDEX(1, 715)=82
+ KINDEX(2, 715)=188
+ KINDEX(1, 716)=30
+ KINDEX(2, 716)=189
+ KINDEX(1, 717)=83
+ KINDEX(2, 717)=189
+ KINDEX(1, 718)=31
+ KINDEX(2, 718)=190
+ KINDEX(1, 719)=84
+ KINDEX(2, 719)=190
+ KINDEX(1, 720)=32
+ KINDEX(2, 720)=191
+ KINDEX(1, 721)=85
+ KINDEX(2, 721)=191
+ KINDEX(1, 722)=28
+ KINDEX(2, 722)=192
+ KINDEX(1, 723)=86
+ KINDEX(2, 723)=192
+ KINDEX(1, 724)=1
+ KINDEX(2, 724)=193
+ KINDEX(1, 725)=67
+ KINDEX(2, 725)=193
+ KINDEX(1, 726)=2
+ KINDEX(2, 726)=194
+ KINDEX(1, 727)=68
+ KINDEX(2, 727)=194
+ KINDEX(1, 728)=3
+ KINDEX(2, 728)=195
+ KINDEX(1, 729)=69
+ KINDEX(2, 729)=195
+ KINDEX(1, 730)=4
+ KINDEX(2, 730)=196
+ KINDEX(1, 731)=70
+ KINDEX(2, 731)=196
+ KINDEX(1, 732)=5
+ KINDEX(2, 732)=197
+ KINDEX(1, 733)=71
+ KINDEX(2, 733)=197
+ KINDEX(1, 734)=6
+ KINDEX(2, 734)=198
+ KINDEX(1, 735)=72
+ KINDEX(2, 735)=198
+ KINDEX(1, 736)=7
+ KINDEX(2, 736)=199
+ KINDEX(1, 737)=73
+ KINDEX(2, 737)=199
+ KINDEX(1, 738)=8
+ KINDEX(2, 738)=200
+ KINDEX(1, 739)=74
+ KINDEX(2, 739)=200
+ KINDEX(1, 740)=9
+ KINDEX(2, 740)=201
+ KINDEX(1, 741)=75
+ KINDEX(2, 741)=201
+ KINDEX(1, 742)=10
+ KINDEX(2, 742)=202
+ KINDEX(1, 743)=76
+ KINDEX(2, 743)=202
+ KINDEX(1, 744)=14
+ KINDEX(2, 744)=203
+ KINDEX(1, 745)=77
+ KINDEX(2, 745)=203
+ KINDEX(1, 746)=15
+ KINDEX(2, 746)=204
+ KINDEX(1, 747)=78
+ KINDEX(2, 747)=204
+ KINDEX(1, 748)=79
+ KINDEX(2, 748)=205
+ KINDEX(1, 749)=11
+ KINDEX(2, 749)=206
+ KINDEX(1, 750)=80
+ KINDEX(2, 750)=206
+ KINDEX(1, 751)=12
+ KINDEX(2, 751)=207
+ KINDEX(1, 752)=81
+ KINDEX(2, 752)=207
+ KINDEX(1, 753)=22
+ KINDEX(2, 753)=208
+ KINDEX(1, 754)=82
+ KINDEX(2, 754)=208
+ KINDEX(1, 755)=30
+ KINDEX(2, 755)=209
+ KINDEX(1, 756)=83
+ KINDEX(2, 756)=209
+ KINDEX(1, 757)=31
+ KINDEX(2, 757)=210
+ KINDEX(1, 758)=84
+ KINDEX(2, 758)=210
+ KINDEX(1, 759)=32
+ KINDEX(2, 759)=211
+ KINDEX(1, 760)=85
+ KINDEX(2, 760)=211
+ KINDEX(1, 761)=28
+ KINDEX(2, 761)=212
+ KINDEX(1, 762)=86
+ KINDEX(2, 762)=212
+ KINDEX(1, 763)=43
+ KINDEX(2, 763)=213
+ KINDEX(1, 764)=52
+ KINDEX(2, 764)=213
+ KINDEX(1, 765)=43
+ KINDEX(2, 765)=214
KINDEX(1, 766)=52
- KINDEX(2, 766)=232
- KINDEX(1, 767)=10
- KINDEX(2, 767)=233
- KINDEX(1, 768)=52
- KINDEX(2, 768)=233
- KINDEX(1, 769)=85
- KINDEX(2, 769)=233
- KINDEX(1, 770)=10
- KINDEX(2, 770)=234
- KINDEX(1, 771)=15
- KINDEX(2, 771)=234
- KINDEX(1, 772)=52
- KINDEX(2, 772)=234
- KINDEX(1, 773)=1
- KINDEX(2, 773)=235
- KINDEX(1, 774)=2
- KINDEX(2, 774)=235
- KINDEX(1, 775)=10
- KINDEX(2, 775)=235
- KINDEX(1, 776)=41
- KINDEX(2, 776)=235
- KINDEX(1, 777)=72
- KINDEX(2, 777)=235
- KINDEX(1, 778)=10
- KINDEX(2, 778)=236
- KINDEX(1, 779)=41
- KINDEX(2, 779)=236
- KINDEX(1, 780)=72
- KINDEX(2, 780)=236
- KINDEX(1, 781)=85
- KINDEX(2, 781)=236
- KINDEX(1, 782)=10
- KINDEX(2, 782)=237
- KINDEX(1, 783)=15
- KINDEX(2, 783)=237
- KINDEX(1, 784)=41
- KINDEX(2, 784)=237
- KINDEX(1, 785)=72
- KINDEX(2, 785)=237
- KINDEX(1, 786)=85
- KINDEX(2, 786)=238
- KINDEX(1, 787)=1
- KINDEX(2, 787)=239
- KINDEX(1, 788)=2
- KINDEX(2, 788)=239
- KINDEX(1, 789)=10
- KINDEX(2, 789)=239
- KINDEX(1, 790)=73
- KINDEX(2, 790)=239
- KINDEX(1, 791)=10
- KINDEX(2, 791)=240
- KINDEX(1, 792)=73
- KINDEX(2, 792)=240
- KINDEX(1, 793)=85
- KINDEX(2, 793)=240
- KINDEX(1, 794)=10
- KINDEX(2, 794)=241
- KINDEX(1, 795)=15
- KINDEX(2, 795)=241
- KINDEX(1, 796)=73
- KINDEX(2, 796)=241
- KINDEX(1, 797)=1
- KINDEX(2, 797)=242
- KINDEX(1, 798)=2
- KINDEX(2, 798)=242
- KINDEX(1, 799)=10
- KINDEX(2, 799)=242
- KINDEX(1, 800)=41
- KINDEX(2, 800)=242
- KINDEX(1, 801)=72
- KINDEX(2, 801)=242
- KINDEX(1, 802)=10
- KINDEX(2, 802)=243
- KINDEX(1, 803)=41
- KINDEX(2, 803)=243
- KINDEX(1, 804)=72
- KINDEX(2, 804)=243
- KINDEX(1, 805)=85
- KINDEX(2, 805)=243
- KINDEX(1, 806)=10
- KINDEX(2, 806)=244
- KINDEX(1, 807)=15
- KINDEX(2, 807)=244
- KINDEX(1, 808)=41
- KINDEX(2, 808)=244
- KINDEX(1, 809)=72
- KINDEX(2, 809)=244
- KINDEX(1, 810)=85
- KINDEX(2, 810)=245
- KINDEX(1, 811)=1
- KINDEX(2, 811)=246
- KINDEX(1, 812)=2
- KINDEX(2, 812)=246
- KINDEX(1, 813)=10
- KINDEX(2, 813)=246
- KINDEX(1, 814)=73
- KINDEX(2, 814)=246
- KINDEX(1, 815)=10
- KINDEX(2, 815)=247
- KINDEX(1, 816)=73
- KINDEX(2, 816)=247
- KINDEX(1, 817)=85
- KINDEX(2, 817)=247
- KINDEX(1, 818)=10
- KINDEX(2, 818)=248
- KINDEX(1, 819)=15
- KINDEX(2, 819)=248
- KINDEX(1, 820)=73
- KINDEX(2, 820)=248
- KINDEX(1, 821)=1
- KINDEX(2, 821)=249
- KINDEX(1, 822)=2
- KINDEX(2, 822)=249
- KINDEX(1, 823)=10
- KINDEX(2, 823)=249
- KINDEX(1, 824)=41
- KINDEX(2, 824)=249
- KINDEX(1, 825)=72
- KINDEX(2, 825)=249
- KINDEX(1, 826)=10
- KINDEX(2, 826)=250
- KINDEX(1, 827)=41
- KINDEX(2, 827)=250
- KINDEX(1, 828)=72
- KINDEX(2, 828)=250
- KINDEX(1, 829)=85
- KINDEX(2, 829)=250
- KINDEX(1, 830)=10
- KINDEX(2, 830)=251
- KINDEX(1, 831)=15
- KINDEX(2, 831)=251
- KINDEX(1, 832)=41
- KINDEX(2, 832)=251
- KINDEX(1, 833)=72
- KINDEX(2, 833)=251
- KINDEX(1, 834)=85
- KINDEX(2, 834)=252
- KINDEX(1, 835)=1
- KINDEX(2, 835)=253
- KINDEX(1, 836)=2
- KINDEX(2, 836)=253
- KINDEX(1, 837)=10
- KINDEX(2, 837)=253
- KINDEX(1, 838)=52
- KINDEX(2, 838)=253
- KINDEX(1, 839)=10
- KINDEX(2, 839)=254
- KINDEX(1, 840)=52
- KINDEX(2, 840)=254
- KINDEX(1, 841)=85
- KINDEX(2, 841)=254
- KINDEX(1, 842)=10
- KINDEX(2, 842)=255
- KINDEX(1, 843)=15
- KINDEX(2, 843)=255
+ KINDEX(2, 766)=214
+ KINDEX(1, 767)=52
+ KINDEX(2, 767)=215
+ KINDEX(1, 768)=53
+ KINDEX(2, 768)=215
+ KINDEX(1, 769)=43
+ KINDEX(2, 769)=216
+ KINDEX(1, 770)=52
+ KINDEX(2, 770)=216
+ KINDEX(1, 771)=53
+ KINDEX(2, 771)=216
+ KINDEX(1, 772)=43
+ KINDEX(2, 772)=217
+ KINDEX(1, 773)=53
+ KINDEX(2, 773)=217
+ KINDEX(1, 774)=42
+ KINDEX(2, 774)=218
+ KINDEX(1, 775)=52
+ KINDEX(2, 775)=218
+ KINDEX(1, 776)=53
+ KINDEX(2, 776)=218
+ KINDEX(1, 777)=52
+ KINDEX(2, 777)=219
+ KINDEX(1, 778)=55
+ KINDEX(2, 778)=219
+ KINDEX(1, 779)=62
+ KINDEX(2, 779)=219
+ KINDEX(1, 780)=45
+ KINDEX(2, 780)=220
+ KINDEX(1, 781)=48
+ KINDEX(2, 781)=220
+ KINDEX(1, 782)=52
+ KINDEX(2, 782)=220
+ KINDEX(1, 783)=45
+ KINDEX(2, 783)=221
+ KINDEX(1, 784)=50
+ KINDEX(2, 784)=221
+ KINDEX(1, 785)=53
+ KINDEX(2, 785)=221
+ KINDEX(1, 786)=45
+ KINDEX(2, 786)=222
+ KINDEX(1, 787)=50
+ KINDEX(2, 787)=222
+ KINDEX(1, 788)=53
+ KINDEX(2, 788)=222
+ KINDEX(1, 789)=48
+ KINDEX(2, 789)=223
+ KINDEX(1, 790)=50
+ KINDEX(2, 790)=223
+ KINDEX(1, 791)=49
+ KINDEX(2, 791)=224
+ KINDEX(1, 792)=50
+ KINDEX(2, 792)=224
+ KINDEX(1, 793)=55
+ KINDEX(2, 793)=224
+ KINDEX(1, 794)=56
+ KINDEX(2, 794)=224
+ KINDEX(1, 795)=45
+ KINDEX(2, 795)=225
+ KINDEX(1, 796)=49
+ KINDEX(2, 796)=225
+ KINDEX(1, 797)=52
+ KINDEX(2, 797)=225
+ KINDEX(1, 798)=47
+ KINDEX(2, 798)=226
+ KINDEX(1, 799)=49
+ KINDEX(2, 799)=226
+ KINDEX(1, 800)=46
+ KINDEX(2, 800)=227
+ KINDEX(1, 801)=49
+ KINDEX(2, 801)=227
+ KINDEX(1, 802)=56
+ KINDEX(2, 802)=227
+ KINDEX(1, 803)=63
+ KINDEX(2, 803)=227
+ KINDEX(1, 804)=46
+ KINDEX(2, 804)=228
+ KINDEX(1, 805)=49
+ KINDEX(2, 805)=228
+ KINDEX(1, 806)=55
+ KINDEX(2, 806)=228
+ KINDEX(1, 807)=62
+ KINDEX(2, 807)=228
+ KINDEX(1, 808)=53
+ KINDEX(2, 808)=229
+ KINDEX(1, 809)=57
+ KINDEX(2, 809)=229
+ KINDEX(1, 810)=60
+ KINDEX(2, 810)=229
+ KINDEX(1, 811)=55
+ KINDEX(2, 811)=230
+ KINDEX(1, 812)=60
+ KINDEX(2, 812)=230
+ KINDEX(1, 813)=61
+ KINDEX(2, 813)=230
+ KINDEX(1, 814)=62
+ KINDEX(2, 814)=230
+ KINDEX(1, 815)=52
+ KINDEX(2, 815)=231
+ KINDEX(1, 816)=53
+ KINDEX(2, 816)=231
+ KINDEX(1, 817)=57
+ KINDEX(2, 817)=231
+ KINDEX(1, 818)=58
+ KINDEX(2, 818)=231
+ KINDEX(1, 819)=52
+ KINDEX(2, 819)=232
+ KINDEX(1, 820)=53
+ KINDEX(2, 820)=232
+ KINDEX(1, 821)=54
+ KINDEX(2, 821)=232
+ KINDEX(1, 822)=58
+ KINDEX(2, 822)=232
+ KINDEX(1, 823)=55
+ KINDEX(2, 823)=233
+ KINDEX(1, 824)=57
+ KINDEX(2, 824)=233
+ KINDEX(1, 825)=66
+ KINDEX(2, 825)=233
+ KINDEX(1, 826)=55
+ KINDEX(2, 826)=234
+ KINDEX(1, 827)=57
+ KINDEX(2, 827)=234
+ KINDEX(1, 828)=66
+ KINDEX(2, 828)=234
+ KINDEX(1, 829)=52
+ KINDEX(2, 829)=235
+ KINDEX(1, 830)=53
+ KINDEX(2, 830)=235
+ KINDEX(1, 831)=55
+ KINDEX(2, 831)=235
+ KINDEX(1, 832)=58
+ KINDEX(2, 832)=235
+ KINDEX(1, 833)=66
+ KINDEX(2, 833)=235
+ KINDEX(1, 834)=62
+ KINDEX(2, 834)=236
+ KINDEX(1, 835)=64
+ KINDEX(2, 835)=236
+ KINDEX(1, 836)=53
+ KINDEX(2, 836)=237
+ KINDEX(1, 837)=64
+ KINDEX(2, 837)=237
+ KINDEX(1, 838)=65
+ KINDEX(2, 838)=237
+ KINDEX(1, 839)=63
+ KINDEX(2, 839)=238
+ KINDEX(1, 840)=64
+ KINDEX(2, 840)=238
+ KINDEX(1, 841)=55
+ KINDEX(2, 841)=239
+ KINDEX(1, 842)=56
+ KINDEX(2, 842)=239
+ KINDEX(1, 843)=65
+ KINDEX(2, 843)=239
KINDEX(1, 844)=52
- KINDEX(2, 844)=255
- KINDEX(1, 845)=1
- KINDEX(2, 845)=256
- KINDEX(1, 846)=2
- KINDEX(2, 846)=256
- KINDEX(1, 847)=10
- KINDEX(2, 847)=256
- KINDEX(1, 848)=41
- KINDEX(2, 848)=256
- KINDEX(1, 849)=72
- KINDEX(2, 849)=256
- KINDEX(1, 850)=10
- KINDEX(2, 850)=257
- KINDEX(1, 851)=41
- KINDEX(2, 851)=257
- KINDEX(1, 852)=72
- KINDEX(2, 852)=257
- KINDEX(1, 853)=85
- KINDEX(2, 853)=257
- KINDEX(1, 854)=10
- KINDEX(2, 854)=258
- KINDEX(1, 855)=15
- KINDEX(2, 855)=258
- KINDEX(1, 856)=41
- KINDEX(2, 856)=258
- KINDEX(1, 857)=72
- KINDEX(2, 857)=258
- KINDEX(1, 858)=85
- KINDEX(2, 858)=259
- KINDEX(1, 859)=1
- KINDEX(2, 859)=260
- KINDEX(1, 860)=2
- KINDEX(2, 860)=260
- KINDEX(1, 861)=10
- KINDEX(2, 861)=260
- KINDEX(1, 862)=50
- KINDEX(2, 862)=260
- KINDEX(1, 863)=10
- KINDEX(2, 863)=261
- KINDEX(1, 864)=50
- KINDEX(2, 864)=261
- KINDEX(1, 865)=85
- KINDEX(2, 865)=261
- KINDEX(1, 866)=10
- KINDEX(2, 866)=262
- KINDEX(1, 867)=15
- KINDEX(2, 867)=262
- KINDEX(1, 868)=50
- KINDEX(2, 868)=262
- KINDEX(1, 869)=1
- KINDEX(2, 869)=263
- KINDEX(1, 870)=2
- KINDEX(2, 870)=263
- KINDEX(1, 871)=10
- KINDEX(2, 871)=263
- KINDEX(1, 872)=41
- KINDEX(2, 872)=263
- KINDEX(1, 873)=72
- KINDEX(2, 873)=263
- KINDEX(1, 874)=10
- KINDEX(2, 874)=264
- KINDEX(1, 875)=41
- KINDEX(2, 875)=264
- KINDEX(1, 876)=72
- KINDEX(2, 876)=264
- KINDEX(1, 877)=85
- KINDEX(2, 877)=264
- KINDEX(1, 878)=10
- KINDEX(2, 878)=265
- KINDEX(1, 879)=15
- KINDEX(2, 879)=265
- KINDEX(1, 880)=41
- KINDEX(2, 880)=265
- KINDEX(1, 881)=72
- KINDEX(2, 881)=265
- KINDEX(1, 882)=85
- KINDEX(2, 882)=266
- KINDEX(1, 883)=1
- KINDEX(2, 883)=267
- KINDEX(1, 884)=2
- KINDEX(2, 884)=267
- KINDEX(1, 885)=10
- KINDEX(2, 885)=267
- KINDEX(1, 886)=63
- KINDEX(2, 886)=267
- KINDEX(1, 887)=10
- KINDEX(2, 887)=268
- KINDEX(1, 888)=63
- KINDEX(2, 888)=268
- KINDEX(1, 889)=85
- KINDEX(2, 889)=268
- KINDEX(1, 890)=10
- KINDEX(2, 890)=269
- KINDEX(1, 891)=15
- KINDEX(2, 891)=269
- KINDEX(1, 892)=63
- KINDEX(2, 892)=269
- KINDEX(1, 893)=1
- KINDEX(2, 893)=270
- KINDEX(1, 894)=2
- KINDEX(2, 894)=270
- KINDEX(1, 895)=10
- KINDEX(2, 895)=270
- KINDEX(1, 896)=41
- KINDEX(2, 896)=270
- KINDEX(1, 897)=75
- KINDEX(2, 897)=270
- KINDEX(1, 898)=10
- KINDEX(2, 898)=271
- KINDEX(1, 899)=41
- KINDEX(2, 899)=271
- KINDEX(1, 900)=75
- KINDEX(2, 900)=271
- KINDEX(1, 901)=85
- KINDEX(2, 901)=271
- KINDEX(1, 902)=10
- KINDEX(2, 902)=272
- KINDEX(1, 903)=15
- KINDEX(2, 903)=272
- KINDEX(1, 904)=41
- KINDEX(2, 904)=272
- KINDEX(1, 905)=75
- KINDEX(2, 905)=272
- KINDEX(1, 906)=15
- KINDEX(2, 906)=273
- KINDEX(1, 907)=39
- KINDEX(2, 907)=273
- KINDEX(1, 908)=85
- KINDEX(2, 908)=273
- KINDEX(1, 909)=15
- KINDEX(2, 909)=274
- KINDEX(1, 910)=40
- KINDEX(2, 910)=274
- KINDEX(1, 911)=85
- KINDEX(2, 911)=274
- KINDEX(1, 912)=15
- KINDEX(2, 912)=275
- KINDEX(1, 913)=41
- KINDEX(2, 913)=275
- KINDEX(1, 914)=85
- KINDEX(2, 914)=275
- KINDEX(1, 915)=5
- KINDEX(2, 915)=276
- KINDEX(1, 916)=8
- KINDEX(2, 916)=276
- KINDEX(1, 917)=40
- KINDEX(2, 917)=276
- KINDEX(1, 918)=85
- KINDEX(2, 918)=276
- KINDEX(1, 919)=10
- KINDEX(2, 919)=277
- KINDEX(1, 920)=11
- KINDEX(2, 920)=277
- KINDEX(1, 921)=41
- KINDEX(2, 921)=277
- KINDEX(1, 922)=85
- KINDEX(2, 922)=277
- KINDEX(1, 923)=1
- KINDEX(2, 923)=278
- KINDEX(1, 924)=2
- KINDEX(2, 924)=278
- KINDEX(1, 925)=85
- KINDEX(2, 925)=278
- KINDEX(1, 926)=5
- KINDEX(2, 926)=279
- KINDEX(1, 927)=8
- KINDEX(2, 927)=279
- KINDEX(1, 928)=41
- KINDEX(2, 928)=279
- KINDEX(1, 929)=85
- KINDEX(2, 929)=279
- KINDEX(1, 930)=3
- KINDEX(2, 930)=280
- KINDEX(1, 931)=10
- KINDEX(2, 931)=280
- KINDEX(1, 932)=47
- KINDEX(2, 932)=280
- KINDEX(1, 933)=85
- KINDEX(2, 933)=281
- KINDEX(1, 934)=3
- KINDEX(2, 934)=282
- KINDEX(1, 935)=10
- KINDEX(2, 935)=282
- KINDEX(1, 936)=11
- KINDEX(2, 936)=282
- KINDEX(1, 937)=15
- KINDEX(2, 937)=282
- KINDEX(1, 938)=28
- KINDEX(2, 938)=282
- KINDEX(1, 939)=29
- KINDEX(2, 939)=282
- KINDEX(1, 940)=39
- KINDEX(2, 940)=282
- KINDEX(1, 941)=41
- KINDEX(2, 941)=282
- KINDEX(1, 942)=43
- KINDEX(2, 942)=282
- KINDEX(1, 943)=47
- KINDEX(2, 943)=282
- KINDEX(1, 944)=85
- KINDEX(2, 944)=282
- KINDEX(1, 945)=3
- KINDEX(2, 945)=283
- KINDEX(1, 946)=10
- KINDEX(2, 946)=283
- KINDEX(1, 947)=11
- KINDEX(2, 947)=283
- KINDEX(1, 948)=15
- KINDEX(2, 948)=283
- KINDEX(1, 949)=28
- KINDEX(2, 949)=283
- KINDEX(1, 950)=40
- KINDEX(2, 950)=283
- KINDEX(1, 951)=41
- KINDEX(2, 951)=283
- KINDEX(1, 952)=43
- KINDEX(2, 952)=283
- KINDEX(1, 953)=85
- KINDEX(2, 953)=283
- KINDEX(1, 954)=30
- KINDEX(2, 954)=284
- KINDEX(1, 955)=39
- KINDEX(2, 955)=284
- KINDEX(1, 956)=85
- KINDEX(2, 956)=284
- KINDEX(1, 957)=10
- KINDEX(2, 957)=285
- KINDEX(1, 958)=11
- KINDEX(2, 958)=285
- KINDEX(1, 959)=29
- KINDEX(2, 959)=285
- KINDEX(1, 960)=40
- KINDEX(2, 960)=285
- KINDEX(1, 961)=85
- KINDEX(2, 961)=285
- KINDEX(1, 962)=1
- KINDEX(2, 962)=286
- KINDEX(1, 963)=2
- KINDEX(2, 963)=286
- KINDEX(1, 964)=10
- KINDEX(2, 964)=286
- KINDEX(1, 965)=28
- KINDEX(2, 965)=286
- KINDEX(1, 966)=41
- KINDEX(2, 966)=286
- KINDEX(1, 967)=10
- KINDEX(2, 967)=287
- KINDEX(1, 968)=28
- KINDEX(2, 968)=287
- KINDEX(1, 969)=41
- KINDEX(2, 969)=287
- KINDEX(1, 970)=85
- KINDEX(2, 970)=287
- KINDEX(1, 971)=10
- KINDEX(2, 971)=288
- KINDEX(1, 972)=15
- KINDEX(2, 972)=288
- KINDEX(1, 973)=28
- KINDEX(2, 973)=288
- KINDEX(1, 974)=41
- KINDEX(2, 974)=288
- KINDEX(1, 975)=1
- KINDEX(2, 975)=289
- KINDEX(1, 976)=2
- KINDEX(2, 976)=289
- KINDEX(1, 977)=85
- KINDEX(2, 977)=289
- KINDEX(1, 978)=3
- KINDEX(2, 978)=290
- KINDEX(1, 979)=10
- KINDEX(2, 979)=290
- KINDEX(1, 980)=17
- KINDEX(2, 980)=290
- KINDEX(1, 981)=44
- KINDEX(2, 981)=290
- KINDEX(1, 982)=85
- KINDEX(2, 982)=291
- KINDEX(1, 983)=1
- KINDEX(2, 983)=292
- KINDEX(1, 984)=2
- KINDEX(2, 984)=292
- KINDEX(1, 985)=10
- KINDEX(2, 985)=292
- KINDEX(1, 986)=28
- KINDEX(2, 986)=292
- KINDEX(1, 987)=41
- KINDEX(2, 987)=292
- KINDEX(1, 988)=10
- KINDEX(2, 988)=293
- KINDEX(1, 989)=28
- KINDEX(2, 989)=293
- KINDEX(1, 990)=41
- KINDEX(2, 990)=293
- KINDEX(1, 991)=85
- KINDEX(2, 991)=293
- KINDEX(1, 992)=10
- KINDEX(2, 992)=294
- KINDEX(1, 993)=15
- KINDEX(2, 993)=294
- KINDEX(1, 994)=28
- KINDEX(2, 994)=294
- KINDEX(1, 995)=41
- KINDEX(2, 995)=294
- KINDEX(1, 996)=85
- KINDEX(2, 996)=294
- KINDEX(1, 997)=1
- KINDEX(2, 997)=295
- KINDEX(1, 998)=2
- KINDEX(2, 998)=295
- KINDEX(1, 999)=28
- KINDEX(2, 999)=295
- KINDEX(1, 1000)=41
- KINDEX(2, 1000)=295
- KINDEX(1, 1001)=2
- KINDEX(2, 1001)=296
- KINDEX(1, 1002)=10
- KINDEX(2, 1002)=296
- KINDEX(1, 1003)=28
- KINDEX(2, 1003)=296
- KINDEX(1, 1004)=41
- KINDEX(2, 1004)=296
- KINDEX(1, 1005)=85
- KINDEX(2, 1005)=296
- KINDEX(1, 1006)=2
- KINDEX(2, 1006)=297
- KINDEX(1, 1007)=15
- KINDEX(2, 1007)=297
- KINDEX(1, 1008)=28
- KINDEX(2, 1008)=297
- KINDEX(1, 1009)=41
- KINDEX(2, 1009)=297
- KINDEX(1, 1010)=85
- KINDEX(2, 1010)=297
- KINDEX(1, 1011)=1
- KINDEX(2, 1011)=298
- KINDEX(1, 1012)=2
- KINDEX(2, 1012)=298
- KINDEX(1, 1013)=28
- KINDEX(2, 1013)=298
- KINDEX(1, 1014)=85
- KINDEX(2, 1014)=298
- KINDEX(1, 1015)=10
- KINDEX(2, 1015)=299
- KINDEX(1, 1016)=28
- KINDEX(2, 1016)=299
- KINDEX(1, 1017)=85
- KINDEX(2, 1017)=299
- KINDEX(1, 1018)=15
- KINDEX(2, 1018)=300
- KINDEX(1, 1019)=28
- KINDEX(2, 1019)=300
- KINDEX(1, 1020)=85
- KINDEX(2, 1020)=300
- KINDEX(1, 1021)=1
- KINDEX(2, 1021)=301
- KINDEX(1, 1022)=2
- KINDEX(2, 1022)=301
- KINDEX(1, 1023)=10
- KINDEX(2, 1023)=301
- KINDEX(1, 1024)=11
- KINDEX(2, 1024)=301
- KINDEX(1, 1025)=3
- KINDEX(2, 1025)=302
- KINDEX(1, 1026)=10
- KINDEX(2, 1026)=302
- KINDEX(1, 1027)=74
- KINDEX(2, 1027)=302
- KINDEX(1, 1028)=10
- KINDEX(2, 1028)=303
- KINDEX(1, 1029)=11
- KINDEX(2, 1029)=303
- KINDEX(1, 1030)=85
- KINDEX(2, 1030)=303
- KINDEX(1, 1031)=3
- KINDEX(2, 1031)=304
- KINDEX(1, 1032)=15
- KINDEX(2, 1032)=304
- KINDEX(1, 1033)=60
- KINDEX(2, 1033)=304
- KINDEX(1, 1034)=70
- KINDEX(2, 1034)=304
- KINDEX(1, 1035)=15
- KINDEX(2, 1035)=305
- KINDEX(1, 1036)=69
- KINDEX(2, 1036)=305
- KINDEX(1, 1037)=85
- KINDEX(2, 1037)=305
- KINDEX(1, 1038)=15
- KINDEX(2, 1038)=306
- KINDEX(1, 1039)=74
- KINDEX(2, 1039)=306
- KINDEX(1, 1040)=85
- KINDEX(2, 1040)=306
- KINDEX(1, 1041)=3
- KINDEX(2, 1041)=307
- KINDEX(1, 1042)=15
- KINDEX(2, 1042)=307
- KINDEX(1, 1043)=60
- KINDEX(2, 1043)=307
- KINDEX(1, 1044)=62
- KINDEX(2, 1044)=307
- KINDEX(1, 1045)=75
- KINDEX(2, 1045)=307
- KINDEX(1, 1046)=5
- KINDEX(2, 1046)=308
- KINDEX(1, 1047)=8
- KINDEX(2, 1047)=308
- KINDEX(1, 1048)=69
- KINDEX(2, 1048)=308
- KINDEX(1, 1049)=85
- KINDEX(2, 1049)=308
- KINDEX(1, 1050)=10
- KINDEX(2, 1050)=309
- KINDEX(1, 1051)=11
- KINDEX(2, 1051)=309
- KINDEX(1, 1052)=69
- KINDEX(2, 1052)=309
- KINDEX(1, 1053)=85
- KINDEX(2, 1053)=309
- KINDEX(1, 1054)=1
- KINDEX(2, 1054)=310
- KINDEX(1, 1055)=2
- KINDEX(2, 1055)=310
- KINDEX(1, 1056)=85
- KINDEX(2, 1056)=310
- KINDEX(1, 1057)=3
- KINDEX(2, 1057)=311
- KINDEX(1, 1058)=10
- KINDEX(2, 1058)=311
- KINDEX(1, 1059)=45
- KINDEX(2, 1059)=311
- KINDEX(1, 1060)=85
- KINDEX(2, 1060)=312
- KINDEX(1, 1061)=15
- KINDEX(2, 1061)=313
- KINDEX(1, 1062)=57
- KINDEX(2, 1062)=313
- KINDEX(1, 1063)=85
- KINDEX(2, 1063)=313
- KINDEX(1, 1064)=5
- KINDEX(2, 1064)=314
- KINDEX(1, 1065)=8
- KINDEX(2, 1065)=314
- KINDEX(1, 1066)=57
- KINDEX(2, 1066)=314
- KINDEX(1, 1067)=85
- KINDEX(2, 1067)=314
- KINDEX(1, 1068)=10
- KINDEX(2, 1068)=315
- KINDEX(1, 1069)=11
- KINDEX(2, 1069)=315
- KINDEX(1, 1070)=57
- KINDEX(2, 1070)=315
- KINDEX(1, 1071)=1
- KINDEX(2, 1071)=316
- KINDEX(1, 1072)=2
- KINDEX(2, 1072)=316
- KINDEX(1, 1073)=10
- KINDEX(2, 1073)=316
- KINDEX(1, 1074)=2
- KINDEX(2, 1074)=317
- KINDEX(1, 1075)=83
- KINDEX(2, 1075)=317
- KINDEX(1, 1076)=2
- KINDEX(2, 1076)=318
- KINDEX(1, 1077)=83
- KINDEX(2, 1077)=318
- KINDEX(1, 1078)=85
- KINDEX(2, 1078)=318
- KINDEX(1, 1079)=3
- KINDEX(2, 1079)=319
- KINDEX(1, 1080)=10
- KINDEX(2, 1080)=319
- KINDEX(1, 1081)=53
- KINDEX(2, 1081)=319
- KINDEX(1, 1082)=10
- KINDEX(2, 1082)=320
- KINDEX(1, 1083)=85
- KINDEX(2, 1083)=320
- KINDEX(1, 1084)=5
- KINDEX(2, 1084)=321
- KINDEX(1, 1085)=8
- KINDEX(2, 1085)=321
- KINDEX(1, 1086)=61
- KINDEX(2, 1086)=321
- KINDEX(1, 1087)=2
- KINDEX(2, 1087)=322
- KINDEX(1, 1088)=59
- KINDEX(2, 1088)=322
- KINDEX(1, 1089)=3
- KINDEX(2, 1089)=323
- KINDEX(1, 1090)=15
- KINDEX(2, 1090)=323
- KINDEX(1, 1091)=60
- KINDEX(2, 1091)=323
- KINDEX(1, 1092)=62
- KINDEX(2, 1092)=323
- KINDEX(1, 1093)=3
- KINDEX(2, 1093)=324
- KINDEX(1, 1094)=15
- KINDEX(2, 1094)=324
- KINDEX(1, 1095)=58
- KINDEX(2, 1095)=324
- KINDEX(1, 1096)=63
- KINDEX(2, 1096)=324
- KINDEX(1, 1097)=15
- KINDEX(2, 1097)=325
- KINDEX(1, 1098)=71
- KINDEX(2, 1098)=325
- KINDEX(1, 1099)=85
- KINDEX(2, 1099)=325
- KINDEX(1, 1100)=10
- KINDEX(2, 1100)=326
- KINDEX(1, 1101)=15
- KINDEX(2, 1101)=326
- KINDEX(1, 1102)=72
- KINDEX(2, 1102)=326
- KINDEX(1, 1103)=3
- KINDEX(2, 1103)=327
- KINDEX(1, 1104)=15
- KINDEX(2, 1104)=327
- KINDEX(1, 1105)=49
- KINDEX(2, 1105)=327
- KINDEX(1, 1106)=73
- KINDEX(2, 1106)=327
- KINDEX(1, 1107)=5
- KINDEX(2, 1107)=328
- KINDEX(1, 1108)=8
- KINDEX(2, 1108)=328
- KINDEX(1, 1109)=71
- KINDEX(2, 1109)=328
- KINDEX(1, 1110)=85
- KINDEX(2, 1110)=328
- KINDEX(1, 1111)=72
- KINDEX(2, 1111)=329
- KINDEX(1, 1112)=10
- KINDEX(2, 1112)=330
- KINDEX(1, 1113)=11
- KINDEX(2, 1113)=330
- KINDEX(1, 1114)=71
- KINDEX(2, 1114)=330
- KINDEX(1, 1115)=85
- KINDEX(2, 1115)=330
- KINDEX(1, 1116)=10
- KINDEX(2, 1116)=331
- KINDEX(1, 1117)=71
- KINDEX(2, 1117)=331
- KINDEX(1, 1118)=85
- KINDEX(2, 1118)=331
- KINDEX(1, 1119)=1
- KINDEX(2, 1119)=332
- KINDEX(1, 1120)=2
- KINDEX(2, 1120)=332
- KINDEX(1, 1121)=85
- KINDEX(2, 1121)=332
- KINDEX(1, 1122)=3
- KINDEX(2, 1122)=333
- KINDEX(1, 1123)=10
- KINDEX(2, 1123)=333
- KINDEX(1, 1124)=53
- KINDEX(2, 1124)=333
- KINDEX(1, 1125)=85
- KINDEX(2, 1125)=334
- KINDEX(1, 1126)=3
- KINDEX(2, 1126)=335
- KINDEX(1, 1127)=15
- KINDEX(2, 1127)=335
- KINDEX(1, 1128)=50
- KINDEX(2, 1128)=335
- KINDEX(1, 1129)=52
- KINDEX(2, 1129)=335
- KINDEX(1, 1130)=3
- KINDEX(2, 1130)=336
- KINDEX(1, 1131)=15
- KINDEX(2, 1131)=336
- KINDEX(1, 1132)=48
- KINDEX(2, 1132)=336
- KINDEX(1, 1133)=50
- KINDEX(2, 1133)=336
- KINDEX(1, 1134)=51
- KINDEX(2, 1134)=336
- KINDEX(1, 1135)=3
- KINDEX(2, 1135)=337
- KINDEX(1, 1136)=15
- KINDEX(2, 1136)=337
- KINDEX(1, 1137)=48
- KINDEX(2, 1137)=337
- KINDEX(1, 1138)=51
- KINDEX(2, 1138)=337
- KINDEX(1, 1139)=5
- KINDEX(2, 1139)=338
- KINDEX(1, 1140)=8
- KINDEX(2, 1140)=338
- KINDEX(1, 1141)=74
- KINDEX(2, 1141)=338
- KINDEX(1, 1142)=85
- KINDEX(2, 1142)=338
- KINDEX(1, 1143)=10
- KINDEX(2, 1143)=339
- KINDEX(1, 1144)=11
- KINDEX(2, 1144)=339
- KINDEX(1, 1145)=15
- KINDEX(2, 1145)=339
- KINDEX(1, 1146)=74
- KINDEX(2, 1146)=339
- KINDEX(1, 1147)=1
- KINDEX(2, 1147)=340
- KINDEX(1, 1148)=2
- KINDEX(2, 1148)=340
- KINDEX(1, 1149)=11
- KINDEX(2, 1149)=340
- KINDEX(1, 1150)=15
- KINDEX(2, 1150)=340
- KINDEX(1, 1151)=3
- KINDEX(2, 1151)=341
- KINDEX(1, 1152)=10
- KINDEX(2, 1152)=341
- KINDEX(1, 1153)=46
- KINDEX(2, 1153)=341
- KINDEX(1, 1154)=11
- KINDEX(2, 1154)=342
- KINDEX(1, 1155)=15
- KINDEX(2, 1155)=342
- KINDEX(1, 1156)=85
- KINDEX(2, 1156)=342
- KINDEX(1, 1157)=2
- KINDEX(2, 1157)=343
- KINDEX(1, 1158)=82
- KINDEX(2, 1158)=343
- KINDEX(1, 1159)=85
- KINDEX(2, 1159)=343
- KINDEX(1, 1160)=1
- KINDEX(2, 1160)=344
- KINDEX(1, 1161)=2
- KINDEX(2, 1161)=344
- KINDEX(1, 1162)=85
- KINDEX(2, 1162)=344
- KINDEX(1, 1163)=9
- KINDEX(2, 1163)=345
- KINDEX(1, 1164)=15
- KINDEX(2, 1164)=345
- KINDEX(1, 1165)=14
- KINDEX(2, 1165)=346
- KINDEX(1, 1166)=10
- KINDEX(2, 1166)=347
- KINDEX(1, 1167)=15
- KINDEX(2, 1167)=347
- KINDEX(1, 1168)=43
- KINDEX(2, 1168)=347
- KINDEX(1, 1169)=15
- KINDEX(2, 1169)=348
- KINDEX(1, 1170)=44
- KINDEX(2, 1170)=348
- KINDEX(1, 1171)=15
- KINDEX(2, 1171)=349
- KINDEX(1, 1172)=45
- KINDEX(2, 1172)=349
- KINDEX(1, 1173)=48
- KINDEX(2, 1173)=350
- KINDEX(1, 1174)=53
- KINDEX(2, 1174)=351
- KINDEX(1, 1175)=58
- KINDEX(2, 1175)=352
- KINDEX(1, 1176)=60
- KINDEX(2, 1176)=353
- KINDEX(1, 1177)=64
- KINDEX(2, 1177)=354
- KINDEX(1, 1178)=66
- KINDEX(2, 1178)=355
- KINDEX(1, 1179)=68
- KINDEX(2, 1179)=356
- KINDEX(1, 1180)=56
- KINDEX(2, 1180)=357
- KINDEX(1, 1181)=54
- KINDEX(2, 1181)=358
- KINDEX(1, 1182)=55
- KINDEX(2, 1182)=359
- KINDEX(1, 1183)=65
- KINDEX(2, 1183)=360
- KINDEX(1, 1184)=47
- KINDEX(2, 1184)=361
- KINDEX(1, 1185)=59
- KINDEX(2, 1185)=362
- KINDEX(1, 1186)=49
- KINDEX(2, 1186)=363
- KINDEX(1, 1187)=46
- KINDEX(2, 1187)=364
- KINDEX(1, 1188)=67
- KINDEX(2, 1188)=365
+ KINDEX(2, 844)=240
+ KINDEX(1, 845)=56
+ KINDEX(2, 845)=240
+ KINDEX(1, 846)=63
+ KINDEX(2, 846)=240
+ KINDEX(1, 847)=42
+ KINDEX(2, 847)=241
+ KINDEX(1, 848)=55
+ KINDEX(2, 848)=241
+ KINDEX(1, 849)=56
+ KINDEX(2, 849)=241
+ KINDEX(1, 850)=43
+ KINDEX(2, 850)=242
+ KINDEX(1, 851)=55
+ KINDEX(2, 851)=242
+ KINDEX(1, 852)=56
+ KINDEX(2, 852)=242
+ KINDEX(1, 853)=68
+ KINDEX(2, 853)=243
+ KINDEX(1, 854)=77
+ KINDEX(2, 854)=243
+ KINDEX(1, 855)=68
+ KINDEX(2, 855)=244
+ KINDEX(1, 856)=77
+ KINDEX(2, 856)=244
+ KINDEX(1, 857)=77
+ KINDEX(2, 857)=245
+ KINDEX(1, 858)=78
+ KINDEX(2, 858)=245
+ KINDEX(1, 859)=68
+ KINDEX(2, 859)=246
+ KINDEX(1, 860)=77
+ KINDEX(2, 860)=246
+ KINDEX(1, 861)=78
+ KINDEX(2, 861)=246
+ KINDEX(1, 862)=68
+ KINDEX(2, 862)=247
+ KINDEX(1, 863)=78
+ KINDEX(2, 863)=247
+ KINDEX(1, 864)=67
+ KINDEX(2, 864)=248
+ KINDEX(1, 865)=77
+ KINDEX(2, 865)=248
+ KINDEX(1, 866)=78
+ KINDEX(2, 866)=248
+ KINDEX(1, 867)=77
+ KINDEX(2, 867)=249
+ KINDEX(1, 868)=80
+ KINDEX(2, 868)=249
+ KINDEX(1, 869)=87
+ KINDEX(2, 869)=249
+ KINDEX(1, 870)=70
+ KINDEX(2, 870)=250
+ KINDEX(1, 871)=73
+ KINDEX(2, 871)=250
+ KINDEX(1, 872)=77
+ KINDEX(2, 872)=250
+ KINDEX(1, 873)=70
+ KINDEX(2, 873)=251
+ KINDEX(1, 874)=75
+ KINDEX(2, 874)=251
+ KINDEX(1, 875)=78
+ KINDEX(2, 875)=251
+ KINDEX(1, 876)=70
+ KINDEX(2, 876)=252
+ KINDEX(1, 877)=75
+ KINDEX(2, 877)=252
+ KINDEX(1, 878)=78
+ KINDEX(2, 878)=252
+ KINDEX(1, 879)=73
+ KINDEX(2, 879)=253
+ KINDEX(1, 880)=75
+ KINDEX(2, 880)=253
+ KINDEX(1, 881)=74
+ KINDEX(2, 881)=254
+ KINDEX(1, 882)=75
+ KINDEX(2, 882)=254
+ KINDEX(1, 883)=80
+ KINDEX(2, 883)=254
+ KINDEX(1, 884)=81
+ KINDEX(2, 884)=254
+ KINDEX(1, 885)=70
+ KINDEX(2, 885)=255
+ KINDEX(1, 886)=74
+ KINDEX(2, 886)=255
+ KINDEX(1, 887)=77
+ KINDEX(2, 887)=255
+ KINDEX(1, 888)=72
+ KINDEX(2, 888)=256
+ KINDEX(1, 889)=74
+ KINDEX(2, 889)=256
+ KINDEX(1, 890)=71
+ KINDEX(2, 890)=257
+ KINDEX(1, 891)=74
+ KINDEX(2, 891)=257
+ KINDEX(1, 892)=81
+ KINDEX(2, 892)=257
+ KINDEX(1, 893)=88
+ KINDEX(2, 893)=257
+ KINDEX(1, 894)=71
+ KINDEX(2, 894)=258
+ KINDEX(1, 895)=74
+ KINDEX(2, 895)=258
+ KINDEX(1, 896)=80
+ KINDEX(2, 896)=258
+ KINDEX(1, 897)=87
+ KINDEX(2, 897)=258
+ KINDEX(1, 898)=78
+ KINDEX(2, 898)=259
+ KINDEX(1, 899)=82
+ KINDEX(2, 899)=259
+ KINDEX(1, 900)=85
+ KINDEX(2, 900)=259
+ KINDEX(1, 901)=80
+ KINDEX(2, 901)=260
+ KINDEX(1, 902)=85
+ KINDEX(2, 902)=260
+ KINDEX(1, 903)=86
+ KINDEX(2, 903)=260
+ KINDEX(1, 904)=87
+ KINDEX(2, 904)=260
+ KINDEX(1, 905)=77
+ KINDEX(2, 905)=261
+ KINDEX(1, 906)=78
+ KINDEX(2, 906)=261
+ KINDEX(1, 907)=82
+ KINDEX(2, 907)=261
+ KINDEX(1, 908)=83
+ KINDEX(2, 908)=261
+ KINDEX(1, 909)=77
+ KINDEX(2, 909)=262
+ KINDEX(1, 910)=78
+ KINDEX(2, 910)=262
+ KINDEX(1, 911)=79
+ KINDEX(2, 911)=262
+ KINDEX(1, 912)=83
+ KINDEX(2, 912)=262
+ KINDEX(1, 913)=80
+ KINDEX(2, 913)=263
+ KINDEX(1, 914)=82
+ KINDEX(2, 914)=263
+ KINDEX(1, 915)=91
+ KINDEX(2, 915)=263
+ KINDEX(1, 916)=80
+ KINDEX(2, 916)=264
+ KINDEX(1, 917)=82
+ KINDEX(2, 917)=264
+ KINDEX(1, 918)=91
+ KINDEX(2, 918)=264
+ KINDEX(1, 919)=77
+ KINDEX(2, 919)=265
+ KINDEX(1, 920)=78
+ KINDEX(2, 920)=265
+ KINDEX(1, 921)=80
+ KINDEX(2, 921)=265
+ KINDEX(1, 922)=83
+ KINDEX(2, 922)=265
+ KINDEX(1, 923)=91
+ KINDEX(2, 923)=265
+ KINDEX(1, 924)=87
+ KINDEX(2, 924)=266
+ KINDEX(1, 925)=89
+ KINDEX(2, 925)=266
+ KINDEX(1, 926)=78
+ KINDEX(2, 926)=267
+ KINDEX(1, 927)=89
+ KINDEX(2, 927)=267
+ KINDEX(1, 928)=90
+ KINDEX(2, 928)=267
+ KINDEX(1, 929)=88
+ KINDEX(2, 929)=268
+ KINDEX(1, 930)=89
+ KINDEX(2, 930)=268
+ KINDEX(1, 931)=80
+ KINDEX(2, 931)=269
+ KINDEX(1, 932)=81
+ KINDEX(2, 932)=269
+ KINDEX(1, 933)=90
+ KINDEX(2, 933)=269
+ KINDEX(1, 934)=77
+ KINDEX(2, 934)=270
+ KINDEX(1, 935)=81
+ KINDEX(2, 935)=270
+ KINDEX(1, 936)=88
+ KINDEX(2, 936)=270
+ KINDEX(1, 937)=67
+ KINDEX(2, 937)=271
+ KINDEX(1, 938)=80
+ KINDEX(2, 938)=271
+ KINDEX(1, 939)=81
+ KINDEX(2, 939)=271
+ KINDEX(1, 940)=68
+ KINDEX(2, 940)=272
+ KINDEX(1, 941)=80
+ KINDEX(2, 941)=272
+ KINDEX(1, 942)=81
+ KINDEX(2, 942)=272
RETURN
-END SUBROUTINE CH_NONZEROTERMS_GAZ
+END SUBROUTINE CH_NONZEROTERMS_AQ
!!
!!
!! #############################
- SUBROUTINE CH_NONZEROTERMS_AQ
+ SUBROUTINE CH_NONZEROTERMS_GAZ
!! #############################
!! This code has been created automatically by preprocessor m10,
!! version: 9.7, copyright 1995-1999 by Meteo France/Universite Paul Sabatier.
@@ -98975,3547 +37315,1223 @@ END SUBROUTINE CH_NONZEROTERMS_GAZ
!! ------------------
IMPLICIT NONE
! check if output array is large enough
-IF (KINDEXDIM.LT.1768) THEN
+IF (KINDEXDIM.LT.606) THEN
STOP 'CH_NONZEROTERMS ERROR: array KINDEX is too small!'
END IF
- KINDEX(1, 1)=1
+ KINDEX(1, 1)=3
KINDEX(2, 1)=1
- KINDEX(1, 2)=2
+ KINDEX(1, 2)=4
KINDEX(2, 2)=1
- KINDEX(1, 3)=3
+ KINDEX(1, 3)=1
KINDEX(2, 3)=2
KINDEX(1, 4)=1
KINDEX(2, 4)=3
- KINDEX(1, 5)=2
- KINDEX(2, 5)=3
- KINDEX(1, 6)=2
+ KINDEX(1, 5)=3
+ KINDEX(2, 5)=4
+ KINDEX(1, 6)=7
KINDEX(2, 6)=4
- KINDEX(1, 7)=8
+ KINDEX(1, 7)=14
KINDEX(2, 7)=4
- KINDEX(1, 8)=1
+ KINDEX(1, 8)=4
KINDEX(2, 8)=5
- KINDEX(1, 9)=2
+ KINDEX(1, 9)=8
KINDEX(2, 9)=5
- KINDEX(1, 10)=3
+ KINDEX(1, 10)=14
KINDEX(2, 10)=5
- KINDEX(1, 11)=2
+ KINDEX(1, 11)=4
KINDEX(2, 11)=6
- KINDEX(1, 12)=3
+ KINDEX(1, 12)=5
KINDEX(2, 12)=6
- KINDEX(1, 13)=8
+ KINDEX(1, 13)=9
KINDEX(2, 13)=6
- KINDEX(1, 14)=1
- KINDEX(2, 14)=7
- KINDEX(1, 15)=2
- KINDEX(2, 15)=7
- KINDEX(1, 16)=8
+ KINDEX(1, 14)=14
+ KINDEX(2, 14)=6
+ KINDEX(1, 15)=15
+ KINDEX(2, 15)=6
+ KINDEX(1, 16)=3
KINDEX(2, 16)=7
- KINDEX(1, 17)=1
- KINDEX(2, 17)=8
- KINDEX(1, 18)=2
+ KINDEX(1, 17)=5
+ KINDEX(2, 17)=7
+ KINDEX(1, 18)=4
KINDEX(2, 18)=8
- KINDEX(1, 19)=2
- KINDEX(2, 19)=9
- KINDEX(1, 20)=7
+ KINDEX(1, 19)=5
+ KINDEX(2, 19)=8
+ KINDEX(1, 20)=2
KINDEX(2, 20)=9
- KINDEX(1, 21)=8
+ KINDEX(1, 21)=14
KINDEX(2, 21)=9
- KINDEX(1, 22)=2
+ KINDEX(1, 22)=13
KINDEX(2, 22)=10
- KINDEX(1, 23)=7
+ KINDEX(1, 23)=22
KINDEX(2, 23)=10
- KINDEX(1, 24)=8
- KINDEX(2, 24)=10
- KINDEX(1, 25)=5
+ KINDEX(1, 24)=13
+ KINDEX(2, 24)=11
+ KINDEX(1, 25)=15
KINDEX(2, 25)=11
- KINDEX(1, 26)=7
+ KINDEX(1, 26)=22
KINDEX(2, 26)=11
- KINDEX(1, 27)=1
+ KINDEX(1, 27)=13
KINDEX(2, 27)=12
- KINDEX(1, 28)=2
+ KINDEX(1, 28)=15
KINDEX(2, 28)=12
- KINDEX(1, 29)=8
+ KINDEX(1, 29)=23
KINDEX(2, 29)=12
- KINDEX(1, 30)=1
- KINDEX(2, 30)=13
- KINDEX(1, 31)=8
+ KINDEX(1, 30)=32
+ KINDEX(2, 30)=12
+ KINDEX(1, 31)=14
KINDEX(2, 31)=13
- KINDEX(1, 32)=2
- KINDEX(2, 32)=14
- KINDEX(1, 33)=8
- KINDEX(2, 33)=14
- KINDEX(1, 34)=3
- KINDEX(2, 34)=15
- KINDEX(1, 35)=3
- KINDEX(2, 35)=16
+ KINDEX(1, 32)=15
+ KINDEX(2, 32)=13
+ KINDEX(1, 33)=22
+ KINDEX(2, 33)=13
+ KINDEX(1, 34)=28
+ KINDEX(2, 34)=13
+ KINDEX(1, 35)=14
+ KINDEX(2, 35)=14
KINDEX(1, 36)=15
- KINDEX(2, 36)=17
- KINDEX(1, 37)=1
- KINDEX(2, 37)=20
- KINDEX(1, 38)=4
- KINDEX(2, 38)=20
- KINDEX(1, 39)=15
- KINDEX(2, 39)=20
- KINDEX(1, 40)=1
- KINDEX(2, 40)=21
- KINDEX(1, 41)=2
- KINDEX(2, 41)=21
- KINDEX(1, 42)=4
- KINDEX(2, 42)=21
- KINDEX(1, 43)=10
- KINDEX(2, 43)=21
+ KINDEX(2, 36)=14
+ KINDEX(1, 37)=23
+ KINDEX(2, 37)=14
+ KINDEX(1, 38)=29
+ KINDEX(2, 38)=14
+ KINDEX(1, 39)=32
+ KINDEX(2, 39)=14
+ KINDEX(1, 40)=24
+ KINDEX(2, 40)=15
+ KINDEX(1, 41)=33
+ KINDEX(2, 41)=15
+ KINDEX(1, 42)=39
+ KINDEX(2, 42)=15
+ KINDEX(1, 43)=13
+ KINDEX(2, 43)=16
KINDEX(1, 44)=15
- KINDEX(2, 44)=21
- KINDEX(1, 45)=2
- KINDEX(2, 45)=22
- KINDEX(1, 46)=4
- KINDEX(2, 46)=22
- KINDEX(1, 47)=5
- KINDEX(2, 47)=22
- KINDEX(1, 48)=2
- KINDEX(2, 48)=23
- KINDEX(1, 49)=5
- KINDEX(2, 49)=23
- KINDEX(1, 50)=15
- KINDEX(2, 50)=23
- KINDEX(1, 51)=5
- KINDEX(2, 51)=24
- KINDEX(1, 52)=8
- KINDEX(2, 52)=24
- KINDEX(1, 53)=15
- KINDEX(2, 53)=24
- KINDEX(1, 54)=10
- KINDEX(2, 54)=25
- KINDEX(1, 55)=11
- KINDEX(2, 55)=25
- KINDEX(1, 56)=15
- KINDEX(2, 56)=25
- KINDEX(1, 57)=3
- KINDEX(2, 57)=26
- KINDEX(1, 58)=10
- KINDEX(2, 58)=26
- KINDEX(1, 59)=15
- KINDEX(2, 59)=26
- KINDEX(1, 60)=1
- KINDEX(2, 60)=27
- KINDEX(1, 61)=2
- KINDEX(2, 61)=27
- KINDEX(1, 62)=10
- KINDEX(2, 62)=27
+ KINDEX(2, 44)=16
+ KINDEX(1, 45)=22
+ KINDEX(2, 45)=16
+ KINDEX(1, 46)=25
+ KINDEX(2, 46)=16
+ KINDEX(1, 47)=39
+ KINDEX(2, 47)=16
+ KINDEX(1, 48)=4
+ KINDEX(2, 48)=17
+ KINDEX(1, 49)=15
+ KINDEX(2, 49)=17
+ KINDEX(1, 50)=23
+ KINDEX(2, 50)=17
+ KINDEX(1, 51)=24
+ KINDEX(2, 51)=17
+ KINDEX(1, 52)=26
+ KINDEX(2, 52)=17
+ KINDEX(1, 53)=1
+ KINDEX(2, 53)=18
+ KINDEX(1, 54)=1
+ KINDEX(2, 54)=19
+ KINDEX(1, 55)=14
+ KINDEX(2, 55)=22
+ KINDEX(1, 56)=1
+ KINDEX(2, 56)=23
+ KINDEX(1, 57)=14
+ KINDEX(2, 57)=23
+ KINDEX(1, 58)=15
+ KINDEX(2, 58)=23
+ KINDEX(1, 59)=1
+ KINDEX(2, 59)=24
+ KINDEX(1, 60)=14
+ KINDEX(2, 60)=24
+ KINDEX(1, 61)=15
+ KINDEX(2, 61)=24
+ KINDEX(1, 62)=14
+ KINDEX(2, 62)=25
KINDEX(1, 63)=15
- KINDEX(2, 63)=27
+ KINDEX(2, 63)=25
KINDEX(1, 64)=2
- KINDEX(2, 64)=28
- KINDEX(1, 65)=6
- KINDEX(2, 65)=28
- KINDEX(1, 66)=10
- KINDEX(2, 66)=28
+ KINDEX(2, 64)=26
+ KINDEX(1, 65)=14
+ KINDEX(2, 65)=26
+ KINDEX(1, 66)=15
+ KINDEX(2, 66)=26
KINDEX(1, 67)=2
- KINDEX(2, 67)=29
- KINDEX(1, 68)=6
- KINDEX(2, 68)=29
- KINDEX(1, 69)=10
- KINDEX(2, 69)=29
- KINDEX(1, 70)=2
- KINDEX(2, 70)=30
- KINDEX(1, 71)=6
- KINDEX(2, 71)=30
- KINDEX(1, 72)=15
- KINDEX(2, 72)=30
+ KINDEX(2, 67)=27
+ KINDEX(1, 68)=15
+ KINDEX(2, 68)=27
+ KINDEX(1, 69)=2
+ KINDEX(2, 69)=28
+ KINDEX(1, 70)=15
+ KINDEX(2, 70)=28
+ KINDEX(1, 71)=3
+ KINDEX(2, 71)=29
+ KINDEX(1, 72)=4
+ KINDEX(2, 72)=29
KINDEX(1, 73)=3
- KINDEX(2, 73)=31
- KINDEX(1, 74)=10
- KINDEX(2, 74)=31
- KINDEX(1, 75)=15
+ KINDEX(2, 73)=30
+ KINDEX(1, 74)=4
+ KINDEX(2, 74)=30
+ KINDEX(1, 75)=4
KINDEX(2, 75)=31
- KINDEX(1, 76)=10
- KINDEX(2, 76)=32
- KINDEX(1, 77)=12
+ KINDEX(1, 76)=5
+ KINDEX(2, 76)=31
+ KINDEX(1, 77)=3
KINDEX(2, 77)=32
- KINDEX(1, 78)=10
- KINDEX(2, 78)=33
- KINDEX(1, 79)=12
- KINDEX(2, 79)=33
- KINDEX(1, 80)=2
- KINDEX(2, 80)=34
- KINDEX(1, 81)=5
- KINDEX(2, 81)=34
- KINDEX(1, 82)=8
- KINDEX(2, 82)=34
- KINDEX(1, 83)=10
+ KINDEX(1, 78)=7
+ KINDEX(2, 78)=32
+ KINDEX(1, 79)=14
+ KINDEX(2, 79)=32
+ KINDEX(1, 80)=4
+ KINDEX(2, 80)=33
+ KINDEX(1, 81)=8
+ KINDEX(2, 81)=33
+ KINDEX(1, 82)=14
+ KINDEX(2, 82)=33
+ KINDEX(1, 83)=4
KINDEX(2, 83)=34
- KINDEX(1, 84)=15
+ KINDEX(1, 84)=5
KINDEX(2, 84)=34
- KINDEX(1, 85)=3
- KINDEX(2, 85)=35
- KINDEX(1, 86)=10
- KINDEX(2, 86)=36
- KINDEX(1, 87)=13
- KINDEX(2, 87)=36
- KINDEX(1, 88)=14
- KINDEX(2, 88)=36
- KINDEX(1, 89)=15
- KINDEX(2, 89)=36
- KINDEX(1, 90)=12
- KINDEX(2, 90)=37
- KINDEX(1, 91)=15
- KINDEX(2, 91)=37
- KINDEX(1, 92)=10
- KINDEX(2, 92)=38
- KINDEX(1, 93)=12
- KINDEX(2, 93)=38
- KINDEX(1, 94)=15
- KINDEX(2, 94)=38
- KINDEX(1, 95)=1
- KINDEX(2, 95)=39
- KINDEX(1, 96)=2
- KINDEX(2, 96)=39
- KINDEX(1, 97)=2
- KINDEX(2, 97)=40
- KINDEX(1, 98)=4
- KINDEX(2, 98)=40
- KINDEX(1, 99)=15
- KINDEX(2, 99)=40
- KINDEX(1, 100)=2
- KINDEX(2, 100)=41
- KINDEX(1, 101)=8
- KINDEX(2, 101)=41
- KINDEX(1, 102)=10
- KINDEX(2, 102)=41
- KINDEX(1, 103)=15
- KINDEX(2, 103)=41
- KINDEX(1, 104)=2
- KINDEX(2, 104)=42
- KINDEX(1, 105)=8
- KINDEX(2, 105)=42
- KINDEX(1, 106)=10
- KINDEX(2, 106)=43
- KINDEX(1, 107)=15
- KINDEX(2, 107)=43
- KINDEX(1, 108)=15
- KINDEX(2, 108)=44
- KINDEX(1, 109)=85
- KINDEX(2, 109)=44
- KINDEX(1, 110)=86
- KINDEX(2, 110)=44
- KINDEX(1, 111)=10
- KINDEX(2, 111)=45
- KINDEX(1, 112)=11
- KINDEX(2, 112)=45
- KINDEX(1, 113)=28
- KINDEX(2, 113)=45
- KINDEX(1, 114)=11
- KINDEX(2, 114)=46
- KINDEX(1, 115)=28
- KINDEX(2, 115)=46
- KINDEX(1, 116)=10
- KINDEX(2, 116)=47
- KINDEX(1, 117)=11
- KINDEX(2, 117)=47
- KINDEX(1, 118)=15
- KINDEX(2, 118)=47
- KINDEX(1, 119)=28
- KINDEX(2, 119)=47
- KINDEX(1, 120)=5
- KINDEX(2, 120)=48
- KINDEX(1, 121)=8
- KINDEX(2, 121)=48
- KINDEX(1, 122)=10
- KINDEX(2, 122)=48
- KINDEX(1, 123)=11
- KINDEX(2, 123)=48
- KINDEX(1, 124)=28
- KINDEX(2, 124)=48
- KINDEX(1, 125)=10
- KINDEX(2, 125)=49
- KINDEX(1, 126)=15
- KINDEX(2, 126)=49
- KINDEX(1, 127)=28
- KINDEX(2, 127)=49
- KINDEX(1, 128)=32
- KINDEX(2, 128)=49
- KINDEX(1, 129)=15
- KINDEX(2, 129)=50
- KINDEX(1, 130)=16
- KINDEX(2, 130)=50
- KINDEX(1, 131)=85
- KINDEX(2, 131)=50
- KINDEX(1, 132)=8
- KINDEX(2, 132)=51
- KINDEX(1, 133)=16
- KINDEX(2, 133)=51
- KINDEX(1, 134)=85
- KINDEX(2, 134)=51
- KINDEX(1, 135)=3
- KINDEX(2, 135)=52
- KINDEX(1, 136)=10
- KINDEX(2, 136)=52
+ KINDEX(1, 85)=14
+ KINDEX(2, 85)=34
+ KINDEX(1, 86)=15
+ KINDEX(2, 86)=34
+ KINDEX(1, 87)=3
+ KINDEX(2, 87)=35
+ KINDEX(1, 88)=4
+ KINDEX(2, 88)=35
+ KINDEX(1, 89)=14
+ KINDEX(2, 89)=35
+ KINDEX(1, 90)=15
+ KINDEX(2, 90)=35
+ KINDEX(1, 91)=4
+ KINDEX(2, 91)=36
+ KINDEX(1, 92)=9
+ KINDEX(2, 92)=36
+ KINDEX(1, 93)=15
+ KINDEX(2, 93)=36
+ KINDEX(1, 94)=4
+ KINDEX(2, 94)=37
+ KINDEX(1, 95)=9
+ KINDEX(2, 95)=37
+ KINDEX(1, 96)=15
+ KINDEX(2, 96)=37
+ KINDEX(1, 97)=4
+ KINDEX(2, 97)=38
+ KINDEX(1, 98)=5
+ KINDEX(2, 98)=38
+ KINDEX(1, 99)=8
+ KINDEX(2, 99)=38
+ KINDEX(1, 100)=14
+ KINDEX(2, 100)=38
+ KINDEX(1, 101)=15
+ KINDEX(2, 101)=38
+ KINDEX(1, 102)=4
+ KINDEX(2, 102)=39
+ KINDEX(1, 103)=7
+ KINDEX(2, 103)=39
+ KINDEX(1, 104)=14
+ KINDEX(2, 104)=39
+ KINDEX(1, 105)=5
+ KINDEX(2, 105)=40
+ KINDEX(1, 106)=8
+ KINDEX(2, 106)=40
+ KINDEX(1, 107)=14
+ KINDEX(2, 107)=40
+ KINDEX(1, 108)=4
+ KINDEX(2, 108)=41
+ KINDEX(1, 109)=9
+ KINDEX(2, 109)=41
+ KINDEX(1, 110)=14
+ KINDEX(2, 110)=41
+ KINDEX(1, 111)=1
+ KINDEX(2, 111)=42
+ KINDEX(1, 112)=3
+ KINDEX(2, 112)=42
+ KINDEX(1, 113)=4
+ KINDEX(2, 113)=42
+ KINDEX(1, 114)=1
+ KINDEX(2, 114)=43
+ KINDEX(1, 115)=4
+ KINDEX(2, 115)=43
+ KINDEX(1, 116)=5
+ KINDEX(2, 116)=43
+ KINDEX(1, 117)=3
+ KINDEX(2, 117)=44
+ KINDEX(1, 118)=4
+ KINDEX(2, 118)=44
+ KINDEX(1, 119)=3
+ KINDEX(2, 119)=45
+ KINDEX(1, 120)=4
+ KINDEX(2, 120)=45
+ KINDEX(1, 121)=5
+ KINDEX(2, 121)=45
+ KINDEX(1, 122)=3
+ KINDEX(2, 122)=46
+ KINDEX(1, 123)=4
+ KINDEX(2, 123)=46
+ KINDEX(1, 124)=5
+ KINDEX(2, 124)=46
+ KINDEX(1, 125)=4
+ KINDEX(2, 125)=47
+ KINDEX(1, 126)=5
+ KINDEX(2, 126)=47
+ KINDEX(1, 127)=6
+ KINDEX(2, 127)=47
+ KINDEX(1, 128)=4
+ KINDEX(2, 128)=48
+ KINDEX(1, 129)=5
+ KINDEX(2, 129)=48
+ KINDEX(1, 130)=6
+ KINDEX(2, 130)=48
+ KINDEX(1, 131)=4
+ KINDEX(2, 131)=49
+ KINDEX(1, 132)=5
+ KINDEX(2, 132)=49
+ KINDEX(1, 133)=10
+ KINDEX(2, 133)=50
+ KINDEX(1, 134)=14
+ KINDEX(2, 134)=50
+ KINDEX(1, 135)=14
+ KINDEX(2, 135)=51
+ KINDEX(1, 136)=15
+ KINDEX(2, 136)=51
KINDEX(1, 137)=11
KINDEX(2, 137)=52
- KINDEX(1, 138)=15
+ KINDEX(1, 138)=12
KINDEX(2, 138)=52
- KINDEX(1, 139)=16
+ KINDEX(1, 139)=14
KINDEX(2, 139)=52
- KINDEX(1, 140)=28
+ KINDEX(1, 140)=15
KINDEX(2, 140)=52
- KINDEX(1, 141)=43
- KINDEX(2, 141)=52
- KINDEX(1, 142)=10
+ KINDEX(1, 141)=13
+ KINDEX(2, 141)=53
+ KINDEX(1, 142)=14
KINDEX(2, 142)=53
- KINDEX(1, 143)=11
+ KINDEX(1, 143)=15
KINDEX(2, 143)=53
- KINDEX(1, 144)=16
- KINDEX(2, 144)=53
- KINDEX(1, 145)=85
- KINDEX(2, 145)=53
- KINDEX(1, 146)=86
- KINDEX(2, 146)=53
- KINDEX(1, 147)=10
+ KINDEX(1, 144)=13
+ KINDEX(2, 144)=54
+ KINDEX(1, 145)=14
+ KINDEX(2, 145)=54
+ KINDEX(1, 146)=15
+ KINDEX(2, 146)=54
+ KINDEX(1, 147)=19
KINDEX(2, 147)=54
- KINDEX(1, 148)=15
+ KINDEX(1, 148)=20
KINDEX(2, 148)=54
- KINDEX(1, 149)=29
+ KINDEX(1, 149)=22
KINDEX(2, 149)=54
- KINDEX(1, 150)=33
+ KINDEX(1, 150)=25
KINDEX(2, 150)=54
- KINDEX(1, 151)=85
+ KINDEX(1, 151)=41
KINDEX(2, 151)=54
- KINDEX(1, 152)=15
+ KINDEX(1, 152)=23
KINDEX(2, 152)=55
- KINDEX(1, 153)=17
+ KINDEX(1, 153)=25
KINDEX(2, 153)=55
- KINDEX(1, 154)=85
- KINDEX(2, 154)=55
- KINDEX(1, 155)=8
+ KINDEX(1, 154)=14
+ KINDEX(2, 154)=56
+ KINDEX(1, 155)=16
KINDEX(2, 155)=56
- KINDEX(1, 156)=17
+ KINDEX(1, 156)=32
KINDEX(2, 156)=56
- KINDEX(1, 157)=85
- KINDEX(2, 157)=56
- KINDEX(1, 158)=3
+ KINDEX(1, 157)=14
+ KINDEX(2, 157)=57
+ KINDEX(1, 158)=17
KINDEX(2, 158)=57
- KINDEX(1, 159)=10
+ KINDEX(1, 159)=33
KINDEX(2, 159)=57
- KINDEX(1, 160)=11
- KINDEX(2, 160)=57
- KINDEX(1, 161)=15
- KINDEX(2, 161)=57
- KINDEX(1, 162)=17
- KINDEX(2, 162)=57
- KINDEX(1, 163)=19
- KINDEX(2, 163)=57
- KINDEX(1, 164)=28
- KINDEX(2, 164)=57
- KINDEX(1, 165)=29
- KINDEX(2, 165)=57
- KINDEX(1, 166)=43
- KINDEX(2, 166)=57
- KINDEX(1, 167)=44
- KINDEX(2, 167)=57
- KINDEX(1, 168)=85
- KINDEX(2, 168)=57
- KINDEX(1, 169)=87
- KINDEX(2, 169)=57
- KINDEX(1, 170)=17
- KINDEX(2, 170)=58
+ KINDEX(1, 160)=13
+ KINDEX(2, 160)=58
+ KINDEX(1, 161)=14
+ KINDEX(2, 161)=58
+ KINDEX(1, 162)=15
+ KINDEX(2, 162)=58
+ KINDEX(1, 163)=18
+ KINDEX(2, 163)=58
+ KINDEX(1, 164)=22
+ KINDEX(2, 164)=58
+ KINDEX(1, 165)=23
+ KINDEX(2, 165)=58
+ KINDEX(1, 166)=24
+ KINDEX(2, 166)=58
+ KINDEX(1, 167)=25
+ KINDEX(2, 167)=58
+ KINDEX(1, 168)=30
+ KINDEX(2, 168)=58
+ KINDEX(1, 169)=33
+ KINDEX(2, 169)=58
+ KINDEX(1, 170)=14
+ KINDEX(2, 170)=59
KINDEX(1, 171)=19
- KINDEX(2, 171)=58
- KINDEX(1, 172)=29
- KINDEX(2, 172)=58
- KINDEX(1, 173)=85
- KINDEX(2, 173)=58
- KINDEX(1, 174)=87
- KINDEX(2, 174)=58
- KINDEX(1, 175)=15
- KINDEX(2, 175)=59
- KINDEX(1, 176)=19
- KINDEX(2, 176)=59
- KINDEX(1, 177)=85
- KINDEX(2, 177)=59
- KINDEX(1, 178)=87
- KINDEX(2, 178)=59
- KINDEX(1, 179)=10
- KINDEX(2, 179)=60
- KINDEX(1, 180)=11
- KINDEX(2, 180)=60
- KINDEX(1, 181)=29
- KINDEX(2, 181)=60
- KINDEX(1, 182)=85
- KINDEX(2, 182)=60
- KINDEX(1, 183)=87
- KINDEX(2, 183)=60
- KINDEX(1, 184)=15
- KINDEX(2, 184)=61
- KINDEX(1, 185)=29
- KINDEX(2, 185)=61
- KINDEX(1, 186)=85
- KINDEX(2, 186)=61
- KINDEX(1, 187)=5
- KINDEX(2, 187)=62
- KINDEX(1, 188)=8
- KINDEX(2, 188)=62
- KINDEX(1, 189)=29
- KINDEX(2, 189)=62
- KINDEX(1, 190)=85
- KINDEX(2, 190)=62
- KINDEX(1, 191)=15
- KINDEX(2, 191)=63
- KINDEX(1, 192)=30
- KINDEX(2, 192)=63
- KINDEX(1, 193)=85
- KINDEX(2, 193)=63
- KINDEX(1, 194)=30
- KINDEX(2, 194)=64
- KINDEX(1, 195)=85
- KINDEX(2, 195)=64
- KINDEX(1, 196)=87
- KINDEX(2, 196)=64
- KINDEX(1, 197)=15
+ KINDEX(2, 171)=59
+ KINDEX(1, 172)=34
+ KINDEX(2, 172)=59
+ KINDEX(1, 173)=35
+ KINDEX(2, 173)=59
+ KINDEX(1, 174)=14
+ KINDEX(2, 174)=60
+ KINDEX(1, 175)=20
+ KINDEX(2, 175)=60
+ KINDEX(1, 176)=35
+ KINDEX(2, 176)=60
+ KINDEX(1, 177)=14
+ KINDEX(2, 177)=61
+ KINDEX(1, 178)=15
+ KINDEX(2, 178)=61
+ KINDEX(1, 179)=21
+ KINDEX(2, 179)=61
+ KINDEX(1, 180)=36
+ KINDEX(2, 180)=61
+ KINDEX(1, 181)=37
+ KINDEX(2, 181)=61
+ KINDEX(1, 182)=41
+ KINDEX(2, 182)=61
+ KINDEX(1, 183)=13
+ KINDEX(2, 183)=62
+ KINDEX(1, 184)=14
+ KINDEX(2, 184)=62
+ KINDEX(1, 185)=15
+ KINDEX(2, 185)=62
+ KINDEX(1, 186)=22
+ KINDEX(2, 186)=62
+ KINDEX(1, 187)=14
+ KINDEX(2, 187)=63
+ KINDEX(1, 188)=23
+ KINDEX(2, 188)=63
+ KINDEX(1, 189)=39
+ KINDEX(2, 189)=63
+ KINDEX(1, 190)=14
+ KINDEX(2, 190)=64
+ KINDEX(1, 191)=24
+ KINDEX(2, 191)=64
+ KINDEX(1, 192)=39
+ KINDEX(2, 192)=64
+ KINDEX(1, 193)=13
+ KINDEX(2, 193)=65
+ KINDEX(1, 194)=14
+ KINDEX(2, 194)=65
+ KINDEX(1, 195)=15
+ KINDEX(2, 195)=65
+ KINDEX(1, 196)=22
+ KINDEX(2, 196)=65
+ KINDEX(1, 197)=23
KINDEX(2, 197)=65
- KINDEX(1, 198)=35
+ KINDEX(1, 198)=24
KINDEX(2, 198)=65
- KINDEX(1, 199)=85
+ KINDEX(1, 199)=25
KINDEX(2, 199)=65
- KINDEX(1, 200)=8
- KINDEX(2, 200)=66
- KINDEX(1, 201)=35
- KINDEX(2, 201)=66
- KINDEX(1, 202)=85
+ KINDEX(1, 200)=39
+ KINDEX(2, 200)=65
+ KINDEX(1, 201)=41
+ KINDEX(2, 201)=65
+ KINDEX(1, 202)=14
KINDEX(2, 202)=66
- KINDEX(1, 203)=3
- KINDEX(2, 203)=67
- KINDEX(1, 204)=10
- KINDEX(2, 204)=67
- KINDEX(1, 205)=11
+ KINDEX(1, 203)=15
+ KINDEX(2, 203)=66
+ KINDEX(1, 204)=30
+ KINDEX(2, 204)=66
+ KINDEX(1, 205)=14
KINDEX(2, 205)=67
- KINDEX(1, 206)=15
+ KINDEX(1, 206)=31
KINDEX(2, 206)=67
- KINDEX(1, 207)=17
- KINDEX(2, 207)=67
- KINDEX(1, 208)=28
- KINDEX(2, 208)=67
- KINDEX(1, 209)=35
- KINDEX(2, 209)=67
- KINDEX(1, 210)=39
- KINDEX(2, 210)=67
- KINDEX(1, 211)=40
- KINDEX(2, 211)=67
- KINDEX(1, 212)=43
- KINDEX(2, 212)=67
- KINDEX(1, 213)=85
- KINDEX(2, 213)=67
- KINDEX(1, 214)=17
- KINDEX(2, 214)=68
- KINDEX(1, 215)=29
- KINDEX(2, 215)=68
- KINDEX(1, 216)=35
- KINDEX(2, 216)=68
- KINDEX(1, 217)=15
+ KINDEX(1, 207)=14
+ KINDEX(2, 207)=68
+ KINDEX(1, 208)=22
+ KINDEX(2, 208)=68
+ KINDEX(1, 209)=28
+ KINDEX(2, 209)=68
+ KINDEX(1, 210)=32
+ KINDEX(2, 210)=68
+ KINDEX(1, 211)=14
+ KINDEX(2, 211)=69
+ KINDEX(1, 212)=15
+ KINDEX(2, 212)=69
+ KINDEX(1, 213)=22
+ KINDEX(2, 213)=69
+ KINDEX(1, 214)=23
+ KINDEX(2, 214)=69
+ KINDEX(1, 215)=24
+ KINDEX(2, 215)=69
+ KINDEX(1, 216)=29
+ KINDEX(2, 216)=69
+ KINDEX(1, 217)=33
KINDEX(2, 217)=69
- KINDEX(1, 218)=38
+ KINDEX(1, 218)=39
KINDEX(2, 218)=69
- KINDEX(1, 219)=85
+ KINDEX(1, 219)=41
KINDEX(2, 219)=69
- KINDEX(1, 220)=15
+ KINDEX(1, 220)=5
KINDEX(2, 220)=70
- KINDEX(1, 221)=34
+ KINDEX(1, 221)=14
KINDEX(2, 221)=70
- KINDEX(1, 222)=85
+ KINDEX(1, 222)=15
KINDEX(2, 222)=70
- KINDEX(1, 223)=15
- KINDEX(2, 223)=71
- KINDEX(1, 224)=31
- KINDEX(2, 224)=71
- KINDEX(1, 225)=85
- KINDEX(2, 225)=71
- KINDEX(1, 226)=31
- KINDEX(2, 226)=72
- KINDEX(1, 227)=85
- KINDEX(2, 227)=72
- KINDEX(1, 228)=87
- KINDEX(2, 228)=72
- KINDEX(1, 229)=5
- KINDEX(2, 229)=73
- KINDEX(1, 230)=8
- KINDEX(2, 230)=73
- KINDEX(1, 231)=24
- KINDEX(2, 231)=73
- KINDEX(1, 232)=10
- KINDEX(2, 232)=74
- KINDEX(1, 233)=15
- KINDEX(2, 233)=74
- KINDEX(1, 234)=24
- KINDEX(2, 234)=74
- KINDEX(1, 235)=85
- KINDEX(2, 235)=74
- KINDEX(1, 236)=15
- KINDEX(2, 236)=75
- KINDEX(1, 237)=18
- KINDEX(2, 237)=75
- KINDEX(1, 238)=85
- KINDEX(2, 238)=75
- KINDEX(1, 239)=8
- KINDEX(2, 239)=76
- KINDEX(1, 240)=18
- KINDEX(2, 240)=76
- KINDEX(1, 241)=85
- KINDEX(2, 241)=76
- KINDEX(1, 242)=3
- KINDEX(2, 242)=77
- KINDEX(1, 243)=10
- KINDEX(2, 243)=77
- KINDEX(1, 244)=11
- KINDEX(2, 244)=77
- KINDEX(1, 245)=15
- KINDEX(2, 245)=77
- KINDEX(1, 246)=18
- KINDEX(2, 246)=77
- KINDEX(1, 247)=20
- KINDEX(2, 247)=77
- KINDEX(1, 248)=28
- KINDEX(2, 248)=77
- KINDEX(1, 249)=45
- KINDEX(2, 249)=77
- KINDEX(1, 250)=69
- KINDEX(2, 250)=77
- KINDEX(1, 251)=85
- KINDEX(2, 251)=77
- KINDEX(1, 252)=18
- KINDEX(2, 252)=78
- KINDEX(1, 253)=20
- KINDEX(2, 253)=78
- KINDEX(1, 254)=69
- KINDEX(2, 254)=78
- KINDEX(1, 255)=85
- KINDEX(2, 255)=78
- KINDEX(1, 256)=15
- KINDEX(2, 256)=79
- KINDEX(1, 257)=20
- KINDEX(2, 257)=79
- KINDEX(1, 258)=85
- KINDEX(2, 258)=79
- KINDEX(1, 259)=10
- KINDEX(2, 259)=80
- KINDEX(1, 260)=15
- KINDEX(2, 260)=80
- KINDEX(1, 261)=23
- KINDEX(2, 261)=80
- KINDEX(1, 262)=24
- KINDEX(2, 262)=80
- KINDEX(1, 263)=85
- KINDEX(2, 263)=80
- KINDEX(1, 264)=10
- KINDEX(2, 264)=81
- KINDEX(1, 265)=15
- KINDEX(2, 265)=81
- KINDEX(1, 266)=22
- KINDEX(2, 266)=81
- KINDEX(1, 267)=24
- KINDEX(2, 267)=81
- KINDEX(1, 268)=3
- KINDEX(2, 268)=82
- KINDEX(1, 269)=5
- KINDEX(2, 269)=82
- KINDEX(1, 270)=8
- KINDEX(2, 270)=82
- KINDEX(1, 271)=25
- KINDEX(2, 271)=82
- KINDEX(1, 272)=26
- KINDEX(2, 272)=82
- KINDEX(1, 273)=3
- KINDEX(2, 273)=83
- KINDEX(1, 274)=10
- KINDEX(2, 274)=83
- KINDEX(1, 275)=15
- KINDEX(2, 275)=83
- KINDEX(1, 276)=25
- KINDEX(2, 276)=83
- KINDEX(1, 277)=26
- KINDEX(2, 277)=83
- KINDEX(1, 278)=75
- KINDEX(2, 278)=83
- KINDEX(1, 279)=85
- KINDEX(2, 279)=83
- KINDEX(1, 280)=10
- KINDEX(2, 280)=84
- KINDEX(1, 281)=15
- KINDEX(2, 281)=84
- KINDEX(1, 282)=26
- KINDEX(2, 282)=84
- KINDEX(1, 283)=60
- KINDEX(2, 283)=84
- KINDEX(1, 284)=85
- KINDEX(2, 284)=84
- KINDEX(1, 285)=15
- KINDEX(2, 285)=85
- KINDEX(1, 286)=36
- KINDEX(2, 286)=85
- KINDEX(1, 287)=85
- KINDEX(2, 287)=85
- KINDEX(1, 288)=8
- KINDEX(2, 288)=86
- KINDEX(1, 289)=36
- KINDEX(2, 289)=86
- KINDEX(1, 290)=85
- KINDEX(2, 290)=86
- KINDEX(1, 291)=3
- KINDEX(2, 291)=87
- KINDEX(1, 292)=10
- KINDEX(2, 292)=87
- KINDEX(1, 293)=11
- KINDEX(2, 293)=87
- KINDEX(1, 294)=12
- KINDEX(2, 294)=87
- KINDEX(1, 295)=15
- KINDEX(2, 295)=87
- KINDEX(1, 296)=36
- KINDEX(2, 296)=87
- KINDEX(1, 297)=53
- KINDEX(2, 297)=87
- KINDEX(1, 298)=57
- KINDEX(2, 298)=87
- KINDEX(1, 299)=85
- KINDEX(2, 299)=87
- KINDEX(1, 300)=36
- KINDEX(2, 300)=88
- KINDEX(1, 301)=68
- KINDEX(2, 301)=88
- KINDEX(1, 302)=15
- KINDEX(2, 302)=89
- KINDEX(1, 303)=37
- KINDEX(2, 303)=89
- KINDEX(1, 304)=85
- KINDEX(2, 304)=89
- KINDEX(1, 305)=8
- KINDEX(2, 305)=90
- KINDEX(1, 306)=37
- KINDEX(2, 306)=90
- KINDEX(1, 307)=85
- KINDEX(2, 307)=90
- KINDEX(1, 308)=3
- KINDEX(2, 308)=91
- KINDEX(1, 309)=11
- KINDEX(2, 309)=91
- KINDEX(1, 310)=12
- KINDEX(2, 310)=91
- KINDEX(1, 311)=15
- KINDEX(2, 311)=91
- KINDEX(1, 312)=37
- KINDEX(2, 312)=91
- KINDEX(1, 313)=54
- KINDEX(2, 313)=91
- KINDEX(1, 314)=56
- KINDEX(2, 314)=91
- KINDEX(1, 315)=85
- KINDEX(2, 315)=91
- KINDEX(1, 316)=37
- KINDEX(2, 316)=92
- KINDEX(1, 317)=10
- KINDEX(2, 317)=93
- KINDEX(1, 318)=15
- KINDEX(2, 318)=93
- KINDEX(1, 319)=27
- KINDEX(2, 319)=93
- KINDEX(1, 320)=64
- KINDEX(2, 320)=93
- KINDEX(1, 321)=85
- KINDEX(2, 321)=93
- KINDEX(1, 322)=15
- KINDEX(2, 322)=94
- KINDEX(1, 323)=21
- KINDEX(2, 323)=94
- KINDEX(1, 324)=85
- KINDEX(2, 324)=94
- KINDEX(1, 325)=10
- KINDEX(2, 325)=95
- KINDEX(1, 326)=85
- KINDEX(2, 326)=95
- KINDEX(1, 327)=1
- KINDEX(2, 327)=96
- KINDEX(1, 328)=85
- KINDEX(2, 328)=96
- KINDEX(1, 329)=85
- KINDEX(2, 329)=97
- KINDEX(1, 330)=85
- KINDEX(2, 330)=98
- KINDEX(1, 331)=85
- KINDEX(2, 331)=99
- KINDEX(1, 332)=85
- KINDEX(2, 332)=100
- KINDEX(1, 333)=85
- KINDEX(2, 333)=101
- KINDEX(1, 334)=85
- KINDEX(2, 334)=102
- KINDEX(1, 335)=85
- KINDEX(2, 335)=103
- KINDEX(1, 336)=2
- KINDEX(2, 336)=104
- KINDEX(1, 337)=61
- KINDEX(2, 337)=104
- KINDEX(1, 338)=2
- KINDEX(2, 338)=105
- KINDEX(1, 339)=61
- KINDEX(2, 339)=105
- KINDEX(1, 340)=2
- KINDEX(2, 340)=106
- KINDEX(1, 341)=2
- KINDEX(2, 341)=107
- KINDEX(1, 342)=2
- KINDEX(2, 342)=108
- KINDEX(1, 343)=70
- KINDEX(2, 343)=108
- KINDEX(1, 344)=2
- KINDEX(2, 344)=109
- KINDEX(1, 345)=60
- KINDEX(2, 345)=109
- KINDEX(1, 346)=2
- KINDEX(2, 346)=110
- KINDEX(1, 347)=64
- KINDEX(2, 347)=110
- KINDEX(1, 348)=1
- KINDEX(2, 348)=111
- KINDEX(1, 349)=2
- KINDEX(2, 349)=111
- KINDEX(1, 350)=10
- KINDEX(2, 350)=111
- KINDEX(1, 351)=28
- KINDEX(2, 351)=111
- KINDEX(1, 352)=86
- KINDEX(2, 352)=111
- KINDEX(1, 353)=10
- KINDEX(2, 353)=112
- KINDEX(1, 354)=28
- KINDEX(2, 354)=112
- KINDEX(1, 355)=85
- KINDEX(2, 355)=112
- KINDEX(1, 356)=86
- KINDEX(2, 356)=112
- KINDEX(1, 357)=10
- KINDEX(2, 357)=113
- KINDEX(1, 358)=15
- KINDEX(2, 358)=113
- KINDEX(1, 359)=28
- KINDEX(2, 359)=113
- KINDEX(1, 360)=86
- KINDEX(2, 360)=113
- KINDEX(1, 361)=1
- KINDEX(2, 361)=114
- KINDEX(1, 362)=2
- KINDEX(2, 362)=114
- KINDEX(1, 363)=10
- KINDEX(2, 363)=114
- KINDEX(1, 364)=28
- KINDEX(2, 364)=114
- KINDEX(1, 365)=29
- KINDEX(2, 365)=114
- KINDEX(1, 366)=10
- KINDEX(2, 366)=115
- KINDEX(1, 367)=28
- KINDEX(2, 367)=115
- KINDEX(1, 368)=29
- KINDEX(2, 368)=115
- KINDEX(1, 369)=85
- KINDEX(2, 369)=115
- KINDEX(1, 370)=10
- KINDEX(2, 370)=116
- KINDEX(1, 371)=15
- KINDEX(2, 371)=116
- KINDEX(1, 372)=28
- KINDEX(2, 372)=116
- KINDEX(1, 373)=29
- KINDEX(2, 373)=116
- KINDEX(1, 374)=1
- KINDEX(2, 374)=117
- KINDEX(1, 375)=2
- KINDEX(2, 375)=117
- KINDEX(1, 376)=28
- KINDEX(2, 376)=117
- KINDEX(1, 377)=29
- KINDEX(2, 377)=117
- KINDEX(1, 378)=2
- KINDEX(2, 378)=118
- KINDEX(1, 379)=10
- KINDEX(2, 379)=118
- KINDEX(1, 380)=28
- KINDEX(2, 380)=118
- KINDEX(1, 381)=29
- KINDEX(2, 381)=118
- KINDEX(1, 382)=85
- KINDEX(2, 382)=118
- KINDEX(1, 383)=2
- KINDEX(2, 383)=119
- KINDEX(1, 384)=10
- KINDEX(2, 384)=119
- KINDEX(1, 385)=15
- KINDEX(2, 385)=119
- KINDEX(1, 386)=28
- KINDEX(2, 386)=119
- KINDEX(1, 387)=29
- KINDEX(2, 387)=119
- KINDEX(1, 388)=1
- KINDEX(2, 388)=120
- KINDEX(1, 389)=2
- KINDEX(2, 389)=120
- KINDEX(1, 390)=10
- KINDEX(2, 390)=120
- KINDEX(1, 391)=11
- KINDEX(2, 391)=120
- KINDEX(1, 392)=28
- KINDEX(2, 392)=120
- KINDEX(1, 393)=10
- KINDEX(2, 393)=121
- KINDEX(1, 394)=11
- KINDEX(2, 394)=121
- KINDEX(1, 395)=28
- KINDEX(2, 395)=121
- KINDEX(1, 396)=85
- KINDEX(2, 396)=121
- KINDEX(1, 397)=10
- KINDEX(2, 397)=122
- KINDEX(1, 398)=11
- KINDEX(2, 398)=122
+ KINDEX(1, 223)=22
+ KINDEX(2, 223)=70
+ KINDEX(1, 224)=25
+ KINDEX(2, 224)=70
+ KINDEX(1, 225)=27
+ KINDEX(2, 225)=70
+ KINDEX(1, 226)=41
+ KINDEX(2, 226)=70
+ KINDEX(1, 227)=4
+ KINDEX(2, 227)=71
+ KINDEX(1, 228)=14
+ KINDEX(2, 228)=71
+ KINDEX(1, 229)=26
+ KINDEX(2, 229)=71
+ KINDEX(1, 230)=33
+ KINDEX(2, 230)=71
+ KINDEX(1, 231)=5
+ KINDEX(2, 231)=72
+ KINDEX(1, 232)=8
+ KINDEX(2, 232)=72
+ KINDEX(1, 233)=13
+ KINDEX(2, 233)=72
+ KINDEX(1, 234)=15
+ KINDEX(2, 234)=72
+ KINDEX(1, 235)=22
+ KINDEX(2, 235)=72
+ KINDEX(1, 236)=5
+ KINDEX(2, 236)=73
+ KINDEX(1, 237)=8
+ KINDEX(2, 237)=73
+ KINDEX(1, 238)=23
+ KINDEX(2, 238)=73
+ KINDEX(1, 239)=39
+ KINDEX(2, 239)=73
+ KINDEX(1, 240)=4
+ KINDEX(2, 240)=74
+ KINDEX(1, 241)=5
+ KINDEX(2, 241)=74
+ KINDEX(1, 242)=8
+ KINDEX(2, 242)=74
+ KINDEX(1, 243)=13
+ KINDEX(2, 243)=74
+ KINDEX(1, 244)=15
+ KINDEX(2, 244)=74
+ KINDEX(1, 245)=23
+ KINDEX(2, 245)=74
+ KINDEX(1, 246)=24
+ KINDEX(2, 246)=74
+ KINDEX(1, 247)=25
+ KINDEX(2, 247)=74
+ KINDEX(1, 248)=39
+ KINDEX(2, 248)=74
+ KINDEX(1, 249)=40
+ KINDEX(2, 249)=74
+ KINDEX(1, 250)=41
+ KINDEX(2, 250)=74
+ KINDEX(1, 251)=5
+ KINDEX(2, 251)=75
+ KINDEX(1, 252)=8
+ KINDEX(2, 252)=75
+ KINDEX(1, 253)=21
+ KINDEX(2, 253)=75
+ KINDEX(1, 254)=36
+ KINDEX(2, 254)=75
+ KINDEX(1, 255)=5
+ KINDEX(2, 255)=76
+ KINDEX(1, 256)=19
+ KINDEX(2, 256)=76
+ KINDEX(1, 257)=25
+ KINDEX(2, 257)=76
+ KINDEX(1, 258)=40
+ KINDEX(2, 258)=76
+ KINDEX(1, 259)=5
+ KINDEX(2, 259)=77
+ KINDEX(1, 260)=20
+ KINDEX(2, 260)=77
+ KINDEX(1, 261)=25
+ KINDEX(2, 261)=77
+ KINDEX(1, 262)=40
+ KINDEX(2, 262)=77
+ KINDEX(1, 263)=4
+ KINDEX(2, 263)=78
+ KINDEX(1, 264)=5
+ KINDEX(2, 264)=78
+ KINDEX(1, 265)=22
+ KINDEX(2, 265)=78
+ KINDEX(1, 266)=26
+ KINDEX(2, 266)=78
+ KINDEX(1, 267)=27
+ KINDEX(2, 267)=78
+ KINDEX(1, 268)=41
+ KINDEX(2, 268)=78
+ KINDEX(1, 269)=1
+ KINDEX(2, 269)=79
+ KINDEX(1, 270)=2
+ KINDEX(2, 270)=79
+ KINDEX(1, 271)=13
+ KINDEX(2, 271)=79
+ KINDEX(1, 272)=14
+ KINDEX(2, 272)=79
+ KINDEX(1, 273)=15
+ KINDEX(2, 273)=79
+ KINDEX(1, 274)=16
+ KINDEX(2, 274)=79
+ KINDEX(1, 275)=17
+ KINDEX(2, 275)=79
+ KINDEX(1, 276)=19
+ KINDEX(2, 276)=79
+ KINDEX(1, 277)=22
+ KINDEX(2, 277)=79
+ KINDEX(1, 278)=23
+ KINDEX(2, 278)=79
+ KINDEX(1, 279)=24
+ KINDEX(2, 279)=79
+ KINDEX(1, 280)=25
+ KINDEX(2, 280)=79
+ KINDEX(1, 281)=30
+ KINDEX(2, 281)=79
+ KINDEX(1, 282)=31
+ KINDEX(2, 282)=79
+ KINDEX(1, 283)=32
+ KINDEX(2, 283)=79
+ KINDEX(1, 284)=33
+ KINDEX(2, 284)=79
+ KINDEX(1, 285)=39
+ KINDEX(2, 285)=79
+ KINDEX(1, 286)=41
+ KINDEX(2, 286)=79
+ KINDEX(1, 287)=1
+ KINDEX(2, 287)=80
+ KINDEX(1, 288)=2
+ KINDEX(2, 288)=80
+ KINDEX(1, 289)=13
+ KINDEX(2, 289)=80
+ KINDEX(1, 290)=14
+ KINDEX(2, 290)=80
+ KINDEX(1, 291)=15
+ KINDEX(2, 291)=80
+ KINDEX(1, 292)=19
+ KINDEX(2, 292)=80
+ KINDEX(1, 293)=20
+ KINDEX(2, 293)=80
+ KINDEX(1, 294)=22
+ KINDEX(2, 294)=80
+ KINDEX(1, 295)=23
+ KINDEX(2, 295)=80
+ KINDEX(1, 296)=24
+ KINDEX(2, 296)=80
+ KINDEX(1, 297)=25
+ KINDEX(2, 297)=80
+ KINDEX(1, 298)=30
+ KINDEX(2, 298)=80
+ KINDEX(1, 299)=31
+ KINDEX(2, 299)=80
+ KINDEX(1, 300)=32
+ KINDEX(2, 300)=80
+ KINDEX(1, 301)=33
+ KINDEX(2, 301)=80
+ KINDEX(1, 302)=39
+ KINDEX(2, 302)=80
+ KINDEX(1, 303)=41
+ KINDEX(2, 303)=80
+ KINDEX(1, 304)=1
+ KINDEX(2, 304)=81
+ KINDEX(1, 305)=13
+ KINDEX(2, 305)=81
+ KINDEX(1, 306)=14
+ KINDEX(2, 306)=81
+ KINDEX(1, 307)=15
+ KINDEX(2, 307)=81
+ KINDEX(1, 308)=22
+ KINDEX(2, 308)=81
+ KINDEX(1, 309)=23
+ KINDEX(2, 309)=81
+ KINDEX(1, 310)=25
+ KINDEX(2, 310)=81
+ KINDEX(1, 311)=29
+ KINDEX(2, 311)=81
+ KINDEX(1, 312)=30
+ KINDEX(2, 312)=81
+ KINDEX(1, 313)=31
+ KINDEX(2, 313)=81
+ KINDEX(1, 314)=39
+ KINDEX(2, 314)=81
+ KINDEX(1, 315)=1
+ KINDEX(2, 315)=82
+ KINDEX(1, 316)=4
+ KINDEX(2, 316)=82
+ KINDEX(1, 317)=13
+ KINDEX(2, 317)=82
+ KINDEX(1, 318)=14
+ KINDEX(2, 318)=82
+ KINDEX(1, 319)=15
+ KINDEX(2, 319)=82
+ KINDEX(1, 320)=22
+ KINDEX(2, 320)=82
+ KINDEX(1, 321)=27
+ KINDEX(2, 321)=82
+ KINDEX(1, 322)=30
+ KINDEX(2, 322)=82
+ KINDEX(1, 323)=39
+ KINDEX(2, 323)=82
+ KINDEX(1, 324)=4
+ KINDEX(2, 324)=83
+ KINDEX(1, 325)=21
+ KINDEX(2, 325)=83
+ KINDEX(1, 326)=26
+ KINDEX(2, 326)=83
+ KINDEX(1, 327)=36
+ KINDEX(2, 327)=83
+ KINDEX(1, 328)=15
+ KINDEX(2, 328)=84
+ KINDEX(1, 329)=21
+ KINDEX(2, 329)=84
+ KINDEX(1, 330)=36
+ KINDEX(2, 330)=84
+ KINDEX(1, 331)=4
+ KINDEX(2, 331)=85
+ KINDEX(1, 332)=7
+ KINDEX(2, 332)=85
+ KINDEX(1, 333)=21
+ KINDEX(2, 333)=85
+ KINDEX(1, 334)=37
+ KINDEX(2, 334)=85
+ KINDEX(1, 335)=15
+ KINDEX(2, 335)=86
+ KINDEX(1, 336)=21
+ KINDEX(2, 336)=86
+ KINDEX(1, 337)=37
+ KINDEX(2, 337)=86
+ KINDEX(1, 338)=38
+ KINDEX(2, 338)=86
+ KINDEX(1, 339)=1
+ KINDEX(2, 339)=87
+ KINDEX(1, 340)=14
+ KINDEX(2, 340)=87
+ KINDEX(1, 341)=21
+ KINDEX(2, 341)=87
+ KINDEX(1, 342)=37
+ KINDEX(2, 342)=87
+ KINDEX(1, 343)=4
+ KINDEX(2, 343)=88
+ KINDEX(1, 344)=27
+ KINDEX(2, 344)=88
+ KINDEX(1, 345)=39
+ KINDEX(2, 345)=88
+ KINDEX(1, 346)=4
+ KINDEX(2, 346)=89
+ KINDEX(1, 347)=27
+ KINDEX(2, 347)=89
+ KINDEX(1, 348)=39
+ KINDEX(2, 348)=89
+ KINDEX(1, 349)=3
+ KINDEX(2, 349)=90
+ KINDEX(1, 350)=4
+ KINDEX(2, 350)=90
+ KINDEX(1, 351)=15
+ KINDEX(2, 351)=90
+ KINDEX(1, 352)=22
+ KINDEX(2, 352)=90
+ KINDEX(1, 353)=32
+ KINDEX(2, 353)=90
+ KINDEX(1, 354)=3
+ KINDEX(2, 354)=91
+ KINDEX(1, 355)=4
+ KINDEX(2, 355)=91
+ KINDEX(1, 356)=15
+ KINDEX(2, 356)=91
+ KINDEX(1, 357)=22
+ KINDEX(2, 357)=91
+ KINDEX(1, 358)=23
+ KINDEX(2, 358)=91
+ KINDEX(1, 359)=24
+ KINDEX(2, 359)=91
+ KINDEX(1, 360)=25
+ KINDEX(2, 360)=91
+ KINDEX(1, 361)=26
+ KINDEX(2, 361)=91
+ KINDEX(1, 362)=32
+ KINDEX(2, 362)=91
+ KINDEX(1, 363)=33
+ KINDEX(2, 363)=91
+ KINDEX(1, 364)=41
+ KINDEX(2, 364)=91
+ KINDEX(1, 365)=3
+ KINDEX(2, 365)=92
+ KINDEX(1, 366)=4
+ KINDEX(2, 366)=92
+ KINDEX(1, 367)=15
+ KINDEX(2, 367)=92
+ KINDEX(1, 368)=22
+ KINDEX(2, 368)=92
+ KINDEX(1, 369)=23
+ KINDEX(2, 369)=92
+ KINDEX(1, 370)=24
+ KINDEX(2, 370)=92
+ KINDEX(1, 371)=34
+ KINDEX(2, 371)=92
+ KINDEX(1, 372)=3
+ KINDEX(2, 372)=93
+ KINDEX(1, 373)=4
+ KINDEX(2, 373)=93
+ KINDEX(1, 374)=15
+ KINDEX(2, 374)=93
+ KINDEX(1, 375)=19
+ KINDEX(2, 375)=93
+ KINDEX(1, 376)=22
+ KINDEX(2, 376)=93
+ KINDEX(1, 377)=23
+ KINDEX(2, 377)=93
+ KINDEX(1, 378)=24
+ KINDEX(2, 378)=93
+ KINDEX(1, 379)=25
+ KINDEX(2, 379)=93
+ KINDEX(1, 380)=26
+ KINDEX(2, 380)=93
+ KINDEX(1, 381)=35
+ KINDEX(2, 381)=93
+ KINDEX(1, 382)=3
+ KINDEX(2, 382)=94
+ KINDEX(1, 383)=4
+ KINDEX(2, 383)=94
+ KINDEX(1, 384)=15
+ KINDEX(2, 384)=94
+ KINDEX(1, 385)=25
+ KINDEX(2, 385)=94
+ KINDEX(1, 386)=26
+ KINDEX(2, 386)=94
+ KINDEX(1, 387)=38
+ KINDEX(2, 387)=94
+ KINDEX(1, 388)=3
+ KINDEX(2, 388)=95
+ KINDEX(1, 389)=4
+ KINDEX(2, 389)=95
+ KINDEX(1, 390)=15
+ KINDEX(2, 390)=95
+ KINDEX(1, 391)=22
+ KINDEX(2, 391)=95
+ KINDEX(1, 392)=23
+ KINDEX(2, 392)=95
+ KINDEX(1, 393)=25
+ KINDEX(2, 393)=95
+ KINDEX(1, 394)=32
+ KINDEX(2, 394)=95
+ KINDEX(1, 395)=39
+ KINDEX(2, 395)=95
+ KINDEX(1, 396)=41
+ KINDEX(2, 396)=95
+ KINDEX(1, 397)=3
+ KINDEX(2, 397)=96
+ KINDEX(1, 398)=4
+ KINDEX(2, 398)=96
KINDEX(1, 399)=15
- KINDEX(2, 399)=122
- KINDEX(1, 400)=28
- KINDEX(2, 400)=122
- KINDEX(1, 401)=1
- KINDEX(2, 401)=123
- KINDEX(1, 402)=2
- KINDEX(2, 402)=123
- KINDEX(1, 403)=10
- KINDEX(2, 403)=123
- KINDEX(1, 404)=19
- KINDEX(2, 404)=123
- KINDEX(1, 405)=29
- KINDEX(2, 405)=123
- KINDEX(1, 406)=87
- KINDEX(2, 406)=123
- KINDEX(1, 407)=10
- KINDEX(2, 407)=124
- KINDEX(1, 408)=29
- KINDEX(2, 408)=124
- KINDEX(1, 409)=85
- KINDEX(2, 409)=124
- KINDEX(1, 410)=87
- KINDEX(2, 410)=124
- KINDEX(1, 411)=10
- KINDEX(2, 411)=125
- KINDEX(1, 412)=15
- KINDEX(2, 412)=125
- KINDEX(1, 413)=29
- KINDEX(2, 413)=125
- KINDEX(1, 414)=87
- KINDEX(2, 414)=125
- KINDEX(1, 415)=1
- KINDEX(2, 415)=126
- KINDEX(1, 416)=2
- KINDEX(2, 416)=126
- KINDEX(1, 417)=85
- KINDEX(2, 417)=126
- KINDEX(1, 418)=87
- KINDEX(2, 418)=126
- KINDEX(1, 419)=2
- KINDEX(2, 419)=127
- KINDEX(1, 420)=77
- KINDEX(2, 420)=127
- KINDEX(1, 421)=2
- KINDEX(2, 421)=128
- KINDEX(1, 422)=78
- KINDEX(2, 422)=128
- KINDEX(1, 423)=2
- KINDEX(2, 423)=129
- KINDEX(1, 424)=79
- KINDEX(2, 424)=129
- KINDEX(1, 425)=2
- KINDEX(2, 425)=130
- KINDEX(1, 426)=80
- KINDEX(2, 426)=130
- KINDEX(1, 427)=2
- KINDEX(2, 427)=131
- KINDEX(1, 428)=76
- KINDEX(2, 428)=131
- KINDEX(1, 429)=2
- KINDEX(2, 429)=132
- KINDEX(1, 430)=81
- KINDEX(2, 430)=132
- KINDEX(1, 431)=2
- KINDEX(2, 431)=133
- KINDEX(1, 432)=82
- KINDEX(2, 432)=133
- KINDEX(1, 433)=2
- KINDEX(2, 433)=134
- KINDEX(1, 434)=76
- KINDEX(2, 434)=134
- KINDEX(1, 435)=2
- KINDEX(2, 435)=135
- KINDEX(1, 436)=84
- KINDEX(2, 436)=135
- KINDEX(1, 437)=2
- KINDEX(2, 437)=136
- KINDEX(1, 438)=77
- KINDEX(2, 438)=136
- KINDEX(1, 439)=85
- KINDEX(2, 439)=136
- KINDEX(1, 440)=2
- KINDEX(2, 440)=137
- KINDEX(1, 441)=78
- KINDEX(2, 441)=137
- KINDEX(1, 442)=85
- KINDEX(2, 442)=137
- KINDEX(1, 443)=2
- KINDEX(2, 443)=138
- KINDEX(1, 444)=79
- KINDEX(2, 444)=138
- KINDEX(1, 445)=85
- KINDEX(2, 445)=138
- KINDEX(1, 446)=2
- KINDEX(2, 446)=139
- KINDEX(1, 447)=84
- KINDEX(2, 447)=139
- KINDEX(1, 448)=85
- KINDEX(2, 448)=139
- KINDEX(1, 449)=2
- KINDEX(2, 449)=140
- KINDEX(1, 450)=76
- KINDEX(2, 450)=140
- KINDEX(1, 451)=85
- KINDEX(2, 451)=140
- KINDEX(1, 452)=2
- KINDEX(2, 452)=141
- KINDEX(1, 453)=81
- KINDEX(2, 453)=141
- KINDEX(1, 454)=85
- KINDEX(2, 454)=141
- KINDEX(1, 455)=2
- KINDEX(2, 455)=142
- KINDEX(1, 456)=80
- KINDEX(2, 456)=142
- KINDEX(1, 457)=85
- KINDEX(2, 457)=142
- KINDEX(1, 458)=3
- KINDEX(2, 458)=143
- KINDEX(1, 459)=10
- KINDEX(2, 459)=143
- KINDEX(1, 460)=44
- KINDEX(2, 460)=143
- KINDEX(1, 461)=45
- KINDEX(2, 461)=143
- KINDEX(1, 462)=85
- KINDEX(2, 462)=144
- KINDEX(1, 463)=87
- KINDEX(2, 463)=144
- KINDEX(1, 464)=1
- KINDEX(2, 464)=145
- KINDEX(1, 465)=2
- KINDEX(2, 465)=145
- KINDEX(1, 466)=29
- KINDEX(2, 466)=145
- KINDEX(1, 467)=85
- KINDEX(2, 467)=145
- KINDEX(1, 468)=29
- KINDEX(2, 468)=146
- KINDEX(1, 469)=85
- KINDEX(2, 469)=146
- KINDEX(1, 470)=10
- KINDEX(2, 470)=147
- KINDEX(1, 471)=15
- KINDEX(2, 471)=147
- KINDEX(1, 472)=29
- KINDEX(2, 472)=147
- KINDEX(1, 473)=85
- KINDEX(2, 473)=147
- KINDEX(1, 474)=1
- KINDEX(2, 474)=148
- KINDEX(1, 475)=2
- KINDEX(2, 475)=148
- KINDEX(1, 476)=85
- KINDEX(2, 476)=148
- KINDEX(1, 477)=86
- KINDEX(2, 477)=148
- KINDEX(1, 478)=3
- KINDEX(2, 478)=149
- KINDEX(1, 479)=10
- KINDEX(2, 479)=149
- KINDEX(1, 480)=44
- KINDEX(2, 480)=149
- KINDEX(1, 481)=85
- KINDEX(2, 481)=150
- KINDEX(1, 482)=86
- KINDEX(2, 482)=150
- KINDEX(1, 483)=1
- KINDEX(2, 483)=151
- KINDEX(1, 484)=2
- KINDEX(2, 484)=151
- KINDEX(1, 485)=10
- KINDEX(2, 485)=151
- KINDEX(1, 486)=17
- KINDEX(2, 486)=151
- KINDEX(1, 487)=28
- KINDEX(2, 487)=151
- KINDEX(1, 488)=39
- KINDEX(2, 488)=151
- KINDEX(1, 489)=10
- KINDEX(2, 489)=152
- KINDEX(1, 490)=28
- KINDEX(2, 490)=152
+ KINDEX(2, 399)=96
+ KINDEX(1, 400)=22
+ KINDEX(2, 400)=96
+ KINDEX(1, 401)=23
+ KINDEX(2, 401)=96
+ KINDEX(1, 402)=24
+ KINDEX(2, 402)=96
+ KINDEX(1, 403)=26
+ KINDEX(2, 403)=96
+ KINDEX(1, 404)=40
+ KINDEX(2, 404)=96
+ KINDEX(1, 405)=15
+ KINDEX(2, 405)=97
+ KINDEX(1, 406)=28
+ KINDEX(2, 406)=97
+ KINDEX(1, 407)=32
+ KINDEX(2, 407)=97
+ KINDEX(1, 408)=15
+ KINDEX(2, 408)=98
+ KINDEX(1, 409)=29
+ KINDEX(2, 409)=98
+ KINDEX(1, 410)=33
+ KINDEX(2, 410)=98
+ KINDEX(1, 411)=15
+ KINDEX(2, 411)=99
+ KINDEX(1, 412)=29
+ KINDEX(2, 412)=99
+ KINDEX(1, 413)=34
+ KINDEX(2, 413)=99
+ KINDEX(1, 414)=15
+ KINDEX(2, 414)=100
+ KINDEX(1, 415)=29
+ KINDEX(2, 415)=100
+ KINDEX(1, 416)=35
+ KINDEX(2, 416)=100
+ KINDEX(1, 417)=15
+ KINDEX(2, 417)=101
+ KINDEX(1, 418)=29
+ KINDEX(2, 418)=101
+ KINDEX(1, 419)=38
+ KINDEX(2, 419)=101
+ KINDEX(1, 420)=1
+ KINDEX(2, 420)=102
+ KINDEX(1, 421)=15
+ KINDEX(2, 421)=102
+ KINDEX(1, 422)=29
+ KINDEX(2, 422)=102
+ KINDEX(1, 423)=31
+ KINDEX(2, 423)=102
+ KINDEX(1, 424)=39
+ KINDEX(2, 424)=102
+ KINDEX(1, 425)=15
+ KINDEX(2, 425)=103
+ KINDEX(1, 426)=26
+ KINDEX(2, 426)=103
+ KINDEX(1, 427)=40
+ KINDEX(2, 427)=103
+ KINDEX(1, 428)=15
+ KINDEX(2, 428)=104
+ KINDEX(1, 429)=22
+ KINDEX(2, 429)=104
+ KINDEX(1, 430)=32
+ KINDEX(2, 430)=104
+ KINDEX(1, 431)=15
+ KINDEX(2, 431)=105
+ KINDEX(1, 432)=22
+ KINDEX(2, 432)=105
+ KINDEX(1, 433)=23
+ KINDEX(2, 433)=105
+ KINDEX(1, 434)=24
+ KINDEX(2, 434)=105
+ KINDEX(1, 435)=25
+ KINDEX(2, 435)=105
+ KINDEX(1, 436)=32
+ KINDEX(2, 436)=105
+ KINDEX(1, 437)=33
+ KINDEX(2, 437)=105
+ KINDEX(1, 438)=41
+ KINDEX(2, 438)=105
+ KINDEX(1, 439)=15
+ KINDEX(2, 439)=106
+ KINDEX(1, 440)=22
+ KINDEX(2, 440)=106
+ KINDEX(1, 441)=23
+ KINDEX(2, 441)=106
+ KINDEX(1, 442)=24
+ KINDEX(2, 442)=106
+ KINDEX(1, 443)=32
+ KINDEX(2, 443)=106
+ KINDEX(1, 444)=34
+ KINDEX(2, 444)=106
+ KINDEX(1, 445)=15
+ KINDEX(2, 445)=107
+ KINDEX(1, 446)=19
+ KINDEX(2, 446)=107
+ KINDEX(1, 447)=22
+ KINDEX(2, 447)=107
+ KINDEX(1, 448)=23
+ KINDEX(2, 448)=107
+ KINDEX(1, 449)=24
+ KINDEX(2, 449)=107
+ KINDEX(1, 450)=25
+ KINDEX(2, 450)=107
+ KINDEX(1, 451)=32
+ KINDEX(2, 451)=107
+ KINDEX(1, 452)=35
+ KINDEX(2, 452)=107
+ KINDEX(1, 453)=15
+ KINDEX(2, 453)=108
+ KINDEX(1, 454)=22
+ KINDEX(2, 454)=108
+ KINDEX(1, 455)=25
+ KINDEX(2, 455)=108
+ KINDEX(1, 456)=32
+ KINDEX(2, 456)=108
+ KINDEX(1, 457)=38
+ KINDEX(2, 457)=108
+ KINDEX(1, 458)=15
+ KINDEX(2, 458)=109
+ KINDEX(1, 459)=22
+ KINDEX(2, 459)=109
+ KINDEX(1, 460)=23
+ KINDEX(2, 460)=109
+ KINDEX(1, 461)=25
+ KINDEX(2, 461)=109
+ KINDEX(1, 462)=31
+ KINDEX(2, 462)=109
+ KINDEX(1, 463)=32
+ KINDEX(2, 463)=109
+ KINDEX(1, 464)=39
+ KINDEX(2, 464)=109
+ KINDEX(1, 465)=41
+ KINDEX(2, 465)=109
+ KINDEX(1, 466)=4
+ KINDEX(2, 466)=110
+ KINDEX(1, 467)=15
+ KINDEX(2, 467)=110
+ KINDEX(1, 468)=22
+ KINDEX(2, 468)=110
+ KINDEX(1, 469)=23
+ KINDEX(2, 469)=110
+ KINDEX(1, 470)=24
+ KINDEX(2, 470)=110
+ KINDEX(1, 471)=26
+ KINDEX(2, 471)=110
+ KINDEX(1, 472)=32
+ KINDEX(2, 472)=110
+ KINDEX(1, 473)=40
+ KINDEX(2, 473)=110
+ KINDEX(1, 474)=15
+ KINDEX(2, 474)=111
+ KINDEX(1, 475)=22
+ KINDEX(2, 475)=111
+ KINDEX(1, 476)=23
+ KINDEX(2, 476)=111
+ KINDEX(1, 477)=24
+ KINDEX(2, 477)=111
+ KINDEX(1, 478)=25
+ KINDEX(2, 478)=111
+ KINDEX(1, 479)=31
+ KINDEX(2, 479)=111
+ KINDEX(1, 480)=32
+ KINDEX(2, 480)=111
+ KINDEX(1, 481)=33
+ KINDEX(2, 481)=111
+ KINDEX(1, 482)=39
+ KINDEX(2, 482)=111
+ KINDEX(1, 483)=41
+ KINDEX(2, 483)=111
+ KINDEX(1, 484)=15
+ KINDEX(2, 484)=112
+ KINDEX(1, 485)=22
+ KINDEX(2, 485)=112
+ KINDEX(1, 486)=23
+ KINDEX(2, 486)=112
+ KINDEX(1, 487)=24
+ KINDEX(2, 487)=112
+ KINDEX(1, 488)=31
+ KINDEX(2, 488)=112
+ KINDEX(1, 489)=32
+ KINDEX(2, 489)=112
+ KINDEX(1, 490)=34
+ KINDEX(2, 490)=112
KINDEX(1, 491)=39
- KINDEX(2, 491)=152
- KINDEX(1, 492)=85
- KINDEX(2, 492)=152
- KINDEX(1, 493)=10
- KINDEX(2, 493)=153
- KINDEX(1, 494)=15
- KINDEX(2, 494)=153
- KINDEX(1, 495)=28
- KINDEX(2, 495)=153
- KINDEX(1, 496)=39
- KINDEX(2, 496)=153
- KINDEX(1, 497)=1
- KINDEX(2, 497)=154
- KINDEX(1, 498)=2
- KINDEX(2, 498)=154
- KINDEX(1, 499)=10
- KINDEX(2, 499)=154
- KINDEX(1, 500)=28
- KINDEX(2, 500)=154
- KINDEX(1, 501)=40
- KINDEX(2, 501)=154
- KINDEX(1, 502)=10
- KINDEX(2, 502)=155
- KINDEX(1, 503)=28
- KINDEX(2, 503)=155
- KINDEX(1, 504)=40
- KINDEX(2, 504)=155
- KINDEX(1, 505)=85
- KINDEX(2, 505)=155
- KINDEX(1, 506)=10
- KINDEX(2, 506)=156
+ KINDEX(2, 491)=112
+ KINDEX(1, 492)=15
+ KINDEX(2, 492)=113
+ KINDEX(1, 493)=19
+ KINDEX(2, 493)=113
+ KINDEX(1, 494)=22
+ KINDEX(2, 494)=113
+ KINDEX(1, 495)=23
+ KINDEX(2, 495)=113
+ KINDEX(1, 496)=24
+ KINDEX(2, 496)=113
+ KINDEX(1, 497)=25
+ KINDEX(2, 497)=113
+ KINDEX(1, 498)=31
+ KINDEX(2, 498)=113
+ KINDEX(1, 499)=32
+ KINDEX(2, 499)=113
+ KINDEX(1, 500)=35
+ KINDEX(2, 500)=113
+ KINDEX(1, 501)=39
+ KINDEX(2, 501)=113
+ KINDEX(1, 502)=15
+ KINDEX(2, 502)=114
+ KINDEX(1, 503)=25
+ KINDEX(2, 503)=114
+ KINDEX(1, 504)=32
+ KINDEX(2, 504)=114
+ KINDEX(1, 505)=38
+ KINDEX(2, 505)=114
+ KINDEX(1, 506)=39
+ KINDEX(2, 506)=114
KINDEX(1, 507)=15
- KINDEX(2, 507)=156
- KINDEX(1, 508)=28
- KINDEX(2, 508)=156
- KINDEX(1, 509)=40
- KINDEX(2, 509)=156
- KINDEX(1, 510)=1
- KINDEX(2, 510)=157
- KINDEX(1, 511)=2
- KINDEX(2, 511)=157
- KINDEX(1, 512)=28
- KINDEX(2, 512)=157
- KINDEX(1, 513)=39
- KINDEX(2, 513)=157
- KINDEX(1, 514)=2
- KINDEX(2, 514)=158
- KINDEX(1, 515)=28
- KINDEX(2, 515)=158
- KINDEX(1, 516)=39
- KINDEX(2, 516)=158
- KINDEX(1, 517)=85
- KINDEX(2, 517)=158
- KINDEX(1, 518)=2
- KINDEX(2, 518)=159
- KINDEX(1, 519)=10
- KINDEX(2, 519)=159
- KINDEX(1, 520)=15
- KINDEX(2, 520)=159
- KINDEX(1, 521)=28
- KINDEX(2, 521)=159
- KINDEX(1, 522)=39
- KINDEX(2, 522)=159
- KINDEX(1, 523)=1
- KINDEX(2, 523)=160
- KINDEX(1, 524)=2
- KINDEX(2, 524)=160
- KINDEX(1, 525)=28
- KINDEX(2, 525)=160
- KINDEX(1, 526)=40
- KINDEX(2, 526)=160
- KINDEX(1, 527)=2
- KINDEX(2, 527)=161
- KINDEX(1, 528)=28
- KINDEX(2, 528)=161
- KINDEX(1, 529)=40
- KINDEX(2, 529)=161
- KINDEX(1, 530)=85
- KINDEX(2, 530)=161
- KINDEX(1, 531)=2
- KINDEX(2, 531)=162
- KINDEX(1, 532)=10
- KINDEX(2, 532)=162
- KINDEX(1, 533)=15
- KINDEX(2, 533)=162
- KINDEX(1, 534)=28
- KINDEX(2, 534)=162
+ KINDEX(2, 507)=115
+ KINDEX(1, 508)=22
+ KINDEX(2, 508)=115
+ KINDEX(1, 509)=23
+ KINDEX(2, 509)=115
+ KINDEX(1, 510)=24
+ KINDEX(2, 510)=115
+ KINDEX(1, 511)=25
+ KINDEX(2, 511)=115
+ KINDEX(1, 512)=31
+ KINDEX(2, 512)=115
+ KINDEX(1, 513)=32
+ KINDEX(2, 513)=115
+ KINDEX(1, 514)=39
+ KINDEX(2, 514)=115
+ KINDEX(1, 515)=41
+ KINDEX(2, 515)=115
+ KINDEX(1, 516)=4
+ KINDEX(2, 516)=116
+ KINDEX(1, 517)=15
+ KINDEX(2, 517)=116
+ KINDEX(1, 518)=22
+ KINDEX(2, 518)=116
+ KINDEX(1, 519)=23
+ KINDEX(2, 519)=116
+ KINDEX(1, 520)=24
+ KINDEX(2, 520)=116
+ KINDEX(1, 521)=26
+ KINDEX(2, 521)=116
+ KINDEX(1, 522)=31
+ KINDEX(2, 522)=116
+ KINDEX(1, 523)=32
+ KINDEX(2, 523)=116
+ KINDEX(1, 524)=39
+ KINDEX(2, 524)=116
+ KINDEX(1, 525)=40
+ KINDEX(2, 525)=116
+ KINDEX(1, 526)=15
+ KINDEX(2, 526)=117
+ KINDEX(1, 527)=26
+ KINDEX(2, 527)=117
+ KINDEX(1, 528)=40
+ KINDEX(2, 528)=117
+ KINDEX(1, 529)=4
+ KINDEX(2, 529)=118
+ KINDEX(1, 530)=15
+ KINDEX(2, 530)=118
+ KINDEX(1, 531)=22
+ KINDEX(2, 531)=118
+ KINDEX(1, 532)=23
+ KINDEX(2, 532)=118
+ KINDEX(1, 533)=24
+ KINDEX(2, 533)=118
+ KINDEX(1, 534)=26
+ KINDEX(2, 534)=118
KINDEX(1, 535)=40
- KINDEX(2, 535)=162
- KINDEX(1, 536)=1
- KINDEX(2, 536)=163
- KINDEX(1, 537)=2
- KINDEX(2, 537)=163
- KINDEX(1, 538)=28
- KINDEX(2, 538)=163
- KINDEX(1, 539)=85
- KINDEX(2, 539)=163
- KINDEX(1, 540)=28
- KINDEX(2, 540)=164
- KINDEX(1, 541)=85
- KINDEX(2, 541)=164
- KINDEX(1, 542)=10
- KINDEX(2, 542)=165
+ KINDEX(2, 535)=118
+ KINDEX(1, 536)=4
+ KINDEX(2, 536)=119
+ KINDEX(1, 537)=5
+ KINDEX(2, 537)=119
+ KINDEX(1, 538)=15
+ KINDEX(2, 538)=119
+ KINDEX(1, 539)=22
+ KINDEX(2, 539)=119
+ KINDEX(1, 540)=32
+ KINDEX(2, 540)=119
+ KINDEX(1, 541)=4
+ KINDEX(2, 541)=120
+ KINDEX(1, 542)=5
+ KINDEX(2, 542)=120
KINDEX(1, 543)=15
- KINDEX(2, 543)=165
- KINDEX(1, 544)=28
- KINDEX(2, 544)=165
- KINDEX(1, 545)=85
- KINDEX(2, 545)=165
- KINDEX(1, 546)=1
- KINDEX(2, 546)=166
- KINDEX(1, 547)=2
- KINDEX(2, 547)=166
- KINDEX(1, 548)=85
- KINDEX(2, 548)=166
- KINDEX(1, 549)=3
- KINDEX(2, 549)=167
- KINDEX(1, 550)=10
- KINDEX(2, 550)=167
- KINDEX(1, 551)=17
- KINDEX(2, 551)=167
- KINDEX(1, 552)=44
- KINDEX(2, 552)=167
- KINDEX(1, 553)=85
- KINDEX(2, 553)=168
- KINDEX(1, 554)=1
- KINDEX(2, 554)=169
- KINDEX(1, 555)=2
- KINDEX(2, 555)=169
- KINDEX(1, 556)=17
- KINDEX(2, 556)=169
- KINDEX(1, 557)=85
- KINDEX(2, 557)=169
- KINDEX(1, 558)=85
- KINDEX(2, 558)=170
- KINDEX(1, 559)=10
- KINDEX(2, 559)=171
+ KINDEX(2, 543)=120
+ KINDEX(1, 544)=22
+ KINDEX(2, 544)=120
+ KINDEX(1, 545)=23
+ KINDEX(2, 545)=120
+ KINDEX(1, 546)=24
+ KINDEX(2, 546)=120
+ KINDEX(1, 547)=25
+ KINDEX(2, 547)=120
+ KINDEX(1, 548)=32
+ KINDEX(2, 548)=120
+ KINDEX(1, 549)=33
+ KINDEX(2, 549)=120
+ KINDEX(1, 550)=41
+ KINDEX(2, 550)=120
+ KINDEX(1, 551)=4
+ KINDEX(2, 551)=121
+ KINDEX(1, 552)=5
+ KINDEX(2, 552)=121
+ KINDEX(1, 553)=15
+ KINDEX(2, 553)=121
+ KINDEX(1, 554)=22
+ KINDEX(2, 554)=121
+ KINDEX(1, 555)=23
+ KINDEX(2, 555)=121
+ KINDEX(1, 556)=24
+ KINDEX(2, 556)=121
+ KINDEX(1, 557)=34
+ KINDEX(2, 557)=121
+ KINDEX(1, 558)=4
+ KINDEX(2, 558)=122
+ KINDEX(1, 559)=5
+ KINDEX(2, 559)=122
KINDEX(1, 560)=15
- KINDEX(2, 560)=171
- KINDEX(1, 561)=85
- KINDEX(2, 561)=171
- KINDEX(1, 562)=1
- KINDEX(2, 562)=172
- KINDEX(1, 563)=2
- KINDEX(2, 563)=172
- KINDEX(1, 564)=10
- KINDEX(2, 564)=172
- KINDEX(1, 565)=19
- KINDEX(2, 565)=172
- KINDEX(1, 566)=28
- KINDEX(2, 566)=172
- KINDEX(1, 567)=29
- KINDEX(2, 567)=172
- KINDEX(1, 568)=30
- KINDEX(2, 568)=172
- KINDEX(1, 569)=10
- KINDEX(2, 569)=173
- KINDEX(1, 570)=19
- KINDEX(2, 570)=173
- KINDEX(1, 571)=28
- KINDEX(2, 571)=173
- KINDEX(1, 572)=29
- KINDEX(2, 572)=173
- KINDEX(1, 573)=30
- KINDEX(2, 573)=173
- KINDEX(1, 574)=85
- KINDEX(2, 574)=173
- KINDEX(1, 575)=10
- KINDEX(2, 575)=174
- KINDEX(1, 576)=15
- KINDEX(2, 576)=174
- KINDEX(1, 577)=19
- KINDEX(2, 577)=174
- KINDEX(1, 578)=28
- KINDEX(2, 578)=174
- KINDEX(1, 579)=29
- KINDEX(2, 579)=174
- KINDEX(1, 580)=30
- KINDEX(2, 580)=174
- KINDEX(1, 581)=1
- KINDEX(2, 581)=175
- KINDEX(1, 582)=2
- KINDEX(2, 582)=175
- KINDEX(1, 583)=29
- KINDEX(2, 583)=175
- KINDEX(1, 584)=85
- KINDEX(2, 584)=175
- KINDEX(1, 585)=29
- KINDEX(2, 585)=176
- KINDEX(1, 586)=85
- KINDEX(2, 586)=176
- KINDEX(1, 587)=10
- KINDEX(2, 587)=177
- KINDEX(1, 588)=15
- KINDEX(2, 588)=177
- KINDEX(1, 589)=29
- KINDEX(2, 589)=177
- KINDEX(1, 590)=85
- KINDEX(2, 590)=177
- KINDEX(1, 591)=1
- KINDEX(2, 591)=178
- KINDEX(1, 592)=2
- KINDEX(2, 592)=178
- KINDEX(1, 593)=10
- KINDEX(2, 593)=178
- KINDEX(1, 594)=58
- KINDEX(2, 594)=178
- KINDEX(1, 595)=75
- KINDEX(2, 595)=178
- KINDEX(1, 596)=10
- KINDEX(2, 596)=179
- KINDEX(1, 597)=75
- KINDEX(2, 597)=179
- KINDEX(1, 598)=85
- KINDEX(2, 598)=179
- KINDEX(1, 599)=10
- KINDEX(2, 599)=180
- KINDEX(1, 600)=15
- KINDEX(2, 600)=180
- KINDEX(1, 601)=75
- KINDEX(2, 601)=180
- KINDEX(1, 602)=1
- KINDEX(2, 602)=181
- KINDEX(1, 603)=2
- KINDEX(2, 603)=181
- KINDEX(1, 604)=10
- KINDEX(2, 604)=181
- KINDEX(1, 605)=10
- KINDEX(2, 605)=182
- KINDEX(1, 606)=85
- KINDEX(2, 606)=182
- KINDEX(1, 607)=10
- KINDEX(2, 607)=183
- KINDEX(1, 608)=15
- KINDEX(2, 608)=183
- KINDEX(1, 609)=1
- KINDEX(2, 609)=184
- KINDEX(1, 610)=2
- KINDEX(2, 610)=184
- KINDEX(1, 611)=28
- KINDEX(2, 611)=184
- KINDEX(1, 612)=69
- KINDEX(2, 612)=184
- KINDEX(1, 613)=2
- KINDEX(2, 613)=185
- KINDEX(1, 614)=28
- KINDEX(2, 614)=185
- KINDEX(1, 615)=69
- KINDEX(2, 615)=185
- KINDEX(1, 616)=85
- KINDEX(2, 616)=185
- KINDEX(1, 617)=2
- KINDEX(2, 617)=186
- KINDEX(1, 618)=10
- KINDEX(2, 618)=186
- KINDEX(1, 619)=15
- KINDEX(2, 619)=186
- KINDEX(1, 620)=28
- KINDEX(2, 620)=186
- KINDEX(1, 621)=69
- KINDEX(2, 621)=186
- KINDEX(1, 622)=1
- KINDEX(2, 622)=187
- KINDEX(1, 623)=2
- KINDEX(2, 623)=187
- KINDEX(1, 624)=85
- KINDEX(2, 624)=187
- KINDEX(1, 625)=85
- KINDEX(2, 625)=188
- KINDEX(1, 626)=10
- KINDEX(2, 626)=189
- KINDEX(1, 627)=15
- KINDEX(2, 627)=189
- KINDEX(1, 628)=85
- KINDEX(2, 628)=189
- KINDEX(1, 629)=1
- KINDEX(2, 629)=190
- KINDEX(1, 630)=2
- KINDEX(2, 630)=190
- KINDEX(1, 631)=10
- KINDEX(2, 631)=190
- KINDEX(1, 632)=25
- KINDEX(2, 632)=190
- KINDEX(1, 633)=10
- KINDEX(2, 633)=191
- KINDEX(1, 634)=25
- KINDEX(2, 634)=191
- KINDEX(1, 635)=85
- KINDEX(2, 635)=191
- KINDEX(1, 636)=10
- KINDEX(2, 636)=192
- KINDEX(1, 637)=15
- KINDEX(2, 637)=192
- KINDEX(1, 638)=25
- KINDEX(2, 638)=192
- KINDEX(1, 639)=1
- KINDEX(2, 639)=193
- KINDEX(1, 640)=2
- KINDEX(2, 640)=193
- KINDEX(1, 641)=10
- KINDEX(2, 641)=193
- KINDEX(1, 642)=75
- KINDEX(2, 642)=193
- KINDEX(1, 643)=10
- KINDEX(2, 643)=194
- KINDEX(1, 644)=75
- KINDEX(2, 644)=194
- KINDEX(1, 645)=85
- KINDEX(2, 645)=194
- KINDEX(1, 646)=10
- KINDEX(2, 646)=195
- KINDEX(1, 647)=15
- KINDEX(2, 647)=195
- KINDEX(1, 648)=75
- KINDEX(2, 648)=195
- KINDEX(1, 649)=1
- KINDEX(2, 649)=196
- KINDEX(1, 650)=2
- KINDEX(2, 650)=196
- KINDEX(1, 651)=10
- KINDEX(2, 651)=196
- KINDEX(1, 652)=58
- KINDEX(2, 652)=196
- KINDEX(1, 653)=62
- KINDEX(2, 653)=196
- KINDEX(1, 654)=10
- KINDEX(2, 654)=197
- KINDEX(1, 655)=62
- KINDEX(2, 655)=197
- KINDEX(1, 656)=85
- KINDEX(2, 656)=197
- KINDEX(1, 657)=10
- KINDEX(2, 657)=198
- KINDEX(1, 658)=15
- KINDEX(2, 658)=198
- KINDEX(1, 659)=62
- KINDEX(2, 659)=198
- KINDEX(1, 660)=1
- KINDEX(2, 660)=199
- KINDEX(1, 661)=2
- KINDEX(2, 661)=199
- KINDEX(1, 662)=10
- KINDEX(2, 662)=199
- KINDEX(1, 663)=57
- KINDEX(2, 663)=199
- KINDEX(1, 664)=67
- KINDEX(2, 664)=199
- KINDEX(1, 665)=10
- KINDEX(2, 665)=200
- KINDEX(1, 666)=57
- KINDEX(2, 666)=200
- KINDEX(1, 667)=85
- KINDEX(2, 667)=200
- KINDEX(1, 668)=10
- KINDEX(2, 668)=201
- KINDEX(1, 669)=15
- KINDEX(2, 669)=201
- KINDEX(1, 670)=57
- KINDEX(2, 670)=201
- KINDEX(1, 671)=1
- KINDEX(2, 671)=202
- KINDEX(1, 672)=2
- KINDEX(2, 672)=202
- KINDEX(1, 673)=57
- KINDEX(2, 673)=202
- KINDEX(1, 674)=2
- KINDEX(2, 674)=203
- KINDEX(1, 675)=57
- KINDEX(2, 675)=203
- KINDEX(1, 676)=85
- KINDEX(2, 676)=203
- KINDEX(1, 677)=2
- KINDEX(2, 677)=204
- KINDEX(1, 678)=10
- KINDEX(2, 678)=204
- KINDEX(1, 679)=15
- KINDEX(2, 679)=204
- KINDEX(1, 680)=57
- KINDEX(2, 680)=204
- KINDEX(1, 681)=1
- KINDEX(2, 681)=205
- KINDEX(1, 682)=2
- KINDEX(2, 682)=205
- KINDEX(1, 683)=55
- KINDEX(2, 683)=205
- KINDEX(1, 684)=85
- KINDEX(2, 684)=205
- KINDEX(1, 685)=55
- KINDEX(2, 685)=206
- KINDEX(1, 686)=85
- KINDEX(2, 686)=206
- KINDEX(1, 687)=10
- KINDEX(2, 687)=207
- KINDEX(1, 688)=15
- KINDEX(2, 688)=207
- KINDEX(1, 689)=55
- KINDEX(2, 689)=207
- KINDEX(1, 690)=85
- KINDEX(2, 690)=207
- KINDEX(1, 691)=1
- KINDEX(2, 691)=208
- KINDEX(1, 692)=2
- KINDEX(2, 692)=208
- KINDEX(1, 693)=10
- KINDEX(2, 693)=208
- KINDEX(1, 694)=56
- KINDEX(2, 694)=208
- KINDEX(1, 695)=68
- KINDEX(2, 695)=208
- KINDEX(1, 696)=10
- KINDEX(2, 696)=209
- KINDEX(1, 697)=56
- KINDEX(2, 697)=209
- KINDEX(1, 698)=85
- KINDEX(2, 698)=209
- KINDEX(1, 699)=10
- KINDEX(2, 699)=210
- KINDEX(1, 700)=15
- KINDEX(2, 700)=210
- KINDEX(1, 701)=56
- KINDEX(2, 701)=210
- KINDEX(1, 702)=1
- KINDEX(2, 702)=211
- KINDEX(1, 703)=2
- KINDEX(2, 703)=211
- KINDEX(1, 704)=56
- KINDEX(2, 704)=211
- KINDEX(1, 705)=2
- KINDEX(2, 705)=212
- KINDEX(1, 706)=56
- KINDEX(2, 706)=212
- KINDEX(1, 707)=85
- KINDEX(2, 707)=212
- KINDEX(1, 708)=2
- KINDEX(2, 708)=213
- KINDEX(1, 709)=10
- KINDEX(2, 709)=213
- KINDEX(1, 710)=15
- KINDEX(2, 710)=213
- KINDEX(1, 711)=56
- KINDEX(2, 711)=213
- KINDEX(1, 712)=1
- KINDEX(2, 712)=214
- KINDEX(1, 713)=2
- KINDEX(2, 713)=214
- KINDEX(1, 714)=85
- KINDEX(2, 714)=214
- KINDEX(1, 715)=85
- KINDEX(2, 715)=215
- KINDEX(1, 716)=10
- KINDEX(2, 716)=216
- KINDEX(1, 717)=15
- KINDEX(2, 717)=216
- KINDEX(1, 718)=85
- KINDEX(2, 718)=216
- KINDEX(1, 719)=1
- KINDEX(2, 719)=217
- KINDEX(1, 720)=2
- KINDEX(2, 720)=217
- KINDEX(1, 721)=71
- KINDEX(2, 721)=217
- KINDEX(1, 722)=85
- KINDEX(2, 722)=217
- KINDEX(1, 723)=71
- KINDEX(2, 723)=218
- KINDEX(1, 724)=85
- KINDEX(2, 724)=218
- KINDEX(1, 725)=10
- KINDEX(2, 725)=219
- KINDEX(1, 726)=15
- KINDEX(2, 726)=219
- KINDEX(1, 727)=71
- KINDEX(2, 727)=219
- KINDEX(1, 728)=85
- KINDEX(2, 728)=219
- KINDEX(1, 729)=85
- KINDEX(2, 729)=220
- KINDEX(1, 730)=10
- KINDEX(2, 730)=221
- KINDEX(1, 731)=15
- KINDEX(2, 731)=221
- KINDEX(1, 732)=85
- KINDEX(2, 732)=221
- KINDEX(1, 733)=1
- KINDEX(2, 733)=222
- KINDEX(1, 734)=2
- KINDEX(2, 734)=222
- KINDEX(1, 735)=10
- KINDEX(2, 735)=222
- KINDEX(1, 736)=64
- KINDEX(2, 736)=222
- KINDEX(1, 737)=65
- KINDEX(2, 737)=222
- KINDEX(1, 738)=10
- KINDEX(2, 738)=223
- KINDEX(1, 739)=65
- KINDEX(2, 739)=223
- KINDEX(1, 740)=85
- KINDEX(2, 740)=223
- KINDEX(1, 741)=10
- KINDEX(2, 741)=224
- KINDEX(1, 742)=15
- KINDEX(2, 742)=224
- KINDEX(1, 743)=65
- KINDEX(2, 743)=224
- KINDEX(1, 744)=1
- KINDEX(2, 744)=225
- KINDEX(1, 745)=2
- KINDEX(2, 745)=225
- KINDEX(1, 746)=66
- KINDEX(2, 746)=225
- KINDEX(1, 747)=85
- KINDEX(2, 747)=225
- KINDEX(1, 748)=85
- KINDEX(2, 748)=226
- KINDEX(1, 749)=10
- KINDEX(2, 749)=227
- KINDEX(1, 750)=15
- KINDEX(2, 750)=227
- KINDEX(1, 751)=85
- KINDEX(2, 751)=227
- KINDEX(1, 752)=1
- KINDEX(2, 752)=228
- KINDEX(1, 753)=2
- KINDEX(2, 753)=228
- KINDEX(1, 754)=10
- KINDEX(2, 754)=228
- KINDEX(1, 755)=66
- KINDEX(2, 755)=228
- KINDEX(1, 756)=10
- KINDEX(2, 756)=229
- KINDEX(1, 757)=66
- KINDEX(2, 757)=229
- KINDEX(1, 758)=85
- KINDEX(2, 758)=229
- KINDEX(1, 759)=10
- KINDEX(2, 759)=230
- KINDEX(1, 760)=15
- KINDEX(2, 760)=230
- KINDEX(1, 761)=66
- KINDEX(2, 761)=230
- KINDEX(1, 762)=85
- KINDEX(2, 762)=231
- KINDEX(1, 763)=1
- KINDEX(2, 763)=232
- KINDEX(1, 764)=2
- KINDEX(2, 764)=232
- KINDEX(1, 765)=10
- KINDEX(2, 765)=232
- KINDEX(1, 766)=52
- KINDEX(2, 766)=232
- KINDEX(1, 767)=10
- KINDEX(2, 767)=233
- KINDEX(1, 768)=52
- KINDEX(2, 768)=233
- KINDEX(1, 769)=85
- KINDEX(2, 769)=233
- KINDEX(1, 770)=10
- KINDEX(2, 770)=234
- KINDEX(1, 771)=15
- KINDEX(2, 771)=234
- KINDEX(1, 772)=52
- KINDEX(2, 772)=234
- KINDEX(1, 773)=1
- KINDEX(2, 773)=235
- KINDEX(1, 774)=2
- KINDEX(2, 774)=235
- KINDEX(1, 775)=10
- KINDEX(2, 775)=235
- KINDEX(1, 776)=41
- KINDEX(2, 776)=235
- KINDEX(1, 777)=72
- KINDEX(2, 777)=235
- KINDEX(1, 778)=10
- KINDEX(2, 778)=236
- KINDEX(1, 779)=41
- KINDEX(2, 779)=236
- KINDEX(1, 780)=72
- KINDEX(2, 780)=236
- KINDEX(1, 781)=85
- KINDEX(2, 781)=236
- KINDEX(1, 782)=10
- KINDEX(2, 782)=237
- KINDEX(1, 783)=15
- KINDEX(2, 783)=237
- KINDEX(1, 784)=41
- KINDEX(2, 784)=237
- KINDEX(1, 785)=72
- KINDEX(2, 785)=237
- KINDEX(1, 786)=85
- KINDEX(2, 786)=238
- KINDEX(1, 787)=1
- KINDEX(2, 787)=239
- KINDEX(1, 788)=2
- KINDEX(2, 788)=239
- KINDEX(1, 789)=10
- KINDEX(2, 789)=239
- KINDEX(1, 790)=73
- KINDEX(2, 790)=239
- KINDEX(1, 791)=10
- KINDEX(2, 791)=240
- KINDEX(1, 792)=73
- KINDEX(2, 792)=240
- KINDEX(1, 793)=85
- KINDEX(2, 793)=240
- KINDEX(1, 794)=10
- KINDEX(2, 794)=241
- KINDEX(1, 795)=15
- KINDEX(2, 795)=241
- KINDEX(1, 796)=73
- KINDEX(2, 796)=241
- KINDEX(1, 797)=1
- KINDEX(2, 797)=242
- KINDEX(1, 798)=2
- KINDEX(2, 798)=242
- KINDEX(1, 799)=10
- KINDEX(2, 799)=242
- KINDEX(1, 800)=41
- KINDEX(2, 800)=242
- KINDEX(1, 801)=72
- KINDEX(2, 801)=242
- KINDEX(1, 802)=10
- KINDEX(2, 802)=243
- KINDEX(1, 803)=41
- KINDEX(2, 803)=243
- KINDEX(1, 804)=72
- KINDEX(2, 804)=243
- KINDEX(1, 805)=85
- KINDEX(2, 805)=243
- KINDEX(1, 806)=10
- KINDEX(2, 806)=244
- KINDEX(1, 807)=15
- KINDEX(2, 807)=244
- KINDEX(1, 808)=41
- KINDEX(2, 808)=244
- KINDEX(1, 809)=72
- KINDEX(2, 809)=244
- KINDEX(1, 810)=85
- KINDEX(2, 810)=245
- KINDEX(1, 811)=1
- KINDEX(2, 811)=246
- KINDEX(1, 812)=2
- KINDEX(2, 812)=246
- KINDEX(1, 813)=10
- KINDEX(2, 813)=246
- KINDEX(1, 814)=73
- KINDEX(2, 814)=246
- KINDEX(1, 815)=10
- KINDEX(2, 815)=247
- KINDEX(1, 816)=73
- KINDEX(2, 816)=247
- KINDEX(1, 817)=85
- KINDEX(2, 817)=247
- KINDEX(1, 818)=10
- KINDEX(2, 818)=248
- KINDEX(1, 819)=15
- KINDEX(2, 819)=248
- KINDEX(1, 820)=73
- KINDEX(2, 820)=248
- KINDEX(1, 821)=1
- KINDEX(2, 821)=249
- KINDEX(1, 822)=2
- KINDEX(2, 822)=249
- KINDEX(1, 823)=10
- KINDEX(2, 823)=249
- KINDEX(1, 824)=41
- KINDEX(2, 824)=249
- KINDEX(1, 825)=72
- KINDEX(2, 825)=249
- KINDEX(1, 826)=10
- KINDEX(2, 826)=250
- KINDEX(1, 827)=41
- KINDEX(2, 827)=250
- KINDEX(1, 828)=72
- KINDEX(2, 828)=250
- KINDEX(1, 829)=85
- KINDEX(2, 829)=250
- KINDEX(1, 830)=10
- KINDEX(2, 830)=251
- KINDEX(1, 831)=15
- KINDEX(2, 831)=251
- KINDEX(1, 832)=41
- KINDEX(2, 832)=251
- KINDEX(1, 833)=72
- KINDEX(2, 833)=251
- KINDEX(1, 834)=85
- KINDEX(2, 834)=252
- KINDEX(1, 835)=1
- KINDEX(2, 835)=253
- KINDEX(1, 836)=2
- KINDEX(2, 836)=253
- KINDEX(1, 837)=10
- KINDEX(2, 837)=253
- KINDEX(1, 838)=52
- KINDEX(2, 838)=253
- KINDEX(1, 839)=10
- KINDEX(2, 839)=254
- KINDEX(1, 840)=52
- KINDEX(2, 840)=254
- KINDEX(1, 841)=85
- KINDEX(2, 841)=254
- KINDEX(1, 842)=10
- KINDEX(2, 842)=255
- KINDEX(1, 843)=15
- KINDEX(2, 843)=255
- KINDEX(1, 844)=52
- KINDEX(2, 844)=255
- KINDEX(1, 845)=1
- KINDEX(2, 845)=256
- KINDEX(1, 846)=2
- KINDEX(2, 846)=256
- KINDEX(1, 847)=10
- KINDEX(2, 847)=256
- KINDEX(1, 848)=41
- KINDEX(2, 848)=256
- KINDEX(1, 849)=72
- KINDEX(2, 849)=256
- KINDEX(1, 850)=10
- KINDEX(2, 850)=257
- KINDEX(1, 851)=41
- KINDEX(2, 851)=257
- KINDEX(1, 852)=72
- KINDEX(2, 852)=257
- KINDEX(1, 853)=85
- KINDEX(2, 853)=257
- KINDEX(1, 854)=10
- KINDEX(2, 854)=258
- KINDEX(1, 855)=15
- KINDEX(2, 855)=258
- KINDEX(1, 856)=41
- KINDEX(2, 856)=258
- KINDEX(1, 857)=72
- KINDEX(2, 857)=258
- KINDEX(1, 858)=85
- KINDEX(2, 858)=259
- KINDEX(1, 859)=1
- KINDEX(2, 859)=260
- KINDEX(1, 860)=2
- KINDEX(2, 860)=260
- KINDEX(1, 861)=10
- KINDEX(2, 861)=260
- KINDEX(1, 862)=50
- KINDEX(2, 862)=260
- KINDEX(1, 863)=10
- KINDEX(2, 863)=261
- KINDEX(1, 864)=50
- KINDEX(2, 864)=261
- KINDEX(1, 865)=85
- KINDEX(2, 865)=261
- KINDEX(1, 866)=10
- KINDEX(2, 866)=262
- KINDEX(1, 867)=15
- KINDEX(2, 867)=262
- KINDEX(1, 868)=50
- KINDEX(2, 868)=262
- KINDEX(1, 869)=1
- KINDEX(2, 869)=263
- KINDEX(1, 870)=2
- KINDEX(2, 870)=263
- KINDEX(1, 871)=10
- KINDEX(2, 871)=263
- KINDEX(1, 872)=41
- KINDEX(2, 872)=263
- KINDEX(1, 873)=72
- KINDEX(2, 873)=263
- KINDEX(1, 874)=10
- KINDEX(2, 874)=264
- KINDEX(1, 875)=41
- KINDEX(2, 875)=264
- KINDEX(1, 876)=72
- KINDEX(2, 876)=264
- KINDEX(1, 877)=85
- KINDEX(2, 877)=264
- KINDEX(1, 878)=10
- KINDEX(2, 878)=265
- KINDEX(1, 879)=15
- KINDEX(2, 879)=265
- KINDEX(1, 880)=41
- KINDEX(2, 880)=265
- KINDEX(1, 881)=72
- KINDEX(2, 881)=265
- KINDEX(1, 882)=85
- KINDEX(2, 882)=266
- KINDEX(1, 883)=1
- KINDEX(2, 883)=267
- KINDEX(1, 884)=2
- KINDEX(2, 884)=267
- KINDEX(1, 885)=10
- KINDEX(2, 885)=267
- KINDEX(1, 886)=63
- KINDEX(2, 886)=267
- KINDEX(1, 887)=10
- KINDEX(2, 887)=268
- KINDEX(1, 888)=63
- KINDEX(2, 888)=268
- KINDEX(1, 889)=85
- KINDEX(2, 889)=268
- KINDEX(1, 890)=10
- KINDEX(2, 890)=269
- KINDEX(1, 891)=15
- KINDEX(2, 891)=269
- KINDEX(1, 892)=63
- KINDEX(2, 892)=269
- KINDEX(1, 893)=1
- KINDEX(2, 893)=270
- KINDEX(1, 894)=2
- KINDEX(2, 894)=270
- KINDEX(1, 895)=10
- KINDEX(2, 895)=270
- KINDEX(1, 896)=41
- KINDEX(2, 896)=270
- KINDEX(1, 897)=75
- KINDEX(2, 897)=270
- KINDEX(1, 898)=10
- KINDEX(2, 898)=271
- KINDEX(1, 899)=41
- KINDEX(2, 899)=271
- KINDEX(1, 900)=75
- KINDEX(2, 900)=271
- KINDEX(1, 901)=85
- KINDEX(2, 901)=271
- KINDEX(1, 902)=10
- KINDEX(2, 902)=272
- KINDEX(1, 903)=15
- KINDEX(2, 903)=272
- KINDEX(1, 904)=41
- KINDEX(2, 904)=272
- KINDEX(1, 905)=75
- KINDEX(2, 905)=272
- KINDEX(1, 906)=15
- KINDEX(2, 906)=273
- KINDEX(1, 907)=39
- KINDEX(2, 907)=273
- KINDEX(1, 908)=85
- KINDEX(2, 908)=273
- KINDEX(1, 909)=15
- KINDEX(2, 909)=274
- KINDEX(1, 910)=40
- KINDEX(2, 910)=274
- KINDEX(1, 911)=85
- KINDEX(2, 911)=274
- KINDEX(1, 912)=15
- KINDEX(2, 912)=275
- KINDEX(1, 913)=41
- KINDEX(2, 913)=275
- KINDEX(1, 914)=85
- KINDEX(2, 914)=275
- KINDEX(1, 915)=5
- KINDEX(2, 915)=276
- KINDEX(1, 916)=8
- KINDEX(2, 916)=276
- KINDEX(1, 917)=40
- KINDEX(2, 917)=276
- KINDEX(1, 918)=85
- KINDEX(2, 918)=276
- KINDEX(1, 919)=10
- KINDEX(2, 919)=277
- KINDEX(1, 920)=11
- KINDEX(2, 920)=277
- KINDEX(1, 921)=41
- KINDEX(2, 921)=277
- KINDEX(1, 922)=85
- KINDEX(2, 922)=277
- KINDEX(1, 923)=1
- KINDEX(2, 923)=278
- KINDEX(1, 924)=2
- KINDEX(2, 924)=278
- KINDEX(1, 925)=85
- KINDEX(2, 925)=278
- KINDEX(1, 926)=5
- KINDEX(2, 926)=279
- KINDEX(1, 927)=8
- KINDEX(2, 927)=279
- KINDEX(1, 928)=41
- KINDEX(2, 928)=279
- KINDEX(1, 929)=85
- KINDEX(2, 929)=279
- KINDEX(1, 930)=3
- KINDEX(2, 930)=280
- KINDEX(1, 931)=10
- KINDEX(2, 931)=280
- KINDEX(1, 932)=47
- KINDEX(2, 932)=280
- KINDEX(1, 933)=85
- KINDEX(2, 933)=281
- KINDEX(1, 934)=3
- KINDEX(2, 934)=282
- KINDEX(1, 935)=10
- KINDEX(2, 935)=282
- KINDEX(1, 936)=11
- KINDEX(2, 936)=282
- KINDEX(1, 937)=15
- KINDEX(2, 937)=282
- KINDEX(1, 938)=28
- KINDEX(2, 938)=282
- KINDEX(1, 939)=29
- KINDEX(2, 939)=282
- KINDEX(1, 940)=39
- KINDEX(2, 940)=282
- KINDEX(1, 941)=41
- KINDEX(2, 941)=282
- KINDEX(1, 942)=43
- KINDEX(2, 942)=282
- KINDEX(1, 943)=47
- KINDEX(2, 943)=282
- KINDEX(1, 944)=85
- KINDEX(2, 944)=282
- KINDEX(1, 945)=3
- KINDEX(2, 945)=283
- KINDEX(1, 946)=10
- KINDEX(2, 946)=283
- KINDEX(1, 947)=11
- KINDEX(2, 947)=283
- KINDEX(1, 948)=15
- KINDEX(2, 948)=283
- KINDEX(1, 949)=28
- KINDEX(2, 949)=283
- KINDEX(1, 950)=40
- KINDEX(2, 950)=283
- KINDEX(1, 951)=41
- KINDEX(2, 951)=283
- KINDEX(1, 952)=43
- KINDEX(2, 952)=283
- KINDEX(1, 953)=85
- KINDEX(2, 953)=283
- KINDEX(1, 954)=30
- KINDEX(2, 954)=284
- KINDEX(1, 955)=39
- KINDEX(2, 955)=284
- KINDEX(1, 956)=85
- KINDEX(2, 956)=284
- KINDEX(1, 957)=10
- KINDEX(2, 957)=285
- KINDEX(1, 958)=11
- KINDEX(2, 958)=285
- KINDEX(1, 959)=29
- KINDEX(2, 959)=285
- KINDEX(1, 960)=40
- KINDEX(2, 960)=285
- KINDEX(1, 961)=85
- KINDEX(2, 961)=285
- KINDEX(1, 962)=1
- KINDEX(2, 962)=286
- KINDEX(1, 963)=2
- KINDEX(2, 963)=286
- KINDEX(1, 964)=10
- KINDEX(2, 964)=286
- KINDEX(1, 965)=28
- KINDEX(2, 965)=286
- KINDEX(1, 966)=41
- KINDEX(2, 966)=286
- KINDEX(1, 967)=10
- KINDEX(2, 967)=287
- KINDEX(1, 968)=28
- KINDEX(2, 968)=287
- KINDEX(1, 969)=41
- KINDEX(2, 969)=287
- KINDEX(1, 970)=85
- KINDEX(2, 970)=287
- KINDEX(1, 971)=10
- KINDEX(2, 971)=288
- KINDEX(1, 972)=15
- KINDEX(2, 972)=288
- KINDEX(1, 973)=28
- KINDEX(2, 973)=288
- KINDEX(1, 974)=41
- KINDEX(2, 974)=288
- KINDEX(1, 975)=1
- KINDEX(2, 975)=289
- KINDEX(1, 976)=2
- KINDEX(2, 976)=289
- KINDEX(1, 977)=85
- KINDEX(2, 977)=289
- KINDEX(1, 978)=3
- KINDEX(2, 978)=290
- KINDEX(1, 979)=10
- KINDEX(2, 979)=290
- KINDEX(1, 980)=17
- KINDEX(2, 980)=290
- KINDEX(1, 981)=44
- KINDEX(2, 981)=290
- KINDEX(1, 982)=85
- KINDEX(2, 982)=291
- KINDEX(1, 983)=1
- KINDEX(2, 983)=292
- KINDEX(1, 984)=2
- KINDEX(2, 984)=292
- KINDEX(1, 985)=10
- KINDEX(2, 985)=292
- KINDEX(1, 986)=28
- KINDEX(2, 986)=292
- KINDEX(1, 987)=41
- KINDEX(2, 987)=292
- KINDEX(1, 988)=10
- KINDEX(2, 988)=293
- KINDEX(1, 989)=28
- KINDEX(2, 989)=293
- KINDEX(1, 990)=41
- KINDEX(2, 990)=293
- KINDEX(1, 991)=85
- KINDEX(2, 991)=293
- KINDEX(1, 992)=10
- KINDEX(2, 992)=294
- KINDEX(1, 993)=15
- KINDEX(2, 993)=294
- KINDEX(1, 994)=28
- KINDEX(2, 994)=294
- KINDEX(1, 995)=41
- KINDEX(2, 995)=294
- KINDEX(1, 996)=85
- KINDEX(2, 996)=294
- KINDEX(1, 997)=1
- KINDEX(2, 997)=295
- KINDEX(1, 998)=2
- KINDEX(2, 998)=295
- KINDEX(1, 999)=28
- KINDEX(2, 999)=295
- KINDEX(1, 1000)=41
- KINDEX(2, 1000)=295
- KINDEX(1, 1001)=2
- KINDEX(2, 1001)=296
- KINDEX(1, 1002)=10
- KINDEX(2, 1002)=296
- KINDEX(1, 1003)=28
- KINDEX(2, 1003)=296
- KINDEX(1, 1004)=41
- KINDEX(2, 1004)=296
- KINDEX(1, 1005)=85
- KINDEX(2, 1005)=296
- KINDEX(1, 1006)=2
- KINDEX(2, 1006)=297
- KINDEX(1, 1007)=15
- KINDEX(2, 1007)=297
- KINDEX(1, 1008)=28
- KINDEX(2, 1008)=297
- KINDEX(1, 1009)=41
- KINDEX(2, 1009)=297
- KINDEX(1, 1010)=85
- KINDEX(2, 1010)=297
- KINDEX(1, 1011)=1
- KINDEX(2, 1011)=298
- KINDEX(1, 1012)=2
- KINDEX(2, 1012)=298
- KINDEX(1, 1013)=28
- KINDEX(2, 1013)=298
- KINDEX(1, 1014)=85
- KINDEX(2, 1014)=298
- KINDEX(1, 1015)=10
- KINDEX(2, 1015)=299
- KINDEX(1, 1016)=28
- KINDEX(2, 1016)=299
- KINDEX(1, 1017)=85
- KINDEX(2, 1017)=299
- KINDEX(1, 1018)=15
- KINDEX(2, 1018)=300
- KINDEX(1, 1019)=28
- KINDEX(2, 1019)=300
- KINDEX(1, 1020)=85
- KINDEX(2, 1020)=300
- KINDEX(1, 1021)=1
- KINDEX(2, 1021)=301
- KINDEX(1, 1022)=2
- KINDEX(2, 1022)=301
- KINDEX(1, 1023)=10
- KINDEX(2, 1023)=301
- KINDEX(1, 1024)=11
- KINDEX(2, 1024)=301
- KINDEX(1, 1025)=3
- KINDEX(2, 1025)=302
- KINDEX(1, 1026)=10
- KINDEX(2, 1026)=302
- KINDEX(1, 1027)=74
- KINDEX(2, 1027)=302
- KINDEX(1, 1028)=10
- KINDEX(2, 1028)=303
- KINDEX(1, 1029)=11
- KINDEX(2, 1029)=303
- KINDEX(1, 1030)=85
- KINDEX(2, 1030)=303
- KINDEX(1, 1031)=3
- KINDEX(2, 1031)=304
- KINDEX(1, 1032)=15
- KINDEX(2, 1032)=304
- KINDEX(1, 1033)=60
- KINDEX(2, 1033)=304
- KINDEX(1, 1034)=70
- KINDEX(2, 1034)=304
- KINDEX(1, 1035)=15
- KINDEX(2, 1035)=305
- KINDEX(1, 1036)=69
- KINDEX(2, 1036)=305
- KINDEX(1, 1037)=85
- KINDEX(2, 1037)=305
- KINDEX(1, 1038)=15
- KINDEX(2, 1038)=306
- KINDEX(1, 1039)=74
- KINDEX(2, 1039)=306
- KINDEX(1, 1040)=85
- KINDEX(2, 1040)=306
- KINDEX(1, 1041)=3
- KINDEX(2, 1041)=307
- KINDEX(1, 1042)=15
- KINDEX(2, 1042)=307
- KINDEX(1, 1043)=60
- KINDEX(2, 1043)=307
- KINDEX(1, 1044)=62
- KINDEX(2, 1044)=307
- KINDEX(1, 1045)=75
- KINDEX(2, 1045)=307
- KINDEX(1, 1046)=5
- KINDEX(2, 1046)=308
- KINDEX(1, 1047)=8
- KINDEX(2, 1047)=308
- KINDEX(1, 1048)=69
- KINDEX(2, 1048)=308
- KINDEX(1, 1049)=85
- KINDEX(2, 1049)=308
- KINDEX(1, 1050)=10
- KINDEX(2, 1050)=309
- KINDEX(1, 1051)=11
- KINDEX(2, 1051)=309
- KINDEX(1, 1052)=69
- KINDEX(2, 1052)=309
- KINDEX(1, 1053)=85
- KINDEX(2, 1053)=309
- KINDEX(1, 1054)=1
- KINDEX(2, 1054)=310
- KINDEX(1, 1055)=2
- KINDEX(2, 1055)=310
- KINDEX(1, 1056)=85
- KINDEX(2, 1056)=310
- KINDEX(1, 1057)=3
- KINDEX(2, 1057)=311
- KINDEX(1, 1058)=10
- KINDEX(2, 1058)=311
- KINDEX(1, 1059)=45
- KINDEX(2, 1059)=311
- KINDEX(1, 1060)=85
- KINDEX(2, 1060)=312
- KINDEX(1, 1061)=15
- KINDEX(2, 1061)=313
- KINDEX(1, 1062)=57
- KINDEX(2, 1062)=313
- KINDEX(1, 1063)=85
- KINDEX(2, 1063)=313
- KINDEX(1, 1064)=5
- KINDEX(2, 1064)=314
- KINDEX(1, 1065)=8
- KINDEX(2, 1065)=314
- KINDEX(1, 1066)=57
- KINDEX(2, 1066)=314
- KINDEX(1, 1067)=85
- KINDEX(2, 1067)=314
- KINDEX(1, 1068)=10
- KINDEX(2, 1068)=315
- KINDEX(1, 1069)=11
- KINDEX(2, 1069)=315
- KINDEX(1, 1070)=57
- KINDEX(2, 1070)=315
- KINDEX(1, 1071)=1
- KINDEX(2, 1071)=316
- KINDEX(1, 1072)=2
- KINDEX(2, 1072)=316
- KINDEX(1, 1073)=10
- KINDEX(2, 1073)=316
- KINDEX(1, 1074)=2
- KINDEX(2, 1074)=317
- KINDEX(1, 1075)=83
- KINDEX(2, 1075)=317
- KINDEX(1, 1076)=2
- KINDEX(2, 1076)=318
- KINDEX(1, 1077)=83
- KINDEX(2, 1077)=318
- KINDEX(1, 1078)=85
- KINDEX(2, 1078)=318
- KINDEX(1, 1079)=3
- KINDEX(2, 1079)=319
- KINDEX(1, 1080)=10
- KINDEX(2, 1080)=319
- KINDEX(1, 1081)=53
- KINDEX(2, 1081)=319
- KINDEX(1, 1082)=10
- KINDEX(2, 1082)=320
- KINDEX(1, 1083)=85
- KINDEX(2, 1083)=320
- KINDEX(1, 1084)=5
- KINDEX(2, 1084)=321
- KINDEX(1, 1085)=8
- KINDEX(2, 1085)=321
- KINDEX(1, 1086)=61
- KINDEX(2, 1086)=321
- KINDEX(1, 1087)=2
- KINDEX(2, 1087)=322
- KINDEX(1, 1088)=59
- KINDEX(2, 1088)=322
- KINDEX(1, 1089)=3
- KINDEX(2, 1089)=323
- KINDEX(1, 1090)=15
- KINDEX(2, 1090)=323
- KINDEX(1, 1091)=60
- KINDEX(2, 1091)=323
- KINDEX(1, 1092)=62
- KINDEX(2, 1092)=323
- KINDEX(1, 1093)=3
- KINDEX(2, 1093)=324
- KINDEX(1, 1094)=15
- KINDEX(2, 1094)=324
- KINDEX(1, 1095)=58
- KINDEX(2, 1095)=324
- KINDEX(1, 1096)=63
- KINDEX(2, 1096)=324
- KINDEX(1, 1097)=15
- KINDEX(2, 1097)=325
- KINDEX(1, 1098)=71
- KINDEX(2, 1098)=325
- KINDEX(1, 1099)=85
- KINDEX(2, 1099)=325
- KINDEX(1, 1100)=10
- KINDEX(2, 1100)=326
- KINDEX(1, 1101)=15
- KINDEX(2, 1101)=326
- KINDEX(1, 1102)=72
- KINDEX(2, 1102)=326
- KINDEX(1, 1103)=3
- KINDEX(2, 1103)=327
- KINDEX(1, 1104)=15
- KINDEX(2, 1104)=327
- KINDEX(1, 1105)=49
- KINDEX(2, 1105)=327
- KINDEX(1, 1106)=73
- KINDEX(2, 1106)=327
- KINDEX(1, 1107)=5
- KINDEX(2, 1107)=328
- KINDEX(1, 1108)=8
- KINDEX(2, 1108)=328
- KINDEX(1, 1109)=71
- KINDEX(2, 1109)=328
- KINDEX(1, 1110)=85
- KINDEX(2, 1110)=328
- KINDEX(1, 1111)=72
- KINDEX(2, 1111)=329
- KINDEX(1, 1112)=10
- KINDEX(2, 1112)=330
- KINDEX(1, 1113)=11
- KINDEX(2, 1113)=330
- KINDEX(1, 1114)=71
- KINDEX(2, 1114)=330
- KINDEX(1, 1115)=85
- KINDEX(2, 1115)=330
- KINDEX(1, 1116)=10
- KINDEX(2, 1116)=331
- KINDEX(1, 1117)=71
- KINDEX(2, 1117)=331
- KINDEX(1, 1118)=85
- KINDEX(2, 1118)=331
- KINDEX(1, 1119)=1
- KINDEX(2, 1119)=332
- KINDEX(1, 1120)=2
- KINDEX(2, 1120)=332
- KINDEX(1, 1121)=85
- KINDEX(2, 1121)=332
- KINDEX(1, 1122)=3
- KINDEX(2, 1122)=333
- KINDEX(1, 1123)=10
- KINDEX(2, 1123)=333
- KINDEX(1, 1124)=53
- KINDEX(2, 1124)=333
- KINDEX(1, 1125)=85
- KINDEX(2, 1125)=334
- KINDEX(1, 1126)=3
- KINDEX(2, 1126)=335
- KINDEX(1, 1127)=15
- KINDEX(2, 1127)=335
- KINDEX(1, 1128)=50
- KINDEX(2, 1128)=335
- KINDEX(1, 1129)=52
- KINDEX(2, 1129)=335
- KINDEX(1, 1130)=3
- KINDEX(2, 1130)=336
- KINDEX(1, 1131)=15
- KINDEX(2, 1131)=336
- KINDEX(1, 1132)=48
- KINDEX(2, 1132)=336
- KINDEX(1, 1133)=50
- KINDEX(2, 1133)=336
- KINDEX(1, 1134)=51
- KINDEX(2, 1134)=336
- KINDEX(1, 1135)=3
- KINDEX(2, 1135)=337
- KINDEX(1, 1136)=15
- KINDEX(2, 1136)=337
- KINDEX(1, 1137)=48
- KINDEX(2, 1137)=337
- KINDEX(1, 1138)=51
- KINDEX(2, 1138)=337
- KINDEX(1, 1139)=5
- KINDEX(2, 1139)=338
- KINDEX(1, 1140)=8
- KINDEX(2, 1140)=338
- KINDEX(1, 1141)=74
- KINDEX(2, 1141)=338
- KINDEX(1, 1142)=85
- KINDEX(2, 1142)=338
- KINDEX(1, 1143)=10
- KINDEX(2, 1143)=339
- KINDEX(1, 1144)=11
- KINDEX(2, 1144)=339
- KINDEX(1, 1145)=15
- KINDEX(2, 1145)=339
- KINDEX(1, 1146)=74
- KINDEX(2, 1146)=339
- KINDEX(1, 1147)=1
- KINDEX(2, 1147)=340
- KINDEX(1, 1148)=2
- KINDEX(2, 1148)=340
- KINDEX(1, 1149)=11
- KINDEX(2, 1149)=340
- KINDEX(1, 1150)=15
- KINDEX(2, 1150)=340
- KINDEX(1, 1151)=3
- KINDEX(2, 1151)=341
- KINDEX(1, 1152)=10
- KINDEX(2, 1152)=341
- KINDEX(1, 1153)=46
- KINDEX(2, 1153)=341
- KINDEX(1, 1154)=11
- KINDEX(2, 1154)=342
- KINDEX(1, 1155)=15
- KINDEX(2, 1155)=342
- KINDEX(1, 1156)=85
- KINDEX(2, 1156)=342
- KINDEX(1, 1157)=2
- KINDEX(2, 1157)=343
- KINDEX(1, 1158)=82
- KINDEX(2, 1158)=343
- KINDEX(1, 1159)=85
- KINDEX(2, 1159)=343
- KINDEX(1, 1160)=1
- KINDEX(2, 1160)=344
- KINDEX(1, 1161)=2
- KINDEX(2, 1161)=344
- KINDEX(1, 1162)=85
- KINDEX(2, 1162)=344
- KINDEX(1, 1163)=9
- KINDEX(2, 1163)=345
- KINDEX(1, 1164)=15
- KINDEX(2, 1164)=345
- KINDEX(1, 1165)=14
- KINDEX(2, 1165)=346
- KINDEX(1, 1166)=10
- KINDEX(2, 1166)=347
- KINDEX(1, 1167)=15
- KINDEX(2, 1167)=347
- KINDEX(1, 1168)=43
- KINDEX(2, 1168)=347
- KINDEX(1, 1169)=15
- KINDEX(2, 1169)=348
- KINDEX(1, 1170)=44
- KINDEX(2, 1170)=348
- KINDEX(1, 1171)=15
- KINDEX(2, 1171)=349
- KINDEX(1, 1172)=45
- KINDEX(2, 1172)=349
- KINDEX(1, 1173)=48
- KINDEX(2, 1173)=350
- KINDEX(1, 1174)=53
- KINDEX(2, 1174)=351
- KINDEX(1, 1175)=58
- KINDEX(2, 1175)=352
- KINDEX(1, 1176)=60
- KINDEX(2, 1176)=353
- KINDEX(1, 1177)=64
- KINDEX(2, 1177)=354
- KINDEX(1, 1178)=66
- KINDEX(2, 1178)=355
- KINDEX(1, 1179)=68
- KINDEX(2, 1179)=356
- KINDEX(1, 1180)=56
- KINDEX(2, 1180)=357
- KINDEX(1, 1181)=54
- KINDEX(2, 1181)=358
- KINDEX(1, 1182)=55
- KINDEX(2, 1182)=359
- KINDEX(1, 1183)=65
- KINDEX(2, 1183)=360
- KINDEX(1, 1184)=47
- KINDEX(2, 1184)=361
- KINDEX(1, 1185)=59
- KINDEX(2, 1185)=362
- KINDEX(1, 1186)=49
- KINDEX(2, 1186)=363
- KINDEX(1, 1187)=46
- KINDEX(2, 1187)=364
- KINDEX(1, 1188)=67
- KINDEX(2, 1188)=365
- KINDEX(1, 1189)=3
- KINDEX(2, 1189)=366
- KINDEX(1, 1190)=88
- KINDEX(2, 1190)=366
- KINDEX(1, 1191)=12
- KINDEX(2, 1191)=367
- KINDEX(1, 1192)=89
- KINDEX(2, 1192)=367
- KINDEX(1, 1193)=1
- KINDEX(2, 1193)=368
- KINDEX(1, 1194)=90
- KINDEX(2, 1194)=368
- KINDEX(1, 1195)=2
- KINDEX(2, 1195)=369
- KINDEX(1, 1196)=91
- KINDEX(2, 1196)=369
- KINDEX(1, 1197)=8
- KINDEX(2, 1197)=370
- KINDEX(1, 1198)=92
- KINDEX(2, 1198)=370
- KINDEX(1, 1199)=7
- KINDEX(2, 1199)=371
- KINDEX(1, 1200)=93
- KINDEX(2, 1200)=371
- KINDEX(1, 1201)=4
- KINDEX(2, 1201)=372
- KINDEX(1, 1202)=94
- KINDEX(2, 1202)=372
- KINDEX(1, 1203)=5
- KINDEX(2, 1203)=373
- KINDEX(1, 1204)=95
- KINDEX(2, 1204)=373
- KINDEX(1, 1205)=6
- KINDEX(2, 1205)=374
- KINDEX(1, 1206)=96
- KINDEX(2, 1206)=374
- KINDEX(1, 1207)=9
- KINDEX(2, 1207)=375
- KINDEX(1, 1208)=97
- KINDEX(2, 1208)=375
- KINDEX(1, 1209)=15
- KINDEX(2, 1209)=376
- KINDEX(1, 1210)=98
- KINDEX(2, 1210)=376
- KINDEX(1, 1211)=10
- KINDEX(2, 1211)=377
- KINDEX(1, 1212)=99
- KINDEX(2, 1212)=377
- KINDEX(1, 1213)=100
- KINDEX(2, 1213)=378
- KINDEX(1, 1214)=13
- KINDEX(2, 1214)=379
- KINDEX(1, 1215)=101
- KINDEX(2, 1215)=379
- KINDEX(1, 1216)=14
- KINDEX(2, 1216)=380
- KINDEX(1, 1217)=102
- KINDEX(2, 1217)=380
- KINDEX(1, 1218)=86
- KINDEX(2, 1218)=381
- KINDEX(1, 1219)=103
- KINDEX(2, 1219)=381
- KINDEX(1, 1220)=87
- KINDEX(2, 1220)=382
- KINDEX(1, 1221)=104
- KINDEX(2, 1221)=382
- KINDEX(1, 1222)=32
- KINDEX(2, 1222)=383
- KINDEX(1, 1223)=105
- KINDEX(2, 1223)=383
- KINDEX(1, 1224)=33
- KINDEX(2, 1224)=384
- KINDEX(1, 1225)=106
- KINDEX(2, 1225)=384
- KINDEX(1, 1226)=34
- KINDEX(2, 1226)=385
- KINDEX(1, 1227)=107
- KINDEX(2, 1227)=385
- KINDEX(1, 1228)=28
- KINDEX(2, 1228)=386
- KINDEX(1, 1229)=108
- KINDEX(2, 1229)=386
- KINDEX(1, 1230)=29
- KINDEX(2, 1230)=387
- KINDEX(1, 1231)=109
- KINDEX(2, 1231)=387
- KINDEX(1, 1232)=42
- KINDEX(2, 1232)=388
- KINDEX(1, 1233)=110
- KINDEX(2, 1233)=388
- KINDEX(1, 1234)=30
- KINDEX(2, 1234)=389
- KINDEX(1, 1235)=112
- KINDEX(2, 1235)=389
- KINDEX(1, 1236)=41
- KINDEX(2, 1236)=390
- KINDEX(1, 1237)=111
- KINDEX(2, 1237)=390
- KINDEX(1, 1238)=43
- KINDEX(2, 1238)=391
- KINDEX(1, 1239)=113
- KINDEX(2, 1239)=391
- KINDEX(1, 1240)=44
- KINDEX(2, 1240)=392
- KINDEX(1, 1241)=114
- KINDEX(2, 1241)=392
- KINDEX(1, 1242)=45
- KINDEX(2, 1242)=393
- KINDEX(1, 1243)=115
- KINDEX(2, 1243)=393
- KINDEX(1, 1244)=74
- KINDEX(2, 1244)=394
- KINDEX(1, 1245)=116
- KINDEX(2, 1245)=394
- KINDEX(1, 1246)=47
- KINDEX(2, 1246)=395
- KINDEX(1, 1247)=117
- KINDEX(2, 1247)=395
- KINDEX(1, 1248)=46
- KINDEX(2, 1248)=396
- KINDEX(1, 1249)=118
- KINDEX(2, 1249)=396
- KINDEX(1, 1250)=3
- KINDEX(2, 1250)=397
- KINDEX(1, 1251)=88
- KINDEX(2, 1251)=397
- KINDEX(1, 1252)=12
- KINDEX(2, 1252)=398
- KINDEX(1, 1253)=89
- KINDEX(2, 1253)=398
- KINDEX(1, 1254)=1
- KINDEX(2, 1254)=399
- KINDEX(1, 1255)=90
- KINDEX(2, 1255)=399
- KINDEX(1, 1256)=2
- KINDEX(2, 1256)=400
- KINDEX(1, 1257)=91
- KINDEX(2, 1257)=400
- KINDEX(1, 1258)=8
- KINDEX(2, 1258)=401
- KINDEX(1, 1259)=92
- KINDEX(2, 1259)=401
- KINDEX(1, 1260)=7
- KINDEX(2, 1260)=402
- KINDEX(1, 1261)=93
- KINDEX(2, 1261)=402
- KINDEX(1, 1262)=4
- KINDEX(2, 1262)=403
- KINDEX(1, 1263)=94
- KINDEX(2, 1263)=403
- KINDEX(1, 1264)=5
- KINDEX(2, 1264)=404
- KINDEX(1, 1265)=95
- KINDEX(2, 1265)=404
- KINDEX(1, 1266)=6
- KINDEX(2, 1266)=405
- KINDEX(1, 1267)=96
- KINDEX(2, 1267)=405
- KINDEX(1, 1268)=9
- KINDEX(2, 1268)=406
- KINDEX(1, 1269)=97
- KINDEX(2, 1269)=406
- KINDEX(1, 1270)=15
- KINDEX(2, 1270)=407
- KINDEX(1, 1271)=98
- KINDEX(2, 1271)=407
- KINDEX(1, 1272)=10
- KINDEX(2, 1272)=408
- KINDEX(1, 1273)=99
- KINDEX(2, 1273)=408
- KINDEX(1, 1274)=100
- KINDEX(2, 1274)=409
- KINDEX(1, 1275)=13
- KINDEX(2, 1275)=410
- KINDEX(1, 1276)=101
- KINDEX(2, 1276)=410
- KINDEX(1, 1277)=14
- KINDEX(2, 1277)=411
- KINDEX(1, 1278)=102
- KINDEX(2, 1278)=411
- KINDEX(1, 1279)=86
- KINDEX(2, 1279)=412
- KINDEX(1, 1280)=103
- KINDEX(2, 1280)=412
- KINDEX(1, 1281)=87
- KINDEX(2, 1281)=413
- KINDEX(1, 1282)=104
- KINDEX(2, 1282)=413
- KINDEX(1, 1283)=32
- KINDEX(2, 1283)=414
- KINDEX(1, 1284)=105
- KINDEX(2, 1284)=414
- KINDEX(1, 1285)=33
- KINDEX(2, 1285)=415
- KINDEX(1, 1286)=106
- KINDEX(2, 1286)=415
- KINDEX(1, 1287)=34
- KINDEX(2, 1287)=416
- KINDEX(1, 1288)=107
- KINDEX(2, 1288)=416
- KINDEX(1, 1289)=28
- KINDEX(2, 1289)=417
- KINDEX(1, 1290)=108
- KINDEX(2, 1290)=417
- KINDEX(1, 1291)=29
- KINDEX(2, 1291)=418
- KINDEX(1, 1292)=109
- KINDEX(2, 1292)=418
- KINDEX(1, 1293)=42
- KINDEX(2, 1293)=419
- KINDEX(1, 1294)=110
- KINDEX(2, 1294)=419
- KINDEX(1, 1295)=30
- KINDEX(2, 1295)=420
- KINDEX(1, 1296)=112
- KINDEX(2, 1296)=420
- KINDEX(1, 1297)=41
- KINDEX(2, 1297)=421
- KINDEX(1, 1298)=111
- KINDEX(2, 1298)=421
- KINDEX(1, 1299)=43
- KINDEX(2, 1299)=422
- KINDEX(1, 1300)=113
- KINDEX(2, 1300)=422
- KINDEX(1, 1301)=44
- KINDEX(2, 1301)=423
- KINDEX(1, 1302)=114
- KINDEX(2, 1302)=423
- KINDEX(1, 1303)=45
- KINDEX(2, 1303)=424
- KINDEX(1, 1304)=115
- KINDEX(2, 1304)=424
- KINDEX(1, 1305)=74
- KINDEX(2, 1305)=425
- KINDEX(1, 1306)=116
- KINDEX(2, 1306)=425
- KINDEX(1, 1307)=47
- KINDEX(2, 1307)=426
- KINDEX(1, 1308)=117
- KINDEX(2, 1308)=426
- KINDEX(1, 1309)=46
- KINDEX(2, 1309)=427
- KINDEX(1, 1310)=118
- KINDEX(2, 1310)=427
- KINDEX(1, 1311)=3
- KINDEX(2, 1311)=428
- KINDEX(1, 1312)=125
- KINDEX(2, 1312)=428
- KINDEX(1, 1313)=12
- KINDEX(2, 1313)=429
- KINDEX(1, 1314)=126
- KINDEX(2, 1314)=429
- KINDEX(1, 1315)=1
- KINDEX(2, 1315)=430
- KINDEX(1, 1316)=127
- KINDEX(2, 1316)=430
- KINDEX(1, 1317)=2
- KINDEX(2, 1317)=431
- KINDEX(1, 1318)=128
- KINDEX(2, 1318)=431
- KINDEX(1, 1319)=8
- KINDEX(2, 1319)=432
- KINDEX(1, 1320)=129
- KINDEX(2, 1320)=432
- KINDEX(1, 1321)=7
- KINDEX(2, 1321)=433
- KINDEX(1, 1322)=130
- KINDEX(2, 1322)=433
- KINDEX(1, 1323)=4
- KINDEX(2, 1323)=434
- KINDEX(1, 1324)=131
- KINDEX(2, 1324)=434
- KINDEX(1, 1325)=5
- KINDEX(2, 1325)=435
- KINDEX(1, 1326)=132
- KINDEX(2, 1326)=435
- KINDEX(1, 1327)=6
- KINDEX(2, 1327)=436
- KINDEX(1, 1328)=133
- KINDEX(2, 1328)=436
- KINDEX(1, 1329)=9
- KINDEX(2, 1329)=437
- KINDEX(1, 1330)=134
- KINDEX(2, 1330)=437
- KINDEX(1, 1331)=15
- KINDEX(2, 1331)=438
- KINDEX(1, 1332)=135
- KINDEX(2, 1332)=438
- KINDEX(1, 1333)=10
- KINDEX(2, 1333)=439
- KINDEX(1, 1334)=136
- KINDEX(2, 1334)=439
- KINDEX(1, 1335)=137
- KINDEX(2, 1335)=440
- KINDEX(1, 1336)=13
- KINDEX(2, 1336)=441
- KINDEX(1, 1337)=138
- KINDEX(2, 1337)=441
- KINDEX(1, 1338)=14
- KINDEX(2, 1338)=442
- KINDEX(1, 1339)=139
- KINDEX(2, 1339)=442
- KINDEX(1, 1340)=86
- KINDEX(2, 1340)=443
- KINDEX(1, 1341)=140
- KINDEX(2, 1341)=443
- KINDEX(1, 1342)=87
- KINDEX(2, 1342)=444
- KINDEX(1, 1343)=141
- KINDEX(2, 1343)=444
- KINDEX(1, 1344)=32
- KINDEX(2, 1344)=445
- KINDEX(1, 1345)=142
- KINDEX(2, 1345)=445
- KINDEX(1, 1346)=33
- KINDEX(2, 1346)=446
- KINDEX(1, 1347)=143
- KINDEX(2, 1347)=446
- KINDEX(1, 1348)=34
- KINDEX(2, 1348)=447
- KINDEX(1, 1349)=144
- KINDEX(2, 1349)=447
- KINDEX(1, 1350)=28
- KINDEX(2, 1350)=448
- KINDEX(1, 1351)=145
- KINDEX(2, 1351)=448
- KINDEX(1, 1352)=29
- KINDEX(2, 1352)=449
- KINDEX(1, 1353)=146
- KINDEX(2, 1353)=449
- KINDEX(1, 1354)=42
- KINDEX(2, 1354)=450
- KINDEX(1, 1355)=147
- KINDEX(2, 1355)=450
- KINDEX(1, 1356)=30
- KINDEX(2, 1356)=451
- KINDEX(1, 1357)=149
- KINDEX(2, 1357)=451
- KINDEX(1, 1358)=41
- KINDEX(2, 1358)=452
- KINDEX(1, 1359)=148
- KINDEX(2, 1359)=452
- KINDEX(1, 1360)=43
- KINDEX(2, 1360)=453
- KINDEX(1, 1361)=150
- KINDEX(2, 1361)=453
- KINDEX(1, 1362)=44
- KINDEX(2, 1362)=454
- KINDEX(1, 1363)=151
- KINDEX(2, 1363)=454
- KINDEX(1, 1364)=45
- KINDEX(2, 1364)=455
- KINDEX(1, 1365)=152
- KINDEX(2, 1365)=455
- KINDEX(1, 1366)=74
- KINDEX(2, 1366)=456
- KINDEX(1, 1367)=153
- KINDEX(2, 1367)=456
- KINDEX(1, 1368)=47
- KINDEX(2, 1368)=457
- KINDEX(1, 1369)=154
- KINDEX(2, 1369)=457
- KINDEX(1, 1370)=46
- KINDEX(2, 1370)=458
- KINDEX(1, 1371)=155
- KINDEX(2, 1371)=458
- KINDEX(1, 1372)=3
- KINDEX(2, 1372)=459
- KINDEX(1, 1373)=125
- KINDEX(2, 1373)=459
- KINDEX(1, 1374)=12
- KINDEX(2, 1374)=460
- KINDEX(1, 1375)=126
- KINDEX(2, 1375)=460
- KINDEX(1, 1376)=1
- KINDEX(2, 1376)=461
- KINDEX(1, 1377)=127
- KINDEX(2, 1377)=461
- KINDEX(1, 1378)=2
- KINDEX(2, 1378)=462
- KINDEX(1, 1379)=128
- KINDEX(2, 1379)=462
- KINDEX(1, 1380)=8
- KINDEX(2, 1380)=463
- KINDEX(1, 1381)=129
- KINDEX(2, 1381)=463
- KINDEX(1, 1382)=7
- KINDEX(2, 1382)=464
- KINDEX(1, 1383)=130
- KINDEX(2, 1383)=464
- KINDEX(1, 1384)=4
- KINDEX(2, 1384)=465
- KINDEX(1, 1385)=131
- KINDEX(2, 1385)=465
- KINDEX(1, 1386)=5
- KINDEX(2, 1386)=466
- KINDEX(1, 1387)=132
- KINDEX(2, 1387)=466
- KINDEX(1, 1388)=6
- KINDEX(2, 1388)=467
- KINDEX(1, 1389)=133
- KINDEX(2, 1389)=467
- KINDEX(1, 1390)=9
- KINDEX(2, 1390)=468
- KINDEX(1, 1391)=134
- KINDEX(2, 1391)=468
- KINDEX(1, 1392)=15
- KINDEX(2, 1392)=469
- KINDEX(1, 1393)=135
- KINDEX(2, 1393)=469
- KINDEX(1, 1394)=10
- KINDEX(2, 1394)=470
- KINDEX(1, 1395)=136
- KINDEX(2, 1395)=470
- KINDEX(1, 1396)=137
- KINDEX(2, 1396)=471
- KINDEX(1, 1397)=13
- KINDEX(2, 1397)=472
- KINDEX(1, 1398)=138
- KINDEX(2, 1398)=472
- KINDEX(1, 1399)=14
- KINDEX(2, 1399)=473
- KINDEX(1, 1400)=139
- KINDEX(2, 1400)=473
- KINDEX(1, 1401)=86
- KINDEX(2, 1401)=474
- KINDEX(1, 1402)=140
- KINDEX(2, 1402)=474
- KINDEX(1, 1403)=87
- KINDEX(2, 1403)=475
- KINDEX(1, 1404)=141
- KINDEX(2, 1404)=475
- KINDEX(1, 1405)=32
- KINDEX(2, 1405)=476
- KINDEX(1, 1406)=142
- KINDEX(2, 1406)=476
- KINDEX(1, 1407)=33
- KINDEX(2, 1407)=477
- KINDEX(1, 1408)=143
- KINDEX(2, 1408)=477
- KINDEX(1, 1409)=34
- KINDEX(2, 1409)=478
- KINDEX(1, 1410)=144
- KINDEX(2, 1410)=478
- KINDEX(1, 1411)=28
- KINDEX(2, 1411)=479
- KINDEX(1, 1412)=145
- KINDEX(2, 1412)=479
- KINDEX(1, 1413)=29
- KINDEX(2, 1413)=480
- KINDEX(1, 1414)=146
- KINDEX(2, 1414)=480
- KINDEX(1, 1415)=42
- KINDEX(2, 1415)=481
- KINDEX(1, 1416)=147
- KINDEX(2, 1416)=481
- KINDEX(1, 1417)=30
- KINDEX(2, 1417)=482
- KINDEX(1, 1418)=149
- KINDEX(2, 1418)=482
- KINDEX(1, 1419)=41
- KINDEX(2, 1419)=483
- KINDEX(1, 1420)=148
- KINDEX(2, 1420)=483
- KINDEX(1, 1421)=43
- KINDEX(2, 1421)=484
- KINDEX(1, 1422)=150
- KINDEX(2, 1422)=484
- KINDEX(1, 1423)=44
- KINDEX(2, 1423)=485
- KINDEX(1, 1424)=151
- KINDEX(2, 1424)=485
- KINDEX(1, 1425)=45
- KINDEX(2, 1425)=486
- KINDEX(1, 1426)=152
- KINDEX(2, 1426)=486
- KINDEX(1, 1427)=74
- KINDEX(2, 1427)=487
- KINDEX(1, 1428)=153
- KINDEX(2, 1428)=487
- KINDEX(1, 1429)=47
- KINDEX(2, 1429)=488
- KINDEX(1, 1430)=154
- KINDEX(2, 1430)=488
- KINDEX(1, 1431)=46
- KINDEX(2, 1431)=489
- KINDEX(1, 1432)=155
- KINDEX(2, 1432)=489
- KINDEX(1, 1433)=89
- KINDEX(2, 1433)=490
- KINDEX(1, 1434)=98
- KINDEX(2, 1434)=490
- KINDEX(1, 1435)=89
- KINDEX(2, 1435)=491
- KINDEX(1, 1436)=98
- KINDEX(2, 1436)=491
- KINDEX(1, 1437)=98
- KINDEX(2, 1437)=492
- KINDEX(1, 1438)=99
- KINDEX(2, 1438)=492
- KINDEX(1, 1439)=89
- KINDEX(2, 1439)=493
- KINDEX(1, 1440)=98
- KINDEX(2, 1440)=493
- KINDEX(1, 1441)=99
- KINDEX(2, 1441)=493
- KINDEX(1, 1442)=89
- KINDEX(2, 1442)=494
- KINDEX(1, 1443)=99
- KINDEX(2, 1443)=494
- KINDEX(1, 1444)=88
- KINDEX(2, 1444)=495
- KINDEX(1, 1445)=98
- KINDEX(2, 1445)=495
- KINDEX(1, 1446)=99
- KINDEX(2, 1446)=495
- KINDEX(1, 1447)=98
- KINDEX(2, 1447)=496
- KINDEX(1, 1448)=101
- KINDEX(2, 1448)=496
- KINDEX(1, 1449)=120
- KINDEX(2, 1449)=496
- KINDEX(1, 1450)=91
- KINDEX(2, 1450)=497
- KINDEX(1, 1451)=94
- KINDEX(2, 1451)=497
- KINDEX(1, 1452)=98
- KINDEX(2, 1452)=497
- KINDEX(1, 1453)=91
- KINDEX(2, 1453)=498
- KINDEX(1, 1454)=96
- KINDEX(2, 1454)=498
- KINDEX(1, 1455)=99
- KINDEX(2, 1455)=498
- KINDEX(1, 1456)=91
- KINDEX(2, 1456)=499
- KINDEX(1, 1457)=96
- KINDEX(2, 1457)=499
- KINDEX(1, 1458)=99
- KINDEX(2, 1458)=499
- KINDEX(1, 1459)=94
- KINDEX(2, 1459)=500
- KINDEX(1, 1460)=96
- KINDEX(2, 1460)=500
- KINDEX(1, 1461)=95
- KINDEX(2, 1461)=501
- KINDEX(1, 1462)=96
- KINDEX(2, 1462)=501
- KINDEX(1, 1463)=101
- KINDEX(2, 1463)=501
- KINDEX(1, 1464)=102
- KINDEX(2, 1464)=501
- KINDEX(1, 1465)=91
- KINDEX(2, 1465)=502
- KINDEX(1, 1466)=95
- KINDEX(2, 1466)=502
- KINDEX(1, 1467)=98
- KINDEX(2, 1467)=502
- KINDEX(1, 1468)=93
- KINDEX(2, 1468)=503
- KINDEX(1, 1469)=95
- KINDEX(2, 1469)=503
- KINDEX(1, 1470)=92
- KINDEX(2, 1470)=504
- KINDEX(1, 1471)=95
- KINDEX(2, 1471)=504
- KINDEX(1, 1472)=102
- KINDEX(2, 1472)=504
- KINDEX(1, 1473)=121
- KINDEX(2, 1473)=504
- KINDEX(1, 1474)=92
- KINDEX(2, 1474)=505
- KINDEX(1, 1475)=95
- KINDEX(2, 1475)=505
- KINDEX(1, 1476)=101
- KINDEX(2, 1476)=505
- KINDEX(1, 1477)=120
- KINDEX(2, 1477)=505
- KINDEX(1, 1478)=101
- KINDEX(2, 1478)=506
- KINDEX(1, 1479)=108
- KINDEX(2, 1479)=506
- KINDEX(1, 1480)=124
- KINDEX(2, 1480)=506
- KINDEX(1, 1481)=101
- KINDEX(2, 1481)=507
- KINDEX(1, 1482)=108
- KINDEX(2, 1482)=507
- KINDEX(1, 1483)=124
- KINDEX(2, 1483)=507
- KINDEX(1, 1484)=98
- KINDEX(2, 1484)=508
- KINDEX(1, 1485)=99
- KINDEX(2, 1485)=508
- KINDEX(1, 1486)=101
- KINDEX(2, 1486)=508
- KINDEX(1, 1487)=113
- KINDEX(2, 1487)=508
- KINDEX(1, 1488)=124
- KINDEX(2, 1488)=508
- KINDEX(1, 1489)=120
- KINDEX(2, 1489)=509
- KINDEX(1, 1490)=122
- KINDEX(2, 1490)=509
- KINDEX(1, 1491)=99
- KINDEX(2, 1491)=510
- KINDEX(1, 1492)=122
- KINDEX(2, 1492)=510
- KINDEX(1, 1493)=123
- KINDEX(2, 1493)=510
- KINDEX(1, 1494)=121
- KINDEX(2, 1494)=511
- KINDEX(1, 1495)=122
- KINDEX(2, 1495)=511
- KINDEX(1, 1496)=101
- KINDEX(2, 1496)=512
- KINDEX(1, 1497)=102
- KINDEX(2, 1497)=512
- KINDEX(1, 1498)=123
- KINDEX(2, 1498)=512
- KINDEX(1, 1499)=98
- KINDEX(2, 1499)=513
- KINDEX(1, 1500)=102
- KINDEX(2, 1500)=513
- KINDEX(1, 1501)=121
- KINDEX(2, 1501)=513
- KINDEX(1, 1502)=88
- KINDEX(2, 1502)=514
- KINDEX(1, 1503)=101
- KINDEX(2, 1503)=514
- KINDEX(1, 1504)=102
- KINDEX(2, 1504)=514
- KINDEX(1, 1505)=89
- KINDEX(2, 1505)=515
- KINDEX(1, 1506)=101
- KINDEX(2, 1506)=515
- KINDEX(1, 1507)=102
- KINDEX(2, 1507)=515
- KINDEX(1, 1508)=99
- KINDEX(2, 1508)=516
- KINDEX(1, 1509)=103
- KINDEX(2, 1509)=516
- KINDEX(1, 1510)=108
- KINDEX(2, 1510)=516
- KINDEX(1, 1511)=101
- KINDEX(2, 1511)=517
- KINDEX(1, 1512)=103
- KINDEX(2, 1512)=517
- KINDEX(1, 1513)=108
- KINDEX(2, 1513)=517
- KINDEX(1, 1514)=120
- KINDEX(2, 1514)=517
- KINDEX(1, 1515)=89
- KINDEX(2, 1515)=518
- KINDEX(1, 1516)=99
- KINDEX(2, 1516)=518
- KINDEX(1, 1517)=104
- KINDEX(2, 1517)=518
- KINDEX(1, 1518)=109
- KINDEX(2, 1518)=518
- KINDEX(1, 1519)=114
- KINDEX(2, 1519)=518
- KINDEX(1, 1520)=98
- KINDEX(2, 1520)=519
- KINDEX(1, 1521)=99
- KINDEX(2, 1521)=519
- KINDEX(1, 1522)=105
- KINDEX(2, 1522)=519
- KINDEX(1, 1523)=108
- KINDEX(2, 1523)=519
- KINDEX(1, 1524)=98
- KINDEX(2, 1524)=520
- KINDEX(1, 1525)=99
- KINDEX(2, 1525)=520
- KINDEX(1, 1526)=106
- KINDEX(2, 1526)=520
- KINDEX(1, 1527)=109
- KINDEX(2, 1527)=520
- KINDEX(1, 1528)=98
- KINDEX(2, 1528)=521
- KINDEX(1, 1529)=99
- KINDEX(2, 1529)=521
- KINDEX(1, 1530)=107
- KINDEX(2, 1530)=521
- KINDEX(1, 1531)=109
- KINDEX(2, 1531)=521
- KINDEX(1, 1532)=112
- KINDEX(2, 1532)=521
- KINDEX(1, 1533)=98
- KINDEX(2, 1533)=522
- KINDEX(1, 1534)=99
- KINDEX(2, 1534)=522
- KINDEX(1, 1535)=108
- KINDEX(2, 1535)=522
- KINDEX(1, 1536)=113
- KINDEX(2, 1536)=522
- KINDEX(1, 1537)=98
- KINDEX(2, 1537)=523
- KINDEX(1, 1538)=100
- KINDEX(2, 1538)=523
- KINDEX(1, 1539)=103
- KINDEX(2, 1539)=523
- KINDEX(1, 1540)=104
- KINDEX(2, 1540)=523
- KINDEX(1, 1541)=109
- KINDEX(2, 1541)=523
- KINDEX(1, 1542)=98
- KINDEX(2, 1542)=524
- KINDEX(1, 1543)=99
- KINDEX(2, 1543)=524
- KINDEX(1, 1544)=110
- KINDEX(2, 1544)=524
- KINDEX(1, 1545)=116
- KINDEX(2, 1545)=524
- KINDEX(1, 1546)=98
- KINDEX(2, 1546)=525
- KINDEX(1, 1547)=99
- KINDEX(2, 1547)=525
- KINDEX(1, 1548)=111
- KINDEX(2, 1548)=525
- KINDEX(1, 1549)=117
- KINDEX(2, 1549)=525
- KINDEX(1, 1550)=89
- KINDEX(2, 1550)=526
- KINDEX(1, 1551)=98
- KINDEX(2, 1551)=526
- KINDEX(1, 1552)=99
- KINDEX(2, 1552)=526
- KINDEX(1, 1553)=100
- KINDEX(2, 1553)=526
- KINDEX(1, 1554)=103
- KINDEX(2, 1554)=526
- KINDEX(1, 1555)=108
- KINDEX(2, 1555)=526
- KINDEX(1, 1556)=109
- KINDEX(2, 1556)=526
- KINDEX(1, 1557)=111
- KINDEX(2, 1557)=526
- KINDEX(1, 1558)=112
- KINDEX(2, 1558)=526
- KINDEX(1, 1559)=117
- KINDEX(2, 1559)=526
- KINDEX(1, 1560)=98
- KINDEX(2, 1560)=527
- KINDEX(1, 1561)=99
- KINDEX(2, 1561)=527
- KINDEX(1, 1562)=100
- KINDEX(2, 1562)=527
- KINDEX(1, 1563)=113
- KINDEX(2, 1563)=527
- KINDEX(1, 1564)=89
- KINDEX(2, 1564)=528
- KINDEX(1, 1565)=98
- KINDEX(2, 1565)=528
- KINDEX(1, 1566)=114
- KINDEX(2, 1566)=528
- KINDEX(1, 1567)=116
- KINDEX(2, 1567)=528
- KINDEX(1, 1568)=98
- KINDEX(2, 1568)=529
- KINDEX(1, 1569)=100
- KINDEX(2, 1569)=529
- KINDEX(1, 1570)=104
- KINDEX(2, 1570)=529
- KINDEX(1, 1571)=115
- KINDEX(2, 1571)=529
- KINDEX(1, 1572)=89
- KINDEX(2, 1572)=530
- KINDEX(1, 1573)=98
- KINDEX(2, 1573)=530
- KINDEX(1, 1574)=99
- KINDEX(2, 1574)=530
- KINDEX(1, 1575)=109
- KINDEX(2, 1575)=530
- KINDEX(1, 1576)=115
- KINDEX(2, 1576)=530
- KINDEX(1, 1577)=117
- KINDEX(2, 1577)=530
- KINDEX(1, 1578)=119
- KINDEX(2, 1578)=530
- KINDEX(1, 1579)=98
- KINDEX(2, 1579)=531
- KINDEX(1, 1580)=99
- KINDEX(2, 1580)=531
- KINDEX(1, 1581)=100
- KINDEX(2, 1581)=531
- KINDEX(1, 1582)=118
- KINDEX(2, 1582)=531
- KINDEX(1, 1583)=89
- KINDEX(2, 1583)=532
- KINDEX(1, 1584)=98
- KINDEX(2, 1584)=532
- KINDEX(1, 1585)=99
- KINDEX(2, 1585)=532
- KINDEX(1, 1586)=100
- KINDEX(2, 1586)=532
- KINDEX(1, 1587)=109
- KINDEX(2, 1587)=532
- KINDEX(1, 1588)=117
- KINDEX(2, 1588)=532
- KINDEX(1, 1589)=119
- KINDEX(2, 1589)=532
- KINDEX(1, 1590)=98
- KINDEX(2, 1590)=533
- KINDEX(1, 1591)=99
- KINDEX(2, 1591)=533
- KINDEX(1, 1592)=116
- KINDEX(2, 1592)=533
- KINDEX(1, 1593)=118
- KINDEX(2, 1593)=533
- KINDEX(1, 1594)=89
- KINDEX(2, 1594)=534
- KINDEX(1, 1595)=98
- KINDEX(2, 1595)=534
- KINDEX(1, 1596)=99
- KINDEX(2, 1596)=534
- KINDEX(1, 1597)=100
- KINDEX(2, 1597)=534
- KINDEX(1, 1598)=116
- KINDEX(2, 1598)=534
- KINDEX(1, 1599)=98
- KINDEX(2, 1599)=535
- KINDEX(1, 1600)=119
- KINDEX(2, 1600)=535
- KINDEX(1, 1601)=126
- KINDEX(2, 1601)=536
- KINDEX(1, 1602)=135
- KINDEX(2, 1602)=536
- KINDEX(1, 1603)=126
- KINDEX(2, 1603)=537
- KINDEX(1, 1604)=135
- KINDEX(2, 1604)=537
- KINDEX(1, 1605)=135
- KINDEX(2, 1605)=538
- KINDEX(1, 1606)=136
- KINDEX(2, 1606)=538
- KINDEX(1, 1607)=126
- KINDEX(2, 1607)=539
- KINDEX(1, 1608)=135
- KINDEX(2, 1608)=539
- KINDEX(1, 1609)=136
- KINDEX(2, 1609)=539
- KINDEX(1, 1610)=126
- KINDEX(2, 1610)=540
- KINDEX(1, 1611)=136
- KINDEX(2, 1611)=540
- KINDEX(1, 1612)=125
- KINDEX(2, 1612)=541
- KINDEX(1, 1613)=135
- KINDEX(2, 1613)=541
- KINDEX(1, 1614)=136
- KINDEX(2, 1614)=541
- KINDEX(1, 1615)=135
- KINDEX(2, 1615)=542
- KINDEX(1, 1616)=138
- KINDEX(2, 1616)=542
- KINDEX(1, 1617)=157
- KINDEX(2, 1617)=542
- KINDEX(1, 1618)=128
- KINDEX(2, 1618)=543
- KINDEX(1, 1619)=131
- KINDEX(2, 1619)=543
- KINDEX(1, 1620)=135
- KINDEX(2, 1620)=543
- KINDEX(1, 1621)=128
- KINDEX(2, 1621)=544
- KINDEX(1, 1622)=133
- KINDEX(2, 1622)=544
- KINDEX(1, 1623)=136
- KINDEX(2, 1623)=544
- KINDEX(1, 1624)=128
- KINDEX(2, 1624)=545
- KINDEX(1, 1625)=133
- KINDEX(2, 1625)=545
- KINDEX(1, 1626)=136
- KINDEX(2, 1626)=545
- KINDEX(1, 1627)=131
- KINDEX(2, 1627)=546
- KINDEX(1, 1628)=133
- KINDEX(2, 1628)=546
- KINDEX(1, 1629)=132
- KINDEX(2, 1629)=547
- KINDEX(1, 1630)=133
- KINDEX(2, 1630)=547
- KINDEX(1, 1631)=138
- KINDEX(2, 1631)=547
- KINDEX(1, 1632)=139
- KINDEX(2, 1632)=547
- KINDEX(1, 1633)=128
- KINDEX(2, 1633)=548
- KINDEX(1, 1634)=132
- KINDEX(2, 1634)=548
- KINDEX(1, 1635)=135
- KINDEX(2, 1635)=548
- KINDEX(1, 1636)=130
- KINDEX(2, 1636)=549
- KINDEX(1, 1637)=132
- KINDEX(2, 1637)=549
- KINDEX(1, 1638)=129
- KINDEX(2, 1638)=550
- KINDEX(1, 1639)=132
- KINDEX(2, 1639)=550
- KINDEX(1, 1640)=139
- KINDEX(2, 1640)=550
- KINDEX(1, 1641)=158
- KINDEX(2, 1641)=550
- KINDEX(1, 1642)=129
- KINDEX(2, 1642)=551
- KINDEX(1, 1643)=132
- KINDEX(2, 1643)=551
- KINDEX(1, 1644)=138
- KINDEX(2, 1644)=551
- KINDEX(1, 1645)=157
- KINDEX(2, 1645)=551
- KINDEX(1, 1646)=138
- KINDEX(2, 1646)=552
- KINDEX(1, 1647)=145
- KINDEX(2, 1647)=552
- KINDEX(1, 1648)=161
- KINDEX(2, 1648)=552
- KINDEX(1, 1649)=138
- KINDEX(2, 1649)=553
- KINDEX(1, 1650)=145
- KINDEX(2, 1650)=553
- KINDEX(1, 1651)=161
- KINDEX(2, 1651)=553
- KINDEX(1, 1652)=135
- KINDEX(2, 1652)=554
- KINDEX(1, 1653)=136
- KINDEX(2, 1653)=554
- KINDEX(1, 1654)=138
- KINDEX(2, 1654)=554
- KINDEX(1, 1655)=150
- KINDEX(2, 1655)=554
- KINDEX(1, 1656)=161
- KINDEX(2, 1656)=554
- KINDEX(1, 1657)=157
- KINDEX(2, 1657)=555
- KINDEX(1, 1658)=159
- KINDEX(2, 1658)=555
- KINDEX(1, 1659)=136
- KINDEX(2, 1659)=556
- KINDEX(1, 1660)=159
- KINDEX(2, 1660)=556
- KINDEX(1, 1661)=160
- KINDEX(2, 1661)=556
- KINDEX(1, 1662)=158
- KINDEX(2, 1662)=557
- KINDEX(1, 1663)=159
- KINDEX(2, 1663)=557
- KINDEX(1, 1664)=138
- KINDEX(2, 1664)=558
- KINDEX(1, 1665)=139
- KINDEX(2, 1665)=558
- KINDEX(1, 1666)=160
- KINDEX(2, 1666)=558
- KINDEX(1, 1667)=135
- KINDEX(2, 1667)=559
- KINDEX(1, 1668)=139
- KINDEX(2, 1668)=559
- KINDEX(1, 1669)=158
- KINDEX(2, 1669)=559
- KINDEX(1, 1670)=125
- KINDEX(2, 1670)=560
- KINDEX(1, 1671)=138
- KINDEX(2, 1671)=560
- KINDEX(1, 1672)=139
- KINDEX(2, 1672)=560
- KINDEX(1, 1673)=126
- KINDEX(2, 1673)=561
- KINDEX(1, 1674)=138
- KINDEX(2, 1674)=561
- KINDEX(1, 1675)=139
- KINDEX(2, 1675)=561
- KINDEX(1, 1676)=136
- KINDEX(2, 1676)=562
- KINDEX(1, 1677)=140
- KINDEX(2, 1677)=562
- KINDEX(1, 1678)=145
- KINDEX(2, 1678)=562
- KINDEX(1, 1679)=138
- KINDEX(2, 1679)=563
- KINDEX(1, 1680)=140
- KINDEX(2, 1680)=563
- KINDEX(1, 1681)=145
- KINDEX(2, 1681)=563
- KINDEX(1, 1682)=157
- KINDEX(2, 1682)=563
- KINDEX(1, 1683)=126
- KINDEX(2, 1683)=564
- KINDEX(1, 1684)=136
- KINDEX(2, 1684)=564
- KINDEX(1, 1685)=141
- KINDEX(2, 1685)=564
- KINDEX(1, 1686)=146
- KINDEX(2, 1686)=564
- KINDEX(1, 1687)=151
- KINDEX(2, 1687)=564
- KINDEX(1, 1688)=135
- KINDEX(2, 1688)=565
- KINDEX(1, 1689)=136
- KINDEX(2, 1689)=565
- KINDEX(1, 1690)=142
- KINDEX(2, 1690)=565
- KINDEX(1, 1691)=145
- KINDEX(2, 1691)=565
- KINDEX(1, 1692)=135
- KINDEX(2, 1692)=566
- KINDEX(1, 1693)=136
- KINDEX(2, 1693)=566
- KINDEX(1, 1694)=143
- KINDEX(2, 1694)=566
- KINDEX(1, 1695)=146
- KINDEX(2, 1695)=566
- KINDEX(1, 1696)=135
- KINDEX(2, 1696)=567
- KINDEX(1, 1697)=136
- KINDEX(2, 1697)=567
- KINDEX(1, 1698)=144
- KINDEX(2, 1698)=567
- KINDEX(1, 1699)=146
- KINDEX(2, 1699)=567
- KINDEX(1, 1700)=149
- KINDEX(2, 1700)=567
- KINDEX(1, 1701)=135
- KINDEX(2, 1701)=568
- KINDEX(1, 1702)=136
- KINDEX(2, 1702)=568
- KINDEX(1, 1703)=145
- KINDEX(2, 1703)=568
- KINDEX(1, 1704)=150
- KINDEX(2, 1704)=568
- KINDEX(1, 1705)=135
- KINDEX(2, 1705)=569
- KINDEX(1, 1706)=137
- KINDEX(2, 1706)=569
- KINDEX(1, 1707)=140
- KINDEX(2, 1707)=569
- KINDEX(1, 1708)=141
- KINDEX(2, 1708)=569
- KINDEX(1, 1709)=146
- KINDEX(2, 1709)=569
- KINDEX(1, 1710)=135
- KINDEX(2, 1710)=570
- KINDEX(1, 1711)=136
- KINDEX(2, 1711)=570
- KINDEX(1, 1712)=147
- KINDEX(2, 1712)=570
- KINDEX(1, 1713)=153
- KINDEX(2, 1713)=570
- KINDEX(1, 1714)=135
- KINDEX(2, 1714)=571
- KINDEX(1, 1715)=136
- KINDEX(2, 1715)=571
- KINDEX(1, 1716)=148
- KINDEX(2, 1716)=571
- KINDEX(1, 1717)=154
- KINDEX(2, 1717)=571
- KINDEX(1, 1718)=126
- KINDEX(2, 1718)=572
- KINDEX(1, 1719)=135
- KINDEX(2, 1719)=572
- KINDEX(1, 1720)=136
- KINDEX(2, 1720)=572
- KINDEX(1, 1721)=137
- KINDEX(2, 1721)=572
- KINDEX(1, 1722)=140
- KINDEX(2, 1722)=572
- KINDEX(1, 1723)=145
- KINDEX(2, 1723)=572
- KINDEX(1, 1724)=146
- KINDEX(2, 1724)=572
- KINDEX(1, 1725)=148
- KINDEX(2, 1725)=572
- KINDEX(1, 1726)=149
- KINDEX(2, 1726)=572
- KINDEX(1, 1727)=154
- KINDEX(2, 1727)=572
- KINDEX(1, 1728)=135
- KINDEX(2, 1728)=573
- KINDEX(1, 1729)=136
- KINDEX(2, 1729)=573
- KINDEX(1, 1730)=137
- KINDEX(2, 1730)=573
- KINDEX(1, 1731)=150
- KINDEX(2, 1731)=573
- KINDEX(1, 1732)=126
- KINDEX(2, 1732)=574
- KINDEX(1, 1733)=135
- KINDEX(2, 1733)=574
- KINDEX(1, 1734)=151
- KINDEX(2, 1734)=574
- KINDEX(1, 1735)=153
- KINDEX(2, 1735)=574
- KINDEX(1, 1736)=135
- KINDEX(2, 1736)=575
- KINDEX(1, 1737)=137
- KINDEX(2, 1737)=575
- KINDEX(1, 1738)=141
- KINDEX(2, 1738)=575
- KINDEX(1, 1739)=152
- KINDEX(2, 1739)=575
- KINDEX(1, 1740)=126
- KINDEX(2, 1740)=576
- KINDEX(1, 1741)=135
- KINDEX(2, 1741)=576
- KINDEX(1, 1742)=136
- KINDEX(2, 1742)=576
- KINDEX(1, 1743)=146
- KINDEX(2, 1743)=576
- KINDEX(1, 1744)=152
- KINDEX(2, 1744)=576
- KINDEX(1, 1745)=154
- KINDEX(2, 1745)=576
- KINDEX(1, 1746)=156
- KINDEX(2, 1746)=576
- KINDEX(1, 1747)=135
- KINDEX(2, 1747)=577
- KINDEX(1, 1748)=136
- KINDEX(2, 1748)=577
- KINDEX(1, 1749)=137
- KINDEX(2, 1749)=577
- KINDEX(1, 1750)=155
- KINDEX(2, 1750)=577
- KINDEX(1, 1751)=126
- KINDEX(2, 1751)=578
- KINDEX(1, 1752)=135
- KINDEX(2, 1752)=578
- KINDEX(1, 1753)=136
- KINDEX(2, 1753)=578
- KINDEX(1, 1754)=137
- KINDEX(2, 1754)=578
- KINDEX(1, 1755)=146
- KINDEX(2, 1755)=578
- KINDEX(1, 1756)=154
- KINDEX(2, 1756)=578
- KINDEX(1, 1757)=156
- KINDEX(2, 1757)=578
- KINDEX(1, 1758)=135
- KINDEX(2, 1758)=579
- KINDEX(1, 1759)=136
- KINDEX(2, 1759)=579
- KINDEX(1, 1760)=153
- KINDEX(2, 1760)=579
- KINDEX(1, 1761)=155
- KINDEX(2, 1761)=579
- KINDEX(1, 1762)=126
- KINDEX(2, 1762)=580
- KINDEX(1, 1763)=135
- KINDEX(2, 1763)=580
- KINDEX(1, 1764)=136
- KINDEX(2, 1764)=580
- KINDEX(1, 1765)=137
- KINDEX(2, 1765)=580
- KINDEX(1, 1766)=153
- KINDEX(2, 1766)=580
- KINDEX(1, 1767)=135
- KINDEX(2, 1767)=581
- KINDEX(1, 1768)=156
- KINDEX(2, 1768)=581
+ KINDEX(2, 560)=122
+ KINDEX(1, 561)=19
+ KINDEX(2, 561)=122
+ KINDEX(1, 562)=22
+ KINDEX(2, 562)=122
+ KINDEX(1, 563)=23
+ KINDEX(2, 563)=122
+ KINDEX(1, 564)=24
+ KINDEX(2, 564)=122
+ KINDEX(1, 565)=25
+ KINDEX(2, 565)=122
+ KINDEX(1, 566)=35
+ KINDEX(2, 566)=122
+ KINDEX(1, 567)=4
+ KINDEX(2, 567)=123
+ KINDEX(1, 568)=5
+ KINDEX(2, 568)=123
+ KINDEX(1, 569)=15
+ KINDEX(2, 569)=123
+ KINDEX(1, 570)=25
+ KINDEX(2, 570)=123
+ KINDEX(1, 571)=38
+ KINDEX(2, 571)=123
+ KINDEX(1, 572)=4
+ KINDEX(2, 572)=124
+ KINDEX(1, 573)=5
+ KINDEX(2, 573)=124
+ KINDEX(1, 574)=15
+ KINDEX(2, 574)=124
+ KINDEX(1, 575)=22
+ KINDEX(2, 575)=124
+ KINDEX(1, 576)=23
+ KINDEX(2, 576)=124
+ KINDEX(1, 577)=25
+ KINDEX(2, 577)=124
+ KINDEX(1, 578)=32
+ KINDEX(2, 578)=124
+ KINDEX(1, 579)=39
+ KINDEX(2, 579)=124
+ KINDEX(1, 580)=41
+ KINDEX(2, 580)=124
+ KINDEX(1, 581)=4
+ KINDEX(2, 581)=125
+ KINDEX(1, 582)=5
+ KINDEX(2, 582)=125
+ KINDEX(1, 583)=15
+ KINDEX(2, 583)=125
+ KINDEX(1, 584)=22
+ KINDEX(2, 584)=125
+ KINDEX(1, 585)=23
+ KINDEX(2, 585)=125
+ KINDEX(1, 586)=24
+ KINDEX(2, 586)=125
+ KINDEX(1, 587)=26
+ KINDEX(2, 587)=125
+ KINDEX(1, 588)=40
+ KINDEX(2, 588)=125
+ KINDEX(1, 589)=15
+ KINDEX(2, 589)=126
+ KINDEX(1, 590)=29
+ KINDEX(2, 590)=126
+ KINDEX(1, 591)=41
+ KINDEX(2, 591)=126
+ KINDEX(1, 592)=15
+ KINDEX(2, 592)=127
+ KINDEX(1, 593)=22
+ KINDEX(2, 593)=127
+ KINDEX(1, 594)=32
+ KINDEX(2, 594)=127
+ KINDEX(1, 595)=41
+ KINDEX(2, 595)=127
+ KINDEX(1, 596)=32
+ KINDEX(2, 596)=128
+ KINDEX(1, 597)=39
+ KINDEX(2, 597)=128
+ KINDEX(1, 598)=41
+ KINDEX(2, 598)=128
+ KINDEX(1, 599)=41
+ KINDEX(2, 599)=129
+ KINDEX(1, 600)=3
+ KINDEX(2, 600)=130
+ KINDEX(1, 601)=4
+ KINDEX(2, 601)=130
+ KINDEX(1, 602)=41
+ KINDEX(2, 602)=130
+ KINDEX(1, 603)=4
+ KINDEX(2, 603)=131
+ KINDEX(1, 604)=5
+ KINDEX(2, 604)=131
+ KINDEX(1, 605)=41
+ KINDEX(2, 605)=131
+ KINDEX(1, 606)=12
+ KINDEX(2, 606)=132
RETURN
-END SUBROUTINE CH_NONZEROTERMS_AQ
+END SUBROUTINE CH_NONZEROTERMS_GAZ
!!
END SUBROUTINE CH_NONZEROTERMS
!
@@ -102595,1860 +38611,6 @@ ELSE
END IF
CONTAINS
!!
-!! #######################
- SUBROUTINE CH_SPARSE_GAZ
-!! #######################
-!!
-!!*** *MODD_CH_SPARSE*
-!!
-!! PURPOSE
-!! -------
-! calculation of the non-zero matrix elements in the Jacobian
-!!
-!!** METHOD
-!! ------
-!! A 2D array KSPARSE of DIMESNSION(2,*) is returned, containing
-!! the indices of the non-zero matrix elements in the Jacobian.
-!!
-!! REFERENCE
-!! ---------
-!! none
-!!
-!! AUTHOR
-!! ------
-!! Karsten Suhre (LA)
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 26/07/96
-!! Modified 05/05/98: Vectorization (Vincent Crassier & KS)
-!!
-!!----------------------------------------------------------------------
-!!
-!! EXTERNAL
-!! --------
-!! none
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! none
-!!
-!! EXPLICIT ARGUMENTS
-!! ------------------
-IMPLICIT NONE
-!!
-!! LOCAL VARIABLES
-!! ---------------
-!! none
-!!----------------------------------------------------------------------
-!!
-!! EXECUTABLE STATEMENTS
-!! ---------------------
-! check if output array is large enough
-IF (KSPARSEDIM.LT.599) THEN
- STOP 'CH_SPARSE ERROR: array KSPARSE is too small!'
-END IF
-!NO/NO
- KSPARSE(1, 1)=1
- KSPARSE(2, 1)=1
-!NO/NO2
- KSPARSE(1, 2)=1
- KSPARSE(2, 2)=2
-!NO/O3
- KSPARSE(1, 3)=1
- KSPARSE(2, 3)=3
-!NO/HONO
- KSPARSE(1, 4)=1
- KSPARSE(2, 4)=4
-!NO/NO3
- KSPARSE(1, 5)=1
- KSPARSE(2, 5)=8
-!NO/HO2
- KSPARSE(1, 6)=1
- KSPARSE(2, 6)=10
-!NO/OH
- KSPARSE(1, 7)=1
- KSPARSE(2, 7)=15
-!NO/RO2T
- KSPARSE(1, 8)=1
- KSPARSE(2, 8)=85
-!NO/RO21
- KSPARSE(1, 9)=1
- KSPARSE(2, 9)=86
-!NO/RO25
- KSPARSE(1, 10)=1
- KSPARSE(2, 10)=87
-!NO2/NO
- KSPARSE(1, 11)=2
- KSPARSE(2, 11)=1
-!NO2/NO2
- KSPARSE(1, 12)=2
- KSPARSE(2, 12)=2
-!NO2/O3
- KSPARSE(1, 13)=2
- KSPARSE(2, 13)=3
-!NO2/HONO
- KSPARSE(1, 14)=2
- KSPARSE(2, 14)=4
-!NO2/HNO4
- KSPARSE(1, 15)=2
- KSPARSE(2, 15)=6
-!NO2/N2O5
- KSPARSE(1, 16)=2
- KSPARSE(2, 16)=7
-!NO2/NO3
- KSPARSE(1, 17)=2
- KSPARSE(2, 17)=8
-!NO2/HO2
- KSPARSE(1, 18)=2
- KSPARSE(2, 18)=10
-!NO2/OH
- KSPARSE(1, 19)=2
- KSPARSE(2, 19)=15
-!NO2/APAN
- KSPARSE(1, 20)=2
- KSPARSE(2, 20)=76
-!NO2/PAN1
- KSPARSE(1, 21)=2
- KSPARSE(2, 21)=77
-!NO2/PAN2
- KSPARSE(1, 22)=2
- KSPARSE(2, 22)=78
-!NO2/PAN3
- KSPARSE(1, 23)=2
- KSPARSE(2, 23)=79
-!NO2/PAN4
- KSPARSE(1, 24)=2
- KSPARSE(2, 24)=80
-!NO2/PAN6
- KSPARSE(1, 25)=2
- KSPARSE(2, 25)=81
-!NO2/PAN7
- KSPARSE(1, 26)=2
- KSPARSE(2, 26)=82
-!NO2/PAN8
- KSPARSE(1, 27)=2
- KSPARSE(2, 27)=83
-!NO2/PN10
- KSPARSE(1, 28)=2
- KSPARSE(2, 28)=84
-!NO2/RO2T
- KSPARSE(1, 29)=2
- KSPARSE(2, 29)=85
-!NO2/RO21
- KSPARSE(1, 30)=2
- KSPARSE(2, 30)=86
-!NO2/RO25
- KSPARSE(1, 31)=2
- KSPARSE(2, 31)=87
-!O3/NO
- KSPARSE(1, 32)=3
- KSPARSE(2, 32)=1
-!O3/NO2
- KSPARSE(1, 33)=3
- KSPARSE(2, 33)=2
-!O3/O3
- KSPARSE(1, 34)=3
- KSPARSE(2, 34)=3
-!O3/NO3
- KSPARSE(1, 35)=3
- KSPARSE(2, 35)=8
-!O3/HO2
- KSPARSE(1, 36)=3
- KSPARSE(2, 36)=10
-!O3/OH
- KSPARSE(1, 37)=3
- KSPARSE(2, 37)=15
-!O3/ETHE
- KSPARSE(1, 38)=3
- KSPARSE(2, 38)=16
-!O3/OLEL
- KSPARSE(1, 39)=3
- KSPARSE(2, 39)=17
-!O3/OLEH
- KSPARSE(1, 40)=3
- KSPARSE(2, 40)=18
-!O3/ARAL
- KSPARSE(1, 41)=3
- KSPARSE(2, 41)=25
-!O3/ISOP
- KSPARSE(1, 42)=3
- KSPARSE(2, 42)=35
-!O3/BIOL
- KSPARSE(1, 43)=3
- KSPARSE(2, 43)=36
-!O3/BIOH
- KSPARSE(1, 44)=3
- KSPARSE(2, 44)=37
-!O3/MVK
- KSPARSE(1, 45)=3
- KSPARSE(2, 45)=39
-!O3/MCR
- KSPARSE(1, 46)=3
- KSPARSE(2, 46)=40
-!O3/RPG2
- KSPARSE(1, 47)=3
- KSPARSE(2, 47)=50
-!O3/RP18
- KSPARSE(1, 48)=3
- KSPARSE(2, 48)=51
-!O3/RPG3
- KSPARSE(1, 49)=3
- KSPARSE(2, 49)=52
-!O3/RPR7
- KSPARSE(1, 50)=3
- KSPARSE(2, 50)=62
-!O3/RPG7
- KSPARSE(1, 51)=3
- KSPARSE(2, 51)=63
-!O3/RPR5
- KSPARSE(1, 52)=3
- KSPARSE(2, 52)=70
-!O3/RP11
- KSPARSE(1, 53)=3
- KSPARSE(2, 53)=73
-!O3/RPRL
- KSPARSE(1, 54)=3
- KSPARSE(2, 54)=75
-!HONO/NO
- KSPARSE(1, 55)=4
- KSPARSE(2, 55)=1
-!HONO/NO2
- KSPARSE(1, 56)=4
- KSPARSE(2, 56)=2
-!HONO/HONO
- KSPARSE(1, 57)=4
- KSPARSE(2, 57)=4
-!HONO/OH
- KSPARSE(1, 58)=4
- KSPARSE(2, 58)=15
-!HNO3/NO2
- KSPARSE(1, 59)=5
- KSPARSE(2, 59)=2
-!HNO3/HNO3
- KSPARSE(1, 60)=5
- KSPARSE(2, 60)=5
-!HNO3/N2O5
- KSPARSE(1, 61)=5
- KSPARSE(2, 61)=7
-!HNO3/NO3
- KSPARSE(1, 62)=5
- KSPARSE(2, 62)=8
-!HNO3/HO2
- KSPARSE(1, 63)=5
- KSPARSE(2, 63)=10
-!HNO3/OH
- KSPARSE(1, 64)=5
- KSPARSE(2, 64)=15
-!HNO3/AROO
- KSPARSE(1, 65)=5
- KSPARSE(2, 65)=24
-!HNO3/ARAL
- KSPARSE(1, 66)=5
- KSPARSE(2, 66)=25
-!HNO3/HCHO
- KSPARSE(1, 67)=5
- KSPARSE(2, 67)=28
-!HNO3/ALD2
- KSPARSE(1, 68)=5
- KSPARSE(2, 68)=29
-!HNO3/MCR
- KSPARSE(1, 69)=5
- KSPARSE(2, 69)=40
-!HNO3/MGLY
- KSPARSE(1, 70)=5
- KSPARSE(2, 70)=41
-!HNO3/RPR3
- KSPARSE(1, 71)=5
- KSPARSE(2, 71)=57
-!HNO3/RPR4
- KSPARSE(1, 72)=5
- KSPARSE(2, 72)=61
-!HNO3/RPR1
- KSPARSE(1, 73)=5
- KSPARSE(2, 73)=69
-!HNO3/RPR8
- KSPARSE(1, 74)=5
- KSPARSE(2, 74)=71
-!HNO3/RP16
- KSPARSE(1, 75)=5
- KSPARSE(2, 75)=74
-!HNO4/NO2
- KSPARSE(1, 76)=6
- KSPARSE(2, 76)=2
-!HNO4/HNO4
- KSPARSE(1, 77)=6
- KSPARSE(2, 77)=6
-!HNO4/HO2
- KSPARSE(1, 78)=6
- KSPARSE(2, 78)=10
-!HNO4/OH
- KSPARSE(1, 79)=6
- KSPARSE(2, 79)=15
-!N2O5/NO2
- KSPARSE(1, 80)=7
- KSPARSE(2, 80)=2
-!N2O5/N2O5
- KSPARSE(1, 81)=7
- KSPARSE(2, 81)=7
-!N2O5/NO3
- KSPARSE(1, 82)=7
- KSPARSE(2, 82)=8
-!NO3/NO
- KSPARSE(1, 83)=8
- KSPARSE(2, 83)=1
-!NO3/NO2
- KSPARSE(1, 84)=8
- KSPARSE(2, 84)=2
-!NO3/O3
- KSPARSE(1, 85)=8
- KSPARSE(2, 85)=3
-!NO3/HNO3
- KSPARSE(1, 86)=8
- KSPARSE(2, 86)=5
-!NO3/N2O5
- KSPARSE(1, 87)=8
- KSPARSE(2, 87)=7
-!NO3/NO3
- KSPARSE(1, 88)=8
- KSPARSE(2, 88)=8
-!NO3/HO2
- KSPARSE(1, 89)=8
- KSPARSE(2, 89)=10
-!NO3/OH
- KSPARSE(1, 90)=8
- KSPARSE(2, 90)=15
-!NO3/ETHE
- KSPARSE(1, 91)=8
- KSPARSE(2, 91)=16
-!NO3/OLEL
- KSPARSE(1, 92)=8
- KSPARSE(2, 92)=17
-!NO3/OLEH
- KSPARSE(1, 93)=8
- KSPARSE(2, 93)=18
-!NO3/AROO
- KSPARSE(1, 94)=8
- KSPARSE(2, 94)=24
-!NO3/ARAL
- KSPARSE(1, 95)=8
- KSPARSE(2, 95)=25
-!NO3/HCHO
- KSPARSE(1, 96)=8
- KSPARSE(2, 96)=28
-!NO3/ALD2
- KSPARSE(1, 97)=8
- KSPARSE(2, 97)=29
-!NO3/ISOP
- KSPARSE(1, 98)=8
- KSPARSE(2, 98)=35
-!NO3/BIOL
- KSPARSE(1, 99)=8
- KSPARSE(2, 99)=36
-!NO3/BIOH
- KSPARSE(1, 100)=8
- KSPARSE(2, 100)=37
-!NO3/MCR
- KSPARSE(1, 101)=8
- KSPARSE(2, 101)=40
-!NO3/MGLY
- KSPARSE(1, 102)=8
- KSPARSE(2, 102)=41
-!NO3/RPR3
- KSPARSE(1, 103)=8
- KSPARSE(2, 103)=57
-!NO3/RPR4
- KSPARSE(1, 104)=8
- KSPARSE(2, 104)=61
-!NO3/RPR1
- KSPARSE(1, 105)=8
- KSPARSE(2, 105)=69
-!NO3/RPR8
- KSPARSE(1, 106)=8
- KSPARSE(2, 106)=71
-!NO3/RP16
- KSPARSE(1, 107)=8
- KSPARSE(2, 107)=74
-!NH3/NH3
- KSPARSE(1, 108)=9
- KSPARSE(2, 108)=9
-!NH3/OH
- KSPARSE(1, 109)=9
- KSPARSE(2, 109)=15
-!HO2/NO
- KSPARSE(1, 110)=10
- KSPARSE(2, 110)=1
-!HO2/NO2
- KSPARSE(1, 111)=10
- KSPARSE(2, 111)=2
-!HO2/O3
- KSPARSE(1, 112)=10
- KSPARSE(2, 112)=3
-!HO2/HONO
- KSPARSE(1, 113)=10
- KSPARSE(2, 113)=4
-!HO2/HNO4
- KSPARSE(1, 114)=10
- KSPARSE(2, 114)=6
-!HO2/NO3
- KSPARSE(1, 115)=10
- KSPARSE(2, 115)=8
-!HO2/HO2
- KSPARSE(1, 116)=10
- KSPARSE(2, 116)=10
-!HO2/CO
- KSPARSE(1, 117)=10
- KSPARSE(2, 117)=11
-!HO2/H2O2
- KSPARSE(1, 118)=10
- KSPARSE(2, 118)=12
-!HO2/SO2
- KSPARSE(1, 119)=10
- KSPARSE(2, 119)=13
-!HO2/OH
- KSPARSE(1, 120)=10
- KSPARSE(2, 120)=15
-!HO2/ETHE
- KSPARSE(1, 121)=10
- KSPARSE(2, 121)=16
-!HO2/OLEL
- KSPARSE(1, 122)=10
- KSPARSE(2, 122)=17
-!HO2/OLEH
- KSPARSE(1, 123)=10
- KSPARSE(2, 123)=18
-!HO2/AROH
- KSPARSE(1, 124)=10
- KSPARSE(2, 124)=22
-!HO2/AROL
- KSPARSE(1, 125)=10
- KSPARSE(2, 125)=23
-!HO2/AROO
- KSPARSE(1, 126)=10
- KSPARSE(2, 126)=24
-!HO2/ARAL
- KSPARSE(1, 127)=10
- KSPARSE(2, 127)=25
-!HO2/ARAC
- KSPARSE(1, 128)=10
- KSPARSE(2, 128)=26
-!HO2/PAH
- KSPARSE(1, 129)=10
- KSPARSE(2, 129)=27
-!HO2/HCHO
- KSPARSE(1, 130)=10
- KSPARSE(2, 130)=28
-!HO2/ALD2
- KSPARSE(1, 131)=10
- KSPARSE(2, 131)=29
-!HO2/MEOH
- KSPARSE(1, 132)=10
- KSPARSE(2, 132)=32
-!HO2/ETOH
- KSPARSE(1, 133)=10
- KSPARSE(2, 133)=33
-!HO2/ISOP
- KSPARSE(1, 134)=10
- KSPARSE(2, 134)=35
-!HO2/BIOL
- KSPARSE(1, 135)=10
- KSPARSE(2, 135)=36
-!HO2/MVK
- KSPARSE(1, 136)=10
- KSPARSE(2, 136)=39
-!HO2/MCR
- KSPARSE(1, 137)=10
- KSPARSE(2, 137)=40
-!HO2/MGLY
- KSPARSE(1, 138)=10
- KSPARSE(2, 138)=41
-!HO2/ORA1
- KSPARSE(1, 139)=10
- KSPARSE(2, 139)=43
-!HO2/RPR3
- KSPARSE(1, 140)=10
- KSPARSE(2, 140)=57
-!HO2/RPR1
- KSPARSE(1, 141)=10
- KSPARSE(2, 141)=69
-!HO2/RPR8
- KSPARSE(1, 142)=10
- KSPARSE(2, 142)=71
-!HO2/RP10
- KSPARSE(1, 143)=10
- KSPARSE(2, 143)=72
-!HO2/RP16
- KSPARSE(1, 144)=10
- KSPARSE(2, 144)=74
-!HO2/RO2T
- KSPARSE(1, 145)=10
- KSPARSE(2, 145)=85
-!HO2/RO21
- KSPARSE(1, 146)=10
- KSPARSE(2, 146)=86
-!HO2/RO25
- KSPARSE(1, 147)=10
- KSPARSE(2, 147)=87
-!CO/NO
- KSPARSE(1, 148)=11
- KSPARSE(2, 148)=1
-!CO/O3
- KSPARSE(1, 149)=11
- KSPARSE(2, 149)=3
-!CO/NO3
- KSPARSE(1, 150)=11
- KSPARSE(2, 150)=8
-!CO/HO2
- KSPARSE(1, 151)=11
- KSPARSE(2, 151)=10
-!CO/CO
- KSPARSE(1, 152)=11
- KSPARSE(2, 152)=11
-!CO/OH
- KSPARSE(1, 153)=11
- KSPARSE(2, 153)=15
-!CO/ETHE
- KSPARSE(1, 154)=11
- KSPARSE(2, 154)=16
-!CO/OLEL
- KSPARSE(1, 155)=11
- KSPARSE(2, 155)=17
-!CO/OLEH
- KSPARSE(1, 156)=11
- KSPARSE(2, 156)=18
-!CO/HCHO
- KSPARSE(1, 157)=11
- KSPARSE(2, 157)=28
-!CO/ALD2
- KSPARSE(1, 158)=11
- KSPARSE(2, 158)=29
-!CO/ISOP
- KSPARSE(1, 159)=11
- KSPARSE(2, 159)=35
-!CO/BIOL
- KSPARSE(1, 160)=11
- KSPARSE(2, 160)=36
-!CO/BIOH
- KSPARSE(1, 161)=11
- KSPARSE(2, 161)=37
-!CO/MVK
- KSPARSE(1, 162)=11
- KSPARSE(2, 162)=39
-!CO/MCR
- KSPARSE(1, 163)=11
- KSPARSE(2, 163)=40
-!CO/MGLY
- KSPARSE(1, 164)=11
- KSPARSE(2, 164)=41
-!CO/RPR3
- KSPARSE(1, 165)=11
- KSPARSE(2, 165)=57
-!CO/RPR1
- KSPARSE(1, 166)=11
- KSPARSE(2, 166)=69
-!CO/RPR8
- KSPARSE(1, 167)=11
- KSPARSE(2, 167)=71
-!CO/RP16
- KSPARSE(1, 168)=11
- KSPARSE(2, 168)=74
-!CO/RO2T
- KSPARSE(1, 169)=11
- KSPARSE(2, 169)=85
-!H2O2/O3
- KSPARSE(1, 170)=12
- KSPARSE(2, 170)=3
-!H2O2/HO2
- KSPARSE(1, 171)=12
- KSPARSE(2, 171)=10
-!H2O2/H2O2
- KSPARSE(1, 172)=12
- KSPARSE(2, 172)=12
-!H2O2/OH
- KSPARSE(1, 173)=12
- KSPARSE(2, 173)=15
-!H2O2/BIOL
- KSPARSE(1, 174)=12
- KSPARSE(2, 174)=36
-!H2O2/BIOH
- KSPARSE(1, 175)=12
- KSPARSE(2, 175)=37
-!SO2/SO2
- KSPARSE(1, 176)=13
- KSPARSE(2, 176)=13
-!SO2/OH
- KSPARSE(1, 177)=13
- KSPARSE(2, 177)=15
-!H2SO4/SO2
- KSPARSE(1, 178)=14
- KSPARSE(2, 178)=13
-!H2SO4/H2SO4
- KSPARSE(1, 179)=14
- KSPARSE(2, 179)=14
-!H2SO4/OH
- KSPARSE(1, 180)=14
- KSPARSE(2, 180)=15
-!OH/NO
- KSPARSE(1, 181)=15
- KSPARSE(2, 181)=1
-!OH/NO2
- KSPARSE(1, 182)=15
- KSPARSE(2, 182)=2
-!OH/O3
- KSPARSE(1, 183)=15
- KSPARSE(2, 183)=3
-!OH/HONO
- KSPARSE(1, 184)=15
- KSPARSE(2, 184)=4
-!OH/HNO3
- KSPARSE(1, 185)=15
- KSPARSE(2, 185)=5
-!OH/HNO4
- KSPARSE(1, 186)=15
- KSPARSE(2, 186)=6
-!OH/NO3
- KSPARSE(1, 187)=15
- KSPARSE(2, 187)=8
-!OH/NH3
- KSPARSE(1, 188)=15
- KSPARSE(2, 188)=9
-!OH/HO2
- KSPARSE(1, 189)=15
- KSPARSE(2, 189)=10
-!OH/CO
- KSPARSE(1, 190)=15
- KSPARSE(2, 190)=11
-!OH/H2O2
- KSPARSE(1, 191)=15
- KSPARSE(2, 191)=12
-!OH/SO2
- KSPARSE(1, 192)=15
- KSPARSE(2, 192)=13
-!OH/OH
- KSPARSE(1, 193)=15
- KSPARSE(2, 193)=15
-!OH/ETHE
- KSPARSE(1, 194)=15
- KSPARSE(2, 194)=16
-!OH/OLEL
- KSPARSE(1, 195)=15
- KSPARSE(2, 195)=17
-!OH/OLEH
- KSPARSE(1, 196)=15
- KSPARSE(2, 196)=18
-!OH/ALKL
- KSPARSE(1, 197)=15
- KSPARSE(2, 197)=19
-!OH/ALKM
- KSPARSE(1, 198)=15
- KSPARSE(2, 198)=20
-!OH/ALKH
- KSPARSE(1, 199)=15
- KSPARSE(2, 199)=21
-!OH/AROH
- KSPARSE(1, 200)=15
- KSPARSE(2, 200)=22
-!OH/AROL
- KSPARSE(1, 201)=15
- KSPARSE(2, 201)=23
-!OH/AROO
- KSPARSE(1, 202)=15
- KSPARSE(2, 202)=24
-!OH/ARAL
- KSPARSE(1, 203)=15
- KSPARSE(2, 203)=25
-!OH/ARAC
- KSPARSE(1, 204)=15
- KSPARSE(2, 204)=26
-!OH/PAH
- KSPARSE(1, 205)=15
- KSPARSE(2, 205)=27
-!OH/HCHO
- KSPARSE(1, 206)=15
- KSPARSE(2, 206)=28
-!OH/ALD2
- KSPARSE(1, 207)=15
- KSPARSE(2, 207)=29
-!OH/KETL
- KSPARSE(1, 208)=15
- KSPARSE(2, 208)=30
-!OH/KETH
- KSPARSE(1, 209)=15
- KSPARSE(2, 209)=31
-!OH/MEOH
- KSPARSE(1, 210)=15
- KSPARSE(2, 210)=32
-!OH/ETOH
- KSPARSE(1, 211)=15
- KSPARSE(2, 211)=33
-!OH/ALCH
- KSPARSE(1, 212)=15
- KSPARSE(2, 212)=34
-!OH/ISOP
- KSPARSE(1, 213)=15
- KSPARSE(2, 213)=35
-!OH/BIOL
- KSPARSE(1, 214)=15
- KSPARSE(2, 214)=36
-!OH/BIOH
- KSPARSE(1, 215)=15
- KSPARSE(2, 215)=37
-!OH/MTBE
- KSPARSE(1, 216)=15
- KSPARSE(2, 216)=38
-!OH/MVK
- KSPARSE(1, 217)=15
- KSPARSE(2, 217)=39
-!OH/MCR
- KSPARSE(1, 218)=15
- KSPARSE(2, 218)=40
-!OH/MGLY
- KSPARSE(1, 219)=15
- KSPARSE(2, 219)=41
-!OH/ORA1
- KSPARSE(1, 220)=15
- KSPARSE(2, 220)=43
-!OH/ORA2
- KSPARSE(1, 221)=15
- KSPARSE(2, 221)=44
-!OH/ACID
- KSPARSE(1, 222)=15
- KSPARSE(2, 222)=45
-!OH/RPG2
- KSPARSE(1, 223)=15
- KSPARSE(2, 223)=50
-!OH/RP18
- KSPARSE(1, 224)=15
- KSPARSE(2, 224)=51
-!OH/RPG3
- KSPARSE(1, 225)=15
- KSPARSE(2, 225)=52
-!OH/RPR3
- KSPARSE(1, 226)=15
- KSPARSE(2, 226)=57
-!OH/RPR7
- KSPARSE(1, 227)=15
- KSPARSE(2, 227)=62
-!OH/RPG7
- KSPARSE(1, 228)=15
- KSPARSE(2, 228)=63
-!OH/RPR1
- KSPARSE(1, 229)=15
- KSPARSE(2, 229)=69
-!OH/RPR5
- KSPARSE(1, 230)=15
- KSPARSE(2, 230)=70
-!OH/RPR8
- KSPARSE(1, 231)=15
- KSPARSE(2, 231)=71
-!OH/RP10
- KSPARSE(1, 232)=15
- KSPARSE(2, 232)=72
-!OH/RP11
- KSPARSE(1, 233)=15
- KSPARSE(2, 233)=73
-!OH/RP16
- KSPARSE(1, 234)=15
- KSPARSE(2, 234)=74
-!OH/RPRL
- KSPARSE(1, 235)=15
- KSPARSE(2, 235)=75
-!OH/RO2T
- KSPARSE(1, 236)=15
- KSPARSE(2, 236)=85
-!OH/RO21
- KSPARSE(1, 237)=15
- KSPARSE(2, 237)=86
-!OH/RO25
- KSPARSE(1, 238)=15
- KSPARSE(2, 238)=87
-!ETHE/O3
- KSPARSE(1, 239)=16
- KSPARSE(2, 239)=3
-!ETHE/NO3
- KSPARSE(1, 240)=16
- KSPARSE(2, 240)=8
-!ETHE/OH
- KSPARSE(1, 241)=16
- KSPARSE(2, 241)=15
-!ETHE/ETHE
- KSPARSE(1, 242)=16
- KSPARSE(2, 242)=16
-!OLEL/NO
- KSPARSE(1, 243)=17
- KSPARSE(2, 243)=1
-!OLEL/O3
- KSPARSE(1, 244)=17
- KSPARSE(2, 244)=3
-!OLEL/NO3
- KSPARSE(1, 245)=17
- KSPARSE(2, 245)=8
-!OLEL/HO2
- KSPARSE(1, 246)=17
- KSPARSE(2, 246)=10
-!OLEL/OH
- KSPARSE(1, 247)=17
- KSPARSE(2, 247)=15
-!OLEL/OLEL
- KSPARSE(1, 248)=17
- KSPARSE(2, 248)=17
-!OLEL/ISOP
- KSPARSE(1, 249)=17
- KSPARSE(2, 249)=35
-!OLEH/O3
- KSPARSE(1, 250)=18
- KSPARSE(2, 250)=3
-!OLEH/NO3
- KSPARSE(1, 251)=18
- KSPARSE(2, 251)=8
-!OLEH/OH
- KSPARSE(1, 252)=18
- KSPARSE(2, 252)=15
-!OLEH/OLEH
- KSPARSE(1, 253)=18
- KSPARSE(2, 253)=18
-!ALKL/NO
- KSPARSE(1, 254)=19
- KSPARSE(2, 254)=1
-!ALKL/O3
- KSPARSE(1, 255)=19
- KSPARSE(2, 255)=3
-!ALKL/HO2
- KSPARSE(1, 256)=19
- KSPARSE(2, 256)=10
-!ALKL/OH
- KSPARSE(1, 257)=19
- KSPARSE(2, 257)=15
-!ALKL/OLEL
- KSPARSE(1, 258)=19
- KSPARSE(2, 258)=17
-!ALKL/ALKL
- KSPARSE(1, 259)=19
- KSPARSE(2, 259)=19
-!ALKL/RO2T
- KSPARSE(1, 260)=19
- KSPARSE(2, 260)=85
-!ALKL/RO25
- KSPARSE(1, 261)=19
- KSPARSE(2, 261)=87
-!ALKM/O3
- KSPARSE(1, 262)=20
- KSPARSE(2, 262)=3
-!ALKM/OH
- KSPARSE(1, 263)=20
- KSPARSE(2, 263)=15
-!ALKM/OLEH
- KSPARSE(1, 264)=20
- KSPARSE(2, 264)=18
-!ALKM/ALKM
- KSPARSE(1, 265)=20
- KSPARSE(2, 265)=20
-!ALKH/OH
- KSPARSE(1, 266)=21
- KSPARSE(2, 266)=15
-!ALKH/ALKH
- KSPARSE(1, 267)=21
- KSPARSE(2, 267)=21
-!AROH/OH
- KSPARSE(1, 268)=22
- KSPARSE(2, 268)=15
-!AROH/AROH
- KSPARSE(1, 269)=22
- KSPARSE(2, 269)=22
-!AROL/OH
- KSPARSE(1, 270)=23
- KSPARSE(2, 270)=15
-!AROL/AROL
- KSPARSE(1, 271)=23
- KSPARSE(2, 271)=23
-!AROO/NO3
- KSPARSE(1, 272)=24
- KSPARSE(2, 272)=8
-!AROO/OH
- KSPARSE(1, 273)=24
- KSPARSE(2, 273)=15
-!AROO/AROH
- KSPARSE(1, 274)=24
- KSPARSE(2, 274)=22
-!AROO/AROL
- KSPARSE(1, 275)=24
- KSPARSE(2, 275)=23
-!AROO/AROO
- KSPARSE(1, 276)=24
- KSPARSE(2, 276)=24
-!ARAL/NO
- KSPARSE(1, 277)=25
- KSPARSE(2, 277)=1
-!ARAL/NO3
- KSPARSE(1, 278)=25
- KSPARSE(2, 278)=8
-!ARAL/HO2
- KSPARSE(1, 279)=25
- KSPARSE(2, 279)=10
-!ARAL/OH
- KSPARSE(1, 280)=25
- KSPARSE(2, 280)=15
-!ARAL/ARAL
- KSPARSE(1, 281)=25
- KSPARSE(2, 281)=25
-!ARAL/RO2T
- KSPARSE(1, 282)=25
- KSPARSE(2, 282)=85
-!ARAC/NO3
- KSPARSE(1, 283)=26
- KSPARSE(2, 283)=8
-!ARAC/OH
- KSPARSE(1, 284)=26
- KSPARSE(2, 284)=15
-!ARAC/ARAL
- KSPARSE(1, 285)=26
- KSPARSE(2, 285)=25
-!ARAC/ARAC
- KSPARSE(1, 286)=26
- KSPARSE(2, 286)=26
-!PAH/OH
- KSPARSE(1, 287)=27
- KSPARSE(2, 287)=15
-!PAH/PAH
- KSPARSE(1, 288)=27
- KSPARSE(2, 288)=27
-!HCHO/NO
- KSPARSE(1, 289)=28
- KSPARSE(2, 289)=1
-!HCHO/O3
- KSPARSE(1, 290)=28
- KSPARSE(2, 290)=3
-!HCHO/NO3
- KSPARSE(1, 291)=28
- KSPARSE(2, 291)=8
-!HCHO/HO2
- KSPARSE(1, 292)=28
- KSPARSE(2, 292)=10
-!HCHO/OH
- KSPARSE(1, 293)=28
- KSPARSE(2, 293)=15
-!HCHO/ETHE
- KSPARSE(1, 294)=28
- KSPARSE(2, 294)=16
-!HCHO/OLEL
- KSPARSE(1, 295)=28
- KSPARSE(2, 295)=17
-!HCHO/OLEH
- KSPARSE(1, 296)=28
- KSPARSE(2, 296)=18
-!HCHO/HCHO
- KSPARSE(1, 297)=28
- KSPARSE(2, 297)=28
-!HCHO/MEOH
- KSPARSE(1, 298)=28
- KSPARSE(2, 298)=32
-!HCHO/ISOP
- KSPARSE(1, 299)=28
- KSPARSE(2, 299)=35
-!HCHO/MVK
- KSPARSE(1, 300)=28
- KSPARSE(2, 300)=39
-!HCHO/MCR
- KSPARSE(1, 301)=28
- KSPARSE(2, 301)=40
-!HCHO/RO2T
- KSPARSE(1, 302)=28
- KSPARSE(2, 302)=85
-!HCHO/RO21
- KSPARSE(1, 303)=28
- KSPARSE(2, 303)=86
-!ALD2/NO
- KSPARSE(1, 304)=29
- KSPARSE(2, 304)=1
-!ALD2/O3
- KSPARSE(1, 305)=29
- KSPARSE(2, 305)=3
-!ALD2/NO3
- KSPARSE(1, 306)=29
- KSPARSE(2, 306)=8
-!ALD2/HO2
- KSPARSE(1, 307)=29
- KSPARSE(2, 307)=10
-!ALD2/OH
- KSPARSE(1, 308)=29
- KSPARSE(2, 308)=15
-!ALD2/OLEL
- KSPARSE(1, 309)=29
- KSPARSE(2, 309)=17
-!ALD2/ALD2
- KSPARSE(1, 310)=29
- KSPARSE(2, 310)=29
-!ALD2/ETOH
- KSPARSE(1, 311)=29
- KSPARSE(2, 311)=33
-!ALD2/ISOP
- KSPARSE(1, 312)=29
- KSPARSE(2, 312)=35
-!ALD2/MVK
- KSPARSE(1, 313)=29
- KSPARSE(2, 313)=39
-!ALD2/MCR
- KSPARSE(1, 314)=29
- KSPARSE(2, 314)=40
-!ALD2/RO2T
- KSPARSE(1, 315)=29
- KSPARSE(2, 315)=85
-!ALD2/RO25
- KSPARSE(1, 316)=29
- KSPARSE(2, 316)=87
-!KETL/NO
- KSPARSE(1, 317)=30
- KSPARSE(2, 317)=1
-!KETL/HO2
- KSPARSE(1, 318)=30
- KSPARSE(2, 318)=10
-!KETL/OH
- KSPARSE(1, 319)=30
- KSPARSE(2, 319)=15
-!KETL/KETL
- KSPARSE(1, 320)=30
- KSPARSE(2, 320)=30
-!KETL/MVK
- KSPARSE(1, 321)=30
- KSPARSE(2, 321)=39
-!KETL/RO2T
- KSPARSE(1, 322)=30
- KSPARSE(2, 322)=85
-!KETH/OH
- KSPARSE(1, 323)=31
- KSPARSE(2, 323)=15
-!KETH/KETH
- KSPARSE(1, 324)=31
- KSPARSE(2, 324)=31
-!MEOH/OH
- KSPARSE(1, 325)=32
- KSPARSE(2, 325)=15
-!MEOH/MEOH
- KSPARSE(1, 326)=32
- KSPARSE(2, 326)=32
-!ETOH/OH
- KSPARSE(1, 327)=33
- KSPARSE(2, 327)=15
-!ETOH/ETOH
- KSPARSE(1, 328)=33
- KSPARSE(2, 328)=33
-!ALCH/OH
- KSPARSE(1, 329)=34
- KSPARSE(2, 329)=15
-!ALCH/ALCH
- KSPARSE(1, 330)=34
- KSPARSE(2, 330)=34
-!ISOP/O3
- KSPARSE(1, 331)=35
- KSPARSE(2, 331)=3
-!ISOP/NO3
- KSPARSE(1, 332)=35
- KSPARSE(2, 332)=8
-!ISOP/OH
- KSPARSE(1, 333)=35
- KSPARSE(2, 333)=15
-!ISOP/ISOP
- KSPARSE(1, 334)=35
- KSPARSE(2, 334)=35
-!BIOL/O3
- KSPARSE(1, 335)=36
- KSPARSE(2, 335)=3
-!BIOL/NO3
- KSPARSE(1, 336)=36
- KSPARSE(2, 336)=8
-!BIOL/OH
- KSPARSE(1, 337)=36
- KSPARSE(2, 337)=15
-!BIOL/BIOL
- KSPARSE(1, 338)=36
- KSPARSE(2, 338)=36
-!BIOH/O3
- KSPARSE(1, 339)=37
- KSPARSE(2, 339)=3
-!BIOH/NO3
- KSPARSE(1, 340)=37
- KSPARSE(2, 340)=8
-!BIOH/OH
- KSPARSE(1, 341)=37
- KSPARSE(2, 341)=15
-!BIOH/BIOH
- KSPARSE(1, 342)=37
- KSPARSE(2, 342)=37
-!MTBE/OH
- KSPARSE(1, 343)=38
- KSPARSE(2, 343)=15
-!MTBE/MTBE
- KSPARSE(1, 344)=38
- KSPARSE(2, 344)=38
-!MVK/NO
- KSPARSE(1, 345)=39
- KSPARSE(2, 345)=1
-!MVK/O3
- KSPARSE(1, 346)=39
- KSPARSE(2, 346)=3
-!MVK/HO2
- KSPARSE(1, 347)=39
- KSPARSE(2, 347)=10
-!MVK/OH
- KSPARSE(1, 348)=39
- KSPARSE(2, 348)=15
-!MVK/ISOP
- KSPARSE(1, 349)=39
- KSPARSE(2, 349)=35
-!MVK/MVK
- KSPARSE(1, 350)=39
- KSPARSE(2, 350)=39
-!MVK/RO2T
- KSPARSE(1, 351)=39
- KSPARSE(2, 351)=85
-!MCR/NO
- KSPARSE(1, 352)=40
- KSPARSE(2, 352)=1
-!MCR/O3
- KSPARSE(1, 353)=40
- KSPARSE(2, 353)=3
-!MCR/NO3
- KSPARSE(1, 354)=40
- KSPARSE(2, 354)=8
-!MCR/HO2
- KSPARSE(1, 355)=40
- KSPARSE(2, 355)=10
-!MCR/OH
- KSPARSE(1, 356)=40
- KSPARSE(2, 356)=15
-!MCR/ISOP
- KSPARSE(1, 357)=40
- KSPARSE(2, 357)=35
-!MCR/MCR
- KSPARSE(1, 358)=40
- KSPARSE(2, 358)=40
-!MCR/RO2T
- KSPARSE(1, 359)=40
- KSPARSE(2, 359)=85
-!MGLY/NO
- KSPARSE(1, 360)=41
- KSPARSE(2, 360)=1
-!MGLY/O3
- KSPARSE(1, 361)=41
- KSPARSE(2, 361)=3
-!MGLY/NO3
- KSPARSE(1, 362)=41
- KSPARSE(2, 362)=8
-!MGLY/HO2
- KSPARSE(1, 363)=41
- KSPARSE(2, 363)=10
-!MGLY/OH
- KSPARSE(1, 364)=41
- KSPARSE(2, 364)=15
-!MGLY/MVK
- KSPARSE(1, 365)=41
- KSPARSE(2, 365)=39
-!MGLY/MCR
- KSPARSE(1, 366)=41
- KSPARSE(2, 366)=40
-!MGLY/MGLY
- KSPARSE(1, 367)=41
- KSPARSE(2, 367)=41
-!MGLY/RO2T
- KSPARSE(1, 368)=41
- KSPARSE(2, 368)=85
-!ORA1/O3
- KSPARSE(1, 369)=43
- KSPARSE(2, 369)=3
-!ORA1/OH
- KSPARSE(1, 370)=43
- KSPARSE(2, 370)=15
-!ORA1/ETHE
- KSPARSE(1, 371)=43
- KSPARSE(2, 371)=16
-!ORA1/OLEL
- KSPARSE(1, 372)=43
- KSPARSE(2, 372)=17
-!ORA1/ISOP
- KSPARSE(1, 373)=43
- KSPARSE(2, 373)=35
-!ORA1/MVK
- KSPARSE(1, 374)=43
- KSPARSE(2, 374)=39
-!ORA1/MCR
- KSPARSE(1, 375)=43
- KSPARSE(2, 375)=40
-!ORA1/ORA1
- KSPARSE(1, 376)=43
- KSPARSE(2, 376)=43
-!ORA2/O3
- KSPARSE(1, 377)=44
- KSPARSE(2, 377)=3
-!ORA2/HO2
- KSPARSE(1, 378)=44
- KSPARSE(2, 378)=10
-!ORA2/OH
- KSPARSE(1, 379)=44
- KSPARSE(2, 379)=15
-!ORA2/OLEL
- KSPARSE(1, 380)=44
- KSPARSE(2, 380)=17
-!ORA2/ORA2
- KSPARSE(1, 381)=44
- KSPARSE(2, 381)=44
-!ACID/O3
- KSPARSE(1, 382)=45
- KSPARSE(2, 382)=3
-!ACID/HO2
- KSPARSE(1, 383)=45
- KSPARSE(2, 383)=10
-!ACID/OH
- KSPARSE(1, 384)=45
- KSPARSE(2, 384)=15
-!ACID/OLEH
- KSPARSE(1, 385)=45
- KSPARSE(2, 385)=18
-!ACID/ACID
- KSPARSE(1, 386)=45
- KSPARSE(2, 386)=45
-!UR28/HO2
- KSPARSE(1, 387)=46
- KSPARSE(2, 387)=10
-!UR28/UR28
- KSPARSE(1, 388)=46
- KSPARSE(2, 388)=46
-!UR21/O3
- KSPARSE(1, 389)=47
- KSPARSE(2, 389)=3
-!UR21/HO2
- KSPARSE(1, 390)=47
- KSPARSE(2, 390)=10
-!UR21/MVK
- KSPARSE(1, 391)=47
- KSPARSE(2, 391)=39
-!UR21/UR21
- KSPARSE(1, 392)=47
- KSPARSE(2, 392)=47
-!URG2/OH
- KSPARSE(1, 393)=48
- KSPARSE(2, 393)=15
-!URG2/URG2
- KSPARSE(1, 394)=48
- KSPARSE(2, 394)=48
-!URG2/RPG2
- KSPARSE(1, 395)=48
- KSPARSE(2, 395)=50
-!URG2/RP18
- KSPARSE(1, 396)=48
- KSPARSE(2, 396)=51
-!UR26/OH
- KSPARSE(1, 397)=49
- KSPARSE(2, 397)=15
-!UR26/UR26
- KSPARSE(1, 398)=49
- KSPARSE(2, 398)=49
-!UR26/RP11
- KSPARSE(1, 399)=49
- KSPARSE(2, 399)=73
-!RPG2/NO
- KSPARSE(1, 400)=50
- KSPARSE(2, 400)=1
-!RPG2/HO2
- KSPARSE(1, 401)=50
- KSPARSE(2, 401)=10
-!RPG2/OH
- KSPARSE(1, 402)=50
- KSPARSE(2, 402)=15
-!RPG2/RPG2
- KSPARSE(1, 403)=50
- KSPARSE(2, 403)=50
-!RPG2/RPG3
- KSPARSE(1, 404)=50
- KSPARSE(2, 404)=52
-!RPG2/RO2T
- KSPARSE(1, 405)=50
- KSPARSE(2, 405)=85
-!RP18/OH
- KSPARSE(1, 406)=51
- KSPARSE(2, 406)=15
-!RP18/RPG2
- KSPARSE(1, 407)=51
- KSPARSE(2, 407)=50
-!RP18/RP18
- KSPARSE(1, 408)=51
- KSPARSE(2, 408)=51
-!RPG3/NO
- KSPARSE(1, 409)=52
- KSPARSE(2, 409)=1
-!RPG3/HO2
- KSPARSE(1, 410)=52
- KSPARSE(2, 410)=10
-!RPG3/OH
- KSPARSE(1, 411)=52
- KSPARSE(2, 411)=15
-!RPG3/RPG3
- KSPARSE(1, 412)=52
- KSPARSE(2, 412)=52
-!RPG3/RO2T
- KSPARSE(1, 413)=52
- KSPARSE(2, 413)=85
-!URG4/O3
- KSPARSE(1, 414)=53
- KSPARSE(2, 414)=3
-!URG4/HO2
- KSPARSE(1, 415)=53
- KSPARSE(2, 415)=10
-!URG4/BIOL
- KSPARSE(1, 416)=53
- KSPARSE(2, 416)=36
-!URG4/URG4
- KSPARSE(1, 417)=53
- KSPARSE(2, 417)=53
-!UR8/O3
- KSPARSE(1, 418)=54
- KSPARSE(2, 418)=3
-!UR8/BIOH
- KSPARSE(1, 419)=54
- KSPARSE(2, 419)=37
-!UR8/UR8
- KSPARSE(1, 420)=54
- KSPARSE(2, 420)=54
-!UR17/NO
- KSPARSE(1, 421)=55
- KSPARSE(2, 421)=1
-!UR17/HO2
- KSPARSE(1, 422)=55
- KSPARSE(2, 422)=10
-!UR17/UR17
- KSPARSE(1, 423)=55
- KSPARSE(2, 423)=55
-!UR17/RO2T
- KSPARSE(1, 424)=55
- KSPARSE(2, 424)=85
-!UR7/NO
- KSPARSE(1, 425)=56
- KSPARSE(2, 425)=1
-!UR7/O3
- KSPARSE(1, 426)=56
- KSPARSE(2, 426)=3
-!UR7/HO2
- KSPARSE(1, 427)=56
- KSPARSE(2, 427)=10
-!UR7/BIOH
- KSPARSE(1, 428)=56
- KSPARSE(2, 428)=37
-!UR7/UR7
- KSPARSE(1, 429)=56
- KSPARSE(2, 429)=56
-!UR7/RO2T
- KSPARSE(1, 430)=56
- KSPARSE(2, 430)=85
-!RPR3/NO
- KSPARSE(1, 431)=57
- KSPARSE(2, 431)=1
-!RPR3/O3
- KSPARSE(1, 432)=57
- KSPARSE(2, 432)=3
-!RPR3/NO3
- KSPARSE(1, 433)=57
- KSPARSE(2, 433)=8
-!RPR3/HO2
- KSPARSE(1, 434)=57
- KSPARSE(2, 434)=10
-!RPR3/OH
- KSPARSE(1, 435)=57
- KSPARSE(2, 435)=15
-!RPR3/BIOL
- KSPARSE(1, 436)=57
- KSPARSE(2, 436)=36
-!RPR3/RPR3
- KSPARSE(1, 437)=57
- KSPARSE(2, 437)=57
-!RPR3/RO2T
- KSPARSE(1, 438)=57
- KSPARSE(2, 438)=85
-!URG6/NO
- KSPARSE(1, 439)=58
- KSPARSE(2, 439)=1
-!URG6/OH
- KSPARSE(1, 440)=58
- KSPARSE(2, 440)=15
-!URG6/URG6
- KSPARSE(1, 441)=58
- KSPARSE(2, 441)=58
-!URG6/RPG7
- KSPARSE(1, 442)=58
- KSPARSE(2, 442)=63
-!UR22/NO2
- KSPARSE(1, 443)=59
- KSPARSE(2, 443)=2
-!UR22/UR22
- KSPARSE(1, 444)=59
- KSPARSE(2, 444)=59
-!URG7/NO2
- KSPARSE(1, 445)=60
- KSPARSE(2, 445)=2
-!URG7/OH
- KSPARSE(1, 446)=60
- KSPARSE(2, 446)=15
-!URG7/ARAC
- KSPARSE(1, 447)=60
- KSPARSE(2, 447)=26
-!URG7/URG7
- KSPARSE(1, 448)=60
- KSPARSE(2, 448)=60
-!URG7/RPR7
- KSPARSE(1, 449)=60
- KSPARSE(2, 449)=62
-!URG7/RPR5
- KSPARSE(1, 450)=60
- KSPARSE(2, 450)=70
-!URG7/RPRL
- KSPARSE(1, 451)=60
- KSPARSE(2, 451)=75
-!RPR4/NO2
- KSPARSE(1, 452)=61
- KSPARSE(2, 452)=2
-!RPR4/NO3
- KSPARSE(1, 453)=61
- KSPARSE(2, 453)=8
-!RPR4/RPR4
- KSPARSE(1, 454)=61
- KSPARSE(2, 454)=61
-!RPR7/NO
- KSPARSE(1, 455)=62
- KSPARSE(2, 455)=1
-!RPR7/HO2
- KSPARSE(1, 456)=62
- KSPARSE(2, 456)=10
-!RPR7/OH
- KSPARSE(1, 457)=62
- KSPARSE(2, 457)=15
-!RPR7/RPR7
- KSPARSE(1, 458)=62
- KSPARSE(2, 458)=62
-!RPR7/RPRL
- KSPARSE(1, 459)=62
- KSPARSE(2, 459)=75
-!RPR7/RO2T
- KSPARSE(1, 460)=62
- KSPARSE(2, 460)=85
-!RPG7/NO
- KSPARSE(1, 461)=63
- KSPARSE(2, 461)=1
-!RPG7/HO2
- KSPARSE(1, 462)=63
- KSPARSE(2, 462)=10
-!RPG7/OH
- KSPARSE(1, 463)=63
- KSPARSE(2, 463)=15
-!RPG7/RPG7
- KSPARSE(1, 464)=63
- KSPARSE(2, 464)=63
-!RPG7/RO2T
- KSPARSE(1, 465)=63
- KSPARSE(2, 465)=85
-!URG8/NO
- KSPARSE(1, 466)=64
- KSPARSE(2, 466)=1
-!URG8/NO2
- KSPARSE(1, 467)=64
- KSPARSE(2, 467)=2
-!URG8/OH
- KSPARSE(1, 468)=64
- KSPARSE(2, 468)=15
-!URG8/PAH
- KSPARSE(1, 469)=64
- KSPARSE(2, 469)=27
-!URG8/URG8
- KSPARSE(1, 470)=64
- KSPARSE(2, 470)=64
-!UR19/NO
- KSPARSE(1, 471)=65
- KSPARSE(2, 471)=1
-!UR19/HO2
- KSPARSE(1, 472)=65
- KSPARSE(2, 472)=10
-!UR19/UR19
- KSPARSE(1, 473)=65
- KSPARSE(2, 473)=65
-!UR19/RO2T
- KSPARSE(1, 474)=65
- KSPARSE(2, 474)=85
-!URG9/NO
- KSPARSE(1, 475)=66
- KSPARSE(2, 475)=1
-!URG9/HO2
- KSPARSE(1, 476)=66
- KSPARSE(2, 476)=10
-!URG9/URG9
- KSPARSE(1, 477)=66
- KSPARSE(2, 477)=66
-!URG9/RO2T
- KSPARSE(1, 478)=66
- KSPARSE(2, 478)=85
-!AP7/NO
- KSPARSE(1, 479)=67
- KSPARSE(2, 479)=1
-!AP7/AP7
- KSPARSE(1, 480)=67
- KSPARSE(2, 480)=67
-!URG10/NO
- KSPARSE(1, 481)=68
- KSPARSE(2, 481)=1
-!URG10/BIOL
- KSPARSE(1, 482)=68
- KSPARSE(2, 482)=36
-!URG10/URG10
- KSPARSE(1, 483)=68
- KSPARSE(2, 483)=68
-!RPR1/NO
- KSPARSE(1, 484)=69
- KSPARSE(2, 484)=1
-!RPR1/O3
- KSPARSE(1, 485)=69
- KSPARSE(2, 485)=3
-!RPR1/NO3
- KSPARSE(1, 486)=69
- KSPARSE(2, 486)=8
-!RPR1/HO2
- KSPARSE(1, 487)=69
- KSPARSE(2, 487)=10
-!RPR1/OH
- KSPARSE(1, 488)=69
- KSPARSE(2, 488)=15
-!RPR1/OLEH
- KSPARSE(1, 489)=69
- KSPARSE(2, 489)=18
-!RPR1/RPR1
- KSPARSE(1, 490)=69
- KSPARSE(2, 490)=69
-!RPR1/RO2T
- KSPARSE(1, 491)=69
- KSPARSE(2, 491)=85
-!RPR5/NO2
- KSPARSE(1, 492)=70
- KSPARSE(2, 492)=2
-!RPR5/OH
- KSPARSE(1, 493)=70
- KSPARSE(2, 493)=15
-!RPR5/RPR5
- KSPARSE(1, 494)=70
- KSPARSE(2, 494)=70
-!RPR8/NO
- KSPARSE(1, 495)=71
- KSPARSE(2, 495)=1
-!RPR8/NO3
- KSPARSE(1, 496)=71
- KSPARSE(2, 496)=8
-!RPR8/HO2
- KSPARSE(1, 497)=71
- KSPARSE(2, 497)=10
-!RPR8/OH
- KSPARSE(1, 498)=71
- KSPARSE(2, 498)=15
-!RPR8/RPR8
- KSPARSE(1, 499)=71
- KSPARSE(2, 499)=71
-!RPR8/RO2T
- KSPARSE(1, 500)=71
- KSPARSE(2, 500)=85
-!RP10/NO
- KSPARSE(1, 501)=72
- KSPARSE(2, 501)=1
-!RP10/HO2
- KSPARSE(1, 502)=72
- KSPARSE(2, 502)=10
-!RP10/OH
- KSPARSE(1, 503)=72
- KSPARSE(2, 503)=15
-!RP10/RP10
- KSPARSE(1, 504)=72
- KSPARSE(2, 504)=72
-!RP10/RO2T
- KSPARSE(1, 505)=72
- KSPARSE(2, 505)=85
-!RP11/NO
- KSPARSE(1, 506)=73
- KSPARSE(2, 506)=1
-!RP11/HO2
- KSPARSE(1, 507)=73
- KSPARSE(2, 507)=10
-!RP11/OH
- KSPARSE(1, 508)=73
- KSPARSE(2, 508)=15
-!RP11/RP11
- KSPARSE(1, 509)=73
- KSPARSE(2, 509)=73
-!RP11/RO2T
- KSPARSE(1, 510)=73
- KSPARSE(2, 510)=85
-!RP16/NO3
- KSPARSE(1, 511)=74
- KSPARSE(2, 511)=8
-!RP16/HO2
- KSPARSE(1, 512)=74
- KSPARSE(2, 512)=10
-!RP16/OH
- KSPARSE(1, 513)=74
- KSPARSE(2, 513)=15
-!RP16/RP16
- KSPARSE(1, 514)=74
- KSPARSE(2, 514)=74
-!RPRL/NO
- KSPARSE(1, 515)=75
- KSPARSE(2, 515)=1
-!RPRL/HO2
- KSPARSE(1, 516)=75
- KSPARSE(2, 516)=10
-!RPRL/OH
- KSPARSE(1, 517)=75
- KSPARSE(2, 517)=15
-!RPRL/ARAL
- KSPARSE(1, 518)=75
- KSPARSE(2, 518)=25
-!RPRL/RPRL
- KSPARSE(1, 519)=75
- KSPARSE(2, 519)=75
-!RPRL/RO2T
- KSPARSE(1, 520)=75
- KSPARSE(2, 520)=85
-!APAN/NO2
- KSPARSE(1, 521)=76
- KSPARSE(2, 521)=2
-!APAN/APAN
- KSPARSE(1, 522)=76
- KSPARSE(2, 522)=76
-!PAN1/NO2
- KSPARSE(1, 523)=77
- KSPARSE(2, 523)=2
-!PAN1/PAN1
- KSPARSE(1, 524)=77
- KSPARSE(2, 524)=77
-!PAN2/NO2
- KSPARSE(1, 525)=78
- KSPARSE(2, 525)=2
-!PAN2/PAN2
- KSPARSE(1, 526)=78
- KSPARSE(2, 526)=78
-!PAN3/NO2
- KSPARSE(1, 527)=79
- KSPARSE(2, 527)=2
-!PAN3/PAN3
- KSPARSE(1, 528)=79
- KSPARSE(2, 528)=79
-!PAN4/NO2
- KSPARSE(1, 529)=80
- KSPARSE(2, 529)=2
-!PAN4/PAN4
- KSPARSE(1, 530)=80
- KSPARSE(2, 530)=80
-!PAN6/NO2
- KSPARSE(1, 531)=81
- KSPARSE(2, 531)=2
-!PAN6/PAN6
- KSPARSE(1, 532)=81
- KSPARSE(2, 532)=81
-!PAN7/NO2
- KSPARSE(1, 533)=82
- KSPARSE(2, 533)=2
-!PAN7/PAN7
- KSPARSE(1, 534)=82
- KSPARSE(2, 534)=82
-!PAN8/NO2
- KSPARSE(1, 535)=83
- KSPARSE(2, 535)=2
-!PAN8/PAN8
- KSPARSE(1, 536)=83
- KSPARSE(2, 536)=83
-!PN10/NO2
- KSPARSE(1, 537)=84
- KSPARSE(2, 537)=2
-!PN10/PN10
- KSPARSE(1, 538)=84
- KSPARSE(2, 538)=84
-!RO2T/NO
- KSPARSE(1, 539)=85
- KSPARSE(2, 539)=1
-!RO2T/O3
- KSPARSE(1, 540)=85
- KSPARSE(2, 540)=3
-!RO2T/NO3
- KSPARSE(1, 541)=85
- KSPARSE(2, 541)=8
-!RO2T/HO2
- KSPARSE(1, 542)=85
- KSPARSE(2, 542)=10
-!RO2T/OH
- KSPARSE(1, 543)=85
- KSPARSE(2, 543)=15
-!RO2T/ETHE
- KSPARSE(1, 544)=85
- KSPARSE(2, 544)=16
-!RO2T/OLEL
- KSPARSE(1, 545)=85
- KSPARSE(2, 545)=17
-!RO2T/OLEH
- KSPARSE(1, 546)=85
- KSPARSE(2, 546)=18
-!RO2T/ALKL
- KSPARSE(1, 547)=85
- KSPARSE(2, 547)=19
-!RO2T/ALKM
- KSPARSE(1, 548)=85
- KSPARSE(2, 548)=20
-!RO2T/ALKH
- KSPARSE(1, 549)=85
- KSPARSE(2, 549)=21
-!RO2T/AROL
- KSPARSE(1, 550)=85
- KSPARSE(2, 550)=23
-!RO2T/AROO
- KSPARSE(1, 551)=85
- KSPARSE(2, 551)=24
-!RO2T/ARAL
- KSPARSE(1, 552)=85
- KSPARSE(2, 552)=25
-!RO2T/ARAC
- KSPARSE(1, 553)=85
- KSPARSE(2, 553)=26
-!RO2T/PAH
- KSPARSE(1, 554)=85
- KSPARSE(2, 554)=27
-!RO2T/ALD2
- KSPARSE(1, 555)=85
- KSPARSE(2, 555)=29
-!RO2T/KETL
- KSPARSE(1, 556)=85
- KSPARSE(2, 556)=30
-!RO2T/KETH
- KSPARSE(1, 557)=85
- KSPARSE(2, 557)=31
-!RO2T/ETOH
- KSPARSE(1, 558)=85
- KSPARSE(2, 558)=33
-!RO2T/ALCH
- KSPARSE(1, 559)=85
- KSPARSE(2, 559)=34
-!RO2T/ISOP
- KSPARSE(1, 560)=85
- KSPARSE(2, 560)=35
-!RO2T/BIOL
- KSPARSE(1, 561)=85
- KSPARSE(2, 561)=36
-!RO2T/BIOH
- KSPARSE(1, 562)=85
- KSPARSE(2, 562)=37
-!RO2T/MTBE
- KSPARSE(1, 563)=85
- KSPARSE(2, 563)=38
-!RO2T/MVK
- KSPARSE(1, 564)=85
- KSPARSE(2, 564)=39
-!RO2T/MCR
- KSPARSE(1, 565)=85
- KSPARSE(2, 565)=40
-!RO2T/MGLY
- KSPARSE(1, 566)=85
- KSPARSE(2, 566)=41
-!RO2T/RPR3
- KSPARSE(1, 567)=85
- KSPARSE(2, 567)=57
-!RO2T/RPR1
- KSPARSE(1, 568)=85
- KSPARSE(2, 568)=69
-!RO2T/RPR8
- KSPARSE(1, 569)=85
- KSPARSE(2, 569)=71
-!RO2T/RP16
- KSPARSE(1, 570)=85
- KSPARSE(2, 570)=74
-!RO2T/APAN
- KSPARSE(1, 571)=85
- KSPARSE(2, 571)=76
-!RO2T/PAN1
- KSPARSE(1, 572)=85
- KSPARSE(2, 572)=77
-!RO2T/PAN2
- KSPARSE(1, 573)=85
- KSPARSE(2, 573)=78
-!RO2T/PAN3
- KSPARSE(1, 574)=85
- KSPARSE(2, 574)=79
-!RO2T/PAN4
- KSPARSE(1, 575)=85
- KSPARSE(2, 575)=80
-!RO2T/PAN6
- KSPARSE(1, 576)=85
- KSPARSE(2, 576)=81
-!RO2T/PAN7
- KSPARSE(1, 577)=85
- KSPARSE(2, 577)=82
-!RO2T/PAN8
- KSPARSE(1, 578)=85
- KSPARSE(2, 578)=83
-!RO2T/PN10
- KSPARSE(1, 579)=85
- KSPARSE(2, 579)=84
-!RO2T/RO2T
- KSPARSE(1, 580)=85
- KSPARSE(2, 580)=85
-!RO2T/RO21
- KSPARSE(1, 581)=85
- KSPARSE(2, 581)=86
-!RO2T/RO25
- KSPARSE(1, 582)=85
- KSPARSE(2, 582)=87
-!RO21/NO
- KSPARSE(1, 583)=86
- KSPARSE(2, 583)=1
-!RO21/HO2
- KSPARSE(1, 584)=86
- KSPARSE(2, 584)=10
-!RO21/OH
- KSPARSE(1, 585)=86
- KSPARSE(2, 585)=15
-!RO21/ETHE
- KSPARSE(1, 586)=86
- KSPARSE(2, 586)=16
-!RO21/RO2T
- KSPARSE(1, 587)=86
- KSPARSE(2, 587)=85
-!RO21/RO21
- KSPARSE(1, 588)=86
- KSPARSE(2, 588)=86
-!RO25/NO
- KSPARSE(1, 589)=87
- KSPARSE(2, 589)=1
-!RO25/O3
- KSPARSE(1, 590)=87
- KSPARSE(2, 590)=3
-!RO25/HO2
- KSPARSE(1, 591)=87
- KSPARSE(2, 591)=10
-!RO25/OH
- KSPARSE(1, 592)=87
- KSPARSE(2, 592)=15
-!RO25/OLEL
- KSPARSE(1, 593)=87
- KSPARSE(2, 593)=17
-!RO25/ALKL
- KSPARSE(1, 594)=87
- KSPARSE(2, 594)=19
-!RO25/ALD2
- KSPARSE(1, 595)=87
- KSPARSE(2, 595)=29
-!RO25/KETL
- KSPARSE(1, 596)=87
- KSPARSE(2, 596)=30
-!RO25/KETH
- KSPARSE(1, 597)=87
- KSPARSE(2, 597)=31
-!RO25/RO2T
- KSPARSE(1, 598)=87
- KSPARSE(2, 598)=85
-!RO25/RO25
- KSPARSE(1, 599)=87
- KSPARSE(2, 599)=87
-KSPARSEDIM = 599
-RETURN
-END SUBROUTINE CH_SPARSE_GAZ
-!!
!! #######################
SUBROUTINE CH_SPARSE_AQ
!! #######################
@@ -104499,3336 +38661,3651 @@ IMPLICIT NONE
!! EXECUTABLE STATEMENTS
!! ---------------------
! check if output array is large enough
-IF (KSPARSEDIM.LT.1108) THEN
+IF (KSPARSEDIM.LT.745) THEN
STOP 'CH_SPARSE ERROR: array KSPARSE is too small!'
END IF
-!NO/NO
+!O3/O3
KSPARSE(1, 1)=1
KSPARSE(2, 1)=1
-!NO/NO2
+!O3/NO
KSPARSE(1, 2)=1
- KSPARSE(2, 2)=2
-!NO/O3
+ KSPARSE(2, 2)=3
+!O3/NO2
KSPARSE(1, 3)=1
- KSPARSE(2, 3)=3
-!NO/HONO
+ KSPARSE(2, 3)=4
+!O3/OH
KSPARSE(1, 4)=1
- KSPARSE(2, 4)=4
-!NO/NO3
+ KSPARSE(2, 4)=14
+!O3/HO2
KSPARSE(1, 5)=1
- KSPARSE(2, 5)=8
-!NO/HO2
+ KSPARSE(2, 5)=15
+!O3/ALKE
KSPARSE(1, 6)=1
- KSPARSE(2, 6)=10
-!NO/OH
+ KSPARSE(2, 6)=19
+!O3/BIO
KSPARSE(1, 7)=1
- KSPARSE(2, 7)=15
-!NO/RO2T
+ KSPARSE(2, 7)=20
+!O3/CARBO
KSPARSE(1, 8)=1
- KSPARSE(2, 8)=85
-!NO/RO21
+ KSPARSE(2, 8)=25
+!O3/PAN
KSPARSE(1, 9)=1
- KSPARSE(2, 9)=86
-!NO/RO25
+ KSPARSE(2, 9)=27
+!O3/ADD
KSPARSE(1, 10)=1
- KSPARSE(2, 10)=87
-!NO/WC_NO
+ KSPARSE(2, 10)=37
+!O3/CARBOP
KSPARSE(1, 11)=1
- KSPARSE(2, 11)=90
-!NO/WR_NO
+ KSPARSE(2, 11)=39
+!O3/WC_O3
KSPARSE(1, 12)=1
- KSPARSE(2, 12)=127
-!NO2/NO
- KSPARSE(1, 13)=2
- KSPARSE(2, 13)=1
-!NO2/NO2
+ KSPARSE(2, 12)=42
+!O3/WR_O3
+ KSPARSE(1, 13)=1
+ KSPARSE(2, 13)=67
+!H2O2/O3
KSPARSE(1, 14)=2
- KSPARSE(2, 14)=2
-!NO2/O3
+ KSPARSE(2, 14)=1
+!H2O2/H2O2
KSPARSE(1, 15)=2
- KSPARSE(2, 15)=3
-!NO2/HONO
+ KSPARSE(2, 15)=2
+!H2O2/OH
KSPARSE(1, 16)=2
- KSPARSE(2, 16)=4
-!NO2/HNO4
+ KSPARSE(2, 16)=14
+!H2O2/HO2
KSPARSE(1, 17)=2
- KSPARSE(2, 17)=6
-!NO2/N2O5
+ KSPARSE(2, 17)=15
+!H2O2/ALKE
KSPARSE(1, 18)=2
- KSPARSE(2, 18)=7
-!NO2/NO3
+ KSPARSE(2, 18)=19
+!H2O2/BIO
KSPARSE(1, 19)=2
- KSPARSE(2, 19)=8
-!NO2/HO2
+ KSPARSE(2, 19)=20
+!H2O2/WC_H2O2
KSPARSE(1, 20)=2
- KSPARSE(2, 20)=10
-!NO2/OH
+ KSPARSE(2, 20)=43
+!H2O2/WR_H2O2
KSPARSE(1, 21)=2
- KSPARSE(2, 21)=15
-!NO2/APAN
- KSPARSE(1, 22)=2
- KSPARSE(2, 22)=76
-!NO2/PAN1
- KSPARSE(1, 23)=2
- KSPARSE(2, 23)=77
-!NO2/PAN2
- KSPARSE(1, 24)=2
- KSPARSE(2, 24)=78
-!NO2/PAN3
- KSPARSE(1, 25)=2
- KSPARSE(2, 25)=79
-!NO2/PAN4
- KSPARSE(1, 26)=2
- KSPARSE(2, 26)=80
-!NO2/PAN6
- KSPARSE(1, 27)=2
- KSPARSE(2, 27)=81
-!NO2/PAN7
- KSPARSE(1, 28)=2
- KSPARSE(2, 28)=82
-!NO2/PAN8
- KSPARSE(1, 29)=2
- KSPARSE(2, 29)=83
-!NO2/PN10
- KSPARSE(1, 30)=2
- KSPARSE(2, 30)=84
-!NO2/RO2T
- KSPARSE(1, 31)=2
- KSPARSE(2, 31)=85
-!NO2/RO21
- KSPARSE(1, 32)=2
- KSPARSE(2, 32)=86
-!NO2/RO25
- KSPARSE(1, 33)=2
- KSPARSE(2, 33)=87
-!NO2/WC_NO2
- KSPARSE(1, 34)=2
- KSPARSE(2, 34)=91
-!NO2/WR_NO2
- KSPARSE(1, 35)=2
- KSPARSE(2, 35)=128
-!O3/NO
+ KSPARSE(2, 21)=68
+!NO/O3
+ KSPARSE(1, 22)=3
+ KSPARSE(2, 22)=1
+!NO/NO
+ KSPARSE(1, 23)=3
+ KSPARSE(2, 23)=3
+!NO/NO2
+ KSPARSE(1, 24)=3
+ KSPARSE(2, 24)=4
+!NO/NO3
+ KSPARSE(1, 25)=3
+ KSPARSE(2, 25)=5
+!NO/HONO
+ KSPARSE(1, 26)=3
+ KSPARSE(2, 26)=7
+!NO/OH
+ KSPARSE(1, 27)=3
+ KSPARSE(2, 27)=14
+!NO/HO2
+ KSPARSE(1, 28)=3
+ KSPARSE(2, 28)=15
+!NO/MO2
+ KSPARSE(1, 29)=3
+ KSPARSE(2, 29)=32
+!NO/ALKAP
+ KSPARSE(1, 30)=3
+ KSPARSE(2, 30)=33
+!NO/ALKEP
+ KSPARSE(1, 31)=3
+ KSPARSE(2, 31)=34
+!NO/BIOP
+ KSPARSE(1, 32)=3
+ KSPARSE(2, 32)=35
+!NO/AROP
+ KSPARSE(1, 33)=3
+ KSPARSE(2, 33)=38
+!NO/CARBOP
+ KSPARSE(1, 34)=3
+ KSPARSE(2, 34)=39
+!NO/OLN
+ KSPARSE(1, 35)=3
+ KSPARSE(2, 35)=40
+!NO/XO2
KSPARSE(1, 36)=3
- KSPARSE(2, 36)=1
-!O3/NO2
+ KSPARSE(2, 36)=41
+!NO/WC_NO
KSPARSE(1, 37)=3
- KSPARSE(2, 37)=2
-!O3/O3
+ KSPARSE(2, 37)=44
+!NO/WR_NO
KSPARSE(1, 38)=3
- KSPARSE(2, 38)=3
-!O3/NO3
- KSPARSE(1, 39)=3
- KSPARSE(2, 39)=8
-!O3/HO2
- KSPARSE(1, 40)=3
- KSPARSE(2, 40)=10
-!O3/OH
- KSPARSE(1, 41)=3
- KSPARSE(2, 41)=15
-!O3/ETHE
- KSPARSE(1, 42)=3
- KSPARSE(2, 42)=16
-!O3/OLEL
- KSPARSE(1, 43)=3
- KSPARSE(2, 43)=17
-!O3/OLEH
- KSPARSE(1, 44)=3
- KSPARSE(2, 44)=18
-!O3/ARAL
- KSPARSE(1, 45)=3
- KSPARSE(2, 45)=25
-!O3/ISOP
- KSPARSE(1, 46)=3
- KSPARSE(2, 46)=35
-!O3/BIOL
- KSPARSE(1, 47)=3
- KSPARSE(2, 47)=36
-!O3/BIOH
- KSPARSE(1, 48)=3
- KSPARSE(2, 48)=37
-!O3/MVK
- KSPARSE(1, 49)=3
- KSPARSE(2, 49)=39
-!O3/MCR
- KSPARSE(1, 50)=3
- KSPARSE(2, 50)=40
-!O3/RPG2
- KSPARSE(1, 51)=3
- KSPARSE(2, 51)=50
-!O3/RP18
- KSPARSE(1, 52)=3
- KSPARSE(2, 52)=51
-!O3/RPG3
- KSPARSE(1, 53)=3
- KSPARSE(2, 53)=52
-!O3/RPR7
- KSPARSE(1, 54)=3
- KSPARSE(2, 54)=62
-!O3/RPG7
- KSPARSE(1, 55)=3
- KSPARSE(2, 55)=63
-!O3/RPR5
- KSPARSE(1, 56)=3
- KSPARSE(2, 56)=70
-!O3/RP11
- KSPARSE(1, 57)=3
- KSPARSE(2, 57)=73
-!O3/RPRL
- KSPARSE(1, 58)=3
- KSPARSE(2, 58)=75
-!O3/WC_O3
- KSPARSE(1, 59)=3
- KSPARSE(2, 59)=88
-!O3/WR_O3
- KSPARSE(1, 60)=3
- KSPARSE(2, 60)=125
-!HONO/NO
+ KSPARSE(2, 38)=69
+!NO2/O3
+ KSPARSE(1, 39)=4
+ KSPARSE(2, 39)=1
+!NO2/NO
+ KSPARSE(1, 40)=4
+ KSPARSE(2, 40)=3
+!NO2/NO2
+ KSPARSE(1, 41)=4
+ KSPARSE(2, 41)=4
+!NO2/NO3
+ KSPARSE(1, 42)=4
+ KSPARSE(2, 42)=5
+!NO2/N2O5
+ KSPARSE(1, 43)=4
+ KSPARSE(2, 43)=6
+!NO2/HONO
+ KSPARSE(1, 44)=4
+ KSPARSE(2, 44)=7
+!NO2/HNO3
+ KSPARSE(1, 45)=4
+ KSPARSE(2, 45)=8
+!NO2/HNO4
+ KSPARSE(1, 46)=4
+ KSPARSE(2, 46)=9
+!NO2/OH
+ KSPARSE(1, 47)=4
+ KSPARSE(2, 47)=14
+!NO2/HO2
+ KSPARSE(1, 48)=4
+ KSPARSE(2, 48)=15
+!NO2/CARBO
+ KSPARSE(1, 49)=4
+ KSPARSE(2, 49)=25
+!NO2/ONIT
+ KSPARSE(1, 50)=4
+ KSPARSE(2, 50)=26
+!NO2/PAN
+ KSPARSE(1, 51)=4
+ KSPARSE(2, 51)=27
+!NO2/MO2
+ KSPARSE(1, 52)=4
+ KSPARSE(2, 52)=32
+!NO2/ALKAP
+ KSPARSE(1, 53)=4
+ KSPARSE(2, 53)=33
+!NO2/ALKEP
+ KSPARSE(1, 54)=4
+ KSPARSE(2, 54)=34
+!NO2/BIOP
+ KSPARSE(1, 55)=4
+ KSPARSE(2, 55)=35
+!NO2/PHO
+ KSPARSE(1, 56)=4
+ KSPARSE(2, 56)=36
+!NO2/ADD
+ KSPARSE(1, 57)=4
+ KSPARSE(2, 57)=37
+!NO2/AROP
+ KSPARSE(1, 58)=4
+ KSPARSE(2, 58)=38
+!NO2/CARBOP
+ KSPARSE(1, 59)=4
+ KSPARSE(2, 59)=39
+!NO2/OLN
+ KSPARSE(1, 60)=4
+ KSPARSE(2, 60)=40
+!NO2/XO2
KSPARSE(1, 61)=4
- KSPARSE(2, 61)=1
-!HONO/NO2
+ KSPARSE(2, 61)=41
+!NO2/WC_NO2
KSPARSE(1, 62)=4
- KSPARSE(2, 62)=2
-!HONO/HONO
+ KSPARSE(2, 62)=45
+!NO2/WR_NO2
KSPARSE(1, 63)=4
- KSPARSE(2, 63)=4
-!HONO/OH
- KSPARSE(1, 64)=4
- KSPARSE(2, 64)=15
-!HONO/WC_HONO
- KSPARSE(1, 65)=4
- KSPARSE(2, 65)=94
-!HONO/WR_HONO
- KSPARSE(1, 66)=4
- KSPARSE(2, 66)=131
-!HNO3/NO2
+ KSPARSE(2, 63)=70
+!NO3/O3
+ KSPARSE(1, 64)=5
+ KSPARSE(2, 64)=1
+!NO3/NO
+ KSPARSE(1, 65)=5
+ KSPARSE(2, 65)=3
+!NO3/NO2
+ KSPARSE(1, 66)=5
+ KSPARSE(2, 66)=4
+!NO3/NO3
KSPARSE(1, 67)=5
- KSPARSE(2, 67)=2
-!HNO3/HNO3
+ KSPARSE(2, 67)=5
+!NO3/N2O5
KSPARSE(1, 68)=5
- KSPARSE(2, 68)=5
-!HNO3/N2O5
+ KSPARSE(2, 68)=6
+!NO3/HNO3
KSPARSE(1, 69)=5
- KSPARSE(2, 69)=7
-!HNO3/NO3
+ KSPARSE(2, 69)=8
+!NO3/HNO4
KSPARSE(1, 70)=5
- KSPARSE(2, 70)=8
-!HNO3/HO2
+ KSPARSE(2, 70)=9
+!NO3/OH
KSPARSE(1, 71)=5
- KSPARSE(2, 71)=10
-!HNO3/OH
+ KSPARSE(2, 71)=14
+!NO3/HO2
KSPARSE(1, 72)=5
KSPARSE(2, 72)=15
-!HNO3/AROO
+!NO3/ALKE
KSPARSE(1, 73)=5
- KSPARSE(2, 73)=24
-!HNO3/ARAL
+ KSPARSE(2, 73)=19
+!NO3/BIO
KSPARSE(1, 74)=5
- KSPARSE(2, 74)=25
-!HNO3/HCHO
+ KSPARSE(2, 74)=20
+!NO3/ARO
KSPARSE(1, 75)=5
- KSPARSE(2, 75)=28
-!HNO3/ALD2
+ KSPARSE(2, 75)=21
+!NO3/HCHO
KSPARSE(1, 76)=5
- KSPARSE(2, 76)=29
-!HNO3/MCR
+ KSPARSE(2, 76)=22
+!NO3/ALD
KSPARSE(1, 77)=5
- KSPARSE(2, 77)=40
-!HNO3/MGLY
+ KSPARSE(2, 77)=23
+!NO3/CARBO
KSPARSE(1, 78)=5
- KSPARSE(2, 78)=41
-!HNO3/RPR3
+ KSPARSE(2, 78)=25
+!NO3/PAN
KSPARSE(1, 79)=5
- KSPARSE(2, 79)=57
-!HNO3/RPR4
+ KSPARSE(2, 79)=27
+!NO3/MO2
KSPARSE(1, 80)=5
- KSPARSE(2, 80)=61
-!HNO3/RPR1
+ KSPARSE(2, 80)=32
+!NO3/ALKAP
KSPARSE(1, 81)=5
- KSPARSE(2, 81)=69
-!HNO3/RPR8
+ KSPARSE(2, 81)=33
+!NO3/ALKEP
KSPARSE(1, 82)=5
- KSPARSE(2, 82)=71
-!HNO3/RP16
+ KSPARSE(2, 82)=34
+!NO3/BIOP
KSPARSE(1, 83)=5
- KSPARSE(2, 83)=74
-!HNO3/WC_HNO3
+ KSPARSE(2, 83)=35
+!NO3/AROP
KSPARSE(1, 84)=5
- KSPARSE(2, 84)=95
-!HNO3/WR_HNO3
+ KSPARSE(2, 84)=38
+!NO3/CARBOP
KSPARSE(1, 85)=5
- KSPARSE(2, 85)=132
-!HNO4/NO2
- KSPARSE(1, 86)=6
- KSPARSE(2, 86)=2
-!HNO4/HNO4
- KSPARSE(1, 87)=6
- KSPARSE(2, 87)=6
-!HNO4/HO2
- KSPARSE(1, 88)=6
- KSPARSE(2, 88)=10
-!HNO4/OH
- KSPARSE(1, 89)=6
- KSPARSE(2, 89)=15
-!HNO4/WC_HNO4
+ KSPARSE(2, 85)=39
+!NO3/OLN
+ KSPARSE(1, 86)=5
+ KSPARSE(2, 86)=40
+!NO3/XO2
+ KSPARSE(1, 87)=5
+ KSPARSE(2, 87)=41
+!NO3/WC_NO3
+ KSPARSE(1, 88)=5
+ KSPARSE(2, 88)=46
+!NO3/WR_NO3
+ KSPARSE(1, 89)=5
+ KSPARSE(2, 89)=71
+!N2O5/NO2
KSPARSE(1, 90)=6
- KSPARSE(2, 90)=96
-!HNO4/WR_HNO4
+ KSPARSE(2, 90)=4
+!N2O5/NO3
KSPARSE(1, 91)=6
- KSPARSE(2, 91)=133
-!N2O5/NO2
- KSPARSE(1, 92)=7
- KSPARSE(2, 92)=2
+ KSPARSE(2, 91)=5
!N2O5/N2O5
- KSPARSE(1, 93)=7
- KSPARSE(2, 93)=7
-!N2O5/NO3
- KSPARSE(1, 94)=7
- KSPARSE(2, 94)=8
+ KSPARSE(1, 92)=6
+ KSPARSE(2, 92)=6
!N2O5/WC_N2O5
- KSPARSE(1, 95)=7
- KSPARSE(2, 95)=93
+ KSPARSE(1, 93)=6
+ KSPARSE(2, 93)=47
!N2O5/WR_N2O5
+ KSPARSE(1, 94)=6
+ KSPARSE(2, 94)=72
+!HONO/NO
+ KSPARSE(1, 95)=7
+ KSPARSE(2, 95)=3
+!HONO/NO2
KSPARSE(1, 96)=7
- KSPARSE(2, 96)=130
-!NO3/NO
- KSPARSE(1, 97)=8
- KSPARSE(2, 97)=1
-!NO3/NO2
- KSPARSE(1, 98)=8
- KSPARSE(2, 98)=2
-!NO3/O3
- KSPARSE(1, 99)=8
- KSPARSE(2, 99)=3
-!NO3/HNO3
- KSPARSE(1, 100)=8
- KSPARSE(2, 100)=5
-!NO3/N2O5
- KSPARSE(1, 101)=8
- KSPARSE(2, 101)=7
-!NO3/NO3
+ KSPARSE(2, 96)=4
+!HONO/HONO
+ KSPARSE(1, 97)=7
+ KSPARSE(2, 97)=7
+!HONO/OH
+ KSPARSE(1, 98)=7
+ KSPARSE(2, 98)=14
+!HONO/ADD
+ KSPARSE(1, 99)=7
+ KSPARSE(2, 99)=37
+!HONO/WC_HONO
+ KSPARSE(1, 100)=7
+ KSPARSE(2, 100)=48
+!HONO/WR_HONO
+ KSPARSE(1, 101)=7
+ KSPARSE(2, 101)=73
+!HNO3/NO2
KSPARSE(1, 102)=8
- KSPARSE(2, 102)=8
-!NO3/HO2
+ KSPARSE(2, 102)=4
+!HNO3/NO3
KSPARSE(1, 103)=8
- KSPARSE(2, 103)=10
-!NO3/OH
+ KSPARSE(2, 103)=5
+!HNO3/HNO3
KSPARSE(1, 104)=8
- KSPARSE(2, 104)=15
-!NO3/ETHE
+ KSPARSE(2, 104)=8
+!HNO3/OH
KSPARSE(1, 105)=8
- KSPARSE(2, 105)=16
-!NO3/OLEL
+ KSPARSE(2, 105)=14
+!HNO3/HO2
KSPARSE(1, 106)=8
- KSPARSE(2, 106)=17
-!NO3/OLEH
+ KSPARSE(2, 106)=15
+!HNO3/ARO
KSPARSE(1, 107)=8
- KSPARSE(2, 107)=18
-!NO3/AROO
+ KSPARSE(2, 107)=21
+!HNO3/HCHO
KSPARSE(1, 108)=8
- KSPARSE(2, 108)=24
-!NO3/ARAL
+ KSPARSE(2, 108)=22
+!HNO3/ALD
KSPARSE(1, 109)=8
- KSPARSE(2, 109)=25
-!NO3/HCHO
+ KSPARSE(2, 109)=23
+!HNO3/CARBO
KSPARSE(1, 110)=8
- KSPARSE(2, 110)=28
-!NO3/ALD2
+ KSPARSE(2, 110)=25
+!HNO3/WC_HNO3
KSPARSE(1, 111)=8
- KSPARSE(2, 111)=29
-!NO3/ISOP
+ KSPARSE(2, 111)=49
+!HNO3/WR_HNO3
KSPARSE(1, 112)=8
- KSPARSE(2, 112)=35
-!NO3/BIOL
- KSPARSE(1, 113)=8
- KSPARSE(2, 113)=36
-!NO3/BIOH
- KSPARSE(1, 114)=8
- KSPARSE(2, 114)=37
-!NO3/MCR
- KSPARSE(1, 115)=8
- KSPARSE(2, 115)=40
-!NO3/MGLY
- KSPARSE(1, 116)=8
- KSPARSE(2, 116)=41
-!NO3/RPR3
- KSPARSE(1, 117)=8
- KSPARSE(2, 117)=57
-!NO3/RPR4
- KSPARSE(1, 118)=8
- KSPARSE(2, 118)=61
-!NO3/RPR1
- KSPARSE(1, 119)=8
- KSPARSE(2, 119)=69
-!NO3/RPR8
- KSPARSE(1, 120)=8
- KSPARSE(2, 120)=71
-!NO3/RP16
- KSPARSE(1, 121)=8
- KSPARSE(2, 121)=74
-!NO3/WC_NO3
- KSPARSE(1, 122)=8
- KSPARSE(2, 122)=92
-!NO3/WR_NO3
- KSPARSE(1, 123)=8
- KSPARSE(2, 123)=129
+ KSPARSE(2, 112)=74
+!HNO4/NO2
+ KSPARSE(1, 113)=9
+ KSPARSE(2, 113)=4
+!HNO4/HNO4
+ KSPARSE(1, 114)=9
+ KSPARSE(2, 114)=9
+!HNO4/OH
+ KSPARSE(1, 115)=9
+ KSPARSE(2, 115)=14
+!HNO4/HO2
+ KSPARSE(1, 116)=9
+ KSPARSE(2, 116)=15
+!HNO4/WC_HNO4
+ KSPARSE(1, 117)=9
+ KSPARSE(2, 117)=50
+!HNO4/WR_HNO4
+ KSPARSE(1, 118)=9
+ KSPARSE(2, 118)=75
!NH3/NH3
- KSPARSE(1, 124)=9
- KSPARSE(2, 124)=9
+ KSPARSE(1, 119)=10
+ KSPARSE(2, 119)=10
!NH3/OH
- KSPARSE(1, 125)=9
- KSPARSE(2, 125)=15
+ KSPARSE(1, 120)=10
+ KSPARSE(2, 120)=14
!NH3/WC_NH3
- KSPARSE(1, 126)=9
- KSPARSE(2, 126)=97
+ KSPARSE(1, 121)=10
+ KSPARSE(2, 121)=51
!NH3/WR_NH3
- KSPARSE(1, 127)=9
- KSPARSE(2, 127)=134
-!HO2/NO
- KSPARSE(1, 128)=10
- KSPARSE(2, 128)=1
-!HO2/NO2
- KSPARSE(1, 129)=10
- KSPARSE(2, 129)=2
-!HO2/O3
- KSPARSE(1, 130)=10
- KSPARSE(2, 130)=3
-!HO2/HONO
- KSPARSE(1, 131)=10
- KSPARSE(2, 131)=4
-!HO2/HNO4
- KSPARSE(1, 132)=10
- KSPARSE(2, 132)=6
-!HO2/NO3
- KSPARSE(1, 133)=10
- KSPARSE(2, 133)=8
-!HO2/HO2
- KSPARSE(1, 134)=10
- KSPARSE(2, 134)=10
-!HO2/CO
- KSPARSE(1, 135)=10
- KSPARSE(2, 135)=11
-!HO2/H2O2
- KSPARSE(1, 136)=10
- KSPARSE(2, 136)=12
-!HO2/SO2
- KSPARSE(1, 137)=10
- KSPARSE(2, 137)=13
-!HO2/OH
- KSPARSE(1, 138)=10
- KSPARSE(2, 138)=15
-!HO2/ETHE
- KSPARSE(1, 139)=10
- KSPARSE(2, 139)=16
-!HO2/OLEL
- KSPARSE(1, 140)=10
- KSPARSE(2, 140)=17
-!HO2/OLEH
- KSPARSE(1, 141)=10
- KSPARSE(2, 141)=18
-!HO2/AROH
- KSPARSE(1, 142)=10
- KSPARSE(2, 142)=22
-!HO2/AROL
- KSPARSE(1, 143)=10
- KSPARSE(2, 143)=23
-!HO2/AROO
- KSPARSE(1, 144)=10
- KSPARSE(2, 144)=24
-!HO2/ARAL
- KSPARSE(1, 145)=10
- KSPARSE(2, 145)=25
-!HO2/ARAC
- KSPARSE(1, 146)=10
- KSPARSE(2, 146)=26
-!HO2/PAH
- KSPARSE(1, 147)=10
- KSPARSE(2, 147)=27
-!HO2/HCHO
- KSPARSE(1, 148)=10
- KSPARSE(2, 148)=28
-!HO2/ALD2
- KSPARSE(1, 149)=10
- KSPARSE(2, 149)=29
-!HO2/MEOH
- KSPARSE(1, 150)=10
- KSPARSE(2, 150)=32
-!HO2/ETOH
- KSPARSE(1, 151)=10
- KSPARSE(2, 151)=33
-!HO2/ISOP
- KSPARSE(1, 152)=10
- KSPARSE(2, 152)=35
-!HO2/BIOL
- KSPARSE(1, 153)=10
- KSPARSE(2, 153)=36
-!HO2/MVK
- KSPARSE(1, 154)=10
- KSPARSE(2, 154)=39
-!HO2/MCR
- KSPARSE(1, 155)=10
- KSPARSE(2, 155)=40
-!HO2/MGLY
- KSPARSE(1, 156)=10
- KSPARSE(2, 156)=41
-!HO2/ORA1
- KSPARSE(1, 157)=10
- KSPARSE(2, 157)=43
-!HO2/RPR3
- KSPARSE(1, 158)=10
- KSPARSE(2, 158)=57
-!HO2/RPR1
- KSPARSE(1, 159)=10
- KSPARSE(2, 159)=69
-!HO2/RPR8
- KSPARSE(1, 160)=10
- KSPARSE(2, 160)=71
-!HO2/RP10
- KSPARSE(1, 161)=10
- KSPARSE(2, 161)=72
-!HO2/RP16
- KSPARSE(1, 162)=10
- KSPARSE(2, 162)=74
-!HO2/RO2T
- KSPARSE(1, 163)=10
- KSPARSE(2, 163)=85
-!HO2/RO21
- KSPARSE(1, 164)=10
- KSPARSE(2, 164)=86
-!HO2/RO25
- KSPARSE(1, 165)=10
- KSPARSE(2, 165)=87
-!HO2/WC_HO2
- KSPARSE(1, 166)=10
- KSPARSE(2, 166)=99
-!HO2/WR_HO2
- KSPARSE(1, 167)=10
- KSPARSE(2, 167)=136
-!CO/NO
- KSPARSE(1, 168)=11
- KSPARSE(2, 168)=1
+ KSPARSE(1, 122)=10
+ KSPARSE(2, 122)=76
+!SO2/SO2
+ KSPARSE(1, 123)=11
+ KSPARSE(2, 123)=11
+!SO2/OH
+ KSPARSE(1, 124)=11
+ KSPARSE(2, 124)=14
+!SO2/WC_SO2
+ KSPARSE(1, 125)=11
+ KSPARSE(2, 125)=55
+!SO2/WR_SO2
+ KSPARSE(1, 126)=11
+ KSPARSE(2, 126)=80
+!SULF/SO2
+ KSPARSE(1, 127)=12
+ KSPARSE(2, 127)=11
+!SULF/SULF
+ KSPARSE(1, 128)=12
+ KSPARSE(2, 128)=12
+!SULF/OH
+ KSPARSE(1, 129)=12
+ KSPARSE(2, 129)=14
+!SULF/WC_SULF
+ KSPARSE(1, 130)=12
+ KSPARSE(2, 130)=56
+!SULF/WR_SULF
+ KSPARSE(1, 131)=12
+ KSPARSE(2, 131)=81
!CO/O3
- KSPARSE(1, 169)=11
- KSPARSE(2, 169)=3
+ KSPARSE(1, 132)=13
+ KSPARSE(2, 132)=1
!CO/NO3
- KSPARSE(1, 170)=11
- KSPARSE(2, 170)=8
-!CO/HO2
- KSPARSE(1, 171)=11
- KSPARSE(2, 171)=10
+ KSPARSE(1, 133)=13
+ KSPARSE(2, 133)=5
!CO/CO
- KSPARSE(1, 172)=11
- KSPARSE(2, 172)=11
+ KSPARSE(1, 134)=13
+ KSPARSE(2, 134)=13
!CO/OH
- KSPARSE(1, 173)=11
- KSPARSE(2, 173)=15
-!CO/ETHE
- KSPARSE(1, 174)=11
- KSPARSE(2, 174)=16
-!CO/OLEL
- KSPARSE(1, 175)=11
- KSPARSE(2, 175)=17
-!CO/OLEH
- KSPARSE(1, 176)=11
- KSPARSE(2, 176)=18
+ KSPARSE(1, 135)=13
+ KSPARSE(2, 135)=14
+!CO/ALKA
+ KSPARSE(1, 136)=13
+ KSPARSE(2, 136)=18
+!CO/ALKE
+ KSPARSE(1, 137)=13
+ KSPARSE(2, 137)=19
+!CO/BIO
+ KSPARSE(1, 138)=13
+ KSPARSE(2, 138)=20
!CO/HCHO
- KSPARSE(1, 177)=11
- KSPARSE(2, 177)=28
-!CO/ALD2
- KSPARSE(1, 178)=11
- KSPARSE(2, 178)=29
-!CO/ISOP
- KSPARSE(1, 179)=11
- KSPARSE(2, 179)=35
-!CO/BIOL
- KSPARSE(1, 180)=11
- KSPARSE(2, 180)=36
-!CO/BIOH
- KSPARSE(1, 181)=11
- KSPARSE(2, 181)=37
-!CO/MVK
- KSPARSE(1, 182)=11
- KSPARSE(2, 182)=39
-!CO/MCR
- KSPARSE(1, 183)=11
- KSPARSE(2, 183)=40
-!CO/MGLY
- KSPARSE(1, 184)=11
- KSPARSE(2, 184)=41
-!CO/RPR3
- KSPARSE(1, 185)=11
- KSPARSE(2, 185)=57
-!CO/RPR1
- KSPARSE(1, 186)=11
- KSPARSE(2, 186)=69
-!CO/RPR8
- KSPARSE(1, 187)=11
- KSPARSE(2, 187)=71
-!CO/RP16
- KSPARSE(1, 188)=11
- KSPARSE(2, 188)=74
-!CO/RO2T
- KSPARSE(1, 189)=11
- KSPARSE(2, 189)=85
-!H2O2/O3
- KSPARSE(1, 190)=12
- KSPARSE(2, 190)=3
-!H2O2/HO2
- KSPARSE(1, 191)=12
- KSPARSE(2, 191)=10
-!H2O2/H2O2
- KSPARSE(1, 192)=12
- KSPARSE(2, 192)=12
-!H2O2/OH
- KSPARSE(1, 193)=12
- KSPARSE(2, 193)=15
-!H2O2/BIOL
- KSPARSE(1, 194)=12
- KSPARSE(2, 194)=36
-!H2O2/BIOH
- KSPARSE(1, 195)=12
- KSPARSE(2, 195)=37
-!H2O2/WC_H2O2
- KSPARSE(1, 196)=12
- KSPARSE(2, 196)=89
-!H2O2/WR_H2O2
- KSPARSE(1, 197)=12
- KSPARSE(2, 197)=126
-!SO2/SO2
- KSPARSE(1, 198)=13
- KSPARSE(2, 198)=13
-!SO2/OH
- KSPARSE(1, 199)=13
- KSPARSE(2, 199)=15
-!SO2/WC_SO2
- KSPARSE(1, 200)=13
- KSPARSE(2, 200)=101
-!SO2/WR_SO2
- KSPARSE(1, 201)=13
- KSPARSE(2, 201)=138
-!H2SO4/SO2
- KSPARSE(1, 202)=14
- KSPARSE(2, 202)=13
-!H2SO4/H2SO4
- KSPARSE(1, 203)=14
- KSPARSE(2, 203)=14
-!H2SO4/OH
- KSPARSE(1, 204)=14
- KSPARSE(2, 204)=15
-!H2SO4/WC_H2SO4
- KSPARSE(1, 205)=14
- KSPARSE(2, 205)=102
-!H2SO4/WR_H2SO4
- KSPARSE(1, 206)=14
- KSPARSE(2, 206)=139
+ KSPARSE(1, 139)=13
+ KSPARSE(2, 139)=22
+!CO/ALD
+ KSPARSE(1, 140)=13
+ KSPARSE(2, 140)=23
+!CO/CARBO
+ KSPARSE(1, 141)=13
+ KSPARSE(2, 141)=25
+!CO/PAN
+ KSPARSE(1, 142)=13
+ KSPARSE(2, 142)=27
+!OH/O3
+ KSPARSE(1, 143)=14
+ KSPARSE(2, 143)=1
+!OH/H2O2
+ KSPARSE(1, 144)=14
+ KSPARSE(2, 144)=2
!OH/NO
- KSPARSE(1, 207)=15
- KSPARSE(2, 207)=1
+ KSPARSE(1, 145)=14
+ KSPARSE(2, 145)=3
!OH/NO2
- KSPARSE(1, 208)=15
- KSPARSE(2, 208)=2
-!OH/O3
- KSPARSE(1, 209)=15
- KSPARSE(2, 209)=3
+ KSPARSE(1, 146)=14
+ KSPARSE(2, 146)=4
+!OH/NO3
+ KSPARSE(1, 147)=14
+ KSPARSE(2, 147)=5
!OH/HONO
- KSPARSE(1, 210)=15
- KSPARSE(2, 210)=4
+ KSPARSE(1, 148)=14
+ KSPARSE(2, 148)=7
!OH/HNO3
- KSPARSE(1, 211)=15
- KSPARSE(2, 211)=5
+ KSPARSE(1, 149)=14
+ KSPARSE(2, 149)=8
!OH/HNO4
- KSPARSE(1, 212)=15
- KSPARSE(2, 212)=6
-!OH/NO3
- KSPARSE(1, 213)=15
- KSPARSE(2, 213)=8
+ KSPARSE(1, 150)=14
+ KSPARSE(2, 150)=9
!OH/NH3
- KSPARSE(1, 214)=15
- KSPARSE(2, 214)=9
-!OH/HO2
- KSPARSE(1, 215)=15
- KSPARSE(2, 215)=10
-!OH/CO
- KSPARSE(1, 216)=15
- KSPARSE(2, 216)=11
-!OH/H2O2
- KSPARSE(1, 217)=15
- KSPARSE(2, 217)=12
+ KSPARSE(1, 151)=14
+ KSPARSE(2, 151)=10
!OH/SO2
- KSPARSE(1, 218)=15
- KSPARSE(2, 218)=13
+ KSPARSE(1, 152)=14
+ KSPARSE(2, 152)=11
+!OH/CO
+ KSPARSE(1, 153)=14
+ KSPARSE(2, 153)=13
!OH/OH
- KSPARSE(1, 219)=15
- KSPARSE(2, 219)=15
-!OH/ETHE
- KSPARSE(1, 220)=15
- KSPARSE(2, 220)=16
-!OH/OLEL
- KSPARSE(1, 221)=15
- KSPARSE(2, 221)=17
-!OH/OLEH
- KSPARSE(1, 222)=15
- KSPARSE(2, 222)=18
-!OH/ALKL
- KSPARSE(1, 223)=15
- KSPARSE(2, 223)=19
-!OH/ALKM
- KSPARSE(1, 224)=15
- KSPARSE(2, 224)=20
-!OH/ALKH
- KSPARSE(1, 225)=15
- KSPARSE(2, 225)=21
-!OH/AROH
- KSPARSE(1, 226)=15
- KSPARSE(2, 226)=22
-!OH/AROL
- KSPARSE(1, 227)=15
- KSPARSE(2, 227)=23
-!OH/AROO
- KSPARSE(1, 228)=15
- KSPARSE(2, 228)=24
-!OH/ARAL
- KSPARSE(1, 229)=15
- KSPARSE(2, 229)=25
-!OH/ARAC
- KSPARSE(1, 230)=15
- KSPARSE(2, 230)=26
-!OH/PAH
- KSPARSE(1, 231)=15
- KSPARSE(2, 231)=27
+ KSPARSE(1, 154)=14
+ KSPARSE(2, 154)=14
+!OH/HO2
+ KSPARSE(1, 155)=14
+ KSPARSE(2, 155)=15
+!OH/CH4
+ KSPARSE(1, 156)=14
+ KSPARSE(2, 156)=16
+!OH/ETH
+ KSPARSE(1, 157)=14
+ KSPARSE(2, 157)=17
+!OH/ALKA
+ KSPARSE(1, 158)=14
+ KSPARSE(2, 158)=18
+!OH/ALKE
+ KSPARSE(1, 159)=14
+ KSPARSE(2, 159)=19
+!OH/BIO
+ KSPARSE(1, 160)=14
+ KSPARSE(2, 160)=20
+!OH/ARO
+ KSPARSE(1, 161)=14
+ KSPARSE(2, 161)=21
!OH/HCHO
- KSPARSE(1, 232)=15
- KSPARSE(2, 232)=28
-!OH/ALD2
- KSPARSE(1, 233)=15
- KSPARSE(2, 233)=29
-!OH/KETL
- KSPARSE(1, 234)=15
- KSPARSE(2, 234)=30
-!OH/KETH
- KSPARSE(1, 235)=15
- KSPARSE(2, 235)=31
-!OH/MEOH
- KSPARSE(1, 236)=15
- KSPARSE(2, 236)=32
-!OH/ETOH
- KSPARSE(1, 237)=15
- KSPARSE(2, 237)=33
-!OH/ALCH
- KSPARSE(1, 238)=15
- KSPARSE(2, 238)=34
-!OH/ISOP
- KSPARSE(1, 239)=15
- KSPARSE(2, 239)=35
-!OH/BIOL
- KSPARSE(1, 240)=15
- KSPARSE(2, 240)=36
-!OH/BIOH
- KSPARSE(1, 241)=15
- KSPARSE(2, 241)=37
-!OH/MTBE
- KSPARSE(1, 242)=15
- KSPARSE(2, 242)=38
-!OH/MVK
- KSPARSE(1, 243)=15
- KSPARSE(2, 243)=39
-!OH/MCR
- KSPARSE(1, 244)=15
- KSPARSE(2, 244)=40
-!OH/MGLY
- KSPARSE(1, 245)=15
- KSPARSE(2, 245)=41
+ KSPARSE(1, 162)=14
+ KSPARSE(2, 162)=22
+!OH/ALD
+ KSPARSE(1, 163)=14
+ KSPARSE(2, 163)=23
+!OH/KET
+ KSPARSE(1, 164)=14
+ KSPARSE(2, 164)=24
+!OH/CARBO
+ KSPARSE(1, 165)=14
+ KSPARSE(2, 165)=25
+!OH/ONIT
+ KSPARSE(1, 166)=14
+ KSPARSE(2, 166)=26
+!OH/PAN
+ KSPARSE(1, 167)=14
+ KSPARSE(2, 167)=27
+!OH/OP1
+ KSPARSE(1, 168)=14
+ KSPARSE(2, 168)=28
+!OH/OP2
+ KSPARSE(1, 169)=14
+ KSPARSE(2, 169)=29
!OH/ORA1
- KSPARSE(1, 246)=15
- KSPARSE(2, 246)=43
+ KSPARSE(1, 170)=14
+ KSPARSE(2, 170)=30
!OH/ORA2
- KSPARSE(1, 247)=15
- KSPARSE(2, 247)=44
-!OH/ACID
- KSPARSE(1, 248)=15
- KSPARSE(2, 248)=45
-!OH/RPG2
- KSPARSE(1, 249)=15
- KSPARSE(2, 249)=50
-!OH/RP18
- KSPARSE(1, 250)=15
- KSPARSE(2, 250)=51
-!OH/RPG3
- KSPARSE(1, 251)=15
- KSPARSE(2, 251)=52
-!OH/RPR3
- KSPARSE(1, 252)=15
- KSPARSE(2, 252)=57
-!OH/RPR7
- KSPARSE(1, 253)=15
- KSPARSE(2, 253)=62
-!OH/RPG7
- KSPARSE(1, 254)=15
- KSPARSE(2, 254)=63
-!OH/RPR1
- KSPARSE(1, 255)=15
- KSPARSE(2, 255)=69
-!OH/RPR5
- KSPARSE(1, 256)=15
- KSPARSE(2, 256)=70
-!OH/RPR8
- KSPARSE(1, 257)=15
- KSPARSE(2, 257)=71
-!OH/RP10
- KSPARSE(1, 258)=15
- KSPARSE(2, 258)=72
-!OH/RP11
- KSPARSE(1, 259)=15
- KSPARSE(2, 259)=73
-!OH/RP16
- KSPARSE(1, 260)=15
- KSPARSE(2, 260)=74
-!OH/RPRL
- KSPARSE(1, 261)=15
- KSPARSE(2, 261)=75
-!OH/RO2T
- KSPARSE(1, 262)=15
- KSPARSE(2, 262)=85
-!OH/RO21
- KSPARSE(1, 263)=15
- KSPARSE(2, 263)=86
-!OH/RO25
- KSPARSE(1, 264)=15
- KSPARSE(2, 264)=87
+ KSPARSE(1, 171)=14
+ KSPARSE(2, 171)=31
+!OH/ADD
+ KSPARSE(1, 172)=14
+ KSPARSE(2, 172)=37
!OH/WC_OH
- KSPARSE(1, 265)=15
- KSPARSE(2, 265)=98
+ KSPARSE(1, 173)=14
+ KSPARSE(2, 173)=52
!OH/WR_OH
- KSPARSE(1, 266)=15
- KSPARSE(2, 266)=135
-!ETHE/O3
- KSPARSE(1, 267)=16
- KSPARSE(2, 267)=3
-!ETHE/NO3
- KSPARSE(1, 268)=16
- KSPARSE(2, 268)=8
-!ETHE/OH
- KSPARSE(1, 269)=16
- KSPARSE(2, 269)=15
-!ETHE/ETHE
- KSPARSE(1, 270)=16
- KSPARSE(2, 270)=16
-!OLEL/NO
- KSPARSE(1, 271)=17
- KSPARSE(2, 271)=1
-!OLEL/O3
- KSPARSE(1, 272)=17
- KSPARSE(2, 272)=3
-!OLEL/NO3
- KSPARSE(1, 273)=17
- KSPARSE(2, 273)=8
-!OLEL/HO2
- KSPARSE(1, 274)=17
- KSPARSE(2, 274)=10
-!OLEL/OH
- KSPARSE(1, 275)=17
- KSPARSE(2, 275)=15
-!OLEL/OLEL
- KSPARSE(1, 276)=17
- KSPARSE(2, 276)=17
-!OLEL/ISOP
- KSPARSE(1, 277)=17
- KSPARSE(2, 277)=35
-!OLEH/O3
- KSPARSE(1, 278)=18
- KSPARSE(2, 278)=3
-!OLEH/NO3
- KSPARSE(1, 279)=18
- KSPARSE(2, 279)=8
-!OLEH/OH
- KSPARSE(1, 280)=18
- KSPARSE(2, 280)=15
-!OLEH/OLEH
- KSPARSE(1, 281)=18
- KSPARSE(2, 281)=18
-!ALKL/NO
- KSPARSE(1, 282)=19
- KSPARSE(2, 282)=1
-!ALKL/O3
- KSPARSE(1, 283)=19
- KSPARSE(2, 283)=3
-!ALKL/HO2
- KSPARSE(1, 284)=19
- KSPARSE(2, 284)=10
-!ALKL/OH
- KSPARSE(1, 285)=19
- KSPARSE(2, 285)=15
-!ALKL/OLEL
- KSPARSE(1, 286)=19
- KSPARSE(2, 286)=17
-!ALKL/ALKL
- KSPARSE(1, 287)=19
- KSPARSE(2, 287)=19
-!ALKL/RO2T
- KSPARSE(1, 288)=19
- KSPARSE(2, 288)=85
-!ALKL/RO25
- KSPARSE(1, 289)=19
- KSPARSE(2, 289)=87
-!ALKM/O3
- KSPARSE(1, 290)=20
- KSPARSE(2, 290)=3
-!ALKM/OH
- KSPARSE(1, 291)=20
- KSPARSE(2, 291)=15
-!ALKM/OLEH
- KSPARSE(1, 292)=20
- KSPARSE(2, 292)=18
-!ALKM/ALKM
- KSPARSE(1, 293)=20
- KSPARSE(2, 293)=20
-!ALKH/OH
- KSPARSE(1, 294)=21
- KSPARSE(2, 294)=15
-!ALKH/ALKH
- KSPARSE(1, 295)=21
- KSPARSE(2, 295)=21
-!AROH/OH
- KSPARSE(1, 296)=22
- KSPARSE(2, 296)=15
-!AROH/AROH
- KSPARSE(1, 297)=22
- KSPARSE(2, 297)=22
-!AROL/OH
- KSPARSE(1, 298)=23
- KSPARSE(2, 298)=15
-!AROL/AROL
- KSPARSE(1, 299)=23
- KSPARSE(2, 299)=23
-!AROO/NO3
- KSPARSE(1, 300)=24
- KSPARSE(2, 300)=8
-!AROO/OH
- KSPARSE(1, 301)=24
- KSPARSE(2, 301)=15
-!AROO/AROH
- KSPARSE(1, 302)=24
- KSPARSE(2, 302)=22
-!AROO/AROL
- KSPARSE(1, 303)=24
- KSPARSE(2, 303)=23
-!AROO/AROO
- KSPARSE(1, 304)=24
- KSPARSE(2, 304)=24
-!ARAL/NO
+ KSPARSE(1, 174)=14
+ KSPARSE(2, 174)=77
+!HO2/O3
+ KSPARSE(1, 175)=15
+ KSPARSE(2, 175)=1
+!HO2/H2O2
+ KSPARSE(1, 176)=15
+ KSPARSE(2, 176)=2
+!HO2/NO
+ KSPARSE(1, 177)=15
+ KSPARSE(2, 177)=3
+!HO2/NO2
+ KSPARSE(1, 178)=15
+ KSPARSE(2, 178)=4
+!HO2/NO3
+ KSPARSE(1, 179)=15
+ KSPARSE(2, 179)=5
+!HO2/HNO4
+ KSPARSE(1, 180)=15
+ KSPARSE(2, 180)=9
+!HO2/SO2
+ KSPARSE(1, 181)=15
+ KSPARSE(2, 181)=11
+!HO2/CO
+ KSPARSE(1, 182)=15
+ KSPARSE(2, 182)=13
+!HO2/OH
+ KSPARSE(1, 183)=15
+ KSPARSE(2, 183)=14
+!HO2/HO2
+ KSPARSE(1, 184)=15
+ KSPARSE(2, 184)=15
+!HO2/ALKA
+ KSPARSE(1, 185)=15
+ KSPARSE(2, 185)=18
+!HO2/ALKE
+ KSPARSE(1, 186)=15
+ KSPARSE(2, 186)=19
+!HO2/BIO
+ KSPARSE(1, 187)=15
+ KSPARSE(2, 187)=20
+!HO2/ARO
+ KSPARSE(1, 188)=15
+ KSPARSE(2, 188)=21
+!HO2/HCHO
+ KSPARSE(1, 189)=15
+ KSPARSE(2, 189)=22
+!HO2/ALD
+ KSPARSE(1, 190)=15
+ KSPARSE(2, 190)=23
+!HO2/CARBO
+ KSPARSE(1, 191)=15
+ KSPARSE(2, 191)=25
+!HO2/ONIT
+ KSPARSE(1, 192)=15
+ KSPARSE(2, 192)=26
+!HO2/PAN
+ KSPARSE(1, 193)=15
+ KSPARSE(2, 193)=27
+!HO2/OP1
+ KSPARSE(1, 194)=15
+ KSPARSE(2, 194)=28
+!HO2/OP2
+ KSPARSE(1, 195)=15
+ KSPARSE(2, 195)=29
+!HO2/ORA1
+ KSPARSE(1, 196)=15
+ KSPARSE(2, 196)=30
+!HO2/MO2
+ KSPARSE(1, 197)=15
+ KSPARSE(2, 197)=32
+!HO2/ALKAP
+ KSPARSE(1, 198)=15
+ KSPARSE(2, 198)=33
+!HO2/ALKEP
+ KSPARSE(1, 199)=15
+ KSPARSE(2, 199)=34
+!HO2/BIOP
+ KSPARSE(1, 200)=15
+ KSPARSE(2, 200)=35
+!HO2/PHO
+ KSPARSE(1, 201)=15
+ KSPARSE(2, 201)=36
+!HO2/ADD
+ KSPARSE(1, 202)=15
+ KSPARSE(2, 202)=37
+!HO2/AROP
+ KSPARSE(1, 203)=15
+ KSPARSE(2, 203)=38
+!HO2/CARBOP
+ KSPARSE(1, 204)=15
+ KSPARSE(2, 204)=39
+!HO2/OLN
+ KSPARSE(1, 205)=15
+ KSPARSE(2, 205)=40
+!HO2/XO2
+ KSPARSE(1, 206)=15
+ KSPARSE(2, 206)=41
+!HO2/WC_HO2
+ KSPARSE(1, 207)=15
+ KSPARSE(2, 207)=53
+!HO2/WR_HO2
+ KSPARSE(1, 208)=15
+ KSPARSE(2, 208)=78
+!CH4/O3
+ KSPARSE(1, 209)=16
+ KSPARSE(2, 209)=1
+!CH4/OH
+ KSPARSE(1, 210)=16
+ KSPARSE(2, 210)=14
+!CH4/CH4
+ KSPARSE(1, 211)=16
+ KSPARSE(2, 211)=16
+!CH4/ALKE
+ KSPARSE(1, 212)=16
+ KSPARSE(2, 212)=19
+!ETH/O3
+ KSPARSE(1, 213)=17
+ KSPARSE(2, 213)=1
+!ETH/OH
+ KSPARSE(1, 214)=17
+ KSPARSE(2, 214)=14
+!ETH/ETH
+ KSPARSE(1, 215)=17
+ KSPARSE(2, 215)=17
+!ETH/ALKE
+ KSPARSE(1, 216)=17
+ KSPARSE(2, 216)=19
+!ALKA/OH
+ KSPARSE(1, 217)=18
+ KSPARSE(2, 217)=14
+!ALKA/ALKA
+ KSPARSE(1, 218)=18
+ KSPARSE(2, 218)=18
+!ALKE/O3
+ KSPARSE(1, 219)=19
+ KSPARSE(2, 219)=1
+!ALKE/NO
+ KSPARSE(1, 220)=19
+ KSPARSE(2, 220)=3
+!ALKE/NO3
+ KSPARSE(1, 221)=19
+ KSPARSE(2, 221)=5
+!ALKE/OH
+ KSPARSE(1, 222)=19
+ KSPARSE(2, 222)=14
+!ALKE/ALKE
+ KSPARSE(1, 223)=19
+ KSPARSE(2, 223)=19
+!ALKE/BIO
+ KSPARSE(1, 224)=19
+ KSPARSE(2, 224)=20
+!ALKE/MO2
+ KSPARSE(1, 225)=19
+ KSPARSE(2, 225)=32
+!ALKE/BIOP
+ KSPARSE(1, 226)=19
+ KSPARSE(2, 226)=35
+!ALKE/CARBOP
+ KSPARSE(1, 227)=19
+ KSPARSE(2, 227)=39
+!BIO/O3
+ KSPARSE(1, 228)=20
+ KSPARSE(2, 228)=1
+!BIO/NO3
+ KSPARSE(1, 229)=20
+ KSPARSE(2, 229)=5
+!BIO/OH
+ KSPARSE(1, 230)=20
+ KSPARSE(2, 230)=14
+!BIO/BIO
+ KSPARSE(1, 231)=20
+ KSPARSE(2, 231)=20
+!ARO/O3
+ KSPARSE(1, 232)=21
+ KSPARSE(2, 232)=1
+!ARO/NO2
+ KSPARSE(1, 233)=21
+ KSPARSE(2, 233)=4
+!ARO/NO3
+ KSPARSE(1, 234)=21
+ KSPARSE(2, 234)=5
+!ARO/OH
+ KSPARSE(1, 235)=21
+ KSPARSE(2, 235)=14
+!ARO/HO2
+ KSPARSE(1, 236)=21
+ KSPARSE(2, 236)=15
+!ARO/ARO
+ KSPARSE(1, 237)=21
+ KSPARSE(2, 237)=21
+!ARO/PHO
+ KSPARSE(1, 238)=21
+ KSPARSE(2, 238)=36
+!ARO/ADD
+ KSPARSE(1, 239)=21
+ KSPARSE(2, 239)=37
+!HCHO/O3
+ KSPARSE(1, 240)=22
+ KSPARSE(2, 240)=1
+!HCHO/NO
+ KSPARSE(1, 241)=22
+ KSPARSE(2, 241)=3
+!HCHO/NO3
+ KSPARSE(1, 242)=22
+ KSPARSE(2, 242)=5
+!HCHO/OH
+ KSPARSE(1, 243)=22
+ KSPARSE(2, 243)=14
+!HCHO/ALKA
+ KSPARSE(1, 244)=22
+ KSPARSE(2, 244)=18
+!HCHO/ALKE
+ KSPARSE(1, 245)=22
+ KSPARSE(2, 245)=19
+!HCHO/BIO
+ KSPARSE(1, 246)=22
+ KSPARSE(2, 246)=20
+!HCHO/HCHO
+ KSPARSE(1, 247)=22
+ KSPARSE(2, 247)=22
+!HCHO/CARBO
+ KSPARSE(1, 248)=22
+ KSPARSE(2, 248)=25
+!HCHO/PAN
+ KSPARSE(1, 249)=22
+ KSPARSE(2, 249)=27
+!HCHO/OP1
+ KSPARSE(1, 250)=22
+ KSPARSE(2, 250)=28
+!HCHO/OP2
+ KSPARSE(1, 251)=22
+ KSPARSE(2, 251)=29
+!HCHO/MO2
+ KSPARSE(1, 252)=22
+ KSPARSE(2, 252)=32
+!HCHO/ALKAP
+ KSPARSE(1, 253)=22
+ KSPARSE(2, 253)=33
+!HCHO/ALKEP
+ KSPARSE(1, 254)=22
+ KSPARSE(2, 254)=34
+!HCHO/BIOP
+ KSPARSE(1, 255)=22
+ KSPARSE(2, 255)=35
+!HCHO/AROP
+ KSPARSE(1, 256)=22
+ KSPARSE(2, 256)=38
+!HCHO/CARBOP
+ KSPARSE(1, 257)=22
+ KSPARSE(2, 257)=39
+!HCHO/OLN
+ KSPARSE(1, 258)=22
+ KSPARSE(2, 258)=40
+!HCHO/XO2
+ KSPARSE(1, 259)=22
+ KSPARSE(2, 259)=41
+!HCHO/WC_HCHO
+ KSPARSE(1, 260)=22
+ KSPARSE(2, 260)=57
+!HCHO/WR_HCHO
+ KSPARSE(1, 261)=22
+ KSPARSE(2, 261)=82
+!ALD/O3
+ KSPARSE(1, 262)=23
+ KSPARSE(2, 262)=1
+!ALD/NO
+ KSPARSE(1, 263)=23
+ KSPARSE(2, 263)=3
+!ALD/NO3
+ KSPARSE(1, 264)=23
+ KSPARSE(2, 264)=5
+!ALD/OH
+ KSPARSE(1, 265)=23
+ KSPARSE(2, 265)=14
+!ALD/ALKA
+ KSPARSE(1, 266)=23
+ KSPARSE(2, 266)=18
+!ALD/ALKE
+ KSPARSE(1, 267)=23
+ KSPARSE(2, 267)=19
+!ALD/BIO
+ KSPARSE(1, 268)=23
+ KSPARSE(2, 268)=20
+!ALD/ALD
+ KSPARSE(1, 269)=23
+ KSPARSE(2, 269)=23
+!ALD/CARBO
+ KSPARSE(1, 270)=23
+ KSPARSE(2, 270)=25
+!ALD/ONIT
+ KSPARSE(1, 271)=23
+ KSPARSE(2, 271)=26
+!ALD/OP2
+ KSPARSE(1, 272)=23
+ KSPARSE(2, 272)=29
+!ALD/MO2
+ KSPARSE(1, 273)=23
+ KSPARSE(2, 273)=32
+!ALD/ALKAP
+ KSPARSE(1, 274)=23
+ KSPARSE(2, 274)=33
+!ALD/ALKEP
+ KSPARSE(1, 275)=23
+ KSPARSE(2, 275)=34
+!ALD/BIOP
+ KSPARSE(1, 276)=23
+ KSPARSE(2, 276)=35
+!ALD/CARBOP
+ KSPARSE(1, 277)=23
+ KSPARSE(2, 277)=39
+!ALD/OLN
+ KSPARSE(1, 278)=23
+ KSPARSE(2, 278)=40
+!KET/O3
+ KSPARSE(1, 279)=24
+ KSPARSE(2, 279)=1
+!KET/NO
+ KSPARSE(1, 280)=24
+ KSPARSE(2, 280)=3
+!KET/NO3
+ KSPARSE(1, 281)=24
+ KSPARSE(2, 281)=5
+!KET/OH
+ KSPARSE(1, 282)=24
+ KSPARSE(2, 282)=14
+!KET/ALKA
+ KSPARSE(1, 283)=24
+ KSPARSE(2, 283)=18
+!KET/ALKE
+ KSPARSE(1, 284)=24
+ KSPARSE(2, 284)=19
+!KET/BIO
+ KSPARSE(1, 285)=24
+ KSPARSE(2, 285)=20
+!KET/KET
+ KSPARSE(1, 286)=24
+ KSPARSE(2, 286)=24
+!KET/CARBO
+ KSPARSE(1, 287)=24
+ KSPARSE(2, 287)=25
+!KET/ONIT
+ KSPARSE(1, 288)=24
+ KSPARSE(2, 288)=26
+!KET/OP2
+ KSPARSE(1, 289)=24
+ KSPARSE(2, 289)=29
+!KET/MO2
+ KSPARSE(1, 290)=24
+ KSPARSE(2, 290)=32
+!KET/ALKAP
+ KSPARSE(1, 291)=24
+ KSPARSE(2, 291)=33
+!KET/ALKEP
+ KSPARSE(1, 292)=24
+ KSPARSE(2, 292)=34
+!KET/BIOP
+ KSPARSE(1, 293)=24
+ KSPARSE(2, 293)=35
+!KET/CARBOP
+ KSPARSE(1, 294)=24
+ KSPARSE(2, 294)=39
+!KET/OLN
+ KSPARSE(1, 295)=24
+ KSPARSE(2, 295)=40
+!CARBO/O3
+ KSPARSE(1, 296)=25
+ KSPARSE(2, 296)=1
+!CARBO/NO
+ KSPARSE(1, 297)=25
+ KSPARSE(2, 297)=3
+!CARBO/NO3
+ KSPARSE(1, 298)=25
+ KSPARSE(2, 298)=5
+!CARBO/OH
+ KSPARSE(1, 299)=25
+ KSPARSE(2, 299)=14
+!CARBO/ALKA
+ KSPARSE(1, 300)=25
+ KSPARSE(2, 300)=18
+!CARBO/ALKE
+ KSPARSE(1, 301)=25
+ KSPARSE(2, 301)=19
+!CARBO/BIO
+ KSPARSE(1, 302)=25
+ KSPARSE(2, 302)=20
+!CARBO/CARBO
+ KSPARSE(1, 303)=25
+ KSPARSE(2, 303)=25
+!CARBO/PAN
+ KSPARSE(1, 304)=25
+ KSPARSE(2, 304)=27
+!CARBO/MO2
KSPARSE(1, 305)=25
- KSPARSE(2, 305)=1
-!ARAL/NO3
+ KSPARSE(2, 305)=32
+!CARBO/ALKAP
KSPARSE(1, 306)=25
- KSPARSE(2, 306)=8
-!ARAL/HO2
+ KSPARSE(2, 306)=33
+!CARBO/BIOP
KSPARSE(1, 307)=25
- KSPARSE(2, 307)=10
-!ARAL/OH
+ KSPARSE(2, 307)=35
+!CARBO/AROP
KSPARSE(1, 308)=25
- KSPARSE(2, 308)=15
-!ARAL/ARAL
+ KSPARSE(2, 308)=38
+!CARBO/CARBOP
KSPARSE(1, 309)=25
- KSPARSE(2, 309)=25
-!ARAL/RO2T
- KSPARSE(1, 310)=25
- KSPARSE(2, 310)=85
-!ARAC/NO3
+ KSPARSE(2, 309)=39
+!ONIT/NO
+ KSPARSE(1, 310)=26
+ KSPARSE(2, 310)=3
+!ONIT/NO2
KSPARSE(1, 311)=26
- KSPARSE(2, 311)=8
-!ARAC/OH
+ KSPARSE(2, 311)=4
+!ONIT/NO3
KSPARSE(1, 312)=26
- KSPARSE(2, 312)=15
-!ARAC/ARAL
+ KSPARSE(2, 312)=5
+!ONIT/OH
KSPARSE(1, 313)=26
- KSPARSE(2, 313)=25
-!ARAC/ARAC
+ KSPARSE(2, 313)=14
+!ONIT/HO2
KSPARSE(1, 314)=26
- KSPARSE(2, 314)=26
-!PAH/OH
- KSPARSE(1, 315)=27
- KSPARSE(2, 315)=15
-!PAH/PAH
- KSPARSE(1, 316)=27
+ KSPARSE(2, 314)=15
+!ONIT/ONIT
+ KSPARSE(1, 315)=26
+ KSPARSE(2, 315)=26
+!ONIT/PAN
+ KSPARSE(1, 316)=26
KSPARSE(2, 316)=27
-!HCHO/NO
- KSPARSE(1, 317)=28
- KSPARSE(2, 317)=1
-!HCHO/O3
- KSPARSE(1, 318)=28
- KSPARSE(2, 318)=3
-!HCHO/NO3
- KSPARSE(1, 319)=28
- KSPARSE(2, 319)=8
-!HCHO/HO2
- KSPARSE(1, 320)=28
- KSPARSE(2, 320)=10
-!HCHO/OH
- KSPARSE(1, 321)=28
- KSPARSE(2, 321)=15
-!HCHO/ETHE
- KSPARSE(1, 322)=28
- KSPARSE(2, 322)=16
-!HCHO/OLEL
- KSPARSE(1, 323)=28
- KSPARSE(2, 323)=17
-!HCHO/OLEH
- KSPARSE(1, 324)=28
- KSPARSE(2, 324)=18
-!HCHO/HCHO
- KSPARSE(1, 325)=28
- KSPARSE(2, 325)=28
-!HCHO/MEOH
- KSPARSE(1, 326)=28
- KSPARSE(2, 326)=32
-!HCHO/ISOP
- KSPARSE(1, 327)=28
- KSPARSE(2, 327)=35
-!HCHO/MVK
- KSPARSE(1, 328)=28
- KSPARSE(2, 328)=39
-!HCHO/MCR
- KSPARSE(1, 329)=28
- KSPARSE(2, 329)=40
-!HCHO/RO2T
+!ONIT/MO2
+ KSPARSE(1, 317)=26
+ KSPARSE(2, 317)=32
+!ONIT/ALKAP
+ KSPARSE(1, 318)=26
+ KSPARSE(2, 318)=33
+!ONIT/BIOP
+ KSPARSE(1, 319)=26
+ KSPARSE(2, 319)=35
+!ONIT/PHO
+ KSPARSE(1, 320)=26
+ KSPARSE(2, 320)=36
+!ONIT/AROP
+ KSPARSE(1, 321)=26
+ KSPARSE(2, 321)=38
+!ONIT/CARBOP
+ KSPARSE(1, 322)=26
+ KSPARSE(2, 322)=39
+!ONIT/OLN
+ KSPARSE(1, 323)=26
+ KSPARSE(2, 323)=40
+!PAN/O3
+ KSPARSE(1, 324)=27
+ KSPARSE(2, 324)=1
+!PAN/NO2
+ KSPARSE(1, 325)=27
+ KSPARSE(2, 325)=4
+!PAN/NO3
+ KSPARSE(1, 326)=27
+ KSPARSE(2, 326)=5
+!PAN/OH
+ KSPARSE(1, 327)=27
+ KSPARSE(2, 327)=14
+!PAN/PAN
+ KSPARSE(1, 328)=27
+ KSPARSE(2, 328)=27
+!PAN/CARBOP
+ KSPARSE(1, 329)=27
+ KSPARSE(2, 329)=39
+!OP1/OH
KSPARSE(1, 330)=28
- KSPARSE(2, 330)=85
-!HCHO/RO21
+ KSPARSE(2, 330)=14
+!OP1/HO2
KSPARSE(1, 331)=28
- KSPARSE(2, 331)=86
-!HCHO/WC_HCHO
+ KSPARSE(2, 331)=15
+!OP1/OP1
KSPARSE(1, 332)=28
- KSPARSE(2, 332)=108
-!HCHO/WR_HCHO
+ KSPARSE(2, 332)=28
+!OP1/MO2
KSPARSE(1, 333)=28
- KSPARSE(2, 333)=145
-!ALD2/NO
- KSPARSE(1, 334)=29
- KSPARSE(2, 334)=1
-!ALD2/O3
- KSPARSE(1, 335)=29
- KSPARSE(2, 335)=3
-!ALD2/NO3
+ KSPARSE(2, 333)=32
+!OP1/WC_OP1
+ KSPARSE(1, 334)=28
+ KSPARSE(2, 334)=61
+!OP1/WR_OP1
+ KSPARSE(1, 335)=28
+ KSPARSE(2, 335)=86
+!OP2/O3
KSPARSE(1, 336)=29
- KSPARSE(2, 336)=8
-!ALD2/HO2
+ KSPARSE(2, 336)=1
+!OP2/OH
KSPARSE(1, 337)=29
- KSPARSE(2, 337)=10
-!ALD2/OH
+ KSPARSE(2, 337)=14
+!OP2/HO2
KSPARSE(1, 338)=29
KSPARSE(2, 338)=15
-!ALD2/OLEL
+!OP2/CARBO
KSPARSE(1, 339)=29
- KSPARSE(2, 339)=17
-!ALD2/ALD2
+ KSPARSE(2, 339)=25
+!OP2/OP2
KSPARSE(1, 340)=29
KSPARSE(2, 340)=29
-!ALD2/ETOH
+!OP2/ALKAP
KSPARSE(1, 341)=29
KSPARSE(2, 341)=33
-!ALD2/ISOP
+!OP2/ALKEP
KSPARSE(1, 342)=29
- KSPARSE(2, 342)=35
-!ALD2/MVK
+ KSPARSE(2, 342)=34
+!OP2/BIOP
KSPARSE(1, 343)=29
- KSPARSE(2, 343)=39
-!ALD2/MCR
+ KSPARSE(2, 343)=35
+!OP2/AROP
KSPARSE(1, 344)=29
- KSPARSE(2, 344)=40
-!ALD2/RO2T
+ KSPARSE(2, 344)=38
+!OP2/CARBOP
KSPARSE(1, 345)=29
- KSPARSE(2, 345)=85
-!ALD2/RO25
+ KSPARSE(2, 345)=39
+!OP2/XO2
KSPARSE(1, 346)=29
- KSPARSE(2, 346)=87
-!ALD2/WC_ALD2
- KSPARSE(1, 347)=29
- KSPARSE(2, 347)=109
-!ALD2/WR_ALD2
- KSPARSE(1, 348)=29
- KSPARSE(2, 348)=146
-!KETL/NO
+ KSPARSE(2, 346)=41
+!ORA1/O3
+ KSPARSE(1, 347)=30
+ KSPARSE(2, 347)=1
+!ORA1/OH
+ KSPARSE(1, 348)=30
+ KSPARSE(2, 348)=14
+!ORA1/ALKA
KSPARSE(1, 349)=30
- KSPARSE(2, 349)=1
-!KETL/HO2
+ KSPARSE(2, 349)=18
+!ORA1/ALKE
KSPARSE(1, 350)=30
- KSPARSE(2, 350)=10
-!KETL/OH
+ KSPARSE(2, 350)=19
+!ORA1/BIO
KSPARSE(1, 351)=30
- KSPARSE(2, 351)=15
-!KETL/KETL
+ KSPARSE(2, 351)=20
+!ORA1/CARBO
KSPARSE(1, 352)=30
- KSPARSE(2, 352)=30
-!KETL/MVK
+ KSPARSE(2, 352)=25
+!ORA1/PAN
KSPARSE(1, 353)=30
- KSPARSE(2, 353)=39
-!KETL/RO2T
+ KSPARSE(2, 353)=27
+!ORA1/ORA1
KSPARSE(1, 354)=30
- KSPARSE(2, 354)=85
-!KETL/WC_KETL
+ KSPARSE(2, 354)=30
+!ORA1/WC_ORA1
KSPARSE(1, 355)=30
- KSPARSE(2, 355)=112
-!KETL/WR_KETL
+ KSPARSE(2, 355)=58
+!ORA1/WR_ORA1
KSPARSE(1, 356)=30
- KSPARSE(2, 356)=149
-!KETH/OH
+ KSPARSE(2, 356)=83
+!ORA2/O3
KSPARSE(1, 357)=31
- KSPARSE(2, 357)=15
-!KETH/KETH
+ KSPARSE(2, 357)=1
+!ORA2/OH
KSPARSE(1, 358)=31
- KSPARSE(2, 358)=31
-!MEOH/OH
- KSPARSE(1, 359)=32
- KSPARSE(2, 359)=15
-!MEOH/MEOH
- KSPARSE(1, 360)=32
- KSPARSE(2, 360)=32
-!MEOH/WC_MEOH
- KSPARSE(1, 361)=32
- KSPARSE(2, 361)=105
-!MEOH/WR_MEOH
- KSPARSE(1, 362)=32
- KSPARSE(2, 362)=142
-!ETOH/OH
- KSPARSE(1, 363)=33
- KSPARSE(2, 363)=15
-!ETOH/ETOH
- KSPARSE(1, 364)=33
- KSPARSE(2, 364)=33
-!ETOH/WC_ETOH
- KSPARSE(1, 365)=33
- KSPARSE(2, 365)=106
-!ETOH/WR_ETOH
- KSPARSE(1, 366)=33
- KSPARSE(2, 366)=143
-!ALCH/OH
- KSPARSE(1, 367)=34
- KSPARSE(2, 367)=15
-!ALCH/ALCH
- KSPARSE(1, 368)=34
- KSPARSE(2, 368)=34
-!ALCH/WC_ALCH
- KSPARSE(1, 369)=34
- KSPARSE(2, 369)=107
-!ALCH/WR_ALCH
- KSPARSE(1, 370)=34
- KSPARSE(2, 370)=144
-!ISOP/O3
- KSPARSE(1, 371)=35
- KSPARSE(2, 371)=3
-!ISOP/NO3
- KSPARSE(1, 372)=35
- KSPARSE(2, 372)=8
-!ISOP/OH
- KSPARSE(1, 373)=35
- KSPARSE(2, 373)=15
-!ISOP/ISOP
- KSPARSE(1, 374)=35
- KSPARSE(2, 374)=35
-!BIOL/O3
- KSPARSE(1, 375)=36
- KSPARSE(2, 375)=3
-!BIOL/NO3
- KSPARSE(1, 376)=36
- KSPARSE(2, 376)=8
-!BIOL/OH
- KSPARSE(1, 377)=36
- KSPARSE(2, 377)=15
-!BIOL/BIOL
- KSPARSE(1, 378)=36
- KSPARSE(2, 378)=36
-!BIOH/O3
- KSPARSE(1, 379)=37
- KSPARSE(2, 379)=3
-!BIOH/NO3
- KSPARSE(1, 380)=37
- KSPARSE(2, 380)=8
-!BIOH/OH
- KSPARSE(1, 381)=37
- KSPARSE(2, 381)=15
-!BIOH/BIOH
- KSPARSE(1, 382)=37
- KSPARSE(2, 382)=37
-!MTBE/OH
- KSPARSE(1, 383)=38
- KSPARSE(2, 383)=15
-!MTBE/MTBE
- KSPARSE(1, 384)=38
- KSPARSE(2, 384)=38
-!MVK/NO
- KSPARSE(1, 385)=39
- KSPARSE(2, 385)=1
-!MVK/O3
- KSPARSE(1, 386)=39
- KSPARSE(2, 386)=3
-!MVK/HO2
- KSPARSE(1, 387)=39
- KSPARSE(2, 387)=10
-!MVK/OH
- KSPARSE(1, 388)=39
- KSPARSE(2, 388)=15
-!MVK/ISOP
- KSPARSE(1, 389)=39
- KSPARSE(2, 389)=35
-!MVK/MVK
- KSPARSE(1, 390)=39
- KSPARSE(2, 390)=39
-!MVK/RO2T
- KSPARSE(1, 391)=39
- KSPARSE(2, 391)=85
-!MCR/NO
- KSPARSE(1, 392)=40
- KSPARSE(2, 392)=1
-!MCR/O3
- KSPARSE(1, 393)=40
- KSPARSE(2, 393)=3
-!MCR/NO3
- KSPARSE(1, 394)=40
- KSPARSE(2, 394)=8
-!MCR/HO2
- KSPARSE(1, 395)=40
- KSPARSE(2, 395)=10
-!MCR/OH
- KSPARSE(1, 396)=40
- KSPARSE(2, 396)=15
-!MCR/ISOP
- KSPARSE(1, 397)=40
- KSPARSE(2, 397)=35
-!MCR/MCR
- KSPARSE(1, 398)=40
- KSPARSE(2, 398)=40
-!MCR/RO2T
- KSPARSE(1, 399)=40
- KSPARSE(2, 399)=85
-!MGLY/NO
- KSPARSE(1, 400)=41
- KSPARSE(2, 400)=1
-!MGLY/O3
- KSPARSE(1, 401)=41
- KSPARSE(2, 401)=3
-!MGLY/NO3
- KSPARSE(1, 402)=41
- KSPARSE(2, 402)=8
-!MGLY/HO2
- KSPARSE(1, 403)=41
- KSPARSE(2, 403)=10
-!MGLY/OH
- KSPARSE(1, 404)=41
- KSPARSE(2, 404)=15
-!MGLY/MVK
- KSPARSE(1, 405)=41
- KSPARSE(2, 405)=39
-!MGLY/MCR
- KSPARSE(1, 406)=41
- KSPARSE(2, 406)=40
-!MGLY/MGLY
- KSPARSE(1, 407)=41
- KSPARSE(2, 407)=41
-!MGLY/RO2T
- KSPARSE(1, 408)=41
- KSPARSE(2, 408)=85
-!MGLY/WC_MGLY
- KSPARSE(1, 409)=41
- KSPARSE(2, 409)=111
-!MGLY/WR_MGLY
- KSPARSE(1, 410)=41
- KSPARSE(2, 410)=148
-!GLY/GLY
- KSPARSE(1, 411)=42
- KSPARSE(2, 411)=42
-!GLY/WC_GLY
- KSPARSE(1, 412)=42
- KSPARSE(2, 412)=110
-!GLY/WR_GLY
- KSPARSE(1, 413)=42
- KSPARSE(2, 413)=147
-!ORA1/O3
- KSPARSE(1, 414)=43
- KSPARSE(2, 414)=3
-!ORA1/OH
- KSPARSE(1, 415)=43
- KSPARSE(2, 415)=15
-!ORA1/ETHE
- KSPARSE(1, 416)=43
- KSPARSE(2, 416)=16
-!ORA1/OLEL
- KSPARSE(1, 417)=43
- KSPARSE(2, 417)=17
-!ORA1/ISOP
- KSPARSE(1, 418)=43
- KSPARSE(2, 418)=35
-!ORA1/MVK
- KSPARSE(1, 419)=43
- KSPARSE(2, 419)=39
-!ORA1/MCR
- KSPARSE(1, 420)=43
- KSPARSE(2, 420)=40
-!ORA1/ORA1
- KSPARSE(1, 421)=43
- KSPARSE(2, 421)=43
-!ORA1/WC_ORA1
- KSPARSE(1, 422)=43
- KSPARSE(2, 422)=113
-!ORA1/WR_ORA1
- KSPARSE(1, 423)=43
- KSPARSE(2, 423)=150
-!ORA2/O3
- KSPARSE(1, 424)=44
- KSPARSE(2, 424)=3
+ KSPARSE(2, 358)=14
!ORA2/HO2
- KSPARSE(1, 425)=44
- KSPARSE(2, 425)=10
-!ORA2/OH
- KSPARSE(1, 426)=44
- KSPARSE(2, 426)=15
-!ORA2/OLEL
- KSPARSE(1, 427)=44
- KSPARSE(2, 427)=17
+ KSPARSE(1, 359)=31
+ KSPARSE(2, 359)=15
+!ORA2/ALKE
+ KSPARSE(1, 360)=31
+ KSPARSE(2, 360)=19
+!ORA2/BIO
+ KSPARSE(1, 361)=31
+ KSPARSE(2, 361)=20
+!ORA2/CARBO
+ KSPARSE(1, 362)=31
+ KSPARSE(2, 362)=25
!ORA2/ORA2
- KSPARSE(1, 428)=44
- KSPARSE(2, 428)=44
+ KSPARSE(1, 363)=31
+ KSPARSE(2, 363)=31
+!ORA2/MO2
+ KSPARSE(1, 364)=31
+ KSPARSE(2, 364)=32
+!ORA2/ALKAP
+ KSPARSE(1, 365)=31
+ KSPARSE(2, 365)=33
+!ORA2/ALKEP
+ KSPARSE(1, 366)=31
+ KSPARSE(2, 366)=34
+!ORA2/BIOP
+ KSPARSE(1, 367)=31
+ KSPARSE(2, 367)=35
+!ORA2/CARBOP
+ KSPARSE(1, 368)=31
+ KSPARSE(2, 368)=39
+!ORA2/OLN
+ KSPARSE(1, 369)=31
+ KSPARSE(2, 369)=40
!ORA2/WC_ORA2
- KSPARSE(1, 429)=44
- KSPARSE(2, 429)=114
+ KSPARSE(1, 370)=31
+ KSPARSE(2, 370)=59
!ORA2/WR_ORA2
- KSPARSE(1, 430)=44
- KSPARSE(2, 430)=151
-!ACID/O3
- KSPARSE(1, 431)=45
- KSPARSE(2, 431)=3
-!ACID/HO2
- KSPARSE(1, 432)=45
- KSPARSE(2, 432)=10
-!ACID/OH
- KSPARSE(1, 433)=45
- KSPARSE(2, 433)=15
-!ACID/OLEH
- KSPARSE(1, 434)=45
- KSPARSE(2, 434)=18
-!ACID/ACID
- KSPARSE(1, 435)=45
- KSPARSE(2, 435)=45
-!ACID/WC_ACID
- KSPARSE(1, 436)=45
- KSPARSE(2, 436)=115
-!ACID/WR_ACID
- KSPARSE(1, 437)=45
- KSPARSE(2, 437)=152
-!UR28/HO2
- KSPARSE(1, 438)=46
- KSPARSE(2, 438)=10
-!UR28/UR28
- KSPARSE(1, 439)=46
- KSPARSE(2, 439)=46
-!UR28/WC_UR28
- KSPARSE(1, 440)=46
- KSPARSE(2, 440)=118
-!UR28/WR_UR28
- KSPARSE(1, 441)=46
- KSPARSE(2, 441)=155
-!UR21/O3
- KSPARSE(1, 442)=47
- KSPARSE(2, 442)=3
-!UR21/HO2
- KSPARSE(1, 443)=47
- KSPARSE(2, 443)=10
-!UR21/MVK
- KSPARSE(1, 444)=47
- KSPARSE(2, 444)=39
-!UR21/UR21
- KSPARSE(1, 445)=47
- KSPARSE(2, 445)=47
-!UR21/WC_UR21
- KSPARSE(1, 446)=47
- KSPARSE(2, 446)=117
-!UR21/WR_UR21
- KSPARSE(1, 447)=47
- KSPARSE(2, 447)=154
-!URG2/OH
- KSPARSE(1, 448)=48
+ KSPARSE(1, 371)=31
+ KSPARSE(2, 371)=84
+!MO2/O3
+ KSPARSE(1, 372)=32
+ KSPARSE(2, 372)=1
+!MO2/NO
+ KSPARSE(1, 373)=32
+ KSPARSE(2, 373)=3
+!MO2/NO3
+ KSPARSE(1, 374)=32
+ KSPARSE(2, 374)=5
+!MO2/OH
+ KSPARSE(1, 375)=32
+ KSPARSE(2, 375)=14
+!MO2/HO2
+ KSPARSE(1, 376)=32
+ KSPARSE(2, 376)=15
+!MO2/CH4
+ KSPARSE(1, 377)=32
+ KSPARSE(2, 377)=16
+!MO2/ALKE
+ KSPARSE(1, 378)=32
+ KSPARSE(2, 378)=19
+!MO2/BIO
+ KSPARSE(1, 379)=32
+ KSPARSE(2, 379)=20
+!MO2/ALD
+ KSPARSE(1, 380)=32
+ KSPARSE(2, 380)=23
+!MO2/OP1
+ KSPARSE(1, 381)=32
+ KSPARSE(2, 381)=28
+!MO2/OP2
+ KSPARSE(1, 382)=32
+ KSPARSE(2, 382)=29
+!MO2/MO2
+ KSPARSE(1, 383)=32
+ KSPARSE(2, 383)=32
+!MO2/ALKAP
+ KSPARSE(1, 384)=32
+ KSPARSE(2, 384)=33
+!MO2/ALKEP
+ KSPARSE(1, 385)=32
+ KSPARSE(2, 385)=34
+!MO2/BIOP
+ KSPARSE(1, 386)=32
+ KSPARSE(2, 386)=35
+!MO2/AROP
+ KSPARSE(1, 387)=32
+ KSPARSE(2, 387)=38
+!MO2/CARBOP
+ KSPARSE(1, 388)=32
+ KSPARSE(2, 388)=39
+!MO2/OLN
+ KSPARSE(1, 389)=32
+ KSPARSE(2, 389)=40
+!MO2/XO2
+ KSPARSE(1, 390)=32
+ KSPARSE(2, 390)=41
+!MO2/WC_MO2
+ KSPARSE(1, 391)=32
+ KSPARSE(2, 391)=60
+!MO2/WR_MO2
+ KSPARSE(1, 392)=32
+ KSPARSE(2, 392)=85
+!ALKAP/O3
+ KSPARSE(1, 393)=33
+ KSPARSE(2, 393)=1
+!ALKAP/NO
+ KSPARSE(1, 394)=33
+ KSPARSE(2, 394)=3
+!ALKAP/NO3
+ KSPARSE(1, 395)=33
+ KSPARSE(2, 395)=5
+!ALKAP/OH
+ KSPARSE(1, 396)=33
+ KSPARSE(2, 396)=14
+!ALKAP/HO2
+ KSPARSE(1, 397)=33
+ KSPARSE(2, 397)=15
+!ALKAP/ETH
+ KSPARSE(1, 398)=33
+ KSPARSE(2, 398)=17
+!ALKAP/ALKA
+ KSPARSE(1, 399)=33
+ KSPARSE(2, 399)=18
+!ALKAP/ALKE
+ KSPARSE(1, 400)=33
+ KSPARSE(2, 400)=19
+!ALKAP/BIO
+ KSPARSE(1, 401)=33
+ KSPARSE(2, 401)=20
+!ALKAP/KET
+ KSPARSE(1, 402)=33
+ KSPARSE(2, 402)=24
+!ALKAP/ONIT
+ KSPARSE(1, 403)=33
+ KSPARSE(2, 403)=26
+!ALKAP/OP2
+ KSPARSE(1, 404)=33
+ KSPARSE(2, 404)=29
+!ALKAP/MO2
+ KSPARSE(1, 405)=33
+ KSPARSE(2, 405)=32
+!ALKAP/ALKAP
+ KSPARSE(1, 406)=33
+ KSPARSE(2, 406)=33
+!ALKAP/CARBOP
+ KSPARSE(1, 407)=33
+ KSPARSE(2, 407)=39
+!ALKEP/NO
+ KSPARSE(1, 408)=34
+ KSPARSE(2, 408)=3
+!ALKEP/NO3
+ KSPARSE(1, 409)=34
+ KSPARSE(2, 409)=5
+!ALKEP/OH
+ KSPARSE(1, 410)=34
+ KSPARSE(2, 410)=14
+!ALKEP/HO2
+ KSPARSE(1, 411)=34
+ KSPARSE(2, 411)=15
+!ALKEP/ALKE
+ KSPARSE(1, 412)=34
+ KSPARSE(2, 412)=19
+!ALKEP/MO2
+ KSPARSE(1, 413)=34
+ KSPARSE(2, 413)=32
+!ALKEP/ALKEP
+ KSPARSE(1, 414)=34
+ KSPARSE(2, 414)=34
+!ALKEP/CARBOP
+ KSPARSE(1, 415)=34
+ KSPARSE(2, 415)=39
+!BIOP/NO
+ KSPARSE(1, 416)=35
+ KSPARSE(2, 416)=3
+!BIOP/NO3
+ KSPARSE(1, 417)=35
+ KSPARSE(2, 417)=5
+!BIOP/OH
+ KSPARSE(1, 418)=35
+ KSPARSE(2, 418)=14
+!BIOP/HO2
+ KSPARSE(1, 419)=35
+ KSPARSE(2, 419)=15
+!BIOP/ALKE
+ KSPARSE(1, 420)=35
+ KSPARSE(2, 420)=19
+!BIOP/BIO
+ KSPARSE(1, 421)=35
+ KSPARSE(2, 421)=20
+!BIOP/MO2
+ KSPARSE(1, 422)=35
+ KSPARSE(2, 422)=32
+!BIOP/BIOP
+ KSPARSE(1, 423)=35
+ KSPARSE(2, 423)=35
+!BIOP/CARBOP
+ KSPARSE(1, 424)=35
+ KSPARSE(2, 424)=39
+!PHO/NO2
+ KSPARSE(1, 425)=36
+ KSPARSE(2, 425)=4
+!PHO/NO3
+ KSPARSE(1, 426)=36
+ KSPARSE(2, 426)=5
+!PHO/OH
+ KSPARSE(1, 427)=36
+ KSPARSE(2, 427)=14
+!PHO/HO2
+ KSPARSE(1, 428)=36
+ KSPARSE(2, 428)=15
+!PHO/ARO
+ KSPARSE(1, 429)=36
+ KSPARSE(2, 429)=21
+!PHO/PHO
+ KSPARSE(1, 430)=36
+ KSPARSE(2, 430)=36
+!ADD/O3
+ KSPARSE(1, 431)=37
+ KSPARSE(2, 431)=1
+!ADD/NO2
+ KSPARSE(1, 432)=37
+ KSPARSE(2, 432)=4
+!ADD/OH
+ KSPARSE(1, 433)=37
+ KSPARSE(2, 433)=14
+!ADD/ARO
+ KSPARSE(1, 434)=37
+ KSPARSE(2, 434)=21
+!ADD/ADD
+ KSPARSE(1, 435)=37
+ KSPARSE(2, 435)=37
+!AROP/NO
+ KSPARSE(1, 436)=38
+ KSPARSE(2, 436)=3
+!AROP/NO3
+ KSPARSE(1, 437)=38
+ KSPARSE(2, 437)=5
+!AROP/HO2
+ KSPARSE(1, 438)=38
+ KSPARSE(2, 438)=15
+!AROP/MO2
+ KSPARSE(1, 439)=38
+ KSPARSE(2, 439)=32
+!AROP/ADD
+ KSPARSE(1, 440)=38
+ KSPARSE(2, 440)=37
+!AROP/AROP
+ KSPARSE(1, 441)=38
+ KSPARSE(2, 441)=38
+!AROP/CARBOP
+ KSPARSE(1, 442)=38
+ KSPARSE(2, 442)=39
+!CARBOP/O3
+ KSPARSE(1, 443)=39
+ KSPARSE(2, 443)=1
+!CARBOP/NO
+ KSPARSE(1, 444)=39
+ KSPARSE(2, 444)=3
+!CARBOP/NO2
+ KSPARSE(1, 445)=39
+ KSPARSE(2, 445)=4
+!CARBOP/NO3
+ KSPARSE(1, 446)=39
+ KSPARSE(2, 446)=5
+!CARBOP/OH
+ KSPARSE(1, 447)=39
+ KSPARSE(2, 447)=14
+!CARBOP/HO2
+ KSPARSE(1, 448)=39
KSPARSE(2, 448)=15
-!URG2/URG2
- KSPARSE(1, 449)=48
- KSPARSE(2, 449)=48
-!URG2/RPG2
- KSPARSE(1, 450)=48
- KSPARSE(2, 450)=50
-!URG2/RP18
- KSPARSE(1, 451)=48
- KSPARSE(2, 451)=51
-!UR26/OH
- KSPARSE(1, 452)=49
- KSPARSE(2, 452)=15
-!UR26/UR26
- KSPARSE(1, 453)=49
- KSPARSE(2, 453)=49
-!UR26/RP11
- KSPARSE(1, 454)=49
- KSPARSE(2, 454)=73
-!RPG2/NO
- KSPARSE(1, 455)=50
- KSPARSE(2, 455)=1
-!RPG2/HO2
- KSPARSE(1, 456)=50
- KSPARSE(2, 456)=10
-!RPG2/OH
- KSPARSE(1, 457)=50
- KSPARSE(2, 457)=15
-!RPG2/RPG2
- KSPARSE(1, 458)=50
- KSPARSE(2, 458)=50
-!RPG2/RPG3
- KSPARSE(1, 459)=50
- KSPARSE(2, 459)=52
-!RPG2/RO2T
- KSPARSE(1, 460)=50
- KSPARSE(2, 460)=85
-!RP18/OH
- KSPARSE(1, 461)=51
- KSPARSE(2, 461)=15
-!RP18/RPG2
- KSPARSE(1, 462)=51
- KSPARSE(2, 462)=50
-!RP18/RP18
- KSPARSE(1, 463)=51
- KSPARSE(2, 463)=51
-!RPG3/NO
- KSPARSE(1, 464)=52
- KSPARSE(2, 464)=1
-!RPG3/HO2
- KSPARSE(1, 465)=52
- KSPARSE(2, 465)=10
-!RPG3/OH
- KSPARSE(1, 466)=52
+!CARBOP/ALKE
+ KSPARSE(1, 449)=39
+ KSPARSE(2, 449)=19
+!CARBOP/BIO
+ KSPARSE(1, 450)=39
+ KSPARSE(2, 450)=20
+!CARBOP/ALD
+ KSPARSE(1, 451)=39
+ KSPARSE(2, 451)=23
+!CARBOP/KET
+ KSPARSE(1, 452)=39
+ KSPARSE(2, 452)=24
+!CARBOP/CARBO
+ KSPARSE(1, 453)=39
+ KSPARSE(2, 453)=25
+!CARBOP/PAN
+ KSPARSE(1, 454)=39
+ KSPARSE(2, 454)=27
+!CARBOP/OP2
+ KSPARSE(1, 455)=39
+ KSPARSE(2, 455)=29
+!CARBOP/MO2
+ KSPARSE(1, 456)=39
+ KSPARSE(2, 456)=32
+!CARBOP/ALKAP
+ KSPARSE(1, 457)=39
+ KSPARSE(2, 457)=33
+!CARBOP/ALKEP
+ KSPARSE(1, 458)=39
+ KSPARSE(2, 458)=34
+!CARBOP/BIOP
+ KSPARSE(1, 459)=39
+ KSPARSE(2, 459)=35
+!CARBOP/AROP
+ KSPARSE(1, 460)=39
+ KSPARSE(2, 460)=38
+!CARBOP/CARBOP
+ KSPARSE(1, 461)=39
+ KSPARSE(2, 461)=39
+!CARBOP/OLN
+ KSPARSE(1, 462)=39
+ KSPARSE(2, 462)=40
+!CARBOP/XO2
+ KSPARSE(1, 463)=39
+ KSPARSE(2, 463)=41
+!OLN/NO
+ KSPARSE(1, 464)=40
+ KSPARSE(2, 464)=3
+!OLN/NO3
+ KSPARSE(1, 465)=40
+ KSPARSE(2, 465)=5
+!OLN/HO2
+ KSPARSE(1, 466)=40
KSPARSE(2, 466)=15
-!RPG3/RPG3
- KSPARSE(1, 467)=52
- KSPARSE(2, 467)=52
-!RPG3/RO2T
- KSPARSE(1, 468)=52
- KSPARSE(2, 468)=85
-!URG4/O3
- KSPARSE(1, 469)=53
- KSPARSE(2, 469)=3
-!URG4/HO2
- KSPARSE(1, 470)=53
- KSPARSE(2, 470)=10
-!URG4/BIOL
- KSPARSE(1, 471)=53
- KSPARSE(2, 471)=36
-!URG4/URG4
- KSPARSE(1, 472)=53
- KSPARSE(2, 472)=53
-!UR8/O3
- KSPARSE(1, 473)=54
- KSPARSE(2, 473)=3
-!UR8/BIOH
- KSPARSE(1, 474)=54
- KSPARSE(2, 474)=37
-!UR8/UR8
- KSPARSE(1, 475)=54
- KSPARSE(2, 475)=54
-!UR17/NO
- KSPARSE(1, 476)=55
- KSPARSE(2, 476)=1
-!UR17/HO2
- KSPARSE(1, 477)=55
- KSPARSE(2, 477)=10
-!UR17/UR17
- KSPARSE(1, 478)=55
- KSPARSE(2, 478)=55
-!UR17/RO2T
- KSPARSE(1, 479)=55
- KSPARSE(2, 479)=85
-!UR7/NO
- KSPARSE(1, 480)=56
- KSPARSE(2, 480)=1
-!UR7/O3
- KSPARSE(1, 481)=56
- KSPARSE(2, 481)=3
-!UR7/HO2
- KSPARSE(1, 482)=56
- KSPARSE(2, 482)=10
-!UR7/BIOH
- KSPARSE(1, 483)=56
- KSPARSE(2, 483)=37
-!UR7/UR7
- KSPARSE(1, 484)=56
- KSPARSE(2, 484)=56
-!UR7/RO2T
- KSPARSE(1, 485)=56
- KSPARSE(2, 485)=85
-!RPR3/NO
- KSPARSE(1, 486)=57
- KSPARSE(2, 486)=1
-!RPR3/O3
- KSPARSE(1, 487)=57
- KSPARSE(2, 487)=3
-!RPR3/NO3
- KSPARSE(1, 488)=57
- KSPARSE(2, 488)=8
-!RPR3/HO2
- KSPARSE(1, 489)=57
- KSPARSE(2, 489)=10
-!RPR3/OH
- KSPARSE(1, 490)=57
- KSPARSE(2, 490)=15
-!RPR3/BIOL
- KSPARSE(1, 491)=57
- KSPARSE(2, 491)=36
-!RPR3/RPR3
- KSPARSE(1, 492)=57
- KSPARSE(2, 492)=57
-!RPR3/RO2T
- KSPARSE(1, 493)=57
- KSPARSE(2, 493)=85
-!URG6/NO
- KSPARSE(1, 494)=58
- KSPARSE(2, 494)=1
-!URG6/OH
- KSPARSE(1, 495)=58
- KSPARSE(2, 495)=15
-!URG6/URG6
- KSPARSE(1, 496)=58
- KSPARSE(2, 496)=58
-!URG6/RPG7
- KSPARSE(1, 497)=58
- KSPARSE(2, 497)=63
-!UR22/NO2
- KSPARSE(1, 498)=59
- KSPARSE(2, 498)=2
-!UR22/UR22
- KSPARSE(1, 499)=59
- KSPARSE(2, 499)=59
-!URG7/NO2
- KSPARSE(1, 500)=60
- KSPARSE(2, 500)=2
-!URG7/OH
- KSPARSE(1, 501)=60
- KSPARSE(2, 501)=15
-!URG7/ARAC
- KSPARSE(1, 502)=60
- KSPARSE(2, 502)=26
-!URG7/URG7
- KSPARSE(1, 503)=60
- KSPARSE(2, 503)=60
-!URG7/RPR7
- KSPARSE(1, 504)=60
- KSPARSE(2, 504)=62
-!URG7/RPR5
- KSPARSE(1, 505)=60
- KSPARSE(2, 505)=70
-!URG7/RPRL
- KSPARSE(1, 506)=60
- KSPARSE(2, 506)=75
-!RPR4/NO2
- KSPARSE(1, 507)=61
- KSPARSE(2, 507)=2
-!RPR4/NO3
- KSPARSE(1, 508)=61
- KSPARSE(2, 508)=8
-!RPR4/RPR4
- KSPARSE(1, 509)=61
- KSPARSE(2, 509)=61
-!RPR7/NO
- KSPARSE(1, 510)=62
- KSPARSE(2, 510)=1
-!RPR7/HO2
- KSPARSE(1, 511)=62
- KSPARSE(2, 511)=10
-!RPR7/OH
- KSPARSE(1, 512)=62
- KSPARSE(2, 512)=15
-!RPR7/RPR7
- KSPARSE(1, 513)=62
- KSPARSE(2, 513)=62
-!RPR7/RPRL
- KSPARSE(1, 514)=62
- KSPARSE(2, 514)=75
-!RPR7/RO2T
- KSPARSE(1, 515)=62
- KSPARSE(2, 515)=85
-!RPG7/NO
- KSPARSE(1, 516)=63
- KSPARSE(2, 516)=1
-!RPG7/HO2
- KSPARSE(1, 517)=63
- KSPARSE(2, 517)=10
-!RPG7/OH
- KSPARSE(1, 518)=63
- KSPARSE(2, 518)=15
-!RPG7/RPG7
- KSPARSE(1, 519)=63
- KSPARSE(2, 519)=63
-!RPG7/RO2T
- KSPARSE(1, 520)=63
- KSPARSE(2, 520)=85
-!URG8/NO
- KSPARSE(1, 521)=64
- KSPARSE(2, 521)=1
-!URG8/NO2
- KSPARSE(1, 522)=64
- KSPARSE(2, 522)=2
-!URG8/OH
- KSPARSE(1, 523)=64
- KSPARSE(2, 523)=15
-!URG8/PAH
- KSPARSE(1, 524)=64
- KSPARSE(2, 524)=27
-!URG8/URG8
- KSPARSE(1, 525)=64
- KSPARSE(2, 525)=64
-!UR19/NO
- KSPARSE(1, 526)=65
- KSPARSE(2, 526)=1
-!UR19/HO2
- KSPARSE(1, 527)=65
- KSPARSE(2, 527)=10
-!UR19/UR19
- KSPARSE(1, 528)=65
- KSPARSE(2, 528)=65
-!UR19/RO2T
- KSPARSE(1, 529)=65
- KSPARSE(2, 529)=85
-!URG9/NO
- KSPARSE(1, 530)=66
- KSPARSE(2, 530)=1
-!URG9/HO2
- KSPARSE(1, 531)=66
- KSPARSE(2, 531)=10
-!URG9/URG9
- KSPARSE(1, 532)=66
- KSPARSE(2, 532)=66
-!URG9/RO2T
- KSPARSE(1, 533)=66
- KSPARSE(2, 533)=85
-!AP7/NO
- KSPARSE(1, 534)=67
- KSPARSE(2, 534)=1
-!AP7/AP7
- KSPARSE(1, 535)=67
- KSPARSE(2, 535)=67
-!URG10/NO
- KSPARSE(1, 536)=68
- KSPARSE(2, 536)=1
-!URG10/BIOL
- KSPARSE(1, 537)=68
- KSPARSE(2, 537)=36
-!URG10/URG10
- KSPARSE(1, 538)=68
- KSPARSE(2, 538)=68
-!RPR1/NO
- KSPARSE(1, 539)=69
- KSPARSE(2, 539)=1
-!RPR1/O3
- KSPARSE(1, 540)=69
- KSPARSE(2, 540)=3
-!RPR1/NO3
- KSPARSE(1, 541)=69
- KSPARSE(2, 541)=8
-!RPR1/HO2
- KSPARSE(1, 542)=69
- KSPARSE(2, 542)=10
-!RPR1/OH
- KSPARSE(1, 543)=69
- KSPARSE(2, 543)=15
-!RPR1/OLEH
- KSPARSE(1, 544)=69
- KSPARSE(2, 544)=18
-!RPR1/RPR1
- KSPARSE(1, 545)=69
- KSPARSE(2, 545)=69
-!RPR1/RO2T
- KSPARSE(1, 546)=69
- KSPARSE(2, 546)=85
-!RPR5/NO2
- KSPARSE(1, 547)=70
- KSPARSE(2, 547)=2
-!RPR5/OH
- KSPARSE(1, 548)=70
- KSPARSE(2, 548)=15
-!RPR5/RPR5
- KSPARSE(1, 549)=70
- KSPARSE(2, 549)=70
-!RPR8/NO
- KSPARSE(1, 550)=71
- KSPARSE(2, 550)=1
-!RPR8/NO3
- KSPARSE(1, 551)=71
- KSPARSE(2, 551)=8
-!RPR8/HO2
- KSPARSE(1, 552)=71
- KSPARSE(2, 552)=10
-!RPR8/OH
- KSPARSE(1, 553)=71
- KSPARSE(2, 553)=15
-!RPR8/RPR8
- KSPARSE(1, 554)=71
- KSPARSE(2, 554)=71
-!RPR8/RO2T
- KSPARSE(1, 555)=71
- KSPARSE(2, 555)=85
-!RP10/NO
- KSPARSE(1, 556)=72
- KSPARSE(2, 556)=1
-!RP10/HO2
- KSPARSE(1, 557)=72
- KSPARSE(2, 557)=10
-!RP10/OH
- KSPARSE(1, 558)=72
- KSPARSE(2, 558)=15
-!RP10/RP10
- KSPARSE(1, 559)=72
- KSPARSE(2, 559)=72
-!RP10/RO2T
- KSPARSE(1, 560)=72
- KSPARSE(2, 560)=85
-!RP11/NO
- KSPARSE(1, 561)=73
- KSPARSE(2, 561)=1
-!RP11/HO2
- KSPARSE(1, 562)=73
- KSPARSE(2, 562)=10
-!RP11/OH
- KSPARSE(1, 563)=73
- KSPARSE(2, 563)=15
-!RP11/RP11
- KSPARSE(1, 564)=73
- KSPARSE(2, 564)=73
-!RP11/RO2T
- KSPARSE(1, 565)=73
- KSPARSE(2, 565)=85
-!RP16/NO3
- KSPARSE(1, 566)=74
- KSPARSE(2, 566)=8
-!RP16/HO2
- KSPARSE(1, 567)=74
- KSPARSE(2, 567)=10
-!RP16/OH
- KSPARSE(1, 568)=74
- KSPARSE(2, 568)=15
-!RP16/RP16
- KSPARSE(1, 569)=74
- KSPARSE(2, 569)=74
-!RP16/WC_RP16
- KSPARSE(1, 570)=74
- KSPARSE(2, 570)=116
-!RP16/WR_RP16
- KSPARSE(1, 571)=74
- KSPARSE(2, 571)=153
-!RPRL/NO
- KSPARSE(1, 572)=75
- KSPARSE(2, 572)=1
-!RPRL/HO2
- KSPARSE(1, 573)=75
- KSPARSE(2, 573)=10
-!RPRL/OH
- KSPARSE(1, 574)=75
- KSPARSE(2, 574)=15
-!RPRL/ARAL
- KSPARSE(1, 575)=75
- KSPARSE(2, 575)=25
-!RPRL/RPRL
- KSPARSE(1, 576)=75
- KSPARSE(2, 576)=75
-!RPRL/RO2T
- KSPARSE(1, 577)=75
- KSPARSE(2, 577)=85
-!APAN/NO2
- KSPARSE(1, 578)=76
- KSPARSE(2, 578)=2
-!APAN/APAN
- KSPARSE(1, 579)=76
- KSPARSE(2, 579)=76
-!PAN1/NO2
- KSPARSE(1, 580)=77
- KSPARSE(2, 580)=2
-!PAN1/PAN1
- KSPARSE(1, 581)=77
- KSPARSE(2, 581)=77
-!PAN2/NO2
- KSPARSE(1, 582)=78
- KSPARSE(2, 582)=2
-!PAN2/PAN2
- KSPARSE(1, 583)=78
- KSPARSE(2, 583)=78
-!PAN3/NO2
- KSPARSE(1, 584)=79
- KSPARSE(2, 584)=2
-!PAN3/PAN3
- KSPARSE(1, 585)=79
- KSPARSE(2, 585)=79
-!PAN4/NO2
- KSPARSE(1, 586)=80
- KSPARSE(2, 586)=2
-!PAN4/PAN4
- KSPARSE(1, 587)=80
- KSPARSE(2, 587)=80
-!PAN6/NO2
- KSPARSE(1, 588)=81
- KSPARSE(2, 588)=2
-!PAN6/PAN6
- KSPARSE(1, 589)=81
- KSPARSE(2, 589)=81
-!PAN7/NO2
- KSPARSE(1, 590)=82
- KSPARSE(2, 590)=2
-!PAN7/PAN7
- KSPARSE(1, 591)=82
- KSPARSE(2, 591)=82
-!PAN8/NO2
- KSPARSE(1, 592)=83
- KSPARSE(2, 592)=2
-!PAN8/PAN8
- KSPARSE(1, 593)=83
- KSPARSE(2, 593)=83
-!PN10/NO2
- KSPARSE(1, 594)=84
- KSPARSE(2, 594)=2
-!PN10/PN10
- KSPARSE(1, 595)=84
- KSPARSE(2, 595)=84
-!RO2T/NO
- KSPARSE(1, 596)=85
- KSPARSE(2, 596)=1
-!RO2T/O3
- KSPARSE(1, 597)=85
- KSPARSE(2, 597)=3
-!RO2T/NO3
- KSPARSE(1, 598)=85
- KSPARSE(2, 598)=8
-!RO2T/HO2
- KSPARSE(1, 599)=85
- KSPARSE(2, 599)=10
-!RO2T/OH
- KSPARSE(1, 600)=85
- KSPARSE(2, 600)=15
-!RO2T/ETHE
- KSPARSE(1, 601)=85
- KSPARSE(2, 601)=16
-!RO2T/OLEL
- KSPARSE(1, 602)=85
- KSPARSE(2, 602)=17
-!RO2T/OLEH
- KSPARSE(1, 603)=85
- KSPARSE(2, 603)=18
-!RO2T/ALKL
- KSPARSE(1, 604)=85
- KSPARSE(2, 604)=19
-!RO2T/ALKM
- KSPARSE(1, 605)=85
- KSPARSE(2, 605)=20
-!RO2T/ALKH
- KSPARSE(1, 606)=85
- KSPARSE(2, 606)=21
-!RO2T/AROL
- KSPARSE(1, 607)=85
- KSPARSE(2, 607)=23
-!RO2T/AROO
- KSPARSE(1, 608)=85
- KSPARSE(2, 608)=24
-!RO2T/ARAL
- KSPARSE(1, 609)=85
- KSPARSE(2, 609)=25
-!RO2T/ARAC
- KSPARSE(1, 610)=85
- KSPARSE(2, 610)=26
-!RO2T/PAH
- KSPARSE(1, 611)=85
- KSPARSE(2, 611)=27
-!RO2T/ALD2
- KSPARSE(1, 612)=85
- KSPARSE(2, 612)=29
-!RO2T/KETL
- KSPARSE(1, 613)=85
- KSPARSE(2, 613)=30
-!RO2T/KETH
- KSPARSE(1, 614)=85
- KSPARSE(2, 614)=31
-!RO2T/ETOH
- KSPARSE(1, 615)=85
- KSPARSE(2, 615)=33
-!RO2T/ALCH
- KSPARSE(1, 616)=85
- KSPARSE(2, 616)=34
-!RO2T/ISOP
- KSPARSE(1, 617)=85
- KSPARSE(2, 617)=35
-!RO2T/BIOL
- KSPARSE(1, 618)=85
- KSPARSE(2, 618)=36
-!RO2T/BIOH
- KSPARSE(1, 619)=85
- KSPARSE(2, 619)=37
-!RO2T/MTBE
- KSPARSE(1, 620)=85
- KSPARSE(2, 620)=38
-!RO2T/MVK
- KSPARSE(1, 621)=85
- KSPARSE(2, 621)=39
-!RO2T/MCR
- KSPARSE(1, 622)=85
- KSPARSE(2, 622)=40
-!RO2T/MGLY
- KSPARSE(1, 623)=85
- KSPARSE(2, 623)=41
-!RO2T/RPR3
- KSPARSE(1, 624)=85
- KSPARSE(2, 624)=57
-!RO2T/RPR1
- KSPARSE(1, 625)=85
- KSPARSE(2, 625)=69
-!RO2T/RPR8
- KSPARSE(1, 626)=85
- KSPARSE(2, 626)=71
-!RO2T/RP16
- KSPARSE(1, 627)=85
- KSPARSE(2, 627)=74
-!RO2T/APAN
- KSPARSE(1, 628)=85
- KSPARSE(2, 628)=76
-!RO2T/PAN1
- KSPARSE(1, 629)=85
- KSPARSE(2, 629)=77
-!RO2T/PAN2
- KSPARSE(1, 630)=85
- KSPARSE(2, 630)=78
-!RO2T/PAN3
- KSPARSE(1, 631)=85
- KSPARSE(2, 631)=79
-!RO2T/PAN4
- KSPARSE(1, 632)=85
- KSPARSE(2, 632)=80
-!RO2T/PAN6
- KSPARSE(1, 633)=85
- KSPARSE(2, 633)=81
-!RO2T/PAN7
- KSPARSE(1, 634)=85
- KSPARSE(2, 634)=82
-!RO2T/PAN8
- KSPARSE(1, 635)=85
- KSPARSE(2, 635)=83
-!RO2T/PN10
- KSPARSE(1, 636)=85
- KSPARSE(2, 636)=84
-!RO2T/RO2T
- KSPARSE(1, 637)=85
- KSPARSE(2, 637)=85
-!RO2T/RO21
- KSPARSE(1, 638)=85
- KSPARSE(2, 638)=86
-!RO2T/RO25
- KSPARSE(1, 639)=85
- KSPARSE(2, 639)=87
-!RO21/NO
- KSPARSE(1, 640)=86
- KSPARSE(2, 640)=1
-!RO21/HO2
- KSPARSE(1, 641)=86
- KSPARSE(2, 641)=10
-!RO21/OH
- KSPARSE(1, 642)=86
- KSPARSE(2, 642)=15
-!RO21/ETHE
- KSPARSE(1, 643)=86
- KSPARSE(2, 643)=16
-!RO21/RO2T
- KSPARSE(1, 644)=86
- KSPARSE(2, 644)=85
-!RO21/RO21
- KSPARSE(1, 645)=86
- KSPARSE(2, 645)=86
-!RO21/WC_RO21
- KSPARSE(1, 646)=86
- KSPARSE(2, 646)=103
-!RO21/WR_RO21
- KSPARSE(1, 647)=86
- KSPARSE(2, 647)=140
-!RO25/NO
- KSPARSE(1, 648)=87
- KSPARSE(2, 648)=1
-!RO25/O3
- KSPARSE(1, 649)=87
- KSPARSE(2, 649)=3
-!RO25/HO2
- KSPARSE(1, 650)=87
- KSPARSE(2, 650)=10
-!RO25/OH
- KSPARSE(1, 651)=87
- KSPARSE(2, 651)=15
-!RO25/OLEL
- KSPARSE(1, 652)=87
- KSPARSE(2, 652)=17
-!RO25/ALKL
- KSPARSE(1, 653)=87
- KSPARSE(2, 653)=19
-!RO25/ALD2
- KSPARSE(1, 654)=87
- KSPARSE(2, 654)=29
-!RO25/KETL
- KSPARSE(1, 655)=87
- KSPARSE(2, 655)=30
-!RO25/KETH
- KSPARSE(1, 656)=87
- KSPARSE(2, 656)=31
-!RO25/RO2T
- KSPARSE(1, 657)=87
- KSPARSE(2, 657)=85
-!RO25/RO25
- KSPARSE(1, 658)=87
- KSPARSE(2, 658)=87
-!RO25/WC_RO25
- KSPARSE(1, 659)=87
- KSPARSE(2, 659)=104
-!RO25/WR_RO25
- KSPARSE(1, 660)=87
- KSPARSE(2, 660)=141
+!OLN/ALKE
+ KSPARSE(1, 467)=40
+ KSPARSE(2, 467)=19
+!OLN/BIO
+ KSPARSE(1, 468)=40
+ KSPARSE(2, 468)=20
+!OLN/CARBO
+ KSPARSE(1, 469)=40
+ KSPARSE(2, 469)=25
+!OLN/MO2
+ KSPARSE(1, 470)=40
+ KSPARSE(2, 470)=32
+!OLN/CARBOP
+ KSPARSE(1, 471)=40
+ KSPARSE(2, 471)=39
+!OLN/OLN
+ KSPARSE(1, 472)=40
+ KSPARSE(2, 472)=40
+!XO2/O3
+ KSPARSE(1, 473)=41
+ KSPARSE(2, 473)=1
+!XO2/NO
+ KSPARSE(1, 474)=41
+ KSPARSE(2, 474)=3
+!XO2/NO3
+ KSPARSE(1, 475)=41
+ KSPARSE(2, 475)=5
+!XO2/OH
+ KSPARSE(1, 476)=41
+ KSPARSE(2, 476)=14
+!XO2/HO2
+ KSPARSE(1, 477)=41
+ KSPARSE(2, 477)=15
+!XO2/ALKE
+ KSPARSE(1, 478)=41
+ KSPARSE(2, 478)=19
+!XO2/BIO
+ KSPARSE(1, 479)=41
+ KSPARSE(2, 479)=20
+!XO2/ARO
+ KSPARSE(1, 480)=41
+ KSPARSE(2, 480)=21
+!XO2/CARBO
+ KSPARSE(1, 481)=41
+ KSPARSE(2, 481)=25
+!XO2/PAN
+ KSPARSE(1, 482)=41
+ KSPARSE(2, 482)=27
+!XO2/OP2
+ KSPARSE(1, 483)=41
+ KSPARSE(2, 483)=29
+!XO2/MO2
+ KSPARSE(1, 484)=41
+ KSPARSE(2, 484)=32
+!XO2/ALKAP
+ KSPARSE(1, 485)=41
+ KSPARSE(2, 485)=33
+!XO2/CARBOP
+ KSPARSE(1, 486)=41
+ KSPARSE(2, 486)=39
+!XO2/XO2
+ KSPARSE(1, 487)=41
+ KSPARSE(2, 487)=41
!WC_O3/O3
- KSPARSE(1, 661)=88
- KSPARSE(2, 661)=3
+ KSPARSE(1, 488)=42
+ KSPARSE(2, 488)=1
!WC_O3/WC_O3
- KSPARSE(1, 662)=88
- KSPARSE(2, 662)=88
+ KSPARSE(1, 489)=42
+ KSPARSE(2, 489)=42
!WC_O3/WC_HO2
- KSPARSE(1, 663)=88
- KSPARSE(2, 663)=99
+ KSPARSE(1, 490)=42
+ KSPARSE(2, 490)=53
!WC_O3/WC_SO2
- KSPARSE(1, 664)=88
- KSPARSE(2, 664)=101
+ KSPARSE(1, 491)=42
+ KSPARSE(2, 491)=55
!WC_H2O2/H2O2
- KSPARSE(1, 665)=89
- KSPARSE(2, 665)=12
+ KSPARSE(1, 492)=43
+ KSPARSE(2, 492)=2
!WC_H2O2/WC_H2O2
- KSPARSE(1, 666)=89
- KSPARSE(2, 666)=89
+ KSPARSE(1, 493)=43
+ KSPARSE(2, 493)=43
!WC_H2O2/WC_OH
- KSPARSE(1, 667)=89
- KSPARSE(2, 667)=98
+ KSPARSE(1, 494)=43
+ KSPARSE(2, 494)=52
!WC_H2O2/WC_HO2
- KSPARSE(1, 668)=89
- KSPARSE(2, 668)=99
+ KSPARSE(1, 495)=43
+ KSPARSE(2, 495)=53
!WC_H2O2/WC_SO2
- KSPARSE(1, 669)=89
- KSPARSE(2, 669)=101
-!WC_H2O2/WC_RO25
- KSPARSE(1, 670)=89
- KSPARSE(2, 670)=104
-!WC_H2O2/WC_KETL
- KSPARSE(1, 671)=89
- KSPARSE(2, 671)=112
-!WC_H2O2/WC_ORA2
- KSPARSE(1, 672)=89
- KSPARSE(2, 672)=114
-!WC_H2O2/WC_ACID
- KSPARSE(1, 673)=89
- KSPARSE(2, 673)=115
-!WC_H2O2/WC_RP16
- KSPARSE(1, 674)=89
- KSPARSE(2, 674)=116
-!WC_H2O2/WC_UR21
- KSPARSE(1, 675)=89
- KSPARSE(2, 675)=117
+ KSPARSE(1, 496)=43
+ KSPARSE(2, 496)=55
!WC_NO/NO
- KSPARSE(1, 676)=90
- KSPARSE(2, 676)=1
+ KSPARSE(1, 497)=44
+ KSPARSE(2, 497)=3
!WC_NO/WC_NO
- KSPARSE(1, 677)=90
- KSPARSE(2, 677)=90
+ KSPARSE(1, 498)=44
+ KSPARSE(2, 498)=44
!WC_NO2/NO2
- KSPARSE(1, 678)=91
- KSPARSE(2, 678)=2
+ KSPARSE(1, 499)=45
+ KSPARSE(2, 499)=4
!WC_NO2/WC_NO2
- KSPARSE(1, 679)=91
- KSPARSE(2, 679)=91
+ KSPARSE(1, 500)=45
+ KSPARSE(2, 500)=45
!WC_NO2/WC_HONO
- KSPARSE(1, 680)=91
- KSPARSE(2, 680)=94
+ KSPARSE(1, 501)=45
+ KSPARSE(2, 501)=48
!WC_NO2/WC_HNO3
- KSPARSE(1, 681)=91
- KSPARSE(2, 681)=95
+ KSPARSE(1, 502)=45
+ KSPARSE(2, 502)=49
!WC_NO2/WC_HNO4
- KSPARSE(1, 682)=91
- KSPARSE(2, 682)=96
+ KSPARSE(1, 503)=45
+ KSPARSE(2, 503)=50
!WC_NO2/WC_OH
- KSPARSE(1, 683)=91
- KSPARSE(2, 683)=98
+ KSPARSE(1, 504)=45
+ KSPARSE(2, 504)=52
!WC_NO2/WC_HO2
- KSPARSE(1, 684)=91
- KSPARSE(2, 684)=99
+ KSPARSE(1, 505)=45
+ KSPARSE(2, 505)=53
!WC_NO3/NO3
- KSPARSE(1, 685)=92
- KSPARSE(2, 685)=8
+ KSPARSE(1, 506)=46
+ KSPARSE(2, 506)=5
!WC_NO3/WC_NO3
- KSPARSE(1, 686)=92
- KSPARSE(2, 686)=92
+ KSPARSE(1, 507)=46
+ KSPARSE(2, 507)=46
!WC_NO3/WC_SO2
- KSPARSE(1, 687)=92
- KSPARSE(2, 687)=101
-!WC_NO3/WC_H2SO4
- KSPARSE(1, 688)=92
- KSPARSE(2, 688)=102
+ KSPARSE(1, 508)=46
+ KSPARSE(2, 508)=55
+!WC_NO3/WC_SULF
+ KSPARSE(1, 509)=46
+ KSPARSE(2, 509)=56
!WC_N2O5/N2O5
- KSPARSE(1, 689)=93
- KSPARSE(2, 689)=7
+ KSPARSE(1, 510)=47
+ KSPARSE(2, 510)=6
!WC_N2O5/WC_N2O5
- KSPARSE(1, 690)=93
- KSPARSE(2, 690)=93
+ KSPARSE(1, 511)=47
+ KSPARSE(2, 511)=47
!WC_HONO/HONO
- KSPARSE(1, 691)=94
- KSPARSE(2, 691)=4
+ KSPARSE(1, 512)=48
+ KSPARSE(2, 512)=7
!WC_HONO/WC_HONO
- KSPARSE(1, 692)=94
- KSPARSE(2, 692)=94
+ KSPARSE(1, 513)=48
+ KSPARSE(2, 513)=48
!WC_HONO/WC_HNO4
- KSPARSE(1, 693)=94
- KSPARSE(2, 693)=96
+ KSPARSE(1, 514)=48
+ KSPARSE(2, 514)=50
!WC_HONO/WC_OH
- KSPARSE(1, 694)=94
- KSPARSE(2, 694)=98
+ KSPARSE(1, 515)=48
+ KSPARSE(2, 515)=52
!WC_HNO3/HNO3
- KSPARSE(1, 695)=95
- KSPARSE(2, 695)=5
+ KSPARSE(1, 516)=49
+ KSPARSE(2, 516)=8
!WC_HNO3/WC_NO3
- KSPARSE(1, 696)=95
- KSPARSE(2, 696)=92
+ KSPARSE(1, 517)=49
+ KSPARSE(2, 517)=46
!WC_HNO3/WC_N2O5
- KSPARSE(1, 697)=95
- KSPARSE(2, 697)=93
+ KSPARSE(1, 518)=49
+ KSPARSE(2, 518)=47
!WC_HNO3/WC_HNO3
- KSPARSE(1, 698)=95
- KSPARSE(2, 698)=95
+ KSPARSE(1, 519)=49
+ KSPARSE(2, 519)=49
!WC_HNO3/WC_HNO4
- KSPARSE(1, 699)=95
- KSPARSE(2, 699)=96
+ KSPARSE(1, 520)=49
+ KSPARSE(2, 520)=50
!WC_HNO3/WC_SO2
- KSPARSE(1, 700)=95
- KSPARSE(2, 700)=101
-!WC_HNO3/WC_H2SO4
- KSPARSE(1, 701)=95
- KSPARSE(2, 701)=102
+ KSPARSE(1, 521)=49
+ KSPARSE(2, 521)=55
+!WC_HNO3/WC_SULF
+ KSPARSE(1, 522)=49
+ KSPARSE(2, 522)=56
!WC_HNO4/HNO4
- KSPARSE(1, 702)=96
- KSPARSE(2, 702)=6
+ KSPARSE(1, 523)=50
+ KSPARSE(2, 523)=9
!WC_HNO4/WC_NO2
- KSPARSE(1, 703)=96
- KSPARSE(2, 703)=91
+ KSPARSE(1, 524)=50
+ KSPARSE(2, 524)=45
!WC_HNO4/WC_HNO4
- KSPARSE(1, 704)=96
- KSPARSE(2, 704)=96
+ KSPARSE(1, 525)=50
+ KSPARSE(2, 525)=50
!WC_HNO4/WC_HO2
- KSPARSE(1, 705)=96
- KSPARSE(2, 705)=99
+ KSPARSE(1, 526)=50
+ KSPARSE(2, 526)=53
!WC_HNO4/WC_SO2
- KSPARSE(1, 706)=96
- KSPARSE(2, 706)=101
+ KSPARSE(1, 527)=50
+ KSPARSE(2, 527)=55
!WC_NH3/NH3
- KSPARSE(1, 707)=97
- KSPARSE(2, 707)=9
+ KSPARSE(1, 528)=51
+ KSPARSE(2, 528)=10
!WC_NH3/WC_NH3
- KSPARSE(1, 708)=97
- KSPARSE(2, 708)=97
+ KSPARSE(1, 529)=51
+ KSPARSE(2, 529)=51
!WC_OH/OH
- KSPARSE(1, 709)=98
- KSPARSE(2, 709)=15
+ KSPARSE(1, 530)=52
+ KSPARSE(2, 530)=14
!WC_OH/WC_O3
- KSPARSE(1, 710)=98
- KSPARSE(2, 710)=88
+ KSPARSE(1, 531)=52
+ KSPARSE(2, 531)=42
!WC_OH/WC_H2O2
- KSPARSE(1, 711)=98
- KSPARSE(2, 711)=89
+ KSPARSE(1, 532)=52
+ KSPARSE(2, 532)=43
!WC_OH/WC_HONO
- KSPARSE(1, 712)=98
- KSPARSE(2, 712)=94
+ KSPARSE(1, 533)=52
+ KSPARSE(2, 533)=48
!WC_OH/WC_HNO3
- KSPARSE(1, 713)=98
- KSPARSE(2, 713)=95
+ KSPARSE(1, 534)=52
+ KSPARSE(2, 534)=49
!WC_OH/WC_OH
- KSPARSE(1, 714)=98
- KSPARSE(2, 714)=98
+ KSPARSE(1, 535)=52
+ KSPARSE(2, 535)=52
!WC_OH/WC_HO2
- KSPARSE(1, 715)=98
- KSPARSE(2, 715)=99
+ KSPARSE(1, 536)=52
+ KSPARSE(2, 536)=53
!WC_OH/WC_SO2
- KSPARSE(1, 716)=98
- KSPARSE(2, 716)=101
-!WC_OH/WC_MEOH
- KSPARSE(1, 717)=98
- KSPARSE(2, 717)=105
-!WC_OH/WC_ETOH
- KSPARSE(1, 718)=98
- KSPARSE(2, 718)=106
-!WC_OH/WC_ALCH
- KSPARSE(1, 719)=98
- KSPARSE(2, 719)=107
+ KSPARSE(1, 537)=52
+ KSPARSE(2, 537)=55
!WC_OH/WC_HCHO
- KSPARSE(1, 720)=98
- KSPARSE(2, 720)=108
-!WC_OH/WC_ALD2
- KSPARSE(1, 721)=98
- KSPARSE(2, 721)=109
-!WC_OH/WC_GLY
- KSPARSE(1, 722)=98
- KSPARSE(2, 722)=110
-!WC_OH/WC_MGLY
- KSPARSE(1, 723)=98
- KSPARSE(2, 723)=111
-!WC_OH/WC_KETL
- KSPARSE(1, 724)=98
- KSPARSE(2, 724)=112
+ KSPARSE(1, 538)=52
+ KSPARSE(2, 538)=57
!WC_OH/WC_ORA1
- KSPARSE(1, 725)=98
- KSPARSE(2, 725)=113
-!WC_OH/WC_ORA2
- KSPARSE(1, 726)=98
- KSPARSE(2, 726)=114
-!WC_OH/WC_ACID
- KSPARSE(1, 727)=98
- KSPARSE(2, 727)=115
-!WC_OH/WC_RP16
- KSPARSE(1, 728)=98
- KSPARSE(2, 728)=116
-!WC_OH/WC_UR21
- KSPARSE(1, 729)=98
- KSPARSE(2, 729)=117
-!WC_OH/WC_UR28
- KSPARSE(1, 730)=98
- KSPARSE(2, 730)=118
-!WC_OH/WC_ACID2
- KSPARSE(1, 731)=98
- KSPARSE(2, 731)=119
+ KSPARSE(1, 539)=52
+ KSPARSE(2, 539)=58
!WC_OH/WC_ASO4
- KSPARSE(1, 732)=98
- KSPARSE(2, 732)=121
+ KSPARSE(1, 540)=52
+ KSPARSE(2, 540)=63
!WC_OH/WC_AHMS
- KSPARSE(1, 733)=98
- KSPARSE(2, 733)=124
+ KSPARSE(1, 541)=52
+ KSPARSE(2, 541)=66
!WC_HO2/HO2
- KSPARSE(1, 734)=99
- KSPARSE(2, 734)=10
+ KSPARSE(1, 542)=53
+ KSPARSE(2, 542)=15
!WC_HO2/WC_O3
- KSPARSE(1, 735)=99
- KSPARSE(2, 735)=88
+ KSPARSE(1, 543)=53
+ KSPARSE(2, 543)=42
!WC_HO2/WC_H2O2
- KSPARSE(1, 736)=99
- KSPARSE(2, 736)=89
+ KSPARSE(1, 544)=53
+ KSPARSE(2, 544)=43
!WC_HO2/WC_NO2
- KSPARSE(1, 737)=99
- KSPARSE(2, 737)=91
+ KSPARSE(1, 545)=53
+ KSPARSE(2, 545)=45
!WC_HO2/WC_HNO4
- KSPARSE(1, 738)=99
- KSPARSE(2, 738)=96
+ KSPARSE(1, 546)=53
+ KSPARSE(2, 546)=50
!WC_HO2/WC_OH
- KSPARSE(1, 739)=99
- KSPARSE(2, 739)=98
+ KSPARSE(1, 547)=53
+ KSPARSE(2, 547)=52
!WC_HO2/WC_HO2
- KSPARSE(1, 740)=99
- KSPARSE(2, 740)=99
-!WC_HO2/WC_RO21
- KSPARSE(1, 741)=99
- KSPARSE(2, 741)=103
-!WC_HO2/WC_RO25
- KSPARSE(1, 742)=99
- KSPARSE(2, 742)=104
-!WC_HO2/WC_MEOH
- KSPARSE(1, 743)=99
- KSPARSE(2, 743)=105
-!WC_HO2/WC_ETOH
- KSPARSE(1, 744)=99
- KSPARSE(2, 744)=106
-!WC_HO2/WC_ALCH
- KSPARSE(1, 745)=99
- KSPARSE(2, 745)=107
+ KSPARSE(1, 548)=53
+ KSPARSE(2, 548)=53
!WC_HO2/WC_HCHO
- KSPARSE(1, 746)=99
- KSPARSE(2, 746)=108
-!WC_HO2/WC_GLY
- KSPARSE(1, 747)=99
- KSPARSE(2, 747)=110
-!WC_HO2/WC_MGLY
- KSPARSE(1, 748)=99
- KSPARSE(2, 748)=111
-!WC_HO2/WC_KETL
- KSPARSE(1, 749)=99
- KSPARSE(2, 749)=112
+ KSPARSE(1, 549)=53
+ KSPARSE(2, 549)=57
!WC_HO2/WC_ORA1
- KSPARSE(1, 750)=99
- KSPARSE(2, 750)=113
-!WC_HO2/WC_ACID
- KSPARSE(1, 751)=99
- KSPARSE(2, 751)=115
-!WC_HO2/WC_RP16
- KSPARSE(1, 752)=99
- KSPARSE(2, 752)=116
-!WC_HO2/WC_UR21
- KSPARSE(1, 753)=99
- KSPARSE(2, 753)=117
-!WC_HO2/WC_UR28
- KSPARSE(1, 754)=99
- KSPARSE(2, 754)=118
+ KSPARSE(1, 550)=53
+ KSPARSE(2, 550)=58
+!WC_HO2/WC_MO2
+ KSPARSE(1, 551)=53
+ KSPARSE(2, 551)=60
!WC_HO2/WC_ASO5
- KSPARSE(1, 755)=99
- KSPARSE(2, 755)=122
+ KSPARSE(1, 552)=53
+ KSPARSE(2, 552)=64
!WC_HO2/WC_AHMS
- KSPARSE(1, 756)=99
- KSPARSE(2, 756)=124
+ KSPARSE(1, 553)=53
+ KSPARSE(2, 553)=66
!WC_CO2/WC_OH
- KSPARSE(1, 757)=100
- KSPARSE(2, 757)=98
+ KSPARSE(1, 554)=54
+ KSPARSE(2, 554)=52
!WC_CO2/WC_CO2
- KSPARSE(1, 758)=100
- KSPARSE(2, 758)=100
-!WC_CO2/WC_ALD2
- KSPARSE(1, 759)=100
- KSPARSE(2, 759)=109
-!WC_CO2/WC_KETL
- KSPARSE(1, 760)=100
- KSPARSE(2, 760)=112
+ KSPARSE(1, 555)=54
+ KSPARSE(2, 555)=54
!WC_CO2/WC_ORA1
- KSPARSE(1, 761)=100
- KSPARSE(2, 761)=113
-!WC_CO2/WC_ACID
- KSPARSE(1, 762)=100
- KSPARSE(2, 762)=115
-!WC_CO2/WC_RP16
- KSPARSE(1, 763)=100
- KSPARSE(2, 763)=116
-!WC_CO2/WC_UR21
- KSPARSE(1, 764)=100
- KSPARSE(2, 764)=117
-!WC_CO2/WC_UR28
- KSPARSE(1, 765)=100
- KSPARSE(2, 765)=118
+ KSPARSE(1, 556)=54
+ KSPARSE(2, 556)=58
!WC_SO2/SO2
- KSPARSE(1, 766)=101
- KSPARSE(2, 766)=13
+ KSPARSE(1, 557)=55
+ KSPARSE(2, 557)=11
!WC_SO2/WC_O3
- KSPARSE(1, 767)=101
- KSPARSE(2, 767)=88
+ KSPARSE(1, 558)=55
+ KSPARSE(2, 558)=42
!WC_SO2/WC_H2O2
- KSPARSE(1, 768)=101
- KSPARSE(2, 768)=89
+ KSPARSE(1, 559)=55
+ KSPARSE(2, 559)=43
!WC_SO2/WC_NO3
- KSPARSE(1, 769)=101
- KSPARSE(2, 769)=92
+ KSPARSE(1, 560)=55
+ KSPARSE(2, 560)=46
!WC_SO2/WC_HNO4
- KSPARSE(1, 770)=101
- KSPARSE(2, 770)=96
+ KSPARSE(1, 561)=55
+ KSPARSE(2, 561)=50
!WC_SO2/WC_OH
- KSPARSE(1, 771)=101
- KSPARSE(2, 771)=98
+ KSPARSE(1, 562)=55
+ KSPARSE(2, 562)=52
!WC_SO2/WC_SO2
- KSPARSE(1, 772)=101
- KSPARSE(2, 772)=101
-!WC_SO2/WC_RO21
- KSPARSE(1, 773)=101
- KSPARSE(2, 773)=103
+ KSPARSE(1, 563)=55
+ KSPARSE(2, 563)=55
!WC_SO2/WC_HCHO
- KSPARSE(1, 774)=101
- KSPARSE(2, 774)=108
+ KSPARSE(1, 564)=55
+ KSPARSE(2, 564)=57
+!WC_SO2/WC_MO2
+ KSPARSE(1, 565)=55
+ KSPARSE(2, 565)=60
!WC_SO2/WC_AHSO5
- KSPARSE(1, 775)=101
- KSPARSE(2, 775)=123
+ KSPARSE(1, 566)=55
+ KSPARSE(2, 566)=65
!WC_SO2/WC_AHMS
- KSPARSE(1, 776)=101
- KSPARSE(2, 776)=124
-!WC_H2SO4/H2SO4
- KSPARSE(1, 777)=102
- KSPARSE(2, 777)=14
-!WC_H2SO4/WC_O3
- KSPARSE(1, 778)=102
- KSPARSE(2, 778)=88
-!WC_H2SO4/WC_H2O2
- KSPARSE(1, 779)=102
- KSPARSE(2, 779)=89
-!WC_H2SO4/WC_NO3
- KSPARSE(1, 780)=102
- KSPARSE(2, 780)=92
-!WC_H2SO4/WC_HNO4
- KSPARSE(1, 781)=102
- KSPARSE(2, 781)=96
-!WC_H2SO4/WC_SO2
- KSPARSE(1, 782)=102
- KSPARSE(2, 782)=101
-!WC_H2SO4/WC_H2SO4
- KSPARSE(1, 783)=102
- KSPARSE(2, 783)=102
-!WC_H2SO4/WC_ASO4
- KSPARSE(1, 784)=102
- KSPARSE(2, 784)=121
-!WC_H2SO4/WC_AHSO5
- KSPARSE(1, 785)=102
- KSPARSE(2, 785)=123
-!WC_RO21/RO21
- KSPARSE(1, 786)=103
- KSPARSE(2, 786)=86
-!WC_RO21/WC_OH
- KSPARSE(1, 787)=103
- KSPARSE(2, 787)=98
-!WC_RO21/WC_SO2
- KSPARSE(1, 788)=103
- KSPARSE(2, 788)=101
-!WC_RO21/WC_RO21
- KSPARSE(1, 789)=103
- KSPARSE(2, 789)=103
-!WC_RO21/WC_ALD2
- KSPARSE(1, 790)=103
- KSPARSE(2, 790)=109
-!WC_RO21/WC_KETL
- KSPARSE(1, 791)=103
- KSPARSE(2, 791)=112
-!WC_RO25/RO25
- KSPARSE(1, 792)=104
- KSPARSE(2, 792)=87
-!WC_RO25/WC_OH
- KSPARSE(1, 793)=104
- KSPARSE(2, 793)=98
-!WC_RO25/WC_RO25
- KSPARSE(1, 794)=104
- KSPARSE(2, 794)=104
-!WC_RO25/WC_ALD2
- KSPARSE(1, 795)=104
- KSPARSE(2, 795)=109
-!WC_RO25/WC_ACID
- KSPARSE(1, 796)=104
- KSPARSE(2, 796)=115
-!WC_MEOH/MEOH
- KSPARSE(1, 797)=105
- KSPARSE(2, 797)=32
-!WC_MEOH/WC_OH
- KSPARSE(1, 798)=105
- KSPARSE(2, 798)=98
-!WC_MEOH/WC_MEOH
- KSPARSE(1, 799)=105
- KSPARSE(2, 799)=105
-!WC_ETOH/ETOH
- KSPARSE(1, 800)=106
- KSPARSE(2, 800)=33
-!WC_ETOH/WC_OH
- KSPARSE(1, 801)=106
- KSPARSE(2, 801)=98
-!WC_ETOH/WC_ETOH
- KSPARSE(1, 802)=106
- KSPARSE(2, 802)=106
-!WC_ALCH/ALCH
- KSPARSE(1, 803)=107
- KSPARSE(2, 803)=34
-!WC_ALCH/WC_OH
- KSPARSE(1, 804)=107
- KSPARSE(2, 804)=98
-!WC_ALCH/WC_ALCH
- KSPARSE(1, 805)=107
- KSPARSE(2, 805)=107
+ KSPARSE(1, 567)=55
+ KSPARSE(2, 567)=66
+!WC_SULF/SULF
+ KSPARSE(1, 568)=56
+ KSPARSE(2, 568)=12
+!WC_SULF/WC_O3
+ KSPARSE(1, 569)=56
+ KSPARSE(2, 569)=42
+!WC_SULF/WC_H2O2
+ KSPARSE(1, 570)=56
+ KSPARSE(2, 570)=43
+!WC_SULF/WC_NO3
+ KSPARSE(1, 571)=56
+ KSPARSE(2, 571)=46
+!WC_SULF/WC_HNO4
+ KSPARSE(1, 572)=56
+ KSPARSE(2, 572)=50
+!WC_SULF/WC_SO2
+ KSPARSE(1, 573)=56
+ KSPARSE(2, 573)=55
+!WC_SULF/WC_SULF
+ KSPARSE(1, 574)=56
+ KSPARSE(2, 574)=56
+!WC_SULF/WC_ASO4
+ KSPARSE(1, 575)=56
+ KSPARSE(2, 575)=63
+!WC_SULF/WC_AHSO5
+ KSPARSE(1, 576)=56
+ KSPARSE(2, 576)=65
!WC_HCHO/HCHO
- KSPARSE(1, 806)=108
- KSPARSE(2, 806)=28
+ KSPARSE(1, 577)=57
+ KSPARSE(2, 577)=22
!WC_HCHO/WC_OH
- KSPARSE(1, 807)=108
- KSPARSE(2, 807)=98
+ KSPARSE(1, 578)=57
+ KSPARSE(2, 578)=52
!WC_HCHO/WC_SO2
- KSPARSE(1, 808)=108
- KSPARSE(2, 808)=101
-!WC_HCHO/WC_RO21
- KSPARSE(1, 809)=108
- KSPARSE(2, 809)=103
-!WC_HCHO/WC_MEOH
- KSPARSE(1, 810)=108
- KSPARSE(2, 810)=105
+ KSPARSE(1, 579)=57
+ KSPARSE(2, 579)=55
!WC_HCHO/WC_HCHO
- KSPARSE(1, 811)=108
- KSPARSE(2, 811)=108
-!WC_HCHO/WC_KETL
- KSPARSE(1, 812)=108
- KSPARSE(2, 812)=112
+ KSPARSE(1, 580)=57
+ KSPARSE(2, 580)=57
+!WC_HCHO/WC_MO2
+ KSPARSE(1, 581)=57
+ KSPARSE(2, 581)=60
!WC_HCHO/WC_AHMS
- KSPARSE(1, 813)=108
- KSPARSE(2, 813)=124
-!WC_ALD2/ALD2
- KSPARSE(1, 814)=109
- KSPARSE(2, 814)=29
-!WC_ALD2/WC_OH
- KSPARSE(1, 815)=109
- KSPARSE(2, 815)=98
-!WC_ALD2/WC_RO25
- KSPARSE(1, 816)=109
- KSPARSE(2, 816)=104
-!WC_ALD2/WC_ETOH
- KSPARSE(1, 817)=109
- KSPARSE(2, 817)=106
-!WC_ALD2/WC_ALCH
- KSPARSE(1, 818)=109
- KSPARSE(2, 818)=107
-!WC_ALD2/WC_ALD2
- KSPARSE(1, 819)=109
- KSPARSE(2, 819)=109
-!WC_ALD2/WC_KETL
- KSPARSE(1, 820)=109
- KSPARSE(2, 820)=112
-!WC_ALD2/WC_ACID
- KSPARSE(1, 821)=109
- KSPARSE(2, 821)=115
-!WC_ALD2/WC_UR21
- KSPARSE(1, 822)=109
- KSPARSE(2, 822)=117
-!WC_GLY/GLY
- KSPARSE(1, 823)=110
- KSPARSE(2, 823)=42
-!WC_GLY/WC_OH
- KSPARSE(1, 824)=110
- KSPARSE(2, 824)=98
-!WC_GLY/WC_GLY
- KSPARSE(1, 825)=110
- KSPARSE(2, 825)=110
-!WC_MGLY/MGLY
- KSPARSE(1, 826)=111
- KSPARSE(2, 826)=41
-!WC_MGLY/WC_OH
- KSPARSE(1, 827)=111
- KSPARSE(2, 827)=98
-!WC_MGLY/WC_MGLY
- KSPARSE(1, 828)=111
- KSPARSE(2, 828)=111
-!WC_MGLY/WC_KETL
- KSPARSE(1, 829)=111
- KSPARSE(2, 829)=112
-!WC_KETL/KETL
- KSPARSE(1, 830)=112
- KSPARSE(2, 830)=30
-!WC_KETL/WC_OH
- KSPARSE(1, 831)=112
- KSPARSE(2, 831)=98
-!WC_KETL/WC_ALCH
- KSPARSE(1, 832)=112
- KSPARSE(2, 832)=107
-!WC_KETL/WC_KETL
- KSPARSE(1, 833)=112
- KSPARSE(2, 833)=112
+ KSPARSE(1, 582)=57
+ KSPARSE(2, 582)=66
!WC_ORA1/ORA1
- KSPARSE(1, 834)=113
- KSPARSE(2, 834)=43
+ KSPARSE(1, 583)=58
+ KSPARSE(2, 583)=30
!WC_ORA1/WC_OH
- KSPARSE(1, 835)=113
- KSPARSE(2, 835)=98
+ KSPARSE(1, 584)=58
+ KSPARSE(2, 584)=52
!WC_ORA1/WC_HCHO
- KSPARSE(1, 836)=113
- KSPARSE(2, 836)=108
+ KSPARSE(1, 585)=58
+ KSPARSE(2, 585)=57
!WC_ORA1/WC_ORA1
- KSPARSE(1, 837)=113
- KSPARSE(2, 837)=113
+ KSPARSE(1, 586)=58
+ KSPARSE(2, 586)=58
!WC_ORA1/WC_AHMS
- KSPARSE(1, 838)=113
- KSPARSE(2, 838)=124
+ KSPARSE(1, 587)=58
+ KSPARSE(2, 587)=66
!WC_ORA2/ORA2
- KSPARSE(1, 839)=114
- KSPARSE(2, 839)=44
-!WC_ORA2/WC_OH
- KSPARSE(1, 840)=114
- KSPARSE(2, 840)=98
-!WC_ORA2/WC_RO25
- KSPARSE(1, 841)=114
- KSPARSE(2, 841)=104
+ KSPARSE(1, 588)=59
+ KSPARSE(2, 588)=31
!WC_ORA2/WC_ORA2
- KSPARSE(1, 842)=114
- KSPARSE(2, 842)=114
-!WC_ACID/ACID
- KSPARSE(1, 843)=115
- KSPARSE(2, 843)=45
-!WC_ACID/WC_OH
- KSPARSE(1, 844)=115
- KSPARSE(2, 844)=98
-!WC_ACID/WC_ACID
- KSPARSE(1, 845)=115
- KSPARSE(2, 845)=115
-!WC_RP16/RP16
- KSPARSE(1, 846)=116
- KSPARSE(2, 846)=74
-!WC_RP16/WC_OH
- KSPARSE(1, 847)=116
- KSPARSE(2, 847)=98
-!WC_RP16/WC_GLY
- KSPARSE(1, 848)=116
- KSPARSE(2, 848)=110
-!WC_RP16/WC_ORA2
- KSPARSE(1, 849)=116
- KSPARSE(2, 849)=114
-!WC_RP16/WC_RP16
- KSPARSE(1, 850)=116
- KSPARSE(2, 850)=116
-!WC_UR21/UR21
- KSPARSE(1, 851)=117
- KSPARSE(2, 851)=47
-!WC_UR21/WC_OH
- KSPARSE(1, 852)=117
- KSPARSE(2, 852)=98
-!WC_UR21/WC_MGLY
- KSPARSE(1, 853)=117
- KSPARSE(2, 853)=111
-!WC_UR21/WC_KETL
- KSPARSE(1, 854)=117
- KSPARSE(2, 854)=112
-!WC_UR21/WC_ACID
- KSPARSE(1, 855)=117
- KSPARSE(2, 855)=115
-!WC_UR21/WC_UR21
- KSPARSE(1, 856)=117
- KSPARSE(2, 856)=117
-!WC_UR28/UR28
- KSPARSE(1, 857)=118
- KSPARSE(2, 857)=46
-!WC_UR28/WC_OH
- KSPARSE(1, 858)=118
- KSPARSE(2, 858)=98
-!WC_UR28/WC_RP16
- KSPARSE(1, 859)=118
- KSPARSE(2, 859)=116
-!WC_UR28/WC_UR28
- KSPARSE(1, 860)=118
- KSPARSE(2, 860)=118
-!WC_ACID2/WC_OH
- KSPARSE(1, 861)=119
- KSPARSE(2, 861)=98
-!WC_ACID2/WC_ACID
- KSPARSE(1, 862)=119
- KSPARSE(2, 862)=115
-!WC_ACID2/WC_UR21
- KSPARSE(1, 863)=119
- KSPARSE(2, 863)=117
-!WC_ACID2/WC_ACID2
- KSPARSE(1, 864)=119
- KSPARSE(2, 864)=119
+ KSPARSE(1, 589)=59
+ KSPARSE(2, 589)=59
+!WC_MO2/MO2
+ KSPARSE(1, 590)=60
+ KSPARSE(2, 590)=32
+!WC_MO2/WC_SO2
+ KSPARSE(1, 591)=60
+ KSPARSE(2, 591)=55
+!WC_MO2/WC_MO2
+ KSPARSE(1, 592)=60
+ KSPARSE(2, 592)=60
+!WC_OP1/OP1
+ KSPARSE(1, 593)=61
+ KSPARSE(2, 593)=28
+!WC_OP1/WC_SO2
+ KSPARSE(1, 594)=61
+ KSPARSE(2, 594)=55
+!WC_OP1/WC_MO2
+ KSPARSE(1, 595)=61
+ KSPARSE(2, 595)=60
+!WC_OP1/WC_OP1
+ KSPARSE(1, 596)=61
+ KSPARSE(2, 596)=61
!WC_ASO3/WC_NO3
- KSPARSE(1, 865)=120
- KSPARSE(2, 865)=92
+ KSPARSE(1, 597)=62
+ KSPARSE(2, 597)=46
!WC_ASO3/WC_OH
- KSPARSE(1, 866)=120
- KSPARSE(2, 866)=98
+ KSPARSE(1, 598)=62
+ KSPARSE(2, 598)=52
!WC_ASO3/WC_SO2
- KSPARSE(1, 867)=120
- KSPARSE(2, 867)=101
-!WC_ASO3/WC_RO21
- KSPARSE(1, 868)=120
- KSPARSE(2, 868)=103
+ KSPARSE(1, 599)=62
+ KSPARSE(2, 599)=55
+!WC_ASO3/WC_MO2
+ KSPARSE(1, 600)=62
+ KSPARSE(2, 600)=60
!WC_ASO3/WC_ASO3
- KSPARSE(1, 869)=120
- KSPARSE(2, 869)=120
+ KSPARSE(1, 601)=62
+ KSPARSE(2, 601)=62
!WC_ASO4/WC_NO3
- KSPARSE(1, 870)=121
- KSPARSE(2, 870)=92
-!WC_ASO4/WC_H2SO4
- KSPARSE(1, 871)=121
- KSPARSE(2, 871)=102
+ KSPARSE(1, 602)=63
+ KSPARSE(2, 602)=46
+!WC_ASO4/WC_SULF
+ KSPARSE(1, 603)=63
+ KSPARSE(2, 603)=56
!WC_ASO4/WC_ASO4
- KSPARSE(1, 872)=121
- KSPARSE(2, 872)=121
+ KSPARSE(1, 604)=63
+ KSPARSE(2, 604)=63
!WC_ASO4/WC_ASO5
- KSPARSE(1, 873)=121
- KSPARSE(2, 873)=122
+ KSPARSE(1, 605)=63
+ KSPARSE(2, 605)=64
!WC_ASO5/WC_HO2
- KSPARSE(1, 874)=122
- KSPARSE(2, 874)=99
+ KSPARSE(1, 606)=64
+ KSPARSE(2, 606)=53
!WC_ASO5/WC_ASO3
- KSPARSE(1, 875)=122
- KSPARSE(2, 875)=120
+ KSPARSE(1, 607)=64
+ KSPARSE(2, 607)=62
!WC_ASO5/WC_ASO5
- KSPARSE(1, 876)=122
- KSPARSE(2, 876)=122
+ KSPARSE(1, 608)=64
+ KSPARSE(2, 608)=64
!WC_AHSO5/WC_HO2
- KSPARSE(1, 877)=123
- KSPARSE(2, 877)=99
+ KSPARSE(1, 609)=65
+ KSPARSE(2, 609)=53
!WC_AHSO5/WC_SO2
- KSPARSE(1, 878)=123
- KSPARSE(2, 878)=101
+ KSPARSE(1, 610)=65
+ KSPARSE(2, 610)=55
!WC_AHSO5/WC_ASO5
- KSPARSE(1, 879)=123
- KSPARSE(2, 879)=122
+ KSPARSE(1, 611)=65
+ KSPARSE(2, 611)=64
!WC_AHSO5/WC_AHSO5
- KSPARSE(1, 880)=123
- KSPARSE(2, 880)=123
+ KSPARSE(1, 612)=65
+ KSPARSE(2, 612)=65
!WC_AHMS/WC_OH
- KSPARSE(1, 881)=124
- KSPARSE(2, 881)=98
+ KSPARSE(1, 613)=66
+ KSPARSE(2, 613)=52
!WC_AHMS/WC_SO2
- KSPARSE(1, 882)=124
- KSPARSE(2, 882)=101
+ KSPARSE(1, 614)=66
+ KSPARSE(2, 614)=55
!WC_AHMS/WC_HCHO
- KSPARSE(1, 883)=124
- KSPARSE(2, 883)=108
+ KSPARSE(1, 615)=66
+ KSPARSE(2, 615)=57
!WC_AHMS/WC_AHMS
- KSPARSE(1, 884)=124
- KSPARSE(2, 884)=124
+ KSPARSE(1, 616)=66
+ KSPARSE(2, 616)=66
!WR_O3/O3
- KSPARSE(1, 885)=125
- KSPARSE(2, 885)=3
+ KSPARSE(1, 617)=67
+ KSPARSE(2, 617)=1
!WR_O3/WR_O3
- KSPARSE(1, 886)=125
- KSPARSE(2, 886)=125
+ KSPARSE(1, 618)=67
+ KSPARSE(2, 618)=67
!WR_O3/WR_HO2
- KSPARSE(1, 887)=125
- KSPARSE(2, 887)=136
+ KSPARSE(1, 619)=67
+ KSPARSE(2, 619)=78
!WR_O3/WR_SO2
- KSPARSE(1, 888)=125
- KSPARSE(2, 888)=138
+ KSPARSE(1, 620)=67
+ KSPARSE(2, 620)=80
!WR_H2O2/H2O2
- KSPARSE(1, 889)=126
- KSPARSE(2, 889)=12
+ KSPARSE(1, 621)=68
+ KSPARSE(2, 621)=2
!WR_H2O2/WR_H2O2
- KSPARSE(1, 890)=126
- KSPARSE(2, 890)=126
+ KSPARSE(1, 622)=68
+ KSPARSE(2, 622)=68
!WR_H2O2/WR_OH
- KSPARSE(1, 891)=126
- KSPARSE(2, 891)=135
+ KSPARSE(1, 623)=68
+ KSPARSE(2, 623)=77
!WR_H2O2/WR_HO2
- KSPARSE(1, 892)=126
- KSPARSE(2, 892)=136
+ KSPARSE(1, 624)=68
+ KSPARSE(2, 624)=78
!WR_H2O2/WR_SO2
- KSPARSE(1, 893)=126
- KSPARSE(2, 893)=138
-!WR_H2O2/WR_RO25
- KSPARSE(1, 894)=126
- KSPARSE(2, 894)=141
-!WR_H2O2/WR_KETL
- KSPARSE(1, 895)=126
- KSPARSE(2, 895)=149
-!WR_H2O2/WR_ORA2
- KSPARSE(1, 896)=126
- KSPARSE(2, 896)=151
-!WR_H2O2/WR_ACID
- KSPARSE(1, 897)=126
- KSPARSE(2, 897)=152
-!WR_H2O2/WR_RP16
- KSPARSE(1, 898)=126
- KSPARSE(2, 898)=153
-!WR_H2O2/WR_UR21
- KSPARSE(1, 899)=126
- KSPARSE(2, 899)=154
+ KSPARSE(1, 625)=68
+ KSPARSE(2, 625)=80
!WR_NO/NO
- KSPARSE(1, 900)=127
- KSPARSE(2, 900)=1
+ KSPARSE(1, 626)=69
+ KSPARSE(2, 626)=3
!WR_NO/WR_NO
- KSPARSE(1, 901)=127
- KSPARSE(2, 901)=127
+ KSPARSE(1, 627)=69
+ KSPARSE(2, 627)=69
!WR_NO2/NO2
- KSPARSE(1, 902)=128
- KSPARSE(2, 902)=2
+ KSPARSE(1, 628)=70
+ KSPARSE(2, 628)=4
!WR_NO2/WR_NO2
- KSPARSE(1, 903)=128
- KSPARSE(2, 903)=128
+ KSPARSE(1, 629)=70
+ KSPARSE(2, 629)=70
!WR_NO2/WR_HONO
- KSPARSE(1, 904)=128
- KSPARSE(2, 904)=131
+ KSPARSE(1, 630)=70
+ KSPARSE(2, 630)=73
!WR_NO2/WR_HNO3
- KSPARSE(1, 905)=128
- KSPARSE(2, 905)=132
+ KSPARSE(1, 631)=70
+ KSPARSE(2, 631)=74
!WR_NO2/WR_HNO4
- KSPARSE(1, 906)=128
- KSPARSE(2, 906)=133
+ KSPARSE(1, 632)=70
+ KSPARSE(2, 632)=75
!WR_NO2/WR_OH
- KSPARSE(1, 907)=128
- KSPARSE(2, 907)=135
+ KSPARSE(1, 633)=70
+ KSPARSE(2, 633)=77
!WR_NO2/WR_HO2
- KSPARSE(1, 908)=128
- KSPARSE(2, 908)=136
+ KSPARSE(1, 634)=70
+ KSPARSE(2, 634)=78
!WR_NO3/NO3
- KSPARSE(1, 909)=129
- KSPARSE(2, 909)=8
+ KSPARSE(1, 635)=71
+ KSPARSE(2, 635)=5
!WR_NO3/WR_NO3
- KSPARSE(1, 910)=129
- KSPARSE(2, 910)=129
+ KSPARSE(1, 636)=71
+ KSPARSE(2, 636)=71
!WR_NO3/WR_SO2
- KSPARSE(1, 911)=129
- KSPARSE(2, 911)=138
-!WR_NO3/WR_H2SO4
- KSPARSE(1, 912)=129
- KSPARSE(2, 912)=139
+ KSPARSE(1, 637)=71
+ KSPARSE(2, 637)=80
+!WR_NO3/WR_SULF
+ KSPARSE(1, 638)=71
+ KSPARSE(2, 638)=81
!WR_N2O5/N2O5
- KSPARSE(1, 913)=130
- KSPARSE(2, 913)=7
+ KSPARSE(1, 639)=72
+ KSPARSE(2, 639)=6
!WR_N2O5/WR_N2O5
- KSPARSE(1, 914)=130
- KSPARSE(2, 914)=130
+ KSPARSE(1, 640)=72
+ KSPARSE(2, 640)=72
!WR_HONO/HONO
- KSPARSE(1, 915)=131
- KSPARSE(2, 915)=4
+ KSPARSE(1, 641)=73
+ KSPARSE(2, 641)=7
!WR_HONO/WR_HONO
- KSPARSE(1, 916)=131
- KSPARSE(2, 916)=131
+ KSPARSE(1, 642)=73
+ KSPARSE(2, 642)=73
!WR_HONO/WR_HNO4
- KSPARSE(1, 917)=131
- KSPARSE(2, 917)=133
+ KSPARSE(1, 643)=73
+ KSPARSE(2, 643)=75
!WR_HONO/WR_OH
- KSPARSE(1, 918)=131
- KSPARSE(2, 918)=135
+ KSPARSE(1, 644)=73
+ KSPARSE(2, 644)=77
!WR_HNO3/HNO3
- KSPARSE(1, 919)=132
- KSPARSE(2, 919)=5
+ KSPARSE(1, 645)=74
+ KSPARSE(2, 645)=8
!WR_HNO3/WR_NO3
- KSPARSE(1, 920)=132
- KSPARSE(2, 920)=129
+ KSPARSE(1, 646)=74
+ KSPARSE(2, 646)=71
!WR_HNO3/WR_N2O5
- KSPARSE(1, 921)=132
- KSPARSE(2, 921)=130
+ KSPARSE(1, 647)=74
+ KSPARSE(2, 647)=72
!WR_HNO3/WR_HNO3
- KSPARSE(1, 922)=132
- KSPARSE(2, 922)=132
+ KSPARSE(1, 648)=74
+ KSPARSE(2, 648)=74
!WR_HNO3/WR_HNO4
- KSPARSE(1, 923)=132
- KSPARSE(2, 923)=133
+ KSPARSE(1, 649)=74
+ KSPARSE(2, 649)=75
!WR_HNO3/WR_SO2
- KSPARSE(1, 924)=132
- KSPARSE(2, 924)=138
-!WR_HNO3/WR_H2SO4
- KSPARSE(1, 925)=132
- KSPARSE(2, 925)=139
+ KSPARSE(1, 650)=74
+ KSPARSE(2, 650)=80
+!WR_HNO3/WR_SULF
+ KSPARSE(1, 651)=74
+ KSPARSE(2, 651)=81
!WR_HNO4/HNO4
- KSPARSE(1, 926)=133
- KSPARSE(2, 926)=6
+ KSPARSE(1, 652)=75
+ KSPARSE(2, 652)=9
!WR_HNO4/WR_NO2
- KSPARSE(1, 927)=133
- KSPARSE(2, 927)=128
+ KSPARSE(1, 653)=75
+ KSPARSE(2, 653)=70
!WR_HNO4/WR_HNO4
- KSPARSE(1, 928)=133
- KSPARSE(2, 928)=133
+ KSPARSE(1, 654)=75
+ KSPARSE(2, 654)=75
!WR_HNO4/WR_HO2
- KSPARSE(1, 929)=133
- KSPARSE(2, 929)=136
+ KSPARSE(1, 655)=75
+ KSPARSE(2, 655)=78
!WR_HNO4/WR_SO2
- KSPARSE(1, 930)=133
- KSPARSE(2, 930)=138
+ KSPARSE(1, 656)=75
+ KSPARSE(2, 656)=80
!WR_NH3/NH3
- KSPARSE(1, 931)=134
- KSPARSE(2, 931)=9
+ KSPARSE(1, 657)=76
+ KSPARSE(2, 657)=10
!WR_NH3/WR_NH3
- KSPARSE(1, 932)=134
- KSPARSE(2, 932)=134
+ KSPARSE(1, 658)=76
+ KSPARSE(2, 658)=76
!WR_OH/OH
- KSPARSE(1, 933)=135
- KSPARSE(2, 933)=15
+ KSPARSE(1, 659)=77
+ KSPARSE(2, 659)=14
!WR_OH/WR_O3
- KSPARSE(1, 934)=135
- KSPARSE(2, 934)=125
+ KSPARSE(1, 660)=77
+ KSPARSE(2, 660)=67
!WR_OH/WR_H2O2
- KSPARSE(1, 935)=135
- KSPARSE(2, 935)=126
+ KSPARSE(1, 661)=77
+ KSPARSE(2, 661)=68
!WR_OH/WR_HONO
- KSPARSE(1, 936)=135
- KSPARSE(2, 936)=131
+ KSPARSE(1, 662)=77
+ KSPARSE(2, 662)=73
!WR_OH/WR_HNO3
- KSPARSE(1, 937)=135
- KSPARSE(2, 937)=132
+ KSPARSE(1, 663)=77
+ KSPARSE(2, 663)=74
!WR_OH/WR_OH
- KSPARSE(1, 938)=135
- KSPARSE(2, 938)=135
+ KSPARSE(1, 664)=77
+ KSPARSE(2, 664)=77
!WR_OH/WR_HO2
- KSPARSE(1, 939)=135
- KSPARSE(2, 939)=136
+ KSPARSE(1, 665)=77
+ KSPARSE(2, 665)=78
!WR_OH/WR_SO2
- KSPARSE(1, 940)=135
- KSPARSE(2, 940)=138
-!WR_OH/WR_MEOH
- KSPARSE(1, 941)=135
- KSPARSE(2, 941)=142
-!WR_OH/WR_ETOH
- KSPARSE(1, 942)=135
- KSPARSE(2, 942)=143
-!WR_OH/WR_ALCH
- KSPARSE(1, 943)=135
- KSPARSE(2, 943)=144
+ KSPARSE(1, 666)=77
+ KSPARSE(2, 666)=80
!WR_OH/WR_HCHO
- KSPARSE(1, 944)=135
- KSPARSE(2, 944)=145
-!WR_OH/WR_ALD2
- KSPARSE(1, 945)=135
- KSPARSE(2, 945)=146
-!WR_OH/WR_GLY
- KSPARSE(1, 946)=135
- KSPARSE(2, 946)=147
-!WR_OH/WR_MGLY
- KSPARSE(1, 947)=135
- KSPARSE(2, 947)=148
-!WR_OH/WR_KETL
- KSPARSE(1, 948)=135
- KSPARSE(2, 948)=149
+ KSPARSE(1, 667)=77
+ KSPARSE(2, 667)=82
!WR_OH/WR_ORA1
- KSPARSE(1, 949)=135
- KSPARSE(2, 949)=150
-!WR_OH/WR_ORA2
- KSPARSE(1, 950)=135
- KSPARSE(2, 950)=151
-!WR_OH/WR_ACID
- KSPARSE(1, 951)=135
- KSPARSE(2, 951)=152
-!WR_OH/WR_RP16
- KSPARSE(1, 952)=135
- KSPARSE(2, 952)=153
-!WR_OH/WR_UR21
- KSPARSE(1, 953)=135
- KSPARSE(2, 953)=154
-!WR_OH/WR_UR28
- KSPARSE(1, 954)=135
- KSPARSE(2, 954)=155
-!WR_OH/WR_ACID2
- KSPARSE(1, 955)=135
- KSPARSE(2, 955)=156
+ KSPARSE(1, 668)=77
+ KSPARSE(2, 668)=83
!WR_OH/WR_ASO4
- KSPARSE(1, 956)=135
- KSPARSE(2, 956)=158
+ KSPARSE(1, 669)=77
+ KSPARSE(2, 669)=88
!WR_OH/WR_AHMS
- KSPARSE(1, 957)=135
- KSPARSE(2, 957)=161
+ KSPARSE(1, 670)=77
+ KSPARSE(2, 670)=91
!WR_HO2/HO2
- KSPARSE(1, 958)=136
- KSPARSE(2, 958)=10
+ KSPARSE(1, 671)=78
+ KSPARSE(2, 671)=15
!WR_HO2/WR_O3
- KSPARSE(1, 959)=136
- KSPARSE(2, 959)=125
+ KSPARSE(1, 672)=78
+ KSPARSE(2, 672)=67
!WR_HO2/WR_H2O2
- KSPARSE(1, 960)=136
- KSPARSE(2, 960)=126
+ KSPARSE(1, 673)=78
+ KSPARSE(2, 673)=68
!WR_HO2/WR_NO2
- KSPARSE(1, 961)=136
- KSPARSE(2, 961)=128
+ KSPARSE(1, 674)=78
+ KSPARSE(2, 674)=70
!WR_HO2/WR_HNO4
- KSPARSE(1, 962)=136
- KSPARSE(2, 962)=133
+ KSPARSE(1, 675)=78
+ KSPARSE(2, 675)=75
!WR_HO2/WR_OH
- KSPARSE(1, 963)=136
- KSPARSE(2, 963)=135
+ KSPARSE(1, 676)=78
+ KSPARSE(2, 676)=77
!WR_HO2/WR_HO2
- KSPARSE(1, 964)=136
- KSPARSE(2, 964)=136
-!WR_HO2/WR_RO21
- KSPARSE(1, 965)=136
- KSPARSE(2, 965)=140
-!WR_HO2/WR_RO25
- KSPARSE(1, 966)=136
- KSPARSE(2, 966)=141
-!WR_HO2/WR_MEOH
- KSPARSE(1, 967)=136
- KSPARSE(2, 967)=142
-!WR_HO2/WR_ETOH
- KSPARSE(1, 968)=136
- KSPARSE(2, 968)=143
-!WR_HO2/WR_ALCH
- KSPARSE(1, 969)=136
- KSPARSE(2, 969)=144
+ KSPARSE(1, 677)=78
+ KSPARSE(2, 677)=78
!WR_HO2/WR_HCHO
- KSPARSE(1, 970)=136
- KSPARSE(2, 970)=145
-!WR_HO2/WR_GLY
- KSPARSE(1, 971)=136
- KSPARSE(2, 971)=147
-!WR_HO2/WR_MGLY
- KSPARSE(1, 972)=136
- KSPARSE(2, 972)=148
-!WR_HO2/WR_KETL
- KSPARSE(1, 973)=136
- KSPARSE(2, 973)=149
+ KSPARSE(1, 678)=78
+ KSPARSE(2, 678)=82
!WR_HO2/WR_ORA1
- KSPARSE(1, 974)=136
- KSPARSE(2, 974)=150
-!WR_HO2/WR_ACID
- KSPARSE(1, 975)=136
- KSPARSE(2, 975)=152
-!WR_HO2/WR_RP16
- KSPARSE(1, 976)=136
- KSPARSE(2, 976)=153
-!WR_HO2/WR_UR21
- KSPARSE(1, 977)=136
- KSPARSE(2, 977)=154
-!WR_HO2/WR_UR28
- KSPARSE(1, 978)=136
- KSPARSE(2, 978)=155
+ KSPARSE(1, 679)=78
+ KSPARSE(2, 679)=83
+!WR_HO2/WR_MO2
+ KSPARSE(1, 680)=78
+ KSPARSE(2, 680)=85
!WR_HO2/WR_ASO5
- KSPARSE(1, 979)=136
- KSPARSE(2, 979)=159
+ KSPARSE(1, 681)=78
+ KSPARSE(2, 681)=89
!WR_HO2/WR_AHMS
- KSPARSE(1, 980)=136
- KSPARSE(2, 980)=161
+ KSPARSE(1, 682)=78
+ KSPARSE(2, 682)=91
!WR_CO2/WR_OH
- KSPARSE(1, 981)=137
- KSPARSE(2, 981)=135
+ KSPARSE(1, 683)=79
+ KSPARSE(2, 683)=77
!WR_CO2/WR_CO2
- KSPARSE(1, 982)=137
- KSPARSE(2, 982)=137
-!WR_CO2/WR_ALD2
- KSPARSE(1, 983)=137
- KSPARSE(2, 983)=146
-!WR_CO2/WR_KETL
- KSPARSE(1, 984)=137
- KSPARSE(2, 984)=149
+ KSPARSE(1, 684)=79
+ KSPARSE(2, 684)=79
!WR_CO2/WR_ORA1
- KSPARSE(1, 985)=137
- KSPARSE(2, 985)=150
-!WR_CO2/WR_ACID
- KSPARSE(1, 986)=137
- KSPARSE(2, 986)=152
-!WR_CO2/WR_RP16
- KSPARSE(1, 987)=137
- KSPARSE(2, 987)=153
-!WR_CO2/WR_UR21
- KSPARSE(1, 988)=137
- KSPARSE(2, 988)=154
-!WR_CO2/WR_UR28
- KSPARSE(1, 989)=137
- KSPARSE(2, 989)=155
+ KSPARSE(1, 685)=79
+ KSPARSE(2, 685)=83
!WR_SO2/SO2
- KSPARSE(1, 990)=138
- KSPARSE(2, 990)=13
+ KSPARSE(1, 686)=80
+ KSPARSE(2, 686)=11
!WR_SO2/WR_O3
- KSPARSE(1, 991)=138
- KSPARSE(2, 991)=125
+ KSPARSE(1, 687)=80
+ KSPARSE(2, 687)=67
!WR_SO2/WR_H2O2
- KSPARSE(1, 992)=138
- KSPARSE(2, 992)=126
+ KSPARSE(1, 688)=80
+ KSPARSE(2, 688)=68
!WR_SO2/WR_NO3
- KSPARSE(1, 993)=138
- KSPARSE(2, 993)=129
+ KSPARSE(1, 689)=80
+ KSPARSE(2, 689)=71
!WR_SO2/WR_HNO4
- KSPARSE(1, 994)=138
- KSPARSE(2, 994)=133
+ KSPARSE(1, 690)=80
+ KSPARSE(2, 690)=75
!WR_SO2/WR_OH
- KSPARSE(1, 995)=138
- KSPARSE(2, 995)=135
+ KSPARSE(1, 691)=80
+ KSPARSE(2, 691)=77
!WR_SO2/WR_SO2
- KSPARSE(1, 996)=138
- KSPARSE(2, 996)=138
-!WR_SO2/WR_RO21
- KSPARSE(1, 997)=138
- KSPARSE(2, 997)=140
+ KSPARSE(1, 692)=80
+ KSPARSE(2, 692)=80
!WR_SO2/WR_HCHO
- KSPARSE(1, 998)=138
- KSPARSE(2, 998)=145
+ KSPARSE(1, 693)=80
+ KSPARSE(2, 693)=82
+!WR_SO2/WR_MO2
+ KSPARSE(1, 694)=80
+ KSPARSE(2, 694)=85
!WR_SO2/WR_AHSO5
- KSPARSE(1, 999)=138
- KSPARSE(2, 999)=160
+ KSPARSE(1, 695)=80
+ KSPARSE(2, 695)=90
!WR_SO2/WR_AHMS
- KSPARSE(1, 1000)=138
- KSPARSE(2, 1000)=161
-!WR_H2SO4/H2SO4
- KSPARSE(1, 1001)=139
- KSPARSE(2, 1001)=14
-!WR_H2SO4/WR_O3
- KSPARSE(1, 1002)=139
- KSPARSE(2, 1002)=125
-!WR_H2SO4/WR_H2O2
- KSPARSE(1, 1003)=139
- KSPARSE(2, 1003)=126
-!WR_H2SO4/WR_NO3
- KSPARSE(1, 1004)=139
- KSPARSE(2, 1004)=129
-!WR_H2SO4/WR_HNO4
- KSPARSE(1, 1005)=139
- KSPARSE(2, 1005)=133
-!WR_H2SO4/WR_SO2
- KSPARSE(1, 1006)=139
- KSPARSE(2, 1006)=138
-!WR_H2SO4/WR_H2SO4
- KSPARSE(1, 1007)=139
- KSPARSE(2, 1007)=139
-!WR_H2SO4/WR_ASO4
- KSPARSE(1, 1008)=139
- KSPARSE(2, 1008)=158
-!WR_H2SO4/WR_AHSO5
- KSPARSE(1, 1009)=139
- KSPARSE(2, 1009)=160
-!WR_RO21/RO21
- KSPARSE(1, 1010)=140
- KSPARSE(2, 1010)=86
-!WR_RO21/WR_OH
- KSPARSE(1, 1011)=140
- KSPARSE(2, 1011)=135
-!WR_RO21/WR_SO2
- KSPARSE(1, 1012)=140
- KSPARSE(2, 1012)=138
-!WR_RO21/WR_RO21
- KSPARSE(1, 1013)=140
- KSPARSE(2, 1013)=140
-!WR_RO21/WR_ALD2
- KSPARSE(1, 1014)=140
- KSPARSE(2, 1014)=146
-!WR_RO21/WR_KETL
- KSPARSE(1, 1015)=140
- KSPARSE(2, 1015)=149
-!WR_RO25/RO25
- KSPARSE(1, 1016)=141
- KSPARSE(2, 1016)=87
-!WR_RO25/WR_OH
- KSPARSE(1, 1017)=141
- KSPARSE(2, 1017)=135
-!WR_RO25/WR_RO25
- KSPARSE(1, 1018)=141
- KSPARSE(2, 1018)=141
-!WR_RO25/WR_ALD2
- KSPARSE(1, 1019)=141
- KSPARSE(2, 1019)=146
-!WR_RO25/WR_ACID
- KSPARSE(1, 1020)=141
- KSPARSE(2, 1020)=152
-!WR_MEOH/MEOH
- KSPARSE(1, 1021)=142
- KSPARSE(2, 1021)=32
-!WR_MEOH/WR_OH
- KSPARSE(1, 1022)=142
- KSPARSE(2, 1022)=135
-!WR_MEOH/WR_MEOH
- KSPARSE(1, 1023)=142
- KSPARSE(2, 1023)=142
-!WR_ETOH/ETOH
- KSPARSE(1, 1024)=143
- KSPARSE(2, 1024)=33
-!WR_ETOH/WR_OH
- KSPARSE(1, 1025)=143
- KSPARSE(2, 1025)=135
-!WR_ETOH/WR_ETOH
- KSPARSE(1, 1026)=143
- KSPARSE(2, 1026)=143
-!WR_ALCH/ALCH
- KSPARSE(1, 1027)=144
- KSPARSE(2, 1027)=34
-!WR_ALCH/WR_OH
- KSPARSE(1, 1028)=144
- KSPARSE(2, 1028)=135
-!WR_ALCH/WR_ALCH
- KSPARSE(1, 1029)=144
- KSPARSE(2, 1029)=144
+ KSPARSE(1, 696)=80
+ KSPARSE(2, 696)=91
+!WR_SULF/SULF
+ KSPARSE(1, 697)=81
+ KSPARSE(2, 697)=12
+!WR_SULF/WR_O3
+ KSPARSE(1, 698)=81
+ KSPARSE(2, 698)=67
+!WR_SULF/WR_H2O2
+ KSPARSE(1, 699)=81
+ KSPARSE(2, 699)=68
+!WR_SULF/WR_NO3
+ KSPARSE(1, 700)=81
+ KSPARSE(2, 700)=71
+!WR_SULF/WR_HNO4
+ KSPARSE(1, 701)=81
+ KSPARSE(2, 701)=75
+!WR_SULF/WR_SO2
+ KSPARSE(1, 702)=81
+ KSPARSE(2, 702)=80
+!WR_SULF/WR_SULF
+ KSPARSE(1, 703)=81
+ KSPARSE(2, 703)=81
+!WR_SULF/WR_ASO4
+ KSPARSE(1, 704)=81
+ KSPARSE(2, 704)=88
+!WR_SULF/WR_AHSO5
+ KSPARSE(1, 705)=81
+ KSPARSE(2, 705)=90
!WR_HCHO/HCHO
- KSPARSE(1, 1030)=145
- KSPARSE(2, 1030)=28
+ KSPARSE(1, 706)=82
+ KSPARSE(2, 706)=22
!WR_HCHO/WR_OH
- KSPARSE(1, 1031)=145
- KSPARSE(2, 1031)=135
+ KSPARSE(1, 707)=82
+ KSPARSE(2, 707)=77
!WR_HCHO/WR_SO2
- KSPARSE(1, 1032)=145
- KSPARSE(2, 1032)=138
-!WR_HCHO/WR_RO21
- KSPARSE(1, 1033)=145
- KSPARSE(2, 1033)=140
-!WR_HCHO/WR_MEOH
- KSPARSE(1, 1034)=145
- KSPARSE(2, 1034)=142
+ KSPARSE(1, 708)=82
+ KSPARSE(2, 708)=80
!WR_HCHO/WR_HCHO
- KSPARSE(1, 1035)=145
- KSPARSE(2, 1035)=145
-!WR_HCHO/WR_KETL
- KSPARSE(1, 1036)=145
- KSPARSE(2, 1036)=149
+ KSPARSE(1, 709)=82
+ KSPARSE(2, 709)=82
+!WR_HCHO/WR_MO2
+ KSPARSE(1, 710)=82
+ KSPARSE(2, 710)=85
!WR_HCHO/WR_AHMS
- KSPARSE(1, 1037)=145
- KSPARSE(2, 1037)=161
-!WR_ALD2/ALD2
- KSPARSE(1, 1038)=146
- KSPARSE(2, 1038)=29
-!WR_ALD2/WR_OH
- KSPARSE(1, 1039)=146
- KSPARSE(2, 1039)=135
-!WR_ALD2/WR_RO25
- KSPARSE(1, 1040)=146
- KSPARSE(2, 1040)=141
-!WR_ALD2/WR_ETOH
- KSPARSE(1, 1041)=146
- KSPARSE(2, 1041)=143
-!WR_ALD2/WR_ALCH
- KSPARSE(1, 1042)=146
- KSPARSE(2, 1042)=144
-!WR_ALD2/WR_ALD2
- KSPARSE(1, 1043)=146
- KSPARSE(2, 1043)=146
-!WR_ALD2/WR_KETL
- KSPARSE(1, 1044)=146
- KSPARSE(2, 1044)=149
-!WR_ALD2/WR_ACID
- KSPARSE(1, 1045)=146
- KSPARSE(2, 1045)=152
-!WR_ALD2/WR_UR21
- KSPARSE(1, 1046)=146
- KSPARSE(2, 1046)=154
-!WR_GLY/GLY
- KSPARSE(1, 1047)=147
- KSPARSE(2, 1047)=42
-!WR_GLY/WR_OH
- KSPARSE(1, 1048)=147
- KSPARSE(2, 1048)=135
-!WR_GLY/WR_GLY
- KSPARSE(1, 1049)=147
- KSPARSE(2, 1049)=147
-!WR_MGLY/MGLY
- KSPARSE(1, 1050)=148
- KSPARSE(2, 1050)=41
-!WR_MGLY/WR_OH
- KSPARSE(1, 1051)=148
- KSPARSE(2, 1051)=135
-!WR_MGLY/WR_MGLY
- KSPARSE(1, 1052)=148
- KSPARSE(2, 1052)=148
-!WR_MGLY/WR_KETL
- KSPARSE(1, 1053)=148
- KSPARSE(2, 1053)=149
-!WR_KETL/KETL
- KSPARSE(1, 1054)=149
- KSPARSE(2, 1054)=30
-!WR_KETL/WR_OH
- KSPARSE(1, 1055)=149
- KSPARSE(2, 1055)=135
-!WR_KETL/WR_ALCH
- KSPARSE(1, 1056)=149
- KSPARSE(2, 1056)=144
-!WR_KETL/WR_KETL
- KSPARSE(1, 1057)=149
- KSPARSE(2, 1057)=149
+ KSPARSE(1, 711)=82
+ KSPARSE(2, 711)=91
!WR_ORA1/ORA1
- KSPARSE(1, 1058)=150
- KSPARSE(2, 1058)=43
+ KSPARSE(1, 712)=83
+ KSPARSE(2, 712)=30
!WR_ORA1/WR_OH
- KSPARSE(1, 1059)=150
- KSPARSE(2, 1059)=135
+ KSPARSE(1, 713)=83
+ KSPARSE(2, 713)=77
!WR_ORA1/WR_HCHO
- KSPARSE(1, 1060)=150
- KSPARSE(2, 1060)=145
+ KSPARSE(1, 714)=83
+ KSPARSE(2, 714)=82
!WR_ORA1/WR_ORA1
- KSPARSE(1, 1061)=150
- KSPARSE(2, 1061)=150
+ KSPARSE(1, 715)=83
+ KSPARSE(2, 715)=83
!WR_ORA1/WR_AHMS
- KSPARSE(1, 1062)=150
- KSPARSE(2, 1062)=161
+ KSPARSE(1, 716)=83
+ KSPARSE(2, 716)=91
!WR_ORA2/ORA2
- KSPARSE(1, 1063)=151
- KSPARSE(2, 1063)=44
-!WR_ORA2/WR_OH
- KSPARSE(1, 1064)=151
- KSPARSE(2, 1064)=135
-!WR_ORA2/WR_RO25
- KSPARSE(1, 1065)=151
- KSPARSE(2, 1065)=141
+ KSPARSE(1, 717)=84
+ KSPARSE(2, 717)=31
!WR_ORA2/WR_ORA2
- KSPARSE(1, 1066)=151
- KSPARSE(2, 1066)=151
-!WR_ACID/ACID
- KSPARSE(1, 1067)=152
- KSPARSE(2, 1067)=45
-!WR_ACID/WR_OH
- KSPARSE(1, 1068)=152
- KSPARSE(2, 1068)=135
-!WR_ACID/WR_ACID
- KSPARSE(1, 1069)=152
- KSPARSE(2, 1069)=152
-!WR_RP16/RP16
- KSPARSE(1, 1070)=153
- KSPARSE(2, 1070)=74
-!WR_RP16/WR_OH
- KSPARSE(1, 1071)=153
- KSPARSE(2, 1071)=135
-!WR_RP16/WR_GLY
- KSPARSE(1, 1072)=153
- KSPARSE(2, 1072)=147
-!WR_RP16/WR_ORA2
- KSPARSE(1, 1073)=153
- KSPARSE(2, 1073)=151
-!WR_RP16/WR_RP16
- KSPARSE(1, 1074)=153
- KSPARSE(2, 1074)=153
-!WR_UR21/UR21
- KSPARSE(1, 1075)=154
- KSPARSE(2, 1075)=47
-!WR_UR21/WR_OH
- KSPARSE(1, 1076)=154
- KSPARSE(2, 1076)=135
-!WR_UR21/WR_MGLY
- KSPARSE(1, 1077)=154
- KSPARSE(2, 1077)=148
-!WR_UR21/WR_KETL
- KSPARSE(1, 1078)=154
- KSPARSE(2, 1078)=149
-!WR_UR21/WR_ACID
- KSPARSE(1, 1079)=154
- KSPARSE(2, 1079)=152
-!WR_UR21/WR_UR21
- KSPARSE(1, 1080)=154
- KSPARSE(2, 1080)=154
-!WR_UR28/UR28
- KSPARSE(1, 1081)=155
- KSPARSE(2, 1081)=46
-!WR_UR28/WR_OH
- KSPARSE(1, 1082)=155
- KSPARSE(2, 1082)=135
-!WR_UR28/WR_RP16
- KSPARSE(1, 1083)=155
- KSPARSE(2, 1083)=153
-!WR_UR28/WR_UR28
- KSPARSE(1, 1084)=155
- KSPARSE(2, 1084)=155
-!WR_ACID2/WR_OH
- KSPARSE(1, 1085)=156
- KSPARSE(2, 1085)=135
-!WR_ACID2/WR_ACID
- KSPARSE(1, 1086)=156
- KSPARSE(2, 1086)=152
-!WR_ACID2/WR_UR21
- KSPARSE(1, 1087)=156
- KSPARSE(2, 1087)=154
-!WR_ACID2/WR_ACID2
- KSPARSE(1, 1088)=156
- KSPARSE(2, 1088)=156
+ KSPARSE(1, 718)=84
+ KSPARSE(2, 718)=84
+!WR_MO2/MO2
+ KSPARSE(1, 719)=85
+ KSPARSE(2, 719)=32
+!WR_MO2/WR_SO2
+ KSPARSE(1, 720)=85
+ KSPARSE(2, 720)=80
+!WR_MO2/WR_MO2
+ KSPARSE(1, 721)=85
+ KSPARSE(2, 721)=85
+!WR_OP1/OP1
+ KSPARSE(1, 722)=86
+ KSPARSE(2, 722)=28
+!WR_OP1/WR_SO2
+ KSPARSE(1, 723)=86
+ KSPARSE(2, 723)=80
+!WR_OP1/WR_MO2
+ KSPARSE(1, 724)=86
+ KSPARSE(2, 724)=85
+!WR_OP1/WR_OP1
+ KSPARSE(1, 725)=86
+ KSPARSE(2, 725)=86
!WR_ASO3/WR_NO3
- KSPARSE(1, 1089)=157
- KSPARSE(2, 1089)=129
+ KSPARSE(1, 726)=87
+ KSPARSE(2, 726)=71
!WR_ASO3/WR_OH
- KSPARSE(1, 1090)=157
- KSPARSE(2, 1090)=135
+ KSPARSE(1, 727)=87
+ KSPARSE(2, 727)=77
!WR_ASO3/WR_SO2
- KSPARSE(1, 1091)=157
- KSPARSE(2, 1091)=138
-!WR_ASO3/WR_RO21
- KSPARSE(1, 1092)=157
- KSPARSE(2, 1092)=140
+ KSPARSE(1, 728)=87
+ KSPARSE(2, 728)=80
+!WR_ASO3/WR_MO2
+ KSPARSE(1, 729)=87
+ KSPARSE(2, 729)=85
!WR_ASO3/WR_ASO3
- KSPARSE(1, 1093)=157
- KSPARSE(2, 1093)=157
+ KSPARSE(1, 730)=87
+ KSPARSE(2, 730)=87
!WR_ASO4/WR_NO3
- KSPARSE(1, 1094)=158
- KSPARSE(2, 1094)=129
-!WR_ASO4/WR_H2SO4
- KSPARSE(1, 1095)=158
- KSPARSE(2, 1095)=139
+ KSPARSE(1, 731)=88
+ KSPARSE(2, 731)=71
+!WR_ASO4/WR_SULF
+ KSPARSE(1, 732)=88
+ KSPARSE(2, 732)=81
!WR_ASO4/WR_ASO4
- KSPARSE(1, 1096)=158
- KSPARSE(2, 1096)=158
+ KSPARSE(1, 733)=88
+ KSPARSE(2, 733)=88
!WR_ASO4/WR_ASO5
- KSPARSE(1, 1097)=158
- KSPARSE(2, 1097)=159
+ KSPARSE(1, 734)=88
+ KSPARSE(2, 734)=89
!WR_ASO5/WR_HO2
- KSPARSE(1, 1098)=159
- KSPARSE(2, 1098)=136
+ KSPARSE(1, 735)=89
+ KSPARSE(2, 735)=78
!WR_ASO5/WR_ASO3
- KSPARSE(1, 1099)=159
- KSPARSE(2, 1099)=157
+ KSPARSE(1, 736)=89
+ KSPARSE(2, 736)=87
!WR_ASO5/WR_ASO5
- KSPARSE(1, 1100)=159
- KSPARSE(2, 1100)=159
+ KSPARSE(1, 737)=89
+ KSPARSE(2, 737)=89
!WR_AHSO5/WR_HO2
- KSPARSE(1, 1101)=160
- KSPARSE(2, 1101)=136
+ KSPARSE(1, 738)=90
+ KSPARSE(2, 738)=78
!WR_AHSO5/WR_SO2
- KSPARSE(1, 1102)=160
- KSPARSE(2, 1102)=138
+ KSPARSE(1, 739)=90
+ KSPARSE(2, 739)=80
!WR_AHSO5/WR_ASO5
- KSPARSE(1, 1103)=160
- KSPARSE(2, 1103)=159
+ KSPARSE(1, 740)=90
+ KSPARSE(2, 740)=89
!WR_AHSO5/WR_AHSO5
- KSPARSE(1, 1104)=160
- KSPARSE(2, 1104)=160
+ KSPARSE(1, 741)=90
+ KSPARSE(2, 741)=90
!WR_AHMS/WR_OH
- KSPARSE(1, 1105)=161
- KSPARSE(2, 1105)=135
+ KSPARSE(1, 742)=91
+ KSPARSE(2, 742)=77
!WR_AHMS/WR_SO2
- KSPARSE(1, 1106)=161
- KSPARSE(2, 1106)=138
+ KSPARSE(1, 743)=91
+ KSPARSE(2, 743)=80
!WR_AHMS/WR_HCHO
- KSPARSE(1, 1107)=161
- KSPARSE(2, 1107)=145
+ KSPARSE(1, 744)=91
+ KSPARSE(2, 744)=82
!WR_AHMS/WR_AHMS
- KSPARSE(1, 1108)=161
- KSPARSE(2, 1108)=161
-KSPARSEDIM = 1108
+ KSPARSE(1, 745)=91
+ KSPARSE(2, 745)=91
+KSPARSEDIM = 745
RETURN
END SUBROUTINE CH_SPARSE_AQ
+!!
+!! #######################
+ SUBROUTINE CH_SPARSE_GAZ
+!! #######################
+!!
+!!*** *MODD_CH_SPARSE*
+!!
+!! PURPOSE
+!! -------
+! calculation of the non-zero matrix elements in the Jacobian
+!!
+!!** METHOD
+!! ------
+!! A 2D array KSPARSE of DIMESNSION(2,*) is returned, containing
+!! the indices of the non-zero matrix elements in the Jacobian.
+!!
+!! REFERENCE
+!! ---------
+!! none
+!!
+!! AUTHOR
+!! ------
+!! Karsten Suhre (LA)
+!!
+!! MODIFICATIONS
+!! -------------
+!! Original 26/07/96
+!! Modified 05/05/98: Vectorization (Vincent Crassier & KS)
+!!
+!!----------------------------------------------------------------------
+!!
+!! EXTERNAL
+!! --------
+!! none
+!!
+!! IMPLICIT ARGUMENTS
+!! ------------------
+!! none
+!!
+!! EXPLICIT ARGUMENTS
+!! ------------------
+IMPLICIT NONE
+!!
+!! LOCAL VARIABLES
+!! ---------------
+!! none
+!!----------------------------------------------------------------------
+!!
+!! EXECUTABLE STATEMENTS
+!! ---------------------
+! check if output array is large enough
+IF (KSPARSEDIM.LT.449) THEN
+ STOP 'CH_SPARSE ERROR: array KSPARSE is too small!'
+END IF
+!O3/O3
+ KSPARSE(1, 1)=1
+ KSPARSE(2, 1)=1
+!O3/NO
+ KSPARSE(1, 2)=1
+ KSPARSE(2, 2)=3
+!O3/NO2
+ KSPARSE(1, 3)=1
+ KSPARSE(2, 3)=4
+!O3/OH
+ KSPARSE(1, 4)=1
+ KSPARSE(2, 4)=14
+!O3/HO2
+ KSPARSE(1, 5)=1
+ KSPARSE(2, 5)=15
+!O3/ALKE
+ KSPARSE(1, 6)=1
+ KSPARSE(2, 6)=19
+!O3/BIO
+ KSPARSE(1, 7)=1
+ KSPARSE(2, 7)=20
+!O3/CARBO
+ KSPARSE(1, 8)=1
+ KSPARSE(2, 8)=25
+!O3/PAN
+ KSPARSE(1, 9)=1
+ KSPARSE(2, 9)=27
+!O3/ADD
+ KSPARSE(1, 10)=1
+ KSPARSE(2, 10)=37
+!O3/CARBOP
+ KSPARSE(1, 11)=1
+ KSPARSE(2, 11)=39
+!H2O2/O3
+ KSPARSE(1, 12)=2
+ KSPARSE(2, 12)=1
+!H2O2/H2O2
+ KSPARSE(1, 13)=2
+ KSPARSE(2, 13)=2
+!H2O2/OH
+ KSPARSE(1, 14)=2
+ KSPARSE(2, 14)=14
+!H2O2/HO2
+ KSPARSE(1, 15)=2
+ KSPARSE(2, 15)=15
+!H2O2/ALKE
+ KSPARSE(1, 16)=2
+ KSPARSE(2, 16)=19
+!H2O2/BIO
+ KSPARSE(1, 17)=2
+ KSPARSE(2, 17)=20
+!NO/O3
+ KSPARSE(1, 18)=3
+ KSPARSE(2, 18)=1
+!NO/NO
+ KSPARSE(1, 19)=3
+ KSPARSE(2, 19)=3
+!NO/NO2
+ KSPARSE(1, 20)=3
+ KSPARSE(2, 20)=4
+!NO/NO3
+ KSPARSE(1, 21)=3
+ KSPARSE(2, 21)=5
+!NO/HONO
+ KSPARSE(1, 22)=3
+ KSPARSE(2, 22)=7
+!NO/OH
+ KSPARSE(1, 23)=3
+ KSPARSE(2, 23)=14
+!NO/HO2
+ KSPARSE(1, 24)=3
+ KSPARSE(2, 24)=15
+!NO/MO2
+ KSPARSE(1, 25)=3
+ KSPARSE(2, 25)=32
+!NO/ALKAP
+ KSPARSE(1, 26)=3
+ KSPARSE(2, 26)=33
+!NO/ALKEP
+ KSPARSE(1, 27)=3
+ KSPARSE(2, 27)=34
+!NO/BIOP
+ KSPARSE(1, 28)=3
+ KSPARSE(2, 28)=35
+!NO/AROP
+ KSPARSE(1, 29)=3
+ KSPARSE(2, 29)=38
+!NO/CARBOP
+ KSPARSE(1, 30)=3
+ KSPARSE(2, 30)=39
+!NO/OLN
+ KSPARSE(1, 31)=3
+ KSPARSE(2, 31)=40
+!NO/XO2
+ KSPARSE(1, 32)=3
+ KSPARSE(2, 32)=41
+!NO2/O3
+ KSPARSE(1, 33)=4
+ KSPARSE(2, 33)=1
+!NO2/NO
+ KSPARSE(1, 34)=4
+ KSPARSE(2, 34)=3
+!NO2/NO2
+ KSPARSE(1, 35)=4
+ KSPARSE(2, 35)=4
+!NO2/NO3
+ KSPARSE(1, 36)=4
+ KSPARSE(2, 36)=5
+!NO2/N2O5
+ KSPARSE(1, 37)=4
+ KSPARSE(2, 37)=6
+!NO2/HONO
+ KSPARSE(1, 38)=4
+ KSPARSE(2, 38)=7
+!NO2/HNO3
+ KSPARSE(1, 39)=4
+ KSPARSE(2, 39)=8
+!NO2/HNO4
+ KSPARSE(1, 40)=4
+ KSPARSE(2, 40)=9
+!NO2/OH
+ KSPARSE(1, 41)=4
+ KSPARSE(2, 41)=14
+!NO2/HO2
+ KSPARSE(1, 42)=4
+ KSPARSE(2, 42)=15
+!NO2/CARBO
+ KSPARSE(1, 43)=4
+ KSPARSE(2, 43)=25
+!NO2/ONIT
+ KSPARSE(1, 44)=4
+ KSPARSE(2, 44)=26
+!NO2/PAN
+ KSPARSE(1, 45)=4
+ KSPARSE(2, 45)=27
+!NO2/MO2
+ KSPARSE(1, 46)=4
+ KSPARSE(2, 46)=32
+!NO2/ALKAP
+ KSPARSE(1, 47)=4
+ KSPARSE(2, 47)=33
+!NO2/ALKEP
+ KSPARSE(1, 48)=4
+ KSPARSE(2, 48)=34
+!NO2/BIOP
+ KSPARSE(1, 49)=4
+ KSPARSE(2, 49)=35
+!NO2/PHO
+ KSPARSE(1, 50)=4
+ KSPARSE(2, 50)=36
+!NO2/ADD
+ KSPARSE(1, 51)=4
+ KSPARSE(2, 51)=37
+!NO2/AROP
+ KSPARSE(1, 52)=4
+ KSPARSE(2, 52)=38
+!NO2/CARBOP
+ KSPARSE(1, 53)=4
+ KSPARSE(2, 53)=39
+!NO2/OLN
+ KSPARSE(1, 54)=4
+ KSPARSE(2, 54)=40
+!NO2/XO2
+ KSPARSE(1, 55)=4
+ KSPARSE(2, 55)=41
+!NO3/O3
+ KSPARSE(1, 56)=5
+ KSPARSE(2, 56)=1
+!NO3/NO
+ KSPARSE(1, 57)=5
+ KSPARSE(2, 57)=3
+!NO3/NO2
+ KSPARSE(1, 58)=5
+ KSPARSE(2, 58)=4
+!NO3/NO3
+ KSPARSE(1, 59)=5
+ KSPARSE(2, 59)=5
+!NO3/N2O5
+ KSPARSE(1, 60)=5
+ KSPARSE(2, 60)=6
+!NO3/HNO3
+ KSPARSE(1, 61)=5
+ KSPARSE(2, 61)=8
+!NO3/HNO4
+ KSPARSE(1, 62)=5
+ KSPARSE(2, 62)=9
+!NO3/OH
+ KSPARSE(1, 63)=5
+ KSPARSE(2, 63)=14
+!NO3/HO2
+ KSPARSE(1, 64)=5
+ KSPARSE(2, 64)=15
+!NO3/ALKE
+ KSPARSE(1, 65)=5
+ KSPARSE(2, 65)=19
+!NO3/BIO
+ KSPARSE(1, 66)=5
+ KSPARSE(2, 66)=20
+!NO3/ARO
+ KSPARSE(1, 67)=5
+ KSPARSE(2, 67)=21
+!NO3/HCHO
+ KSPARSE(1, 68)=5
+ KSPARSE(2, 68)=22
+!NO3/ALD
+ KSPARSE(1, 69)=5
+ KSPARSE(2, 69)=23
+!NO3/CARBO
+ KSPARSE(1, 70)=5
+ KSPARSE(2, 70)=25
+!NO3/PAN
+ KSPARSE(1, 71)=5
+ KSPARSE(2, 71)=27
+!NO3/MO2
+ KSPARSE(1, 72)=5
+ KSPARSE(2, 72)=32
+!NO3/ALKAP
+ KSPARSE(1, 73)=5
+ KSPARSE(2, 73)=33
+!NO3/ALKEP
+ KSPARSE(1, 74)=5
+ KSPARSE(2, 74)=34
+!NO3/BIOP
+ KSPARSE(1, 75)=5
+ KSPARSE(2, 75)=35
+!NO3/AROP
+ KSPARSE(1, 76)=5
+ KSPARSE(2, 76)=38
+!NO3/CARBOP
+ KSPARSE(1, 77)=5
+ KSPARSE(2, 77)=39
+!NO3/OLN
+ KSPARSE(1, 78)=5
+ KSPARSE(2, 78)=40
+!NO3/XO2
+ KSPARSE(1, 79)=5
+ KSPARSE(2, 79)=41
+!N2O5/NO2
+ KSPARSE(1, 80)=6
+ KSPARSE(2, 80)=4
+!N2O5/NO3
+ KSPARSE(1, 81)=6
+ KSPARSE(2, 81)=5
+!N2O5/N2O5
+ KSPARSE(1, 82)=6
+ KSPARSE(2, 82)=6
+!HONO/NO
+ KSPARSE(1, 83)=7
+ KSPARSE(2, 83)=3
+!HONO/NO2
+ KSPARSE(1, 84)=7
+ KSPARSE(2, 84)=4
+!HONO/HONO
+ KSPARSE(1, 85)=7
+ KSPARSE(2, 85)=7
+!HONO/OH
+ KSPARSE(1, 86)=7
+ KSPARSE(2, 86)=14
+!HONO/ADD
+ KSPARSE(1, 87)=7
+ KSPARSE(2, 87)=37
+!HNO3/NO2
+ KSPARSE(1, 88)=8
+ KSPARSE(2, 88)=4
+!HNO3/NO3
+ KSPARSE(1, 89)=8
+ KSPARSE(2, 89)=5
+!HNO3/HNO3
+ KSPARSE(1, 90)=8
+ KSPARSE(2, 90)=8
+!HNO3/OH
+ KSPARSE(1, 91)=8
+ KSPARSE(2, 91)=14
+!HNO3/HO2
+ KSPARSE(1, 92)=8
+ KSPARSE(2, 92)=15
+!HNO3/ARO
+ KSPARSE(1, 93)=8
+ KSPARSE(2, 93)=21
+!HNO3/HCHO
+ KSPARSE(1, 94)=8
+ KSPARSE(2, 94)=22
+!HNO3/ALD
+ KSPARSE(1, 95)=8
+ KSPARSE(2, 95)=23
+!HNO3/CARBO
+ KSPARSE(1, 96)=8
+ KSPARSE(2, 96)=25
+!HNO4/NO2
+ KSPARSE(1, 97)=9
+ KSPARSE(2, 97)=4
+!HNO4/HNO4
+ KSPARSE(1, 98)=9
+ KSPARSE(2, 98)=9
+!HNO4/OH
+ KSPARSE(1, 99)=9
+ KSPARSE(2, 99)=14
+!HNO4/HO2
+ KSPARSE(1, 100)=9
+ KSPARSE(2, 100)=15
+!NH3/NH3
+ KSPARSE(1, 101)=10
+ KSPARSE(2, 101)=10
+!NH3/OH
+ KSPARSE(1, 102)=10
+ KSPARSE(2, 102)=14
+!SO2/SO2
+ KSPARSE(1, 103)=11
+ KSPARSE(2, 103)=11
+!SO2/OH
+ KSPARSE(1, 104)=11
+ KSPARSE(2, 104)=14
+!SULF/SO2
+ KSPARSE(1, 105)=12
+ KSPARSE(2, 105)=11
+!SULF/SULF
+ KSPARSE(1, 106)=12
+ KSPARSE(2, 106)=12
+!SULF/OH
+ KSPARSE(1, 107)=12
+ KSPARSE(2, 107)=14
+!CO/O3
+ KSPARSE(1, 108)=13
+ KSPARSE(2, 108)=1
+!CO/NO3
+ KSPARSE(1, 109)=13
+ KSPARSE(2, 109)=5
+!CO/CO
+ KSPARSE(1, 110)=13
+ KSPARSE(2, 110)=13
+!CO/OH
+ KSPARSE(1, 111)=13
+ KSPARSE(2, 111)=14
+!CO/ALKA
+ KSPARSE(1, 112)=13
+ KSPARSE(2, 112)=18
+!CO/ALKE
+ KSPARSE(1, 113)=13
+ KSPARSE(2, 113)=19
+!CO/BIO
+ KSPARSE(1, 114)=13
+ KSPARSE(2, 114)=20
+!CO/HCHO
+ KSPARSE(1, 115)=13
+ KSPARSE(2, 115)=22
+!CO/ALD
+ KSPARSE(1, 116)=13
+ KSPARSE(2, 116)=23
+!CO/CARBO
+ KSPARSE(1, 117)=13
+ KSPARSE(2, 117)=25
+!CO/PAN
+ KSPARSE(1, 118)=13
+ KSPARSE(2, 118)=27
+!OH/O3
+ KSPARSE(1, 119)=14
+ KSPARSE(2, 119)=1
+!OH/H2O2
+ KSPARSE(1, 120)=14
+ KSPARSE(2, 120)=2
+!OH/NO
+ KSPARSE(1, 121)=14
+ KSPARSE(2, 121)=3
+!OH/NO2
+ KSPARSE(1, 122)=14
+ KSPARSE(2, 122)=4
+!OH/NO3
+ KSPARSE(1, 123)=14
+ KSPARSE(2, 123)=5
+!OH/HONO
+ KSPARSE(1, 124)=14
+ KSPARSE(2, 124)=7
+!OH/HNO3
+ KSPARSE(1, 125)=14
+ KSPARSE(2, 125)=8
+!OH/HNO4
+ KSPARSE(1, 126)=14
+ KSPARSE(2, 126)=9
+!OH/NH3
+ KSPARSE(1, 127)=14
+ KSPARSE(2, 127)=10
+!OH/SO2
+ KSPARSE(1, 128)=14
+ KSPARSE(2, 128)=11
+!OH/CO
+ KSPARSE(1, 129)=14
+ KSPARSE(2, 129)=13
+!OH/OH
+ KSPARSE(1, 130)=14
+ KSPARSE(2, 130)=14
+!OH/HO2
+ KSPARSE(1, 131)=14
+ KSPARSE(2, 131)=15
+!OH/CH4
+ KSPARSE(1, 132)=14
+ KSPARSE(2, 132)=16
+!OH/ETH
+ KSPARSE(1, 133)=14
+ KSPARSE(2, 133)=17
+!OH/ALKA
+ KSPARSE(1, 134)=14
+ KSPARSE(2, 134)=18
+!OH/ALKE
+ KSPARSE(1, 135)=14
+ KSPARSE(2, 135)=19
+!OH/BIO
+ KSPARSE(1, 136)=14
+ KSPARSE(2, 136)=20
+!OH/ARO
+ KSPARSE(1, 137)=14
+ KSPARSE(2, 137)=21
+!OH/HCHO
+ KSPARSE(1, 138)=14
+ KSPARSE(2, 138)=22
+!OH/ALD
+ KSPARSE(1, 139)=14
+ KSPARSE(2, 139)=23
+!OH/KET
+ KSPARSE(1, 140)=14
+ KSPARSE(2, 140)=24
+!OH/CARBO
+ KSPARSE(1, 141)=14
+ KSPARSE(2, 141)=25
+!OH/ONIT
+ KSPARSE(1, 142)=14
+ KSPARSE(2, 142)=26
+!OH/PAN
+ KSPARSE(1, 143)=14
+ KSPARSE(2, 143)=27
+!OH/OP1
+ KSPARSE(1, 144)=14
+ KSPARSE(2, 144)=28
+!OH/OP2
+ KSPARSE(1, 145)=14
+ KSPARSE(2, 145)=29
+!OH/ORA1
+ KSPARSE(1, 146)=14
+ KSPARSE(2, 146)=30
+!OH/ORA2
+ KSPARSE(1, 147)=14
+ KSPARSE(2, 147)=31
+!OH/ADD
+ KSPARSE(1, 148)=14
+ KSPARSE(2, 148)=37
+!HO2/O3
+ KSPARSE(1, 149)=15
+ KSPARSE(2, 149)=1
+!HO2/H2O2
+ KSPARSE(1, 150)=15
+ KSPARSE(2, 150)=2
+!HO2/NO
+ KSPARSE(1, 151)=15
+ KSPARSE(2, 151)=3
+!HO2/NO2
+ KSPARSE(1, 152)=15
+ KSPARSE(2, 152)=4
+!HO2/NO3
+ KSPARSE(1, 153)=15
+ KSPARSE(2, 153)=5
+!HO2/HNO4
+ KSPARSE(1, 154)=15
+ KSPARSE(2, 154)=9
+!HO2/SO2
+ KSPARSE(1, 155)=15
+ KSPARSE(2, 155)=11
+!HO2/CO
+ KSPARSE(1, 156)=15
+ KSPARSE(2, 156)=13
+!HO2/OH
+ KSPARSE(1, 157)=15
+ KSPARSE(2, 157)=14
+!HO2/HO2
+ KSPARSE(1, 158)=15
+ KSPARSE(2, 158)=15
+!HO2/ALKA
+ KSPARSE(1, 159)=15
+ KSPARSE(2, 159)=18
+!HO2/ALKE
+ KSPARSE(1, 160)=15
+ KSPARSE(2, 160)=19
+!HO2/BIO
+ KSPARSE(1, 161)=15
+ KSPARSE(2, 161)=20
+!HO2/ARO
+ KSPARSE(1, 162)=15
+ KSPARSE(2, 162)=21
+!HO2/HCHO
+ KSPARSE(1, 163)=15
+ KSPARSE(2, 163)=22
+!HO2/ALD
+ KSPARSE(1, 164)=15
+ KSPARSE(2, 164)=23
+!HO2/CARBO
+ KSPARSE(1, 165)=15
+ KSPARSE(2, 165)=25
+!HO2/ONIT
+ KSPARSE(1, 166)=15
+ KSPARSE(2, 166)=26
+!HO2/PAN
+ KSPARSE(1, 167)=15
+ KSPARSE(2, 167)=27
+!HO2/OP1
+ KSPARSE(1, 168)=15
+ KSPARSE(2, 168)=28
+!HO2/OP2
+ KSPARSE(1, 169)=15
+ KSPARSE(2, 169)=29
+!HO2/ORA1
+ KSPARSE(1, 170)=15
+ KSPARSE(2, 170)=30
+!HO2/MO2
+ KSPARSE(1, 171)=15
+ KSPARSE(2, 171)=32
+!HO2/ALKAP
+ KSPARSE(1, 172)=15
+ KSPARSE(2, 172)=33
+!HO2/ALKEP
+ KSPARSE(1, 173)=15
+ KSPARSE(2, 173)=34
+!HO2/BIOP
+ KSPARSE(1, 174)=15
+ KSPARSE(2, 174)=35
+!HO2/PHO
+ KSPARSE(1, 175)=15
+ KSPARSE(2, 175)=36
+!HO2/ADD
+ KSPARSE(1, 176)=15
+ KSPARSE(2, 176)=37
+!HO2/AROP
+ KSPARSE(1, 177)=15
+ KSPARSE(2, 177)=38
+!HO2/CARBOP
+ KSPARSE(1, 178)=15
+ KSPARSE(2, 178)=39
+!HO2/OLN
+ KSPARSE(1, 179)=15
+ KSPARSE(2, 179)=40
+!HO2/XO2
+ KSPARSE(1, 180)=15
+ KSPARSE(2, 180)=41
+!CH4/O3
+ KSPARSE(1, 181)=16
+ KSPARSE(2, 181)=1
+!CH4/OH
+ KSPARSE(1, 182)=16
+ KSPARSE(2, 182)=14
+!CH4/CH4
+ KSPARSE(1, 183)=16
+ KSPARSE(2, 183)=16
+!CH4/ALKE
+ KSPARSE(1, 184)=16
+ KSPARSE(2, 184)=19
+!ETH/O3
+ KSPARSE(1, 185)=17
+ KSPARSE(2, 185)=1
+!ETH/OH
+ KSPARSE(1, 186)=17
+ KSPARSE(2, 186)=14
+!ETH/ETH
+ KSPARSE(1, 187)=17
+ KSPARSE(2, 187)=17
+!ETH/ALKE
+ KSPARSE(1, 188)=17
+ KSPARSE(2, 188)=19
+!ALKA/OH
+ KSPARSE(1, 189)=18
+ KSPARSE(2, 189)=14
+!ALKA/ALKA
+ KSPARSE(1, 190)=18
+ KSPARSE(2, 190)=18
+!ALKE/O3
+ KSPARSE(1, 191)=19
+ KSPARSE(2, 191)=1
+!ALKE/NO
+ KSPARSE(1, 192)=19
+ KSPARSE(2, 192)=3
+!ALKE/NO3
+ KSPARSE(1, 193)=19
+ KSPARSE(2, 193)=5
+!ALKE/OH
+ KSPARSE(1, 194)=19
+ KSPARSE(2, 194)=14
+!ALKE/ALKE
+ KSPARSE(1, 195)=19
+ KSPARSE(2, 195)=19
+!ALKE/BIO
+ KSPARSE(1, 196)=19
+ KSPARSE(2, 196)=20
+!ALKE/MO2
+ KSPARSE(1, 197)=19
+ KSPARSE(2, 197)=32
+!ALKE/BIOP
+ KSPARSE(1, 198)=19
+ KSPARSE(2, 198)=35
+!ALKE/CARBOP
+ KSPARSE(1, 199)=19
+ KSPARSE(2, 199)=39
+!BIO/O3
+ KSPARSE(1, 200)=20
+ KSPARSE(2, 200)=1
+!BIO/NO3
+ KSPARSE(1, 201)=20
+ KSPARSE(2, 201)=5
+!BIO/OH
+ KSPARSE(1, 202)=20
+ KSPARSE(2, 202)=14
+!BIO/BIO
+ KSPARSE(1, 203)=20
+ KSPARSE(2, 203)=20
+!ARO/O3
+ KSPARSE(1, 204)=21
+ KSPARSE(2, 204)=1
+!ARO/NO2
+ KSPARSE(1, 205)=21
+ KSPARSE(2, 205)=4
+!ARO/NO3
+ KSPARSE(1, 206)=21
+ KSPARSE(2, 206)=5
+!ARO/OH
+ KSPARSE(1, 207)=21
+ KSPARSE(2, 207)=14
+!ARO/HO2
+ KSPARSE(1, 208)=21
+ KSPARSE(2, 208)=15
+!ARO/ARO
+ KSPARSE(1, 209)=21
+ KSPARSE(2, 209)=21
+!ARO/PHO
+ KSPARSE(1, 210)=21
+ KSPARSE(2, 210)=36
+!ARO/ADD
+ KSPARSE(1, 211)=21
+ KSPARSE(2, 211)=37
+!HCHO/O3
+ KSPARSE(1, 212)=22
+ KSPARSE(2, 212)=1
+!HCHO/NO
+ KSPARSE(1, 213)=22
+ KSPARSE(2, 213)=3
+!HCHO/NO3
+ KSPARSE(1, 214)=22
+ KSPARSE(2, 214)=5
+!HCHO/OH
+ KSPARSE(1, 215)=22
+ KSPARSE(2, 215)=14
+!HCHO/ALKA
+ KSPARSE(1, 216)=22
+ KSPARSE(2, 216)=18
+!HCHO/ALKE
+ KSPARSE(1, 217)=22
+ KSPARSE(2, 217)=19
+!HCHO/BIO
+ KSPARSE(1, 218)=22
+ KSPARSE(2, 218)=20
+!HCHO/HCHO
+ KSPARSE(1, 219)=22
+ KSPARSE(2, 219)=22
+!HCHO/CARBO
+ KSPARSE(1, 220)=22
+ KSPARSE(2, 220)=25
+!HCHO/PAN
+ KSPARSE(1, 221)=22
+ KSPARSE(2, 221)=27
+!HCHO/OP1
+ KSPARSE(1, 222)=22
+ KSPARSE(2, 222)=28
+!HCHO/OP2
+ KSPARSE(1, 223)=22
+ KSPARSE(2, 223)=29
+!HCHO/MO2
+ KSPARSE(1, 224)=22
+ KSPARSE(2, 224)=32
+!HCHO/ALKAP
+ KSPARSE(1, 225)=22
+ KSPARSE(2, 225)=33
+!HCHO/ALKEP
+ KSPARSE(1, 226)=22
+ KSPARSE(2, 226)=34
+!HCHO/BIOP
+ KSPARSE(1, 227)=22
+ KSPARSE(2, 227)=35
+!HCHO/AROP
+ KSPARSE(1, 228)=22
+ KSPARSE(2, 228)=38
+!HCHO/CARBOP
+ KSPARSE(1, 229)=22
+ KSPARSE(2, 229)=39
+!HCHO/OLN
+ KSPARSE(1, 230)=22
+ KSPARSE(2, 230)=40
+!HCHO/XO2
+ KSPARSE(1, 231)=22
+ KSPARSE(2, 231)=41
+!ALD/O3
+ KSPARSE(1, 232)=23
+ KSPARSE(2, 232)=1
+!ALD/NO
+ KSPARSE(1, 233)=23
+ KSPARSE(2, 233)=3
+!ALD/NO3
+ KSPARSE(1, 234)=23
+ KSPARSE(2, 234)=5
+!ALD/OH
+ KSPARSE(1, 235)=23
+ KSPARSE(2, 235)=14
+!ALD/ALKA
+ KSPARSE(1, 236)=23
+ KSPARSE(2, 236)=18
+!ALD/ALKE
+ KSPARSE(1, 237)=23
+ KSPARSE(2, 237)=19
+!ALD/BIO
+ KSPARSE(1, 238)=23
+ KSPARSE(2, 238)=20
+!ALD/ALD
+ KSPARSE(1, 239)=23
+ KSPARSE(2, 239)=23
+!ALD/CARBO
+ KSPARSE(1, 240)=23
+ KSPARSE(2, 240)=25
+!ALD/ONIT
+ KSPARSE(1, 241)=23
+ KSPARSE(2, 241)=26
+!ALD/OP2
+ KSPARSE(1, 242)=23
+ KSPARSE(2, 242)=29
+!ALD/MO2
+ KSPARSE(1, 243)=23
+ KSPARSE(2, 243)=32
+!ALD/ALKAP
+ KSPARSE(1, 244)=23
+ KSPARSE(2, 244)=33
+!ALD/ALKEP
+ KSPARSE(1, 245)=23
+ KSPARSE(2, 245)=34
+!ALD/BIOP
+ KSPARSE(1, 246)=23
+ KSPARSE(2, 246)=35
+!ALD/CARBOP
+ KSPARSE(1, 247)=23
+ KSPARSE(2, 247)=39
+!ALD/OLN
+ KSPARSE(1, 248)=23
+ KSPARSE(2, 248)=40
+!KET/O3
+ KSPARSE(1, 249)=24
+ KSPARSE(2, 249)=1
+!KET/NO
+ KSPARSE(1, 250)=24
+ KSPARSE(2, 250)=3
+!KET/NO3
+ KSPARSE(1, 251)=24
+ KSPARSE(2, 251)=5
+!KET/OH
+ KSPARSE(1, 252)=24
+ KSPARSE(2, 252)=14
+!KET/ALKA
+ KSPARSE(1, 253)=24
+ KSPARSE(2, 253)=18
+!KET/ALKE
+ KSPARSE(1, 254)=24
+ KSPARSE(2, 254)=19
+!KET/BIO
+ KSPARSE(1, 255)=24
+ KSPARSE(2, 255)=20
+!KET/KET
+ KSPARSE(1, 256)=24
+ KSPARSE(2, 256)=24
+!KET/CARBO
+ KSPARSE(1, 257)=24
+ KSPARSE(2, 257)=25
+!KET/ONIT
+ KSPARSE(1, 258)=24
+ KSPARSE(2, 258)=26
+!KET/OP2
+ KSPARSE(1, 259)=24
+ KSPARSE(2, 259)=29
+!KET/MO2
+ KSPARSE(1, 260)=24
+ KSPARSE(2, 260)=32
+!KET/ALKAP
+ KSPARSE(1, 261)=24
+ KSPARSE(2, 261)=33
+!KET/ALKEP
+ KSPARSE(1, 262)=24
+ KSPARSE(2, 262)=34
+!KET/BIOP
+ KSPARSE(1, 263)=24
+ KSPARSE(2, 263)=35
+!KET/CARBOP
+ KSPARSE(1, 264)=24
+ KSPARSE(2, 264)=39
+!KET/OLN
+ KSPARSE(1, 265)=24
+ KSPARSE(2, 265)=40
+!CARBO/O3
+ KSPARSE(1, 266)=25
+ KSPARSE(2, 266)=1
+!CARBO/NO
+ KSPARSE(1, 267)=25
+ KSPARSE(2, 267)=3
+!CARBO/NO3
+ KSPARSE(1, 268)=25
+ KSPARSE(2, 268)=5
+!CARBO/OH
+ KSPARSE(1, 269)=25
+ KSPARSE(2, 269)=14
+!CARBO/ALKA
+ KSPARSE(1, 270)=25
+ KSPARSE(2, 270)=18
+!CARBO/ALKE
+ KSPARSE(1, 271)=25
+ KSPARSE(2, 271)=19
+!CARBO/BIO
+ KSPARSE(1, 272)=25
+ KSPARSE(2, 272)=20
+!CARBO/CARBO
+ KSPARSE(1, 273)=25
+ KSPARSE(2, 273)=25
+!CARBO/PAN
+ KSPARSE(1, 274)=25
+ KSPARSE(2, 274)=27
+!CARBO/MO2
+ KSPARSE(1, 275)=25
+ KSPARSE(2, 275)=32
+!CARBO/ALKAP
+ KSPARSE(1, 276)=25
+ KSPARSE(2, 276)=33
+!CARBO/BIOP
+ KSPARSE(1, 277)=25
+ KSPARSE(2, 277)=35
+!CARBO/AROP
+ KSPARSE(1, 278)=25
+ KSPARSE(2, 278)=38
+!CARBO/CARBOP
+ KSPARSE(1, 279)=25
+ KSPARSE(2, 279)=39
+!ONIT/NO
+ KSPARSE(1, 280)=26
+ KSPARSE(2, 280)=3
+!ONIT/NO2
+ KSPARSE(1, 281)=26
+ KSPARSE(2, 281)=4
+!ONIT/NO3
+ KSPARSE(1, 282)=26
+ KSPARSE(2, 282)=5
+!ONIT/OH
+ KSPARSE(1, 283)=26
+ KSPARSE(2, 283)=14
+!ONIT/HO2
+ KSPARSE(1, 284)=26
+ KSPARSE(2, 284)=15
+!ONIT/ONIT
+ KSPARSE(1, 285)=26
+ KSPARSE(2, 285)=26
+!ONIT/PAN
+ KSPARSE(1, 286)=26
+ KSPARSE(2, 286)=27
+!ONIT/MO2
+ KSPARSE(1, 287)=26
+ KSPARSE(2, 287)=32
+!ONIT/ALKAP
+ KSPARSE(1, 288)=26
+ KSPARSE(2, 288)=33
+!ONIT/BIOP
+ KSPARSE(1, 289)=26
+ KSPARSE(2, 289)=35
+!ONIT/PHO
+ KSPARSE(1, 290)=26
+ KSPARSE(2, 290)=36
+!ONIT/AROP
+ KSPARSE(1, 291)=26
+ KSPARSE(2, 291)=38
+!ONIT/CARBOP
+ KSPARSE(1, 292)=26
+ KSPARSE(2, 292)=39
+!ONIT/OLN
+ KSPARSE(1, 293)=26
+ KSPARSE(2, 293)=40
+!PAN/O3
+ KSPARSE(1, 294)=27
+ KSPARSE(2, 294)=1
+!PAN/NO2
+ KSPARSE(1, 295)=27
+ KSPARSE(2, 295)=4
+!PAN/NO3
+ KSPARSE(1, 296)=27
+ KSPARSE(2, 296)=5
+!PAN/OH
+ KSPARSE(1, 297)=27
+ KSPARSE(2, 297)=14
+!PAN/PAN
+ KSPARSE(1, 298)=27
+ KSPARSE(2, 298)=27
+!PAN/CARBOP
+ KSPARSE(1, 299)=27
+ KSPARSE(2, 299)=39
+!OP1/OH
+ KSPARSE(1, 300)=28
+ KSPARSE(2, 300)=14
+!OP1/HO2
+ KSPARSE(1, 301)=28
+ KSPARSE(2, 301)=15
+!OP1/OP1
+ KSPARSE(1, 302)=28
+ KSPARSE(2, 302)=28
+!OP1/MO2
+ KSPARSE(1, 303)=28
+ KSPARSE(2, 303)=32
+!OP2/O3
+ KSPARSE(1, 304)=29
+ KSPARSE(2, 304)=1
+!OP2/OH
+ KSPARSE(1, 305)=29
+ KSPARSE(2, 305)=14
+!OP2/HO2
+ KSPARSE(1, 306)=29
+ KSPARSE(2, 306)=15
+!OP2/CARBO
+ KSPARSE(1, 307)=29
+ KSPARSE(2, 307)=25
+!OP2/OP2
+ KSPARSE(1, 308)=29
+ KSPARSE(2, 308)=29
+!OP2/ALKAP
+ KSPARSE(1, 309)=29
+ KSPARSE(2, 309)=33
+!OP2/ALKEP
+ KSPARSE(1, 310)=29
+ KSPARSE(2, 310)=34
+!OP2/BIOP
+ KSPARSE(1, 311)=29
+ KSPARSE(2, 311)=35
+!OP2/AROP
+ KSPARSE(1, 312)=29
+ KSPARSE(2, 312)=38
+!OP2/CARBOP
+ KSPARSE(1, 313)=29
+ KSPARSE(2, 313)=39
+!OP2/XO2
+ KSPARSE(1, 314)=29
+ KSPARSE(2, 314)=41
+!ORA1/O3
+ KSPARSE(1, 315)=30
+ KSPARSE(2, 315)=1
+!ORA1/OH
+ KSPARSE(1, 316)=30
+ KSPARSE(2, 316)=14
+!ORA1/ALKA
+ KSPARSE(1, 317)=30
+ KSPARSE(2, 317)=18
+!ORA1/ALKE
+ KSPARSE(1, 318)=30
+ KSPARSE(2, 318)=19
+!ORA1/BIO
+ KSPARSE(1, 319)=30
+ KSPARSE(2, 319)=20
+!ORA1/CARBO
+ KSPARSE(1, 320)=30
+ KSPARSE(2, 320)=25
+!ORA1/PAN
+ KSPARSE(1, 321)=30
+ KSPARSE(2, 321)=27
+!ORA1/ORA1
+ KSPARSE(1, 322)=30
+ KSPARSE(2, 322)=30
+!ORA2/O3
+ KSPARSE(1, 323)=31
+ KSPARSE(2, 323)=1
+!ORA2/OH
+ KSPARSE(1, 324)=31
+ KSPARSE(2, 324)=14
+!ORA2/HO2
+ KSPARSE(1, 325)=31
+ KSPARSE(2, 325)=15
+!ORA2/ALKE
+ KSPARSE(1, 326)=31
+ KSPARSE(2, 326)=19
+!ORA2/BIO
+ KSPARSE(1, 327)=31
+ KSPARSE(2, 327)=20
+!ORA2/CARBO
+ KSPARSE(1, 328)=31
+ KSPARSE(2, 328)=25
+!ORA2/ORA2
+ KSPARSE(1, 329)=31
+ KSPARSE(2, 329)=31
+!ORA2/MO2
+ KSPARSE(1, 330)=31
+ KSPARSE(2, 330)=32
+!ORA2/ALKAP
+ KSPARSE(1, 331)=31
+ KSPARSE(2, 331)=33
+!ORA2/ALKEP
+ KSPARSE(1, 332)=31
+ KSPARSE(2, 332)=34
+!ORA2/BIOP
+ KSPARSE(1, 333)=31
+ KSPARSE(2, 333)=35
+!ORA2/CARBOP
+ KSPARSE(1, 334)=31
+ KSPARSE(2, 334)=39
+!ORA2/OLN
+ KSPARSE(1, 335)=31
+ KSPARSE(2, 335)=40
+!MO2/O3
+ KSPARSE(1, 336)=32
+ KSPARSE(2, 336)=1
+!MO2/NO
+ KSPARSE(1, 337)=32
+ KSPARSE(2, 337)=3
+!MO2/NO3
+ KSPARSE(1, 338)=32
+ KSPARSE(2, 338)=5
+!MO2/OH
+ KSPARSE(1, 339)=32
+ KSPARSE(2, 339)=14
+!MO2/HO2
+ KSPARSE(1, 340)=32
+ KSPARSE(2, 340)=15
+!MO2/CH4
+ KSPARSE(1, 341)=32
+ KSPARSE(2, 341)=16
+!MO2/ALKE
+ KSPARSE(1, 342)=32
+ KSPARSE(2, 342)=19
+!MO2/BIO
+ KSPARSE(1, 343)=32
+ KSPARSE(2, 343)=20
+!MO2/ALD
+ KSPARSE(1, 344)=32
+ KSPARSE(2, 344)=23
+!MO2/OP1
+ KSPARSE(1, 345)=32
+ KSPARSE(2, 345)=28
+!MO2/OP2
+ KSPARSE(1, 346)=32
+ KSPARSE(2, 346)=29
+!MO2/MO2
+ KSPARSE(1, 347)=32
+ KSPARSE(2, 347)=32
+!MO2/ALKAP
+ KSPARSE(1, 348)=32
+ KSPARSE(2, 348)=33
+!MO2/ALKEP
+ KSPARSE(1, 349)=32
+ KSPARSE(2, 349)=34
+!MO2/BIOP
+ KSPARSE(1, 350)=32
+ KSPARSE(2, 350)=35
+!MO2/AROP
+ KSPARSE(1, 351)=32
+ KSPARSE(2, 351)=38
+!MO2/CARBOP
+ KSPARSE(1, 352)=32
+ KSPARSE(2, 352)=39
+!MO2/OLN
+ KSPARSE(1, 353)=32
+ KSPARSE(2, 353)=40
+!MO2/XO2
+ KSPARSE(1, 354)=32
+ KSPARSE(2, 354)=41
+!ALKAP/O3
+ KSPARSE(1, 355)=33
+ KSPARSE(2, 355)=1
+!ALKAP/NO
+ KSPARSE(1, 356)=33
+ KSPARSE(2, 356)=3
+!ALKAP/NO3
+ KSPARSE(1, 357)=33
+ KSPARSE(2, 357)=5
+!ALKAP/OH
+ KSPARSE(1, 358)=33
+ KSPARSE(2, 358)=14
+!ALKAP/HO2
+ KSPARSE(1, 359)=33
+ KSPARSE(2, 359)=15
+!ALKAP/ETH
+ KSPARSE(1, 360)=33
+ KSPARSE(2, 360)=17
+!ALKAP/ALKA
+ KSPARSE(1, 361)=33
+ KSPARSE(2, 361)=18
+!ALKAP/ALKE
+ KSPARSE(1, 362)=33
+ KSPARSE(2, 362)=19
+!ALKAP/BIO
+ KSPARSE(1, 363)=33
+ KSPARSE(2, 363)=20
+!ALKAP/KET
+ KSPARSE(1, 364)=33
+ KSPARSE(2, 364)=24
+!ALKAP/ONIT
+ KSPARSE(1, 365)=33
+ KSPARSE(2, 365)=26
+!ALKAP/OP2
+ KSPARSE(1, 366)=33
+ KSPARSE(2, 366)=29
+!ALKAP/MO2
+ KSPARSE(1, 367)=33
+ KSPARSE(2, 367)=32
+!ALKAP/ALKAP
+ KSPARSE(1, 368)=33
+ KSPARSE(2, 368)=33
+!ALKAP/CARBOP
+ KSPARSE(1, 369)=33
+ KSPARSE(2, 369)=39
+!ALKEP/NO
+ KSPARSE(1, 370)=34
+ KSPARSE(2, 370)=3
+!ALKEP/NO3
+ KSPARSE(1, 371)=34
+ KSPARSE(2, 371)=5
+!ALKEP/OH
+ KSPARSE(1, 372)=34
+ KSPARSE(2, 372)=14
+!ALKEP/HO2
+ KSPARSE(1, 373)=34
+ KSPARSE(2, 373)=15
+!ALKEP/ALKE
+ KSPARSE(1, 374)=34
+ KSPARSE(2, 374)=19
+!ALKEP/MO2
+ KSPARSE(1, 375)=34
+ KSPARSE(2, 375)=32
+!ALKEP/ALKEP
+ KSPARSE(1, 376)=34
+ KSPARSE(2, 376)=34
+!ALKEP/CARBOP
+ KSPARSE(1, 377)=34
+ KSPARSE(2, 377)=39
+!BIOP/NO
+ KSPARSE(1, 378)=35
+ KSPARSE(2, 378)=3
+!BIOP/NO3
+ KSPARSE(1, 379)=35
+ KSPARSE(2, 379)=5
+!BIOP/OH
+ KSPARSE(1, 380)=35
+ KSPARSE(2, 380)=14
+!BIOP/HO2
+ KSPARSE(1, 381)=35
+ KSPARSE(2, 381)=15
+!BIOP/ALKE
+ KSPARSE(1, 382)=35
+ KSPARSE(2, 382)=19
+!BIOP/BIO
+ KSPARSE(1, 383)=35
+ KSPARSE(2, 383)=20
+!BIOP/MO2
+ KSPARSE(1, 384)=35
+ KSPARSE(2, 384)=32
+!BIOP/BIOP
+ KSPARSE(1, 385)=35
+ KSPARSE(2, 385)=35
+!BIOP/CARBOP
+ KSPARSE(1, 386)=35
+ KSPARSE(2, 386)=39
+!PHO/NO2
+ KSPARSE(1, 387)=36
+ KSPARSE(2, 387)=4
+!PHO/NO3
+ KSPARSE(1, 388)=36
+ KSPARSE(2, 388)=5
+!PHO/OH
+ KSPARSE(1, 389)=36
+ KSPARSE(2, 389)=14
+!PHO/HO2
+ KSPARSE(1, 390)=36
+ KSPARSE(2, 390)=15
+!PHO/ARO
+ KSPARSE(1, 391)=36
+ KSPARSE(2, 391)=21
+!PHO/PHO
+ KSPARSE(1, 392)=36
+ KSPARSE(2, 392)=36
+!ADD/O3
+ KSPARSE(1, 393)=37
+ KSPARSE(2, 393)=1
+!ADD/NO2
+ KSPARSE(1, 394)=37
+ KSPARSE(2, 394)=4
+!ADD/OH
+ KSPARSE(1, 395)=37
+ KSPARSE(2, 395)=14
+!ADD/ARO
+ KSPARSE(1, 396)=37
+ KSPARSE(2, 396)=21
+!ADD/ADD
+ KSPARSE(1, 397)=37
+ KSPARSE(2, 397)=37
+!AROP/NO
+ KSPARSE(1, 398)=38
+ KSPARSE(2, 398)=3
+!AROP/NO3
+ KSPARSE(1, 399)=38
+ KSPARSE(2, 399)=5
+!AROP/HO2
+ KSPARSE(1, 400)=38
+ KSPARSE(2, 400)=15
+!AROP/MO2
+ KSPARSE(1, 401)=38
+ KSPARSE(2, 401)=32
+!AROP/ADD
+ KSPARSE(1, 402)=38
+ KSPARSE(2, 402)=37
+!AROP/AROP
+ KSPARSE(1, 403)=38
+ KSPARSE(2, 403)=38
+!AROP/CARBOP
+ KSPARSE(1, 404)=38
+ KSPARSE(2, 404)=39
+!CARBOP/O3
+ KSPARSE(1, 405)=39
+ KSPARSE(2, 405)=1
+!CARBOP/NO
+ KSPARSE(1, 406)=39
+ KSPARSE(2, 406)=3
+!CARBOP/NO2
+ KSPARSE(1, 407)=39
+ KSPARSE(2, 407)=4
+!CARBOP/NO3
+ KSPARSE(1, 408)=39
+ KSPARSE(2, 408)=5
+!CARBOP/OH
+ KSPARSE(1, 409)=39
+ KSPARSE(2, 409)=14
+!CARBOP/HO2
+ KSPARSE(1, 410)=39
+ KSPARSE(2, 410)=15
+!CARBOP/ALKE
+ KSPARSE(1, 411)=39
+ KSPARSE(2, 411)=19
+!CARBOP/BIO
+ KSPARSE(1, 412)=39
+ KSPARSE(2, 412)=20
+!CARBOP/ALD
+ KSPARSE(1, 413)=39
+ KSPARSE(2, 413)=23
+!CARBOP/KET
+ KSPARSE(1, 414)=39
+ KSPARSE(2, 414)=24
+!CARBOP/CARBO
+ KSPARSE(1, 415)=39
+ KSPARSE(2, 415)=25
+!CARBOP/PAN
+ KSPARSE(1, 416)=39
+ KSPARSE(2, 416)=27
+!CARBOP/OP2
+ KSPARSE(1, 417)=39
+ KSPARSE(2, 417)=29
+!CARBOP/MO2
+ KSPARSE(1, 418)=39
+ KSPARSE(2, 418)=32
+!CARBOP/ALKAP
+ KSPARSE(1, 419)=39
+ KSPARSE(2, 419)=33
+!CARBOP/ALKEP
+ KSPARSE(1, 420)=39
+ KSPARSE(2, 420)=34
+!CARBOP/BIOP
+ KSPARSE(1, 421)=39
+ KSPARSE(2, 421)=35
+!CARBOP/AROP
+ KSPARSE(1, 422)=39
+ KSPARSE(2, 422)=38
+!CARBOP/CARBOP
+ KSPARSE(1, 423)=39
+ KSPARSE(2, 423)=39
+!CARBOP/OLN
+ KSPARSE(1, 424)=39
+ KSPARSE(2, 424)=40
+!CARBOP/XO2
+ KSPARSE(1, 425)=39
+ KSPARSE(2, 425)=41
+!OLN/NO
+ KSPARSE(1, 426)=40
+ KSPARSE(2, 426)=3
+!OLN/NO3
+ KSPARSE(1, 427)=40
+ KSPARSE(2, 427)=5
+!OLN/HO2
+ KSPARSE(1, 428)=40
+ KSPARSE(2, 428)=15
+!OLN/ALKE
+ KSPARSE(1, 429)=40
+ KSPARSE(2, 429)=19
+!OLN/BIO
+ KSPARSE(1, 430)=40
+ KSPARSE(2, 430)=20
+!OLN/CARBO
+ KSPARSE(1, 431)=40
+ KSPARSE(2, 431)=25
+!OLN/MO2
+ KSPARSE(1, 432)=40
+ KSPARSE(2, 432)=32
+!OLN/CARBOP
+ KSPARSE(1, 433)=40
+ KSPARSE(2, 433)=39
+!OLN/OLN
+ KSPARSE(1, 434)=40
+ KSPARSE(2, 434)=40
+!XO2/O3
+ KSPARSE(1, 435)=41
+ KSPARSE(2, 435)=1
+!XO2/NO
+ KSPARSE(1, 436)=41
+ KSPARSE(2, 436)=3
+!XO2/NO3
+ KSPARSE(1, 437)=41
+ KSPARSE(2, 437)=5
+!XO2/OH
+ KSPARSE(1, 438)=41
+ KSPARSE(2, 438)=14
+!XO2/HO2
+ KSPARSE(1, 439)=41
+ KSPARSE(2, 439)=15
+!XO2/ALKE
+ KSPARSE(1, 440)=41
+ KSPARSE(2, 440)=19
+!XO2/BIO
+ KSPARSE(1, 441)=41
+ KSPARSE(2, 441)=20
+!XO2/ARO
+ KSPARSE(1, 442)=41
+ KSPARSE(2, 442)=21
+!XO2/CARBO
+ KSPARSE(1, 443)=41
+ KSPARSE(2, 443)=25
+!XO2/PAN
+ KSPARSE(1, 444)=41
+ KSPARSE(2, 444)=27
+!XO2/OP2
+ KSPARSE(1, 445)=41
+ KSPARSE(2, 445)=29
+!XO2/MO2
+ KSPARSE(1, 446)=41
+ KSPARSE(2, 446)=32
+!XO2/ALKAP
+ KSPARSE(1, 447)=41
+ KSPARSE(2, 447)=33
+!XO2/CARBOP
+ KSPARSE(1, 448)=41
+ KSPARSE(2, 448)=39
+!XO2/XO2
+ KSPARSE(1, 449)=41
+ KSPARSE(2, 449)=41
+KSPARSEDIM = 449
+RETURN
+END SUBROUTINE CH_SPARSE_GAZ
!
END SUBROUTINE CH_SPARSE
!
--
GitLab