Skip to content
Snippets Groups Projects
BASIC.f90 920 KiB
Newer Older
!========================================================================
!
! 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):
! N2
! O2
!
!========================================================================
!
! 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:
! N2
! O2
!
!========================================================================
!
! END of preprocessor comments
!
!========================================================================
!
! the chemical reactions implemented are the following ...
!
! 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
! KTC4=@KT(0.0015,46.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::NO2-->WC_NO2
! KTC5=@KT(0.05,62.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::NO3-->WC_NO3
! KTC6=@KT(0.0037,108.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::N2O5-->WC_N2O5
! KTC7=@KT(0.05,47.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::HONO-->WC_HONO
! KTC8=@KT(0.054,63.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::HNO3-->WC_HNO3
! KTC9=@KT(0.05,79.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::HNO4-->WC_HNO4
! KTC10=@KT(0.04,17.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::NH3-->WC_NH3
! KTC11=@KT(0.05,17.,TPK%T,TPK%RADC,KVECNPT)*TPK%LWC::OH-->WC_OH
! 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::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
! KTR4=@KT(0.0015,46.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::NO2-->WR_NO2
! KTR5=@KT(0.05,62.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::NO3-->WR_NO3
! KTR6=@KT(0.0037,108.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::N2O5-->WR_N2O5
! KTR7=@KT(0.05,47.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::HONO-->WR_HONO
! KTR8=@KT(0.054,63.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::HNO3-->WR_HNO3
! KTR9=@KT(0.05,79.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::HNO4-->WR_HNO4
! KTR10=@KT(0.04,17.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::NH3-->WR_NH3
! KTR11=@KT(0.05,17.,TPK%T,TPK%RADR,KVECNPT)*TPK%LWR::OH-->WR_OH
! 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::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
! 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%PHC))**2.)/TPK%MOL2MOLECCLOUD::WC_HO2+WC_HO2-->WC_H2O2
! 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
! 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%MOL2MOLECCLOUD::WC_OH+WC_SO2-->WC_ASO3
! 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
! 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_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_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=(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
! 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%PHR))**2.)/TPK%MOL2MOLECRAIN::WR_HO2+WR_HO2-->WR_H2O2
! 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
! 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%MOL2MOLECRAIN::WR_OH+WR_SO2-->WR_ASO3
! 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
! 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_SULF+WR_HNO3
! KR13=!ZRATES(:,019)*2.2e+1/(2.2e+1+10.**(-TPK%PHR))::WR_HNO3-->WR_NO2+WR_OH
292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000
! 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_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=(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.	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>
!   + 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*<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>*<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>
!   - 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 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:
!   + K032*<OH>*<NO>
!   + K085*<ADD>*<NO2>
!   + KTC27*<WC_HONO>
!   + KTR27*<WR_HONO>
!   - K004*<HONO>
!   - K039*<OH>*<HONO>
!   - KTC7*<HONO>
!   - KTR7*<HONO>
! terms for 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:
!   + K036*<HO2>*<NO2>
!   + KTC29*<WC_HNO4>
!   + KTR29*<WR_HNO4>
!   - K006*<HNO4>
!   - K037*<HNO4>
!   - K041*<OH>*<HNO4>
!   - KTC9*<HNO4>
!   - KTR9*<HNO4>
! terms for NH3:
!   + KTC30*<WC_NH3>
!   + KTR30*<WR_NH3>
!   - K050*<NH3>*<OH>
!   - KTC10*<NH3>
!   - KTR10*<NH3>
! terms for SO2:
!   + KTC34*<WC_SO2>
!   + KTR34*<WR_SO2>
!   - K052*<OH>*<SO2>
!   - KTC14*<SO2>
!   - KTR14*<SO2>
! 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:
!   + 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>*<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 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
!   - 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
!   - 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:
!   + 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.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>