MODULE module_data_mgn2mech !--------------------------------------------------------------- ! This module contains speciation to convert MEGAN emissions ! species to various gas-phase mechanism species ! ! August, 2007 ! ! Serena H. Chung Washington State University ! Tan Sakulyanontvittaya University of Colorado ! Christine Wiedinmyer National Center for Atmospheric Research !--------------------------------------------------------------- !--------------------------------------------------------------- ! provides p_iso, p_par, etc !--------------------------------------------------------------- USE module_state_description !--------------------------------------------------------------- ! provides is_soprene, is_myrcene, etc !--------------------------------------------------------------- USE module_data_megan2 IMPLICIT NONE SAVE !--------------------------------------------------------------- ! for MEGAN species not in the reaction mechanisms !--------------------------------------------------------------- INTEGER, PARAMETER :: non_react = 9999 INTEGER, PARAMETER :: n_megan2cbmz = 173 INTEGER, DIMENSION (n_megan2cbmz) :: p_of_megan2cbmz, p_of_cbmz REAL, DIMENSION (n_megan2cbmz) :: cbmz_per_megan DATA p_of_cbmz / n_megan2cbmz*non_react / INTEGER, PARAMETER :: n_megan2radm2 = 165 INTEGER, DIMENSION (n_megan2radm2) :: p_of_megan2radm2, p_of_radm2 REAL, DIMENSION (n_megan2radm2) :: radm2_per_megan DATA p_of_radm2 / n_megan2radm2*non_react / INTEGER, PARAMETER :: n_megan2racm = 147 INTEGER, DIMENSION (n_megan2racm) :: p_of_megan2racm, p_of_racm REAL, DIMENSION (n_megan2racm) :: racm_per_megan DATA p_of_racm / n_megan2racm*non_react / INTEGER, PARAMETER :: n_megan2racmSOA = 178 INTEGER, DIMENSION (n_megan2racmSOA) :: p_of_megan2racmSOA, p_of_racmSOA REAL, DIMENSION (n_megan2racmSOA) :: racmSOA_per_megan DATA p_of_racmSOA / n_megan2racmSOA*non_react / INTEGER, PARAMETER :: n_megan2mozcart = 142 INTEGER, DIMENSION (n_megan2mozcart) :: p_of_megan2mozcart, p_of_mozcart REAL, DIMENSION (n_megan2mozcart) :: mozcart_per_megan DATA p_of_mozcart / n_megan2mozcart*non_react / INTEGER, PARAMETER :: n_megan2t1_mozc = 122 INTEGER, DIMENSION (n_megan2t1_mozc) :: p_of_megan2t1_mozc, p_of_t1_mozc REAL, DIMENSION (n_megan2t1_mozc) :: t1_mozc_per_megan DATA p_of_t1_mozc / n_megan2t1_mozc*non_react / INTEGER, PARAMETER :: n_megan2mozm = 142 INTEGER, DIMENSION (n_megan2mozm) :: p_of_megan2mozm, p_of_mozm REAL, DIMENSION (n_megan2mozm) :: mozm_per_megan DATA p_of_mozm / n_megan2mozm*non_react / INTEGER, PARAMETER :: n_megan2saprcnov = 138 INTEGER, DIMENSION (n_megan2saprcnov) :: p_of_megan2saprcnov, p_of_saprcnov REAL, DIMENSION (n_megan2saprcnov) :: saprcnov_per_megan DATA p_of_saprcnov / n_megan2saprcnov*non_react / INTEGER, PARAMETER :: n_megan2crimech = 188 INTEGER, DIMENSION (n_megan2crimech) :: p_of_megan2crimech, p_of_crimech REAL, DIMENSION (n_megan2crimech) :: crimech_per_megan DATA p_of_crimech / n_megan2crimech*non_react / INTEGER, PARAMETER :: n_megan2cb05 = 173 INTEGER, DIMENSION (n_megan2cb05) :: p_of_megan2cb05, p_of_cb05 REAL, DIMENSION (n_megan2cb05) :: cb05_per_megan DATA p_of_cb05 / n_megan2cb05*non_react / INTEGER, PARAMETER :: n_megan2cb05vbs = 173 INTEGER, DIMENSION (n_megan2cb05vbs) :: p_of_megan2cb05vbs, p_of_cb05vbs REAL, DIMENSION (n_megan2cb05vbs) :: cb05vbs_per_megan DATA p_of_cb05vbs / n_megan2cb05vbs*non_react / !-------------------------------------------------------------------- ! Some naming convention in denoting MEGAN species ! _a = alpha , _b = beta , _c = cis , _al = allo , ! _g = gamma , _d = delta , _t = trans , _m = methyl , ! _p = para , _o = ortho , _e = ene , _ol = ol , ! met = methyl , 2met= dimethyl , MBO = methylbutenol , ! 2s = disulfide , s = sulfide , OXD = oxide , ACT = acetate , ! PPPP= propenylpropyl , DCTT= decatetraene , ! CCO = acetaldehyde !-------------------------------------------------------------------- CONTAINS SUBROUTINE get_megan2mozcart_table !-------------------------------------------------------------------- ! For MEGAN v2.04 species conversion to MOZCART species ! Based on Tan's MAP_CV2CBMZ.EXT; updated on 08/03/2007 ! based on Rahul A. Zaveri's suggestions. !-------------------------------------------------------------------- !----------------------------------------------------------------------------------------------------------- ! Index of Index of Molar ratio ! MEGAN species MOZCART Species !----------------------------------------------------------------------------------------------------------- p_of_megan2mozcart( 1) = is_isoprene ; p_of_mozcart( 1) = p_isopr ; mozcart_per_megan( 1) = 1. p_of_megan2mozcart( 2) = is_myrcene ; p_of_mozcart( 2) = p_c10h16 ; mozcart_per_megan( 2) = 1. p_of_megan2mozcart( 3) = is_sabinene ; p_of_mozcart( 3) = p_c10h16 ; mozcart_per_megan( 3) = 1. p_of_megan2mozcart( 4) = is_limonene ; p_of_mozcart( 4) = p_c10h16 ; mozcart_per_megan( 4) = 1. p_of_megan2mozcart( 5) = is_carene_3 ; p_of_mozcart( 5) = p_c10h16 ; mozcart_per_megan( 5) = 1. p_of_megan2mozcart( 6) = is_ocimene_t_b ; p_of_mozcart( 6) = p_c10h16 ; mozcart_per_megan( 6) = 1. p_of_megan2mozcart( 7) = is_pinene_b ; p_of_mozcart( 7) = p_c10h16 ; mozcart_per_megan( 7) = 1. p_of_megan2mozcart( 8) = is_pinene_a ; p_of_mozcart( 8) = p_c10h16 ; mozcart_per_megan( 8) = 1. p_of_megan2mozcart( 9) = is_2met_styrene ; p_of_mozcart( 9) = p_c10h16 ; mozcart_per_megan( 9) = 1. p_of_megan2mozcart( 10) = is_cymene_p ; p_of_mozcart( 10) = p_tol ; mozcart_per_megan( 10) = 1.5 p_of_megan2mozcart( 11) = is_cymene_o ; p_of_mozcart( 11) = p_tol ; mozcart_per_megan( 11) = 1.5 p_of_megan2mozcart( 12) = is_phellandrene_a ; p_of_mozcart( 12) = p_c10h16 ; mozcart_per_megan( 12) = 1. p_of_megan2mozcart( 13) = is_thujene_a ; p_of_mozcart( 13) = p_c10h16 ; mozcart_per_megan( 13) = 1. p_of_megan2mozcart( 14) = is_terpinene_a ; p_of_mozcart( 14) = p_c10h16 ; mozcart_per_megan( 14) = 1. p_of_megan2mozcart( 15) = is_terpinene_g ; p_of_mozcart( 15) = p_c10h16 ; mozcart_per_megan( 15) = 1. p_of_megan2mozcart( 16) = is_terpinolene ; p_of_mozcart( 16) = p_c10h16 ; mozcart_per_megan( 16) = 1. p_of_megan2mozcart( 17) = is_phellandrene_b ; p_of_mozcart( 17) = p_c10h16 ; mozcart_per_megan( 17) = 1. p_of_megan2mozcart( 18) = is_camphene ; p_of_mozcart( 18) = p_c10h16 ; mozcart_per_megan( 18) = 1. p_of_megan2mozcart( 19) = is_bornene ; p_of_mozcart( 19) = p_c10h16 ; mozcart_per_megan( 19) = 1. p_of_megan2mozcart( 20) = is_fenchene_a ; p_of_mozcart( 20) = p_c10h16 ; mozcart_per_megan( 20) = 1. p_of_megan2mozcart( 21) = is_ocimene_al ; p_of_mozcart( 21) = p_c10h16 ; mozcart_per_megan( 21) = 1. p_of_megan2mozcart( 22) = is_ocimene_c_b ; p_of_mozcart( 22) = p_c10h16 ; mozcart_per_megan( 22) = 1. p_of_megan2mozcart( 23) = is_tricyclene ; p_of_mozcart( 23) = p_c10h16 ; mozcart_per_megan( 23) = 1. p_of_megan2mozcart( 24) = is_estragole ; p_of_mozcart( 24) = p_c10h16 ; mozcart_per_megan( 24) = 1. p_of_megan2mozcart( 25) = is_camphor ; p_of_mozcart( 25) = p_bigalk ; mozcart_per_megan( 25) = 2. p_of_megan2mozcart( 26) = is_fenchone ; p_of_mozcart( 26) = p_bigalk ; mozcart_per_megan( 26) = 2. p_of_megan2mozcart( 27) = is_piperitone ; p_of_mozcart( 27) = p_c10h16 ; mozcart_per_megan( 27) = 1. p_of_megan2mozcart( 28) = is_thujone_a ; p_of_mozcart( 28) = p_bigalk ; mozcart_per_megan( 28) = 2. p_of_megan2mozcart( 29) = is_thujone_b ; p_of_mozcart( 29) = p_bigalk ; mozcart_per_megan( 29) = 2. p_of_megan2mozcart( 30) = is_cineole_1_8 ; p_of_mozcart( 30) = p_bigalk ; mozcart_per_megan( 30) = 2. p_of_megan2mozcart( 31) = is_borneol ; p_of_mozcart( 31) = p_bigalk ; mozcart_per_megan( 31) = 2. p_of_megan2mozcart( 32) = is_linalool ; p_of_mozcart( 32) = p_c10h16 ; mozcart_per_megan( 32) = 1. p_of_megan2mozcart( 33) = is_terpineol_4 ; p_of_mozcart( 33) = p_c10h16 ; mozcart_per_megan( 33) = 1. p_of_megan2mozcart( 34) = is_terpineol_a ; p_of_mozcart( 34) = p_c10h16 ; mozcart_per_megan( 34) = 1. p_of_megan2mozcart( 35) = is_linalool_oxd_c ; p_of_mozcart( 35) = p_c10h16 ; mozcart_per_megan( 35) = 1.25 p_of_megan2mozcart( 36) = is_linalool_oxd_t ; p_of_mozcart( 36) = p_c10h16 ; mozcart_per_megan( 36) = 1.25 p_of_megan2mozcart( 37) = is_ionone_b ; p_of_mozcart( 37) = p_c10h16 ; mozcart_per_megan( 37) = 1.4 p_of_megan2mozcart( 38) = is_bornyl_act ; p_of_mozcart( 38) = p_bigalk ; mozcart_per_megan( 38) = 2.7 p_of_megan2mozcart( 39) = is_farnescene_a ; p_of_mozcart( 39) = p_c10h16 ; mozcart_per_megan( 39) = 1.5 p_of_megan2mozcart( 40) = is_caryophyllene_b ; p_of_mozcart( 40) = p_c10h16 ; mozcart_per_megan( 40) = 1.5 p_of_megan2mozcart( 41) = is_acoradiene ; p_of_mozcart( 41) = p_c10h16 ; mozcart_per_megan( 41) = 1.5 p_of_megan2mozcart( 42) = is_aromadendrene ; p_of_mozcart( 42) = p_c10h16 ; mozcart_per_megan( 42) = 1.5 p_of_megan2mozcart( 43) = is_bergamotene_a ; p_of_mozcart( 43) = p_c10h16 ; mozcart_per_megan( 43) = 1.5 p_of_megan2mozcart( 44) = is_bergamotene_b ; p_of_mozcart( 44) = p_c10h16 ; mozcart_per_megan( 44) = 1.5 p_of_megan2mozcart( 45) = is_bisabolene_a ; p_of_mozcart( 45) = p_c10h16 ; mozcart_per_megan( 45) = 1.5 p_of_megan2mozcart( 46) = is_bisabolene_b ; p_of_mozcart( 46) = p_c10h16 ; mozcart_per_megan( 46) = 1.5 p_of_megan2mozcart( 47) = is_bourbonene_b ; p_of_mozcart( 47) = p_c10h16 ; mozcart_per_megan( 47) = 1.5 p_of_megan2mozcart( 48) = is_cadinene_d ; p_of_mozcart( 48) = p_c10h16 ; mozcart_per_megan( 48) = 1.5 p_of_megan2mozcart( 49) = is_cadinene_g ; p_of_mozcart( 49) = p_c10h16 ; mozcart_per_megan( 49) = 1.5 p_of_megan2mozcart( 50) = is_cedrene_a ; p_of_mozcart( 50) = p_c10h16 ; mozcart_per_megan( 50) = 1.5 p_of_megan2mozcart( 51) = is_copaene_a ; p_of_mozcart( 51) = p_c10h16 ; mozcart_per_megan( 51) = 1.5 p_of_megan2mozcart( 52) = is_cubebene_a ; p_of_mozcart( 52) = p_c10h16 ; mozcart_per_megan( 52) = 1.5 p_of_megan2mozcart( 53) = is_cubebene_b ; p_of_mozcart( 53) = p_c10h16 ; mozcart_per_megan( 53) = 1.5 p_of_megan2mozcart( 54) = is_elemene_b ; p_of_mozcart( 54) = p_c10h16 ; mozcart_per_megan( 54) = 1.5 p_of_megan2mozcart( 55) = is_farnescene_b ; p_of_mozcart( 55) = p_c10h16 ; mozcart_per_megan( 55) = 1.5 p_of_megan2mozcart( 56) = is_germacrene_B ; p_of_mozcart( 56) = p_c10h16 ; mozcart_per_megan( 56) = 1.5 p_of_megan2mozcart( 57) = is_germacrene_D ; p_of_mozcart( 57) = p_c10h16 ; mozcart_per_megan( 57) = 1.5 p_of_megan2mozcart( 58) = is_gurjunene_b ; p_of_mozcart( 58) = p_c10h16 ; mozcart_per_megan( 58) = 1.5 p_of_megan2mozcart( 59) = is_humulene_a ; p_of_mozcart( 59) = p_c10h16 ; mozcart_per_megan( 59) = 1.5 p_of_megan2mozcart( 60) = is_humulene_g ; p_of_mozcart( 60) = p_c10h16 ; mozcart_per_megan( 60) = 1.5 p_of_megan2mozcart( 61) = is_isolongifolene ; p_of_mozcart( 61) = p_c10h16 ; mozcart_per_megan( 61) = 1.5 p_of_megan2mozcart( 62) = is_longifolene ; p_of_mozcart( 62) = p_c10h16 ; mozcart_per_megan( 62) = 1.5 p_of_megan2mozcart( 63) = is_longipinene ; p_of_mozcart( 63) = p_c10h16 ; mozcart_per_megan( 63) = 1.5 p_of_megan2mozcart( 64) = is_muurolene_a ; p_of_mozcart( 64) = p_c10h16 ; mozcart_per_megan( 64) = 1.5 p_of_megan2mozcart( 65) = is_muurolene_g ; p_of_mozcart( 65) = p_c10h16 ; mozcart_per_megan( 65) = 1.5 p_of_megan2mozcart( 66) = is_selinene_b ; p_of_mozcart( 66) = p_c10h16 ; mozcart_per_megan( 66) = 1.5 p_of_megan2mozcart( 67) = is_selinene_d ; p_of_mozcart( 67) = p_c10h16 ; mozcart_per_megan( 67) = 1.5 p_of_megan2mozcart( 68) = is_nerolidol_c ; p_of_mozcart( 68) = p_c10h16 ; mozcart_per_megan( 68) = 1.5 p_of_megan2mozcart( 69) = is_nerolidol_t ; p_of_mozcart( 69) = p_c10h16 ; mozcart_per_megan( 69) = 1.5 p_of_megan2mozcart( 70) = is_cedrol ; p_of_mozcart( 70) = p_bigalk ; mozcart_per_megan( 70) = 3. p_of_megan2mozcart( 71) = is_mbo_2m3e2ol ; p_of_mozcart( 71) = p_isopr ; mozcart_per_megan( 71) = 2.4 p_of_megan2mozcart( 72) = is_methanol ; p_of_mozcart( 72) = p_ch3oh ; mozcart_per_megan( 72) = 1. p_of_megan2mozcart( 73) = is_acetone ; p_of_mozcart( 73) = p_acet ; mozcart_per_megan( 73) = 1. p_of_megan2mozcart( 74) = is_methane ; p_of_mozcart( 74) = non_react ; mozcart_per_megan( 74) = 1. p_of_megan2mozcart( 75) = is_ammonia ; p_of_mozcart( 75) = p_nh3 ; mozcart_per_megan( 75) = 1. p_of_megan2mozcart( 76) = is_nitrous_oxd ; p_of_mozcart( 76) = non_react ; mozcart_per_megan( 76) = 1. p_of_megan2mozcart( 77) = is_nitric_oxd ; p_of_mozcart( 77) = p_no ; mozcart_per_megan( 77) = 1. p_of_megan2mozcart( 78) = is_acetaldehyde ; p_of_mozcart( 78) = p_ald ; mozcart_per_megan( 78) = 1. p_of_megan2mozcart( 79) = is_ethanol ; p_of_mozcart( 79) = p_c2h5oh ; mozcart_per_megan( 79) = 1. p_of_megan2mozcart( 80) = is_formic_acid ; p_of_mozcart( 80) = non_react ; mozcart_per_megan( 80) = 1. p_of_megan2mozcart( 81) = is_formaldehyde ; p_of_mozcart( 81) = p_hcho ; mozcart_per_megan( 81) = 1. p_of_megan2mozcart( 82) = is_acetic_acid ; p_of_mozcart( 82) = p_ch3cooh ; mozcart_per_megan( 82) = 1. p_of_megan2mozcart( 83) = is_mbo_3m2e1ol ; p_of_mozcart( 83) = p_isopr ; mozcart_per_megan( 83) = 1.25 p_of_megan2mozcart( 84) = is_benzaldehyde ; p_of_mozcart( 84) = p_tol ; mozcart_per_megan( 84) = 1.1 p_of_megan2mozcart( 85) = is_butanone_2 ; p_of_mozcart( 85) = p_mek ; mozcart_per_megan( 85) = 1. p_of_megan2mozcart( 86) = is_decanal ; p_of_mozcart( 86) = p_bigalk ; mozcart_per_megan( 86) = 3. p_of_megan2mozcart( 87) = is_dodecene_1 ; p_of_mozcart( 87) = p_bigene ; mozcart_per_megan( 87) = 2.25 p_of_megan2mozcart( 88) = is_geranyl_acetone ; p_of_mozcart( 88) = p_c10h16 ; mozcart_per_megan( 88) = 1.4 p_of_megan2mozcart( 89) = is_heptanal ; p_of_mozcart( 89) = p_bigalk ; mozcart_per_megan( 89) = 2. p_of_megan2mozcart( 90) = is_heptane ; p_of_mozcart( 90) = p_bigalk ; mozcart_per_megan( 90) = 2. p_of_megan2mozcart( 91) = is_hexane ; p_of_mozcart( 91) = p_bigalk ; mozcart_per_megan( 91) = 1.5 p_of_megan2mozcart( 92) = is_met_benzoate ; p_of_mozcart( 92) = p_tol ; mozcart_per_megan( 92) = 1.5 p_of_megan2mozcart( 93) = is_met_heptenone ; p_of_mozcart( 93) = p_bigene ; mozcart_per_megan( 93) = 1.75 p_of_megan2mozcart( 94) = is_neryl_acetone ; p_of_mozcart( 94) = p_bigene ; mozcart_per_megan( 94) = 2.7 p_of_megan2mozcart( 95) = is_nonanal ; p_of_mozcart( 95) = p_bigalk ; mozcart_per_megan( 95) = 2.5 p_of_megan2mozcart( 96) = is_nonenal ; p_of_mozcart( 96) = p_bigene ; mozcart_per_megan( 96) = 2. p_of_megan2mozcart( 97) = is_octanal ; p_of_mozcart( 97) = p_bigalk ; mozcart_per_megan( 97) = 2.3 p_of_megan2mozcart( 98) = is_octanol ; p_of_mozcart( 98) = p_bigalk ; mozcart_per_megan( 98) = 2.3 p_of_megan2mozcart( 99) = is_octenol_1e3ol ; p_of_mozcart( 99) = p_bigene ; mozcart_per_megan( 99) = 1.7 p_of_megan2mozcart(100) = is_oxopentanal ; p_of_mozcart(100) = p_mek ; mozcart_per_megan(100) = 1.4 p_of_megan2mozcart(101) = is_pentane ; p_of_mozcart(101) = p_bigalk ; mozcart_per_megan(101) = 1.25 p_of_megan2mozcart(102) = is_phenyl_cco ; p_of_mozcart(102) = p_tol ; mozcart_per_megan(102) = 1.3 p_of_megan2mozcart(103) = is_pyruvic_acid ; p_of_mozcart(103) = non_react ; mozcart_per_megan(103) = 1. p_of_megan2mozcart(104) = is_terpinyl_act_a ; p_of_mozcart(104) = p_c10h16 ; mozcart_per_megan(104) = 1.4 p_of_megan2mozcart(105) = is_tetradecene_1 ; p_of_mozcart(105) = p_bigene ; mozcart_per_megan(105) = 3.5 p_of_megan2mozcart(106) = is_toluene ; p_of_mozcart(106) = p_tol ; mozcart_per_megan(106) = 1. p_of_megan2mozcart(107) = is_carbon_monoxide ; p_of_mozcart(107) = p_co ; mozcart_per_megan(107) = 1. p_of_megan2mozcart(108) = is_butene ; p_of_mozcart(108) = p_bigene ; mozcart_per_megan(108) = .8 p_of_megan2mozcart(109) = is_ethane ; p_of_mozcart(109) = p_c2h6 ; mozcart_per_megan(109) = 1. p_of_megan2mozcart(110) = is_ethene ; p_of_mozcart(110) = p_c2h4 ; mozcart_per_megan(110) = 1. p_of_megan2mozcart(111) = is_hydrogen_cyanide ; p_of_mozcart(111) = non_react ; mozcart_per_megan(111) = 1. p_of_megan2mozcart(112) = is_propane ; p_of_mozcart(112) = p_c3h8 ; mozcart_per_megan(112) = 1. p_of_megan2mozcart(113) = is_propene ; p_of_mozcart(113) = p_c3h6 ; mozcart_per_megan(113) = 1. p_of_megan2mozcart(114) = is_carbon_2s ; p_of_mozcart(114) = non_react ; mozcart_per_megan(114) = 1. p_of_megan2mozcart(115) = is_carbonyl_s ; p_of_mozcart(115) = non_react ; mozcart_per_megan(115) = 1. p_of_megan2mozcart(116) = is_diallyl_2s ; p_of_mozcart(116) = p_bigene ; mozcart_per_megan(116) = .66 p_of_megan2mozcart(117) = is_diallyl_2s ; p_of_mozcart(117) = p_so2 ; mozcart_per_megan(117) = 1.53 p_of_megan2mozcart(118) = is_2met_2s ; p_of_mozcart(118) = p_c2h6 ; mozcart_per_megan(118) = 1. p_of_megan2mozcart(119) = is_2met_2s ; p_of_mozcart(119) = p_so2 ; mozcart_per_megan(119) = 1. p_of_megan2mozcart(120) = is_met_chloride ; p_of_mozcart(120) = non_react ; mozcart_per_megan(120) = 1. p_of_megan2mozcart(121) = is_met_bromide ; p_of_mozcart(121) = non_react ; mozcart_per_megan(121) = 1. p_of_megan2mozcart(122) = is_met_iodide ; p_of_mozcart(122) = non_react ; mozcart_per_megan(122) = 1. p_of_megan2mozcart(123) = is_hydrogen_s ; p_of_mozcart(123) = p_so2 ; mozcart_per_megan(123) = .5 p_of_megan2mozcart(124) = is_met_mercaptan ; p_of_mozcart(124) = p_so2 ; mozcart_per_megan(124) = .75 p_of_megan2mozcart(125) = is_met_propenyl_2s ; p_of_mozcart(125) = p_c3h6 ; mozcart_per_megan(125) = 2.8 p_of_megan2mozcart(126) = is_met_propenyl_2s ; p_of_mozcart(126) = p_so2 ; mozcart_per_megan(126) = 1.8 p_of_megan2mozcart(127) = is_pppp_2s ; p_of_mozcart(127) = p_c3h6 ; mozcart_per_megan(127) = 3.5 p_of_megan2mozcart(128) = is_pppp_2s ; p_of_mozcart(128) = p_so2 ; mozcart_per_megan(128) = 2.3 p_of_megan2mozcart(129) = is_2met_nonatriene ; p_of_mozcart(129) = p_c10h16 ; mozcart_per_megan(129) = 1.1 p_of_megan2mozcart(130) = is_met_salicylate ; p_of_mozcart(130) = p_tol ; mozcart_per_megan(130) = 1.6 p_of_megan2mozcart(131) = is_indole ; p_of_mozcart(131) = non_react ; mozcart_per_megan(131) = 1. p_of_megan2mozcart(132) = is_jasmone ; p_of_mozcart(132) = p_c10h16 ; mozcart_per_megan(132) = 1.2 p_of_megan2mozcart(133) = is_met_jasmonate ; p_of_mozcart(133) = p_c10h16 ; mozcart_per_megan(133) = 1.6 p_of_megan2mozcart(134) = is_3met_3dctt ; p_of_mozcart(134) = p_bigene ; mozcart_per_megan(134) = 3. p_of_megan2mozcart(135) = is_hexanal ; p_of_mozcart(135) = p_bigalk ; mozcart_per_megan(135) = 1.8 p_of_megan2mozcart(136) = is_hexanol_1 ; p_of_mozcart(136) = p_bigalk ; mozcart_per_megan(136) = 1.8 p_of_megan2mozcart(137) = is_hexenal_c3 ; p_of_mozcart(137) = p_bigene ; mozcart_per_megan(137) = 1.4 p_of_megan2mozcart(138) = is_hexenal_t2 ; p_of_mozcart(138) = p_bigene ; mozcart_per_megan(138) = 1.4 p_of_megan2mozcart(139) = is_hexenol_c3 ; p_of_mozcart(139) = p_bigene ; mozcart_per_megan(139) = 1.4 p_of_megan2mozcart(140) = is_hexenyl_act_c3 ; p_of_mozcart(140) = p_bigene ; mozcart_per_megan(140) = 2. p_of_megan2mozcart(141) = is_mbo_3m3e1ol ; p_of_mozcart(141) = p_isopr ; mozcart_per_megan(141) = 1.25 p_of_megan2mozcart(142) = is_2met_s ; p_of_mozcart(142) = p_dms ; mozcart_per_megan(142) = 1. END SUBROUTINE get_megan2mozcart_table SUBROUTINE get_megan2t1_mozc_table !-------------------------------------------------------------------------- ! For MEGAN v2.04 species conversion to T1_MOZCART species !-------------------------------------------------------------------------- !----------------------------------------------------------------------------------------------------------- ! Index of Index of ! Molar ratio ! MEGAN species MOZCART Species !----------------------------------------------------------------------------------------------------------- p_of_megan2t1_mozc( 1) = is_pinene_a ; p_of_t1_mozc( 1) = p_apin ; t1_mozc_per_megan( 1) = 1. p_of_megan2t1_mozc( 2) = is_carene_3 ; p_of_t1_mozc( 2) = p_apin ; t1_mozc_per_megan( 2) = 1. p_of_megan2t1_mozc( 3) = is_thujene_a ; p_of_t1_mozc( 3) = p_apin ; t1_mozc_per_megan( 3) = 1. p_of_megan2t1_mozc( 4) = is_2met_styrene ; p_of_t1_mozc( 4) = p_apin ; t1_mozc_per_megan( 4) = 1. p_of_megan2t1_mozc( 5) = is_cymene_p ; p_of_t1_mozc( 5) = p_apin ; t1_mozc_per_megan( 5) = 1.5 p_of_megan2t1_mozc( 6) = is_cymene_o ; p_of_t1_mozc( 6) = p_apin ; t1_mozc_per_megan( 6) = 1.5 p_of_megan2t1_mozc( 7) = is_terpinolene ; p_of_t1_mozc( 7) = p_apin ; t1_mozc_per_megan( 7) = 1. p_of_megan2t1_mozc( 8) = is_bornene ; p_of_t1_mozc( 8) = p_apin ; t1_mozc_per_megan( 8) = 1. p_of_megan2t1_mozc( 9) = is_fenchene_a ; p_of_t1_mozc( 9) = p_apin ; t1_mozc_per_megan( 9) = 1. p_of_megan2t1_mozc( 10) = is_ocimene_al ; p_of_t1_mozc( 10) = p_apin ; t1_mozc_per_megan( 10) = 1. p_of_megan2t1_mozc( 11) = is_piperitone ; p_of_t1_mozc( 11) = p_apin ; t1_mozc_per_megan( 11) = 1. p_of_megan2t1_mozc( 12) = is_terpineol_4 ; p_of_t1_mozc( 12) = p_apin ; t1_mozc_per_megan( 12) = 1. p_of_megan2t1_mozc( 13) = is_terpineol_a ; p_of_t1_mozc( 13) = p_apin ; t1_mozc_per_megan( 13) = 1. p_of_megan2t1_mozc( 14) = is_terpinyl_act_a ; p_of_t1_mozc( 14) = p_apin ; t1_mozc_per_megan( 14) = 1. p_of_megan2t1_mozc( 15) = is_pinene_b ; p_of_t1_mozc( 15) = p_bpin ; t1_mozc_per_megan( 15) = 1. p_of_megan2t1_mozc( 16) = is_sabinene ; p_of_t1_mozc( 16) = p_bpin ; t1_mozc_per_megan( 16) = 1. p_of_megan2t1_mozc( 17) = is_camphene ; p_of_t1_mozc( 17) = p_bpin ; t1_mozc_per_megan( 17) = 1. p_of_megan2t1_mozc( 18) = is_limonene ; p_of_t1_mozc( 18) = p_limon ; t1_mozc_per_megan( 18) = 1. p_of_megan2t1_mozc( 19) = is_phellandrene_a ; p_of_t1_mozc( 19) = p_limon ; t1_mozc_per_megan( 19) = 1. p_of_megan2t1_mozc( 20) = is_phellandrene_b ; p_of_t1_mozc( 20) = p_limon ; t1_mozc_per_megan( 20) = 1. p_of_megan2t1_mozc( 21) = is_terpinene_a ; p_of_t1_mozc( 21) = p_limon ; t1_mozc_per_megan( 21) = 1. p_of_megan2t1_mozc( 22) = is_terpinene_g ; p_of_t1_mozc( 22) = p_limon ; t1_mozc_per_megan( 22) = 1. p_of_megan2t1_mozc( 23) = is_2met_styrene ; p_of_t1_mozc( 23) = p_limon ; t1_mozc_per_megan( 23) = 1. p_of_megan2t1_mozc( 24) = is_terpinolene ; p_of_t1_mozc( 24) = p_limon ; t1_mozc_per_megan( 24) = 1. p_of_megan2t1_mozc( 25) = is_ocimene_al ; p_of_t1_mozc( 25) = p_limon ; t1_mozc_per_megan( 25) = 1. p_of_megan2t1_mozc( 26) = is_estragole ; p_of_t1_mozc( 26) = p_limon ; t1_mozc_per_megan( 26) = 1. p_of_megan2t1_mozc( 27) = is_linalool ; p_of_t1_mozc( 27) = p_limon ; t1_mozc_per_megan( 27) = 1. p_of_megan2t1_mozc( 28) = is_linalool_oxd_c ; p_of_t1_mozc( 28) = p_limon ; t1_mozc_per_megan( 28) = 1. p_of_megan2t1_mozc( 29) = is_linalool_oxd_t ; p_of_t1_mozc( 29) = p_limon ; t1_mozc_per_megan( 29) = 1. p_of_megan2t1_mozc( 30) = is_ionone_b ; p_of_t1_mozc( 30) = p_limon ; t1_mozc_per_megan( 30) = 1. p_of_megan2t1_mozc( 31) = is_farnescene_a ; p_of_t1_mozc( 31) = p_limon ; t1_mozc_per_megan( 31) = 1. p_of_megan2t1_mozc( 32) = is_caryophyllene_b ; p_of_t1_mozc( 32) = p_limon ; t1_mozc_per_megan( 32) = 1. p_of_megan2t1_mozc( 33) = is_acoradiene ; p_of_t1_mozc( 33) = p_limon ; t1_mozc_per_megan( 33) = 1. p_of_megan2t1_mozc( 34) = is_geranyl_acetone ; p_of_t1_mozc( 34) = p_limon ; t1_mozc_per_megan( 34) = 1. p_of_megan2t1_mozc( 35) = is_2met_nonatriene ; p_of_t1_mozc( 35) = p_limon ; t1_mozc_per_megan( 35) = 1. p_of_megan2t1_mozc( 36) = is_jasmone ; p_of_t1_mozc( 36) = p_limon ; t1_mozc_per_megan( 36) = 1. p_of_megan2t1_mozc( 37) = is_met_jasmonate ; p_of_t1_mozc( 37) = p_limon ; t1_mozc_per_megan( 37) = 1. p_of_megan2t1_mozc( 38) = is_myrcene ; p_of_t1_mozc( 38) = p_myrc ; t1_mozc_per_megan( 38) = 1. p_of_megan2t1_mozc( 39) = is_ocimene_c_b ; p_of_t1_mozc( 39) = p_myrc ; t1_mozc_per_megan( 39) = 1. p_of_megan2t1_mozc( 40) = is_ocimene_t_b ; p_of_t1_mozc( 40) = p_myrc ; t1_mozc_per_megan( 40) = 1. p_of_megan2t1_mozc( 41) = is_bergamotene_a ; p_of_t1_mozc( 41) = p_bcary ; t1_mozc_per_megan( 41) = 1. p_of_megan2t1_mozc( 42) = is_bisabolene_b ; p_of_t1_mozc( 42) = p_bcary ; t1_mozc_per_megan( 42) = 1. p_of_megan2t1_mozc( 43) = is_caryophyllene_b ; p_of_t1_mozc( 43) = p_bcary ; t1_mozc_per_megan( 43) = 1. p_of_megan2t1_mozc( 44) = is_farnescene_b ; p_of_t1_mozc( 44) = p_bcary ; t1_mozc_per_megan( 44) = 1. p_of_megan2t1_mozc( 45) = is_humulene_a ; p_of_t1_mozc( 45) = p_bcary ; t1_mozc_per_megan( 45) = 1. p_of_megan2t1_mozc( 46) = is_aromadendrene ; p_of_t1_mozc( 46) = p_bcary ; t1_mozc_per_megan( 46) = 1. p_of_megan2t1_mozc( 47) = is_bergamotene_b ; p_of_t1_mozc( 47) = p_bcary ; t1_mozc_per_megan( 47) = 1. p_of_megan2t1_mozc( 48) = is_bisabolene_b ; p_of_t1_mozc( 48) = p_bcary ; t1_mozc_per_megan( 48) = 1. p_of_megan2t1_mozc( 49) = is_bourbonene_b ; p_of_t1_mozc( 49) = p_bcary ; t1_mozc_per_megan( 49) = 1. p_of_megan2t1_mozc( 50) = is_cadinene_d ; p_of_t1_mozc( 50) = p_bcary ; t1_mozc_per_megan( 50) = 1. p_of_megan2t1_mozc( 51) = is_cadinene_g ; p_of_t1_mozc( 51) = p_bcary ; t1_mozc_per_megan( 51) = 1. p_of_megan2t1_mozc( 52) = is_cedrene_a ; p_of_t1_mozc( 52) = p_bcary ; t1_mozc_per_megan( 52) = 1. p_of_megan2t1_mozc( 53) = is_copaene_a ; p_of_t1_mozc( 53) = p_bcary ; t1_mozc_per_megan( 53) = 1. p_of_megan2t1_mozc( 54) = is_cubebene_a ; p_of_t1_mozc( 54) = p_bcary ; t1_mozc_per_megan( 54) = 1. p_of_megan2t1_mozc( 55) = is_cubebene_b ; p_of_t1_mozc( 55) = p_bcary ; t1_mozc_per_megan( 55) = 1. p_of_megan2t1_mozc( 56) = is_elemene_b ; p_of_t1_mozc( 56) = p_bcary ; t1_mozc_per_megan( 56) = 1. p_of_megan2t1_mozc( 57) = is_germacrene_B ; p_of_t1_mozc( 57) = p_bcary ; t1_mozc_per_megan( 57) = 1. p_of_megan2t1_mozc( 58) = is_germacrene_D ; p_of_t1_mozc( 58) = p_bcary ; t1_mozc_per_megan( 58) = 1. p_of_megan2t1_mozc( 59) = is_humulene_g ; p_of_t1_mozc( 59) = p_bcary ; t1_mozc_per_megan( 59) = 1. p_of_megan2t1_mozc( 60) = is_isolongifolene ; p_of_t1_mozc( 60) = p_bcary ; t1_mozc_per_megan( 60) = 1. p_of_megan2t1_mozc( 61) = is_longifolene ; p_of_t1_mozc( 61) = p_bcary ; t1_mozc_per_megan( 61) = 1. p_of_megan2t1_mozc( 62) = is_longipinene ; p_of_t1_mozc( 62) = p_bcary ; t1_mozc_per_megan( 62) = 1. p_of_megan2t1_mozc( 63) = is_muurolene_a ; p_of_t1_mozc( 63) = p_bcary ; t1_mozc_per_megan( 63) = 1. p_of_megan2t1_mozc( 64) = is_muurolene_g ; p_of_t1_mozc( 64) = p_bcary ; t1_mozc_per_megan( 64) = 1. p_of_megan2t1_mozc( 65) = is_selinene_b ; p_of_t1_mozc( 65) = p_bcary ; t1_mozc_per_megan( 65) = 1. p_of_megan2t1_mozc( 66) = is_selinene_d ; p_of_t1_mozc( 66) = p_bcary ; t1_mozc_per_megan( 66) = 1. p_of_megan2t1_mozc( 67) = is_nerolidol_c ; p_of_t1_mozc( 67) = p_bcary ; t1_mozc_per_megan( 67) = 1. p_of_megan2t1_mozc( 68) = is_nerolidol_t ; p_of_t1_mozc( 68) = p_bcary ; t1_mozc_per_megan( 68) = 1. p_of_megan2t1_mozc( 69) = is_gurjunene_b ; p_of_t1_mozc( 69) = p_bcary ; t1_mozc_per_megan( 69) = 1. p_of_megan2t1_mozc( 70) = is_mbo_2m3e2ol ; p_of_t1_mozc( 70) = p_mbo ; t1_mozc_per_megan( 70) = 1. p_of_megan2t1_mozc( 71) = is_mbo_3m2e1ol ; p_of_t1_mozc( 71) = p_mbo ; t1_mozc_per_megan( 71) = 1. p_of_megan2t1_mozc( 72) = is_mbo_3m3e1ol ; p_of_t1_mozc( 72) = p_mbo ; t1_mozc_per_megan( 72) = 1. p_of_megan2t1_mozc( 73) = is_methanol ; p_of_t1_mozc( 73) = p_ch3oh ; t1_mozc_per_megan( 73) = 1. p_of_megan2t1_mozc( 74) = is_ethanol ; p_of_t1_mozc( 74) = p_c2h5oh ; t1_mozc_per_megan( 74) = 1. p_of_megan2t1_mozc( 75) = is_formaldehyde ; p_of_t1_mozc( 75) = p_hcho ; t1_mozc_per_megan( 75) = 1. p_of_megan2t1_mozc( 76) = is_acetaldehyde ; p_of_t1_mozc( 76) = p_ald ; t1_mozc_per_megan( 76) = 1. p_of_megan2t1_mozc( 77) = is_acetic_acid ; p_of_t1_mozc( 77) = p_ch3cooh ; t1_mozc_per_megan( 77) = 1. p_of_megan2t1_mozc( 78) = is_acetone ; p_of_t1_mozc( 78) = p_acet ; t1_mozc_per_megan( 78) = 1. p_of_megan2t1_mozc( 79) = is_formic_acid ; p_of_t1_mozc( 79) = p_hcooh ; t1_mozc_per_megan( 79) = 1. p_of_megan2t1_mozc( 80) = is_hydrogen_cyanide ; p_of_t1_mozc( 80) = p_hcn ; t1_mozc_per_megan( 80) = 1. p_of_megan2t1_mozc( 81) = is_ammonia ; p_of_t1_mozc( 81) = p_nh3 ; t1_mozc_per_megan( 81) = 1. p_of_megan2t1_mozc( 82) = is_carbon_monoxide ; p_of_t1_mozc( 82) = p_co ; t1_mozc_per_megan( 82) = 1. p_of_megan2t1_mozc( 83) = is_ethene ; p_of_t1_mozc( 83) = p_c2h4 ; t1_mozc_per_megan( 83) = 1. p_of_megan2t1_mozc( 84) = is_ethane ; p_of_t1_mozc( 84) = p_c2h6 ; t1_mozc_per_megan( 84) = 1. p_of_megan2t1_mozc( 85) = is_propene ; p_of_t1_mozc( 85) = p_c3h6 ; t1_mozc_per_megan( 85) = 1. p_of_megan2t1_mozc( 86) = is_met_propenyl_2s ; p_of_t1_mozc( 86) = p_c3h6 ; t1_mozc_per_megan( 86) = 2.8 p_of_megan2t1_mozc( 87) = is_pppp_2s ; p_of_t1_mozc( 87) = p_c3h6 ; t1_mozc_per_megan( 87) = 3.5 p_of_megan2t1_mozc( 88) = is_propane ; p_of_t1_mozc( 88) = p_c3h8 ; t1_mozc_per_megan( 88) = 1. p_of_megan2t1_mozc( 89) = is_heptane ; p_of_t1_mozc( 89) = p_bigalk ; t1_mozc_per_megan( 89) = 2. p_of_megan2t1_mozc( 90) = is_hexane ; p_of_t1_mozc( 90) = p_bigalk ; t1_mozc_per_megan( 90) = 1.5 p_of_megan2t1_mozc( 91) = is_pentane ; p_of_t1_mozc( 91) = p_bigalk ; t1_mozc_per_megan( 91) = 1.25 p_of_megan2t1_mozc( 92) = is_tricyclene ; p_of_t1_mozc( 92) = p_bigalk ; t1_mozc_per_megan( 92) = 1. p_of_megan2t1_mozc( 93) = is_camphor ; p_of_t1_mozc( 93) = p_bigalk ; t1_mozc_per_megan( 93) = 2. p_of_megan2t1_mozc( 94) = is_fenchone ; p_of_t1_mozc( 94) = p_bigalk ; t1_mozc_per_megan( 94) = 2. p_of_megan2t1_mozc( 95) = is_thujone_a ; p_of_t1_mozc( 95) = p_bigalk ; t1_mozc_per_megan( 95) = 2. p_of_megan2t1_mozc( 96) = is_thujone_b ; p_of_t1_mozc( 96) = p_bigalk ; t1_mozc_per_megan( 96) = 2. p_of_megan2t1_mozc( 97) = is_cineole_1_8 ; p_of_t1_mozc( 97) = p_bigalk ; t1_mozc_per_megan( 97) = 2. p_of_megan2t1_mozc( 98) = is_borneol ; p_of_t1_mozc( 98) = p_bigalk ; t1_mozc_per_megan( 98) = 2. p_of_megan2t1_mozc( 99) = is_bornyl_act ; p_of_t1_mozc( 99) = p_bigalk ; t1_mozc_per_megan( 99) = 2.7 p_of_megan2t1_mozc(100) = is_cedrol ; p_of_t1_mozc(100) = p_bigalk ; t1_mozc_per_megan(100) = 3. p_of_megan2t1_mozc(101) = is_decanal ; p_of_t1_mozc(101) = p_bigalk ; t1_mozc_per_megan(101) = 3. p_of_megan2t1_mozc(102) = is_heptanal ; p_of_t1_mozc(102) = p_bigalk ; t1_mozc_per_megan(102) = 2. p_of_megan2t1_mozc(103) = is_nonanal ; p_of_t1_mozc(103) = p_bigalk ; t1_mozc_per_megan(103) = 2.5 p_of_megan2t1_mozc(104) = is_octanal ; p_of_t1_mozc(104) = p_bigalk ; t1_mozc_per_megan(104) = 2.3 p_of_megan2t1_mozc(105) = is_octanol ; p_of_t1_mozc(105) = p_bigalk ; t1_mozc_per_megan(105) = 2.3 p_of_megan2t1_mozc(106) = is_hexanal ; p_of_t1_mozc(106) = p_bigalk ; t1_mozc_per_megan(106) = 1.8 p_of_megan2t1_mozc(107) = is_hexanol_1 ; p_of_t1_mozc(107) = p_bigalk ; t1_mozc_per_megan(107) = 1.8 p_of_megan2t1_mozc(108) = is_butene ; p_of_t1_mozc(108) = p_bigene ; t1_mozc_per_megan(108) = .8 p_of_megan2t1_mozc(109) = is_dodecene_1 ; p_of_t1_mozc(109) = p_bigene ; t1_mozc_per_megan(109) = 2.25 p_of_megan2t1_mozc(110) = is_met_heptenone ; p_of_t1_mozc(110) = p_bigene ; t1_mozc_per_megan(110) = 1.75 p_of_megan2t1_mozc(111) = is_neryl_acetone ; p_of_t1_mozc(111) = p_bigene ; t1_mozc_per_megan(111) = 2.7 p_of_megan2t1_mozc(112) = is_nonenal ; p_of_t1_mozc(112) = p_bigene ; t1_mozc_per_megan(112) = 2. p_of_megan2t1_mozc(113) = is_octenol_1e3ol ; p_of_t1_mozc(113) = p_bigene ; t1_mozc_per_megan(113) = 1.7 p_of_megan2t1_mozc(114) = is_tetradecene_1 ; p_of_t1_mozc(114) = p_bigene ; t1_mozc_per_megan(114) = 3.5 p_of_megan2t1_mozc(115) = is_diallyl_2s ; p_of_t1_mozc(115) = p_bigene ; t1_mozc_per_megan(115) = .66 p_of_megan2t1_mozc(116) = is_3met_3dctt ; p_of_t1_mozc(116) = p_bigene ; t1_mozc_per_megan(116) = 3. p_of_megan2t1_mozc(117) = is_hexenal_c3 ; p_of_t1_mozc(117) = p_bigene ; t1_mozc_per_megan(117) = 1.4 p_of_megan2t1_mozc(118) = is_hexenal_t2 ; p_of_t1_mozc(118) = p_bigene ; t1_mozc_per_megan(118) = 1.4 p_of_megan2t1_mozc(119) = is_hexenol_c3 ; p_of_t1_mozc(119) = p_bigene ; t1_mozc_per_megan(119) = 1.4 p_of_megan2t1_mozc(120) = is_hexenyl_act_c3 ; p_of_t1_mozc(120) = p_bigene ; t1_mozc_per_megan(120) = 2. p_of_megan2t1_mozc(121) = is_toluene ; p_of_t1_mozc(121) = p_tol ; t1_mozc_per_megan(121) = 1. p_of_megan2t1_mozc(122) = is_isoprene ; p_of_t1_mozc(122) = p_isopr ; t1_mozc_per_megan(122) = 1. END SUBROUTINE get_megan2t1_mozc_table SUBROUTINE get_megan2mozm_table !-------------------------------------------------------------------------- ! For MEGAN v2.04 species conversion to MOZART-MOSAIC species ! updated by Alma Hodzic 2013 for de-lumped mozart mechanism ! checked by J. Orlando's !-------------------------------------------------------------------------- !----------------------------------------------------------------------------------------------------------- ! Index of Index of ! Molar ratio ! MEGAN species MOZCART Species !----------------------------------------------------------------------------------------------------------- p_of_megan2mozm( 1) = is_isoprene ; p_of_mozm( 1) = p_isopr ; mozm_per_megan( 1) = 1. p_of_megan2mozm( 2) = is_myrcene ; p_of_mozm( 2) = p_myrc ; mozm_per_megan( 2) = 1. p_of_megan2mozm( 3) = is_sabinene ; p_of_mozm( 3) = p_bpin ; mozm_per_megan( 3) = 1. p_of_megan2mozm( 4) = is_limonene ; p_of_mozm( 4) = p_limon ; mozm_per_megan( 4) = 1. p_of_megan2mozm( 5) = is_carene_3 ; p_of_mozm( 5) = p_apin ; mozm_per_megan( 5) = 1. p_of_megan2mozm( 6) = is_ocimene_t_b ; p_of_mozm( 6) = p_myrc ; mozm_per_megan( 6) = 1. p_of_megan2mozm( 7) = is_pinene_b ; p_of_mozm( 7) = p_bpin ; mozm_per_megan( 7) = 1. p_of_megan2mozm( 8) = is_pinene_a ; p_of_mozm( 8) = p_apin ; mozm_per_megan( 8) = 1. p_of_megan2mozm( 9) = is_2met_styrene ; p_of_mozm( 9) = p_limon ; mozm_per_megan( 9) = 1. p_of_megan2mozm( 10) = is_cymene_p ; p_of_mozm( 10) = p_tol ; mozm_per_megan( 10) = 1.5 p_of_megan2mozm( 11) = is_cymene_o ; p_of_mozm( 11) = p_tol ; mozm_per_megan( 11) = 1.5 p_of_megan2mozm( 12) = is_phellandrene_a ; p_of_mozm( 12) = p_limon ; mozm_per_megan( 12) = 1. p_of_megan2mozm( 13) = is_thujene_a ; p_of_mozm( 13) = p_apin ; mozm_per_megan( 13) = 1. p_of_megan2mozm( 14) = is_terpinene_a ; p_of_mozm( 14) = p_limon ; mozm_per_megan( 14) = 1. p_of_megan2mozm( 15) = is_terpinene_g ; p_of_mozm( 15) = p_limon ; mozm_per_megan( 15) = 1. p_of_megan2mozm( 16) = is_terpinolene ; p_of_mozm( 16) = p_limon ; mozm_per_megan( 16) = 1. p_of_megan2mozm( 17) = is_phellandrene_b ; p_of_mozm( 17) = p_limon ; mozm_per_megan( 17) = 1. p_of_megan2mozm( 18) = is_camphene ; p_of_mozm( 18) = p_bpin ; mozm_per_megan( 18) = 1. p_of_megan2mozm( 19) = is_bornene ; p_of_mozm( 19) = p_apin ; mozm_per_megan( 19) = 1. p_of_megan2mozm( 20) = is_fenchene_a ; p_of_mozm( 20) = p_apin ; mozm_per_megan( 20) = 1. p_of_megan2mozm( 21) = is_ocimene_al ; p_of_mozm( 21) = p_limon ; mozm_per_megan( 21) = 1. p_of_megan2mozm( 22) = is_ocimene_c_b ; p_of_mozm( 22) = p_myrc ; mozm_per_megan( 22) = 1. p_of_megan2mozm( 23) = is_tricyclene ; p_of_mozm( 23) = non_react ; mozm_per_megan( 23) = 1. p_of_megan2mozm( 24) = is_estragole ; p_of_mozm( 24) = p_limon ; mozm_per_megan( 24) = 1. p_of_megan2mozm( 25) = is_camphor ; p_of_mozm( 25) = p_bigalk ; mozm_per_megan( 25) = 2. p_of_megan2mozm( 26) = is_fenchone ; p_of_mozm( 26) = p_bigalk ; mozm_per_megan( 26) = 2. p_of_megan2mozm( 27) = is_piperitone ; p_of_mozm( 27) = p_apin ; mozm_per_megan( 27) = 1. p_of_megan2mozm( 28) = is_thujone_a ; p_of_mozm( 28) = p_bigalk ; mozm_per_megan( 28) = 2. p_of_megan2mozm( 29) = is_thujone_b ; p_of_mozm( 29) = p_bigalk ; mozm_per_megan( 29) = 2. p_of_megan2mozm( 30) = is_cineole_1_8 ; p_of_mozm( 30) = p_bigalk ; mozm_per_megan( 30) = 2. p_of_megan2mozm( 31) = is_borneol ; p_of_mozm( 31) = p_bigalk ; mozm_per_megan( 31) = 2. p_of_megan2mozm( 32) = is_linalool ; p_of_mozm( 32) = p_limon ; mozm_per_megan( 32) = 1. p_of_megan2mozm( 33) = is_terpineol_4 ; p_of_mozm( 33) = p_apin ; mozm_per_megan( 33) = 1. p_of_megan2mozm( 34) = is_terpineol_a ; p_of_mozm( 34) = p_apin ; mozm_per_megan( 34) = 1. p_of_megan2mozm( 35) = is_linalool_oxd_c ; p_of_mozm( 35) = p_limon ; mozm_per_megan( 35) = 1. p_of_megan2mozm( 36) = is_linalool_oxd_t ; p_of_mozm( 36) = p_limon ; mozm_per_megan( 36) = 1. p_of_megan2mozm( 37) = is_ionone_b ; p_of_mozm( 37) = p_limon ; mozm_per_megan( 37) = 1. p_of_megan2mozm( 38) = is_bornyl_act ; p_of_mozm( 38) = p_bigalk ; mozm_per_megan( 38) = 2.7 p_of_megan2mozm( 39) = is_farnescene_a ; p_of_mozm( 39) = p_limon ; mozm_per_megan( 39) = 1. p_of_megan2mozm( 40) = is_caryophyllene_b ; p_of_mozm( 40) = p_limon ; mozm_per_megan( 40) = 1. p_of_megan2mozm( 41) = is_acoradiene ; p_of_mozm( 41) = p_limon ; mozm_per_megan( 41) = 1. p_of_megan2mozm( 42) = is_aromadendrene ; p_of_mozm( 42) = p_bcary ; mozm_per_megan( 42) = 1. p_of_megan2mozm( 43) = is_bergamotene_a ; p_of_mozm( 43) = p_bcary ; mozm_per_megan( 43) = 1. p_of_megan2mozm( 44) = is_bergamotene_b ; p_of_mozm( 44) = p_bcary ; mozm_per_megan( 44) = 1. p_of_megan2mozm( 45) = is_bisabolene_a ; p_of_mozm( 45) = p_bcary ; mozm_per_megan( 45) = 1. p_of_megan2mozm( 46) = is_bisabolene_b ; p_of_mozm( 46) = p_bcary ; mozm_per_megan( 46) = 1. p_of_megan2mozm( 47) = is_bourbonene_b ; p_of_mozm( 47) = p_bcary ; mozm_per_megan( 47) = 1. p_of_megan2mozm( 48) = is_cadinene_d ; p_of_mozm( 48) = p_bcary ; mozm_per_megan( 48) = 1. p_of_megan2mozm( 49) = is_cadinene_g ; p_of_mozm( 49) = p_bcary ; mozm_per_megan( 49) = 1. p_of_megan2mozm( 50) = is_cedrene_a ; p_of_mozm( 50) = p_bcary ; mozm_per_megan( 50) = 1. p_of_megan2mozm( 51) = is_copaene_a ; p_of_mozm( 51) = p_bcary ; mozm_per_megan( 51) = 1. p_of_megan2mozm( 52) = is_cubebene_a ; p_of_mozm( 52) = p_bcary ; mozm_per_megan( 52) = 1. p_of_megan2mozm( 53) = is_cubebene_b ; p_of_mozm( 53) = p_bcary ; mozm_per_megan( 53) = 1. p_of_megan2mozm( 54) = is_elemene_b ; p_of_mozm( 54) = p_bcary ; mozm_per_megan( 54) = 1. p_of_megan2mozm( 55) = is_farnescene_b ; p_of_mozm( 55) = p_bcary ; mozm_per_megan( 55) = 1. p_of_megan2mozm( 56) = is_germacrene_B ; p_of_mozm( 56) = p_bcary ; mozm_per_megan( 56) = 1. p_of_megan2mozm( 57) = is_germacrene_D ; p_of_mozm( 57) = p_bcary ; mozm_per_megan( 57) = 1. p_of_megan2mozm( 58) = is_gurjunene_b ; p_of_mozm( 58) = p_bcary ; mozm_per_megan( 58) = 1. p_of_megan2mozm( 59) = is_humulene_a ; p_of_mozm( 59) = p_bcary ; mozm_per_megan( 59) = 1. p_of_megan2mozm( 60) = is_humulene_g ; p_of_mozm( 60) = p_bcary ; mozm_per_megan( 60) = 1. p_of_megan2mozm( 61) = is_isolongifolene ; p_of_mozm( 61) = p_bcary ; mozm_per_megan( 61) = 1. p_of_megan2mozm( 62) = is_longifolene ; p_of_mozm( 62) = p_bcary ; mozm_per_megan( 62) = 1. p_of_megan2mozm( 63) = is_longipinene ; p_of_mozm( 63) = p_bcary ; mozm_per_megan( 63) = 1. p_of_megan2mozm( 64) = is_muurolene_a ; p_of_mozm( 64) = p_bcary ; mozm_per_megan( 64) = 1. p_of_megan2mozm( 65) = is_muurolene_g ; p_of_mozm( 65) = p_bcary ; mozm_per_megan( 65) = 1. p_of_megan2mozm( 66) = is_selinene_b ; p_of_mozm( 66) = p_bcary ; mozm_per_megan( 66) = 1. p_of_megan2mozm( 67) = is_selinene_d ; p_of_mozm( 67) = p_bcary ; mozm_per_megan( 67) = 1. p_of_megan2mozm( 68) = is_nerolidol_c ; p_of_mozm( 68) = p_bcary ; mozm_per_megan( 68) = 1. p_of_megan2mozm( 69) = is_nerolidol_t ; p_of_mozm( 69) = p_bcary ; mozm_per_megan( 69) = 1. p_of_megan2mozm( 70) = is_cedrol ; p_of_mozm( 70) = p_bigalk ; mozm_per_megan( 70) = 3. p_of_megan2mozm( 71) = is_mbo_2m3e2ol ; p_of_mozm( 71) = p_mbo ; mozm_per_megan( 71) = 1. p_of_megan2mozm( 72) = is_methanol ; p_of_mozm( 72) = p_ch3oh ; mozm_per_megan( 72) = 1. p_of_megan2mozm( 73) = is_acetone ; p_of_mozm( 73) = p_acet ; mozm_per_megan( 73) = 1. p_of_megan2mozm( 74) = is_methane ; p_of_mozm( 74) = non_react ; mozm_per_megan( 74) = 1. p_of_megan2mozm( 75) = is_ammonia ; p_of_mozm( 75) = p_nh3 ; mozm_per_megan( 75) = 1. p_of_megan2mozm( 76) = is_nitrous_oxd ; p_of_mozm( 76) = non_react ; mozm_per_megan( 76) = 1. p_of_megan2mozm( 77) = is_nitric_oxd ; p_of_mozm( 77) = p_no ; mozm_per_megan( 77) = 1. p_of_megan2mozm( 78) = is_acetaldehyde ; p_of_mozm( 78) = p_ald ; mozm_per_megan( 78) = 1. p_of_megan2mozm( 79) = is_ethanol ; p_of_mozm( 79) = p_c2h5oh ; mozm_per_megan( 79) = 1. p_of_megan2mozm( 80) = is_formic_acid ; p_of_mozm( 80) = non_react ; mozm_per_megan( 80) = 1. p_of_megan2mozm( 81) = is_formaldehyde ; p_of_mozm( 81) = p_hcho ; mozm_per_megan( 81) = 1. p_of_megan2mozm( 82) = is_acetic_acid ; p_of_mozm( 82) = p_ch3cooh ; mozm_per_megan( 82) = 1. p_of_megan2mozm( 83) = is_mbo_3m2e1ol ; p_of_mozm( 83) = p_mbo ; mozm_per_megan( 83) = 1. p_of_megan2mozm( 84) = is_benzaldehyde ; p_of_mozm( 84) = p_tol ; mozm_per_megan( 84) = 1.1 p_of_megan2mozm( 85) = is_butanone_2 ; p_of_mozm( 85) = p_mek ; mozm_per_megan( 85) = 1. p_of_megan2mozm( 86) = is_decanal ; p_of_mozm( 86) = p_bigalk ; mozm_per_megan( 86) = 3. p_of_megan2mozm( 87) = is_dodecene_1 ; p_of_mozm( 87) = p_bigene ; mozm_per_megan( 87) = 2.25 p_of_megan2mozm( 88) = is_geranyl_acetone ; p_of_mozm( 88) = p_limon ; mozm_per_megan( 88) = 1. p_of_megan2mozm( 89) = is_heptanal ; p_of_mozm( 89) = p_bigalk ; mozm_per_megan( 89) = 2. p_of_megan2mozm( 90) = is_heptane ; p_of_mozm( 90) = p_bigalk ; mozm_per_megan( 90) = 2. p_of_megan2mozm( 91) = is_hexane ; p_of_mozm( 91) = p_bigalk ; mozm_per_megan( 91) = 1.5 p_of_megan2mozm( 92) = is_met_benzoate ; p_of_mozm( 92) = p_tol ; mozm_per_megan( 92) = 1.5 p_of_megan2mozm( 93) = is_met_heptenone ; p_of_mozm( 93) = p_bigene ; mozm_per_megan( 93) = 1.75 p_of_megan2mozm( 94) = is_neryl_acetone ; p_of_mozm( 94) = p_bigene ; mozm_per_megan( 94) = 2.7 p_of_megan2mozm( 95) = is_nonanal ; p_of_mozm( 95) = p_bigalk ; mozm_per_megan( 95) = 2.5 p_of_megan2mozm( 96) = is_nonenal ; p_of_mozm( 96) = p_bigene ; mozm_per_megan( 96) = 2. p_of_megan2mozm( 97) = is_octanal ; p_of_mozm( 97) = p_bigalk ; mozm_per_megan( 97) = 2.3 p_of_megan2mozm( 98) = is_octanol ; p_of_mozm( 98) = p_bigalk ; mozm_per_megan( 98) = 2.3 p_of_megan2mozm( 99) = is_octenol_1e3ol ; p_of_mozm( 99) = p_bigene ; mozm_per_megan( 99) = 1.7 p_of_megan2mozm(100) = is_oxopentanal ; p_of_mozm(100) = p_mek ; mozm_per_megan(100) = 1.4 p_of_megan2mozm(101) = is_pentane ; p_of_mozm(101) = p_bigalk ; mozm_per_megan(101) = 1.25 p_of_megan2mozm(102) = is_phenyl_cco ; p_of_mozm(102) = p_tol ; mozm_per_megan(102) = 1.3 p_of_megan2mozm(103) = is_pyruvic_acid ; p_of_mozm(103) = non_react ; mozm_per_megan(103) = 1. p_of_megan2mozm(104) = is_terpinyl_act_a ; p_of_mozm(104) = p_apin ; mozm_per_megan(104) = 1. p_of_megan2mozm(105) = is_tetradecene_1 ; p_of_mozm(105) = p_bigene ; mozm_per_megan(105) = 3.5 p_of_megan2mozm(106) = is_toluene ; p_of_mozm(106) = p_tol ; mozm_per_megan(106) = 1. p_of_megan2mozm(107) = is_carbon_monoxide ; p_of_mozm(107) = p_co ; mozm_per_megan(107) = 1. p_of_megan2mozm(108) = is_butene ; p_of_mozm(108) = p_bigene ; mozm_per_megan(108) = .8 p_of_megan2mozm(109) = is_ethane ; p_of_mozm(109) = p_c2h6 ; mozm_per_megan(109) = 1. p_of_megan2mozm(110) = is_ethene ; p_of_mozm(110) = p_c2h4 ; mozm_per_megan(110) = 1. p_of_megan2mozm(111) = is_hydrogen_cyanide ; p_of_mozm(111) = non_react ; mozm_per_megan(111) = 1. p_of_megan2mozm(112) = is_propane ; p_of_mozm(112) = p_c3h8 ; mozm_per_megan(112) = 1. p_of_megan2mozm(113) = is_propene ; p_of_mozm(113) = p_c3h6 ; mozm_per_megan(113) = 1. p_of_megan2mozm(114) = is_carbon_2s ; p_of_mozm(114) = non_react ; mozm_per_megan(114) = 1. p_of_megan2mozm(115) = is_carbonyl_s ; p_of_mozm(115) = non_react ; mozm_per_megan(115) = 1. p_of_megan2mozm(116) = is_diallyl_2s ; p_of_mozm(116) = p_bigene ; mozm_per_megan(116) = .66 p_of_megan2mozm(117) = is_diallyl_2s ; p_of_mozm(117) = p_so2 ; mozm_per_megan(117) = 1.53 p_of_megan2mozm(118) = is_2met_2s ; p_of_mozm(118) = p_c2h6 ; mozm_per_megan(118) = 1. p_of_megan2mozm(119) = is_2met_2s ; p_of_mozm(119) = p_so2 ; mozm_per_megan(119) = 1. p_of_megan2mozm(120) = is_met_chloride ; p_of_mozm(120) = non_react ; mozm_per_megan(120) = 1. p_of_megan2mozm(121) = is_met_bromide ; p_of_mozm(121) = non_react ; mozm_per_megan(121) = 1. p_of_megan2mozm(122) = is_met_iodide ; p_of_mozm(122) = non_react ; mozm_per_megan(122) = 1. p_of_megan2mozm(123) = is_hydrogen_s ; p_of_mozm(123) = p_so2 ; mozm_per_megan(123) = .5 p_of_megan2mozm(124) = is_met_mercaptan ; p_of_mozm(124) = p_so2 ; mozm_per_megan(124) = .75 p_of_megan2mozm(125) = is_met_propenyl_2s ; p_of_mozm(125) = p_c3h6 ; mozm_per_megan(125) = 2.8 p_of_megan2mozm(126) = is_met_propenyl_2s ; p_of_mozm(126) = p_so2 ; mozm_per_megan(126) = 1.8 p_of_megan2mozm(127) = is_pppp_2s ; p_of_mozm(127) = p_c3h6 ; mozm_per_megan(127) = 3.5 p_of_megan2mozm(128) = is_pppp_2s ; p_of_mozm(128) = p_so2 ; mozm_per_megan(128) = 2.3 p_of_megan2mozm(129) = is_2met_nonatriene ; p_of_mozm(129) = p_limon ; mozm_per_megan(129) = 1. p_of_megan2mozm(130) = is_met_salicylate ; p_of_mozm(130) = p_tol ; mozm_per_megan(130) = 1.6 p_of_megan2mozm(131) = is_indole ; p_of_mozm(131) = non_react ; mozm_per_megan(131) = 1. p_of_megan2mozm(132) = is_jasmone ; p_of_mozm(132) = p_limon ; mozm_per_megan(132) = 1. p_of_megan2mozm(133) = is_met_jasmonate ; p_of_mozm(133) = p_limon ; mozm_per_megan(133) = 1. p_of_megan2mozm(134) = is_3met_3dctt ; p_of_mozm(134) = p_bigene ; mozm_per_megan(134) = 3. p_of_megan2mozm(135) = is_hexanal ; p_of_mozm(135) = p_bigalk ; mozm_per_megan(135) = 1.8 p_of_megan2mozm(136) = is_hexanol_1 ; p_of_mozm(136) = p_bigalk ; mozm_per_megan(136) = 1.8 p_of_megan2mozm(137) = is_hexenal_c3 ; p_of_mozm(137) = p_bigene ; mozm_per_megan(137) = 1.4 p_of_megan2mozm(138) = is_hexenal_t2 ; p_of_mozm(138) = p_bigene ; mozm_per_megan(138) = 1.4 p_of_megan2mozm(139) = is_hexenol_c3 ; p_of_mozm(139) = p_bigene ; mozm_per_megan(139) = 1.4 p_of_megan2mozm(140) = is_hexenyl_act_c3 ; p_of_mozm(140) = p_bigene ; mozm_per_megan(140) = 2. p_of_megan2mozm(141) = is_mbo_3m3e1ol ; p_of_mozm(141) = p_mbo ; mozm_per_megan(141) = 1. p_of_megan2mozm(142) = is_2met_s ; p_of_mozm(142) = p_dms ; mozm_per_megan(142) = 1. END SUBROUTINE get_megan2mozm_table SUBROUTINE get_megan2cbmz_table !-------------------------------------------------------------------- ! For MEGAN v2.04 species conversion to CBMZ species ! Based on Tan's MAP_CV2CBMZ.EXT; updated on 08/03/2007 ! based on Rahul A. Zaveri's suggestions. !-------------------------------------------------------------------- !----------------------------------------------------------------------------------------------------------- ! Index of Index of Molar ratio ! MEGAN species CMBZ Species !----------------------------------------------------------------------------------------------------------- p_of_megan2cbmz( 1) = is_isoprene ; p_of_cbmz( 1) = p_iso ; cbmz_per_megan( 1) = 1. p_of_megan2cbmz( 2) = is_myrcene ; p_of_cbmz( 2) = p_iso ; cbmz_per_megan( 2) = 2. p_of_megan2cbmz( 3) = is_sabinene ; p_of_cbmz( 3) = p_iso ; cbmz_per_megan( 3) = 2. p_of_megan2cbmz( 4) = is_limonene ; p_of_cbmz( 4) = p_iso ; cbmz_per_megan( 4) = 2. p_of_megan2cbmz( 5) = is_carene_3 ; p_of_cbmz( 5) = p_iso ; cbmz_per_megan( 5) = 2. p_of_megan2cbmz( 6) = is_ocimene_t_b ; p_of_cbmz( 6) = p_iso ; cbmz_per_megan( 6) = 2. p_of_megan2cbmz( 7) = is_pinene_b ; p_of_cbmz( 7) = p_iso ; cbmz_per_megan( 7) = 2. p_of_megan2cbmz( 8) = is_pinene_a ; p_of_cbmz( 8) = p_iso ; cbmz_per_megan( 8) = 2. p_of_megan2cbmz( 9) = is_2met_styrene ; p_of_cbmz( 9) = p_iso ; cbmz_per_megan( 9) = 2. p_of_megan2cbmz( 10) = is_cymene_p ; p_of_cbmz( 10) = p_iso ; cbmz_per_megan( 10) = 2. p_of_megan2cbmz( 11) = is_cymene_o ; p_of_cbmz( 11) = p_iso ; cbmz_per_megan( 11) = 2. p_of_megan2cbmz( 12) = is_phellandrene_a ; p_of_cbmz( 12) = p_iso ; cbmz_per_megan( 12) = 2. p_of_megan2cbmz( 13) = is_thujene_a ; p_of_cbmz( 13) = p_iso ; cbmz_per_megan( 13) = 2. p_of_megan2cbmz( 14) = is_terpinene_a ; p_of_cbmz( 14) = p_iso ; cbmz_per_megan( 14) = 2. p_of_megan2cbmz( 15) = is_terpinene_g ; p_of_cbmz( 15) = p_iso ; cbmz_per_megan( 15) = 2. p_of_megan2cbmz( 16) = is_terpinolene ; p_of_cbmz( 16) = p_iso ; cbmz_per_megan( 16) = 2. p_of_megan2cbmz( 17) = is_phellandrene_b ; p_of_cbmz( 17) = p_iso ; cbmz_per_megan( 17) = 2. p_of_megan2cbmz( 18) = is_camphene ; p_of_cbmz( 18) = p_iso ; cbmz_per_megan( 18) = 2. p_of_megan2cbmz( 19) = is_bornene ; p_of_cbmz( 19) = p_iso ; cbmz_per_megan( 19) = 2. p_of_megan2cbmz( 20) = is_fenchene_a ; p_of_cbmz( 20) = p_iso ; cbmz_per_megan( 20) = 2. p_of_megan2cbmz( 21) = is_ocimene_al ; p_of_cbmz( 21) = p_iso ; cbmz_per_megan( 21) = 2. p_of_megan2cbmz( 22) = is_ocimene_c_b ; p_of_cbmz( 22) = p_iso ; cbmz_per_megan( 22) = 2. p_of_megan2cbmz( 23) = is_tricyclene ; p_of_cbmz( 23) = p_iso ; cbmz_per_megan( 23) = 2. p_of_megan2cbmz( 24) = is_estragole ; p_of_cbmz( 24) = p_iso ; cbmz_per_megan( 24) = 2. p_of_megan2cbmz( 25) = is_camphor ; p_of_cbmz( 25) = p_iso ; cbmz_per_megan( 25) = 2. p_of_megan2cbmz( 26) = is_fenchone ; p_of_cbmz( 26) = p_iso ; cbmz_per_megan( 26) = 2. p_of_megan2cbmz( 27) = is_piperitone ; p_of_cbmz( 27) = p_iso ; cbmz_per_megan( 27) = 2. p_of_megan2cbmz( 28) = is_thujone_a ; p_of_cbmz( 28) = p_iso ; cbmz_per_megan( 28) = 2. p_of_megan2cbmz( 29) = is_thujone_b ; p_of_cbmz( 29) = p_iso ; cbmz_per_megan( 29) = 2. p_of_megan2cbmz( 30) = is_cineole_1_8 ; p_of_cbmz( 30) = p_iso ; cbmz_per_megan( 30) = 2. p_of_megan2cbmz( 31) = is_borneol ; p_of_cbmz( 31) = p_iso ; cbmz_per_megan( 31) = 2. p_of_megan2cbmz( 32) = is_linalool ; p_of_cbmz( 32) = p_iso ; cbmz_per_megan( 32) = 2. p_of_megan2cbmz( 33) = is_terpineol_4 ; p_of_cbmz( 33) = p_iso ; cbmz_per_megan( 33) = 2. p_of_megan2cbmz( 34) = is_terpineol_a ; p_of_cbmz( 34) = p_iso ; cbmz_per_megan( 34) = 2. p_of_megan2cbmz( 35) = is_linalool_oxd_c ; p_of_cbmz( 35) = p_iso ; cbmz_per_megan( 35) = 2. p_of_megan2cbmz( 36) = is_linalool_oxd_t ; p_of_cbmz( 36) = p_iso ; cbmz_per_megan( 36) = 2. p_of_megan2cbmz( 37) = is_ionone_b ; p_of_cbmz( 37) = p_iso ; cbmz_per_megan( 37) = 3. p_of_megan2cbmz( 38) = is_bornyl_act ; p_of_cbmz( 38) = p_iso ; cbmz_per_megan( 38) = 2. p_of_megan2cbmz( 39) = is_farnescene_a ; p_of_cbmz( 39) = p_iso ; cbmz_per_megan( 39) = 3. p_of_megan2cbmz( 40) = is_caryophyllene_b ; p_of_cbmz( 40) = p_iso ; cbmz_per_megan( 40) = 3. p_of_megan2cbmz( 41) = is_acoradiene ; p_of_cbmz( 41) = p_iso ; cbmz_per_megan( 41) = 3. p_of_megan2cbmz( 42) = is_aromadendrene ; p_of_cbmz( 42) = p_iso ; cbmz_per_megan( 42) = 3. p_of_megan2cbmz( 43) = is_bergamotene_a ; p_of_cbmz( 43) = p_iso ; cbmz_per_megan( 43) = 3. p_of_megan2cbmz( 44) = is_bergamotene_b ; p_of_cbmz( 44) = p_iso ; cbmz_per_megan( 44) = 3. p_of_megan2cbmz( 45) = is_bisabolene_a ; p_of_cbmz( 45) = p_iso ; cbmz_per_megan( 45) = 3. p_of_megan2cbmz( 46) = is_bisabolene_b ; p_of_cbmz( 46) = p_iso ; cbmz_per_megan( 46) = 3. p_of_megan2cbmz( 47) = is_bourbonene_b ; p_of_cbmz( 47) = p_iso ; cbmz_per_megan( 47) = 3. p_of_megan2cbmz( 48) = is_cadinene_d ; p_of_cbmz( 48) = p_iso ; cbmz_per_megan( 48) = 3. p_of_megan2cbmz( 49) = is_cadinene_g ; p_of_cbmz( 49) = p_iso ; cbmz_per_megan( 49) = 3. p_of_megan2cbmz( 50) = is_cedrene_a ; p_of_cbmz( 50) = p_iso ; cbmz_per_megan( 50) = 3. p_of_megan2cbmz( 51) = is_copaene_a ; p_of_cbmz( 51) = p_iso ; cbmz_per_megan( 51) = 3. p_of_megan2cbmz( 52) = is_cubebene_a ; p_of_cbmz( 52) = p_iso ; cbmz_per_megan( 52) = 3. p_of_megan2cbmz( 53) = is_cubebene_b ; p_of_cbmz( 53) = p_iso ; cbmz_per_megan( 53) = 3. p_of_megan2cbmz( 54) = is_elemene_b ; p_of_cbmz( 54) = p_iso ; cbmz_per_megan( 54) = 3. p_of_megan2cbmz( 55) = is_farnescene_b ; p_of_cbmz( 55) = p_iso ; cbmz_per_megan( 55) = 3. p_of_megan2cbmz( 56) = is_germacrene_B ; p_of_cbmz( 56) = p_iso ; cbmz_per_megan( 56) = 3. p_of_megan2cbmz( 57) = is_germacrene_D ; p_of_cbmz( 57) = p_iso ; cbmz_per_megan( 57) = 3. p_of_megan2cbmz( 58) = is_gurjunene_b ; p_of_cbmz( 58) = p_iso ; cbmz_per_megan( 58) = 3. p_of_megan2cbmz( 59) = is_humulene_a ; p_of_cbmz( 59) = p_iso ; cbmz_per_megan( 59) = 3. p_of_megan2cbmz( 60) = is_humulene_g ; p_of_cbmz( 60) = p_iso ; cbmz_per_megan( 60) = 3. p_of_megan2cbmz( 61) = is_isolongifolene ; p_of_cbmz( 61) = p_iso ; cbmz_per_megan( 61) = 3. p_of_megan2cbmz( 62) = is_longifolene ; p_of_cbmz( 62) = p_iso ; cbmz_per_megan( 62) = 3. p_of_megan2cbmz( 63) = is_longipinene ; p_of_cbmz( 63) = p_iso ; cbmz_per_megan( 63) = 3. p_of_megan2cbmz( 64) = is_muurolene_a ; p_of_cbmz( 64) = p_iso ; cbmz_per_megan( 64) = 3. p_of_megan2cbmz( 65) = is_muurolene_g ; p_of_cbmz( 65) = p_iso ; cbmz_per_megan( 65) = 3. p_of_megan2cbmz( 66) = is_selinene_b ; p_of_cbmz( 66) = p_iso ; cbmz_per_megan( 66) = 3. p_of_megan2cbmz( 67) = is_selinene_d ; p_of_cbmz( 67) = p_iso ; cbmz_per_megan( 67) = 3. p_of_megan2cbmz( 68) = is_nerolidol_c ; p_of_cbmz( 68) = p_iso ; cbmz_per_megan( 68) = 3. p_of_megan2cbmz( 69) = is_nerolidol_t ; p_of_cbmz( 69) = p_iso ; cbmz_per_megan( 69) = 3. p_of_megan2cbmz( 70) = is_cedrol ; p_of_cbmz( 70) = p_iso ; cbmz_per_megan( 70) = 3. p_of_megan2cbmz( 71) = is_mbo_2m3e2ol ; p_of_cbmz( 71) = p_olt ; cbmz_per_megan( 71) = 1. p_of_megan2cbmz( 72) = is_mbo_2m3e2ol ; p_of_cbmz( 72) = p_par ; cbmz_per_megan( 72) = 3. p_of_megan2cbmz( 73) = is_methanol ; p_of_cbmz( 73) = p_ch3oh ; cbmz_per_megan( 73) = 1. p_of_megan2cbmz( 74) = is_acetone ; p_of_cbmz( 74) = p_ket ; cbmz_per_megan( 74) = 1. p_of_megan2cbmz( 75) = is_methane ; p_of_cbmz( 75) = p_ch4 ; cbmz_per_megan( 75) = 1 p_of_megan2cbmz( 76) = is_ammonia ; p_of_cbmz( 76) = p_nh3 ; cbmz_per_megan( 76) = 1. p_of_megan2cbmz( 77) = is_nitrous_oxd ; p_of_cbmz( 77) = non_react ; cbmz_per_megan( 77) = 1. p_of_megan2cbmz( 78) = is_nitric_oxd ; p_of_cbmz( 78) = p_no ; cbmz_per_megan( 78) = 1. p_of_megan2cbmz( 79) = is_acetaldehyde ; p_of_cbmz( 79) = p_ald ; cbmz_per_megan( 79) = 1. p_of_megan2cbmz( 80) = is_ethanol ; p_of_cbmz( 80) = p_c2h5oh ; cbmz_per_megan( 80) = 1. p_of_megan2cbmz( 81) = is_formic_acid ; p_of_cbmz( 81) = p_ora1 ; cbmz_per_megan( 81) = 1. p_of_megan2cbmz( 82) = is_formaldehyde ; p_of_cbmz( 82) = p_hcho ; cbmz_per_megan( 82) = 1. p_of_megan2cbmz( 83) = is_acetic_acid ; p_of_cbmz( 83) = p_ora2 ; cbmz_per_megan( 83) = 1. p_of_megan2cbmz( 84) = is_mbo_3m2e1ol ; p_of_cbmz( 84) = p_ald ; cbmz_per_megan( 84) = 1. p_of_megan2cbmz( 85) = is_mbo_3m2e1ol ; p_of_cbmz( 85) = p_par ; cbmz_per_megan( 85) = 3. p_of_megan2cbmz( 86) = is_mbo_3m3e1ol ; p_of_cbmz( 86) = p_hcho ; cbmz_per_megan( 86) = 1. p_of_megan2cbmz( 87) = is_mbo_3m3e1ol ; p_of_cbmz( 87) = p_par ; cbmz_per_megan( 87) = 4. p_of_megan2cbmz( 88) = is_benzaldehyde ; p_of_cbmz( 88) = p_tol ; cbmz_per_megan( 88) = 1. p_of_megan2cbmz( 89) = is_butanone_2 ; p_of_cbmz( 89) = p_ket ; cbmz_per_megan( 89) = 1. p_of_megan2cbmz( 90) = is_butanone_2 ; p_of_cbmz( 90) = p_par ; cbmz_per_megan( 90) = 1. p_of_megan2cbmz( 91) = is_decanal ; p_of_cbmz( 91) = p_ald ; cbmz_per_megan( 91) = 1. p_of_megan2cbmz( 92) = is_decanal ; p_of_cbmz( 92) = p_par ; cbmz_per_megan( 92) = 8. p_of_megan2cbmz( 93) = is_dodecene_1 ; p_of_cbmz( 93) = p_olt ; cbmz_per_megan( 93) = 1. p_of_megan2cbmz( 94) = is_dodecene_1 ; p_of_cbmz( 94) = p_par ; cbmz_per_megan( 94) = 10. p_of_megan2cbmz( 95) = is_geranyl_acetone ; p_of_cbmz( 95) = p_iso ; cbmz_per_megan( 95) = 3. p_of_megan2cbmz( 96) = is_heptanal ; p_of_cbmz( 96) = p_ald ; cbmz_per_megan( 96) = 1. p_of_megan2cbmz( 97) = is_heptanal ; p_of_cbmz( 97) = p_par ; cbmz_per_megan( 97) = 5. p_of_megan2cbmz( 98) = is_heptane ; p_of_cbmz( 98) = p_par ; cbmz_per_megan( 98) = 7. p_of_megan2cbmz( 99) = is_hexane ; p_of_cbmz( 99) = p_par ; cbmz_per_megan( 99) = 6. p_of_megan2cbmz(100) = is_met_benzoate ; p_of_cbmz(100) = p_tol ; cbmz_per_megan(100) = 1. p_of_megan2cbmz(101) = is_met_heptenone ; p_of_cbmz(101) = p_ket ; cbmz_per_megan(101) = 1. p_of_megan2cbmz(102) = is_met_heptenone ; p_of_cbmz(102) = p_par ; cbmz_per_megan(102) = 3. p_of_megan2cbmz(103) = is_met_heptenone ; p_of_cbmz(103) = p_olt ; cbmz_per_megan(103) = 1. p_of_megan2cbmz(104) = is_neryl_acetone ; p_of_cbmz(104) = p_ket ; cbmz_per_megan(104) = 1. p_of_megan2cbmz(105) = is_neryl_acetone ; p_of_cbmz(105) = p_par ; cbmz_per_megan(105) = 8. p_of_megan2cbmz(106) = is_neryl_acetone ; p_of_cbmz(106) = p_oli ; cbmz_per_megan(106) = 2. p_of_megan2cbmz(107) = is_nonanal ; p_of_cbmz(107) = p_ald ; cbmz_per_megan(107) = 1. p_of_megan2cbmz(108) = is_nonanal ; p_of_cbmz(108) = p_par ; cbmz_per_megan(108) = 7. p_of_megan2cbmz(109) = is_nonenal ; p_of_cbmz(109) = p_ald ; cbmz_per_megan(109) = 1. p_of_megan2cbmz(110) = is_nonenal ; p_of_cbmz(110) = p_par ; cbmz_per_megan(110) = 6. p_of_megan2cbmz(111) = is_nonenal ; p_of_cbmz(111) = p_oli ; cbmz_per_megan(111) = 1. p_of_megan2cbmz(112) = is_octanal ; p_of_cbmz(112) = p_ald ; cbmz_per_megan(112) = 1. p_of_megan2cbmz(113) = is_octanal ; p_of_cbmz(113) = p_par ; cbmz_per_megan(113) = 6. p_of_megan2cbmz(114) = is_octanol ; p_of_cbmz(114) = p_par ; cbmz_per_megan(114) = 8. p_of_megan2cbmz(115) = is_octenol_1e3ol ; p_of_cbmz(115) = p_par ; cbmz_per_megan(115) = 6. p_of_megan2cbmz(116) = is_octenol_1e3ol ; p_of_cbmz(116) = p_olt ; cbmz_per_megan(116) = 1. p_of_megan2cbmz(117) = is_oxopentanal ; p_of_cbmz(117) = p_ald ; cbmz_per_megan(117) = 1. p_of_megan2cbmz(118) = is_oxopentanal ; p_of_cbmz(118) = p_par ; cbmz_per_megan(118) = 3. p_of_megan2cbmz(119) = is_pentane ; p_of_cbmz(119) = p_par ; cbmz_per_megan(119) = 5. p_of_megan2cbmz(120) = is_phenyl_cco ; p_of_cbmz(120) = p_ald ; cbmz_per_megan(120) = 1 p_of_megan2cbmz(121) = is_phenyl_cco ; p_of_cbmz(121) = p_tol ; cbmz_per_megan(121) = 1. p_of_megan2cbmz(122) = is_pyruvic_acid ; p_of_cbmz(122) = p_ora1 ; cbmz_per_megan(122) = 1. p_of_megan2cbmz(123) = is_pyruvic_acid ; p_of_cbmz(123) = p_ket ; cbmz_per_megan(123) = 1. p_of_megan2cbmz(124) = is_terpinyl_act_a ; p_of_cbmz(124) = p_iso ; cbmz_per_megan(124) = 2. p_of_megan2cbmz(125) = is_tetradecene_1 ; p_of_cbmz(125) = p_par ; cbmz_per_megan(125) = 12. p_of_megan2cbmz(126) = is_tetradecene_1 ; p_of_cbmz(126) = p_olt ; cbmz_per_megan(126) = 1. p_of_megan2cbmz(127) = is_toluene ; p_of_cbmz(127) = p_tol ; cbmz_per_megan(127) = 1. p_of_megan2cbmz(128) = is_carbon_monoxide ; p_of_cbmz(128) = p_co ; cbmz_per_megan(128) = 1. p_of_megan2cbmz(129) = is_butene ; p_of_cbmz(129) = p_olt ; cbmz_per_megan(129) = 1. p_of_megan2cbmz(130) = is_butene ; p_of_cbmz(130) = p_par ; cbmz_per_megan(130) = 2. p_of_megan2cbmz(131) = is_ethane ; p_of_cbmz(131) = p_eth ; cbmz_per_megan(131) = 1. p_of_megan2cbmz(132) = is_ethene ; p_of_cbmz(132) = p_ol2 ; cbmz_per_megan(132) = 1. p_of_megan2cbmz(133) = is_hydrogen_cyanide ; p_of_cbmz(133) = non_react ; cbmz_per_megan(133) = 1. p_of_megan2cbmz(134) = is_propane ; p_of_cbmz(134) = p_par ; cbmz_per_megan(134) = 3. p_of_megan2cbmz(135) = is_propene ; p_of_cbmz(135) = p_olt ; cbmz_per_megan(135) = 1. p_of_megan2cbmz(136) = is_propene ; p_of_cbmz(136) = p_par ; cbmz_per_megan(136) = 1. p_of_megan2cbmz(137) = is_carbon_2s ; p_of_cbmz(137) = non_react ; cbmz_per_megan(137) = 1. p_of_megan2cbmz(138) = is_carbonyl_s ; p_of_cbmz(138) = non_react ; cbmz_per_megan(138) = 1. p_of_megan2cbmz(139) = is_diallyl_2s ; p_of_cbmz(139) = p_dms ; cbmz_per_megan(139) = 1. p_of_megan2cbmz(140) = is_diallyl_2s ; p_of_cbmz(140) = p_par ; cbmz_per_megan(140) = 2. p_of_megan2cbmz(141) = is_diallyl_2s ; p_of_cbmz(141) = p_olt ; cbmz_per_megan(141) = 2. p_of_megan2cbmz(142) = is_2met_2s ; p_of_cbmz(142) = p_dms ; cbmz_per_megan(142) = 1. p_of_megan2cbmz(143) = is_2met_s ; p_of_cbmz(143) = p_dms ; cbmz_per_megan(143) = 1. p_of_megan2cbmz(144) = is_met_chloride ; p_of_cbmz(144) = non_react ; cbmz_per_megan(144) = 1. p_of_megan2cbmz(145) = is_met_bromide ; p_of_cbmz(145) = non_react ; cbmz_per_megan(145) = 1. p_of_megan2cbmz(146) = is_met_iodide ; p_of_cbmz(146) = non_react ; cbmz_per_megan(146) = 1. p_of_megan2cbmz(147) = is_hydrogen_s ; p_of_cbmz(147) = non_react ; cbmz_per_megan(147) = 1. p_of_megan2cbmz(148) = is_met_mercaptan ; p_of_cbmz(148) = p_par ; cbmz_per_megan(148) = 1. p_of_megan2cbmz(149) = is_met_propenyl_2s ; p_of_cbmz(149) = p_dms ; cbmz_per_megan(149) = 1. p_of_megan2cbmz(150) = is_met_propenyl_2s ; p_of_cbmz(150) = p_oli ; cbmz_per_megan(150) = 1. p_of_megan2cbmz(151) = is_pppp_2s ; p_of_cbmz(151) = p_dms ; cbmz_per_megan(151) = 1. p_of_megan2cbmz(152) = is_pppp_2s ; p_of_cbmz(152) = p_par ; cbmz_per_megan(152) = 2. p_of_megan2cbmz(153) = is_pppp_2s ; p_of_cbmz(153) = p_oli ; cbmz_per_megan(153) = 1. p_of_megan2cbmz(154) = is_2met_nonatriene ; p_of_cbmz(154) = p_iso ; cbmz_per_megan(154) = 2. p_of_megan2cbmz(155) = is_met_salicylate ; p_of_cbmz(155) = p_tol ; cbmz_per_megan(155) = 1. p_of_megan2cbmz(156) = is_indole ; p_of_cbmz(156) = p_tol ; cbmz_per_megan(156) = 1. p_of_megan2cbmz(157) = is_jasmone ; p_of_cbmz(157) = p_iso ; cbmz_per_megan(157) = 2. p_of_megan2cbmz(158) = is_met_jasmonate ; p_of_cbmz(158) = p_iso ; cbmz_per_megan(158) = 3. p_of_megan2cbmz(159) = is_3met_3dctt ; p_of_cbmz(159) = p_iso ; cbmz_per_megan(159) = 3. p_of_megan2cbmz(160) = is_hexanal ; p_of_cbmz(160) = p_ald ; cbmz_per_megan(160) = 1. p_of_megan2cbmz(161) = is_hexanal ; p_of_cbmz(161) = p_par ; cbmz_per_megan(161) = 4. p_of_megan2cbmz(162) = is_hexanol_1 ; p_of_cbmz(162) = p_par ; cbmz_per_megan(162) = 6. p_of_megan2cbmz(163) = is_hexenal_c3 ; p_of_cbmz(163) = p_ald ; cbmz_per_megan(163) = 1. p_of_megan2cbmz(164) = is_hexenal_c3 ; p_of_cbmz(164) = p_par ; cbmz_per_megan(164) = 3. p_of_megan2cbmz(165) = is_hexenal_c3 ; p_of_cbmz(165) = p_oli ; cbmz_per_megan(165) = 1 p_of_megan2cbmz(166) = is_hexenal_t2 ; p_of_cbmz(166) = p_ald ; cbmz_per_megan(166) = 1. p_of_megan2cbmz(167) = is_hexenal_t2 ; p_of_cbmz(167) = p_par ; cbmz_per_megan(167) = 6. p_of_megan2cbmz(168) = is_hexenal_t2 ; p_of_cbmz(168) = p_oli ; cbmz_per_megan(168) = 1. p_of_megan2cbmz(169) = is_hexenol_c3 ; p_of_cbmz(169) = p_par ; cbmz_per_megan(169) = 5. p_of_megan2cbmz(170) = is_hexenol_c3 ; p_of_cbmz(170) = p_oli ; cbmz_per_megan(170) = 1. p_of_megan2cbmz(171) = is_hexenyl_act_c3 ; p_of_cbmz(171) = p_ket ; cbmz_per_megan(171) = 1. p_of_megan2cbmz(172) = is_hexenyl_act_c3 ; p_of_cbmz(172) = p_par ; cbmz_per_megan(172) = 3. p_of_megan2cbmz(173) = is_hexenyl_act_c3 ; p_of_cbmz(173) = p_oli ; cbmz_per_megan(173) = 1. END SUBROUTINE get_megan2cbmz_table !-------------------------------------------------------------------- SUBROUTINE get_megan2radm2_table ! For MEGAN v2.04 species conversion to RADM2 species ! Based on Tan's MAP_CV2RADM2.EXT ! Index of Index of Molar ratio ! MEGAN species RADM2 Species ! p_of_megan2radm2( 1) = is_isoprene ; p_of_radm2( 1) = p_iso ; radm2_per_megan( 1) = 1.000 p_of_megan2radm2( 2) = is_myrcene ; p_of_radm2( 2) = p_olt ; radm2_per_megan( 2) = 0.5 p_of_megan2radm2( 3) = is_myrcene ; p_of_radm2( 3) = p_oli ; radm2_per_megan( 3) = 0.5 p_of_megan2radm2( 4) = is_sabinene ; p_of_radm2( 4) = p_olt ; radm2_per_megan( 4) = 1.000 p_of_megan2radm2( 5) = is_limonene ; p_of_radm2( 5) = p_olt ; radm2_per_megan( 5) = 0.5 p_of_megan2radm2( 6) = is_limonene ; p_of_radm2( 6) = p_oli ; radm2_per_megan( 6) = 0.5 p_of_megan2radm2( 7) = is_carene_3 ; p_of_radm2( 7) = p_oli ; radm2_per_megan( 7) = 1.000 p_of_megan2radm2( 8) = is_ocimene_t_b ; p_of_radm2( 8) = p_olt ; radm2_per_megan( 8) = 0.5 p_of_megan2radm2( 9) = is_ocimene_t_b ; p_of_radm2( 9) = p_oli ; radm2_per_megan( 9) = 0.5 p_of_megan2radm2( 10) = is_pinene_b ; p_of_radm2( 10) = p_olt ; radm2_per_megan( 10) = 1.000 p_of_megan2radm2( 11) = is_pinene_a ; p_of_radm2( 11) = p_oli ; radm2_per_megan( 11) = 1.000 p_of_megan2radm2( 12) = is_2met_styrene ; p_of_radm2( 12) = p_tol ; radm2_per_megan( 12) = 1.000 p_of_megan2radm2( 13) = is_cymene_p ; p_of_radm2( 13) = p_tol ; radm2_per_megan( 13) = 1.000 p_of_megan2radm2( 14) = is_cymene_o ; p_of_radm2( 14) = p_tol ; radm2_per_megan( 14) = 1.000 p_of_megan2radm2( 15) = is_phellandrene_a ; p_of_radm2( 15) = p_oli ; radm2_per_megan( 15) = 1.000 p_of_megan2radm2( 16) = is_thujene_a ; p_of_radm2( 16) = p_oli ; radm2_per_megan( 16) = 1.000 p_of_megan2radm2( 17) = is_terpinene_a ; p_of_radm2( 17) = p_oli ; radm2_per_megan( 17) = 1.000 p_of_megan2radm2( 18) = is_terpinene_g ; p_of_radm2( 18) = p_oli ; radm2_per_megan( 18) = 1.000 p_of_megan2radm2( 19) = is_terpinolene ; p_of_radm2( 19) = p_oli ; radm2_per_megan( 19) = 1.000 p_of_megan2radm2( 20) = is_phellandrene_b ; p_of_radm2( 20) = p_olt ; radm2_per_megan( 20) = 0.5 p_of_megan2radm2( 21) = is_phellandrene_b ; p_of_radm2( 21) = p_oli ; radm2_per_megan( 21) = 0.5 p_of_megan2radm2( 22) = is_camphene ; p_of_radm2( 22) = p_olt ; radm2_per_megan( 22) = 1.000 p_of_megan2radm2( 23) = is_bornene ; p_of_radm2( 23) = p_oli ; radm2_per_megan( 23) = 1.000 p_of_megan2radm2( 24) = is_fenchene_a ; p_of_radm2( 24) = p_olt ; radm2_per_megan( 24) = 1.000 p_of_megan2radm2( 25) = is_ocimene_al ; p_of_radm2( 25) = p_oli ; radm2_per_megan( 25) = 1.000 p_of_megan2radm2( 26) = is_ocimene_c_b ; p_of_radm2( 26) = p_olt ; radm2_per_megan( 26) = 0.5 p_of_megan2radm2( 27) = is_ocimene_c_b ; p_of_radm2( 27) = p_oli ; radm2_per_megan( 27) = 0.5 p_of_megan2radm2( 28) = is_tricyclene ; p_of_radm2( 28) = non_react ; radm2_per_megan( 28) = 1.000 p_of_megan2radm2( 29) = is_estragole ; p_of_radm2( 29) = p_olt ; radm2_per_megan( 29) = 1.000 p_of_megan2radm2( 30) = is_camphor ; p_of_radm2( 30) = p_hc8 ; radm2_per_megan( 30) = 0.388 p_of_megan2radm2( 31) = is_fenchone ; p_of_radm2( 31) = non_react ; radm2_per_megan( 31) = 1.000 p_of_megan2radm2( 32) = is_piperitone ; p_of_radm2( 32) = p_olt ; radm2_per_megan( 32) = 1.000 p_of_megan2radm2( 33) = is_thujone_a ; p_of_radm2( 33) = non_react ; radm2_per_megan( 33) = 1.000 p_of_megan2radm2( 34) = is_thujone_b ; p_of_radm2( 34) = non_react ; radm2_per_megan( 34) = 1.000 p_of_megan2radm2( 35) = is_cineole_1_8 ; p_of_radm2( 35) = p_hc8 ; radm2_per_megan( 35) = 0.755 p_of_megan2radm2( 36) = is_borneol ; p_of_radm2( 36) = non_react ; radm2_per_megan( 36) = 1.000 p_of_megan2radm2( 37) = is_linalool ; p_of_radm2( 37) = p_olt ; radm2_per_megan( 37) = 0.5 p_of_megan2radm2( 38) = is_linalool ; p_of_radm2( 38) = p_oli ; radm2_per_megan( 38) = 0.5 p_of_megan2radm2( 39) = is_terpineol_4 ; p_of_radm2( 39) = p_oli ; radm2_per_megan( 39) = 1.000 p_of_megan2radm2( 40) = is_terpineol_a ; p_of_radm2( 40) = p_oli ; radm2_per_megan( 40) = 1.000 p_of_megan2radm2( 41) = is_linalool_oxd_c ; p_of_radm2( 41) = p_olt ; radm2_per_megan( 41) = 1.000 p_of_megan2radm2( 42) = is_linalool_oxd_t ; p_of_radm2( 42) = p_olt ; radm2_per_megan( 42) = 1.000 p_of_megan2radm2( 43) = is_ionone_b ; p_of_radm2( 43) = p_oli ; radm2_per_megan( 43) = 1.000 p_of_megan2radm2( 44) = is_bornyl_act ; p_of_radm2( 44) = non_react ; radm2_per_megan( 44) = 1.000 p_of_megan2radm2( 45) = is_farnescene_a ; p_of_radm2( 45) = p_olt ; radm2_per_megan( 45) = 0.5 p_of_megan2radm2( 46) = is_farnescene_a ; p_of_radm2( 46) = p_oli ; radm2_per_megan( 46) = 0.5 p_of_megan2radm2( 47) = is_caryophyllene_b ; p_of_radm2( 47) = p_olt ; radm2_per_megan( 47) = 0.5 p_of_megan2radm2( 48) = is_caryophyllene_b ; p_of_radm2( 48) = p_oli ; radm2_per_megan( 48) = 0.5 p_of_megan2radm2( 49) = is_acoradiene ; p_of_radm2( 49) = p_olt ; radm2_per_megan( 49) = 0.5 p_of_megan2radm2( 50) = is_acoradiene ; p_of_radm2( 50) = p_oli ; radm2_per_megan( 50) = 0.5 p_of_megan2radm2( 51) = is_aromadendrene ; p_of_radm2( 51) = p_olt ; radm2_per_megan( 51) = 1.000 p_of_megan2radm2( 52) = is_bergamotene_a ; p_of_radm2( 52) = p_oli ; radm2_per_megan( 52) = 1.000 p_of_megan2radm2( 53) = is_bergamotene_b ; p_of_radm2( 53) = p_olt ; radm2_per_megan( 53) = 0.5 p_of_megan2radm2( 54) = is_bergamotene_b ; p_of_radm2( 54) = p_oli ; radm2_per_megan( 54) = 0.5 p_of_megan2radm2( 55) = is_bisabolene_a ; p_of_radm2( 55) = p_oli ; radm2_per_megan( 55) = 1.000 p_of_megan2radm2( 56) = is_bisabolene_b ; p_of_radm2( 56) = p_olt ; radm2_per_megan( 56) = 0.5 p_of_megan2radm2( 57) = is_bisabolene_b ; p_of_radm2( 57) = p_oli ; radm2_per_megan( 57) = 0.5 p_of_megan2radm2( 58) = is_bourbonene_b ; p_of_radm2( 58) = p_olt ; radm2_per_megan( 58) = 1.000 p_of_megan2radm2( 59) = is_cadinene_d ; p_of_radm2( 59) = p_oli ; radm2_per_megan( 59) = 1.000 p_of_megan2radm2( 60) = is_cadinene_g ; p_of_radm2( 60) = p_olt ; radm2_per_megan( 60) = 0.5 p_of_megan2radm2( 61) = is_cadinene_g ; p_of_radm2( 61) = p_oli ; radm2_per_megan( 61) = 0.5 p_of_megan2radm2( 62) = is_cedrene_a ; p_of_radm2( 62) = p_oli ; radm2_per_megan( 62) = 1.000 p_of_megan2radm2( 63) = is_copaene_a ; p_of_radm2( 63) = p_oli ; radm2_per_megan( 63) = 1.000 p_of_megan2radm2( 64) = is_cubebene_a ; p_of_radm2( 64) = p_oli ; radm2_per_megan( 64) = 1.000 p_of_megan2radm2( 65) = is_cubebene_b ; p_of_radm2( 65) = p_olt ; radm2_per_megan( 65) = 1.000 p_of_megan2radm2( 66) = is_elemene_b ; p_of_radm2( 66) = p_olt ; radm2_per_megan( 66) = 1.000 p_of_megan2radm2( 67) = is_farnescene_b ; p_of_radm2( 67) = p_olt ; radm2_per_megan( 67) = 0.5 p_of_megan2radm2( 68) = is_farnescene_b ; p_of_radm2( 68) = p_oli ; radm2_per_megan( 68) = 0.5 p_of_megan2radm2( 69) = is_germacrene_b ; p_of_radm2( 69) = p_oli ; radm2_per_megan( 69) = 1.000 p_of_megan2radm2( 70) = is_germacrene_d ; p_of_radm2( 70) = p_olt ; radm2_per_megan( 70) = 0.5 p_of_megan2radm2( 71) = is_germacrene_d ; p_of_radm2( 71) = p_oli ; radm2_per_megan( 71) = 0.5 p_of_megan2radm2( 72) = is_gurjunene_b ; p_of_radm2( 72) = p_oli ; radm2_per_megan( 72) = 1.000 p_of_megan2radm2( 73) = is_humulene_a ; p_of_radm2( 73) = p_oli ; radm2_per_megan( 73) = 1.000 p_of_megan2radm2( 74) = is_humulene_g ; p_of_radm2( 74) = p_oli ; radm2_per_megan( 74) = 1.000 p_of_megan2radm2( 75) = is_isolongifolene ; p_of_radm2( 75) = p_oli ; radm2_per_megan( 75) = 1.000 p_of_megan2radm2( 76) = is_longifolene ; p_of_radm2( 76) = p_olt ; radm2_per_megan( 76) = 1.000 p_of_megan2radm2( 77) = is_longipinene ; p_of_radm2( 77) = p_oli ; radm2_per_megan( 77) = 1.000 p_of_megan2radm2( 78) = is_muurolene_a ; p_of_radm2( 78) = p_oli ; radm2_per_megan( 78) = 1.000 p_of_megan2radm2( 79) = is_muurolene_g ; p_of_radm2( 79) = p_olt ; radm2_per_megan( 79) = 0.5 p_of_megan2radm2( 80) = is_muurolene_g ; p_of_radm2( 80) = p_oli ; radm2_per_megan( 80) = 0.5 p_of_megan2radm2( 81) = is_selinene_b ; p_of_radm2( 81) = p_olt ; radm2_per_megan( 81) = 1.000 p_of_megan2radm2( 82) = is_selinene_d ; p_of_radm2( 82) = p_oli ; radm2_per_megan( 82) = 1.000 p_of_megan2radm2( 83) = is_nerolidol_c ; p_of_radm2( 83) = p_olt ; radm2_per_megan( 83) = 0.5 p_of_megan2radm2( 84) = is_nerolidol_c ; p_of_radm2( 84) = p_oli ; radm2_per_megan( 84) = 0.5 p_of_megan2radm2( 85) = is_nerolidol_t ; p_of_radm2( 85) = p_olt ; radm2_per_megan( 85) = 0.5 p_of_megan2radm2( 86) = is_nerolidol_t ; p_of_radm2( 86) = p_oli ; radm2_per_megan( 86) = 0.5 p_of_megan2radm2( 87) = is_cedrol ; p_of_radm2( 87) = non_react ; radm2_per_megan( 87) = 1.000 p_of_megan2radm2( 88) = is_mbo_2m3e2ol ; p_of_radm2( 88) = p_iso ; radm2_per_megan( 88) = 1.000 p_of_megan2radm2( 89) = is_methanol ; p_of_radm2( 89) = p_hc3 ; radm2_per_megan( 89) = 0.402 p_of_megan2radm2( 90) = is_acetone ; p_of_radm2( 90) = p_ket ; radm2_per_megan( 90) = 0.253 p_of_megan2radm2( 91) = is_methane ; p_of_radm2( 91) = p_ch4 ; radm2_per_megan( 91) = 1.000 p_of_megan2radm2( 92) = is_ammonia ; p_of_radm2( 92) = p_nh3 ; radm2_per_megan( 92) = 1.000 p_of_megan2radm2( 93) = is_nitrous_oxd ; p_of_radm2( 93) = p_no2 ; radm2_per_megan( 93) = 1.000 p_of_megan2radm2( 94) = is_nitric_oxd ; p_of_radm2( 94) = p_no ; radm2_per_megan( 94) = 1.000 p_of_megan2radm2( 95) = is_acetaldehyde ; p_of_radm2( 95) = p_ald ; radm2_per_megan( 95) = 1.000 p_of_megan2radm2( 96) = is_ethanol ; p_of_radm2( 96) = p_hc3 ; radm2_per_megan( 96) = 1.198 p_of_megan2radm2( 97) = is_formic_acid ; p_of_radm2( 97) = p_ora1 ; radm2_per_megan( 97) = 1.000 p_of_megan2radm2( 98) = is_formaldehyde ; p_of_radm2( 98) = p_hcho ; radm2_per_megan( 98) = 1.000 p_of_megan2radm2( 99) = is_acetic_acid ; p_of_radm2( 99) = p_ora2 ; radm2_per_megan( 99) = 1.000 p_of_megan2radm2(100) = is_mbo_3m2e1ol ; p_of_radm2(100) = p_iso ; radm2_per_megan(100) = 1.000 p_of_megan2radm2(101) = is_mbo_3m3e1ol ; p_of_radm2(101) = p_iso ; radm2_per_megan(101) = 1.000 p_of_megan2radm2(102) = is_benzaldehyde ; p_of_radm2(102) = non_react ; radm2_per_megan(102) = 1.000 p_of_megan2radm2(103) = is_butanone_2 ; p_of_radm2(103) = p_ket ; radm2_per_megan(103) = 1.000 p_of_megan2radm2(104) = is_decanal ; p_of_radm2(104) = p_ald ; radm2_per_megan(104) = 1.000 p_of_megan2radm2(105) = is_dodecene_1 ; p_of_radm2(105) = p_olt ; radm2_per_megan(105) = 1.000 p_of_megan2radm2(106) = is_geranyl_acetone ; p_of_radm2(106) = p_oli ; radm2_per_megan(106) = 1.000 p_of_megan2radm2(107) = is_heptanal ; p_of_radm2(107) = p_ald ; radm2_per_megan(107) = 1.000 p_of_megan2radm2(108) = is_heptane ; p_of_radm2(108) = p_hc5 ; radm2_per_megan(108) = 1.226 p_of_megan2radm2(109) = is_hexane ; p_of_radm2(109) = p_hc5 ; radm2_per_megan(109) = 1.049 p_of_megan2radm2(110) = is_met_benzoate ; p_of_radm2(110) = p_hc8 ; radm2_per_megan(110) = 1.000 p_of_megan2radm2(111) = is_met_heptenone ; p_of_radm2(111) = p_oli ; radm2_per_megan(111) = 1.000 p_of_megan2radm2(112) = is_neryl_acetone ; p_of_radm2(112) = p_oli ; radm2_per_megan(112) = 1.000 p_of_megan2radm2(113) = is_nonanal ; p_of_radm2(113) = p_ald ; radm2_per_megan(113) = 1.000 p_of_megan2radm2(114) = is_nonenal ; p_of_radm2(114) = p_ald ; radm2_per_megan(114) = 1.000 p_of_megan2radm2(115) = is_nonenal ; p_of_radm2(115) = p_hc8 ; radm2_per_megan(115) = 1.000 p_of_megan2radm2(116) = is_octanal ; p_of_radm2(116) = p_ald ; radm2_per_megan(116) = 1.000 p_of_megan2radm2(117) = is_octanol ; p_of_radm2(117) = p_hc8 ; radm2_per_megan(117) = 1.119 p_of_megan2radm2(118) = is_octenol_1e3ol ; p_of_radm2(118) = p_olt ; radm2_per_megan(118) = 1.000 p_of_megan2radm2(119) = is_oxopentanal ; p_of_radm2(119) = p_ald ; radm2_per_megan(119) = 1.000 p_of_megan2radm2(120) = is_pentane ; p_of_radm2(120) = p_hc5 ; radm2_per_megan(120) = 0.847 p_of_megan2radm2(121) = is_phenyl_cco ; p_of_radm2(121) = non_react ; radm2_per_megan(121) = 1.000 p_of_megan2radm2(122) = is_pyruvic_acid ; p_of_radm2(122) = p_ora2 ; radm2_per_megan(122) = 1.000 p_of_megan2radm2(123) = is_terpinyl_act_a ; p_of_radm2(123) = p_oli ; radm2_per_megan(123) = 1.000 p_of_megan2radm2(124) = is_tetradecene_1 ; p_of_radm2(124) = p_olt ; radm2_per_megan(124) = 1.000 p_of_megan2radm2(125) = is_toluene ; p_of_radm2(125) = p_tol ; radm2_per_megan(125) = 1.000 p_of_megan2radm2(126) = is_carbon_monoxide ; p_of_radm2(126) = p_co ; radm2_per_megan(126) = 1.000 p_of_megan2radm2(127) = is_butene ; p_of_radm2(127) = p_olt ; radm2_per_megan(127) = 1.000 p_of_megan2radm2(128) = is_ethane ; p_of_radm2(128) = p_eth ; radm2_per_megan(128) = 1.000 p_of_megan2radm2(129) = is_ethene ; p_of_radm2(129) = p_ol2 ; radm2_per_megan(129) = 1.000 p_of_megan2radm2(130) = is_hydrogen_cyanide; p_of_radm2(130) = non_react ; radm2_per_megan(130) = 1.000 p_of_megan2radm2(131) = is_propane ; p_of_radm2(131) = p_hc3 ; radm2_per_megan(131) = 0.519 p_of_megan2radm2(132) = is_propene ; p_of_radm2(132) = p_olt ; radm2_per_megan(132) = 1.000 p_of_megan2radm2(133) = is_carbon_2s ; p_of_radm2(133) = non_react ; radm2_per_megan(133) = 1.000 p_of_megan2radm2(134) = is_carbonyl_s ; p_of_radm2(134) = non_react ; radm2_per_megan(134) = 1.000 p_of_megan2radm2(135) = is_diallyl_2s ; p_of_radm2(135) = p_oli ; radm2_per_megan(135) = 1.000 p_of_megan2radm2(136) = is_diallyl_2s ; p_of_radm2(136) = p_so2 ; radm2_per_megan(136) = 2.000 p_of_megan2radm2(137) = is_2met_2s ; p_of_radm2(137) = p_eth ; radm2_per_megan(137) = 1.000 p_of_megan2radm2(138) = is_2met_2s ; p_of_radm2(138) = p_so2 ; radm2_per_megan(138) = 2.000 p_of_megan2radm2(139) = is_2met_s ; p_of_radm2(139) = p_eth ; radm2_per_megan(139) = 1.000 p_of_megan2radm2(140) = is_2met_s ; p_of_radm2(140) = p_so2 ; radm2_per_megan(140) = 1.000 p_of_megan2radm2(141) = is_met_chloride ; p_of_radm2(141) = non_react ; radm2_per_megan(141) = 1.000 p_of_megan2radm2(142) = is_met_bromide ; p_of_radm2(142) = non_react ; radm2_per_megan(142) = 1.000 p_of_megan2radm2(143) = is_met_iodide ; p_of_radm2(143) = non_react ; radm2_per_megan(143) = 1.000 p_of_megan2radm2(144) = is_hydrogen_s ; p_of_radm2(144) = p_so2 ; radm2_per_megan(144) = 1.000 p_of_megan2radm2(145) = is_met_mercaptan ; p_of_radm2(145) = p_ch4 ; radm2_per_megan(145) = 1.000 p_of_megan2radm2(146) = is_met_mercaptan ; p_of_radm2(146) = p_so2 ; radm2_per_megan(146) = 1.000 p_of_megan2radm2(147) = is_met_propenyl_2s ; p_of_radm2(147) = p_oli ; radm2_per_megan(147) = 1.000 p_of_megan2radm2(148) = is_met_propenyl_2s ; p_of_radm2(148) = p_so2 ; radm2_per_megan(148) = 2.000 p_of_megan2radm2(149) = is_pppp_2s ; p_of_radm2(149) = p_oli ; radm2_per_megan(149) = 1.000 p_of_megan2radm2(150) = is_pppp_2s ; p_of_radm2(150) = p_so2 ; radm2_per_megan(150) = 2.000 p_of_megan2radm2(151) = is_2met_nonatriene ; p_of_radm2(151) = p_olt ; radm2_per_megan(151) = 0.500 p_of_megan2radm2(152) = is_2met_nonatriene ; p_of_radm2(152) = p_oli ; radm2_per_megan(152) = 0.500 p_of_megan2radm2(153) = is_met_salicylate ; p_of_radm2(153) = p_hc8 ; radm2_per_megan(153) = 1.000 p_of_megan2radm2(154) = is_indole ; p_of_radm2(154) = p_hc8 ; radm2_per_megan(154) = 1.238 p_of_megan2radm2(155) = is_indole ; p_of_radm2(155) = p_hno3 ; radm2_per_megan(155) = 1.000 p_of_megan2radm2(156) = is_jasmone ; p_of_radm2(156) = p_oli ; radm2_per_megan(156) = 1.000 p_of_megan2radm2(157) = is_met_jasmonate ; p_of_radm2(157) = p_oli ; radm2_per_megan(157) = 1.000 p_of_megan2radm2(158) = is_3met_3dctt ; p_of_radm2(158) = p_olt ; radm2_per_megan(158) = 0.500 p_of_megan2radm2(159) = is_3met_3dctt ; p_of_radm2(159) = p_oli ; radm2_per_megan(159) = 0.500 p_of_megan2radm2(160) = is_hexanal ; p_of_radm2(160) = p_ald ; radm2_per_megan(160) = 1.000 p_of_megan2radm2(161) = is_hexanol_1 ; p_of_radm2(161) = p_hc5 ; radm2_per_megan(161) = 1.697 p_of_megan2radm2(162) = is_hexenal_c3 ; p_of_radm2(162) = p_oli ; radm2_per_megan(162) = 1.000 p_of_megan2radm2(163) = is_hexenal_t2 ; p_of_radm2(163) = p_oli ; radm2_per_megan(163) = 1.000 p_of_megan2radm2(164) = is_hexenol_c3 ; p_of_radm2(164) = p_olt ; radm2_per_megan(164) = 1.000 p_of_megan2radm2(165) = is_hexenyl_act_c3 ; p_of_radm2(165) = p_oli ; radm2_per_megan(165) = 1.000 END SUBROUTINE get_megan2radm2_table !-------------------------------------------------------------------- SUBROUTINE get_megan2racm_table ! For MEGAN v2.04 species conversion to RACM species ! Based on Tan's MAP_CV2RACM.EXT ! ! Index of Index of Molar ratio ! MEGAN species RACM Species ! p_of_megan2racm( 1) = is_isoprene ; p_of_racm( 1) = p_iso ; racm_per_megan( 1) = 1.000 p_of_megan2racm( 2) = is_myrcene ; p_of_racm( 2) = p_lim ; racm_per_megan( 2) = 1.000 p_of_megan2racm( 3) = is_sabinene ; p_of_racm( 3) = p_api ; racm_per_megan( 3) = 1.000 p_of_megan2racm( 4) = is_limonene ; p_of_racm( 4) = p_lim ; racm_per_megan( 4) = 1.000 p_of_megan2racm( 5) = is_carene_3 ; p_of_racm( 5) = p_api ; racm_per_megan( 5) = 1.000 p_of_megan2racm( 6) = is_ocimene_t_b ; p_of_racm( 6) = p_lim ; racm_per_megan( 6) = 1.000 p_of_megan2racm( 7) = is_pinene_b ; p_of_racm( 7) = p_api ; racm_per_megan( 7) = 1.000 p_of_megan2racm( 8) = is_pinene_a ; p_of_racm( 8) = p_api ; racm_per_megan( 8) = 1.000 p_of_megan2racm( 9) = is_2met_styrene ; p_of_racm( 9) = p_lim ; racm_per_megan( 9) = 1.000 p_of_megan2racm( 10) = is_cymene_p ; p_of_racm( 10) = p_lim ; racm_per_megan( 10) = 1.000 p_of_megan2racm( 11) = is_cymene_o ; p_of_racm( 11) = p_lim ; racm_per_megan( 11) = 1.000 p_of_megan2racm( 12) = is_phellandrene_a ; p_of_racm( 12) = p_lim ; racm_per_megan( 12) = 1.000 p_of_megan2racm( 13) = is_thujene_a ; p_of_racm( 13) = p_api ; racm_per_megan( 13) = 1.000 p_of_megan2racm( 14) = is_terpinene_a ; p_of_racm( 14) = p_lim ; racm_per_megan( 14) = 1.000 p_of_megan2racm( 15) = is_terpinene_g ; p_of_racm( 15) = p_lim ; racm_per_megan( 15) = 1.000 p_of_megan2racm( 16) = is_terpinolene ; p_of_racm( 16) = p_lim ; racm_per_megan( 16) = 1.000 p_of_megan2racm( 17) = is_phellandrene_b ; p_of_racm( 17) = p_lim ; racm_per_megan( 17) = 1.000 p_of_megan2racm( 18) = is_camphene ; p_of_racm( 18) = p_api ; racm_per_megan( 18) = 1.000 p_of_megan2racm( 19) = is_bornene ; p_of_racm( 19) = p_api ; racm_per_megan( 19) = 1.000 p_of_megan2racm( 20) = is_fenchene_a ; p_of_racm( 20) = p_api ; racm_per_megan( 20) = 1.000 p_of_megan2racm( 21) = is_ocimene_al ; p_of_racm( 21) = p_lim ; racm_per_megan( 21) = 1.000 p_of_megan2racm( 22) = is_ocimene_c_b ; p_of_racm( 22) = p_lim ; racm_per_megan( 22) = 1.000 p_of_megan2racm( 23) = is_tricyclene ; p_of_racm( 23) = non_react ; racm_per_megan( 23) = 1.000 p_of_megan2racm( 24) = is_estragole ; p_of_racm( 24) = p_lim ; racm_per_megan( 24) = 1.000 p_of_megan2racm( 25) = is_camphor ; p_of_racm( 25) = p_hc8 ; racm_per_megan( 25) = 0.380 p_of_megan2racm( 26) = is_fenchone ; p_of_racm( 26) = non_react ; racm_per_megan( 26) = 1.000 p_of_megan2racm( 27) = is_piperitone ; p_of_racm( 27) = p_api ; racm_per_megan( 27) = 1.000 p_of_megan2racm( 28) = is_thujone_a ; p_of_racm( 28) = non_react ; racm_per_megan( 28) = 1.000 p_of_megan2racm( 29) = is_thujone_b ; p_of_racm( 29) = non_react ; racm_per_megan( 29) = 1.000 p_of_megan2racm( 30) = is_cineole_1_8 ; p_of_racm( 30) = p_hc8 ; racm_per_megan( 30) = 0.738 p_of_megan2racm( 31) = is_borneol ; p_of_racm( 31) = non_react ; racm_per_megan( 31) = 1.000 p_of_megan2racm( 32) = is_linalool ; p_of_racm( 32) = p_lim ; racm_per_megan( 32) = 1.000 p_of_megan2racm( 33) = is_terpineol_4 ; p_of_racm( 33) = p_api ; racm_per_megan( 33) = 1.000 p_of_megan2racm( 34) = is_terpineol_a ; p_of_racm( 34) = p_api ; racm_per_megan( 34) = 1.000 p_of_megan2racm( 35) = is_linalool_oxd_c ; p_of_racm( 35) = p_lim ; racm_per_megan( 35) = 1.000 p_of_megan2racm( 36) = is_linalool_oxd_t ; p_of_racm( 36) = p_lim ; racm_per_megan( 36) = 1.000 p_of_megan2racm( 37) = is_ionone_b ; p_of_racm( 37) = p_lim ; racm_per_megan( 37) = 1.000 p_of_megan2racm( 38) = is_bornyl_act ; p_of_racm( 38) = non_react ; racm_per_megan( 38) = 1.000 p_of_megan2racm( 39) = is_farnescene_a ; p_of_racm( 39) = p_lim ; racm_per_megan( 39) = 1.000 p_of_megan2racm( 40) = is_caryophyllene_b ; p_of_racm( 40) = p_lim ; racm_per_megan( 40) = 1.000 p_of_megan2racm( 41) = is_acoradiene ; p_of_racm( 41) = p_lim ; racm_per_megan( 41) = 1.000 p_of_megan2racm( 42) = is_aromadendrene ; p_of_racm( 42) = p_api ; racm_per_megan( 42) = 1.000 p_of_megan2racm( 43) = is_bergamotene_a ; p_of_racm( 43) = p_lim ; racm_per_megan( 43) = 1.000 p_of_megan2racm( 44) = is_bergamotene_b ; p_of_racm( 44) = p_lim ; racm_per_megan( 44) = 1.000 p_of_megan2racm( 45) = is_bisabolene_a ; p_of_racm( 45) = p_lim ; racm_per_megan( 45) = 1.000 p_of_megan2racm( 46) = is_bisabolene_b ; p_of_racm( 46) = p_lim ; racm_per_megan( 46) = 1.000 p_of_megan2racm( 47) = is_bourbonene_b ; p_of_racm( 47) = p_api ; racm_per_megan( 47) = 1.000 p_of_megan2racm( 48) = is_cadinene_d ; p_of_racm( 48) = p_lim ; racm_per_megan( 48) = 1.000 p_of_megan2racm( 49) = is_cadinene_g ; p_of_racm( 49) = p_lim ; racm_per_megan( 49) = 1.000 p_of_megan2racm( 50) = is_cedrene_a ; p_of_racm( 50) = p_api ; racm_per_megan( 50) = 1.000 p_of_megan2racm( 51) = is_copaene_a ; p_of_racm( 51) = p_api ; racm_per_megan( 51) = 1.000 p_of_megan2racm( 52) = is_cubebene_a ; p_of_racm( 52) = p_api ; racm_per_megan( 52) = 1.000 p_of_megan2racm( 53) = is_cubebene_b ; p_of_racm( 53) = p_api ; racm_per_megan( 53) = 1.000 p_of_megan2racm( 54) = is_elemene_b ; p_of_racm( 54) = p_lim ; racm_per_megan( 54) = 1.000 p_of_megan2racm( 55) = is_farnescene_b ; p_of_racm( 55) = p_lim ; racm_per_megan( 55) = 1.000 p_of_megan2racm( 56) = is_germacrene_b ; p_of_racm( 56) = p_lim ; racm_per_megan( 56) = 1.000 p_of_megan2racm( 57) = is_germacrene_d ; p_of_racm( 57) = p_lim ; racm_per_megan( 57) = 1.000 p_of_megan2racm( 58) = is_gurjunene_b ; p_of_racm( 58) = p_api ; racm_per_megan( 58) = 1.000 p_of_megan2racm( 59) = is_humulene_a ; p_of_racm( 59) = p_lim ; racm_per_megan( 59) = 1.000 p_of_megan2racm( 60) = is_humulene_g ; p_of_racm( 60) = p_lim ; racm_per_megan( 60) = 1.000 p_of_megan2racm( 61) = is_isolongifolene ; p_of_racm( 61) = p_api ; racm_per_megan( 61) = 1.000 p_of_megan2racm( 62) = is_longifolene ; p_of_racm( 62) = p_api ; racm_per_megan( 62) = 1.000 p_of_megan2racm( 63) = is_longipinene ; p_of_racm( 63) = p_api ; racm_per_megan( 63) = 1.000 p_of_megan2racm( 64) = is_muurolene_a ; p_of_racm( 64) = p_lim ; racm_per_megan( 64) = 1.000 p_of_megan2racm( 65) = is_muurolene_g ; p_of_racm( 65) = p_lim ; racm_per_megan( 65) = 1.000 p_of_megan2racm( 66) = is_selinene_b ; p_of_racm( 66) = p_lim ; racm_per_megan( 66) = 1.000 p_of_megan2racm( 67) = is_selinene_d ; p_of_racm( 67) = p_lim ; racm_per_megan( 67) = 1.000 p_of_megan2racm( 68) = is_nerolidol_c ; p_of_racm( 68) = p_lim ; racm_per_megan( 68) = 1.000 p_of_megan2racm( 69) = is_nerolidol_t ; p_of_racm( 69) = p_lim ; racm_per_megan( 69) = 1.000 p_of_megan2racm( 70) = is_cedrol ; p_of_racm( 70) = non_react ; racm_per_megan( 70) = 1.000 p_of_megan2racm( 71) = is_mbo_2m3e2ol ; p_of_racm( 71) = p_iso ; racm_per_megan( 71) = 1.000 p_of_megan2racm( 72) = is_methanol ; p_of_racm( 72) = p_hc3 ; racm_per_megan( 72) = 0.490 p_of_megan2racm( 73) = is_acetone ; p_of_racm( 73) = p_ket ; racm_per_megan( 73) = 0.330 p_of_megan2racm( 74) = is_methane ; p_of_racm( 74) = p_ch4 ; racm_per_megan( 74) = 1.000 p_of_megan2racm( 75) = is_ammonia ; p_of_racm( 75) = p_nh3 ; racm_per_megan( 75) = 1.000 p_of_megan2racm( 76) = is_nitrous_oxd ; p_of_racm( 76) = p_no2 ; racm_per_megan( 76) = 1.000 p_of_megan2racm( 77) = is_nitric_oxd ; p_of_racm( 77) = p_no ; racm_per_megan( 77) = 1.000 p_of_megan2racm( 78) = is_acetaldehyde ; p_of_racm( 78) = p_ald ; racm_per_megan( 78) = 1.000 p_of_megan2racm( 79) = is_ethanol ; p_of_racm( 79) = p_hc3 ; racm_per_megan( 79) = 1.370 p_of_megan2racm( 80) = is_formic_acid ; p_of_racm( 80) = p_ora1 ; racm_per_megan( 80) = 1.000 p_of_megan2racm( 81) = is_formaldehyde ; p_of_racm( 81) = p_hcho ; racm_per_megan( 81) = 1.000 p_of_megan2racm( 82) = is_acetic_acid ; p_of_racm( 82) = p_ora2 ; racm_per_megan( 82) = 1.000 p_of_megan2racm( 83) = is_mbo_3m2e1ol ; p_of_racm( 83) = p_iso ; racm_per_megan( 83) = 1.000 p_of_megan2racm( 84) = is_mbo_3m3e1ol ; p_of_racm( 84) = p_iso ; racm_per_megan( 84) = 1.000 p_of_megan2racm( 85) = is_benzaldehyde ; p_of_racm( 85) = non_react ; racm_per_megan( 85) = 1.000 p_of_megan2racm( 86) = is_butanone_2 ; p_of_racm( 86) = p_ket ; racm_per_megan( 86) = 1.610 p_of_megan2racm( 87) = is_decanal ; p_of_racm( 87) = p_ald ; racm_per_megan( 87) = 1.000 p_of_megan2racm( 88) = is_dodecene_1 ; p_of_racm( 88) = p_olt ; racm_per_megan( 88) = 1.000 p_of_megan2racm( 89) = is_geranyl_acetone ; p_of_racm( 89) = p_lim ; racm_per_megan( 89) = 1.000 p_of_megan2racm( 90) = is_heptanal ; p_of_racm( 90) = p_ald ; racm_per_megan( 90) = 1.000 p_of_megan2racm( 91) = is_heptane ; p_of_racm( 91) = p_hc5 ; racm_per_megan( 91) = 1.236 p_of_megan2racm( 92) = is_hexane ; p_of_racm( 92) = p_hc5 ; racm_per_megan( 92) = 1.058 p_of_megan2racm( 93) = is_met_benzoate ; p_of_racm( 93) = p_hc8 ; racm_per_megan( 93) = 1.000 p_of_megan2racm( 94) = is_met_heptenone ; p_of_racm( 94) = p_oli ; racm_per_megan( 94) = 1.000 p_of_megan2racm( 95) = is_neryl_acetone ; p_of_racm( 95) = p_oli ; racm_per_megan( 95) = 1.000 p_of_megan2racm( 96) = is_nonanal ; p_of_racm( 96) = p_ald ; racm_per_megan( 96) = 1.000 p_of_megan2racm( 97) = is_nonenal ; p_of_racm( 97) = p_hc8 ; racm_per_megan( 97) = 1.000 p_of_megan2racm( 98) = is_nonenal ; p_of_racm( 98) = p_ald ; racm_per_megan( 98) = 1.000 p_of_megan2racm( 99) = is_octanal ; p_of_racm( 99) = p_ald ; racm_per_megan( 99) = 1.000 p_of_megan2racm(100) = is_octanol ; p_of_racm(100) = p_hc8 ; racm_per_megan(100) = 1.092 p_of_megan2racm(101) = is_octenol_1e3ol ; p_of_racm(101) = p_olt ; racm_per_megan(101) = 1.000 p_of_megan2racm(102) = is_oxopentanal ; p_of_racm(102) = p_ald ; racm_per_megan(102) = 1.000 p_of_megan2racm(103) = is_pentane ; p_of_racm(103) = p_hc5 ; racm_per_megan(103) = 0.854 p_of_megan2racm(104) = is_phenyl_cco ; p_of_racm(104) = non_react ; racm_per_megan(104) = 1.000 p_of_megan2racm(105) = is_pyruvic_acid ; p_of_racm(105) = p_ora2 ; racm_per_megan(105) = 1.000 p_of_megan2racm(106) = is_terpinyl_act_a ; p_of_racm(106) = p_api ; racm_per_megan(106) = 1.000 p_of_megan2racm(107) = is_tetradecene_1 ; p_of_racm(107) = p_olt ; racm_per_megan(107) = 1.000 p_of_megan2racm(108) = is_toluene ; p_of_racm(108) = p_tol ; racm_per_megan(108) = 1.000 p_of_megan2racm(109) = is_carbon_monoxide ; p_of_racm(109) = p_co ; racm_per_megan(109) = 1.000 p_of_megan2racm(110) = is_butene ; p_of_racm(110) = p_olt ; racm_per_megan(110) = 1.000 p_of_megan2racm(111) = is_ethane ; p_of_racm(111) = p_eth ; racm_per_megan(111) = 1.000 p_of_megan2racm(112) = is_ethene ; p_of_racm(112) = p_ete ; racm_per_megan(112) = 1.000 p_of_megan2racm(113) = is_hydrogen_cyanide ; p_of_racm(113) = non_react ; racm_per_megan(113) = 1.000 p_of_megan2racm(114) = is_propane ; p_of_racm(114) = p_hc3 ; racm_per_megan(114) = 0.570 p_of_megan2racm(115) = is_propene ; p_of_racm(115) = p_olt ; racm_per_megan(115) = 1.000 p_of_megan2racm(116) = is_carbon_2s ; p_of_racm(116) = non_react ; racm_per_megan(116) = 1.000 p_of_megan2racm(117) = is_carbonyl_s ; p_of_racm(117) = non_react ; racm_per_megan(117) = 1.000 p_of_megan2racm(118) = is_diallyl_2s ; p_of_racm(118) = p_oli ; racm_per_megan(118) = 1.000 p_of_megan2racm(119) = is_diallyl_2s ; p_of_racm(119) = p_so2 ; racm_per_megan(119) = 2.000 p_of_megan2racm(120) = is_2met_2s ; p_of_racm(120) = p_eth ; racm_per_megan(120) = 1.000 p_of_megan2racm(121) = is_2met_2s ; p_of_racm(121) = p_so2 ; racm_per_megan(121) = 2.000 p_of_megan2racm(122) = is_2met_s ; p_of_racm(122) = p_eth ; racm_per_megan(122) = 1.000 p_of_megan2racm(123) = is_2met_s ; p_of_racm(123) = p_so2 ; racm_per_megan(123) = 1.000 p_of_megan2racm(124) = is_met_chloride ; p_of_racm(124) = non_react ; racm_per_megan(124) = 1.000 p_of_megan2racm(125) = is_met_bromide ; p_of_racm(125) = non_react ; racm_per_megan(125) = 1.000 p_of_megan2racm(126) = is_met_iodide ; p_of_racm(126) = non_react ; racm_per_megan(126) = 1.000 p_of_megan2racm(127) = is_hydrogen_s ; p_of_racm(127) = p_so2 ; racm_per_megan(127) = 1.000 p_of_megan2racm(128) = is_met_mercaptan ; p_of_racm(128) = p_ch4 ; racm_per_megan(128) = 1.000 p_of_megan2racm(129) = is_met_mercaptan ; p_of_racm(129) = p_so2 ; racm_per_megan(129) = 1.000 p_of_megan2racm(130) = is_met_propenyl_2s ; p_of_racm(130) = p_oli ; racm_per_megan(130) = 1.000 p_of_megan2racm(131) = is_met_propenyl_2s ; p_of_racm(131) = p_so2 ; racm_per_megan(131) = 2.000 p_of_megan2racm(132) = is_pppp_2s ; p_of_racm(132) = p_oli ; racm_per_megan(132) = 1.000 p_of_megan2racm(133) = is_pppp_2s ; p_of_racm(133) = p_so2 ; racm_per_megan(133) = 2.000 p_of_megan2racm(134) = is_2met_nonatriene ; p_of_racm(134) = p_lim ; racm_per_megan(134) = 1.000 p_of_megan2racm(135) = is_met_salicylate ; p_of_racm(135) = p_hc8 ; racm_per_megan(135) = 1.000 p_of_megan2racm(136) = is_indole ; p_of_racm(136) = p_hc8 ; racm_per_megan(136) = 1.201 p_of_megan2racm(137) = is_indole ; p_of_racm(137) = p_hno3 ; racm_per_megan(137) = 1.000 p_of_megan2racm(138) = is_jasmone ; p_of_racm(138) = p_lim ; racm_per_megan(138) = 1.000 p_of_megan2racm(139) = is_met_jasmonate ; p_of_racm(139) = p_lim ; racm_per_megan(139) = 1.000 p_of_megan2racm(140) = is_3met_3dctt ; p_of_racm(140) = p_oli ; racm_per_megan(140) = 0.500 p_of_megan2racm(141) = is_3met_3dctt ; p_of_racm(141) = p_olt ; racm_per_megan(141) = 0.500 p_of_megan2racm(142) = is_hexanal ; p_of_racm(142) = p_ald ; racm_per_megan(142) = 1.000 p_of_megan2racm(143) = is_hexanol_1 ; p_of_racm(143) = p_hc5 ; racm_per_megan(143) = 1.710 p_of_megan2racm(144) = is_hexenal_c3 ; p_of_racm(144) = p_oli ; racm_per_megan(144) = 1.000 p_of_megan2racm(145) = is_hexenal_t2 ; p_of_racm(145) = p_oli ; racm_per_megan(145) = 1.000 p_of_megan2racm(146) = is_hexenol_c3 ; p_of_racm(146) = p_olt ; racm_per_megan(146) = 1.000 p_of_megan2racm(147) = is_hexenyl_act_c3 ; p_of_racm(147) = p_oli ; racm_per_megan(147) = 1.000 END SUBROUTINE get_megan2racm_table SUBROUTINE get_megan2racmSOA_table ! For MEGAN v2.04 species conversion to RACM_SOA_VBD_KPP species ! Based on Tan's MAP_CV2RACM.EXT ! ! Index of Index of Molar ratio ! MEGAN species RACM Species ! p_of_megan2racmSOA( 1) = is_isoprene ; p_of_racmSOA( 1) = p_iso ; racmSOA_per_megan( 1) = 1.000 p_of_megan2racmSOA( 2) = is_myrcene ; p_of_racmSOA( 2) = p_lim ; racmSOA_per_megan( 2) = 1.000 p_of_megan2racmSOA( 3) = is_sabinene ; p_of_racmSOA( 3) = p_api ; racmSOA_per_megan( 3) = 1.000 p_of_megan2racmSOA( 4) = is_limonene ; p_of_racmSOA( 4) = p_lim ; racmSOA_per_megan( 4) = 1.000 p_of_megan2racmSOA( 5) = is_carene_3 ; p_of_racmSOA( 5) = p_api ; racmSOA_per_megan( 5) = 1.000 p_of_megan2racmSOA( 6) = is_ocimene_t_b ; p_of_racmSOA( 6) = p_lim ; racmSOA_per_megan( 6) = 1.000 p_of_megan2racmSOA( 7) = is_pinene_b ; p_of_racmSOA( 7) = p_api ; racmSOA_per_megan( 7) = 1.000 p_of_megan2racmSOA( 8) = is_pinene_a ; p_of_racmSOA( 8) = p_api ; racmSOA_per_megan( 8) = 1.000 p_of_megan2racmSOA( 9) = is_2met_styrene ; p_of_racmSOA( 9) = p_lim ; racmSOA_per_megan( 9) = 1.000 p_of_megan2racmSOA( 10) = is_cymene_p ; p_of_racmSOA( 10) = p_lim ; racmSOA_per_megan( 10) = 1.000 p_of_megan2racmSOA( 11) = is_cymene_o ; p_of_racmSOA( 11) = p_lim ; racmSOA_per_megan( 11) = 1.000 p_of_megan2racmSOA( 12) = is_phellandrene_a ; p_of_racmSOA( 12) = p_lim ; racmSOA_per_megan( 12) = 1.000 p_of_megan2racmSOA( 13) = is_thujene_a ; p_of_racmSOA( 13) = p_api ; racmSOA_per_megan( 13) = 1.000 p_of_megan2racmSOA( 14) = is_terpinene_a ; p_of_racmSOA( 14) = p_lim ; racmSOA_per_megan( 14) = 1.000 p_of_megan2racmSOA( 15) = is_terpinene_g ; p_of_racmSOA( 15) = p_lim ; racmSOA_per_megan( 15) = 1.000 p_of_megan2racmSOA( 16) = is_terpinolene ; p_of_racmSOA( 16) = p_lim ; racmSOA_per_megan( 16) = 1.000 p_of_megan2racmSOA( 17) = is_phellandrene_b ; p_of_racmSOA( 17) = p_lim ; racmSOA_per_megan( 17) = 1.000 p_of_megan2racmSOA( 18) = is_camphene ; p_of_racmSOA( 18) = p_api ; racmSOA_per_megan( 18) = 1.000 p_of_megan2racmSOA( 19) = is_bornene ; p_of_racmSOA( 19) = p_api ; racmSOA_per_megan( 19) = 1.000 p_of_megan2racmSOA( 20) = is_fenchene_a ; p_of_racmSOA( 20) = p_api ; racmSOA_per_megan( 20) = 1.000 p_of_megan2racmSOA( 21) = is_ocimene_al ; p_of_racmSOA( 21) = p_lim ; racmSOA_per_megan( 21) = 1.000 p_of_megan2racmSOA( 22) = is_ocimene_c_b ; p_of_racmSOA( 22) = p_lim ; racmSOA_per_megan( 22) = 1.000 p_of_megan2racmSOA( 23) = is_tricyclene ; p_of_racmSOA( 23) = non_react ; racmSOA_per_megan( 23) = 1.000 p_of_megan2racmSOA( 24) = is_estragole ; p_of_racmSOA( 24) = p_lim ; racmSOA_per_megan( 24) = 1.000 p_of_megan2racmSOA( 25) = is_camphor ; p_of_racmSOA( 25) = p_hc8 ; racmSOA_per_megan( 25) = 0.380 p_of_megan2racmSOA( 26) = is_fenchone ; p_of_racmSOA( 26) = non_react ; racmSOA_per_megan( 26) = 1.000 p_of_megan2racmSOA( 27) = is_piperitone ; p_of_racmSOA( 27) = p_api ; racmSOA_per_megan( 27) = 1.000 p_of_megan2racmSOA( 28) = is_thujone_a ; p_of_racmSOA( 28) = non_react ; racmSOA_per_megan( 28) = 1.000 p_of_megan2racmSOA( 29) = is_thujone_b ; p_of_racmSOA( 29) = non_react ; racmSOA_per_megan( 29) = 1.000 p_of_megan2racmSOA( 30) = is_cineole_1_8 ; p_of_racmSOA( 30) = p_hc8 ; racmSOA_per_megan( 30) = 0.738 p_of_megan2racmSOA( 31) = is_borneol ; p_of_racmSOA( 31) = non_react ; racmSOA_per_megan( 31) = 1.000 p_of_megan2racmSOA( 32) = is_linalool ; p_of_racmSOA( 32) = p_lim ; racmSOA_per_megan( 32) = 1.000 p_of_megan2racmSOA( 33) = is_terpineol_4 ; p_of_racmSOA( 33) = p_api ; racmSOA_per_megan( 33) = 1.000 p_of_megan2racmSOA( 34) = is_terpineol_a ; p_of_racmSOA( 34) = p_api ; racmSOA_per_megan( 34) = 1.000 p_of_megan2racmSOA( 35) = is_linalool_oxd_c ; p_of_racmSOA( 35) = p_lim ; racmSOA_per_megan( 35) = 1.000 p_of_megan2racmSOA( 36) = is_linalool_oxd_t ; p_of_racmSOA( 36) = p_lim ; racmSOA_per_megan( 36) = 1.000 p_of_megan2racmSOA( 37) = is_ionone_b ; p_of_racmSOA( 37) = p_lim ; racmSOA_per_megan( 37) = 1.000 p_of_megan2racmSOA( 38) = is_bornyl_act ; p_of_racmSOA( 38) = non_react ; racmSOA_per_megan( 38) = 1.000 p_of_megan2racmSOA( 39) = is_farnescene_a ; p_of_racmSOA( 39) = p_lim ; racmSOA_per_megan( 39) = 1.000 p_of_megan2racmSOA( 40) = is_caryophyllene_b ; p_of_racmSOA( 40) = p_lim ; racmSOA_per_megan( 40) = 1.000 p_of_megan2racmSOA( 41) = is_acoradiene ; p_of_racmSOA( 41) = p_lim ; racmSOA_per_megan( 41) = 1.000 p_of_megan2racmSOA( 42) = is_aromadendrene ; p_of_racmSOA( 42) = p_api ; racmSOA_per_megan( 42) = 1.000 p_of_megan2racmSOA( 43) = is_bergamotene_a ; p_of_racmSOA( 43) = p_lim ; racmSOA_per_megan( 43) = 1.000 p_of_megan2racmSOA( 44) = is_bergamotene_b ; p_of_racmSOA( 44) = p_lim ; racmSOA_per_megan( 44) = 1.000 p_of_megan2racmSOA( 45) = is_bisabolene_a ; p_of_racmSOA( 45) = p_lim ; racmSOA_per_megan( 45) = 1.000 p_of_megan2racmSOA( 46) = is_bisabolene_b ; p_of_racmSOA( 46) = p_lim ; racmSOA_per_megan( 46) = 1.000 p_of_megan2racmSOA( 47) = is_bourbonene_b ; p_of_racmSOA( 47) = p_api ; racmSOA_per_megan( 47) = 1.000 p_of_megan2racmSOA( 48) = is_cadinene_d ; p_of_racmSOA( 48) = p_lim ; racmSOA_per_megan( 48) = 1.000 p_of_megan2racmSOA( 49) = is_cadinene_g ; p_of_racmSOA( 49) = p_lim ; racmSOA_per_megan( 49) = 1.000 p_of_megan2racmSOA( 50) = is_cedrene_a ; p_of_racmSOA( 50) = p_api ; racmSOA_per_megan( 50) = 1.000 p_of_megan2racmSOA( 51) = is_copaene_a ; p_of_racmSOA( 51) = p_api ; racmSOA_per_megan( 51) = 1.000 p_of_megan2racmSOA( 52) = is_cubebene_a ; p_of_racmSOA( 52) = p_api ; racmSOA_per_megan( 52) = 1.000 p_of_megan2racmSOA( 53) = is_cubebene_b ; p_of_racmSOA( 53) = p_api ; racmSOA_per_megan( 53) = 1.000 p_of_megan2racmSOA( 54) = is_elemene_b ; p_of_racmSOA( 54) = p_lim ; racmSOA_per_megan( 54) = 1.000 p_of_megan2racmSOA( 55) = is_farnescene_b ; p_of_racmSOA( 55) = p_lim ; racmSOA_per_megan( 55) = 1.000 p_of_megan2racmSOA( 56) = is_germacrene_b ; p_of_racmSOA( 56) = p_lim ; racmSOA_per_megan( 56) = 1.000 p_of_megan2racmSOA( 57) = is_germacrene_d ; p_of_racmSOA( 57) = p_lim ; racmSOA_per_megan( 57) = 1.000 p_of_megan2racmSOA( 58) = is_gurjunene_b ; p_of_racmSOA( 58) = p_api ; racmSOA_per_megan( 58) = 1.000 p_of_megan2racmSOA( 59) = is_humulene_a ; p_of_racmSOA( 59) = p_lim ; racmSOA_per_megan( 59) = 1.000 p_of_megan2racmSOA( 60) = is_humulene_g ; p_of_racmSOA( 60) = p_lim ; racmSOA_per_megan( 60) = 1.000 p_of_megan2racmSOA( 61) = is_isolongifolene ; p_of_racmSOA( 61) = p_api ; racmSOA_per_megan( 61) = 1.000 p_of_megan2racmSOA( 62) = is_longifolene ; p_of_racmSOA( 62) = p_api ; racmSOA_per_megan( 62) = 1.000 p_of_megan2racmSOA( 63) = is_longipinene ; p_of_racmSOA( 63) = p_api ; racmSOA_per_megan( 63) = 1.000 p_of_megan2racmSOA( 64) = is_muurolene_a ; p_of_racmSOA( 64) = p_lim ; racmSOA_per_megan( 64) = 1.000 p_of_megan2racmSOA( 65) = is_muurolene_g ; p_of_racmSOA( 65) = p_lim ; racmSOA_per_megan( 65) = 1.000 p_of_megan2racmSOA( 66) = is_selinene_b ; p_of_racmSOA( 66) = p_lim ; racmSOA_per_megan( 66) = 1.000 p_of_megan2racmSOA( 67) = is_selinene_d ; p_of_racmSOA( 67) = p_lim ; racmSOA_per_megan( 67) = 1.000 p_of_megan2racmSOA( 68) = is_nerolidol_c ; p_of_racmSOA( 68) = p_lim ; racmSOA_per_megan( 68) = 1.000 p_of_megan2racmSOA( 69) = is_nerolidol_t ; p_of_racmSOA( 69) = p_lim ; racmSOA_per_megan( 69) = 1.000 p_of_megan2racmSOA( 70) = is_cedrol ; p_of_racmSOA( 70) = non_react ; racmSOA_per_megan( 70) = 1.000 p_of_megan2racmSOA( 71) = is_mbo_2m3e2ol ; p_of_racmSOA( 71) = p_mbo ; racmSOA_per_megan( 71) = 1.000 p_of_megan2racmSOA( 72) = is_methanol ; p_of_racmSOA( 72) = p_hc3 ; racmSOA_per_megan( 72) = 0.490 p_of_megan2racmSOA( 73) = is_acetone ; p_of_racmSOA( 73) = p_ket ; racmSOA_per_megan( 73) = 0.330 p_of_megan2racmSOA( 74) = is_methane ; p_of_racmSOA( 74) = p_ch4 ; racmSOA_per_megan( 74) = 1.000 p_of_megan2racmSOA( 75) = is_ammonia ; p_of_racmSOA( 75) = p_nh3 ; racmSOA_per_megan( 75) = 1.000 p_of_megan2racmSOA( 76) = is_nitrous_oxd ; p_of_racmSOA( 76) = p_no2 ; racmSOA_per_megan( 76) = 1.000 p_of_megan2racmSOA( 77) = is_nitric_oxd ; p_of_racmSOA( 77) = p_no ; racmSOA_per_megan( 77) = 1.000 p_of_megan2racmSOA( 78) = is_acetaldehyde ; p_of_racmSOA( 78) = p_ald ; racmSOA_per_megan( 78) = 1.000 p_of_megan2racmSOA( 79) = is_ethanol ; p_of_racmSOA( 79) = p_hc3 ; racmSOA_per_megan( 79) = 1.370 p_of_megan2racmSOA( 80) = is_formic_acid ; p_of_racmSOA( 80) = p_ora1 ; racmSOA_per_megan( 80) = 1.000 p_of_megan2racmSOA( 81) = is_formaldehyde ; p_of_racmSOA( 81) = p_hcho ; racmSOA_per_megan( 81) = 1.000 p_of_megan2racmSOA( 82) = is_acetic_acid ; p_of_racmSOA( 82) = p_ora2 ; racmSOA_per_megan( 82) = 1.000 p_of_megan2racmSOA( 83) = is_mbo_3m2e1ol ; p_of_racmSOA( 83) = p_mbo ; racmSOA_per_megan( 83) = 1.000 p_of_megan2racmSOA( 84) = is_mbo_3m3e1ol ; p_of_racmSOA( 84) = p_mbo ; racmSOA_per_megan( 84) = 1.000 p_of_megan2racmSOA( 85) = is_benzaldehyde ; p_of_racmSOA( 85) = non_react ; racmSOA_per_megan( 85) = 1.000 p_of_megan2racmSOA( 86) = is_butanone_2 ; p_of_racmSOA( 86) = p_ket ; racmSOA_per_megan( 86) = 1.610 p_of_megan2racmSOA( 87) = is_decanal ; p_of_racmSOA( 87) = p_ald ; racmSOA_per_megan( 87) = 1.000 p_of_megan2racmSOA( 88) = is_dodecene_1 ; p_of_racmSOA( 88) = p_olt ; racmSOA_per_megan( 88) = 1.000 p_of_megan2racmSOA( 89) = is_geranyl_acetone ; p_of_racmSOA( 89) = p_lim ; racmSOA_per_megan( 89) = 1.000 p_of_megan2racmSOA( 90) = is_heptanal ; p_of_racmSOA( 90) = p_ald ; racmSOA_per_megan( 90) = 1.000 p_of_megan2racmSOA( 91) = is_heptane ; p_of_racmSOA( 91) = p_hc5 ; racmSOA_per_megan( 91) = 1.236 p_of_megan2racmSOA( 92) = is_hexane ; p_of_racmSOA( 92) = p_hc5 ; racmSOA_per_megan( 92) = 1.058 p_of_megan2racmSOA( 93) = is_met_benzoate ; p_of_racmSOA( 93) = p_hc8 ; racmSOA_per_megan( 93) = 1.000 p_of_megan2racmSOA( 94) = is_met_heptenone ; p_of_racmSOA( 94) = p_oli ; racmSOA_per_megan( 94) = 1.000 p_of_megan2racmSOA( 95) = is_neryl_acetone ; p_of_racmSOA( 95) = p_oli ; racmSOA_per_megan( 95) = 1.000 p_of_megan2racmSOA( 96) = is_nonanal ; p_of_racmSOA( 96) = p_ald ; racmSOA_per_megan( 96) = 1.000 p_of_megan2racmSOA( 97) = is_nonenal ; p_of_racmSOA( 97) = p_hc8 ; racmSOA_per_megan( 97) = 1.000 p_of_megan2racmSOA( 98) = is_nonenal ; p_of_racmSOA( 98) = p_ald ; racmSOA_per_megan( 98) = 1.000 p_of_megan2racmSOA( 99) = is_octanal ; p_of_racmSOA( 99) = p_ald ; racmSOA_per_megan( 99) = 1.000 p_of_megan2racmSOA(100) = is_octanol ; p_of_racmSOA(100) = p_hc8 ; racmSOA_per_megan(100) = 1.092 p_of_megan2racmSOA(101) = is_octenol_1e3ol ; p_of_racmSOA(101) = p_olt ; racmSOA_per_megan(101) = 1.000 p_of_megan2racmSOA(102) = is_oxopentanal ; p_of_racmSOA(102) = p_ald ; racmSOA_per_megan(102) = 1.000 p_of_megan2racmSOA(103) = is_pentane ; p_of_racmSOA(103) = p_hc5 ; racmSOA_per_megan(103) = 0.854 p_of_megan2racmSOA(104) = is_phenyl_cco ; p_of_racmSOA(104) = non_react ; racmSOA_per_megan(104) = 1.000 p_of_megan2racmSOA(105) = is_pyruvic_acid ; p_of_racmSOA(105) = p_ora2 ; racmSOA_per_megan(105) = 1.000 p_of_megan2racmSOA(106) = is_terpinyl_act_a ; p_of_racmSOA(106) = p_api ; racmSOA_per_megan(106) = 1.000 p_of_megan2racmSOA(107) = is_tetradecene_1 ; p_of_racmSOA(107) = p_olt ; racmSOA_per_megan(107) = 1.000 p_of_megan2racmSOA(108) = is_toluene ; p_of_racmSOA(108) = p_tol ; racmSOA_per_megan(108) = 1.000 p_of_megan2racmSOA(109) = is_carbon_monoxide ; p_of_racmSOA(109) = p_co ; racmSOA_per_megan(109) = 1.000 p_of_megan2racmSOA(110) = is_butene ; p_of_racmSOA(110) = p_olt ; racmSOA_per_megan(110) = 1.000 p_of_megan2racmSOA(111) = is_ethane ; p_of_racmSOA(111) = p_eth ; racmSOA_per_megan(111) = 1.000 p_of_megan2racmSOA(112) = is_ethene ; p_of_racmSOA(112) = p_ete ; racmSOA_per_megan(112) = 1.000 p_of_megan2racmSOA(113) = is_hydrogen_cyanide ; p_of_racmSOA(113) = non_react ; racmSOA_per_megan(113) = 1.000 p_of_megan2racmSOA(114) = is_propane ; p_of_racmSOA(114) = p_hc3 ; racmSOA_per_megan(114) = 0.570 p_of_megan2racmSOA(115) = is_propene ; p_of_racmSOA(115) = p_olt ; racmSOA_per_megan(115) = 1.000 p_of_megan2racmSOA(116) = is_carbon_2s ; p_of_racmSOA(116) = non_react ; racmSOA_per_megan(116) = 1.000 p_of_megan2racmSOA(117) = is_carbonyl_s ; p_of_racmSOA(117) = non_react ; racmSOA_per_megan(117) = 1.000 p_of_megan2racmSOA(118) = is_diallyl_2s ; p_of_racmSOA(118) = p_oli ; racmSOA_per_megan(118) = 1.000 p_of_megan2racmSOA(119) = is_diallyl_2s ; p_of_racmSOA(119) = p_so2 ; racmSOA_per_megan(119) = 2.000 p_of_megan2racmSOA(120) = is_2met_2s ; p_of_racmSOA(120) = p_eth ; racmSOA_per_megan(120) = 1.000 p_of_megan2racmSOA(121) = is_2met_2s ; p_of_racmSOA(121) = p_so2 ; racmSOA_per_megan(121) = 2.000 p_of_megan2racmSOA(122) = is_2met_s ; p_of_racmSOA(122) = p_eth ; racmSOA_per_megan(122) = 1.000 p_of_megan2racmSOA(123) = is_2met_s ; p_of_racmSOA(123) = p_so2 ; racmSOA_per_megan(123) = 1.000 p_of_megan2racmSOA(124) = is_met_chloride ; p_of_racmSOA(124) = non_react ; racmSOA_per_megan(124) = 1.000 p_of_megan2racmSOA(125) = is_met_bromide ; p_of_racmSOA(125) = non_react ; racmSOA_per_megan(125) = 1.000 p_of_megan2racmSOA(126) = is_met_iodide ; p_of_racmSOA(126) = non_react ; racmSOA_per_megan(126) = 1.000 p_of_megan2racmSOA(127) = is_hydrogen_s ; p_of_racmSOA(127) = p_so2 ; racmSOA_per_megan(127) = 1.000 p_of_megan2racmSOA(128) = is_met_mercaptan ; p_of_racmSOA(128) = p_ch4 ; racmSOA_per_megan(128) = 1.000 p_of_megan2racmSOA(129) = is_met_mercaptan ; p_of_racmSOA(129) = p_so2 ; racmSOA_per_megan(129) = 1.000 p_of_megan2racmSOA(130) = is_met_propenyl_2s ; p_of_racmSOA(130) = p_oli ; racmSOA_per_megan(130) = 1.000 p_of_megan2racmSOA(131) = is_met_propenyl_2s ; p_of_racmSOA(131) = p_so2 ; racmSOA_per_megan(131) = 2.000 p_of_megan2racmSOA(132) = is_pppp_2s ; p_of_racmSOA(132) = p_oli ; racmSOA_per_megan(132) = 1.000 p_of_megan2racmSOA(133) = is_pppp_2s ; p_of_racmSOA(133) = p_so2 ; racmSOA_per_megan(133) = 2.000 p_of_megan2racmSOA(134) = is_2met_nonatriene ; p_of_racmSOA(134) = p_lim ; racmSOA_per_megan(134) = 1.000 p_of_megan2racmSOA(135) = is_met_salicylate ; p_of_racmSOA(135) = p_hc8 ; racmSOA_per_megan(135) = 1.000 p_of_megan2racmSOA(136) = is_indole ; p_of_racmSOA(136) = p_hc8 ; racmSOA_per_megan(136) = 1.201 p_of_megan2racmSOA(137) = is_indole ; p_of_racmSOA(137) = p_hno3 ; racmSOA_per_megan(137) = 1.000 p_of_megan2racmSOA(138) = is_jasmone ; p_of_racmSOA(138) = p_lim ; racmSOA_per_megan(138) = 1.000 p_of_megan2racmSOA(139) = is_met_jasmonate ; p_of_racmSOA(139) = p_lim ; racmSOA_per_megan(139) = 1.000 p_of_megan2racmSOA(140) = is_3met_3dctt ; p_of_racmSOA(140) = p_oli ; racmSOA_per_megan(140) = 0.500 p_of_megan2racmSOA(141) = is_3met_3dctt ; p_of_racmSOA(141) = p_olt ; racmSOA_per_megan(141) = 0.500 p_of_megan2racmSOA(142) = is_hexanal ; p_of_racmSOA(142) = p_ald ; racmSOA_per_megan(142) = 1.000 p_of_megan2racmSOA(143) = is_hexanol_1 ; p_of_racmSOA(143) = p_hc5 ; racmSOA_per_megan(143) = 1.710 p_of_megan2racmSOA(144) = is_hexenal_c3 ; p_of_racmSOA(144) = p_oli ; racmSOA_per_megan(144) = 1.000 p_of_megan2racmSOA(145) = is_hexenal_t2 ; p_of_racmSOA(145) = p_oli ; racmSOA_per_megan(145) = 1.000 p_of_megan2racmSOA(146) = is_hexenol_c3 ; p_of_racmSOA(146) = p_olt ; racmSOA_per_megan(146) = 1.000 p_of_megan2racmSOA(147) = is_hexenyl_act_c3 ; p_of_racmSOA(147) = p_oli ; racmSOA_per_megan(147) = 1.000 p_of_megan2racmSOA(148) = is_farnescene_a ; p_of_racmSOA(148) = p_sesq ; racmSOA_per_megan(148) = 1.000 p_of_megan2racmSOA(149) = is_caryophyllene_b ; p_of_racmSOA(149) = p_sesq ; racmSOA_per_megan(149) = 1.000 p_of_megan2racmSOA(150) = is_aromadendrene ; p_of_racmSOA(150) = p_sesq ; racmSOA_per_megan(150) = 1.000 p_of_megan2racmSOA(151) = is_bergamotene_a ; p_of_racmSOA(151) = p_sesq ; racmSOA_per_megan(151) = 1.000 p_of_megan2racmSOA(152) = is_bergamotene_b ; p_of_racmSOA(152) = p_sesq ; racmSOA_per_megan(152) = 1.000 p_of_megan2racmSOA(153) = is_bisabolene_a ; p_of_racmSOA(153) = p_sesq ; racmSOA_per_megan(153) = 1.000 p_of_megan2racmSOA(154) = is_bisabolene_b ; p_of_racmSOA(154) = p_sesq ; racmSOA_per_megan(154) = 1.000 p_of_megan2racmSOA(155) = is_bourbonene_b ; p_of_racmSOA(155) = p_sesq ; racmSOA_per_megan(155) = 1.000 p_of_megan2racmSOA(156) = is_cadinene_d ; p_of_racmSOA(156) = p_sesq ; racmSOA_per_megan(156) = 1.000 p_of_megan2racmSOA(157) = is_cadinene_g ; p_of_racmSOA(157) = p_sesq ; racmSOA_per_megan(157) = 1.000 p_of_megan2racmSOA(158) = is_cedrene_a ; p_of_racmSOA(158) = p_sesq ; racmSOA_per_megan(158) = 1.000 p_of_megan2racmSOA(159) = is_copaene_a ; p_of_racmSOA(159) = p_sesq ; racmSOA_per_megan(159) = 1.000 p_of_megan2racmSOA(160) = is_cubebene_a ; p_of_racmSOA(160) = p_sesq ; racmSOA_per_megan(160) = 1.000 p_of_megan2racmSOA(161) = is_cubebene_b ; p_of_racmSOA(161) = p_sesq ; racmSOA_per_megan(161) = 1.000 p_of_megan2racmSOA(162) = is_elemene_b ; p_of_racmSOA(162) = p_sesq ; racmSOA_per_megan(162) = 1.000 p_of_megan2racmSOA(163) = is_farnescene_b ; p_of_racmSOA(163) = p_sesq ; racmSOA_per_megan(163) = 1.000 p_of_megan2racmSOA(164) = is_germacrene_b ; p_of_racmSOA(164) = p_sesq ; racmSOA_per_megan(164) = 1.000 p_of_megan2racmSOA(165) = is_germacrene_d ; p_of_racmSOA(165) = p_sesq ; racmSOA_per_megan(165) = 1.000 p_of_megan2racmSOA(166) = is_gurjunene_b ; p_of_racmSOA(166) = p_sesq ; racmSOA_per_megan(166) = 1.000 p_of_megan2racmSOA(167) = is_humulene_a ; p_of_racmSOA(167) = p_sesq ; racmSOA_per_megan(167) = 1.000 p_of_megan2racmSOA(168) = is_humulene_g ; p_of_racmSOA(168) = p_sesq ; racmSOA_per_megan(168) = 1.000 p_of_megan2racmSOA(169) = is_isolongifolene ; p_of_racmSOA(169) = p_sesq ; racmSOA_per_megan(169) = 1.000 p_of_megan2racmSOA(170) = is_longifolene ; p_of_racmSOA(170) = p_sesq ; racmSOA_per_megan(170) = 1.000 p_of_megan2racmSOA(171) = is_longipinene ; p_of_racmSOA(171) = p_sesq ; racmSOA_per_megan(171) = 1.000 p_of_megan2racmSOA(172) = is_muurolene_a ; p_of_racmSOA(172) = p_sesq ; racmSOA_per_megan(172) = 1.000 p_of_megan2racmSOA(173) = is_muurolene_g ; p_of_racmSOA(173) = p_sesq ; racmSOA_per_megan(173) = 1.000 p_of_megan2racmSOA(174) = is_selinene_b ; p_of_racmSOA(174) = p_sesq ; racmSOA_per_megan(174) = 1.000 p_of_megan2racmSOA(175) = is_selinene_d ; p_of_racmSOA(175) = p_sesq ; racmSOA_per_megan(175) = 1.000 p_of_megan2racmSOA(176) = is_nerolidol_c ; p_of_racmSOA(176) = p_sesq ; racmSOA_per_megan(176) = 1.000 p_of_megan2racmSOA(177) = is_nerolidol_t ; p_of_racmSOA(177) = p_sesq ; racmSOA_per_megan(177) = 1.000 p_of_megan2racmSOA(178) = is_cedrol ; p_of_racmSOA(178) = p_sesq ; racmSOA_per_megan(178) = 1.000 END SUBROUTINE get_megan2racmSOA_table SUBROUTINE get_megan2saprcnov_table ! Based on Tan''s MAP_CV2SAPRC99.EXT ! Index of Index of Molar ratio ! MEGAN species RADM2 Species p_of_megan2saprcnov( 1) = is_isoprene ; p_of_saprcnov( 1) = p_isoprene ; saprcnov_per_megan( 1) = 1.000 p_of_megan2saprcnov( 2) = is_myrcene ; p_of_saprcnov( 2) = p_terp ; saprcnov_per_megan( 2) = 1.000 p_of_megan2saprcnov( 3) = is_sabinene ; p_of_saprcnov( 3) = p_terp ; saprcnov_per_megan( 3) = 1.000 p_of_megan2saprcnov( 4) = is_limonene ; p_of_saprcnov( 4) = p_terp ; saprcnov_per_megan( 4) = 1.000 p_of_megan2saprcnov( 5) = is_carene_3 ; p_of_saprcnov( 5) = p_terp ; saprcnov_per_megan( 5) = 1.000 p_of_megan2saprcnov( 6) = is_ocimene_t_b ; p_of_saprcnov( 6) = p_terp ; saprcnov_per_megan( 6) = 1.000 p_of_megan2saprcnov( 7) = is_pinene_b ; p_of_saprcnov( 7) = p_terp ; saprcnov_per_megan( 7) = 1.000 p_of_megan2saprcnov( 8) = is_pinene_a ; p_of_saprcnov( 8) = p_terp ; saprcnov_per_megan( 8) = 1.000 p_of_megan2saprcnov( 9) = is_2met_styrene ; p_of_saprcnov( 9) = p_ole2 ; saprcnov_per_megan( 9) = 1.000 p_of_megan2saprcnov( 10) = is_cymene_p ; p_of_saprcnov( 10) = p_aro2 ; saprcnov_per_megan( 10) = 1.000 p_of_megan2saprcnov( 11) = is_cymene_o ; p_of_saprcnov( 11) = p_aro2 ; saprcnov_per_megan( 11) = 1.000 p_of_megan2saprcnov( 12) = is_phellandrene_a ; p_of_saprcnov( 12) = p_terp ; saprcnov_per_megan( 12) = 1.000 p_of_megan2saprcnov( 13) = is_thujene_a ; p_of_saprcnov( 13) = p_terp ; saprcnov_per_megan( 13) = 1.000 p_of_megan2saprcnov( 14) = is_terpinene_a ; p_of_saprcnov( 14) = p_terp ; saprcnov_per_megan( 14) = 1.000 p_of_megan2saprcnov( 15) = is_terpinene_g ; p_of_saprcnov( 15) = p_terp ; saprcnov_per_megan( 15) = 1.000 p_of_megan2saprcnov( 16) = is_terpinolene ; p_of_saprcnov( 16) = p_terp ; saprcnov_per_megan( 16) = 1.000 p_of_megan2saprcnov( 17) = is_phellandrene_b ; p_of_saprcnov( 17) = p_terp ; saprcnov_per_megan( 17) = 1.000 p_of_megan2saprcnov( 18) = is_camphene ; p_of_saprcnov( 18) = p_terp ; saprcnov_per_megan( 18) = 1.000 p_of_megan2saprcnov( 19) = is_bornene ; p_of_saprcnov( 19) = p_terp ; saprcnov_per_megan( 19) = 1.000 p_of_megan2saprcnov( 20) = is_fenchene_a ; p_of_saprcnov( 20) = p_terp ; saprcnov_per_megan( 20) = 1.000 p_of_megan2saprcnov( 21) = is_ocimene_al ; p_of_saprcnov( 21) = p_terp ; saprcnov_per_megan( 21) = 1.000 p_of_megan2saprcnov( 22) = is_ocimene_c_b ; p_of_saprcnov( 22) = p_terp ; saprcnov_per_megan( 22) = 1.000 p_of_megan2saprcnov( 23) = is_tricyclene ; p_of_saprcnov( 23) = p_alk5 ; saprcnov_per_megan( 23) = 1.000 p_of_megan2saprcnov( 24) = is_estragole ; p_of_saprcnov( 24) = p_terp ; saprcnov_per_megan( 24) = 1.000 p_of_megan2saprcnov( 25) = is_camphor ; p_of_saprcnov( 25) = p_terp ; saprcnov_per_megan( 25) = 1.000 p_of_megan2saprcnov( 26) = is_fenchone ; p_of_saprcnov( 26) = p_alk5 ; saprcnov_per_megan( 26) = 1.000 p_of_megan2saprcnov( 27) = is_piperitone ; p_of_saprcnov( 27) = p_terp ; saprcnov_per_megan( 27) = 1.000 p_of_megan2saprcnov( 28) = is_thujone_a ; p_of_saprcnov( 28) = p_alk5 ; saprcnov_per_megan( 28) = 1.000 p_of_megan2saprcnov( 29) = is_thujone_b ; p_of_saprcnov( 29) = p_alk5 ; saprcnov_per_megan( 29) = 1.000 p_of_megan2saprcnov( 30) = is_cineole_1_8 ; p_of_saprcnov( 30) = p_alk5 ; saprcnov_per_megan( 30) = 1.000 p_of_megan2saprcnov( 31) = is_borneol ; p_of_saprcnov( 31) = p_alk5 ; saprcnov_per_megan( 31) = 1.000 p_of_megan2saprcnov( 32) = is_linalool ; p_of_saprcnov( 32) = p_terp ; saprcnov_per_megan( 32) = 1.000 p_of_megan2saprcnov( 33) = is_terpineol_4 ; p_of_saprcnov( 33) = p_terp ; saprcnov_per_megan( 33) = 1.000 p_of_megan2saprcnov( 34) = is_terpineol_a ; p_of_saprcnov( 34) = p_terp ; saprcnov_per_megan( 34) = 1.000 p_of_megan2saprcnov( 35) = is_linalool_oxd_c ; p_of_saprcnov( 35) = p_terp ; saprcnov_per_megan( 35) = 1.000 p_of_megan2saprcnov( 36) = is_linalool_oxd_t ; p_of_saprcnov( 36) = p_terp ; saprcnov_per_megan( 36) = 1.000 p_of_megan2saprcnov( 37) = is_ionone_b ; p_of_saprcnov( 37) = p_terp ; saprcnov_per_megan( 37) = 1.000 p_of_megan2saprcnov( 38) = is_bornyl_act ; p_of_saprcnov( 38) = p_alk5 ; saprcnov_per_megan( 38) = 1.000 p_of_megan2saprcnov( 39) = is_farnescene_a ; p_of_saprcnov( 39) = p_sesq ; saprcnov_per_megan( 39) = 1.000 p_of_megan2saprcnov( 40) = is_caryophyllene_b ; p_of_saprcnov( 40) = p_sesq ; saprcnov_per_megan( 40) = 1.000 p_of_megan2saprcnov( 41) = is_acoradiene ; p_of_saprcnov( 41) = p_terp ; saprcnov_per_megan( 41) = 1.000 p_of_megan2saprcnov( 42) = is_aromadendrene ; p_of_saprcnov( 42) = p_sesq ; saprcnov_per_megan( 42) = 1.000 p_of_megan2saprcnov( 43) = is_bergamotene_a ; p_of_saprcnov( 43) = p_sesq ; saprcnov_per_megan( 43) = 1.000 p_of_megan2saprcnov( 44) = is_bergamotene_b ; p_of_saprcnov( 44) = p_sesq ; saprcnov_per_megan( 44) = 1.000 p_of_megan2saprcnov( 45) = is_bisabolene_a ; p_of_saprcnov( 45) = p_sesq ; saprcnov_per_megan( 45) = 1.000 p_of_megan2saprcnov( 46) = is_bisabolene_b ; p_of_saprcnov( 46) = p_sesq ; saprcnov_per_megan( 46) = 1.000 p_of_megan2saprcnov( 47) = is_bourbonene_b ; p_of_saprcnov( 47) = p_sesq ; saprcnov_per_megan( 47) = 1.000 p_of_megan2saprcnov( 48) = is_cadinene_d ; p_of_saprcnov( 48) = p_sesq ; saprcnov_per_megan( 48) = 1.000 p_of_megan2saprcnov( 49) = is_cadinene_g ; p_of_saprcnov( 49) = p_sesq ; saprcnov_per_megan( 49) = 1.000 p_of_megan2saprcnov( 50) = is_cedrene_a ; p_of_saprcnov( 50) = p_sesq ; saprcnov_per_megan( 50) = 1.000 p_of_megan2saprcnov( 51) = is_copaene_a ; p_of_saprcnov( 51) = p_sesq ; saprcnov_per_megan( 51) = 1.000 p_of_megan2saprcnov( 52) = is_cubebene_a ; p_of_saprcnov( 52) = p_sesq ; saprcnov_per_megan( 52) = 1.000 p_of_megan2saprcnov( 53) = is_cubebene_b ; p_of_saprcnov( 53) = p_sesq ; saprcnov_per_megan( 53) = 1.000 p_of_megan2saprcnov( 54) = is_elemene_b ; p_of_saprcnov( 54) = p_sesq ; saprcnov_per_megan( 54) = 1.000 p_of_megan2saprcnov( 55) = is_farnescene_b ; p_of_saprcnov( 55) = p_sesq ; saprcnov_per_megan( 55) = 1.000 p_of_megan2saprcnov( 56) = is_germacrene_b ; p_of_saprcnov( 56) = p_sesq ; saprcnov_per_megan( 56) = 1.000 p_of_megan2saprcnov( 57) = is_germacrene_d ; p_of_saprcnov( 57) = p_sesq ; saprcnov_per_megan( 57) = 1.000 p_of_megan2saprcnov( 58) = is_gurjunene_b ; p_of_saprcnov( 58) = p_sesq ; saprcnov_per_megan( 58) = 1.000 p_of_megan2saprcnov( 59) = is_humulene_a ; p_of_saprcnov( 59) = p_sesq ; saprcnov_per_megan( 59) = 1.000 p_of_megan2saprcnov( 60) = is_humulene_g ; p_of_saprcnov( 60) = p_sesq ; saprcnov_per_megan( 60) = 1.000 p_of_megan2saprcnov( 61) = is_isolongifolene ; p_of_saprcnov( 61) = p_sesq ; saprcnov_per_megan( 61) = 1.000 p_of_megan2saprcnov( 62) = is_longifolene ; p_of_saprcnov( 62) = p_sesq ; saprcnov_per_megan( 62) = 1.000 p_of_megan2saprcnov( 63) = is_longipinene ; p_of_saprcnov( 63) = p_sesq ; saprcnov_per_megan( 63) = 1.000 p_of_megan2saprcnov( 64) = is_muurolene_a ; p_of_saprcnov( 64) = p_sesq ; saprcnov_per_megan( 64) = 1.000 p_of_megan2saprcnov( 65) = is_muurolene_g ; p_of_saprcnov( 65) = p_sesq ; saprcnov_per_megan( 65) = 1.000 p_of_megan2saprcnov( 66) = is_selinene_b ; p_of_saprcnov( 66) = p_sesq ; saprcnov_per_megan( 66) = 1.000 p_of_megan2saprcnov( 67) = is_selinene_d ; p_of_saprcnov( 67) = p_sesq ; saprcnov_per_megan( 67) = 1.000 p_of_megan2saprcnov( 68) = is_nerolidol_c ; p_of_saprcnov( 68) = p_sesq ; saprcnov_per_megan( 68) = 1.000 p_of_megan2saprcnov( 69) = is_nerolidol_t ; p_of_saprcnov( 69) = p_sesq ; saprcnov_per_megan( 69) = 1.000 p_of_megan2saprcnov( 70) = is_cedrol ; p_of_saprcnov( 70) = p_sesq ; saprcnov_per_megan( 70) = 1.000 p_of_megan2saprcnov( 71) = is_mbo_2m3e2ol ; p_of_saprcnov( 71) = p_isoprene ; saprcnov_per_megan( 71) = 1.000 p_of_megan2saprcnov( 72) = is_methanol ; p_of_saprcnov( 72) = p_meoh ; saprcnov_per_megan( 72) = 1.000 p_of_megan2saprcnov( 73) = is_acetone ; p_of_saprcnov( 73) = p_acet ; saprcnov_per_megan( 73) = 1.000 p_of_megan2saprcnov( 74) = is_methane ; p_of_saprcnov( 74) = p_ch4 ; saprcnov_per_megan( 74) = 1.000 p_of_megan2saprcnov( 75) = is_ammonia ; p_of_saprcnov( 75) = non_react ; saprcnov_per_megan( 75) = 1.000 p_of_megan2saprcnov( 76) = is_nitrous_oxd ; p_of_saprcnov( 76) = non_react ; saprcnov_per_megan( 76) = 1.000 p_of_megan2saprcnov( 77) = is_nitric_oxd ; p_of_saprcnov( 77) = p_no ; saprcnov_per_megan( 77) = 1.000 p_of_megan2saprcnov( 78) = is_acetaldehyde ; p_of_saprcnov( 78) = p_ccho ; saprcnov_per_megan( 78) = 1.000 p_of_megan2saprcnov( 79) = is_ethanol ; p_of_saprcnov( 79) = p_alk3 ; saprcnov_per_megan( 79) = 1.000 p_of_megan2saprcnov( 80) = is_formic_acid ; p_of_saprcnov( 80) = p_hcooh ; saprcnov_per_megan( 80) = 1.000 p_of_megan2saprcnov( 81) = is_formaldehyde ; p_of_saprcnov( 81) = p_hcho ; saprcnov_per_megan( 81) = 1.000 p_of_megan2saprcnov( 82) = is_acetic_acid ; p_of_saprcnov( 82) = p_cco_oh ; saprcnov_per_megan( 82) = 1.000 p_of_megan2saprcnov( 83) = is_mbo_3m2e1ol ; p_of_saprcnov( 83) = p_isoprene ; saprcnov_per_megan( 83) = 1.000 p_of_megan2saprcnov( 84) = is_mbo_3m3e1ol ; p_of_saprcnov( 84) = p_isoprene ; saprcnov_per_megan( 84) = 1.000 p_of_megan2saprcnov( 85) = is_benzaldehyde ; p_of_saprcnov( 85) = p_bald ; saprcnov_per_megan( 85) = 1.000 p_of_megan2saprcnov( 86) = is_butanone_2 ; p_of_saprcnov( 86) = p_mek ; saprcnov_per_megan( 86) = 1.000 p_of_megan2saprcnov( 87) = is_decanal ; p_of_saprcnov( 87) = p_rcho ; saprcnov_per_megan( 87) = 1.000 p_of_megan2saprcnov( 88) = is_dodecene_1 ; p_of_saprcnov( 88) = p_ole1 ; saprcnov_per_megan( 88) = 1.000 p_of_megan2saprcnov( 89) = is_geranyl_acetone ; p_of_saprcnov( 89) = p_terp ; saprcnov_per_megan( 89) = 1.000 p_of_megan2saprcnov( 90) = is_heptanal ; p_of_saprcnov( 90) = p_rcho ; saprcnov_per_megan( 90) = 1.000 p_of_megan2saprcnov( 91) = is_heptane ; p_of_saprcnov( 91) = p_alk5 ; saprcnov_per_megan( 91) = 1.000 p_of_megan2saprcnov( 92) = is_hexane ; p_of_saprcnov( 92) = p_alk4 ; saprcnov_per_megan( 92) = 1.000 p_of_megan2saprcnov( 93) = is_met_benzoate ; p_of_saprcnov( 93) = p_aro1 ; saprcnov_per_megan( 93) = 1.000 p_of_megan2saprcnov( 94) = is_met_heptenone ; p_of_saprcnov( 94) = p_ole2 ; saprcnov_per_megan( 94) = 1.000 p_of_megan2saprcnov( 95) = is_neryl_acetone ; p_of_saprcnov( 95) = p_ole2 ; saprcnov_per_megan( 95) = 1.000 p_of_megan2saprcnov( 96) = is_nonanal ; p_of_saprcnov( 96) = p_rcho ; saprcnov_per_megan( 96) = 1.000 p_of_megan2saprcnov( 97) = is_nonenal ; p_of_saprcnov( 97) = p_ole1 ; saprcnov_per_megan( 97) = 1.000 p_of_megan2saprcnov( 98) = is_octanal ; p_of_saprcnov( 98) = p_rcho ; saprcnov_per_megan( 98) = 1.000 p_of_megan2saprcnov( 99) = is_octanol ; p_of_saprcnov( 99) = p_alk5 ; saprcnov_per_megan( 99) = 1.000 p_of_megan2saprcnov(100) = is_octenol_1e3ol ; p_of_saprcnov(100) = p_ole1 ; saprcnov_per_megan(100) = 1.000 p_of_megan2saprcnov(101) = is_oxopentanal ; p_of_saprcnov(101) = p_rcho ; saprcnov_per_megan(101) = 1.000 p_of_megan2saprcnov(102) = is_pentane ; p_of_saprcnov(102) = p_alk4 ; saprcnov_per_megan(102) = 1.000 p_of_megan2saprcnov(103) = is_phenyl_cco ; p_of_saprcnov(103) = p_aro1 ; saprcnov_per_megan(103) = 1.000 p_of_megan2saprcnov(104) = is_pyruvic_acid ; p_of_saprcnov(104) = p_rco_oh ; saprcnov_per_megan(104) = 1.000 p_of_megan2saprcnov(105) = is_terpinyl_act_a ; p_of_saprcnov(105) = p_terp ; saprcnov_per_megan(105) = 1.000 p_of_megan2saprcnov(106) = is_tetradecene_1 ; p_of_saprcnov(106) = p_ole1 ; saprcnov_per_megan(106) = 1.000 p_of_megan2saprcnov(107) = is_toluene ; p_of_saprcnov(107) = p_aro1 ; saprcnov_per_megan(107) = 1.000 p_of_megan2saprcnov(108) = is_carbon_monoxide ; p_of_saprcnov(108) = p_co ; saprcnov_per_megan(108) = 1.000 p_of_megan2saprcnov(109) = is_butene ; p_of_saprcnov(109) = p_ole1 ; saprcnov_per_megan(109) = 1.000 p_of_megan2saprcnov(110) = is_ethane ; p_of_saprcnov(110) = p_c2h6 ; saprcnov_per_megan(110) = 1.000 p_of_megan2saprcnov(111) = is_ethene ; p_of_saprcnov(111) = p_ethene ; saprcnov_per_megan(111) = 1.000 p_of_megan2saprcnov(112) = is_hydrogen_cyanide ; p_of_saprcnov(112) = non_react ; saprcnov_per_megan(112) = 1.000 p_of_megan2saprcnov(113) = is_propane ; p_of_saprcnov(113) = p_c3h8 ; saprcnov_per_megan(113) = 1.000 p_of_megan2saprcnov(114) = is_propene ; p_of_saprcnov(114) = p_c3h6 ; saprcnov_per_megan(114) = 1.000 p_of_megan2saprcnov(115) = is_carbon_2s ; p_of_saprcnov(115) = non_react ; saprcnov_per_megan(115) = 1.000 p_of_megan2saprcnov(116) = is_carbonyl_s ; p_of_saprcnov(116) = non_react ; saprcnov_per_megan(116) = 1.000 p_of_megan2saprcnov(117) = is_diallyl_2s ; p_of_saprcnov(117) = p_ole1 ; saprcnov_per_megan(117) = 1.000 p_of_megan2saprcnov(118) = is_2met_2s ; p_of_saprcnov(118) = p_alk5 ; saprcnov_per_megan(118) = 1.000 p_of_megan2saprcnov(119) = is_2met_s ; p_of_saprcnov(119) = p_alk4 ; saprcnov_per_megan(119) = 1.000 p_of_megan2saprcnov(120) = is_met_chloride ; p_of_saprcnov(120) = non_react ; saprcnov_per_megan(120) = 1.000 p_of_megan2saprcnov(121) = is_met_bromide ; p_of_saprcnov(121) = non_react ; saprcnov_per_megan(121) = 1.000 p_of_megan2saprcnov(122) = is_met_iodide ; p_of_saprcnov(122) = non_react ; saprcnov_per_megan(122) = 1.000 p_of_megan2saprcnov(123) = is_hydrogen_s ; p_of_saprcnov(123) = non_react ; saprcnov_per_megan(123) = 1.000 p_of_megan2saprcnov(124) = is_met_mercaptan ; p_of_saprcnov(124) = p_alk5 ; saprcnov_per_megan(124) = 1.000 p_of_megan2saprcnov(125) = is_met_propenyl_2s ; p_of_saprcnov(125) = p_ole1 ; saprcnov_per_megan(125) = 1.000 p_of_megan2saprcnov(126) = is_pppp_2s ; p_of_saprcnov(126) = p_ole1 ; saprcnov_per_megan(126) = 1.000 p_of_megan2saprcnov(127) = is_2met_nonatriene ; p_of_saprcnov(127) = p_terp ; saprcnov_per_megan(127) = 1.000 p_of_megan2saprcnov(128) = is_met_salicylate ; p_of_saprcnov(128) = p_aro1 ; saprcnov_per_megan(128) = 1.000 p_of_megan2saprcnov(129) = is_indole ; p_of_saprcnov(129) = p_aro2 ; saprcnov_per_megan(129) = 1.000 p_of_megan2saprcnov(130) = is_jasmone ; p_of_saprcnov(130) = p_terp ; saprcnov_per_megan(130) = 1.000 p_of_megan2saprcnov(131) = is_met_jasmonate ; p_of_saprcnov(131) = p_terp ; saprcnov_per_megan(131) = 1.000 p_of_megan2saprcnov(132) = is_3met_3dctt ; p_of_saprcnov(132) = p_terp ; saprcnov_per_megan(132) = 1.000 p_of_megan2saprcnov(133) = is_hexanal ; p_of_saprcnov(133) = p_rcho ; saprcnov_per_megan(133) = 1.000 p_of_megan2saprcnov(134) = is_hexanol_1 ; p_of_saprcnov(134) = p_alk5 ; saprcnov_per_megan(134) = 1.000 p_of_megan2saprcnov(135) = is_hexenal_c3 ; p_of_saprcnov(135) = p_ole2 ; saprcnov_per_megan(135) = 1.000 p_of_megan2saprcnov(136) = is_hexenal_t2 ; p_of_saprcnov(136) = p_ole2 ; saprcnov_per_megan(136) = 1.000 p_of_megan2saprcnov(137) = is_hexenol_c3 ; p_of_saprcnov(137) = p_ole2 ; saprcnov_per_megan(137) = 1.000 p_of_megan2saprcnov(138) = is_hexenyl_act_c3 ; p_of_saprcnov(138) = p_ole2 ; saprcnov_per_megan(138) = 1.000 END SUBROUTINE get_megan2saprcnov_table SUBROUTINE get_megan2cb05_table ! MEGAN species CB05 Species Molar ratio ! p_of_megan2cb05( 1) = is_isoprene ; p_of_cb05( 1) = p_isop ; cb05_per_megan( 1) = 1. p_of_megan2cb05( 2) = is_myrcene ; p_of_cb05( 2) = p_oci ; cb05_per_megan( 2) = 1. p_of_megan2cb05( 3) = is_sabinene ; p_of_cb05( 3) = p_apin ; cb05_per_megan( 3) = 1. p_of_megan2cb05( 4) = is_limonene ; p_of_cb05( 4) = p_lim ; cb05_per_megan( 4) = 1. p_of_megan2cb05( 5) = is_carene_3 ; p_of_cb05( 5) = p_bpin ; cb05_per_megan( 5) = 1. p_of_megan2cb05( 6) = is_ocimene_t_b ; p_of_cb05( 6) = p_oci ; cb05_per_megan( 6) = 1. p_of_megan2cb05( 7) = is_pinene_b ; p_of_cb05( 7) = p_bpin ; cb05_per_megan( 7) = 1. p_of_megan2cb05( 8) = is_pinene_a ; p_of_cb05( 8) = p_apin ; cb05_per_megan( 8) = 1. p_of_megan2cb05( 9) = is_2met_styrene ; p_of_cb05( 9) = p_oci ; cb05_per_megan( 9) = 1. p_of_megan2cb05( 10) = is_cymene_p ; p_of_cb05( 10) = p_oci ; cb05_per_megan( 10) = 1. p_of_megan2cb05( 11) = is_cymene_o ; p_of_cb05( 11) = p_oci ; cb05_per_megan( 11) = 1. p_of_megan2cb05( 12) = is_phellandrene_a ; p_of_cb05( 12) = p_oci ; cb05_per_megan( 12) = 1. p_of_megan2cb05( 13) = is_thujene_a ; p_of_cb05( 13) = p_oci ; cb05_per_megan( 13) = 1. p_of_megan2cb05( 14) = is_terpinene_a ; p_of_cb05( 14) = p_ter ; cb05_per_megan( 14) = 1. p_of_megan2cb05( 15) = is_terpinene_g ; p_of_cb05( 15) = p_ter ; cb05_per_megan( 15) = 1. p_of_megan2cb05( 16) = is_terpinolene ; p_of_cb05( 16) = p_oci ; cb05_per_megan( 16) = 1. p_of_megan2cb05( 17) = is_phellandrene_b ; p_of_cb05( 17) = p_oci ; cb05_per_megan( 17) = 1. p_of_megan2cb05( 18) = is_camphene ; p_of_cb05( 18) = p_oci ; cb05_per_megan( 18) = 1. p_of_megan2cb05( 19) = is_bornene ; p_of_cb05( 19) = p_oci ; cb05_per_megan( 19) = 1. p_of_megan2cb05( 20) = is_fenchene_a ; p_of_cb05( 20) = p_oci ; cb05_per_megan( 20) = 1. p_of_megan2cb05( 21) = is_ocimene_al ; p_of_cb05( 21) = p_oci ; cb05_per_megan( 21) = 1. p_of_megan2cb05( 22) = is_ocimene_c_b ; p_of_cb05( 22) = p_oci ; cb05_per_megan( 22) = 1. p_of_megan2cb05( 23) = is_tricyclene ; p_of_cb05( 23) = p_oci ; cb05_per_megan( 23) = 1. p_of_megan2cb05( 24) = is_estragole ; p_of_cb05( 24) = p_oci ; cb05_per_megan( 24) = 1. p_of_megan2cb05( 25) = is_camphor ; p_of_cb05( 25) = p_oci ; cb05_per_megan( 25) = 1. p_of_megan2cb05( 26) = is_fenchone ; p_of_cb05( 26) = p_oci ; cb05_per_megan( 26) = 1. p_of_megan2cb05( 27) = is_piperitone ; p_of_cb05( 27) = p_oci ; cb05_per_megan( 27) = 1. p_of_megan2cb05( 28) = is_thujone_a ; p_of_cb05( 28) = p_oci ; cb05_per_megan( 28) = 1. p_of_megan2cb05( 29) = is_thujone_b ; p_of_cb05( 29) = p_oci ; cb05_per_megan( 29) = 1. p_of_megan2cb05( 30) = is_cineole_1_8 ; p_of_cb05( 30) = p_oci ; cb05_per_megan( 30) = 1. p_of_megan2cb05( 31) = is_borneol ; p_of_cb05( 31) = p_oci ; cb05_per_megan( 31) = 1. p_of_megan2cb05( 32) = is_linalool ; p_of_cb05( 32) = p_oci ; cb05_per_megan( 32) = 1. p_of_megan2cb05( 33) = is_terpineol_4 ; p_of_cb05( 33) = p_oci ; cb05_per_megan( 33) = 1. p_of_megan2cb05( 34) = is_terpineol_a ; p_of_cb05( 34) = p_oci ; cb05_per_megan( 34) = 1. p_of_megan2cb05( 35) = is_linalool_oxd_c ; p_of_cb05( 35) = p_oci ; cb05_per_megan( 35) = 1. p_of_megan2cb05( 36) = is_linalool_oxd_t ; p_of_cb05( 36) = p_oci ; cb05_per_megan( 36) = 1. p_of_megan2cb05( 37) = is_ionone_b ; p_of_cb05( 37) = p_hum ; cb05_per_megan( 37) = 1. p_of_megan2cb05( 38) = is_bornyl_act ; p_of_cb05( 38) = p_oci ; cb05_per_megan( 38) = 1. p_of_megan2cb05( 39) = is_farnescene_a ; p_of_cb05( 39) = p_hum ; cb05_per_megan( 39) = 1. p_of_megan2cb05( 40) = is_caryophyllene_b ; p_of_cb05( 40) = p_hum ; cb05_per_megan( 40) = 1. p_of_megan2cb05( 41) = is_acoradiene ; p_of_cb05( 41) = p_hum ; cb05_per_megan( 41) = 1. p_of_megan2cb05( 42) = is_aromadendrene ; p_of_cb05( 42) = p_hum ; cb05_per_megan( 42) = 1. p_of_megan2cb05( 43) = is_bergamotene_a ; p_of_cb05( 43) = p_hum ; cb05_per_megan( 43) = 1. p_of_megan2cb05( 44) = is_bergamotene_b ; p_of_cb05( 44) = p_hum ; cb05_per_megan( 44) = 1. p_of_megan2cb05( 45) = is_bisabolene_a ; p_of_cb05( 45) = p_hum ; cb05_per_megan( 45) = 1. p_of_megan2cb05( 46) = is_bisabolene_b ; p_of_cb05( 46) = p_hum ; cb05_per_megan( 46) = 1. p_of_megan2cb05( 47) = is_bourbonene_b ; p_of_cb05( 47) = p_hum ; cb05_per_megan( 47) = 1. p_of_megan2cb05( 48) = is_cadinene_d ; p_of_cb05( 48) = p_hum ; cb05_per_megan( 48) = 1. p_of_megan2cb05( 49) = is_cadinene_g ; p_of_cb05( 49) = p_hum ; cb05_per_megan( 49) = 1. p_of_megan2cb05( 50) = is_cedrene_a ; p_of_cb05( 50) = p_hum ; cb05_per_megan( 50) = 1. p_of_megan2cb05( 51) = is_copaene_a ; p_of_cb05( 51) = p_hum ; cb05_per_megan( 51) = 1. p_of_megan2cb05( 52) = is_cubebene_a ; p_of_cb05( 52) = p_hum ; cb05_per_megan( 52) = 1. p_of_megan2cb05( 53) = is_cubebene_b ; p_of_cb05( 53) = p_hum ; cb05_per_megan( 53) = 1. p_of_megan2cb05( 54) = is_elemene_b ; p_of_cb05( 54) = p_hum ; cb05_per_megan( 54) = 1. p_of_megan2cb05( 55) = is_farnescene_b ; p_of_cb05( 55) = p_hum ; cb05_per_megan( 55) = 1. p_of_megan2cb05( 56) = is_germacrene_B ; p_of_cb05( 56) = p_hum ; cb05_per_megan( 56) = 1. p_of_megan2cb05( 57) = is_germacrene_D ; p_of_cb05( 57) = p_hum ; cb05_per_megan( 57) = 1. p_of_megan2cb05( 58) = is_gurjunene_b ; p_of_cb05( 58) = p_hum ; cb05_per_megan( 58) = 1. p_of_megan2cb05( 59) = is_humulene_a ; p_of_cb05( 59) = p_hum ; cb05_per_megan( 59) = 1. p_of_megan2cb05( 60) = is_humulene_g ; p_of_cb05( 60) = p_hum ; cb05_per_megan( 60) = 1. p_of_megan2cb05( 61) = is_isolongifolene ; p_of_cb05( 61) = p_hum ; cb05_per_megan( 61) = 1. p_of_megan2cb05( 62) = is_longifolene ; p_of_cb05( 62) = p_hum ; cb05_per_megan( 62) = 1. p_of_megan2cb05( 63) = is_longipinene ; p_of_cb05( 63) = p_hum ; cb05_per_megan( 63) = 1. p_of_megan2cb05( 64) = is_muurolene_a ; p_of_cb05( 64) = p_hum ; cb05_per_megan( 64) = 1. p_of_megan2cb05( 65) = is_muurolene_g ; p_of_cb05( 65) = p_hum ; cb05_per_megan( 65) = 1. p_of_megan2cb05( 66) = is_selinene_b ; p_of_cb05( 66) = p_hum ; cb05_per_megan( 66) = 1. p_of_megan2cb05( 67) = is_selinene_d ; p_of_cb05( 67) = p_hum ; cb05_per_megan( 67) = 1. p_of_megan2cb05( 68) = is_nerolidol_c ; p_of_cb05( 68) = p_hum ; cb05_per_megan( 68) = 1. p_of_megan2cb05( 69) = is_nerolidol_t ; p_of_cb05( 69) = p_hum ; cb05_per_megan( 69) = 1. p_of_megan2cb05( 70) = is_cedrol ; p_of_cb05( 70) = p_hum ; cb05_per_megan( 70) = 1. p_of_megan2cb05( 71) = is_mbo_2m3e2ol ; p_of_cb05( 71) = p_ole ; cb05_per_megan( 71) = 1. p_of_megan2cb05( 72) = is_mbo_2m3e2ol ; p_of_cb05( 72) = p_par ; cb05_per_megan( 72) = 3. p_of_megan2cb05( 73) = is_methanol ; p_of_cb05( 73) = p_meoh ; cb05_per_megan( 73) = 1. p_of_megan2cb05( 74) = is_acetone ; p_of_cb05( 74) = p_ispd ; cb05_per_megan( 74) = 1. p_of_megan2cb05( 75) = is_methane ; p_of_cb05( 75) = p_ch4 ; cb05_per_megan( 75) = 1. p_of_megan2cb05( 76) = is_ammonia ; p_of_cb05( 76) = p_nh3 ; cb05_per_megan( 76) = 1. p_of_megan2cb05( 77) = is_nitrous_oxd ; p_of_cb05( 77) = non_react ; cb05_per_megan( 77) = 1. p_of_megan2cb05( 78) = is_nitric_oxd ; p_of_cb05( 78) = p_no ; cb05_per_megan( 78) = 1. p_of_megan2cb05( 79) = is_acetaldehyde ; p_of_cb05( 79) = p_ald2 ; cb05_per_megan( 79) = 1. p_of_megan2cb05( 80) = is_ethanol ; p_of_cb05( 80) = p_etoh ; cb05_per_megan( 80) = 1. p_of_megan2cb05( 81) = is_formic_acid ; p_of_cb05( 81) = p_facd ; cb05_per_megan( 81) = 1. p_of_megan2cb05( 82) = is_formaldehyde ; p_of_cb05( 82) = p_form ; cb05_per_megan( 82) = 1. p_of_megan2cb05( 83) = is_acetic_acid ; p_of_cb05( 83) = p_aacd ; cb05_per_megan( 83) = 1. p_of_megan2cb05( 84) = is_mbo_3m2e1ol ; p_of_cb05( 84) = p_ald2 ; cb05_per_megan( 84) = 1. p_of_megan2cb05( 85) = is_mbo_3m2e1ol ; p_of_cb05( 85) = p_par ; cb05_per_megan( 85) = 3. p_of_megan2cb05( 86) = is_mbo_3m3e1ol ; p_of_cb05( 86) = p_form ; cb05_per_megan( 86) = 1. p_of_megan2cb05( 87) = is_mbo_3m3e1ol ; p_of_cb05( 87) = p_par ; cb05_per_megan( 87) = 4. p_of_megan2cb05( 88) = is_benzaldehyde ; p_of_cb05( 88) = p_tol ; cb05_per_megan( 88) = 1. p_of_megan2cb05( 89) = is_butanone_2 ; p_of_cb05( 89) = p_ispd ; cb05_per_megan( 89) = 1. p_of_megan2cb05( 90) = is_butanone_2 ; p_of_cb05( 90) = p_par ; cb05_per_megan( 90) = 2. p_of_megan2cb05( 91) = is_decanal ; p_of_cb05( 91) = p_aldx ; cb05_per_megan( 91) = 1. p_of_megan2cb05( 92) = is_decanal ; p_of_cb05( 92) = p_par ; cb05_per_megan( 92) = 8. p_of_megan2cb05( 93) = is_dodecene_1 ; p_of_cb05( 93) = p_ole ; cb05_per_megan( 93) = 1. p_of_megan2cb05( 94) = is_dodecene_1 ; p_of_cb05( 94) = p_par ; cb05_per_megan( 94) = 10. p_of_megan2cb05( 95) = is_geranyl_acetone ; p_of_cb05( 95) = p_hum ; cb05_per_megan( 95) = 1. p_of_megan2cb05( 96) = is_heptanal ; p_of_cb05( 96) = p_aldx ; cb05_per_megan( 96) = 1. p_of_megan2cb05( 97) = is_heptanal ; p_of_cb05( 97) = p_par ; cb05_per_megan( 97) = 5. p_of_megan2cb05( 98) = is_heptane ; p_of_cb05( 98) = p_par ; cb05_per_megan( 98) = 7. p_of_megan2cb05( 99) = is_hexane ; p_of_cb05( 99) = p_par ; cb05_per_megan( 99) = 6. p_of_megan2cb05(100) = is_met_benzoate ; p_of_cb05(100) = p_tol ; cb05_per_megan(100) = 1. p_of_megan2cb05(101) = is_met_heptenone ; p_of_cb05(101) = p_ispd ; cb05_per_megan(101) = 1. p_of_megan2cb05(102) = is_met_heptenone ; p_of_cb05(102) = p_par ; cb05_per_megan(102) = 3. p_of_megan2cb05(103) = is_met_heptenone ; p_of_cb05(103) = p_ole ; cb05_per_megan(103) = 1. p_of_megan2cb05(104) = is_neryl_acetone ; p_of_cb05(104) = p_ispd ; cb05_per_megan(104) = 1. p_of_megan2cb05(105) = is_neryl_acetone ; p_of_cb05(105) = p_par ; cb05_per_megan(105) = 8. p_of_megan2cb05(106) = is_neryl_acetone ; p_of_cb05(106) = p_iole ; cb05_per_megan(106) = 2. p_of_megan2cb05(107) = is_nonanal ; p_of_cb05(107) = p_aldx ; cb05_per_megan(107) = 1. p_of_megan2cb05(108) = is_nonanal ; p_of_cb05(108) = p_par ; cb05_per_megan(108) = 7. p_of_megan2cb05(109) = is_nonenal ; p_of_cb05(109) = p_aldx ; cb05_per_megan(109) = 1. p_of_megan2cb05(110) = is_nonenal ; p_of_cb05(110) = p_par ; cb05_per_megan(110) = 6. p_of_megan2cb05(111) = is_nonenal ; p_of_cb05(111) = p_iole ; cb05_per_megan(111) = 1. p_of_megan2cb05(112) = is_octanal ; p_of_cb05(112) = p_aldx ; cb05_per_megan(112) = 1. p_of_megan2cb05(113) = is_octanal ; p_of_cb05(113) = p_par ; cb05_per_megan(113) = 6. p_of_megan2cb05(114) = is_octanol ; p_of_cb05(114) = p_par ; cb05_per_megan(114) = 8. p_of_megan2cb05(115) = is_octenol_1e3ol ; p_of_cb05(115) = p_par ; cb05_per_megan(115) = 6. p_of_megan2cb05(116) = is_octenol_1e3ol ; p_of_cb05(116) = p_ole ; cb05_per_megan(116) = 1. p_of_megan2cb05(117) = is_oxopentanal ; p_of_cb05(117) = p_aldx ; cb05_per_megan(117) = 1. p_of_megan2cb05(118) = is_oxopentanal ; p_of_cb05(118) = p_par ; cb05_per_megan(118) = 3. p_of_megan2cb05(119) = is_pentane ; p_of_cb05(119) = p_par ; cb05_per_megan(119) = 5. p_of_megan2cb05(120) = is_phenyl_cco ; p_of_cb05(120) = p_aldx ; cb05_per_megan(120) = 1 p_of_megan2cb05(121) = is_phenyl_cco ; p_of_cb05(121) = p_tol ; cb05_per_megan(121) = 1. p_of_megan2cb05(122) = is_pyruvic_acid ; p_of_cb05(122) = p_aacd ; cb05_per_megan(122) = 1. p_of_megan2cb05(123) = is_pyruvic_acid ; p_of_cb05(123) = p_ispd ; cb05_per_megan(123) = 1. p_of_megan2cb05(124) = is_terpinyl_act_a ; p_of_cb05(124) = p_oci ; cb05_per_megan(124) = 1. p_of_megan2cb05(125) = is_tetradecene_1 ; p_of_cb05(125) = p_par ; cb05_per_megan(125) = 12. p_of_megan2cb05(126) = is_tetradecene_1 ; p_of_cb05(126) = p_ole ; cb05_per_megan(126) = 1. p_of_megan2cb05(127) = is_toluene ; p_of_cb05(127) = p_tol ; cb05_per_megan(127) = 1. p_of_megan2cb05(128) = is_carbon_monoxide ; p_of_cb05(128) = p_co ; cb05_per_megan(128) = 1. p_of_megan2cb05(129) = is_butene ; p_of_cb05(129) = p_ole ; cb05_per_megan(129) = 1. p_of_megan2cb05(130) = is_butene ; p_of_cb05(130) = p_par ; cb05_per_megan(130) = 2. p_of_megan2cb05(131) = is_ethane ; p_of_cb05(131) = p_etha ; cb05_per_megan(131) = 1. p_of_megan2cb05(132) = is_ethene ; p_of_cb05(132) = p_eth ; cb05_per_megan(132) = 1. p_of_megan2cb05(133) = is_hydrogen_cyanide ; p_of_cb05(133) = non_react ; cb05_per_megan(133) = 1. p_of_megan2cb05(134) = is_propane ; p_of_cb05(134) = p_par ; cb05_per_megan(134) = 3. p_of_megan2cb05(135) = is_propene ; p_of_cb05(135) = p_ole ; cb05_per_megan(135) = 1. p_of_megan2cb05(136) = is_propene ; p_of_cb05(136) = p_par ; cb05_per_megan(136) = 1. p_of_megan2cb05(137) = is_carbon_2s ; p_of_cb05(137) = non_react ; cb05_per_megan(137) = 1. p_of_megan2cb05(138) = is_carbonyl_s ; p_of_cb05(138) = non_react ; cb05_per_megan(138) = 1. p_of_megan2cb05(139) = is_diallyl_2s ; p_of_cb05(139) = non_react ; cb05_per_megan(139) = 1. p_of_megan2cb05(140) = is_diallyl_2s ; p_of_cb05(140) = p_par ; cb05_per_megan(140) = 2. p_of_megan2cb05(141) = is_diallyl_2s ; p_of_cb05(141) = p_ole ; cb05_per_megan(141) = 2. p_of_megan2cb05(142) = is_2met_2s ; p_of_cb05(142) = non_react ; cb05_per_megan(142) = 1. p_of_megan2cb05(143) = is_2met_s ; p_of_cb05(143) = non_react ; cb05_per_megan(143) = 1. p_of_megan2cb05(144) = is_met_chloride ; p_of_cb05(144) = non_react ; cb05_per_megan(144) = 1. p_of_megan2cb05(145) = is_met_bromide ; p_of_cb05(145) = non_react ; cb05_per_megan(145) = 1. p_of_megan2cb05(146) = is_met_iodide ; p_of_cb05(146) = non_react ; cb05_per_megan(146) = 1. p_of_megan2cb05(147) = is_hydrogen_s ; p_of_cb05(147) = non_react ; cb05_per_megan(147) = 1. p_of_megan2cb05(148) = is_met_mercaptan ; p_of_cb05(148) = p_par ; cb05_per_megan(148) = 1. p_of_megan2cb05(149) = is_met_propenyl_2s ; p_of_cb05(149) = non_react ; cb05_per_megan(149) = 1. p_of_megan2cb05(150) = is_met_propenyl_2s ; p_of_cb05(150) = p_iole ; cb05_per_megan(150) = 1. p_of_megan2cb05(151) = is_pppp_2s ; p_of_cb05(151) = non_react ; cb05_per_megan(151) = 1. p_of_megan2cb05(152) = is_pppp_2s ; p_of_cb05(152) = p_par ; cb05_per_megan(152) = 2. p_of_megan2cb05(153) = is_pppp_2s ; p_of_cb05(153) = p_iole ; cb05_per_megan(153) = 1. p_of_megan2cb05(154) = is_2met_nonatriene ; p_of_cb05(154) = p_oci ; cb05_per_megan(154) = 1. p_of_megan2cb05(155) = is_met_salicylate ; p_of_cb05(155) = p_tol ; cb05_per_megan(155) = 1. p_of_megan2cb05(156) = is_indole ; p_of_cb05(156) = p_tol ; cb05_per_megan(156) = 1. p_of_megan2cb05(157) = is_jasmone ; p_of_cb05(157) = p_oci ; cb05_per_megan(157) = 1. p_of_megan2cb05(158) = is_met_jasmonate ; p_of_cb05(158) = p_hum ; cb05_per_megan(158) = 1. p_of_megan2cb05(159) = is_3met_3dctt ; p_of_cb05(159) = p_hum ; cb05_per_megan(159) = 1. p_of_megan2cb05(160) = is_hexanal ; p_of_cb05(160) = p_aldx ; cb05_per_megan(160) = 1. p_of_megan2cb05(161) = is_hexanal ; p_of_cb05(161) = p_par ; cb05_per_megan(161) = 4. p_of_megan2cb05(162) = is_hexanol_1 ; p_of_cb05(162) = p_par ; cb05_per_megan(162) = 6. p_of_megan2cb05(163) = is_hexenal_c3 ; p_of_cb05(163) = p_aldx ; cb05_per_megan(163) = 1. p_of_megan2cb05(164) = is_hexenal_c3 ; p_of_cb05(164) = p_par ; cb05_per_megan(164) = 3. p_of_megan2cb05(165) = is_hexenal_c3 ; p_of_cb05(165) = p_iole ; cb05_per_megan(165) = 1 p_of_megan2cb05(166) = is_hexenal_t2 ; p_of_cb05(166) = p_aldx ; cb05_per_megan(166) = 1. p_of_megan2cb05(167) = is_hexenal_t2 ; p_of_cb05(167) = p_par ; cb05_per_megan(167) = 6. p_of_megan2cb05(168) = is_hexenal_t2 ; p_of_cb05(168) = p_iole ; cb05_per_megan(168) = 1. p_of_megan2cb05(169) = is_hexenol_c3 ; p_of_cb05(169) = p_par ; cb05_per_megan(169) = 5. p_of_megan2cb05(170) = is_hexenol_c3 ; p_of_cb05(170) = p_iole ; cb05_per_megan(170) = 1. p_of_megan2cb05(171) = is_hexenyl_act_c3 ; p_of_cb05(171) = p_ispd ; cb05_per_megan(171) = 1. p_of_megan2cb05(172) = is_hexenyl_act_c3 ; p_of_cb05(172) = p_par ; cb05_per_megan(172) = 5. p_of_megan2cb05(173) = is_hexenyl_act_c3 ; p_of_cb05(173) = p_iole ; cb05_per_megan(173) = 1. END SUBROUTINE get_megan2cb05_table SUBROUTINE get_megan2cb05vbs_table ! MEGAN species CB05 Species Molar ratio ! p_of_megan2cb05vbs( 1) = is_isoprene ; p_of_cb05vbs( 1) = p_isop ; cb05vbs_per_megan( 1) = 1. p_of_megan2cb05vbs( 2) = is_myrcene ; p_of_cb05vbs( 2) = p_oci ; cb05vbs_per_megan( 2) = 1. p_of_megan2cb05vbs( 3) = is_sabinene ; p_of_cb05vbs( 3) = p_apin ; cb05vbs_per_megan( 3) = 1. p_of_megan2cb05vbs( 4) = is_limonene ; p_of_cb05vbs( 4) = p_lim ; cb05vbs_per_megan( 4) = 1. p_of_megan2cb05vbs( 5) = is_carene_3 ; p_of_cb05vbs( 5) = p_bpin ; cb05vbs_per_megan( 5) = 1. p_of_megan2cb05vbs( 6) = is_ocimene_t_b ; p_of_cb05vbs( 6) = p_oci ; cb05vbs_per_megan( 6) = 1. p_of_megan2cb05vbs( 7) = is_pinene_b ; p_of_cb05vbs( 7) = p_bpin ; cb05vbs_per_megan( 7) = 1. p_of_megan2cb05vbs( 8) = is_pinene_a ; p_of_cb05vbs( 8) = p_apin ; cb05vbs_per_megan( 8) = 1. p_of_megan2cb05vbs( 9) = is_2met_styrene ; p_of_cb05vbs( 9) = p_oci ; cb05vbs_per_megan( 9) = 1. p_of_megan2cb05vbs( 10) = is_cymene_p ; p_of_cb05vbs( 10) = p_oci ; cb05vbs_per_megan( 10) = 1. p_of_megan2cb05vbs( 11) = is_cymene_o ; p_of_cb05vbs( 11) = p_oci ; cb05vbs_per_megan( 11) = 1. p_of_megan2cb05vbs( 12) = is_phellandrene_a ; p_of_cb05vbs( 12) = p_oci ; cb05vbs_per_megan( 12) = 1. p_of_megan2cb05vbs( 13) = is_thujene_a ; p_of_cb05vbs( 13) = p_oci ; cb05vbs_per_megan( 13) = 1. p_of_megan2cb05vbs( 14) = is_terpinene_a ; p_of_cb05vbs( 14) = p_ter ; cb05vbs_per_megan( 14) = 1. p_of_megan2cb05vbs( 15) = is_terpinene_g ; p_of_cb05vbs( 15) = p_ter ; cb05vbs_per_megan( 15) = 1. p_of_megan2cb05vbs( 16) = is_terpinolene ; p_of_cb05vbs( 16) = p_oci ; cb05vbs_per_megan( 16) = 1. p_of_megan2cb05vbs( 17) = is_phellandrene_b ; p_of_cb05vbs( 17) = p_oci ; cb05vbs_per_megan( 17) = 1. p_of_megan2cb05vbs( 18) = is_camphene ; p_of_cb05vbs( 18) = p_oci ; cb05vbs_per_megan( 18) = 1. p_of_megan2cb05vbs( 19) = is_bornene ; p_of_cb05vbs( 19) = p_oci ; cb05vbs_per_megan( 19) = 1. p_of_megan2cb05vbs( 20) = is_fenchene_a ; p_of_cb05vbs( 20) = p_oci ; cb05vbs_per_megan( 20) = 1. p_of_megan2cb05vbs( 21) = is_ocimene_al ; p_of_cb05vbs( 21) = p_oci ; cb05vbs_per_megan( 21) = 1. p_of_megan2cb05vbs( 22) = is_ocimene_c_b ; p_of_cb05vbs( 22) = p_oci ; cb05vbs_per_megan( 22) = 1. p_of_megan2cb05vbs( 23) = is_tricyclene ; p_of_cb05vbs( 23) = p_oci ; cb05vbs_per_megan( 23) = 1. p_of_megan2cb05vbs( 24) = is_estragole ; p_of_cb05vbs( 24) = p_oci ; cb05vbs_per_megan( 24) = 1. p_of_megan2cb05vbs( 25) = is_camphor ; p_of_cb05vbs( 25) = p_oci ; cb05vbs_per_megan( 25) = 1. p_of_megan2cb05vbs( 26) = is_fenchone ; p_of_cb05vbs( 26) = p_oci ; cb05vbs_per_megan( 26) = 1. p_of_megan2cb05vbs( 27) = is_piperitone ; p_of_cb05vbs( 27) = p_oci ; cb05vbs_per_megan( 27) = 1. p_of_megan2cb05vbs( 28) = is_thujone_a ; p_of_cb05vbs( 28) = p_oci ; cb05vbs_per_megan( 28) = 1. p_of_megan2cb05vbs( 29) = is_thujone_b ; p_of_cb05vbs( 29) = p_oci ; cb05vbs_per_megan( 29) = 1. p_of_megan2cb05vbs( 30) = is_cineole_1_8 ; p_of_cb05vbs( 30) = p_oci ; cb05vbs_per_megan( 30) = 1. p_of_megan2cb05vbs( 31) = is_borneol ; p_of_cb05vbs( 31) = p_oci ; cb05vbs_per_megan( 31) = 1. p_of_megan2cb05vbs( 32) = is_linalool ; p_of_cb05vbs( 32) = p_oci ; cb05vbs_per_megan( 32) = 1. p_of_megan2cb05vbs( 33) = is_terpineol_4 ; p_of_cb05vbs( 33) = p_oci ; cb05vbs_per_megan( 33) = 1. p_of_megan2cb05vbs( 34) = is_terpineol_a ; p_of_cb05vbs( 34) = p_oci ; cb05vbs_per_megan( 34) = 1. p_of_megan2cb05vbs( 35) = is_linalool_oxd_c ; p_of_cb05vbs( 35) = p_oci ; cb05vbs_per_megan( 35) = 1. p_of_megan2cb05vbs( 36) = is_linalool_oxd_t ; p_of_cb05vbs( 36) = p_oci ; cb05vbs_per_megan( 36) = 1. p_of_megan2cb05vbs( 37) = is_ionone_b ; p_of_cb05vbs( 37) = p_hum ; cb05vbs_per_megan( 37) = 1. p_of_megan2cb05vbs( 38) = is_bornyl_act ; p_of_cb05vbs( 38) = p_oci ; cb05vbs_per_megan( 38) = 1. p_of_megan2cb05vbs( 39) = is_farnescene_a ; p_of_cb05vbs( 39) = p_hum ; cb05vbs_per_megan( 39) = 1. p_of_megan2cb05vbs( 40) = is_caryophyllene_b ; p_of_cb05vbs( 40) = p_hum ; cb05vbs_per_megan( 40) = 1. p_of_megan2cb05vbs( 41) = is_acoradiene ; p_of_cb05vbs( 41) = p_hum ; cb05vbs_per_megan( 41) = 1. p_of_megan2cb05vbs( 42) = is_aromadendrene ; p_of_cb05vbs( 42) = p_hum ; cb05vbs_per_megan( 42) = 1. p_of_megan2cb05vbs( 43) = is_bergamotene_a ; p_of_cb05vbs( 43) = p_hum ; cb05vbs_per_megan( 43) = 1. p_of_megan2cb05vbs( 44) = is_bergamotene_b ; p_of_cb05vbs( 44) = p_hum ; cb05vbs_per_megan( 44) = 1. p_of_megan2cb05vbs( 45) = is_bisabolene_a ; p_of_cb05vbs( 45) = p_hum ; cb05vbs_per_megan( 45) = 1. p_of_megan2cb05vbs( 46) = is_bisabolene_b ; p_of_cb05vbs( 46) = p_hum ; cb05vbs_per_megan( 46) = 1. p_of_megan2cb05vbs( 47) = is_bourbonene_b ; p_of_cb05vbs( 47) = p_hum ; cb05vbs_per_megan( 47) = 1. p_of_megan2cb05vbs( 48) = is_cadinene_d ; p_of_cb05vbs( 48) = p_hum ; cb05vbs_per_megan( 48) = 1. p_of_megan2cb05vbs( 49) = is_cadinene_g ; p_of_cb05vbs( 49) = p_hum ; cb05vbs_per_megan( 49) = 1. p_of_megan2cb05vbs( 50) = is_cedrene_a ; p_of_cb05vbs( 50) = p_hum ; cb05vbs_per_megan( 50) = 1. p_of_megan2cb05vbs( 51) = is_copaene_a ; p_of_cb05vbs( 51) = p_hum ; cb05vbs_per_megan( 51) = 1. p_of_megan2cb05vbs( 52) = is_cubebene_a ; p_of_cb05vbs( 52) = p_hum ; cb05vbs_per_megan( 52) = 1. p_of_megan2cb05vbs( 53) = is_cubebene_b ; p_of_cb05vbs( 53) = p_hum ; cb05vbs_per_megan( 53) = 1. p_of_megan2cb05vbs( 54) = is_elemene_b ; p_of_cb05vbs( 54) = p_hum ; cb05vbs_per_megan( 54) = 1. p_of_megan2cb05vbs( 55) = is_farnescene_b ; p_of_cb05vbs( 55) = p_hum ; cb05vbs_per_megan( 55) = 1. p_of_megan2cb05vbs( 56) = is_germacrene_B ; p_of_cb05vbs( 56) = p_hum ; cb05vbs_per_megan( 56) = 1. p_of_megan2cb05vbs( 57) = is_germacrene_D ; p_of_cb05vbs( 57) = p_hum ; cb05vbs_per_megan( 57) = 1. p_of_megan2cb05vbs( 58) = is_gurjunene_b ; p_of_cb05vbs( 58) = p_hum ; cb05vbs_per_megan( 58) = 1. p_of_megan2cb05vbs( 59) = is_humulene_a ; p_of_cb05vbs( 59) = p_hum ; cb05vbs_per_megan( 59) = 1. p_of_megan2cb05vbs( 60) = is_humulene_g ; p_of_cb05vbs( 60) = p_hum ; cb05vbs_per_megan( 60) = 1. p_of_megan2cb05vbs( 61) = is_isolongifolene ; p_of_cb05vbs( 61) = p_hum ; cb05vbs_per_megan( 61) = 1. p_of_megan2cb05vbs( 62) = is_longifolene ; p_of_cb05vbs( 62) = p_hum ; cb05vbs_per_megan( 62) = 1. p_of_megan2cb05vbs( 63) = is_longipinene ; p_of_cb05vbs( 63) = p_hum ; cb05vbs_per_megan( 63) = 1. p_of_megan2cb05vbs( 64) = is_muurolene_a ; p_of_cb05vbs( 64) = p_hum ; cb05vbs_per_megan( 64) = 1. p_of_megan2cb05vbs( 65) = is_muurolene_g ; p_of_cb05vbs( 65) = p_hum ; cb05vbs_per_megan( 65) = 1. p_of_megan2cb05vbs( 66) = is_selinene_b ; p_of_cb05vbs( 66) = p_hum ; cb05vbs_per_megan( 66) = 1. p_of_megan2cb05vbs( 67) = is_selinene_d ; p_of_cb05vbs( 67) = p_hum ; cb05vbs_per_megan( 67) = 1. p_of_megan2cb05vbs( 68) = is_nerolidol_c ; p_of_cb05vbs( 68) = p_hum ; cb05vbs_per_megan( 68) = 1. p_of_megan2cb05vbs( 69) = is_nerolidol_t ; p_of_cb05vbs( 69) = p_hum ; cb05vbs_per_megan( 69) = 1. p_of_megan2cb05vbs( 70) = is_cedrol ; p_of_cb05vbs( 70) = p_hum ; cb05vbs_per_megan( 70) = 1. p_of_megan2cb05vbs( 71) = is_mbo_2m3e2ol ; p_of_cb05vbs( 71) = p_ole ; cb05vbs_per_megan( 71) = 1. p_of_megan2cb05vbs( 72) = is_mbo_2m3e2ol ; p_of_cb05vbs( 72) = p_par ; cb05vbs_per_megan( 72) = 3. p_of_megan2cb05vbs( 73) = is_methanol ; p_of_cb05vbs( 73) = p_meoh ; cb05vbs_per_megan( 73) = 1. p_of_megan2cb05vbs( 74) = is_acetone ; p_of_cb05vbs( 74) = p_ispd ; cb05vbs_per_megan( 74) = 1. p_of_megan2cb05vbs( 75) = is_methane ; p_of_cb05vbs( 75) = p_ch4 ; cb05vbs_per_megan( 75) = 1. p_of_megan2cb05vbs( 76) = is_ammonia ; p_of_cb05vbs( 76) = p_nh3 ; cb05vbs_per_megan( 76) = 1. p_of_megan2cb05vbs( 77) = is_nitrous_oxd ; p_of_cb05vbs( 77) = non_react ; cb05vbs_per_megan( 77) = 1. p_of_megan2cb05vbs( 78) = is_nitric_oxd ; p_of_cb05vbs( 78) = p_no ; cb05vbs_per_megan( 78) = 1. p_of_megan2cb05vbs( 79) = is_acetaldehyde ; p_of_cb05vbs( 79) = p_ald2 ; cb05vbs_per_megan( 79) = 1. p_of_megan2cb05vbs( 80) = is_ethanol ; p_of_cb05vbs( 80) = p_etoh ; cb05vbs_per_megan( 80) = 1. p_of_megan2cb05vbs( 81) = is_formic_acid ; p_of_cb05vbs( 81) = p_facd ; cb05vbs_per_megan( 81) = 1. p_of_megan2cb05vbs( 82) = is_formaldehyde ; p_of_cb05vbs( 82) = p_form ; cb05vbs_per_megan( 82) = 1. p_of_megan2cb05vbs( 83) = is_acetic_acid ; p_of_cb05vbs( 83) = p_aacd ; cb05vbs_per_megan( 83) = 1. p_of_megan2cb05vbs( 84) = is_mbo_3m2e1ol ; p_of_cb05vbs( 84) = p_ald2 ; cb05vbs_per_megan( 84) = 1. p_of_megan2cb05vbs( 85) = is_mbo_3m2e1ol ; p_of_cb05vbs( 85) = p_par ; cb05vbs_per_megan( 85) = 3. p_of_megan2cb05vbs( 86) = is_mbo_3m3e1ol ; p_of_cb05vbs( 86) = p_form ; cb05vbs_per_megan( 86) = 1. p_of_megan2cb05vbs( 87) = is_mbo_3m3e1ol ; p_of_cb05vbs( 87) = p_par ; cb05vbs_per_megan( 87) = 4. p_of_megan2cb05vbs( 88) = is_benzaldehyde ; p_of_cb05vbs( 88) = p_tol ; cb05vbs_per_megan( 88) = 1. p_of_megan2cb05vbs( 89) = is_butanone_2 ; p_of_cb05vbs( 89) = p_ispd ; cb05vbs_per_megan( 89) = 1. p_of_megan2cb05vbs( 90) = is_butanone_2 ; p_of_cb05vbs( 90) = p_par ; cb05vbs_per_megan( 90) = 2. p_of_megan2cb05vbs( 91) = is_decanal ; p_of_cb05vbs( 91) = p_aldx ; cb05vbs_per_megan( 91) = 1. p_of_megan2cb05vbs( 92) = is_decanal ; p_of_cb05vbs( 92) = p_par ; cb05vbs_per_megan( 92) = 8. p_of_megan2cb05vbs( 93) = is_dodecene_1 ; p_of_cb05vbs( 93) = p_ole ; cb05vbs_per_megan( 93) = 1. p_of_megan2cb05vbs( 94) = is_dodecene_1 ; p_of_cb05vbs( 94) = p_par ; cb05vbs_per_megan( 94) = 10. p_of_megan2cb05vbs( 95) = is_geranyl_acetone ; p_of_cb05vbs( 95) = p_hum ; cb05vbs_per_megan( 95) = 1. p_of_megan2cb05vbs( 96) = is_heptanal ; p_of_cb05vbs( 96) = p_aldx ; cb05vbs_per_megan( 96) = 1. p_of_megan2cb05vbs( 97) = is_heptanal ; p_of_cb05vbs( 97) = p_par ; cb05vbs_per_megan( 97) = 5. p_of_megan2cb05vbs( 98) = is_heptane ; p_of_cb05vbs( 98) = p_par ; cb05vbs_per_megan( 98) = 7. p_of_megan2cb05vbs( 99) = is_hexane ; p_of_cb05vbs( 99) = p_par ; cb05vbs_per_megan( 99) = 6. p_of_megan2cb05vbs(100) = is_met_benzoate ; p_of_cb05vbs(100) = p_tol ; cb05vbs_per_megan(100) = 1. p_of_megan2cb05vbs(101) = is_met_heptenone ; p_of_cb05vbs(101) = p_ispd ; cb05vbs_per_megan(101) = 1. p_of_megan2cb05vbs(102) = is_met_heptenone ; p_of_cb05vbs(102) = p_par ; cb05vbs_per_megan(102) = 3. p_of_megan2cb05vbs(103) = is_met_heptenone ; p_of_cb05vbs(103) = p_ole ; cb05vbs_per_megan(103) = 1. p_of_megan2cb05vbs(104) = is_neryl_acetone ; p_of_cb05vbs(104) = p_ispd ; cb05vbs_per_megan(104) = 1. p_of_megan2cb05vbs(105) = is_neryl_acetone ; p_of_cb05vbs(105) = p_par ; cb05vbs_per_megan(105) = 8. p_of_megan2cb05vbs(106) = is_neryl_acetone ; p_of_cb05vbs(106) = p_iole ; cb05vbs_per_megan(106) = 2. p_of_megan2cb05vbs(107) = is_nonanal ; p_of_cb05vbs(107) = p_aldx ; cb05vbs_per_megan(107) = 1. p_of_megan2cb05vbs(108) = is_nonanal ; p_of_cb05vbs(108) = p_par ; cb05vbs_per_megan(108) = 7. p_of_megan2cb05vbs(109) = is_nonenal ; p_of_cb05vbs(109) = p_aldx ; cb05vbs_per_megan(109) = 1. p_of_megan2cb05vbs(110) = is_nonenal ; p_of_cb05vbs(110) = p_par ; cb05vbs_per_megan(110) = 6. p_of_megan2cb05vbs(111) = is_nonenal ; p_of_cb05vbs(111) = p_iole ; cb05vbs_per_megan(111) = 1. p_of_megan2cb05vbs(112) = is_octanal ; p_of_cb05vbs(112) = p_aldx ; cb05vbs_per_megan(112) = 1. p_of_megan2cb05vbs(113) = is_octanal ; p_of_cb05vbs(113) = p_par ; cb05vbs_per_megan(113) = 6. p_of_megan2cb05vbs(114) = is_octanol ; p_of_cb05vbs(114) = p_par ; cb05vbs_per_megan(114) = 8. p_of_megan2cb05vbs(115) = is_octenol_1e3ol ; p_of_cb05vbs(115) = p_par ; cb05vbs_per_megan(115) = 6. p_of_megan2cb05vbs(116) = is_octenol_1e3ol ; p_of_cb05vbs(116) = p_ole ; cb05vbs_per_megan(116) = 1. p_of_megan2cb05vbs(117) = is_oxopentanal ; p_of_cb05vbs(117) = p_aldx ; cb05vbs_per_megan(117) = 1. p_of_megan2cb05vbs(118) = is_oxopentanal ; p_of_cb05vbs(118) = p_par ; cb05vbs_per_megan(118) = 3. p_of_megan2cb05vbs(119) = is_pentane ; p_of_cb05vbs(119) = p_par ; cb05vbs_per_megan(119) = 5. p_of_megan2cb05vbs(120) = is_phenyl_cco ; p_of_cb05vbs(120) = p_aldx ; cb05vbs_per_megan(120) = 1 p_of_megan2cb05vbs(121) = is_phenyl_cco ; p_of_cb05vbs(121) = p_tol ; cb05vbs_per_megan(121) = 1. p_of_megan2cb05vbs(122) = is_pyruvic_acid ; p_of_cb05vbs(122) = p_aacd ; cb05vbs_per_megan(122) = 1. p_of_megan2cb05vbs(123) = is_pyruvic_acid ; p_of_cb05vbs(123) = p_ispd ; cb05vbs_per_megan(123) = 1. p_of_megan2cb05vbs(124) = is_terpinyl_act_a ; p_of_cb05vbs(124) = p_oci ; cb05vbs_per_megan(124) = 1. p_of_megan2cb05vbs(125) = is_tetradecene_1 ; p_of_cb05vbs(125) = p_par ; cb05vbs_per_megan(125) = 12. p_of_megan2cb05vbs(126) = is_tetradecene_1 ; p_of_cb05vbs(126) = p_ole ; cb05vbs_per_megan(126) = 1. p_of_megan2cb05vbs(127) = is_toluene ; p_of_cb05vbs(127) = p_tol ; cb05vbs_per_megan(127) = 1. p_of_megan2cb05vbs(128) = is_carbon_monoxide ; p_of_cb05vbs(128) = p_co ; cb05vbs_per_megan(128) = 1. p_of_megan2cb05vbs(129) = is_butene ; p_of_cb05vbs(129) = p_ole ; cb05vbs_per_megan(129) = 1. p_of_megan2cb05vbs(130) = is_butene ; p_of_cb05vbs(130) = p_par ; cb05vbs_per_megan(130) = 2. p_of_megan2cb05vbs(131) = is_ethane ; p_of_cb05vbs(131) = p_etha ; cb05vbs_per_megan(131) = 1. p_of_megan2cb05vbs(132) = is_ethene ; p_of_cb05vbs(132) = p_eth ; cb05vbs_per_megan(132) = 1. p_of_megan2cb05vbs(133) = is_hydrogen_cyanide ; p_of_cb05vbs(133) = non_react ; cb05vbs_per_megan(133) = 1. p_of_megan2cb05vbs(134) = is_propane ; p_of_cb05vbs(134) = p_par ; cb05vbs_per_megan(134) = 3. p_of_megan2cb05vbs(135) = is_propene ; p_of_cb05vbs(135) = p_ole ; cb05vbs_per_megan(135) = 1. p_of_megan2cb05vbs(136) = is_propene ; p_of_cb05vbs(136) = p_par ; cb05vbs_per_megan(136) = 1. p_of_megan2cb05vbs(137) = is_carbon_2s ; p_of_cb05vbs(137) = non_react ; cb05vbs_per_megan(137) = 1. p_of_megan2cb05vbs(138) = is_carbonyl_s ; p_of_cb05vbs(138) = non_react ; cb05vbs_per_megan(138) = 1. p_of_megan2cb05vbs(139) = is_diallyl_2s ; p_of_cb05vbs(139) = non_react ; cb05vbs_per_megan(139) = 1. p_of_megan2cb05vbs(140) = is_diallyl_2s ; p_of_cb05vbs(140) = p_par ; cb05vbs_per_megan(140) = 2. p_of_megan2cb05vbs(141) = is_diallyl_2s ; p_of_cb05vbs(141) = p_ole ; cb05vbs_per_megan(141) = 2. p_of_megan2cb05vbs(142) = is_2met_2s ; p_of_cb05vbs(142) = non_react ; cb05vbs_per_megan(142) = 1. p_of_megan2cb05vbs(143) = is_2met_s ; p_of_cb05vbs(143) = non_react ; cb05vbs_per_megan(143) = 1. p_of_megan2cb05vbs(144) = is_met_chloride ; p_of_cb05vbs(144) = non_react ; cb05vbs_per_megan(144) = 1. p_of_megan2cb05vbs(145) = is_met_bromide ; p_of_cb05vbs(145) = non_react ; cb05vbs_per_megan(145) = 1. p_of_megan2cb05vbs(146) = is_met_iodide ; p_of_cb05vbs(146) = non_react ; cb05vbs_per_megan(146) = 1. p_of_megan2cb05vbs(147) = is_hydrogen_s ; p_of_cb05vbs(147) = non_react ; cb05vbs_per_megan(147) = 1. p_of_megan2cb05vbs(148) = is_met_mercaptan ; p_of_cb05vbs(148) = p_par ; cb05vbs_per_megan(148) = 1. p_of_megan2cb05vbs(149) = is_met_propenyl_2s ; p_of_cb05vbs(149) = non_react ; cb05vbs_per_megan(149) = 1. p_of_megan2cb05vbs(150) = is_met_propenyl_2s ; p_of_cb05vbs(150) = p_iole ; cb05vbs_per_megan(150) = 1. p_of_megan2cb05vbs(151) = is_pppp_2s ; p_of_cb05vbs(151) = non_react ; cb05vbs_per_megan(151) = 1. p_of_megan2cb05vbs(152) = is_pppp_2s ; p_of_cb05vbs(152) = p_par ; cb05vbs_per_megan(152) = 2. p_of_megan2cb05vbs(153) = is_pppp_2s ; p_of_cb05vbs(153) = p_iole ; cb05vbs_per_megan(153) = 1. p_of_megan2cb05vbs(154) = is_2met_nonatriene ; p_of_cb05vbs(154) = p_oci ; cb05vbs_per_megan(154) = 1. p_of_megan2cb05vbs(155) = is_met_salicylate ; p_of_cb05vbs(155) = p_tol ; cb05vbs_per_megan(155) = 1. p_of_megan2cb05vbs(156) = is_indole ; p_of_cb05vbs(156) = p_tol ; cb05vbs_per_megan(156) = 1. p_of_megan2cb05vbs(157) = is_jasmone ; p_of_cb05vbs(157) = p_oci ; cb05vbs_per_megan(157) = 1. p_of_megan2cb05vbs(158) = is_met_jasmonate ; p_of_cb05vbs(158) = p_hum ; cb05vbs_per_megan(158) = 1. p_of_megan2cb05vbs(159) = is_3met_3dctt ; p_of_cb05vbs(159) = p_hum ; cb05vbs_per_megan(159) = 1. p_of_megan2cb05vbs(160) = is_hexanal ; p_of_cb05vbs(160) = p_aldx ; cb05vbs_per_megan(160) = 1. p_of_megan2cb05vbs(161) = is_hexanal ; p_of_cb05vbs(161) = p_par ; cb05vbs_per_megan(161) = 4. p_of_megan2cb05vbs(162) = is_hexanol_1 ; p_of_cb05vbs(162) = p_par ; cb05vbs_per_megan(162) = 6. p_of_megan2cb05vbs(163) = is_hexenal_c3 ; p_of_cb05vbs(163) = p_aldx ; cb05vbs_per_megan(163) = 1. p_of_megan2cb05vbs(164) = is_hexenal_c3 ; p_of_cb05vbs(164) = p_par ; cb05vbs_per_megan(164) = 3. p_of_megan2cb05vbs(165) = is_hexenal_c3 ; p_of_cb05vbs(165) = p_iole ; cb05vbs_per_megan(165) = 1 p_of_megan2cb05vbs(166) = is_hexenal_t2 ; p_of_cb05vbs(166) = p_aldx ; cb05vbs_per_megan(166) = 1. p_of_megan2cb05vbs(167) = is_hexenal_t2 ; p_of_cb05vbs(167) = p_par ; cb05vbs_per_megan(167) = 6. p_of_megan2cb05vbs(168) = is_hexenal_t2 ; p_of_cb05vbs(168) = p_iole ; cb05vbs_per_megan(168) = 1. p_of_megan2cb05vbs(169) = is_hexenol_c3 ; p_of_cb05vbs(169) = p_par ; cb05vbs_per_megan(169) = 5. p_of_megan2cb05vbs(170) = is_hexenol_c3 ; p_of_cb05vbs(170) = p_iole ; cb05vbs_per_megan(170) = 1. p_of_megan2cb05vbs(171) = is_hexenyl_act_c3 ; p_of_cb05vbs(171) = p_ispd ; cb05vbs_per_megan(171) = 1. p_of_megan2cb05vbs(172) = is_hexenyl_act_c3 ; p_of_cb05vbs(172) = p_par ; cb05vbs_per_megan(172) = 5. p_of_megan2cb05vbs(173) = is_hexenyl_act_c3 ; p_of_cb05vbs(173) = p_iole ; cb05vbs_per_megan(173) = 1. END SUBROUTINE get_megan2cb05vbs_table !-------------------------------------------------------------------- SUBROUTINE get_megan2crimech_table ! For MEGAN v2.04 species conversion to crimech species ! Based on Tan's MAP_CV2crimech.EXT ! ! Index of Index of Molar ratio ! MEGAN species crimech Species ! p_of_megan2crimech( 1) = is_isoprene ; p_of_crimech( 1) = p_c5h8 ; crimech_per_megan( 1) = 1.000 p_of_megan2crimech( 2) = is_myrcene ; p_of_crimech( 2) = p_bpinene ; crimech_per_megan( 2) = 1.000 p_of_megan2crimech( 3) = is_sabinene ; p_of_crimech( 3) = p_bpinene ; crimech_per_megan( 3) = 1.000 p_of_megan2crimech( 4) = is_limonene ; p_of_crimech( 4) = p_apinene ; crimech_per_megan( 4) = 0.667 p_of_megan2crimech( 5) = is_limonene ; p_of_crimech( 5) = p_bpinene ; crimech_per_megan( 5) = 0.333 p_of_megan2crimech( 6) = is_carene_3 ; p_of_crimech( 6) = p_apinene ; crimech_per_megan( 6) = 1.000 p_of_megan2crimech( 7) = is_ocimene_t_b ; p_of_crimech( 7) = p_bpinene ; crimech_per_megan( 7) = 1.000 p_of_megan2crimech( 8) = is_pinene_b ; p_of_crimech( 8) = p_bpinene ; crimech_per_megan( 8) = 1.000 p_of_megan2crimech( 9) = is_pinene_a ; p_of_crimech( 9) = p_apinene ; crimech_per_megan( 9) = 1.000 p_of_megan2crimech( 10) = is_2met_styrene ; p_of_crimech( 10) = p_apinene ; crimech_per_megan( 10) = 1.000 p_of_megan2crimech( 11) = is_2met_styrene ; p_of_crimech( 11) = p_bpinene ; crimech_per_megan( 11) = 1.000 p_of_megan2crimech( 12) = is_cymene_p ; p_of_crimech( 12) = p_toluene ; crimech_per_megan( 12) = 1.500 p_of_megan2crimech( 13) = is_cymene_o ; p_of_crimech( 13) = p_toluene ; crimech_per_megan( 13) = 1.500 p_of_megan2crimech( 14) = is_phellandrene_a ; p_of_crimech( 14) = p_apinene ; crimech_per_megan( 14) = 1.000 p_of_megan2crimech( 15) = is_thujene_a ; p_of_crimech( 15) = p_apinene ; crimech_per_megan( 15) = 1.000 p_of_megan2crimech( 16) = is_terpinene_a ; p_of_crimech( 16) = p_apinene ; crimech_per_megan( 16) = 1.000 p_of_megan2crimech( 17) = is_terpinene_g ; p_of_crimech( 17) = p_apinene ; crimech_per_megan( 17) = 1.000 p_of_megan2crimech( 18) = is_terpinolene ; p_of_crimech( 18) = p_apinene ; crimech_per_megan( 18) = 0.667 p_of_megan2crimech( 19) = is_terpinolene ; p_of_crimech( 19) = p_bpinene ; crimech_per_megan( 19) = 0.333 p_of_megan2crimech( 20) = is_phellandrene_b ; p_of_crimech( 20) = p_bpinene ; crimech_per_megan( 20) = 1.000 p_of_megan2crimech( 21) = is_camphene ; p_of_crimech( 21) = p_bpinene ; crimech_per_megan( 21) = 1.000 p_of_megan2crimech( 22) = is_bornene ; p_of_crimech( 22) = p_apinene ; crimech_per_megan( 22) = 1.000 p_of_megan2crimech( 23) = is_fenchene_a ; p_of_crimech( 23) = p_apinene ; crimech_per_megan( 23) = 1.000 p_of_megan2crimech( 24) = is_ocimene_al ; p_of_crimech( 24) = p_apinene ; crimech_per_megan( 24) = 1.000 p_of_megan2crimech( 25) = is_ocimene_c_b ; p_of_crimech( 25) = p_bpinene ; crimech_per_megan( 25) = 1.000 p_of_megan2crimech( 26) = is_tricyclene ; p_of_crimech( 26) = p_apinene ; crimech_per_megan( 26) = 0.667 p_of_megan2crimech( 27) = is_tricyclene ; p_of_crimech( 27) = p_bpinene ; crimech_per_megan( 27) = 0.333 p_of_megan2crimech( 28) = is_estragole ; p_of_crimech( 28) = p_apinene ; crimech_per_megan( 28) = 0.667 p_of_megan2crimech( 29) = is_estragole ; p_of_crimech( 29) = p_bpinene ; crimech_per_megan( 29) = 0.333 p_of_megan2crimech( 30) = is_camphor ; p_of_crimech( 30) = p_c5h8 ; crimech_per_megan( 30) = 2.000 p_of_megan2crimech( 31) = is_fenchone ; p_of_crimech( 31) = p_apinene ; crimech_per_megan( 31) = 0.667 p_of_megan2crimech( 32) = is_fenchone ; p_of_crimech( 32) = p_bpinene ; crimech_per_megan( 32) = 0.333 p_of_megan2crimech( 33) = is_piperitone ; p_of_crimech( 33) = p_apinene ; crimech_per_megan( 33) = 1.000 p_of_megan2crimech( 34) = is_thujone_a ; p_of_crimech( 34) = p_apinene ; crimech_per_megan( 34) = 1.000 p_of_megan2crimech( 35) = is_thujone_b ; p_of_crimech( 35) = p_bpinene ; crimech_per_megan( 35) = 1.000 p_of_megan2crimech( 36) = is_cineole_1_8 ; p_of_crimech( 36) = p_c5h8 ; crimech_per_megan( 36) = 2.000 p_of_megan2crimech( 37) = is_borneol ; p_of_crimech( 37) = p_c5h8 ; crimech_per_megan( 37) = 2.000 p_of_megan2crimech( 38) = is_linalool ; p_of_crimech( 38) = p_apinene ; crimech_per_megan( 38) = 0.667 p_of_megan2crimech( 39) = is_linalool ; p_of_crimech( 39) = p_bpinene ; crimech_per_megan( 39) = 0.333 p_of_megan2crimech( 40) = is_terpineol_4 ; p_of_crimech( 40) = p_apinene ; crimech_per_megan( 40) = 1.000 p_of_megan2crimech( 41) = is_terpineol_a ; p_of_crimech( 41) = p_apinene ; crimech_per_megan( 41) = 1.000 p_of_megan2crimech( 42) = is_linalool_oxd_c ; p_of_crimech( 42) = p_apinene ; crimech_per_megan( 42) = 0.833 p_of_megan2crimech( 43) = is_linalool_oxd_c ; p_of_crimech( 43) = p_bpinene ; crimech_per_megan( 43) = 0.416 p_of_megan2crimech( 44) = is_linalool_oxd_t ; p_of_crimech( 44) = p_apinene ; crimech_per_megan( 44) = 0.833 p_of_megan2crimech( 45) = is_linalool_oxd_t ; p_of_crimech( 45) = p_bpinene ; crimech_per_megan( 45) = 0.416 p_of_megan2crimech( 46) = is_ionone_b ; p_of_crimech( 46) = p_apinene ; crimech_per_megan( 46) = 0.934 p_of_megan2crimech( 47) = is_ionone_b ; p_of_crimech( 47) = p_bpinene ; crimech_per_megan( 47) = 0.462 p_of_megan2crimech( 48) = is_bornyl_act ; p_of_crimech( 48) = p_apinene ; crimech_per_megan( 48) = 0.667 p_of_megan2crimech( 49) = is_bornyl_act ; p_of_crimech( 49) = p_bpinene ; crimech_per_megan( 49) = 0.333 p_of_megan2crimech( 50) = is_farnescene_a ; p_of_crimech( 50) = p_apinene ; crimech_per_megan( 50) = 1.500 p_of_megan2crimech( 51) = is_caryophyllene_b ; p_of_crimech( 51) = p_apinene ; crimech_per_megan( 51) = 1.000 p_of_megan2crimech( 52) = is_caryophyllene_b ; p_of_crimech( 52) = p_bpinene ; crimech_per_megan( 52) = 0.500 p_of_megan2crimech( 53) = is_acoradiene ; p_of_crimech( 53) = p_apinene ; crimech_per_megan( 53) = 1.000 p_of_megan2crimech( 54) = is_acoradiene ; p_of_crimech( 54) = p_bpinene ; crimech_per_megan( 54) = 0.500 p_of_megan2crimech( 55) = is_aromadendrene ; p_of_crimech( 55) = p_apinene ; crimech_per_megan( 55) = 1.000 p_of_megan2crimech( 56) = is_aromadendrene ; p_of_crimech( 56) = p_bpinene ; crimech_per_megan( 56) = 0.500 p_of_megan2crimech( 57) = is_bergamotene_a ; p_of_crimech( 57) = p_apinene ; crimech_per_megan( 57) = 1.500 p_of_megan2crimech( 58) = is_bergamotene_b ; p_of_crimech( 58) = p_bpinene ; crimech_per_megan( 58) = 1.500 p_of_megan2crimech( 59) = is_bisabolene_a ; p_of_crimech( 59) = p_apinene ; crimech_per_megan( 59) = 1.500 p_of_megan2crimech( 60) = is_bisabolene_b ; p_of_crimech( 60) = p_bpinene ; crimech_per_megan( 60) = 1.500 p_of_megan2crimech( 61) = is_bourbonene_b ; p_of_crimech( 61) = p_apinene ; crimech_per_megan( 61) = 1.000 p_of_megan2crimech( 62) = is_bourbonene_b ; p_of_crimech( 62) = p_bpinene ; crimech_per_megan( 62) = 0.500 p_of_megan2crimech( 63) = is_cadinene_d ; p_of_crimech( 63) = p_apinene ; crimech_per_megan( 63) = 1.000 p_of_megan2crimech( 64) = is_cadinene_d ; p_of_crimech( 64) = p_bpinene ; crimech_per_megan( 64) = 0.500 p_of_megan2crimech( 65) = is_cadinene_g ; p_of_crimech( 65) = p_apinene ; crimech_per_megan( 65) = 1.000 p_of_megan2crimech( 66) = is_cadinene_g ; p_of_crimech( 66) = p_bpinene ; crimech_per_megan( 66) = 1.500 p_of_megan2crimech( 67) = is_cedrene_a ; p_of_crimech( 67) = p_apinene ; crimech_per_megan( 67) = 1.000 p_of_megan2crimech( 68) = is_cedrene_a ; p_of_crimech( 68) = p_bpinene ; crimech_per_megan( 68) = 0.500 p_of_megan2crimech( 69) = is_copaene_a ; p_of_crimech( 69) = p_apinene ; crimech_per_megan( 69) = 1.000 p_of_megan2crimech( 70) = is_copaene_a ; p_of_crimech( 70) = p_bpinene ; crimech_per_megan( 70) = 0.500 p_of_megan2crimech( 71) = is_cubebene_a ; p_of_crimech( 71) = p_apinene ; crimech_per_megan( 71) = 1.000 p_of_megan2crimech( 72) = is_cubebene_a ; p_of_crimech( 72) = p_bpinene ; crimech_per_megan( 72) = 0.500 p_of_megan2crimech( 73) = is_cubebene_b ; p_of_crimech( 73) = p_apinene ; crimech_per_megan( 73) = 1.000 p_of_megan2crimech( 74) = is_cubebene_b ; p_of_crimech( 74) = p_bpinene ; crimech_per_megan( 74) = 0.500 p_of_megan2crimech( 75) = is_elemene_b ; p_of_crimech( 75) = p_apinene ; crimech_per_megan( 75) = 1.000 p_of_megan2crimech( 76) = is_elemene_b ; p_of_crimech( 76) = p_bpinene ; crimech_per_megan( 76) = 0.500 p_of_megan2crimech( 77) = is_farnescene_b ; p_of_crimech( 77) = p_apinene ; crimech_per_megan( 77) = 1.000 p_of_megan2crimech( 78) = is_farnescene_b ; p_of_crimech( 78) = p_bpinene ; crimech_per_megan( 78) = 0.500 p_of_megan2crimech( 79) = is_germacrene_b ; p_of_crimech( 79) = p_apinene ; crimech_per_megan( 79) = 1.000 p_of_megan2crimech( 80) = is_germacrene_b ; p_of_crimech( 80) = p_bpinene ; crimech_per_megan( 80) = 0.500 p_of_megan2crimech( 81) = is_germacrene_d ; p_of_crimech( 81) = p_apinene ; crimech_per_megan( 81) = 1.000 p_of_megan2crimech( 82) = is_germacrene_d ; p_of_crimech( 82) = p_bpinene ; crimech_per_megan( 82) = 0.500 p_of_megan2crimech( 83) = is_gurjunene_b ; p_of_crimech( 83) = p_apinene ; crimech_per_megan( 83) = 1.000 p_of_megan2crimech( 84) = is_gurjunene_b ; p_of_crimech( 84) = p_bpinene ; crimech_per_megan( 84) = 0.500 p_of_megan2crimech( 85) = is_humulene_a ; p_of_crimech( 85) = p_apinene ; crimech_per_megan( 85) = 1.000 p_of_megan2crimech( 86) = is_humulene_a ; p_of_crimech( 86) = p_bpinene ; crimech_per_megan( 86) = 0.500 p_of_megan2crimech( 87) = is_humulene_g ; p_of_crimech( 87) = p_apinene ; crimech_per_megan( 87) = 1.000 p_of_megan2crimech( 88) = is_humulene_g ; p_of_crimech( 88) = p_bpinene ; crimech_per_megan( 88) = 0.500 p_of_megan2crimech( 89) = is_isolongifolene ; p_of_crimech( 89) = p_apinene ; crimech_per_megan( 89) = 1.000 p_of_megan2crimech( 90) = is_isolongifolene ; p_of_crimech( 90) = p_bpinene ; crimech_per_megan( 90) = 0.500 p_of_megan2crimech( 91) = is_longifolene ; p_of_crimech( 91) = p_apinene ; crimech_per_megan( 91) = 1.000 p_of_megan2crimech( 92) = is_longifolene ; p_of_crimech( 92) = p_bpinene ; crimech_per_megan( 92) = 0.500 p_of_megan2crimech( 93) = is_longipinene ; p_of_crimech( 93) = p_apinene ; crimech_per_megan( 93) = 1.000 p_of_megan2crimech( 94) = is_longipinene ; p_of_crimech( 94) = p_bpinene ; crimech_per_megan( 94) = 0.500 p_of_megan2crimech( 95) = is_muurolene_a ; p_of_crimech( 95) = p_apinene ; crimech_per_megan( 95) = 1.000 p_of_megan2crimech( 96) = is_muurolene_a ; p_of_crimech( 96) = p_bpinene ; crimech_per_megan( 96) = 0.500 p_of_megan2crimech( 97) = is_muurolene_g ; p_of_crimech( 97) = p_apinene ; crimech_per_megan( 97) = 1.000 p_of_megan2crimech( 98) = is_muurolene_g ; p_of_crimech( 98) = p_bpinene ; crimech_per_megan( 98) = 0.500 p_of_megan2crimech( 99) = is_selinene_b ; p_of_crimech( 99) = p_apinene ; crimech_per_megan( 99) = 1.000 p_of_megan2crimech(100) = is_selinene_b ; p_of_crimech(100) = p_bpinene ; crimech_per_megan(100) = 0.500 p_of_megan2crimech(101) = is_selinene_d ; p_of_crimech(101) = p_apinene ; crimech_per_megan(101) = 1.000 p_of_megan2crimech(102) = is_selinene_d ; p_of_crimech(102) = p_bpinene ; crimech_per_megan(102) = 0.500 p_of_megan2crimech(103) = is_nerolidol_c ; p_of_crimech(103) = p_apinene ; crimech_per_megan(103) = 1.000 p_of_megan2crimech(104) = is_nerolidol_c ; p_of_crimech(104) = p_bpinene ; crimech_per_megan(104) = 0.500 p_of_megan2crimech(105) = is_nerolidol_t ; p_of_crimech(105) = p_apinene ; crimech_per_megan(105) = 1.000 p_of_megan2crimech(106) = is_nerolidol_t ; p_of_crimech(106) = p_bpinene ; crimech_per_megan(106) = 0.500 p_of_megan2crimech(107) = is_cedrol ; p_of_crimech(107) = p_c5h8 ; crimech_per_megan(107) = 3.000 p_of_megan2crimech(108) = is_mbo_2m3e2ol ; p_of_crimech(108) = p_c5h8 ; crimech_per_megan(108) = 2.400 p_of_megan2crimech(109) = is_methanol ; p_of_crimech(109) = p_ch3oh ; crimech_per_megan(109) = 1.000 p_of_megan2crimech(110) = is_acetone ; p_of_crimech(110) = p_ket ; crimech_per_megan(110) = 1.000 p_of_megan2crimech(111) = is_methane ; p_of_crimech(111) = p_ch4 ; crimech_per_megan(111) = 1.000 p_of_megan2crimech(112) = is_ammonia ; p_of_crimech(112) = p_nh3 ; crimech_per_megan(112) = 1.000 p_of_megan2crimech(113) = is_nitrous_oxd ; p_of_crimech(113) = p_no2 ; crimech_per_megan(113) = 1.000 p_of_megan2crimech(114) = is_nitric_oxd ; p_of_crimech(114) = p_no ; crimech_per_megan(114) = 1.000 p_of_megan2crimech(115) = is_acetaldehyde ; p_of_crimech(115) = p_ch3cho ; crimech_per_megan(115) = 1.000 p_of_megan2crimech(116) = is_ethanol ; p_of_crimech(116) = p_c2h5oh ; crimech_per_megan(116) = 1.000 p_of_megan2crimech(117) = is_formic_acid ; p_of_crimech(117) = p_hcooh ; crimech_per_megan(117) = 1.000 p_of_megan2crimech(118) = is_formaldehyde ; p_of_crimech(118) = p_hcho ; crimech_per_megan(118) = 1.000 p_of_megan2crimech(119) = is_acetic_acid ; p_of_crimech(119) = p_ch3co2h ; crimech_per_megan(119) = 1.000 p_of_megan2crimech(120) = is_mbo_3m2e1ol ; p_of_crimech(120) = p_c5h8 ; crimech_per_megan(120) = 1.260 p_of_megan2crimech(121) = is_mbo_3m3e1ol ; p_of_crimech(121) = p_c5h8 ; crimech_per_megan(121) = 1.260 p_of_megan2crimech(122) = is_benzaldehyde ; p_of_crimech(122) = p_benzene ; crimech_per_megan(122) = 0.883 p_of_megan2crimech(123) = is_butanone_2 ; p_of_crimech(123) = p_mek ; crimech_per_megan(123) = 1.000 p_of_megan2crimech(124) = is_decanal ; p_of_crimech(124) = p_c2h5cho ; crimech_per_megan(124) = 2.690 p_of_megan2crimech(125) = is_dodecene_1 ; p_of_crimech(125) = p_tbut2ene; crimech_per_megan(125) = 3.000 p_of_megan2crimech(126) = is_geranyl_acetone ; p_of_crimech(126) = p_apinene ; crimech_per_megan(126) = 1.400 p_of_megan2crimech(127) = is_geranyl_acetone ; p_of_crimech(127) = p_bpinene ; crimech_per_megan(127) = 1.400 p_of_megan2crimech(128) = is_heptanal ; p_of_crimech(128) = p_c2h5cho ; crimech_per_megan(128) = 1.966 p_of_megan2crimech(129) = is_heptane ; p_of_crimech(129) = p_nc4h10 ; crimech_per_megan(129) = 1.724 p_of_megan2crimech(130) = is_hexane ; p_of_crimech(130) = p_nc4h10 ; crimech_per_megan(130) = 1.483 p_of_megan2crimech(131) = is_met_benzoate ; p_of_crimech(131) = p_toluene ; crimech_per_megan(131) = 1.478 p_of_megan2crimech(132) = is_met_heptenone ; p_of_crimech(132) = p_tbut2ene; crimech_per_megan(132) = 3.000 p_of_megan2crimech(133) = is_neryl_acetone ; p_of_crimech(133) = p_ket ; crimech_per_megan(133) = 3.379 p_of_megan2crimech(134) = is_nonanal ; p_of_crimech(134) = p_c2h5cho ; crimech_per_megan(134) = 2.448 p_of_megan2crimech(135) = is_nonenal ; p_of_crimech(135) = p_nc4h10 ; crimech_per_megan(135) = 2.413 p_of_megan2crimech(136) = is_nonenal ; p_of_crimech(136) = p_c2h5cho ; crimech_per_megan(136) = 2.413 p_of_megan2crimech(137) = is_octanal ; p_of_crimech(137) = p_c2h5cho ; crimech_per_megan(137) = 2.207 p_of_megan2crimech(138) = is_octanol ; p_of_crimech(138) = p_hc8 ; crimech_per_megan(138) = 2.207 p_of_megan2crimech(139) = is_octenol_1e3ol ; p_of_crimech(139) = p_tbut2ene; crimech_per_megan(139) = 2.286 p_of_megan2crimech(140) = is_oxopentanal ; p_of_crimech(140) = p_mek ; crimech_per_megan(140) = 1.400 p_of_megan2crimech(141) = is_pentane ; p_of_crimech(141) = p_nc4h10 ; crimech_per_megan(141) = 1.241 p_of_megan2crimech(142) = is_phenyl_cco ; p_of_crimech(142) = p_toluene ; crimech_per_megan(142) = 1.300 p_of_megan2crimech(143) = is_pyruvic_acid ; p_of_crimech(143) = p_ch3co2h ; crimech_per_megan(143) = 1.158 p_of_megan2crimech(144) = is_terpinyl_act_a ; p_of_crimech(144) = p_apinene ; crimech_per_megan(144) = 0.934 p_of_megan2crimech(145) = is_terpinyl_act_a ; p_of_crimech(145) = p_bpinene ; crimech_per_megan(145) = 0.466 p_of_megan2crimech(146) = is_tetradecene_1 ; p_of_crimech(146) = p_tbut2ene; crimech_per_megan(146) = 3.500 p_of_megan2crimech(147) = is_toluene ; p_of_crimech(147) = p_toluene ; crimech_per_megan(147) = 1.000 p_of_megan2crimech(148) = is_carbon_monoxide ; p_of_crimech(148) = p_co ; crimech_per_megan(148) = 1.000 p_of_megan2crimech(149) = is_butene ; p_of_crimech(149) = p_tbut2ene; crimech_per_megan(149) = 1.000 p_of_megan2crimech(150) = is_ethane ; p_of_crimech(150) = p_c2h6 ; crimech_per_megan(150) = 1.000 p_of_megan2crimech(151) = is_ethene ; p_of_crimech(151) = p_c2h4 ; crimech_per_megan(151) = 1.000 p_of_megan2crimech(152) = is_hydrogen_cyanide ; p_of_crimech(152) = non_react ; crimech_per_megan(152) = 1.000 p_of_megan2crimech(153) = is_propane ; p_of_crimech(153) = p_c3h8 ; crimech_per_megan(153) = 1.000 p_of_megan2crimech(154) = is_propene ; p_of_crimech(154) = p_c3h6 ; crimech_per_megan(154) = 1.000 p_of_megan2crimech(155) = is_carbon_2s ; p_of_crimech(155) = non_react ; crimech_per_megan(155) = 1.000 p_of_megan2crimech(156) = is_carbonyl_s ; p_of_crimech(156) = non_react ; crimech_per_megan(156) = 1.000 p_of_megan2crimech(157) = is_diallyl_2s ; p_of_crimech(157) = p_tbut2ene; crimech_per_megan(157) = 0.660 p_of_megan2crimech(158) = is_diallyl_2s ; p_of_crimech(158) = p_so2 ; crimech_per_megan(158) = 2.000 p_of_megan2crimech(159) = is_2met_2s ; p_of_crimech(159) = p_c2h6 ; crimech_per_megan(159) = 1.000 p_of_megan2crimech(160) = is_2met_2s ; p_of_crimech(160) = p_so2 ; crimech_per_megan(160) = 2.000 p_of_megan2crimech(161) = is_2met_s ; p_of_crimech(161) = p_c2h6 ; crimech_per_megan(161) = 1.000 p_of_megan2crimech(162) = is_2met_s ; p_of_crimech(162) = p_so2 ; crimech_per_megan(162) = 1.000 p_of_megan2crimech(163) = is_met_chloride ; p_of_crimech(163) = non_react ; crimech_per_megan(163) = 1.000 p_of_megan2crimech(164) = is_met_bromide ; p_of_crimech(164) = non_react ; crimech_per_megan(164) = 1.000 p_of_megan2crimech(165) = is_met_iodide ; p_of_crimech(165) = non_react ; crimech_per_megan(165) = 1.000 p_of_megan2crimech(166) = is_hydrogen_s ; p_of_crimech(166) = p_so2 ; crimech_per_megan(166) = 1.000 p_of_megan2crimech(167) = is_met_mercaptan ; p_of_crimech(167) = p_ch4 ; crimech_per_megan(167) = 1.000 p_of_megan2crimech(168) = is_met_mercaptan ; p_of_crimech(168) = p_so2 ; crimech_per_megan(168) = 1.000 p_of_megan2crimech(169) = is_met_propenyl_2s ; p_of_crimech(169) = p_c3h6 ; crimech_per_megan(169) = 2.800 p_of_megan2crimech(170) = is_met_propenyl_2s ; p_of_crimech(170) = p_so2 ; crimech_per_megan(170) = 2.000 p_of_megan2crimech(171) = is_pppp_2s ; p_of_crimech(171) = p_c3h6 ; crimech_per_megan(171) = 3.500 p_of_megan2crimech(172) = is_pppp_2s ; p_of_crimech(172) = p_so2 ; crimech_per_megan(172) = 1.800 p_of_megan2crimech(173) = is_2met_nonatriene ; p_of_crimech(173) = p_apinene ; crimech_per_megan(173) = 0.667 p_of_megan2crimech(174) = is_2met_nonatriene ; p_of_crimech(174) = p_bpinene ; crimech_per_megan(174) = 0.333 p_of_megan2crimech(175) = is_met_salicylate ; p_of_crimech(175) = p_toluene ; crimech_per_megan(175) = 1.652 p_of_megan2crimech(176) = is_indole ; p_of_crimech(176) = p_toluene ; crimech_per_megan(176) = 1.200 p_of_megan2crimech(177) = is_indole ; p_of_crimech(177) = p_hno3 ; crimech_per_megan(177) = 1.000 p_of_megan2crimech(178) = is_jasmone ; p_of_crimech(178) = p_apinene ; crimech_per_megan(178) = 0.804 p_of_megan2crimech(179) = is_jasmone ; p_of_crimech(179) = p_bpinene ; crimech_per_megan(179) = 0.402 p_of_megan2crimech(180) = is_met_jasmonate ; p_of_crimech(180) = p_apinene ; crimech_per_megan(180) = 1.098 p_of_megan2crimech(181) = is_met_jasmonate ; p_of_crimech(181) = p_bpinene ; crimech_per_megan(181) = 0.548 p_of_megan2crimech(182) = is_3met_3dctt ; p_of_crimech(182) = p_tbut2ene; crimech_per_megan(182) = 3.893 p_of_megan2crimech(183) = is_hexanal ; p_of_crimech(183) = p_c2h5cho ; crimech_per_megan(183) = 1.720 p_of_megan2crimech(184) = is_hexanol_1 ; p_of_crimech(184) = p_nc4h10 ; crimech_per_megan(184) = 1.759 p_of_megan2crimech(185) = is_hexenal_c3 ; p_of_crimech(185) = p_tbut2ene; crimech_per_megan(185) = 1.750 p_of_megan2crimech(186) = is_hexenal_t2 ; p_of_crimech(186) = p_tbut2ene; crimech_per_megan(186) = 1.750 p_of_megan2crimech(187) = is_hexenol_c3 ; p_of_crimech(187) = p_tbut2ene; crimech_per_megan(187) = 1.786 p_of_megan2crimech(188) = is_hexenyl_act_c3 ; p_of_crimech(188) = p_tbut2ene; crimech_per_megan(188) = 2.536 END SUBROUTINE get_megan2crimech_table END MODULE module_data_mgn2mech