MODULE module_data_megan2
!
! This module contains parameters for biogenic emissions model
! MEGAN v2.04
!
! Reference:
!
! Estimates of global terrestial isoprene emissions using MEGAN
! (Model of Emissions of Gases and Aerosols from Nature )
! A. Guenther, T. Karl, P. Harley, C. Wiedinmyer, P.I. Palmer, and C. Geron
! Atmospheric Chemistry and Physics, 6, 3181-3210, 2006
!
! MEGAN v2.0 Documentation
!
! August, 2007
!
! Serena H. Chung Washington State University
! Tan Sakulyanontvittaya University of Colorado
! Christine Wiedinmyer National Center for Atmospheric Research
!
IMPLICIT NONE
!=======================================================================
! The following contains 20 clases of species for MEGAN v2.04
! Originally from Tan's SPC_MGN.EXT (12/02/2006)
!=======================================================================
INTEGER, PARAMETER :: n_mgn_spc = 20
INTEGER, PARAMETER :: n_spc_char = 16
CHARACTER (len=n_spc_char), DIMENSION (n_mgn_spc) :: mgn_spc
! Indices for 20 Classes of MEGAN v2.04 Species
! The ordering here follows that of Table 2 of MEGAN v2.0
! Documentation. For programming, the ordering does not matter,
! except that imgn_isop should always be 1.
INTEGER, PARAMETER :: &
& imgn_isop = 1 & ! isoprene
& ,imgn_mbo = 2 & ! MBO (only (2-methyl-3-ene-2-ol)-methylbutenol)
& ,imgn_myrc = 3 & ! myrcene
& ,imgn_sabi = 4 & ! sabinene
& ,imgn_limo = 5 & ! limonene
& ,imgn_3car = 6 & ! 3 carene
& ,imgn_ocim = 7 & ! trans-beta-ocimene
& ,imgn_bpin = 8 & ! beta-pinene
& ,imgn_apin = 9 & ! alpha-pinene
& ,imgn_afarn = 10 & ! alpha-farnescene
& ,imgn_bcar = 11 & ! beta-caryophyllene
& ,imgn_meoh = 12 & ! methanol
& ,imgn_acto = 13 & ! acetone
& ,imgn_acta = 14 & ! acetaldehyde and ethanol
& ,imgn_form = 15 & ! formic acid, formaldehyde, acetic acid
& ,imgn_ch4 = 16 & ! methane
& ,imgn_no = 17 & ! nitric oxide (and NO2 and NH3 )
& ,imgn_omtp = 18 & ! other monoterpenes
& ,imgn_osqt = 19 & ! other sesquiterpenes
& ,imgn_co = 20 ! CO and other VOC
!
! For reference, below is how Tan's ordereing the 20 classes of species
! in his SPC_MGN.EXT. They are different from the ordering above.
! The following is provide for convenience when copying/pasting
! Tan's code to here.
!
! Tan's Order Species Class
! 1 isop
! 2 myrc
! 3 sabi
! 4 limo
! 5 3car
! 6 ocim
! 7 bpin
! 8 apin
! 9 omtp
! 10 afarn
! 11 bcar
! 12 osqt
! 13 mbo
! 14 meoh
! 15 acto
! 16 ch4
! 17 no
! 18 acta
! 19 form
! 20 co
! Names of the 20 calses of Species
! (These are not used, except for testing stage)
DATA mgn_spc( imgn_isop ) / 'isoprene ' / ! isoprene
DATA mgn_spc( imgn_mbo ) / 'MBO ' / ! MBO (only (2-methyl-3-ene-2-ol)-methylbutenol)
DATA mgn_spc( imgn_myrc ) / 'myrcene ' / ! myrcene
DATA mgn_spc( imgn_sabi ) / 'sabinene ' / ! sabinene
DATA mgn_spc( imgn_limo ) / 'limonene ' / ! limonene
DATA mgn_spc( imgn_3car ) / '3carene ' / ! 3 carene
DATA mgn_spc( imgn_ocim ) / 'ocimene ' / ! trans-beta-ocimene
DATA mgn_spc( imgn_bpin ) / 'b-pinene ' / ! beta-pinene
DATA mgn_spc( imgn_apin ) / 'a-pininen ' / ! alpha-pinene
DATA mgn_spc( imgn_afarn ) / 'a-farnescene ' / ! alpha-farnescene
DATA mgn_spc( imgn_bcar ) / 'b-caryophyllene ' / ! beta-caryophyllene
DATA mgn_spc( imgn_meoh ) / 'methanol ' / ! methanol
DATA mgn_spc( imgn_acto ) / 'actone ' / ! acetone
DATA mgn_spc( imgn_acta ) / 'acta ' / ! acetaldehyde and ethanol
DATA mgn_spc( imgn_form ) / 'form ' / ! formic acid, formaldehyde, acetic acid
DATA mgn_spc( imgn_ch4 ) / 'methane ' / ! methane
DATA mgn_spc( imgn_no ) / 'NO ' / ! nitric oxide (and NO2 and NH3 )
DATA mgn_spc( imgn_omtp ) / 'other_monoterp ' / ! other monoterpenes
DATA mgn_spc( imgn_osqt ) / 'other_sesquiterp' / ! other sesquiterpenes
DATA mgn_spc( imgn_co ) / 'CO ' / ! co and other voc
!=====================================================================
! The following contains "temperature dependent" parameter for
! non-isoprene species. This is the parameter "beta" provided in
! Table 2 of MEGAN v2.0 Documentaion.
! Originally from Tan's TEMPD_PRM.EXT (11/30/2006)
! Updated on 08/13/2007 based on Alex Guenther's email.
!=====================================================================
REAL , DIMENSION(n_mgn_spc) :: tdf_prm
DATA tdf_prm ( imgn_isop ) / 0.09 / ! isoprene (but not used for isoprene)
DATA tdf_prm ( imgn_mbo ) / 0.09 / ! MBO (only (2-methyl-3-ene-2-ol)-methylbutenol)
DATA tdf_prm ( imgn_myrc ) / 0.10 / ! myrcene
DATA tdf_prm ( imgn_sabi ) / 0.10 / ! sabinene
DATA tdf_prm ( imgn_limo ) / 0.10 / ! limonene
DATA tdf_prm ( imgn_3car ) / 0.10 / ! 3 carene
DATA tdf_prm ( imgn_ocim ) / 0.10 / ! trans-beta-ocimene
DATA tdf_prm ( imgn_bpin ) / 0.10 / ! beta-pinene
DATA tdf_prm ( imgn_apin ) / 0.10 / ! alpha-pinene
DATA tdf_prm ( imgn_afarn ) / 0.17 / ! alpha-farnescene
DATA tdf_prm ( imgn_bcar ) / 0.17 / ! beta-caryophyllene
DATA tdf_prm ( imgn_meoh ) / 0.08 / ! methanol
DATA tdf_prm ( imgn_acto ) / 0.11 / ! acetone
DATA tdf_prm ( imgn_acta ) / 0.13 / ! acetaldehyde and ethanol
DATA tdf_prm ( imgn_form ) / 0.09 / ! formic acid, formaldehyde, acetic acid
DATA tdf_prm ( imgn_ch4 ) / 0.05 / ! methane
DATA tdf_prm ( imgn_no ) / 0.11 / ! nitric oxide (and NO2 and NH3)
DATA tdf_prm ( imgn_omtp ) / 0.10 / ! other monoterpenes
DATA tdf_prm ( imgn_osqt ) / 0.17 / ! other sesquiterpenes
DATA tdf_prm ( imgn_co ) / 0.09 / ! co and other voc
!=====================================================================
! The following contains the fraction of total emisssions
! for which light-dependency is applied (via GAMMA_P). This is the
! parameter "LDF" provided in Table 2 of MEGAN v2.0 Documentaion.
! Originally from Tan's LD_FCT.EXT (11/30/2006)
! Updated 08/13/2007 based on Alex Guenther's email.
!=====================================================================
REAL , DIMENSION(n_mgn_spc) :: ldf_fct
DATA ldf_fct ( imgn_isop ) / 0.9999 / ! isoprene
DATA ldf_fct ( imgn_mbo ) / 0.9999 / ! MBO (only (2-methyl-3-ene-2-ol)-methylbutenol)
DATA ldf_fct ( imgn_myrc ) / 0.05 / ! myrcene
DATA ldf_fct ( imgn_sabi ) / 0.10 / ! sabinene
DATA ldf_fct ( imgn_limo ) / 0.05 / ! limonene
DATA ldf_fct ( imgn_3car ) / 0.05 / ! 3 carene
DATA ldf_fct ( imgn_ocim ) / 0.80 / ! trans-beta-ocimene
DATA ldf_fct ( imgn_bpin ) / 0.10 / ! beta-pinene
DATA ldf_fct ( imgn_apin ) / 0.10 / ! alpha-pinene
DATA ldf_fct ( imgn_afarn ) / 0.50 / ! alpha-farnescene
DATA ldf_fct ( imgn_bcar ) / 0.50 / ! beta-caryophyllene
DATA ldf_fct ( imgn_meoh ) / 0.75 / ! methanol
DATA ldf_fct ( imgn_acto ) / 0.25 / ! acetone
DATA ldf_fct ( imgn_acta ) / 0.50 / ! acetaldehyde and ethanol ??
DATA ldf_fct ( imgn_form ) / 0.50 / ! formic acid, formaldehyde, acetic acid ??
DATA ldf_fct ( imgn_ch4 ) / 0.75 / ! methane
DATA ldf_fct ( imgn_no ) / 0.00 / ! nitric oxide (and NO2 and NH3 )
DATA ldf_fct ( imgn_omtp ) / 0.10 / ! other monoterpenes
DATA ldf_fct ( imgn_osqt ) / 0.50 / ! other sesquiterpenes
DATA ldf_fct ( imgn_co ) / 0.50 / ! CO and other VOC
!=====================================================================
! The following contains "production and loss within canopy" factors.
! See Eqn (1) and Section 3.3 of Guenther et al. [2006].
! Originally from Tan's PDT_LOS_CP.EXT (11/30/2006)
!=====================================================================
REAL , DIMENSION(n_mgn_spc) :: rho_fct
! RHO_FCT are all 1.0 right now
DATA rho_fct ( imgn_isop ) / 1.0 / ! isoprene
DATA rho_fct ( imgn_mbo ) / 1.0 / ! MBO (only (2-methyl-3-ene-2-ol)-methylbutenol)
DATA rho_fct ( imgn_myrc ) / 1.0 / ! myrcene
DATA rho_fct ( imgn_sabi ) / 1.0 / ! sabinene
DATA rho_fct ( imgn_limo ) / 1.0 / ! limonene
DATA rho_fct ( imgn_3car ) / 1.0 / ! 3 carene
DATA rho_fct ( imgn_ocim ) / 1.0 / ! trans-beta-ocimene
DATA rho_fct ( imgn_bpin ) / 1.0 / ! beta-pinene
DATA rho_fct ( imgn_apin ) / 1.0 / ! alpha-pinene
DATA rho_fct ( imgn_afarn ) / 1.0 / ! alpha-farnescene
DATA rho_fct ( imgn_bcar ) / 1.0 / ! beta-caryophyllene
DATA rho_fct ( imgn_meoh ) / 1.0 / ! methanol
DATA rho_fct ( imgn_acto ) / 1.0 / ! acetone
DATA rho_fct ( imgn_acta ) / 1.0 / ! acetaldehyde and ethanol
DATA rho_fct ( imgn_form ) / 1.0 / ! formic acid, formaldehyde, acetic acid
DATA rho_fct ( imgn_ch4 ) / 1.0 / ! methane
DATA rho_fct ( imgn_no ) / 1.0 / ! nitric oxide (and NO2 and NH3 )
DATA rho_fct ( imgn_omtp ) / 1.0 / ! other monoterpenes
DATA rho_fct ( imgn_osqt ) / 1.0 / ! other sesquiterpenes
DATA rho_fct ( imgn_co ) / 1.0 / ! CO and other VOC
!=====================================================================
! The following contains relative emission rates assigned to each
! canopy fraction. See Eqn (16) of Guenther et al. [2006] and
! MEGAN v2.0 Documentation.
! Originally Tan's REL_EM_ACT.EXT (11/30/06)
!=====================================================================
INTEGER, PARAMETER :: n_cat=5
REAL, DIMENSION(n_cat) :: anew, agro, amat, aold
DATA anew (1) , agro (1) , amat (1) , aold (1) / 1.0 , 1.0 , 1.0 , 1.0 /
DATA anew (2) , agro (2) , amat (2) , aold (2) / 2.0 , 1.8 , 0.95 , 1.0 /
DATA anew (3) , agro (3) , amat (3) , aold (3) / 0.4 , 0.6 , 1.075 , 1.0 /
DATA anew (4) , agro (4) , amat (4) , aold (4) / 3.0 , 2.6 , 0.85 , 1.0 /
DATA anew (5) , agro (5) , amat (5) , aold (5) / 0.05 , 0.6 , 1.125 , 1.0 /
!=====================================================================
! The following contains the base emission factors (microgram m-2 hr-1) for
! n_mgn_spc= 20 MEGAN v2.04 classes of compounds for the following
! four plant functional types:
! BT = breadleaf tree
! NT = needle leaf tree
! SB = shrub and brush
! HB = herb/crops/grasses
! Originally Tan's EF_MGN20_Alex.EXT
! Updated 08/13/2007 based on Alex's email.
!=====================================================================
!shc real, dimension (n_mgn_spc) :: EF_BT, EF_NT, EF_SB, EF_HB
INTEGER, PARAMETER :: n_pft = 4 ! number of plant functional types
REAL, DIMENSION (n_mgn_spc,n_pft) :: EF
! Plant functional type indices
! k_bt, k_nt, k_sb, and k_bh are hardwired by the column-order
! of the data entry for EF and EF_frac. Do not change their values or
! order of the columns in the data entry.
INTEGER, PARAMETER :: k_bt = 1, k_nt = 2, k_sb=3, k_hb=4
! BT NT SB HB
DATA EF( imgn_isop , 1:n_pft ) / 13000.00 , 2000.00 , 11000.00 , 400.00 / !not used for isoprene
DATA EF( imgn_mbo , 1:n_pft ) / 0.10 , 100.00 , 1.00 , 0.01 /
DATA EF( imgn_myrc , 1:n_pft ) / 20.00 , 75.00 , 22.00 , 0.30 /
DATA EF( imgn_sabi , 1:n_pft ) / 45.00 , 70.00 , 50.00 , 0.70 /
DATA EF( imgn_limo , 1:n_pft ) / 45.00 , 100.00 , 52.00 , 0.70 /
DATA EF( imgn_3car , 1:n_pft ) / 18.00 , 160.00 , 25.00 , 0.30 /
DATA EF( imgn_ocim , 1:n_pft ) / 90.00 , 60.00 , 85.00 , 1.00 /
DATA EF( imgn_bpin , 1:n_pft ) / 90.00 , 300.00 , 100.00 , 1.50 /
DATA EF( imgn_apin , 1:n_pft ) / 180.00 , 450.00 , 200.00 , 2.00 /
DATA EF( imgn_afarn , 1:n_pft ) / 35.00 , 30.00 , 30.00 , 0.50 /
DATA EF( imgn_bcar , 1:n_pft ) / 30.00 , 60.00 , 45.00 , 0.90 /
DATA EF( imgn_meoh , 1:n_pft ) / 800.00 , 800.00 , 800.00 , 800.00 /
DATA EF( imgn_acto , 1:n_pft ) / 240.00 , 240.00 , 240.00 , 80.00 /
DATA EF( imgn_acta , 1:n_pft ) / 240.00 , 240.00 , 240.00 , 80.00 /
DATA EF( imgn_form , 1:n_pft ) / 70.00 , 70.00 , 70.00 , 70.00 /
DATA EF( imgn_ch4 , 1:n_pft ) / 30.00 , 30.00 , 30.00 , 30.00 /
DATA EF( imgn_no , 1:n_pft ) / 5.00 , 6.00 , 30.00 , 70.00 /
DATA EF( imgn_omtp , 1:n_pft ) / 90.00 , 180.00 , 110.00 , 4.80 /
DATA EF( imgn_osqt , 1:n_pft ) / 75.00 , 110.00 , 85.00 , 1.40 /
DATA EF( imgn_co , 1:n_pft ) / 1000.00 , 1000.00 , 1000.00 , 1000.00 /
!=======================================================================
! The following contains MEGAN 138 speciated species for MEGAN v2.04.
! See Table 3 of MEGAN v2.0 Documentation.
! Originally from Tan's SPC_SPCAT.EXT (12/02/2006)
!=======================================================================
INTEGER, PARAMETER :: n_spca_spc = 138 ! number of speciated species
CHARACTER(len=n_spc_char), DIMENSION(n_spca_spc) :: spca_spc ! speciated species names
REAL , DIMENSION(n_spca_spc) :: spca_mwt ! speciated species molecular weight
!CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
! _a = alpha , _b = beta , _c = cis , _al = allo ,
! _g = gamma , _d = delta , _t = trans , _m = methyl ,
! _p = para , _o = ortho , _e = ene , _ol = ol ,
! met = methyl , 2met= dimethyl , MBO = methylbutenol ,
! 2s = disulfide , s = sulfide , OXD = oxide , ACT = acetate ,
! PPPP= propenylpropyl , DCTT= decatetraene ,
! CCO = acetaldehyde
!CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
! Indices for 138 MEGAN speciated species
! The ordering below follows that of Tan's SPC_SPCA.TXT file.
! For programming, the ordering does not matter, except that
! is_isoprene should always be 1.
INTEGER, PARAMETER :: &
& is_isoprene = 1 & ! isoprene
& ,is_myrcene = 2 & ! myrcene
& ,is_sabinene = 3 & ! sabiene
& ,is_limonene = 4 & ! limonene
& ,is_carene_3 = 5 & ! 3-carene
& ,is_ocimene_t_b = 6 & ! trans-beta-ocimene
& ,is_pinene_b = 7 & ! beta-pinene
& ,is_pinene_a = 8 & ! alpha-pinene
& ,is_2met_styrene = 9 & ! dimethyl styrene
& ,is_cymene_p = 10 & ! para-cymene
& ,is_cymene_o = 11 & ! ortho-cymene
& ,is_phellandrene_a = 12 & ! alpha-phellandrene
& ,is_thujene_a = 13 & ! alpha-thujene
& ,is_terpinene_a = 14 & ! alpha-terpinene
& ,is_terpinene_g = 15 & ! gamma-terpinene
& ,is_terpinolene = 16 & ! terpinolene
& ,is_phellandrene_b = 17 & ! beta-phellandrene
& ,is_camphene = 18 & ! camphene
& ,is_bornene = 19 & ! bornene
& ,is_fenchene_a = 20 & ! alpha-fenchene
& ,is_ocimene_al = 21 & ! allo ocimene
& ,is_ocimene_c_b = 22 & ! cis beta-ocimene
& ,is_tricyclene = 23 & ! tricyclene
& ,is_estragole = 24 & ! estrogole
& ,is_camphor = 25 & ! camphor
& ,is_fenchone = 26 & ! fenchone
& ,is_piperitone = 27 & ! piperitone
& ,is_thujone_a = 28 & ! alpha-thujone
& ,is_thujone_b = 29 & ! beta thujone
& ,is_cineole_1_8 = 30 & ! (1,8)-cineole
& ,is_borneol = 31 & ! borneol
& ,is_linalool = 32 & ! linalool
& ,is_terpineol_4 = 33 & ! 4-terpineol
& ,is_terpineol_a = 34 & ! alpha-terpineol
& ,is_linalool_OXD_c = 35 & ! cis linalool oxide
& ,is_linalool_OXD_t = 36 & ! trans linalool oxide
& ,is_ionone_b = 37 & ! beta-ionone
& ,is_bornyl_ACT = 38 & ! bornyl acetate
& ,is_farnescene_a = 39 & ! alpha-farnescene
& ,is_caryophyllene_b = 40 & ! beta-caryophyllene
& ,is_acoradiene = 41 & ! acoradiene
& ,is_aromadendrene = 42 & ! aromadendrene
& ,is_bergamotene_a = 43 & ! alpha-bergamotene
& ,is_bergamotene_b = 44 & ! beta-bergamotene
& ,is_bisabolene_a = 45 & ! alpha-bisabolene
& ,is_bisabolene_b = 46 & ! beta-bisabolene
& ,is_bourbonene_b = 47 & ! beta-bourbonene
& ,is_cadinene_d = 48 & ! delta-cadinene
& ,is_cadinene_g = 49 & ! gamma-cadinene
& ,is_cedrene_a = 50 & ! alpha-cedrene
& ,is_copaene_a = 51 & ! alpha-copaene
& ,is_cubebene_a = 52 & ! alpha-cubebene
& ,is_cubebene_b = 53 & ! beta-cubebene
& ,is_elemene_b = 54 & ! beta-elemene
& ,is_farnescene_b = 55 & ! beta-farnescene
& ,is_germacrene_B = 56 & ! B germacrene
& ,is_germacrene_D = 57 & ! D germacrene
& ,is_gurjunene_b = 58 & ! beta-gurjunene
& ,is_humulene_a = 59 & ! alph-humulene
& ,is_humulene_g = 60 & ! gamma-humulene
& ,is_isolongifolene = 61 & ! isolongifolene
& ,is_longifolene = 62 & ! longifolene
& ,is_longipinene = 63 & ! longipinene
& ,is_muurolene_a = 64 & ! alpha-muurolene
& ,is_muurolene_g = 65 & ! gamma-muurolene
& ,is_selinene_b = 66 & ! beta-selinene
& ,is_selinene_d = 67 & ! delta-selinene
& ,is_nerolidol_c = 68 & ! cis-nerolidol
& ,is_nerolidol_t = 69 & ! trans-nerolidol
& ,is_cedrol = 70 & ! cedrol
& ,is_MBO_2m3e2ol = 71 & !
& ,is_methanol = 72 & ! methanol
& ,is_acetone = 73 & ! acetone
& ,is_methane = 74 & ! methane
& ,is_ammonia = 75 & ! ammonia
& ,is_nitrous_OXD = 76 & ! nitrous oxide
& ,is_nitric_OXD = 77 & ! nitric oxide
& ,is_acetaldehyde = 78 & ! acetaldehyde
& ,is_ethanol = 79 & ! ethanol
& ,is_formic_acid = 80 & ! formic acid
& ,is_formaldehyde = 81 & ! formaldehye
& ,is_acetic_acid = 82 & ! acetic acid
& ,is_MBO_3m2e1ol = 83 & ! (3-methyl-2-ene-1-ol)-methybutenol
& ,is_MBO_3m3e1ol = 84 & ! (3-methyl-3-ene-1-ol)-methybutenol
& ,is_benzaldehyde = 85 & ! benzaldehye
& ,is_butanone_2 = 86 & ! 2-butonene
& ,is_decanal = 87 & ! decanal
& ,is_dodecene_1 = 88 & ! 1-dodecene
& ,is_geranyl_acetone = 89 & ! geranyl acetone
& ,is_heptanal = 90 & ! heptanal
& ,is_heptane = 91 & ! heptane
& ,is_hexane = 92 & ! hexane
& ,is_met_benzoate = 93 & ! methyl-benzoate
& ,is_met_heptenone = 94 & ! methyl-heptonene
& ,is_neryl_acetone = 95 & ! neryl-acetone
& ,is_nonanal = 96 & ! nonanal
& ,is_nonenal = 97 & ! nonenal
& ,is_octanal = 98 & ! octanal
& ,is_octanol = 99 & ! octanol
& ,is_octenol_1e3ol = 100 & ! (1-ene-3-ol)-octenol
& ,is_oxopentanal = 101 & ! oxopentanal
& ,is_pentane = 102 & ! pentane
& ,is_phenyl_CCO = 103 & ! phenylacetaldehyde
& ,is_pyruvic_acid = 104 & ! pyruvic acid
& ,is_terpinyl_ACT_a = 105 & ! alpha-terpinyl-acetate
& ,is_tetradecene_1 = 106 & ! 1-tetradecene
& ,is_toluene = 107 & ! toluene
& ,is_carbon_monoxide = 108 & ! CO
& ,is_butene = 109 & ! butene
& ,is_ethane = 110 & ! ethane
& ,is_ethene = 111 & ! ethene
& ,is_hydrogen_cyanide = 112 & ! hydrogen cyanide
& ,is_propane = 113 & ! propane
& ,is_propene = 114 & ! propene
& ,is_carbon_2s = 115 & ! carbon disulfide
& ,is_carbonyl_s = 116 & ! caronyl sulfide
& ,is_diallyl_2s = 117 & ! diallyl disulfide
& ,is_2met_2s = 118 & ! dimethyl disulfide
& ,is_2met_s = 119 & ! dimethyl sulfide
& ,is_met_chloride = 120 & ! methyl chloride
& ,is_met_bromide = 121 & ! methyl bromide
& ,is_met_iodide = 122 & ! methyl iodide
& ,is_hydrogen_s = 123 & ! hydrogen sulfide
& ,is_met_mercaptan = 124 & ! methyl mercaptan
& ,is_met_propenyl_2s = 125 & ! methyl propenyl disulfide
& ,is_PPPP_2s = 126 & ! propenylpropyldisulfdie
& ,is_2met_nonatriene = 127 & ! dimethyl nonatriene
& ,is_met_salicylate = 128 & ! methyl salicylate
& ,is_indole = 129 & ! indole
& ,is_jasmone = 130 & ! jasmone
& ,is_met_jasmonate = 131 & ! methyl jasmonate
& ,is_3met_3DCTT = 132 & ! trimethyl tridecatetraene
& ,is_hexanal = 133 & ! hexanal
& ,is_hexanol_1 = 134 & ! 1-hexanol
& ,is_hexenal_c3 = 135 & ! cis-3-hexenal
& ,is_hexenal_t2 = 136 & ! trans-2-hexenal
& ,is_hexenol_c3 = 137 & ! cis-3-hexenol
& ,is_hexenyl_ACT_c3 = 138 ! cis-3-hexenyl acetate
! Names and Molecular Weights of 138 MEGAN speciated species
! (The names are not used in WRF-Chem, except for testing stage)
DATA spca_spc(is_isoprene ), spca_mwt(is_isoprene ) / 'isoprene ' , 68.12 /
DATA spca_spc(is_myrcene ), spca_mwt(is_myrcene ) / 'myrcene ' , 136.23 /
DATA spca_spc(is_sabinene ), spca_mwt(is_sabinene ) / 'sabinene ' , 136.23 /
DATA spca_spc(is_limonene ), spca_mwt(is_limonene ) / 'limonene ' , 136.23 /
DATA spca_spc(is_carene_3 ), spca_mwt(is_carene_3 ) / 'carene_3 ' , 136.23 /
DATA spca_spc(is_ocimene_t_b ), spca_mwt(is_ocimene_t_b ) / 'ocimene_t_b ' , 136.23 /
DATA spca_spc(is_pinene_b ), spca_mwt(is_pinene_b ) / 'pinene_b ' , 136.23 /
DATA spca_spc(is_pinene_a ), spca_mwt(is_pinene_a ) / 'pinene_a ' , 136.23 /
DATA spca_spc(is_2met_styrene ), spca_mwt(is_2met_styrene ) / '2met_styrene ' , 132.20 /
DATA spca_spc(is_cymene_p ), spca_mwt(is_cymene_p ) / 'cymene_p ' , 134.22 /
DATA spca_spc(is_cymene_o ), spca_mwt(is_cymene_o ) / 'cymene_o ' , 134.22 /
DATA spca_spc(is_phellandrene_a ), spca_mwt(is_phellandrene_a ) / 'phellandrene_a ' , 136.23 /
DATA spca_spc(is_thujene_a ), spca_mwt(is_thujene_a ) / 'thujene_a ' , 136.23 /
DATA spca_spc(is_terpinene_a ), spca_mwt(is_terpinene_a ) / 'terpinene_a ' , 136.23 /
DATA spca_spc(is_terpinene_g ), spca_mwt(is_terpinene_g ) / 'terpinene_g ' , 136.23 /
DATA spca_spc(is_terpinolene ), spca_mwt(is_terpinolene ) / 'terpinolene ' , 136.23 /
DATA spca_spc(is_phellandrene_b ), spca_mwt(is_phellandrene_b ) / 'phellandrene_b ' , 136.23 /
DATA spca_spc(is_camphene ), spca_mwt(is_camphene ) / 'camphene ' , 136.23 /
DATA spca_spc(is_bornene ), spca_mwt(is_bornene ) / 'bornene ' , 136.23 /
DATA spca_spc(is_fenchene_a ), spca_mwt(is_fenchene_a ) / 'fenchene_a ' , 136.23 /
DATA spca_spc(is_ocimene_al ), spca_mwt(is_ocimene_al ) / 'ocimene_al ' , 136.23 /
DATA spca_spc(is_ocimene_c_b ), spca_mwt(is_ocimene_c_b ) / 'ocimene_c_b ' , 136.23 /
DATA spca_spc(is_tricyclene ), spca_mwt(is_tricyclene ) / 'tricyclene ' , 136.23 /
DATA spca_spc(is_estragole ), spca_mwt(is_estragole ) / 'estragole ' , 148.20 /
DATA spca_spc(is_camphor ), spca_mwt(is_camphor ) / 'camphor ' , 152.23 /
DATA spca_spc(is_fenchone ), spca_mwt(is_fenchone ) / 'fenchone ' , 152.23 /
DATA spca_spc(is_piperitone ), spca_mwt(is_piperitone ) / 'piperitone ' , 152.23 /
DATA spca_spc(is_thujone_a ), spca_mwt(is_thujone_a ) / 'thujone_a ' , 152.23 /
DATA spca_spc(is_thujone_b ), spca_mwt(is_thujone_b ) / 'thujone_b ' , 152.23 /
DATA spca_spc(is_cineole_1_8 ), spca_mwt(is_cineole_1_8 ) / 'cineole_1_8 ' , 154.25 /
DATA spca_spc(is_borneol ), spca_mwt(is_borneol ) / 'borneol ' , 154.25 /
DATA spca_spc(is_linalool ), spca_mwt(is_linalool ) / 'linalool ' , 154.25 /
DATA spca_spc(is_terpineol_4 ), spca_mwt(is_terpineol_4 ) / 'terpineol_4 ' , 154.25 /
DATA spca_spc(is_terpineol_a ), spca_mwt(is_terpineol_a ) / 'terpineol_a ' , 154.25 /
DATA spca_spc(is_linalool_oxd_c ), spca_mwt(is_linalool_oxd_c ) / 'linalool_oxd_c ' , 170.25 /
DATA spca_spc(is_linalool_oxd_t ), spca_mwt(is_linalool_oxd_t ) / 'linalool_oxd_t ' , 170.25 /
DATA spca_spc(is_ionone_b ), spca_mwt(is_ionone_b ) / 'ionone_b ' , 192.30 /
DATA spca_spc(is_bornyl_act ), spca_mwt(is_bornyl_act ) / 'bornyl_act ' , 196.29 /
DATA spca_spc(is_farnescene_a ), spca_mwt(is_farnescene_a ) / 'farnescene_a ' , 204.35 /
DATA spca_spc(is_caryophyllene_b ), spca_mwt(is_caryophyllene_b ) / 'caryophyllene_b ' , 204.35 /
DATA spca_spc(is_acoradiene ), spca_mwt(is_acoradiene ) / 'acoradiene ' , 204.35 /
DATA spca_spc(is_aromadendrene ), spca_mwt(is_aromadendrene ) / 'aromadendrene ' , 204.35 /
DATA spca_spc(is_bergamotene_a ), spca_mwt(is_bergamotene_a ) / 'bergamotene_a ' , 204.35 /
DATA spca_spc(is_bergamotene_b ), spca_mwt(is_bergamotene_b ) / 'bergamotene_b ' , 204.35 /
DATA spca_spc(is_bisabolene_a ), spca_mwt(is_bisabolene_a ) / 'bisabolene_a ' , 204.35 /
DATA spca_spc(is_bisabolene_b ), spca_mwt(is_bisabolene_b ) / 'bisabolene_b ' , 204.35 /
DATA spca_spc(is_bourbonene_b ), spca_mwt(is_bourbonene_b ) / 'bourbonene_b ' , 204.35 /
DATA spca_spc(is_cadinene_d ), spca_mwt(is_cadinene_d ) / 'cadinene_d ' , 204.35 /
DATA spca_spc(is_cadinene_g ), spca_mwt(is_cadinene_g ) / 'cadinene_g ' , 204.35 /
DATA spca_spc(is_cedrene_a ), spca_mwt(is_cedrene_a ) / 'cedrene_a ' , 204.35 /
DATA spca_spc(is_copaene_a ), spca_mwt(is_copaene_a ) / 'copaene_a ' , 204.35 /
DATA spca_spc(is_cubebene_a ), spca_mwt(is_cubebene_a ) / 'cubebene_a ' , 204.35 /
DATA spca_spc(is_cubebene_b ), spca_mwt(is_cubebene_b ) / 'cubebene_b ' , 204.35 /
DATA spca_spc(is_elemene_b ), spca_mwt(is_elemene_b ) / 'elemene_b ' , 204.35 /
DATA spca_spc(is_farnescene_b ), spca_mwt(is_farnescene_b ) / 'farnescene_b ' , 204.35 /
DATA spca_spc(is_germacrene_b ), spca_mwt(is_germacrene_B ) / 'germacrene_b ' , 204.35 /
DATA spca_spc(is_germacrene_d ), spca_mwt(is_germacrene_D ) / 'germacrene_d ' , 204.35 /
DATA spca_spc(is_gurjunene_b ), spca_mwt(is_gurjunene_b ) / 'gurjunene_b ' , 204.35 /
DATA spca_spc(is_humulene_a ), spca_mwt(is_humulene_a ) / 'humulene_a ' , 204.35 /
DATA spca_spc(is_humulene_g ), spca_mwt(is_humulene_g ) / 'humulene_g ' , 204.35 /
DATA spca_spc(is_isolongifolene ), spca_mwt(is_isolongifolene ) / 'isolongifolene ' , 204.35 /
DATA spca_spc(is_longifolene ), spca_mwt(is_longifolene ) / 'longifolene ' , 204.35 /
DATA spca_spc(is_longipinene ), spca_mwt(is_longipinene ) / 'longipinene ' , 204.35 /
DATA spca_spc(is_muurolene_a ), spca_mwt(is_muurolene_a ) / 'muurolene_a ' , 204.35 /
DATA spca_spc(is_muurolene_g ), spca_mwt(is_muurolene_g ) / 'muurolene_g ' , 204.35 /
DATA spca_spc(is_selinene_b ), spca_mwt(is_selinene_b ) / 'selinene_b ' , 204.35 /
DATA spca_spc(is_selinene_d ), spca_mwt(is_selinene_d ) / 'selinene_d ' , 204.35 /
DATA spca_spc(is_nerolidol_c ), spca_mwt(is_nerolidol_c ) / 'nerolidol_c ' , 222.37 /
DATA spca_spc(is_nerolidol_t ), spca_mwt(is_nerolidol_t ) / 'nerolidol_t ' , 222.37 /
DATA spca_spc(is_cedrol ), spca_mwt(is_cedrol ) / 'cedrol ' , 222.37 /
DATA spca_spc(is_mbo_2m3e2ol ), spca_mwt(is_mbo_2m3e2ol ) / 'mbo_2m3e2ol ' , 86.13 /
DATA spca_spc(is_methanol ), spca_mwt(is_methanol ) / 'methanol ' , 32.04 /
DATA spca_spc(is_acetone ), spca_mwt(is_acetone ) / 'acetone ' , 58.08 /
DATA spca_spc(is_methane ), spca_mwt(is_methane ) / 'methane ' , 16.04 /
DATA spca_spc(is_ammonia ), spca_mwt(is_ammonia ) / 'ammonia ' , 17.03 /
DATA spca_spc(is_nitrous_oxd ), spca_mwt(is_nitrous_oxd ) / 'nitrous_oxd ' , 44.01 /
DATA spca_spc(is_nitric_oxd ), spca_mwt(is_nitric_oxd ) / 'nitric_oxd ' , 30.01 /
DATA spca_spc(is_acetaldehyde ), spca_mwt(is_acetaldehyde ) / 'acetaldehyde ' , 44.05 /
DATA spca_spc(is_ethanol ), spca_mwt(is_ethanol ) / 'ethanol ' , 46.07 /
DATA spca_spc(is_formic_acid ), spca_mwt(is_formic_acid ) / 'formic_acid ' , 46.03 /
DATA spca_spc(is_formaldehyde ), spca_mwt(is_formaldehyde ) / 'formaldehyde ' , 30.03 /
DATA spca_spc(is_acetic_acid ), spca_mwt(is_acetic_acid ) / 'acetic_acid ' , 60.05 /
DATA spca_spc(is_mbo_3m2e1ol ), spca_mwt(is_mbo_3m2e1ol ) / 'mbo_3m2e1ol ' , 86.13 /
DATA spca_spc(is_mbo_3m3e1ol ), spca_mwt(is_mbo_3m3e1ol ) / 'mbo_3m3e1ol ' , 86.13 /
DATA spca_spc(is_benzaldehyde ), spca_mwt(is_benzaldehyde ) / 'benzaldehyde ' , 106.12 /
DATA spca_spc(is_butanone_2 ), spca_mwt(is_butanone_2 ) / 'butanone_2 ' , 72.11 /
DATA spca_spc(is_decanal ), spca_mwt(is_decanal ) / 'decanal ' , 156.27 /
DATA spca_spc(is_dodecene_1 ), spca_mwt(is_dodecene_1 ) / 'dodecene_1 ' , 168.32 /
DATA spca_spc(is_geranyl_acetone ), spca_mwt(is_geranyl_acetone ) / 'geranyl_acetone ' , 194.31 /
DATA spca_spc(is_heptanal ), spca_mwt(is_heptanal ) / 'heptanal ' , 114.19 /
DATA spca_spc(is_heptane ), spca_mwt(is_heptane ) / 'heptane ' , 100.20 /
DATA spca_spc(is_hexane ), spca_mwt(is_hexane ) / 'hexane ' , 86.18 /
DATA spca_spc(is_met_benzoate ), spca_mwt(is_met_benzoate ) / 'met_benzoate ' , 136.15 /
DATA spca_spc(is_met_heptenone ), spca_mwt(is_met_heptenone ) / 'met_heptenone ' , 126.20 /
DATA spca_spc(is_neryl_acetone ), spca_mwt(is_neryl_acetone ) / 'neryl_acetone ' , 194.31 /
DATA spca_spc(is_nonanal ), spca_mwt(is_nonanal ) / 'nonanal ' , 142.24 /
DATA spca_spc(is_nonenal ), spca_mwt(is_nonenal ) / 'nonenal ' , 140.22 /
DATA spca_spc(is_octanal ), spca_mwt(is_octanal ) / 'octanal ' , 128.21 /
DATA spca_spc(is_octanol ), spca_mwt(is_octanol ) / 'octanol ' , 130.23 /
DATA spca_spc(is_octenol_1e3ol ), spca_mwt(is_octenol_1e3ol ) / 'octenol_1e3ol ' , 128.21 /
DATA spca_spc(is_oxopentanal ), spca_mwt(is_oxopentanal ) / 'oxopentanal ' , 100.12 /
DATA spca_spc(is_pentane ), spca_mwt(is_pentane ) / 'pentane ' , 72.15 /
DATA spca_spc(is_phenyl_cco ), spca_mwt(is_phenyl_cco ) / 'phenyl_cco ' , 120.15 /
DATA spca_spc(is_pyruvic_acid ), spca_mwt(is_pyruvic_acid ) / 'pyruvic_acid ' , 88.06 /
DATA spca_spc(is_terpinyl_act_a ), spca_mwt(is_terpinyl_act_a ) / 'terpinyl_act_a ' , 196.29 /
DATA spca_spc(is_tetradecene_1 ), spca_mwt(is_tetradecene_1 ) / 'tetradecene_1 ' , 196.37 /
DATA spca_spc(is_toluene ), spca_mwt(is_toluene ) / 'toluene ' , 92.14 /
DATA spca_spc(is_carbon_monoxide ), spca_mwt(is_carbon_monoxide ) / 'carbon_monoxide ' , 28.01 /
DATA spca_spc(is_butene ), spca_mwt(is_butene ) / 'butene ' , 56.11 /
DATA spca_spc(is_ethane ), spca_mwt(is_ethane ) / 'ethane ' , 30.07 /
DATA spca_spc(is_ethene ), spca_mwt(is_ethene ) / 'ethene ' , 28.05 /
DATA spca_spc(is_hydrogen_cyanide), spca_mwt(is_hydrogen_cyanide) / 'hydrogen_cyanide' , 27.03 /
DATA spca_spc(is_propane ), spca_mwt(is_propane ) / 'propane ' , 44.10 /
DATA spca_spc(is_propene ), spca_mwt(is_propene ) / 'propene ' , 42.08 /
DATA spca_spc(is_carbon_2s ), spca_mwt(is_carbon_2s ) / 'carbon_2s ' , 76.14 /
DATA spca_spc(is_carbonyl_s ), spca_mwt(is_carbonyl_s ) / 'carbonyl_s ' , 60.08 /
DATA spca_spc(is_diallyl_2s ), spca_mwt(is_diallyl_2s ) / 'diallyl_2s ' , 146.28 /
DATA spca_spc(is_2met_2s ), spca_mwt(is_2met_2s ) / '2met_2s ' , 94.20 /
DATA spca_spc(is_2met_s ), spca_mwt(is_2met_s ) / '2met_s ' , 62.14 /
DATA spca_spc(is_met_chloride ), spca_mwt(is_met_chloride ) / 'met_chloride ' , 50.49 /
DATA spca_spc(is_met_bromide ), spca_mwt(is_met_bromide ) / 'met_bromide ' , 94.94 /
DATA spca_spc(is_met_iodide ), spca_mwt(is_met_iodide ) / 'met_iodide ' , 141.94 /
DATA spca_spc(is_hydrogen_s ), spca_mwt(is_hydrogen_s ) / 'hydrogen_s ' , 34.08 /
DATA spca_spc(is_met_mercaptan ), spca_mwt(is_met_mercaptan ) / 'met_mercaptan ' , 48.11 /
DATA spca_spc(is_met_propenyl_2s ), spca_mwt(is_met_propenyl_2s ) / 'met_propenyl_2s ' , 120.24 /
DATA spca_spc(is_pppp_2s ), spca_mwt(is_pppp_2s ) / 'pppp_2s ' , 148.29 /
DATA spca_spc(is_2met_nonatriene ), spca_mwt(is_2met_nonatriene ) / '2met_nonatriene ' , 150.26 /
DATA spca_spc(is_met_salicylate ), spca_mwt(is_met_salicylate ) / 'met_salicylate ' , 152.15 /
DATA spca_spc(is_indole ), spca_mwt(is_indole ) / 'indole ' , 117.15 /
DATA spca_spc(is_jasmone ), spca_mwt(is_jasmone ) / 'jasmone ' , 164.24 /
DATA spca_spc(is_met_jasmonate ), spca_mwt(is_met_jasmonate ) / 'met_jasmonate ' , 224.30 /
DATA spca_spc(is_3met_3dctt ), spca_mwt(is_3met_3dctt ) / '3met_3dctt ' , 218.38 /
DATA spca_spc(is_hexanal ), spca_mwt(is_hexanal ) / 'hexanal ' , 100.16 /
DATA spca_spc(is_hexanol_1 ), spca_mwt(is_hexanol_1 ) / 'hexanol_1 ' , 102.17 /
DATA spca_spc(is_hexenal_c3 ), spca_mwt(is_hexenal_c3 ) / 'hexenal_c3 ' , 98.14 /
DATA spca_spc(is_hexenal_t2 ), spca_mwt(is_hexenal_t2 ) / 'hexenal_t2 ' , 98.14 /
DATA spca_spc(is_hexenol_c3 ), spca_mwt(is_hexenol_c3 ) / 'hexenol_c3 ' , 100.16 /
DATA spca_spc(is_hexenyl_act_c3 ), spca_mwt(is_hexenyl_act_c3 ) / 'hexenyl_act_c3 ' , 142.20 /
!=====================================================================
! The following is a "table" for mapping nmegan=n_spca_spc=138
! MEGAN v2.04 species to n_mgn_spc=20 classes of species.
! See Table 3 of MEGAN v2.0 Documentation.
! Originally from Tan's MAP_MGN20T138.EXT.EXT (12/02/2006)
!=====================================================================
INTEGER, DIMENSION(n_spca_spc) :: mg20_map
!---------------------------------------------------------------------
! Some naming convention
! _a = alpha , _b = beta , _c = cis , _al = allo ,
! _g = gamma , _d = delta , _t = trans , _m = methyl ,
! _p = para , _o = ortho , _e = ene , _ol = ol ,
! met = methyl , 2met= dimethyl , MBO = methylbutenol ,
! 2s = disulfide , s = sulfide , OXD = oxide , ACT = acetate ,
! PPPP= propenylpropyl , DCTT= decatetraene ,
! CCO = acetaldehyde
!--------------------------------------------------------------------
DATA mg20_map ( is_isoprene ) / imgn_isop /
DATA mg20_map ( is_myrcene ) / imgn_myrc /
DATA mg20_map ( is_sabinene ) / imgn_sabi /
DATA mg20_map ( is_limonene ) / imgn_limo /
DATA mg20_map ( is_carene_3 ) / imgn_3car /
DATA mg20_map ( is_ocimene_t_b ) / imgn_ocim /
DATA mg20_map ( is_pinene_b ) / imgn_bpin /
DATA mg20_map ( is_pinene_a ) / imgn_apin /
DATA mg20_map ( is_2met_styrene ) / imgn_omtp /
DATA mg20_map ( is_cymene_p ) / imgn_omtp /
DATA mg20_map ( is_cymene_o ) / imgn_omtp /
DATA mg20_map ( is_phellandrene_a ) / imgn_omtp /
DATA mg20_map ( is_thujene_a ) / imgn_omtp /
DATA mg20_map ( is_terpinene_a ) / imgn_omtp /
DATA mg20_map ( is_terpinene_g ) / imgn_omtp /
DATA mg20_map ( is_terpinolene ) / imgn_omtp /
DATA mg20_map ( is_phellandrene_b ) / imgn_omtp /
DATA mg20_map ( is_camphene ) / imgn_omtp /
DATA mg20_map ( is_bornene ) / imgn_omtp /
DATA mg20_map ( is_fenchene_a ) / imgn_omtp /
DATA mg20_map ( is_ocimene_al ) / imgn_omtp /
DATA mg20_map ( is_ocimene_c_b ) / imgn_omtp /
DATA mg20_map ( is_tricyclene ) / imgn_omtp /
DATA mg20_map ( is_estragole ) / imgn_omtp /
DATA mg20_map ( is_camphor ) / imgn_omtp /
DATA mg20_map ( is_fenchone ) / imgn_omtp /
DATA mg20_map ( is_piperitone ) / imgn_omtp /
DATA mg20_map ( is_thujone_a ) / imgn_omtp /
DATA mg20_map ( is_thujone_b ) / imgn_omtp /
DATA mg20_map ( is_cineole_1_8 ) / imgn_omtp /
DATA mg20_map ( is_borneol ) / imgn_omtp /
DATA mg20_map ( is_linalool ) / imgn_omtp /
DATA mg20_map ( is_terpineol_4 ) / imgn_omtp /
DATA mg20_map ( is_terpineol_a ) / imgn_omtp /
DATA mg20_map ( is_linalool_oxd_c ) / imgn_omtp /
DATA mg20_map ( is_linalool_oxd_t ) / imgn_omtp /
DATA mg20_map ( is_ionone_b ) / imgn_omtp /
DATA mg20_map ( is_bornyl_act ) / imgn_omtp /
DATA mg20_map ( is_farnescene_a ) / imgn_afarn /
DATA mg20_map ( is_caryophyllene_b ) / imgn_bcar /
DATA mg20_map ( is_acoradiene ) / imgn_osqt /
DATA mg20_map ( is_aromadendrene ) / imgn_osqt /
DATA mg20_map ( is_bergamotene_a ) / imgn_osqt /
DATA mg20_map ( is_bergamotene_b ) / imgn_osqt /
DATA mg20_map ( is_bisabolene_a ) / imgn_osqt /
DATA mg20_map ( is_bisabolene_b ) / imgn_osqt /
DATA mg20_map ( is_bourbonene_b ) / imgn_osqt /
DATA mg20_map ( is_cadinene_d ) / imgn_osqt /
DATA mg20_map ( is_cadinene_g ) / imgn_osqt /
DATA mg20_map ( is_cedrene_a ) / imgn_osqt /
DATA mg20_map ( is_copaene_a ) / imgn_osqt /
DATA mg20_map ( is_cubebene_a ) / imgn_osqt /
DATA mg20_map ( is_cubebene_b ) / imgn_osqt /
DATA mg20_map ( is_elemene_b ) / imgn_osqt /
DATA mg20_map ( is_farnescene_b ) / imgn_osqt /
DATA mg20_map ( is_germacrene_b ) / imgn_osqt /
DATA mg20_map ( is_germacrene_d ) / imgn_osqt /
DATA mg20_map ( is_gurjunene_b ) / imgn_osqt /
DATA mg20_map ( is_humulene_a ) / imgn_osqt /
DATA mg20_map ( is_humulene_g ) / imgn_osqt /
DATA mg20_map ( is_isolongifolene ) / imgn_osqt /
DATA mg20_map ( is_longifolene ) / imgn_osqt /
DATA mg20_map ( is_longipinene ) / imgn_osqt /
DATA mg20_map ( is_muurolene_a ) / imgn_osqt /
DATA mg20_map ( is_muurolene_g ) / imgn_osqt /
DATA mg20_map ( is_selinene_b ) / imgn_osqt /
DATA mg20_map ( is_selinene_d ) / imgn_osqt /
DATA mg20_map ( is_nerolidol_c ) / imgn_osqt /
DATA mg20_map ( is_nerolidol_t ) / imgn_osqt /
DATA mg20_map ( is_cedrol ) / imgn_osqt /
DATA mg20_map ( is_mbo_2m3e2ol ) / imgn_mbo /
DATA mg20_map ( is_methanol ) / imgn_meoh /
DATA mg20_map ( is_acetone ) / imgn_acto /
DATA mg20_map ( is_methane ) / imgn_ch4 /
DATA mg20_map ( is_ammonia ) / imgn_no /
DATA mg20_map ( is_nitrous_oxd ) / imgn_no /
DATA mg20_map ( is_nitric_oxd ) / imgn_no /
DATA mg20_map ( is_acetaldehyde ) / imgn_acta /
DATA mg20_map ( is_ethanol ) / imgn_acta /
DATA mg20_map ( is_formic_acid ) / imgn_form /
DATA mg20_map ( is_formaldehyde ) / imgn_form /
DATA mg20_map ( is_acetic_acid ) / imgn_form /
DATA mg20_map ( is_mbo_3m2e1ol ) / imgn_co /
DATA mg20_map ( is_mbo_3m3e1ol ) / imgn_co /
DATA mg20_map ( is_benzaldehyde ) / imgn_co /
DATA mg20_map ( is_butanone_2 ) / imgn_co /
DATA mg20_map ( is_decanal ) / imgn_co /
DATA mg20_map ( is_dodecene_1 ) / imgn_co /
DATA mg20_map ( is_geranyl_acetone ) / imgn_co /
DATA mg20_map ( is_heptanal ) / imgn_co /
DATA mg20_map ( is_heptane ) / imgn_co /
DATA mg20_map ( is_hexane ) / imgn_co /
DATA mg20_map ( is_met_benzoate ) / imgn_co /
DATA mg20_map ( is_met_heptenone ) / imgn_co /
DATA mg20_map ( is_neryl_acetone ) / imgn_co /
DATA mg20_map ( is_nonanal ) / imgn_co /
DATA mg20_map ( is_nonenal ) / imgn_co /
DATA mg20_map ( is_octanal ) / imgn_co /
DATA mg20_map ( is_octanol ) / imgn_co /
DATA mg20_map ( is_octenol_1e3ol ) / imgn_co /
DATA mg20_map ( is_oxopentanal ) / imgn_co /
DATA mg20_map ( is_pentane ) / imgn_co /
DATA mg20_map ( is_phenyl_cco ) / imgn_co /
DATA mg20_map ( is_pyruvic_acid ) / imgn_co /
DATA mg20_map ( is_terpinyl_act_a ) / imgn_co /
DATA mg20_map ( is_tetradecene_1 ) / imgn_co /
DATA mg20_map ( is_toluene ) / imgn_co /
DATA mg20_map ( is_carbon_monoxide ) / imgn_co /
DATA mg20_map ( is_butene ) / imgn_co /
DATA mg20_map ( is_ethane ) / imgn_co /
DATA mg20_map ( is_ethene ) / imgn_co /
DATA mg20_map ( is_hydrogen_cyanide) / imgn_co /
DATA mg20_map ( is_propane ) / imgn_co /
DATA mg20_map ( is_propene ) / imgn_co /
DATA mg20_map ( is_carbon_2s ) / imgn_co /
DATA mg20_map ( is_carbonyl_s ) / imgn_co /
DATA mg20_map ( is_diallyl_2s ) / imgn_co /
DATA mg20_map ( is_2met_2s ) / imgn_co /
DATA mg20_map ( is_2met_s ) / imgn_co /
DATA mg20_map ( is_met_chloride ) / imgn_co /
DATA mg20_map ( is_met_bromide ) / imgn_co /
DATA mg20_map ( is_met_iodide ) / imgn_co /
DATA mg20_map ( is_hydrogen_s ) / imgn_co /
DATA mg20_map ( is_met_mercaptan ) / imgn_co /
DATA mg20_map ( is_met_propenyl_2s ) / imgn_co /
DATA mg20_map ( is_pppp_2s ) / imgn_co /
DATA mg20_map ( is_2met_nonatriene ) / imgn_co /
DATA mg20_map ( is_met_salicylate ) / imgn_co /
DATA mg20_map ( is_indole ) / imgn_co /
DATA mg20_map ( is_jasmone ) / imgn_co /
DATA mg20_map ( is_met_jasmonate ) / imgn_co /
DATA mg20_map ( is_3met_3dctt ) / imgn_co /
DATA mg20_map ( is_hexanal ) / imgn_co /
DATA mg20_map ( is_hexanol_1 ) / imgn_co /
DATA mg20_map ( is_hexenal_c3 ) / imgn_co /
DATA mg20_map ( is_hexenal_t2 ) / imgn_co /
DATA mg20_map ( is_hexenol_c3 ) / imgn_co /
DATA mg20_map ( is_hexenyl_act_c3 ) / imgn_co /
!====================================================================
! The following is a table of for the speciation fractions
! (dimensionless) of the base emission factors EF of n_mgn_spc=20
! classes of species into n_spca_spc=138 species.
! See Table 3 of MEGAN v2.0 Documentation.
! Originally from Tan's EFFS_MGN20T138.EXT (12/02/2006)
! Updated on 08/13/2007 based on Alex Guenther's email.
!====================================================================
REAL, DIMENSION (n_spca_spc, n_pft) :: EF_frac
! The row order of the data statements below can be changed; however
! the column order is hardwreid to k_bt=1, k_nt=2, k_sb=3, and
! k_hb=4 (declared above). Do not change the column order
! of the data entry below.
! so many decimal places?
! BT NT SB HB
DATA EF_frac( is_isoprene , k_bt:k_hb ) / 1.000000 , 1.000000 , 1.000000 , 1.000000 / !not used for isoprene
DATA EF_frac( is_myrcene , k_bt:k_hb ) / 1.000000 , 1.000000 , 1.000000 , 1.000000 /
DATA EF_frac( is_sabinene , k_bt:k_hb ) / 1.000000 , 1.000000 , 1.000000 , 1.000000 /
DATA EF_frac( is_limonene , k_bt:k_hb ) / 1.000000 , 1.000000 , 1.000000 , 1.000000 /
DATA EF_frac( is_carene_3 , k_bt:k_hb ) / 1.000000 , 1.000000 , 1.000000 , 1.000000 /
DATA EF_frac( is_ocimene_t_b , k_bt:k_hb ) / 1.000000 , 1.000000 , 1.000000 , 1.000000 /
DATA EF_frac( is_pinene_b , k_bt:k_hb ) / 1.000000 , 1.000000 , 1.000000 , 1.000000 /
DATA EF_frac( is_pinene_a , k_bt:k_hb ) / 1.000000 , 1.000000 , 1.000000 , 1.000000 /
DATA EF_frac( is_2met_styrene , k_bt:k_hb ) / 0.011470 , 0.005540 , 0.009240 , 0.010400 /
DATA EF_frac( is_cymene_p , k_bt:k_hb ) / 0.057340 , 0.055430 , 0.046210 , 0.041580 /
DATA EF_frac( is_cymene_o , k_bt:k_hb ) / 0.034400 , 0.016630 , 0.027730 , 0.031190 /
DATA EF_frac( is_phellandrene_a , k_bt:k_hb ) / 0.045870 , 0.055430 , 0.046210 , 0.041580 /
DATA EF_frac( is_thujene_a , k_bt:k_hb ) / 0.011470 , 0.033260 , 0.036970 , 0.041580 /
DATA EF_frac( is_terpinene_a , k_bt:k_hb ) / 0.057340 , 0.055430 , 0.046210 , 0.041580 /
DATA EF_frac( is_terpinene_g , k_bt:k_hb ) / 0.057340 , 0.055430 , 0.046210 , 0.041580 /
DATA EF_frac( is_terpinolene , k_bt:k_hb ) / 0.057340 , 0.066520 , 0.055450 , 0.062370 /
DATA EF_frac( is_phellandrene_b , k_bt:k_hb ) / 0.057340 , 0.166300 , 0.092420 , 0.103950 /
DATA EF_frac( is_camphene , k_bt:k_hb ) / 0.172020 , 0.249450 , 0.184840 , 0.145530 /
DATA EF_frac( is_bornene , k_bt:k_hb ) / 0.010320 , 0.004990 , 0.008320 , 0.008320 /
DATA EF_frac( is_fenchene_a , k_bt:k_hb ) / 0.003440 , 0.001660 , 0.002770 , 0.004160 /
DATA EF_frac( is_ocimene_al , k_bt:k_hb ) / 0.011470 , 0.005540 , 0.009240 , 0.010400 /
DATA EF_frac( is_ocimene_c_b , k_bt:k_hb ) / 0.045870 , 0.022170 , 0.036970 , 0.041580 /
DATA EF_frac( is_tricyclene , k_bt:k_hb ) / 0.011470 , 0.005540 , 0.009240 , 0.010400 /
DATA EF_frac( is_estragole , k_bt:k_hb ) / 0.003440 , 0.001660 , 0.002770 , 0.004160 /
DATA EF_frac( is_camphor , k_bt:k_hb ) / 0.034400 , 0.033260 , 0.046210 , 0.041580 /
DATA EF_frac( is_fenchone , k_bt:k_hb ) / 0.011470 , 0.005540 , 0.009240 , 0.010400 /
DATA EF_frac( is_piperitone , k_bt:k_hb ) / 0.003440 , 0.001660 , 0.002770 , 0.004160 /
DATA EF_frac( is_thujone_a , k_bt:k_hb ) / 0.011470 , 0.027720 , 0.046210 , 0.041580 /
DATA EF_frac( is_thujone_b , k_bt:k_hb ) / 0.002290 , 0.005540 , 0.009240 , 0.010400 /
DATA EF_frac( is_cineole_1_8 , k_bt:k_hb ) / 0.057340 , 0.011090 , 0.036970 , 0.041580 /
DATA EF_frac( is_borneol , k_bt:k_hb ) / 0.008030 , 0.003880 , 0.006470 , 0.006240 /
DATA EF_frac( is_linalool , k_bt:k_hb ) / 0.137610 , 0.066520 , 0.110910 , 0.124740 /
DATA EF_frac( is_terpineol_4 , k_bt:k_hb ) / 0.006880 , 0.003330 , 0.005550 , 0.006240 /
DATA EF_frac( is_terpineol_a , k_bt:k_hb ) / 0.034400 , 0.016630 , 0.027730 , 0.031190 /
DATA EF_frac( is_linalool_oxd_c , k_bt:k_hb ) / 0.006880 , 0.003330 , 0.005550 , 0.006240 /
DATA EF_frac( is_linalool_oxd_t , k_bt:k_hb ) / 0.034400 , 0.016630 , 0.027730 , 0.031190 /
DATA EF_frac( is_ionone_b , k_bt:k_hb ) / 0.002290 , 0.001110 , 0.001850 , 0.002080 /
DATA EF_frac( is_bornyl_act , k_bt:k_hb ) / 0.001150 , 0.002770 , 0.002770 , 0.002080 /
DATA EF_frac( is_farnescene_a , k_bt:k_hb ) / 1.000000 , 1.000000 , 1.000000 , 1.000000 /
DATA EF_frac( is_caryophyllene_b , k_bt:k_hb ) / 1.000000 , 1.000000 , 1.000000 , 1.000000 /
DATA EF_frac( is_acoradiene , k_bt:k_hb ) / 0.018570 , 0.015950 , 0.019160 , 0.021860 /
DATA EF_frac( is_aromadendrene , k_bt:k_hb ) / 0.007430 , 0.006380 , 0.007660 , 0.010930 /
DATA EF_frac( is_bergamotene_a , k_bt:k_hb ) / 0.083570 , 0.143540 , 0.095790 , 0.098360 /
DATA EF_frac( is_bergamotene_b , k_bt:k_hb ) / 0.001860 , 0.001590 , 0.001920 , 0.005460 /
DATA EF_frac( is_bisabolene_a , k_bt:k_hb ) / 0.001860 , 0.001590 , 0.001920 , 0.005460 /
DATA EF_frac( is_bisabolene_b , k_bt:k_hb ) / 0.055710 , 0.119620 , 0.067050 , 0.076500 /
DATA EF_frac( is_bourbonene_b , k_bt:k_hb ) / 0.027860 , 0.023920 , 0.028740 , 0.032790 /
DATA EF_frac( is_cadinene_d , k_bt:k_hb ) / 0.013930 , 0.011960 , 0.014370 , 0.016390 /
DATA EF_frac( is_cadinene_g , k_bt:k_hb ) / 0.009290 , 0.007970 , 0.009580 , 0.010930 /
DATA EF_frac( is_cedrene_a , k_bt:k_hb ) / 0.005570 , 0.004780 , 0.005750 , 0.005460 /
DATA EF_frac( is_copaene_a , k_bt:k_hb ) / 0.009290 , 0.007970 , 0.009580 , 0.010930 /
DATA EF_frac( is_cubebene_a , k_bt:k_hb ) / 0.013930 , 0.011960 , 0.014370 , 0.016390 /
DATA EF_frac( is_cubebene_b , k_bt:k_hb ) / 0.009290 , 0.007970 , 0.009580 , 0.010930 /
DATA EF_frac( is_elemene_b , k_bt:k_hb ) / 0.018570 , 0.015950 , 0.019160 , 0.021860 /
DATA EF_frac( is_farnescene_b , k_bt:k_hb ) / 0.278550 , 0.239230 , 0.287360 , 0.218580 /
DATA EF_frac( is_germacrene_b , k_bt:k_hb ) / 0.009290 , 0.007970 , 0.009580 , 0.010930 /
DATA EF_frac( is_germacrene_d , k_bt:k_hb ) / 0.027860 , 0.023920 , 0.028740 , 0.032790 /
DATA EF_frac( is_gurjunene_b , k_bt:k_hb ) / 0.004640 , 0.003990 , 0.004790 , 0.005460 /
DATA EF_frac( is_humulene_a , k_bt:k_hb ) / 0.139280 , 0.199360 , 0.172410 , 0.163930 /
DATA EF_frac( is_humulene_g , k_bt:k_hb ) / 0.001860 , 0.001590 , 0.001920 , 0.005460 /
DATA EF_frac( is_isolongifolene , k_bt:k_hb ) / 0.001860 , 0.001590 , 0.001920 , 0.005460 /
DATA EF_frac( is_longifolene , k_bt:k_hb ) / 0.001860 , 0.001590 , 0.001920 , 0.005460 /
DATA EF_frac( is_longipinene , k_bt:k_hb ) / 0.001860 , 0.001590 , 0.001920 , 0.005460 /
DATA EF_frac( is_muurolene_a , k_bt:k_hb ) / 0.013930 , 0.011960 , 0.014370 , 0.016390 /
DATA EF_frac( is_muurolene_g , k_bt:k_hb ) / 0.046430 , 0.039870 , 0.047890 , 0.054640 /
DATA EF_frac( is_selinene_b , k_bt:k_hb ) / 0.185700 , 0.079740 , 0.114940 , 0.109290 /
DATA EF_frac( is_selinene_d , k_bt:k_hb ) / 0.001860 , 0.001590 , 0.001920 , 0.005460 /
DATA EF_frac( is_nerolidol_c , k_bt:k_hb ) / 0.001860 , 0.001590 , 0.001920 , 0.005460 /
DATA EF_frac( is_nerolidol_t , k_bt:k_hb ) / 0.004640 , 0.001590 , 0.001920 , 0.005460 /
DATA EF_frac( is_cedrol , k_bt:k_hb ) / 0.001860 , 0.001590 , 0.001920 , 0.005460 /
DATA EF_frac( is_mbo_2m3e2ol , k_bt:k_hb ) / 1.000000 , 1.000000 , 1.000000 , 1.000000 /
DATA EF_frac( is_methanol , k_bt:k_hb ) / 1.000000 , 1.000000 , 1.000000 , 1.000000 /
DATA EF_frac( is_acetone , k_bt:k_hb ) / 1.000000 , 1.000000 , 1.000000 , 1.000000 /
DATA EF_frac( is_methane , k_bt:k_hb ) / 1.000000 , 1.000000 , 1.000000 , 1.000000 /
DATA EF_frac( is_ammonia , k_bt:k_hb ) / 0.000000 , 0.000000 , 0.000000 , 0.000000 /
DATA EF_frac( is_nitrous_oxd , k_bt:k_hb ) / 0.000000 , 0.000000 , 0.000000 , 0.000000 /
DATA EF_frac( is_nitric_oxd , k_bt:k_hb ) / 1.000000 , 1.000000 , 1.000000 , 1.000000 /
DATA EF_frac( is_acetaldehyde , k_bt:k_hb ) / 0.500000 , 0.500000 , 0.500000 , 0.500000 /
DATA EF_frac( is_ethanol , k_bt:k_hb ) / 0.500000 , 0.500000 , 0.500000 , 0.500000 /
DATA EF_frac( is_formic_acid , k_bt:k_hb ) / 0.285710 , 0.285710 , 0.285710 , 0.285710 /
DATA EF_frac( is_formaldehyde , k_bt:k_hb ) / 0.428570 , 0.428570 , 0.428570 , 0.428570 /
DATA EF_frac( is_acetic_acid , k_bt:k_hb ) / 0.285710 , 0.285710 , 0.285710 , 0.285710 /
DATA EF_frac( is_mbo_3m2e1ol , k_bt:k_hb ) / 0.000520 , 0.000520 , 0.000520 , 0.000520 /
DATA EF_frac( is_mbo_3m3e1ol , k_bt:k_hb ) / 0.000520 , 0.000520 , 0.000520 , 0.000520 /
DATA EF_frac( is_benzaldehyde , k_bt:k_hb ) / 0.000210 , 0.000210 , 0.000210 , 0.000210 /
DATA EF_frac( is_butanone_2 , k_bt:k_hb ) / 0.001030 , 0.001030 , 0.001030 , 0.001030 /
DATA EF_frac( is_decanal , k_bt:k_hb ) / 0.000210 , 0.000210 , 0.000210 , 0.000210 /
DATA EF_frac( is_dodecene_1 , k_bt:k_hb ) / 0.000210 , 0.000210 , 0.000210 , 0.000210 /
DATA EF_frac( is_geranyl_acetone , k_bt:k_hb ) / 0.003100 , 0.003100 , 0.003100 , 0.003100 /
DATA EF_frac( is_heptanal , k_bt:k_hb ) / 0.000210 , 0.000210 , 0.000210 , 0.000210 /
DATA EF_frac( is_heptane , k_bt:k_hb ) / 0.000210 , 0.000210 , 0.000210 , 0.000210 /
DATA EF_frac( is_hexane , k_bt:k_hb ) / 0.000100 , 0.000100 , 0.000100 , 0.000100 /
DATA EF_frac( is_met_benzoate , k_bt:k_hb ) / 0.000100 , 0.000100 , 0.000100 , 0.000100 /
DATA EF_frac( is_met_heptenone , k_bt:k_hb ) / 0.000210 , 0.000210 , 0.000210 , 0.000210 /
DATA EF_frac( is_neryl_acetone , k_bt:k_hb ) / 0.000100 , 0.000100 , 0.000100 , 0.000100 /
DATA EF_frac( is_nonanal , k_bt:k_hb ) / 0.000210 , 0.000210 , 0.000210 , 0.000210 /
DATA EF_frac( is_nonenal , k_bt:k_hb ) / 0.000100 , 0.000100 , 0.000100 , 0.000100 /
DATA EF_frac( is_octanal , k_bt:k_hb ) / 0.000210 , 0.000210 , 0.000210 , 0.000210 /
DATA EF_frac( is_octanol , k_bt:k_hb ) / 0.000210 , 0.000210 , 0.000210 , 0.000210 /
DATA EF_frac( is_octenol_1e3ol , k_bt:k_hb ) / 0.000210 , 0.000210 , 0.000210 , 0.000210 /
DATA EF_frac( is_oxopentanal , k_bt:k_hb ) / 0.000210 , 0.000210 , 0.000210 , 0.000210 /
DATA EF_frac( is_pentane , k_bt:k_hb ) / 0.000100 , 0.000100 , 0.000100 , 0.000100 /
DATA EF_frac( is_phenyl_cco , k_bt:k_hb ) / 0.000100 , 0.000100 , 0.000100 , 0.000100 /
DATA EF_frac( is_pyruvic_acid , k_bt:k_hb ) / 0.002060 , 0.002060 , 0.002060 , 0.002060 /
DATA EF_frac( is_terpinyl_act_a , k_bt:k_hb ) / 0.000100 , 0.000100 , 0.000100 , 0.000100 /
DATA EF_frac( is_tetradecene_1 , k_bt:k_hb ) / 0.000100 , 0.000100 , 0.000100 , 0.000100 /
DATA EF_frac( is_toluene , k_bt:k_hb ) / 0.002060 , 0.002060 , 0.002060 , 0.002060 /
DATA EF_frac( is_carbon_monoxide , k_bt:k_hb ) / 0.619070 , 0.619070 , 0.619070 , 0.619070 /
DATA EF_frac( is_butene , k_bt:k_hb ) / 0.036110 , 0.036110 , 0.036110 , 0.036110 /
DATA EF_frac( is_ethane , k_bt:k_hb ) / 0.002060 , 0.002060 , 0.002060 , 0.002060 /
DATA EF_frac( is_ethene , k_bt:k_hb ) / 0.134130 , 0.134130 , 0.134130 , 0.134130 /
DATA EF_frac( is_hydrogen_cyanide, k_bt:k_hb ) / 0.004130 , 0.004130 , 0.004130 , 0.004130 /
DATA EF_frac( is_propane , k_bt:k_hb ) / 0.001030 , 0.001030 , 0.001030 , 0.001030 /
DATA EF_frac( is_propene , k_bt:k_hb ) / 0.082540 , 0.082540 , 0.082540 , 0.082540 /
DATA EF_frac( is_carbon_2s , k_bt:k_hb ) / 0.000310 , 0.000310 , 0.000310 , 0.000310 /
DATA EF_frac( is_carbonyl_s , k_bt:k_hb ) / 0.000620 , 0.000620 , 0.000620 , 0.000620 /
DATA EF_frac( is_diallyl_2s , k_bt:k_hb ) / 0.000100 , 0.000100 , 0.000100 , 0.000100 /
DATA EF_frac( is_2met_2s , k_bt:k_hb ) / 0.000310 , 0.000310 , 0.000310 , 0.000310 /
DATA EF_frac( is_2met_s , k_bt:k_hb ) / 0.001240 , 0.001240 , 0.001240 , 0.001240 /
DATA EF_frac( is_met_chloride , k_bt:k_hb ) / 0.001030 , 0.001030 , 0.001030 , 0.001030 /
DATA EF_frac( is_met_bromide , k_bt:k_hb ) / 0.000210 , 0.000210 , 0.000210 , 0.000210 /
DATA EF_frac( is_met_iodide , k_bt:k_hb ) / 0.000100 , 0.000100 , 0.000100 , 0.000100 /
DATA EF_frac( is_hydrogen_s , k_bt:k_hb ) / 0.000520 , 0.000520 , 0.000520 , 0.000520 /
DATA EF_frac( is_met_mercaptan , k_bt:k_hb ) / 0.000100 , 0.000100 , 0.000100 , 0.000100 /
DATA EF_frac( is_met_propenyl_2s , k_bt:k_hb ) / 0.000100 , 0.000100 , 0.000100 , 0.000100 /
DATA EF_frac( is_pppp_2s , k_bt:k_hb ) / 0.000100 , 0.000100 , 0.000100 , 0.000100 /
DATA EF_frac( is_2met_nonatriene , k_bt:k_hb ) / 0.020640 , 0.020640 , 0.020640 , 0.020640 /
DATA EF_frac( is_met_salicylate , k_bt:k_hb ) / 0.002060 , 0.002060 , 0.002060 , 0.002060 /
DATA EF_frac( is_indole , k_bt:k_hb ) / 0.000210 , 0.000210 , 0.000210 , 0.000210 /
DATA EF_frac( is_jasmone , k_bt:k_hb ) / 0.000210 , 0.000210 , 0.000210 , 0.000210 /
DATA EF_frac( is_met_jasmonate , k_bt:k_hb ) / 0.002060 , 0.002060 , 0.002060 , 0.002060 /
DATA EF_frac( is_3met_3dctt , k_bt:k_hb ) / 0.000210 , 0.000210 , 0.000210 , 0.000210 /
DATA EF_frac( is_hexanal , k_bt:k_hb ) / 0.003100 , 0.003100 , 0.003100 , 0.003100 /
DATA EF_frac( is_hexanol_1 , k_bt:k_hb ) / 0.003100 , 0.003100 , 0.003100 , 0.003100 /
DATA EF_frac( is_hexenal_c3 , k_bt:k_hb ) / 0.025790 , 0.025790 , 0.025790 , 0.025790 /
DATA EF_frac( is_hexenal_t2 , k_bt:k_hb ) / 0.015480 , 0.015480 , 0.015480 , 0.015480 /
DATA EF_frac( is_hexenol_c3 , k_bt:k_hb ) / 0.015480 , 0.015480 , 0.015480 , 0.015480 /
DATA EF_frac( is_hexenyl_act_c3 , k_bt:k_hb ) / 0.015480 , 0.015480 , 0.015480 , 0.015480 /
END MODULE module_data_megan2