chem/module_data_mgn2mech.F

   1 MODULE module_data_mgn2mech
   2
   3 !---------------------------------------------------------------
   4 ! This module contains speciation to convert MEGAN emissions
   5 ! species to various gas-phase mechanism species
   6 !
   7 ! August, 2007
   8 !
   9 ! Serena H. Chung          Washington State University
  10 ! Tan Sakulyanontvittaya   University of Colorado
  11 ! Christine Wiedinmyer     National Center for Atmospheric Research
  12 !---------------------------------------------------------------
  13
  14 !---------------------------------------------------------------
  15 ! provides p_iso, p_par, etc
  16 !---------------------------------------------------------------
  17   USE module_state_description
  18 !---------------------------------------------------------------
  19 ! provides is_soprene, is_myrcene, etc
  20 !---------------------------------------------------------------
  21   USE module_data_megan2
  22
  23
  24   IMPLICIT NONE
  25
  26   SAVE
  27
  28 !---------------------------------------------------------------
  29 ! for MEGAN species not in the reaction mechanisms
  30 !---------------------------------------------------------------
  31   INTEGER, PARAMETER :: non_react = 9999
  32
  33   INTEGER, PARAMETER :: n_megan2cbmz = 173
  34   INTEGER, DIMENSION (n_megan2cbmz) :: p_of_megan2cbmz, p_of_cbmz
  35   REAL,    DIMENSION (n_megan2cbmz) :: cbmz_per_megan
  36   DATA p_of_cbmz / n_megan2cbmz*non_react /
  37
  38
  39   INTEGER, PARAMETER :: n_megan2radm2 = 165
  40   INTEGER, DIMENSION (n_megan2radm2) :: p_of_megan2radm2, p_of_radm2
  41   REAL,    DIMENSION (n_megan2radm2) :: radm2_per_megan
  42   DATA p_of_radm2 / n_megan2radm2*non_react /
  43
  44   INTEGER, PARAMETER :: n_megan2racm = 147
  45   INTEGER, DIMENSION (n_megan2racm) :: p_of_megan2racm, p_of_racm
  46   REAL,    DIMENSION (n_megan2racm) :: racm_per_megan
  47   DATA p_of_racm / n_megan2racm*non_react /
  48
  49   INTEGER, PARAMETER :: n_megan2racmSOA = 178
  50   INTEGER, DIMENSION (n_megan2racmSOA) :: p_of_megan2racmSOA, p_of_racmSOA
  51   REAL,    DIMENSION (n_megan2racmSOA) :: racmSOA_per_megan
  52   DATA p_of_racmSOA / n_megan2racmSOA*non_react /
  53
  54   INTEGER, PARAMETER :: n_megan2mozcart = 142
  55   INTEGER, DIMENSION (n_megan2mozcart) :: p_of_megan2mozcart, p_of_mozcart
  56   REAL,    DIMENSION (n_megan2mozcart) :: mozcart_per_megan
  57   DATA p_of_mozcart / n_megan2mozcart*non_react /
  58
  59   INTEGER, PARAMETER :: n_megan2t1_mozc = 122
  60   INTEGER, DIMENSION (n_megan2t1_mozc) :: p_of_megan2t1_mozc, p_of_t1_mozc
  61   REAL,    DIMENSION (n_megan2t1_mozc) :: t1_mozc_per_megan
  62   DATA p_of_t1_mozc / n_megan2t1_mozc*non_react /
  63
  64   INTEGER, PARAMETER :: n_megan2mozm = 142
  65   INTEGER, DIMENSION (n_megan2mozm) :: p_of_megan2mozm, p_of_mozm
  66   REAL,    DIMENSION (n_megan2mozm) :: mozm_per_megan
  67   DATA p_of_mozm / n_megan2mozm*non_react /
  68
  69   INTEGER, PARAMETER :: n_megan2saprcnov = 138
  70   INTEGER, DIMENSION (n_megan2saprcnov) :: p_of_megan2saprcnov, p_of_saprcnov
  71   REAL,    DIMENSION (n_megan2saprcnov) :: saprcnov_per_megan
  72   DATA p_of_saprcnov / n_megan2saprcnov*non_react /
  73
  74   INTEGER, PARAMETER :: n_megan2crimech = 188
  75   INTEGER, DIMENSION (n_megan2crimech) :: p_of_megan2crimech, p_of_crimech
  76   REAL,    DIMENSION (n_megan2crimech) :: crimech_per_megan
  77   DATA p_of_crimech / n_megan2crimech*non_react /
  78
  79   INTEGER, PARAMETER :: n_megan2cb05 = 173
  80   INTEGER, DIMENSION (n_megan2cb05) :: p_of_megan2cb05, p_of_cb05
  81   REAL,    DIMENSION (n_megan2cb05) :: cb05_per_megan
  82   DATA p_of_cb05 / n_megan2cb05*non_react /
  83
  84   INTEGER, PARAMETER :: n_megan2cb05vbs = 173
  85   INTEGER, DIMENSION (n_megan2cb05vbs) :: p_of_megan2cb05vbs, p_of_cb05vbs
  86   REAL,    DIMENSION (n_megan2cb05vbs) :: cb05vbs_per_megan
  87   DATA p_of_cb05vbs / n_megan2cb05vbs*non_react /
  88
  89 !--------------------------------------------------------------------
  90 ! Some naming convention in denoting MEGAN species
  91 ! _a  = alpha     , _b  = beta      , _c  = cis       , _al = allo    ,
  92 ! _g  = gamma     , _d  = delta     , _t  = trans     , _m  = methyl  ,
  93 ! _p  = para      , _o  = ortho     , _e  = ene       , _ol = ol      ,
  94 ! met = methyl    , 2met= dimethyl  , MBO = methylbutenol             ,
  95 ! 2s  = disulfide , s   = sulfide   , OXD = oxide     , ACT = acetate ,
  96 ! PPPP= propenylpropyl              , DCTT= decatetraene              ,
  97 ! CCO = acetaldehyde
  98 !--------------------------------------------------------------------
  99
 100 CONTAINS
 101
 102   SUBROUTINE get_megan2mozcart_table
 103 !--------------------------------------------------------------------
 104 ! For MEGAN v2.04 species conversion to MOZCART species
 105 ! Based on Tan's MAP_CV2CBMZ.EXT; updated on 08/03/2007
 106 ! based on Rahul A. Zaveri's suggestions.
 107 !--------------------------------------------------------------------
 108
 109 !-----------------------------------------------------------------------------------------------------------
 110 !     Index of                                       Index of                      Molar ratio
 111 !     MEGAN species                                  MOZCART Species
 112 !-----------------------------------------------------------------------------------------------------------
 113     p_of_megan2mozcart(  1) = is_isoprene             ; p_of_mozcart(  1) = p_isopr    ; mozcart_per_megan(  1)  =  1.
 114     p_of_megan2mozcart(  2) = is_myrcene              ; p_of_mozcart(  2) = p_c10h16   ; mozcart_per_megan(  2)  =  1.
 115     p_of_megan2mozcart(  3) = is_sabinene             ; p_of_mozcart(  3) = p_c10h16   ; mozcart_per_megan(  3)  =  1.
 116     p_of_megan2mozcart(  4) = is_limonene             ; p_of_mozcart(  4) = p_c10h16   ; mozcart_per_megan(  4)  =  1.
 117     p_of_megan2mozcart(  5) = is_carene_3             ; p_of_mozcart(  5) = p_c10h16   ; mozcart_per_megan(  5)  =  1.
 118     p_of_megan2mozcart(  6) = is_ocimene_t_b          ; p_of_mozcart(  6) = p_c10h16   ; mozcart_per_megan(  6)  =  1.
 119     p_of_megan2mozcart(  7) = is_pinene_b             ; p_of_mozcart(  7) = p_c10h16   ; mozcart_per_megan(  7)  =  1.
 120     p_of_megan2mozcart(  8) = is_pinene_a             ; p_of_mozcart(  8) = p_c10h16   ; mozcart_per_megan(  8)  =  1.
 121     p_of_megan2mozcart(  9) = is_2met_styrene         ; p_of_mozcart(  9) = p_c10h16   ; mozcart_per_megan(  9)  =  1.
 122     p_of_megan2mozcart( 10) = is_cymene_p             ; p_of_mozcart( 10) = p_tol      ; mozcart_per_megan( 10)  =  1.5
 123     p_of_megan2mozcart( 11) = is_cymene_o             ; p_of_mozcart( 11) = p_tol      ; mozcart_per_megan( 11)  =  1.5
 124     p_of_megan2mozcart( 12) = is_phellandrene_a       ; p_of_mozcart( 12) = p_c10h16   ; mozcart_per_megan( 12)  =  1.
 125     p_of_megan2mozcart( 13) = is_thujene_a            ; p_of_mozcart( 13) = p_c10h16   ; mozcart_per_megan( 13)  =  1.
 126     p_of_megan2mozcart( 14) = is_terpinene_a          ; p_of_mozcart( 14) = p_c10h16   ; mozcart_per_megan( 14)  =  1.
 127     p_of_megan2mozcart( 15) = is_terpinene_g          ; p_of_mozcart( 15) = p_c10h16   ; mozcart_per_megan( 15)  =  1.
 128     p_of_megan2mozcart( 16) = is_terpinolene          ; p_of_mozcart( 16) = p_c10h16   ; mozcart_per_megan( 16)  =  1.
 129     p_of_megan2mozcart( 17) = is_phellandrene_b       ; p_of_mozcart( 17) = p_c10h16   ; mozcart_per_megan( 17)  =  1.
 130     p_of_megan2mozcart( 18) = is_camphene             ; p_of_mozcart( 18) = p_c10h16   ; mozcart_per_megan( 18)  =  1.
 131     p_of_megan2mozcart( 19) = is_bornene              ; p_of_mozcart( 19) = p_c10h16   ; mozcart_per_megan( 19)  =  1.
 132     p_of_megan2mozcart( 20) = is_fenchene_a           ; p_of_mozcart( 20) = p_c10h16   ; mozcart_per_megan( 20)  =  1.
 133     p_of_megan2mozcart( 21) = is_ocimene_al           ; p_of_mozcart( 21) = p_c10h16   ; mozcart_per_megan( 21)  =  1.
 134     p_of_megan2mozcart( 22) = is_ocimene_c_b          ; p_of_mozcart( 22) = p_c10h16   ; mozcart_per_megan( 22)  =  1.
 135     p_of_megan2mozcart( 23) = is_tricyclene           ; p_of_mozcart( 23) = p_c10h16   ; mozcart_per_megan( 23)  =  1.
 136     p_of_megan2mozcart( 24) = is_estragole            ; p_of_mozcart( 24) = p_c10h16   ; mozcart_per_megan( 24)  =  1.
 137     p_of_megan2mozcart( 25) = is_camphor              ; p_of_mozcart( 25) = p_bigalk   ; mozcart_per_megan( 25)  =  2.
 138     p_of_megan2mozcart( 26) = is_fenchone             ; p_of_mozcart( 26) = p_bigalk   ; mozcart_per_megan( 26)  =  2.
 139     p_of_megan2mozcart( 27) = is_piperitone           ; p_of_mozcart( 27) = p_c10h16   ; mozcart_per_megan( 27)  =  1.
 140     p_of_megan2mozcart( 28) = is_thujone_a            ; p_of_mozcart( 28) = p_bigalk   ; mozcart_per_megan( 28)  =  2.
 141     p_of_megan2mozcart( 29) = is_thujone_b            ; p_of_mozcart( 29) = p_bigalk   ; mozcart_per_megan( 29)  =  2.
 142     p_of_megan2mozcart( 30) = is_cineole_1_8          ; p_of_mozcart( 30) = p_bigalk   ; mozcart_per_megan( 30)  =  2.
 143     p_of_megan2mozcart( 31) = is_borneol              ; p_of_mozcart( 31) = p_bigalk   ; mozcart_per_megan( 31)  =  2.
 144     p_of_megan2mozcart( 32) = is_linalool             ; p_of_mozcart( 32) = p_c10h16   ; mozcart_per_megan( 32)  =  1.
 145     p_of_megan2mozcart( 33) = is_terpineol_4          ; p_of_mozcart( 33) = p_c10h16   ; mozcart_per_megan( 33)  =  1.
 146     p_of_megan2mozcart( 34) = is_terpineol_a          ; p_of_mozcart( 34) = p_c10h16   ; mozcart_per_megan( 34)  =  1.
 147     p_of_megan2mozcart( 35) = is_linalool_oxd_c       ; p_of_mozcart( 35) = p_c10h16   ; mozcart_per_megan( 35)  =  1.25
 148     p_of_megan2mozcart( 36) = is_linalool_oxd_t       ; p_of_mozcart( 36) = p_c10h16   ; mozcart_per_megan( 36)  =  1.25
 149     p_of_megan2mozcart( 37) = is_ionone_b             ; p_of_mozcart( 37) = p_c10h16   ; mozcart_per_megan( 37)  =  1.4
 150     p_of_megan2mozcart( 38) = is_bornyl_act           ; p_of_mozcart( 38) = p_bigalk   ; mozcart_per_megan( 38)  =  2.7
 151     p_of_megan2mozcart( 39) = is_farnescene_a         ; p_of_mozcart( 39) = p_c10h16   ; mozcart_per_megan( 39)  =  1.5
 152     p_of_megan2mozcart( 40) = is_caryophyllene_b      ; p_of_mozcart( 40) = p_c10h16   ; mozcart_per_megan( 40)  =  1.5
 153     p_of_megan2mozcart( 41) = is_acoradiene           ; p_of_mozcart( 41) = p_c10h16   ; mozcart_per_megan( 41)  =  1.5
 154     p_of_megan2mozcart( 42) = is_aromadendrene        ; p_of_mozcart( 42) = p_c10h16   ; mozcart_per_megan( 42)  =  1.5
 155     p_of_megan2mozcart( 43) = is_bergamotene_a        ; p_of_mozcart( 43) = p_c10h16   ; mozcart_per_megan( 43)  =  1.5
 156     p_of_megan2mozcart( 44) = is_bergamotene_b        ; p_of_mozcart( 44) = p_c10h16   ; mozcart_per_megan( 44)  =  1.5
 157     p_of_megan2mozcart( 45) = is_bisabolene_a         ; p_of_mozcart( 45) = p_c10h16   ; mozcart_per_megan( 45)  =  1.5
 158     p_of_megan2mozcart( 46) = is_bisabolene_b         ; p_of_mozcart( 46) = p_c10h16   ; mozcart_per_megan( 46)  =  1.5
 159     p_of_megan2mozcart( 47) = is_bourbonene_b         ; p_of_mozcart( 47) = p_c10h16   ; mozcart_per_megan( 47)  =  1.5
 160     p_of_megan2mozcart( 48) = is_cadinene_d           ; p_of_mozcart( 48) = p_c10h16   ; mozcart_per_megan( 48)  =  1.5
 161     p_of_megan2mozcart( 49) = is_cadinene_g           ; p_of_mozcart( 49) = p_c10h16   ; mozcart_per_megan( 49)  =  1.5
 162     p_of_megan2mozcart( 50) = is_cedrene_a            ; p_of_mozcart( 50) = p_c10h16   ; mozcart_per_megan( 50)  =  1.5
 163     p_of_megan2mozcart( 51) = is_copaene_a            ; p_of_mozcart( 51) = p_c10h16   ; mozcart_per_megan( 51)  =  1.5
 164     p_of_megan2mozcart( 52) = is_cubebene_a           ; p_of_mozcart( 52) = p_c10h16   ; mozcart_per_megan( 52)  =  1.5
 165     p_of_megan2mozcart( 53) = is_cubebene_b           ; p_of_mozcart( 53) = p_c10h16   ; mozcart_per_megan( 53)  =  1.5
 166     p_of_megan2mozcart( 54) = is_elemene_b            ; p_of_mozcart( 54) = p_c10h16   ; mozcart_per_megan( 54)  =  1.5
 167     p_of_megan2mozcart( 55) = is_farnescene_b         ; p_of_mozcart( 55) = p_c10h16   ; mozcart_per_megan( 55)  =  1.5
 168     p_of_megan2mozcart( 56) = is_germacrene_B         ; p_of_mozcart( 56) = p_c10h16   ; mozcart_per_megan( 56)  =  1.5
 169     p_of_megan2mozcart( 57) = is_germacrene_D         ; p_of_mozcart( 57) = p_c10h16   ; mozcart_per_megan( 57)  =  1.5
 170     p_of_megan2mozcart( 58) = is_gurjunene_b          ; p_of_mozcart( 58) = p_c10h16   ; mozcart_per_megan( 58)  =  1.5
 171     p_of_megan2mozcart( 59) = is_humulene_a           ; p_of_mozcart( 59) = p_c10h16   ; mozcart_per_megan( 59)  =  1.5
 172     p_of_megan2mozcart( 60) = is_humulene_g           ; p_of_mozcart( 60) = p_c10h16   ; mozcart_per_megan( 60)  =  1.5
 173     p_of_megan2mozcart( 61) = is_isolongifolene       ; p_of_mozcart( 61) = p_c10h16   ; mozcart_per_megan( 61)  =  1.5
 174     p_of_megan2mozcart( 62) = is_longifolene          ; p_of_mozcart( 62) = p_c10h16   ; mozcart_per_megan( 62)  =  1.5
 175     p_of_megan2mozcart( 63) = is_longipinene          ; p_of_mozcart( 63) = p_c10h16   ; mozcart_per_megan( 63)  =  1.5
 176     p_of_megan2mozcart( 64) = is_muurolene_a          ; p_of_mozcart( 64) = p_c10h16   ; mozcart_per_megan( 64)  =  1.5
 177     p_of_megan2mozcart( 65) = is_muurolene_g          ; p_of_mozcart( 65) = p_c10h16   ; mozcart_per_megan( 65)  =  1.5
 178     p_of_megan2mozcart( 66) = is_selinene_b           ; p_of_mozcart( 66) = p_c10h16   ; mozcart_per_megan( 66)  =  1.5
 179     p_of_megan2mozcart( 67) = is_selinene_d           ; p_of_mozcart( 67) = p_c10h16   ; mozcart_per_megan( 67)  =  1.5
 180     p_of_megan2mozcart( 68) = is_nerolidol_c          ; p_of_mozcart( 68) = p_c10h16   ; mozcart_per_megan( 68)  =  1.5
 181     p_of_megan2mozcart( 69) = is_nerolidol_t          ; p_of_mozcart( 69) = p_c10h16   ; mozcart_per_megan( 69)  =  1.5
 182     p_of_megan2mozcart( 70) = is_cedrol               ; p_of_mozcart( 70) = p_bigalk   ; mozcart_per_megan( 70)  =  3.
 183     p_of_megan2mozcart( 71) = is_mbo_2m3e2ol          ; p_of_mozcart( 71) = p_isopr    ; mozcart_per_megan( 71)  =  2.4
 184     p_of_megan2mozcart( 72) = is_methanol             ; p_of_mozcart( 72) = p_ch3oh    ; mozcart_per_megan( 72)  =  1.
 185     p_of_megan2mozcart( 73) = is_acetone              ; p_of_mozcart( 73) = p_acet     ; mozcart_per_megan( 73)  =  1.
 186     p_of_megan2mozcart( 74) = is_methane              ; p_of_mozcart( 74) = non_react  ; mozcart_per_megan( 74)  =  1.
 187     p_of_megan2mozcart( 75) = is_ammonia              ; p_of_mozcart( 75) = p_nh3      ; mozcart_per_megan( 75)  =  1.
 188     p_of_megan2mozcart( 76) = is_nitrous_oxd          ; p_of_mozcart( 76) = non_react  ; mozcart_per_megan( 76)  =  1.
 189     p_of_megan2mozcart( 77) = is_nitric_oxd           ; p_of_mozcart( 77) = p_no       ; mozcart_per_megan( 77)  =  1.
 190     p_of_megan2mozcart( 78) = is_acetaldehyde         ; p_of_mozcart( 78) = p_ald      ; mozcart_per_megan( 78)  =  1.
 191     p_of_megan2mozcart( 79) = is_ethanol              ; p_of_mozcart( 79) = p_c2h5oh   ; mozcart_per_megan( 79)  =  1.
 192     p_of_megan2mozcart( 80) = is_formic_acid          ; p_of_mozcart( 80) = non_react  ; mozcart_per_megan( 80)  =  1.
 193     p_of_megan2mozcart( 81) = is_formaldehyde         ; p_of_mozcart( 81) = p_hcho     ; mozcart_per_megan( 81)  =  1.
 194     p_of_megan2mozcart( 82) = is_acetic_acid          ; p_of_mozcart( 82) = p_ch3cooh  ; mozcart_per_megan( 82)  =  1.
 195     p_of_megan2mozcart( 83) = is_mbo_3m2e1ol          ; p_of_mozcart( 83) = p_isopr    ; mozcart_per_megan( 83)  =  1.25
 196     p_of_megan2mozcart( 84) = is_benzaldehyde         ; p_of_mozcart( 84) = p_tol      ; mozcart_per_megan( 84)  =  1.1
 197     p_of_megan2mozcart( 85) = is_butanone_2           ; p_of_mozcart( 85) = p_mek      ; mozcart_per_megan( 85)  =  1.
 198     p_of_megan2mozcart( 86) = is_decanal              ; p_of_mozcart( 86) = p_bigalk   ; mozcart_per_megan( 86)  =  3.
 199     p_of_megan2mozcart( 87) = is_dodecene_1           ; p_of_mozcart( 87) = p_bigene   ; mozcart_per_megan( 87)  =  2.25
 200     p_of_megan2mozcart( 88) = is_geranyl_acetone      ; p_of_mozcart( 88) = p_c10h16   ; mozcart_per_megan( 88)  =  1.4
 201     p_of_megan2mozcart( 89) = is_heptanal             ; p_of_mozcart( 89) = p_bigalk   ; mozcart_per_megan( 89)  =  2.
 202     p_of_megan2mozcart( 90) = is_heptane              ; p_of_mozcart( 90) = p_bigalk   ; mozcart_per_megan( 90)  =  2.
 203     p_of_megan2mozcart( 91) = is_hexane               ; p_of_mozcart( 91) = p_bigalk   ; mozcart_per_megan( 91)  =  1.5
 204     p_of_megan2mozcart( 92) = is_met_benzoate         ; p_of_mozcart( 92) = p_tol      ; mozcart_per_megan( 92)  =  1.5
 205     p_of_megan2mozcart( 93) = is_met_heptenone        ; p_of_mozcart( 93) = p_bigene   ; mozcart_per_megan( 93)  =  1.75
 206     p_of_megan2mozcart( 94) = is_neryl_acetone        ; p_of_mozcart( 94) = p_bigene   ; mozcart_per_megan( 94)  =  2.7
 207     p_of_megan2mozcart( 95) = is_nonanal              ; p_of_mozcart( 95) = p_bigalk   ; mozcart_per_megan( 95)  =  2.5
 208     p_of_megan2mozcart( 96) = is_nonenal              ; p_of_mozcart( 96) = p_bigene   ; mozcart_per_megan( 96)  =  2.
 209     p_of_megan2mozcart( 97) = is_octanal              ; p_of_mozcart( 97) = p_bigalk   ; mozcart_per_megan( 97)  =  2.3
 210     p_of_megan2mozcart( 98) = is_octanol              ; p_of_mozcart( 98) = p_bigalk   ; mozcart_per_megan( 98)  =  2.3
 211     p_of_megan2mozcart( 99) = is_octenol_1e3ol        ; p_of_mozcart( 99) = p_bigene   ; mozcart_per_megan( 99)  =  1.7
 212     p_of_megan2mozcart(100) = is_oxopentanal          ; p_of_mozcart(100) = p_mek      ; mozcart_per_megan(100)  =  1.4
 213     p_of_megan2mozcart(101) = is_pentane              ; p_of_mozcart(101) = p_bigalk   ; mozcart_per_megan(101)  =  1.25
 214     p_of_megan2mozcart(102) = is_phenyl_cco           ; p_of_mozcart(102) = p_tol      ; mozcart_per_megan(102)  =  1.3
 215     p_of_megan2mozcart(103) = is_pyruvic_acid         ; p_of_mozcart(103) = non_react  ; mozcart_per_megan(103)  =  1.
 216     p_of_megan2mozcart(104) = is_terpinyl_act_a       ; p_of_mozcart(104) = p_c10h16   ; mozcart_per_megan(104)  =  1.4
 217     p_of_megan2mozcart(105) = is_tetradecene_1        ; p_of_mozcart(105) = p_bigene   ; mozcart_per_megan(105)  =  3.5
 218     p_of_megan2mozcart(106) = is_toluene              ; p_of_mozcart(106) = p_tol      ; mozcart_per_megan(106)  =  1.
 219     p_of_megan2mozcart(107) = is_carbon_monoxide      ; p_of_mozcart(107) = p_co       ; mozcart_per_megan(107)  =  1.
 220     p_of_megan2mozcart(108) = is_butene               ; p_of_mozcart(108) = p_bigene   ; mozcart_per_megan(108)  =  .8
 221     p_of_megan2mozcart(109) = is_ethane               ; p_of_mozcart(109) = p_c2h6     ; mozcart_per_megan(109)  =  1.
 222     p_of_megan2mozcart(110) = is_ethene               ; p_of_mozcart(110) = p_c2h4     ; mozcart_per_megan(110)  =  1.
 223     p_of_megan2mozcart(111) = is_hydrogen_cyanide     ; p_of_mozcart(111) = non_react  ; mozcart_per_megan(111)  =  1.
 224     p_of_megan2mozcart(112) = is_propane              ; p_of_mozcart(112) = p_c3h8     ; mozcart_per_megan(112)  =  1.
 225     p_of_megan2mozcart(113) = is_propene              ; p_of_mozcart(113) = p_c3h6     ; mozcart_per_megan(113)  =  1.
 226     p_of_megan2mozcart(114) = is_carbon_2s            ; p_of_mozcart(114) = non_react  ; mozcart_per_megan(114)  =  1.
 227     p_of_megan2mozcart(115) = is_carbonyl_s           ; p_of_mozcart(115) = non_react  ; mozcart_per_megan(115)  =  1.
 228     p_of_megan2mozcart(116) = is_diallyl_2s           ; p_of_mozcart(116) = p_bigene   ; mozcart_per_megan(116)  =  .66
 229     p_of_megan2mozcart(117) = is_diallyl_2s           ; p_of_mozcart(117) = p_so2      ; mozcart_per_megan(117)  =  1.53
 230     p_of_megan2mozcart(118) = is_2met_2s              ; p_of_mozcart(118) = p_c2h6     ; mozcart_per_megan(118)  =  1.
 231     p_of_megan2mozcart(119) = is_2met_2s              ; p_of_mozcart(119) = p_so2      ; mozcart_per_megan(119)  =  1.
 232     p_of_megan2mozcart(120) = is_met_chloride         ; p_of_mozcart(120) = non_react  ; mozcart_per_megan(120)  =  1.
 233     p_of_megan2mozcart(121) = is_met_bromide          ; p_of_mozcart(121) = non_react  ; mozcart_per_megan(121)  =  1.
 234     p_of_megan2mozcart(122) = is_met_iodide           ; p_of_mozcart(122) = non_react  ; mozcart_per_megan(122)  =  1.
 235     p_of_megan2mozcart(123) = is_hydrogen_s           ; p_of_mozcart(123) = p_so2      ; mozcart_per_megan(123)  =  .5
 236     p_of_megan2mozcart(124) = is_met_mercaptan        ; p_of_mozcart(124) = p_so2      ; mozcart_per_megan(124)  =  .75
 237     p_of_megan2mozcart(125) = is_met_propenyl_2s      ; p_of_mozcart(125) = p_c3h6     ; mozcart_per_megan(125)  =  2.8
 238     p_of_megan2mozcart(126) = is_met_propenyl_2s      ; p_of_mozcart(126) = p_so2      ; mozcart_per_megan(126)  =  1.8
 239     p_of_megan2mozcart(127) = is_pppp_2s              ; p_of_mozcart(127) = p_c3h6     ; mozcart_per_megan(127)  =  3.5
 240     p_of_megan2mozcart(128) = is_pppp_2s              ; p_of_mozcart(128) = p_so2      ; mozcart_per_megan(128)  =  2.3
 241     p_of_megan2mozcart(129) = is_2met_nonatriene      ; p_of_mozcart(129) = p_c10h16   ; mozcart_per_megan(129)  =  1.1
 242     p_of_megan2mozcart(130) = is_met_salicylate       ; p_of_mozcart(130) = p_tol      ; mozcart_per_megan(130)  =  1.6
 243     p_of_megan2mozcart(131) = is_indole               ; p_of_mozcart(131) = non_react  ; mozcart_per_megan(131)  =  1.
 244     p_of_megan2mozcart(132) = is_jasmone              ; p_of_mozcart(132) = p_c10h16   ; mozcart_per_megan(132)  =  1.2
 245     p_of_megan2mozcart(133) = is_met_jasmonate        ; p_of_mozcart(133) = p_c10h16   ; mozcart_per_megan(133)  =  1.6
 246     p_of_megan2mozcart(134) = is_3met_3dctt           ; p_of_mozcart(134) = p_bigene   ; mozcart_per_megan(134)  =  3.
 247     p_of_megan2mozcart(135) = is_hexanal              ; p_of_mozcart(135) = p_bigalk   ; mozcart_per_megan(135)  =  1.8
 248     p_of_megan2mozcart(136) = is_hexanol_1            ; p_of_mozcart(136) = p_bigalk   ; mozcart_per_megan(136)  =  1.8
 249     p_of_megan2mozcart(137) = is_hexenal_c3           ; p_of_mozcart(137) = p_bigene   ; mozcart_per_megan(137)  =  1.4
 250     p_of_megan2mozcart(138) = is_hexenal_t2           ; p_of_mozcart(138) = p_bigene   ; mozcart_per_megan(138)  =  1.4
 251     p_of_megan2mozcart(139) = is_hexenol_c3           ; p_of_mozcart(139) = p_bigene   ; mozcart_per_megan(139)  =  1.4
 252     p_of_megan2mozcart(140) = is_hexenyl_act_c3       ; p_of_mozcart(140) = p_bigene   ; mozcart_per_megan(140)  =  2.
 253     p_of_megan2mozcart(141) = is_mbo_3m3e1ol          ; p_of_mozcart(141) = p_isopr    ; mozcart_per_megan(141)  =  1.25
 254     p_of_megan2mozcart(142) = is_2met_s               ; p_of_mozcart(142) = p_dms      ; mozcart_per_megan(142)  =  1.
 255
 256   END SUBROUTINE get_megan2mozcart_table
 257
 258   SUBROUTINE get_megan2t1_mozc_table
 259 !--------------------------------------------------------------------------
 260 ! For MEGAN v2.04 species conversion to T1_MOZCART species
 261 !--------------------------------------------------------------------------
 262
 263 !-----------------------------------------------------------------------------------------------------------
 264 !     Index of                                       Index of
 265 !     Molar ratio
 266 !     MEGAN species                                  MOZCART Species
 267 !-----------------------------------------------------------------------------------------------------------
 268     p_of_megan2t1_mozc(  1) = is_pinene_a             ; p_of_t1_mozc(  1) = p_apin     ; t1_mozc_per_megan(  1)  =  1.
 269     p_of_megan2t1_mozc(  2) = is_carene_3             ; p_of_t1_mozc(  2) = p_apin     ; t1_mozc_per_megan(  2)  =  1.
 270     p_of_megan2t1_mozc(  3) = is_thujene_a            ; p_of_t1_mozc(  3) = p_apin     ; t1_mozc_per_megan(  3)  =  1.
 271     p_of_megan2t1_mozc(  4) = is_2met_styrene         ; p_of_t1_mozc(  4) = p_apin     ; t1_mozc_per_megan(  4)  =  1.
 272     p_of_megan2t1_mozc(  5) = is_cymene_p             ; p_of_t1_mozc(  5) = p_apin     ; t1_mozc_per_megan(  5)  =  1.5
 273     p_of_megan2t1_mozc(  6) = is_cymene_o             ; p_of_t1_mozc(  6) = p_apin     ; t1_mozc_per_megan(  6)  =  1.5
 274     p_of_megan2t1_mozc(  7) = is_terpinolene          ; p_of_t1_mozc(  7) = p_apin     ; t1_mozc_per_megan(  7)  =  1.
 275     p_of_megan2t1_mozc(  8) = is_bornene              ; p_of_t1_mozc(  8) = p_apin     ; t1_mozc_per_megan(  8)  =  1.
 276     p_of_megan2t1_mozc(  9) = is_fenchene_a           ; p_of_t1_mozc(  9) = p_apin     ; t1_mozc_per_megan(  9)  =  1.
 277     p_of_megan2t1_mozc( 10) = is_ocimene_al           ; p_of_t1_mozc( 10) = p_apin     ; t1_mozc_per_megan( 10)  =  1.
 278     p_of_megan2t1_mozc( 11) = is_piperitone           ; p_of_t1_mozc( 11) = p_apin     ; t1_mozc_per_megan( 11)  =  1.
 279     p_of_megan2t1_mozc( 12) = is_terpineol_4          ; p_of_t1_mozc( 12) = p_apin     ; t1_mozc_per_megan( 12)  =  1.
 280     p_of_megan2t1_mozc( 13) = is_terpineol_a          ; p_of_t1_mozc( 13) = p_apin     ; t1_mozc_per_megan( 13)  =  1.
 281     p_of_megan2t1_mozc( 14) = is_terpinyl_act_a       ; p_of_t1_mozc( 14) = p_apin     ; t1_mozc_per_megan( 14)  =  1.
 282
 283     p_of_megan2t1_mozc( 15) = is_pinene_b             ; p_of_t1_mozc( 15) = p_bpin     ; t1_mozc_per_megan( 15)  =  1.
 284     p_of_megan2t1_mozc( 16) = is_sabinene             ; p_of_t1_mozc( 16) = p_bpin     ; t1_mozc_per_megan( 16)  =  1.
 285     p_of_megan2t1_mozc( 17) = is_camphene             ; p_of_t1_mozc( 17) = p_bpin     ; t1_mozc_per_megan( 17)  =  1.
 286
 287     p_of_megan2t1_mozc( 18) = is_limonene             ; p_of_t1_mozc( 18) = p_limon    ; t1_mozc_per_megan( 18)  =  1.
 288     p_of_megan2t1_mozc( 19) = is_phellandrene_a       ; p_of_t1_mozc( 19) = p_limon    ; t1_mozc_per_megan( 19)  =  1.
 289     p_of_megan2t1_mozc( 20) = is_phellandrene_b       ; p_of_t1_mozc( 20) = p_limon    ; t1_mozc_per_megan( 20)  =  1.
 290     p_of_megan2t1_mozc( 21) = is_terpinene_a          ; p_of_t1_mozc( 21) = p_limon    ; t1_mozc_per_megan( 21)  =  1.
 291     p_of_megan2t1_mozc( 22) = is_terpinene_g          ; p_of_t1_mozc( 22) = p_limon    ; t1_mozc_per_megan( 22)  =  1.
 292     p_of_megan2t1_mozc( 23) = is_2met_styrene         ; p_of_t1_mozc( 23) = p_limon    ; t1_mozc_per_megan( 23)  =  1.
 293     p_of_megan2t1_mozc( 24) = is_terpinolene          ; p_of_t1_mozc( 24) = p_limon    ; t1_mozc_per_megan( 24)  =  1.
 294     p_of_megan2t1_mozc( 25) = is_ocimene_al           ; p_of_t1_mozc( 25) = p_limon    ; t1_mozc_per_megan( 25)  =  1.
 295     p_of_megan2t1_mozc( 26) = is_estragole            ; p_of_t1_mozc( 26) = p_limon    ; t1_mozc_per_megan( 26)  =  1.
 296     p_of_megan2t1_mozc( 27) = is_linalool             ; p_of_t1_mozc( 27) = p_limon    ; t1_mozc_per_megan( 27)  =  1.
 297     p_of_megan2t1_mozc( 28) = is_linalool_oxd_c       ; p_of_t1_mozc( 28) = p_limon    ; t1_mozc_per_megan( 28)  =  1.
 298     p_of_megan2t1_mozc( 29) = is_linalool_oxd_t       ; p_of_t1_mozc( 29) = p_limon    ; t1_mozc_per_megan( 29)  =  1.
 299     p_of_megan2t1_mozc( 30) = is_ionone_b             ; p_of_t1_mozc( 30) = p_limon    ; t1_mozc_per_megan( 30)  =  1.
 300     p_of_megan2t1_mozc( 31) = is_farnescene_a         ; p_of_t1_mozc( 31) = p_limon    ; t1_mozc_per_megan( 31)  =  1.
 301     p_of_megan2t1_mozc( 32) = is_caryophyllene_b      ; p_of_t1_mozc( 32) = p_limon    ; t1_mozc_per_megan( 32)  =  1.
 302     p_of_megan2t1_mozc( 33) = is_acoradiene           ; p_of_t1_mozc( 33) = p_limon    ; t1_mozc_per_megan( 33)  =  1.
 303     p_of_megan2t1_mozc( 34) = is_geranyl_acetone      ; p_of_t1_mozc( 34) = p_limon    ; t1_mozc_per_megan( 34)  =  1.
 304     p_of_megan2t1_mozc( 35) = is_2met_nonatriene      ; p_of_t1_mozc( 35) = p_limon    ; t1_mozc_per_megan( 35)  =  1.
 305     p_of_megan2t1_mozc( 36) = is_jasmone              ; p_of_t1_mozc( 36) = p_limon    ; t1_mozc_per_megan( 36)  =  1.
 306     p_of_megan2t1_mozc( 37) = is_met_jasmonate        ; p_of_t1_mozc( 37) = p_limon    ; t1_mozc_per_megan( 37)  =  1.
 307
 308     p_of_megan2t1_mozc( 38) = is_myrcene              ; p_of_t1_mozc( 38) = p_myrc     ; t1_mozc_per_megan( 38)  =  1.
 309     p_of_megan2t1_mozc( 39) = is_ocimene_c_b          ; p_of_t1_mozc( 39) = p_myrc     ; t1_mozc_per_megan( 39)  =  1.
 310     p_of_megan2t1_mozc( 40) = is_ocimene_t_b          ; p_of_t1_mozc( 40) = p_myrc     ; t1_mozc_per_megan( 40)  =  1.
 311
 312     p_of_megan2t1_mozc( 41) = is_bergamotene_a        ; p_of_t1_mozc( 41) = p_bcary    ; t1_mozc_per_megan( 41)  =  1.
 313     p_of_megan2t1_mozc( 42) = is_bisabolene_b         ; p_of_t1_mozc( 42) = p_bcary    ; t1_mozc_per_megan( 42)  =  1.
 314     p_of_megan2t1_mozc( 43) = is_caryophyllene_b      ; p_of_t1_mozc( 43) = p_bcary    ; t1_mozc_per_megan( 43)  =  1.
 315     p_of_megan2t1_mozc( 44) = is_farnescene_b         ; p_of_t1_mozc( 44) = p_bcary    ; t1_mozc_per_megan( 44)  =  1.
 316     p_of_megan2t1_mozc( 45) = is_humulene_a           ; p_of_t1_mozc( 45) = p_bcary    ; t1_mozc_per_megan( 45)  =  1.
 317     p_of_megan2t1_mozc( 46) = is_aromadendrene        ; p_of_t1_mozc( 46) = p_bcary    ; t1_mozc_per_megan( 46)  =  1.
 318     p_of_megan2t1_mozc( 47) = is_bergamotene_b        ; p_of_t1_mozc( 47) = p_bcary    ; t1_mozc_per_megan( 47)  =  1.
 319     p_of_megan2t1_mozc( 48) = is_bisabolene_b         ; p_of_t1_mozc( 48) = p_bcary    ; t1_mozc_per_megan( 48)  =  1.
 320     p_of_megan2t1_mozc( 49) = is_bourbonene_b         ; p_of_t1_mozc( 49) = p_bcary    ; t1_mozc_per_megan( 49)  =  1.
 321     p_of_megan2t1_mozc( 50) = is_cadinene_d           ; p_of_t1_mozc( 50) = p_bcary    ; t1_mozc_per_megan( 50)  =  1.
 322     p_of_megan2t1_mozc( 51) = is_cadinene_g           ; p_of_t1_mozc( 51) = p_bcary    ; t1_mozc_per_megan( 51)  =  1.
 323     p_of_megan2t1_mozc( 52) = is_cedrene_a            ; p_of_t1_mozc( 52) = p_bcary    ; t1_mozc_per_megan( 52)  =  1.
 324     p_of_megan2t1_mozc( 53) = is_copaene_a            ; p_of_t1_mozc( 53) = p_bcary    ; t1_mozc_per_megan( 53)  =  1.
 325     p_of_megan2t1_mozc( 54) = is_cubebene_a           ; p_of_t1_mozc( 54) = p_bcary    ; t1_mozc_per_megan( 54)  =  1.
 326     p_of_megan2t1_mozc( 55) = is_cubebene_b           ; p_of_t1_mozc( 55) = p_bcary    ; t1_mozc_per_megan( 55)  =  1.
 327     p_of_megan2t1_mozc( 56) = is_elemene_b            ; p_of_t1_mozc( 56) = p_bcary    ; t1_mozc_per_megan( 56)  =  1.
 328     p_of_megan2t1_mozc( 57) = is_germacrene_B         ; p_of_t1_mozc( 57) = p_bcary    ; t1_mozc_per_megan( 57)  =  1.
 329     p_of_megan2t1_mozc( 58) = is_germacrene_D         ; p_of_t1_mozc( 58) = p_bcary    ; t1_mozc_per_megan( 58)  =  1.
 330     p_of_megan2t1_mozc( 59) = is_humulene_g           ; p_of_t1_mozc( 59) = p_bcary    ; t1_mozc_per_megan( 59)  =  1.
 331     p_of_megan2t1_mozc( 60) = is_isolongifolene       ; p_of_t1_mozc( 60) = p_bcary    ; t1_mozc_per_megan( 60)  =  1.
 332     p_of_megan2t1_mozc( 61) = is_longifolene          ; p_of_t1_mozc( 61) = p_bcary    ; t1_mozc_per_megan( 61)  =  1.
 333     p_of_megan2t1_mozc( 62) = is_longipinene          ; p_of_t1_mozc( 62) = p_bcary    ; t1_mozc_per_megan( 62)  =  1.
 334     p_of_megan2t1_mozc( 63) = is_muurolene_a          ; p_of_t1_mozc( 63) = p_bcary    ; t1_mozc_per_megan( 63)  =  1.
 335     p_of_megan2t1_mozc( 64) = is_muurolene_g          ; p_of_t1_mozc( 64) = p_bcary    ; t1_mozc_per_megan( 64)  =  1.
 336     p_of_megan2t1_mozc( 65) = is_selinene_b           ; p_of_t1_mozc( 65) = p_bcary    ; t1_mozc_per_megan( 65)  =  1.
 337     p_of_megan2t1_mozc( 66) = is_selinene_d           ; p_of_t1_mozc( 66) = p_bcary    ; t1_mozc_per_megan( 66)  =  1.
 338     p_of_megan2t1_mozc( 67) = is_nerolidol_c          ; p_of_t1_mozc( 67) = p_bcary    ; t1_mozc_per_megan( 67)  =  1.
 339     p_of_megan2t1_mozc( 68) = is_nerolidol_t          ; p_of_t1_mozc( 68) = p_bcary    ; t1_mozc_per_megan( 68)  =  1.
 340     p_of_megan2t1_mozc( 69) = is_gurjunene_b          ; p_of_t1_mozc( 69) = p_bcary    ; t1_mozc_per_megan( 69)  =  1.
 341
 342     p_of_megan2t1_mozc( 70) = is_mbo_2m3e2ol          ; p_of_t1_mozc( 70) = p_mbo      ; t1_mozc_per_megan( 70)  =  1.
 343     p_of_megan2t1_mozc( 71) = is_mbo_3m2e1ol          ; p_of_t1_mozc( 71) = p_mbo      ; t1_mozc_per_megan( 71)  =  1.
 344     p_of_megan2t1_mozc( 72) = is_mbo_3m3e1ol          ; p_of_t1_mozc( 72) = p_mbo      ; t1_mozc_per_megan( 72)  =  1.
 345
 346     p_of_megan2t1_mozc( 73) = is_methanol             ; p_of_t1_mozc( 73) = p_ch3oh    ; t1_mozc_per_megan( 73)  =  1.
 347     p_of_megan2t1_mozc( 74) = is_ethanol              ; p_of_t1_mozc( 74) = p_c2h5oh   ; t1_mozc_per_megan( 74)  =  1.
 348     p_of_megan2t1_mozc( 75) = is_formaldehyde         ; p_of_t1_mozc( 75) = p_hcho     ; t1_mozc_per_megan( 75)  =  1.
 349     p_of_megan2t1_mozc( 76) = is_acetaldehyde         ; p_of_t1_mozc( 76) = p_ald      ; t1_mozc_per_megan( 76)  =  1.
 350     p_of_megan2t1_mozc( 77) = is_acetic_acid          ; p_of_t1_mozc( 77) = p_ch3cooh  ; t1_mozc_per_megan( 77)  =  1.
 351     p_of_megan2t1_mozc( 78) = is_acetone              ; p_of_t1_mozc( 78) = p_acet     ; t1_mozc_per_megan( 78)  =  1.
 352     p_of_megan2t1_mozc( 79) = is_formic_acid          ; p_of_t1_mozc( 79) = p_hcooh    ; t1_mozc_per_megan( 79)  =  1.
 353     p_of_megan2t1_mozc( 80) = is_hydrogen_cyanide     ; p_of_t1_mozc( 80) = p_hcn      ; t1_mozc_per_megan( 80)  =  1.
 354     p_of_megan2t1_mozc( 81) = is_ammonia              ; p_of_t1_mozc( 81) = p_nh3      ; t1_mozc_per_megan( 81)  =  1.
 355     p_of_megan2t1_mozc( 82) = is_carbon_monoxide      ; p_of_t1_mozc( 82) = p_co       ; t1_mozc_per_megan( 82)  =  1.
 356     p_of_megan2t1_mozc( 83) = is_ethene               ; p_of_t1_mozc( 83) = p_c2h4     ; t1_mozc_per_megan( 83)  =  1.
 357     p_of_megan2t1_mozc( 84) = is_ethane               ; p_of_t1_mozc( 84) = p_c2h6     ; t1_mozc_per_megan( 84)  =  1.
 358
 359     p_of_megan2t1_mozc( 85) = is_propene              ; p_of_t1_mozc( 85) = p_c3h6     ; t1_mozc_per_megan( 85)  =  1.
 360     p_of_megan2t1_mozc( 86) = is_met_propenyl_2s      ; p_of_t1_mozc( 86) = p_c3h6     ; t1_mozc_per_megan( 86)  =  2.8
 361     p_of_megan2t1_mozc( 87) = is_pppp_2s              ; p_of_t1_mozc( 87) = p_c3h6     ; t1_mozc_per_megan( 87)  =  3.5
 362
 363     p_of_megan2t1_mozc( 88) = is_propane              ; p_of_t1_mozc( 88) = p_c3h8     ; t1_mozc_per_megan( 88)  =  1.
 364
 365     p_of_megan2t1_mozc( 89) = is_heptane              ; p_of_t1_mozc( 89) = p_bigalk   ; t1_mozc_per_megan( 89)  =  2.
 366     p_of_megan2t1_mozc( 90) = is_hexane               ; p_of_t1_mozc( 90) = p_bigalk   ; t1_mozc_per_megan( 90)  =  1.5
 367     p_of_megan2t1_mozc( 91) = is_pentane              ; p_of_t1_mozc( 91) = p_bigalk   ; t1_mozc_per_megan( 91)  =  1.25
 368     p_of_megan2t1_mozc( 92) = is_tricyclene           ; p_of_t1_mozc( 92) = p_bigalk   ; t1_mozc_per_megan( 92)  =  1.
 369     p_of_megan2t1_mozc( 93) = is_camphor              ; p_of_t1_mozc( 93) = p_bigalk   ; t1_mozc_per_megan( 93)  =  2.
 370     p_of_megan2t1_mozc( 94) = is_fenchone             ; p_of_t1_mozc( 94) = p_bigalk   ; t1_mozc_per_megan( 94)  =  2.
 371     p_of_megan2t1_mozc( 95) = is_thujone_a            ; p_of_t1_mozc( 95) = p_bigalk   ; t1_mozc_per_megan( 95)  =  2.
 372     p_of_megan2t1_mozc( 96) = is_thujone_b            ; p_of_t1_mozc( 96) = p_bigalk   ; t1_mozc_per_megan( 96)  =  2.
 373     p_of_megan2t1_mozc( 97) = is_cineole_1_8          ; p_of_t1_mozc( 97) = p_bigalk   ; t1_mozc_per_megan( 97)  =  2.
 374     p_of_megan2t1_mozc( 98) = is_borneol              ; p_of_t1_mozc( 98) = p_bigalk   ; t1_mozc_per_megan( 98)  =  2.
 375     p_of_megan2t1_mozc( 99) = is_bornyl_act           ; p_of_t1_mozc( 99) = p_bigalk   ; t1_mozc_per_megan( 99)  =  2.7
 376     p_of_megan2t1_mozc(100) = is_cedrol               ; p_of_t1_mozc(100) = p_bigalk   ; t1_mozc_per_megan(100)  =  3.
 377     p_of_megan2t1_mozc(101) = is_decanal              ; p_of_t1_mozc(101) = p_bigalk   ; t1_mozc_per_megan(101)  =  3.
 378     p_of_megan2t1_mozc(102) = is_heptanal             ; p_of_t1_mozc(102) = p_bigalk   ; t1_mozc_per_megan(102)  =  2.
 379     p_of_megan2t1_mozc(103) = is_nonanal              ; p_of_t1_mozc(103) = p_bigalk   ; t1_mozc_per_megan(103)  =  2.5
 380     p_of_megan2t1_mozc(104) = is_octanal              ; p_of_t1_mozc(104) = p_bigalk   ; t1_mozc_per_megan(104)  =  2.3
 381     p_of_megan2t1_mozc(105) = is_octanol              ; p_of_t1_mozc(105) = p_bigalk   ; t1_mozc_per_megan(105)  =  2.3
 382     p_of_megan2t1_mozc(106) = is_hexanal              ; p_of_t1_mozc(106) = p_bigalk   ; t1_mozc_per_megan(106)  =  1.8
 383     p_of_megan2t1_mozc(107) = is_hexanol_1            ; p_of_t1_mozc(107) = p_bigalk   ; t1_mozc_per_megan(107)  =  1.8
 384
 385     p_of_megan2t1_mozc(108) = is_butene               ; p_of_t1_mozc(108) = p_bigene   ; t1_mozc_per_megan(108)  =  .8
 386     p_of_megan2t1_mozc(109) = is_dodecene_1           ; p_of_t1_mozc(109) = p_bigene   ; t1_mozc_per_megan(109)  =  2.25
 387     p_of_megan2t1_mozc(110) = is_met_heptenone        ; p_of_t1_mozc(110) = p_bigene   ; t1_mozc_per_megan(110)  =  1.75
 388     p_of_megan2t1_mozc(111) = is_neryl_acetone        ; p_of_t1_mozc(111) = p_bigene   ; t1_mozc_per_megan(111)  =  2.7
 389     p_of_megan2t1_mozc(112) = is_nonenal              ; p_of_t1_mozc(112) = p_bigene   ; t1_mozc_per_megan(112)  =  2.
 390     p_of_megan2t1_mozc(113) = is_octenol_1e3ol        ; p_of_t1_mozc(113) = p_bigene   ; t1_mozc_per_megan(113)  =  1.7
 391     p_of_megan2t1_mozc(114) = is_tetradecene_1        ; p_of_t1_mozc(114) = p_bigene   ; t1_mozc_per_megan(114)  =  3.5
 392     p_of_megan2t1_mozc(115) = is_diallyl_2s           ; p_of_t1_mozc(115) = p_bigene   ; t1_mozc_per_megan(115)  =  .66
 393     p_of_megan2t1_mozc(116) = is_3met_3dctt           ; p_of_t1_mozc(116) = p_bigene   ; t1_mozc_per_megan(116)  =  3.
 394     p_of_megan2t1_mozc(117) = is_hexenal_c3           ; p_of_t1_mozc(117) = p_bigene   ; t1_mozc_per_megan(117)  =  1.4
 395     p_of_megan2t1_mozc(118) = is_hexenal_t2           ; p_of_t1_mozc(118) = p_bigene   ; t1_mozc_per_megan(118)  =  1.4
 396     p_of_megan2t1_mozc(119) = is_hexenol_c3           ; p_of_t1_mozc(119) = p_bigene   ; t1_mozc_per_megan(119)  =  1.4
 397     p_of_megan2t1_mozc(120) = is_hexenyl_act_c3       ; p_of_t1_mozc(120) = p_bigene   ; t1_mozc_per_megan(120)  =  2.
 398
 399     p_of_megan2t1_mozc(121) = is_toluene              ; p_of_t1_mozc(121) = p_tol      ; t1_mozc_per_megan(121)  =  1.
 400     p_of_megan2t1_mozc(122) = is_isoprene             ; p_of_t1_mozc(122) = p_isopr    ; t1_mozc_per_megan(122)  =  1.
 401
 402   END SUBROUTINE get_megan2t1_mozc_table
 403
 404   SUBROUTINE get_megan2mozm_table
 405 !--------------------------------------------------------------------------
 406 ! For MEGAN v2.04 species conversion to MOZART-MOSAIC species
 407 ! updated by Alma Hodzic 2013 for de-lumped mozart mechanism
 408 ! checked by J. Orlando's
 409 !--------------------------------------------------------------------------
 410
 411 !-----------------------------------------------------------------------------------------------------------
 412 !     Index of                                       Index of
 413 !     Molar ratio
 414 !     MEGAN species                                  MOZCART Species
 415 !-----------------------------------------------------------------------------------------------------------
 416     p_of_megan2mozm(  1) = is_isoprene             ; p_of_mozm(  1) = p_isopr    ; mozm_per_megan(  1)  =  1.
 417     p_of_megan2mozm(  2) = is_myrcene              ; p_of_mozm(  2) = p_myrc     ; mozm_per_megan(  2)  =  1.
 418     p_of_megan2mozm(  3) = is_sabinene             ; p_of_mozm(  3) = p_bpin     ; mozm_per_megan(  3)  =  1.
 419     p_of_megan2mozm(  4) = is_limonene             ; p_of_mozm(  4) = p_limon    ; mozm_per_megan(  4)  =  1.
 420     p_of_megan2mozm(  5) = is_carene_3             ; p_of_mozm(  5) = p_apin     ; mozm_per_megan(  5)  =  1.
 421     p_of_megan2mozm(  6) = is_ocimene_t_b          ; p_of_mozm(  6) = p_myrc     ; mozm_per_megan(  6)  =  1.
 422     p_of_megan2mozm(  7) = is_pinene_b             ; p_of_mozm(  7) = p_bpin     ; mozm_per_megan(  7)  =  1.
 423     p_of_megan2mozm(  8) = is_pinene_a             ; p_of_mozm(  8) = p_apin     ; mozm_per_megan(  8)  =  1.
 424     p_of_megan2mozm(  9) = is_2met_styrene         ; p_of_mozm(  9) = p_limon    ; mozm_per_megan(  9)  =  1.
 425     p_of_megan2mozm( 10) = is_cymene_p             ; p_of_mozm( 10) = p_tol      ; mozm_per_megan( 10)  =  1.5
 426     p_of_megan2mozm( 11) = is_cymene_o             ; p_of_mozm( 11) = p_tol      ; mozm_per_megan( 11)  =  1.5
 427     p_of_megan2mozm( 12) = is_phellandrene_a       ; p_of_mozm( 12) = p_limon    ; mozm_per_megan( 12)  =  1.
 428     p_of_megan2mozm( 13) = is_thujene_a            ; p_of_mozm( 13) = p_apin     ; mozm_per_megan( 13)  =  1.
 429     p_of_megan2mozm( 14) = is_terpinene_a          ; p_of_mozm( 14) = p_limon    ; mozm_per_megan( 14)  =  1.
 430     p_of_megan2mozm( 15) = is_terpinene_g          ; p_of_mozm( 15) = p_limon    ; mozm_per_megan( 15)  =  1.
 431     p_of_megan2mozm( 16) = is_terpinolene          ; p_of_mozm( 16) = p_limon    ; mozm_per_megan( 16)  =  1.
 432     p_of_megan2mozm( 17) = is_phellandrene_b       ; p_of_mozm( 17) = p_limon    ; mozm_per_megan( 17)  =  1.
 433     p_of_megan2mozm( 18) = is_camphene             ; p_of_mozm( 18) = p_bpin     ; mozm_per_megan( 18)  =  1.
 434     p_of_megan2mozm( 19) = is_bornene              ; p_of_mozm( 19) = p_apin     ; mozm_per_megan( 19)  =  1.
 435     p_of_megan2mozm( 20) = is_fenchene_a           ; p_of_mozm( 20) = p_apin     ; mozm_per_megan( 20)  =  1.
 436     p_of_megan2mozm( 21) = is_ocimene_al           ; p_of_mozm( 21) = p_limon    ; mozm_per_megan( 21)  =  1.
 437     p_of_megan2mozm( 22) = is_ocimene_c_b          ; p_of_mozm( 22) = p_myrc     ; mozm_per_megan( 22)  =  1.
 438     p_of_megan2mozm( 23) = is_tricyclene           ; p_of_mozm( 23) = non_react  ; mozm_per_megan( 23)  =  1.
 439     p_of_megan2mozm( 24) = is_estragole            ; p_of_mozm( 24) = p_limon    ; mozm_per_megan( 24)  =  1.
 440     p_of_megan2mozm( 25) = is_camphor              ; p_of_mozm( 25) = p_bigalk   ; mozm_per_megan( 25)  =  2.
 441     p_of_megan2mozm( 26) = is_fenchone             ; p_of_mozm( 26) = p_bigalk   ; mozm_per_megan( 26)  =  2.
 442     p_of_megan2mozm( 27) = is_piperitone           ; p_of_mozm( 27) = p_apin     ; mozm_per_megan( 27)  =  1.
 443     p_of_megan2mozm( 28) = is_thujone_a            ; p_of_mozm( 28) = p_bigalk   ; mozm_per_megan( 28)  =  2.
 444     p_of_megan2mozm( 29) = is_thujone_b            ; p_of_mozm( 29) = p_bigalk   ; mozm_per_megan( 29)  =  2.
 445     p_of_megan2mozm( 30) = is_cineole_1_8          ; p_of_mozm( 30) = p_bigalk   ; mozm_per_megan( 30)  =  2.
 446     p_of_megan2mozm( 31) = is_borneol              ; p_of_mozm( 31) = p_bigalk   ; mozm_per_megan( 31)  =  2.
 447     p_of_megan2mozm( 32) = is_linalool             ; p_of_mozm( 32) = p_limon    ; mozm_per_megan( 32)  =  1.
 448     p_of_megan2mozm( 33) = is_terpineol_4          ; p_of_mozm( 33) = p_apin     ; mozm_per_megan( 33)  =  1.
 449     p_of_megan2mozm( 34) = is_terpineol_a          ; p_of_mozm( 34) = p_apin     ; mozm_per_megan( 34)  =  1.
 450     p_of_megan2mozm( 35) = is_linalool_oxd_c       ; p_of_mozm( 35) = p_limon    ; mozm_per_megan( 35)  =  1.
 451     p_of_megan2mozm( 36) = is_linalool_oxd_t       ; p_of_mozm( 36) = p_limon    ; mozm_per_megan( 36)  =  1.
 452     p_of_megan2mozm( 37) = is_ionone_b             ; p_of_mozm( 37) = p_limon    ; mozm_per_megan( 37)  =  1.
 453     p_of_megan2mozm( 38) = is_bornyl_act           ; p_of_mozm( 38) = p_bigalk   ; mozm_per_megan( 38)  =  2.7
 454     p_of_megan2mozm( 39) = is_farnescene_a         ; p_of_mozm( 39) = p_limon   ; mozm_per_megan( 39)  =  1.
 455     p_of_megan2mozm( 40) = is_caryophyllene_b      ; p_of_mozm( 40) = p_limon   ; mozm_per_megan( 40)  =  1.
 456     p_of_megan2mozm( 41) = is_acoradiene           ; p_of_mozm( 41) = p_limon   ; mozm_per_megan( 41)  =  1.
 457     p_of_megan2mozm( 42) = is_aromadendrene        ; p_of_mozm( 42) = p_bcary   ; mozm_per_megan( 42)  =  1.
 458     p_of_megan2mozm( 43) = is_bergamotene_a        ; p_of_mozm( 43) = p_bcary   ; mozm_per_megan( 43)  =  1.
 459     p_of_megan2mozm( 44) = is_bergamotene_b        ; p_of_mozm( 44) = p_bcary   ; mozm_per_megan( 44)  =  1.
 460     p_of_megan2mozm( 45) = is_bisabolene_a         ; p_of_mozm( 45) = p_bcary   ; mozm_per_megan( 45)  =  1.
 461     p_of_megan2mozm( 46) = is_bisabolene_b         ; p_of_mozm( 46) = p_bcary   ; mozm_per_megan( 46)  =  1.
 462     p_of_megan2mozm( 47) = is_bourbonene_b         ; p_of_mozm( 47) = p_bcary   ; mozm_per_megan( 47)  =  1.
 463     p_of_megan2mozm( 48) = is_cadinene_d           ; p_of_mozm( 48) = p_bcary   ; mozm_per_megan( 48)  =  1.
 464     p_of_megan2mozm( 49) = is_cadinene_g           ; p_of_mozm( 49) = p_bcary   ; mozm_per_megan( 49)  =  1.
 465     p_of_megan2mozm( 50) = is_cedrene_a            ; p_of_mozm( 50) = p_bcary   ; mozm_per_megan( 50)  =  1.
 466     p_of_megan2mozm( 51) = is_copaene_a            ; p_of_mozm( 51) = p_bcary   ; mozm_per_megan( 51)  =  1.
 467     p_of_megan2mozm( 52) = is_cubebene_a           ; p_of_mozm( 52) = p_bcary   ; mozm_per_megan( 52)  =  1.
 468     p_of_megan2mozm( 53) = is_cubebene_b           ; p_of_mozm( 53) = p_bcary   ; mozm_per_megan( 53)  =  1.
 469     p_of_megan2mozm( 54) = is_elemene_b            ; p_of_mozm( 54) = p_bcary   ; mozm_per_megan( 54)  =  1.
 470     p_of_megan2mozm( 55) = is_farnescene_b         ; p_of_mozm( 55) = p_bcary   ; mozm_per_megan( 55)  =  1.
 471     p_of_megan2mozm( 56) = is_germacrene_B         ; p_of_mozm( 56) = p_bcary   ; mozm_per_megan( 56)  =  1.
 472     p_of_megan2mozm( 57) = is_germacrene_D         ; p_of_mozm( 57) = p_bcary   ; mozm_per_megan( 57)  =  1.
 473     p_of_megan2mozm( 58) = is_gurjunene_b          ; p_of_mozm( 58) = p_bcary   ; mozm_per_megan( 58)  =  1.
 474     p_of_megan2mozm( 59) = is_humulene_a           ; p_of_mozm( 59) = p_bcary   ; mozm_per_megan( 59)  =  1.
 475     p_of_megan2mozm( 60) = is_humulene_g           ; p_of_mozm( 60) = p_bcary   ; mozm_per_megan( 60)  =  1.
 476     p_of_megan2mozm( 61) = is_isolongifolene       ; p_of_mozm( 61) = p_bcary   ; mozm_per_megan( 61)  =  1.
 477     p_of_megan2mozm( 62) = is_longifolene          ; p_of_mozm( 62) = p_bcary   ; mozm_per_megan( 62)  =  1.
 478     p_of_megan2mozm( 63) = is_longipinene          ; p_of_mozm( 63) = p_bcary   ; mozm_per_megan( 63)  =  1.
 479     p_of_megan2mozm( 64) = is_muurolene_a          ; p_of_mozm( 64) = p_bcary   ; mozm_per_megan( 64)  =  1.
 480     p_of_megan2mozm( 65) = is_muurolene_g          ; p_of_mozm( 65) = p_bcary   ; mozm_per_megan( 65)  =  1.
 481     p_of_megan2mozm( 66) = is_selinene_b           ; p_of_mozm( 66) = p_bcary   ; mozm_per_megan( 66)  =  1.
 482     p_of_megan2mozm( 67) = is_selinene_d           ; p_of_mozm( 67) = p_bcary   ; mozm_per_megan( 67)  =  1.
 483     p_of_megan2mozm( 68) = is_nerolidol_c          ; p_of_mozm( 68) = p_bcary   ; mozm_per_megan( 68)  =  1.
 484     p_of_megan2mozm( 69) = is_nerolidol_t          ; p_of_mozm( 69) = p_bcary   ; mozm_per_megan( 69)  =  1.
 485     p_of_megan2mozm( 70) = is_cedrol               ; p_of_mozm( 70) = p_bigalk   ; mozm_per_megan( 70)  =  3.
 486     p_of_megan2mozm( 71) = is_mbo_2m3e2ol          ; p_of_mozm( 71) = p_mbo    ; mozm_per_megan( 71)  =    1.
 487     p_of_megan2mozm( 72) = is_methanol             ; p_of_mozm( 72) = p_ch3oh    ; mozm_per_megan( 72)  =  1.
 488     p_of_megan2mozm( 73) = is_acetone              ; p_of_mozm( 73) = p_acet     ; mozm_per_megan( 73)  =  1.
 489     p_of_megan2mozm( 74) = is_methane              ; p_of_mozm( 74) = non_react  ; mozm_per_megan( 74)  =  1.
 490     p_of_megan2mozm( 75) = is_ammonia              ; p_of_mozm( 75) = p_nh3      ; mozm_per_megan( 75)  =  1.
 491     p_of_megan2mozm( 76) = is_nitrous_oxd          ; p_of_mozm( 76) = non_react  ; mozm_per_megan( 76)  =  1.
 492     p_of_megan2mozm( 77) = is_nitric_oxd           ; p_of_mozm( 77) = p_no       ; mozm_per_megan( 77)  =  1.
 493     p_of_megan2mozm( 78) = is_acetaldehyde         ; p_of_mozm( 78) = p_ald      ; mozm_per_megan( 78)  =  1.
 494     p_of_megan2mozm( 79) = is_ethanol              ; p_of_mozm( 79) = p_c2h5oh   ; mozm_per_megan( 79)  =  1.
 495     p_of_megan2mozm( 80) = is_formic_acid          ; p_of_mozm( 80) = non_react  ; mozm_per_megan( 80)  =  1.
 496     p_of_megan2mozm( 81) = is_formaldehyde         ; p_of_mozm( 81) = p_hcho     ; mozm_per_megan( 81)  =  1.
 497     p_of_megan2mozm( 82) = is_acetic_acid          ; p_of_mozm( 82) = p_ch3cooh  ; mozm_per_megan( 82)  =  1.
 498     p_of_megan2mozm( 83) = is_mbo_3m2e1ol          ; p_of_mozm( 83) = p_mbo    ; mozm_per_megan( 83)  =  1.
 499     p_of_megan2mozm( 84) = is_benzaldehyde         ; p_of_mozm( 84) = p_tol      ; mozm_per_megan( 84)  =  1.1
 500     p_of_megan2mozm( 85) = is_butanone_2           ; p_of_mozm( 85) = p_mek      ; mozm_per_megan( 85)  =  1.
 501     p_of_megan2mozm( 86) = is_decanal              ; p_of_mozm( 86) = p_bigalk   ; mozm_per_megan( 86)  =  3.
 502     p_of_megan2mozm( 87) = is_dodecene_1           ; p_of_mozm( 87) = p_bigene   ; mozm_per_megan( 87)  =  2.25
 503     p_of_megan2mozm( 88) = is_geranyl_acetone      ; p_of_mozm( 88) = p_limon   ; mozm_per_megan( 88)  =  1.
 504     p_of_megan2mozm( 89) = is_heptanal             ; p_of_mozm( 89) = p_bigalk   ; mozm_per_megan( 89)  =  2.
 505     p_of_megan2mozm( 90) = is_heptane              ; p_of_mozm( 90) = p_bigalk   ; mozm_per_megan( 90)  =  2.
 506     p_of_megan2mozm( 91) = is_hexane               ; p_of_mozm( 91) = p_bigalk   ; mozm_per_megan( 91)  =  1.5
 507     p_of_megan2mozm( 92) = is_met_benzoate         ; p_of_mozm( 92) = p_tol      ; mozm_per_megan( 92)  =  1.5
 508     p_of_megan2mozm( 93) = is_met_heptenone        ; p_of_mozm( 93) = p_bigene   ; mozm_per_megan( 93)  =  1.75
 509     p_of_megan2mozm( 94) = is_neryl_acetone        ; p_of_mozm( 94) = p_bigene   ; mozm_per_megan( 94)  =  2.7
 510     p_of_megan2mozm( 95) = is_nonanal              ; p_of_mozm( 95) = p_bigalk   ; mozm_per_megan( 95)  =  2.5
 511     p_of_megan2mozm( 96) = is_nonenal              ; p_of_mozm( 96) = p_bigene   ; mozm_per_megan( 96)  =  2.
 512     p_of_megan2mozm( 97) = is_octanal              ; p_of_mozm( 97) = p_bigalk   ; mozm_per_megan( 97)  =  2.3
 513     p_of_megan2mozm( 98) = is_octanol              ; p_of_mozm( 98) = p_bigalk   ; mozm_per_megan( 98)  =  2.3
 514     p_of_megan2mozm( 99) = is_octenol_1e3ol        ; p_of_mozm( 99) = p_bigene   ; mozm_per_megan( 99)  =  1.7
 515     p_of_megan2mozm(100) = is_oxopentanal          ; p_of_mozm(100) = p_mek      ; mozm_per_megan(100)  =  1.4
 516     p_of_megan2mozm(101) = is_pentane              ; p_of_mozm(101) = p_bigalk   ; mozm_per_megan(101)  =  1.25
 517     p_of_megan2mozm(102) = is_phenyl_cco           ; p_of_mozm(102) = p_tol      ; mozm_per_megan(102)  =  1.3
 518     p_of_megan2mozm(103) = is_pyruvic_acid         ; p_of_mozm(103) = non_react  ; mozm_per_megan(103)  =  1.
 519     p_of_megan2mozm(104) = is_terpinyl_act_a       ; p_of_mozm(104) = p_apin   ; mozm_per_megan(104)  =  1.
 520     p_of_megan2mozm(105) = is_tetradecene_1        ; p_of_mozm(105) = p_bigene   ; mozm_per_megan(105)  =  3.5
 521     p_of_megan2mozm(106) = is_toluene              ; p_of_mozm(106) = p_tol      ; mozm_per_megan(106)  =  1.
 522     p_of_megan2mozm(107) = is_carbon_monoxide      ; p_of_mozm(107) = p_co       ; mozm_per_megan(107)  =  1.
 523     p_of_megan2mozm(108) = is_butene               ; p_of_mozm(108) = p_bigene   ; mozm_per_megan(108)  =  .8
 524     p_of_megan2mozm(109) = is_ethane               ; p_of_mozm(109) = p_c2h6     ; mozm_per_megan(109)  =  1.
 525     p_of_megan2mozm(110) = is_ethene               ; p_of_mozm(110) = p_c2h4     ; mozm_per_megan(110)  =  1.
 526     p_of_megan2mozm(111) = is_hydrogen_cyanide     ; p_of_mozm(111) = non_react  ; mozm_per_megan(111)  =  1.
 527     p_of_megan2mozm(112) = is_propane              ; p_of_mozm(112) = p_c3h8     ; mozm_per_megan(112)  =  1.
 528     p_of_megan2mozm(113) = is_propene              ; p_of_mozm(113) = p_c3h6     ; mozm_per_megan(113)  =  1.
 529     p_of_megan2mozm(114) = is_carbon_2s            ; p_of_mozm(114) = non_react  ; mozm_per_megan(114)  =  1.
 530     p_of_megan2mozm(115) = is_carbonyl_s           ; p_of_mozm(115) = non_react  ; mozm_per_megan(115)  =  1.
 531     p_of_megan2mozm(116) = is_diallyl_2s           ; p_of_mozm(116) = p_bigene   ; mozm_per_megan(116)  =  .66
 532     p_of_megan2mozm(117) = is_diallyl_2s           ; p_of_mozm(117) = p_so2      ; mozm_per_megan(117)  =  1.53
 533     p_of_megan2mozm(118) = is_2met_2s              ; p_of_mozm(118) = p_c2h6     ; mozm_per_megan(118)  =  1.
 534     p_of_megan2mozm(119) = is_2met_2s              ; p_of_mozm(119) = p_so2      ; mozm_per_megan(119)  =  1.
 535     p_of_megan2mozm(120) = is_met_chloride         ; p_of_mozm(120) = non_react  ; mozm_per_megan(120)  =  1.
 536     p_of_megan2mozm(121) = is_met_bromide          ; p_of_mozm(121) = non_react  ; mozm_per_megan(121)  =  1.
 537     p_of_megan2mozm(122) = is_met_iodide           ; p_of_mozm(122) = non_react  ; mozm_per_megan(122)  =  1.
 538     p_of_megan2mozm(123) = is_hydrogen_s           ; p_of_mozm(123) = p_so2      ; mozm_per_megan(123)  =  .5
 539     p_of_megan2mozm(124) = is_met_mercaptan        ; p_of_mozm(124) = p_so2      ; mozm_per_megan(124)  =  .75
 540     p_of_megan2mozm(125) = is_met_propenyl_2s      ; p_of_mozm(125) = p_c3h6     ; mozm_per_megan(125)  =  2.8
 541     p_of_megan2mozm(126) = is_met_propenyl_2s      ; p_of_mozm(126) = p_so2      ; mozm_per_megan(126)  =  1.8
 542     p_of_megan2mozm(127) = is_pppp_2s              ; p_of_mozm(127) = p_c3h6     ; mozm_per_megan(127)  =  3.5
 543     p_of_megan2mozm(128) = is_pppp_2s              ; p_of_mozm(128) = p_so2      ; mozm_per_megan(128)  =  2.3
 544     p_of_megan2mozm(129) = is_2met_nonatriene      ; p_of_mozm(129) = p_limon   ; mozm_per_megan(129)  =  1.
 545     p_of_megan2mozm(130) = is_met_salicylate       ; p_of_mozm(130) = p_tol      ; mozm_per_megan(130)  =  1.6
 546     p_of_megan2mozm(131) = is_indole               ; p_of_mozm(131) = non_react  ; mozm_per_megan(131)  =  1.
 547     p_of_megan2mozm(132) = is_jasmone              ; p_of_mozm(132) = p_limon   ; mozm_per_megan(132)  =  1.
 548     p_of_megan2mozm(133) = is_met_jasmonate        ; p_of_mozm(133) = p_limon   ; mozm_per_megan(133)  =  1.
 549     p_of_megan2mozm(134) = is_3met_3dctt           ; p_of_mozm(134) = p_bigene   ; mozm_per_megan(134)  =  3.
 550     p_of_megan2mozm(135) = is_hexanal              ; p_of_mozm(135) = p_bigalk   ; mozm_per_megan(135)  =  1.8
 551     p_of_megan2mozm(136) = is_hexanol_1            ; p_of_mozm(136) = p_bigalk   ; mozm_per_megan(136)  =  1.8
 552     p_of_megan2mozm(137) = is_hexenal_c3           ; p_of_mozm(137) = p_bigene   ; mozm_per_megan(137)  =  1.4
 553     p_of_megan2mozm(138) = is_hexenal_t2           ; p_of_mozm(138) = p_bigene   ; mozm_per_megan(138)  =  1.4
 554     p_of_megan2mozm(139) = is_hexenol_c3           ; p_of_mozm(139) = p_bigene   ; mozm_per_megan(139)  =  1.4
 555     p_of_megan2mozm(140) = is_hexenyl_act_c3       ; p_of_mozm(140) = p_bigene   ; mozm_per_megan(140)  =  2.
 556     p_of_megan2mozm(141) = is_mbo_3m3e1ol          ; p_of_mozm(141) = p_mbo    ; mozm_per_megan(141)  =  1.
 557     p_of_megan2mozm(142) = is_2met_s               ; p_of_mozm(142) = p_dms      ; mozm_per_megan(142)  =  1.
 558
 559   END SUBROUTINE get_megan2mozm_table
 560
 561   SUBROUTINE get_megan2cbmz_table
 562 !--------------------------------------------------------------------
 563 ! For MEGAN v2.04 species conversion to CBMZ species
 564 ! Based on Tan's MAP_CV2CBMZ.EXT; updated on 08/03/2007
 565 ! based on Rahul A. Zaveri's suggestions.
 566 !--------------------------------------------------------------------
 567
 568 !-----------------------------------------------------------------------------------------------------------
 569 !     Index of                                       Index of                      Molar ratio
 570 !     MEGAN species                                  CMBZ Species
 571 !-----------------------------------------------------------------------------------------------------------
 572     p_of_megan2cbmz(  1) = is_isoprene             ; p_of_cbmz(  1) = p_iso      ; cbmz_per_megan(  1)  =  1.
 573     p_of_megan2cbmz(  2) = is_myrcene              ; p_of_cbmz(  2) = p_iso      ; cbmz_per_megan(  2)  =  2.
 574     p_of_megan2cbmz(  3) = is_sabinene             ; p_of_cbmz(  3) = p_iso      ; cbmz_per_megan(  3)  =  2.
 575     p_of_megan2cbmz(  4) = is_limonene             ; p_of_cbmz(  4) = p_iso      ; cbmz_per_megan(  4)  =  2.
 576     p_of_megan2cbmz(  5) = is_carene_3             ; p_of_cbmz(  5) = p_iso      ; cbmz_per_megan(  5)  =  2.
 577     p_of_megan2cbmz(  6) = is_ocimene_t_b          ; p_of_cbmz(  6) = p_iso      ; cbmz_per_megan(  6)  =  2.
 578     p_of_megan2cbmz(  7) = is_pinene_b             ; p_of_cbmz(  7) = p_iso      ; cbmz_per_megan(  7)  =  2.
 579     p_of_megan2cbmz(  8) = is_pinene_a             ; p_of_cbmz(  8) = p_iso      ; cbmz_per_megan(  8)  =  2.
 580     p_of_megan2cbmz(  9) = is_2met_styrene         ; p_of_cbmz(  9) = p_iso      ; cbmz_per_megan(  9)  =  2.
 581     p_of_megan2cbmz( 10) = is_cymene_p             ; p_of_cbmz( 10) = p_iso      ; cbmz_per_megan( 10)  =  2.
 582     p_of_megan2cbmz( 11) = is_cymene_o             ; p_of_cbmz( 11) = p_iso      ; cbmz_per_megan( 11)  =  2.
 583     p_of_megan2cbmz( 12) = is_phellandrene_a       ; p_of_cbmz( 12) = p_iso      ; cbmz_per_megan( 12)  =  2.
 584     p_of_megan2cbmz( 13) = is_thujene_a            ; p_of_cbmz( 13) = p_iso      ; cbmz_per_megan( 13)  =  2.
 585     p_of_megan2cbmz( 14) = is_terpinene_a          ; p_of_cbmz( 14) = p_iso      ; cbmz_per_megan( 14)  =  2.
 586     p_of_megan2cbmz( 15) = is_terpinene_g          ; p_of_cbmz( 15) = p_iso      ; cbmz_per_megan( 15)  =  2.
 587     p_of_megan2cbmz( 16) = is_terpinolene          ; p_of_cbmz( 16) = p_iso      ; cbmz_per_megan( 16)  =  2.
 588     p_of_megan2cbmz( 17) = is_phellandrene_b       ; p_of_cbmz( 17) = p_iso      ; cbmz_per_megan( 17)  =  2.
 589     p_of_megan2cbmz( 18) = is_camphene             ; p_of_cbmz( 18) = p_iso      ; cbmz_per_megan( 18)  =  2.
 590     p_of_megan2cbmz( 19) = is_bornene              ; p_of_cbmz( 19) = p_iso      ; cbmz_per_megan( 19)  =  2.
 591     p_of_megan2cbmz( 20) = is_fenchene_a           ; p_of_cbmz( 20) = p_iso      ; cbmz_per_megan( 20)  =  2.
 592     p_of_megan2cbmz( 21) = is_ocimene_al           ; p_of_cbmz( 21) = p_iso      ; cbmz_per_megan( 21)  =  2.
 593     p_of_megan2cbmz( 22) = is_ocimene_c_b          ; p_of_cbmz( 22) = p_iso      ; cbmz_per_megan( 22)  =  2.
 594     p_of_megan2cbmz( 23) = is_tricyclene           ; p_of_cbmz( 23) = p_iso      ; cbmz_per_megan( 23)  =  2.
 595     p_of_megan2cbmz( 24) = is_estragole            ; p_of_cbmz( 24) = p_iso      ; cbmz_per_megan( 24)  =  2.
 596     p_of_megan2cbmz( 25) = is_camphor              ; p_of_cbmz( 25) = p_iso      ; cbmz_per_megan( 25)  =  2.
 597     p_of_megan2cbmz( 26) = is_fenchone             ; p_of_cbmz( 26) = p_iso      ; cbmz_per_megan( 26)  =  2.
 598     p_of_megan2cbmz( 27) = is_piperitone           ; p_of_cbmz( 27) = p_iso      ; cbmz_per_megan( 27)  =  2.
 599     p_of_megan2cbmz( 28) = is_thujone_a            ; p_of_cbmz( 28) = p_iso      ; cbmz_per_megan( 28)  =  2.
 600     p_of_megan2cbmz( 29) = is_thujone_b            ; p_of_cbmz( 29) = p_iso      ; cbmz_per_megan( 29)  =  2.
 601     p_of_megan2cbmz( 30) = is_cineole_1_8          ; p_of_cbmz( 30) = p_iso      ; cbmz_per_megan( 30)  =  2.
 602     p_of_megan2cbmz( 31) = is_borneol              ; p_of_cbmz( 31) = p_iso      ; cbmz_per_megan( 31)  =  2.
 603     p_of_megan2cbmz( 32) = is_linalool             ; p_of_cbmz( 32) = p_iso      ; cbmz_per_megan( 32)  =  2.
 604     p_of_megan2cbmz( 33) = is_terpineol_4          ; p_of_cbmz( 33) = p_iso      ; cbmz_per_megan( 33)  =  2.
 605     p_of_megan2cbmz( 34) = is_terpineol_a          ; p_of_cbmz( 34) = p_iso      ; cbmz_per_megan( 34)  =  2.
 606     p_of_megan2cbmz( 35) = is_linalool_oxd_c       ; p_of_cbmz( 35) = p_iso      ; cbmz_per_megan( 35)  =  2.
 607     p_of_megan2cbmz( 36) = is_linalool_oxd_t       ; p_of_cbmz( 36) = p_iso      ; cbmz_per_megan( 36)  =  2.
 608     p_of_megan2cbmz( 37) = is_ionone_b             ; p_of_cbmz( 37) = p_iso      ; cbmz_per_megan( 37)  =  3.
 609     p_of_megan2cbmz( 38) = is_bornyl_act           ; p_of_cbmz( 38) = p_iso      ; cbmz_per_megan( 38)  =  2.
 610     p_of_megan2cbmz( 39) = is_farnescene_a         ; p_of_cbmz( 39) = p_iso      ; cbmz_per_megan( 39)  =  3.
 611     p_of_megan2cbmz( 40) = is_caryophyllene_b      ; p_of_cbmz( 40) = p_iso      ; cbmz_per_megan( 40)  =  3.
 612     p_of_megan2cbmz( 41) = is_acoradiene           ; p_of_cbmz( 41) = p_iso      ; cbmz_per_megan( 41)  =  3.
 613     p_of_megan2cbmz( 42) = is_aromadendrene        ; p_of_cbmz( 42) = p_iso      ; cbmz_per_megan( 42)  =  3.
 614     p_of_megan2cbmz( 43) = is_bergamotene_a        ; p_of_cbmz( 43) = p_iso      ; cbmz_per_megan( 43)  =  3.
 615     p_of_megan2cbmz( 44) = is_bergamotene_b        ; p_of_cbmz( 44) = p_iso      ; cbmz_per_megan( 44)  =  3.
 616     p_of_megan2cbmz( 45) = is_bisabolene_a         ; p_of_cbmz( 45) = p_iso      ; cbmz_per_megan( 45)  =  3.
 617     p_of_megan2cbmz( 46) = is_bisabolene_b         ; p_of_cbmz( 46) = p_iso      ; cbmz_per_megan( 46)  =  3.
 618     p_of_megan2cbmz( 47) = is_bourbonene_b         ; p_of_cbmz( 47) = p_iso      ; cbmz_per_megan( 47)  =  3.
 619     p_of_megan2cbmz( 48) = is_cadinene_d           ; p_of_cbmz( 48) = p_iso      ; cbmz_per_megan( 48)  =  3.
 620     p_of_megan2cbmz( 49) = is_cadinene_g           ; p_of_cbmz( 49) = p_iso      ; cbmz_per_megan( 49)  =  3.
 621     p_of_megan2cbmz( 50) = is_cedrene_a            ; p_of_cbmz( 50) = p_iso      ; cbmz_per_megan( 50)  =  3.
 622     p_of_megan2cbmz( 51) = is_copaene_a            ; p_of_cbmz( 51) = p_iso      ; cbmz_per_megan( 51)  =  3.
 623     p_of_megan2cbmz( 52) = is_cubebene_a           ; p_of_cbmz( 52) = p_iso      ; cbmz_per_megan( 52)  =  3.
 624     p_of_megan2cbmz( 53) = is_cubebene_b           ; p_of_cbmz( 53) = p_iso      ; cbmz_per_megan( 53)  =  3.
 625     p_of_megan2cbmz( 54) = is_elemene_b            ; p_of_cbmz( 54) = p_iso      ; cbmz_per_megan( 54)  =  3.
 626     p_of_megan2cbmz( 55) = is_farnescene_b         ; p_of_cbmz( 55) = p_iso      ; cbmz_per_megan( 55)  =  3.
 627     p_of_megan2cbmz( 56) = is_germacrene_B         ; p_of_cbmz( 56) = p_iso      ; cbmz_per_megan( 56)  =  3.
 628     p_of_megan2cbmz( 57) = is_germacrene_D         ; p_of_cbmz( 57) = p_iso      ; cbmz_per_megan( 57)  =  3.
 629     p_of_megan2cbmz( 58) = is_gurjunene_b          ; p_of_cbmz( 58) = p_iso      ; cbmz_per_megan( 58)  =  3.
 630     p_of_megan2cbmz( 59) = is_humulene_a           ; p_of_cbmz( 59) = p_iso      ; cbmz_per_megan( 59)  =  3.
 631     p_of_megan2cbmz( 60) = is_humulene_g           ; p_of_cbmz( 60) = p_iso      ; cbmz_per_megan( 60)  =  3.
 632     p_of_megan2cbmz( 61) = is_isolongifolene       ; p_of_cbmz( 61) = p_iso      ; cbmz_per_megan( 61)  =  3.
 633     p_of_megan2cbmz( 62) = is_longifolene          ; p_of_cbmz( 62) = p_iso      ; cbmz_per_megan( 62)  =  3.
 634     p_of_megan2cbmz( 63) = is_longipinene          ; p_of_cbmz( 63) = p_iso      ; cbmz_per_megan( 63)  =  3.
 635     p_of_megan2cbmz( 64) = is_muurolene_a          ; p_of_cbmz( 64) = p_iso      ; cbmz_per_megan( 64)  =  3.
 636     p_of_megan2cbmz( 65) = is_muurolene_g          ; p_of_cbmz( 65) = p_iso      ; cbmz_per_megan( 65)  =  3.
 637     p_of_megan2cbmz( 66) = is_selinene_b           ; p_of_cbmz( 66) = p_iso      ; cbmz_per_megan( 66)  =  3.
 638     p_of_megan2cbmz( 67) = is_selinene_d           ; p_of_cbmz( 67) = p_iso      ; cbmz_per_megan( 67)  =  3.
 639     p_of_megan2cbmz( 68) = is_nerolidol_c          ; p_of_cbmz( 68) = p_iso      ; cbmz_per_megan( 68)  =  3.
 640     p_of_megan2cbmz( 69) = is_nerolidol_t          ; p_of_cbmz( 69) = p_iso      ; cbmz_per_megan( 69)  =  3.
 641     p_of_megan2cbmz( 70) = is_cedrol               ; p_of_cbmz( 70) = p_iso      ; cbmz_per_megan( 70)  =  3.
 642     p_of_megan2cbmz( 71) = is_mbo_2m3e2ol          ; p_of_cbmz( 71) = p_olt      ; cbmz_per_megan( 71)  =  1.
 643     p_of_megan2cbmz( 72) = is_mbo_2m3e2ol          ; p_of_cbmz( 72) = p_par      ; cbmz_per_megan( 72)  =  3.
 644     p_of_megan2cbmz( 73) = is_methanol             ; p_of_cbmz( 73) = p_ch3oh    ; cbmz_per_megan( 73)  =  1.
 645     p_of_megan2cbmz( 74) = is_acetone              ; p_of_cbmz( 74) = p_ket      ; cbmz_per_megan( 74)  =  1.
 646     p_of_megan2cbmz( 75) = is_methane              ; p_of_cbmz( 75) = p_ch4      ; cbmz_per_megan( 75)  =  1
 647     p_of_megan2cbmz( 76) = is_ammonia              ; p_of_cbmz( 76) = p_nh3      ; cbmz_per_megan( 76)  =  1.
 648     p_of_megan2cbmz( 77) = is_nitrous_oxd          ; p_of_cbmz( 77) = non_react  ; cbmz_per_megan( 77)  =  1.
 649     p_of_megan2cbmz( 78) = is_nitric_oxd           ; p_of_cbmz( 78) = p_no       ; cbmz_per_megan( 78)  =  1.
 650     p_of_megan2cbmz( 79) = is_acetaldehyde         ; p_of_cbmz( 79) = p_ald      ; cbmz_per_megan( 79)  =  1.
 651     p_of_megan2cbmz( 80) = is_ethanol              ; p_of_cbmz( 80) = p_c2h5oh   ; cbmz_per_megan( 80)  =  1.
 652     p_of_megan2cbmz( 81) = is_formic_acid          ; p_of_cbmz( 81) = p_ora1     ; cbmz_per_megan( 81)  =  1.
 653     p_of_megan2cbmz( 82) = is_formaldehyde         ; p_of_cbmz( 82) = p_hcho     ; cbmz_per_megan( 82)  =  1.
 654     p_of_megan2cbmz( 83) = is_acetic_acid          ; p_of_cbmz( 83) = p_ora2     ; cbmz_per_megan( 83)  =  1.
 655     p_of_megan2cbmz( 84) = is_mbo_3m2e1ol          ; p_of_cbmz( 84) = p_ald      ; cbmz_per_megan( 84)  =  1.
 656     p_of_megan2cbmz( 85) = is_mbo_3m2e1ol          ; p_of_cbmz( 85) = p_par      ; cbmz_per_megan( 85)  =  3.
 657     p_of_megan2cbmz( 86) = is_mbo_3m3e1ol          ; p_of_cbmz( 86) = p_hcho     ; cbmz_per_megan( 86)  =  1.
 658     p_of_megan2cbmz( 87) = is_mbo_3m3e1ol          ; p_of_cbmz( 87) = p_par      ; cbmz_per_megan( 87)  =  4.
 659     p_of_megan2cbmz( 88) = is_benzaldehyde         ; p_of_cbmz( 88) = p_tol      ; cbmz_per_megan( 88)  =  1.
 660     p_of_megan2cbmz( 89) = is_butanone_2           ; p_of_cbmz( 89) = p_ket      ; cbmz_per_megan( 89)  =  1.
 661     p_of_megan2cbmz( 90) = is_butanone_2           ; p_of_cbmz( 90) = p_par      ; cbmz_per_megan( 90)  =  1.
 662     p_of_megan2cbmz( 91) = is_decanal              ; p_of_cbmz( 91) = p_ald      ; cbmz_per_megan( 91)  =  1.
 663     p_of_megan2cbmz( 92) = is_decanal              ; p_of_cbmz( 92) = p_par      ; cbmz_per_megan( 92)  =  8.
 664     p_of_megan2cbmz( 93) = is_dodecene_1           ; p_of_cbmz( 93) = p_olt      ; cbmz_per_megan( 93)  =  1.
 665     p_of_megan2cbmz( 94) = is_dodecene_1           ; p_of_cbmz( 94) = p_par      ; cbmz_per_megan( 94)  =  10.
 666     p_of_megan2cbmz( 95) = is_geranyl_acetone      ; p_of_cbmz( 95) = p_iso      ; cbmz_per_megan( 95)  =  3.
 667     p_of_megan2cbmz( 96) = is_heptanal             ; p_of_cbmz( 96) = p_ald      ; cbmz_per_megan( 96)  =  1.
 668     p_of_megan2cbmz( 97) = is_heptanal             ; p_of_cbmz( 97) = p_par      ; cbmz_per_megan( 97)  =  5.
 669     p_of_megan2cbmz( 98) = is_heptane              ; p_of_cbmz( 98) = p_par      ; cbmz_per_megan( 98)  =  7.
 670     p_of_megan2cbmz( 99) = is_hexane               ; p_of_cbmz( 99) = p_par      ; cbmz_per_megan( 99)  =  6.
 671     p_of_megan2cbmz(100) = is_met_benzoate         ; p_of_cbmz(100) = p_tol      ; cbmz_per_megan(100)  =  1.
 672     p_of_megan2cbmz(101) = is_met_heptenone        ; p_of_cbmz(101) = p_ket      ; cbmz_per_megan(101)  =  1.
 673     p_of_megan2cbmz(102) = is_met_heptenone        ; p_of_cbmz(102) = p_par      ; cbmz_per_megan(102)  =  3.
 674     p_of_megan2cbmz(103) = is_met_heptenone        ; p_of_cbmz(103) = p_olt      ; cbmz_per_megan(103)  =  1.
 675     p_of_megan2cbmz(104) = is_neryl_acetone        ; p_of_cbmz(104) = p_ket      ; cbmz_per_megan(104)  =  1.
 676     p_of_megan2cbmz(105) = is_neryl_acetone        ; p_of_cbmz(105) = p_par      ; cbmz_per_megan(105)  =  8.
 677     p_of_megan2cbmz(106) = is_neryl_acetone        ; p_of_cbmz(106) = p_oli      ; cbmz_per_megan(106)  =  2.
 678     p_of_megan2cbmz(107) = is_nonanal              ; p_of_cbmz(107) = p_ald      ; cbmz_per_megan(107)  =  1.
 679     p_of_megan2cbmz(108) = is_nonanal              ; p_of_cbmz(108) = p_par      ; cbmz_per_megan(108)  =  7.
 680     p_of_megan2cbmz(109) = is_nonenal              ; p_of_cbmz(109) = p_ald      ; cbmz_per_megan(109)  =  1.
 681     p_of_megan2cbmz(110) = is_nonenal              ; p_of_cbmz(110) = p_par      ; cbmz_per_megan(110)  =  6.
 682     p_of_megan2cbmz(111) = is_nonenal              ; p_of_cbmz(111) = p_oli      ; cbmz_per_megan(111)  =  1.
 683     p_of_megan2cbmz(112) = is_octanal              ; p_of_cbmz(112) = p_ald      ; cbmz_per_megan(112)  =  1.
 684     p_of_megan2cbmz(113) = is_octanal              ; p_of_cbmz(113) = p_par      ; cbmz_per_megan(113)  =  6.
 685     p_of_megan2cbmz(114) = is_octanol              ; p_of_cbmz(114) = p_par      ; cbmz_per_megan(114)  =  8.
 686     p_of_megan2cbmz(115) = is_octenol_1e3ol        ; p_of_cbmz(115) = p_par      ; cbmz_per_megan(115)  =  6.
 687     p_of_megan2cbmz(116) = is_octenol_1e3ol        ; p_of_cbmz(116) = p_olt      ; cbmz_per_megan(116)  =  1.
 688     p_of_megan2cbmz(117) = is_oxopentanal          ; p_of_cbmz(117) = p_ald      ; cbmz_per_megan(117)  =  1.
 689     p_of_megan2cbmz(118) = is_oxopentanal          ; p_of_cbmz(118) = p_par      ; cbmz_per_megan(118)  =  3.
 690     p_of_megan2cbmz(119) = is_pentane              ; p_of_cbmz(119) = p_par      ; cbmz_per_megan(119)  =  5.
 691     p_of_megan2cbmz(120) = is_phenyl_cco           ; p_of_cbmz(120) = p_ald      ; cbmz_per_megan(120)  =  1
 692     p_of_megan2cbmz(121) = is_phenyl_cco           ; p_of_cbmz(121) = p_tol      ; cbmz_per_megan(121)  =  1.
 693     p_of_megan2cbmz(122) = is_pyruvic_acid         ; p_of_cbmz(122) = p_ora1     ; cbmz_per_megan(122)  =  1.
 694     p_of_megan2cbmz(123) = is_pyruvic_acid         ; p_of_cbmz(123) = p_ket      ; cbmz_per_megan(123)  =  1.
 695     p_of_megan2cbmz(124) = is_terpinyl_act_a       ; p_of_cbmz(124) = p_iso      ; cbmz_per_megan(124)  =  2.
 696     p_of_megan2cbmz(125) = is_tetradecene_1        ; p_of_cbmz(125) = p_par      ; cbmz_per_megan(125)  =  12.
 697     p_of_megan2cbmz(126) = is_tetradecene_1        ; p_of_cbmz(126) = p_olt      ; cbmz_per_megan(126)  =  1.
 698     p_of_megan2cbmz(127) = is_toluene              ; p_of_cbmz(127) = p_tol      ; cbmz_per_megan(127)  =  1.
 699     p_of_megan2cbmz(128) = is_carbon_monoxide      ; p_of_cbmz(128) = p_co       ; cbmz_per_megan(128)  =  1.
 700     p_of_megan2cbmz(129) = is_butene               ; p_of_cbmz(129) = p_olt      ; cbmz_per_megan(129)  =  1.
 701     p_of_megan2cbmz(130) = is_butene               ; p_of_cbmz(130) = p_par      ; cbmz_per_megan(130)  =  2.
 702     p_of_megan2cbmz(131) = is_ethane               ; p_of_cbmz(131) = p_eth      ; cbmz_per_megan(131)  =  1.
 703     p_of_megan2cbmz(132) = is_ethene               ; p_of_cbmz(132) = p_ol2      ; cbmz_per_megan(132)  =  1.
 704     p_of_megan2cbmz(133) = is_hydrogen_cyanide     ; p_of_cbmz(133) = non_react  ; cbmz_per_megan(133)  =  1.
 705     p_of_megan2cbmz(134) = is_propane              ; p_of_cbmz(134) = p_par      ; cbmz_per_megan(134)  =  3.
 706     p_of_megan2cbmz(135) = is_propene              ; p_of_cbmz(135) = p_olt      ; cbmz_per_megan(135)  =  1.
 707     p_of_megan2cbmz(136) = is_propene              ; p_of_cbmz(136) = p_par      ; cbmz_per_megan(136)  =  1.
 708     p_of_megan2cbmz(137) = is_carbon_2s            ; p_of_cbmz(137) = non_react  ; cbmz_per_megan(137)  =  1.
 709     p_of_megan2cbmz(138) = is_carbonyl_s           ; p_of_cbmz(138) = non_react  ; cbmz_per_megan(138)  =  1.
 710     p_of_megan2cbmz(139) = is_diallyl_2s           ; p_of_cbmz(139) = p_dms      ; cbmz_per_megan(139)  =  1.
 711     p_of_megan2cbmz(140) = is_diallyl_2s           ; p_of_cbmz(140) = p_par      ; cbmz_per_megan(140)  =  2.
 712     p_of_megan2cbmz(141) = is_diallyl_2s           ; p_of_cbmz(141) = p_olt      ; cbmz_per_megan(141)  =  2.
 713     p_of_megan2cbmz(142) = is_2met_2s              ; p_of_cbmz(142) = p_dms      ; cbmz_per_megan(142)  =  1.
 714     p_of_megan2cbmz(143) = is_2met_s               ; p_of_cbmz(143) = p_dms      ; cbmz_per_megan(143)  =  1.
 715     p_of_megan2cbmz(144) = is_met_chloride         ; p_of_cbmz(144) = non_react  ; cbmz_per_megan(144)  =  1.
 716     p_of_megan2cbmz(145) = is_met_bromide          ; p_of_cbmz(145) = non_react  ; cbmz_per_megan(145)  =  1.
 717     p_of_megan2cbmz(146) = is_met_iodide           ; p_of_cbmz(146) = non_react  ; cbmz_per_megan(146)  =  1.
 718     p_of_megan2cbmz(147) = is_hydrogen_s           ; p_of_cbmz(147) = non_react  ; cbmz_per_megan(147)  =  1.
 719     p_of_megan2cbmz(148) = is_met_mercaptan        ; p_of_cbmz(148) = p_par      ; cbmz_per_megan(148)  =  1.
 720     p_of_megan2cbmz(149) = is_met_propenyl_2s      ; p_of_cbmz(149) = p_dms      ; cbmz_per_megan(149)  =  1.
 721     p_of_megan2cbmz(150) = is_met_propenyl_2s      ; p_of_cbmz(150) = p_oli      ; cbmz_per_megan(150)  =  1.
 722     p_of_megan2cbmz(151) = is_pppp_2s              ; p_of_cbmz(151) = p_dms      ; cbmz_per_megan(151)  =  1.
 723     p_of_megan2cbmz(152) = is_pppp_2s              ; p_of_cbmz(152) = p_par      ; cbmz_per_megan(152)  =  2.
 724     p_of_megan2cbmz(153) = is_pppp_2s              ; p_of_cbmz(153) = p_oli      ; cbmz_per_megan(153)  =  1.
 725     p_of_megan2cbmz(154) = is_2met_nonatriene      ; p_of_cbmz(154) = p_iso      ; cbmz_per_megan(154)  =  2.
 726     p_of_megan2cbmz(155) = is_met_salicylate       ; p_of_cbmz(155) = p_tol      ; cbmz_per_megan(155)  =  1.
 727     p_of_megan2cbmz(156) = is_indole               ; p_of_cbmz(156) = p_tol      ; cbmz_per_megan(156)  =  1.
 728     p_of_megan2cbmz(157) = is_jasmone              ; p_of_cbmz(157) = p_iso      ; cbmz_per_megan(157)  =  2.
 729     p_of_megan2cbmz(158) = is_met_jasmonate        ; p_of_cbmz(158) = p_iso      ; cbmz_per_megan(158)  =  3.
 730     p_of_megan2cbmz(159) = is_3met_3dctt           ; p_of_cbmz(159) = p_iso      ; cbmz_per_megan(159)  =  3.
 731     p_of_megan2cbmz(160) = is_hexanal              ; p_of_cbmz(160) = p_ald      ; cbmz_per_megan(160)  =  1.
 732     p_of_megan2cbmz(161) = is_hexanal              ; p_of_cbmz(161) = p_par      ; cbmz_per_megan(161)  =  4.
 733     p_of_megan2cbmz(162) = is_hexanol_1            ; p_of_cbmz(162) = p_par      ; cbmz_per_megan(162)  =  6.
 734     p_of_megan2cbmz(163) = is_hexenal_c3           ; p_of_cbmz(163) = p_ald      ; cbmz_per_megan(163)  =  1.
 735     p_of_megan2cbmz(164) = is_hexenal_c3           ; p_of_cbmz(164) = p_par      ; cbmz_per_megan(164)  =  3.
 736     p_of_megan2cbmz(165) = is_hexenal_c3           ; p_of_cbmz(165) = p_oli      ; cbmz_per_megan(165)  =  1
 737     p_of_megan2cbmz(166) = is_hexenal_t2           ; p_of_cbmz(166) = p_ald      ; cbmz_per_megan(166)  =  1.
 738     p_of_megan2cbmz(167) = is_hexenal_t2           ; p_of_cbmz(167) = p_par      ; cbmz_per_megan(167)  =  6.
 739     p_of_megan2cbmz(168) = is_hexenal_t2           ; p_of_cbmz(168) = p_oli      ; cbmz_per_megan(168)  =  1.
 740     p_of_megan2cbmz(169) = is_hexenol_c3           ; p_of_cbmz(169) = p_par      ; cbmz_per_megan(169)  =  5.
 741     p_of_megan2cbmz(170) = is_hexenol_c3           ; p_of_cbmz(170) = p_oli      ; cbmz_per_megan(170)  =  1.
 742     p_of_megan2cbmz(171) = is_hexenyl_act_c3       ; p_of_cbmz(171) = p_ket      ; cbmz_per_megan(171)  =  1.
 743     p_of_megan2cbmz(172) = is_hexenyl_act_c3       ; p_of_cbmz(172) = p_par      ; cbmz_per_megan(172)  =  3.
 744     p_of_megan2cbmz(173) = is_hexenyl_act_c3       ; p_of_cbmz(173) = p_oli      ; cbmz_per_megan(173)  =  1.
 745
 746   END SUBROUTINE get_megan2cbmz_table
 747
 748
 749   !--------------------------------------------------------------------
 750
 751   SUBROUTINE get_megan2radm2_table
 752
 753     ! For MEGAN v2.04 species conversion to RADM2 species
 754     ! Based on Tan's MAP_CV2RADM2.EXT
 755
 756
 757     ! Index of                                   Index of                      Molar ratio
 758     ! MEGAN species                              RADM2 Species
 759     !
 760     p_of_megan2radm2(  1) = is_isoprene        ; p_of_radm2(  1) = p_iso     ; radm2_per_megan(  1)   =   1.000
 761     p_of_megan2radm2(  2) = is_myrcene         ; p_of_radm2(  2) = p_olt     ; radm2_per_megan(  2)   =   0.5
 762     p_of_megan2radm2(  3) = is_myrcene         ; p_of_radm2(  3) = p_oli     ; radm2_per_megan(  3)   =   0.5
 763     p_of_megan2radm2(  4) = is_sabinene        ; p_of_radm2(  4) = p_olt     ; radm2_per_megan(  4)   =   1.000
 764     p_of_megan2radm2(  5) = is_limonene        ; p_of_radm2(  5) = p_olt     ; radm2_per_megan(  5)   =   0.5
 765     p_of_megan2radm2(  6) = is_limonene        ; p_of_radm2(  6) = p_oli     ; radm2_per_megan(  6)   =   0.5
 766     p_of_megan2radm2(  7) = is_carene_3        ; p_of_radm2(  7) = p_oli     ; radm2_per_megan(  7)   =   1.000
 767     p_of_megan2radm2(  8) = is_ocimene_t_b     ; p_of_radm2(  8) = p_olt     ; radm2_per_megan(  8)   =   0.5
 768     p_of_megan2radm2(  9) = is_ocimene_t_b     ; p_of_radm2(  9) = p_oli     ; radm2_per_megan(  9)   =   0.5
 769     p_of_megan2radm2( 10) = is_pinene_b        ; p_of_radm2( 10) = p_olt     ; radm2_per_megan( 10)   =   1.000
 770     p_of_megan2radm2( 11) = is_pinene_a        ; p_of_radm2( 11) = p_oli     ; radm2_per_megan( 11)   =   1.000
 771     p_of_megan2radm2( 12) = is_2met_styrene    ; p_of_radm2( 12) = p_tol     ; radm2_per_megan( 12)   =   1.000
 772     p_of_megan2radm2( 13) = is_cymene_p        ; p_of_radm2( 13) = p_tol     ; radm2_per_megan( 13)   =   1.000
 773     p_of_megan2radm2( 14) = is_cymene_o        ; p_of_radm2( 14) = p_tol     ; radm2_per_megan( 14)   =   1.000
 774     p_of_megan2radm2( 15) = is_phellandrene_a  ; p_of_radm2( 15) = p_oli     ; radm2_per_megan( 15)   =   1.000
 775     p_of_megan2radm2( 16) = is_thujene_a       ; p_of_radm2( 16) = p_oli     ; radm2_per_megan( 16)   =   1.000
 776     p_of_megan2radm2( 17) = is_terpinene_a     ; p_of_radm2( 17) = p_oli     ; radm2_per_megan( 17)   =   1.000
 777     p_of_megan2radm2( 18) = is_terpinene_g     ; p_of_radm2( 18) = p_oli     ; radm2_per_megan( 18)   =   1.000
 778     p_of_megan2radm2( 19) = is_terpinolene     ; p_of_radm2( 19) = p_oli     ; radm2_per_megan( 19)   =   1.000
 779     p_of_megan2radm2( 20) = is_phellandrene_b  ; p_of_radm2( 20) = p_olt     ; radm2_per_megan( 20)   =   0.5
 780     p_of_megan2radm2( 21) = is_phellandrene_b  ; p_of_radm2( 21) = p_oli     ; radm2_per_megan( 21)   =   0.5
 781     p_of_megan2radm2( 22) = is_camphene        ; p_of_radm2( 22) = p_olt     ; radm2_per_megan( 22)   =   1.000
 782     p_of_megan2radm2( 23) = is_bornene         ; p_of_radm2( 23) = p_oli     ; radm2_per_megan( 23)   =   1.000
 783     p_of_megan2radm2( 24) = is_fenchene_a      ; p_of_radm2( 24) = p_olt     ; radm2_per_megan( 24)   =   1.000
 784     p_of_megan2radm2( 25) = is_ocimene_al      ; p_of_radm2( 25) = p_oli     ; radm2_per_megan( 25)   =   1.000
 785     p_of_megan2radm2( 26) = is_ocimene_c_b     ; p_of_radm2( 26) = p_olt     ; radm2_per_megan( 26)   =   0.5
 786     p_of_megan2radm2( 27) = is_ocimene_c_b     ; p_of_radm2( 27) = p_oli     ; radm2_per_megan( 27)   =   0.5
 787     p_of_megan2radm2( 28) = is_tricyclene      ; p_of_radm2( 28) = non_react ; radm2_per_megan( 28)   =   1.000
 788     p_of_megan2radm2( 29) = is_estragole       ; p_of_radm2( 29) = p_olt     ; radm2_per_megan( 29)   =   1.000
 789     p_of_megan2radm2( 30) = is_camphor         ; p_of_radm2( 30) = p_hc8     ; radm2_per_megan( 30)   =   0.388
 790     p_of_megan2radm2( 31) = is_fenchone        ; p_of_radm2( 31) = non_react ; radm2_per_megan( 31)   =   1.000
 791     p_of_megan2radm2( 32) = is_piperitone      ; p_of_radm2( 32) = p_olt     ; radm2_per_megan( 32)   =   1.000
 792     p_of_megan2radm2( 33) = is_thujone_a       ; p_of_radm2( 33) = non_react ; radm2_per_megan( 33)   =   1.000
 793     p_of_megan2radm2( 34) = is_thujone_b       ; p_of_radm2( 34) = non_react ; radm2_per_megan( 34)   =   1.000
 794     p_of_megan2radm2( 35) = is_cineole_1_8     ; p_of_radm2( 35) = p_hc8     ; radm2_per_megan( 35)   =   0.755
 795     p_of_megan2radm2( 36) = is_borneol         ; p_of_radm2( 36) = non_react ; radm2_per_megan( 36)   =   1.000
 796     p_of_megan2radm2( 37) = is_linalool        ; p_of_radm2( 37) = p_olt     ; radm2_per_megan( 37)   =   0.5
 797     p_of_megan2radm2( 38) = is_linalool        ; p_of_radm2( 38) = p_oli     ; radm2_per_megan( 38)   =   0.5
 798     p_of_megan2radm2( 39) = is_terpineol_4     ; p_of_radm2( 39) = p_oli     ; radm2_per_megan( 39)   =   1.000
 799     p_of_megan2radm2( 40) = is_terpineol_a     ; p_of_radm2( 40) = p_oli     ; radm2_per_megan( 40)   =   1.000
 800     p_of_megan2radm2( 41) = is_linalool_oxd_c  ; p_of_radm2( 41) = p_olt     ; radm2_per_megan( 41)   =   1.000
 801     p_of_megan2radm2( 42) = is_linalool_oxd_t  ; p_of_radm2( 42) = p_olt     ; radm2_per_megan( 42)   =   1.000
 802     p_of_megan2radm2( 43) = is_ionone_b        ; p_of_radm2( 43) = p_oli     ; radm2_per_megan( 43)   =   1.000
 803     p_of_megan2radm2( 44) = is_bornyl_act      ; p_of_radm2( 44) = non_react ; radm2_per_megan( 44)   =   1.000
 804     p_of_megan2radm2( 45) = is_farnescene_a    ; p_of_radm2( 45) = p_olt     ; radm2_per_megan( 45)   =   0.5
 805     p_of_megan2radm2( 46) = is_farnescene_a    ; p_of_radm2( 46) = p_oli     ; radm2_per_megan( 46)   =   0.5
 806     p_of_megan2radm2( 47) = is_caryophyllene_b ; p_of_radm2( 47) = p_olt     ; radm2_per_megan( 47)   =   0.5
 807     p_of_megan2radm2( 48) = is_caryophyllene_b ; p_of_radm2( 48) = p_oli     ; radm2_per_megan( 48)   =   0.5
 808     p_of_megan2radm2( 49) = is_acoradiene      ; p_of_radm2( 49) = p_olt     ; radm2_per_megan( 49)   =   0.5
 809     p_of_megan2radm2( 50) = is_acoradiene      ; p_of_radm2( 50) = p_oli     ; radm2_per_megan( 50)   =   0.5
 810     p_of_megan2radm2( 51) = is_aromadendrene   ; p_of_radm2( 51) = p_olt     ; radm2_per_megan( 51)   =   1.000
 811     p_of_megan2radm2( 52) = is_bergamotene_a   ; p_of_radm2( 52) = p_oli     ; radm2_per_megan( 52)   =   1.000
 812     p_of_megan2radm2( 53) = is_bergamotene_b   ; p_of_radm2( 53) = p_olt     ; radm2_per_megan( 53)   =   0.5
 813     p_of_megan2radm2( 54) = is_bergamotene_b   ; p_of_radm2( 54) = p_oli     ; radm2_per_megan( 54)   =   0.5
 814     p_of_megan2radm2( 55) = is_bisabolene_a    ; p_of_radm2( 55) = p_oli     ; radm2_per_megan( 55)   =   1.000
 815     p_of_megan2radm2( 56) = is_bisabolene_b    ; p_of_radm2( 56) = p_olt     ; radm2_per_megan( 56)   =   0.5
 816     p_of_megan2radm2( 57) = is_bisabolene_b    ; p_of_radm2( 57) = p_oli     ; radm2_per_megan( 57)   =   0.5
 817     p_of_megan2radm2( 58) = is_bourbonene_b    ; p_of_radm2( 58) = p_olt     ; radm2_per_megan( 58)   =   1.000
 818     p_of_megan2radm2( 59) = is_cadinene_d      ; p_of_radm2( 59) = p_oli     ; radm2_per_megan( 59)   =   1.000
 819     p_of_megan2radm2( 60) = is_cadinene_g      ; p_of_radm2( 60) = p_olt     ; radm2_per_megan( 60)   =   0.5
 820     p_of_megan2radm2( 61) = is_cadinene_g      ; p_of_radm2( 61) = p_oli     ; radm2_per_megan( 61)   =   0.5
 821     p_of_megan2radm2( 62) = is_cedrene_a       ; p_of_radm2( 62) = p_oli     ; radm2_per_megan( 62)   =   1.000
 822     p_of_megan2radm2( 63) = is_copaene_a       ; p_of_radm2( 63) = p_oli     ; radm2_per_megan( 63)   =   1.000
 823     p_of_megan2radm2( 64) = is_cubebene_a      ; p_of_radm2( 64) = p_oli     ; radm2_per_megan( 64)   =   1.000
 824     p_of_megan2radm2( 65) = is_cubebene_b      ; p_of_radm2( 65) = p_olt     ; radm2_per_megan( 65)   =   1.000
 825     p_of_megan2radm2( 66) = is_elemene_b       ; p_of_radm2( 66) = p_olt     ; radm2_per_megan( 66)   =   1.000
 826     p_of_megan2radm2( 67) = is_farnescene_b    ; p_of_radm2( 67) = p_olt     ; radm2_per_megan( 67)   =   0.5
 827     p_of_megan2radm2( 68) = is_farnescene_b    ; p_of_radm2( 68) = p_oli     ; radm2_per_megan( 68)   =   0.5
 828     p_of_megan2radm2( 69) = is_germacrene_b    ; p_of_radm2( 69) = p_oli     ; radm2_per_megan( 69)   =   1.000
 829     p_of_megan2radm2( 70) = is_germacrene_d    ; p_of_radm2( 70) = p_olt     ; radm2_per_megan( 70)   =   0.5
 830     p_of_megan2radm2( 71) = is_germacrene_d    ; p_of_radm2( 71) = p_oli     ; radm2_per_megan( 71)   =   0.5
 831     p_of_megan2radm2( 72) = is_gurjunene_b     ; p_of_radm2( 72) = p_oli     ; radm2_per_megan( 72)   =   1.000
 832     p_of_megan2radm2( 73) = is_humulene_a      ; p_of_radm2( 73) = p_oli     ; radm2_per_megan( 73)   =   1.000
 833     p_of_megan2radm2( 74) = is_humulene_g      ; p_of_radm2( 74) = p_oli     ; radm2_per_megan( 74)   =   1.000
 834     p_of_megan2radm2( 75) = is_isolongifolene  ; p_of_radm2( 75) = p_oli     ; radm2_per_megan( 75)   =   1.000
 835     p_of_megan2radm2( 76) = is_longifolene     ; p_of_radm2( 76) = p_olt     ; radm2_per_megan( 76)   =   1.000
 836     p_of_megan2radm2( 77) = is_longipinene     ; p_of_radm2( 77) = p_oli     ; radm2_per_megan( 77)   =   1.000
 837     p_of_megan2radm2( 78) = is_muurolene_a     ; p_of_radm2( 78) = p_oli     ; radm2_per_megan( 78)   =   1.000
 838     p_of_megan2radm2( 79) = is_muurolene_g     ; p_of_radm2( 79) = p_olt     ; radm2_per_megan( 79)   =   0.5
 839     p_of_megan2radm2( 80) = is_muurolene_g     ; p_of_radm2( 80) = p_oli     ; radm2_per_megan( 80)   =   0.5
 840     p_of_megan2radm2( 81) = is_selinene_b      ; p_of_radm2( 81) = p_olt     ; radm2_per_megan( 81)   =   1.000
 841     p_of_megan2radm2( 82) = is_selinene_d      ; p_of_radm2( 82) = p_oli     ; radm2_per_megan( 82)   =   1.000
 842     p_of_megan2radm2( 83) = is_nerolidol_c     ; p_of_radm2( 83) = p_olt     ; radm2_per_megan( 83)   =   0.5
 843     p_of_megan2radm2( 84) = is_nerolidol_c     ; p_of_radm2( 84) = p_oli     ; radm2_per_megan( 84)   =   0.5
 844     p_of_megan2radm2( 85) = is_nerolidol_t     ; p_of_radm2( 85) = p_olt     ; radm2_per_megan( 85)   =   0.5
 845     p_of_megan2radm2( 86) = is_nerolidol_t     ; p_of_radm2( 86) = p_oli     ; radm2_per_megan( 86)   =   0.5
 846     p_of_megan2radm2( 87) = is_cedrol          ; p_of_radm2( 87) = non_react ; radm2_per_megan( 87)   =   1.000
 847     p_of_megan2radm2( 88) = is_mbo_2m3e2ol     ; p_of_radm2( 88) = p_iso     ; radm2_per_megan( 88)   =   1.000
 848     p_of_megan2radm2( 89) = is_methanol        ; p_of_radm2( 89) = p_hc3     ; radm2_per_megan( 89)   =   0.402
 849     p_of_megan2radm2( 90) = is_acetone         ; p_of_radm2( 90) = p_ket     ; radm2_per_megan( 90)   =   0.253
 850     p_of_megan2radm2( 91) = is_methane         ; p_of_radm2( 91) = p_ch4     ; radm2_per_megan( 91)   =   1.000
 851     p_of_megan2radm2( 92) = is_ammonia         ; p_of_radm2( 92) = p_nh3     ; radm2_per_megan( 92)   =   1.000
 852     p_of_megan2radm2( 93) = is_nitrous_oxd     ; p_of_radm2( 93) = p_no2     ; radm2_per_megan( 93)   =   1.000
 853     p_of_megan2radm2( 94) = is_nitric_oxd      ; p_of_radm2( 94) = p_no      ; radm2_per_megan( 94)   =   1.000
 854     p_of_megan2radm2( 95) = is_acetaldehyde    ; p_of_radm2( 95) = p_ald     ; radm2_per_megan( 95)   =   1.000
 855     p_of_megan2radm2( 96) = is_ethanol         ; p_of_radm2( 96) = p_hc3     ; radm2_per_megan( 96)   =   1.198
 856     p_of_megan2radm2( 97) = is_formic_acid     ; p_of_radm2( 97) = p_ora1    ; radm2_per_megan( 97)   =   1.000
 857     p_of_megan2radm2( 98) = is_formaldehyde    ; p_of_radm2( 98) = p_hcho    ; radm2_per_megan( 98)   =   1.000
 858     p_of_megan2radm2( 99) = is_acetic_acid     ; p_of_radm2( 99) = p_ora2    ; radm2_per_megan( 99)   =   1.000
 859     p_of_megan2radm2(100) = is_mbo_3m2e1ol     ; p_of_radm2(100) = p_iso     ; radm2_per_megan(100)   =   1.000
 860     p_of_megan2radm2(101) = is_mbo_3m3e1ol     ; p_of_radm2(101) = p_iso     ; radm2_per_megan(101)   =   1.000
 861     p_of_megan2radm2(102) = is_benzaldehyde    ; p_of_radm2(102) = non_react ; radm2_per_megan(102)   =   1.000
 862     p_of_megan2radm2(103) = is_butanone_2      ; p_of_radm2(103) = p_ket     ; radm2_per_megan(103)   =   1.000
 863     p_of_megan2radm2(104) = is_decanal         ; p_of_radm2(104) = p_ald     ; radm2_per_megan(104)   =   1.000
 864     p_of_megan2radm2(105) = is_dodecene_1      ; p_of_radm2(105) = p_olt     ; radm2_per_megan(105)   =   1.000
 865     p_of_megan2radm2(106) = is_geranyl_acetone ; p_of_radm2(106) = p_oli     ; radm2_per_megan(106)   =   1.000
 866     p_of_megan2radm2(107) = is_heptanal        ; p_of_radm2(107) = p_ald     ; radm2_per_megan(107)   =   1.000
 867     p_of_megan2radm2(108) = is_heptane         ; p_of_radm2(108) = p_hc5     ; radm2_per_megan(108)   =   1.226
 868     p_of_megan2radm2(109) = is_hexane          ; p_of_radm2(109) = p_hc5     ; radm2_per_megan(109)   =   1.049
 869     p_of_megan2radm2(110) = is_met_benzoate    ; p_of_radm2(110) = p_hc8     ; radm2_per_megan(110)   =   1.000
 870     p_of_megan2radm2(111) = is_met_heptenone   ; p_of_radm2(111) = p_oli     ; radm2_per_megan(111)   =   1.000
 871     p_of_megan2radm2(112) = is_neryl_acetone   ; p_of_radm2(112) = p_oli     ; radm2_per_megan(112)   =   1.000
 872     p_of_megan2radm2(113) = is_nonanal         ; p_of_radm2(113) = p_ald     ; radm2_per_megan(113)   =   1.000
 873     p_of_megan2radm2(114) = is_nonenal         ; p_of_radm2(114) = p_ald     ; radm2_per_megan(114)   =   1.000
 874     p_of_megan2radm2(115) = is_nonenal         ; p_of_radm2(115) = p_hc8     ; radm2_per_megan(115)   =   1.000
 875     p_of_megan2radm2(116) = is_octanal         ; p_of_radm2(116) = p_ald     ; radm2_per_megan(116)   =   1.000
 876     p_of_megan2radm2(117) = is_octanol         ; p_of_radm2(117) = p_hc8     ; radm2_per_megan(117)   =   1.119
 877     p_of_megan2radm2(118) = is_octenol_1e3ol   ; p_of_radm2(118) = p_olt     ; radm2_per_megan(118)   =   1.000
 878     p_of_megan2radm2(119) = is_oxopentanal     ; p_of_radm2(119) = p_ald     ; radm2_per_megan(119)   =   1.000
 879     p_of_megan2radm2(120) = is_pentane         ; p_of_radm2(120) = p_hc5     ; radm2_per_megan(120)   =   0.847
 880     p_of_megan2radm2(121) = is_phenyl_cco      ; p_of_radm2(121) = non_react ; radm2_per_megan(121)   =   1.000
 881     p_of_megan2radm2(122) = is_pyruvic_acid    ; p_of_radm2(122) = p_ora2    ; radm2_per_megan(122)   =   1.000
 882     p_of_megan2radm2(123) = is_terpinyl_act_a  ; p_of_radm2(123) = p_oli     ; radm2_per_megan(123)   =   1.000
 883     p_of_megan2radm2(124) = is_tetradecene_1   ; p_of_radm2(124) = p_olt     ; radm2_per_megan(124)   =   1.000
 884     p_of_megan2radm2(125) = is_toluene         ; p_of_radm2(125) = p_tol     ; radm2_per_megan(125)   =   1.000
 885     p_of_megan2radm2(126) = is_carbon_monoxide ; p_of_radm2(126) = p_co      ; radm2_per_megan(126)   =   1.000
 886     p_of_megan2radm2(127) = is_butene          ; p_of_radm2(127) = p_olt     ; radm2_per_megan(127)   =   1.000
 887     p_of_megan2radm2(128) = is_ethane          ; p_of_radm2(128) = p_eth     ; radm2_per_megan(128)   =   1.000
 888     p_of_megan2radm2(129) = is_ethene          ; p_of_radm2(129) = p_ol2     ; radm2_per_megan(129)   =   1.000
 889     p_of_megan2radm2(130) = is_hydrogen_cyanide; p_of_radm2(130) = non_react ; radm2_per_megan(130)   =   1.000
 890     p_of_megan2radm2(131) = is_propane         ; p_of_radm2(131) = p_hc3     ; radm2_per_megan(131)   =   0.519
 891     p_of_megan2radm2(132) = is_propene         ; p_of_radm2(132) = p_olt     ; radm2_per_megan(132)   =   1.000
 892     p_of_megan2radm2(133) = is_carbon_2s       ; p_of_radm2(133) = non_react ; radm2_per_megan(133)   =   1.000
 893     p_of_megan2radm2(134) = is_carbonyl_s      ; p_of_radm2(134) = non_react ; radm2_per_megan(134)   =   1.000
 894     p_of_megan2radm2(135) = is_diallyl_2s      ; p_of_radm2(135) = p_oli     ; radm2_per_megan(135)   =   1.000
 895     p_of_megan2radm2(136) = is_diallyl_2s      ; p_of_radm2(136) = p_so2     ; radm2_per_megan(136)   =   2.000
 896     p_of_megan2radm2(137) = is_2met_2s         ; p_of_radm2(137) = p_eth     ; radm2_per_megan(137)   =   1.000
 897     p_of_megan2radm2(138) = is_2met_2s         ; p_of_radm2(138) = p_so2     ; radm2_per_megan(138)   =   2.000
 898     p_of_megan2radm2(139) = is_2met_s          ; p_of_radm2(139) = p_eth     ; radm2_per_megan(139)   =   1.000
 899     p_of_megan2radm2(140) = is_2met_s          ; p_of_radm2(140) = p_so2     ; radm2_per_megan(140)   =   1.000
 900     p_of_megan2radm2(141) = is_met_chloride    ; p_of_radm2(141) = non_react ; radm2_per_megan(141)   =   1.000
 901     p_of_megan2radm2(142) = is_met_bromide     ; p_of_radm2(142) = non_react ; radm2_per_megan(142)   =   1.000
 902     p_of_megan2radm2(143) = is_met_iodide      ; p_of_radm2(143) = non_react ; radm2_per_megan(143)   =   1.000
 903     p_of_megan2radm2(144) = is_hydrogen_s      ; p_of_radm2(144) = p_so2     ; radm2_per_megan(144)   =   1.000
 904     p_of_megan2radm2(145) = is_met_mercaptan   ; p_of_radm2(145) = p_ch4     ; radm2_per_megan(145)   =   1.000
 905     p_of_megan2radm2(146) = is_met_mercaptan   ; p_of_radm2(146) = p_so2     ; radm2_per_megan(146)   =   1.000
 906     p_of_megan2radm2(147) = is_met_propenyl_2s ; p_of_radm2(147) = p_oli     ; radm2_per_megan(147)   =   1.000
 907     p_of_megan2radm2(148) = is_met_propenyl_2s ; p_of_radm2(148) = p_so2     ; radm2_per_megan(148)   =   2.000
 908     p_of_megan2radm2(149) = is_pppp_2s         ; p_of_radm2(149) = p_oli     ; radm2_per_megan(149)   =   1.000
 909     p_of_megan2radm2(150) = is_pppp_2s         ; p_of_radm2(150) = p_so2     ; radm2_per_megan(150)   =   2.000
 910     p_of_megan2radm2(151) = is_2met_nonatriene ; p_of_radm2(151) = p_olt     ; radm2_per_megan(151)   =   0.500
 911     p_of_megan2radm2(152) = is_2met_nonatriene ; p_of_radm2(152) = p_oli     ; radm2_per_megan(152)   =   0.500
 912     p_of_megan2radm2(153) = is_met_salicylate  ; p_of_radm2(153) = p_hc8     ; radm2_per_megan(153)   =   1.000
 913     p_of_megan2radm2(154) = is_indole          ; p_of_radm2(154) = p_hc8     ; radm2_per_megan(154)   =   1.238
 914     p_of_megan2radm2(155) = is_indole          ; p_of_radm2(155) = p_hno3    ; radm2_per_megan(155)   =   1.000
 915     p_of_megan2radm2(156) = is_jasmone         ; p_of_radm2(156) = p_oli     ; radm2_per_megan(156)   =   1.000
 916     p_of_megan2radm2(157) = is_met_jasmonate   ; p_of_radm2(157) = p_oli     ; radm2_per_megan(157)   =   1.000
 917     p_of_megan2radm2(158) = is_3met_3dctt      ; p_of_radm2(158) = p_olt     ; radm2_per_megan(158)   =   0.500
 918     p_of_megan2radm2(159) = is_3met_3dctt      ; p_of_radm2(159) = p_oli     ; radm2_per_megan(159)   =   0.500
 919     p_of_megan2radm2(160) = is_hexanal         ; p_of_radm2(160) = p_ald     ; radm2_per_megan(160)   =   1.000
 920     p_of_megan2radm2(161) = is_hexanol_1       ; p_of_radm2(161) = p_hc5     ; radm2_per_megan(161)   =   1.697
 921     p_of_megan2radm2(162) = is_hexenal_c3      ; p_of_radm2(162) = p_oli     ; radm2_per_megan(162)   =   1.000
 922     p_of_megan2radm2(163) = is_hexenal_t2      ; p_of_radm2(163) = p_oli     ; radm2_per_megan(163)   =   1.000
 923     p_of_megan2radm2(164) = is_hexenol_c3      ; p_of_radm2(164) = p_olt     ; radm2_per_megan(164)   =   1.000
 924     p_of_megan2radm2(165) = is_hexenyl_act_c3  ; p_of_radm2(165) = p_oli     ; radm2_per_megan(165)   =   1.000
 925
 926   END SUBROUTINE get_megan2radm2_table
 927
 928
 929   !--------------------------------------------------------------------
 930
 931   SUBROUTINE get_megan2racm_table
 932
 933     ! For MEGAN v2.04 species conversion to RACM species
 934     ! Based on Tan's MAP_CV2RACM.EXT
 935
 936     !
 937     ! Index of                                   Index of                      Molar ratio
 938     ! MEGAN species                              RACM Species
 939     !
 940
 941     p_of_megan2racm(  1) = is_isoprene         ; p_of_racm(  1) = p_iso     ;  racm_per_megan(  1)    =  1.000
 942     p_of_megan2racm(  2) = is_myrcene          ; p_of_racm(  2) = p_lim     ;  racm_per_megan(  2)    =  1.000
 943     p_of_megan2racm(  3) = is_sabinene         ; p_of_racm(  3) = p_api     ;  racm_per_megan(  3)    =  1.000
 944     p_of_megan2racm(  4) = is_limonene         ; p_of_racm(  4) = p_lim     ;  racm_per_megan(  4)    =  1.000
 945     p_of_megan2racm(  5) = is_carene_3         ; p_of_racm(  5) = p_api     ;  racm_per_megan(  5)    =  1.000
 946     p_of_megan2racm(  6) = is_ocimene_t_b      ; p_of_racm(  6) = p_lim     ;  racm_per_megan(  6)    =  1.000
 947     p_of_megan2racm(  7) = is_pinene_b         ; p_of_racm(  7) = p_api     ;  racm_per_megan(  7)    =  1.000
 948     p_of_megan2racm(  8) = is_pinene_a         ; p_of_racm(  8) = p_api     ;  racm_per_megan(  8)    =  1.000
 949     p_of_megan2racm(  9) = is_2met_styrene     ; p_of_racm(  9) = p_lim     ;  racm_per_megan(  9)    =  1.000
 950     p_of_megan2racm( 10) = is_cymene_p         ; p_of_racm( 10) = p_lim     ;  racm_per_megan( 10)    =  1.000
 951     p_of_megan2racm( 11) = is_cymene_o         ; p_of_racm( 11) = p_lim     ;  racm_per_megan( 11)    =  1.000
 952     p_of_megan2racm( 12) = is_phellandrene_a   ; p_of_racm( 12) = p_lim     ;  racm_per_megan( 12)    =  1.000
 953     p_of_megan2racm( 13) = is_thujene_a        ; p_of_racm( 13) = p_api     ;  racm_per_megan( 13)    =  1.000
 954     p_of_megan2racm( 14) = is_terpinene_a      ; p_of_racm( 14) = p_lim     ;  racm_per_megan( 14)    =  1.000
 955     p_of_megan2racm( 15) = is_terpinene_g      ; p_of_racm( 15) = p_lim     ;  racm_per_megan( 15)    =  1.000
 956     p_of_megan2racm( 16) = is_terpinolene      ; p_of_racm( 16) = p_lim     ;  racm_per_megan( 16)    =  1.000
 957     p_of_megan2racm( 17) = is_phellandrene_b   ; p_of_racm( 17) = p_lim     ;  racm_per_megan( 17)    =  1.000
 958     p_of_megan2racm( 18) = is_camphene         ; p_of_racm( 18) = p_api     ;  racm_per_megan( 18)    =  1.000
 959     p_of_megan2racm( 19) = is_bornene          ; p_of_racm( 19) = p_api     ;  racm_per_megan( 19)    =  1.000
 960     p_of_megan2racm( 20) = is_fenchene_a       ; p_of_racm( 20) = p_api     ;  racm_per_megan( 20)    =  1.000
 961     p_of_megan2racm( 21) = is_ocimene_al       ; p_of_racm( 21) = p_lim     ;  racm_per_megan( 21)    =  1.000
 962     p_of_megan2racm( 22) = is_ocimene_c_b      ; p_of_racm( 22) = p_lim     ;  racm_per_megan( 22)    =  1.000
 963     p_of_megan2racm( 23) = is_tricyclene       ; p_of_racm( 23) = non_react ;  racm_per_megan( 23)    =  1.000
 964     p_of_megan2racm( 24) = is_estragole        ; p_of_racm( 24) = p_lim     ;  racm_per_megan( 24)    =  1.000
 965     p_of_megan2racm( 25) = is_camphor          ; p_of_racm( 25) = p_hc8     ;  racm_per_megan( 25)    =  0.380
 966     p_of_megan2racm( 26) = is_fenchone         ; p_of_racm( 26) = non_react ;  racm_per_megan( 26)    =  1.000
 967     p_of_megan2racm( 27) = is_piperitone       ; p_of_racm( 27) = p_api     ;  racm_per_megan( 27)    =  1.000
 968     p_of_megan2racm( 28) = is_thujone_a        ; p_of_racm( 28) = non_react ;  racm_per_megan( 28)    =  1.000
 969     p_of_megan2racm( 29) = is_thujone_b        ; p_of_racm( 29) = non_react ;  racm_per_megan( 29)    =  1.000
 970     p_of_megan2racm( 30) = is_cineole_1_8      ; p_of_racm( 30) = p_hc8     ;  racm_per_megan( 30)    =  0.738
 971     p_of_megan2racm( 31) = is_borneol          ; p_of_racm( 31) = non_react ;  racm_per_megan( 31)    =  1.000
 972     p_of_megan2racm( 32) = is_linalool         ; p_of_racm( 32) = p_lim     ;  racm_per_megan( 32)    =  1.000
 973     p_of_megan2racm( 33) = is_terpineol_4      ; p_of_racm( 33) = p_api     ;  racm_per_megan( 33)    =  1.000
 974     p_of_megan2racm( 34) = is_terpineol_a      ; p_of_racm( 34) = p_api     ;  racm_per_megan( 34)    =  1.000
 975     p_of_megan2racm( 35) = is_linalool_oxd_c   ; p_of_racm( 35) = p_lim     ;  racm_per_megan( 35)    =  1.000
 976     p_of_megan2racm( 36) = is_linalool_oxd_t   ; p_of_racm( 36) = p_lim     ;  racm_per_megan( 36)    =  1.000
 977     p_of_megan2racm( 37) = is_ionone_b         ; p_of_racm( 37) = p_lim     ;  racm_per_megan( 37)    =  1.000
 978     p_of_megan2racm( 38) = is_bornyl_act       ; p_of_racm( 38) = non_react ;  racm_per_megan( 38)    =  1.000
 979     p_of_megan2racm( 39) = is_farnescene_a     ; p_of_racm( 39) = p_lim     ;  racm_per_megan( 39)    =  1.000
 980     p_of_megan2racm( 40) = is_caryophyllene_b  ; p_of_racm( 40) = p_lim     ;  racm_per_megan( 40)    =  1.000
 981     p_of_megan2racm( 41) = is_acoradiene       ; p_of_racm( 41) = p_lim     ;  racm_per_megan( 41)    =  1.000
 982     p_of_megan2racm( 42) = is_aromadendrene    ; p_of_racm( 42) = p_api     ;  racm_per_megan( 42)    =  1.000
 983     p_of_megan2racm( 43) = is_bergamotene_a    ; p_of_racm( 43) = p_lim     ;  racm_per_megan( 43)    =  1.000
 984     p_of_megan2racm( 44) = is_bergamotene_b    ; p_of_racm( 44) = p_lim     ;  racm_per_megan( 44)    =  1.000
 985     p_of_megan2racm( 45) = is_bisabolene_a     ; p_of_racm( 45) = p_lim     ;  racm_per_megan( 45)    =  1.000
 986     p_of_megan2racm( 46) = is_bisabolene_b     ; p_of_racm( 46) = p_lim     ;  racm_per_megan( 46)    =  1.000
 987     p_of_megan2racm( 47) = is_bourbonene_b     ; p_of_racm( 47) = p_api     ;  racm_per_megan( 47)    =  1.000
 988     p_of_megan2racm( 48) = is_cadinene_d       ; p_of_racm( 48) = p_lim     ;  racm_per_megan( 48)    =  1.000
 989     p_of_megan2racm( 49) = is_cadinene_g       ; p_of_racm( 49) = p_lim     ;  racm_per_megan( 49)    =  1.000
 990     p_of_megan2racm( 50) = is_cedrene_a        ; p_of_racm( 50) = p_api     ;  racm_per_megan( 50)    =  1.000
 991     p_of_megan2racm( 51) = is_copaene_a        ; p_of_racm( 51) = p_api     ;  racm_per_megan( 51)    =  1.000
 992     p_of_megan2racm( 52) = is_cubebene_a       ; p_of_racm( 52) = p_api     ;  racm_per_megan( 52)    =  1.000
 993     p_of_megan2racm( 53) = is_cubebene_b       ; p_of_racm( 53) = p_api     ;  racm_per_megan( 53)    =  1.000
 994     p_of_megan2racm( 54) = is_elemene_b        ; p_of_racm( 54) = p_lim     ;  racm_per_megan( 54)    =  1.000
 995     p_of_megan2racm( 55) = is_farnescene_b     ; p_of_racm( 55) = p_lim     ;  racm_per_megan( 55)    =  1.000
 996     p_of_megan2racm( 56) = is_germacrene_b     ; p_of_racm( 56) = p_lim     ;  racm_per_megan( 56)    =  1.000
 997     p_of_megan2racm( 57) = is_germacrene_d     ; p_of_racm( 57) = p_lim     ;  racm_per_megan( 57)    =  1.000
 998     p_of_megan2racm( 58) = is_gurjunene_b      ; p_of_racm( 58) = p_api     ;  racm_per_megan( 58)    =  1.000
 999     p_of_megan2racm( 59) = is_humulene_a       ; p_of_racm( 59) = p_lim     ;  racm_per_megan( 59)    =  1.000
1000     p_of_megan2racm( 60) = is_humulene_g       ; p_of_racm( 60) = p_lim     ;  racm_per_megan( 60)    =  1.000
1001     p_of_megan2racm( 61) = is_isolongifolene   ; p_of_racm( 61) = p_api     ;  racm_per_megan( 61)    =  1.000
1002     p_of_megan2racm( 62) = is_longifolene      ; p_of_racm( 62) = p_api     ;  racm_per_megan( 62)    =  1.000
1003     p_of_megan2racm( 63) = is_longipinene      ; p_of_racm( 63) = p_api     ;  racm_per_megan( 63)    =  1.000
1004     p_of_megan2racm( 64) = is_muurolene_a      ; p_of_racm( 64) = p_lim     ;  racm_per_megan( 64)    =  1.000
1005     p_of_megan2racm( 65) = is_muurolene_g      ; p_of_racm( 65) = p_lim     ;  racm_per_megan( 65)    =  1.000
1006     p_of_megan2racm( 66) = is_selinene_b       ; p_of_racm( 66) = p_lim     ;  racm_per_megan( 66)    =  1.000
1007     p_of_megan2racm( 67) = is_selinene_d       ; p_of_racm( 67) = p_lim     ;  racm_per_megan( 67)    =  1.000
1008     p_of_megan2racm( 68) = is_nerolidol_c      ; p_of_racm( 68) = p_lim     ;  racm_per_megan( 68)    =  1.000
1009     p_of_megan2racm( 69) = is_nerolidol_t      ; p_of_racm( 69) = p_lim     ;  racm_per_megan( 69)    =  1.000
1010     p_of_megan2racm( 70) = is_cedrol           ; p_of_racm( 70) = non_react ;  racm_per_megan( 70)    =  1.000
1011     p_of_megan2racm( 71) = is_mbo_2m3e2ol      ; p_of_racm( 71) = p_iso     ;  racm_per_megan( 71)    =  1.000
1012     p_of_megan2racm( 72) = is_methanol         ; p_of_racm( 72) = p_hc3     ;  racm_per_megan( 72)    =  0.490
1013     p_of_megan2racm( 73) = is_acetone          ; p_of_racm( 73) = p_ket     ;  racm_per_megan( 73)    =  0.330
1014     p_of_megan2racm( 74) = is_methane          ; p_of_racm( 74) = p_ch4     ;  racm_per_megan( 74)    =  1.000
1015     p_of_megan2racm( 75) = is_ammonia          ; p_of_racm( 75) = p_nh3     ;  racm_per_megan( 75)    =  1.000
1016     p_of_megan2racm( 76) = is_nitrous_oxd      ; p_of_racm( 76) = p_no2     ;  racm_per_megan( 76)    =  1.000
1017     p_of_megan2racm( 77) = is_nitric_oxd       ; p_of_racm( 77) = p_no      ;  racm_per_megan( 77)    =  1.000
1018     p_of_megan2racm( 78) = is_acetaldehyde     ; p_of_racm( 78) = p_ald     ;  racm_per_megan( 78)    =  1.000
1019     p_of_megan2racm( 79) = is_ethanol          ; p_of_racm( 79) = p_hc3     ;  racm_per_megan( 79)    =  1.370
1020     p_of_megan2racm( 80) = is_formic_acid      ; p_of_racm( 80) = p_ora1    ;  racm_per_megan( 80)    =  1.000
1021     p_of_megan2racm( 81) = is_formaldehyde     ; p_of_racm( 81) = p_hcho    ;  racm_per_megan( 81)    =  1.000
1022     p_of_megan2racm( 82) = is_acetic_acid      ; p_of_racm( 82) = p_ora2    ;  racm_per_megan( 82)    =  1.000
1023     p_of_megan2racm( 83) = is_mbo_3m2e1ol      ; p_of_racm( 83) = p_iso     ;  racm_per_megan( 83)    =  1.000
1024     p_of_megan2racm( 84) = is_mbo_3m3e1ol      ; p_of_racm( 84) = p_iso     ;  racm_per_megan( 84)    =  1.000
1025     p_of_megan2racm( 85) = is_benzaldehyde     ; p_of_racm( 85) = non_react ;  racm_per_megan( 85)    =  1.000
1026     p_of_megan2racm( 86) = is_butanone_2       ; p_of_racm( 86) = p_ket     ;  racm_per_megan( 86)    =  1.610
1027     p_of_megan2racm( 87) = is_decanal          ; p_of_racm( 87) = p_ald     ;  racm_per_megan( 87)    =  1.000
1028     p_of_megan2racm( 88) = is_dodecene_1       ; p_of_racm( 88) = p_olt     ;  racm_per_megan( 88)    =  1.000
1029     p_of_megan2racm( 89) = is_geranyl_acetone  ; p_of_racm( 89) = p_lim     ;  racm_per_megan( 89)    =  1.000
1030     p_of_megan2racm( 90) = is_heptanal         ; p_of_racm( 90) = p_ald     ;  racm_per_megan( 90)    =  1.000
1031     p_of_megan2racm( 91) = is_heptane          ; p_of_racm( 91) = p_hc5     ;  racm_per_megan( 91)    =  1.236
1032     p_of_megan2racm( 92) = is_hexane           ; p_of_racm( 92) = p_hc5     ;  racm_per_megan( 92)    =  1.058
1033     p_of_megan2racm( 93) = is_met_benzoate     ; p_of_racm( 93) = p_hc8     ;  racm_per_megan( 93)    =  1.000
1034     p_of_megan2racm( 94) = is_met_heptenone    ; p_of_racm( 94) = p_oli     ;  racm_per_megan( 94)    =  1.000
1035     p_of_megan2racm( 95) = is_neryl_acetone    ; p_of_racm( 95) = p_oli     ;  racm_per_megan( 95)    =  1.000
1036     p_of_megan2racm( 96) = is_nonanal          ; p_of_racm( 96) = p_ald     ;  racm_per_megan( 96)    =  1.000
1037     p_of_megan2racm( 97) = is_nonenal          ; p_of_racm( 97) = p_hc8     ;  racm_per_megan( 97)    =  1.000
1038     p_of_megan2racm( 98) = is_nonenal          ; p_of_racm( 98) = p_ald     ;  racm_per_megan( 98)    =  1.000
1039     p_of_megan2racm( 99) = is_octanal          ; p_of_racm( 99) = p_ald     ;  racm_per_megan( 99)    =  1.000
1040     p_of_megan2racm(100) = is_octanol          ; p_of_racm(100) = p_hc8     ;  racm_per_megan(100)    =  1.092
1041     p_of_megan2racm(101) = is_octenol_1e3ol    ; p_of_racm(101) = p_olt     ;  racm_per_megan(101)    =  1.000
1042     p_of_megan2racm(102) = is_oxopentanal      ; p_of_racm(102) = p_ald     ;  racm_per_megan(102)    =  1.000
1043     p_of_megan2racm(103) = is_pentane          ; p_of_racm(103) = p_hc5     ;  racm_per_megan(103)    =  0.854
1044     p_of_megan2racm(104) = is_phenyl_cco       ; p_of_racm(104) = non_react ;  racm_per_megan(104)    =  1.000
1045     p_of_megan2racm(105) = is_pyruvic_acid     ; p_of_racm(105) = p_ora2    ;  racm_per_megan(105)    =  1.000
1046     p_of_megan2racm(106) = is_terpinyl_act_a   ; p_of_racm(106) = p_api     ;  racm_per_megan(106)    =  1.000
1047     p_of_megan2racm(107) = is_tetradecene_1    ; p_of_racm(107) = p_olt     ;  racm_per_megan(107)    =  1.000
1048     p_of_megan2racm(108) = is_toluene          ; p_of_racm(108) = p_tol     ;  racm_per_megan(108)    =  1.000
1049     p_of_megan2racm(109) = is_carbon_monoxide  ; p_of_racm(109) = p_co      ;  racm_per_megan(109)    =  1.000
1050     p_of_megan2racm(110) = is_butene           ; p_of_racm(110) = p_olt     ;  racm_per_megan(110)    =  1.000
1051     p_of_megan2racm(111) = is_ethane           ; p_of_racm(111) = p_eth     ;  racm_per_megan(111)    =  1.000
1052     p_of_megan2racm(112) = is_ethene           ; p_of_racm(112) = p_ete     ;  racm_per_megan(112)    =  1.000
1053     p_of_megan2racm(113) = is_hydrogen_cyanide ; p_of_racm(113) = non_react ;  racm_per_megan(113)    =  1.000
1054     p_of_megan2racm(114) = is_propane          ; p_of_racm(114) = p_hc3     ;  racm_per_megan(114)    =  0.570
1055     p_of_megan2racm(115) = is_propene          ; p_of_racm(115) = p_olt     ;  racm_per_megan(115)    =  1.000
1056     p_of_megan2racm(116) = is_carbon_2s        ; p_of_racm(116) = non_react ;  racm_per_megan(116)    =  1.000
1057     p_of_megan2racm(117) = is_carbonyl_s       ; p_of_racm(117) = non_react ;  racm_per_megan(117)    =  1.000
1058     p_of_megan2racm(118) = is_diallyl_2s       ; p_of_racm(118) = p_oli     ;  racm_per_megan(118)    =  1.000
1059     p_of_megan2racm(119) = is_diallyl_2s       ; p_of_racm(119) = p_so2     ;  racm_per_megan(119)    =  2.000
1060     p_of_megan2racm(120) = is_2met_2s          ; p_of_racm(120) = p_eth     ;  racm_per_megan(120)    =  1.000
1061     p_of_megan2racm(121) = is_2met_2s          ; p_of_racm(121) = p_so2     ;  racm_per_megan(121)    =  2.000
1062     p_of_megan2racm(122) = is_2met_s           ; p_of_racm(122) = p_eth     ;  racm_per_megan(122)    =  1.000
1063     p_of_megan2racm(123) = is_2met_s           ; p_of_racm(123) = p_so2     ;  racm_per_megan(123)    =  1.000
1064     p_of_megan2racm(124) = is_met_chloride     ; p_of_racm(124) = non_react ;  racm_per_megan(124)    =  1.000
1065     p_of_megan2racm(125) = is_met_bromide      ; p_of_racm(125) = non_react ;  racm_per_megan(125)    =  1.000
1066     p_of_megan2racm(126) = is_met_iodide       ; p_of_racm(126) = non_react ;  racm_per_megan(126)    =  1.000
1067     p_of_megan2racm(127) = is_hydrogen_s       ; p_of_racm(127) = p_so2     ;  racm_per_megan(127)    =  1.000
1068     p_of_megan2racm(128) = is_met_mercaptan    ; p_of_racm(128) = p_ch4     ;  racm_per_megan(128)    =  1.000
1069     p_of_megan2racm(129) = is_met_mercaptan    ; p_of_racm(129) = p_so2     ;  racm_per_megan(129)    =  1.000
1070     p_of_megan2racm(130) = is_met_propenyl_2s  ; p_of_racm(130) = p_oli     ;  racm_per_megan(130)    =  1.000
1071     p_of_megan2racm(131) = is_met_propenyl_2s  ; p_of_racm(131) = p_so2     ;  racm_per_megan(131)    =  2.000
1072     p_of_megan2racm(132) = is_pppp_2s          ; p_of_racm(132) = p_oli     ;  racm_per_megan(132)    =  1.000
1073     p_of_megan2racm(133) = is_pppp_2s          ; p_of_racm(133) = p_so2     ;  racm_per_megan(133)    =  2.000
1074     p_of_megan2racm(134) = is_2met_nonatriene  ; p_of_racm(134) = p_lim     ;  racm_per_megan(134)    =  1.000
1075     p_of_megan2racm(135) = is_met_salicylate   ; p_of_racm(135) = p_hc8     ;  racm_per_megan(135)    =  1.000
1076     p_of_megan2racm(136) = is_indole           ; p_of_racm(136) = p_hc8     ;  racm_per_megan(136)    =  1.201
1077     p_of_megan2racm(137) = is_indole           ; p_of_racm(137) = p_hno3    ;  racm_per_megan(137)    =  1.000
1078     p_of_megan2racm(138) = is_jasmone          ; p_of_racm(138) = p_lim     ;  racm_per_megan(138)    =  1.000
1079     p_of_megan2racm(139) = is_met_jasmonate    ; p_of_racm(139) = p_lim     ;  racm_per_megan(139)    =  1.000
1080     p_of_megan2racm(140) = is_3met_3dctt       ; p_of_racm(140) = p_oli     ;  racm_per_megan(140)    =  0.500
1081     p_of_megan2racm(141) = is_3met_3dctt       ; p_of_racm(141) = p_olt     ;  racm_per_megan(141)    =  0.500
1082     p_of_megan2racm(142) = is_hexanal          ; p_of_racm(142) = p_ald     ;  racm_per_megan(142)    =  1.000
1083     p_of_megan2racm(143) = is_hexanol_1        ; p_of_racm(143) = p_hc5     ;  racm_per_megan(143)    =  1.710
1084     p_of_megan2racm(144) = is_hexenal_c3       ; p_of_racm(144) = p_oli     ;  racm_per_megan(144)    =  1.000
1085     p_of_megan2racm(145) = is_hexenal_t2       ; p_of_racm(145) = p_oli     ;  racm_per_megan(145)    =  1.000
1086     p_of_megan2racm(146) = is_hexenol_c3       ; p_of_racm(146) = p_olt     ;  racm_per_megan(146)    =  1.000
1087     p_of_megan2racm(147) = is_hexenyl_act_c3   ; p_of_racm(147) = p_oli     ;  racm_per_megan(147)    =  1.000
1088
1089   END SUBROUTINE get_megan2racm_table
1090
1091
1092
1093
1094   SUBROUTINE  get_megan2racmSOA_table
1095
1096     ! For MEGAN v2.04 species conversion to RACM_SOA_VBD_KPP species
1097     ! Based on Tan's MAP_CV2RACM.EXT
1098
1099     !
1100     ! Index of                                   Index of                            Molar ratio
1101     ! MEGAN species                              RACM Species
1102     !
1103
1104     p_of_megan2racmSOA(  1) = is_isoprene         ; p_of_racmSOA(  1) = p_iso     ;  racmSOA_per_megan(  1)    =  1.000
1105     p_of_megan2racmSOA(  2) = is_myrcene          ; p_of_racmSOA(  2) = p_lim     ;  racmSOA_per_megan(  2)    =  1.000
1106     p_of_megan2racmSOA(  3) = is_sabinene         ; p_of_racmSOA(  3) = p_api     ;  racmSOA_per_megan(  3)    =  1.000
1107     p_of_megan2racmSOA(  4) = is_limonene         ; p_of_racmSOA(  4) = p_lim     ;  racmSOA_per_megan(  4)    =  1.000
1108     p_of_megan2racmSOA(  5) = is_carene_3         ; p_of_racmSOA(  5) = p_api     ;  racmSOA_per_megan(  5)    =  1.000
1109     p_of_megan2racmSOA(  6) = is_ocimene_t_b      ; p_of_racmSOA(  6) = p_lim     ;  racmSOA_per_megan(  6)    =  1.000
1110     p_of_megan2racmSOA(  7) = is_pinene_b         ; p_of_racmSOA(  7) = p_api     ;  racmSOA_per_megan(  7)    =  1.000
1111     p_of_megan2racmSOA(  8) = is_pinene_a         ; p_of_racmSOA(  8) = p_api     ;  racmSOA_per_megan(  8)    =  1.000
1112     p_of_megan2racmSOA(  9) = is_2met_styrene     ; p_of_racmSOA(  9) = p_lim     ;  racmSOA_per_megan(  9)    =  1.000
1113     p_of_megan2racmSOA( 10) = is_cymene_p         ; p_of_racmSOA( 10) = p_lim     ;  racmSOA_per_megan( 10)    =  1.000
1114     p_of_megan2racmSOA( 11) = is_cymene_o         ; p_of_racmSOA( 11) = p_lim     ;  racmSOA_per_megan( 11)    =  1.000
1115     p_of_megan2racmSOA( 12) = is_phellandrene_a   ; p_of_racmSOA( 12) = p_lim     ;  racmSOA_per_megan( 12)    =  1.000
1116     p_of_megan2racmSOA( 13) = is_thujene_a        ; p_of_racmSOA( 13) = p_api     ;  racmSOA_per_megan( 13)    =  1.000
1117     p_of_megan2racmSOA( 14) = is_terpinene_a      ; p_of_racmSOA( 14) = p_lim     ;  racmSOA_per_megan( 14)    =  1.000
1118     p_of_megan2racmSOA( 15) = is_terpinene_g      ; p_of_racmSOA( 15) = p_lim     ;  racmSOA_per_megan( 15)    =  1.000
1119     p_of_megan2racmSOA( 16) = is_terpinolene      ; p_of_racmSOA( 16) = p_lim     ;  racmSOA_per_megan( 16)    =  1.000
1120     p_of_megan2racmSOA( 17) = is_phellandrene_b   ; p_of_racmSOA( 17) = p_lim     ;  racmSOA_per_megan( 17)    =  1.000
1121     p_of_megan2racmSOA( 18) = is_camphene         ; p_of_racmSOA( 18) = p_api     ;  racmSOA_per_megan( 18)    =  1.000
1122     p_of_megan2racmSOA( 19) = is_bornene          ; p_of_racmSOA( 19) = p_api     ;  racmSOA_per_megan( 19)    =  1.000
1123     p_of_megan2racmSOA( 20) = is_fenchene_a       ; p_of_racmSOA( 20) = p_api     ;  racmSOA_per_megan( 20)    =  1.000
1124     p_of_megan2racmSOA( 21) = is_ocimene_al       ; p_of_racmSOA( 21) = p_lim     ;  racmSOA_per_megan( 21)    =  1.000
1125     p_of_megan2racmSOA( 22) = is_ocimene_c_b      ; p_of_racmSOA( 22) = p_lim     ;  racmSOA_per_megan( 22)    =  1.000
1126     p_of_megan2racmSOA( 23) = is_tricyclene       ; p_of_racmSOA( 23) = non_react ;  racmSOA_per_megan( 23)    =  1.000
1127     p_of_megan2racmSOA( 24) = is_estragole        ; p_of_racmSOA( 24) = p_lim     ;  racmSOA_per_megan( 24)    =  1.000
1128     p_of_megan2racmSOA( 25) = is_camphor          ; p_of_racmSOA( 25) = p_hc8     ;  racmSOA_per_megan( 25)    =  0.380
1129     p_of_megan2racmSOA( 26) = is_fenchone         ; p_of_racmSOA( 26) = non_react ;  racmSOA_per_megan( 26)    =  1.000
1130     p_of_megan2racmSOA( 27) = is_piperitone       ; p_of_racmSOA( 27) = p_api     ;  racmSOA_per_megan( 27)    =  1.000
1131     p_of_megan2racmSOA( 28) = is_thujone_a        ; p_of_racmSOA( 28) = non_react ;  racmSOA_per_megan( 28)    =  1.000
1132     p_of_megan2racmSOA( 29) = is_thujone_b        ; p_of_racmSOA( 29) = non_react ;  racmSOA_per_megan( 29)    =  1.000
1133     p_of_megan2racmSOA( 30) = is_cineole_1_8      ; p_of_racmSOA( 30) = p_hc8     ;  racmSOA_per_megan( 30)    =  0.738
1134     p_of_megan2racmSOA( 31) = is_borneol          ; p_of_racmSOA( 31) = non_react ;  racmSOA_per_megan( 31)    =  1.000
1135     p_of_megan2racmSOA( 32) = is_linalool         ; p_of_racmSOA( 32) = p_lim     ;  racmSOA_per_megan( 32)    =  1.000
1136     p_of_megan2racmSOA( 33) = is_terpineol_4      ; p_of_racmSOA( 33) = p_api     ;  racmSOA_per_megan( 33)    =  1.000
1137     p_of_megan2racmSOA( 34) = is_terpineol_a      ; p_of_racmSOA( 34) = p_api     ;  racmSOA_per_megan( 34)    =  1.000
1138     p_of_megan2racmSOA( 35) = is_linalool_oxd_c   ; p_of_racmSOA( 35) = p_lim     ;  racmSOA_per_megan( 35)    =  1.000
1139     p_of_megan2racmSOA( 36) = is_linalool_oxd_t   ; p_of_racmSOA( 36) = p_lim     ;  racmSOA_per_megan( 36)    =  1.000
1140     p_of_megan2racmSOA( 37) = is_ionone_b         ; p_of_racmSOA( 37) = p_lim     ;  racmSOA_per_megan( 37)    =  1.000
1141     p_of_megan2racmSOA( 38) = is_bornyl_act       ; p_of_racmSOA( 38) = non_react ;  racmSOA_per_megan( 38)    =  1.000
1142     p_of_megan2racmSOA( 39) = is_farnescene_a     ; p_of_racmSOA( 39) = p_lim     ;  racmSOA_per_megan( 39)    =  1.000
1143     p_of_megan2racmSOA( 40) = is_caryophyllene_b  ; p_of_racmSOA( 40) = p_lim     ;  racmSOA_per_megan( 40)    =  1.000
1144     p_of_megan2racmSOA( 41) = is_acoradiene       ; p_of_racmSOA( 41) = p_lim     ;  racmSOA_per_megan( 41)    =  1.000
1145     p_of_megan2racmSOA( 42) = is_aromadendrene    ; p_of_racmSOA( 42) = p_api     ;  racmSOA_per_megan( 42)    =  1.000
1146     p_of_megan2racmSOA( 43) = is_bergamotene_a    ; p_of_racmSOA( 43) = p_lim     ;  racmSOA_per_megan( 43)    =  1.000
1147     p_of_megan2racmSOA( 44) = is_bergamotene_b    ; p_of_racmSOA( 44) = p_lim     ;  racmSOA_per_megan( 44)    =  1.000
1148     p_of_megan2racmSOA( 45) = is_bisabolene_a     ; p_of_racmSOA( 45) = p_lim     ;  racmSOA_per_megan( 45)    =  1.000
1149     p_of_megan2racmSOA( 46) = is_bisabolene_b     ; p_of_racmSOA( 46) = p_lim     ;  racmSOA_per_megan( 46)    =  1.000
1150     p_of_megan2racmSOA( 47) = is_bourbonene_b     ; p_of_racmSOA( 47) = p_api     ;  racmSOA_per_megan( 47)    =  1.000
1151     p_of_megan2racmSOA( 48) = is_cadinene_d       ; p_of_racmSOA( 48) = p_lim     ;  racmSOA_per_megan( 48)    =  1.000
1152     p_of_megan2racmSOA( 49) = is_cadinene_g       ; p_of_racmSOA( 49) = p_lim     ;  racmSOA_per_megan( 49)    =  1.000
1153     p_of_megan2racmSOA( 50) = is_cedrene_a        ; p_of_racmSOA( 50) = p_api     ;  racmSOA_per_megan( 50)    =  1.000
1154     p_of_megan2racmSOA( 51) = is_copaene_a        ; p_of_racmSOA( 51) = p_api     ;  racmSOA_per_megan( 51)    =  1.000
1155     p_of_megan2racmSOA( 52) = is_cubebene_a       ; p_of_racmSOA( 52) = p_api     ;  racmSOA_per_megan( 52)    =  1.000
1156     p_of_megan2racmSOA( 53) = is_cubebene_b       ; p_of_racmSOA( 53) = p_api     ;  racmSOA_per_megan( 53)    =  1.000
1157     p_of_megan2racmSOA( 54) = is_elemene_b        ; p_of_racmSOA( 54) = p_lim     ;  racmSOA_per_megan( 54)    =  1.000
1158     p_of_megan2racmSOA( 55) = is_farnescene_b     ; p_of_racmSOA( 55) = p_lim     ;  racmSOA_per_megan( 55)    =  1.000
1159     p_of_megan2racmSOA( 56) = is_germacrene_b     ; p_of_racmSOA( 56) = p_lim     ;  racmSOA_per_megan( 56)    =  1.000
1160     p_of_megan2racmSOA( 57) = is_germacrene_d     ; p_of_racmSOA( 57) = p_lim     ;  racmSOA_per_megan( 57)    =  1.000
1161     p_of_megan2racmSOA( 58) = is_gurjunene_b      ; p_of_racmSOA( 58) = p_api     ;  racmSOA_per_megan( 58)    =  1.000
1162     p_of_megan2racmSOA( 59) = is_humulene_a       ; p_of_racmSOA( 59) = p_lim     ;  racmSOA_per_megan( 59)    =  1.000
1163     p_of_megan2racmSOA( 60) = is_humulene_g       ; p_of_racmSOA( 60) = p_lim     ;  racmSOA_per_megan( 60)    =  1.000
1164     p_of_megan2racmSOA( 61) = is_isolongifolene   ; p_of_racmSOA( 61) = p_api     ;  racmSOA_per_megan( 61)    =  1.000
1165     p_of_megan2racmSOA( 62) = is_longifolene      ; p_of_racmSOA( 62) = p_api     ;  racmSOA_per_megan( 62)    =  1.000
1166     p_of_megan2racmSOA( 63) = is_longipinene      ; p_of_racmSOA( 63) = p_api     ;  racmSOA_per_megan( 63)    =  1.000
1167     p_of_megan2racmSOA( 64) = is_muurolene_a      ; p_of_racmSOA( 64) = p_lim     ;  racmSOA_per_megan( 64)    =  1.000
1168     p_of_megan2racmSOA( 65) = is_muurolene_g      ; p_of_racmSOA( 65) = p_lim     ;  racmSOA_per_megan( 65)    =  1.000
1169     p_of_megan2racmSOA( 66) = is_selinene_b       ; p_of_racmSOA( 66) = p_lim     ;  racmSOA_per_megan( 66)    =  1.000
1170     p_of_megan2racmSOA( 67) = is_selinene_d       ; p_of_racmSOA( 67) = p_lim     ;  racmSOA_per_megan( 67)    =  1.000
1171     p_of_megan2racmSOA( 68) = is_nerolidol_c      ; p_of_racmSOA( 68) = p_lim     ;  racmSOA_per_megan( 68)    =  1.000
1172     p_of_megan2racmSOA( 69) = is_nerolidol_t      ; p_of_racmSOA( 69) = p_lim     ;  racmSOA_per_megan( 69)    =  1.000
1173     p_of_megan2racmSOA( 70) = is_cedrol           ; p_of_racmSOA( 70) = non_react ;  racmSOA_per_megan( 70)    =  1.000
1174     p_of_megan2racmSOA( 71) = is_mbo_2m3e2ol      ; p_of_racmSOA( 71) = p_mbo     ;  racmSOA_per_megan( 71)    =  1.000
1175     p_of_megan2racmSOA( 72) = is_methanol         ; p_of_racmSOA( 72) = p_hc3     ;  racmSOA_per_megan( 72)    =  0.490
1176     p_of_megan2racmSOA( 73) = is_acetone          ; p_of_racmSOA( 73) = p_ket     ;  racmSOA_per_megan( 73)    =  0.330
1177     p_of_megan2racmSOA( 74) = is_methane          ; p_of_racmSOA( 74) = p_ch4     ;  racmSOA_per_megan( 74)    =  1.000
1178     p_of_megan2racmSOA( 75) = is_ammonia          ; p_of_racmSOA( 75) = p_nh3     ;  racmSOA_per_megan( 75)    =  1.000
1179     p_of_megan2racmSOA( 76) = is_nitrous_oxd      ; p_of_racmSOA( 76) = p_no2     ;  racmSOA_per_megan( 76)    =  1.000
1180     p_of_megan2racmSOA( 77) = is_nitric_oxd       ; p_of_racmSOA( 77) = p_no      ;  racmSOA_per_megan( 77)    =  1.000
1181     p_of_megan2racmSOA( 78) = is_acetaldehyde     ; p_of_racmSOA( 78) = p_ald     ;  racmSOA_per_megan( 78)    =  1.000
1182     p_of_megan2racmSOA( 79) = is_ethanol          ; p_of_racmSOA( 79) = p_hc3     ;  racmSOA_per_megan( 79)    =  1.370
1183     p_of_megan2racmSOA( 80) = is_formic_acid      ; p_of_racmSOA( 80) = p_ora1    ;  racmSOA_per_megan( 80)    =  1.000
1184     p_of_megan2racmSOA( 81) = is_formaldehyde     ; p_of_racmSOA( 81) = p_hcho    ;  racmSOA_per_megan( 81)    =  1.000
1185     p_of_megan2racmSOA( 82) = is_acetic_acid      ; p_of_racmSOA( 82) = p_ora2    ;  racmSOA_per_megan( 82)    =  1.000
1186     p_of_megan2racmSOA( 83) = is_mbo_3m2e1ol      ; p_of_racmSOA( 83) = p_mbo     ;  racmSOA_per_megan( 83)    =  1.000
1187     p_of_megan2racmSOA( 84) = is_mbo_3m3e1ol      ; p_of_racmSOA( 84) = p_mbo     ;  racmSOA_per_megan( 84)    =  1.000
1188     p_of_megan2racmSOA( 85) = is_benzaldehyde     ; p_of_racmSOA( 85) = non_react ;  racmSOA_per_megan( 85)    =  1.000
1189     p_of_megan2racmSOA( 86) = is_butanone_2       ; p_of_racmSOA( 86) = p_ket     ;  racmSOA_per_megan( 86)    =  1.610
1190     p_of_megan2racmSOA( 87) = is_decanal          ; p_of_racmSOA( 87) = p_ald     ;  racmSOA_per_megan( 87)    =  1.000
1191     p_of_megan2racmSOA( 88) = is_dodecene_1       ; p_of_racmSOA( 88) = p_olt     ;  racmSOA_per_megan( 88)    =  1.000
1192     p_of_megan2racmSOA( 89) = is_geranyl_acetone  ; p_of_racmSOA( 89) = p_lim     ;  racmSOA_per_megan( 89)    =  1.000
1193     p_of_megan2racmSOA( 90) = is_heptanal         ; p_of_racmSOA( 90) = p_ald     ;  racmSOA_per_megan( 90)    =  1.000
1194     p_of_megan2racmSOA( 91) = is_heptane          ; p_of_racmSOA( 91) = p_hc5     ;  racmSOA_per_megan( 91)    =  1.236
1195     p_of_megan2racmSOA( 92) = is_hexane           ; p_of_racmSOA( 92) = p_hc5     ;  racmSOA_per_megan( 92)    =  1.058
1196     p_of_megan2racmSOA( 93) = is_met_benzoate     ; p_of_racmSOA( 93) = p_hc8     ;  racmSOA_per_megan( 93)    =  1.000
1197     p_of_megan2racmSOA( 94) = is_met_heptenone    ; p_of_racmSOA( 94) = p_oli     ;  racmSOA_per_megan( 94)    =  1.000
1198     p_of_megan2racmSOA( 95) = is_neryl_acetone    ; p_of_racmSOA( 95) = p_oli     ;  racmSOA_per_megan( 95)    =  1.000
1199     p_of_megan2racmSOA( 96) = is_nonanal          ; p_of_racmSOA( 96) = p_ald     ;  racmSOA_per_megan( 96)    =  1.000
1200     p_of_megan2racmSOA( 97) = is_nonenal          ; p_of_racmSOA( 97) = p_hc8     ;  racmSOA_per_megan( 97)    =  1.000
1201     p_of_megan2racmSOA( 98) = is_nonenal          ; p_of_racmSOA( 98) = p_ald     ;  racmSOA_per_megan( 98)    =  1.000
1202     p_of_megan2racmSOA( 99) = is_octanal          ; p_of_racmSOA( 99) = p_ald     ;  racmSOA_per_megan( 99)    =  1.000
1203     p_of_megan2racmSOA(100) = is_octanol          ; p_of_racmSOA(100) = p_hc8     ;  racmSOA_per_megan(100)    =  1.092
1204     p_of_megan2racmSOA(101) = is_octenol_1e3ol    ; p_of_racmSOA(101) = p_olt     ;  racmSOA_per_megan(101)    =  1.000
1205     p_of_megan2racmSOA(102) = is_oxopentanal      ; p_of_racmSOA(102) = p_ald     ;  racmSOA_per_megan(102)    =  1.000
1206     p_of_megan2racmSOA(103) = is_pentane          ; p_of_racmSOA(103) = p_hc5     ;  racmSOA_per_megan(103)    =  0.854
1207     p_of_megan2racmSOA(104) = is_phenyl_cco       ; p_of_racmSOA(104) = non_react ;  racmSOA_per_megan(104)    =  1.000
1208     p_of_megan2racmSOA(105) = is_pyruvic_acid     ; p_of_racmSOA(105) = p_ora2    ;  racmSOA_per_megan(105)    =  1.000
1209     p_of_megan2racmSOA(106) = is_terpinyl_act_a   ; p_of_racmSOA(106) = p_api     ;  racmSOA_per_megan(106)    =  1.000
1210     p_of_megan2racmSOA(107) = is_tetradecene_1    ; p_of_racmSOA(107) = p_olt     ;  racmSOA_per_megan(107)    =  1.000
1211     p_of_megan2racmSOA(108) = is_toluene          ; p_of_racmSOA(108) = p_tol     ;  racmSOA_per_megan(108)    =  1.000
1212     p_of_megan2racmSOA(109) = is_carbon_monoxide  ; p_of_racmSOA(109) = p_co      ;  racmSOA_per_megan(109)    =  1.000
1213     p_of_megan2racmSOA(110) = is_butene           ; p_of_racmSOA(110) = p_olt     ;  racmSOA_per_megan(110)    =  1.000
1214     p_of_megan2racmSOA(111) = is_ethane           ; p_of_racmSOA(111) = p_eth     ;  racmSOA_per_megan(111)    =  1.000
1215     p_of_megan2racmSOA(112) = is_ethene           ; p_of_racmSOA(112) = p_ete     ;  racmSOA_per_megan(112)    =  1.000
1216     p_of_megan2racmSOA(113) = is_hydrogen_cyanide ; p_of_racmSOA(113) = non_react ;  racmSOA_per_megan(113)    =  1.000
1217     p_of_megan2racmSOA(114) = is_propane          ; p_of_racmSOA(114) = p_hc3     ;  racmSOA_per_megan(114)    =  0.570
1218     p_of_megan2racmSOA(115) = is_propene          ; p_of_racmSOA(115) = p_olt     ;  racmSOA_per_megan(115)    =  1.000
1219     p_of_megan2racmSOA(116) = is_carbon_2s        ; p_of_racmSOA(116) = non_react ;  racmSOA_per_megan(116)    =  1.000
1220     p_of_megan2racmSOA(117) = is_carbonyl_s       ; p_of_racmSOA(117) = non_react ;  racmSOA_per_megan(117)    =  1.000
1221     p_of_megan2racmSOA(118) = is_diallyl_2s       ; p_of_racmSOA(118) = p_oli     ;  racmSOA_per_megan(118)    =  1.000
1222     p_of_megan2racmSOA(119) = is_diallyl_2s       ; p_of_racmSOA(119) = p_so2     ;  racmSOA_per_megan(119)    =  2.000
1223     p_of_megan2racmSOA(120) = is_2met_2s          ; p_of_racmSOA(120) = p_eth     ;  racmSOA_per_megan(120)    =  1.000
1224     p_of_megan2racmSOA(121) = is_2met_2s          ; p_of_racmSOA(121) = p_so2     ;  racmSOA_per_megan(121)    =  2.000
1225     p_of_megan2racmSOA(122) = is_2met_s           ; p_of_racmSOA(122) = p_eth     ;  racmSOA_per_megan(122)    =  1.000
1226     p_of_megan2racmSOA(123) = is_2met_s           ; p_of_racmSOA(123) = p_so2     ;  racmSOA_per_megan(123)    =  1.000
1227     p_of_megan2racmSOA(124) = is_met_chloride     ; p_of_racmSOA(124) = non_react ;  racmSOA_per_megan(124)    =  1.000
1228     p_of_megan2racmSOA(125) = is_met_bromide      ; p_of_racmSOA(125) = non_react ;  racmSOA_per_megan(125)    =  1.000
1229     p_of_megan2racmSOA(126) = is_met_iodide       ; p_of_racmSOA(126) = non_react ;  racmSOA_per_megan(126)    =  1.000
1230     p_of_megan2racmSOA(127) = is_hydrogen_s       ; p_of_racmSOA(127) = p_so2     ;  racmSOA_per_megan(127)    =  1.000
1231     p_of_megan2racmSOA(128) = is_met_mercaptan    ; p_of_racmSOA(128) = p_ch4     ;  racmSOA_per_megan(128)    =  1.000
1232     p_of_megan2racmSOA(129) = is_met_mercaptan    ; p_of_racmSOA(129) = p_so2     ;  racmSOA_per_megan(129)    =  1.000
1233     p_of_megan2racmSOA(130) = is_met_propenyl_2s  ; p_of_racmSOA(130) = p_oli     ;  racmSOA_per_megan(130)    =  1.000
1234     p_of_megan2racmSOA(131) = is_met_propenyl_2s  ; p_of_racmSOA(131) = p_so2     ;  racmSOA_per_megan(131)    =  2.000
1235     p_of_megan2racmSOA(132) = is_pppp_2s          ; p_of_racmSOA(132) = p_oli     ;  racmSOA_per_megan(132)    =  1.000
1236     p_of_megan2racmSOA(133) = is_pppp_2s          ; p_of_racmSOA(133) = p_so2     ;  racmSOA_per_megan(133)    =  2.000
1237     p_of_megan2racmSOA(134) = is_2met_nonatriene  ; p_of_racmSOA(134) = p_lim     ;  racmSOA_per_megan(134)    =  1.000
1238     p_of_megan2racmSOA(135) = is_met_salicylate   ; p_of_racmSOA(135) = p_hc8     ;  racmSOA_per_megan(135)    =  1.000
1239     p_of_megan2racmSOA(136) = is_indole           ; p_of_racmSOA(136) = p_hc8     ;  racmSOA_per_megan(136)    =  1.201
1240     p_of_megan2racmSOA(137) = is_indole           ; p_of_racmSOA(137) = p_hno3    ;  racmSOA_per_megan(137)    =  1.000
1241     p_of_megan2racmSOA(138) = is_jasmone          ; p_of_racmSOA(138) = p_lim     ;  racmSOA_per_megan(138)    =  1.000
1242     p_of_megan2racmSOA(139) = is_met_jasmonate    ; p_of_racmSOA(139) = p_lim     ;  racmSOA_per_megan(139)    =  1.000
1243     p_of_megan2racmSOA(140) = is_3met_3dctt       ; p_of_racmSOA(140) = p_oli     ;  racmSOA_per_megan(140)    =  0.500
1244     p_of_megan2racmSOA(141) = is_3met_3dctt       ; p_of_racmSOA(141) = p_olt     ;  racmSOA_per_megan(141)    =  0.500
1245     p_of_megan2racmSOA(142) = is_hexanal          ; p_of_racmSOA(142) = p_ald     ;  racmSOA_per_megan(142)    =  1.000
1246     p_of_megan2racmSOA(143) = is_hexanol_1        ; p_of_racmSOA(143) = p_hc5     ;  racmSOA_per_megan(143)    =  1.710
1247     p_of_megan2racmSOA(144) = is_hexenal_c3       ; p_of_racmSOA(144) = p_oli     ;  racmSOA_per_megan(144)    =  1.000
1248     p_of_megan2racmSOA(145) = is_hexenal_t2       ; p_of_racmSOA(145) = p_oli     ;  racmSOA_per_megan(145)    =  1.000
1249     p_of_megan2racmSOA(146) = is_hexenol_c3       ; p_of_racmSOA(146) = p_olt     ;  racmSOA_per_megan(146)    =  1.000
1250     p_of_megan2racmSOA(147) = is_hexenyl_act_c3   ; p_of_racmSOA(147) = p_oli     ;  racmSOA_per_megan(147)    =  1.000
1251     p_of_megan2racmSOA(148) = is_farnescene_a     ; p_of_racmSOA(148) = p_sesq    ;  racmSOA_per_megan(148)    =  1.000
1252     p_of_megan2racmSOA(149) = is_caryophyllene_b  ; p_of_racmSOA(149) = p_sesq    ;  racmSOA_per_megan(149)    =  1.000
1253     p_of_megan2racmSOA(150) = is_aromadendrene    ; p_of_racmSOA(150) = p_sesq    ;  racmSOA_per_megan(150)    =  1.000
1254     p_of_megan2racmSOA(151) = is_bergamotene_a    ; p_of_racmSOA(151) = p_sesq    ;  racmSOA_per_megan(151)    =  1.000
1255     p_of_megan2racmSOA(152) = is_bergamotene_b    ; p_of_racmSOA(152) = p_sesq    ;  racmSOA_per_megan(152)    =  1.000
1256     p_of_megan2racmSOA(153) = is_bisabolene_a     ; p_of_racmSOA(153) = p_sesq    ;  racmSOA_per_megan(153)    =  1.000
1257     p_of_megan2racmSOA(154) = is_bisabolene_b     ; p_of_racmSOA(154) = p_sesq    ;  racmSOA_per_megan(154)    =  1.000
1258     p_of_megan2racmSOA(155) = is_bourbonene_b     ; p_of_racmSOA(155) = p_sesq    ;  racmSOA_per_megan(155)    =  1.000
1259     p_of_megan2racmSOA(156) = is_cadinene_d       ; p_of_racmSOA(156) = p_sesq    ;  racmSOA_per_megan(156)    =  1.000
1260     p_of_megan2racmSOA(157) = is_cadinene_g       ; p_of_racmSOA(157) = p_sesq      ; racmSOA_per_megan(157) = 1.000
1261     p_of_megan2racmSOA(158) = is_cedrene_a        ; p_of_racmSOA(158) = p_sesq      ; racmSOA_per_megan(158) = 1.000
1262     p_of_megan2racmSOA(159) = is_copaene_a        ; p_of_racmSOA(159) = p_sesq      ; racmSOA_per_megan(159) = 1.000
1263     p_of_megan2racmSOA(160) = is_cubebene_a       ; p_of_racmSOA(160) = p_sesq      ; racmSOA_per_megan(160) = 1.000
1264     p_of_megan2racmSOA(161) = is_cubebene_b       ; p_of_racmSOA(161) = p_sesq      ; racmSOA_per_megan(161) = 1.000
1265     p_of_megan2racmSOA(162) = is_elemene_b        ; p_of_racmSOA(162) = p_sesq      ; racmSOA_per_megan(162) = 1.000
1266     p_of_megan2racmSOA(163) = is_farnescene_b     ; p_of_racmSOA(163) = p_sesq      ; racmSOA_per_megan(163) = 1.000
1267     p_of_megan2racmSOA(164) = is_germacrene_b     ; p_of_racmSOA(164) = p_sesq      ; racmSOA_per_megan(164) = 1.000
1268     p_of_megan2racmSOA(165) = is_germacrene_d     ; p_of_racmSOA(165) = p_sesq      ; racmSOA_per_megan(165) = 1.000
1269     p_of_megan2racmSOA(166) = is_gurjunene_b      ; p_of_racmSOA(166) = p_sesq      ; racmSOA_per_megan(166) = 1.000
1270     p_of_megan2racmSOA(167) = is_humulene_a       ; p_of_racmSOA(167) = p_sesq      ; racmSOA_per_megan(167) = 1.000
1271     p_of_megan2racmSOA(168) = is_humulene_g       ; p_of_racmSOA(168) = p_sesq      ; racmSOA_per_megan(168) = 1.000
1272     p_of_megan2racmSOA(169) = is_isolongifolene   ; p_of_racmSOA(169) = p_sesq      ; racmSOA_per_megan(169) = 1.000
1273     p_of_megan2racmSOA(170) = is_longifolene      ; p_of_racmSOA(170) = p_sesq      ; racmSOA_per_megan(170) = 1.000
1274     p_of_megan2racmSOA(171) = is_longipinene      ; p_of_racmSOA(171) = p_sesq      ; racmSOA_per_megan(171) = 1.000
1275     p_of_megan2racmSOA(172) = is_muurolene_a      ; p_of_racmSOA(172) = p_sesq      ; racmSOA_per_megan(172) = 1.000
1276     p_of_megan2racmSOA(173) = is_muurolene_g      ; p_of_racmSOA(173) = p_sesq      ; racmSOA_per_megan(173) = 1.000
1277     p_of_megan2racmSOA(174) = is_selinene_b       ; p_of_racmSOA(174) = p_sesq      ; racmSOA_per_megan(174) = 1.000
1278     p_of_megan2racmSOA(175) = is_selinene_d       ; p_of_racmSOA(175) = p_sesq      ; racmSOA_per_megan(175) = 1.000
1279     p_of_megan2racmSOA(176) = is_nerolidol_c      ; p_of_racmSOA(176) = p_sesq      ; racmSOA_per_megan(176) = 1.000
1280     p_of_megan2racmSOA(177) = is_nerolidol_t      ; p_of_racmSOA(177) = p_sesq      ; racmSOA_per_megan(177) = 1.000
1281     p_of_megan2racmSOA(178) = is_cedrol           ; p_of_racmSOA(178) = p_sesq      ; racmSOA_per_megan(178) = 1.000
1282
1283
1284   END SUBROUTINE get_megan2racmSOA_table
1285
1286
1287
1288   SUBROUTINE get_megan2saprcnov_table
1289
1290
1291     ! Based on Tan''s MAP_CV2SAPRC99.EXT
1292
1293     ! Index of                                      Index of                           Molar ratio
1294     ! MEGAN species                                 RADM2 Species
1295
1296     p_of_megan2saprcnov(  1) = is_isoprene         ; p_of_saprcnov(  1) = p_isoprene  ; saprcnov_per_megan(  1) = 1.000
1297     p_of_megan2saprcnov(  2) = is_myrcene          ; p_of_saprcnov(  2) = p_terp      ; saprcnov_per_megan(  2) = 1.000
1298     p_of_megan2saprcnov(  3) = is_sabinene         ; p_of_saprcnov(  3) = p_terp      ; saprcnov_per_megan(  3) = 1.000
1299     p_of_megan2saprcnov(  4) = is_limonene         ; p_of_saprcnov(  4) = p_terp      ; saprcnov_per_megan(  4) = 1.000
1300     p_of_megan2saprcnov(  5) = is_carene_3         ; p_of_saprcnov(  5) = p_terp      ; saprcnov_per_megan(  5) = 1.000
1301     p_of_megan2saprcnov(  6) = is_ocimene_t_b      ; p_of_saprcnov(  6) = p_terp      ; saprcnov_per_megan(  6) = 1.000
1302     p_of_megan2saprcnov(  7) = is_pinene_b         ; p_of_saprcnov(  7) = p_terp      ; saprcnov_per_megan(  7) = 1.000
1303     p_of_megan2saprcnov(  8) = is_pinene_a         ; p_of_saprcnov(  8) = p_terp      ; saprcnov_per_megan(  8) = 1.000
1304     p_of_megan2saprcnov(  9) = is_2met_styrene     ; p_of_saprcnov(  9) = p_ole2      ; saprcnov_per_megan(  9) = 1.000
1305     p_of_megan2saprcnov( 10) = is_cymene_p         ; p_of_saprcnov( 10) = p_aro2      ; saprcnov_per_megan( 10) = 1.000
1306     p_of_megan2saprcnov( 11) = is_cymene_o         ; p_of_saprcnov( 11) = p_aro2      ; saprcnov_per_megan( 11) = 1.000
1307     p_of_megan2saprcnov( 12) = is_phellandrene_a   ; p_of_saprcnov( 12) = p_terp      ; saprcnov_per_megan( 12) = 1.000
1308     p_of_megan2saprcnov( 13) = is_thujene_a        ; p_of_saprcnov( 13) = p_terp      ; saprcnov_per_megan( 13) = 1.000
1309     p_of_megan2saprcnov( 14) = is_terpinene_a      ; p_of_saprcnov( 14) = p_terp      ; saprcnov_per_megan( 14) = 1.000
1310     p_of_megan2saprcnov( 15) = is_terpinene_g      ; p_of_saprcnov( 15) = p_terp      ; saprcnov_per_megan( 15) = 1.000
1311     p_of_megan2saprcnov( 16) = is_terpinolene      ; p_of_saprcnov( 16) = p_terp      ; saprcnov_per_megan( 16) = 1.000
1312     p_of_megan2saprcnov( 17) = is_phellandrene_b   ; p_of_saprcnov( 17) = p_terp      ; saprcnov_per_megan( 17) = 1.000
1313     p_of_megan2saprcnov( 18) = is_camphene         ; p_of_saprcnov( 18) = p_terp      ; saprcnov_per_megan( 18) = 1.000
1314     p_of_megan2saprcnov( 19) = is_bornene          ; p_of_saprcnov( 19) = p_terp      ; saprcnov_per_megan( 19) = 1.000
1315     p_of_megan2saprcnov( 20) = is_fenchene_a       ; p_of_saprcnov( 20) = p_terp      ; saprcnov_per_megan( 20) = 1.000
1316     p_of_megan2saprcnov( 21) = is_ocimene_al       ; p_of_saprcnov( 21) = p_terp      ; saprcnov_per_megan( 21) = 1.000
1317     p_of_megan2saprcnov( 22) = is_ocimene_c_b      ; p_of_saprcnov( 22) = p_terp      ; saprcnov_per_megan( 22) = 1.000
1318     p_of_megan2saprcnov( 23) = is_tricyclene       ; p_of_saprcnov( 23) = p_alk5      ; saprcnov_per_megan( 23) = 1.000
1319     p_of_megan2saprcnov( 24) = is_estragole        ; p_of_saprcnov( 24) = p_terp      ; saprcnov_per_megan( 24) = 1.000
1320     p_of_megan2saprcnov( 25) = is_camphor          ; p_of_saprcnov( 25) = p_terp      ; saprcnov_per_megan( 25) = 1.000
1321     p_of_megan2saprcnov( 26) = is_fenchone         ; p_of_saprcnov( 26) = p_alk5      ; saprcnov_per_megan( 26) = 1.000
1322     p_of_megan2saprcnov( 27) = is_piperitone       ; p_of_saprcnov( 27) = p_terp      ; saprcnov_per_megan( 27) = 1.000
1323     p_of_megan2saprcnov( 28) = is_thujone_a        ; p_of_saprcnov( 28) = p_alk5      ; saprcnov_per_megan( 28) = 1.000
1324     p_of_megan2saprcnov( 29) = is_thujone_b        ; p_of_saprcnov( 29) = p_alk5      ; saprcnov_per_megan( 29) = 1.000
1325     p_of_megan2saprcnov( 30) = is_cineole_1_8      ; p_of_saprcnov( 30) = p_alk5      ; saprcnov_per_megan( 30) = 1.000
1326     p_of_megan2saprcnov( 31) = is_borneol          ; p_of_saprcnov( 31) = p_alk5      ; saprcnov_per_megan( 31) = 1.000
1327     p_of_megan2saprcnov( 32) = is_linalool         ; p_of_saprcnov( 32) = p_terp      ; saprcnov_per_megan( 32) = 1.000
1328     p_of_megan2saprcnov( 33) = is_terpineol_4      ; p_of_saprcnov( 33) = p_terp      ; saprcnov_per_megan( 33) = 1.000
1329     p_of_megan2saprcnov( 34) = is_terpineol_a      ; p_of_saprcnov( 34) = p_terp      ; saprcnov_per_megan( 34) = 1.000
1330     p_of_megan2saprcnov( 35) = is_linalool_oxd_c   ; p_of_saprcnov( 35) = p_terp      ; saprcnov_per_megan( 35) = 1.000
1331     p_of_megan2saprcnov( 36) = is_linalool_oxd_t   ; p_of_saprcnov( 36) = p_terp      ; saprcnov_per_megan( 36) = 1.000
1332     p_of_megan2saprcnov( 37) = is_ionone_b         ; p_of_saprcnov( 37) = p_terp      ; saprcnov_per_megan( 37) = 1.000
1333     p_of_megan2saprcnov( 38) = is_bornyl_act       ; p_of_saprcnov( 38) = p_alk5      ; saprcnov_per_megan( 38) = 1.000
1334     p_of_megan2saprcnov( 39) = is_farnescene_a     ; p_of_saprcnov( 39) = p_sesq      ; saprcnov_per_megan( 39) = 1.000
1335     p_of_megan2saprcnov( 40) = is_caryophyllene_b  ; p_of_saprcnov( 40) = p_sesq      ; saprcnov_per_megan( 40) = 1.000
1336     p_of_megan2saprcnov( 41) = is_acoradiene       ; p_of_saprcnov( 41) = p_terp      ; saprcnov_per_megan( 41) = 1.000
1337     p_of_megan2saprcnov( 42) = is_aromadendrene    ; p_of_saprcnov( 42) = p_sesq      ; saprcnov_per_megan( 42) = 1.000
1338     p_of_megan2saprcnov( 43) = is_bergamotene_a    ; p_of_saprcnov( 43) = p_sesq      ; saprcnov_per_megan( 43) = 1.000
1339     p_of_megan2saprcnov( 44) = is_bergamotene_b    ; p_of_saprcnov( 44) = p_sesq      ; saprcnov_per_megan( 44) = 1.000
1340     p_of_megan2saprcnov( 45) = is_bisabolene_a     ; p_of_saprcnov( 45) = p_sesq      ; saprcnov_per_megan( 45) = 1.000
1341     p_of_megan2saprcnov( 46) = is_bisabolene_b     ; p_of_saprcnov( 46) = p_sesq      ; saprcnov_per_megan( 46) = 1.000
1342     p_of_megan2saprcnov( 47) = is_bourbonene_b     ; p_of_saprcnov( 47) = p_sesq      ; saprcnov_per_megan( 47) = 1.000
1343     p_of_megan2saprcnov( 48) = is_cadinene_d       ; p_of_saprcnov( 48) = p_sesq      ; saprcnov_per_megan( 48) = 1.000
1344     p_of_megan2saprcnov( 49) = is_cadinene_g       ; p_of_saprcnov( 49) = p_sesq      ; saprcnov_per_megan( 49) = 1.000
1345     p_of_megan2saprcnov( 50) = is_cedrene_a        ; p_of_saprcnov( 50) = p_sesq      ; saprcnov_per_megan( 50) = 1.000
1346     p_of_megan2saprcnov( 51) = is_copaene_a        ; p_of_saprcnov( 51) = p_sesq      ; saprcnov_per_megan( 51) = 1.000
1347     p_of_megan2saprcnov( 52) = is_cubebene_a       ; p_of_saprcnov( 52) = p_sesq      ; saprcnov_per_megan( 52) = 1.000
1348     p_of_megan2saprcnov( 53) = is_cubebene_b       ; p_of_saprcnov( 53) = p_sesq      ; saprcnov_per_megan( 53) = 1.000
1349     p_of_megan2saprcnov( 54) = is_elemene_b        ; p_of_saprcnov( 54) = p_sesq      ; saprcnov_per_megan( 54) = 1.000
1350     p_of_megan2saprcnov( 55) = is_farnescene_b     ; p_of_saprcnov( 55) = p_sesq      ; saprcnov_per_megan( 55) = 1.000
1351     p_of_megan2saprcnov( 56) = is_germacrene_b     ; p_of_saprcnov( 56) = p_sesq      ; saprcnov_per_megan( 56) = 1.000
1352     p_of_megan2saprcnov( 57) = is_germacrene_d     ; p_of_saprcnov( 57) = p_sesq      ; saprcnov_per_megan( 57) = 1.000
1353     p_of_megan2saprcnov( 58) = is_gurjunene_b      ; p_of_saprcnov( 58) = p_sesq      ; saprcnov_per_megan( 58) = 1.000
1354     p_of_megan2saprcnov( 59) = is_humulene_a       ; p_of_saprcnov( 59) = p_sesq      ; saprcnov_per_megan( 59) = 1.000
1355     p_of_megan2saprcnov( 60) = is_humulene_g       ; p_of_saprcnov( 60) = p_sesq      ; saprcnov_per_megan( 60) = 1.000
1356     p_of_megan2saprcnov( 61) = is_isolongifolene   ; p_of_saprcnov( 61) = p_sesq      ; saprcnov_per_megan( 61) = 1.000
1357     p_of_megan2saprcnov( 62) = is_longifolene      ; p_of_saprcnov( 62) = p_sesq      ; saprcnov_per_megan( 62) = 1.000
1358     p_of_megan2saprcnov( 63) = is_longipinene      ; p_of_saprcnov( 63) = p_sesq      ; saprcnov_per_megan( 63) = 1.000
1359     p_of_megan2saprcnov( 64) = is_muurolene_a      ; p_of_saprcnov( 64) = p_sesq      ; saprcnov_per_megan( 64) = 1.000
1360     p_of_megan2saprcnov( 65) = is_muurolene_g      ; p_of_saprcnov( 65) = p_sesq      ; saprcnov_per_megan( 65) = 1.000
1361     p_of_megan2saprcnov( 66) = is_selinene_b       ; p_of_saprcnov( 66) = p_sesq      ; saprcnov_per_megan( 66) = 1.000
1362     p_of_megan2saprcnov( 67) = is_selinene_d       ; p_of_saprcnov( 67) = p_sesq      ; saprcnov_per_megan( 67) = 1.000
1363     p_of_megan2saprcnov( 68) = is_nerolidol_c      ; p_of_saprcnov( 68) = p_sesq      ; saprcnov_per_megan( 68) = 1.000
1364     p_of_megan2saprcnov( 69) = is_nerolidol_t      ; p_of_saprcnov( 69) = p_sesq      ; saprcnov_per_megan( 69) = 1.000
1365     p_of_megan2saprcnov( 70) = is_cedrol           ; p_of_saprcnov( 70) = p_sesq      ; saprcnov_per_megan( 70) = 1.000
1366     p_of_megan2saprcnov( 71) = is_mbo_2m3e2ol      ; p_of_saprcnov( 71) = p_isoprene  ; saprcnov_per_megan( 71) = 1.000
1367     p_of_megan2saprcnov( 72) = is_methanol         ; p_of_saprcnov( 72) = p_meoh      ; saprcnov_per_megan( 72) = 1.000
1368     p_of_megan2saprcnov( 73) = is_acetone          ; p_of_saprcnov( 73) = p_acet      ; saprcnov_per_megan( 73) = 1.000
1369     p_of_megan2saprcnov( 74) = is_methane          ; p_of_saprcnov( 74) = p_ch4       ; saprcnov_per_megan( 74) = 1.000
1370     p_of_megan2saprcnov( 75) = is_ammonia          ; p_of_saprcnov( 75) = non_react   ; saprcnov_per_megan( 75) = 1.000
1371     p_of_megan2saprcnov( 76) = is_nitrous_oxd      ; p_of_saprcnov( 76) = non_react   ; saprcnov_per_megan( 76) = 1.000
1372     p_of_megan2saprcnov( 77) = is_nitric_oxd       ; p_of_saprcnov( 77) = p_no        ; saprcnov_per_megan( 77) = 1.000
1373     p_of_megan2saprcnov( 78) = is_acetaldehyde     ; p_of_saprcnov( 78) = p_ccho      ; saprcnov_per_megan( 78) = 1.000
1374     p_of_megan2saprcnov( 79) = is_ethanol          ; p_of_saprcnov( 79) = p_alk3      ; saprcnov_per_megan( 79) = 1.000
1375     p_of_megan2saprcnov( 80) = is_formic_acid      ; p_of_saprcnov( 80) = p_hcooh     ; saprcnov_per_megan( 80) = 1.000
1376     p_of_megan2saprcnov( 81) = is_formaldehyde     ; p_of_saprcnov( 81) = p_hcho      ; saprcnov_per_megan( 81) = 1.000
1377     p_of_megan2saprcnov( 82) = is_acetic_acid      ; p_of_saprcnov( 82) = p_cco_oh    ; saprcnov_per_megan( 82) = 1.000
1378     p_of_megan2saprcnov( 83) = is_mbo_3m2e1ol      ; p_of_saprcnov( 83) = p_isoprene  ; saprcnov_per_megan( 83) = 1.000
1379     p_of_megan2saprcnov( 84) = is_mbo_3m3e1ol      ; p_of_saprcnov( 84) = p_isoprene  ; saprcnov_per_megan( 84) = 1.000
1380     p_of_megan2saprcnov( 85) = is_benzaldehyde     ; p_of_saprcnov( 85) = p_bald      ; saprcnov_per_megan( 85) = 1.000
1381     p_of_megan2saprcnov( 86) = is_butanone_2       ; p_of_saprcnov( 86) = p_mek       ; saprcnov_per_megan( 86) = 1.000
1382     p_of_megan2saprcnov( 87) = is_decanal          ; p_of_saprcnov( 87) = p_rcho      ; saprcnov_per_megan( 87) = 1.000
1383     p_of_megan2saprcnov( 88) = is_dodecene_1       ; p_of_saprcnov( 88) = p_ole1      ; saprcnov_per_megan( 88) = 1.000
1384     p_of_megan2saprcnov( 89) = is_geranyl_acetone  ; p_of_saprcnov( 89) = p_terp      ; saprcnov_per_megan( 89) = 1.000
1385     p_of_megan2saprcnov( 90) = is_heptanal         ; p_of_saprcnov( 90) = p_rcho      ; saprcnov_per_megan( 90) = 1.000
1386     p_of_megan2saprcnov( 91) = is_heptane          ; p_of_saprcnov( 91) = p_alk5      ; saprcnov_per_megan( 91) = 1.000
1387     p_of_megan2saprcnov( 92) = is_hexane           ; p_of_saprcnov( 92) = p_alk4      ; saprcnov_per_megan( 92) = 1.000
1388     p_of_megan2saprcnov( 93) = is_met_benzoate     ; p_of_saprcnov( 93) = p_aro1      ; saprcnov_per_megan( 93) = 1.000
1389     p_of_megan2saprcnov( 94) = is_met_heptenone    ; p_of_saprcnov( 94) = p_ole2      ; saprcnov_per_megan( 94) = 1.000
1390     p_of_megan2saprcnov( 95) = is_neryl_acetone    ; p_of_saprcnov( 95) = p_ole2      ; saprcnov_per_megan( 95) = 1.000
1391     p_of_megan2saprcnov( 96) = is_nonanal          ; p_of_saprcnov( 96) = p_rcho      ; saprcnov_per_megan( 96) = 1.000
1392     p_of_megan2saprcnov( 97) = is_nonenal          ; p_of_saprcnov( 97) = p_ole1      ; saprcnov_per_megan( 97) = 1.000
1393     p_of_megan2saprcnov( 98) = is_octanal          ; p_of_saprcnov( 98) = p_rcho      ; saprcnov_per_megan( 98) = 1.000
1394     p_of_megan2saprcnov( 99) = is_octanol          ; p_of_saprcnov( 99) = p_alk5      ; saprcnov_per_megan( 99) = 1.000
1395     p_of_megan2saprcnov(100) = is_octenol_1e3ol    ; p_of_saprcnov(100) = p_ole1      ; saprcnov_per_megan(100) = 1.000
1396     p_of_megan2saprcnov(101) = is_oxopentanal      ; p_of_saprcnov(101) = p_rcho      ; saprcnov_per_megan(101) = 1.000
1397     p_of_megan2saprcnov(102) = is_pentane          ; p_of_saprcnov(102) = p_alk4      ; saprcnov_per_megan(102) = 1.000
1398     p_of_megan2saprcnov(103) = is_phenyl_cco       ; p_of_saprcnov(103) = p_aro1      ; saprcnov_per_megan(103) = 1.000
1399     p_of_megan2saprcnov(104) = is_pyruvic_acid     ; p_of_saprcnov(104) = p_rco_oh    ; saprcnov_per_megan(104) = 1.000
1400     p_of_megan2saprcnov(105) = is_terpinyl_act_a   ; p_of_saprcnov(105) = p_terp      ; saprcnov_per_megan(105) = 1.000
1401     p_of_megan2saprcnov(106) = is_tetradecene_1    ; p_of_saprcnov(106) = p_ole1      ; saprcnov_per_megan(106) = 1.000
1402     p_of_megan2saprcnov(107) = is_toluene          ; p_of_saprcnov(107) = p_aro1      ; saprcnov_per_megan(107) = 1.000
1403     p_of_megan2saprcnov(108) = is_carbon_monoxide  ; p_of_saprcnov(108) = p_co        ; saprcnov_per_megan(108) = 1.000
1404     p_of_megan2saprcnov(109) = is_butene           ; p_of_saprcnov(109) = p_ole1      ; saprcnov_per_megan(109) = 1.000
1405     p_of_megan2saprcnov(110) = is_ethane           ; p_of_saprcnov(110) = p_c2h6      ; saprcnov_per_megan(110) = 1.000
1406     p_of_megan2saprcnov(111) = is_ethene           ; p_of_saprcnov(111) = p_ethene    ; saprcnov_per_megan(111) = 1.000
1407     p_of_megan2saprcnov(112) = is_hydrogen_cyanide ; p_of_saprcnov(112) = non_react   ; saprcnov_per_megan(112) = 1.000
1408     p_of_megan2saprcnov(113) = is_propane          ; p_of_saprcnov(113) = p_c3h8      ; saprcnov_per_megan(113) = 1.000
1409     p_of_megan2saprcnov(114) = is_propene          ; p_of_saprcnov(114) = p_c3h6      ; saprcnov_per_megan(114) = 1.000
1410     p_of_megan2saprcnov(115) = is_carbon_2s        ; p_of_saprcnov(115) = non_react   ; saprcnov_per_megan(115) = 1.000
1411     p_of_megan2saprcnov(116) = is_carbonyl_s       ; p_of_saprcnov(116) = non_react   ; saprcnov_per_megan(116) = 1.000
1412     p_of_megan2saprcnov(117) = is_diallyl_2s       ; p_of_saprcnov(117) = p_ole1      ; saprcnov_per_megan(117) = 1.000
1413     p_of_megan2saprcnov(118) = is_2met_2s          ; p_of_saprcnov(118) = p_alk5      ; saprcnov_per_megan(118) = 1.000
1414     p_of_megan2saprcnov(119) = is_2met_s           ; p_of_saprcnov(119) = p_alk4      ; saprcnov_per_megan(119) = 1.000
1415     p_of_megan2saprcnov(120) = is_met_chloride     ; p_of_saprcnov(120) = non_react   ; saprcnov_per_megan(120) = 1.000
1416     p_of_megan2saprcnov(121) = is_met_bromide      ; p_of_saprcnov(121) = non_react   ; saprcnov_per_megan(121) = 1.000
1417     p_of_megan2saprcnov(122) = is_met_iodide       ; p_of_saprcnov(122) = non_react   ; saprcnov_per_megan(122) = 1.000
1418     p_of_megan2saprcnov(123) = is_hydrogen_s       ; p_of_saprcnov(123) = non_react   ; saprcnov_per_megan(123) = 1.000
1419     p_of_megan2saprcnov(124) = is_met_mercaptan    ; p_of_saprcnov(124) = p_alk5      ; saprcnov_per_megan(124) = 1.000
1420     p_of_megan2saprcnov(125) = is_met_propenyl_2s  ; p_of_saprcnov(125) = p_ole1      ; saprcnov_per_megan(125) = 1.000
1421     p_of_megan2saprcnov(126) = is_pppp_2s          ; p_of_saprcnov(126) = p_ole1      ; saprcnov_per_megan(126) = 1.000
1422     p_of_megan2saprcnov(127) = is_2met_nonatriene  ; p_of_saprcnov(127) = p_terp      ; saprcnov_per_megan(127) = 1.000
1423     p_of_megan2saprcnov(128) = is_met_salicylate   ; p_of_saprcnov(128) = p_aro1      ; saprcnov_per_megan(128) = 1.000
1424     p_of_megan2saprcnov(129) = is_indole           ; p_of_saprcnov(129) = p_aro2      ; saprcnov_per_megan(129) = 1.000
1425     p_of_megan2saprcnov(130) = is_jasmone          ; p_of_saprcnov(130) = p_terp      ; saprcnov_per_megan(130) = 1.000
1426     p_of_megan2saprcnov(131) = is_met_jasmonate    ; p_of_saprcnov(131) = p_terp      ; saprcnov_per_megan(131) = 1.000
1427     p_of_megan2saprcnov(132) = is_3met_3dctt       ; p_of_saprcnov(132) = p_terp      ; saprcnov_per_megan(132) = 1.000
1428     p_of_megan2saprcnov(133) = is_hexanal          ; p_of_saprcnov(133) = p_rcho      ; saprcnov_per_megan(133) = 1.000
1429     p_of_megan2saprcnov(134) = is_hexanol_1        ; p_of_saprcnov(134) = p_alk5      ; saprcnov_per_megan(134) = 1.000
1430     p_of_megan2saprcnov(135) = is_hexenal_c3       ; p_of_saprcnov(135) = p_ole2      ; saprcnov_per_megan(135) = 1.000
1431     p_of_megan2saprcnov(136) = is_hexenal_t2       ; p_of_saprcnov(136) = p_ole2      ; saprcnov_per_megan(136) = 1.000
1432     p_of_megan2saprcnov(137) = is_hexenol_c3       ; p_of_saprcnov(137) = p_ole2      ; saprcnov_per_megan(137) = 1.000
1433     p_of_megan2saprcnov(138) = is_hexenyl_act_c3   ; p_of_saprcnov(138) = p_ole2      ; saprcnov_per_megan(138) = 1.000
1434   END SUBROUTINE get_megan2saprcnov_table
1435
1436
1437   SUBROUTINE get_megan2cb05_table
1438     ! MEGAN species                                  CB05 Species                  Molar ratio
1439     !
1440     p_of_megan2cb05(  1) = is_isoprene             ; p_of_cb05(  1) = p_isop     ; cb05_per_megan(  1)  =  1.
1441     p_of_megan2cb05(  2) = is_myrcene              ; p_of_cb05(  2) = p_oci      ; cb05_per_megan(  2)  =  1.
1442     p_of_megan2cb05(  3) = is_sabinene             ; p_of_cb05(  3) = p_apin     ; cb05_per_megan(  3)  =  1.
1443     p_of_megan2cb05(  4) = is_limonene             ; p_of_cb05(  4) = p_lim      ; cb05_per_megan(  4)  =  1.
1444     p_of_megan2cb05(  5) = is_carene_3             ; p_of_cb05(  5) = p_bpin     ; cb05_per_megan(  5)  =  1.
1445     p_of_megan2cb05(  6) = is_ocimene_t_b          ; p_of_cb05(  6) = p_oci      ; cb05_per_megan(  6)  =  1.
1446     p_of_megan2cb05(  7) = is_pinene_b             ; p_of_cb05(  7) = p_bpin     ; cb05_per_megan(  7)  =  1.
1447     p_of_megan2cb05(  8) = is_pinene_a             ; p_of_cb05(  8) = p_apin     ; cb05_per_megan(  8)  =  1.
1448     p_of_megan2cb05(  9) = is_2met_styrene         ; p_of_cb05(  9) = p_oci      ; cb05_per_megan(  9)  =  1.
1449     p_of_megan2cb05( 10) = is_cymene_p             ; p_of_cb05( 10) = p_oci      ; cb05_per_megan( 10)  =  1.
1450     p_of_megan2cb05( 11) = is_cymene_o             ; p_of_cb05( 11) = p_oci      ; cb05_per_megan( 11)  =  1.
1451     p_of_megan2cb05( 12) = is_phellandrene_a       ; p_of_cb05( 12) = p_oci      ; cb05_per_megan( 12)  =  1.
1452     p_of_megan2cb05( 13) = is_thujene_a            ; p_of_cb05( 13) = p_oci      ; cb05_per_megan( 13)  =  1.
1453     p_of_megan2cb05( 14) = is_terpinene_a          ; p_of_cb05( 14) = p_ter      ; cb05_per_megan( 14)  =  1.
1454     p_of_megan2cb05( 15) = is_terpinene_g          ; p_of_cb05( 15) = p_ter      ; cb05_per_megan( 15)  =  1.
1455     p_of_megan2cb05( 16) = is_terpinolene          ; p_of_cb05( 16) = p_oci      ; cb05_per_megan( 16)  =  1.
1456     p_of_megan2cb05( 17) = is_phellandrene_b       ; p_of_cb05( 17) = p_oci      ; cb05_per_megan( 17)  =  1.
1457     p_of_megan2cb05( 18) = is_camphene             ; p_of_cb05( 18) = p_oci      ; cb05_per_megan( 18)  =  1.
1458     p_of_megan2cb05( 19) = is_bornene              ; p_of_cb05( 19) = p_oci      ; cb05_per_megan( 19)  =  1.
1459     p_of_megan2cb05( 20) = is_fenchene_a           ; p_of_cb05( 20) = p_oci      ; cb05_per_megan( 20)  =  1.
1460     p_of_megan2cb05( 21) = is_ocimene_al           ; p_of_cb05( 21) = p_oci      ; cb05_per_megan( 21)  =  1.
1461     p_of_megan2cb05( 22) = is_ocimene_c_b          ; p_of_cb05( 22) = p_oci      ; cb05_per_megan( 22)  =  1.
1462     p_of_megan2cb05( 23) = is_tricyclene           ; p_of_cb05( 23) = p_oci      ; cb05_per_megan( 23)  =  1.
1463     p_of_megan2cb05( 24) = is_estragole            ; p_of_cb05( 24) = p_oci      ; cb05_per_megan( 24)  =  1.
1464     p_of_megan2cb05( 25) = is_camphor              ; p_of_cb05( 25) = p_oci      ; cb05_per_megan( 25)  =  1.
1465     p_of_megan2cb05( 26) = is_fenchone             ; p_of_cb05( 26) = p_oci      ; cb05_per_megan( 26)  =  1.
1466     p_of_megan2cb05( 27) = is_piperitone           ; p_of_cb05( 27) = p_oci      ; cb05_per_megan( 27)  =  1.
1467     p_of_megan2cb05( 28) = is_thujone_a            ; p_of_cb05( 28) = p_oci      ; cb05_per_megan( 28)  =  1.
1468     p_of_megan2cb05( 29) = is_thujone_b            ; p_of_cb05( 29) = p_oci      ; cb05_per_megan( 29)  =  1.
1469     p_of_megan2cb05( 30) = is_cineole_1_8          ; p_of_cb05( 30) = p_oci      ; cb05_per_megan( 30)  =  1.
1470     p_of_megan2cb05( 31) = is_borneol              ; p_of_cb05( 31) = p_oci      ; cb05_per_megan( 31)  =  1.
1471     p_of_megan2cb05( 32) = is_linalool             ; p_of_cb05( 32) = p_oci      ; cb05_per_megan( 32)  =  1.
1472     p_of_megan2cb05( 33) = is_terpineol_4          ; p_of_cb05( 33) = p_oci      ; cb05_per_megan( 33)  =  1.
1473     p_of_megan2cb05( 34) = is_terpineol_a          ; p_of_cb05( 34) = p_oci      ; cb05_per_megan( 34)  =  1.
1474     p_of_megan2cb05( 35) = is_linalool_oxd_c       ; p_of_cb05( 35) = p_oci      ; cb05_per_megan( 35)  =  1.
1475     p_of_megan2cb05( 36) = is_linalool_oxd_t       ; p_of_cb05( 36) = p_oci      ; cb05_per_megan( 36)  =  1.
1476     p_of_megan2cb05( 37) = is_ionone_b             ; p_of_cb05( 37) = p_hum      ; cb05_per_megan( 37)  =  1.
1477     p_of_megan2cb05( 38) = is_bornyl_act           ; p_of_cb05( 38) = p_oci      ; cb05_per_megan( 38)  =  1.
1478     p_of_megan2cb05( 39) = is_farnescene_a         ; p_of_cb05( 39) = p_hum      ; cb05_per_megan( 39)  =  1.
1479     p_of_megan2cb05( 40) = is_caryophyllene_b      ; p_of_cb05( 40) = p_hum      ; cb05_per_megan( 40)  =  1.
1480     p_of_megan2cb05( 41) = is_acoradiene           ; p_of_cb05( 41) = p_hum      ; cb05_per_megan( 41)  =  1.
1481     p_of_megan2cb05( 42) = is_aromadendrene        ; p_of_cb05( 42) = p_hum      ; cb05_per_megan( 42)  =  1.
1482     p_of_megan2cb05( 43) = is_bergamotene_a        ; p_of_cb05( 43) = p_hum      ; cb05_per_megan( 43)  =  1.
1483     p_of_megan2cb05( 44) = is_bergamotene_b        ; p_of_cb05( 44) = p_hum      ; cb05_per_megan( 44)  =  1.
1484     p_of_megan2cb05( 45) = is_bisabolene_a         ; p_of_cb05( 45) = p_hum      ; cb05_per_megan( 45)  =  1.
1485     p_of_megan2cb05( 46) = is_bisabolene_b         ; p_of_cb05( 46) = p_hum      ; cb05_per_megan( 46)  =  1.
1486     p_of_megan2cb05( 47) = is_bourbonene_b         ; p_of_cb05( 47) = p_hum      ; cb05_per_megan( 47)  =  1.
1487     p_of_megan2cb05( 48) = is_cadinene_d           ; p_of_cb05( 48) = p_hum      ; cb05_per_megan( 48)  =  1.
1488     p_of_megan2cb05( 49) = is_cadinene_g           ; p_of_cb05( 49) = p_hum      ; cb05_per_megan( 49)  =  1.
1489     p_of_megan2cb05( 50) = is_cedrene_a            ; p_of_cb05( 50) = p_hum      ; cb05_per_megan( 50)  =  1.
1490     p_of_megan2cb05( 51) = is_copaene_a            ; p_of_cb05( 51) = p_hum      ; cb05_per_megan( 51)  =  1.
1491     p_of_megan2cb05( 52) = is_cubebene_a           ; p_of_cb05( 52) = p_hum      ; cb05_per_megan( 52)  =  1.
1492     p_of_megan2cb05( 53) = is_cubebene_b           ; p_of_cb05( 53) = p_hum      ; cb05_per_megan( 53)  =  1.
1493     p_of_megan2cb05( 54) = is_elemene_b            ; p_of_cb05( 54) = p_hum      ; cb05_per_megan( 54)  =  1.
1494     p_of_megan2cb05( 55) = is_farnescene_b         ; p_of_cb05( 55) = p_hum      ; cb05_per_megan( 55)  =  1.
1495     p_of_megan2cb05( 56) = is_germacrene_B         ; p_of_cb05( 56) = p_hum      ; cb05_per_megan( 56)  =  1.
1496     p_of_megan2cb05( 57) = is_germacrene_D         ; p_of_cb05( 57) = p_hum      ; cb05_per_megan( 57)  =  1.
1497     p_of_megan2cb05( 58) = is_gurjunene_b          ; p_of_cb05( 58) = p_hum      ; cb05_per_megan( 58)  =  1.
1498     p_of_megan2cb05( 59) = is_humulene_a           ; p_of_cb05( 59) = p_hum      ; cb05_per_megan( 59)  =  1.
1499     p_of_megan2cb05( 60) = is_humulene_g           ; p_of_cb05( 60) = p_hum      ; cb05_per_megan( 60)  =  1.
1500     p_of_megan2cb05( 61) = is_isolongifolene       ; p_of_cb05( 61) = p_hum      ; cb05_per_megan( 61)  =  1.
1501     p_of_megan2cb05( 62) = is_longifolene          ; p_of_cb05( 62) = p_hum      ; cb05_per_megan( 62)  =  1.
1502     p_of_megan2cb05( 63) = is_longipinene          ; p_of_cb05( 63) = p_hum      ; cb05_per_megan( 63)  =  1.
1503     p_of_megan2cb05( 64) = is_muurolene_a          ; p_of_cb05( 64) = p_hum      ; cb05_per_megan( 64)  =  1.
1504     p_of_megan2cb05( 65) = is_muurolene_g          ; p_of_cb05( 65) = p_hum      ; cb05_per_megan( 65)  =  1.
1505     p_of_megan2cb05( 66) = is_selinene_b           ; p_of_cb05( 66) = p_hum      ; cb05_per_megan( 66)  =  1.
1506     p_of_megan2cb05( 67) = is_selinene_d           ; p_of_cb05( 67) = p_hum      ; cb05_per_megan( 67)  =  1.
1507     p_of_megan2cb05( 68) = is_nerolidol_c          ; p_of_cb05( 68) = p_hum      ; cb05_per_megan( 68)  =  1.
1508     p_of_megan2cb05( 69) = is_nerolidol_t          ; p_of_cb05( 69) = p_hum      ; cb05_per_megan( 69)  =  1.
1509     p_of_megan2cb05( 70) = is_cedrol               ; p_of_cb05( 70) = p_hum      ; cb05_per_megan( 70)  =  1.
1510     p_of_megan2cb05( 71) = is_mbo_2m3e2ol          ; p_of_cb05( 71) = p_ole      ; cb05_per_megan( 71)  =  1.
1511     p_of_megan2cb05( 72) = is_mbo_2m3e2ol          ; p_of_cb05( 72) = p_par      ; cb05_per_megan( 72)  =  3.
1512     p_of_megan2cb05( 73) = is_methanol             ; p_of_cb05( 73) = p_meoh     ; cb05_per_megan( 73)  =  1.
1513     p_of_megan2cb05( 74) = is_acetone              ; p_of_cb05( 74) = p_ispd     ; cb05_per_megan( 74)  =  1.
1514     p_of_megan2cb05( 75) = is_methane              ; p_of_cb05( 75) = p_ch4      ; cb05_per_megan( 75)  =  1.
1515     p_of_megan2cb05( 76) = is_ammonia              ; p_of_cb05( 76) = p_nh3      ; cb05_per_megan( 76)  =  1.
1516     p_of_megan2cb05( 77) = is_nitrous_oxd          ; p_of_cb05( 77) = non_react  ; cb05_per_megan( 77)  =  1.
1517     p_of_megan2cb05( 78) = is_nitric_oxd           ; p_of_cb05( 78) = p_no       ; cb05_per_megan( 78)  =  1.
1518     p_of_megan2cb05( 79) = is_acetaldehyde         ; p_of_cb05( 79) = p_ald2     ; cb05_per_megan( 79)  =  1.
1519     p_of_megan2cb05( 80) = is_ethanol              ; p_of_cb05( 80) = p_etoh     ; cb05_per_megan( 80)  =  1.
1520     p_of_megan2cb05( 81) = is_formic_acid          ; p_of_cb05( 81) = p_facd     ; cb05_per_megan( 81)  =  1.
1521     p_of_megan2cb05( 82) = is_formaldehyde         ; p_of_cb05( 82) = p_form     ; cb05_per_megan( 82)  =  1.
1522     p_of_megan2cb05( 83) = is_acetic_acid          ; p_of_cb05( 83) = p_aacd     ; cb05_per_megan( 83)  =  1.
1523     p_of_megan2cb05( 84) = is_mbo_3m2e1ol          ; p_of_cb05( 84) = p_ald2     ; cb05_per_megan( 84)  =  1.
1524     p_of_megan2cb05( 85) = is_mbo_3m2e1ol          ; p_of_cb05( 85) = p_par      ; cb05_per_megan( 85)  =  3.
1525     p_of_megan2cb05( 86) = is_mbo_3m3e1ol          ; p_of_cb05( 86) = p_form     ; cb05_per_megan( 86)  =  1.
1526     p_of_megan2cb05( 87) = is_mbo_3m3e1ol          ; p_of_cb05( 87) = p_par      ; cb05_per_megan( 87)  =  4.
1527     p_of_megan2cb05( 88) = is_benzaldehyde         ; p_of_cb05( 88) = p_tol      ; cb05_per_megan( 88)  =  1.
1528     p_of_megan2cb05( 89) = is_butanone_2           ; p_of_cb05( 89) = p_ispd     ; cb05_per_megan( 89)  =  1.
1529     p_of_megan2cb05( 90) = is_butanone_2           ; p_of_cb05( 90) = p_par      ; cb05_per_megan( 90)  =  2.
1530     p_of_megan2cb05( 91) = is_decanal              ; p_of_cb05( 91) = p_aldx     ; cb05_per_megan( 91)  =  1.
1531     p_of_megan2cb05( 92) = is_decanal              ; p_of_cb05( 92) = p_par      ; cb05_per_megan( 92)  =  8.
1532     p_of_megan2cb05( 93) = is_dodecene_1           ; p_of_cb05( 93) = p_ole      ; cb05_per_megan( 93)  =  1.
1533     p_of_megan2cb05( 94) = is_dodecene_1           ; p_of_cb05( 94) = p_par      ; cb05_per_megan( 94)  =  10.
1534     p_of_megan2cb05( 95) = is_geranyl_acetone      ; p_of_cb05( 95) = p_hum      ; cb05_per_megan( 95)  =  1.
1535     p_of_megan2cb05( 96) = is_heptanal             ; p_of_cb05( 96) = p_aldx     ; cb05_per_megan( 96)  =  1.
1536     p_of_megan2cb05( 97) = is_heptanal             ; p_of_cb05( 97) = p_par      ; cb05_per_megan( 97)  =  5.
1537     p_of_megan2cb05( 98) = is_heptane              ; p_of_cb05( 98) = p_par      ; cb05_per_megan( 98)  =  7.
1538     p_of_megan2cb05( 99) = is_hexane               ; p_of_cb05( 99) = p_par      ; cb05_per_megan( 99)  =  6.
1539     p_of_megan2cb05(100) = is_met_benzoate         ; p_of_cb05(100) = p_tol      ; cb05_per_megan(100)  =  1.
1540     p_of_megan2cb05(101) = is_met_heptenone        ; p_of_cb05(101) = p_ispd     ; cb05_per_megan(101)  =  1.
1541     p_of_megan2cb05(102) = is_met_heptenone        ; p_of_cb05(102) = p_par      ; cb05_per_megan(102)  =  3.
1542     p_of_megan2cb05(103) = is_met_heptenone        ; p_of_cb05(103) = p_ole      ; cb05_per_megan(103)  =  1.
1543     p_of_megan2cb05(104) = is_neryl_acetone        ; p_of_cb05(104) = p_ispd     ; cb05_per_megan(104)  =  1.
1544     p_of_megan2cb05(105) = is_neryl_acetone        ; p_of_cb05(105) = p_par      ; cb05_per_megan(105)  =  8.
1545     p_of_megan2cb05(106) = is_neryl_acetone        ; p_of_cb05(106) = p_iole     ; cb05_per_megan(106)  =  2.
1546     p_of_megan2cb05(107) = is_nonanal              ; p_of_cb05(107) = p_aldx     ; cb05_per_megan(107)  =  1.
1547     p_of_megan2cb05(108) = is_nonanal              ; p_of_cb05(108) = p_par      ; cb05_per_megan(108)  =  7.
1548     p_of_megan2cb05(109) = is_nonenal              ; p_of_cb05(109) = p_aldx     ; cb05_per_megan(109)  =  1.
1549     p_of_megan2cb05(110) = is_nonenal              ; p_of_cb05(110) = p_par      ; cb05_per_megan(110)  =  6.
1550     p_of_megan2cb05(111) = is_nonenal              ; p_of_cb05(111) = p_iole     ; cb05_per_megan(111)  =  1.
1551     p_of_megan2cb05(112) = is_octanal              ; p_of_cb05(112) = p_aldx     ; cb05_per_megan(112)  =  1.
1552     p_of_megan2cb05(113) = is_octanal              ; p_of_cb05(113) = p_par      ; cb05_per_megan(113)  =  6.
1553     p_of_megan2cb05(114) = is_octanol              ; p_of_cb05(114) = p_par      ; cb05_per_megan(114)  =  8.
1554     p_of_megan2cb05(115) = is_octenol_1e3ol        ; p_of_cb05(115) = p_par      ; cb05_per_megan(115)  =  6.
1555     p_of_megan2cb05(116) = is_octenol_1e3ol        ; p_of_cb05(116) = p_ole      ; cb05_per_megan(116)  =  1.
1556     p_of_megan2cb05(117) = is_oxopentanal          ; p_of_cb05(117) = p_aldx     ; cb05_per_megan(117)  =  1.
1557     p_of_megan2cb05(118) = is_oxopentanal          ; p_of_cb05(118) = p_par      ; cb05_per_megan(118)  =  3.
1558     p_of_megan2cb05(119) = is_pentane              ; p_of_cb05(119) = p_par      ; cb05_per_megan(119)  =  5.
1559     p_of_megan2cb05(120) = is_phenyl_cco           ; p_of_cb05(120) = p_aldx     ; cb05_per_megan(120)  =  1
1560     p_of_megan2cb05(121) = is_phenyl_cco           ; p_of_cb05(121) = p_tol      ; cb05_per_megan(121)  =  1.
1561     p_of_megan2cb05(122) = is_pyruvic_acid         ; p_of_cb05(122) = p_aacd     ; cb05_per_megan(122)  =  1.
1562     p_of_megan2cb05(123) = is_pyruvic_acid         ; p_of_cb05(123) = p_ispd     ; cb05_per_megan(123)  =  1.
1563     p_of_megan2cb05(124) = is_terpinyl_act_a       ; p_of_cb05(124) = p_oci      ; cb05_per_megan(124)  =  1.
1564     p_of_megan2cb05(125) = is_tetradecene_1        ; p_of_cb05(125) = p_par      ; cb05_per_megan(125)  =  12.
1565     p_of_megan2cb05(126) = is_tetradecene_1        ; p_of_cb05(126) = p_ole      ; cb05_per_megan(126)  =  1.
1566     p_of_megan2cb05(127) = is_toluene              ; p_of_cb05(127) = p_tol      ; cb05_per_megan(127)  =  1.
1567     p_of_megan2cb05(128) = is_carbon_monoxide      ; p_of_cb05(128) = p_co       ; cb05_per_megan(128)  =  1.
1568     p_of_megan2cb05(129) = is_butene               ; p_of_cb05(129) = p_ole      ; cb05_per_megan(129)  =  1.
1569     p_of_megan2cb05(130) = is_butene               ; p_of_cb05(130) = p_par      ; cb05_per_megan(130)  =  2.
1570     p_of_megan2cb05(131) = is_ethane               ; p_of_cb05(131) = p_etha     ; cb05_per_megan(131)  =  1.
1571     p_of_megan2cb05(132) = is_ethene               ; p_of_cb05(132) = p_eth      ; cb05_per_megan(132)  =  1.
1572     p_of_megan2cb05(133) = is_hydrogen_cyanide     ; p_of_cb05(133) = non_react  ; cb05_per_megan(133)  =  1.
1573     p_of_megan2cb05(134) = is_propane              ; p_of_cb05(134) = p_par      ; cb05_per_megan(134)  =  3.
1574     p_of_megan2cb05(135) = is_propene              ; p_of_cb05(135) = p_ole      ; cb05_per_megan(135)  =  1.
1575     p_of_megan2cb05(136) = is_propene              ; p_of_cb05(136) = p_par      ; cb05_per_megan(136)  =  1.
1576     p_of_megan2cb05(137) = is_carbon_2s            ; p_of_cb05(137) = non_react  ; cb05_per_megan(137)  =  1.
1577     p_of_megan2cb05(138) = is_carbonyl_s           ; p_of_cb05(138) = non_react  ; cb05_per_megan(138)  =  1.
1578     p_of_megan2cb05(139) = is_diallyl_2s           ; p_of_cb05(139) = non_react  ; cb05_per_megan(139)  =  1.
1579     p_of_megan2cb05(140) = is_diallyl_2s           ; p_of_cb05(140) = p_par      ; cb05_per_megan(140)  =  2.
1580     p_of_megan2cb05(141) = is_diallyl_2s           ; p_of_cb05(141) = p_ole      ; cb05_per_megan(141)  =  2.
1581     p_of_megan2cb05(142) = is_2met_2s              ; p_of_cb05(142) = non_react  ; cb05_per_megan(142)  =  1.
1582     p_of_megan2cb05(143) = is_2met_s               ; p_of_cb05(143) = non_react  ; cb05_per_megan(143)  =  1.
1583     p_of_megan2cb05(144) = is_met_chloride         ; p_of_cb05(144) = non_react  ; cb05_per_megan(144)  =  1.
1584     p_of_megan2cb05(145) = is_met_bromide          ; p_of_cb05(145) = non_react  ; cb05_per_megan(145)  =  1.
1585     p_of_megan2cb05(146) = is_met_iodide           ; p_of_cb05(146) = non_react  ; cb05_per_megan(146)  =  1.
1586     p_of_megan2cb05(147) = is_hydrogen_s           ; p_of_cb05(147) = non_react  ; cb05_per_megan(147)  =  1.
1587     p_of_megan2cb05(148) = is_met_mercaptan        ; p_of_cb05(148) = p_par      ; cb05_per_megan(148)  =  1.
1588     p_of_megan2cb05(149) = is_met_propenyl_2s      ; p_of_cb05(149) = non_react  ; cb05_per_megan(149)  =  1.
1589     p_of_megan2cb05(150) = is_met_propenyl_2s      ; p_of_cb05(150) = p_iole     ; cb05_per_megan(150)  =  1.
1590     p_of_megan2cb05(151) = is_pppp_2s              ; p_of_cb05(151) = non_react  ; cb05_per_megan(151)  =  1.
1591     p_of_megan2cb05(152) = is_pppp_2s              ; p_of_cb05(152) = p_par      ; cb05_per_megan(152)  =  2.
1592     p_of_megan2cb05(153) = is_pppp_2s              ; p_of_cb05(153) = p_iole     ; cb05_per_megan(153)  =  1.
1593     p_of_megan2cb05(154) = is_2met_nonatriene      ; p_of_cb05(154) = p_oci      ; cb05_per_megan(154)  =  1.
1594     p_of_megan2cb05(155) = is_met_salicylate       ; p_of_cb05(155) = p_tol      ; cb05_per_megan(155)  =  1.
1595     p_of_megan2cb05(156) = is_indole               ; p_of_cb05(156) = p_tol      ; cb05_per_megan(156)  =  1.
1596     p_of_megan2cb05(157) = is_jasmone              ; p_of_cb05(157) = p_oci      ; cb05_per_megan(157)  =  1.
1597     p_of_megan2cb05(158) = is_met_jasmonate        ; p_of_cb05(158) = p_hum      ; cb05_per_megan(158)  =  1.
1598     p_of_megan2cb05(159) = is_3met_3dctt           ; p_of_cb05(159) = p_hum      ; cb05_per_megan(159)  =  1.
1599     p_of_megan2cb05(160) = is_hexanal              ; p_of_cb05(160) = p_aldx     ; cb05_per_megan(160)  =  1.
1600     p_of_megan2cb05(161) = is_hexanal              ; p_of_cb05(161) = p_par      ; cb05_per_megan(161)  =  4.
1601     p_of_megan2cb05(162) = is_hexanol_1            ; p_of_cb05(162) = p_par      ; cb05_per_megan(162)  =  6.
1602     p_of_megan2cb05(163) = is_hexenal_c3           ; p_of_cb05(163) = p_aldx     ; cb05_per_megan(163)  =  1.
1603     p_of_megan2cb05(164) = is_hexenal_c3           ; p_of_cb05(164) = p_par      ; cb05_per_megan(164)  =  3.
1604     p_of_megan2cb05(165) = is_hexenal_c3           ; p_of_cb05(165) = p_iole     ; cb05_per_megan(165)  =  1
1605     p_of_megan2cb05(166) = is_hexenal_t2           ; p_of_cb05(166) = p_aldx     ; cb05_per_megan(166)  =  1.
1606     p_of_megan2cb05(167) = is_hexenal_t2           ; p_of_cb05(167) = p_par      ; cb05_per_megan(167)  =  6.
1607     p_of_megan2cb05(168) = is_hexenal_t2           ; p_of_cb05(168) = p_iole     ; cb05_per_megan(168)  =  1.
1608     p_of_megan2cb05(169) = is_hexenol_c3           ; p_of_cb05(169) = p_par      ; cb05_per_megan(169)  =  5.
1609     p_of_megan2cb05(170) = is_hexenol_c3           ; p_of_cb05(170) = p_iole     ; cb05_per_megan(170)  =  1.
1610     p_of_megan2cb05(171) = is_hexenyl_act_c3       ; p_of_cb05(171) = p_ispd     ; cb05_per_megan(171)  =  1.
1611     p_of_megan2cb05(172) = is_hexenyl_act_c3       ; p_of_cb05(172) = p_par      ; cb05_per_megan(172)  =  5.
1612     p_of_megan2cb05(173) = is_hexenyl_act_c3       ; p_of_cb05(173) = p_iole     ; cb05_per_megan(173)  =  1.
1613
1614   END SUBROUTINE get_megan2cb05_table
1615
1616   SUBROUTINE get_megan2cb05vbs_table
1617     ! MEGAN species                                  CB05 Species                  Molar ratio
1618     !
1619     p_of_megan2cb05vbs(  1) = is_isoprene             ; p_of_cb05vbs(  1) = p_isop     ; cb05vbs_per_megan(  1)  =  1.
1620     p_of_megan2cb05vbs(  2) = is_myrcene              ; p_of_cb05vbs(  2) = p_oci      ; cb05vbs_per_megan(  2)  =  1.
1621     p_of_megan2cb05vbs(  3) = is_sabinene             ; p_of_cb05vbs(  3) = p_apin     ; cb05vbs_per_megan(  3)  =  1.
1622     p_of_megan2cb05vbs(  4) = is_limonene             ; p_of_cb05vbs(  4) = p_lim      ; cb05vbs_per_megan(  4)  =  1.
1623     p_of_megan2cb05vbs(  5) = is_carene_3             ; p_of_cb05vbs(  5) = p_bpin     ; cb05vbs_per_megan(  5)  =  1.
1624     p_of_megan2cb05vbs(  6) = is_ocimene_t_b          ; p_of_cb05vbs(  6) = p_oci      ; cb05vbs_per_megan(  6)  =  1.
1625     p_of_megan2cb05vbs(  7) = is_pinene_b             ; p_of_cb05vbs(  7) = p_bpin     ; cb05vbs_per_megan(  7)  =  1.
1626     p_of_megan2cb05vbs(  8) = is_pinene_a             ; p_of_cb05vbs(  8) = p_apin     ; cb05vbs_per_megan(  8)  =  1.
1627     p_of_megan2cb05vbs(  9) = is_2met_styrene         ; p_of_cb05vbs(  9) = p_oci      ; cb05vbs_per_megan(  9)  =  1.
1628     p_of_megan2cb05vbs( 10) = is_cymene_p             ; p_of_cb05vbs( 10) = p_oci      ; cb05vbs_per_megan( 10)  =  1.
1629     p_of_megan2cb05vbs( 11) = is_cymene_o             ; p_of_cb05vbs( 11) = p_oci      ; cb05vbs_per_megan( 11)  =  1.
1630     p_of_megan2cb05vbs( 12) = is_phellandrene_a       ; p_of_cb05vbs( 12) = p_oci      ; cb05vbs_per_megan( 12)  =  1.
1631     p_of_megan2cb05vbs( 13) = is_thujene_a            ; p_of_cb05vbs( 13) = p_oci      ; cb05vbs_per_megan( 13)  =  1.
1632     p_of_megan2cb05vbs( 14) = is_terpinene_a          ; p_of_cb05vbs( 14) = p_ter      ; cb05vbs_per_megan( 14)  =  1.
1633     p_of_megan2cb05vbs( 15) = is_terpinene_g          ; p_of_cb05vbs( 15) = p_ter      ; cb05vbs_per_megan( 15)  =  1.
1634     p_of_megan2cb05vbs( 16) = is_terpinolene          ; p_of_cb05vbs( 16) = p_oci      ; cb05vbs_per_megan( 16)  =  1.
1635     p_of_megan2cb05vbs( 17) = is_phellandrene_b       ; p_of_cb05vbs( 17) = p_oci      ; cb05vbs_per_megan( 17)  =  1.
1636     p_of_megan2cb05vbs( 18) = is_camphene             ; p_of_cb05vbs( 18) = p_oci      ; cb05vbs_per_megan( 18)  =  1.
1637     p_of_megan2cb05vbs( 19) = is_bornene              ; p_of_cb05vbs( 19) = p_oci      ; cb05vbs_per_megan( 19)  =  1.
1638     p_of_megan2cb05vbs( 20) = is_fenchene_a           ; p_of_cb05vbs( 20) = p_oci      ; cb05vbs_per_megan( 20)  =  1.
1639     p_of_megan2cb05vbs( 21) = is_ocimene_al           ; p_of_cb05vbs( 21) = p_oci      ; cb05vbs_per_megan( 21)  =  1.
1640     p_of_megan2cb05vbs( 22) = is_ocimene_c_b          ; p_of_cb05vbs( 22) = p_oci      ; cb05vbs_per_megan( 22)  =  1.
1641     p_of_megan2cb05vbs( 23) = is_tricyclene           ; p_of_cb05vbs( 23) = p_oci      ; cb05vbs_per_megan( 23)  =  1.
1642     p_of_megan2cb05vbs( 24) = is_estragole            ; p_of_cb05vbs( 24) = p_oci      ; cb05vbs_per_megan( 24)  =  1.
1643     p_of_megan2cb05vbs( 25) = is_camphor              ; p_of_cb05vbs( 25) = p_oci      ; cb05vbs_per_megan( 25)  =  1.
1644     p_of_megan2cb05vbs( 26) = is_fenchone             ; p_of_cb05vbs( 26) = p_oci      ; cb05vbs_per_megan( 26)  =  1.
1645     p_of_megan2cb05vbs( 27) = is_piperitone           ; p_of_cb05vbs( 27) = p_oci      ; cb05vbs_per_megan( 27)  =  1.
1646     p_of_megan2cb05vbs( 28) = is_thujone_a            ; p_of_cb05vbs( 28) = p_oci      ; cb05vbs_per_megan( 28)  =  1.
1647     p_of_megan2cb05vbs( 29) = is_thujone_b            ; p_of_cb05vbs( 29) = p_oci      ; cb05vbs_per_megan( 29)  =  1.
1648     p_of_megan2cb05vbs( 30) = is_cineole_1_8          ; p_of_cb05vbs( 30) = p_oci      ; cb05vbs_per_megan( 30)  =  1.
1649     p_of_megan2cb05vbs( 31) = is_borneol              ; p_of_cb05vbs( 31) = p_oci      ; cb05vbs_per_megan( 31)  =  1.
1650     p_of_megan2cb05vbs( 32) = is_linalool             ; p_of_cb05vbs( 32) = p_oci      ; cb05vbs_per_megan( 32)  =  1.
1651     p_of_megan2cb05vbs( 33) = is_terpineol_4          ; p_of_cb05vbs( 33) = p_oci      ; cb05vbs_per_megan( 33)  =  1.
1652     p_of_megan2cb05vbs( 34) = is_terpineol_a          ; p_of_cb05vbs( 34) = p_oci      ; cb05vbs_per_megan( 34)  =  1.
1653     p_of_megan2cb05vbs( 35) = is_linalool_oxd_c       ; p_of_cb05vbs( 35) = p_oci      ; cb05vbs_per_megan( 35)  =  1.
1654     p_of_megan2cb05vbs( 36) = is_linalool_oxd_t       ; p_of_cb05vbs( 36) = p_oci      ; cb05vbs_per_megan( 36)  =  1.
1655     p_of_megan2cb05vbs( 37) = is_ionone_b             ; p_of_cb05vbs( 37) = p_hum      ; cb05vbs_per_megan( 37)  =  1.
1656     p_of_megan2cb05vbs( 38) = is_bornyl_act           ; p_of_cb05vbs( 38) = p_oci      ; cb05vbs_per_megan( 38)  =  1.
1657     p_of_megan2cb05vbs( 39) = is_farnescene_a         ; p_of_cb05vbs( 39) = p_hum      ; cb05vbs_per_megan( 39)  =  1.
1658     p_of_megan2cb05vbs( 40) = is_caryophyllene_b      ; p_of_cb05vbs( 40) = p_hum      ; cb05vbs_per_megan( 40)  =  1.
1659     p_of_megan2cb05vbs( 41) = is_acoradiene           ; p_of_cb05vbs( 41) = p_hum      ; cb05vbs_per_megan( 41)  =  1.
1660     p_of_megan2cb05vbs( 42) = is_aromadendrene        ; p_of_cb05vbs( 42) = p_hum      ; cb05vbs_per_megan( 42)  =  1.
1661     p_of_megan2cb05vbs( 43) = is_bergamotene_a        ; p_of_cb05vbs( 43) = p_hum      ; cb05vbs_per_megan( 43)  =  1.
1662     p_of_megan2cb05vbs( 44) = is_bergamotene_b        ; p_of_cb05vbs( 44) = p_hum      ; cb05vbs_per_megan( 44)  =  1.
1663     p_of_megan2cb05vbs( 45) = is_bisabolene_a         ; p_of_cb05vbs( 45) = p_hum      ; cb05vbs_per_megan( 45)  =  1.
1664     p_of_megan2cb05vbs( 46) = is_bisabolene_b         ; p_of_cb05vbs( 46) = p_hum      ; cb05vbs_per_megan( 46)  =  1.
1665     p_of_megan2cb05vbs( 47) = is_bourbonene_b         ; p_of_cb05vbs( 47) = p_hum      ; cb05vbs_per_megan( 47)  =  1.
1666     p_of_megan2cb05vbs( 48) = is_cadinene_d           ; p_of_cb05vbs( 48) = p_hum      ; cb05vbs_per_megan( 48)  =  1.
1667     p_of_megan2cb05vbs( 49) = is_cadinene_g           ; p_of_cb05vbs( 49) = p_hum      ; cb05vbs_per_megan( 49)  =  1.
1668     p_of_megan2cb05vbs( 50) = is_cedrene_a            ; p_of_cb05vbs( 50) = p_hum      ; cb05vbs_per_megan( 50)  =  1.
1669     p_of_megan2cb05vbs( 51) = is_copaene_a            ; p_of_cb05vbs( 51) = p_hum      ; cb05vbs_per_megan( 51)  =  1.
1670     p_of_megan2cb05vbs( 52) = is_cubebene_a           ; p_of_cb05vbs( 52) = p_hum      ; cb05vbs_per_megan( 52)  =  1.
1671     p_of_megan2cb05vbs( 53) = is_cubebene_b           ; p_of_cb05vbs( 53) = p_hum      ; cb05vbs_per_megan( 53)  =  1.
1672     p_of_megan2cb05vbs( 54) = is_elemene_b            ; p_of_cb05vbs( 54) = p_hum      ; cb05vbs_per_megan( 54)  =  1.
1673     p_of_megan2cb05vbs( 55) = is_farnescene_b         ; p_of_cb05vbs( 55) = p_hum      ; cb05vbs_per_megan( 55)  =  1.
1674     p_of_megan2cb05vbs( 56) = is_germacrene_B         ; p_of_cb05vbs( 56) = p_hum      ; cb05vbs_per_megan( 56)  =  1.
1675     p_of_megan2cb05vbs( 57) = is_germacrene_D         ; p_of_cb05vbs( 57) = p_hum      ; cb05vbs_per_megan( 57)  =  1.
1676     p_of_megan2cb05vbs( 58) = is_gurjunene_b          ; p_of_cb05vbs( 58) = p_hum      ; cb05vbs_per_megan( 58)  =  1.
1677     p_of_megan2cb05vbs( 59) = is_humulene_a           ; p_of_cb05vbs( 59) = p_hum      ; cb05vbs_per_megan( 59)  =  1.
1678     p_of_megan2cb05vbs( 60) = is_humulene_g           ; p_of_cb05vbs( 60) = p_hum      ; cb05vbs_per_megan( 60)  =  1.
1679     p_of_megan2cb05vbs( 61) = is_isolongifolene       ; p_of_cb05vbs( 61) = p_hum      ; cb05vbs_per_megan( 61)  =  1.
1680     p_of_megan2cb05vbs( 62) = is_longifolene          ; p_of_cb05vbs( 62) = p_hum      ; cb05vbs_per_megan( 62)  =  1.
1681     p_of_megan2cb05vbs( 63) = is_longipinene          ; p_of_cb05vbs( 63) = p_hum      ; cb05vbs_per_megan( 63)  =  1.
1682     p_of_megan2cb05vbs( 64) = is_muurolene_a          ; p_of_cb05vbs( 64) = p_hum      ; cb05vbs_per_megan( 64)  =  1.
1683     p_of_megan2cb05vbs( 65) = is_muurolene_g          ; p_of_cb05vbs( 65) = p_hum      ; cb05vbs_per_megan( 65)  =  1.
1684     p_of_megan2cb05vbs( 66) = is_selinene_b           ; p_of_cb05vbs( 66) = p_hum      ; cb05vbs_per_megan( 66)  =  1.
1685     p_of_megan2cb05vbs( 67) = is_selinene_d           ; p_of_cb05vbs( 67) = p_hum      ; cb05vbs_per_megan( 67)  =  1.
1686     p_of_megan2cb05vbs( 68) = is_nerolidol_c          ; p_of_cb05vbs( 68) = p_hum      ; cb05vbs_per_megan( 68)  =  1.
1687     p_of_megan2cb05vbs( 69) = is_nerolidol_t          ; p_of_cb05vbs( 69) = p_hum      ; cb05vbs_per_megan( 69)  =  1.
1688     p_of_megan2cb05vbs( 70) = is_cedrol               ; p_of_cb05vbs( 70) = p_hum      ; cb05vbs_per_megan( 70)  =  1.
1689     p_of_megan2cb05vbs( 71) = is_mbo_2m3e2ol          ; p_of_cb05vbs( 71) = p_ole      ; cb05vbs_per_megan( 71)  =  1.
1690     p_of_megan2cb05vbs( 72) = is_mbo_2m3e2ol          ; p_of_cb05vbs( 72) = p_par      ; cb05vbs_per_megan( 72)  =  3.
1691     p_of_megan2cb05vbs( 73) = is_methanol             ; p_of_cb05vbs( 73) = p_meoh     ; cb05vbs_per_megan( 73)  =  1.
1692     p_of_megan2cb05vbs( 74) = is_acetone              ; p_of_cb05vbs( 74) = p_ispd     ; cb05vbs_per_megan( 74)  =  1.
1693     p_of_megan2cb05vbs( 75) = is_methane              ; p_of_cb05vbs( 75) = p_ch4      ; cb05vbs_per_megan( 75)  =  1.
1694     p_of_megan2cb05vbs( 76) = is_ammonia              ; p_of_cb05vbs( 76) = p_nh3      ; cb05vbs_per_megan( 76)  =  1.
1695     p_of_megan2cb05vbs( 77) = is_nitrous_oxd          ; p_of_cb05vbs( 77) = non_react  ; cb05vbs_per_megan( 77)  =  1.
1696     p_of_megan2cb05vbs( 78) = is_nitric_oxd           ; p_of_cb05vbs( 78) = p_no       ; cb05vbs_per_megan( 78)  =  1.
1697     p_of_megan2cb05vbs( 79) = is_acetaldehyde         ; p_of_cb05vbs( 79) = p_ald2     ; cb05vbs_per_megan( 79)  =  1.
1698     p_of_megan2cb05vbs( 80) = is_ethanol              ; p_of_cb05vbs( 80) = p_etoh     ; cb05vbs_per_megan( 80)  =  1.
1699     p_of_megan2cb05vbs( 81) = is_formic_acid          ; p_of_cb05vbs( 81) = p_facd     ; cb05vbs_per_megan( 81)  =  1.
1700     p_of_megan2cb05vbs( 82) = is_formaldehyde         ; p_of_cb05vbs( 82) = p_form     ; cb05vbs_per_megan( 82)  =  1.
1701     p_of_megan2cb05vbs( 83) = is_acetic_acid          ; p_of_cb05vbs( 83) = p_aacd     ; cb05vbs_per_megan( 83)  =  1.
1702     p_of_megan2cb05vbs( 84) = is_mbo_3m2e1ol          ; p_of_cb05vbs( 84) = p_ald2     ; cb05vbs_per_megan( 84)  =  1.
1703     p_of_megan2cb05vbs( 85) = is_mbo_3m2e1ol          ; p_of_cb05vbs( 85) = p_par      ; cb05vbs_per_megan( 85)  =  3.
1704     p_of_megan2cb05vbs( 86) = is_mbo_3m3e1ol          ; p_of_cb05vbs( 86) = p_form     ; cb05vbs_per_megan( 86)  =  1.
1705     p_of_megan2cb05vbs( 87) = is_mbo_3m3e1ol          ; p_of_cb05vbs( 87) = p_par      ; cb05vbs_per_megan( 87)  =  4.
1706     p_of_megan2cb05vbs( 88) = is_benzaldehyde         ; p_of_cb05vbs( 88) = p_tol      ; cb05vbs_per_megan( 88)  =  1.
1707     p_of_megan2cb05vbs( 89) = is_butanone_2           ; p_of_cb05vbs( 89) = p_ispd     ; cb05vbs_per_megan( 89)  =  1.
1708     p_of_megan2cb05vbs( 90) = is_butanone_2           ; p_of_cb05vbs( 90) = p_par      ; cb05vbs_per_megan( 90)  =  2.
1709     p_of_megan2cb05vbs( 91) = is_decanal              ; p_of_cb05vbs( 91) = p_aldx     ; cb05vbs_per_megan( 91)  =  1.
1710     p_of_megan2cb05vbs( 92) = is_decanal              ; p_of_cb05vbs( 92) = p_par      ; cb05vbs_per_megan( 92)  =  8.
1711     p_of_megan2cb05vbs( 93) = is_dodecene_1           ; p_of_cb05vbs( 93) = p_ole      ; cb05vbs_per_megan( 93)  =  1.
1712     p_of_megan2cb05vbs( 94) = is_dodecene_1           ; p_of_cb05vbs( 94) = p_par      ; cb05vbs_per_megan( 94)  =  10.
1713     p_of_megan2cb05vbs( 95) = is_geranyl_acetone      ; p_of_cb05vbs( 95) = p_hum      ; cb05vbs_per_megan( 95)  =  1.
1714     p_of_megan2cb05vbs( 96) = is_heptanal             ; p_of_cb05vbs( 96) = p_aldx     ; cb05vbs_per_megan( 96)  =  1.
1715     p_of_megan2cb05vbs( 97) = is_heptanal             ; p_of_cb05vbs( 97) = p_par      ; cb05vbs_per_megan( 97)  =  5.
1716     p_of_megan2cb05vbs( 98) = is_heptane              ; p_of_cb05vbs( 98) = p_par      ; cb05vbs_per_megan( 98)  =  7.
1717     p_of_megan2cb05vbs( 99) = is_hexane               ; p_of_cb05vbs( 99) = p_par      ; cb05vbs_per_megan( 99)  =  6.
1718     p_of_megan2cb05vbs(100) = is_met_benzoate         ; p_of_cb05vbs(100) = p_tol      ; cb05vbs_per_megan(100)  =  1.
1719     p_of_megan2cb05vbs(101) = is_met_heptenone        ; p_of_cb05vbs(101) = p_ispd     ; cb05vbs_per_megan(101)  =  1.
1720     p_of_megan2cb05vbs(102) = is_met_heptenone        ; p_of_cb05vbs(102) = p_par      ; cb05vbs_per_megan(102)  =  3.
1721     p_of_megan2cb05vbs(103) = is_met_heptenone        ; p_of_cb05vbs(103) = p_ole      ; cb05vbs_per_megan(103)  =  1.
1722     p_of_megan2cb05vbs(104) = is_neryl_acetone        ; p_of_cb05vbs(104) = p_ispd     ; cb05vbs_per_megan(104)  =  1.
1723     p_of_megan2cb05vbs(105) = is_neryl_acetone        ; p_of_cb05vbs(105) = p_par      ; cb05vbs_per_megan(105)  =  8.
1724     p_of_megan2cb05vbs(106) = is_neryl_acetone        ; p_of_cb05vbs(106) = p_iole     ; cb05vbs_per_megan(106)  =  2.
1725     p_of_megan2cb05vbs(107) = is_nonanal              ; p_of_cb05vbs(107) = p_aldx     ; cb05vbs_per_megan(107)  =  1.
1726     p_of_megan2cb05vbs(108) = is_nonanal              ; p_of_cb05vbs(108) = p_par      ; cb05vbs_per_megan(108)  =  7.
1727     p_of_megan2cb05vbs(109) = is_nonenal              ; p_of_cb05vbs(109) = p_aldx     ; cb05vbs_per_megan(109)  =  1.
1728     p_of_megan2cb05vbs(110) = is_nonenal              ; p_of_cb05vbs(110) = p_par      ; cb05vbs_per_megan(110)  =  6.
1729     p_of_megan2cb05vbs(111) = is_nonenal              ; p_of_cb05vbs(111) = p_iole     ; cb05vbs_per_megan(111)  =  1.
1730     p_of_megan2cb05vbs(112) = is_octanal              ; p_of_cb05vbs(112) = p_aldx     ; cb05vbs_per_megan(112)  =  1.
1731     p_of_megan2cb05vbs(113) = is_octanal              ; p_of_cb05vbs(113) = p_par      ; cb05vbs_per_megan(113)  =  6.
1732     p_of_megan2cb05vbs(114) = is_octanol              ; p_of_cb05vbs(114) = p_par      ; cb05vbs_per_megan(114)  =  8.
1733     p_of_megan2cb05vbs(115) = is_octenol_1e3ol        ; p_of_cb05vbs(115) = p_par      ; cb05vbs_per_megan(115)  =  6.
1734     p_of_megan2cb05vbs(116) = is_octenol_1e3ol        ; p_of_cb05vbs(116) = p_ole      ; cb05vbs_per_megan(116)  =  1.
1735     p_of_megan2cb05vbs(117) = is_oxopentanal          ; p_of_cb05vbs(117) = p_aldx     ; cb05vbs_per_megan(117)  =  1.
1736     p_of_megan2cb05vbs(118) = is_oxopentanal          ; p_of_cb05vbs(118) = p_par      ; cb05vbs_per_megan(118)  =  3.
1737     p_of_megan2cb05vbs(119) = is_pentane              ; p_of_cb05vbs(119) = p_par      ; cb05vbs_per_megan(119)  =  5.
1738     p_of_megan2cb05vbs(120) = is_phenyl_cco           ; p_of_cb05vbs(120) = p_aldx     ; cb05vbs_per_megan(120)  =  1
1739     p_of_megan2cb05vbs(121) = is_phenyl_cco           ; p_of_cb05vbs(121) = p_tol      ; cb05vbs_per_megan(121)  =  1.
1740     p_of_megan2cb05vbs(122) = is_pyruvic_acid         ; p_of_cb05vbs(122) = p_aacd     ; cb05vbs_per_megan(122)  =  1.
1741     p_of_megan2cb05vbs(123) = is_pyruvic_acid         ; p_of_cb05vbs(123) = p_ispd     ; cb05vbs_per_megan(123)  =  1.
1742     p_of_megan2cb05vbs(124) = is_terpinyl_act_a       ; p_of_cb05vbs(124) = p_oci      ; cb05vbs_per_megan(124)  =  1.
1743     p_of_megan2cb05vbs(125) = is_tetradecene_1        ; p_of_cb05vbs(125) = p_par      ; cb05vbs_per_megan(125)  =  12.
1744     p_of_megan2cb05vbs(126) = is_tetradecene_1        ; p_of_cb05vbs(126) = p_ole      ; cb05vbs_per_megan(126)  =  1.
1745     p_of_megan2cb05vbs(127) = is_toluene              ; p_of_cb05vbs(127) = p_tol      ; cb05vbs_per_megan(127)  =  1.
1746     p_of_megan2cb05vbs(128) = is_carbon_monoxide      ; p_of_cb05vbs(128) = p_co       ; cb05vbs_per_megan(128)  =  1.
1747     p_of_megan2cb05vbs(129) = is_butene               ; p_of_cb05vbs(129) = p_ole      ; cb05vbs_per_megan(129)  =  1.
1748     p_of_megan2cb05vbs(130) = is_butene               ; p_of_cb05vbs(130) = p_par      ; cb05vbs_per_megan(130)  =  2.
1749     p_of_megan2cb05vbs(131) = is_ethane               ; p_of_cb05vbs(131) = p_etha     ; cb05vbs_per_megan(131)  =  1.
1750     p_of_megan2cb05vbs(132) = is_ethene               ; p_of_cb05vbs(132) = p_eth      ; cb05vbs_per_megan(132)  =  1.
1751     p_of_megan2cb05vbs(133) = is_hydrogen_cyanide     ; p_of_cb05vbs(133) = non_react  ; cb05vbs_per_megan(133)  =  1.
1752     p_of_megan2cb05vbs(134) = is_propane              ; p_of_cb05vbs(134) = p_par      ; cb05vbs_per_megan(134)  =  3.
1753     p_of_megan2cb05vbs(135) = is_propene              ; p_of_cb05vbs(135) = p_ole      ; cb05vbs_per_megan(135)  =  1.
1754     p_of_megan2cb05vbs(136) = is_propene              ; p_of_cb05vbs(136) = p_par      ; cb05vbs_per_megan(136)  =  1.
1755     p_of_megan2cb05vbs(137) = is_carbon_2s            ; p_of_cb05vbs(137) = non_react  ; cb05vbs_per_megan(137)  =  1.
1756     p_of_megan2cb05vbs(138) = is_carbonyl_s           ; p_of_cb05vbs(138) = non_react  ; cb05vbs_per_megan(138)  =  1.
1757     p_of_megan2cb05vbs(139) = is_diallyl_2s           ; p_of_cb05vbs(139) = non_react  ; cb05vbs_per_megan(139)  =  1.
1758     p_of_megan2cb05vbs(140) = is_diallyl_2s           ; p_of_cb05vbs(140) = p_par      ; cb05vbs_per_megan(140)  =  2.
1759     p_of_megan2cb05vbs(141) = is_diallyl_2s           ; p_of_cb05vbs(141) = p_ole      ; cb05vbs_per_megan(141)  =  2.
1760     p_of_megan2cb05vbs(142) = is_2met_2s              ; p_of_cb05vbs(142) = non_react  ; cb05vbs_per_megan(142)  =  1.
1761     p_of_megan2cb05vbs(143) = is_2met_s               ; p_of_cb05vbs(143) = non_react  ; cb05vbs_per_megan(143)  =  1.
1762     p_of_megan2cb05vbs(144) = is_met_chloride         ; p_of_cb05vbs(144) = non_react  ; cb05vbs_per_megan(144)  =  1.
1763     p_of_megan2cb05vbs(145) = is_met_bromide          ; p_of_cb05vbs(145) = non_react  ; cb05vbs_per_megan(145)  =  1.
1764     p_of_megan2cb05vbs(146) = is_met_iodide           ; p_of_cb05vbs(146) = non_react  ; cb05vbs_per_megan(146)  =  1.
1765     p_of_megan2cb05vbs(147) = is_hydrogen_s           ; p_of_cb05vbs(147) = non_react  ; cb05vbs_per_megan(147)  =  1.
1766     p_of_megan2cb05vbs(148) = is_met_mercaptan        ; p_of_cb05vbs(148) = p_par      ; cb05vbs_per_megan(148)  =  1.
1767     p_of_megan2cb05vbs(149) = is_met_propenyl_2s      ; p_of_cb05vbs(149) = non_react  ; cb05vbs_per_megan(149)  =  1.
1768     p_of_megan2cb05vbs(150) = is_met_propenyl_2s      ; p_of_cb05vbs(150) = p_iole     ; cb05vbs_per_megan(150)  =  1.
1769     p_of_megan2cb05vbs(151) = is_pppp_2s              ; p_of_cb05vbs(151) = non_react  ; cb05vbs_per_megan(151)  =  1.
1770     p_of_megan2cb05vbs(152) = is_pppp_2s              ; p_of_cb05vbs(152) = p_par      ; cb05vbs_per_megan(152)  =  2.
1771     p_of_megan2cb05vbs(153) = is_pppp_2s              ; p_of_cb05vbs(153) = p_iole     ; cb05vbs_per_megan(153)  =  1.
1772     p_of_megan2cb05vbs(154) = is_2met_nonatriene      ; p_of_cb05vbs(154) = p_oci      ; cb05vbs_per_megan(154)  =  1.
1773     p_of_megan2cb05vbs(155) = is_met_salicylate       ; p_of_cb05vbs(155) = p_tol      ; cb05vbs_per_megan(155)  =  1.
1774     p_of_megan2cb05vbs(156) = is_indole               ; p_of_cb05vbs(156) = p_tol      ; cb05vbs_per_megan(156)  =  1.
1775     p_of_megan2cb05vbs(157) = is_jasmone              ; p_of_cb05vbs(157) = p_oci      ; cb05vbs_per_megan(157)  =  1.
1776     p_of_megan2cb05vbs(158) = is_met_jasmonate        ; p_of_cb05vbs(158) = p_hum      ; cb05vbs_per_megan(158)  =  1.
1777     p_of_megan2cb05vbs(159) = is_3met_3dctt           ; p_of_cb05vbs(159) = p_hum      ; cb05vbs_per_megan(159)  =  1.
1778     p_of_megan2cb05vbs(160) = is_hexanal              ; p_of_cb05vbs(160) = p_aldx     ; cb05vbs_per_megan(160)  =  1.
1779     p_of_megan2cb05vbs(161) = is_hexanal              ; p_of_cb05vbs(161) = p_par      ; cb05vbs_per_megan(161)  =  4.
1780     p_of_megan2cb05vbs(162) = is_hexanol_1            ; p_of_cb05vbs(162) = p_par      ; cb05vbs_per_megan(162)  =  6.
1781     p_of_megan2cb05vbs(163) = is_hexenal_c3           ; p_of_cb05vbs(163) = p_aldx     ; cb05vbs_per_megan(163)  =  1.
1782     p_of_megan2cb05vbs(164) = is_hexenal_c3           ; p_of_cb05vbs(164) = p_par      ; cb05vbs_per_megan(164)  =  3.
1783     p_of_megan2cb05vbs(165) = is_hexenal_c3           ; p_of_cb05vbs(165) = p_iole     ; cb05vbs_per_megan(165)  =  1
1784     p_of_megan2cb05vbs(166) = is_hexenal_t2           ; p_of_cb05vbs(166) = p_aldx     ; cb05vbs_per_megan(166)  =  1.
1785     p_of_megan2cb05vbs(167) = is_hexenal_t2           ; p_of_cb05vbs(167) = p_par      ; cb05vbs_per_megan(167)  =  6.
1786     p_of_megan2cb05vbs(168) = is_hexenal_t2           ; p_of_cb05vbs(168) = p_iole     ; cb05vbs_per_megan(168)  =  1.
1787     p_of_megan2cb05vbs(169) = is_hexenol_c3           ; p_of_cb05vbs(169) = p_par      ; cb05vbs_per_megan(169)  =  5.
1788     p_of_megan2cb05vbs(170) = is_hexenol_c3           ; p_of_cb05vbs(170) = p_iole     ; cb05vbs_per_megan(170)  =  1.
1789     p_of_megan2cb05vbs(171) = is_hexenyl_act_c3       ; p_of_cb05vbs(171) = p_ispd     ; cb05vbs_per_megan(171)  =  1.
1790     p_of_megan2cb05vbs(172) = is_hexenyl_act_c3       ; p_of_cb05vbs(172) = p_par      ; cb05vbs_per_megan(172)  =  5.
1791     p_of_megan2cb05vbs(173) = is_hexenyl_act_c3       ; p_of_cb05vbs(173) = p_iole     ; cb05vbs_per_megan(173)  =  1.
1792
1793   END SUBROUTINE get_megan2cb05vbs_table
1794
1795 !--------------------------------------------------------------------
1796
1797   SUBROUTINE get_megan2crimech_table
1798
1799     ! For MEGAN v2.04 species conversion to crimech species
1800     ! Based on Tan's MAP_CV2crimech.EXT
1801
1802     !
1803     ! Index of                                   Index of                      Molar ratio
1804     ! MEGAN species                              crimech Species
1805     !
1806
1807     p_of_megan2crimech(  1) = is_isoprene         ; p_of_crimech(  1) = p_c5h8    ;  crimech_per_megan(  1)    =  1.000
1808     p_of_megan2crimech(  2) = is_myrcene          ; p_of_crimech(  2) = p_bpinene ;  crimech_per_megan(  2)    =  1.000
1809     p_of_megan2crimech(  3) = is_sabinene         ; p_of_crimech(  3) = p_bpinene ;  crimech_per_megan(  3)    =  1.000
1810     p_of_megan2crimech(  4) = is_limonene         ; p_of_crimech(  4) = p_apinene ;  crimech_per_megan(  4)    =  0.667
1811     p_of_megan2crimech(  5) = is_limonene         ; p_of_crimech(  5) = p_bpinene ;  crimech_per_megan(  5)    =  0.333
1812     p_of_megan2crimech(  6) = is_carene_3         ; p_of_crimech(  6) = p_apinene ;  crimech_per_megan(  6)    =  1.000
1813     p_of_megan2crimech(  7) = is_ocimene_t_b      ; p_of_crimech(  7) = p_bpinene ;  crimech_per_megan(  7)    =  1.000
1814     p_of_megan2crimech(  8) = is_pinene_b         ; p_of_crimech(  8) = p_bpinene ;  crimech_per_megan(  8)    =  1.000
1815     p_of_megan2crimech(  9) = is_pinene_a         ; p_of_crimech(  9) = p_apinene ;  crimech_per_megan(  9)    =  1.000
1816     p_of_megan2crimech( 10) = is_2met_styrene     ; p_of_crimech( 10) = p_apinene ;  crimech_per_megan( 10)    =  1.000
1817     p_of_megan2crimech( 11) = is_2met_styrene     ; p_of_crimech( 11) = p_bpinene ;  crimech_per_megan( 11)    =  1.000
1818     p_of_megan2crimech( 12) = is_cymene_p         ; p_of_crimech( 12) = p_toluene ;  crimech_per_megan( 12)    =  1.500
1819     p_of_megan2crimech( 13) = is_cymene_o         ; p_of_crimech( 13) = p_toluene ;  crimech_per_megan( 13)    =  1.500
1820     p_of_megan2crimech( 14) = is_phellandrene_a   ; p_of_crimech( 14) = p_apinene ;  crimech_per_megan( 14)    =  1.000
1821     p_of_megan2crimech( 15) = is_thujene_a        ; p_of_crimech( 15) = p_apinene ;  crimech_per_megan( 15)    =  1.000
1822     p_of_megan2crimech( 16) = is_terpinene_a      ; p_of_crimech( 16) = p_apinene ;  crimech_per_megan( 16)    =  1.000
1823     p_of_megan2crimech( 17) = is_terpinene_g      ; p_of_crimech( 17) = p_apinene ;  crimech_per_megan( 17)    =  1.000
1824     p_of_megan2crimech( 18) = is_terpinolene      ; p_of_crimech( 18) = p_apinene ;  crimech_per_megan( 18)    =  0.667
1825     p_of_megan2crimech( 19) = is_terpinolene      ; p_of_crimech( 19) = p_bpinene ;  crimech_per_megan( 19)    =  0.333
1826     p_of_megan2crimech( 20) = is_phellandrene_b   ; p_of_crimech( 20) = p_bpinene ;  crimech_per_megan( 20)    =  1.000
1827     p_of_megan2crimech( 21) = is_camphene         ; p_of_crimech( 21) = p_bpinene ;  crimech_per_megan( 21)    =  1.000
1828     p_of_megan2crimech( 22) = is_bornene          ; p_of_crimech( 22) = p_apinene ;  crimech_per_megan( 22)    =  1.000
1829     p_of_megan2crimech( 23) = is_fenchene_a       ; p_of_crimech( 23) = p_apinene ;  crimech_per_megan( 23)    =  1.000
1830     p_of_megan2crimech( 24) = is_ocimene_al       ; p_of_crimech( 24) = p_apinene ;  crimech_per_megan( 24)    =  1.000
1831     p_of_megan2crimech( 25) = is_ocimene_c_b      ; p_of_crimech( 25) = p_bpinene ;  crimech_per_megan( 25)    =  1.000
1832     p_of_megan2crimech( 26) = is_tricyclene       ; p_of_crimech( 26) = p_apinene ;  crimech_per_megan( 26)    =  0.667
1833     p_of_megan2crimech( 27) = is_tricyclene       ; p_of_crimech( 27) = p_bpinene ;  crimech_per_megan( 27)    =  0.333
1834     p_of_megan2crimech( 28) = is_estragole        ; p_of_crimech( 28) = p_apinene ;  crimech_per_megan( 28)    =  0.667
1835     p_of_megan2crimech( 29) = is_estragole        ; p_of_crimech( 29) = p_bpinene ;  crimech_per_megan( 29)    =  0.333
1836     p_of_megan2crimech( 30) = is_camphor          ; p_of_crimech( 30) = p_c5h8    ;  crimech_per_megan( 30)    =  2.000
1837     p_of_megan2crimech( 31) = is_fenchone         ; p_of_crimech( 31) = p_apinene ;  crimech_per_megan( 31)    =  0.667
1838     p_of_megan2crimech( 32) = is_fenchone         ; p_of_crimech( 32) = p_bpinene ;  crimech_per_megan( 32)    =  0.333
1839     p_of_megan2crimech( 33) = is_piperitone       ; p_of_crimech( 33) = p_apinene ;  crimech_per_megan( 33)    =  1.000
1840     p_of_megan2crimech( 34) = is_thujone_a        ; p_of_crimech( 34) = p_apinene ;  crimech_per_megan( 34)    =  1.000
1841     p_of_megan2crimech( 35) = is_thujone_b        ; p_of_crimech( 35) = p_bpinene ;  crimech_per_megan( 35)    =  1.000
1842     p_of_megan2crimech( 36) = is_cineole_1_8      ; p_of_crimech( 36) = p_c5h8    ;  crimech_per_megan( 36)    =  2.000
1843     p_of_megan2crimech( 37) = is_borneol          ; p_of_crimech( 37) = p_c5h8    ;  crimech_per_megan( 37)    =  2.000
1844     p_of_megan2crimech( 38) = is_linalool         ; p_of_crimech( 38) = p_apinene ;  crimech_per_megan( 38)    =  0.667
1845     p_of_megan2crimech( 39) = is_linalool         ; p_of_crimech( 39) = p_bpinene ;  crimech_per_megan( 39)    =  0.333
1846     p_of_megan2crimech( 40) = is_terpineol_4      ; p_of_crimech( 40) = p_apinene ;  crimech_per_megan( 40)    =  1.000
1847     p_of_megan2crimech( 41) = is_terpineol_a      ; p_of_crimech( 41) = p_apinene ;  crimech_per_megan( 41)    =  1.000
1848     p_of_megan2crimech( 42) = is_linalool_oxd_c   ; p_of_crimech( 42) = p_apinene ;  crimech_per_megan( 42)    =  0.833
1849     p_of_megan2crimech( 43) = is_linalool_oxd_c   ; p_of_crimech( 43) = p_bpinene ;  crimech_per_megan( 43)    =  0.416
1850     p_of_megan2crimech( 44) = is_linalool_oxd_t   ; p_of_crimech( 44) = p_apinene ;  crimech_per_megan( 44)    =  0.833
1851     p_of_megan2crimech( 45) = is_linalool_oxd_t   ; p_of_crimech( 45) = p_bpinene ;  crimech_per_megan( 45)    =  0.416
1852     p_of_megan2crimech( 46) = is_ionone_b         ; p_of_crimech( 46) = p_apinene ;  crimech_per_megan( 46)    =  0.934
1853     p_of_megan2crimech( 47) = is_ionone_b         ; p_of_crimech( 47) = p_bpinene ;  crimech_per_megan( 47)    =  0.462
1854     p_of_megan2crimech( 48) = is_bornyl_act       ; p_of_crimech( 48) = p_apinene ;  crimech_per_megan( 48)    =  0.667
1855     p_of_megan2crimech( 49) = is_bornyl_act       ; p_of_crimech( 49) = p_bpinene ;  crimech_per_megan( 49)    =  0.333
1856     p_of_megan2crimech( 50) = is_farnescene_a     ; p_of_crimech( 50) = p_apinene ;  crimech_per_megan( 50)    =  1.500
1857     p_of_megan2crimech( 51) = is_caryophyllene_b  ; p_of_crimech( 51) = p_apinene ;  crimech_per_megan( 51)    =  1.000
1858     p_of_megan2crimech( 52) = is_caryophyllene_b  ; p_of_crimech( 52) = p_bpinene ;  crimech_per_megan( 52)    =  0.500
1859     p_of_megan2crimech( 53) = is_acoradiene       ; p_of_crimech( 53) = p_apinene ;  crimech_per_megan( 53)    =  1.000
1860     p_of_megan2crimech( 54) = is_acoradiene       ; p_of_crimech( 54) = p_bpinene ;  crimech_per_megan( 54)    =  0.500
1861     p_of_megan2crimech( 55) = is_aromadendrene    ; p_of_crimech( 55) = p_apinene ;  crimech_per_megan( 55)    =  1.000
1862     p_of_megan2crimech( 56) = is_aromadendrene    ; p_of_crimech( 56) = p_bpinene ;  crimech_per_megan( 56)    =  0.500
1863     p_of_megan2crimech( 57) = is_bergamotene_a    ; p_of_crimech( 57) = p_apinene ;  crimech_per_megan( 57)    =  1.500
1864     p_of_megan2crimech( 58) = is_bergamotene_b    ; p_of_crimech( 58) = p_bpinene ;  crimech_per_megan( 58)    =  1.500
1865     p_of_megan2crimech( 59) = is_bisabolene_a     ; p_of_crimech( 59) = p_apinene ;  crimech_per_megan( 59)    =  1.500
1866     p_of_megan2crimech( 60) = is_bisabolene_b     ; p_of_crimech( 60) = p_bpinene ;  crimech_per_megan( 60)    =  1.500
1867     p_of_megan2crimech( 61) = is_bourbonene_b     ; p_of_crimech( 61) = p_apinene ;  crimech_per_megan( 61)    =  1.000
1868     p_of_megan2crimech( 62) = is_bourbonene_b     ; p_of_crimech( 62) = p_bpinene ;  crimech_per_megan( 62)    =  0.500
1869     p_of_megan2crimech( 63) = is_cadinene_d       ; p_of_crimech( 63) = p_apinene ;  crimech_per_megan( 63)    =  1.000
1870     p_of_megan2crimech( 64) = is_cadinene_d       ; p_of_crimech( 64) = p_bpinene ;  crimech_per_megan( 64)    =  0.500
1871     p_of_megan2crimech( 65) = is_cadinene_g       ; p_of_crimech( 65) = p_apinene ;  crimech_per_megan( 65)    =  1.000
1872     p_of_megan2crimech( 66) = is_cadinene_g       ; p_of_crimech( 66) = p_bpinene ;  crimech_per_megan( 66)    =  1.500
1873     p_of_megan2crimech( 67) = is_cedrene_a        ; p_of_crimech( 67) = p_apinene ;  crimech_per_megan( 67)    =  1.000
1874     p_of_megan2crimech( 68) = is_cedrene_a        ; p_of_crimech( 68) = p_bpinene ;  crimech_per_megan( 68)    =  0.500
1875     p_of_megan2crimech( 69) = is_copaene_a        ; p_of_crimech( 69) = p_apinene ;  crimech_per_megan( 69)    =  1.000
1876     p_of_megan2crimech( 70) = is_copaene_a        ; p_of_crimech( 70) = p_bpinene ;  crimech_per_megan( 70)    =  0.500
1877     p_of_megan2crimech( 71) = is_cubebene_a       ; p_of_crimech( 71) = p_apinene ;  crimech_per_megan( 71)    =  1.000
1878     p_of_megan2crimech( 72) = is_cubebene_a       ; p_of_crimech( 72) = p_bpinene ;  crimech_per_megan( 72)    =  0.500
1879     p_of_megan2crimech( 73) = is_cubebene_b       ; p_of_crimech( 73) = p_apinene ;  crimech_per_megan( 73)    =  1.000
1880     p_of_megan2crimech( 74) = is_cubebene_b       ; p_of_crimech( 74) = p_bpinene ;  crimech_per_megan( 74)    =  0.500
1881     p_of_megan2crimech( 75) = is_elemene_b        ; p_of_crimech( 75) = p_apinene ;  crimech_per_megan( 75)    =  1.000
1882     p_of_megan2crimech( 76) = is_elemene_b        ; p_of_crimech( 76) = p_bpinene ;  crimech_per_megan( 76)    =  0.500
1883     p_of_megan2crimech( 77) = is_farnescene_b     ; p_of_crimech( 77) = p_apinene ;  crimech_per_megan( 77)    =  1.000
1884     p_of_megan2crimech( 78) = is_farnescene_b     ; p_of_crimech( 78) = p_bpinene ;  crimech_per_megan( 78)    =  0.500
1885     p_of_megan2crimech( 79) = is_germacrene_b     ; p_of_crimech( 79) = p_apinene ;  crimech_per_megan( 79)    =  1.000
1886     p_of_megan2crimech( 80) = is_germacrene_b     ; p_of_crimech( 80) = p_bpinene ;  crimech_per_megan( 80)    =  0.500
1887     p_of_megan2crimech( 81) = is_germacrene_d     ; p_of_crimech( 81) = p_apinene ;  crimech_per_megan( 81)    =  1.000
1888     p_of_megan2crimech( 82) = is_germacrene_d     ; p_of_crimech( 82) = p_bpinene ;  crimech_per_megan( 82)    =  0.500
1889     p_of_megan2crimech( 83) = is_gurjunene_b      ; p_of_crimech( 83) = p_apinene ;  crimech_per_megan( 83)    =  1.000
1890     p_of_megan2crimech( 84) = is_gurjunene_b      ; p_of_crimech( 84) = p_bpinene ;  crimech_per_megan( 84)    =  0.500
1891     p_of_megan2crimech( 85) = is_humulene_a       ; p_of_crimech( 85) = p_apinene ;  crimech_per_megan( 85)    =  1.000
1892     p_of_megan2crimech( 86) = is_humulene_a       ; p_of_crimech( 86) = p_bpinene ;  crimech_per_megan( 86)    =  0.500
1893     p_of_megan2crimech( 87) = is_humulene_g       ; p_of_crimech( 87) = p_apinene ;  crimech_per_megan( 87)    =  1.000
1894     p_of_megan2crimech( 88) = is_humulene_g       ; p_of_crimech( 88) = p_bpinene ;  crimech_per_megan( 88)    =  0.500
1895     p_of_megan2crimech( 89) = is_isolongifolene   ; p_of_crimech( 89) = p_apinene ;  crimech_per_megan( 89)    =  1.000
1896     p_of_megan2crimech( 90) = is_isolongifolene   ; p_of_crimech( 90) = p_bpinene ;  crimech_per_megan( 90)    =  0.500
1897     p_of_megan2crimech( 91) = is_longifolene      ; p_of_crimech( 91) = p_apinene ;  crimech_per_megan( 91)    =  1.000
1898     p_of_megan2crimech( 92) = is_longifolene      ; p_of_crimech( 92) = p_bpinene ;  crimech_per_megan( 92)    =  0.500
1899     p_of_megan2crimech( 93) = is_longipinene      ; p_of_crimech( 93) = p_apinene ;  crimech_per_megan( 93)    =  1.000
1900     p_of_megan2crimech( 94) = is_longipinene      ; p_of_crimech( 94) = p_bpinene ;  crimech_per_megan( 94)    =  0.500
1901     p_of_megan2crimech( 95) = is_muurolene_a      ; p_of_crimech( 95) = p_apinene ;  crimech_per_megan( 95)    =  1.000
1902     p_of_megan2crimech( 96) = is_muurolene_a      ; p_of_crimech( 96) = p_bpinene ;  crimech_per_megan( 96)    =  0.500
1903     p_of_megan2crimech( 97) = is_muurolene_g      ; p_of_crimech( 97) = p_apinene ;  crimech_per_megan( 97)    =  1.000
1904     p_of_megan2crimech( 98) = is_muurolene_g      ; p_of_crimech( 98) = p_bpinene ;  crimech_per_megan( 98)    =  0.500
1905     p_of_megan2crimech( 99) = is_selinene_b       ; p_of_crimech( 99) = p_apinene ;  crimech_per_megan( 99)    =  1.000
1906     p_of_megan2crimech(100) = is_selinene_b       ; p_of_crimech(100) = p_bpinene ;  crimech_per_megan(100)    =  0.500
1907     p_of_megan2crimech(101) = is_selinene_d       ; p_of_crimech(101) = p_apinene ;  crimech_per_megan(101)    =  1.000
1908     p_of_megan2crimech(102) = is_selinene_d       ; p_of_crimech(102) = p_bpinene ;  crimech_per_megan(102)    =  0.500
1909     p_of_megan2crimech(103) = is_nerolidol_c      ; p_of_crimech(103) = p_apinene ;  crimech_per_megan(103)    =  1.000
1910     p_of_megan2crimech(104) = is_nerolidol_c      ; p_of_crimech(104) = p_bpinene ;  crimech_per_megan(104)    =  0.500
1911     p_of_megan2crimech(105) = is_nerolidol_t      ; p_of_crimech(105) = p_apinene ;  crimech_per_megan(105)    =  1.000
1912     p_of_megan2crimech(106) = is_nerolidol_t      ; p_of_crimech(106) = p_bpinene ;  crimech_per_megan(106)    =  0.500
1913     p_of_megan2crimech(107) = is_cedrol           ; p_of_crimech(107) = p_c5h8    ;  crimech_per_megan(107)    =  3.000
1914     p_of_megan2crimech(108) = is_mbo_2m3e2ol      ; p_of_crimech(108) = p_c5h8    ;  crimech_per_megan(108)    =  2.400
1915     p_of_megan2crimech(109) = is_methanol         ; p_of_crimech(109) = p_ch3oh   ;  crimech_per_megan(109)    =  1.000
1916     p_of_megan2crimech(110) = is_acetone          ; p_of_crimech(110) = p_ket     ;  crimech_per_megan(110)    =  1.000
1917     p_of_megan2crimech(111) = is_methane          ; p_of_crimech(111) = p_ch4     ;  crimech_per_megan(111)    =  1.000
1918     p_of_megan2crimech(112) = is_ammonia          ; p_of_crimech(112) = p_nh3     ;  crimech_per_megan(112)    =  1.000
1919     p_of_megan2crimech(113) = is_nitrous_oxd      ; p_of_crimech(113) = p_no2     ;  crimech_per_megan(113)    =  1.000
1920     p_of_megan2crimech(114) = is_nitric_oxd       ; p_of_crimech(114) = p_no      ;  crimech_per_megan(114)    =  1.000
1921     p_of_megan2crimech(115) = is_acetaldehyde     ; p_of_crimech(115) = p_ch3cho  ;  crimech_per_megan(115)    =  1.000
1922     p_of_megan2crimech(116) = is_ethanol          ; p_of_crimech(116) = p_c2h5oh  ;  crimech_per_megan(116)    =  1.000
1923     p_of_megan2crimech(117) = is_formic_acid      ; p_of_crimech(117) = p_hcooh   ;  crimech_per_megan(117)    =  1.000
1924     p_of_megan2crimech(118) = is_formaldehyde     ; p_of_crimech(118) = p_hcho    ;  crimech_per_megan(118)    =  1.000
1925     p_of_megan2crimech(119) = is_acetic_acid      ; p_of_crimech(119) = p_ch3co2h ;  crimech_per_megan(119)    =  1.000
1926     p_of_megan2crimech(120) = is_mbo_3m2e1ol      ; p_of_crimech(120) = p_c5h8    ;  crimech_per_megan(120)    =  1.260
1927     p_of_megan2crimech(121) = is_mbo_3m3e1ol      ; p_of_crimech(121) = p_c5h8    ;  crimech_per_megan(121)    =  1.260
1928     p_of_megan2crimech(122) = is_benzaldehyde     ; p_of_crimech(122) = p_benzene ;  crimech_per_megan(122)    =  0.883
1929     p_of_megan2crimech(123) = is_butanone_2       ; p_of_crimech(123) = p_mek     ;  crimech_per_megan(123)    =  1.000
1930     p_of_megan2crimech(124) = is_decanal          ; p_of_crimech(124) = p_c2h5cho ;  crimech_per_megan(124)    =  2.690
1931     p_of_megan2crimech(125) = is_dodecene_1       ; p_of_crimech(125) = p_tbut2ene;  crimech_per_megan(125)    =  3.000
1932     p_of_megan2crimech(126) = is_geranyl_acetone  ; p_of_crimech(126) = p_apinene ;  crimech_per_megan(126)    =  1.400
1933     p_of_megan2crimech(127) = is_geranyl_acetone  ; p_of_crimech(127) = p_bpinene ;  crimech_per_megan(127)    =  1.400
1934     p_of_megan2crimech(128) = is_heptanal         ; p_of_crimech(128) = p_c2h5cho ;  crimech_per_megan(128)    =  1.966
1935     p_of_megan2crimech(129) = is_heptane          ; p_of_crimech(129) = p_nc4h10  ;  crimech_per_megan(129)    =  1.724
1936     p_of_megan2crimech(130) = is_hexane           ; p_of_crimech(130) = p_nc4h10  ;  crimech_per_megan(130)    =  1.483
1937     p_of_megan2crimech(131) = is_met_benzoate     ; p_of_crimech(131) = p_toluene ;  crimech_per_megan(131)    =  1.478
1938     p_of_megan2crimech(132) = is_met_heptenone    ; p_of_crimech(132) = p_tbut2ene;  crimech_per_megan(132)    =  3.000
1939     p_of_megan2crimech(133) = is_neryl_acetone    ; p_of_crimech(133) = p_ket     ;  crimech_per_megan(133)    =  3.379
1940     p_of_megan2crimech(134) = is_nonanal          ; p_of_crimech(134) = p_c2h5cho ;  crimech_per_megan(134)    =  2.448
1941     p_of_megan2crimech(135) = is_nonenal          ; p_of_crimech(135) = p_nc4h10  ;  crimech_per_megan(135)    =  2.413
1942     p_of_megan2crimech(136) = is_nonenal          ; p_of_crimech(136) = p_c2h5cho ;  crimech_per_megan(136)    =  2.413
1943     p_of_megan2crimech(137) = is_octanal          ; p_of_crimech(137) = p_c2h5cho ;  crimech_per_megan(137)    =  2.207
1944     p_of_megan2crimech(138) = is_octanol          ; p_of_crimech(138) = p_hc8     ;  crimech_per_megan(138)    =  2.207
1945     p_of_megan2crimech(139) = is_octenol_1e3ol    ; p_of_crimech(139) = p_tbut2ene;  crimech_per_megan(139)    =  2.286
1946     p_of_megan2crimech(140) = is_oxopentanal      ; p_of_crimech(140) = p_mek     ;  crimech_per_megan(140)    =  1.400
1947     p_of_megan2crimech(141) = is_pentane          ; p_of_crimech(141) = p_nc4h10  ;  crimech_per_megan(141)    =  1.241
1948     p_of_megan2crimech(142) = is_phenyl_cco       ; p_of_crimech(142) = p_toluene ;  crimech_per_megan(142)    =  1.300
1949     p_of_megan2crimech(143) = is_pyruvic_acid     ; p_of_crimech(143) = p_ch3co2h ;  crimech_per_megan(143)    =  1.158
1950     p_of_megan2crimech(144) = is_terpinyl_act_a   ; p_of_crimech(144) = p_apinene ;  crimech_per_megan(144)    =  0.934
1951     p_of_megan2crimech(145) = is_terpinyl_act_a   ; p_of_crimech(145) = p_bpinene ;  crimech_per_megan(145)    =  0.466
1952     p_of_megan2crimech(146) = is_tetradecene_1    ; p_of_crimech(146) = p_tbut2ene;  crimech_per_megan(146)    =  3.500
1953     p_of_megan2crimech(147) = is_toluene          ; p_of_crimech(147) = p_toluene ;  crimech_per_megan(147)    =  1.000
1954     p_of_megan2crimech(148) = is_carbon_monoxide  ; p_of_crimech(148) = p_co      ;  crimech_per_megan(148)    =  1.000
1955     p_of_megan2crimech(149) = is_butene           ; p_of_crimech(149) = p_tbut2ene;  crimech_per_megan(149)    =  1.000
1956     p_of_megan2crimech(150) = is_ethane           ; p_of_crimech(150) = p_c2h6    ;  crimech_per_megan(150)    =  1.000
1957     p_of_megan2crimech(151) = is_ethene           ; p_of_crimech(151) = p_c2h4    ;  crimech_per_megan(151)    =  1.000
1958     p_of_megan2crimech(152) = is_hydrogen_cyanide ; p_of_crimech(152) = non_react ;  crimech_per_megan(152)    =  1.000
1959     p_of_megan2crimech(153) = is_propane          ; p_of_crimech(153) = p_c3h8    ;  crimech_per_megan(153)    =  1.000
1960     p_of_megan2crimech(154) = is_propene          ; p_of_crimech(154) = p_c3h6    ;  crimech_per_megan(154)    =  1.000
1961     p_of_megan2crimech(155) = is_carbon_2s        ; p_of_crimech(155) = non_react ;  crimech_per_megan(155)    =  1.000
1962     p_of_megan2crimech(156) = is_carbonyl_s       ; p_of_crimech(156) = non_react ;  crimech_per_megan(156)    =  1.000
1963     p_of_megan2crimech(157) = is_diallyl_2s       ; p_of_crimech(157) = p_tbut2ene;  crimech_per_megan(157)    =  0.660
1964     p_of_megan2crimech(158) = is_diallyl_2s       ; p_of_crimech(158) = p_so2     ;  crimech_per_megan(158)    =  2.000
1965     p_of_megan2crimech(159) = is_2met_2s          ; p_of_crimech(159) = p_c2h6    ;  crimech_per_megan(159)    =  1.000
1966     p_of_megan2crimech(160) = is_2met_2s          ; p_of_crimech(160) = p_so2     ;  crimech_per_megan(160)    =  2.000
1967     p_of_megan2crimech(161) = is_2met_s           ; p_of_crimech(161) = p_c2h6    ;  crimech_per_megan(161)    =  1.000
1968     p_of_megan2crimech(162) = is_2met_s           ; p_of_crimech(162) = p_so2     ;  crimech_per_megan(162)    =  1.000
1969     p_of_megan2crimech(163) = is_met_chloride     ; p_of_crimech(163) = non_react ;  crimech_per_megan(163)    =  1.000
1970     p_of_megan2crimech(164) = is_met_bromide      ; p_of_crimech(164) = non_react ;  crimech_per_megan(164)    =  1.000
1971     p_of_megan2crimech(165) = is_met_iodide       ; p_of_crimech(165) = non_react ;  crimech_per_megan(165)    =  1.000
1972     p_of_megan2crimech(166) = is_hydrogen_s       ; p_of_crimech(166) = p_so2     ;  crimech_per_megan(166)    =  1.000
1973     p_of_megan2crimech(167) = is_met_mercaptan    ; p_of_crimech(167) = p_ch4     ;  crimech_per_megan(167)    =  1.000
1974     p_of_megan2crimech(168) = is_met_mercaptan    ; p_of_crimech(168) = p_so2     ;  crimech_per_megan(168)    =  1.000
1975     p_of_megan2crimech(169) = is_met_propenyl_2s  ; p_of_crimech(169) = p_c3h6    ;  crimech_per_megan(169)    =  2.800
1976     p_of_megan2crimech(170) = is_met_propenyl_2s  ; p_of_crimech(170) = p_so2     ;  crimech_per_megan(170)    =  2.000
1977     p_of_megan2crimech(171) = is_pppp_2s          ; p_of_crimech(171) = p_c3h6    ;  crimech_per_megan(171)    =  3.500
1978     p_of_megan2crimech(172) = is_pppp_2s          ; p_of_crimech(172) = p_so2     ;  crimech_per_megan(172)    =  1.800
1979     p_of_megan2crimech(173) = is_2met_nonatriene  ; p_of_crimech(173) = p_apinene ;  crimech_per_megan(173)    =  0.667
1980     p_of_megan2crimech(174) = is_2met_nonatriene  ; p_of_crimech(174) = p_bpinene ;  crimech_per_megan(174)    =  0.333
1981     p_of_megan2crimech(175) = is_met_salicylate   ; p_of_crimech(175) = p_toluene ;  crimech_per_megan(175)    =  1.652
1982     p_of_megan2crimech(176) = is_indole           ; p_of_crimech(176) = p_toluene ;  crimech_per_megan(176)    =  1.200
1983     p_of_megan2crimech(177) = is_indole           ; p_of_crimech(177) = p_hno3    ;  crimech_per_megan(177)    =  1.000
1984     p_of_megan2crimech(178) = is_jasmone          ; p_of_crimech(178) = p_apinene ;  crimech_per_megan(178)    =  0.804
1985     p_of_megan2crimech(179) = is_jasmone          ; p_of_crimech(179) = p_bpinene ;  crimech_per_megan(179)    =  0.402
1986     p_of_megan2crimech(180) = is_met_jasmonate    ; p_of_crimech(180) = p_apinene ;  crimech_per_megan(180)    =  1.098
1987     p_of_megan2crimech(181) = is_met_jasmonate    ; p_of_crimech(181) = p_bpinene ;  crimech_per_megan(181)    =  0.548
1988     p_of_megan2crimech(182) = is_3met_3dctt       ; p_of_crimech(182) = p_tbut2ene;  crimech_per_megan(182)    =  3.893
1989     p_of_megan2crimech(183) = is_hexanal          ; p_of_crimech(183) = p_c2h5cho ;  crimech_per_megan(183)    =  1.720
1990     p_of_megan2crimech(184) = is_hexanol_1        ; p_of_crimech(184) = p_nc4h10  ;  crimech_per_megan(184)    =  1.759
1991     p_of_megan2crimech(185) = is_hexenal_c3       ; p_of_crimech(185) = p_tbut2ene;  crimech_per_megan(185)    =  1.750
1992     p_of_megan2crimech(186) = is_hexenal_t2       ; p_of_crimech(186) = p_tbut2ene;  crimech_per_megan(186)    =  1.750
1993     p_of_megan2crimech(187) = is_hexenol_c3       ; p_of_crimech(187) = p_tbut2ene;  crimech_per_megan(187)    =  1.786
1994     p_of_megan2crimech(188) = is_hexenyl_act_c3   ; p_of_crimech(188) = p_tbut2ene;  crimech_per_megan(188)    =  2.536
1995
1996   END SUBROUTINE get_megan2crimech_table
1997
1998
1999
2000 END MODULE module_data_mgn2mech