!======================================================================= ! ! $Id: $ ! ! FILE ! setkin_par.h ! 12 JUN 02 - PSC ! ! DESCRIPTION ! This include file sets symbolic constants for the photochemical ! mechanism. ! ! Input mechanism: GeosCCM_Combo_2015mechanism_orig.txt ! Reaction dictionary: GMI_reactions_JPL19.db ! Setkin files generated: Mon May 12 15:44:10 2025 ! !========1=========2=========3=========4=========5=========6=========7== integer & & NSP & & ,NUM_J & & ,NUM_K parameter (NSP = 119) parameter (NUM_J = 81) parameter (NUM_K = 312) !.... Species affiliations and assignments integer & & NACT & & ,NCHEM & & ,NCONST & & ,NFAM & & ,NMF & & ,NSS parameter (NACT = 114) parameter (NCHEM = 118) parameter (NCONST = 4) parameter (NFAM = 2) parameter (NMF = 115) parameter (NSS = 0) !.... Ancillary input tables integer & & nSAD, nSADdust, nSADaer parameter (nSAD = 5) parameter (nSADdust = 7) parameter (nSADaer = 6) !.... Species individual identifications integer IBBC parameter (IBBC = 0) integer IBOC parameter (IBOC = 0) integer IDUST1 parameter (IDUST1 = 0) integer IDUST2 parameter (IDUST2 = 0) integer IDUST3 parameter (IDUST3 = 0) integer IDUST4 parameter (IDUST4 = 0) integer IDUST5 parameter (IDUST5 = 0) integer IFBC parameter (IFBC = 0) integer IFOC parameter (IFOC = 0) integer IFSO2 parameter (IFSO2 = 0) integer IFSO4A parameter (IFSO4A = 0) integer IFSO4D1 parameter (IFSO4D1 = 0) integer IFSO4D2 parameter (IFSO4D2 = 0) integer IFSO4D3 parameter (IFSO4D3 = 0) integer IFSO4D4 parameter (IFSO4D4 = 0) integer IFSO4N1 parameter (IFSO4N1 = 0) integer IFSO4N2 parameter (IFSO4N2 = 0) integer IFSO4N3 parameter (IFSO4N3 = 0) integer IFSO4N4 parameter (IFSO4N4 = 0) integer IFSO4S1 parameter (IFSO4S1 = 0) integer IFSO4S2 parameter (IFSO4S2 = 0) integer IFSO4S3 parameter (IFSO4S3 = 0) integer IFSO4S4 parameter (IFSO4S4 = 0) integer INDMS parameter (INDMS = 0) integer INOC parameter (INOC = 0) integer INSO2 parameter (INSO2 = 0) integer INSO4A parameter (INSO4A = 0) integer INSO4D1 parameter (INSO4D1 = 0) integer INSO4D2 parameter (INSO4D2 = 0) integer INSO4D3 parameter (INSO4D3 = 0) integer INSO4D4 parameter (INSO4D4 = 0) integer INSO4N1 parameter (INSO4N1 = 0) integer INSO4N2 parameter (INSO4N2 = 0) integer INSO4N3 parameter (INSO4N3 = 0) integer INSO4N4 parameter (INSO4N4 = 0) integer INSO4S1 parameter (INSO4S1 = 0) integer INSO4S2 parameter (INSO4S2 = 0) integer INSO4S3 parameter (INSO4S3 = 0) integer INSO4S4 parameter (INSO4S4 = 0) integer ISSLT1 parameter (ISSLT1 = 0) integer ISSLT2 parameter (ISSLT2 = 0) integer ISSLT3 parameter (ISSLT3 = 0) integer ISSLT4 parameter (ISSLT4 = 0) integer INO3An1 parameter (INO3An1 = 0) integer INO3An2 parameter (INO3An2 = 0) integer INO3An3 parameter (INO3An3 = 0) integer INH3 parameter (INH3 = 0) integer INO3A parameter (INO3A = 0) integer INH4A parameter (INH4A = 0) integer Iage parameter (Iage = 0) integer IBe10 parameter (IBe10 = 0) integer IBe10S parameter (IBe10S = 0) integer IBe7 parameter (IBe7 = 0) integer IBe7S parameter (IBe7S = 0) integer ICH3I parameter (ICH3I = 0) integer ICLOCK parameter (ICLOCK = 0) integer Ie90 parameter (Ie90 = 0) integer IfCO2 parameter (IfCO2 = 0) integer ILINOZ parameter (ILINOZ = 0) integer IPb parameter (IPb = 0) integer IPbS parameter (IPbS = 0) integer IRn parameter (IRn = 0) integer ISF6 parameter (ISF6 = 0) integer Istrat_O3 parameter (Istrat_O3 = 0) integer Itm25 parameter (Itm25 = 0) integer Iuniform parameter (Iuniform = 0) integer IN2Ox parameter (IN2Ox = 0) integer ICFCx parameter (ICFCx = 0) integer Ie90n parameter (Ie90n = 0) integer Ie90s parameter (Ie90s = 0) integer Iclock_nh parameter (Iclock_nh = 0) integer Inh_5 parameter (Inh_5 = 0) integer Inh_50 parameter (Inh_50 = 0) integer Inh_50w parameter (Inh_50w = 0) integer Ico_25 parameter (Ico_25 = 0) integer Ico_50 parameter (Ico_50 = 0) integer Ico_50_ea parameter (Ico_50_ea = 0) integer Ico_50_na parameter (Ico_50_na = 0) integer Ico_50_eu parameter (Ico_50_eu = 0) integer Ico_50_sa parameter (Ico_50_sa = 0) integer Ist80_25 parameter (Ist80_25 = 0) integer Iste_mao parameter (Iste_mao = 0) integer Istrat_O3_pvtp parameter (Istrat_O3_pvtp = 0) integer IALD2 parameter (IALD2 = 3) integer IALK4 parameter (IALK4 = 4) integer IBRCL parameter (IBRCL = 8) integer IBRONO2 parameter (IBRONO2 = 10) integer IC2H6 parameter (IC2H6 = 11) integer IC3H8 parameter (IC3H8 = 12) integer ICH2O parameter (ICH2O = 22) integer ICH4 parameter (ICH4 = 26) integer ICL2 parameter (ICL2 = 27) integer ICL2O2 parameter (ICL2O2 = 28) integer ICLO parameter (ICLO = 30) integer ICLONO2 parameter (ICLONO2 = 31) integer ICO parameter (ICO = 32) integer IAH parameter (IAH = 38) integer IH2 parameter (IH2 = 39) integer IH2O2 parameter (IH2O2 = 41) integer IH2O parameter (IH2O = 42) integer IHCL parameter (IHCL = 48) integer IHNO2 parameter (IHNO2 = 50) integer IHNO3 parameter (IHNO3 = 51) integer IHNO4 parameter (IHNO4 = 52) integer IHO2 parameter (IHO2 = 53) integer IHOBR parameter (IHOBR = 54) integer IHOCL parameter (IHOCL = 55) integer IC5H8 parameter (IC5H8 = 63) integer IMACR parameter (IMACR = 65) integer IMCO3 parameter (IMCO3 = 70) integer IMEK parameter (IMEK = 71) integer IMP parameter (IMP = 75) integer IMVK parameter (IMVK = 78) integer IAN parameter (IAN = 79) integer IN2O parameter (IN2O = 80) integer IN2O5 parameter (IN2O5 = 81) integer INO parameter (INO = 82) integer INO2 parameter (INO2 = 83) integer INO3 parameter (INO3 = 84) integer IO3 parameter (IO3 = 87) integer IOCLO parameter (IOCLO = 88) integer IOH parameter (IOH = 90) integer IPMN parameter (IPMN = 92) integer IC3H6 parameter (IC3H6 = 97) integer IR4N2 parameter (IR4N2 = 100) integer IRCHO parameter (IRCHO = 105) integer IC3H6O parameter (IC3H6O = 115) integer IACET parameter (IACET = 115) integer INITROGEN parameter (INITROGEN = 116) integer IOXYGEN parameter (IOXYGEN = 117) integer IHNO3COND parameter (IHNO3COND = 119) integer IMGAS parameter (IMGAS = 118) !.... Additional model-required parameters integer IN2 parameter (IN2 = 116) integer IO2 parameter (IO2 = 117) integer IDEHYD parameter (IDEHYD = 0) integer ISYNOZ parameter (ISYNOZ = 0) integer JBRONO21 parameter (JBRONO21 = 0) integer KHNO31 parameter (KHNO31 = 0) ! --^--