-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathgckpp_Monitor.F90
1272 lines (1261 loc) · 147 KB
/
gckpp_Monitor.F90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
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
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
! Utility Data Module File
!
! Generated by KPP-3.1.1 symbolic chemistry Kinetics PreProcessor
! (https:/github.com/KineticPreProcessor/KPP
! KPP is distributed under GPL, the general public licence
! (http://www.gnu.org/copyleft/gpl.html)
! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa
! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech
! With important contributions from:
! M. Damian, Villanova University, Philadelphia, PA, USA
! R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany
! M. Long, Renaissance Fiber, LLC, North Carolina, USA
! H. Lin, Harvard University, Cambridge, MA, USA
! R. Yantosca, Harvard University, Cambridge, MA, USA
!
! File : gckpp_Monitor.F90
! Equation file : gckpp.kpp
! Output root filename : gckpp
!
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
MODULE gckpp_Monitor
CHARACTER(LEN=32), PARAMETER, DIMENSION(90) :: SPC_NAMES_0 = (/ &
'CH2I2 ','CH2IBr ','CH2ICl ', & ! index 1 - 3
'AERI ','AONITA ','BUTDI ', & ! index 4 - 6
'CO2 ','INDIOL ','ISALA ', & ! index 7 - 9
'ISALC ','LBRO2H ','LBRO2N ', & ! index 10 - 12
'BRO2 ','LISOPOH ','LISOPNO3 ', & ! index 13 - 15
'LNRO2H ','LNRO2N ','NRO2 ', & ! index 16 - 18
'NAP ','LTRO2H ','LTRO2N ', & ! index 19 - 21
'TRO2 ','LVOCOA ','LVOC ', & ! index 22 - 24
'LXRO2H ','LXRO2N ','XRO2 ', & ! index 25 - 27
'MSA ','SO4s ','SOAGX ', & ! index 28 - 30
'SOAIE ','PH2SO4 ','PSO4AQ ', & ! index 31 - 33
'POx ','LOx ','PCO ', & ! index 34 - 36
'LCO ','PSO4 ','LCH4 ', & ! index 37 - 39
'PH2O2 ','FURA ','I2O4 ', & ! index 40 - 42
'CH3CCl3 ','I2O2 ','MONITA ', & ! index 43 - 45
'CCl4 ','CFC11 ','CFC12 ', & ! index 46 - 48
'CFC113 ','CFC114 ','CFC115 ', & ! index 49 - 51
'CH3I ','H1301 ','H2402 ', & ! index 52 - 54
'I2O3 ','PINPAN ','LIMPAN ', & ! index 55 - 57
'TLFUONE ','BrNO2 ','C2H2 ', & ! index 58 - 60
'H1211 ','INO ','N2O ', & ! index 61 - 63
'NIT ','NITs ','PINONIC ', & ! index 64 - 66
'N ','OCS ','ALK6 ', & ! index 67 - 69
'ETHN ','BZCO3H ','HACTA ', & ! index 70 - 72
'HI ','PINO3H ','CHCl3 ', & ! index 73 - 75
'Cl2O2 ','IBr ','CH2Br2 ', & ! index 76 - 78
'CH2Cl2 ','MPN ','CHBr3 ', & ! index 79 - 81
'TOLU ','ETNO3 ','HCFC123 ', & ! index 82 - 84
'HCFC141b ','HCFC142b ','HCFC22 ', & ! index 85 - 87
'HMHP ','HMS ','BZPAN ' /) ! index up to 90
CHARACTER(LEN=32), PARAMETER, DIMENSION(90) :: SPC_NAMES_1 = (/ &
'IPRNO3 ','MAP ','MENO3 ', & ! index 91 - 93
'DMS ','NPRNO3 ','OIO ', & ! index 94 - 96
'R4P ','R7P ','RA3P ', & ! index 97 - 99
'RB3P ','XYLE ','ALK4P ', & ! index 100 - 102
'IONITA ','ICl ','CH3Br ', & ! index 103 - 105
'ETO ','HMML ','HNO4 ', & ! index 106 - 108
'C2H4 ','ClOO ','APINP ', & ! index 109 - 111
'BPINP ','MEKPN ','PHAN ', & ! index 112 - 114
'PYAC ','RNO3 ','BENZP ', & ! index 115 - 117
'ETP ','IDC ','OClO ', & ! index 118 - 120
'TLFUO2 ','AROMPN ','PP ', & ! index 121 - 123
'PPN ','PRPN ','APAN ', & ! index 124 - 126
'BUTN ','IEPOXD ','BPINO ', & ! index 127 - 129
'LIMO2H ','MVKDH ','ACRO2 ', & ! index 130 - 132
'HPALD1OO ','SO4 ','HPALD2OO ', & ! index 133 - 135
'ETHP ','APINN ','BPINN ', & ! index 136 - 138
'PAN ','C4H6 ','C3H8 ', & ! index 139 - 141
'ALK4 ','BENZ ','HPALD4 ', & ! index 142 - 144
'INA ','AROMCHO ','IDCHP ', & ! index 145 - 147
'Br2 ','EBZ ','HPALD3 ', & ! index 148 - 150
'IEPOXA ','IEPOXB ','MCRDH ', & ! index 151 - 153
'HONIT ','RP ','EOH ', & ! index 154 - 156
'BrCl ','CSL ','MACR1OOH ', & ! index 157 - 159
'C96O2H ','BPINOOH ','BPINON ', & ! index 160 - 162
'LIMKB ','MP ','R7N1 ', & ! index 163 - 165
'SALCAL ','LIMO ','IHN3 ', & ! index 166 - 168
'LIMO3H ','I2 ','C4HVP1 ', & ! index 169 - 171
'C4HVP2 ','RCOOH ','IDHDP ', & ! index 172 - 174
'IHN2 ','C96N ','LIMNB ', & ! index 175 - 177
'R7O2 ','SALAAL ','IDNOO ' /) ! index up to 180
CHARACTER(LEN=32), PARAMETER, DIMENSION(90) :: SPC_NAMES_2 = (/ &
'CH3Cl ','ICNOO ','C2H6 ', & ! index 181 - 183
'MPAN ','MVKPC ','INPD ', & ! index 184 - 186
'RIPA ','ROH ','ZRO2 ', & ! index 187 - 189
'ISOPNOO2 ','MTPA ','RIPB ', & ! index 190 - 192
'PIN ','MCRENOL ','PHEN ', & ! index 193 - 195
'R7N2 ','ACO3 ','IDHPE ', & ! index 196 - 198
'RIPD ','TMB ','AROMP5 ', & ! index 199 - 201
'MCT ','BENZO ','BALD ', & ! index 202 - 204
'ISOPNOO1 ','IDHNDOO1 ','IDHNDOO2 ', & ! index 205 - 207
'MVKHC ','RIPC ','HPETHNL ', & ! index 208 - 210
'LIMN ','BUTO2 ','GCO3 ', & ! index 211 - 213
'N2O5 ','ICHE ','MCRHNB ', & ! index 214 - 216
'H ','BrNO3 ','MTPO ', & ! index 217 - 219
'STYR ','AROMP4 ','INPB ', & ! index 220 - 222
'IHPOO1 ','IHPOO2 ','PINAL ', & ! index 223 - 225
'IHPNDOO ','MVKHCB ','CH4 ', & ! index 226 - 228
'PIP ','HPALD1 ','HPALD2 ', & ! index 229 - 231
'IHPOO3 ','ACR ','ETOO ', & ! index 232 - 234
'BZCO3 ','BENZO2 ','LIMKET ', & ! index 235 - 237
'HC5A ','HNO2 ','AROMCO3 ', & ! index 238 - 240
'CH3CHOO ','MONITU ','ICHOO ', & ! index 241 - 243
'ATOOH ','Cl2 ','MEKCO3 ', & ! index 244 - 246
'PROPNN ','MCRHN ','ALK4N1 ', & ! index 247 - 249
'PRN1 ','R4N2 ','IONO ', & ! index 250 - 252
'MCROHOO ','MVKOHOO ','LIMAL ', & ! index 253 - 255
'MONITS ','PINO3 ','ICPDH ', & ! index 256 - 258
'MACR1OO ','PO2 ','ETHLN ', & ! index 259 - 261
'MYRCO ','AROMRO2 ','H2O2 ', & ! index 262 - 264
'HCOOH ','ITCN ','IHN4 ', & ! index 265 - 267
'IHN1 ','NPHEN ','GLYX ' /) ! index up to 270
CHARACTER(LEN=32), PARAMETER, DIMENSION(86) :: SPC_NAMES_3 = (/ &
'IHPNBOO ','LIMKO2 ','BPINOO2 ', & ! index 271 - 273
'LIMO3 ','BPINO2 ','ISOP ', & ! index 274 - 276
'APINO2 ','C96O2 ','ALK4N2 ', & ! index 277 - 279
'OLNN ','LIMO2 ','MOH ', & ! index 280 - 282
'ACTA ','IO ','IEPOXBOO ', & ! index 283 - 285
'IEPOXAOO ','MCRHP ','MVKHP ', & ! index 286 - 288
'OLND ','PRPE ','PIO2 ', & ! index 289 - 291
'MEK ','IDHNBOO ','MGLY ', & ! index 292 - 294
'ACET ','ETO2 ','ClNO2 ', & ! index 295 - 297
'RCHO ','IDN ','ALK4O2 ', & ! index 298 - 300
'ICN ','MVKN ','ITHN ', & ! index 301 - 303
'IHOO4 ','IHOO1 ','GLYC ', & ! index 304 - 306
'HAC ','MACRNO2 ','MACR ', & ! index 307 - 309
'INO2B ','INO2D ','CH2OO ', & ! index 310 - 312
'ATO2 ','MVK ','OTHRO2 ', & ! index 313 - 315
'HOBr ','ClNO3 ','R4N1 ', & ! index 316 - 318
'R4O2 ','KO2 ','A3O2 ', & ! index 319 - 321
'RCO3 ','B3O2 ','MCO3 ', & ! index 322 - 324
'CH2O ','ALD2 ','HNO3 ', & ! index 325 - 327
'MO2 ','CO ','HOI ', & ! index 328 - 330
'I ','IONO2 ','HOCl ', & ! index 331 - 333
'O1D ','NO2 ','H2O ', & ! index 334 - 336
'HO2 ','ClO ','HCl ', & ! index 337 - 339
'Cl ','O3 ','Br ', & ! index 340 - 342
'O ','SALCCL ','OH ', & ! index 343 - 345
'NO ','BrO ','SO2 ', & ! index 346 - 348
'BrSALA ','BrSALC ','NO3 ', & ! index 349 - 351
'HBr ','SALACL ','H2 ', & ! index 352 - 354
'N2 ','O2 ' /) ! index up to 356
CHARACTER(LEN=32), PARAMETER, DIMENSION(356) :: SPC_NAMES = (/&
SPC_NAMES_0, SPC_NAMES_1, SPC_NAMES_2, SPC_NAMES_3 /)
INTEGER, DIMENSION(1) :: LOOKAT
INTEGER, DIMENSION(1) :: MONITOR
CHARACTER(LEN=32), DIMENSION(1) :: SMASS
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_0 = (/ &
'SALAAL + O3 + SO2 --> LOx + PSO4 + SO4 - SALAAL ', & ! index 1
' SALAAL + HCl --> SALACL ', & ! index 2
' SALAAL + HNO3 --> NIT ', & ! index 3
'SALCAL + O3 + SO2 --> SO4s + LOx - SALCAL ', & ! index 4
' SALCAL + HCl --> SALCCL ', & ! index 5
' SALCAL + HNO3 --> NITs ', & ! index 6
' H2O2 + SO2 --> PSO4 + SO4 ', & ! index 7
' O3 + SO2 --> LOx + PSO4 + SO4 ', & ! index 8
' SO2 --> PSO4 + SO4 ', & ! index 9
' CH2O + SO2 --> HMS ', & ! index 10
' HMS --> CH2O + SO2 ', & ! index 11
' HMS + OH + SO2 --> 2 PSO4AQ + 2 PSO4 + 2 SO4 + CH2O ', & ! index 12
' O3 + NO --> NO2 + O2 ', & ! index 13
' O3 + OH --> LOx + HO2 + O2 ', & ! index 14
' HO2 + O3 --> LOx + OH + 2 O2 ', & ! index 15
' NO2 + O3 --> NO3 + O2 ', & ! index 16
' MO2 + O3 --> LOx + CH2O + HO2 + O2 ', & ! index 17
' 2 OH --> POx + H2O + O ', & ! index 18
' 2 OH --> PH2O2 + H2O2 ', & ! index 19
' HO2 + OH --> H2O + O2 ', & ! index 20
' H2O2 + OH --> H2O + HO2 ', & ! index 21
' HO2 + NO --> POx + NO2 + OH ', & ! index 22
' 2 HO2 --> PH2O2 + H2O2 + O2 ', & ! index 23
' CO + OH --> CO2 + LCO + HO2 ', & ! index 24
' CH4 + OH --> LCH4 + MO2 + H2O ', & ! index 25
' MO2 + NO --> POx + CH2O + NO2 + HO2 ', & ! index 26
' MO2 + NO --> MENO3 ', & ! index 27
' MO2 + HO2 --> MP + O2 ', & ! index 28
' 2 MO2 --> MOH + CH2O + O2 ', & ! index 29
' 2 MO2 --> 2 CH2O + 2 HO2 ' /) ! index up to 30
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_1 = (/ &
' MO2 + OH --> 0.13 MOH + 0.87 CH2O + 1.74 HO2 ', & ! index 31
' MP + OH --> 0.3 CH2O + 0.7 MO2 + H2O + 0.3 OH ', & ! index 32
' ATOOH + OH --> 0.3 MGLY + 0.7 ATO2 + H2O + 0.3 OH ', & ! index 33
' CH2O + OH --> PCO + CO + H2O + HO2 ', & ! index 34
' NO2 + OH --> HNO3 ', & ! index 35
' HNO3 + OH --> POx + H2O + NO3 ', & ! index 36
' OH + NO --> HNO2 ', & ! index 37
' HNO2 + OH --> POx + NO2 + H2O ', & ! index 38
' NO2 + HO2 --> HNO4 ', & ! index 39
' HNO4 --> NO2 + HO2 ', & ! index 40
' HNO4 + OH --> NO2 + H2O + O2 ', & ! index 41
' HO2 + NO3 --> LOx + NO2 + OH + O2 ', & ! index 42
' NO + NO3 --> 2 NO2 ', & ! index 43
' OH + NO3 --> LOx + NO2 + HO2 ', & ! index 44
' NO2 + NO3 --> N2O5 ', & ! index 45
' N2O5 --> NO2 + NO3 ', & ! index 46
' HCOOH + OH --> CO2 + H2O + HO2 ', & ! index 47
' MOH + OH --> CH2O + HO2 ', & ! index 48
' NO2 + NO3 --> 2 LOx + NO2 + NO + O2 ', & ! index 49
' CH2O + NO3 --> LOx + PCO + HNO3 + CO + HO2 ', & ! index 50
' ALD2 + OH --> 0.05 PCO + 0.95 MCO3 + 0.05 CH2O + 0.05 CO + H2O + 0.05 HO2 ', & ! index 51
' ALD2 + NO3 --> LOx + MCO3 + HNO3 ', & ! index 52
' MCO3 + NO2 --> PAN ', & ! index 53
' PAN --> MCO3 + NO2 ', & ! index 54
' PAN + OH --> PCO + CH2O + CO + NO2 ', & ! index 55
' MCO3 + NO --> CO2 + POx + MO2 + NO2 ', & ! index 56
' C2H6 + OH --> ETO2 + H2O ', & ! index 57
' ETO2 + NO --> POx + ALD2 + NO2 + HO2 ', & ! index 58
' ETO2 + NO --> ETNO3 ', & ! index 59
' OTHRO2 + NO --> POx + ALD2 + NO2 + HO2 ' /) ! index up to 60
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_2 = (/ &
' C3H8 + OH --> B3O2 ', & ! index 61
' C3H8 + OH --> A3O2 ', & ! index 62
' A3O2 + NO --> POx + RCHO + NO2 + HO2 ', & ! index 63
' A3O2 + NO --> NPRNO3 ', & ! index 64
' PO2 + NO --> POx + CH2O + ALD2 + NO2 + HO2 ', & ! index 65
' ALK6 + OH --> R7O2 ', & ! index 66
' ALK6 + NO3 --> LOx + R7O2 + HNO3 ', & ! index 67
' R7O2 + NO --> POx + 0.25 MEK + 0.75 RCHO + 0.25 R4O2 + NO2 + 0.75 HO2 ', & ! index 68
' R7O2 + NO --> R7N2 ', & ! index 69
' R7O2 + HO2 --> R7P ', & ! index 70
' R7P + OH --> 0.5 R7O2 + 0.5 RCHO + 0.5 OH ', & ! index 71
' R7N2 + OH --> R7N1 + H2O ', & ! index 72
' R7N1 + NO --> 2 POx + 1.24 RCHO + 0.98 CH2O + 0.65 ALD2 + 2 NO2 ', & ! index 73
' R7N1 + HO2 --> R7N2 ', & ! index 74
' C4H6 + OH --> BUTO2 ', & ! index 75
' C4H6 + NO3 --> LOx + ACR + CH2O + NO2 ', & ! index 76
' C4H6 + O3 --> LOx + ACR + CH2O ', & ! index 77
' BUTO2 + NO --> 0.942 POx + 0.058 BUTN + 0.73 ACR + 0.326 RCHO + 0.603 CH2O + 0.942 NO... etc.', & ! index 78
' BUTO2 + HO2 --> 0.894 RCHO + 0.659 GLYC ', & ! index 79
' BUTN + OH --> POx + PCO + GLYC + CH2O + CO + NO2 + HO2 ', & ! index 80
' ACR + OH --> 0.255 ACRO2 + 0.68 ACO3 + 0.065 GLYX + 0.065 CH2O + 0.425 HO2 ', & ! index 81
' ACRO2 + NO --> POx + PCO + GLYC + CO + NO2 + HO2 ', & ! index 82
' ACRO2 + HO2 --> PCO + GLYC + CO + HO2 ', & ! index 83
' ACO3 + HO2 --> PCO + 0.5 GLYC + CH2O + CO + 0.25 HO2 + 0.25 OH ', & ! index 84
' ACO3 + NO --> POx + PCO + CH2O + CO + NO2 + HO2 ', & ! index 85
' ACO3 + NO2 --> LOx + APAN ', & ! index 86
' APAN --> POx + ACO3 + NO2 ', & ! index 87
' APAN + OH --> 2 POx + PCO + GLYC + CO + NO3 ', & ! index 88
' ALK4 + OH --> R4O2 ', & ! index 89
' ALK4O2 + NO --> POx + 0.19 MEK + 0.34 ACET + 0.15 RCHO + 0.34 OTHRO2 + 0.05 A3O2 + 0.1... etc.' /) ! index up to 90
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_3 = (/ &
' ALK4O2 + NO --> POx + ALK4N2 ', & ! index 91
' ALK4N1 + NO --> POx + 0.64 RCHO + 0.64 CH2O + 0.97 ALD2 + 2 NO2 ', & ! index 92
' R4O2 + NO --> POx + 0.19 MEK + 0.34 ACET + 0.15 RCHO + 0.34 OTHRO2 + 0.05 A3O2 + 0.1... etc.', & ! index 93
' R4O2 + NO --> POx + R4N2 ', & ! index 94
' R4N1 + NO --> POx + 0.64 RCHO + 0.64 CH2O + 0.97 ALD2 + 2 NO2 ', & ! index 95
' ATO2 + NO --> POx + MCO3 + CH2O + NO2 ', & ! index 96
' KO2 + NO --> POx + 0.072 ALK4N2 + 0.919 MCO3 + 0.919 ALD2 + 0.928 NO2 ', & ! index 97
' B3O2 + NO --> POx + ACET + NO2 + HO2 ', & ! index 98
' B3O2 + NO --> IPRNO3 ', & ! index 99
' PRN1 + NO --> POx + CH2O + ALD2 + 2 NO2 ', & ! index 100
' ALK4 + NO3 --> LOx + ALK4O2 + HNO3 ', & ! index 101
' R4N2 + OH --> R4N1 + H2O ', & ! index 102
' ALK4N2 + OH --> ALK4N1 + H2O ', & ! index 103
' ACTA + OH --> CO2 + MO2 + H2O ', & ! index 104
' RCHO + OH --> RCO3 + H2O ', & ! index 105
' RCO3 + NO2 --> PPN ', & ! index 106
' PPN --> RCO3 + NO2 ', & ! index 107
' PPN + OH --> PCO + ALD2 + CO + NO2 ', & ! index 108
' RCO3 + NO --> CO2 + POx + 0.49 OTHRO2 + 0.07 A3O2 + 0.27 B3O2 + NO2 ', & ! index 109
' RCHO + NO3 --> LOx + RCO3 + HNO3 ', & ! index 110
' ACET + OH --> ATO2 + H2O ', & ! index 111
' A3O2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.75 RCHO + 0.75 CH2O + HO2 ', & ! index 112
' PO2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.09 RCHO + 0.16 HAC + 1.25 CH2O + 0.5 ALD2 + HO2 ', & ! index 113
' R4O2 + HO2 --> R4P ', & ! index 114
' R4N1 + HO2 --> R4N2 ', & ! index 115
' ALK4O2 + HO2 --> ALK4P ', & ! index 116
' ALK4N1 + HO2 --> ALK4N2 ', & ! index 117
' ATO2 + HO2 --> 0.85 ATOOH + 0.15 MCO3 + 0.15 CH2O + 0.15 OH ', & ! index 118
' KO2 + HO2 --> 0.85 ATOOH + 0.15 MCO3 + 0.15 ALD2 + 0.85 MO2 + 0.15 OH ', & ! index 119
' B3O2 + HO2 --> RB3P ' /) ! index up to 120
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_4 = (/ &
' PRN1 + HO2 --> PRPN ', & ! index 121
' MEK + OH --> KO2 + H2O ', & ! index 122
' KO2 + NO --> POx + 0.31 MEKCO3 + 0.07 R4N2 + 0.62 MCO3 + 0.31 CH2O + 0.62 ALD2 + 0.93 NO2 ', & ! index 123
' MEKCO3 + NO2 --> LOx + MEKPN ', & ! index 124
' MEKPN --> POx + MEKCO3 + NO2 ', & ! index 125
' MEKPN + OH --> POx + PCO + GLYC + CO + NO2 ', & ! index 126
' MEKCO3 + NO --> CO2 + POx + ETOO + NO2 ', & ! index 127
' MEKCO3 + HO2 --> 0.44 CO2 + 0.15 POx + 0.41 RP + 0.15 RCOOH + 0.44 ETOO + 0.15 O3 + 0.44 OH ', & ! index 128
' ETO2 + MO2 --> 0.25 EOH + 0.25 MOH + 0.75 CH2O + 0.75 ALD2 + HO2 ', & ! index 129
' OTHRO2 + MO2 --> 0.25 EOH + 0.25 MOH + 0.75 CH2O + 0.75 ALD2 + HO2 ', & ! index 130
' MEK + NO3 --> LOx + KO2 + HNO3 ', & ! index 131
' R4O2 + MO2 --> 0.38 ROH + 0.25 MOH + 0.35 MEK + 0.16 ACET + 0.13 RCHO + 0.16 OTHRO2 +... etc.', & ! index 132
' R4N1 + MO2 --> 0.375 ROH + 0.25 MOH + 0.58 RCHO + 0.15 R4O2 + 0.95 CH2O + 0.38 ALD2 +... etc.', & ! index 133
' ALK4O2 + MO2 --> 0.38 ROH + 0.25 MOH + 0.35 MEK + 0.16 ACET + 0.13 RCHO + 0.16 OTHRO2 +... etc.', & ! index 134
' ALK4N1 + MO2 --> 0.375 ROH + 0.25 MOH + 0.58 RCHO + 0.15 R4O2 + 0.95 CH2O + 0.38 ALD2 +... etc.', & ! index 135
' ATO2 + MO2 --> 0.3 CO2 + 0.5 MOH + 0.5 MGLY + 0.2 HAC + 0.3 MCO3 + 0.5 CH2O + 0.3 HO2 ', & ! index 136
' KO2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.25 MEK + 0.5 MCO3 + 0.75 CH2O + 0.5 ALD2 + 0.2... etc.', & ! index 137
' B3O2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.75 ACET + 0.75 CH2O + HO2 ', & ! index 138
' PRN1 + MO2 --> 0.25 ROH + 0.25 MOH + 0.25 RCHO + 1.25 CH2O + 0.5 ALD2 + NO2 + 0.5 HO2 ', & ! index 139
' EOH + OH --> ALD2 + HO2 ', & ! index 140
' ROH + OH --> RCHO + HO2 ', & ! index 141
' 2 ETO2 --> 0.4 EOH + 1.6 ALD2 + 1.2 HO2 ', & ! index 142
' 2 OTHRO2 --> 0.4 EOH + 1.6 ALD2 + 1.2 HO2 ', & ! index 143
' ETO2 + HO2 --> ETP ', & ! index 144
' OTHRO2 + HO2 --> ETP ', & ! index 145
' A3O2 + HO2 --> RA3P ', & ! index 146
' PO2 + HO2 --> PP ', & ! index 147
' RCO3 + HO2 --> 0.43 CO2 + 0.15 POx + 0.41 RP + 0.15 RCOOH + 0.22 OTHRO2 + 0.03 A3O2 +... etc.', & ! index 148
' PRPE + OH --> PO2 ', & ! index 149
' PRPE + O3 --> 0.1 CO2 + LOx + 0.56 PCO + 0.1 CH4 + 0.12 CH3CHOO + 0.22 CH2OO + 0.5 C... etc.' /) ! index up to 150
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_5 = (/ &
' GLYC + OH --> 0.361 CO2 + 0.505 PCO + 0.134 HCOOH + 0.134 GLYX + 0.732 CH2O + 0.505 ... etc.', & ! index 151
' GLYC + OH --> PCO + HCOOH + CO + OH ', & ! index 152
' GLYC + OH --> 0.8 GCO3 + 0.2 GLYX + 0.2 HO2 ', & ! index 153
' GLYC + NO3 --> LOx + GCO3 + HNO3 ', & ! index 154
' GCO3 + NO2 --> LOx + PHAN ', & ! index 155
' PHAN --> POx + GCO3 + NO2 ', & ! index 156
' GCO3 + NO --> POx + CH2O + NO2 + HO2 ', & ! index 157
' GCO3 + HO2 --> 0.44 CO2 + 0.15 POx + 0.56 HACTA + 0.44 CH2O + 0.44 HO2 + 0.15 O3 + 0.44 OH ', & ! index 158
' GCO3 + NO3 --> LOx + CH2O + NO2 + HO2 ', & ! index 159
' PHAN + OH --> POx + PCO + CH2O + CO + NO2 ', & ! index 160
' HACTA + OH --> CH2O + HO2 ', & ! index 161
' PRPE + NO3 --> LOx + PRN1 ', & ! index 162
' GLYX + OH --> 2 PCO + 2 CO + HO2 ', & ! index 163
' MGLY + OH --> PCO + MCO3 + CO ', & ! index 164
' GLYX + NO3 --> LOx + 2 PCO + HNO3 + 2 CO + HO2 ', & ! index 165
' MGLY + NO3 --> LOx + PCO + MCO3 + HNO3 + CO ', & ! index 166
' HAC + OH --> MGLY + HO2 ', & ! index 167
' HAC + OH --> 0.5 CO2 + 0.5 PCO + 0.5 HCOOH + 0.5 ACTA + 0.5 MO2 + 0.5 CO + OH ', & ! index 168
' PRPN + OH --> 0.791 PROPNN + 0.209 PRN1 + 0.791 OH ', & ! index 169
' ETP + OH --> 0.36 OTHRO2 + 0.64 ALD2 + 0.64 OH ', & ! index 170
' RA3P + OH --> 0.64 RCHO + 0.36 A3O2 + 0.64 OH ', & ! index 171
' RB3P + OH --> 0.791 ACET + 0.209 B3O2 + 0.791 OH ', & ! index 172
' R4P + OH --> 1.185 RCHO + 0.21 R4O2 + 0.79 OH ', & ! index 173
' ALK4P + OH --> 1.185 RCHO + 0.21 ALK4O2 + 0.79 OH ', & ! index 174
' RP + OH --> RCO3 ', & ! index 175
' PP + OH --> 0.209 PO2 + 0.791 HAC + 0.791 OH ', & ! index 176
' LVOC + OH --> OH ', & ! index 177
' MAP + OH --> 0.22 CO2 + 0.78 MCO3 + 0.22 CH2O + 0.22 OH ', & ! index 178
' C2H6 + NO3 --> LOx + ETO2 + HNO3 ', & ! index 179
' 2 MCO3 --> 2 CO2 + 2 MO2 ' /) ! index up to 180
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_6 = (/ &
' MCO3 + MO2 --> 0.9 CO2 + 0.1 ACTA + CH2O + 0.9 MO2 + 0.9 HO2 ', & ! index 181
' R4O2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + 0.271 MEK + 0.29 ACET + 0.255 RCHO + 0.29 OTHRO2 ... etc.', & ! index 182
' ALK4O2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + 0.271 MEK + 0.29 ACET + 0.255 RCHO + 0.29 OTHRO2 ... etc.', & ! index 183
' ATO2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + 0.1 MGLY + 0.9 MCO3 + 0.9 CH2O + 0.9 MO2 ', & ! index 184
' KO2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + 0.1 MEK + 0.9 MCO3 + 0.9 ALD2 + 0.9 MO2 ', & ! index 185
' B3O2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + ACET + 0.9 MO2 + 0.9 HO2 ', & ! index 186
' R4N1 + MCO3 --> 0.645 CO2 + 0.1 ACTA + 0.613 RCHO + 0.27 R4O2 + 0.351 CH2O + 0.675 ALD... etc.', & ! index 187
' ALK4N1 + MCO3 --> 0.645 CO2 + 0.1 ACTA + 0.613 RCHO + 0.27 R4O2 + 0.351 CH2O + 0.675 ALD... etc.', & ! index 188
' PRN1 + MCO3 --> 0.9 CO2 + 0.1 ACTA + 0.1 RCHO + 0.9 CH2O + 0.9 ALD2 + 0.9 MO2 + NO2 ', & ! index 189
' ETO2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + ALD2 + 0.9 MO2 + 0.9 HO2 ', & ! index 190
' OTHRO2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + ALD2 + 0.9 MO2 + 0.9 HO2 ', & ! index 191
' PO2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + 0.035 RCHO + 0.065 HAC + 0.9 CH2O + 0.9 ALD2 + 0.... etc.', & ! index 192
' A3O2 + MCO3 --> 0.9 CO2 + 0.1 ACTA + RCHO + 0.9 MO2 + 0.9 HO2 ', & ! index 193
' RCO3 + MCO3 --> 2 CO2 + 0.49 OTHRO2 + 0.07 A3O2 + 0.27 B3O2 + MO2 ', & ! index 194
' RCO3 + MO2 --> CO2 + 0.49 OTHRO2 + 0.07 A3O2 + 0.27 B3O2 + CH2O + HO2 ', & ! index 195
' 2 NO3 --> 2 LOx + 2 NO2 + O2 ', & ! index 196
' MO2 + NO2 --> MPN ', & ! index 197
' MPN --> MO2 + NO2 ', & ! index 198
' DMS + OH --> CH2O + MO2 + SO2 ', & ! index 199
' DMS + OH --> 0.25 MSA + MO2 + 0.75 SO2 ', & ! index 200
' DMS + NO3 --> LOx + CH2O + HNO3 + MO2 + SO2 ', & ! index 201
' OH + SO2 --> PH2SO4 + PSO4 + SO4 + HO2 ', & ! index 202
' O3 + Br --> BrO + O2 ', & ! index 203
' HO2 + BrO --> HOBr + O2 ', & ! index 204
' HO2 + Br --> HBr + O2 ', & ! index 205
' OH + HBr --> H2O + Br ', & ! index 206
' 2 BrO --> 2 LOx + 2 Br + O2 ', & ! index 207
' 2 BrO --> 2 LOx + Br2 + O2 ', & ! index 208
' NO + BrO --> NO2 + Br ', & ! index 209
' BrNO3 + Br --> Br2 + NO3 ' /) ! index up to 210
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_7 = (/ &
' Br2 + OH --> POx + HOBr + Br ', & ! index 211
' HOBr + O --> LOx + OH + BrO ', & ! index 212
' O + HBr --> LOx + Br + OH ', & ! index 213
' OH + BrO --> LOx + HO2 + Br ', & ! index 214
' Br + NO3 --> NO2 + BrO ', & ! index 215
' CH2O + Br --> PCO + CO + HO2 + HBr ', & ! index 216
' ALD2 + Br --> MCO3 + HBr ', & ! index 217
' ACET + Br --> ATO2 + HBr ', & ! index 218
' C2H6 + Br --> ETO2 + HBr ', & ! index 219
' C3H8 + Br --> A3O2 + HBr ', & ! index 220
' NO2 + Br --> BrNO2 ', & ! index 221
' NO2 + BrO --> BrNO3 ', & ! index 222
' CHBr3 + OH --> 3 Br ', & ! index 223
' CH2Br2 + OH --> 2 Br ', & ! index 224
' CH3Br + OH --> H2O + HO2 + Br ', & ! index 225
' O1D + H2O --> LOx + 2 OH ', & ! index 226
' O1D + N2 --> O + N2 ', & ! index 227
' O1D + O2 --> O + O2 ', & ! index 228
' O1D + H2 --> LOx + H + OH ', & ! index 229
' N2O + O1D --> LOx + 1.22 NO + 0.39 N2 + 0.39 O2 ', & ! index 230
' CH4 + O1D --> LOx + LCH4 + 0.2 H + 0.25 CH2O + 0.75 MO2 + 0.2 HO2 + 0.75 OH + 0.05 H2 ', & ! index 231
' O + O2 --> O3 ', & ! index 232
' O3 + O --> 2 LOx + 2 O2 ', & ! index 233
' OH + H2 --> H + H2O ', & ! index 234
' O + OH --> LOx + H + O2 ', & ! index 235
' HO2 + O --> LOx + OH + O2 ', & ! index 236
' O1D + O3 --> LOx + O + 1.5 O2 ', & ! index 237
' OCS + O --> LOx + PCO + CO + SO2 ', & ! index 238
' OCS + OH --> CO2 + SO2 ', & ! index 239
' NO2 + O --> 2 LOx + NO + O2 ' /) ! index up to 240
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_8 = (/ &
' O + NO3 --> 2 LOx + NO2 + O2 ', & ! index 241
' O + NO --> NO2 ', & ! index 242
' NO2 + O --> NO3 ', & ! index 243
' H2O2 + O --> LOx + HO2 + OH ', & ! index 244
' H + O2 --> HO2 ', & ! index 245
' H + O3 --> LOx + OH + O2 ', & ! index 246
' H + HO2 --> 0.02 POx + 0.02 H2O + 0.02 O + 1.788 OH + 0.086 H2 + 0.086 O2 ', & ! index 247
' N + O2 --> POx + O + NO ', & ! index 248
' N + NO --> POx + O + N2 ', & ! index 249
' N + NO2 --> N2O + O ', & ! index 250
' O + BrO --> 2 LOx + Br + O2 ', & ! index 251
' CH2O + O --> LOx + PCO + CO + HO2 + OH ', & ! index 252
' O1D + HCl --> 0.66 LOx + 0.22 H + 0.22 ClO + 0.12 HCl + 0.66 Cl + 0.12 O + 0.66 OH ', & ! index 253
' O1D + HBr --> 0.6 LOx + 0.2 H + 0.6 Br + 0.2 O + 0.6 OH + 0.2 BrO + 0.2 HBr ', & ! index 254
' Cl2 + O1D --> 0.25 Cl2 + 0.75 ClO + 0.75 Cl + 0.25 O ', & ! index 255
' CCl4 + O1D --> 0.21 CCl4 + 0.79 ClO + 2.37 Cl + 0.21 O ', & ! index 256
' CH3Cl + O1D --> 0.44 LOx + 0.1 CH3Cl + 0.09 H + 0.9 MO2 + 0.46 ClO + 0.35 Cl + 0.1 O ', & ! index 257
' CH3Br + O1D --> 0.56 LOx + MO2 + 0.56 Br + 0.44 BrO ', & ! index 258
' CH2Br2 + O1D --> 0.05 CH2Br2 + 0.95 Br + 0.05 O + 0.95 BrO ', & ! index 259
' CHBr3 + O1D --> 0.3 CHBr3 + 1.4 Br + 0.3 O + 0.7 BrO ', & ! index 260
' HCFC22 + O1D --> 0.19 LOx + 0.25 HCFC22 + 0.56 ClO + 0.19 Cl + 0.25 O + 0.05 OH ', & ! index 261
' CFC11 + O1D --> 0.1 CFC11 + 0.9 ClO + 1.8 Cl + 0.1 O ', & ! index 262
' CFC12 + O1D --> 0.14 CFC12 + 0.86 ClO + 0.86 Cl + 0.14 O ', & ! index 263
' H1211 + O1D --> 0.35 H1211 + 0.34 ClO + 0.31 Cl + 0.34 Br + 0.35 O + 0.31 BrO ', & ! index 264
' H1301 + O1D --> 0.55 H1301 + 0.55 O + 0.45 BrO ', & ! index 265
' HCFC141b + O1D --> 0.31 HCFC141b + 0.69 ClO + 0.69 Cl + 0.31 O ', & ! index 266
' HCFC142b + O1D --> 0.35 HCFC142b + 0.65 ClO + 0.35 O ', & ! index 267
' HCFC123 + O1D --> 0.21 HCFC123 + 0.79 ClO + 0.79 Cl + 0.21 O ', & ! index 268
' CFC113 + O1D --> 0.1 LOx + 0.1 CFC113 + 0.8 ClO + 1.9 Cl + 0.1 O ', & ! index 269
' CFC114 + O1D --> 0.05 LOx + 0.1 CFC114 + 0.85 ClO + 0.95 Cl + 0.1 O ' /) ! index up to 270
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_9 = (/ &
' CFC115 + O1D --> 0.14 CFC115 + 0.86 ClO + 0.14 O ', & ! index 271
' H2402 + O1D --> 0.25 H2402 + 0.75 Br + 0.25 O + 0.75 BrO ', & ! index 272
' Cl2 + OH --> POx + HOCl + Cl ', & ! index 273
' MO2 + ClO --> LOx + ClOO + CH2O + HO2 ', & ! index 274
' ClO + OH --> LOx + HO2 + Cl ', & ! index 275
' ClO + OH --> LOx + HCl + O2 ', & ! index 276
' OClO + OH --> LOx + HOCl + O2 ', & ! index 277
' Cl2O2 + OH --> LOx + ClOO + HOCl ', & ! index 278
' HCl + OH --> H2O + Cl ', & ! index 279
' HOCl + OH --> H2O + ClO ', & ! index 280
' ClNO2 + OH --> POx + HOCl + NO2 ', & ! index 281
' ClNO3 + OH --> POx + HOCl + NO3 ', & ! index 282
' CH3Cl + OH --> H2O + HO2 + Cl ', & ! index 283
' CH2Cl2 + OH --> HO2 + 2 Cl ', & ! index 284
' CHCl3 + OH --> HO2 + 3 Cl ', & ! index 285
' CH3CCl3 + OH --> H2O + 3 Cl ', & ! index 286
' HCFC22 + OH --> H2O + Cl ', & ! index 287
' HCFC141b + OH --> H2O + 2 Cl ', & ! index 288
' HCFC142b + OH --> H2O + Cl ', & ! index 289
' HCFC123 + OH --> H2O + 2 Cl ', & ! index 290
' CH4 + Cl --> LCH4 + MO2 + HCl ', & ! index 291
' CH2O + Cl --> PCO + CO + HO2 + HCl ', & ! index 292
' Cl + O3 --> ClO + O2 ', & ! index 293
' Cl + H2 --> H + HCl ', & ! index 294
' H2O2 + Cl --> HO2 + HCl ', & ! index 295
' HO2 + Cl --> HCl + O2 ', & ! index 296
' HO2 + Cl --> POx + ClO + OH ', & ! index 297
' ClO + O --> 2 LOx + Cl + O2 ', & ! index 298
' HO2 + ClO --> HOCl + O2 ', & ! index 299
' ClO + NO --> NO2 + Cl ' /) ! index up to 300
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_10 = (/ &
' NO2 + ClO --> ClNO3 ', & ! index 301
' 2 ClO --> 2 LOx + Cl2 + O2 ', & ! index 302
' 2 ClO --> 2 LOx + ClOO + Cl ', & ! index 303
' 2 ClO --> OClO + Cl ', & ! index 304
' Cl + O2 --> ClOO ', & ! index 305
' ClOO --> Cl + O2 ', & ! index 306
' 2 ClO --> Cl2O2 ', & ! index 307
' Cl2O2 --> 2 ClO ', & ! index 308
' ClOO + Cl --> 0.1 POx + 0.95 Cl2 + 0.1 ClO + 0.95 O2 ', & ! index 309
' ClO + BrO --> OClO + Br ', & ! index 310
' ClO + BrO --> 2 LOx + ClOO + Br ', & ! index 311
' ClO + BrO --> 2 LOx + BrCl + O2 ', & ! index 312
' ClNO3 + O --> ClO + NO3 ', & ! index 313
' ClNO3 + Cl --> Cl2 + NO3 ', & ! index 314
' CH3Cl + Cl --> PCO + CO + HO2 + 2 HCl ', & ! index 315
' CH2Cl2 + Cl --> PCO + CO + HO2 + HCl + 2 Cl ', & ! index 316
' CHCl3 + Cl --> PCO + CO + HO2 + HCl + 3 Cl ', & ! index 317
' HCOOH + Cl --> CO2 + H2O + HCl ', & ! index 318
' MO2 + Cl --> POx + CH2O + HO2 + ClO ', & ! index 319
' MP + Cl --> MO2 + HCl ', & ! index 320
' C2H6 + Cl --> ETO2 + HCl ', & ! index 321
' ETO2 + Cl --> POx + ALD2 + HO2 + ClO ', & ! index 322
' OTHRO2 + Cl --> POx + ALD2 + HO2 + ClO ', & ! index 323
' MOH + Cl --> CH2O + HO2 + HCl ', & ! index 324
' EOH + Cl --> ALD2 + HCl ', & ! index 325
' ACTA + Cl --> CO2 + MO2 + HCl ', & ! index 326
' C3H8 + Cl --> B3O2 + HCl ', & ! index 327
' C3H8 + Cl --> A3O2 + HCl ', & ! index 328
' ACET + Cl --> ATO2 + HCl ', & ! index 329
' ISOP + Cl --> 0.5 IHOO4 + 0.5 IHOO1 + HCl ' /) ! index up to 330
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_11 = (/ &
' ALK4 + Cl --> ALK4O2 + HCl ', & ! index 331
' PRPE + Cl --> PO2 + HCl ', & ! index 332
' PRPE + Br --> PO2 + HBr ', & ! index 333
' I + NO --> INO ', & ! index 334
' 2 INO --> I2 + 2 NO ', & ! index 335
' I + NO2 --> IONO ', & ! index 336
' IONO --> I + NO2 ', & ! index 337
' 2 IONO --> I2 + 2 NO2 ', & ! index 338
' I2 + NO3 --> I + IONO2 ', & ! index 339
' IO + NO2 --> IONO2 ', & ! index 340
' IONO2 --> IO + NO2 ', & ! index 341
' I + IONO2 --> I2 + NO3 ', & ! index 342
' I + BrO --> IO + Br ', & ! index 343
' IO + BrO --> 0.4 LOx + 0.8 OIO + 0.2 I + Br + 0.2 O2 ', & ! index 344
' OIO + IO --> I2O3 ', & ! index 345
' 2 OIO --> I2O4 ', & ! index 346
' I2O4 --> 2 OIO ', & ! index 347
' OIO + NO --> IO + NO2 ', & ! index 348
' IO + ClO --> 0.88 LOx + 0.191 ICl + 0.56 OClO + 0.809 I + 0.249 Cl + 0.44 O2 ', & ! index 349
' I + O3 --> IO + O2 ', & ! index 350
' I + HO2 --> HI + O2 ', & ! index 351
' I2 + OH --> POx + HOI + I ', & ! index 352
' HI + OH --> I + H2O ', & ! index 353
' HOI + OH --> IO + H2O ', & ! index 354
' IO + HO2 --> HOI + O2 ', & ! index 355
' IO + NO --> I + NO2 ', & ! index 356
' 2 IO --> 0.6 I2O2 + 0.4 OIO + 0.4 I ', & ! index 357
' I2O2 --> 0.996 OIO + 0.008 IO + 0.996 I ', & ! index 358
' CH3I + OH --> MO2 + I + H2O ', & ! index 359
' ETHLN + OH --> CO2 + CH2O + NO2 ' /) ! index up to 360
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_12 = (/ &
' PROPNN + OH --> MGLY + NO2 ', & ! index 361
' CH2OO + CO --> CO2 + LCO + CH2O ', & ! index 362
' CH2OO + NO --> POx + CH2O + NO2 ', & ! index 363
' CH2OO + NO2 --> POx + CH2O + NO3 ', & ! index 364
' CH2OO + H2O --> 0.06 PH2O2 + 0.73 HMHP + 0.06 H2O2 + 0.21 HCOOH + 0.06 CH2O ', & ! index 365
' CH2OO + 2 H2O --> 0.06 PH2O2 + 0.4 HMHP + 0.06 H2O2 + 0.54 HCOOH + 0.06 CH2O ', & ! index 366
' CH2OO + O3 --> LOx + CH2O ', & ! index 367
' CH2OO + SO2 --> PH2SO4 + PSO4 + SO4 + CH2O ', & ! index 368
' CH3CHOO + CO --> CO2 + LCO + ALD2 ', & ! index 369
' CH3CHOO + NO --> POx + ALD2 + NO2 ', & ! index 370
' CH3CHOO + NO2 --> POx + ALD2 + NO3 ', & ! index 371
' CH3CHOO + SO2 --> PH2SO4 + PSO4 + SO4 + ALD2 ', & ! index 372
' CH3CHOO + H2O --> PH2O2 + H2O2 + ALD2 ', & ! index 373
' CH3CHOO + H2O --> ACTA ', & ! index 374
' MTPA + NO3 --> LOx + 0.1 OLNN + 0.9 OLND ', & ! index 375
' MTPO + NO3 --> LOx + 0.1 OLNN + 0.9 OLND ', & ! index 376
' LIMO + NO3 --> LOx + 0.5 OLNN + 0.5 OLND ', & ! index 377
' LIMO + OH --> LIMO2 ', & ! index 378
' LIMO + O3 --> LOx + 0.15 PCO + 0.27 LIMAL + 0.15 AROMRO2 + 0.715 LIMO3 + 0.15 CO + 0.865 OH ', & ! index 379
' MTPO + OH --> 0.15 BPINO2 + 0.15 APINO2 + 0.2 LIMO2 + 0.5 PIO2 ', & ! index 380
' MTPO + O3 --> LOx + 0.4 MYRCO + 0.5 AROMRO2 + 0.5 MEK + 0.5 ACET + 0.3 RCHO + 0.15 M... etc.', & ! index 381
' MTPA + OH --> 0.255 BPINO2 + 0.67 APINO2 + 0.075 LIMO2 ', & ! index 382
' MTPA + O3 --> LOx + 0.1 PCO + 0.2 BPINO + 0.2 PINAL + 0.1 BPINOO2 + 0.5 APINO2 + 0.1... etc.', & ! index 383
' APINO2 + HO2 --> APINP ', & ! index 384
' APINO2 + NO --> 0.75 POx + 0.25 APINN + 0.75 PINAL + 0.75 NO2 + 0.75 HO2 ', & ! index 385
' APINO2 + NO3 --> LOx + PINAL + NO2 + HO2 ', & ! index 386
' APINP + OH --> 0.4 PINO3 + 0.6 APINO2 ', & ! index 387
' APINN + OH --> 0.5 POx + 0.5 C96N + 0.5 PINAL + 0.5 AROMRO2 + 0.5 CH2O + 0.5 NO2 + 0.5 HO2 ', & ! index 388
' PINAL + NO3 --> LOx + PINO3 + HNO3 ', & ! index 389
' PINAL + OH --> PINO3 ' /) ! index up to 390
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_13 = (/ &
' PINO3 + HO2 --> 0.15 POx + 0.15 PINONIC + 0.41 PINO3H + 0.44 C96O2 + 0.15 O3 + 0.44 OH ', & ! index 391
' PINO3 + NO --> CO2 + POx + C96O2 + NO2 ', & ! index 392
' PINO3 + NO2 --> LOx + PINPAN ', & ! index 393
' PINPAN --> POx + PINO3 + NO2 ', & ! index 394
' PINO3 + NO3 --> CO2 + LOx + C96O2 + NO2 ', & ! index 395
' PINO3H + OH --> PINO3 ', & ! index 396
' PINONIC + OH --> CO2 + C96O2 ', & ! index 397
' C96O2 + HO2 --> C96O2H ', & ! index 398
' C96O2 + NO --> 0.84 POx + 0.16 C96N + 0.84 AROMRO2 + 0.42 MEK + 0.84 ACET + 0.84 RCO3... etc.', & ! index 399
' C96O2 + NO3 --> LOx + AROMRO2 + 0.5 MEK + ACET + RCO3 + CH2O + NO2 ', & ! index 400
' C96O2 + MO2 --> 0.25 C96O2H + 0.75 AROMRO2 + 0.25 MOH + 0.375 MEK + 0.75 ACET + 0.75 R... etc.', & ! index 401
' C96O2H + OH --> 0.5 AROMRO2 + 0.5 C96O2 + 0.25 MEK + 0.5 ACET + 0.5 RCO3 + 0.5 CH2O ', & ! index 402
' C96N + OH --> POx + 0.5 MONITS + 0.55 AROMRO2 + 0.3 MEK + 0.4 ACET + 0.4 RCO3 + 0.4 ... etc.', & ! index 403
' BPINO2 + HO2 --> BPINP ', & ! index 404
' BPINO2 + NO --> 0.75 POx + 0.75 BPINO + 0.25 BPINN + 0.75 CH2O + 0.75 NO2 + 0.75 HO2 ', & ! index 405
' BPINO2 + NO3 --> LOx + BPINO + CH2O + NO2 + HO2 ', & ! index 406
' BPINN + OH --> 0.5 POx + 0.5 BPINO + 0.5 BPINON + 0.5 AROMRO2 + CH2O + 0.5 NO2 + 0.5 HO2 ', & ! index 407
' BPINP + OH --> BPINO2 ', & ! index 408
' BPINO + OH --> BPINOO2 ', & ! index 409
' BPINOO2 + HO2 --> BPINOOH ', & ! index 410
' BPINOO2 + NO --> BPINON ', & ! index 411
' BPINOO2 + NO --> POx + 0.27 LIMO3 + 0.6 ACET + 0.6 RCHO + 0.6 R4O2 + NO2 + HO2 ', & ! index 412
' BPINOO2 + MO2 --> 0.25 BPINOOH + 0.23 LIMO3 + 0.25 MOH + 0.4 ACET + 0.4 RCHO + 0.4 R4O2 ... etc.', & ! index 413
' BPINOO2 + NO3 --> LOx + 0.27 LIMO3 + 0.6 ACET + 0.6 RCHO + 0.6 R4O2 + NO2 + HO2 ', & ! index 414
' BPINOOH + OH --> BPINOO2 ', & ! index 415
' BPINON + OH --> POx + 0.5 MONITS + 0.085 LIMO3 + 0.3 ACET + 0.3 RCHO + 0.3 R4O2 + 0.5 NO2 ', & ! index 416
' LIMO2 + HO2 --> 0.37 LIMKET + 0.63 LIMAL ', & ! index 417
' LIMO2 + NO --> 0.75 POx + 0.25 LIMN + 0.28 LIMKET + 0.47 LIMAL + 0.75 NO2 + 0.75 HO2 ', & ! index 418
' LIMO2 + NO3 --> LOx + 0.37 LIMKET + 0.63 LIMAL + NO2 + HO2 ', & ! index 419
' LIMAL + OH --> LIMO3 ' /) ! index up to 420
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_14 = (/ &
' LIMAL + O3 --> LOx + 0.3 LIMKB + 0.6 LIMO3 + 0.33 CH2OO + 0.67 CH2O + 0.6 OH ', & ! index 421
' LIMAL + NO3 --> 2 LOx + LIMNB + AROMRO2 ', & ! index 422
' LIMKET + OH --> LIMKO2 ', & ! index 423
' LIMKET + O3 --> LOx + 0.27 LIMKO2 + 0.73 LIMO3 + 0.865 OH ', & ! index 424
' LIMKET + NO3 --> 2 LOx + LIMNB + AROMRO2 ', & ! index 425
' LIMN + OH --> 0.5 POx + 0.5 LIMNB + 0.18 LIMKO2 + 0.32 LIMO3 + 0.5 NO2 ', & ! index 426
' LIMN + O3 --> 0.5 LOx + 0.5 LIMNB + 0.4 LIMO3 + CH2O + 0.5 NO2 ', & ! index 427
' LIMN + NO3 --> LOx + LIMNB + AROMRO2 + NO2 ', & ! index 428
' LIMKO2 + NO --> 0.84 POx + 0.84 LIMKB + 0.16 LIMNB + 0.84 NO2 + 0.84 HO2 ', & ! index 429
' LIMKO2 + HO2 --> LIMO3H ', & ! index 430
' LIMKO2 + NO3 --> LOx + LIMKB + NO2 + HO2 ', & ! index 431
' LIMKO2 + MO2 --> 0.75 LIMKB + 0.25 LIMO3H + 0.25 MOH + 0.75 CH2O + HO2 ', & ! index 432
' LIMKB + OH --> LIMO3 ', & ! index 433
' LIMKB + NO3 --> LOx + LIMO3 + NO2 ', & ! index 434
' LIMNB + OH --> POx + 0.5 MONITS + 0.5 LIMO3 + 0.5 NO2 ', & ! index 435
' LIMO3 + HO2 --> 0.44 CO2 + 0.15 POx + 0.15 LIMO2H + 0.41 LIMO3H + 0.44 RCHO + 0.352 R4... etc.', & ! index 436
' LIMO3 + NO --> CO2 + POx + RCHO + 0.8 R4O2 + MCO3 + 0.4 CH2O + NO2 ', & ! index 437
' LIMO3 + NO2 --> LOx + LIMPAN ', & ! index 438
' LIMPAN --> POx + LIMO3 + NO2 ', & ! index 439
' LIMO3 + NO3 --> CO2 + LOx + RCHO + 0.8 R4O2 + MCO3 + 0.4 CH2O + NO2 ', & ! index 440
' LIMO3H + OH --> LIMO3 ', & ! index 441
' LIMO2H + OH --> CO2 + RCHO + 0.8 R4O2 + MCO3 + 0.4 CH2O ', & ! index 442
' PIO2 + HO2 --> PIP ', & ! index 443
' PIO2 + NO --> PIN ', & ! index 444
' PIO2 + NO --> POx + 0.675 MYRCO + 0.45 ACET + 0.45 MVK + 0.1 CH2O + NO2 + HO2 ', & ! index 445
' PIO2 + NO3 --> LOx + 0.675 MYRCO + 0.45 ACET + 0.45 MVK + 0.1 CH2O + NO2 + HO2 ', & ! index 446
' PIP + OH --> 0.78 MYRCO + 0.7 AROMRO2 + 0.3 ACET + 0.3 MVK + 0.1 CH2O + 0.3 OH ', & ! index 447
' PIP + O3 --> LOx + 0.78 MYRCO + 0.7 AROMRO2 + 0.3 ACET + 0.3 MVK + 0.1 CH2O + 0.3 OH ', & ! index 448
' PIP + NO3 --> LOx + 0.39 MYRCO + 0.35 AROMRO2 + 0.5 OLNN + 0.15 ACET + 0.15 MVK + 0.... etc.', & ! index 449
' PIN + OH --> POx + 0.7 MONITU + 0.3 MYRCO + 0.7 AROMRO2 + 0.3 NO2 ' /) ! index up to 450
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_15 = (/ &
' PIN + O3 --> 0.7 MONITU + 0.3 MYRCO + 0.7 AROMRO2 + 0.3 NO2 ', & ! index 451
' PIN + NO3 --> 0.35 MONITU + 0.15 MYRCO + 0.35 AROMRO2 + 0.5 OLNN + 1.15 NO2 ', & ! index 452
' MYRCO + OH --> AROMRO2 + MEK + 0.5 ACET + 0.5 GLYC + 0.5 MVK + 1.5 CH2O + HO2 ', & ! index 453
' MYRCO + O3 --> LOx + AROMRO2 + MEK + 0.5 ACET + 0.5 GLYC + 0.5 MVK + 1.5 CH2O + OH ', & ! index 454
' MYRCO + NO3 --> LOx + 0.5 AROMRO2 + 0.5 OLNN + 0.5 MEK + 0.25 ACET + 0.25 GLYC + 0.25 ... etc.', & ! index 455
' APINO2 + MO2 --> PINAL + 0.25 MOH + 0.75 CH2O + 1.75 HO2 ', & ! index 456
' APINO2 + MCO3 --> 0.9 CO2 + PINAL + 0.1 ACTA + 0.9 MO2 + HO2 ', & ! index 457
' BPINO2 + MO2 --> BPINO + 0.25 MOH + 1.75 CH2O + 1.75 HO2 ', & ! index 458
' BPINO2 + MCO3 --> 0.9 CO2 + BPINO + 0.1 ACTA + CH2O + 0.9 MO2 + HO2 ', & ! index 459
' LIMO2 + MO2 --> 0.37 LIMKET + 0.63 LIMAL + 0.25 MOH + 0.75 CH2O + 1.75 HO2 ', & ! index 460
' LIMO2 + MCO3 --> 0.9 CO2 + 0.37 LIMKET + 0.63 LIMAL + 0.1 ACTA + 0.9 MO2 + HO2 ', & ! index 461
' PIO2 + MO2 --> 0.675 MYRCO + 0.25 MOH + 0.45 ACET + 0.45 MVK + 0.85 CH2O + 1.75 HO2 ', & ! index 462
' PIO2 + MCO3 --> 0.9 CO2 + 0.675 MYRCO + 0.1 ACTA + 0.45 ACET + 0.45 MVK + 0.1 CH2O + 0... etc.', & ! index 463
' PINO3 + MO2 --> 0.75 CO2 + 0.25 PINONIC + 0.75 C96O2 + CH2O + 0.75 HO2 ', & ! index 464
' PINO3 + MCO3 --> 2 CO2 + C96O2 + MO2 ', & ! index 465
' LIMO3 + MO2 --> 0.75 CO2 + 0.25 LIMO2H + 0.75 RCHO + 0.6 R4O2 + 0.75 MCO3 + 1.3 CH2O +... etc.', & ! index 466
' LIMO3 + MCO3 --> CO2 + RCHO + 0.8 R4O2 + MCO3 + 0.4 CH2O + MO2 ', & ! index 467
' OLNN + NO --> POx + MONITS + NO2 + HO2 ', & ! index 468
' OLND + NO --> POx + 0.464 MEK + 1.24 RCHO + 0.287 CH2O + 2 NO2 ', & ! index 469
' OLNN + HO2 --> 0.3 MONITU + 0.7 MONITS ', & ! index 470
' OLND + HO2 --> 0.3 MONITU + 0.7 MONITS ', & ! index 471
' OLNN + MO2 --> 0.3 MONITU + 0.7 MONITS + CH2O + 2 HO2 ', & ! index 472
' OLND + MO2 --> 0.25 ROH + 0.15 MONITU + 0.35 MONITS + 0.25 MOH + 0.34 MEK + 0.93 RCHO... etc.', & ! index 473
' OLNN + MCO3 --> CO2 + 0.3 MONITU + 0.7 MONITS + MO2 + HO2 ', & ! index 474
' OLND + MCO3 --> 0.5 RCOOH + 0.464 MEK + 1.24 RCHO + 0.287 CH2O + 0.5 MO2 + NO2 ', & ! index 475
' OLNN + NO3 --> LOx + 0.3 MONITU + 0.7 MONITS + NO2 + HO2 ', & ! index 476
' OLND + NO3 --> LOx + 0.464 MEK + 1.24 RCHO + 0.287 CH2O + 2 NO2 ', & ! index 477
' 2 OLNN --> 0.6 MONITU + 1.4 MONITS + HO2 ', & ! index 478
' OLNN + OLND --> 0.45 MONITU + 1.05 MONITS + 0.149 MEK + 0.64 RCHO + 0.202 CH2O + 0.5 N... etc.', & ! index 479
' 2 OLND --> 0.3 MONITU + 0.7 MONITS + 0.285 MEK + 1.21 RCHO + 0.504 CH2O + NO2 ' /) ! index up to 480
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_16 = (/ &
' MONITS + OH --> HONIT ', & ! index 481
' MONITU + OH --> HONIT ', & ! index 482
' MONITU + O3 --> LOx + HONIT ', & ! index 483
' MONITU + NO3 --> 2 LOx + HONIT ', & ! index 484
' MONITS + NO3 --> 2 LOx + HONIT ', & ! index 485
' IONITA --> INDIOL + POx + HNO3 ', & ! index 486
' MONITA --> INDIOL + POx + HNO3 ', & ! index 487
' HONIT + OH --> POx + HAC + NO3 ', & ! index 488
' MENO3 + OH --> POx + CH2O + NO2 ', & ! index 489
' ETNO3 + OH --> POx + ALD2 + NO2 ', & ! index 490
' IPRNO3 + OH --> POx + ACET + NO2 ', & ! index 491
' NPRNO3 + OH --> POx + RCHO + NO2 ', & ! index 492
' ISOP + O3 --> 0.407 CO2 + LOx + 0.407 PCO + 0.013 PH2O2 + 0.013 H2O2 + 0.416 MACR + ... etc.', & ! index 493
' ISOP + OH --> LISOPOH + IHOO1 ', & ! index 494
' ISOP + OH --> LISOPOH + IHOO4 ', & ! index 495
' ISOP + OH --> LISOPOH + 0.6 PCO + 0.15 HPALD3 + 0.3 HPETHNL + 0.25 HPALD1 + 0.3 MGLY... etc.', & ! index 496
' ISOP + OH --> LISOPOH + 0.9 PCO + 0.15 HPALD4 + 0.25 HPALD2 + 0.3 ATOOH + 0.3 MGLY +... etc.', & ! index 497
' IHOO1 + HO2 --> 0.937 RIPA + 0.063 MVK + 0.063 CH2O + 0.063 HO2 + 0.063 OH ', & ! index 498
' IHOO1 + HO2 --> RIPC ', & ! index 499
' IHOO4 + HO2 --> 0.937 RIPB + 0.063 MACR + 0.063 CH2O + 0.063 HO2 + 0.063 OH ', & ! index 500
' IHOO4 + HO2 --> RIPD ', & ! index 501
' IHOO1 --> MVK + CH2O + OH ', & ! index 502
' IHOO1 --> 0.6 PCO + 0.15 HPALD3 + 0.3 HPETHNL + 0.25 HPALD1 + 0.3 MGLY + 0.3 MCO... etc.', & ! index 503
' IHOO4 --> MACR + CH2O + OH ', & ! index 504
' IHOO4 --> 0.9 PCO + 0.15 HPALD4 + 0.25 HPALD2 + 0.3 ATOOH + 0.3 MGLY + 0.3 CH2O ... etc.', & ! index 505
' 2 IHOO1 --> 2 MVK + 2 CH2O + 2 HO2 ', & ! index 506
' 2 IHOO4 --> 2 MACR + 2 CH2O + 2 HO2 ', & ! index 507
' IHOO4 + IHOO1 --> MACR + MVK + 2 CH2O + 2 HO2 ', & ! index 508
' 2 IHOO1 --> PCO + HC5A + MVKHP + CO + HO2 + OH ', & ! index 509
' 2 IHOO4 --> PCO + HC5A + MCRHP + CO + HO2 + OH ' /) ! index up to 510
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_17 = (/ &
' IHOO4 + IHOO1 --> PCO + HC5A + 0.5 MCRHP + 0.5 MVKHP + CO + HO2 + OH ', & ! index 511
' IHOO1 + MO2 --> MVK + 2 CH2O + 2 HO2 ', & ! index 512
' IHOO1 + MO2 --> 0.5 PCO + 0.5 HC5A + 0.5 MVKHP + CH2O + 0.5 CO + 1.5 HO2 + 0.5 OH ', & ! index 513
' IHOO4 + MO2 --> MACR + 2 CH2O + 2 HO2 ', & ! index 514
' IHOO4 + MO2 --> 0.5 PCO + 0.5 HC5A + 0.5 MCRHP + CH2O + 0.5 CO + 1.5 HO2 + 0.5 OH ', & ! index 515
' IHOO1 + NO --> POx + IHN2 ', & ! index 516
' IHOO1 + NO --> POx + MVK + CH2O + NO2 + HO2 ', & ! index 517
' IHOO1 + NO --> POx + IHN4 ', & ! index 518
' IHOO1 + NO --> POx + 0.55 PCO + 0.45 HC5A + 0.55 MVKHP + 0.55 CO + NO2 + 0.45 HO2 + 0.55 OH ', & ! index 519
' IHOO4 + NO --> POx + IHN3 ', & ! index 520
' IHOO4 + NO --> POx + MACR + CH2O + NO2 + HO2 ', & ! index 521
' IHOO4 + NO --> POx + IHN1 ', & ! index 522
' IHOO4 + NO --> POx + 0.55 PCO + 0.45 HC5A + 0.55 MCRHP + 0.55 CO + NO2 + 0.45 HO2 + 0.55 OH ', & ! index 523
' HPALD1 + OH --> 0.45 PCO + 0.15 IDC + 0.315 HPALD1OO + 0.085 ICHE + 0.33 MVKHP + 0.085... etc.', & ! index 524
' HPALD2 + OH --> 0.37 PCO + 0.15 IDC + 0.315 HPALD2OO + 0.165 ICHE + 0.17 MCRHP + 0.165... etc.', & ! index 525
' HPALD3 + OH --> 0.42 PCO + 0.58 ICHE + 0.19 MVKHP + 0.23 MVK + 0.42 CO + OH ', & ! index 526
' HPALD4 + OH --> 0.23 PCO + 0.77 ICHE + 0.09 MCRHP + 0.14 MACR + 0.23 CO + OH ', & ! index 527
' HC5A + OH --> 0.355 CO2 + 0.638 PCO + 0.068 IEPOXBOO + 0.294 IEPOXAOO + 0.158 MCRHP ... etc.', & ! index 528
' ICHE + OH --> 1.5 PCO + 0.5 MGLY + 0.5 HAC + 0.5 CH2O + 1.5 CO + OH ', & ! index 529
' IDC + OH --> PCO + MVKPC + CO + HO2 ', & ! index 530
' RIPA + OH --> 0.005 LVOC + 0.345 IHPOO1 + 0.655 IHPOO3 ', & ! index 531
' RIPA + OH --> 0.005 LVOC + 0.67 IEPOXA + 0.33 IEPOXB + OH ', & ! index 532
' RIPB + OH --> 0.005 LVOC + 0.345 IHPOO2 + 0.655 IHPOO3 ', & ! index 533
' RIPB + OH --> 0.005 LVOC + 0.68 IEPOXA + 0.32 IEPOXB + OH ', & ! index 534
' RIPA + OH --> 0.005 LVOC + 0.25 PCO + 0.125 MVKHP + 0.75 IHOO1 + 0.125 MVK + 0.25 CO... etc.', & ! index 535
' RIPB + OH --> 0.005 LVOC + 0.33 PCO + 0.16 ICHOO + 0.165 MCRHP + 0.51 IHOO4 + 0.165 ... etc.', & ! index 536
' RIPC + OH --> 0.005 LVOC + 0.036 PCO + 0.255 IEPOXD + 0.009 HPALD3 + 0.018 HPETHNL +... etc.', & ! index 537
' RIPD + OH --> 0.005 LVOC + 0.054 PCO + 0.595 IEPOXD + 0.009 HPALD4 + 0.255 IHPOO2 + ... etc.', & ! index 538
' IHPOO1 --> 0.824 IDHPE + 0.176 ICPDH + OH ', & ! index 539
' IHPOO1 + NO --> POx + 0.284 HPETHNL + 0.716 MCRHP + 0.284 HAC + 0.716 CH2O + NO2 + HO2 ' /) ! index up to 540
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_18 = (/ &
' IHPOO1 + NO --> POx + ITHN ', & ! index 541
' IHPOO1 + HO2 --> 0.725 IDHDP + 0.135 HPETHNL + 0.14 MCRHP + 0.135 HAC + 0.14 CH2O + 0.2... etc.', & ! index 542
' IHPOO2 --> 0.452 IDHPE + 0.548 ICPDH + OH ', & ! index 543
' IHPOO2 + NO --> POx + 0.294 ATOOH + 0.706 MVKHP + 0.294 GLYC + 0.706 CH2O + NO2 + HO2 ', & ! index 544
' IHPOO2 + NO --> POx + ITHN ', & ! index 545
' IHPOO2 + HO2 --> 0.725 IDHDP + 0.135 ATOOH + 0.14 MVKHP + 0.135 GLYC + 0.14 CH2O + 0.27... etc.', & ! index 546
' IHPOO3 --> IDHPE ', & ! index 547
' IHPOO3 + NO --> POx + GLYC + HAC + NO2 + OH ', & ! index 548
' IHPOO3 + NO --> POx + ITHN ', & ! index 549
' IHPOO3 + HO2 --> 0.35 IDHDP + 0.65 GLYC + 0.65 HAC + 1.3 OH ', & ! index 550
' IEPOXD + OH --> 0.75 ICHE + 0.25 ICHOO + 0.75 HO2 ', & ! index 551
' IEPOXA + OH --> ICHE + HO2 ', & ! index 552
' IEPOXA + OH --> 0.33 IEPOXBOO + 0.67 IEPOXAOO ', & ! index 553
' IEPOXB + OH --> ICHE + HO2 ', & ! index 554
' IEPOXB + OH --> 0.19 IEPOXBOO + 0.81 IEPOXAOO ', & ! index 555
' IEPOXAOO --> IDCHP + HO2 ', & ! index 556
' IEPOXAOO --> PCO + MVKDH + CO + OH ', & ! index 557
' IEPOXAOO + HO2 --> 0.13 PCO + 0.13 MVKDH + 0.35 ICPDH + 0.52 MGLY + 0.52 GLYC + 0.13 CO +... etc.', & ! index 558
' IEPOXAOO + NO --> POx + 0.2 PCO + 0.2 MVKDH + 0.8 MGLY + 0.8 GLYC + 0.2 CO + NO2 + HO2 ', & ! index 559
' IEPOXAOO + NO --> POx + ITCN ', & ! index 560
' IEPOXBOO --> IDCHP + HO2 ', & ! index 561
' IEPOXBOO --> PCO + MCRDH + CO + OH ', & ! index 562
' IEPOXBOO + NO --> POx + 0.2 PCO + 0.2 MCRDH + 0.8 GLYX + 0.8 HAC + 0.2 CO + NO2 + HO2 ', & ! index 563
' IEPOXBOO + NO --> POx + ITCN ', & ! index 564
' IEPOXBOO + HO2 --> 0.13 PCO + 0.13 MCRDH + 0.35 ICPDH + 0.52 GLYX + 0.52 HAC + 0.13 CO + ... etc.', & ! index 565
' ICHOO + HO2 --> 0.52 PCO + 0.13 MVKHC + 0.35 ICPDH + 0.52 HAC + 0.65 CH2O + 0.52 CO + ... etc.', & ! index 566
' ICHOO + NO --> POx + ITCN ', & ! index 567
' ICHOO + NO --> POx + 0.8 PCO + 0.2 MVKHC + 0.8 HAC + CH2O + 0.8 CO + NO2 + HO2 ', & ! index 568
' ICHOO --> 2 PCO + HAC + 2 CO + HO2 + OH ', & ! index 569
' HPALD1OO + NO --> CO2 + POx + MVK + NO2 + OH ' /) ! index up to 570
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_19 = (/ &
' HPALD1OO + HO2 --> CO2 + MVK + 2 OH ', & ! index 571
' HPALD2OO + NO --> CO2 + POx + MACR + NO2 + OH ', & ! index 572
' HPALD2OO + HO2 --> CO2 + MACR + 2 OH ', & ! index 573
' IHN2 + OH --> ISOPNOO1 ', & ! index 574
' IHN2 + OH --> 0.67 IEPOXA + 0.33 IEPOXB + NO2 ', & ! index 575
' IHN3 + OH --> ISOPNOO2 ', & ! index 576
' IHN3 + OH --> 0.67 IEPOXA + 0.33 IEPOXB + NO2 ', & ! index 577
' IHN1 + OH --> IEPOXD + NO2 ', & ! index 578
' IHN1 + OH --> IDHNDOO1 ', & ! index 579
' IHN4 + OH --> IEPOXD + NO2 ', & ! index 580
' IHN4 + OH --> IDHNDOO2 ', & ! index 581
' IHN1 + OH --> 0.6 PCO + 0.6 MCRHNB + 0.4 ICN + 0.6 CO + 0.4 HO2 + 0.6 OH ', & ! index 582
' IHN4 + OH --> 0.6 PCO + 0.4 ICN + 0.6 MVKN + 0.6 CO + 0.4 HO2 + 0.6 OH ', & ! index 583
' ISOPNOO1 --> ITCN + HO2 ', & ! index 584
' ISOPNOO1 + HO2 --> 0.059 MCRHN + 0.482 ITHN + 0.459 GLYC + 0.459 HAC + 0.059 CH2O + 0.459... etc.', & ! index 585
' ISOPNOO1 + NO --> POx + 0.272 MCRHN + 0.728 GLYC + 0.728 HAC + 0.272 CH2O + 1.728 NO2 + ... etc.', & ! index 586
' ISOPNOO1 + NO --> POx + IDN ', & ! index 587
' ISOPNOO2 --> ITCN + HO2 ', & ! index 588
' ISOPNOO2 + HO2 --> 0.599 MVKN + 0.401 ITHN + 0.599 CH2O + 0.599 HO2 + 0.599 OH ', & ! index 589
' ISOPNOO2 + NO --> POx + MVKN + CH2O + NO2 + HO2 ', & ! index 590
' ISOPNOO2 + NO --> POx + IDN ', & ! index 591
' IDHNDOO1 --> ITCN + HO2 ', & ! index 592
' IDHNDOO2 --> ITCN + HO2 ', & ! index 593
' IDHNDOO1 + HO2 --> 0.031 MCRHNB + 0.551 PROPNN + 0.418 ITHN + 0.551 GLYC + 0.031 CH2O + 0... etc.', & ! index 594
' IDHNDOO1 + NO --> POx + 0.065 MCRHNB + 0.935 PROPNN + 0.935 GLYC + 0.065 CH2O + NO2 + HO2 ', & ! index 595
' IDHNDOO1 + NO --> POx + IDN ', & ! index 596
' IDHNDOO2 + HO2 --> 0.441 ETHLN + 0.065 MVKN + 0.494 ITHN + 0.441 HAC + 0.065 CH2O + 0.506... etc.', & ! index 597
' IDHNDOO2 + NO --> POx + 0.858 ETHLN + 0.142 MVKN + 0.858 HAC + 0.142 CH2O + NO2 + HO2 ', & ! index 598
' IDHNDOO2 + NO --> POx + IDN ', & ! index 599
' IDHNBOO + HO2 --> 0.094 MCRHNB + 0.242 PROPNN + 0.033 ETHLN + 0.01 MVKN + 0.621 ITHN + 0... etc.' /) ! index up to 600
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_20 = (/ &
' IDHNBOO + NO --> POx + 0.355 MCRHNB + 0.546 PROPNN + 0.071 ETHLN + 0.028 MVKN + 0.546 G... etc.', & ! index 601
' IDHNBOO + NO --> POx + IDN ', & ! index 602
' ISOP + NO3 --> LISOPNO3 + LOx + 0.465 INO2B + 0.535 INO2D ', & ! index 603
' INO2B + HO2 --> 0.473 INPB + 0.048 MACR + 0.479 MVK + 0.527 CH2O + 0.527 NO2 + 0.527 OH ', & ! index 604
' INO2D + HO2 --> INPD ', & ! index 605
' 2 INO2B --> 0.07 INPB + 0.07 ICN + 0.123 MACR + 1.737 MVK + 1.86 CH2O + 1.86 NO2 ', & ! index 606
' INO2B + INO2D --> 0.474 INA + 0.399 INPB + 0.032 IHN1 + 0.532 ICN + 0.019 MACR + 0.544 M... etc.', & ! index 607
' 2 INO2D --> 0.34 INA + 0.127 IHN4 + 0.671 IHN1 + 0.862 ICN + 0.064 HO2 ', & ! index 608
' INO2D + MO2 --> 0.244 INA + 0.057 IHN4 + 0.298 IHN1 + 0.355 MOH + 0.401 ICN + 0.645 CH... etc.', & ! index 609
' INO2B + MO2 --> 0.355 INPB + 0.034 MOH + 0.034 ICN + 0.028 MACR + 0.583 MVK + 1.577 CH... etc.', & ! index 610
' INO2B + MCO3 --> CO2 + 0.097 MACR + 0.903 MVK + CH2O + MO2 + NO2 ', & ! index 611
' INO2D + MCO3 --> CO2 + 0.841 INA + 0.159 ICN + MO2 + 0.159 HO2 ', & ! index 612
' INO2B + NO3 --> LOx + 0.097 MACR + 0.903 MVK + CH2O + 2 NO2 ', & ! index 613
' INO2D + NO3 --> LOx + 0.841 INA + 0.159 ICN + NO2 + 0.159 HO2 ', & ! index 614
' INO2B + NO --> POx + 0.096 MACR + 0.904 MVK + CH2O + 2 NO2 ', & ! index 615
' INO2B + NO --> POx + IDN ', & ! index 616
' INO2D + NO --> POx + 0.841 INA + 0.159 ICN + NO2 + 0.159 HO2 ', & ! index 617
' INO2D + NO --> POx + IDN ', & ! index 618
' INA + O2 --> ICN + HO2 ', & ! index 619
' INA --> IDHNBOO ', & ! index 620
' INPB + OH --> 0.67 IHPNBOO + 0.33 IDHNBOO ', & ! index 621
' INPD + OH --> IHPNDOO ', & ! index 622
' INPB + OH --> ITHN + OH ', & ! index 623
' INPD + OH --> ITHN + OH ', & ! index 624
' INPD + OH --> ICHE + NO2 ', & ! index 625
' INPB + OH --> INO2B ', & ! index 626
' INPD + OH --> INO2D ', & ! index 627
' INPD + OH --> ICN + OH ', & ! index 628
' IHPNDOO --> ITCN + OH ', & ! index 629
' IHPNBOO --> 0.5 ITCN + 0.5 ITHN + OH ' /) ! index up to 630
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_21 = (/ &
' IHPNBOO + HO2 --> 0.249 HPETHNL + 0.06 MCRHNB + 0.009 ATOOH + 0.589 PROPNN + 0.051 ETHLN... etc.', & ! index 631
' IHPNDOO + HO2 --> 0.471 HPETHNL + 0.073 MCRHNB + 0.054 ATOOH + 0.471 PROPNN + 0.054 ETHL... etc.', & ! index 632
' IHPNBOO + NO --> POx + 0.303 HPETHNL + 0.17 MCRHNB + 0.013 ATOOH + 0.687 PROPNN + 0.064... etc.', & ! index 633
' IHPNBOO + NO --> POx + IDN ', & ! index 634
' IHPNDOO + NO --> POx + 0.59 HPETHNL + 0.291 MCRHNB + 0.07 ATOOH + 0.59 PROPNN + 0.07 ET... etc.', & ! index 635
' IHPNDOO + NO --> POx + IDN ', & ! index 636
' ICN + OH --> ICHE + NO2 ', & ! index 637
' ICN + OH --> 0.539 PCO + 0.461 ICNOO + 0.378 MCRHNB + 0.161 MVKN + 0.539 CO + 0.295... etc.', & ! index 638
' ICNOO + NO --> 0.429 CO2 + POx + 0.33 PCO + 0.67 ICNOO + 0.231 PROPNN + 0.099 ETHLN +... etc.', & ! index 639
' ICNOO + HO2 --> 0.429 CO2 + 0.33 PCO + 0.67 ICNOO + 0.231 PROPNN + 0.099 ETHLN + 0.33 ... etc.', & ! index 640
' IDN + OH --> 0.435 IDNOO + 0.565 ITHN + 0.565 NO2 ', & ! index 641
' IDNOO + NO --> POx + PROPNN + 0.89 ETHLN + 0.11 GLYC + 1.11 NO2 + 0.89 HO2 ', & ! index 642
' IDNOO + HO2 --> 0.82 PROPNN + 0.73 ETHLN + 0.18 IDN + 0.09 GLYC + 0.09 NO2 + 0.73 HO2 ... etc.', & ! index 643
' MVK + OH --> MVKOHOO ', & ! index 644
' MVK + O3 --> LOx + 0.28 PCO + 0.045 PH2O2 + 0.075 PYAC + 0.045 H2O2 + 0.545 MGLY + ... etc.', & ! index 645
' MACR + OH --> 0.036 PCO + 0.036 ATOOH + 0.964 MCROHOO + 0.036 CO + 0.036 HO2 ', & ! index 646
' MACR + OH --> MACR1OO ', & ! index 647
' MACR + O3 --> LOx + 0.12 PCO + 0.88 MGLY + 0.88 CH2OO + 0.12 MCO3 + 0.12 CH2O + 0.12... etc.', & ! index 648
' MACR + NO3 --> LOx + 0.68 PCO + 0.68 PROPNN + 0.32 MACR1OO + 0.32 HNO3 + 0.68 CO + 0.68 OH ', & ! index 649
' MVKN + OH --> 0.69 POx + 0.241 PYAC + 0.29 MVKHCB + 0.449 HCOOH + 0.449 MGLY + 0.04 ... etc.', & ! index 650
' MVKHP + OH --> 0.53 MVKHC + 0.47 MVKHCB + OH ', & ! index 651
' MCRHP + OH --> 0.23 CO2 + 0.77 PCO + 0.23 ATOOH + 0.77 HAC + 0.77 CO + OH ', & ! index 652
' MCRHN + OH --> MACRNO2 ', & ! index 653
' MCRHNB + OH --> 0.75 CO2 + 0.25 PCO + PROPNN + 0.25 CO + OH ', & ! index 654
' C4HVP1 + NO --> POx + MVKOHOO + NO2 ', & ! index 655
' C4HVP1 + HO2 --> MVKOHOO + OH ', & ! index 656
' C4HVP1 + NO2 --> MVKN ', & ! index 657
' C4HVP2 + NO --> POx + MCROHOO + NO2 ', & ! index 658
' C4HVP2 + HO2 --> MCROHOO + OH ', & ! index 659
' C4HVP2 + NO2 --> MCRHN ' /) ! index up to 660
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_22 = (/ &
' MCRENOL + OH --> 0.097 CO2 + 0.75 PCO + 0.653 PYAC + 0.063 MVKHCB + 0.187 HCOOH + 0.187... etc.', & ! index 661
' MVKPC + OH --> PCO + MGLY + CO + OH ', & ! index 662
' MVKDH + OH --> 0.6 MVKHC + 0.4 MVKHCB + HO2 ', & ! index 663
' MVKHCB + OH --> PCO + MGLY + CO + OH ', & ! index 664
' MVKHC + OH --> 2 PCO + MCO3 + 2 CO + HO2 ', & ! index 665
' MCRDH + OH --> 0.84 PCO + 0.16 MVKHCB + 0.84 HAC + 0.84 CO + HO2 ', & ! index 666
' MVKOHOO + HO2 --> 0.255 MVKHC + 0.335 MVKHP + 0.05 MGLY + 0.36 GLYC + 0.36 MCO3 + 0.05 C... etc.', & ! index 667
' MVKOHOO + NO --> POx + 0.242 MGLY + 0.758 GLYC + 0.758 MCO3 + 0.242 CH2O + NO2 + 0.242 HO2 ', & ! index 668
' MVKOHOO + NO --> POx + MVKN ', & ! index 669
' MCROHOO + HO2 --> 0.507 PCO + 0.41 MCRHP + 0.083 MGLY + 0.507 HAC + 0.083 CH2O + 0.507 C... etc.', & ! index 670
' MACR1OO + HO2 --> 0.5 CO2 + 0.13 POx + 0.325 PCO + 0.5 MACR1OOH + 0.175 MCO3 + 0.5 CH2O ... etc.', & ! index 671
' MACR1OOH + OH --> 0.41 CO2 + 0.488 PCO + 0.098 HMML + 0.165 MACR1OO + 0.488 HAC + 0.087 ... etc.', & ! index 672
' MCROHOO --> PCO + HAC + CO + OH ', & ! index 673
' MCROHOO + NO --> POx + 0.86 PCO + 0.14 MGLY + 0.86 HAC + 0.14 CH2O + 0.86 CO + NO2 + 0.86 HO2 ', & ! index 674
' MCROHOO + NO --> POx + MCRHN ', & ! index 675
' MACR1OO + NO --> CO2 + POx + 0.65 PCO + 0.35 MCO3 + CH2O + 0.65 MO2 + 0.65 CO + NO2 ', & ! index 676
' MACR1OO + NO2 --> MPAN ', & ! index 677
' MACRNO2 + HO2 --> 0.5 CO2 + 0.13 POx + 0.13 MCRHNB + 0.37 MCRHN + 0.5 HAC + 0.5 NO2 + 0.... etc.', & ! index 678
' MACRNO2 + NO --> CO2 + POx + HAC + 2 NO2 ', & ! index 679
' MACRNO2 + NO2 --> MPAN + NO2 ', & ! index 680
' MACRNO2 + NO3 --> CO2 + LOx + HAC + 2 NO2 ', & ! index 681
' MACRNO2 + MO2 --> 0.7 CO2 + 0.3 MCRHNB + 0.7 HAC + CH2O + 0.7 NO2 + 0.7 HO2 ', & ! index 682
' MPAN --> MACR1OO + NO2 ', & ! index 683
' MPAN + OH --> POx + 0.25 PCO + 0.75 HMML + 0.25 HAC + 0.25 CO + NO3 ', & ! index 684
' HMML + OH --> PCO + 0.3 HCOOH + 0.7 MGLY + 0.3 MCO3 + CO + 0.7 OH ', & ! index 685
' ICPDH + OH --> PCO + 0.35 MVKDH + 0.15 MCRDH + 0.5 MCRHP + CO + 0.5 HO2 + 0.5 OH ', & ! index 686
' IDCHP + OH --> 0.888 PCO + 0.444 MVKPC + 0.318 MVKHC + 0.126 MVKHCB + 0.032 IEPOXBOO ... etc.', & ! index 687
' IDHDP + OH --> 0.667 IDHPE + 0.333 ICPDH + OH ', & ! index 688
' IDHPE + OH --> CO2 + 0.571 MCRHP + 0.429 MVKHP + OH ', & ! index 689
' ITCN + OH --> PCO + 0.25 MCRHP + 0.75 MVKHP + CO + NO2 ' /) ! index up to 690
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_23 = (/ &
' ITHN + OH --> 0.041 ICNOO + 0.022 MCRENOL + 0.9 ITCN + 0.037 IDHNBOO + 0.022 CH2O + ... etc.', & ! index 691
' ETHLN + NO3 --> LOx + MCO3 + HNO3 + NO2 ', & ! index 692
' PYAC + OH --> CO2 + MCO3 ', & ! index 693
' HMHP + OH --> 0.5 HCOOH + 0.5 CH2O + 0.5 HO2 + 0.5 OH ', & ! index 694
' MCO3 + HO2 --> 0.5 CO2 + 0.13 POx + 0.37 MAP + 0.13 ACTA + 0.5 MO2 + 0.13 O3 + 0.5 OH ', & ! index 695
' HPETHNL + OH --> PCO + CH2O + CO + OH ', & ! index 696
' HPETHNL + OH --> GLYX + OH ', & ! index 697
' NAP + OH --> NRO2 + OH ', & ! index 698
' NRO2 + HO2 --> LNRO2H + HO2 ', & ! index 699
' NRO2 + NO --> LNRO2N + NO ', & ! index 700
' RCOOH + OH --> CO2 + ETO2 + H2O ', & ! index 701
' STYR + OH --> 0.3 ZRO2 + 0.7 BALD + 0.7 AROMRO2 + CH2O + 0.7 HO2 ', & ! index 702
' STYR + NO3 --> LOx + BALD + AROMRO2 + CH2O + NO2 ', & ! index 703
' STYR + O3 --> LOx + 0.18 PCO + 0.1 BENZ + 0.62 BALD + 0.28 BENZO2 + 0.5 CH2OO + 0.5 ... etc.', & ! index 704
' EBZ + OH --> 0.18 CSL + 0.07 ZRO2 + 0.4 AROMP5 + 0.8 AROMP4 + 0.813 AROMRO2 + 0.25 ... etc.', & ! index 705
' EBZ + NO3 --> LOx + BALD + AROMRO2 + CH2O + HNO3 ', & ! index 706
' TMB + OH --> 0.12 PCO + 0.15 TLFUONE + 0.03 CSL + 0.5 RCOOH + 0.05 ZRO2 + 0.6 AROMP... etc.', & ! index 707
' TMB + NO3 --> LOx + 0.4 AROMP5 + BALD + AROMRO2 + HNO3 ', & ! index 708
' ZRO2 + NO --> 0.89 POx + 0.11 RNO3 + 0.89 BALD + 0.89 NO2 + HO2 ', & ! index 709
' ZRO2 + HO2 --> BALD + OH ', & ! index 710
' RNO3 + OH --> POx + BALD + NO2 + HO2 ', & ! index 711
' C2H4 + O3 --> LOx + CH2OO + CH2O ', & ! index 712
' C2H4 + OH --> ETOO ', & ! index 713
' C2H2 + OH --> 0.364 PCO + 0.364 HCOOH + 0.636 GLYX + 0.364 CO + 0.364 HO2 + 0.636 OH ', & ! index 714
' ETOO + HO2 --> ETHP ', & ! index 715
' ETOO + NO --> 0.995 POx + 0.005 ETHN + 0.995 ETO + 0.995 NO2 ', & ! index 716
' ETOO + NO3 --> LOx + ETO + NO2 ', & ! index 717
' ETOO + MO2 --> 0.6 ETO + 0.2 ETHP + 0.2 MOH + 0.2 GLYC + 0.8 CH2O + 0.6 HO2 ', & ! index 718
' ETO --> 2 CH2O + HO2 ', & ! index 719
' ETO + O2 --> GLYC + HO2 ' /) ! index up to 720
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_24 = (/ &
' ETHN + OH --> POx + GLYC + NO2 ', & ! index 721
' ETHP + OH --> ETOO ', & ! index 722
' ETHP + OH --> GLYC + OH ', & ! index 723
' BENZ + OH --> BRO2 + 0.2 PCO + 0.54 PHEN + 0.55 AROMP4 + 0.46 AROMRO2 + 0.18 GLYX + ... etc.', & ! index 724
' TOLU + OH --> TRO2 + 0.27 PCO + 0.19 CSL + 0.3 AROMP5 + 0.06 BALD + 0.68 AROMP4 + 0.... etc.', & ! index 725
' XYLE + OH --> XRO2 + 0.3 PCO + 0.15 CSL + 0.45 RCOOH + 0.56 AROMP5 + 0.06 BALD + 0.2... etc.', & ! index 726
' AROMRO2 + HO2 --> HO2 + OH ', & ! index 727
' AROMRO2 + NO --> POx + NO2 + HO2 ', & ! index 728
' AROMRO2 + NO3 --> LOx + NO2 + HO2 ', & ! index 729
' AROMRO2 + MO2 --> CH2O + 2 HO2 ', & ! index 730
' AROMRO2 + MCO3 --> CO2 + MO2 + HO2 ', & ! index 731
' TLFUONE + OH --> TLFUO2 ', & ! index 732
' TLFUO2 + NO --> POx + AROMCHO + NO2 + HO2 ', & ! index 733
' TLFUO2 + HO2 --> AROMCHO ', & ! index 734
' AROMCHO + OH --> AROMCO3 ', & ! index 735
' AROMCO3 + NO --> 2 CO2 + POx + RCO3 + NO2 ', & ! index 736
' AROMCO3 + HO2 --> 0.44 CO2 + 0.15 POx + 0.41 RP + 0.15 RCOOH + 0.44 RCO3 + 0.15 O3 + 0.44 OH ', & ! index 737
' AROMCO3 + NO2 --> LOx + AROMPN ', & ! index 738
' AROMPN --> POx + AROMCO3 + NO2 ', & ! index 739
' AROMPN + OH --> POx + 2 PCO + MCO3 + CH2O + 2 CO + NO2 ', & ! index 740
' PHEN + OH --> 0.8 MCT + 0.06 BENZO + 0.18 AROMP4 + 0.14 AROMRO2 + 0.06 GLYX + 0.8 HO2 ', & ! index 741
' PHEN + NO3 --> 1.258 LOx + 0.742 BENZO + 0.258 NPHEN + 0.742 HNO3 ', & ! index 742
' CSL + OH --> 0.44 AROMP5 + 0.727 MCT + 0.073 BENZO + 0.2 AROMRO2 + 0.727 HO2 ', & ! index 743
' CSL + NO3 --> 1.5 LOx + 0.44 AROMP5 + 0.3 BENZO + 0.2 AROMRO2 + 0.5 NPHEN + 0.5 HNO3 ', & ! index 744
' MCT + OH --> 0.3 BENZO + 1.05 AROMP4 + 0.7 AROMRO2 ', & ! index 745
' MCT + O3 --> LOx + AROMP4 + GLYC + HO2 + OH ', & ! index 746
' MCT + NO3 --> 1.5 LOx + 0.3 BENZO + 0.3 AROMP4 + 0.2 AROMRO2 + 0.5 NPHEN + 0.5 HNO3 ', & ! index 747
' BALD + OH --> BZCO3 ', & ! index 748
' BALD + NO3 --> LOx + BZCO3 + HNO3 ', & ! index 749
' BZCO3 + HO2 --> 0.35 CO2 + 0.15 POx + 0.65 BZCO3H + 0.15 BENZP + 0.2 BENZO2 + 0.15 O3 + 0.2 OH' /) ! index up to 750
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_25 = (/ &
' BZCO3 + NO --> CO2 + POx + BENZO2 + NO2 ', & ! index 751
' BZCO3 + NO2 --> LOx + BZPAN ', & ! index 752
' BZCO3H + OH --> BZCO3 ', & ! index 753
' BZPAN --> POx + BZCO3 + NO2 ', & ! index 754
' BZPAN + OH --> CO2 + POx + BENZP + NO2 ', & ! index 755
' BENZO2 + NO2 --> POx + BENZO + NO3 ', & ! index 756
' BENZO2 + NO --> POx + BENZO + NO2 ', & ! index 757
' BENZO2 + NO3 --> LOx + BENZO + NO2 ', & ! index 758
' BENZO2 + HO2 --> BENZP ', & ! index 759
' BENZP + OH --> BENZO2 ', & ! index 760
' BENZO + O3 --> LOx + BENZO2 ', & ! index 761
' BENZO + NO2 --> LOx + NPHEN ', & ! index 762
' NPHEN + OH --> POx + 0.15 PCO + 0.9 AROMP4 + 0.5 R4N1 + 0.15 CO + 0.5 NO2 ', & ! index 763
' NPHEN + NO3 --> 0.15 PCO + 0.9 AROMP4 + 0.5 R4N1 + 0.5 HNO3 + 0.15 CO + NO2 ', & ! index 764
' BENZO2 + MO2 --> BENZO + CH2O + HO2 ', & ! index 765
' BZCO3 + MO2 --> CO2 + BENZO2 + CH2O + HO2 ', & ! index 766
' AROMP4 + OH --> 0.26 PCO + 0.43 RCOOH + 0.26 HCOOH + 0.6 GLYX + 0.33 RCO3 + 0.26 CO + ... etc.', & ! index 767
' AROMP4 + O3 --> LOx + 0.5 PCO + 0.5 HCOOH + 0.6 GLYX + 0.9 GLYC + 0.5 CO + 0.1 HO2 + 0.1 OH ', & ! index 768
' AROMP4 --> 0.2 GLYX + 1.2 RCHO + 0.2 HO2 ', & ! index 769
' AROMP5 + OH --> 0.25 PCO + 0.52 RCOOH + 0.1 HCOOH + 0.15 ACTA + 0.6 MGLY + 0.33 RCO3 +... etc.', & ! index 770
' AROMP5 + O3 --> LOx + 0.5 PCO + 0.2 HCOOH + 0.3 ACTA + 0.6 MGLY + 0.95 GLYC + 0.5 CO +... etc.', & ! index 771
' AROMP5 --> 0.05 PCO + 0.2 MGLY + 1.15 RCHO + 0.2 ALK4O2 + 0.05 CO + 0.2 HO2 ', & ! index 772
' BRO2 + HO2 --> LBRO2H + HO2 ', & ! index 773
' BRO2 + NO --> LBRO2N + NO ', & ! index 774
' TRO2 + HO2 --> LTRO2H + HO2 ', & ! index 775
' TRO2 + NO --> LTRO2N + NO ', & ! index 776
' XRO2 + HO2 --> LXRO2H + HO2 ', & ! index 777
' XRO2 + NO --> LXRO2N + NO ', & ! index 778
' MO2 + NO3 --> LOx + CH2O + NO2 + HO2 ', & ! index 779
' FURA + OH --> BUTDI ' /) ! index up to 780
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_26 = (/ &
' HO2 --> H2O ', & ! index 781
' NO2 --> 0.5 LOx + 0.5 HNO2 + 0.5 HNO3 ', & ! index 782
' NO3 --> LOx + HNO3 ', & ! index 783
' NO3 --> LOx + NIT ', & ! index 784
' NO3 --> LOx + NITs ', & ! index 785
' N2O5 + H2O --> LOx + 2 HNO3 ', & ! index 786
' N2O5 + HCl --> LOx + ClNO2 + HNO3 ', & ! index 787
' N2O5 --> LOx + 2 HNO3 ', & ! index 788
' N2O5 + SALACL --> LOx + ClNO2 + HNO3 ', & ! index 789
' N2O5 + SALCCL --> LOx + ClNO2 + HNO3 ', & ! index 790
' OH + SALACL --> 0.5 Cl2 ', & ! index 791
' SALCCL + OH --> 0.5 Cl2 ', & ! index 792
' BrNO3 + H2O --> HOBr + HNO3 ', & ! index 793
' BrNO3 + HCl --> LOx + BrCl + HNO3 ', & ! index 794
' ClNO3 + H2O --> HNO3 + HOCl ', & ! index 795
' ClNO3 + HCl --> LOx + Cl2 + HNO3 ', & ! index 796
' ClNO3 + HBr --> LOx + BrCl + HNO3 ', & ! index 797
' ClNO3 + BrSALA --> LOx + BrCl + HNO3 ', & ! index 798
' ClNO3 + BrSALC --> LOx + BrCl + HNO3 ', & ! index 799
' ClNO3 + SALACL --> LOx + Cl2 + HNO3 ', & ! index 800
' ClNO3 + SALCCL --> LOx + Cl2 + HNO3 ', & ! index 801
' ClNO2 + SALACL --> LOx + HNO2 + Cl2 ', & ! index 802
' ClNO2 + SALCCL --> LOx + HNO2 + Cl2 ', & ! index 803
' ClNO2 + HCl --> LOx + HNO2 + Cl2 ', & ! index 804
' ClNO2 + BrSALA --> LOx + BrCl + HNO2 ', & ! index 805
' ClNO2 + BrSALC --> LOx + BrCl + HNO2 ', & ! index 806
' ClNO2 + HBr --> LOx + BrCl + HNO2 ', & ! index 807
' HOCl + HCl --> LOx + Cl2 + H2O ', & ! index 808
' HOCl + HBr --> LOx + BrCl + H2O ', & ! index 809
' HOCl + SALACL --> LOx + Cl2 + H2O ' /) ! index up to 810
CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_27 = (/ &
' HOCl + SALCCL --> LOx + Cl2 + H2O ', & ! index 811
' HOCl + SO2 --> LOx + PSO4 + SO4 + HCl ', & ! index 812
' HOBr + HBr --> LOx + Br2 + H2O ', & ! index 813
' HOBr + HCl --> LOx + BrCl + H2O ', & ! index 814
' HOBr + SALACL --> LOx + BrCl + H2O ', & ! index 815